1
0
mirror of https://github.com/livingcomputermuseum/pdp7-unix.git synced 2026-04-25 11:51:33 +00:00

copied ln.s and un.s from scans

This commit is contained in:
phil
2019-10-24 20:58:04 -04:00
parent 3ba97b8b0a
commit dbb1c55a80
2 changed files with 155 additions and 0 deletions

106
src/cmd/ln.s Normal file
View File

@@ -0,0 +1,106 @@
"** 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
"** 09-1-35.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

49
src/cmd/un.s Normal file
View File

@@ -0,0 +1,49 @@
"** 14-148-165.pdf page 18
" un
sys open; n.out; 0
spa
jmp error
sys read; buf; 3072
cll; idiv; 6
lacq; cma; tad d1
dac c1
1:
lac t1
tad d4
dac t2
lac i t2
sad d3
skp
jmp 2f
lac d1
sys write; t1: buf; 4
lac d1
sys write; mes+1; 1
2:
lac t1
tad d6
dac t1
isz c1
jmp 1b
sys exit
error:
lac d1
sys write; mes; 2
sys exit
mes:
077; 012
n.out:
<n.>;<ou>;<t 040; 0400040
d1: 1
d6: 6
d3: 3
c1: 0
t2: 0
d4: 4
buf: