mirror of
https://github.com/DoctorWkt/pdp7-unix.git
synced 2026-01-27 20:48:00 +00:00
63223cfa7c
copies of them over into the src/ area so that we can add comments and make other changes, while keeping the original OCR'd ones intact.
37 lines
388 B
ArmAsm
37 lines
388 B
ArmAsm
" dsw
|
|
|
|
lac djmp
|
|
dac .-1
|
|
oas cla
|
|
oma
|
|
tad d1
|
|
dac t1
|
|
sys open; dd; 0
|
|
1:
|
|
lac d2
|
|
sys read; dir; 8
|
|
sna
|
|
sys exit
|
|
lac dir
|
|
sna
|
|
jmp 1b
|
|
isz t1
|
|
jmp 1b
|
|
|
|
wr:
|
|
lac d1
|
|
sys write; dir+1; 4
|
|
lac d1
|
|
sys write; o12; 1
|
|
sys save
|
|
io:
|
|
sys unlink; dir+1
|
|
sys exit
|
|
|
|
d1: 1
|
|
d2: 2
|
|
o12: 012
|
|
t1: 0
|
|
djmp: jmp do
|
|
dd: 056056;040040;040040;040040
|
|
dir: .=.+8 |