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

Merge pull request #13 from decuser/master

Browse Source 
finished reviewing a*s and *.b
This commit is contained in:
Will Senn
2016-03-01 10:21:52 -06:00
parent 2af2802335 55e638c9fb
commit 2a6f756f93
5 changed files with 79 additions and 27 deletions
Download Patch File Download Diff File Expand all files Collapse all files
scans/adm.s
+12 -2
View File
@@ -1,3 +1,4 @@
"** 05-1-4.pdf page 2
" adm " adm
lac 017777 i lac 017777 i
@@ -54,12 +55,13 @@ floop1:
tad d4 tad d4
dac name dac name
sys open; name; ..; 0 sys open; name: ..; 0
spa spa
jmp ferror jmp ferror
dac fi dac fi
-1 -1
"** 05-1-4.pdf page 3
tad name tad name
dac 8 dac 8
r4 r4
@@ -121,6 +123,7 @@ eof:
dac buf+3 " final check sum dac buf+3 " final check sum
jms putcard jms putcard
jmp floop jmp floop
"** 05-1-4.pdf page 4
getword: 0 getword: 0
lac ipt lac ipt
@@ -182,6 +185,7 @@ putcard: 0
jmp floop jmp floop
"** 05-1-4.pdf page 5
ferror: ferror:
lac name lac name
dac 1f dac 1f
@@ -189,7 +193,7 @@ ferror:
sys write; 1:..; 4 sys write; 1:..; 4
lac d1 lac d1
sys write; 1f; 1 sys write; 1f; 1
fmp floop1 jmp floop1
1: 077012 1: 077012
hangup: hangup:
@@ -249,6 +253,7 @@ flush: 0
law tbuf law tbuf
dac opt dac opt
dzm noc dzm noc
"** 05-1-4.pdf page 6
jmp flush i jmp flush i
gcard: 0 gcard: 0
@@ -304,6 +309,7 @@ putw: 0
1: 0 1: 0
putc: 0 putc: 0
"** 05-1-4.pdf page 7
and o177 and o177
dac opt i dac opt i
-0141 -0141
@@ -364,6 +370,7 @@ connect: 0
and ilock and ilock
sna sna
jmp 1b jmp 1b
"** 05-1-4.pdf page 8
law 041 law 041
dac echoch dac echoch
law 0102 law 0102
@@ -425,6 +432,7 @@ retry:
jms transch jms transch
isz c2 isz c2
jmp 1b jmp 1b
"** 05-1-4.pdf page 9
" put out etx character " put out etx character
2: 2:
@@ -486,6 +494,7 @@ retry:
lac opch lac opch
sad o122 sad o122
jmp i message jmp i message
"** 05-1-4.pdf page 10
lac distlg lac distlg
sna sna
jmp discon jmp discon
@@ -547,6 +556,7 @@ d14: 14
o400000: 0400000 o400000: 0400000
o577777: 0577777 o577777: 0577777
o200500: 0200500 o200500: 0200500
"** 05-1-4.pdf page 11
o122: 0122 o122: 0122
o3: 3 o3: 3
o2: 2 o2: 2
scans/ald.s
+7 -2
View File
@@ -1,3 +1,4 @@
"** 05-1-4.pdf page 13
" ald " ald
law 17 law 17
@@ -60,6 +61,7 @@ cloop:
tad buf+2 tad buf+2
cma cma
dac c1 dac c1
"** 05-1-4.pdf page 14
law buf+3 law buf+3
dac 10 dac 10
1: 1:
@@ -86,7 +88,7 @@ cloop:
holcard: 0 holcard: 0
jms rawcard jms rawcard
lac 1f lac 1f
dac buff dac buf
lac 1f+1 lac 1f+1
dac buf+1 dac buf+1
lac 1f+2 lac 1f+2
@@ -121,6 +123,7 @@ bincard: 0
xor 1f+2 xor 1f+2
dac 9 i dac 9 i
isz c isz c
"** 05-1-4.pdf page 15
jmp 1b jmp 1b
jmp bincard i jmp bincard i
1: 0;0;0 1: 0;0;0
@@ -160,7 +163,7 @@ badcksum:
lac d1 lac d1
sys write; m1; m1s sys write; m1; m1s
jms wait jms wait
cmp cloop jmp cloop
badseq: badseq:
lac d1 lac d1
@@ -182,6 +185,7 @@ timeout:
m1: m1:
<ba>;<d 040; <ch>;<ec>;<ks>;<um>; 012 <ba>;<d 040; <ch>;<ec>;<ks>;<um>; 012
"** 05-1-4.pdf page 16
m1s = .-m1 m1s = .-m1
m2: m2:
@@ -242,6 +246,7 @@ sum: .=.+1
obuf: .=.+2048 obuf: .=.+2048
noc: .=.+1 noc: .=.+1
opt: .=.+1 opt: .=.+1
"** 05-1-4.pdf page 17
systime: .=.+1 systime: .=.+1
crread: .=.+1 crread: .=.+1
crchar: .=.+1 crchar: .=.+1
scans/apr.s
+40 -21
View File
@@ -1,3 +1,4 @@
"** 05-1-4.pdf page 19
" apr " apr
lac 017777 i lac 017777 i
@@ -60,9 +61,10 @@ floop1:
dac 017777 i dac 017777 i
lac name lac name
tad d4 tad d4
"** 05-1-4.pdf page 20
dac name dac name
sys open; name; ..; 0 sys open; name: ..; 0
spa spa
jmp ferror jmp ferror
dac fi dac fi
@@ -72,7 +74,7 @@ ferror:
lac name lac name
dac 1f dac 1f
lac d1 lac d1
sys write; 1;..; 4 sys write; 1:..; 4
lac d1 lac d1
sys write; 1f; 1 sys write; 1f; 1
jmp floop1 jmp floop1
@@ -99,6 +101,13 @@ cloop:
jmp pass2 jmp pass2
sad o10 sad o10
jmp bksp jmp bksp
" -------------- sad o11
" jmp tab "tab:
" "isz eol
" "lac col
" "ell: >div; 5
" "jmp tab
" "jmp ell
sad o15 sad o15
jmp cret jmp cret
sad o40 sad o40
@@ -121,6 +130,7 @@ inb2:
dac t dac t
dac crflg dac crflg
lac ch lac ch
"** 05-1-4.pdf page 21
dac t i dac t i
isz col isz col
jmp cloop jmp cloop
@@ -134,7 +144,7 @@ bksp:
jmp cloop jmp cloop
cret: cret:
czm col dzm col
jmp cloop jmp cloop
pass2: pass2:
@@ -182,6 +192,7 @@ p2loop:
lac t i lac t i
sad o44 sad o44
jmp dol jmp dol
"** 05-1-4.pdf page 22
sad o41 sad o41
law 045 law 045
sad o77 sad o77
@@ -243,6 +254,7 @@ p2test:
getc: 0 getc: 0
lac ipt lac ipt
"** 05-1-4.pdf page 23
sad eipt sad eipt
jmp 1f jmp 1f
dac 2f dac 2f
@@ -278,6 +290,7 @@ hangup:
abort: abort:
lac d1 lac d1
sys write; m2; m2s sys write; m2; m2s
jmp stop
nofiles: nofiles:
lac d1 lac d1
@@ -303,6 +316,7 @@ m3s = .-m3
m4: m4:
<di>;<sc>;<on>;<ne>;<ct>;<ed>;012 <di>;<sc>;<on>;<ne>;<ct>;<ed>;012
m4s = .-m4 m4s = .-m4
"** 05-1-4.pdf page 24
stop: stop:
dpof dpof
@@ -317,7 +331,7 @@ noc: 0
carrier: 0100000 carrier: 0100000
ilock: 040000 ilock: 040000
totime: 300 totime: 300
disflg: 0 disflg: 0 " 2: both cases
casetab: casetab:
2;2;2;2;2;2;2;2 2;2;2;2;2;2;2;2
@@ -327,9 +341,9 @@ casetab:
2;1;2;2;2;0;0;2 2;1;2;2;2;0;0;2
2;2;2;2;2;0;2;2 2;2;2;2;2;0;2;2
2;2;2;2;2;2;2;2 2;2;2;2;2;2;2;2
2;2;2;2;2;2;2;1 2;2;2;2;2;2;2;1 " 0 - 100 case
0;0;0;0;0;0;0;0 0;0;0;0;0;0;0;0 " 1 - 200 case
0;0;0;0;0;0;0;0 0;0;0;0;0;0;0;0 " 2 - 300 case
0;0;0;0;0;0;0;0 0;0;0;0;0;0;0;0
0;0;0;0;0;0;2;1 0;0;0;0;0;0;2;1
2;1;1;1;1;1;1;1 2;1;1;1;1;1;1;1
@@ -341,15 +355,15 @@ gcard: 0
lac gcard i lac gcard i
isz gcard isz gcard
sna sna
jmp gcard i jmp gcard i "circled with 3f written in and to the right:
irss 9 lrss 9 "3: lac noc
sad o45 sad o45 "sna
jmp 1f jmp 1f "jmp gcard i
jms putc jms putc "sad d80
jmp gcard+1 jmp gcard+1 "jmp gcard i
1: 1: "law 040
-1 -1 "jms putc
tad gcard i tad gcard i "jmp 3b
cma cma
dac 2f dac 2f
isz gcard isz gcard
@@ -364,6 +378,7 @@ gcard: 0
done: done:
lac noc lac noc
sna sna
"** 05-1-4.pdf page 25
jmp 1f jmp 1f
sad d72 sad d72
jmp 1f jmp 1f
@@ -425,6 +440,7 @@ connect: 0
dac dpwrite dac dpwrite
tad d1 tad d1
dac dpchar dac dpchar
"** 05-1-4.pdf page 26
dzm dpstat i dzm dpstat i
las las
dac opch dac opch
@@ -449,14 +465,14 @@ message: 0
dac stsch dac stsch
retry: retry:
lac dpstat i lac dpstat i "* lac dpstat crossed through and dpstart written in
and carrier and carrier
sza sza
jmp retry jmp retry
dprs dprs
and ilock and ilock "* arrow to note carrier drops + iloc
sna sna "* carrier = 0
jmp hangup jmp hangup "* ilock = 1
lac d1 lac d1
dac dpwrite i dac dpwrite i
sys time sys time
@@ -485,7 +501,7 @@ retry:
" echo the sequence character " echo the sequence character
lac echoch lac echoch
jms transch jms transch
"** 05-1-4.pdf page 27
" if there is a buffer pointer " if there is a buffer pointer
" put out 160 words of data " put out 160 words of data
-1 -1
@@ -546,6 +562,7 @@ retry:
and o177 and o177
sza sza
jmp error jmp error
"** 05-1-4.pdf page 28
" and exit " and exit
lac seqch lac seqch
@@ -607,6 +624,7 @@ recvch: 0
checktim: 0 checktim: 0
lac systime i lac systime i
"** 05-1-4.pdf page 29
cma cma
tad rctim tad rctim
spa spa
@@ -668,6 +686,7 @@ echoch: .=.+1
seqch: .=.+1 seqch: .=.+1
tbuf: .=.+144 tbuf: .=.+144
rbuf: .=.+64 rbuf: .=.+64
"** 05-1-4.pdf page 30
rctim: .=.+1 rctim: .=.+1
sum: .=.+1 sum: .=.+1
ch: .=.+1 ch: .=.+1
scans/as.s
+18 -2
View File
@@ -1,3 +1,4 @@
"** 05-1-4.pdf page 32
" as " as
jms init1 jms init1
@@ -60,6 +61,7 @@ assm3:
dzm name+3 dzm name+3
jms tlookup jms tlookup
-1 -1
"** 05-1-4.pdf page 33
dac fbflg dac fbflg
assm4: assm4:
lac rand+1 lac rand+1
@@ -121,6 +123,7 @@ init1: 0
init2: 0 init2: 0
lac d1 lac d1
"** 05-1-4.pdf page 34
dac passno dac passno
sys write; 1f; 2f-1f sys write; 1f; 2f-1f
jms init jms init
@@ -181,7 +184,7 @@ finis:
lac bfi lac bfi
sys close sys close
sys exit sys exit
"** 05-1-4.pdf page 35
n.out: n.out:
0156056;0157165;0164040;040040 0156056;0157165;0164040;040040
@@ -243,6 +246,7 @@ proc3:
proc4: proc4:
jms error; .> jms error; .>
lac d1 lac d1
"** 05-1-4.pdf page 34
dac dot dac dot
dzm dot+1 dzm dot+1
jmp skip jmp skip
@@ -261,7 +265,7 @@ bufwr: 0
dac maxsto dac maxsto
jmp i bufwr jmp i bufwr
number: 0 :number: 0
dac 3f dac 3f
lac d1000 lac d1000
dac 2f dac 2f
@@ -304,6 +308,7 @@ putsc: 0
lac i putsc lac i putsc
dac sctalp dac sctalp
isz putsc isz putsc
"** 05-1-4.pdf page 37
lac i sctalp lac i sctalp
dac sctal dac sctal
add o400000 add o400000
@@ -365,6 +370,7 @@ copyz: 0
isz 2f isz 2f
jmp 1b jmp 1b
jmp i copyz jmp i copyz
"** 05-1-4.pdf page 38
2: 0 2: 0
error: 0 error: 0
@@ -426,6 +432,7 @@ ioinit: 0
dac tal dac tal
-129 -129
dac talc dac talc
"** 05-1-4.pdf page 39
jmp i ioinit jmp i ioinit
nextfil: 0 nextfil: 0
@@ -487,6 +494,7 @@ gchar: 0
jms getsc; tal jms getsc; tal
sna sna
jmp gchar+1 jmp gchar+1
"** 05-1-4.pdf page 40
sad o177 sad o177
jmp gchar+1 jmp gchar+1
sad o12 sad o12
@@ -548,6 +556,7 @@ badchr:
jms gchar jms gchar
lac char lac char
sad o12 sad o12
"** 05-1-4.pdf page 41
skp skp
jmp 1b jmp 1b
dac savchr dac savchr
@@ -609,6 +618,7 @@ gnam3:
dac savchr dac savchr
1: 1:
lac o40 lac o40
"** 05-1-4.pdf page 42
jms putsc; tal1 jms putsc; tal1
isz tal1c isz tal1c
jmp 1b jmp 1b
@@ -670,6 +680,7 @@ tlookup: 0
lookup: 0 lookup: 0
dzm tlookup dzm tlookup
1: 1:
"** 05-1-4.pdf page 43
-1 -1
tad namlstp tad namlstp
dac 8 dac 8
@@ -731,6 +742,7 @@ lu2:
-3 -3
tad 8 tad 8
dac rand+1 dac rand+1
"** 05-1-4.pdf page 44
lac tlookup lac tlookup
sza sza
jmp i tlookup jmp i tlookup
@@ -792,6 +804,7 @@ exp1:
jms grand jms grand
lac orator lac orator
sad d4 sad d4
"** 05-1-4.pdf page 45
jmp exp2 jmp exp2
jms oper; rand jms oper; rand
jmp exp1 jmp exp1
@@ -853,6 +866,7 @@ opsw:
jmp .-1 jmp .-1
jmp oplus jmp oplus
jmp ominus jmp ominus
"** 05-1-4.pdf page 46
tad r tad r
dac r dac r
lac r+1 lac r+1
@@ -914,6 +928,7 @@ o142: 0142
o40040: 040040 o40040: 040040
o56056: 056056 o56056: 056056
o56040: 056040 o56040: 056040
"** 05-1-4.pdf page 47
o146: 0146 o146: 0146
o17777: 017777 o17777: 017777
d1000: 1000 d1000: 1000
@@ -975,6 +990,7 @@ lineno: .=.+1
fakename: .=.+6 fakename: .=.+6
namlst: namlst:
.=.+4 .=.+4
"** 05-1-4.pdf page 48
dot: dot:
.=.+6 .=.+6
cmflx: cmflx:
src/cmd/lcase.b
+2
View File
@@ -1,3 +1,4 @@
/* ** 08-rest.pdf page 4 */
main $( main $(
auto ch; auto ch;
extrn read, write; extrn read, write;
@@ -8,6 +9,7 @@ main $(
ch = ch + 040; ch = ch + 040;
if (ch==015) goto loop; if (ch==015) goto loop;
if (ch==014) goto loop; if (ch==014) goto loop;
/* -->------------------------> if (ch == 0177) goto loop; */
if (ch==011) if (ch==011)
$( ch = 040040; $( ch = 040040;
write(040040); write(040040);