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