include pd, rn, rm into build and image

This commit is contained in:
Tom Everett
2019-10-18 21:06:44 -06:00
parent f03c2eaac5
commit d6cef57b84
5 changed files with 159 additions and 1 deletions
+59
View File
@@ -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:
+33
View File
@@ -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
+54
View File
@@ -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