+"[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
projects / unix-history / blobdiff