Add original unix v6
This commit is contained in:
memnoth
@@ -0,0 +1,540 @@
|
||||
#define CHAR 01
|
||||
#define BLOCK 02
|
||||
#define INTR 04
|
||||
#define EVEN 010
|
||||
#define KL 020
|
||||
#define ROOT 040
|
||||
char *btab[]
|
||||
{
|
||||
"rk",
|
||||
"rp",
|
||||
"rf",
|
||||
"tm",
|
||||
"tc",
|
||||
"hs",
|
||||
"hp",
|
||||
"ht",
|
||||
0
|
||||
};
|
||||
char *ctab[]
|
||||
{
|
||||
"console",
|
||||
"pc",
|
||||
"lp",
|
||||
"dc",
|
||||
"dh",
|
||||
"dp",
|
||||
"dj",
|
||||
"dn",
|
||||
"mem",
|
||||
"rk",
|
||||
"rf",
|
||||
"rp",
|
||||
"tm",
|
||||
"hs",
|
||||
"hp",
|
||||
"ht",
|
||||
0
|
||||
};
|
||||
struct tab
|
||||
{
|
||||
char *name;
|
||||
int count;
|
||||
int address;
|
||||
int key;
|
||||
char *codea;
|
||||
char *codeb;
|
||||
char *codec;
|
||||
char *coded;
|
||||
char *codee;
|
||||
} table[]
|
||||
{
|
||||
"console",
|
||||
-1, 60, CHAR+INTR+KL,
|
||||
"\tklin; br4\n\tklou; br4\n",
|
||||
".globl\t_klrint\nklin:\tjsr\tr0,call; _klrint\n",
|
||||
".globl\t_klxint\nklou:\tjsr\tr0,call; _klxint\n",
|
||||
"",
|
||||
"\t&klopen, &klclose, &klread, &klwrite, &klsgtty,",
|
||||
|
||||
"mem",
|
||||
-1, 300, CHAR,
|
||||
"",
|
||||
"",
|
||||
"",
|
||||
"",
|
||||
"\t&nulldev, &nulldev, &mmread, &mmwrite, &nodev,",
|
||||
|
||||
"pc",
|
||||
0, 70, CHAR+INTR,
|
||||
"\tpcin; br4\n\tpcou; br4\n",
|
||||
".globl\t_pcrint\npcin:\tjsr\tr0,call; _pcrint\n",
|
||||
".globl\t_pcpint\npcou:\tjsr\tr0,call; _pcpint\n",
|
||||
"",
|
||||
"\t&pcopen, &pcclose, &pcread, &pcwrite, &nodev,",
|
||||
|
||||
"clock",
|
||||
-2, 100, INTR,
|
||||
"\tkwlp; br6\n",
|
||||
".globl\t_clock\n",
|
||||
"kwlp:\tjsr\tr0,call; _clock\n",
|
||||
"",
|
||||
"",
|
||||
|
||||
"parity",
|
||||
-1, 114, INTR,
|
||||
"\ttrap; br7+7.\t\t/ 11/70 parity\n",
|
||||
"",
|
||||
"",
|
||||
"",
|
||||
"",
|
||||
|
||||
/*
|
||||
* 110 unused
|
||||
* 114 memory parity
|
||||
* 120 XY plotter
|
||||
* 124 DR11-B
|
||||
* 130 AD01
|
||||
* 134 AFC11
|
||||
* 140 AA11
|
||||
* 144 AA11
|
||||
* 150-174 unused
|
||||
*/
|
||||
|
||||
"lp",
|
||||
0, 200, CHAR+INTR,
|
||||
"\tlpou; br4\n",
|
||||
"",
|
||||
".globl\t_lpint\nlpou:\tjsr\tr0,call; _lpint\n",
|
||||
"",
|
||||
"\t&lpopen, &lpclose, &nodev, &lpwrite, &nodev,",
|
||||
|
||||
"rf",
|
||||
0, 204, BLOCK+CHAR+INTR,
|
||||
"\trfio; br5\n",
|
||||
".globl\t_rfintr\n",
|
||||
"rfio:\tjsr\tr0,call; _rfintr\n",
|
||||
"\t&nulldev,\t&nulldev,\t&rfstrategy, \t&rftab,",
|
||||
"\t&nulldev, &nulldev, &rfread, &rfwrite, &nodev,",
|
||||
|
||||
"hs",
|
||||
0, 204, BLOCK+CHAR+INTR,
|
||||
"\thsio; br5\n",
|
||||
".globl\t_hsintr\n",
|
||||
"hsio:\tjsr\tr0,call; _hsintr\n",
|
||||
"\t&nulldev,\t&nulldev,\t&hsstrategy, \t&hstab,",
|
||||
"\t&nulldev, &nulldev, &hsread, &hswrite, &nodev,",
|
||||
|
||||
/*
|
||||
* 210 RC
|
||||
*/
|
||||
|
||||
"tc",
|
||||
0, 214, BLOCK+INTR,
|
||||
"\ttcio; br6\n",
|
||||
".globl\t_tcintr\n",
|
||||
"tcio:\tjsr\tr0,call; _tcintr\n",
|
||||
"\t&nulldev,\t&tcclose,\t&tcstrategy, \t&tctab,",
|
||||
"",
|
||||
|
||||
"rk",
|
||||
0, 220, BLOCK+CHAR+INTR,
|
||||
"\trkio; br5\n",
|
||||
".globl\t_rkintr\n",
|
||||
"rkio:\tjsr\tr0,call; _rkintr\n",
|
||||
"\t&nulldev,\t&nulldev,\t&rkstrategy, \t&rktab,",
|
||||
"\t&nulldev, &nulldev, &rkread, &rkwrite, &nodev,",
|
||||
|
||||
"tm",
|
||||
0, 224, BLOCK+CHAR+INTR,
|
||||
"\ttmio; br5\n",
|
||||
".globl\t_tmintr\n",
|
||||
"tmio:\tjsr\tr0,call; _tmintr\n",
|
||||
"\t&tmopen,\t&tmclose,\t&tmstrategy, \t&tmtab,",
|
||||
"\t&tmopen, &tmclose, &tmread, &tmwrite, &nodev,",
|
||||
|
||||
"ht",
|
||||
0, 224, BLOCK+CHAR+INTR,
|
||||
"\thtio; br5\n",
|
||||
".globl\t_htintr\n",
|
||||
"htio:\tjsr\tr0,call; _htintr\n",
|
||||
"\t&htopen,\t&htclose,\t&htstrategy, \t&httab,",
|
||||
"\t&htopen, &htclose, &htread, &htwrite, &nodev,",
|
||||
|
||||
"cr",
|
||||
0, 230, CHAR+INTR,
|
||||
"\tcrin; br6\n",
|
||||
"",
|
||||
".globl\t_crint\ncrin:\tjsr\tr0,call; _crint\n",
|
||||
"",
|
||||
"\t&cropen, &crclose, &crread, &nodev, &nodev,",
|
||||
|
||||
/*
|
||||
* 234 UDC11
|
||||
*/
|
||||
|
||||
"rp",
|
||||
0, 254, BLOCK+CHAR+INTR,
|
||||
"\trpio; br5\n",
|
||||
".globl\t_rpintr\n",
|
||||
"rpio:\tjsr\tr0,call; _rpintr\n",
|
||||
"\t&nulldev,\t&nulldev,\t&rpstrategy, \t&rptab,",
|
||||
"\t&nulldev, &nulldev, &rpread, &rpwrite, &nodev,",
|
||||
|
||||
"hp",
|
||||
0, 254, BLOCK+CHAR+INTR,
|
||||
"\thpio; br5\n",
|
||||
".globl\t_hpintr\n",
|
||||
"hpio:\tjsr\tr0,call; _hpintr\n",
|
||||
"\t&hpopen,\t&nulldev,\t&hpstrategy, \t&hptab,",
|
||||
"\t&hpopen, &nulldev, &hpread, &hpwrite, &nodev,",
|
||||
|
||||
/*
|
||||
* 260 TA11
|
||||
* 264-274 unused
|
||||
*/
|
||||
|
||||
"dc",
|
||||
0, 308, CHAR+INTR,
|
||||
"\tdcin; br5+%d.\n\tdcou; br5+%d.\n",
|
||||
".globl\t_dcrint\ndcin:\tjsr\tr0,call; _dcrint\n",
|
||||
".globl\t_dcxint\ndcou:\tjsr\tr0,call; _dcxint\n",
|
||||
"",
|
||||
"\t&dcopen, &dcclose, &dcread, &dcwrite, &dcsgtty,",
|
||||
|
||||
"kl",
|
||||
0, 308, INTR+KL,
|
||||
"\tklin; br4+%d.\n\tklou; br4+%d.\n",
|
||||
"",
|
||||
"",
|
||||
"",
|
||||
"",
|
||||
|
||||
"dp",
|
||||
0, 308, CHAR+INTR,
|
||||
"\tdpin; br6+%d.\n\tdpou; br6+%d.\n",
|
||||
".globl\t_dprint\ndpin:\tjsr\tr0,call; _dprint\n",
|
||||
".globl\t_dpxint\ndpou:\tjsr\tr0,call; _dpxint\n",
|
||||
"",
|
||||
"\t&dpopen, &dpclose, &dpread, &dpwrite, &nodev,",
|
||||
|
||||
/*
|
||||
* DM11-A
|
||||
*/
|
||||
|
||||
"dn",
|
||||
0, 304, CHAR+INTR,
|
||||
"\tdnou; br5+%d.\n",
|
||||
"",
|
||||
".globl\t_dnint\ndnou:\tjsr\tr0,call; _dnint\n",
|
||||
"",
|
||||
"\t&dnopen, &dnclose, &nodev, &dnwrite, &nodev,",
|
||||
|
||||
"dhdm",
|
||||
0, 304, INTR,
|
||||
"\tdmin; br4+%d.\n",
|
||||
"",
|
||||
".globl\t_dmint\ndmin:\tjsr\tr0,call; _dmint\n",
|
||||
"",
|
||||
"",
|
||||
|
||||
/*
|
||||
* DR11-A+
|
||||
* DR11-C+
|
||||
* PA611+
|
||||
* PA611+
|
||||
* DT11+
|
||||
* DX11+
|
||||
*/
|
||||
|
||||
"dl",
|
||||
0, 308, INTR+KL,
|
||||
"\tklin; br4+%d.\n\tklou; br4+%d.\n",
|
||||
"",
|
||||
"",
|
||||
"",
|
||||
"",
|
||||
|
||||
/*
|
||||
* DJ11
|
||||
*/
|
||||
|
||||
"dh",
|
||||
0, 308, CHAR+INTR+EVEN,
|
||||
"\tdhin; br5+%d.\n\tdhou; br5+%d.\n",
|
||||
".globl\t_dhrint\ndhin:\tjsr\tr0,call; _dhrint\n",
|
||||
".globl\t_dhxint\ndhou:\tjsr\tr0,call; _dhxint\n",
|
||||
"",
|
||||
"\t&dhopen, &dhclose, &dhread, &dhwrite, &dhsgtty,",
|
||||
|
||||
/*
|
||||
* GT40
|
||||
* LPS+
|
||||
* VT20
|
||||
*/
|
||||
|
||||
0
|
||||
};
|
||||
|
||||
char *stra[]
|
||||
{
|
||||
"/ low core",
|
||||
"",
|
||||
"br4 = 200",
|
||||
"br5 = 240",
|
||||
"br6 = 300",
|
||||
"br7 = 340",
|
||||
"",
|
||||
". = 0^.",
|
||||
"\tbr\t1f",
|
||||
"\t4",
|
||||
"",
|
||||
"/ trap vectors",
|
||||
"\ttrap; br7+0.\t\t/ bus error",
|
||||
"\ttrap; br7+1.\t\t/ illegal instruction",
|
||||
"\ttrap; br7+2.\t\t/ bpt-trace trap",
|
||||
"\ttrap; br7+3.\t\t/ iot trap",
|
||||
"\ttrap; br7+4.\t\t/ power fail",
|
||||
"\ttrap; br7+5.\t\t/ emulator trap",
|
||||
"\ttrap; br7+6.\t\t/ system entry",
|
||||
"",
|
||||
". = 40^.",
|
||||
".globl\tstart, dump",
|
||||
"1:\tjmp\tstart",
|
||||
"\tjmp\tdump",
|
||||
"",
|
||||
0,
|
||||
};
|
||||
|
||||
char *strb[]
|
||||
{
|
||||
"",
|
||||
". = 240^.",
|
||||
"\ttrap; br7+7.\t\t/ programmed interrupt",
|
||||
"\ttrap; br7+8.\t\t/ floating point",
|
||||
"\ttrap; br7+9.\t\t/ segmentation violation",
|
||||
0
|
||||
};
|
||||
|
||||
char *strc[]
|
||||
{
|
||||
"",
|
||||
"/ floating vectors",
|
||||
". = 300^.",
|
||||
0,
|
||||
};
|
||||
|
||||
char *strd[]
|
||||
{
|
||||
"",
|
||||
"//////////////////////////////////////////////////////",
|
||||
"/\t\tinterface code to C",
|
||||
"//////////////////////////////////////////////////////",
|
||||
"",
|
||||
".globl\tcall, trap",
|
||||
0
|
||||
};
|
||||
|
||||
char *stre[]
|
||||
{
|
||||
"/*",
|
||||
" */",
|
||||
"",
|
||||
"int\t(*bdevsw[])()",
|
||||
"{",
|
||||
0,
|
||||
};
|
||||
|
||||
char *strf[]
|
||||
{
|
||||
"\t0",
|
||||
"};",
|
||||
"",
|
||||
"int\t(*cdevsw[])()",
|
||||
"{",
|
||||
0,
|
||||
};
|
||||
|
||||
char *strg[]
|
||||
{
|
||||
"\t0",
|
||||
"};",
|
||||
"",
|
||||
"int\trootdev\t{(%d<<8)|0};",
|
||||
"int\tswapdev\t{(%d<<8)|0};",
|
||||
"int\tswplo\t4000;\t/* cannot be zero */",
|
||||
"int\tnswap\t872;",
|
||||
0,
|
||||
};
|
||||
|
||||
int fout;
|
||||
int root -1;
|
||||
|
||||
main()
|
||||
{
|
||||
register struct tab *p;
|
||||
register *q;
|
||||
int i, n, ev, nkl;
|
||||
int flagf, flagb;
|
||||
|
||||
while(input());
|
||||
|
||||
/*
|
||||
* pass1 -- create interrupt vectors
|
||||
*/
|
||||
nkl = 0;
|
||||
flagf = flagb = 1;
|
||||
fout = creat("l.s", 0666);
|
||||
puke(stra);
|
||||
for(p=table; p->name; p++)
|
||||
if(p->count != 0 && p->key & INTR) {
|
||||
if(p->address>240 && flagb) {
|
||||
flagb = 0;
|
||||
puke(strb);
|
||||
}
|
||||
if(p->address >= 300) {
|
||||
if(flagf) {
|
||||
ev = 0;
|
||||
flagf = 0;
|
||||
puke(strc);
|
||||
}
|
||||
if(p->key & EVEN && ev & 07) {
|
||||
printf("\t.=.+4\n");
|
||||
ev =+ 4;
|
||||
}
|
||||
ev =+ p->address - 300;
|
||||
} else
|
||||
printf("\n. = %d^.\n", p->address);
|
||||
n = p->count;
|
||||
if(n < 0)
|
||||
n = -n;
|
||||
for(i=0; i<n; i++)
|
||||
if(p->key & KL) {
|
||||
printf(p->codea, nkl, nkl);
|
||||
nkl++;
|
||||
} else
|
||||
printf(p->codea, i, i);
|
||||
}
|
||||
if(flagb)
|
||||
puke(strb);
|
||||
puke(strd);
|
||||
for(p=table; p->name; p++)
|
||||
if(p->count != 0 && p->key & INTR)
|
||||
printf("\n%s%s", p->codeb, p->codec);
|
||||
flush();
|
||||
close(fout);
|
||||
|
||||
/*
|
||||
* pass 2 -- create configuration table
|
||||
*/
|
||||
|
||||
fout = creat("c.c", 0666);
|
||||
puke(stre);
|
||||
for(i=0; q=btab[i]; i++) {
|
||||
for(p=table; p->name; p++)
|
||||
if(equal(q, p->name) &&
|
||||
(p->key&BLOCK) && p->count) {
|
||||
printf("%s\t/* %s */\n", p->coded, q);
|
||||
if(p->key & ROOT)
|
||||
root = i;
|
||||
goto newb;
|
||||
}
|
||||
printf("\t&nodev,\t\t&nodev,\t\t&nodev,\t\t0,\t/* %s */\n", q);
|
||||
newb:;
|
||||
}
|
||||
puke(strf);
|
||||
for(i=0; q=ctab[i]; i++) {
|
||||
for(p=table; p->name; p++)
|
||||
if(equal(q, p->name) &&
|
||||
(p->key&CHAR) && p->count) {
|
||||
printf("%s\t/* %s */\n", p->codee, q);
|
||||
goto newc;
|
||||
}
|
||||
printf("\t&nodev, &nodev, &nodev, &nodev, &nodev,\t/* %s */\n", q);
|
||||
newc:;
|
||||
}
|
||||
puke(strg, root);
|
||||
flush();
|
||||
close(fout);
|
||||
if(root < 0)
|
||||
write(2, "no block device given\n", 22);
|
||||
}
|
||||
|
||||
puke(s, a)
|
||||
char **s;
|
||||
{
|
||||
char *c;
|
||||
|
||||
while(c = *s++) {
|
||||
printf(c, a);
|
||||
printf("\n");
|
||||
}
|
||||
}
|
||||
|
||||
input()
|
||||
{
|
||||
char line[100];
|
||||
register char *p;
|
||||
register struct tab *q;
|
||||
register n;
|
||||
|
||||
p = line;
|
||||
while((n=getchar()) != '\n') {
|
||||
if(n == 0)
|
||||
return(0);
|
||||
if(n == ' ' || n == '\t')
|
||||
continue;
|
||||
*p++ = n;
|
||||
}
|
||||
*p++ = 0;
|
||||
n = 0;
|
||||
p = line;
|
||||
while(*p>='0' && *p<='9') {
|
||||
n =* 10;
|
||||
n =+ *p++ - '0';
|
||||
}
|
||||
if(n == 0)
|
||||
n = 1;
|
||||
if(*p == 0)
|
||||
return(1);
|
||||
for(q=table; q->name; q++)
|
||||
if(equal(q->name, p)) {
|
||||
if(root < 0 && (q->key&BLOCK)) {
|
||||
root = 0;
|
||||
q->key =| ROOT;
|
||||
}
|
||||
if(q->count < 0) {
|
||||
printf("%s: no more, no less\n", p);
|
||||
return(1);
|
||||
}
|
||||
q->count =+ n;
|
||||
if(q->address < 300 && q->count > 1) {
|
||||
q->count = 1;
|
||||
printf("%s: only one\n", p);
|
||||
}
|
||||
return(1);
|
||||
}
|
||||
if(equal(p, "done"))
|
||||
return(0);
|
||||
printf("%s: cannot find\n", p);
|
||||
return(1);
|
||||
}
|
||||
|
||||
equal(a, b)
|
||||
char *a, *b;
|
||||
{
|
||||
|
||||
while(*a++ == *b)
|
||||
if(*b++ == 0)
|
||||
return(1);
|
||||
return(0);
|
||||
}
|
||||
|
||||
getchar()
|
||||
{
|
||||
int c;
|
||||
|
||||
c = 0;
|
||||
read(0, &c, 1);
|
||||
return(c);
|
||||
}
|
||||
Reference in New Issue
Block a user