/GEDIT/
MQA=7501 
SWP=7521 
DPMS=6155
 FIELD 1
*0456
UP,0232
 UPSUB
DO,0213
 DOSUB
RI,0230
 RISUB
LF,0210
 LFSUB
LINEF,0212
 CLEAR
CR,0215
 LINEST
F,0306
 FSET
ST,0336
 STICK
HOME, 0235
 HOMSUB
RET, 0333
 RETSUB
END,0305
 ENDSUB
CHAIN, 0216
 CHN
0000
*0030
RESET,UP
PICK,UP
TAB,0
FFLAG,0
PCLEAR,3777
X000,0
WCHK,-14
WL,-14
PPOINT,4000
WADDR,5250
A,0
X1,0
Y1,0
B,0
CHK,0
HOMFLG,0
TABLE,3600
C,0200
PPOIN,0
RF,0
RCNT,0
BCNT,0
BFLAG,0
C160,160
C20,20
C7561,-7561
CPRE,PREPLA
CHOM, HOMSUB
CPPL, PPLACE
 C12,12
 C1360,1360
 CM4,-20
 CNT,0
C3600,3600
*0400
MAIN, JMS CLEAR
 CLA CLL
 TAD (1360)
 6150
 NOP
 NOP
 TAD (0012)
 6151
READ, TAD (-20)
 DCA BCNT
 KSF 100
 JMP BLINK
 KRB 100
 DCA CHK
FIND, CLA CLL
 TAD I PICK
 CIA
 TAD CHK
 SZA
 JMP .+11
 CLA CLL
 ISZ PICK
 TAD I PICK
 DCA TAB
 TAD RESET
 DCA PICK
 JMS I TAB
 JMP READ
 CLA CLL
 TAD (2)
 TAD PICK
 DCA PICK
 TAD I PICK
 SZA
 JMP FIND
 CLA CLL
 TAD RESET
 DCA PICK
 JMP READ
 *0511
BLINK, CLA CLL
 6156
 JMP READ+2
 ISZ BCNT
 JMP READ+2
 ISZ BFLAG
 JMP B2
 TAD I WADDR
 AND PCLEAR
 DCA I WADDR
 JMP READ
B2, CLA CLL
 TAD (7777)
 DCA BFLAG
 JMS PPLACE
 JMP READ
CHN, CLA CLL
 6152
 CDF CIF 00
 JMP I (0260)
*0600
UPSUB,0
 JMS PREPLA
 ISZ FFLAG
 JMP .+4
 TAD WADDR
 TAD (-160)
 DCA WADDR
 TAD (-20)
 TAD WADDR
 DCA WADDR
 CLA CLL
 TAD (-1360)
 TAD WADDR
 SMA
 JMP U2
 CLA CLL
 TAD WADDR
 SMA
 JMP U3
U2, CLA CLL
 JMS PPLACE
 JMP I UPSUB
U3, CLA CLL
 JMS HOMSUB
 6157
 JMP I UPSUB
RISUB,0
 JMS PREPLA
 ISZ FFLAG
 JMP .+4
 ISZ WADDR
 JMS PPLACE
 JMP I UPSUB
 JMS SPOT
 JMS PPLACE
 JMP I RISUB
LFSUB,0
 JMS PREPLA
 ISZ FFLAG
 JMP .+6
 TAD WADDR
 TAD (-1)
 DCA WADDR
 JMS PPLACE
 JMP I UPSUB
 NOP
 JMS RESPOT
 JMS PPLACE
 JMP I LFSUB
SPOT,0
 ISZ WCHK
 JMP .+16
 TAD WL
 DCA WCHK
 CLL CLA
 TAD (4000)
 DCA PPOINT
 TAD (3777)
 DCA PCLEAR
 TAD WADDR
 IAC
 DCA WADDR
 NOP
 JMP I SPOT
 NOP
 CLL CLA
 TAD PPOINT
 RAR
 DCA PPOINT
 STL
 TAD PCLEAR
 RAR
 DCA PCLEAR
 NOP
 JMP I SPOT
 NOP
