mirror of
https://github.com/DoctorWkt/pdp7-unix.git
synced 2026-04-30 21:48:34 +00:00
42 lines
1.0 KiB
ArmAsm
42 lines
1.0 KiB
ArmAsm
" Alternative chrm: chrm file [file file ...]
|
|
"
|
|
" Unlink the named files
|
|
|
|
lac 017777 " Go to the argc
|
|
tad d1 " Skip past the argc
|
|
dac 2f " Save pointing at cmd name, we will skip later
|
|
lac 017777 i " How many arguments do we have?
|
|
sad d4
|
|
sys exit " None, so exit
|
|
tad dm4 " Subtract 1
|
|
dac 017777 i " and save in the argc
|
|
|
|
1:
|
|
lac 017777 i " Any arguments left?
|
|
sna
|
|
sys exit " No, exit the program
|
|
tad dm4 " Subtract 4 from the argc and update it
|
|
dac 017777 i
|
|
lac 2f " Move up to the next filename
|
|
tad d4
|
|
dac 2f " and save it in the unlink arg
|
|
sys unlink; 2:0 " Unlink the file
|
|
sma
|
|
jmp 1b " Loop back if the unlink was OK, or issue err
|
|
lac 2b " Copy the filename pointer below
|
|
dac 2f
|
|
lac d1 " Write the filename on stdout
|
|
sys write; 2:0; 4
|
|
lac d1
|
|
sys write; 1f; 2 " Write " ?\n" on stdout
|
|
jmp 1b " and loop back
|
|
|
|
1:
|
|
040077;012000 " String literal " ?\n"
|
|
dd:
|
|
<dd>;040040;040040;040040 " Filename dd
|
|
d1: 1
|
|
d4: 4
|
|
d5: 5
|
|
dm4: -4
|