From 308f6349b9cd71615b8c33ad6099ced47c5f801f Mon Sep 17 00:00:00 2001
From: Phil Budne <phil@ultimate.com>
Date: Fri, 18 Oct 2019 22:57:47 -0400
Subject: [PATCH] add rn.s

---
 scans/README.md |  1 +
 scans/rn.s      | 54 +++++++++++++++++++++++++++++++++++++++++++++++++
 2 files changed, 55 insertions(+)
 create mode 100644 scans/rn.s

diff --git a/scans/README.md b/scans/README.md
index f6fcc47..58af6c2 100644
--- a/scans/README.md
+++ b/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
diff --git a/scans/rn.s b/scans/rn.s
new file mode 100644
index 0000000..6f5e9ed
--- /dev/null
+++ b/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