github.com/livingcomputermuseum.pdp7-unix
1
0
Fork 0
mirror of https://github.com/livingcomputermuseum/pdp7-unix.git synced 2026-04-26 04:07:24 +00:00
Code Issues Releases Wiki Activity

reviewed a*s and the two .b files

Browse Source
This commit is contained in:
Will Senn
2016-03-01 10:17:34 -06:00
parent 220f87efed
commit 4914fc5dc8
5 changed files with 85 additions and 33 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
scans/adm.s
View File

@@ -1,3 +1,4 @@
"** 05-1-4.pdf page 2
" adm
lac 017777 i
@@ -54,12 +55,13 @@ floop1:
tad d4
dac name
sys open; name; ..; 0
sys open; name: ..; 0
spa
jmp ferror
dac fi
-1
"** 05-1-4.pdf page 3
tad name
dac 8
r4
@@ -121,6 +123,7 @@ eof:
dac buf+3 " final check sum
jms putcard
jmp floop
"** 05-1-4.pdf page 4
getword: 0
lac ipt
@@ -182,6 +185,7 @@ putcard: 0
jmp floop
"** 05-1-4.pdf page 5
ferror:
lac name
dac 1f
@@ -189,7 +193,7 @@ ferror:
sys write; 1:..; 4
lac d1
sys write; 1f; 1
fmp floop1
jmp floop1
1: 077012
hangup:
@@ -249,6 +253,7 @@ flush: 0
law tbuf
dac opt
dzm noc
"** 05-1-4.pdf page 6
jmp flush i
gcard: 0
@@ -304,6 +309,7 @@ putw: 0
1: 0
putc: 0
"** 05-1-4.pdf page 7
and o177
dac opt i
-0141
@@ -364,6 +370,7 @@ connect: 0
and ilock
sna
jmp 1b
"** 05-1-4.pdf page 8
law 041
dac echoch
law 0102
@@ -425,6 +432,7 @@ retry:
jms transch
isz c2
jmp 1b
"** 05-1-4.pdf page 9
" put out etx character
2:
@@ -486,6 +494,7 @@ retry:
lac opch
sad o122
jmp i message
"** 05-1-4.pdf page 10
lac distlg
sna
jmp discon
@@ -547,6 +556,7 @@ d14: 14
o400000: 0400000
o577777: 0577777
o200500: 0200500
"** 05-1-4.pdf page 11
o122: 0122
o3: 3
o2: 2

9
scans/ald.s
View File

@@ -1,3 +1,4 @@
"** 05-1-4.pdf page 13
" ald
law 17
@@ -60,6 +61,7 @@ cloop:
tad buf+2
cma
dac c1
"** 05-1-4.pdf page 14
law buf+3
dac 10
1:
@@ -86,7 +88,7 @@ cloop:
holcard: 0
jms rawcard
lac 1f
dac buff
dac buf
lac 1f+1
dac buf+1
lac 1f+2
@@ -121,6 +123,7 @@ bincard: 0
xor 1f+2
dac 9 i
isz c
"** 05-1-4.pdf page 15
jmp 1b
jmp bincard i
1: 0;0;0
@@ -160,7 +163,7 @@ badcksum:
lac d1
sys write; m1; m1s
jms wait
cmp cloop
jmp cloop
badseq:
lac d1
@@ -182,6 +185,7 @@ timeout:
m1:
<ba>;<d 040; <ch>;<ec>;<ks>;<um>; 012
"** 05-1-4.pdf page 16
m1s = .-m1
m2:
@@ -242,6 +246,7 @@ sum: .=.+1
obuf: .=.+2048
noc: .=.+1
opt: .=.+1
"** 05-1-4.pdf page 17
systime: .=.+1
crread: .=.+1
crchar: .=.+1

61
scans/apr.s
View File

@@ -1,3 +1,4 @@
"** 05-1-4.pdf page 19
" apr
lac 017777 i
@@ -60,9 +61,10 @@ floop1:
dac 017777 i
lac name
tad d4
"** 05-1-4.pdf page 20
dac name
sys open; name; ..; 0
sys open; name: ..; 0
spa
jmp ferror
dac fi
@@ -72,7 +74,7 @@ ferror:
lac name
dac 1f
lac d1
sys write; 1;..; 4
sys write; 1:..; 4
lac d1
sys write; 1f; 1
jmp floop1
@@ -99,6 +101,13 @@ cloop:
jmp pass2
sad o10
jmp bksp
" -------------- sad o11
" jmp tab "tab:
" "isz eol
" "lac col
" "ell: >div; 5
" "jmp tab
" "jmp ell
sad o15
jmp cret
sad o40
@@ -121,6 +130,7 @@ inb2:
dac t
dac crflg
lac ch
"** 05-1-4.pdf page 21
dac t i
isz col
jmp cloop
@@ -134,7 +144,7 @@ bksp:
jmp cloop
cret:
czm col
dzm col
jmp cloop
pass2:
@@ -182,6 +192,7 @@ p2loop:
lac t i
sad o44
jmp dol
"** 05-1-4.pdf page 22
sad o41
law 045
sad o77
@@ -243,6 +254,7 @@ p2test:
getc: 0
lac ipt
"** 05-1-4.pdf page 23
sad eipt
jmp 1f
dac 2f
@@ -278,6 +290,7 @@ hangup:
abort:
lac d1
sys write; m2; m2s
jmp stop
nofiles:
lac d1
@@ -303,6 +316,7 @@ m3s = .-m3
m4:
<di>;<sc>;<on>;<ne>;<ct>;<ed>;012
m4s = .-m4
"** 05-1-4.pdf page 24
stop:
dpof
@@ -317,7 +331,7 @@ noc: 0
carrier: 0100000
ilock: 040000
totime: 300
disflg: 0
disflg: 0 " 2: both cases
casetab:
2;2;2;2;2;2;2;2
@@ -327,9 +341,9 @@ casetab:
2;1;2;2;2;0;0;2
2;2;2;2;2;0;2;2
2;2;2;2;2;2;2;2
2;2;2;2;2;2;2;1
0;0;0;0;0;0;0;0
0;0;0;0;0;0;0;0
2;2;2;2;2;2;2;1 " 0 - 100 case
0;0;0;0;0;0;0;0 " 1 - 200 case
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;2;1
2;1;1;1;1;1;1;1
@@ -341,15 +355,15 @@ gcard: 0
lac gcard i
isz gcard
sna
jmp gcard i
irss 9
sad o45
jmp 1f
jms putc
jmp gcard+1
1:
-1
tad gcard i
jmp gcard i "circled with 3f written in and to the right:
lrss 9 "3: lac noc
sad o45 "sna
jmp 1f "jmp gcard i
jms putc "sad d80
jmp gcard+1 "jmp gcard i
1: "law 040
-1 "jms putc
tad gcard i "jmp 3b
cma
dac 2f
isz gcard
@@ -364,6 +378,7 @@ gcard: 0
done:
lac noc
sna
"** 05-1-4.pdf page 25
jmp 1f
sad d72
jmp 1f
@@ -425,6 +440,7 @@ connect: 0
dac dpwrite
tad d1
dac dpchar
"** 05-1-4.pdf page 26
dzm dpstat i
las
dac opch
@@ -449,14 +465,14 @@ message: 0
dac stsch
retry:
lac dpstat i
lac dpstat i "* lac dpstat crossed through and dpstart written in
and carrier
sza
jmp retry
dprs
and ilock
sna
jmp hangup
and ilock "* arrow to note carrier drops + iloc
sna "* carrier = 0
jmp hangup "* ilock = 1
lac d1
dac dpwrite i
sys time
@@ -485,7 +501,7 @@ retry:
" echo the sequence character
lac echoch
jms transch
"** 05-1-4.pdf page 27
" if there is a buffer pointer
" put out 160 words of data
-1
@@ -546,6 +562,7 @@ retry:
and o177
sza
jmp error
"** 05-1-4.pdf page 28
" and exit
lac seqch
@@ -607,6 +624,7 @@ recvch: 0
checktim: 0
lac systime i
"** 05-1-4.pdf page 29
cma
tad rctim
spa
@@ -668,6 +686,7 @@ echoch: .=.+1
seqch: .=.+1
tbuf: .=.+144
rbuf: .=.+64
"** 05-1-4.pdf page 30
rctim: .=.+1
sum: .=.+1
ch: .=.+1

32
scans/as.s
View File

@@ -1,3 +1,4 @@
"** 05-1-4.pdf page 32
" as
jms init1
@@ -60,6 +61,7 @@ assm3:
dzm name+3
jms tlookup
-1
"** 05-1-4.pdf page 33
dac fbflg
assm4:
lac rand+1
@@ -121,6 +123,7 @@ init1: 0
init2: 0
lac d1
"** 05-1-4.pdf page 34
dac passno
sys write; 1f; 2f-1f
jms init
@@ -181,7 +184,7 @@ finis:
lac bfi
sys close
sys exit
"** 05-1-4.pdf page 35
n.out:
0156056;0157165;0164040;040040
@@ -220,7 +223,7 @@ proc1:
sys read; buf; 64
proc2:
lac lyrand
lac lvrand
and o77
jms betwen; dm1; maxsto
dac maxsto
@@ -243,6 +246,7 @@ proc3:
proc4:
jms error; .>
lac d1
"** 05-1-4.pdf page 34
dac dot
dzm dot+1
jmp skip
@@ -256,12 +260,12 @@ bufwr: 0
sys seek; bufadd: 0; 0
isz maxsto
lac bfo
sys write; bufp: buf; maxstp: -1
sys write; bufp: buf; maxsto: -1
-1
dac maxsto
jmp i bufwr
Xnumber: 0
:number: 0
dac 3f
lac d1000
dac 2f
@@ -304,6 +308,7 @@ putsc: 0
lac i putsc
dac sctalp
isz putsc
"** 05-1-4.pdf page 37
lac i sctalp
dac sctal
add o400000
@@ -334,7 +339,7 @@ betwen: 0
cma
tad 2f
spa
jmp 2f
jmp 1f
lac i betwen
dac 3f
isz betwen
@@ -365,6 +370,7 @@ copyz: 0
isz 2f
jmp 1b
jmp i copyz
"** 05-1-4.pdf page 38
2: 0
error: 0
@@ -426,6 +432,7 @@ ioinit: 0
dac tal
-129
dac talc
"** 05-1-4.pdf page 39
jmp i ioinit
nextfil: 0
@@ -487,18 +494,19 @@ gchar: 0
jms getsc; tal
sna
jmp gchar+1
"** 05-1-4.pdf page 40
sad o177
jmp gchar+1
sad o12
skp
jmp 1f
dzm comflc
dzm comflg
isz lineno
1:
sad o42
dac comflc
dac comflg
dac char
lac comflc
lac comflg
sza
jmp gchar+1
lac char
@@ -548,6 +556,7 @@ badchr:
jms gchar
lac char
sad o12
"** 05-1-4.pdf page 41
skp
jmp 1b
dac savchr
@@ -609,6 +618,7 @@ gnam3:
dac savchr
1:
lac o40
"** 05-1-4.pdf page 42
jms putsc; tal1
isz tal1c
jmp 1b
@@ -670,6 +680,7 @@ tlookup: 0
lookup: 0
dzm tlookup
1:
"** 05-1-4.pdf page 43
-1
tad namlstp
dac 8
@@ -731,6 +742,7 @@ lu2:
-3
tad 8
dac rand+1
"** 05-1-4.pdf page 44
lac tlookup
sza
jmp i tlookup
@@ -792,6 +804,7 @@ exp1:
jms grand
lac orator
sad d4
"** 05-1-4.pdf page 45
jmp exp2
jms oper; rand
jmp exp1
@@ -853,6 +866,7 @@ opsw:
jmp .-1
jmp oplus
jmp ominus
"** 05-1-4.pdf page 46
tad r
dac r
lac r+1
@@ -914,6 +928,7 @@ o142: 0142
o40040: 040040
o56056: 056056
o56040: 056040
"** 05-1-4.pdf page 47
o146: 0146
o17777: 017777
d1000: 1000
@@ -975,6 +990,7 @@ lineno: .=.+1
fakename: .=.+6
namlst:
.=.+4
"** 05-1-4.pdf page 48
dot:
.=.+6
cmflx:

2
scans/lease.b
View File

@@ -1,3 +1,4 @@
/* ** 08-rest.pdf page 4 */
main $(
auto ch;
extrn read, write;
@@ -8,6 +9,7 @@ main $(
ch = ch + 040;
if (ch==015) goto loop;
if (ch==014) goto loop;
/* -->------------------------> if (ch == 0177) goto loop; */
if (ch==011)
$( ch = 040040;
write(040040);