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