1997/0522/pc/main.c (diff list | history)

pc/main.c on 1991/0702
1991/0702		#include "u.h"
1992/0321		#include "../port/lib.h"
1991/0706		#include "mem.h"
1991/0702		#include "dat.h" #include "fns.h"
1991/0706		#include "io.h"
1991/0716		#include "ureg.h" #include "init.h"
1991/0629
1997/0327		Mach *m;
1992/0904
1997/0327		static uchar *sp; /* stack pointer for /boot */
1992/0903
1997/0327		/* * Where configuration info is left for the loaded programme. * This will turn into a structure as more is done by the boot loader * (e.g. why parse the .ini file twice?). * There are 1024 bytes available at CONFADDR. */
1997/0329		#define BOOTLINE ((char*)CONFADDR)
1997/0327		#define BOOTLINELEN 64 #define BOOTARGS ((char*)(CONFADDR+BOOTLINELEN)) #define BOOTARGSLEN (1024-BOOTLINELEN)
1993/0330		#define MAXCONF 32
1993/0915		char bootdisk[NAMELEN];
1993/0330		char *confname[MAXCONF]; char *confval[MAXCONF]; int nconf;
1997/0327		extern void ns16552install(void); /* botch: config */
1993/0915
1997/0327		static int isoldbcom;
1997/0403		static int getcfields(char* lp, char** fields, int n, char* sep) { int i; for(i = 0; lp && *lp && i < n; i++){ while(*lp && strchr(sep, *lp) != 0) *lp++ = 0; if(*lp == 0) break; fields[i] = lp; while(*lp && strchr(sep, *lp) == 0){ if(*lp == '\\' && *(lp+1) == '\n') *lp++ = ' '; lp++; } } return i; }
1997/0327		static void
1997/0403		options(void)
1997/0327		{ uchar *bda;
1997/0403		long i, n; char *cp, *line[MAXCONF], *p, *q;
1997/0327
1997/0403		if(strncmp(BOOTARGS, "ZORT 0\r\n", 8)){ isoldbcom = 1;
1997/0327
1997/0403		memmove(BOOTARGS, KADDR(1024), BOOTARGSLEN); memmove(BOOTLINE, KADDR(0x100), BOOTLINELEN);
1997/0327
1997/0403		bda = KADDR(0x400); bda[0x13] = 639; bda[0x14] = 639>>8; } /* * parse configuration args from dos file plan9.ini */ cp = BOOTARGS; /* where b.com leaves its config */ cp[BOOTARGSLEN-1] = 0; /* * Strip out '\r', change '\t' -> ' '. */ p = cp; for(q = cp; *q; q++){ if(*q == '\r') continue; if(*q == '\t') *q = ' '; *p++ = *q; } *p = 0; n = getcfields(cp, line, MAXCONF, "\n"); for(i = 0; i < n; i++){ if(*line[i] == '#') continue; cp = strchr(line[i], '='); if(cp == 0) continue; *cp++ = 0; if(cp - line[i] >= NAMELEN+1) *(line[i]+NAMELEN-1) = 0; confname[nconf] = line[i]; confval[nconf] = cp; nconf++; }
1997/0327		}
1991/0716		void
1991/0702		main(void)
1991/0625		{
1997/0403		outb(0x3F2, 0x00); /* botch: turn off the floppy motor */
1997/0327		/* * There is a little leeway here in the ordering but care must be * taken with dependencies:
1997/0329		* function dependencies * ======== ============ * machinit depends on: m->machno, m->pdb
1997/0403		* cpuidentify depends on: m
1997/0329		* confinit calls: meminit * meminit depends on: cpuidentify (needs to know processor * type for caching, etc.) * archinit depends on: meminit (MP config table may be at the * top of system physical memory);
1997/0327		* conf.nmach (not critical, mpinit will check);
1997/0329		* arch->intrinit depends on: trapinit
1997/0327		*/ conf.nmach = 1; MACHP(0) = (Mach*)CPU0MACH; m->pdb = (void*)CPU0PDB;
1991/0711		machinit();
1991/1113		active.machs = 1;
1997/0327		active.exiting = 0;
1997/0403		options();
1997/0329		screeninit();
1997/0327		cpuidentify();
1991/0711		confinit();
1997/0329		archinit();
1992/0625		xinit();
1997/0327		trapinit();
1991/0716		printinit();
1997/0522		cpuidprint();
1997/0327		if(isoldbcom) print(" ****OLD B.COM - UPGRADE****\n");
1992/0625		pageinit();
1997/0327		mmuinit(); if(arch->intrinit) arch->intrinit(); ns16552install(); /* botch: config */
1991/0906		mathinit();
1992/0409		kbdinit();
1997/0327		if(arch->clockenable) arch->clockenable();
1991/0716		procinit0(); initseg();
1995/0329		links();
1991/0716		chandevreset(); swapinit(); userinit(); schedinit();
1991/0712		}
1991/0706
1991/0716		void machinit(void)
1991/0712		{
1997/0327		int machno; void *pdb;
1991/0712
1997/0327		machno = m->machno; pdb = m->pdb;
1991/0716		memset(m, 0, sizeof(Mach));
1997/0327		m->machno = machno; m->pdb = pdb;
1991/0625		}
1991/0716		void
1993/1013		ksetterm(char *f) { char buf[2*NAMELEN]; sprint(buf, f, conffile); ksetenv("terminal", buf); } void
1991/0716		init0(void)
1991/0712		{
1993/0330		int i;
1992/0918		char tstr[32];
1993/0915		up->nerrlab = 0;
1991/0712
1991/0720		spllo();
1991/0716		/* * These are o.k. because rootinit is null. * Then early kproc's will have a root and dot. */
1993/0915		up->slash = namec("#/", Atodir, 0, 0);
1997/0327		up->dot = cclone(up->slash, 0);
1991/0712
1991/0716		chandevinit();
1991/0926		if(!waserror()){
1992/0923		strcpy(tstr, arch->id);
1992/0918		strcat(tstr, " %s"); ksetterm(tstr);
1991/0927		ksetenv("cputype", "386");
1997/0329		if(cpuserver) ksetenv("service", "cpu"); else ksetenv("service", "terminal");
1993/0915		for(i = 0; i < nconf; i++)
1997/0329		if(confname[i] && confname[i][0] != '*')
1993/0915		ksetenv(confname[i], confval[i]);
1991/0926		poperror(); }
1993/0915		kproc("alarm", alarmkproc, 0);
1992/0323		touser(sp);
1991/0712		}
1991/0629		void
1991/0716		userinit(void)
1991/0711		{
1991/0716		Proc *p; Segment *s; KMap *k;
1992/0323		Page *pg;
1991/0905
1991/0716		p = newproc(); p->pgrp = newpgrp();
1992/0625		p->egrp = smalloc(sizeof(Egrp)); p->egrp->ref = 1; p->fgrp = smalloc(sizeof(Fgrp)); p->fgrp->ref = 1;
1994/0812		p->rgrp = newrgrp();
1991/1112		p->procmode = 0640;
1991/0716		strcpy(p->text, "*init*");
1991/1109		strcpy(p->user, eve);
1991/0716		p->fpstate = FPinit;
1991/0906		fpoff();
1991/0716		/* * Kernel Stack
1991/0717		*
1991/0719		* N.B. The -12 for the stack pointer is important. * 4 bytes for gotolabel's return PC
1991/0716		*/ p->sched.pc = (ulong)init0;
1993/0915		p->sched.sp = (ulong)p->kstack+KSTACK-(1+MAXSYSARG)*BY2WD;
1991/0716		/* * User Stack */
1993/0915		s = newseg(SG_STACK, USTKTOP-USTKSIZE, USTKSIZE/BY2PG);
1991/0716		p->seg[SSEG] = s;
1992/0323		pg = newpage(1, 0, USTKTOP-BY2PG); segpage(s, pg); k = kmap(pg); bootargs(VA(k)); kunmap(k);
1991/0716		/* * Text */ s = newseg(SG_TEXT, UTZERO, 1);
1993/0915		s->flushme++;
1991/0716		p->seg[TSEG] = s;
1993/0915		pg = newpage(1, 0, UTZERO); memset(pg->cachectl, PG_TXTFLUSH, sizeof(pg->cachectl)); segpage(s, pg);
1991/0716		k = kmap(s->map[0]->pages[0]); memmove((ulong*)VA(k), initcode, sizeof initcode); kunmap(k); ready(p);
1992/0323		} uchar * pusharg(char *p) { int n; n = strlen(p)+1; sp -= n; memmove(sp, p, n); return sp; } void bootargs(ulong base) { int i, ac; uchar *av[32]; uchar **lsp;
1992/0903		char *cp = BOOTLINE; char buf[64];
1992/0323		sp = (uchar*)base + BY2PG - MAXSYSARG*BY2WD; ac = 0;
1994/0219		av[ac++] = pusharg("/386/9dos");
1997/0327		cp[BOOTLINELEN-1] = 0;
1993/0915		buf[0] = 0;
1992/0903		if(strncmp(cp, "fd!", 3) == 0){
1997/0329		sprint(buf, "local!#f/fd%ddisk", strtol(cp+3, 0, 0));
1992/0903		av[ac++] = pusharg(buf);
1993/0915		} else if(strncmp(cp, "h!", 2) == 0){
1997/0329		sprint(buf, "local!#H/hd%dfs", strtol(cp+2, 0, 0));
1993/0915		av[ac++] = pusharg(buf);
1992/0903		} else if(strncmp(cp, "hd!", 3) == 0){
1997/0329		sprint(buf, "local!#H/hd%ddisk", strtol(cp+3, 0, 0));
1992/0903		av[ac++] = pusharg(buf);
1993/0915		} else if(strncmp(cp, "s!", 2) == 0){
1997/0329		sprint(buf, "local!#w/sd%dfs", strtol(cp+2, 0, 0));
1993/0915		av[ac++] = pusharg(buf); } else if(strncmp(cp, "sd!", 3) == 0){
1997/0329		sprint(buf, "local!#w/sd%ddisk", strtol(cp+3, 0, 0));
1993/0915		av[ac++] = pusharg(buf);
1994/1111		} else if(strncmp(cp, "e!", 2) == 0) av[ac++] = pusharg("-n");
1993/0915		if(buf[0]){ cp = strchr(buf, '!'); if(cp){ strcpy(bootdisk, cp+1); addconf("bootdisk", bootdisk); } }
1992/0323		/* 4 byte word align stack */ sp = (uchar*)((ulong)sp & ~3); /* build argc, argv on stack */ sp -= (ac+1)*sizeof(sp); lsp = (uchar**)sp; for(i = 0; i < ac; i++) *lsp++ = av[i] + ((USTKTOP - BY2PG) - base); *lsp = 0; sp += (USTKTOP - BY2PG) - base - sizeof(ulong);
1991/0711		}
1991/0716		Conf conf;
1991/0711		void
1993/0915		addconf(char *name, char *val) { if(nconf >= MAXCONF) return; confname[nconf] = name; confval[nconf] = val; nconf++; } char* getconf(char *name) { int i; for(i = 0; i < nconf; i++)
1997/0403		if(cistrcmp(confname[i], name) == 0)
1993/0915		return confval[i]; return 0; }
1994/1210		void
1991/0711		confinit(void) {
1997/0403		char *p; int i, pcnt;
1997/0329		ulong maxmem;
1997/0403		extern int defmaxmsg;
1991/0711
1997/0403		if(p = getconf("*maxmem")) maxmem = strtoul(p, 0, 0); else maxmem = 0; if(p = getconf("*kernelpercent")) pcnt = 100 - strtol(p, 0, 0); else pcnt = 0; if(p = getconf("*defmaxmsg")){ i = strtol(p, 0, 0); if(i < defmaxmsg && i >=128) defmaxmsg = i;
1993/0416		}
1994/0814
1997/0329		meminit(maxmem);
1993/0915
1991/0711		conf.npage = conf.npage0 + conf.npage1;
1993/0416		if(pcnt < 10) pcnt = 70;
1992/1014		conf.upages = (conf.npage*pcnt)/100;
1994/0322		conf.ialloc = ((conf.npage-conf.upages)/2)*BY2PG;
1992/1016
1994/0923		conf.nproc = 100 + ((conf.npage*BY2PG)/MB)*5;
1996/0612		if(cpuserver)
1997/0109		conf.nproc *= 3;
1997/0327		if(conf.nproc > 2000) conf.nproc = 2000;
1993/0401		conf.nswap = conf.nproc*80;
1997/0327		conf.nimage = 200;
1991/0711		}
1991/0913		char *mathmsg[] =
1991/0906		{
1991/0913		"invalid", "denormalized", "div-by-zero", "overflow", "underflow", "precision", "stack", "error", };
1991/0906		/*
1991/0912		* math coprocessor error */ void
1997/0327		matherror(Ureg *ur, void*)
1991/0912		{
1991/0913		ulong status; int i; char *msg; char note[ERRLEN]; /* * a write cycle to port 0xF0 clears the interrupt latch attached * to the error# line from the 387 */ outb(0xF0, 0xFF);
1992/0806		/* * save floating point state to check out error */
1993/0915		fpenv(&up->fpsave); status = up->fpsave.status;
1992/0806		msg = 0;
1991/0913		for(i = 0; i < 8; i++) if((1<<i) & status){ msg = mathmsg[i];
1993/0915		sprint(note, "sys: fp: %s fppc=0x%lux", msg, up->fpsave.pc);
1993/1013		postnote(up, 1, note, NDebug);
1991/0913		break; }
1992/0806		if(msg == 0){
1993/0915		sprint(note, "sys: fp: unknown fppc=0x%lux", up->fpsave.pc);
1993/1013		postnote(up, 1, note, NDebug);
1992/0806		} if(ur->pc & KZERO) panic("fp: status %lux fppc=0x%lux pc=0x%lux", status,
1993/0915		up->fpsave.pc, ur->pc);
1991/0912		} /*
1991/0906		* math coprocessor emulation fault */ void
1997/0327		mathemu(Ureg*, void*)
1991/0906		{
1993/0915		switch(up->fpstate){
1991/0906		case FPinit: fpinit();
1993/0915		up->fpstate = FPactive;
1991/0906		break; case FPinactive:
1993/0915		fprestore(&up->fpsave); up->fpstate = FPactive;
1991/0906		break; case FPactive:
1992/0805		panic("math emu", 0);
1991/0906		break; } } /* * math coprocessor segment overrun */ void
1997/0327		mathover(Ureg*, void*)
1991/0906		{
1992/0805		pexit("math overrun", 0);
1991/0906		} void mathinit(void) {
1997/0327		intrenable(VectorCERR, matherror, 0, BUSUNKNOWN); if(X86FAMILY(m->cpuidax) == 3) intrenable(VectorIRQ13, matherror, 0, BUSUNKNOWN); intrenable(VectorCNA, mathemu, 0, BUSUNKNOWN); intrenable(VectorCSO, mathover, 0, BUSUNKNOWN);
1991/0906		} /*
1991/0716		* set up floating point for a new process */
1991/0703		void
1991/0716		procsetup(Proc *p)
1991/0703		{
1991/0716		p->fpstate = FPinit;
1991/0906		fpoff();
1991/0705		}
1991/0712		/*
1991/0906		* Save the mach dependent part of the process state.
1991/0712		*/
1991/0705		void
1992/0122		procsave(Proc *p)
1991/0705		{
1992/0805		if(p->fpstate == FPactive){ if(p->state == Moribund) fpoff(); else
1993/0915		fpsave(&up->fpsave);
1992/0805		p->fpstate = FPinactive;
1991/0906		}
1991/0712		}
1991/0716		void
1997/0327		exit(int ispanic)
1991/0712		{
1997/0327		int ms, once;
1991/0712
1997/0327		lock(&active); if(ispanic) active.ispanic = ispanic; else if(m->machno == 0 && (active.machs & (1<<m->machno)) == 0) active.ispanic = 0; once = active.machs & (1<<m->machno); active.machs &= ~(1<<m->machno); active.exiting = 1; unlock(&active);
1991/0803
1997/0327		if(once) print("cpu%d: exiting\n", m->machno);
1996/01171		spllo();
1997/0327		for(ms = 5*1000; ms > 0; ms -= TK2MS(2)){ delay(TK2MS(2)); if(active.machs == 0 && consactive() == 0) break; } if(active.ispanic && m->machno == 0){
1993/1113		if(cpuserver)
1993/0915		delay(10000); else for(;;);
1997/0327		} else
1996/01171		delay(1000);
1992/0903
1997/0327		arch->reset();
1991/0803		}
1991/1210		int
1993/0915		isaconfig(char *class, int ctlrno, ISAConf *isa) {
1995/0920		char cc[NAMELEN], *p, *q, *r;
1993/0915		int n; sprint(cc, "%s%d", class, ctlrno); for(n = 0; n < nconf; n++){
1997/0327		if(cistrncmp(confname[n], cc, NAMELEN))
1993/0915		continue;
1995/0920		isa->nopt = 0;
1993/0915		p = confval[n]; while(*p){ while(*p == ' ' || *p == '\t') p++; if(*p == '\0') break;
1997/0327		if(cistrncmp(p, "type=", 5) == 0){
1993/0915		p += 5; for(q = isa->type; q < &isa->type[NAMELEN-1]; q++){ if(*p == '\0' || *p == ' ' || *p == '\t') break; *q = *p++; } *q = '\0'; }
1997/0327		else if(cistrncmp(p, "port=", 5) == 0)
1993/0915		isa->port = strtoul(p+5, &p, 0);
1997/0327		else if(cistrncmp(p, "irq=", 4) == 0)
1993/0915		isa->irq = strtoul(p+4, &p, 0);
1997/0327		else if(cistrncmp(p, "dma=", 4) == 0)
1996/0425		isa->dma = strtoul(p+4, &p, 0);
1997/0327		else if(cistrncmp(p, "mem=", 4) == 0)
1993/0915		isa->mem = strtoul(p+4, &p, 0);
1997/0327		else if(cistrncmp(p, "size=", 5) == 0)
1993/0915		isa->size = strtoul(p+5, &p, 0);
1997/0327		else if(cistrncmp(p, "freq=", 5) == 0)
1994/0823		isa->freq = strtoul(p+5, &p, 0);
1995/0920		else if(isa->nopt < NISAOPT){ r = isa->opt[isa->nopt]; while(*p && *p != ' ' && *p != '\t'){ *r++ = *p++; if(r-isa->opt[isa->nopt] >= ISAOPTLEN-1) break; } *r = '\0'; isa->nopt++; }
1993/0915		while(*p && *p != ' ' && *p != '\t') p++; } return 1; } return 0;
1991/0803		}
1995/0222		int iprint(char *fmt, ...) { char buf[PRINTSIZE]; int n;
1996/0214		va_list arg;
1995/0222
1996/0214		va_start(arg, fmt); n = doprint(buf, buf+sizeof(buf), fmt, arg) - buf; va_end(arg);
1995/0222		screenputs(buf, n); return n; } int cistrcmp(char *a, char *b) { int ac, bc; for(;;){ ac = *a++; bc = *b++; if(ac >= 'A' && ac <= 'Z') ac = 'a' + (ac - 'A'); if(bc >= 'A' && bc <= 'Z') bc = 'a' + (bc - 'A'); ac -= bc; if(ac) return ac; if(bc == 0) break; }
1997/0327		return 0; } int cistrncmp(char *a, char *b, int n) { unsigned ac, bc; while(n > 0){ ac = *a++; bc = *b++; n--; if(ac >= 'A' && ac <= 'Z') ac = 'a' + (ac - 'A'); if(bc >= 'A' && bc <= 'Z') bc = 'a' + (bc - 'A'); ac -= bc; if(ac) return ac; if(bc == 0) break; }
1995/0222		return 0; }