X-Git-Url: http://gitweb.hachti.de/?a=blobdiff_plain;f=sw%2FSPACE%2FSPACE.PA;fp=sw%2FSPACE%2FSPACE.PA;h=8543c5afad54e19cf158d4c6ce3529ae164b612b;hb=7af5ad59491ddf2066641aef1e0025a337c0f247;hp=0000000000000000000000000000000000000000;hpb=919757fd611e482003ce51f366f6783cab73dea3;p=pdp8.git

diff --git a/sw/SPACE/SPACE.PA b/sw/SPACE/SPACE.PA
new file mode 100644
index 0000000..8543c5a
--- /dev/null
+++ b/sw/SPACE/SPACE.PA
@@ -0,0 +1,1703 @@
+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
+        $
+///////////////////////////
+//////////////////////////