Research PDP7 development

[unix-history] / ed2.s

"[handwritten page number top right of scan - 14]
" ed2

cs:
   jms getsc; tal
   sad o40
   jmp cs
   sad o12
   jmp error
   dac delim
   jms compile
   lac tbufp
   dac tal1
1:
   jms getsc; tal
   sad delim
   jmp 1f
   sad o12
   jmp error
   jms putsc; tal1
   jmp 1b
1:
   lac o12
   jms putsc; tal1
   jms newline
   jms setdd
   lac addr1
   sad zerop
   jmp error
1:
   dac addr1
   lac i addr1
   jms execute
   jmp 2f
   lac addr1
   dac dot
   law line-1
   dac 8
   law nlist-1
   dac 9
   -64
   dac c1
3:
   lac i 8
   dac i 9
   isz c1
   jmp 3b
   -1
   tad fchrno
   dac linsiz
   rcr
   szl
   xor o400000
   tad linep
   dac tal1
   lac tbufp
   dac tal
3:
   jms getsc; tal
   sad o12
   jmp 3f
   jms putsc; tal1
   isz linsiz
"[handwritten page number top right of scan - 15]
   jmp 3b
3:
   -1
   tad lchrno
   rcr
   szl
   xor o400000
   tad nlistp
   dac tal
3:
   jms getsc; tal
   jms putsc; tal1
   isz linsiz
   sad o12
   skp
   jmp 3b
   jms addline
2:
   lac addr1
   sad addr2
   jmp advanc
   tad d1
   jmp 1b

fsrch:
   dac delim
   jms compile
   jms srcsav
   lac dot
floop:
   tad d1
   dac addr
   lac i addr
   sza
   jmp 1f
   lac zerop
   dac addr
   jmp 2f
1:
   jms execute
   jmp 2f
   jms srcres
   jmp ad1
2:
   lac addr
   sad dot
   jmp error
   jmp floop

bsrch:
   dac delim
   jms compile
   jms srcsav
   lac dot
   sad zerop
   lac eofp
bloop:
   tad dm1
   dac addr
   lac i addr
"[handwritten page number top right of scan - 16]
   sza
   jmp 1f
   lac eofp
   dac addr
   jmp 2f
1:
   jms execute
   jmp 2f
   jms srcres
   jmp ad1
2:
   lac addr
   sad dot
   jmp error
   jmp bloop

srcsav: 0
   lac minflg
   sza
   jmp error
   lac addr
   sma
   jmp error
   law line-1
   dac 8
   law tbuf-1
   dac 9
   -64
   dac c1
1:
   lac i 8
   dac i 9
   isz c1
   jmp 1b
   jmp i srcsav

srcres: 0
   law tbuf-1
   dac 8
   law line-1
   dac 9
   -64
   dac c1
1:
   lac i 8
   dac i 9
   isz c1
   jmp 1b
   jmp i srcres

compile: 0
   law compbuf-1
   dac 8
   dzm prev
   dzm compflg

cadvanc:
   jms getsc; tal
   sad delim
   jmp cdone
   dac compflg
"[handwritten page number top right of scan - 17]
   dzm lastre
   sad o12
   jmp error
   "sad o133
   "jmp chrcls
   sad o136
   jmp beglin
   sad o44
   jmp endlin
   "sad o52
   "jmp clsure
   dac 1f
   jmp comp
   1; jms matchar; 1: 0; 0
   jmp cadvanc

cdone:
   lac compflg
   sna
   jmp 1f
   dac lastre
   jms comp
   1; jms found; 0
   jmp i compile
1: "???
   lac lastre
   sna
   jmp error
   jmp i compile

chrcls:
  jmp error

beglin: "???
   jms comp
   1; jms matbol; 0
   dzm prev
   jmp cadvanc

endlin: "???
   jms comp
   1; jms mateol; 0
   dzm prev
   jmp cadvanc

clsure:
   lac prev
   sna
   jmp error
   tad d1
   dac 1f
   jms comp
   1; jms matclo; 1: 0; 0
   dzm prev
   jmp cadvanc

comp: 0 "???
   -1
   tad comp
   dac 9
   lac 8
"[handwritten page number top right of scan - 18]
   dac prev
1: "???
   lac i 9
   sna
   jmp i 9
   dac i 8
   jmp 1b

execute: 0
   jms gline
   lac linep
   dac tal1
   dzm charno
   dzm fchrno
   dzm lchrno
   lac jmpclist
   dac trvect
   lac jmpnlist
   dac trvect+1
   lac jmpxchg
   dac i trvect+1
   jmp 1f

xchg:
   lacq
   sad o12
   jmp i execute
   lac jmpxchg
   dac i 8
