X-Git-Url: http://git.subgeniuskitty.com/unix-history/.git/blobdiff_plain/31764ff8b30309dc3f8016015d8086812152f43d..69f28986ad97c1e3d55279d696d1884c963f530e:/dskio.s

diff --git a/dskio.s b/dskio.s
new file mode 100644
index 0000000000..30cf100ef0
--- /dev/null
+++ b/dskio.s
@@ -0,0 +1,78 @@
+" dskio
+
+dskrd0: 0
+   dzm side
+   jms dskio; 02000
+   jmp i dskrd0
+
+dskwr0: 0
+   dzm side
+   jms dskio; 03000
+   jmp i dskwr0
+
+dskrd1: 0
+   lmq
+   lac o200000
+   dac side
+   lacq
+   jms dskio; 02000
+   jmp i dskrd1
+
+dskwr1: 0
+   lmq
+   lac o200000
+   dac side
+   lacq
+   jms dskio; 03000
+   jmp i dskwr1
+
+
+iskio: 0
+   cll; idiv; 80
+   dac 2f
+   lacq
+   idiv; 10
+   dac 3f
+   lls 22
+   xor 3f
+   als 8
+   dac 3f
+   lac 2f
+   idiv; 10
+   dac 2f
+   lls 22
+   xor 2f
+   xor 3f
+   xor side
+   dac 2f
+   -10
+   dac 3f
+1:
+   dscs
+   -640
+   dslw
+   lac dskbufp
+   dslm
+   lac 2f
+   dsld
+   lac dskio i
+   dsls
+   dssf
+   jmp .-1
+   dsrs
+   sma
+   jmp 1f
+   isz 3f
+   jmp 1b
+   hlt
+1:
+   isz dskio
+   jmp i dskio
+2: 0
+3: 0
+
+o200000: 0200000
+dskbufp: dskbuf
+
+side: .=.+1
+dskbuf: .=.+640
\ No newline at end of file