From 57a1eb64e150513e35f85beba79a8f25cfe92059 Mon Sep 17 00:00:00 2001
From: Sebastian Rasmussen <sebras@gmail.com>
Date: Sat, 19 Oct 2019 22:23:02 +0200
Subject: [PATCH] Fix typos in src/cmd/{adm,apr,as}.s

---
 src/cmd/adm.s | 8 ++++----
 src/cmd/apr.s | 4 ++--
 src/cmd/as.s  | 2 +-
 3 files changed, 7 insertions(+), 7 deletions(-)

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