diff --git a/src/cmd/ed1.s b/src/cmd/ed1.s index eb9e192..5e31a4a 100644 --- a/src/cmd/ed1.s +++ b/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 diff --git a/src/cmd/ed2.s b/src/cmd/ed2.s index 458491a..d825013 100644 --- a/src/cmd/ed2.s +++ b/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