add rn.s

2019-10-18 22:57:47 -04:00
parent 4ea95df898
commit 308f6349b9
2 changed files with 55 additions and 0 deletions
@@ -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