--- /dev/null
+CLZE=6130
+CLSK=6131
+CLOE=6132
+CLAB=6133
+CLEN=6134
+CLSA=6135
+CLBA=6136
+CLCA=6137
+CREXT=0100
+CR2=0200
+CR3=0300
+CR4=0400
+CR5=0500
+CR6=0600
+COVSTAT=4000
+CMFREE=0000
+CMPROG=1000
+CADC=0040
+CINH=0020
+CION=0010
+CEV3=0004
+CEV2=0002
+CEV1=00001
+DIXY=6055
+DILX=6053
+DILY=6054
+DILE=6056
+DISD=6052
+XRIN=NOP
+XRCL=NOP
+/DSB=XXXX
+DXC=JMS I IVCLDX
+DYC=JMS I IVCLDY
+DXL=0000
+DYL=0000
+DIS=0000
+/CRF=NOP
+/CCF=NOP
+ *0
+ 0
+ JMP I 2
+ INTSER
+EMPTY, 0
+ODT1, 0
+ODT2, 0
+ODT3, 0
+ *10
+AUTO10, 0
+AUTO11, 0
+AUTO12, 0
+AUTO13, 0
+AUTO14, 0
+AUTO15, 0
+AUTO16, 0
+AUTO17, 0
+ *20
+ONEOUT, 0
+ONECNT, 0
+ONEFLG, 0
+ONETHE, 0
+ONEVEX, 0
+ONEVEY, 0
+ONEPEX, 0
+ONEPEY, 0
+ONESIN, 0
+ONECOS, 0
+ONEFIN, 0
+TWOOUT, 0
+TWOCNT, 0
+TWOFLG, 0
+TWOTHE, 0
+TWOVEX, 0
+TWOVEY, 0
+TWOPEX, 0
+TWOPEY, 0
+TWOSIN, 0
+TWOCOS, 0
+TWOFIN, 0
+XONEDS, 0
+YONEDS, 0
+XTWODS, 0
+YTWODS, 0
+DIXTEM, 0
+DIYTEM, 0
+DISCNT, 0
+T10SIN, 0
+T20SIN, 0
+T30SIN, 0
+T10COS, 0
+T20COS, 0
+T30COS, 0
+CALSIN, 0
+CALCOS, 0
+SINE, SINEIN
+COSINE, COSINI
+MULT, MULTI
+RSHIFT, SHIFTR
+VECTOR, DISPLY
+CALPOS, POSCAL
+INTWRD, 0
+INTCNT, 0
+HYPER, HYPSET
+MESOUT, CHARS
+THEADJ, THEAJI
+VEESCL, VEELIM
+ISHFT, DISHFT
+RESET1, RESE1
+GAMOVR, 0
+ACCFLG, 0
+ACCPER, -30
+MEXP, -400
+PROX, 0
+PROY, 0
+PROLIF, -360
+BUFTMP, 0
+ONEFIL, DISBUF
+TWOFIL, DISBUF+40
+P5, 5
+P10, 10
+P17, 17
+P20, 20
+P37, 37
+P40, 40
+P100, 100
+P132, 132
+P200, 200
+P400, 400
+P550, 550
+P3777, 3777
+M4, -4
+M6, -6
+M10, -10
+M11, -11
+M264, -264
+M200, -200
+M400, -400
+M550, -550
+IVCLDX, VCLDX
+IVCLDY, VCLDY
+ *200
+START, CLA CLL
+ DIXY
+ LAS
+ TAD SWRD
+ TAD XROPT
+ DCA COLDST
+RESTRT, CLA CMA
+ XRCL
+ CLA CLL
+ TAD P17
+ DCA AUTO10
+ TAD TABLEN
+ DCA AUTO11
+ DCA I AUTO10
+ ISZ AUTO11
+ JMP .-2
+ TAD STRT1
+ DCA ONEPEX
+ TAD STRT2
+ DCA TWOPEX
+ TAD P37
+ DCA ONECOS
+ TAD P37
+ DCA TWOCOS
+ TAD ACCPER
+ DCA ACCFLG
+ DCA ONEFIN
+ DCA TWOFIN
+ DCA GAMOVR
+ JMS I BUFSET
+ TCF
+ PCF
+ RRB
+ CLA CMA
+ CLZE
+ CLA
+ TAD CDELY
+ CLAB
+ CLA
+ TAD CCNF
+ CLOE
+ CLA CLL
+ JMP COLDST
+
+CCNF, CR4+CMPROG+CION+COVSTAT
+CDELY, -310
+UPDATE, CLA CLL
+
+COLDST, 0
+ LAS
+ DCA INTWRD
+ TAD INTWRD
+ RTR
+ RTR
+ AND LFTHAF
+ DCA INTTEM
+ TAD INTWRD
+ AND RYTHAF
+ TAD INTTEM
+ JMP .+3
+CODST, XRIN
+ XRCL
+ DCA INTWRD
+ TAD M550
+ DCA INTCNT
+ ION
+ TAD ACCFLG
+ IAC
+ SMA SZA
+ TAD ACCPER
+ DCA ACCFLG
+ JMP I .+1
+ ONEUP
+BUFSET, SETBUF
+TABLEN, AUTO17-CALCOS
+INTTEM, 0
+LFTHAF, 0360
+RYTHAF, 0017
+STRT1, 1000
+STRT2, -1000
+SWRD, 2000-CODST
+XROPT, JMP CODST
+INTSER, DCA INTACC
+ RAR
+ DCA INTLNK
+ CLSK
+ JMP INTBUS
+ CLA IAC RTR
+ CLSA
+ CLA CLL
+ JMP UPDATE
+INTBUS, KSF
+ JMP .+5
+ KCC
+ TAD GAMOVR
+ SZA CLA
+ JMP RESTRT
+/ TCF
+ ISZ INTGLH
+ SKP
+ HLT
+INTRET, CLA CLL
+ TAD INTLNK
+ RAL
+ TAD INTACC
+ ION
+ JMP I 0
+INTACC, 0
+INTLNK, 0
+INTGLH, 0
+ *400
+ONEUP, TAD ONEFLG
+ SNA
+ JMP ONEOK
+ IAC
+ SNA
+ TAD ONEFIN
+ DCA ONEFLG
+ JMP I ITWOUP
+ONEOK, TAD ONEOUT
+ SZA CLA
+ JMP ONEFIG
+ TAD TWOFIN
+ SZA CLA
+ JMS I ONEWN
+ TAD INTWRD
+ AND OP300
+ TAD OM300
+ SZA CLA
+ JMP ONELEF
+ CMA
+ JMP I HYPER
+ONELEF, TAD INTWRD
+ AND P200
+ SNA CLA
+ JMP ONERYT
+ CLA CLL CMA
+ JMP ONEFIG
+ONERYT, TAD INTWRD
+ AND P100
+ SZA CLA
+ IAC
+ONEFIG, TAD ONETHE
+ JMS I THEADJ
+ DCA ONETHE
+ TAD ONETHE
+ JMS I SINE
+ DCA ONESIN
+ TAD ONETHE
+ JMS I COSINE
+ DCA ONECOS
+ TAD ONEOUT
+ SZA CLA
+ JMP ONEVEL
+ONEMOV, TAD ACCFLG
+ SZA CLA
+ JMP ONEVEL
+ TAD INTWRD
+ AND P40
+ SNA CLA
+ JMP ONEVEL
+ TAD ONECOS
+ TAD ONEVEY
+ JMS I VEESCL
+ DCA ONEVEY
+ TAD ONESIN
+ TAD ONEVEX
+ JMS I VEESCL
+ DCA ONEVEX
+ONEVEL, TAD ONEVEX
+ JMS I ISHFT
+ JMS I ISHFT
+ TAD ONEPEX
+ DCA ONEPEX
+ TAD ONEVEY
+ JMS I ISHFT
+ JMS I ISHFT
+ TAD ONEPEY
+ DCA ONEPEY
+ TAD ONEOUT
+ SZA CLA
+ JMP I ITWOUP
+ONELNC, TAD LNC1FG
+ SNA CLA
+ JMP .+3
+ ISZ LNC1FG
+ JMP I ITWOUP
+ TAD INTWRD
+ AND P20
+ SNA CLA
+ JMP I ITWOUP
+
+ TAD PROLIF
+ DCA I AUTO16
+ TAD ONEVEX
+ JMS I ISHFT
+ JMS I RSHIFT
+ TAD ONESIN
+ JMS I RSHIFT
+ DCA I AUTO16
+ TAD ONESIN
+ CLL RTL
+ TAD ONEPEX
+ DCA I AUTO16
+ TAD ONEVEY
+ JMS I ISHFT
+ JMS I RSHIFT
+ TAD ONECOS
+ JMS I RSHIFT
+ DCA I AUTO16
+ TAD ONECOS
+ CLL RTL
+ TAD ONEPEY
+ DCA I AUTO16
+ TAD M200
+ DCA LNC1FG
+ JMS I RESET1
+ JMP I .+1
+ITWOUP, TWOUP
+LNC1FG, 0
+OP300, 300
+OM300, -300
+ONEWN, ONEWIN
+ *600
+TWOUP, TAD TWOFLG
+ SNA
+ JMP TWOOK
+ IAC
+ SNA
+ TAD TWOFIN
+ DCA TWOFLG
+ JMP I IONEST
+TWOOK, TAD TWOOUT
+ SZA CLA
+ JMP TWOFIG
+ TAD ONEFIN
+ SZA CLA
+ JMS I TWOWN
+ TAD INTWRD
+ AND OP14
+ TAD OM14
+ SNA CLA
+ JMP I HYPER
+
+TWOLEF, TAD INTWRD
+ AND P10
+ SNA CLA
+ JMP TWORYT
+ CLA CLL CMA
+ JMP TWOFIG
+TWORYT, CLA CLL IAC RTL
+ AND INTWRD
+ SZA CLA
+ IAC
+TWOFIG, TAD TWOTHE
+ JMS I THEADJ
+ DCA TWOTHE
+ TAD TWOTHE
+ JMS I SINE
+ DCA TWOSIN
+ TAD TWOTHE
+ JMS I COSINE
+ DCA TWOCOS
+ TAD TWOOUT
+ SZA CLA
+ JMP TWOVEL
+TWOMOV, TAD ACCFLG
+ SZA CLA
+ JMP TWOVEL
+ CLL IAC RAL
+ AND INTWRD
+ SNA CLA
+ JMP TWOVEL
+ TAD TWOSIN
+ TAD TWOVEX
+ JMS I VEESCL
+ DCA TWOVEX
+ TAD TWOCOS
+ TAD TWOVEY
+ JMS I VEESCL
+ DCA TWOVEY
+TWOVEL, TAD TWOVEX
+ JMS I ISHFT /COMPONENTS
+ JMS I ISHFT
+ TAD TWOPEX
+ DCA TWOPEX
+ TAD TWOVEY
+ JMS I ISHFT
+ JMS I ISHFT
+ TAD TWOPEY
+ DCA TWOPEY
+ TAD TWOOUT
+ SZA CLA
+ JMP I IONEST
+TWOLNC, TAD LNC2FG
+ SNA CLA
+ JMP .+3
+ ISZ LNC2FG
+ JMP I IONEST
+ IAC
+ AND INTWRD
+ SNA CLA
+ JMP I IONEST
+ TAD PROLIF
+ DCA I AUTO16
+ TAD TWOVEX
+ JMS I ISHFT
+ JMS I RSHIFT
+ TAD TWOSIN
+ JMS I RSHIFT
+ DCA I AUTO16
+ TAD TWOSIN
+ CLL RTL
+ TAD TWOPEX
+ DCA I AUTO16
+ TAD TWOVEY
+ JMS I ISHFT
+ JMS I RSHIFT
+ TAD TWOCOS
+ JMS I RSHIFT
+ DCA I AUTO16
+ TAD TWOCOS
+ CLL RTL
+ TAD TWOPEY
+ DCA I AUTO16
+ TAD M200
+ DCA LNC2FG
+ JMS I RESET1
+ JMP I .+1
+IONEST, ONESET
+LNC2FG, 0
+OP14, 14
+OM14, -14
+TWOWN, TWOWIN
+ *1000
+ONESET, CLA CLL
+ TAD ONEFLG
+ SZA CLA
+ JMP I ITWOST
+ TAD ONESIN
+ DCA CALSIN
+ TAD ONECOS
+ DCA CALCOS
+ JMS I CALPOS
+ TAD ONEFIL
+ DCA AUTO10
+ TAD ONEPEX
+ TAD T30SIN
+ DCA I AUTO10
+ TAD ONEPEY
+ TAD T30COS
+ DCA I AUTO10
+ TAD T10COS
+ CIA
+ TAD ONEPEX
+ DCA I AUTO10
+ TAD T10SIN
+ TAD ONEPEY
+ DCA I AUTO10
+ TAD T30SIN
+ TAD T30COS
+ CIA
+ TAD ONEPEX
+ DCA I AUTO10
+ TAD T30COS
+ CIA
+ TAD T30SIN
+ TAD ONEPEY
+ DCA I AUTO10
+ TAD T10SIN
+ CIA
+ TAD ONEPEX
+ DCA I AUTO10
+ TAD T10COS
+ CIA
+ TAD ONEPEY
+ DCA I AUTO10
+FLAM1, TAD INTWRD
+ AND P40
+ SNA CLA
+ JMP ONECON
+ TAD ONEOUT
+ SZA CLA
+ JMP ONECON
+ TAD ONFG1
+ SNA
+ CLA CLL CMA RAL
+ DCA ONFG1
+ ISZ ONFG1
+ JMP ONECON
+ TAD ONFG2
+ CMA
+ DCA ONFG2
+ TAD ONFG2
+ SNA CLA
+ TAD T10SIN
+ TAD T30SIN
+ CIA
+ TAD ONEPEX
+ DCA I AUTO10
+ TAD ONFG2
+ SNA CLA
+ TAD T10COS
+ TAD T30COS
+ CIA
+ TAD ONEPEY
+ DCA I AUTO10
+ TAD T10SIN
+ CIA
+ TAD ONEPEX
+ DCA I AUTO10
+ TAD T10COS
+ CIA
+ TAD ONEPEY
+ DCA I AUTO10
+ CLA CLL CMA RAL
+ONECON, TAD M6
+ DCA ONECNT
+ TAD T30SIN
+ CIA
+ TAD T30COS
+ TAD ONEPEX
+ DCA I AUTO10
+ TAD T30SIN
+ TAD T30COS
+ CIA
+ TAD ONEPEY
+ DCA I AUTO10
+ TAD T10COS
+ TAD ONEPEX
+ DCA I AUTO10
+ TAD T10SIN
+ CIA
+ TAD ONEPEY
+ DCA I AUTO10
+ TAD T30SIN
+ TAD ONEPEX
+ DCA I AUTO10
+ TAD T30COS
+ TAD ONEPEY
+ DCA I AUTO10
+ JMP I ITWOST
+ITWOST, TWOSET
+ONFG1, 0
+ONFG2, 0
+ *1200
+TWOSET, CLA CLL
+ TAD TWOFLG
+ SZA CLA
+ JMP I IFILDS
+ TAD TWOSIN
+ DCA CALSIN
+ TAD TWOCOS
+ DCA CALCOS
+ JMS I CALPOS
+ TAD TWOFIL
+ DCA AUTO10
+ TAD T30SIN
+ TAD TWOPEX
+ DCA I AUTO10
+ TAD T30COS
+ TAD TWOPEY
+ DCA I AUTO10
+ TAD T20COS
+ CIA
+ TAD T20SIN
+ TAD TWOPEX
+ DCA I AUTO10
+ TAD T20SIN
+ TAD T20COS
+ TAD TWOPEY
+ DCA I AUTO10
+ TAD T20COS
+ CIA
+ TAD TWOPEX
+ DCA I AUTO10
+ TAD T20SIN
+ TAD TWOPEY
+ DCA I AUTO10
+ TAD T20COS
+ TAD T30SIN
+ CIA
+ TAD TWOPEX
+ DCA I AUTO10
+ TAD T30COS
+ CIA
+ TAD T20SIN
+ TAD TWOPEY
+ DCA I AUTO10
+ TAD T20SIN
+ CIA
+ TAD TWOPEX
+ DCA I AUTO10
+ TAD T20COS
+ CIA
+ TAD TWOPEY
+ DCA I AUTO10
+FLAM2, CLA CLL IAC RAL
+ AND INTWRD
+ SNA CLA
+ JMP TWOCON
+ TAD TWOOUT
+ SZA CLA
+ JMP TWOCON
+ TAD TWFG1
+ SNA
+ CLA CLL CMA RAL
+ DCA TWFG1
+ ISZ TWFG1
+ JMP TWOCON
+ TAD TWFG2
+ CMA
+ DCA TWFG2
+
+ TAD TWFG2
+ SNA CLA
+ TAD T20SIN
+ TAD T30SIN
+ CIA
+ TAD TWOPEX
+ DCA I AUTO10
+ TAD TWFG2
+ SNA CLA
+ TAD T20COS
+ TAD T30COS
+ CIA
+ TAD TWOPEY
+ DCA I AUTO10
+ TAD T20SIN
+ CIA
+ TAD TWOPEX
+ DCA I AUTO10
+ TAD T20COS
+ CIA
+ TAD TWOPEY
+ DCA I AUTO10
+ CLA CLL CMA RAL
+TWOCON, TAD M10
+ DCA TWOCNT
+ TAD T30SIN
+ CIA
+ TAD T20COS
+ TAD TWOPEX
+ DCA I AUTO10
+ TAD T30COS
+ TAD T20SIN
+ CIA
+ TAD TWOPEY
+ DCA I AUTO10
+ TAD T20COS
+ TAD TWOPEX
+ DCA I AUTO10
+ TAD T20SIN
+ CIA
+ TAD TWOPEY
+ DCA I AUTO10
+ TAD T20COS
+ TAD T20SIN
+ TAD TWOPEX
+ DCA I AUTO10
+ TAD T20SIN
+ CIA
+ TAD T20COS
+ TAD TWOPEY
+ DCA I AUTO10
+ TAD T30SIN
+ TAD TWOPEX
+ DCA I AUTO10
+ TAD T30COS
+ TAD TWOPEY
+ DCA I AUTO10
+ JMP I IFILDS
+IFILDS, FILDIS
+TWFG1, 0
+TWFG2, 0
+ *1400
+FILDIS, CLA CLL
+ JMS I COLIDE
+/ DSB 1
+ TAD ONEFLG
+ SZA CLA
+ JMP TWODIS
+ TAD ONEFIL
+ DCA AUTO10
+ TAD ONECNT
+ DCA AUTO11
+ TAD I AUTO10
+ DCA XONEDS
+ TAD I AUTO10
+ DCA YONEDS
+ TAD ONEOUT
+ SZA CLA
+ JMP I IONEEX
+FILONE, TAD I AUTO10
+ DCA XTWODS
+ TAD I AUTO10
+ DCA YTWODS
+ JMS I VECTOR
+ ISZ AUTO11
+ SKP
+ JMP TWODIS
+ TAD XTWODS
+ DCA XONEDS
+ TAD YTWODS
+ DCA YONEDS
+ JMP FILONE
+TWODIS, TAD TWOFLG
+ SZA CLA
+ JMP I IPRODS
+ TAD TWOFIL
+ DCA AUTO10
+ TAD TWOCNT
+ DCA AUTO11
+ TAD I AUTO10
+ DCA XONEDS
+ TAD I AUTO10
+ DCA YONEDS
+ TAD TWOOUT
+ SZA CLA
+ JMP I ITWOEX
+TWDLOP, TAD I AUTO10
+ DCA XTWODS
+ TAD I AUTO10
+ DCA YTWODS
+ JMS I VECTOR
+ ISZ AUTO11
+ JMP .+3
+ JMP I .+1
+IPRODS, PRODIS
+ TAD XTWODS
+ DCA XONEDS
+ TAD YTWODS
+ DCA YONEDS
+ JMP TWDLOP
+COLIDE, COLLID
+IONEEX, ONEEXP
+ITWOEX, TWOEXP
+DISPLY, 0
+ CLA
+ TAD XONEDS
+ CIA
+ TAD XTWODS
+ JMS DISHFT
+ DCA DIXTEM
+ TAD YONEDS
+ CIA
+ TAD YTWODS
+ JMS DISHFT
+ DCA DIYTEM
+ TAD M4
+ DCA DISCNT
+DISLOP, TAD XONEDS
+ TAD DIXTEM
+ DCA XONEDS
+ TAD YONEDS
+ TAD DIYTEM
+ DCA YONEDS
+ TAD XONEDS
+/ RTR
+ DXC DXL
+ CLA
+ TAD YONEDS
+ DYC DYL DIS
+ CLA
+ ISZ DISCNT
+ JMP DISLOP
+ JMP I DISPLY
+DISHFT, 0
+ CLL
+ SPA
+ CML IAC
+ RAR
+ CLL
+ SPA
+ CML IAC
+ RAR
+ JMP I DISHFT
+ *1600
+PRODIS, CLA CLL
+ TAD BUFST
+ DCA BUFTMP
+/ DSB 2
+PROLOP, TAD I BUFTMP
+ SNA
+ JMP EXPIRE
+ IAC
+ DCA I BUFTMP
+ ISZ BUFTMP
+ TAD I BUFTMP
+ ISZ BUFTMP
+ TAD I BUFTMP
+ DCA I BUFTMP
+ TAD I BUFTMP
+ DCA PROX
+ ISZ BUFTMP
+ TAD I BUFTMP
+ ISZ BUFTMP
+ TAD I BUFTMP
+ DCA I BUFTMP
+ TAD I BUFTMP
+ DCA PROY
+ TAD PROX
+/ RTR
+/ RAR
+ DXC DXL
+ CLA
+ TAD PROY
+/ RTR
+ DYC DYL DIS
+ CLA
+ JMS I CHKOUT
+ ISZ BUFTMP
+ TAD BUFTMP
+ TAD BUFLIM
+ SZA CLA
+ JMP PROLOP
+/ BEGIN. TURNS OUT THAT ROUGHLY 2
+FINISH, TAD GAMOVR
+ SZA CLA
+ JMP I ENDGAM
+/ TAD M400
+ CLA CLL
+ TAD INTCNT
+ CIA
+ JMP .
+ENDGAM, JOBLOP
+EXPIRE, TAD BUFTMP
+ TAD P5
+ DCA BUFTMP
+ TAD BUFTMP
+ TAD BUFLIM
+ SZA CLA
+ JMP PROLOP
+ JMP FINISH
+BUFST, DISBUF+101
+BUFLIM, -DISBUF-175
+CHKOUT, CHECK
+RESE1, 0
+ TAD MRES
+ DCA RESCNT
+RESLOP, TAD RESPNT
+ TAD P5
+ DCA RESPNT
+ TAD RESPNT
+ TAD BUFLIM
+ SZA CLA
+ JMP RESCON
+ TAD BUFST
+ DCA RESPNT
+RESCON, TAD I RESPNT
+ SNA CLA
+ JMP RESFND
+ ISZ RESCNT
+ JMP RESLOP
+ HLT
+RESFND, CMA
+ TAD RESPNT
+ DCA AUTO16
+ JMP I RESE1
+MRES, -14
+RESCNT, 0
+RESPNT, 0
+SETBUF, 0
+ CMA
+ TAD BUFST
+ DCA AUTO16
+ TAD BUFST
+ DCA BUFTMP
+ TAD BUFST
+ DCA RESPNT
+ TAD BUFST
+ DCA SETPNT
+SETLOP, DCA I SETPNT
+ ISZ SETPNT
+ TAD SETPNT
+ TAD BUFLIM
+ SZA CLA
+ JMP SETLOP
+ JMP I SETBUF
+SETPNT, 0
+ *2000
+CHECK, 0
+ TAD ONEFLG
+ SZA CLA
+ JMP CHECK2
+ TAD ONEOUT
+ SZA CLA
+ JMP CHECK2
+ TAD PROX
+ CIA
+ TAD ONEPEX
+ SPA
+ CIA
+ TAD LIMIT
+ SMA CLA
+ JMP CHECK2
+ TAD PROY
+ CIA
+ TAD ONEPEY
+ SPA
+ CIA
+ TAD LIMIT
+ SMA CLA
+ JMP CHECK2
+ TAD MEXP
+ DCA ONEOUT
+ JMS CUTOUT
+CHECK2, TAD TWOFLG
+ SZA CLA
+ JMP I CHECK
+ TAD TWOOUT
+ SZA CLA
+ JMP I CHECK
+ TAD PROX
+ CIA
+ TAD TWOPEX
+ SPA
+ CIA
+ TAD LIMIT
+ SMA CLA
+ JMP I CHECK
+ TAD PROY
+ CIA
+ TAD TWOPEY
+ SPA
+ CIA
+ TAD LIMIT
+ SMA CLA
+ JMP I CHECK
+ TAD MEXP
+ DCA TWOOUT
+ JMS CUTOUT
+ JMP I CHECK
+LIMIT, -120
+CUTOUT, 0
+ TAD M4
+ TAD BUFTMP
+ DCA CUTPNT
+ DCA I CUTPNT
+ JMP I CUTOUT
+CUTPNT, 0
+COLLID, 0
+ TAD ONEFLG
+ SZA CLA
+ JMP I COLLID
+ TAD TWOFLG
+ SZA CLA
+ JMP I COLLID
+ TAD ONEOUT
+ SZA CLA
+ JMP I COLLID
+ TAD TWOOUT
+ SZA CLA
+ JMP I COLLID
+ TAD ONEPEX
+ CIA
+ TAD TWOPEX
+ SPA
+ CIA
+ TAD COLLIM
+ SMA CLA
+ JMP I COLLID
+ TAD ONEPEY
+ CIA
+ TAD TWOPEY
+ SPA
+ CIA
+ TAD COLLIM
+ SMA CLA
+ JMP I COLLID
+ TAD MEXP
+ DCA ONEOUT
+ TAD MEXP
+ DCA TWOOUT
+ JMP I COLLID
+COLLIM, -300
+ *2200
+HYPSET, DCA RTNFLG
+ TAD RTNFLG
+ SZA CLA
+ TAD ONEDIF
+ TAD TWOLST
+ DCA AUTO15
+ CLCA
+
+ DCA AUTO17
+ TAD I AUTO17
+ AND TIMOUT
+ CIA
+ DCA I AUTO15
+ TAD I AUTO17
+ JMS I THEADJ
+ DCA I AUTO15
+ TAD I AUTO17
+ JMS VEESET
+ DCA I AUTO15
+ TAD I AUTO17
+ JMS VEESET
+ DCA I AUTO15
+ TAD I AUTO17
+ DCA I AUTO15
+ TAD I AUTO17
+ DCA I AUTO15
+ TAD I AUTO17
+ AND TIMOUT
+ TAD MHYP /ABOUT 3
+ SMA CLA
+ JMP HYPRET
+ TAD RTNFLG
+ SZA CLA
+ TAD ONEDIF
+ TAD OUTLOC
+ DCA VEESET
+ TAD MEXP
+ DCA I VEESET
+HYPRET, ISZ RTNFLG
+ JMP I TWORTN
+ JMP I ONERTN
+TIMOUT, 777
+ONEDIF, ONEFLG-TWOFLG
+TWOLST, TWOFLG-1
+RTNFLG, 0
+ONERTN, TWOUP
+TWORTN, ONESET
+OUTLOC, TWOOUT
+MHYP, -200
+VEESET, 0
+ CLL
+ SPA
+ CML
+ AND HM177
+ SZL CLL
+ CIA
+ JMP I VEESET
+HM177, 177
+ONEEXP, CLA CLL
+ TAD ONETHE
+ TAD INCONE
+ DCA ONETHE
+ JMS I IXPDIS
+ ISZ ONEOUT
+ JMP I NOWTWO
+ IAC
+ DCA ONEFLG
+ IAC
+ DCA ONEFIN
+ TAD TWOFIN
+ SNA CLA
+ JMP I NOWTWO
+ JMP I TIEUP
+TWOEXP, CLA CLL
+ TAD TWOTHE
+ TAD INCTWO
+ DCA TWOTHE
+ JMS I IXPDIS
+ ISZ TWOOUT
+ JMP I NOWPRO
+ IAC
+ DCA TWOFLG
+ IAC
+ DCA TWOFIN
+
+ TAD ONEFIN
+ SZA CLA
+ JMP I TIEUP
+ JMP I NOWPRO
+NOWTWO, TWODIS
+NOWPRO, PRODIS
+TIEUP, NOWIN
+IXPDIS, EXPDIS
+INCONE, 55
+INCTWO, 55
+ *2400
+EXPDIS, 0
+ TAD I AUTO10
+ DCA XTWODS
+ TAD I AUTO10
+ DCA YTWODS
+ TAD XTWODS
+ CIA
+ TAD XONEDS
+ DCA DIXTEM
+ TAD YTWODS
+ CIA
+ TAD YONEDS
+ DCA DIYTEM
+ TAD M4
+ DCA DISCNT
+
+EXPLOP, TAD XONEDS
+ TAD DIXTEM
+ DCA XONEDS
+ TAD YONEDS
+ TAD DIYTEM
+ DCA YONEDS
+ TAD XONEDS
+/ RTR
+/ RAR
+ JMS I IVCLDX
+ CLA
+ TAD YONEDS
+ JMS I IVCLDY
+ CLA
+ ISZ DISCNT
+ JMP EXPLOP
+ ISZ AUTO11
+ SKP
+ JMP I EXPDIS
+ TAD XTWODS
+ DCA XONEDS
+ TAD YTWODS
+ DCA YONEDS
+ JMP EXPDIS+1
+VEELIM, 0
+ DCA VEEHLD
+ TAD VEEHLD
+ SMA
+ JMP VEEPOS
+ TAD VEEMAX
+ SMA CLA
+ JMP VEECLR
+ TAD VEEMIN
+ JMP I VEELIM
+VEEPOS, TAD VEEMIN
+ SPA CLA
+ JMP VEECLR
+ TAD VEEMAX
+ JMP I VEELIM
+VEECLR, TAD VEEHLD
+ JMP I VEELIM
+VEEHLD, 0
+VEEMIN, -140
+VEEMAX, 140
+THEAJI, 0
+ SMA
+ JMP .+3
+ TAD P550
+ JMP .-3
+ TAD M550
+ SMA
+ JMP .-2
+ TAD P550
+ JMP I THEAJI
+ONEWIN, 0
+ TAD MES1
+ DCA MESS
+ IAC
+ DCA GAMOVR
+ JMP I ONEWIN
+TWOWIN, 0
+ TAD MES2
+ DCA MESS
+ IAC
+ DCA GAMOVR
+ JMP I TWOWIN
+NOWIN, TAD MES4
+ DCA MESS
+ IAC
+ DCA GAMOVR
+
+JOBLOP,
+/ DSB 1
+ TAD MES0
+ JMS I MESOUT
+ TAD MESS
+ JMS I MESOUT
+ TAD MES5
+ JMS I MESOUT
+ TAD MES3
+ JMS I MESOUT
+FINITO, JMP JOBLOP
+MES0, MESS0
+MES1, MESS1
+MES2, MESS2
+MES3, MESS3
+MES4, MESS4
+MES5, MESS5
+MESS, 0
+ *6400
+SINEIN, 0
+ DCA SINARG
+ TAD SINEIN
+ DCA I SINPSH
+ ISZ SINPSH
+ TAD SINARG
+ SZA
+ JMP SINNG2
+SINPOP, CLA CLL CMA
+ TAD SINPSH
+ DCA SINPSH
+ TAD I SINPSH
+ DCA SINEIN
+ TAD SINARG
+ JMP I SINEIN
+SINNG2, SMA
+ JMP SINPOS
+ CIA
+ JMS SINEIN
+SINNEG, CIA
+ DCA SINARG
+ JMP SINPOP
+SINPOS, TAD M264
+ SPA
+ JMP .+2
+ JMP SINNEG-1
+ TAD P132
+ SPA
+ JMP SINELK
+ SZA CLA
+ JMP .+3
+ TAD P37
+ JMP SINNEG+1
+ TAD SINARG
+ TAD M264
+ JMP SINNEG-1
+SINELK, TAD P132
+ TAD SINTAB
+ DCA SINEIN
+ TAD I SINEIN
+ DCA SINARG
+ JMP SINPOP
+SINARG, 0
+SINPSH, SINLST
+SINLST, 0
+ 0
+ 0
+ 0
+ 0
+ 0
+SINTAB, SINES-1
+COSINI, 0
+ CIA
+ TAD P132
+ JMS SINEIN
+ JMP I COSINI
+SINES, 00
+ 01
+ 01
+ 02
+ 02
+ 03
+ 03
+ 04
+ 05
+ 05
+ 06
+ 06
+ 07
+ 07
+ 10
+ 10
+ 11
+ 11
+ 12
+ 12
+ 13
+ 13
+ 14
+ 15
+ 15
+ 16
+ 16
+ 17
+ 17
+ 20
+ 20
+ 20
+ 21
+ 21
+ 22
+ 22
+ 23
+ 23
+ 24
+ 24
+ 25
+ 25
+ 25
+ 26
+ 26
+ 27
+ 27
+ 27
+ 30
+ 30
+ 30
+ 31
+ 31
+ 31
+ 32
+ 32
+ 32
+ 33
+ 33
+ 33
+ 33
+ 34
+ 34
+ 34
+ 35
+ 35
+ 35
+ 35
+ 35
+ 36
+ 36
+ 36
+ 36
+ 36
+ 36
+ 37
+ 37
+ 37
+ 37
+ 37
+ 37
+ 37
+ 37
+ 37
+ 37
+ 37
+ 37
+ 37
+ 37
+MULTI, 0
+ CLL
+ SPA
+ CMA CML IAC
+ DCA MULMP1
+ DCA MULMP5
+ TAD I MULTI
+ SNA
+ JMP MULPSN+2
+ SPA
+ CMA CML IAC
+ DCA MULMP2
+ TAD MULTHR
+ DCA MULMP3
+MULMP4, TAD MULMP1
+ RAR
+ DCA MULMP1
+ TAD MULMP5
+ SZL
+ TAD MULMP2
+ CLL RAR
+ DCA MULMP5
+ ISZ MULMP3
+ JMP MULMP4
+ TAD MULMP1
+ RAR
+MULPSN, SZL
+ JMP MULCMP
+ DCA MULMP1
+ TAD MULMP5
+MULMPZ, ISZ MULTI
+ JMP I MULTI
+MULCMP, CMA CLL IAC
+ DCA MULMP1
+ TAD MULMP5
+ CMA
+ SZL
+ IAC
+ JMP MULMPZ
+MULTHR, 7764
+MULMP1, 0
+MULMP5, 0
+MULMP2, 0
+MULMP3, 0
+SHIFTR, 0
+ CLL
+ SPA
+ CML IAC
+ RAR
+ JMP I SHIFTR
+POSCAL, 0
+ TAD CALSIN
+ DCA T10SIN
+ TAD T10SIN
+ CLL RAL
+ DCA T20SIN
+ TAD T10SIN
+ TAD T20SIN
+ DCA T30SIN
+ TAD CALCOS
+ DCA T10COS
+ TAD T10COS
+ CLL RAL
+ DCA T20COS
+ TAD T10COS
+ TAD T20COS
+ DCA T30COS
+ JMP I POSCAL
+VDIV, 0
+ SMA
+ JMP VPLUS
+VMINUS, CMA IAC
+ RTR
+ AND P1777
+ CMA IAC
+ JMP I VDIV
+VPLUS, RTR
+ AND P1777
+ JMP I VDIV
+VCLDX, 0
+ JMS VDIV
+ DISD
+ JMP .-1
+ DIXY
+ DILX
+ JMP I VCLDX
+VCLDY, 0
+ JMS VDIV
+ DILY
+ JMP I VCLDY
+P1777, 1777
+ *7000
+CHARS, 0
+ DCA ADDR
+ TAD I ADDR
+ RTR
+ RTR
+ RTR
+ JMS CHAR
+ SKP
+ JMP I CHARS
+ TAD I ADDR
+ ISZ ADDR
+ JMS CHAR
+ JMP CHARS+2
+ JMP I CHARS
+CHAR, 0
+ AND K77
+ CLL RAL
+ TAD TABLE
+ DCA POINT
+ CMA
+ DCA COUNT2
+ TAD I POINT
+ ISZ POINT
+ SNA
+ JMP SPCHAR
+ DCA CURPLT
+XPLOT, TAD KM6
+ DCA COUNT6
+ TAD YVALUE
+ DCA YTEMP
+ TAD XVALUE
+ DILX
+ TAD XINCR
+ DCA XVALUE
+YPLOT, TAD CURPLT
+ CLL RAL
+ DCA CURPLT
+ SNL
+ JMP CNTINU
+ TAD YTEMP
+ DILY
+ DISD
+ JMP .-1
+ DIXY
+ CLA CLL
+ TAD CURPLT
+ SNA CLA
+ JMP WRDEND
+CNTINU, TAD YTEMP
+ TAD YINCR
+ DCA YTEMP
+ ISZ COUNT6
+ JMP YPLOT
+ JMP XPLOT
+WRDEND, ISZ COUNT2
+ JMP EXIT
+ TAD I POINT
+ SZA
+ JMP XPLOT-1
+EXIT, TAD XVALUE
+ TAD XINCR
+ DCA XVALUE
+ JMP I CHAR
+SPCHAR, TAD I POINT
+ DCA POINT
+ JMP I POINT
+SPACE, TAD XINCR
+ CLL RTL
+ JMP EXIT
+CRLF, TAD INITX
+ DCA XVALUE
+LF, TAD YINCR
+ CLL RTL
+ CLL CIA RAL
+ TAD YVALUE
+ DCA YVALUE
+ JMP I CHAR
+RESET, TAD INITX
+ DCA XVALUE
+ TAD INITY
+ JMP RESET-2
+TERM, ISZ CHAR
+ JMP I CHAR
+INITX, 0
+INITY, 327
+XVALUE, 0
+YVALUE, 0
+XINCR, 6
+YINCR, 10
+YTEMP, 0
+CURPLT, 0
+ADDR, 0
+COUNT6, 0
+COUNT2, 0
+KM6, -6
+K77, 77
+POINT, 0
+TABLE, .+1
+ 0
+ TERM
+ 7611
+ 1176
+ 7745
+ 4532
+ 3641
+ 4122
+ 7741
+ 4136
+ 7745
+ 4541
+ 7705
+ 501
+ 7741
+ 5173
+ 7710
+ 1077
+ 4177
+ 4100
+ 2040
+ 4037
+ 7714
+ 2241
+ 7740
+ 4040
+ 7702
+ 277
+ 7706
+ 3077
+ 7741
+ 4177
+ 7705
+ 502
+ 3641
+ 6176
+ 7715
+ 2542
+ 2245
+ 5122
+ 177
+ 100
+ 3740
+ 4037
+ 1720
+ 4037
+ 7730
+ 3077
+ 4136
+ 3641
+ 374
+ 7403
+ 6151
+ 4543
+ 7741
+ 0
+ 204
+ 1020
+ 4177
+ 0
+ 436
+ 400
+ 0
+ RESET
+ 0
+ SPACE
+ 5600
+ 0
+ 303
+ 0
+ 1477
+ 7714
+ 2277
+ 2200
+ 2313
+ 6462
+ 7777
+ 7777
+ 300
+ 0
+ 3641
+ 0
+ 4136
+ 0
+ 4040
+ 4040
+ 1034
+ 1000
+ 0
+ LF
+ 1010
+ 1000
+ 4000
+ 0
+ 2010 /
+ 402
+ 3641
+ 4136
+ 4442
+ 7740
+ 4261
+ 5146
+ 2145
+ 5321
+ 1710
+ 1077
+ 4745
+ 4531
+ 7750
+ 5070
+ 6111
+ 503
+ 2255
+ 5522
+ 705
+ 577
+ 2400
+ 0
+ 0
+ CRLF
+ 1024
+ 4200
+ 1212
+ 1200
+ 4224
+ 1000
+ 255
+ 300
+MESS0, 3773
+MESS5, 7340
+ 4040
+ 4040
+ 4000
+MESS1, 1716
+ 0500
+MESS2, 2427
+ 1700
+MESS3, 2711
+ 1623
+ 4100
+MESS4, 1617
+ 0217
+ 0431
+ 0000
+ *7400
+DISBUF, 0
+ $
+///////////////////////////
+//////////////////////////