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:
106
src/cmd/ln.s
Normal file
106
src/cmd/ln.s
Normal 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
49
src/cmd/un.s
Normal 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:
|
||||
Reference in New Issue
Block a user