github.com/DoctorWkt.pdp7-unix
1
0
Fork 0
mirror of https://github.com/DoctorWkt/pdp7-unix.git synced 2026-02-09 18:01:25 +00:00
Code Issues Releases Wiki Activity

Merge branch 'master' of https://github.com/DoctorWkt/pdp7-unix

Browse Source
This commit is contained in:
Tom Everett
2019-10-19 10:00:04 -06:00
parent 532a2fcfe3 f276909d3d
commit b97d56a700
3 changed files with 349 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
scans/README.md
View File

@@ -73,3 +73,5 @@ Details of the files:
* un.s page 18 of 14-148-165.pdf
* scope.v pages 3-18 of 03-scope.pdf
* op.s page 35 of 09-1-35.pdf
* ln.s pages 15-16 of 09-1-35.pdf
* nm.s pages 31-34 of 09-1-35.pdf

105
scans/ln.s Normal file
View File

@@ -0,0 +1,105 @@
"** 09-1-35.pdf page 15
" ln
lac 017777 i
sad d4
jmp error
lac 017777
tad d1
dac dirn
lac dirn i
sad qli
jmp clink
lac 017777
tad d5
dac dirn
dac name
loop:
lac 017777 i
sad d8
sys exit
tad dm4
dac 017777 i
lac name
tad d4
dac name
dac name1
sys link; dirn; 0; name: 0; name1: 0
sma
jmp loop
lac name
dac 1f
lac d1
sys write; 1: 0; 4
lac d1
sys write; errmes; 2
jmp loop
clink:
lac 017777 i
sad d8
jmp arg1
sad d12
jmp arg2
sad d16
jmp arg3
error:
lac d1
sys write; errmes+1; 1
sys exit
arg1:
lac 017777
tad d5
dac larg+1
dac larg+2
jmp dlink
arg2:
lac 017777
tad d5
dac larg
tad d4
"** 14-148-165.pdf page 16
dac larg+1
dac larg+2
jmp dlink
arg3:
lac 017777
tad d5
dac larg
tad d4
dac larg+1
tad d4
dac larg+2
dlink:
sys link; larg; defdir;0;0
sma
sys exit
lac larg
dac 1f
lac larg+1
dac 2f
lac larg+2
dac 3f
lac d1
sys write; 1:..; 4
lac d1
sys write; 2:..; 4
lac d1
sys write; 3:..; 4
lac d1
sys write; errmes; 2
sys exit
errmes:
040; 077012
d1: 1
qli: <li>
d12: 12
d16: 16
defdir: <sy>;<st>;<em>;040040
d4: 4
d8: 8
dm4: -4
d5: 5

242
scans/nm.s Normal file
View File

@@ -0,0 +1,242 @@
"** 09-1-35.pdf page 31
" nm
lac 017777 i
sad d3
skp
jmp 1f
law n.out
dac fname
jmp 2f
1:
lac 017777
tad d1
dac fname
loop:
lac 017777 i
sad d4
jmp done
tad dm4
dac 017777 i
lac fname
tad d4
dac fname
2:
law 012
jms putc
sys open; fname: 0; 0
sma
jmp 1f
lac fname
dac 2f
lac d1
sys write; 2: 0; 4
lac d1
sys write; mes; 2
jmp loop
mes:
040077; 012
1:
lac d2
sys read; buf; 3072
cll; idiv; 6
lacq
dac size
law o200000
dac c2
print:
lac o200000
dac c2 i
dzm c2name
-1
tad size
cma
dac c1
law buf
dac c3
lac o200000
dac c2name
1:
lac c3 i
"** 09-1-35.pdf page 32
cma
tad c2name
spa
jmp 2f
lac c3 i
dac c2name
lac c3
dac c2
2:
law 6
tad c3
dac c3
isz c1
jmp 1b
lac c2name
sad o200000
skp
jmp 1f
lac d2
sys close
jmp loop
1:
lac c2
tad d3
dac t
lac i t
sna
jmp print
isz t
lac i t
sna
jmp print
-1
tad c2
dac 8
-4
dac c3
1:
lac 8 i
lrss 9
jms putc
llss 9
jms putc
isz c3
jmp 1b
lac i t
sad d3
jmp undef
sna
jmp 1f
law 0162
skp
1:
law 0141
dac type
law 040
jms putc
isz t
lac i t
lmq
"** 09-1-35.pdf page 33
-6
dac c3
1:
cla
llss 3
tad o60
jms putc
isz c3
jmp 1b
law 040
jms putc
lac type
jms putc
law 012
jms putc
jmp print
undef:
-8
dac c3
1:
law 040
jms putc
isz c3
jmp 1b
law 0165
jms putc
law 012
jms putc
jmp print
done:
lac noc
sna
sys exit
and d1
sna cla
jmp 1f
jms putc
jmp done
1:
lac noc
rcr
dac 1f
lac fo
sys write; iopt+1; 1:..
sys exit
putc: 0
and o777
dac 2f+1
lac opt
dac 2f
add o400000
dac opt
spa
jmp 1f
lac 2f i
xor 2f+1
jmp 3f
1:
lac 2f+1
"** 09-1-35.pdf page 34
alss 9
3:
dac 2f i
isz noc
lac noc
sad d128
skp
jmp putc i
lac fo
sys write; iopt+1; 64
lac iopt
dac opt
dzm noc
jmp putc i
2: 0;0
ipt: 0
eipt: 0
iipt: .+1; .=.+64
fi: 0
opt: .+2
iopt: .+1; .=.+64
noc: 0
fo: 1
c1: 0
c2: 0
c3: 0
t: 0
size: 0
c2name: 0
type: 0
d1: 1
d128: 128
o200000: 0200000
o777: 0777
o400000: 0400000
d2: 2
d4: 4
dm4: -4
o60: 060
d3: 3
d6: 6
n.out:
0156056;0157165;0164040;040040
buf: