github.com/DoctorWkt.pdp7-unix
1
0
Fork 0
mirror of https://github.com/DoctorWkt/pdp7-unix.git synced 2026-04-26 12:17:07 +00:00
Code Issues Releases Wiki Activity

add rn.s

Browse Source
This commit is contained in:
Phil Budne
2019-10-18 22:57:47 -04:00
parent 4ea95df898
commit 308f6349b9
2 changed files with 55 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
scans/README.md
View File

@@ -58,6 +58,7 @@ Details of the files:
* pd.s: page 1 of 11-45-91.pdf
* psych.s: page 2-6 of 11-45-91.pdf
* rm.s: page 7 of 11-45-91.pdf
* rn.s: page 8 of 11-45-91.pdf
* salv.s: pages 25-29 of 11-45-91.pdf
* sh.s: pages 30-36 of 11-45-91.pdf
* st-1.s pages 1-5 of 12-92-119.pdf

54
scans/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