include pd, rn, rm into build and image
This commit is contained in:
@@ -0,0 +1,59 @@
|
||||
" ** 11-45-91.pdf page 1
|
||||
" pd
|
||||
|
||||
sys open; dotdot; 0
|
||||
spa; jms error
|
||||
dac df
|
||||
law dir-1
|
||||
dac 8
|
||||
1:
|
||||
lac df
|
||||
sys read; tbuf; 8
|
||||
spa; jms error
|
||||
sna
|
||||
jmp 1f
|
||||
lac tbuf
|
||||
sna
|
||||
jmp 1b
|
||||
-8
|
||||
dac c1
|
||||
law tbuf-1
|
||||
dac 9
|
||||
2:
|
||||
lac 9 i
|
||||
dac 8 i
|
||||
isz c1
|
||||
jmp 2b
|
||||
jmp 1b
|
||||
|
||||
1:
|
||||
lac df
|
||||
sys close
|
||||
law 017
|
||||
sys creat; dotdot
|
||||
spa; jms error
|
||||
dac df
|
||||
law dir-2
|
||||
cma
|
||||
tad 8
|
||||
dac .+4
|
||||
lac df
|
||||
sys write; dir; ..
|
||||
spa; jms error
|
||||
lac df
|
||||
sys close
|
||||
sys exit
|
||||
|
||||
error: 0
|
||||
-1
|
||||
tad error
|
||||
hlt
|
||||
sys save
|
||||
|
||||
dotdot:
|
||||
056056; 040040; 040040; 040040
|
||||
|
||||
c1: .=.+1
|
||||
df: .=.+1
|
||||
tbuf: .=.+8
|
||||
dir:
|
||||
@@ -0,0 +1,33 @@
|
||||
" ** 11-45-91.pdf page 7
|
||||
" rm
|
||||
|
||||
lac 017777
|
||||
tad d1
|
||||
dac 2f
|
||||
1:
|
||||
lac 017777 i
|
||||
sad d4
|
||||
sys exit
|
||||
tad dm4
|
||||
dac 017777 i
|
||||
lac 2f
|
||||
tad d4
|
||||
dac 2f
|
||||
sys unlink; 2: 0
|
||||
sma
|
||||
jmp 1b
|
||||
lac 2b
|
||||
dac 2f
|
||||
lac d1
|
||||
sys write; 2: 0; 4
|
||||
lac d1
|
||||
sys write; 1f; 2f-1f
|
||||
jmp 1b
|
||||
1:
|
||||
040077;012000
|
||||
2:
|
||||
|
||||
d1: 1
|
||||
d4: 4
|
||||
dm4: -4
|
||||
|
||||
@@ -0,0 +1,54 @@
|
||||
" ** 11-45-91.pdf page 8
|
||||
" rn
|
||||
|
||||
lac 017777
|
||||
tad d1
|
||||
dac name2
|
||||
loop:
|
||||
lac 017777 i
|
||||
sad d4
|
||||
sys exit
|
||||
sad d8
|
||||
jmp unbal
|
||||
tad dm8
|
||||
dac 017777 i
|
||||
lac name2
|
||||
tad d4
|
||||
dac name1
|
||||
tad d4
|
||||
dac name2
|
||||
sys unlink; name2: 0
|
||||
lac name2
|
||||
dac 1f
|
||||
sys rename; name1: 0; 1: 0
|
||||
sma
|
||||
jmp loop
|
||||
lac name1
|
||||
dac 1f
|
||||
lac d1
|
||||
sys write; 1: 0; 4
|
||||
lac d1
|
||||
sys write; mes; 1
|
||||
lac name2
|
||||
dac 1f
|
||||
lac d1
|
||||
sys write; 1: 0; 4
|
||||
lac d1
|
||||
sys write; mes; 2
|
||||
jmp loop
|
||||
mes:
|
||||
040000;077012
|
||||
unbal:
|
||||
lac name2
|
||||
tad d4
|
||||
dac 1f
|
||||
lac d1
|
||||
sys write; 1: 0; 4
|
||||
lac d1
|
||||
sys write; mes; 2
|
||||
sys exit
|
||||
|
||||
d1: 1
|
||||
d4: 4
|
||||
d8: 8
|
||||
dm8: -8
|
||||
Reference in New Issue
Block a user