summaryrefslogtreecommitdiff
path: root/sys/arch/vax/boot/boot.c
diff options
context:
space:
mode:
authorTheo de Raadt <deraadt@cvs.openbsd.org>1995-10-18 08:53:40 +0000
committerTheo de Raadt <deraadt@cvs.openbsd.org>1995-10-18 08:53:40 +0000
commitd6583bb2a13f329cf0332ef2570eb8bb8fc0e39c (patch)
treeece253b876159b39c620e62b6c9b1174642e070e /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.c249
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;
+}