copied ln.s and un.s from scans
This commit is contained in:
+106
@@ -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
|
||||||
@@ -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