From e3815482a340bf695a44c775d9063cd176429738 Mon Sep 17 00:00:00 2001 From: Warren Toomey Date: Thu, 25 Feb 2016 07:37:59 +1000 Subject: [PATCH] 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 | 132 +++++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 132 insertions(+) create mode 100644 scans/s1.s diff --git a/scans/s1.s b/scans/s1.s new file mode 100644 index 0000000..355c501 --- /dev/null +++ b/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