mirror of
https://github.com/DoctorWkt/pdp7-unix.git
synced 2026-04-26 20:26:40 +00:00
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
|
|
do:
|
|
sys unlink; dir+1
|
|
sys exit
|
|
|
|
d1: 1
|
|
d2: 2
|
|
o12: 012
|
|
t1: 0
|
|
djmp: jmp do
|
|
dd: 056056;040040;040040;040040
|
|
dir: .=.+8 |