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 18:02:59 -04:00
parent 5567d705d5
commit cb3104a8a8
1 changed files with 34 additions and 34 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/cmd/ed1.s
+34 -34
View File
@@ -555,13 +555,13 @@ gline: 0
tad otal tad otal
jmp i gline jmp i gline
rline: 0 rline: 0 " read line from stdin
lac linep lac linep
dac tal dac tal
1: 1:
cla cla
sys read; char; 1 " read a char or two sys read; char; 1 " read a char (or two)
lac char lac char
"** 08-rest.pdf page 17 "** 08-rest.pdf page 17
"[handwritten page number top right of scan - 10] "[handwritten page number top right of scan - 10]
@@ -609,47 +609,47 @@ esc: 0 " edit/save char
dac linsiz dac linsiz
jmp i rline " return from rline jmp i rline " return from rline
getsc: 0 getsc: 0 " call: jms getsc; pbufp
lac i getsc lac i getsc " fetch buffer pointer addr from after call
dac sctalp dac sctalp
isz getsc isz getsc " skip buffer pointer pointer
lac i sctalp lac i sctalp " fetch buffer pointer
dac sctal dac sctal
add o400000 add o400000 " flip high bit (carry wraps around)
dac i sctalp dac i sctalp " save pointer back
ral ral " shift high bit into link
lac i sctal lac i sctal " fetch word from buffer
szl szl " link set?
lrss 9 lrss 9 " yes: shift high char down
and o777 and o777 " mask to character
jmp i getsc jmp i getsc
putsc: 0 putsc: 0 " call: jms putsc; pbufp
and o777 and o777 " mask to single 9-bit character
"** 08-rest.pdf page 18 "** 08-rest.pdf page 18
"[handwritten page number top right of scan - 11] "[handwritten page number top right of scan - 11]
lmq lmq " put in MQ
lac i putsc lac i putsc " fetch buffer pointer pointer
dac sctalp dac sctalp
isz putsc isz putsc " skip over pointer pointer
lac i sctalp lac i sctalp " get pointer
dac sctal dac sctal " save it for later
add o400000 add o400000 " flip high bit, wrap carry
dac i sctalp dac i sctalp " save back as buffer pointer pointer
sma cla sma cla " high bit set?
jmp 1f jmp 1f " no
llss 27 llss 27 " yes: get MQ in high half of AC
dac i sctal dac i sctal " save to buffer
lrss 9 lrss 9 " shift char back down
jmp i putsc jmp i putsc " return
1: 1:
lac i sctal lac i sctal " get word from buffer
and o777000 and o777000 " mask to high character
omq omq " OR in new char
dac i sctal dac i sctal " save word
lacq lacq " restore char
jmp i putsc jmp i putsc " return
append: 0 append: 0
-1 -1