Merge pull request #4 from philbudne/master

more sys updates, new files: sop.s, maksys.s, trysys.s

scans/Makefile

@@ -1,4 +1,4 @@
-AS7=../tools/as7 -d
+AS7=../tools/as7
 
 system:
-	$(AS7) s?.s > output
+	$(AS7) s?.s sop.s > output

scans/Readme

@@ -15,7 +15,10 @@ s6.s: pages 34-38  of 01-s1.pdf
 s7.s: pages 41-46  of 01-s1.pdf
 s8.s: pages 48-51  of 01-s1.pdf
 s9.s: pages 53-54  of 01-s1.pdf
+sop.s pages 62-63  of 01-s1.pdf
 sx.s: temp additional symbol defns
+maksys.s: page 64  of 01-s1.pdf
+trysys.s: page 65  of 01-s1.pdf
 
 bc.s:  pages 7-11  of 06-5-12.pdf
 bi.s:  pages 12-19 of 06-5-12.pdf

scans/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
+
+   sysopen; 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 o30000; 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
+dm5: 5
+om60: -060
+o300000: 0300000
+o300100: 0300110
+d8: 8
+d3072: 3072
+o3000: 03000
+d1: 1
+a.out:
+   <a.>;<ou>;<t 040;040040
+
+track: .=.+1
+
+buf:
+

scans/s5.s

@@ -212,7 +212,7 @@ dspnl: 0
    jmp dspnl i
 1:
    lac o2000
-   wbi			"** ??
+   wbl
    isz dspput
    jmp dspput i
 

scans/s7.s

@@ -266,7 +266,7 @@ ttyrestart: 0
    jms wakeup
    dac sfiles+6
    cla
-   wbi
+   wbl
    jmp piret	"** END CROSSED OUT
 
 1: crsf

scans/s9.s

@@ -38,7 +38,7 @@
    jmp 1b " 0 count means pause
    dac xx
    isz ii
-   iac ii
+   lac ii
    jms iget
    jms copyz; inode; 12
    jms getw " flags
@@ -95,8 +95,8 @@ getw: 0
    omq
    lmq
    jms getc
-   omg
+   omq
-   lmg
+   lmq
    add sum
    dac sum
    lacq

scans/sop.s

@@ -0,0 +1,97 @@
+"** 01-s1.pdf page 62
+" sop
+
+dac = 0040000
+jms = 0100000
+dzm = 0140000
+lac = 0200000
+xor = 0240000
+add = 0300000
+tad = 0340000
+xct = 0400000
+isz = 0440000
+and = 0500000
+sad = 0540000
+jmp = 0600000
+nop = 0740000
+i = 020000
+law = 0760000
+cma = 0740001
+las = 0750004
+ral = 0740010
+rar = 0740020
+hlt = 0740040
+sma = 0740100
+sza = 0740200
+snl = 0740400
+skp = 0741000
+sna = 0741200
+szl = 0741400
+rtl = 0742010
+rtr = 0742020
+cil = 0744000
+rcl = 0744010
+rcr = 0744020
+cia = 0750000
+lrs = 0640500
+lrss = 0660500
+lls = 0640600
+llss = 0660600
+als = 0640700
+alss = 0660700
+mul = 0653323
+idiv = 0653323
+lacq = 0641002
+clq = 0650000
+omq = 0650002
+cmq = 0650004
+lmq = 0652000
+
+dscs = 0707141
+dslw = 0707124
+dslm = 0707142
+dsld = 0707104
+dsls = 0707144
+dssf = 0707121
+dsrs = 0707132
+
+iof = 0700002
+ion = 0700042
+caf = 0703302
+clon = 0700044
+clsf = 0700001
+
+"** 01-s1.pdf page 63
+clof = 0700004
+ksf = 0700301
+krb = 0700312
+tsf = 0700401
+tcf = 0700402
+tls = 0700406
+sck = 0704301
+cck = 0704304
+lck = 0704312
+rsf = 0700101
+rsa = 0700104
+rrb = 0700112
+psf = 0700201
+pcf = 0700202
+psa = 0700204
+cdf = 0700501
+lds = 0701052
+lda = 0701012
+wcga = 0704206
+raef = 0700742
+rlpd = 0700723
+beg = 0700547
+spb = 0704401
+cpb = 0704404
+lpb = 0704412
+wbl = 0704424
+dprs = 0704752
+dpsf = 0704741
+dpcf = 0704761
+dprc = 0704712
+crsf = 0706701
+crrb = 0706712
+

scans/sx.s

@@ -1,28 +1,4 @@
 " For now, this stuff is defined so that
 " the assembler doesn't complain about it
 
-" illegible
-idunno=-1
-wbi=-1
-
-" disk I/O instructions?
-dscs=-1
-dslw=-1
-dslm=-1
-dsld=-1
-dsls=-1
-dssf=-1
-dsrs=-1
-
-" display I/O instructions?
-dprs=-1
-dprc=-1
-dpsf=-1
-dpcf=-1
-
-" printer I/O instructions?
-lpsf=-1
-lpcf=-1
-lpb=-1
-
 o7000: 07000

scans/trysys.s

@@ -0,0 +1,40 @@
+"** 01-s1.pdf page 65
+" trysys
+
+   sys open; a.out; 0
+   spa
+   jmp error
+   sys read; buf; 3072
+   sad .-1
+   jmp error
+   iof
+   caf
+   cdf
+   clof
+   law buf
+   dac t1
+   dzm t2
+   -3072
+   dac c1
+1:
+   lac t1 i
+   dac r2 i
+   isz t1
+   isz r2
+   isz c1
+   jmp 1b
+   jmp 0100
+
+error:
+   lac d1
+   sys write; 1f; 1
+   sys exit
+1: 077012
+
+a.out:
+   <a.>;<ou><t 040; 040040
+t1: 0
+t2: 0
+c1: 0
+d1: 1
+buf: