glm94/pdp7-unix
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

ed comments

Browse Source
This commit is contained in:
Phil Budne
2016-03-25 22:55:21 -04:00
parent 7ae26994e9
commit e29d8fca30
2 changed files with 15 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/cmd/ed1.s
+10 -10
View File
@@ -36,13 +36,13 @@ advanc:
jms rline jms rline
lac linep lac linep
dac tal dac tal
dzm adrflg dzm adrflg " clear address flag
jms addres jms addres " get address?
jmp comand jmp comand " no: check if command
-1 -1
dac adrflg dac adrflg " set address flag
lac addr lac addr
dac addr1 dac addr1 " set both addr1 & 2
dac addr2 dac addr2
1: 1:
lac char lac char
@@ -53,7 +53,7 @@ advanc:
jmp chkwrp jmp chkwrp
lac addr lac addr
dac dot dac dot
2: 2: " here for address range
jms addres jms addres
jmp error jmp error
lac addr2 lac addr2
@@ -105,7 +105,7 @@ ca1:
jms append jms append
jmp ca1 jmp ca1
cc: cd: " c(change) and d(elete)? cc: cd: " c(change) and d(elete)
jms newline jms newline
jms setdd jms setdd
lac addr1 lac addr1
@@ -349,9 +349,9 @@ ad2:
jms betwen; d47; d58 " digit? jms betwen; d47; d58 " digit?
skp skp
jmp numb 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] 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] jmp ad1 "[hand drawn check mark follows operand in scan]
"[check mark underlined in scan] "[check mark underlined in scan]
sad o55 " -? sad o55 " -?
@@ -364,7 +364,7 @@ ad2:
jmp adol "[hand drawn check mark follows operand in scan] jmp adol "[hand drawn check mark follows operand in scan]
sad o57 " /? sad o57 " /?
jmp fsrch "[hand drawn check mark follows operand in scan] jmp fsrch "[hand drawn check mark follows operand in scan]
sad o77 " ?? sad o77 " '?'?
jmp bsrch "[hand drawn check mark follows operand in scan] jmp bsrch "[hand drawn check mark follows operand in scan]
dac char dac char
lac minflg lac minflg
src/cmd/ed2.s
+5 -5
View File
@@ -190,15 +190,15 @@ cadvanc:
"** 08-rest.pdf page 24 "** 08-rest.pdf page 24
"[handwritten page number top right of scan - 17] "[handwritten page number top right of scan - 17]
dzm lastre dzm lastre
sad o12 sad o12 " newline
jmp error jmp error
"sad o133 "sad o133 " [
"jmp chrcls "jmp chrcls
sad o136 sad o136 " ^?
jmp beglin jmp beglin
sad o44 sad o44 " $
jmp endlin jmp endlin
"sad o52 "sad o52 " * (disabled)
"jmp clsure "jmp clsure
dac 1f dac 1f
jms comp jms comp