From 4ea95df89809eae401e9fbdd05f670a2a91e7667 Mon Sep 17 00:00:00 2001
From: Phil Budne <phil@ultimate.com>
Date: Fri, 18 Oct 2019 22:50:36 -0400
Subject: [PATCH] add rm.s

---
 scans/README.md |  1 +
 scans/rm.s      | 33 +++++++++++++++++++++++++++++++++
 2 files changed, 34 insertions(+)
 create mode 100644 scans/rm.s

diff --git a/scans/README.md b/scans/README.md
index 40a7265..f6fcc47 100644
--- 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
diff --git a/scans/rm.s b/scans/rm.s
new file mode 100644
index 0000000..5ba7238
--- /dev/null
+++ 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
+