1 /* $NetBSD: nextrom.c,v 1.29 2023/02/11 02:33:27 tsutsui Exp $ */
2 /*
3 * Copyright (c) 1998 Darrin B. Jewell
4 * All rights reserved.
5 *
6 * Redistribution and use in source and binary forms, with or without
7 * modification, are permitted provided that the following conditions
8 * are met:
9 * 1. Redistributions of source code must retain the above copyright
10 * notice, this list of conditions and the following disclaimer.
11 * 2. Redistributions in binary form must reproduce the above copyright
12 * notice, this list of conditions and the following disclaimer in the
13 * documentation and/or other materials provided with the distribution.
14 *
15 * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
16 * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
17 * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
18 * IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,
19 * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
20 * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
21 * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
22 * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
23 * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
24 * THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
25 */
26
27 #include <sys/cdefs.h>
28 __KERNEL_RCSID(0, "$NetBSD: nextrom.c,v 1.29 2023/02/11 02:33:27 tsutsui Exp $");
29
30 #include "opt_ddb.h"
31 #include "opt_serial.h"
32
33 #include <sys/types.h>
34 #include <machine/cpu.h>
35
36 #include <next68k/next68k/seglist.h>
37 #include <next68k/next68k/nextrom.h>
38 #include <next68k/dev/intiovar.h>
39
40 #ifdef DDB
41 #include <sys/param.h>
42 #include <sys/systm.h>
43 #include <sys/proc.h>
44 #define ELFSIZE 32
45 #include <sys/exec_elf.h>
46 #endif
47
48 void next68k_bootargs(unsigned char **);
49
50 int mon_getc(void);
51 int mon_putc(int);
52
53 extern char etext[], edata[], end[];
54 extern int nsym;
55 extern char *ssym, *esym;
56
57 volatile struct mon_global *mg;
58
59
60 #define MON(type, off) (*(type *)((u_int) (mg) + off))
61
62 #define RELOC(v, t) (*((t *)((u_int)&(v) + NEXT_RAMBASE)))
63
64 #define MONRELOC(type, off) \
65 (*(volatile type *)((u_int)RELOC(mg, volatile struct mon_global *) + off))
66
67
68 typedef int (*getcptr)(void);
69 typedef int (*putcptr)(int);
70
71 /*
72 * Print a string on the rom console before the MMU is turned on
73 */
74
75 /* #define DISABLE_ROM_PRINT 1 */
76
77 #ifdef DISABLE_ROM_PRINT
78 #define ROM_PUTC(c) /* nop */
79 #define ROM_PUTS(xs) /* nop */
80 #define ROM_PUTX(v) /* nop */
81 #else
82
83 #define ROM_PUTC(c) \
84 (*MONRELOC(putcptr, MG_putc))(c)
85 #define ROM_PUTS(xs) \
86 do { \
87 volatile const char *_s = xs + NEXT_RAMBASE; \
88 while (_s && *_s) \
89 (*MONRELOC(putcptr, MG_putc))(*_s++); \
90 } while (/* CONSTCOND */0)
91
92 /* Print a hex byte on the rom console */
93
94 #if 1
95 static char romprint_hextable[] = "0123456789abcdef@";
96 #define ROM_PUTX(v) \
97 do { \
98 (*MONRELOC(putcptr, MG_putc)) \
99 (RELOC(romprint_hextable[((v)>>4)&0xf], char)); \
100 (*MONRELOC(putcptr, MG_putc)) \
101 (RELOC(romprint_hextable[(v)&0xf], char)); \
102 } while (/* CONSTCOND */0);
103 #else
104 #define lookup_hex(v) ((v) >9 ? ('a' + (v) - 0xa) : ('0' + (v)))
105 #define ROM_PUTX(v) \
106 do { \
107 (*MONRELOC(putcptr, MG_putc)) \
108 (lookup_hex(((v) >> 4) & 0xf)); \
109 (*MONRELOC(putcptr, MG_putc)) \
110 (lookup_hex((v) & 0xf)); \
111 } while (/* CONSTCOND */0);
112 #endif
113 #endif
114
115 uint8_t rom_enetaddr[6];
116 uint8_t rom_boot_dev[20];
117 uint8_t rom_boot_arg[20];
118 uint8_t rom_boot_info[20];
119 uint8_t rom_boot_file[20];
120 uint8_t rom_bootfile[MG_boot_how - MG_bootfile];
121 char rom_machine_type;
122
123 uint8_t *rom_return_sp;
124 u_int rom_mon_stack;
125 uint8_t rom_image[0x2000];
126 paddr_t rom_image_base;
127 u_int rom_vbr;
128 u_int rom_intrmask;
129 u_int rom_intrstat;
130
131 paddr_t rom_reboot_vect;
132
133 int turbo;
134 int iscolor;
135
136 void
next68k_bootargs(unsigned char ** args)137 next68k_bootargs(unsigned char **args)
138 {
139 #ifdef DDB
140 int i;
141 Elf_Ehdr *ehdr;
142 Elf_Shdr *shp;
143 vaddr_t minsym, maxsym;
144 char *reloc_end;
145 const char *reloc_elfmag;
146 #endif
147
148 RELOC(rom_return_sp, uint8_t *) = args[0];
149 RELOC(mg, char *) = args[1];
150
151 ROM_PUTS("Welcome to NetBSD/next68k\r\n");
152
153 #ifdef DDB
154
155 /*
156 * Check the ELF headers.
157 */
158
159 reloc_end = end + NEXT_RAMBASE;
160 #pragma GCC push_options
161 #pragma GCC diagnostic ignored "-Warray-bounds"
162 reloc_elfmag = ELFMAG + NEXT_RAMBASE;
163 #pragma GCC pop_options
164 ehdr = (void *)reloc_end;
165
166 for (i = 0; i < SELFMAG; i++) {
167 if (ehdr->e_ident[i] != reloc_elfmag[i]) {
168 ROM_PUTS("save_symtab: bad ELF magic\n");
169 goto ddbdone;
170 }
171 }
172 if (ehdr->e_ident[EI_CLASS] != ELFCLASS32) {
173 ROM_PUTS("save_symtab: bad ELF magic\n");
174 goto ddbdone;
175 }
176
177 /*
178 * Find the end of the symbols and strings.
179 */
180
181 maxsym = 0;
182 minsym = ~maxsym;
183 shp = (Elf_Shdr *)(reloc_end + ehdr->e_shoff);
184 for (i = 0; i < ehdr->e_shnum; i++) {
185 if (shp[i].sh_type != SHT_SYMTAB &&
186 shp[i].sh_type != SHT_STRTAB) {
187 continue;
188 }
189 minsym = MIN(minsym, (vaddr_t)reloc_end + shp[i].sh_offset);
190 maxsym = MAX(maxsym, (vaddr_t)reloc_end + shp[i].sh_offset +
191 shp[i].sh_size);
192 }
193 RELOC(nsym, int) = 1;
194 RELOC(ssym, char *) = end;
195 RELOC(esym, char *) = (char *)maxsym - NEXT_RAMBASE;
196
197 ROM_PUTS("nsym ");
198 ROM_PUTX(RELOC(nsym, int));
199 ROM_PUTS(" ssym ");
200 ROM_PUTX((vaddr_t)RELOC(ssym, char *));
201 ROM_PUTS(" esym ");
202 ROM_PUTX((vaddr_t)RELOC(esym, char *));
203 ROM_PUTS("\r\n");
204
205 ddbdone:
206 #endif
207
208 ROM_PUTS("Constructing the segment list...\r\n");
209
210 ROM_PUTS("machine type = 0x");
211 ROM_PUTX(MONRELOC(char, MG_machine_type));
212 ROM_PUTS("\r\nboard rev = 0x");
213 ROM_PUTX(MONRELOC(char, MG_board_rev));
214 ROM_PUTS("\r\ndmachip = 0x");
215 ROM_PUTX(MONRELOC(int, MG_dmachip) >> 24 & 0xff);
216 ROM_PUTX(MONRELOC(int, MG_dmachip) >> 16 & 0xff);
217 ROM_PUTX(MONRELOC(int, MG_dmachip) >> 8 & 0xff);
218 ROM_PUTX(MONRELOC(int, MG_dmachip) >> 0 & 0xff);
219 ROM_PUTS("\r\ndiskchip = 0x");
220 ROM_PUTX(MONRELOC(int, MG_diskchip) >> 24 & 0xff);
221 ROM_PUTX(MONRELOC(int, MG_diskchip) >> 16 & 0xff);
222 ROM_PUTX(MONRELOC(int, MG_diskchip) >> 8 & 0xff);
223 ROM_PUTX(MONRELOC(int, MG_diskchip) >> 0 & 0xff);
224 ROM_PUTS("\r\n");
225
226
227 /* Construct the segment list */
228 {
229 u_int msize16;
230 u_int msize4;
231 u_int msize1;
232 int ix;
233 int j = 0;
234 char mach;
235 int turbo_l, iscolor_l;
236 paddr_t fbbasepa_l, fblimitpa_l;
237
238 if (MONRELOC(char, MG_machine_type) == NeXT_X15) {
239 msize16 = 0x1000000;
240 msize4 = 0x400000;
241 msize1 = 0x100000;
242 ROM_PUTS("Looks like a NeXT_X15\r\n");
243 } else if (MONRELOC(char, MG_machine_type) == NeXT_WARP9C) {
244 msize16 = 0x800000;
245 msize4 = 0x200000;
246 msize1 = 0x80000; /* ? */
247 ROM_PUTS("Looks like a NeXT_WARP9C\r\n");
248 } else if (MONRELOC(char, MG_machine_type) == NeXT_WARP9) {
249 msize16 = 0x1000000;
250 msize4 = 0x400000;
251 msize1 = 0x100000;
252 ROM_PUTS("Looks like a NeXT_WARP9\r\n");
253 } else if (MONRELOC(char, MG_machine_type) == NeXT_TURBO_COLOR)
254 {
255 msize16 = 0x2000000;
256 msize4 = 0x800000;
257 msize1 = 0x200000;
258 ROM_PUTS("Looks like a NeXT_TURBO_COLOR\r\n");
259 } else if (MONRELOC(char, MG_machine_type) == NeXT_TURBO_MONO) {
260 msize16 = 0x2000000;
261 msize4 = 0x800000;
262 msize1 = 0x200000;
263 ROM_PUTS("Looks like a NeXT_TURBO_MONO\r\n");
264 } else if (MONRELOC(char, MG_machine_type) == NeXT_CUBE_TURBO) {
265 msize16 = 0x2000000;
266 msize4 = 0x800000;
267 msize1 = 0x200000;
268 ROM_PUTS("Looks like a NeXT_CUBE_TURBO\r\n");
269 } else {
270 msize16 = 0x100000;
271 msize4 = 0x100000;
272 msize1 = 0x100000;
273 ROM_PUTS("Unrecognized machine_type\r\n");
274 }
275
276 mach = MONRELOC(char, MG_machine_type);
277 RELOC(rom_machine_type, char) = mach;
278 if (mach == NeXT_TURBO_MONO ||
279 mach == NeXT_TURBO_COLOR ||
280 mach == NeXT_CUBE_TURBO)
281 turbo_l = 1;
282 else
283 turbo_l = 0;
284 RELOC(turbo, int) = turbo_l;
285
286 /* save framebuffer addresses for pmap_bootstrap() */
287 if (mach == NeXT_WARP9C || mach == NeXT_TURBO_COLOR)
288 iscolor_l = 1;
289 else
290 iscolor_l = 0;
291 if (turbo_l == 1) {
292 fbbasepa_l = TURBOFBBASE;
293 fblimitpa_l = (iscolor_l == 1) ?
294 TURBOCOLORTOP : TURBOMONOTOP;
295 } else {
296 if (iscolor_l == 1) {
297 fbbasepa_l = COLORBASE;
298 fblimitpa_l = COLORTOP;
299 } else {
300 fbbasepa_l = MONOBASE;
301 fblimitpa_l = MONOTOP;
302 }
303 }
304 RELOC(iscolor, int) = iscolor_l;
305 RELOC(fbbasepa, paddr_t) = fbbasepa_l;
306 RELOC(fblimitpa, paddr_t) = fblimitpa_l;
307
308 for (ix = 0; ix < N_SIMM; ix++) {
309
310 ROM_PUTS("Memory bank 0x");
311 ROM_PUTX(ix);
312 ROM_PUTS(" has value 0x");
313 ROM_PUTX(MONRELOC(char, MG_simm + ix))
314 ROM_PUTS("\r\n");
315
316 if ((MONRELOC(char, MG_simm+ix) & SIMM_SIZE) !=
317 SIMM_SIZE_EMPTY) {
318 RELOC(phys_seg_list[j].ps_start, paddr_t) =
319 NEXT_RAMBASE + (ix * msize16);
320 }
321 if ((MONRELOC(char, MG_simm + ix) & SIMM_SIZE) ==
322 SIMM_SIZE_16MB) {
323 RELOC(phys_seg_list[j].ps_end, paddr_t) =
324 RELOC(phys_seg_list[j].ps_start, paddr_t) +
325 msize16;
326 j++;
327 }
328 if ((MONRELOC(char, MG_simm + ix) & SIMM_SIZE) ==
329 SIMM_SIZE_4MB) {
330 RELOC(phys_seg_list[j].ps_end, paddr_t) =
331 RELOC(phys_seg_list[j].ps_start, paddr_t) +
332 msize4;
333 j++;
334 }
335 if ((MONRELOC(char, MG_simm+ix) & SIMM_SIZE) ==
336 SIMM_SIZE_1MB) {
337 RELOC(phys_seg_list[j].ps_end, paddr_t) =
338 RELOC(phys_seg_list[j].ps_start, paddr_t) +
339 msize1;
340 j++;
341 }
342 }
343
344 /*
345 * The NeXT ROM or something appears to reserve the very
346 * top of memory
347 */
348 RELOC(phys_seg_list[j - 1].ps_end, paddr_t) -= 0x2000;
349 RELOC(rom_image_base, paddr_t) =
350 RELOC(phys_seg_list[j - 1].ps_end, paddr_t);
351
352 /* pmap is unhappy if it is not null terminated */
353 for (; j < MAX_PHYS_SEGS; j++) {
354 RELOC(phys_seg_list[j].ps_start, paddr_t) = 0;
355 RELOC(phys_seg_list[j].ps_end, paddr_t) = 0;
356 }
357 }
358
359 {
360 int j;
361 ROM_PUTS("Memory segments found:\r\n");
362 for (j = 0; RELOC(phys_seg_list[j].ps_start, paddr_t); j++) {
363 ROM_PUTS("\t0x");
364 ROM_PUTX((RELOC(phys_seg_list[j].ps_start, paddr_t)
365 >> 24 ) & 0xff);
366 ROM_PUTX((RELOC(phys_seg_list[j].ps_start, paddr_t)
367 >> 16) & 0xff);
368 ROM_PUTX((RELOC(phys_seg_list[j].ps_start, paddr_t)
369 >> 8) & 0xff);
370 ROM_PUTX((RELOC(phys_seg_list[j].ps_start, paddr_t)
371 >> 0) & 0xff);
372 ROM_PUTS(" - 0x");
373 ROM_PUTX((RELOC(phys_seg_list[j].ps_end, paddr_t)
374 >> 24) & 0xff);
375 ROM_PUTX((RELOC(phys_seg_list[j].ps_end, paddr_t)
376 >> 16) & 0xff);
377 ROM_PUTX((RELOC(phys_seg_list[j].ps_end, paddr_t)
378 >> 8) & 0xff);
379 ROM_PUTX((RELOC(phys_seg_list[j].ps_end, paddr_t)
380 >> 0) & 0xff);
381 ROM_PUTS("\r\n");
382 }
383 }
384
385 /*
386 * Read the ethernet address from rom, this should be done later
387 * in device driver somehow.
388 */
389 {
390 int j;
391 ROM_PUTS("Ethernet address ");
392 for (j = 0; j < 6; j++) {
393 RELOC(rom_enetaddr[j], uint8_t) =
394 MONRELOC(uint8_t *, MG_clientetheraddr)[j];
395 ROM_PUTX(RELOC(rom_enetaddr[j], uint8_t));
396 if (j < 5)
397 ROM_PUTS(":");
398 }
399 ROM_PUTS("\r\n");
400 }
401
402 /*
403 * Read the boot args
404 */
405 {
406 int j;
407 for (j = 0; j < sizeof(rom_bootfile); j++) {
408 RELOC(rom_bootfile[j], uint8_t) =
409 MONRELOC(uint8_t, MG_bootfile + j);
410 }
411
412 ROM_PUTS("rom bootdev: ");
413 for (j = 0; j < sizeof(rom_boot_dev); j++) {
414 RELOC(rom_boot_dev[j], uint8_t) =
415 MONRELOC(uint8_t *, MG_boot_dev)[j];
416 ROM_PUTC(RELOC(rom_boot_dev[j], uint8_t));
417 if (MONRELOC(uint8_t *, MG_boot_dev)[j] == '\0')
418 break;
419 }
420 RELOC(rom_boot_dev[sizeof(rom_boot_dev) - 1], uint8_t) = 0;
421
422 ROM_PUTS("\r\nrom bootarg: ");
423 for (j = 0; j < sizeof(rom_boot_arg); j++) {
424 RELOC(rom_boot_arg[j], uint8_t) =
425 MONRELOC(uint8_t *, MG_boot_arg)[j];
426 ROM_PUTC(RELOC(rom_boot_arg[j], uint8_t));
427 if (MONRELOC(uint8_t *, MG_boot_arg)[j] == '\0')
428 break;
429 }
430 RELOC(rom_boot_arg[sizeof(rom_boot_arg) - 1], uint8_t) = 0;
431
432 ROM_PUTS("\r\nrom bootinfo: ");
433 for (j = 0; j < sizeof(rom_boot_info); j++) {
434 RELOC(rom_boot_info[j], uint8_t) =
435 MONRELOC(uint8_t *, MG_boot_info)[j];
436 ROM_PUTC(RELOC(rom_boot_info[j], uint8_t));
437 if (MONRELOC(uint8_t *, MG_boot_info)[j] == '\0')
438 break;
439 }
440 RELOC(rom_boot_info[sizeof(rom_boot_info) - 1], uint8_t) = 0;
441
442 ROM_PUTS("\r\nrom bootfile: ");
443 for (j = 0; j < sizeof(rom_boot_file); j++) {
444 RELOC(rom_boot_file[j], uint8_t) =
445 MONRELOC(uint8_t *, MG_boot_file)[j];
446 ROM_PUTC(RELOC(rom_boot_file[j], uint8_t));
447 if (MONRELOC(uint8_t *, MG_boot_file)[j] == '\0')
448 break;
449 }
450 RELOC(rom_boot_file[sizeof(rom_boot_file) - 1], uint8_t) = 0;
451 ROM_PUTS("\r\n");
452
453 RELOC(rom_mon_stack, u_int) = MONRELOC(u_int, MG_mon_stack);
454 RELOC(rom_vbr, u_int) = MONRELOC(u_int, MG_vbr);
455 RELOC(rom_reboot_vect, paddr_t) =
456 MONRELOC(paddr_t *, MG_vbr)[45]; /* trap #13 */
457
458 for (j = 0; j < sizeof(rom_image); j++) {
459 RELOC(rom_image[j], uint8_t) =
460 *(uint8_t *)(RELOC(rom_image_base, paddr_t) + j);
461 }
462 }
463
464 RELOC(rom_intrmask, u_int) = MONRELOC(u_int, MG_intrmask);
465 RELOC(rom_intrstat, u_int) = MONRELOC(u_int, MG_intrstat);
466 ROM_PUTS("intrmask: ");
467 ROM_PUTX((RELOC(rom_intrmask, u_int) >> 24) & 0xff);
468 ROM_PUTX((RELOC(rom_intrmask, u_int) >> 16) & 0xff);
469 ROM_PUTX((RELOC(rom_intrmask, u_int) >> 8) & 0xff);
470 ROM_PUTX((RELOC(rom_intrmask, u_int) >> 0) & 0xff);
471 ROM_PUTS("\r\nintrstat: ");
472 ROM_PUTX((RELOC(rom_intrstat, u_int) >> 24) & 0xff);
473 ROM_PUTX((RELOC(rom_intrstat, u_int) >> 16) & 0xff);
474 ROM_PUTX((RELOC(rom_intrstat, u_int) >> 8) & 0xff);
475 ROM_PUTX((RELOC(rom_intrstat, u_int) >> 0) & 0xff);
476 ROM_PUTS("\r\n");
477 #if 0
478 RELOC(rom_intrmask, u_int) = 0x02007800;
479 RELOC(rom_intrstat, u_int) = 0x02007000;
480 #endif
481
482 #ifdef SERCONSOLE
483 ROM_PUTS("Check serial port A for console.\r\n");
484 #endif
485 }
486