add rn.s

scans/README.md

@@ -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

scans/rn.s

@@ -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