Research PDP7 development

[unix-history] / dsksav.s

diff --git a/dsksav.s b/dsksav.s
new file mode 100644 (file)
index 0000000..2e79929
--- /dev/null
+++ b/dsksav.s
@@ -0,0 +1,26 @@
+" dsksav
+
+   iof
+   hlt
+   dzm track
+   -640
+   dac c1
+1:
+   lac track
+   jms dskrd1
+
+   lac track
+   jms dskwr0
+
+   lac track
+   tad d10
+   dac track
+   isz c1
+   jmp 1b
+
+   hlt
+   sys exit
+
+track: 0
+c1: 0
+d10: 10