BSD 4_4 release

[unix-history] / usr / src / sys / vax / vax / Locore.c

diff --git a/usr/src/sys/vax/vax/Locore.c b/usr/src/sys/vax/vax/Locore.c
index cc8827c..dd95de5 100644 (file)
--- a/usr/src/sys/vax/vax/Locore.c
+++ b/usr/src/sys/vax/vax/Locore.c
@@ -1,41 +1,108 @@
-/*     Locore.c        4.9     81/04/28        */
+/*
+ * Copyright (c) 1982, 1986 Regents of the University of California.
+ * All rights reserved.  The Berkeley software License Agreement
+ * specifies the terms and conditions for redistribution.
+ *
+ *     @(#)Locore.c    7.6 (Berkeley) 12/16/90
+ */

 
 #include "dz.h"
 
 #include "dz.h"

-
-#include "../h/param.h"
-#include "../h/systm.h"
-#include "../h/dir.h"
-#include "../h/user.h"
-#include "../h/pte.h"
-#include "../h/vm.h"
-#include "../h/tty.h"
-#include "../h/proc.h"
-#include "../h/buf.h"
-#include "../h/ubavar.h"
-#include "../h/ubareg.h"
-#include "../h/nexus.h"
-#include "../h/msgbuf.h"
+#include "mba.h"
+#include "uba.h"
+#include "imp.h"
+
+#include "../include/pte.h"
+
+#include "sys/param.h"
+#include "sys/systm.h"
+#include "sys/user.h"
+#include "sys/vm.h"
+#include "sys/ioctl.h"
+#include "sys/tty.h"
+#include "sys/proc.h"
+#include "sys/buf.h"
+#include "sys/msgbuf.h"
+#include "sys/mbuf.h"
+#include "sys/protosw.h"
+#include "sys/domain.h"
+#include "sys/map.h"
+#include "sys/dkbad.h"
+
+#include "scb.h"
+#include "nexus.h"
+#include "ioa.h"
+#include "../uba/ubavar.h"
+#include "../uba/ubareg.h"

 
 /*
  * Pseudo file for lint to show what is used/defined in locore.s.
  */
 
 
 /*
  * Pseudo file for lint to show what is used/defined in locore.s.
  */
 

-struct scb scb;
-int    (*UNIvec[128])();
+struct scb scb[1];
+int    (*UNIvec[NUBA][128])();         /* unibus vec for ubas */
+int    (*eUNIvec)();                   /* end of unibus vec */

 struct rpb rpb;
 struct rpb rpb;

-int    intstack[3*128];
-
+int    dumpflag;
+int    intstack[3*NBPG];
+int    masterpaddr;            /* p_addr of current process on master cpu */

 struct user u;
 struct user u;

+int    icode[8];
+int    szicode = sizeof (icode);
+/*
+ * Variables declared for savecore, or
+ * implicitly, such as by config or the loader.
+ */
+char   version[] = "4.3 BSD UNIX ....";
+int    etext;

 
 doadump() { dumpsys(); }
 
 
 doadump() { dumpsys(); }
 

+#if NMBA > 0

 Xmba3int() { }
 Xmba2int() { }
 Xmba1int() { }
 Xmba0int() { }
 Xmba3int() { }
 Xmba2int() { }
 Xmba1int() { }
 Xmba0int() { }

