1
0
mirror of https://github.com/livingcomputermuseum/pdp7-unix.git synced 2026-01-12 00:02:47 +00:00

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

View File

@ -96,7 +96,7 @@ cmd: dirs $(BINDIR)/as $(BINDIR)/cat $(BINDIR)/check $(BINDIR)/chmod \
$(BINDIR)/chown $(BINDIR)/chrm $(BINDIR)/cp $(BINDIR)/ds \
$(BINDIR)/dskres $(BINDIR)/dsksav $(BINDIR)/ed $(BINDIR)/init \
$(BINDIR)/db $(BINDIR)/stat $(BINDIR)/tm $(BINDIR)/dsw $(BINDIR)/apr \
$(BINDIR)/cas
$(BINDIR)/cas $(BINDIR)/rm $(BINDIR)/rn $(BINDIR)/pd
# Alternate commands: no dd, but . and ..
altcmd: dirs $(BINDIR)/as $(BINDIR)/cat $(BINDIR)/check $(BINDIR)/chmod \
@ -179,6 +179,15 @@ $(BINDIR)/adm: $(CMDSRC)/adm/adm.s
$(BINDIR)/sh: $(CMDSRC)/sh/sh.s
$(AS) $(ASARGS) -o $(BINDIR)/sh $(CMDSRC)/sh/sh.s
$(BINDIR)/rn: $(CMDSRC)/rn/rn.s
$(AS) $(ASARGS) -o $(BINDIR)/rn $(CMDSRC)/rn/rn.s
$(BINDIR)/rm: $(CMDSRC)/rm/rm.s
$(AS) $(ASARGS) -o $(BINDIR)/rm $(CMDSRC)/rm/rm.s
$(BINDIR)/pd: $(CMDSRC)/pd/pd.s
$(AS) $(ASARGS) -o $(BINDIR)/pd $(CMDSRC)/pd/pd.s
# Alternative init: no dd directory
$(BINDIR)/altinit: $(ALTSRC)/init/init.s
$(AS) $(ASARGS) -o $(BINDIR)/altinit $(ALTSRC)/init/init.s

View File

@ -43,8 +43,11 @@ dd drwr- -1 4
lsd frwr- -1 bin/lsd
lsl frwr- -1 bin/lsd
od frwr- -1 bin/od
pd frwr- -1 bin/pd
mv frwr- -1 bin/mv
password frw-- -1 fs/password
rn frwr- -1 bin/rn
rm frwr- -1 bin/rm
sh frwr- -1 bin/sh
stat frwr- -1 bin/stat
tm frwr- -1 bin/tm

59
src/cmd/pd/pd.s Normal file
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
src/cmd/rm/rm.s Normal file
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
src/cmd/rn/rn.s Normal file
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