Import the new ed*.s source code from scans.

src/cmd/ed1.s

@@ -70,28 +70,28 @@ chkwrp:
    jmp error
 
 comand:
-   lac char		" Get the character entered
+   lac char
    sad o141
-   jmp ca		" a command, append lines of text
+   jmp ca
    sad o143
-   jmp cc		" c command, change lines of text
+   jmp cc
    sad o144
-   jmp cd		" d command, delete lines of text
+   jmp cd
    sad o160
-   jmp cp		" p command, print lines of text
+   jmp cp
    sad o161
-   jmp cq		" q command, quit the editor
+   jmp cq
    sad o162
-   jmp cr		" r command, read in a file
+   jmp cr
    sad o163
-   jmp cs		" s command, substitute text
+   jmp cs
    sad o167
-   jmp cw		" w command, write out the file
+   jmp cw
    sad o12
-   jmp cnl		" newline
+   jmp cnl
    sad o75
-   jmp ceq		" = command
-   jmp error		" unrecognised, give an error
+   jmp ceq
+   jmp error
 ca:
    jms newline
    jms setfl
@@ -100,7 +100,7 @@ ca:
 ca1:
    jms rline
    lac line
-   sad o56012		" . NL?
+   sad o56012
    jmp advanc
    jms append
    jmp ca1
@@ -121,7 +121,7 @@ cc: cd:
    dac i 9
    sza
    jmp 2b
-"??? illegible line cut off - dac 0, lac 0, something else???
+   lac 9
 "** 08-rest.pdf page 10
 "[handwritten page number top right of scan - 3]
    dac eofp
@@ -185,7 +185,7 @@ cr:
    jms number
    jmp advanc
 2:
-"??? illegible line cut off - cma, sma, something else?
+   cma
 "** 08-rest.pdf page 11
 "[handwritten page number top right of scan - 4]
    tad d1
@@ -247,7 +247,7 @@ cw:
    jmp 3f
    isz num
    jmp putsc; tal1
-   isz c2 "???
+   isz c2
 "** 08-rest.pdf page 12
 "[handwritten page number top right of scan - 5]
    jmp 3f
@@ -334,10 +334,10 @@ setfl: 0
    jmp i setfl
 
 newline: 0
-   jms getsc; tal	" Get a character into tal
+   jms getsc; tal
    sad o12
-   jmp i newline	" Return if a newline
-   jmp error		" else an error
+   jmp i newline
+   jmp error
 
 addres: 0
    dzm minflg "..) [stray scan mark?]
@@ -523,7 +523,7 @@ gline: 0
    dac glint1
    jms getdsk
    lac glint1 " [these 6 lines were surrounded by a box
-   and o17777 " that was Xed out with an arrow pointing to it]:
+   and o1777  " that was Xed out with an arrow pointing to it]:
    tad dskbfp " --
    dac ital   "|\/|
    lac linep  "|/\|<---
@@ -616,7 +616,7 @@ getsc: 0
    lac i sctalp
    dac sctal
    add o400000
-   dac i sctal
+   dac i sctalp
    ral
    lac i sctal
    szl

src/cmd/ed2.s

@@ -53,7 +53,7 @@ cs:
    szl
    xor o400000
    tad linep
-   dac tal1 "???
+   dac tal1
    lac tbufp
    dac tal
 3:
@@ -61,7 +61,7 @@ cs:
    sad o12
    jmp 3f
    jms putsc; tal1
-   isz linsiz "???
+   isz linsiz
 "** 08-rest.pdf page 22
 "[handwritten page number top right of scan - 15]
    jmp 3b
@@ -186,7 +186,7 @@ cadvanc:
    jms getsc; tal
    sad delim
    jmp cdone
-   dac compflg "???
+   dac compflg
 "** 08-rest.pdf page 24
 "[handwritten page number top right of scan - 17]
    dzm lastre
@@ -194,7 +194,7 @@ cadvanc:
    jmp error
    "sad o133
    "jmp chrcls
-   sad o136 "???
+   sad o136
    jmp beglin
    sad o44
    jmp endlin
@@ -249,7 +249,7 @@ comp: 0 "???
    -1
    tad comp
    dac 9
-   lac 8 "???
+   lac 8
 "** 08-rest.pdf page 25
 "[handwritten page number top right of scan - 18]
    dac prev
@@ -275,7 +275,7 @@ execute: 0
    dac i trvect+1
    jmp 1f
 
-xchg: "???
+xchg:
    lacq
    sad o12
    jmp i execute
@@ -312,7 +312,7 @@ matchar: 0 "???
    lac matchar
    and o17777
    tad jms1
-   dac i 8 "??? [unreadable page cutoff]
+   dac i 8
 "** 08-rest.pdf page 26
 "[handwritten page number top right of scan - 19]
    lac i exret
@@ -375,7 +375,7 @@ mateol: 0 "???
    dac exret
    lac i exret
    dac 9
-   "??? [line is cut off in scan, maybe lac i 8 or jmp i 9]
+   jmp i 9
 "** 08-rest.pdf page 27
 "[handwritten page number top right of scan - 20]
 1: "???
@@ -456,7 +456,7 @@ o54: 054
 o17: 017
 
 tname:
-   0145056;0164155;0160040;040040	" e.tmp
+   0145056;0164155;0160040;040040
 tbufp: tbuf
 linep: line
 nlistp: nlist
@@ -502,7 +502,7 @@ bett1: .=.+1
 bett2: .=.+1
 wrflg: .=.+1
 apt1: .=.+1
-sfi: .=.+1			"[page cuts off one label] PLB: added
+sfi: .=.+1
 "** 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
-clist: .=.+50		" unable to determine label [PLB missing clist]
+clist: .=.+50
 compbuf: .=.+100
 dskbuf: .=.+1 "[line crossed out - scan markup]
 lnodes: .=.+1000