+#endif

 
 lowinit()
 {
 
 lowinit()
 {

+#if !defined(GPROF)
+       caddr_t cp;
+#endif
+       extern int dumpmag;
+       extern int rthashsize;
+       extern int arptab_size;
+       extern int dk_ndrive;
+       extern struct domain unixdomain;
+#ifdef INET
+       extern struct domain inetdomain;
+#endif
+#if NIMP > 0
+       extern struct domain impdomain;
+#endif
+#ifdef NS
+       extern struct domain nsdomain;
+#endif
+
+       /* cpp messes these up for lint so put them here */
+       unixdomain.dom_next = domains;
+       domains = &unixdomain;
+#ifdef INET
+       inetdomain.dom_next = domains;
+       domains = &inetdomain;
+#endif
+#if NIMP > 0
+       impdomain.dom_next = domains;
+       domains = &impdomain;
+#endif
+#ifdef NS
+       nsdomain.dom_next = domains;
+       domains = &nsdomain;
+#endif
+       dumpmag = 0;                    /* used only by savecore */
+       rthashsize = rthashsize;        /* used by netstat, etc. */
+       arptab_size = arptab_size;      /* used by arp command */
+       dk_ndrive = dk_ndrive;          /* used by vmstat, iostat, etc. */

 
        /*
         * Pseudo-uses of globals.
 
        /*
         * Pseudo-uses of globals.


@@ -43,18 +110,19 @@ lowinit()
        lowinit();
        intstack[0] = intstack[1];
        rpb = rpb;
        lowinit();
        intstack[0] = intstack[1];
        rpb = rpb;

-       scb = scb;
+       scb[0] = scb[0];

        maxmem = physmem = freemem = 0;
        u = u;
        fixctlrmask();
        main(0);
        maxmem = physmem = freemem = 0;
        u = u;
        fixctlrmask();
        main(0);

+       Xustray();

 
        /*
         * Routines called from interrupt vectors.
         */
        panic("Machine check");
        printf("Write timeout");
 
        /*
         * Routines called from interrupt vectors.
         */
        panic("Machine check");
        printf("Write timeout");

-       (*UNIvec[0])();
+       (*UNIvec[0][0])();

        ubaerror(0, (struct uba_hd *)0, 0, 0, (struct uba_regs *)0);
        cnrint(0);
        cnxint(0);
        ubaerror(0, (struct uba_hd *)0, 0, 0, (struct uba_regs *)0);
        cnrint(0);
        cnxint(0);


@@ -62,18 +130,53 @@ lowinit()
        consdout();
 #if NDZ > 0
        dzdma();
        consdout();
 #if NDZ > 0
        dzdma();

+#endif
+#if NMBA > 0
+       mbintr(0);
+#endif
+#if VAX8200                    /* XXX wrong conditional */
+       bi_buserr(0);
+#endif
+#if VAX8200
+       rxcdintr();
+       rx50intr();

 #endif
        hardclock((caddr_t)0, 0);
        softclock((caddr_t)0, 0);
        trap(0, 0, (unsigned)0, 0, 0);
        syscall(0, 0, (unsigned)0, 0, 0);
 #endif
        hardclock((caddr_t)0, 0);
        softclock((caddr_t)0, 0);
        trap(0, 0, (unsigned)0, 0, 0);
        syscall(0, 0, (unsigned)0, 0, 0);

+       rawintr();
+#ifdef INET
+       ipintr();
+#endif
+#ifdef NS
+       nsintr();
+#endif
+       machinecheck((caddr_t)0);
+       memerr();

 
 

+       /*
+        * Miscellaneous routines called from configurable
+        * drivers.
+        */
+       ubapurge((struct uba_ctlr *)0);
+       ubattydma(0);
+       (void) ubamem(0, 0, 16, 1);
+       (void) isbad((struct dkbad *)0, 0, 0, 0);
+       disksort((struct buf *)0, (struct buf *)0);
+       (void) uwritec((struct uio *)0);
+       (void) todr();

        if (vmemall((struct pte *)0, 0, (struct proc *)0, 0))
                return;         /* use value */
        if (vmemall((struct pte *)0, 0, (struct proc *)0, 0))
                return;         /* use value */

-       if (forceclose((dev_t)0))
-               return;         /* use value */
-       machinecheck((caddr_t)0);
-       memerr();
+       boothowto = 0;
+       dumpflag = 0; dumpflag = dumpflag;
+#ifdef KADB
+       bootesym = 0; bootesym = bootesym;
+#endif
+#if !defined(GPROF)
+       cp = (caddr_t)&etext;
+       cp = cp;
+#endif

 }
 
 consdin() { }
 }
 
 consdin() { }


