From 989bd7039ed2c4d6cd277a2024105e4262ffa712 Mon Sep 17 00:00:00 2001
From: Phil Budne <phil@ultimate.com>
Date: Thu, 24 Mar 2016 01:03:44 -0400
Subject: [PATCH] coped maksys.s from scans; fixed assembly errors

---
 src/sys/maksys.s | 52 ++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 52 insertions(+)
 create mode 100644 src/sys/maksys.s

diff --git a/src/sys/maksys.s b/src/sys/maksys.s
new file mode 100644
index 0000000..c8006ee
--- /dev/null
+++ b/src/sys/maksys.s
@@ -0,0 +1,52 @@
+"** 01-s1.pdf page 64 -- handwritten maksys
+" copy a.out to disk track 18x
+" where x is the argument
+
+   lac 017777 i; sad d8; skp; jmp error
+   lac 017777; tad d5; dac track
+   lac i track; lrss 9; tad om60
+   spa; jmp error; dac track
+   tad dm10; sma; jmp error
+
+   sys open; a.out; 0
+   spa; jmp error
+   sys read; bufp: buf; 3072
+   sad .-1
+   jmp error
+
+   dscs
+   -3072; dslw
+   lac bufp; dslm
+   lac track; alss 8; xor o300000; dsld
+   lac o3000; dsls
+   dssf; jmp .-1
+   dsrs; spa; jmp error
+   -1024; dslw
+   lac d3072; dslm
+   lac track; alss 8; xor o300110; dsld
+   lac o3000; dsls
+   dssf; jmp .-1
+   dsrs; spa; jmp error
+   sys exit
+
+error:
+   lac d1; sys write; 1f; 2
+   sys exit
+1: 077077;012
+
+dm10: -10
+d5: 5
+om60: -060
+o300000: 0300000
+o300110: 0300110
+d8: 8
+d3072: 3072
+o3000: 03000
+d1: 1
+a.out:
+   <a.>;<ou>;<t 040;040040
+
+track: .=.+1
+
+buf:
+