Add original unix v6
This commit is contained in:
memnoth
+266
@@ -0,0 +1,266 @@
|
||||
#
|
||||
#include "../param.h"
|
||||
#include "../user.h"
|
||||
#include "../systm.h"
|
||||
#include "../proc.h"
|
||||
#include "../text.h"
|
||||
#include "../inode.h"
|
||||
#include "../seg.h"
|
||||
|
||||
#define CLOCK1 0177546
|
||||
#define CLOCK2 0172540
|
||||
/*
|
||||
* Icode is the octal bootstrap
|
||||
* program executed in user mode
|
||||
* to bring up the system.
|
||||
*/
|
||||
int icode[]
|
||||
{
|
||||
0104413, /* sys exec; init; initp */
|
||||
0000014,
|
||||
0000010,
|
||||
0000777, /* br . */
|
||||
0000014, /* initp: init; 0 */
|
||||
0000000,
|
||||
0062457, /* init: </etc/init\0> */
|
||||
0061564,
|
||||
0064457,
|
||||
0064556,
|
||||
0000164,
|
||||
};
|
||||
|
||||
/*
|
||||
* Initialization code.
|
||||
* Called from m40.s or m45.s as
|
||||
* soon as a stack and segmentation
|
||||
* have been established.
|
||||
* Functions:
|
||||
* clear and free user core
|
||||
* find which clock is configured
|
||||
* hand craft 0th process
|
||||
* call all initialization routines
|
||||
* fork - process 0 to schedule
|
||||
* - process 1 execute bootstrap
|
||||
*
|
||||
* panic: no clock -- neither clock responds
|
||||
* loop at loc 6 in user mode -- /etc/init
|
||||
* cannot be executed.
|
||||
*/
|
||||
main()
|
||||
{
|
||||
extern schar;
|
||||
register i, *p;
|
||||
|
||||
/*
|
||||
* zero and free all of core
|
||||
*/
|
||||
|
||||
updlock = 0;
|
||||
i = *ka6 + USIZE;
|
||||
UISD->r[0] = 077406;
|
||||
for(;;) {
|
||||
UISA->r[0] = i;
|
||||
if(fuibyte(0) < 0)
|
||||
break;
|
||||
clearseg(i);
|
||||
maxmem++;
|
||||
mfree(coremap, 1, i);
|
||||
i++;
|
||||
}
|
||||
if(cputype == 70)
|
||||
for(i=0; i<62; i=+2) {
|
||||
UBMAP->r[i] = i<<12;
|
||||
UBMAP->r[i+1] = 0;
|
||||
}
|
||||
printf("mem = %l\n", maxmem*5/16);
|
||||
maxmem = min(maxmem, MAXMEM);
|
||||
mfree(swapmap, nswap, swplo);
|
||||
|
||||
/*
|
||||
* determine clock
|
||||
*/
|
||||
|
||||
UISA->r[7] = ka6[1]; /* io segment */
|
||||
UISD->r[7] = 077406;
|
||||
lks = CLOCK1;
|
||||
if(fuiword(lks) == -1) {
|
||||
lks = CLOCK2;
|
||||
if(fuiword(lks) == -1)
|
||||
panic("no clock");
|
||||
}
|
||||
|
||||
/*
|
||||
* set up system process
|
||||
*/
|
||||
|
||||
proc[0].p_addr = *ka6;
|
||||
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
|
||||
*/
|
||||
|
||||
*lks = 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);
|
||||
estabur(0, 1, 0, 0);
|
||||
copyout(icode, 0, sizeof icode);
|
||||
/*
|
||||
* Return goes to loc. 0 of user init
|
||||
* code just copied out.
|
||||
*/
|
||||
return;
|
||||
}
|
||||
sched();
|
||||
}
|
||||
|
||||
/*
|
||||
* Load the user hardware segmentation
|
||||
* registers from the software prototype.
|
||||
* The software registers must have
|
||||
* been setup prior by estabur.
|
||||
*/
|
||||
sureg()
|
||||
{
|
||||
register *up, *rp, a;
|
||||
|
||||
a = u.u_procp->p_addr;
|
||||
up = &u.u_uisa[16];
|
||||
rp = &UISA->r[16];
|
||||
if(cputype == 40) {
|
||||
up =- 8;
|
||||
rp =- 8;
|
||||
}
|
||||
while(rp > &UISA->r[0])
|
||||
*--rp = *--up + a;
|
||||
if((up=u.u_procp->p_textp) != NULL)
|
||||
a =- up->x_caddr;
|
||||
up = &u.u_uisd[16];
|
||||
rp = &UISD->r[16];
|
||||
if(cputype == 40) {
|
||||
up =- 8;
|
||||
rp =- 8;
|
||||
}
|
||||
while(rp > &UISD->r[0]) {
|
||||
*--rp = *--up;
|
||||
if((*rp & WO) == 0)
|
||||
rp[(UISA-UISD)/2] =- a;
|
||||
}
|
||||
}
|
||||
|
||||
/*
|
||||
* Set up software prototype segmentation
|
||||
* registers to implement the 3 pseudo
|
||||
* text,data,stack segment sizes passed
|
||||
* as arguments.
|
||||
* The argument sep specifies if the
|
||||
* text and data+stack segments are to
|
||||
* be separated.
|
||||
*/
|
||||
estabur(nt, nd, ns, sep)
|
||||
{
|
||||
register a, *ap, *dp;
|
||||
|
||||
if(sep) {
|
||||
if(cputype == 40)
|
||||
goto err;
|
||||
if(nseg(nt) > 8 || nseg(nd)+nseg(ns) > 8)
|
||||
goto err;
|
||||
} else
|
||||
if(nseg(nt)+nseg(nd)+nseg(ns) > 8)
|
||||
goto err;
|
||||
if(nt+nd+ns+USIZE > maxmem)
|
||||
goto err;
|
||||
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;
|
||||
}
|
||||
if(sep)
|
||||
while(ap < &u.u_uisa[8]) {
|
||||
*ap++ = 0;
|
||||
*dp++ = 0;
|
||||
}
|
||||
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;
|
||||
}
|
||||
if(sep)
|
||||
while(ap < &u.u_uisa[16]) {
|
||||
*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;
|
||||
}
|
||||
if(!sep) {
|
||||
ap = &u.u_uisa[0];
|
||||
dp = &u.u_uisa[8];
|
||||
while(ap < &u.u_uisa[8])
|
||||
*dp++ = *ap++;
|
||||
ap = &u.u_uisd[0];
|
||||
dp = &u.u_uisd[8];
|
||||
while(ap < &u.u_uisd[8])
|
||||
*dp++ = *ap++;
|
||||
}
|
||||
sureg();
|
||||
return(0);
|
||||
|
||||
err:
|
||||
u.u_error = ENOMEM;
|
||||
return(-1);
|
||||
}
|
||||
|
||||
/*
|
||||
* Return the arg/128 rounded up.
|
||||
*/
|
||||
nseg(n)
|
||||
{
|
||||
|
||||
return((n+127)>>7);
|
||||
}
|
||||
Reference in New Issue
Block a user