/* $NetBSD: boot.c,v 1.21 2018/10/14 00:10:11 tsutsui Exp $ */ /*- * Copyright (C) 1999 Tsubai Masanari. All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted provided that the following conditions * are met: * 1. Redistributions of source code must retain the above copyright * notice, this list of conditions and the following disclaimer. * 2. Redistributions in binary form must reproduce the above copyright * notice, this list of conditions and the following disclaimer in the * documentation and/or other materials provided with the distribution. * 3. The name of the author may not be used to endorse or promote products * derived from this software without specific prior written permission. * * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. * IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT, * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE * OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. */ #include #include #include #include #include #include #include void boot(uint32_t, uint32_t, uint32_t, uint32_t, uint32_t, uint32_t); void mips1_flushicache(void *, int); extern char _edata[], _end[]; /* version strings in vers.c (generated by newvers.sh) */ extern const char bootprog_name[]; extern const char bootprog_rev[]; struct apbus_sysinfo *_sip; int apbus; char *devs[] = { "sd", "fh", "fd", NULL, NULL, "rd", "st" }; char *kernels[] = { "/netbsd", "/netbsd.gz", NULL }; #ifdef BOOT_DEBUG # define DPRINTF printf #else # define DPRINTF while (0) printf #endif void boot(uint32_t a0, uint32_t a1, uint32_t a2, uint32_t a3, uint32_t a4, uint32_t a5) { int fd, i; char *netbsd = ""; int maxmem; u_long marks[MARK_MAX]; char devname[32], file[32]; void (*entry)(uint32_t, uint32_t, uint32_t, uint32_t, uint32_t, uint32_t); struct btinfo_symtab bi_sym; struct btinfo_bootarg bi_arg; struct btinfo_bootpath bi_bpath; struct btinfo_systype bi_sys; int loadflag; /* Clear BSS. */ memset(_edata, 0, _end - _edata); /* * XXX a3 contains: * maxmem (nws-3xxx) * argv (apbus-based machine) */ if (a3 >= 0x80000000) apbus = 1; else apbus = 0; if (apbus) _sip = (void *)a4; printf("%s Secondary Boot, Revision %s\n", bootprog_name, bootprog_rev); if (apbus) { char *bootdev = (char *)a1; int argc = a2; char **argv = (char **)a3; DPRINTF("APbus-based system\n"); DPRINTF("argc = %d\n", argc); for (i = 0; i < argc; i++) { DPRINTF("argv[%d] = %s\n", i, argv[i]); if (argv[i][0] != '-' && *netbsd == 0) netbsd = argv[i]; } maxmem = _sip->apbsi_memsize; maxmem -= 0x100000; /* reserve 1MB for ROM monitor */ DPRINTF("howto = 0x%x\n", a0); DPRINTF("bootdev = %s\n", (char *)a1); DPRINTF("bootname = %s\n", netbsd); DPRINTF("maxmem = 0x%x\n", maxmem); /* XXX use "sonic()" instead of "tftp()" */ if (strncmp(bootdev, "tftp", 4) == 0) bootdev = "sonic"; strcpy(devname, bootdev); if (strchr(devname, '(') == NULL) strcat(devname, "()"); } else { int bootdev = a1; char *bootname = (char *)a2; int ctlr, unit, part, type; DPRINTF("HB system.\n"); /* bootname is "/boot" by default on HB system. */ if (bootname && strcmp(bootname, "/boot") != 0) netbsd = bootname; maxmem = a3; DPRINTF("howto = 0x%x\n", a0); DPRINTF("bootdev = 0x%x\n", a1); DPRINTF("bootname = %s\n", netbsd); DPRINTF("maxmem = 0x%x\n", maxmem); ctlr = BOOTDEV_CTLR(bootdev); unit = BOOTDEV_UNIT(bootdev); part = BOOTDEV_PART(bootdev); type = BOOTDEV_TYPE(bootdev); if (devs[type] == NULL) { printf("unknown bootdev (0x%x)\n", bootdev); _rtt(); } snprintf(devname, sizeof(devname), "%s(%d,%d,%d)", devs[type], ctlr, unit, part); } printf("Booting %s%s\n", devname, netbsd); /* use user specified kernel name if exists */ if (*netbsd) { kernels[0] = netbsd; kernels[1] = NULL; } loadflag = LOAD_KERNEL; if (devname[0] == 'f') /* XXX */ loadflag &= ~LOAD_BACKWARDS; marks[MARK_START] = 0; for (i = 0; kernels[i]; i++) { snprintf(file, sizeof(file), "%s%s", devname, kernels[i]); DPRINTF("trying %s...\n", file); fd = loadfile(file, marks, loadflag); if (fd != -1) break; } if (kernels[i] == NULL) _rtt(); DPRINTF("entry = 0x%x\n", (int)marks[MARK_ENTRY]); DPRINTF("ssym = 0x%x\n", (int)marks[MARK_SYM]); DPRINTF("esym = 0x%x\n", (int)marks[MARK_END]); bi_init(BOOTINFO_ADDR); bi_sym.nsym = marks[MARK_NSYM]; bi_sym.ssym = marks[MARK_SYM]; bi_sym.esym = marks[MARK_END]; bi_add(&bi_sym, BTINFO_SYMTAB, sizeof(bi_sym)); bi_arg.howto = a0; bi_arg.bootdev = a1; bi_arg.maxmem = maxmem; bi_arg.sip = (int)_sip; bi_add(&bi_arg, BTINFO_BOOTARG, sizeof(bi_arg)); strcpy(bi_bpath.bootpath, file); bi_add(&bi_bpath, BTINFO_BOOTPATH, sizeof(bi_bpath)); if (apbus) { char *machine = (char *)apcall_getenv("machine"); bi_sys.type = NEWS5000; if (machine != NULL && (strncmp(machine, "news4000", 8) == 0)) bi_sys.type = NEWS4000; } else { bi_sys.type = NEWS3400; } bi_add(&bi_sys, BTINFO_SYSTYPE, sizeof(bi_sys)); entry = (void *)marks[MARK_ENTRY]; if (apbus) apcall_flushcache(); else mips1_flushicache(entry, marks[MARK_SYM] - marks[MARK_ENTRY]); printf("\n"); (*entry)(a0, a1, a2, a3, a4, a5); } void putchar(int x) { char c = x; if (apbus) apcall_write(1, &c, 1); else rom_write(1, &c, 1); } int getchar(void) { unsigned char c = '\0'; int i; for (;;) { i = apbus ? apcall_read(1, &c, 1) : rom_read(1, &c, 1); if (i == 1) break; if (i != -2 && i != 0) return -1; } return c; } void _rtt(void) { if (apbus) apcall_exit(8); else rom_halt(); for (;;); }