Fix typos in adm.s, ald.s, apr.s and as.s

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
+dprs = 0704752

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
+crsb = 0706744

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
+dprs = 0704752

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