glm94/pdp7-unix
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

roff.s fixes from Angelo's version

Browse Source
This commit is contained in:
phil
2019-10-20 11:51:03 -04:00
parent 6a18a38510
commit c319307e23
2 changed files with 46 additions and 44 deletions
Download Patch File Download Diff File Expand all files Collapse all files
scans/roff.s
+23 -22
View File
@@ -1,4 +1,4 @@
" ** 11-45-91.pdf page 9 " ** 11-56-91.pdf page 9
" roff " roff
lac i 017777 lac i 017777
@@ -61,7 +61,7 @@ getchar: 0
skp skp
jmp 1f jmp 1f
-64 -64
" ** 11-45-91.pdf page 10 " ** 11-56-91.pdf page 10
dac 3f dac 3f
law ibuf-1 law ibuf-1
dac 15 dac 15
@@ -123,10 +123,10 @@ nextfile: 0
sys exit sys exit
2: 040077;012 2: 040077;012
1: 1:
" ** 11-45-91.pdf page 11 " ** 11-56-91.pdf page 11
dac input dac input
lac eibufp lac eibufp
dac otal dac ital
jmp i nextfile jmp i nextfile
getsc:0 getsc:0
@@ -167,7 +167,7 @@ dac i sctal
lacq lacq
jmp i putsc jmp i putsc
" conmtrol card decoder " control card decoder
control: 0 control: 0
law 2f-1 law 2f-1
dac 8 dac 8
@@ -185,7 +185,7 @@ control: 0
jmp i control jmp i control
2: 2:
ncase = 0 ncase = 0
" ** 11-45-91.pdf page 12 " ** 11-56-91.pdf page 12
<ad>; jmp casead; ncase = ncase+1 <ad>; jmp casead; ncase = ncase+1
<bp>; jmp casebp; ncase = ncase+1 <bp>; jmp casebp; ncase = ncase+1
<br>; jmp casebr; ncase = ncase+1 <br>; jmp casebr; ncase = ncase+1
@@ -247,7 +247,7 @@ caseds:
jmp i control jmp i control
casefi: casefi:
" ** 11-45-91.pdf page 13 " ** 11-56-91.pdf page 13
jms break jms break
-1 -1
dac fi dac fi
@@ -309,7 +309,7 @@ casene:
casenf: casenf:
jms break jms break
dzm fi dzm fi
" ** 11-45-91.pdf page 14 " ** 11-56-91.pdf page 14
jmp i control jmp i control
casepl: casepl:
@@ -371,7 +371,7 @@ skipcont: 0
lac i 8 lac i 8
sad o40 sad o40
jmp 1f jmp 1f
" ** 11-45-91.pdf page 15 " ** 11-56-91.pdf page 15
sad o12 sad o12
jmp 2f jmp 2f
jmp 1b jmp 1b
@@ -414,7 +414,7 @@ break: 0
lac o55 lac o55
jms putchar jms putchar
isz c isz c
jmp 1f jmp 1b
lac ma1 lac ma1
dac c dac c
1: 1:
@@ -433,7 +433,7 @@ break: 0
jms putchar jms putchar
isz c isz c
jmp 2b jmp 2b
" ** 11-45-91.pdf page 16 " ** 11-56-91.pdf page 16
1: 1:
lac i 8 lac i 8
jms putchar jms putchar
@@ -473,6 +473,8 @@ number: 0
jmp 3f jmp 3f
sad o53 sad o53
jmp 2f jmp 2f
sad o55
jmp 2f
tad om72 tad om72
sma sma
jmp 1b jmp 1b
@@ -493,7 +495,7 @@ number: 0
lac any lac any
sma sma
jmp 1f jmp 1f
" ** 11-45-91.pdf page 17 " ** 11-56-91.pdf page 17
lac d1 lac d1
isz number isz number
jmp i number jmp i number
@@ -555,7 +557,7 @@ storechar: 0
dac ne dac ne
-1 -1
tad nc tad nc
" ** 11-45-91.pdf page 18 " ** 11-56-91.pdf page 18
dac nc dac nc
jmp i storechar jmp i storechar
@@ -574,8 +576,6 @@ getword: 0
lmq lmq
jms width jms width
cma cma
jms width
cma
tad d1 tad d1
tad wne tad wne
dac wne dac wne
@@ -620,7 +620,7 @@ need: 0
dac 1f dac 1f
lac i need lac i need
jms laci jms laci
" ** 11-45-91.pdf page 19 " ** 11-56-91.pdf page 19
cll; mul; 1: 0 cll; mul; 1: 0
lacq lacq
tad nl tad nl
@@ -681,7 +681,7 @@ text: 0
lac i 8 lac i 8
sad o40 sad o40
skp skp
" ** 11-45-91.pdf page 20 " ** 11-56-91.pdf page 20
jmp 3f+1 jmp 3f+1
isz wch isz wch
jmp 1b jmp 1b
@@ -742,7 +742,7 @@ adjust: 0
jmp i adjust jmp i adjust
fill: 0 fill: 0
" ** 11-45-91.pdf page 21 " ** 11-56-91.pdf page 21
lac nrem lac nrem
sna sna
jmp 2f jmp 2f
@@ -804,7 +804,7 @@ undline: 0
dac 9 dac 9
1: 1:
lac i 8 lac i 8
" ** 11-45-91.pdf page 22 " ** 11-56-91.pdf page 22
dac i 9 dac i 9
sad o12 sad o12
jmp 1f jmp 1f
@@ -865,7 +865,7 @@ center: 0
dac i 9 dac i 9
isz c isz c
jmp 1b jmp 1b
" ** 11-45-91.pdf page 23 " ** 11-56-91.pdf page 23
1: 1:
lac i 8 lac i 8
dac i 9 dac i 9
@@ -900,7 +900,7 @@ nwd: 0
nl: 0 nl: 0
nc: 0 nc: 0
ne: 0 ne: 0
pl: 88 pl: 66
ad: -1 ad: -1
fi: -1 fi: -1
cc: .> cc: .>
@@ -921,11 +921,12 @@ d4: 4
dm4: -4 dm4: -4
d0: 0 d0: 0
dm1: -1 dm1: -1
c: .=.+1 c: .=.+1
nrem: .=.+1 nrem: .=.+1
ndiv: .=.+1 ndiv: .=.+1
num: .=.+1 num: .=.+1
" ** 11-45-91.pdf page 24 " ** 11-56-91.pdf page 24
any: .=.+1 any: .=.+1
ital: .=.+1 ital: .=.+1
otal: .=.+1 otal: .=.+1
src/cmd/roff.s
+23 -22
View File
@@ -1,4 +1,4 @@
" ** 11-45-91.pdf page 9 " ** 11-56-91.pdf page 9
" roff " roff
lac i 017777 lac i 017777
@@ -61,7 +61,7 @@ getchar: 0
skp skp
jmp 1f jmp 1f
-64 -64
" ** 11-45-91.pdf page 10 " ** 11-56-91.pdf page 10
dac 3f dac 3f
law ibuf-1 law ibuf-1
dac 15 dac 15
@@ -123,10 +123,10 @@ nextfile: 0
sys exit sys exit
2: 040077;012 2: 040077;012
1: 1:
" ** 11-45-91.pdf page 11 " ** 11-56-91.pdf page 11
dac input dac input
lac eibufp lac eibufp
dac otal dac ital
jmp i nextfile jmp i nextfile
getsc:0 getsc:0
@@ -167,7 +167,7 @@ dac i sctal
lacq lacq
jmp i putsc jmp i putsc
" conmtrol card decoder " control card decoder
control: 0 control: 0
law 2f-1 law 2f-1
dac 8 dac 8
@@ -185,7 +185,7 @@ control: 0
jmp i control jmp i control
2: 2:
ncase = 0 ncase = 0
" ** 11-45-91.pdf page 12 " ** 11-56-91.pdf page 12
<ad>; jmp casead; ncase = ncase+1 <ad>; jmp casead; ncase = ncase+1
<bp>; jmp casebp; ncase = ncase+1 <bp>; jmp casebp; ncase = ncase+1
<br>; jmp casebr; ncase = ncase+1 <br>; jmp casebr; ncase = ncase+1
@@ -247,7 +247,7 @@ caseds:
jmp i control jmp i control
casefi: casefi:
" ** 11-45-91.pdf page 13 " ** 11-56-91.pdf page 13
jms break jms break
-1 -1
dac fi dac fi
@@ -309,7 +309,7 @@ casene:
casenf: casenf:
jms break jms break
dzm fi dzm fi
" ** 11-45-91.pdf page 14 " ** 11-56-91.pdf page 14
jmp i control jmp i control
casepl: casepl:
@@ -371,7 +371,7 @@ skipcont: 0
lac i 8 lac i 8
sad o40 sad o40
jmp 1f jmp 1f
" ** 11-45-91.pdf page 15 " ** 11-56-91.pdf page 15
sad o12 sad o12
jmp 2f jmp 2f
jmp 1b jmp 1b
@@ -414,7 +414,7 @@ break: 0
lac o55 lac o55
jms putchar jms putchar
isz c isz c
jmp 1f jmp 1b
lac ma1 lac ma1
dac c dac c
1: 1:
@@ -433,7 +433,7 @@ break: 0
jms putchar jms putchar
isz c isz c
jmp 2b jmp 2b
" ** 11-45-91.pdf page 16 " ** 11-56-91.pdf page 16
1: 1:
lac i 8 lac i 8
jms putchar jms putchar
@@ -473,6 +473,8 @@ number: 0
jmp 3f jmp 3f
sad o53 sad o53
jmp 2f jmp 2f
sad o55
jmp 2f
tad om72 tad om72
sma sma
jmp 1b jmp 1b
@@ -493,7 +495,7 @@ number: 0
lac any lac any
sma sma
jmp 1f jmp 1f
" ** 11-45-91.pdf page 17 " ** 11-56-91.pdf page 17
lac d1 lac d1
isz number isz number
jmp i number jmp i number
@@ -555,7 +557,7 @@ storechar: 0
dac ne dac ne
-1 -1
tad nc tad nc
" ** 11-45-91.pdf page 18 " ** 11-56-91.pdf page 18
dac nc dac nc
jmp i storechar jmp i storechar
@@ -574,8 +576,6 @@ getword: 0
lmq lmq
jms width jms width
cma cma
jms width
cma
tad d1 tad d1
tad wne tad wne
dac wne dac wne
@@ -620,7 +620,7 @@ need: 0
dac 1f dac 1f
lac i need lac i need
jms laci jms laci
" ** 11-45-91.pdf page 19 " ** 11-56-91.pdf page 19
cll; mul; 1: 0 cll; mul; 1: 0
lacq lacq
tad nl tad nl
@@ -681,7 +681,7 @@ text: 0
lac i 8 lac i 8
sad o40 sad o40
skp skp
" ** 11-45-91.pdf page 20 " ** 11-56-91.pdf page 20
jmp 3f+1 jmp 3f+1
isz wch isz wch
jmp 1b jmp 1b
@@ -742,7 +742,7 @@ adjust: 0
jmp i adjust jmp i adjust
fill: 0 fill: 0
" ** 11-45-91.pdf page 21 " ** 11-56-91.pdf page 21
lac nrem lac nrem
sna sna
jmp 2f jmp 2f
@@ -804,7 +804,7 @@ undline: 0
dac 9 dac 9
1: 1:
lac i 8 lac i 8
" ** 11-45-91.pdf page 22 " ** 11-56-91.pdf page 22
dac i 9 dac i 9
sad o12 sad o12
jmp 1f jmp 1f
@@ -865,7 +865,7 @@ center: 0
dac i 9 dac i 9
isz c isz c
jmp 1b jmp 1b
" ** 11-45-91.pdf page 23 " ** 11-56-91.pdf page 23
1: 1:
lac i 8 lac i 8
dac i 9 dac i 9
@@ -900,7 +900,7 @@ nwd: 0
nl: 0 nl: 0
nc: 0 nc: 0
ne: 0 ne: 0
pl: 88 pl: 66
ad: -1 ad: -1
fi: -1 fi: -1
cc: .> cc: .>
@@ -921,11 +921,12 @@ d4: 4
dm4: -4 dm4: -4
d0: 0 d0: 0
dm1: -1 dm1: -1
c: .=.+1 c: .=.+1
nrem: .=.+1 nrem: .=.+1
ndiv: .=.+1 ndiv: .=.+1
num: .=.+1 num: .=.+1
" ** 11-45-91.pdf page 24 " ** 11-56-91.pdf page 24
any: .=.+1 any: .=.+1
ital: .=.+1 ital: .=.+1
otal: .=.+1 otal: .=.+1