1: "???
   lac trvect
   lmq
   lac trvect+1
   dac trvect
   lacq
   dac trvect+1
   tad dm1
   dac 8
   jms getsc; tal1
   lmq
   isz charno
   jms compbuf
charno:
   0
trvect:
   0;0

matchar: 0 "???
   -2
   tad matchar
   dac exret
   lac i exret
   dac exret
   lacq
   sad i matchar
   skp
   jmp 1f
   lac matchar
   and o17777
   tad jms1
   dac i 8
"[handwritten page number top right of scan - 19]
   lac i exret
   dac i 8
1: "???
   isz exret
   jmp i exret

found: 0
   -2
   tad found
   dac exret
   lac i exret
   dac exret
   lac fchrno
   sza
   jmp 1f
   isz execute
   jmp 2f
1: "???
   sad i exret
   jmp 1f
   cma
   tad i exret
   spa
   jmp 2f
   jmp 3f
1: "???
   lac charno
   cma
   tad charno
   spa
   jmp 3f
2: "???
   lac i exret
   dac fchrno
   lac charno
   dac lchrno
3: "???
   isz exret
   jmp i exret

matbol: 0 "???
   lac charno
   sad d1
   jmp 1f
   lac matbol
   jmp 2f
1: "???
   lac matbol
   jmp 3f

mateol: 0 "???
   lacq
   sad o12
   jmp 1f
   lac mateol
2: "???
   tad dm2
   dac exret
   lac i exret
   dac 9
   jmp i 9
"[handwritten page number top right of scan - 20]
1: "???
   lac mateol
3: "???
   tad dm3
   dac 9
   lac i 9
   isz 9
   dac i 9
   jmp i 9

matclo: 0 "???
   -2
   tad matclo
   dac exret
   lac i exret
   dac cloret
   lac i cloret
   dac 1f
   dac 2f
   lac i matclo
   dac exret
   jms i exret; 1: 0
   isz matclo
   jms i matclo; 2: 0
   isz cloret
   jmp i cloret

"??? the remainder of this scan had an unreadable first character
"??? I did the best I could to recreate the characters appropriately
d1: 1
o133: 0133
dm3: -3
o136: 0136
dm2: -2
o52: 052
o57: 057
o77: 077
o40: 040
o12: 012
d47: 47
d58: 58
dm48: -48
d10: 10
d8: 8
d48: o60: 060
d100000: 100000
o44: 044
o53: 053
o56: 056
o55: 055
o11: 011
o400000: 0400000
o17777: 017777
o144: 0144
dm1: -1
o56012: 056012
o777: 0777
o100: 0100
o43: 043
o777000: 0777000
o75: 075
o167: 0167
o161: 0161
"[handwritten page number top right of scan - 21]
o160: 0160
o143: 0143
o141: 0141
o1777: 01777
d1024: 1024
o776000: 0776000
o162: 0162
o163: 0163
o73: 073
o54: 054
o17: 017

tname:
   0145056;0164155;0160040;040040
tbufp: tbuf
linep: line
nlistp: nlist
fbufp: fbuf
dskbfp: dskbuf "[line crossed out - scan markup]
edskbfp: dskbuf+1024 "[line crossed out - scan markup]
lnodp: lnodes
linpm1: line-1
jmpclist: jmp clist
jmpnlist: jmp nlist
jmpxchg: jmp xchg
jms1: jms 1
tal: .=.+1
exret: .=.+1
cloret: .=.+1
delim: .=.+1
prev: .=.+1
compflg: .=.+1
tal1: .=.+1
c1: .=.+1
ital: .=.+1
otal: .=.+1
diskin: .=.+1
glint1: .=.+1
c2: .=.+1
num: .=.+1
zermp: .=.+1
minflg: .=.+1
adrflg: .=.+1
dot: .=.+1
addr: .=.+1
addr1: .=.+1
addr2: .=.+1
eofp: .=.+1
zerop: .=.+1
dskadr: .=.+1
linsiz: .=.+1
tfi: .=.+1
fchrno: .=.+1
lchrno: .=.+1
lastre: .=.+1
bett1: .=.+1
bett2: .=.+1
wrflg: .=.+1
apt1: .=.+1
sfi: .=.+1
"[handwritten page number top right of scan - 22]
sfo: .=.+1
sctal: .=.+1
sctalp: .=.+1
char: .=.+1
fbuf: .=.+4  "not sure if this is fbuf, but
tbuf: .=.+64 "there is a write; tbuf; 64 call
line: .=.+64
nlist: .=.+50
clist: .=.+50
compbuf: .=.+100
dskbuf: .=.+1 "[line crossed out - scan markup]
lnodes: .=.+1000