Research V4 development

[unix-history] / sys / ken / main.c

#include "/sys/nsys/param.h"
#include "/sys/nsys/user.h"
#include "/sys/nsys/systm.h"
#include "/sys/nsys/proc.h"
#include "/sys/nsys/text.h"
#include "/sys/nsys/inode.h"

#define KISA    0172340
#define UISD    0177600
#define UISA    0177640
#define RO      02
#define RW      06
#define WO      04
#define ED      010
struct  {
       int     integ;
};
struct {
       int     r[8];
};
int     icode[]
{
       0104413,
       0000014,
       0000010,
       0000777,
       0000014,
       0000000,
       0062457,
       0061564,
       0064457,
       0064556,
       0000164,
       -1
};

main()
{
       extern schar;
       extern char end[], data[], etext[];
       int i, i1, *p;

       /*
        * zero and free all of core
        */

       UISA->r[0] = KISA->r[6] + USIZE;
       UISD->r[0] = 6;
       for(; fubyte(0) >= 0; UISA->r[0]++) {
               clearseg(UISA->r[0]);
               mfree(coremap, 1, UISA->r[0]);
       }
       mfree(swapmap, NSWAP, SWPLO);

       /*
        * set up system process
        */

       proc[0].p_addr = KISA->r[6];
       proc[0].p_size = USIZE;
       proc[0].p_stat = SRUN;
       proc[0].p_flag =| SLOAD|SSYS;
       u.u_procp = &proc[0];

       /*
        * set up 'known' i-nodes
        */

       sureg();
       LKS->integ = 0115;
       cinit();
       binit();
       iinit();
       rootdir = iget(ROOTDEV, ROOTINO);
       rootdir->i_flag =& ~ILOCK;
       u.u_cdir = iget(ROOTDEV, ROOTINO);
       u.u_cdir->i_flag =& ~ILOCK;

       /*
        * make init process
        * enter scheduling loop
        * with system process
        */

       if(newproc()) {
               expand(USIZE+1);
               u.u_uisa[0] = USIZE;
               u.u_uisd[0] = 6;
               sureg();
               for(i=0; icode[i] != -1; i++)
                       suword(i*2, icode[i]);
               return;
       }
       sched();
}

sureg()
{
       register *up, *rp, a;

       a = u.u_procp->p_addr;
       up = &u.u_uisa[0];
       rp = &UISA->r[0];
       while(rp < &UISA->r[8])
               *rp++ = *up++ + a;
       if((up=u.u_procp->p_textp) != NULL)
               a =- up->x_caddr;
       up = &u.u_uisd[0];
       rp = &UISD->r[0];
       while(rp < &UISD->r[8]) {
               *rp = *up++;
               if((*rp++ & WO) == 0)
                       rp[(UISA-UISD)/2-1] =- a;
       }
}

estabur(nt, nd, ns)
{
       register a, *ap, *dp;

       if(nseg(nt)+nseg(nd)+nseg(ns) > 8 || nt+nd+ns > MAXMEM) {
               u.u_error = ENOMEM;
               return(-1);
       }
       a = 0;
       ap = &u.u_uisa[0];
       dp = &u.u_uisd[0];
       while(nt >= 128) {
               *dp++ = (127<<8) | RO;
               *ap++ = a;
               a =+ 128;
               nt =- 128;
       }
       if(nt) {
               *dp++ = ((nt-1)<<8) | RO;
               *ap++ = a;
               a =+ nt;
       }
       a = USIZE;
       while(nd >= 128) {
               *dp++ = (127<<8) | RW;
               *ap++ = a;
               a =+ 128;
               nd =- 128;
       }
       if(nd) {
               *dp++ = ((nd-1)<<8) | RW;
               *ap++ = a;
               a =+ nd;
       }
       while(ap < &u.u_uisa[8]) {
               *dp++ = 0;
               *ap++ = 0;
       }
       a =+ ns;
       while(ns >= 128) {
               a =- 128;
               ns =- 128;
               *--dp = (127<<8) | RW;
               *--ap = a;
       }
       if(ns) {
               *--dp = ((128-ns)<<8) | RW | ED;
               *--ap = a-128;
       }
       sureg();
       return(0);
}

nseg(n)
{

       return((n+127)>>7);
}