Research V7 development
[unix-history] / .ref-Research-V6 / usr / source / m6 / m61.c
CommitLineData
70668e30
KT
1#
2
3#include "m6.h"
4
5main(argc,argv)
6char **argv;
7{
8 extern fin;
9 int t;
10 gf = ge = g0;
11 pf = pe = p0;
12 t = g0;
13 gmax =+ t-10;
14 t = d0;
15 dmax =+ t-10;
16 t = p0;
17 pmax =+ t-10;
18 revptr(d0,d0+2,&df,&de);
19 if(argc>1) {
20 fin = open(argv[1],0);
21 control();
22 close(fin);
23 }
24 fin = dup(0);
25 control();
26}
27
28
29diag(m) {
30 printf("%s\n",m);
31 iot();
32} /* abort */
33
34int iot 4;
35