From b909a75810d24f59ba653a571b6e1bc0d46f6abc Mon Sep 17 00:00:00 2001
From: Sebastian Rasmussen <sebras@gmail.com>
Date: Thu, 24 Oct 2019 00:06:46 +0200
Subject: [PATCH] Fix typos in ed1.s after manual review.

---
 scans/ed1.s   | 9 ++++++---
 src/cmd/ed1.s | 7 +++++--
 2 files changed, 11 insertions(+), 5 deletions(-)

diff --git a/scans/ed1.s b/scans/ed1.s
index 5e31a4a..5e090f3 100644
--- a/scans/ed1.s
+++ b/scans/ed1.s
@@ -1,6 +1,7 @@
 "** 08-rest.pdf page 8
 "[handwritten page number top right of scan - 1]
 " ed1
+
    lac d1
    sys write; 1f; 3
    lac o17
@@ -32,6 +33,7 @@
    jmp advanc
 1:
    <ed>; <it>; 012
+
 advanc:
    jms rline
    lac linep
@@ -92,6 +94,7 @@ comand:
    sad o75
    jmp ceq
    jmp error
+
 ca:
    jms newline
    jms setfl
@@ -149,7 +152,7 @@ cp1:
    lac d1
    sys write; line; 2: 0
    lac addr1
-   sad addr1
+   sad addr2
    jmp advanc
    tad d1
    dac addr1
@@ -216,6 +219,7 @@ cr:
    isz c1
    jmp 2b
    jmp 1b
+
 cw:
    jms setfl
    lac i addr1
@@ -246,7 +250,7 @@ cw:
    sna
    jmp 3f
    isz num
-   jmp putsc; tal1
+   jms putsc; tal1
    isz c2
 "** 08-rest.pdf page 12
 "[handwritten page number top right of scan - 5]
@@ -710,7 +714,6 @@ addline: 0
    jmp 1b
    jmp i addline
 
-
 getdsk: 0                  "[the entire getdsk procedure was surrounded
    and o776000             " by a box that was Xed out]:
    sad diskin              " --
diff --git a/src/cmd/ed1.s b/src/cmd/ed1.s
index 9c33da2..0ec5109 100644
--- a/src/cmd/ed1.s
+++ b/src/cmd/ed1.s
@@ -1,6 +1,7 @@
 "** 08-rest.pdf page 8
 "[handwritten page number top right of scan - 1]
 " ed1
+
    lac d1
    sys write; 1f; 3		" say hello
    lac o17
@@ -32,6 +33,7 @@
    jmp advanc
 1:
    <ed>; <it>; 012
+
 advanc:
    jms rline
    lac linep
@@ -92,6 +94,7 @@ comand:
    sad o75			" =?
    jmp ceq
    jmp error
+
 ca:				" a(ppend)
    jms newline
    jms setfl
@@ -149,7 +152,7 @@ cp1:
    lac d1
    sys write; line; 2: 0
    lac addr1
-   sad addr1
+   sad addr2
    jmp advanc
    tad d1
    dac addr1
@@ -216,6 +219,7 @@ cr:				" r(ead)
    isz c1
    jmp 2b
    jmp 1b
+
 cw:				" w(rite)
    jms setfl
    lac i addr1
@@ -710,7 +714,6 @@ addline: 0
    jmp 1b
    jmp i addline
 
-
 getdsk: 0                  "[the entire getdsk procedure was surrounded
    and o776000             " by a box that was Xed out]:
    sad diskin              " --