First few pages of the s1 section of the kernel typed in. I've added some cruft

at the bottom so that I can test my assembler. I'll take that out later.

scans/s1.s

@@ -0,0 +1,132 @@
+" S1
+
+.. = 0
+t = 0
+orig:
+   hlt
+   jmp pibreak
+
+. = orig+7
+   -1
+
+. = orig+020
+   1f
+   iof
+   dac u.ac
+   lac 020
+   dac 1f
+   lac 1f-1
+   dac 020
+   lac u.ac
+   jmp 1f+1
+   1f
+1: 0
+   iof
+   dac u.ac
+   lacq
+   dac u.mq
+   lac 8
+   dac u.rq
+   lac 9
+   dac u.rq+1
+   jms copy; 10; u.rq+2; 6
+   lac 1b
+   dac u.rq+9
+   -1
+   dac .savblk
+   dac .insys
+   lac uquant
+   jms betwen; 40; maxquant
+      jms swap
+   ion
+   -1
+   tad u.rq+8
+   jms laci
+   jms betwen; o20001; swp
+      jmp badcal
+   tad swp
+   dac .+1
+   jmp .. i
+
+. = orig+0100
+   jmp coldentry
+   jms halt
+
+okexit:
+   dzm: u.ac
+sysexit:
+   ion
+   lac .savblk
+   sza
+   jmp 1f
+   jms copy; sysdata; dskbuf; 64
+   cla
+   jms dskio; o7000
+1:
+   dzm .insys
+   jms chkint
+      skp
+   jmp .save
+   jms copy; u.rq+2; 10; 6
+   lac u.rq+1
+   dac 9
+   lac u.rq
+   dac 8
+   lac u.rq
+   lmq
+   lac u.ac
+   jmp u.rq+8 i
+
+swap: 0
+   ion
+1:
+   jms lookfor; 3 " out/ready
+      jmp 1f
+   jms lookfor; 1 " in/ready
+      skp
+   jmp 1b
+   dzm maxquant
+   jmp 3f
+1:
+   dac 9f+t
+   jms lookfor; 2 " in/notready
+      jmp 1f
+   jms lookfor; 1 " in/ready
+   jmp 2f
+1:
+   lac swap
+   dac u.swapret
+   iof
+   lac o200000
+   tad u.ulistp i
+   dac u.ulistp i
+   ion
+   jmp dskswap; 07000
+
+" For now, this stuff is defined so that
+" the assembler doesn't complain about it
+
+
+pibreak: 23
+u.ac: 100
+u.mq: 3
+u.rq: 3
+copy: 7
+.savblk: 0
+.insys: 0
+uquant: 0
+betwen: 0
+maxquant: 0
+laci: 0
+swp: 0
+badcal: 0
+coldentry: 0
+halt: 0
+dskio: 0
+sysdata: 0
+dskbuf: 0
+o7000: 07000
+o20001: 020001
+chkint: 0
+.save: 0
+lookfor: 0