RESPOT,0
 CLA CLL
 TAD (-1)
 TAD WCHK
 DCA WCHK
 TAD (15)
 TAD WCHK
 SZA
 JMP .+14
 CLL CLA
 TAD (-1)
 DCA WCHK
 CLL CLA IAC
 DCA PPOINT
 TAD (7776)
 DCA PCLEAR
 TAD (-1)
 TAD WADDR
 DCA WADDR
 JMP I RESPOT
 CLA CLL
 TAD PPOINT
 RAL 
 DCA PPOINT
 TAD PCLEAR
 STL
 RAL
 DCA PCLEAR
 JMP I RESPOT
*1000
PREPLA,0
 TAD HOMFLG
 SZA
 JMP .+5
 TAD PCLEAR
 AND I WADDR
 DCA I WADDR
 JMP I PREPLA
 CLA CLL
 DCA HOMFLG
 JMS PPLACE
 JMP I PREPLA
PPLACE,0
 TAD PPOINT
 SWP
 CLA CLL
 TAD I WADDR
 MQA
 DCA I WADDR
 JMP I PPLACE
STICK,0
 ISZ HOMFLG
 JMP I STICK
LINEST,0
 NOP
 JMP I LINEST
RESTIC,0
 NOP
 JMP I RESTIC
FSET,0
 TAD (7777)
 DCA FFLAG
 JMP I FSET
CLEAR,0
 CLA CLL
 TAD (1360)
 DCA A
 TAD (-6201)
 DCA B
C1,ISZ B
 JMP C2
 JMP I CLEAR
C2,DCA I A
 ISZ A
 JMP C1
 HLT
HOMSUB,0
 CLA CLL
 TAD WL
 DCA WCHK
 TAD (4470)
 DCA WADDR
 TAD (4000)
 DCA PPOINT
 TAD (3777)
 DCA PCLEAR
 JMS PPLACE
 JMP I HOMSUB
ENDSUB,0
 CLA CLL
 TAD (1357)
 DCA A
 ISZ A
 CLA CLL
 DCA PPOIN
 TAD I A
 SZA
 JMP E1-2
E2, TAD A
 TAD (-7557)
 SZA
 JMP ENDSUB+4
 CDF 0
 DCA I TABLE
 CDF 10
 TAD (3600)
 DCA  TABLE
 6152 
 CDF CIF 00
 JMP I C
 DCA B
 STL CLA
E1, TAD PPOIN
 RAR
 SNA
 JMP E2
 DCA PPOIN
 CLA CLL
 TAD B
 RAL
 DCA B
 SNL
 JMP E1
 TAD A
 CDF 0
 DCA I TABLE 
 CDF 10
 ISZ TABLE
 TAD PPOIN
 CDF 0
 DCA I TABLE
 CDF 10
 ISZ TABLE
 CLA CLL
 TAD TABLE
 TAD (-1537)
 SPA
 JMP ERROR
 CLA CLL
 JMP E1
RETSUB, CLA CLL
 6152
 CDF CIF 00
 JMP I (7600)
 *1200
DOSUB,0
 JMS I CPRE
 ISZ FFLAG
 JMP C4
 TAD WADDR
 TAD C160
 DCA WADDR
C4, TAD WADDR
 TAD C20
 DCA WADDR
 CLA CLL
 TAD C7561
 TAD WADDR
 SPA SZA
 JMP C5
 CLA CLL
 TAD WADDR
 SMA
 JMP C5
 CLA CLL
 JMS I CHOM
 6157
 JMP I DOSUB
C5, CLA CLL
 JMS I CPPL
 JMP I DOSUB
ERROR, 6157
 6152
 TAD CM4
 DCA CNT
 6156
 JMP .-1
 ISZ CNT
 JMP .-3
 CLA CLL
 TAD C1360
 6150
 NOP
 NOP
 TAD C12
 6151
 TAD CM4
 DCA CNT
 6156
 JMP .-1
 ISZ CNT
 JMP .-3
 TAD C3600
 DCA TABLE
 JMP ERROR+1
$