@@ -82,18 +185,23 @@ consdout() { }
 dzdma() { dzxint((struct tty *)0); }
 #endif
 
 dzdma() { dzxint((struct tty *)0); }
 #endif
 

-int    catcher[256];
+quad   catcher[128];

 int    cold = 1;
 
 Xustray() { }
 
 struct pte Sysmap[6*NPTEPG];
 int    cold = 1;
 
 Xustray() { }
 
 struct pte Sysmap[6*NPTEPG];

+#ifdef KADB

 char   Sysbase[6*NPTEPG*NBPG];
 char   Sysbase[6*NPTEPG*NBPG];

+#endif

 int    umbabeg;
 struct pte Nexmap[16][16];
 struct nexus nexus[MAXNNEXUS];
 int    umbabeg;
 struct pte Nexmap[16][16];
 struct nexus nexus[MAXNNEXUS];

-struct pte UMEMmap[4][16];
-char   umem[4][16*NBPG];
+#if VAX8600
+struct pte Ioamap[MAXNIOA][IOAMAPSIZ/NBPG];
+#endif
+struct pte UMEMmap[NUBA][512];
+char   umem[NUBA][512*NBPG];

 int    umbaend;
 struct pte Usrptmap[USRPTSIZE];
 struct pte usrpt[USRPTSIZE*NPTEPG];
 int    umbaend;
 struct pte Usrptmap[USRPTSIZE];
 struct pte usrpt[USRPTSIZE*NPTEPG];


@@ -115,32 +223,52 @@ struct    pte CMAP2;
 char   CADDR2[NBPG];
 struct pte mmap[1];
 char   vmmap[NBPG];
 char   CADDR2[NBPG];
 struct pte mmap[1];
 char   vmmap[NBPG];

+struct pte Mbmap[NMBCLUSTERS/CLSIZE];
+struct mbuf mbutl[NMBCLUSTERS*CLBYTES/sizeof (struct mbuf)];

 struct pte msgbufmap[CLSIZE];
 struct msgbuf msgbuf;
 struct pte msgbufmap[CLSIZE];
 struct msgbuf msgbuf;

-struct pte camap[32];
-int    cabase;
-#ifdef unneeded
-char   caspace[32*NBPG];
+struct pte kmempt[200], ekmempt[1];
+#if VAX8200
+struct pte RX50map[1];
+struct pte Ka820map[1];
+#endif
+#if VAX630
+struct pte Ka630map[1];
+#endif
+char   kmembase[100*NBPG];
+#if VAX8200 || VAX630
+struct pte Clockmap[1];
+#endif
+#ifdef NFS
+struct pte Nfsiomap[MAXPHYS/NBPG+1];
+char   nfsiobuf[MAXPHYS+NBPG];

 #endif
 #endif

-int    calimit;

 
 /*ARGSUSED*/
 badaddr(addr, len) caddr_t addr; int len; { return (0); }
 
 /*ARGSUSED*/
 
 /*ARGSUSED*/
 badaddr(addr, len) caddr_t addr; int len; { return (0); }
 
 /*ARGSUSED*/

-addupc(pc, prof, n) int pc; struct uprof *prof; { }
+ovbcopy(from, to, len) caddr_t from, to; unsigned len; { }
+copyinstr(udaddr, kaddr, maxlength, lencopied)
+    caddr_t udaddr, kaddr; u_int maxlength, *lencopied;
+{ *kaddr = *udaddr; *lencopied = maxlength; return (0); }
+copyoutstr(kaddr, udaddr, maxlength, lencopied)
+    caddr_t kaddr, udaddr; u_int maxlength, *lencopied;
+{ *udaddr = *kaddr; *lencopied = maxlength; return (0); }
+copystr(kfaddr, kdaddr, maxlength, lencopied)
+    caddr_t kfaddr, kdaddr; u_int maxlength, *lencopied;
+{ *kdaddr = *kfaddr; *lencopied = maxlength; return (0); }

 
 /*ARGSUSED*/
 
 /*ARGSUSED*/

