From 6dfe91433992e7ffb686a1fed137d87008f31466 Mon Sep 17 00:00:00 2001
From: Phil Budne <phil@ultimate.com>
Date: Tue, 8 Mar 2016 22:36:34 -0500
Subject: [PATCH] get ed to assemble without errors

---
 src/cmd/ed1.s | 10 +++++-----
 src/cmd/ed2.s | 20 ++++++++++----------
 2 files changed, 15 insertions(+), 15 deletions(-)

diff --git a/src/cmd/ed1.s b/src/cmd/ed1.s
index 63d15ca..3210d09 100644
--- a/src/cmd/ed1.s
+++ b/src/cmd/ed1.s
@@ -26,7 +26,7 @@
    dzm fbuf
    lac d1
    dac dskadr
-   dac wrlfg
+   dac wrflg
    dzm diskin
  "o------------> [scan markup]
    jmp advanc
@@ -272,7 +272,7 @@ cw:
    jms putsc; tal1
 1:
    -1
-   tad tufp
+   tad tbufp
    cma
    tad tal1
    dac 1f
@@ -283,7 +283,7 @@ cw:
    jms number
    jmp advanc
 
-cn1:
+cnl:
    lac adrflg
    sna
    jmp 1f
@@ -346,7 +346,7 @@ addres: 0
 ad1:
    jms getsc; tal
 ad2:
-   jms betwen; d47; d56
+   jms betwen; d47; d58
    skp
    jmp numb
    sad o40 "[o40 circled in scan]
@@ -523,7 +523,7 @@ gline: 0
    dac glint1
    jms getdsk
    lac glint1 " [these 6 lines were surrounded by a box
-   adn o17777 " that was Xed out with an arrow pointing to it]:
+   and o17777 " that was Xed out with an arrow pointing to it]:
    tad dskbfp " --
    dac ital   "|\/|
    lac linep  "|/\|<---
diff --git a/src/cmd/ed2.s b/src/cmd/ed2.s
index 3345e98..458491a 100644
--- a/src/cmd/ed2.s
+++ b/src/cmd/ed2.s
@@ -3,7 +3,7 @@
 " ed2
 
 cs:
-   jsm getsc; tal
+   jms getsc; tal
    sad o40
    jmp cs
    sad o12
@@ -67,7 +67,7 @@ cs:
    jmp 3b
 3:
    -1
-   tad lcrhno
+   tad lchrno
    rcr
    szl
    xor o400000
@@ -118,7 +118,7 @@ bsrch:
    jms compile
    jms srcsav
    lac dot
-   dad zerop
+   sad zerop
    lac eofp
 bloop:
    tad dm1
@@ -275,7 +275,7 @@ execute: 0
    dac i trvect+1
    jmp 1f
 
-exchg: "???
+xchg: "???
    lacq
    sad o12
    jmp i execute
@@ -310,7 +310,7 @@ matchar: 0 "???
    skp
    jmp 1f
    lac matchar
-   adn o17777
+   and o17777
    tad jms1
    dac i 8 "??? [unreadable page cutoff]
 "** 08-rest.pdf page 26
@@ -407,7 +407,7 @@ matclo: 0 "???
 
 "??? the remainder of this scan had an unreadable first character
 "??? I did the best I could to recreate the characters appropriately
-o1: 1
+d1: 1
 o133: 0133
 dm3: -3
 o136: 0136
@@ -456,7 +456,7 @@ o54: 054
 o17: 017
 
 tname:
-   0145056;0164155;0160040;040040
+   0145056;0164155;0160040;040040	" e.tmp
 tbufp: tbuf
 linep: line
 nlistp: nlist
@@ -480,7 +480,7 @@ c1: .=.+1
 ital: .=.+1
 otal: .=.+1
 diskin: .=.+1
-glint: .=.+1
+glint1: .=.+1
 c2: .=.+1
 num: .=.+1
 zermp: .=.+1
@@ -502,7 +502,7 @@ bett1: .=.+1
 bett2: .=.+1
 wrflg: .=.+1
 apt1: .=.+1
-"[page cuts off one label]
+sfi: .=.+1			"[page cuts off one label] PLB: added
 "** 08-rest.pdf page 29
 "[handwritten page number top right of scan - 22]
 sfo: .=.+1
@@ -513,7 +513,7 @@ fbuf: .=.+4  "not sure if this is fbuf, but
 tbuf: .=.+64 "there is a write; tbuf; 64 call
 line: .=.+64
 nlist: .=.+50
-"??? ?list: .=.+50, unable to determine label
+clist: .=.+50		" unable to determine label [PLB missing clist]
 compbuf: .=.+100
 dskbuf: .=.+1 "[line crossed out - scan markup]
 lnodes: .=.+1000