diff options
author | Theo de Raadt <deraadt@cvs.openbsd.org> | 1995-10-18 08:53:40 +0000 |
---|---|---|
committer | Theo de Raadt <deraadt@cvs.openbsd.org> | 1995-10-18 08:53:40 +0000 |
commit | d6583bb2a13f329cf0332ef2570eb8bb8fc0e39c (patch) | |
tree | ece253b876159b39c620e62b6c9b1174642e070e /sys/arch/vax/boot/boot.c |
initial import of NetBSD tree
Diffstat (limited to 'sys/arch/vax/boot/boot.c')
-rw-r--r-- | sys/arch/vax/boot/boot.c | 249 |
1 files changed, 249 insertions, 0 deletions
diff --git a/sys/arch/vax/boot/boot.c b/sys/arch/vax/boot/boot.c new file mode 100644 index 00000000000..d85ddabdf5d --- /dev/null +++ b/sys/arch/vax/boot/boot.c @@ -0,0 +1,249 @@ +/* $NetBSD: boot.c,v 1.4 1995/09/16 15:54:20 ragge Exp $ */ +/*- + * Copyright (c) 1982, 1986 The Regents of the University of California. + * 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. All advertising materials mentioning features or use of this software + * must display the following acknowledgement: + * This product includes software developed by the University of + * California, Berkeley and its contributors. + * 4. Neither the name of the University nor the names of its contributors + * may be used to endorse or promote products derived from this software + * without specific prior written permission. + * + * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``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 REGENTS OR CONTRIBUTORS 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. + * + * @(#)boot.c 7.15 (Berkeley) 5/4/91 + */ + +#include "sys/param.h" +#include "sys/reboot.h" +#include "lib/libsa/stand.h" + +#include <a.out.h> + +/* + * Boot program... arguments passed in r10 and r11 determine + * whether boot stops to ask for system name and which device + * boot comes from. + */ + +char line[100]; +volatile u_int devtype, bootdev; +extern unsigned opendev; + +main() +{ + register howto asm("r11"); + register bdev asm("r10"); + int io, retry, type; + + io=0; + bootdev=bdev; + autoconf(); + + if ((howto & RB_ASKNAME) == 0) { + type = (devtype >> B_TYPESHIFT) & B_TYPEMASK; + if ((unsigned)type < ndevs && devsw[type].dv_name) + strcpy(line, "/netbsd"); + else + howto |= RB_SINGLE|RB_ASKNAME; + } + + for (retry = 0;;) { + if (io >= 0) + printf("\nNboot\n"); + if (howto & RB_ASKNAME) { + printf(": "); + gets(line); + if (line[0] == 0) { + strcpy(line, "/netbsd"); + printf(": %s\n", line); + } + } else + printf(": %s\n", line); + io = open(line, 0); + if (io >= 0) { + loadpcs(); + copyunix(howto, opendev, io); + close(io); + howto |= RB_SINGLE|RB_ASKNAME; + } else { + printf("%s\n",strerror(errno)); + } + if (++retry > 2) + howto |= RB_SINGLE|RB_ASKNAME; + } +} + +/*ARGSUSED*/ +copyunix(howto, devtype, aio) + register howto, devtype; /* howto=r11, devtype=r10 */ + int aio; +{ + register int esym; /* must be r9 */ + struct exec x; + register int io = aio, i; + char *addr; + + if (read(io, (char *)&x, sizeof(x)) != sizeof(x) || N_BADMAG(x)) { + printf("Bad format\n"); + return; + } + printf("%d", x.a_text); + if (N_GETMAGIC(x) == ZMAGIC && lseek(io, 0x400, SEEK_SET) == -1) + goto shread; + if (read(io, (char *)0, x.a_text) != x.a_text) + goto shread; + addr = (char *)x.a_text; + if (N_GETMAGIC(x) == ZMAGIC || N_GETMAGIC(x) == NMAGIC) + while ((int)addr & CLOFSET) + *addr++ = 0; + printf("+%d", x.a_data); + if (read(io, addr, x.a_data) != x.a_data) + goto shread; + addr += x.a_data; + printf("+%d", x.a_bss); + for (i = 0; i < x.a_bss; i++) + *addr++ = 0; + if (howto & RB_KDB && x.a_syms) { + *(int *)addr = x.a_syms; /* symbol table size */ + addr += sizeof (int); + printf("[+%d", x.a_syms); + if (read(io, addr, x.a_syms) != x.a_syms) + goto shread; + addr += x.a_syms; + if (read(io, addr, sizeof (int)) != sizeof (int)) + goto shread; + i = *(int *)addr - sizeof (int); /* string table size */ + addr += sizeof (int); + printf("+%d]", i); + if (read(io, addr, i) != i) + goto shread; + addr += i; + esym = roundup((int)addr, sizeof (int)); + x.a_bss = 0; + } else + howto &= ~RB_KDB; + for (i = 0; i < 128*512; i++) /* slop */ + *addr++ = 0; + printf(" start 0x%x\n", (x.a_entry&0x7fffffff)); + hoppabort((x.a_entry&0x7fffffff),howto, devtype, esym); + return; +shread: + printf("Short read\n"); + return; +} + +/* 750 Patchable Control Store magic */ + +#include "../include/mtpr.h" +#include "../include/cpu.h" +#include "../include/sid.h" +#define PCS_BITCNT 0x2000 /* number of patchbits */ +#define PCS_MICRONUM 0x400 /* number of ucode locs */ +#define PCS_PATCHADDR 0xf00000 /* start addr of patchbits */ +#define PCS_PCSADDR (PCS_PATCHADDR+0x8000) /* start addr of pcs */ +#define PCS_PATCHBIT (PCS_PATCHADDR+0xc000) /* patchbits enable reg */ +#define PCS_ENABLE 0xfff00000 /* enable bits for pcs */ + +#define extzv(one, two, three,four) \ +({ \ + asm __volatile (" extzv %0,%3,(%1),(%2)+" \ + : \ + : "g"(one),"g"(two),"g"(three),"g"(four)); \ +}) + + +loadpcs() +{ + register int *ip; /* known to be r11 below */ + register int i; /* known to be r10 below */ + register int *jp; /* known to be r9 below */ + register int j; + static int pcsdone = 0; + int mid = mfpr(PR_SID); + char pcs[100]; + char *cp; + + if ((mid >> 24) != VAX_750 || ((mid >> 8) & 255) < 95 || pcsdone) + return; + printf("Updating 11/750 microcode: "); + for (cp = line; *cp; cp++) + if (*cp == ')' || *cp == ':') + break; + if (*cp) { + strncpy(pcs, line, 99); + pcs[99] = 0; + i = cp - line + 1; + } else + i = 0; + strcpy(pcs + i, "pcs750.bin"); + i = open(pcs, 0); + if (i < 0) { + printf("bad luck - missing pcs750.bin :-(\n"); + return; + } + /* + * We ask for more than we need to be sure we get only what we expect. + * After read: + * locs 0 - 1023 packed patchbits + * 1024 - 11264 packed microcode + */ + if (read(i, (char *)0, 23*512) != 22*512) { + printf("Error reading %s\n", pcs); + close(i); + return; + } + close(i); + + /* + * Enable patchbit loading and load the bits one at a time. + */ + *((int *)PCS_PATCHBIT) = 1; + ip = (int *)PCS_PATCHADDR; + jp = (int *)0; + for (i=0; i < PCS_BITCNT; i++) { + extzv(i,jp,ip,1); + } + *((int *)PCS_PATCHBIT) = 0; + + /* + * Load PCS microcode 20 bits at a time. + */ + ip = (int *)PCS_PCSADDR; + jp = (int *)1024; + for (i=j=0; j < PCS_MICRONUM * 4; i+=20, j++) { + extzv(i,jp,ip,20); + } + + /* + * Enable PCS. + */ + i = *jp; /* get 1st 20 bits of microcode again */ + i &= 0xfffff; + i |= PCS_ENABLE; /* reload these bits with PCS enable set */ + *((int *)PCS_PCSADDR) = i; + + mid = mfpr(PR_SID); + printf("new rev level=%d\n", V750UCODE(mid)); + pcsdone = 1; +} |