diff --git a/scans/adm.s b/scans/adm.s
index e5102a2..14329ed 100644
--- a/scans/adm.s
+++ b/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
@@ -218,7 +218,7 @@ discon:
 
 m1:
    <ha>;<ng>;<up>;012
-m2s = .-m1
+m1s = .-m1
 m2:
    <ab>;<or>;<te>;<d 012
 m2s = .-m2
@@ -495,7 +495,7 @@ retry:
    sad o122
    jmp i message
 "** 05-1-4.pdf page 10
-   lac distlg
+   lac disflg
    sna
    jmp discon
    jmp stop
@@ -593,4 +593,4 @@ dpon = 0704701
 dpof = 0704704
 dpwc = 0704722
 dpop = 0704764
-dprs = 0704752
\ No newline at end of file
+dprs = 0704752
diff --git a/scans/ald.s b/scans/ald.s
index 12a81fa..4ded833 100644
--- a/scans/ald.s
+++ b/scans/ald.s
@@ -175,7 +175,7 @@ notbin:
    lac d1
    sys write; m3; m3s
    jms wait
-   cmp cloop
+   jmp cloop
 
 timeout:
    lac d1
@@ -252,4 +252,4 @@ crread: .=.+1
 crchar: .=.+1
 tmtime: .=.+1
 
-crsb = 0706744
\ No newline at end of file
+crsb = 0706744
diff --git a/scans/apr.s b/scans/apr.s
index bf8f84b..c13764a 100644
--- a/scans/apr.s
+++ b/scans/apr.s
@@ -50,7 +50,7 @@ floop:
    jms putc
    law 044
    jms putc
-   law040
+   law 040
    jms putc
 
 floop1:
@@ -699,4 +699,4 @@ dpon = 0704701
 dpof = 0704704
 dpwc = 0704722
 dpop = 0704764
-dprs = 0704752
\ No newline at end of file
+dprs = 0704752
diff --git a/scans/as.s b/scans/as.s
index 78a7981..46fbea6 100644
--- a/scans/as.s
+++ b/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
diff --git a/scans/cas.s b/scans/cas.s
index f4e61fc..e8a8261 100644
--- a/scans/cas.s
+++ b/scans/cas.s
@@ -7,7 +7,7 @@
    tad d5
    dac name1
    tad d4
-   dac name 2
+   dac name2
    lac narg
    sad d4
    jmp 1f
@@ -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
diff --git a/scans/psych.s b/scans/psych.s
index ce9e60d..2c6f1fb 100644
--- a/scans/psych.s
+++ b/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
diff --git a/scans/t2.s b/scans/t2.s
index 8be1b2a..53ba357 100644
--- a/scans/t2.s
+++ b/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
diff --git a/scans/t7.s b/scans/t7.s
index 980e2f4..9487d36 100644
--- a/scans/t7.s
+++ b/scans/t7.s
@@ -90,7 +90,7 @@ equ = equread
 equbot: equtab
 equsiz = 500
 equmax: equsiz
-dleta: 2
+delta: 2
 mdelta:0-2
 
 sbsiz=50
diff --git a/src/cmd/adm.s b/src/cmd/adm.s
index c78e67b..4837693 100644
--- a/src/cmd/adm.s
+++ b/src/cmd/adm.s
@@ -62,7 +62,7 @@ floop1:
    -1
    tad name
    dac 8
-   r4
+   -4
    dac c1
 1:
    lac 8 i
@@ -214,7 +214,7 @@ discon:
 
 m1:
    <ha>;<ng>;<up>;012
-m2s = .-m1
+m1s = .-m1
 m2:
    <ab>;<or>;<te>;<d 012
 m2s = .-m2
@@ -486,7 +486,7 @@ retry:
    lac opch
    sad o122
    jmp i message
-   lac distlg
+   lac disflg
    sna
    jmp discon
    jmp stop
@@ -583,4 +583,4 @@ dpon = 0704701
 dpof = 0704704
 dpwc = 0704722
 dpop = 0704764
-dprs = 0704752
\ No newline at end of file
+dprs = 0704752
diff --git a/src/cmd/apr.s b/src/cmd/apr.s
index 255c003..bf4316e 100644
--- a/src/cmd/apr.s
+++ b/src/cmd/apr.s
@@ -49,7 +49,7 @@ floop:
    jms putc
    law 044
    jms putc
-   law040
+   law 040
    jms putc
 
 floop1:
@@ -681,4 +681,4 @@ dpon = 0704701
 dpof = 0704704
 dpwc = 0704722
 dpop = 0704764
-dprs = 0704752
\ No newline at end of file
+dprs = 0704752
diff --git a/src/cmd/as.s b/src/cmd/as.s
index c9e00a2..2080cc6 100644
--- a/src/cmd/as.s
+++ b/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