-copyin(udaddr, kaddr, n) caddr_t udaddr, kaddr; unsigned n; { return (0); }
-
+copyin(udaddr, kaddr, n) caddr_t udaddr, kaddr; u_int n; { return (0); }

 /*ARGSUSED*/
 /*ARGSUSED*/

-copyout(kaddr, udaddr, n) caddr_t kaddr, udaddr; unsigned n; { return (0); }
+copyout(kaddr, udaddr, n) caddr_t kaddr, udaddr; u_int n; { return (0); }

 
 /*ARGSUSED*/
 
 /*ARGSUSED*/

-setjmp(lp) label_t lp; { return (0); }
+longjmp(lp) label_t *lp; { /*NOTREACHED*/ }

 
 /*ARGSUSED*/
 
 /*ARGSUSED*/

-longjmp(lp) label_t lp; { /*NOTREACHED*/ }
+savectx(lp) label_t *lp; { return (0); }

 
 /*ARGSUSED*/
 setrq(p) struct proc *p; { }
 
 /*ARGSUSED*/
 setrq(p) struct proc *p; { }


@@ -148,36 +276,34 @@ setrq(p) struct proc *p; { }
 /*ARGSUSED*/
 remrq(p) struct proc *p; { }
 
 /*ARGSUSED*/
 remrq(p) struct proc *p; { }
 

-swtch() { if (whichqs) whichqs = 0; }
+swtch() { if (whichqs) whichqs = 0; if (masterpaddr) masterpaddr = 0; }

 
 /*ARGSUSED*/
 resume(pcbpf) unsigned pcbpf; { }
 
 /*ARGSUSED*/
 fubyte(base) caddr_t base; { return (0); }
 
 /*ARGSUSED*/
 resume(pcbpf) unsigned pcbpf; { }
 
 /*ARGSUSED*/
 fubyte(base) caddr_t base; { return (0); }

-
+#ifdef notdef
+/*ARGSUSED*/
+fuibyte(base) caddr_t base; { return (0); }
+#endif

 /*ARGSUSED*/
 subyte(base, i) caddr_t base; { return (0); }
 /*ARGSUSED*/
 subyte(base, i) caddr_t base; { return (0); }

-

 /*ARGSUSED*/
 suibyte(base, i) caddr_t base; { return (0); }
 /*ARGSUSED*/
 suibyte(base, i) caddr_t base; { return (0); }

-

 /*ARGSUSED*/
 fuword(base) caddr_t base; { return (0); }
 /*ARGSUSED*/
 fuword(base) caddr_t base; { return (0); }

-

 /*ARGSUSED*/
 fuiword(base) caddr_t base; { return (0); }
 /*ARGSUSED*/
 fuiword(base) caddr_t base; { return (0); }

-

 /*ARGSUSED*/
 suword(base, i) caddr_t base; { return (0); }
 /*ARGSUSED*/
 suword(base, i) caddr_t base; { return (0); }

-

 /*ARGSUSED*/
 suiword(base, i) caddr_t base; { return (0); }
 
 /*ARGSUSED*/
 /*ARGSUSED*/
 suiword(base, i) caddr_t base; { return (0); }
 
 /*ARGSUSED*/

-copyseg(udaddr, pf) caddr_t udaddr; unsigned pf; {
-    CMAP1 = CMAP1; CADDR1[0] = CADDR1[0];
-}
+copyseg(udaddr, pf)
+    caddr_t udaddr; unsigned pf;
+{ CMAP1 = CMAP1; CADDR1[0] = CADDR1[0]; }

 
 /*ARGSUSED*/
 clearseg(pf) unsigned pf; { CMAP2 = CMAP2; CADDR2[0] = CADDR2[0]; }
 
 /*ARGSUSED*/
 clearseg(pf) unsigned pf; { CMAP2 = CMAP2; CADDR2[0] = CADDR2[0]; }


@@ -188,25 +314,75 @@ useracc(udaddr, bcnt, rw) caddr_t udaddr; unsigned bcnt; { return (0); }
 /*ARGSUSED*/
 kernacc(addr, bcnt, rw) caddr_t addr; unsigned bcnt; { return (0); }
 
 /*ARGSUSED*/
 kernacc(addr, bcnt, rw) caddr_t addr; unsigned bcnt; { return (0); }
 

-/*VARARGS1*/

 /*ARGSUSED*/
 /*ARGSUSED*/

-mtpr(reg, value) int reg, value; { }
+addupc(pc, prof, counts) int pc; struct uprof *prof; int counts; { }

 
 

-/*ARGSUSED*/
-mfpr(reg) int reg; { return (0); }
-
-
-spl0() { return (0); }
+/*
+ * Routines expanded by inline.
+ */
+spl0() { }
+splsoftclock() { return (0); }
+splnet() { return (0); }

 spl4() { return (0); }
 spl5() { return (0); }
 spl4() { return (0); }
 spl5() { return (0); }

-spl6() { return (0); }
+splbio() { return (0); }
+spltty() { return (0); }
+#ifdef notdef
+spl6() { return (0); }         /* not currently used */
+#endif
+splclock() { return (0); }

 spl7() { return (0); }
 spl7() { return (0); }

+splhigh() { return (0); }

 
 /*ARGSUSED*/
 splx(s) int s; { }
 
 /*ARGSUSED*/
 
 /*ARGSUSED*/
 splx(s) int s; { }
 
 /*ARGSUSED*/

-bcopy(to, from, count) caddr_t to, from; unsigned count; { ; }
+bcopy(from, to, len) caddr_t from, to; unsigned len; { }
+/*ARGSUSED*/
+bzero(base, count) caddr_t base; unsigned count; { }
+/*ARGSUSED*/
+blkclr(base, count) caddr_t base; unsigned count; { }

 
 /*ARGSUSED*/
 
 /*ARGSUSED*/

-ffs(i) { return (0); }
+/*VARARGS1*/
+mtpr(reg, v) int reg; { }
+/*ARGSUSED*/
+mfpr(reg) int reg; { return (0); }
+
+/*ARGSUSED*/
+setjmp(lp) label_t *lp; { return (0); }
+
+#ifndef VAX630
+/*ARGSUSED*/
+scanc(size, cp, table, mask)
+    unsigned size; char *cp, table[]; int mask;
+{ return (0); }
+#endif
+
+/*ARGSUSED*/
+skpc(mask, size, cp) int mask; int size; char *cp; { return (0); }
+
+#ifdef notdef
+/*ARGSUSED*/
+locc(mask, size, cp) int mask; char *cp; unsigned size; { return (0); }
+#endif
+
+/*ARGSUSED*/
+_insque(p, q) caddr_t p, q; { }
+/*ARGSUSED*/
+_remque(p) caddr_t p; { }
+
+/*ARGSUSED*/
+ffs(v) long v; { return (0); }
+
+#ifdef notdef
+imin(a, b) int a, b; { return (a < b ? a : b); }
+imax(a, b) int a, b; { return (a > b ? a : b); }
+unsigned min(a, b) u_int a, b; { return (a < b ? a : b); }
+unsigned max(a, b) u_int a, b; { return (a > b ? a : b); }
+#endif
+u_short ntohs(s) u_short s; { return ((u_short)s); }
+u_short htons(s) u_short s; { return ((u_short)s); }
+u_long ntohl(l) u_long l; { return ((u_long)l); }
+u_long htonl(l) u_long l; { return ((u_long)l); }