Merge branch 'master' of https://github.com/DoctorWkt/pdp7-unix

scans/adm.s

@@ -64,7 +64,7 @@ floop1:
 "** 05-1-4.pdf page 3
    tad name
    dac 8
-   r4
+   -4
    dac c1
 1:
    lac 8 i

scans/ald.s

@@ -175,7 +175,7 @@ notbin:
    lac d1
    sys write; m3; m3s
    jms wait
-   cmp cloop
+   jmp cloop
 
 timeout:
    lac d1

scans/as.s

@@ -247,7 +247,7 @@ proc3:
 proc4:
    jms error; .>
    lac d1
-"** 05-1-4.pdf page 34
+"** 05-1-4.pdf page 36
    dac dot
    dzm dot+1
    jmp skip

scans/cas.s

@@ -134,7 +134,7 @@ adv1:
    dac vis
    jmp advanc
 1:
-   sad 0162
+   sad o162
    skp
    jmp letr
    isz mod3
@@ -301,7 +301,7 @@ a:
    cma
    tad d1
 1:
-   tad dlex
+   tad delx
    tad dm4
    sma
    cla
@@ -481,9 +481,9 @@ tmp: .=.+1
 buf: .=.+500
 bufp: buf-1
 lbuf: .=.+10
-lpbufp: lbuf-1
+lbufp: lbuf-1
 nwds: .=.+1
-o1770072: 0170072
+o170072: 0170072
 nins: .=.+1
 o100: 0100
 o12012: 012012
@@ -1020,7 +1020,7 @@ mh
 v
 ah
 ia
-ll
+il
 x
 mn
 r

scans/psych.s

@@ -111,20 +111,20 @@ done:
    lac i .pbp
    sna
    jmp 1b
-   spa ra1
+   spa ral
    jmp 1f
-   spa ra1
+   spa ral
    jmp 2f
-   spa ra1
+   spa ral
    jmp 3f
-   spa ra1
+   spa ral
    jmp 4f
-   spa ra1
+   spa ral
    jmp 5f
-   spa ra1
+   spa ral
    jmp 6f
 " ** 11-45-91.pdf page 4
-   spa ra1
+   spa ral
    jmp 7f
    jms release
    sys exit
@@ -180,7 +180,7 @@ done:
    dac char
 3:
    fld; arg1
-   dmp; fm056
+   fmp; fm056
    lac char
    spa
    fng
@@ -212,12 +212,12 @@ doauto:
    omq
    tad 0
    tad stick
-   cli
+   cll
    mul
    78625
    lls 9
    dac stick
-   dzm sexp
+   dzm aexp
    and o177777
    xor o200000
    dac ams

scans/t2.s

@@ -27,7 +27,7 @@ advance:0
   jmp advance i
 
 retreat:
-  dmz junk
+  dzm junk
   lac gflag
   sza
   jmp 1f
@@ -173,7 +173,7 @@ reuu:
 rerb:
   cml
 rera:
-  dmz fflag
+  dzm fflag
   snl
   jmp goon
   jms aget
@@ -341,7 +341,7 @@ gegq:
   jms advance; jmp ggoon
   lac env
   add d.ii
-  dac jumk
+  dac junk
   jms aget
   add junk i
   dac junk

scans/t7.s

@@ -90,7 +90,7 @@ equ = equread
 equbot: equtab
 equsiz = 500
 equmax: equsiz
-dleta: 2
+delta: 2
 mdelta:0-2
 
 sbsiz=50

src/cmd/adm.s

@@ -62,7 +62,7 @@ floop1:
    -1
    tad name
    dac 8
-   r4
+   -4
    dac c1
 1:
    lac 8 i

src/cmd/as.s

@@ -248,8 +248,8 @@ proc3:
 proc4:
    jms error; .>
    lac d1
-   dac dot		" set '.' type to 1
 "** 05-1-4.pdf page 36
+   dac dot		" set '.' type to 1
    dzm dot+1		" clear dot value
    jmp skip