1 /* $OpenBSD: dec_kn300.c,v 1.9 2017/04/30 13:04:49 mpi Exp $ */
2 /* $NetBSD: dec_kn300.c,v 1.34 2007/03/04 15:18:10 yamt Exp $ */
3
4 /*
5 * Copyright (c) 1998 by Matthew Jacob
6 * NASA AMES Research Center.
7 * All rights reserved.
8 *
9 * Redistribution and use in source and binary forms, with or without
10 * modification, are permitted provided that the following conditions
11 * are met:
12 * 1. Redistributions of source code must retain the above copyright
13 * notice immediately at the beginning of the file, without modification,
14 * this list of conditions, and the following disclaimer.
15 * 2. Redistributions in binary form must reproduce the above copyright
16 * notice, this list of conditions and the following disclaimer in the
17 * documentation and/or other materials provided with the distribution.
18 * 3. The name of the author may not be used to endorse or promote products
19 * derived from this software without specific prior written permission.
20 *
21 * THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND
22 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
23 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
24 * ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE FOR
25 * ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
26 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
27 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
28 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
29 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
30 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
31 * SUCH DAMAGE.
32 */
33
34 #include <sys/param.h>
35 #include <sys/systm.h>
36 #include <sys/device.h>
37 #include <sys/termios.h>
38 #include <sys/conf.h>
39 #include <dev/cons.h>
40
41 #include <machine/rpb.h>
42 #include <machine/autoconf.h>
43 #include <machine/frame.h>
44 #include <machine/cpuconf.h>
45
46 #include <dev/ic/comreg.h>
47 #include <dev/ic/comvar.h>
48
49 #include <dev/isa/isareg.h>
50 #include <dev/isa/isavar.h>
51 #include <dev/ic/i8042reg.h>
52 #include <dev/ic/pckbcvar.h>
53 #include <dev/pci/pcireg.h>
54 #include <dev/pci/pcivar.h>
55
56 #include <alpha/mcbus/mcbusreg.h>
57 #include <alpha/mcbus/mcbusvar.h>
58 #include <alpha/pci/mcpciareg.h>
59 #include <alpha/pci/mcpciavar.h>
60 #include <alpha/pci/pci_kn300.h>
61
62 #include <scsi/scsi_all.h>
63 #include <scsi/scsiconf.h>
64
65 #include "pckbd.h"
66
67 #ifndef CONSPEED
68 #define CONSPEED TTYDEF_SPEED
69 #endif
70 static int comcnrate = CONSPEED;
71
72 #ifdef DEBUG
73 int bootdev_debug;
74 #define DPRINTF(x) do { if (bootdev_debug) printf x; } while (0)
75 #else
76 #define DPRINTF(x) do { } while (0)
77 #endif
78
79 void dec_kn300_init (void);
80 void dec_kn300_cons_init (void);
81 static void dec_kn300_device_register (struct device *, void *);
82
83 #define ALPHASERVER_4100 "AlphaServer 4100"
84
85 const struct alpha_variation_table dec_kn300_variations[] = {
86 { 0, ALPHASERVER_4100 },
87 { 0, NULL },
88 };
89
90 void
dec_kn300_init()91 dec_kn300_init()
92 {
93 u_int64_t variation;
94 int cachesize;
95
96 platform.family = ALPHASERVER_4100;
97
98 if ((platform.model = alpha_dsr_sysname()) == NULL) {
99 variation = hwrpb->rpb_variation & SV_ST_MASK;
100 if ((platform.model = alpha_variation_name(variation,
101 dec_kn300_variations)) == NULL)
102 platform.model = alpha_unknown_sysname();
103 }
104
105 platform.iobus = "mcbus";
106 platform.cons_init = dec_kn300_cons_init;
107 platform.device_register = dec_kn300_device_register;
108
109 /*
110 * Determine B-cache size by looking at the primary (console)
111 * MCPCIA's WHOAMI register.
112 */
113 mcpcia_init();
114
115 if (mcbus_primary.mcbus_valid) {
116 switch (mcbus_primary.mcbus_bcache) {
117 default:
118 case CPU_BCache_0MB:
119 /* No B-cache or invalid; default to 1MB. */
120 /* FALLTHROUGH */
121
122 case CPU_BCache_1MB:
123 cachesize = (1 * 1024 * 1024);
124 break;
125
126 case CPU_BCache_2MB:
127 cachesize = (2 * 1024 * 1024);
128 break;
129
130 case CPU_BCache_4MB:
131 cachesize = (4 * 1024 * 1024);
132 break;
133 }
134 } else {
135 /* Default to 1MB. */
136 cachesize = (1 * 1024 * 1024);
137 }
138 }
139
140 void
dec_kn300_cons_init()141 dec_kn300_cons_init()
142 {
143 struct ctb *ctb;
144 struct mcpcia_config *ccp;
145 extern struct mcpcia_config mcpcia_console_configuration;
146
147 ccp = &mcpcia_console_configuration;
148 /* It's already initialized. */
149
150 ctb = (struct ctb *)(((char *)hwrpb) + hwrpb->rpb_ctb_off);
151
152 switch (ctb->ctb_term_type) {
153 case CTB_PRINTERPORT:
154 /* serial console ... */
155 /*
156 * Delay to allow PROM putchars to complete.
157 * FIFO depth * character time,
158 * character time = (1000000 / (defaultrate / 10))
159 */
160 DELAY(160000000 / comcnrate);
161 if (comcnattach(&ccp->cc_iot, 0x3f8, comcnrate,
162 COM_FREQ,
163 (TTYDEF_CFLAG & ~(CSIZE | PARENB)) | CS8)) {
164 panic("can't init serial console");
165
166 }
167 break;
168
169 case CTB_GRAPHICS:
170 #if NPCKBD > 0
171 /* display console ... */
172 /* XXX */
173 (void) pckbc_cnattach(&ccp->cc_iot, IO_KBD, KBCMDP, 0);
174
175 if (CTB_TURBOSLOT_TYPE(ctb->ctb_turboslot) ==
176 CTB_TURBOSLOT_TYPE_ISA)
177 isa_display_console(&ccp->cc_iot, &ccp->cc_memt);
178 else
179 pci_display_console(&ccp->cc_iot, &ccp->cc_memt,
180 &ccp->cc_pc, CTB_TURBOSLOT_BUS(ctb->ctb_turboslot),
181 CTB_TURBOSLOT_SLOT(ctb->ctb_turboslot), 0);
182 #else
183 panic("not configured to use display && keyboard console");
184 #endif
185 break;
186
187 default:
188 printf("ctb->ctb_term_type = 0x%lx\n",
189 (unsigned long)ctb->ctb_term_type);
190 printf("ctb->ctb_turboslot = 0x%lx\n",
191 (unsigned long)ctb->ctb_turboslot);
192
193 panic("consinit: unknown console type %lu",
194 (unsigned long)ctb->ctb_term_type);
195 }
196 }
197
198 static void
dec_kn300_device_register(dev,aux)199 dec_kn300_device_register(dev, aux)
200 struct device *dev;
201 void *aux;
202 {
203 static int found, initted, diskboot, netboot;
204 static struct device *primarydev, *pcidev, *ctrlrdev;
205 struct bootdev_data *b = bootdev_data;
206 struct device *parent = dev->dv_parent;
207 struct cfdata *cf = dev->dv_cfdata;
208 struct cfdriver *cd = cf->cf_driver;
209
210 if (found)
211 return;
212
213 if (!initted) {
214 diskboot = (strncasecmp(b->protocol, "SCSI", 4) == 0);
215 netboot = (strncasecmp(b->protocol, "BOOTP", 5) == 0) ||
216 (strncasecmp(b->protocol, "MOP", 3) == 0);
217
218 DPRINTF(("proto:%s bus:%d slot:%d chan:%d", b->protocol,
219 b->bus, b->slot, b->channel));
220 if (b->remote_address)
221 DPRINTF((" remote_addr:%s", b->remote_address));
222 DPRINTF((" un:%d bdt:%d", b->unit, b->boot_dev_type));
223 if (b->ctrl_dev_type)
224 DPRINTF((" cdt:%s\n", b->ctrl_dev_type));
225 else
226 DPRINTF(("\n"));
227 DPRINTF(("diskboot = %d, netboot = %d\n", diskboot, netboot));
228 initted = 1;
229 }
230
231 if (primarydev == NULL) {
232 if (strcmp(cd->cd_name, "mcpcia"))
233 return;
234 else {
235 struct mcbus_dev_attach_args *ma = aux;
236
237 if (b->bus != ma->ma_mid - 4)
238 return;
239 primarydev = dev;
240 DPRINTF(("\nprimarydev = %s\n", dev->dv_xname));
241 return;
242 }
243 }
244
245 if (pcidev == NULL) {
246 if (strcmp(cd->cd_name, "pci"))
247 return;
248 /*
249 * Try to find primarydev anywhere in the ancestry. This is
250 * necessary if the PCI bus is hidden behind a bridge.
251 */
252 else {
253 struct pcibus_attach_args *pba = aux;
254
255 if ((b->slot / 1000) != pba->pba_bus)
256 return;
257
258 pcidev = dev;
259 DPRINTF(("\npcidev = %s\n", dev->dv_xname));
260 return;
261 }
262 }
263
264 if (ctrlrdev == NULL) {
265 if (parent != pcidev)
266 return;
267 else {
268 struct pci_attach_args *pa = aux;
269 int slot;
270
271 slot = pa->pa_bus * 1000 + pa->pa_function * 100 +
272 pa->pa_device;
273 if (b->slot != slot)
274 return;
275
276 if (netboot) {
277 booted_device = dev;
278 DPRINTF(("\nbooted_device = %s\n", dev->dv_xname));
279 found = 1;
280 } else {
281 ctrlrdev = dev;
282 DPRINTF(("\nctrlrdev = %s\n", dev->dv_xname));
283 }
284 return;
285 }
286 }
287
288 if (!diskboot)
289 return;
290
291 if (strcmp(cd->cd_name, "sd") ||
292 strcmp(cd->cd_name, "st") ||
293 strcmp(cd->cd_name, "cd")) {
294 struct scsi_attach_args *sa = aux;
295 struct scsi_link *periph = sa->sa_sc_link;
296 int unit;
297
298 if (parent->dv_parent != ctrlrdev)
299 return;
300
301 unit = periph->target * 100 + periph->lun;
302 if (b->unit != unit)
303 return;
304
305 /* we've found it! */
306 booted_device = dev;
307 DPRINTF(("\nbooted_device = %s\n", dev->dv_xname));
308 found = 1;
309 }
310 }
311