1/* $NetBSD: dec_3000_500.c,v 1.45 2011/06/14 15:34:21 matt Exp $ */
2
3/*
4 * Copyright (c) 1994, 1995, 1996 Carnegie-Mellon University.
5 * All rights reserved.
6 *
7 * Author: Chris G. Demetriou
8 *
9 * Permission to use, copy, modify and distribute this software and
10 * its documentation is hereby granted, provided that both the copyright
11 * notice and this permission notice appear in all copies of the
12 * software, derivative works or modified versions, and any portions
13 * thereof, and that both notices appear in supporting documentation.
14 *
15 * CARNEGIE MELLON ALLOWS FREE USE OF THIS SOFTWARE IN ITS "AS IS"
16 * CONDITION.  CARNEGIE MELLON DISCLAIMS ANY LIABILITY OF ANY KIND
17 * FOR ANY DAMAGES WHATSOEVER RESULTING FROM THE USE OF THIS SOFTWARE.
18 *
19 * Carnegie Mellon requests users of this software to return to
20 *
21 *  Software Distribution Coordinator  or  Software.Distribution@CS.CMU.EDU
22 *  School of Computer Science
23 *  Carnegie Mellon University
24 *  Pittsburgh PA 15213-3890
25 *
26 * any improvements or extensions that they make and grant Carnegie the
27 * rights to redistribute these changes.
28 */
29/*
30 * Additional Copyright (c) 1997 by Matthew Jacob for NASA/Ames Research Center
31 */
32
33#include <sys/cdefs.h>			/* RCS ID & Copyright macro defns */
34
35__KERNEL_RCSID(0, "$NetBSD: dec_3000_500.c,v 1.45 2011/06/14 15:34:21 matt Exp $");
36
37#include <sys/param.h>
38#include <sys/systm.h>
39#include <sys/device.h>
40#include <sys/termios.h>
41#include <sys/conf.h>
42#include <dev/cons.h>
43
44#include <machine/rpb.h>
45#include <machine/autoconf.h>
46#include <machine/cpuconf.h>
47
48#include <dev/tc/tcvar.h>
49#include <dev/tc/tcdsvar.h>
50#include <alpha/tc/tc_3000_500.h>
51
52#include <machine/z8530var.h>
53#include <dev/tc/zs_ioasicvar.h>
54
55#include <dev/scsipi/scsi_all.h>
56#include <dev/scsipi/scsipi_all.h>
57#include <dev/scsipi/scsiconf.h>
58
59#include "wsdisplay.h"
60
61void dec_3000_500_init(void);
62static void dec_3000_500_cons_init(void);
63static void dec_3000_500_device_register(device_t, void *);
64
65static const char dec_3000_500_sp[] = "DEC 3000/400 (\"Sandpiper\")";
66static const char dec_3000_500_sf[] = "DEC 3000/500 (\"Flamingo\")";
67
68const struct alpha_variation_table dec_3000_500_variations[] = {
69	{ SV_ST_SANDPIPER, dec_3000_500_sp },
70	{ SV_ST_FLAMINGO, dec_3000_500_sf },
71	{ SV_ST_HOTPINK, "DEC 3000/500X (\"Hot Pink\")" },
72	{ SV_ST_FLAMINGOPLUS, "DEC 3000/800 (\"Flamingo+\")" },
73	{ SV_ST_SANDPLUS, "DEC 3000/600 (\"Sandpiper+\")" },
74	{ SV_ST_SANDPIPER45, "DEC 3000/700 (\"Sandpiper45\")" },
75	{ SV_ST_FLAMINGO45, "DEC 3000/900 (\"Flamingo45\")" },
76	{ 0, NULL },
77};
78
79void
80dec_3000_500_init(void)
81{
82	uint64_t variation;
83
84	platform.family = "DEC 3000/500 (\"Flamingo\")";
85
86	if ((platform.model = alpha_dsr_sysname()) == NULL) {
87		variation = hwrpb->rpb_variation & SV_ST_MASK;
88		if (variation == SV_ST_ULTRA) {
89			/* These are really the same. */
90			variation = SV_ST_FLAMINGOPLUS;
91		}
92		if ((platform.model = alpha_variation_name(variation,
93		    dec_3000_500_variations)) == NULL) {
94			/*
95			 * This is how things used to be done.
96			 */
97			if (variation == SV_ST_RESERVED) {
98				if (hwrpb->rpb_variation & SV_GRAPHICS)
99					platform.model = dec_3000_500_sf;
100				else
101					platform.model = dec_3000_500_sp;
102			} else
103				platform.model = alpha_unknown_sysname();
104		}
105	}
106
107	platform.iobus = "tcasic";
108	platform.cons_init = dec_3000_500_cons_init;
109	platform.device_register = dec_3000_500_device_register;
110}
111
112static void
113dec_3000_500_cons_init(void)
114{
115	struct ctb *ctb;
116
117	ctb = (struct ctb *)(((char *)hwrpb) + hwrpb->rpb_ctb_off);
118
119	switch (ctb->ctb_term_type) {
120	case CTB_GRAPHICS:
121#if NWSDISPLAY > 0
122		/* display console ... */
123		if (zs_ioasic_lk201_cnattach(0x1e0000000, 0x00180000, 0) == 0 &&
124		    tc_3000_500_fb_cnattach(
125		     CTB_TURBOSLOT_SLOT(ctb->ctb_turboslot)) == 0) {
126			break;
127		}
128#endif
129		printf("consinit: Unable to init console on keyboard and ");
130		printf("TURBOchannel slot 0x%lx.\n", ctb->ctb_turboslot);
131		printf("Using serial console.\n");
132		/* FALLTHROUGH */
133
134	case CTB_PRINTERPORT:
135		/* serial console ... */
136		/*
137		 * XXX This could stand some cleanup...
138		 */
139		{
140			/*
141			 * Delay to allow PROM putchars to complete.
142			 * FIFO depth * character time,
143			 * character time = (1000000 / (defaultrate / 10))
144			 */
145			DELAY(160000000 / 9600);	/* XXX */
146
147			/*
148			 * Console is channel B of the second SCC.
149			 * XXX Should use ctb_line_off to get the
150			 * XXX line parameters--these are the defaults.
151			 */
152			zs_ioasic_cnattach(0x1e0000000, 0x00180000, 1);
153			break;
154		}
155
156	default:
157		printf("ctb->ctb_term_type = 0x%lx\n", ctb->ctb_term_type);
158		printf("ctb->ctb_turboslot = 0x%lx\n", ctb->ctb_turboslot);
159		panic("consinit: unknown console type %lu",
160		    ctb->ctb_term_type);
161		/* NOTREACHED */
162	}
163}
164
165static void
166dec_3000_500_device_register(device_t dev, void *aux)
167{
168	static int found, initted, scsiboot, netboot;
169	static device_t scsidev;
170	static device_t tcdsdev;
171	struct bootdev_data *b = bootdev_data;
172	device_t parent = device_parent(dev);
173
174	if (found)
175		return;
176
177	if (!initted) {
178		scsiboot = (strcmp(b->protocol, "SCSI") == 0);
179		netboot = (strcmp(b->protocol, "BOOTP") == 0) ||
180		    (strcmp(b->protocol, "MOP") == 0);
181#if 0
182		printf("scsiboot = %d, netboot = %d\n", scsiboot, netboot);
183#endif
184		initted = 1;
185	}
186
187	/*
188	 * for scsi boot, we look for "tcds", make sure it has the
189	 * right slot number, then find the "asc" on this tcds that
190	 * as the right channel.  then we find the actual scsi
191	 * device we came from.  note: no SCSI LUN support (yet).
192	 */
193	if (scsiboot && device_is_a(dev, "tcds")) {
194		struct tc_attach_args *tcargs = aux;
195
196		if (b->slot != tcargs->ta_slot)
197			return;
198
199		tcdsdev = dev;
200#if 0
201		printf("\ntcdsdev = %s\n", device_xname(dev));
202#endif
203	}
204	if (scsiboot && tcdsdev &&
205	    device_is_a(dev, "asc")) {
206		struct tcdsdev_attach_args *ta = aux;
207
208		if (parent != (device_t)tcdsdev)
209			return;
210
211		if (ta->tcdsda_chip != b->channel)
212			return;
213
214		scsidev = dev;
215#if 0
216		printf("\nscsidev = %s\n", device_xname(dev));
217#endif
218	}
219
220	if (scsiboot && scsidev &&
221	    (device_is_a(dev, "sd") ||
222	     device_is_a(dev, "st") ||
223	     device_is_a(dev, "cd"))) {
224		struct scsipibus_attach_args *sa = aux;
225
226		if (device_parent(parent) != scsidev)
227			return;
228
229		if (b->unit / 100 != sa->sa_periph->periph_target)
230			return;
231
232		/* XXX LUN! */
233
234		switch (b->boot_dev_type) {
235		case 0:
236			if (!device_is_a(dev, "sd") &&
237			    !device_is_a(dev, "cd"))
238				return;
239			break;
240		case 1:
241			if (!device_is_a(dev, "st"))
242				return;
243			break;
244		default:
245			return;
246		}
247
248		/* we've found it! */
249		booted_device = dev;
250#if 0
251		printf("\nbooted_device = %s\n", device_xname(booted_device));
252#endif
253		found = 1;
254	}
255
256	if (netboot) {
257	        if (b->slot == 7 && device_is_a(dev, "le") &&
258		    device_is_a(parent, "ioasic")) {
259			/*
260			 * no need to check ioasic_attach_args, since only
261			 * one le on ioasic.
262			 */
263
264			booted_device = dev;
265#if 0
266			printf("\nbooted_device = %s\n", device_xname(booted_device));
267#endif
268			found = 1;
269			return;
270		}
271
272		/*
273		 * XXX GENERIC SUPPORT FOR TC NETWORK BOARDS
274		 */
275	}
276}
277