add rm.s

2026-01-13 15:27:39 +00:00 · 2019-10-18 22:50:36 -04:00 · 2019-10-18 22:50:36 -04:00 · 4ea95df898
commit 4ea95df898
parent 8633b1b8c6
2 changed files with 34 additions and 0 deletions
--- a/scans/README.md
+++ b/scans/README.md
@ -57,6 +57,7 @@ Details of the files:
 * ed2.s: pages 21-29 of 08-rest.pdf
 * 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
 * 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
--- a/scans/rm.s
+++ b/scans/rm.s
@ -0,0 +1,33 @@
+" ** 11-45-91.pdf page 7
+" rm
+
+   lac 017777
+   tad d1
+   dac 2f
+1:
+   lac 017777 i
+   sad d4
+   sys exit
+   tad dm4
+   dac 017777 i
+   lac 2f
+   tad d4
+   dac 2f
+   sys unlink; 2: 0
+   sma
+   jmp 1b
+   lac 2b
+   dac 2f
+   lac d1
+   sys write; 2: 0; 4
+   lac d1
+   sys write; 1f; 2f-1f
+   jmp 1b
+1:
+   040077;012000
+2:
+
+d1: 1
+d4: 4
+dm4: -4
+