projects
/
unix-history
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
tags
|
clone url
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
blame
|
history
|
raw
|
HEAD
Research V7 development
[unix-history]
/
.ref-Research-V6
/
usr
/
source
/
m6
/
m61.c
#
#include
"m6.h"
main
(
argc
,
argv
)
char
**
argv
;
{
extern
fin
;
int
t
;
gf
=
ge
=
g0
;
pf
=
pe
=
p0
;
t
=
g0
;
gmax
=+
t
-
10
;
t
=
d0
;
dmax
=+
t
-
10
;
t
=
p0
;
pmax
=+
t
-
10
;
revptr
(
d0
,
d0
+
2
,&
df
,&
de
);
if
(
argc
>
1
) {
fin
=
open
(
argv
[
1
],
0
);
control
();
close
(
fin
);
}
fin
=
dup
(
0
);
control
();
}
diag
(
m
) {
printf
(
"%s
\n
"
,
m
);
iot
();
}
/* abort */
int
iot
4
;