From e29d8fca30bceaa583b9828d5795d6934b65bed9 Mon Sep 17 00:00:00 2001
From: Phil Budne <phil@ultimate.com>
Date: Fri, 25 Mar 2016 22:55:21 -0400
Subject: [PATCH] ed comments

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

diff --git a/src/cmd/ed1.s b/src/cmd/ed1.s
index 89f246e..9c33da2 100644
--- a/src/cmd/ed1.s
+++ b/src/cmd/ed1.s
@@ -36,13 +36,13 @@ advanc:
    jms rline
    lac linep
    dac tal
-   dzm adrflg
-   jms addres
-   jmp comand
+   dzm adrflg			" clear address flag
+   jms addres			" get address?
+   jmp comand			"  no: check if command
    -1
-   dac adrflg
+   dac adrflg			" set address flag
    lac addr
-   dac addr1
+   dac addr1			" set both addr1 & 2
    dac addr2
 1:
    lac char
@@ -53,7 +53,7 @@ advanc:
    jmp chkwrp
    lac addr
    dac dot
-2:
+2:				" here for address range
    jms addres
    jmp error
    lac addr2
@@ -105,7 +105,7 @@ ca1:
    jms append
    jmp ca1
 
-cc: cd:				" c(change) and d(elete)?
+cc: cd:				" c(change) and d(elete)
    jms newline
    jms setdd
    lac addr1
@@ -349,9 +349,9 @@ ad2:
    jms betwen; d47; d58		" digit?
    skp
    jmp numb
-   sad o40 "[o40 circled in scan]
+   sad o40 "[o40 circled in scan]	" space?
    jmp ad1 "[hand drawn check mark follows operand in scan]
-   sad o11
+   sad o11			" tab?
    jmp ad1 "[hand drawn check mark follows operand in scan]
            "[check mark underlined in scan]
    sad o55			" -?
@@ -364,7 +364,7 @@ ad2:
    jmp adol "[hand drawn check mark follows operand in scan]
    sad o57			" /?
    jmp fsrch "[hand drawn check mark follows operand in scan]
-   sad o77			" ??
+   sad o77			" '?'?
    jmp bsrch "[hand drawn check mark follows operand in scan]
    dac char
    lac minflg
diff --git a/src/cmd/ed2.s b/src/cmd/ed2.s
index ef6ce7e..52f4393 100644
--- a/src/cmd/ed2.s
+++ b/src/cmd/ed2.s
@@ -190,15 +190,15 @@ cadvanc:
 "** 08-rest.pdf page 24
 "[handwritten page number top right of scan - 17]
    dzm lastre
-   sad o12
+   sad o12			" newline
    jmp error
-   "sad o133
+   "sad o133			" [
    "jmp chrcls
-   sad o136
+   sad o136			" ^?
    jmp beglin
-   sad o44
+   sad o44			" $
    jmp endlin
-   "sad o52
+   "sad o52			" * (disabled)
    "jmp clsure
    dac 1f
    jms comp