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
        $
///////////////////////////
//////////////////////////