Merge branch 'master' of https://github.com/DoctorWkt/pdp7-unix
This commit is contained in:
Tom Everett
+2
-2
@@ -64,7 +64,7 @@ floop1:
|
|||||||
"** 05-1-4.pdf page 3
|
"** 05-1-4.pdf page 3
|
||||||
tad name
|
tad name
|
||||||
dac 8
|
dac 8
|
||||||
r4
|
-4
|
||||||
dac c1
|
dac c1
|
||||||
1:
|
1:
|
||||||
lac 8 i
|
lac 8 i
|
||||||
@@ -593,4 +593,4 @@ dpon = 0704701
|
|||||||
dpof = 0704704
|
dpof = 0704704
|
||||||
dpwc = 0704722
|
dpwc = 0704722
|
||||||
dpop = 0704764
|
dpop = 0704764
|
||||||
dprs = 0704752
|
dprs = 0704752
|
||||||
|
|||||||
+2
-2
@@ -175,7 +175,7 @@ notbin:
|
|||||||
lac d1
|
lac d1
|
||||||
sys write; m3; m3s
|
sys write; m3; m3s
|
||||||
jms wait
|
jms wait
|
||||||
cmp cloop
|
jmp cloop
|
||||||
|
|
||||||
timeout:
|
timeout:
|
||||||
lac d1
|
lac d1
|
||||||
@@ -252,4 +252,4 @@ crread: .=.+1
|
|||||||
crchar: .=.+1
|
crchar: .=.+1
|
||||||
tmtime: .=.+1
|
tmtime: .=.+1
|
||||||
|
|
||||||
crsb = 0706744
|
crsb = 0706744
|
||||||
|
|||||||
+1
-1
@@ -699,4 +699,4 @@ dpon = 0704701
|
|||||||
dpof = 0704704
|
dpof = 0704704
|
||||||
dpwc = 0704722
|
dpwc = 0704722
|
||||||
dpop = 0704764
|
dpop = 0704764
|
||||||
dprs = 0704752
|
dprs = 0704752
|
||||||
|
|||||||
+1
-1
@@ -247,7 +247,7 @@ proc3:
|
|||||||
proc4:
|
proc4:
|
||||||
jms error; .>
|
jms error; .>
|
||||||
lac d1
|
lac d1
|
||||||
"** 05-1-4.pdf page 34
|
"** 05-1-4.pdf page 36
|
||||||
dac dot
|
dac dot
|
||||||
dzm dot+1
|
dzm dot+1
|
||||||
jmp skip
|
jmp skip
|
||||||
|
|||||||
+6
-6
@@ -7,7 +7,7 @@
|
|||||||
tad d5
|
tad d5
|
||||||
dac name1
|
dac name1
|
||||||
tad d4
|
tad d4
|
||||||
dac name 2
|
dac name2
|
||||||
lac narg
|
lac narg
|
||||||
sad d4
|
sad d4
|
||||||
jmp 1f
|
jmp 1f
|
||||||
@@ -134,7 +134,7 @@ adv1:
|
|||||||
dac vis
|
dac vis
|
||||||
jmp advanc
|
jmp advanc
|
||||||
1:
|
1:
|
||||||
sad 0162
|
sad o162
|
||||||
skp
|
skp
|
||||||
jmp letr
|
jmp letr
|
||||||
isz mod3
|
isz mod3
|
||||||
@@ -301,7 +301,7 @@ a:
|
|||||||
cma
|
cma
|
||||||
tad d1
|
tad d1
|
||||||
1:
|
1:
|
||||||
tad dlex
|
tad delx
|
||||||
tad dm4
|
tad dm4
|
||||||
sma
|
sma
|
||||||
cla
|
cla
|
||||||
@@ -481,9 +481,9 @@ tmp: .=.+1
|
|||||||
buf: .=.+500
|
buf: .=.+500
|
||||||
bufp: buf-1
|
bufp: buf-1
|
||||||
lbuf: .=.+10
|
lbuf: .=.+10
|
||||||
lpbufp: lbuf-1
|
lbufp: lbuf-1
|
||||||
nwds: .=.+1
|
nwds: .=.+1
|
||||||
o1770072: 0170072
|
o170072: 0170072
|
||||||
nins: .=.+1
|
nins: .=.+1
|
||||||
o100: 0100
|
o100: 0100
|
||||||
o12012: 012012
|
o12012: 012012
|
||||||
@@ -1020,7 +1020,7 @@ mh
|
|||||||
v
|
v
|
||||||
ah
|
ah
|
||||||
ia
|
ia
|
||||||
ll
|
il
|
||||||
x
|
x
|
||||||
mn
|
mn
|
||||||
r
|
r
|
||||||
|
|||||||
+10
-10
@@ -111,20 +111,20 @@ done:
|
|||||||
lac i .pbp
|
lac i .pbp
|
||||||
sna
|
sna
|
||||||
jmp 1b
|
jmp 1b
|
||||||
spa ra1
|
spa ral
|
||||||
jmp 1f
|
jmp 1f
|
||||||
spa ra1
|
spa ral
|
||||||
jmp 2f
|
jmp 2f
|
||||||
spa ra1
|
spa ral
|
||||||
jmp 3f
|
jmp 3f
|
||||||
spa ra1
|
spa ral
|
||||||
jmp 4f
|
jmp 4f
|
||||||
spa ra1
|
spa ral
|
||||||
jmp 5f
|
jmp 5f
|
||||||
spa ra1
|
spa ral
|
||||||
jmp 6f
|
jmp 6f
|
||||||
" ** 11-45-91.pdf page 4
|
" ** 11-45-91.pdf page 4
|
||||||
spa ra1
|
spa ral
|
||||||
jmp 7f
|
jmp 7f
|
||||||
jms release
|
jms release
|
||||||
sys exit
|
sys exit
|
||||||
@@ -180,7 +180,7 @@ done:
|
|||||||
dac char
|
dac char
|
||||||
3:
|
3:
|
||||||
fld; arg1
|
fld; arg1
|
||||||
dmp; fm056
|
fmp; fm056
|
||||||
lac char
|
lac char
|
||||||
spa
|
spa
|
||||||
fng
|
fng
|
||||||
@@ -212,12 +212,12 @@ doauto:
|
|||||||
omq
|
omq
|
||||||
tad 0
|
tad 0
|
||||||
tad stick
|
tad stick
|
||||||
cli
|
cll
|
||||||
mul
|
mul
|
||||||
78625
|
78625
|
||||||
lls 9
|
lls 9
|
||||||
dac stick
|
dac stick
|
||||||
dzm sexp
|
dzm aexp
|
||||||
and o177777
|
and o177777
|
||||||
xor o200000
|
xor o200000
|
||||||
dac ams
|
dac ams
|
||||||
|
|||||||
+3
-3
@@ -27,7 +27,7 @@ advance:0
|
|||||||
jmp advance i
|
jmp advance i
|
||||||
|
|
||||||
retreat:
|
retreat:
|
||||||
dmz junk
|
dzm junk
|
||||||
lac gflag
|
lac gflag
|
||||||
sza
|
sza
|
||||||
jmp 1f
|
jmp 1f
|
||||||
@@ -173,7 +173,7 @@ reuu:
|
|||||||
rerb:
|
rerb:
|
||||||
cml
|
cml
|
||||||
rera:
|
rera:
|
||||||
dmz fflag
|
dzm fflag
|
||||||
snl
|
snl
|
||||||
jmp goon
|
jmp goon
|
||||||
jms aget
|
jms aget
|
||||||
@@ -341,7 +341,7 @@ gegq:
|
|||||||
jms advance; jmp ggoon
|
jms advance; jmp ggoon
|
||||||
lac env
|
lac env
|
||||||
add d.ii
|
add d.ii
|
||||||
dac jumk
|
dac junk
|
||||||
jms aget
|
jms aget
|
||||||
add junk i
|
add junk i
|
||||||
dac junk
|
dac junk
|
||||||
|
|||||||
+1
-1
@@ -90,7 +90,7 @@ equ = equread
|
|||||||
equbot: equtab
|
equbot: equtab
|
||||||
equsiz = 500
|
equsiz = 500
|
||||||
equmax: equsiz
|
equmax: equsiz
|
||||||
dleta: 2
|
delta: 2
|
||||||
mdelta:0-2
|
mdelta:0-2
|
||||||
|
|
||||||
sbsiz=50
|
sbsiz=50
|
||||||
|
|||||||
+2
-2
@@ -62,7 +62,7 @@ floop1:
|
|||||||
-1
|
-1
|
||||||
tad name
|
tad name
|
||||||
dac 8
|
dac 8
|
||||||
r4
|
-4
|
||||||
dac c1
|
dac c1
|
||||||
1:
|
1:
|
||||||
lac 8 i
|
lac 8 i
|
||||||
@@ -583,4 +583,4 @@ dpon = 0704701
|
|||||||
dpof = 0704704
|
dpof = 0704704
|
||||||
dpwc = 0704722
|
dpwc = 0704722
|
||||||
dpop = 0704764
|
dpop = 0704764
|
||||||
dprs = 0704752
|
dprs = 0704752
|
||||||
|
|||||||
+1
-1
@@ -681,4 +681,4 @@ dpon = 0704701
|
|||||||
dpof = 0704704
|
dpof = 0704704
|
||||||
dpwc = 0704722
|
dpwc = 0704722
|
||||||
dpop = 0704764
|
dpop = 0704764
|
||||||
dprs = 0704752
|
dprs = 0704752
|
||||||
|
|||||||
+1
-1
@@ -248,8 +248,8 @@ proc3:
|
|||||||
proc4:
|
proc4:
|
||||||
jms error; .>
|
jms error; .>
|
||||||
lac d1
|
lac d1
|
||||||
dac dot " set '.' type to 1
|
|
||||||
"** 05-1-4.pdf page 36
|
"** 05-1-4.pdf page 36
|
||||||
|
dac dot " set '.' type to 1
|
||||||
dzm dot+1 " clear dot value
|
dzm dot+1 " clear dot value
|
||||||
jmp skip
|
jmp skip
|
||||||
|
|
||||||
|
|||||||
Reference in New Issue
Block a user