
	TITL	ASTRO TREK SOURCE LISTING
*
MD	EQU	H'D'
B2B4	EQU	H'2B4'
M5FF	EQU	H'5FF'
ENTER	EQU	H'6803'
*
	ORG	H'600'
*
	DATA	H'D,A,53,54,41,52,44,41'	__STARDA
	DATA	H'54,45,20,20'	TE  
S60C	RES	1
S60D	RES	1
	DATA	H'20,20,43,4F,4E,44,49,54'	  CONDIT
	DATA	H'49,4F,4E,20'	ION 
S61A	RES	1
	DATA	H'52,45,45,4E,D,A,51,55'	REEN__QU
	DATA	H'41,44,52,41,4E,54,20,20'	ADRANT  
S62B	RES	1
	DATA	H'2C'	,
M62D	DATA	H'37,20,20,53,45,43,54,4F'	7  SECTO
	DATA	H'52,20,20,20'	R   
S639	RES	1
S63A	RES	1
	DATA	H'2C'	,
S63C	RES	1
	DATA	H'D,A,45,4E,45,52,47,59'	__ENERGY
	DATA	H'20,20,20'	   
S648	RES	1
S649	RES	1
	DATA	H'37,32,33,20,20,54,4F,52'	723  TOR
	DATA	H'50,45,44,4F,45,53,20'	PEDOES 
S659	RES	1
	DATA	H'A,D,53,48,49,45,4C,44'	__SHIELD
	DATA	H'53,20,20,20'	S   
S666	RES	1
	DATA	H'30,30,30,A,D,DD'	000___
M66D	DATA	H'30'	0
S66E	RES	1
	DATA	H'34,34,0,0,0,0'	44____
S675	RES	1
S676	RES	1
M677	DATA	H'0'	_
S678	RES	1
	DATA	H'31,34,0,0,0,0,0,0'	14______
	DATA	H'0'	_
*
B682	LODI,R0	H'A'
	BSTR,UN	B688
	LODI,R0	H'D'
B688	BCTA,UN	B11DE
*
W68B	DATA	H'40,B2,5,8,6,A,76,40'	@_____v@
	DATA	H'3B,1A,74,40,6,6,3B,15'	;_t@__;_
	DATA	H'50,1A,4,74,40,1B,2,76'	P__t@__v
	DATA	H'40,F9,71,6,8,0,0,0'	@_q_____
	DATA	H'0,0,0,0,0,0,7E,17'	______~_
	DATA	H'75'	u
*
B6B4	STRR,R0	I6CB+1
	STRR,R2	I6C6+2
	STRR,R2	I6CF+2
B6BA	LODI,R2	0
B6BC	BSTR,UN	B6D6
	ANDI,R0	H'F'
	ADDZ,R2
	STRZ,R2
	COMI,R2	H'30'	0
	BCTR,GT	B6BA
I6C6	LODA,R0	S948,R2
	ADDI,R0	1
I6CB	COMI,R0	H'31'	1
	BCTR,GT	B6BC
I6CF	STRA,R0	S948,R2
	BDRR,R3	B6BC
	RETC,UN
*
S6D5	RES	1
*
B6D6	IORZ,R1
	ADDR,R0	S6D5
	STRR,R0	S6D5
	ADDR,R1	S6D5
I6DD	LODA,R0	MD,R1+
	STRR,R0	I6DD+2
	ADDZ,R1
	ANDI,R0	H'F'
	ADDI,R0	H'30'	0
	COMI,R0	H'3A'	:
	RETC,LT
	EORR,R0	I6DD+2
	ADDI,R0	H'67'	g
	BCTR,UN	B6D6
*
B6F0	LODA,R0	MA00,R3+
	RETC,LT
	BSTA,UN	B688
	BCTR,UN	B6F0
*
B6F9	LODI,R3	H'99'
	BSTR,UN	B6F0
I6FD	BSTA,UN	KEYPR
B700	LODI,R2	0
B702	BSTR,UN	B6D6
	COMI,R0	H'35'	5
	BCTR,LT	B702
	STRA,R0	SA64,R2
	BRNR,R2	B711
	LODI,R2	H'24'	$
	BCTR,UN	B702
*
B711	COMI,R2	H'13'
	BCTR,EQ	B71E
	LODI,R2	H'13'
	LODI,R1	H'31'	1
	STRA,R1	SA76
	BCTR,UN	B702
*
B71E	LODI,R3	0
	BSTR,UN	B6F0
	PPSU	H'C0'
	BSTR,UN	*I6FD+1
	COMI,R0	H'4E'	N
	BCTR,EQ	B6F9
	BSTR,UN	B6F0
	LODI,R1	H'95'
	LODI,R0	H'30'	0
B730	STRA,R0	S917,R1-
	BRNR,R1	B730
	LODI,R2	H'79'	y
	LODI,R3	H'FF'
	BSTR,UN	*I747+1
	LODA,R3	SA64
	LODI,R2	H'17'
	BSTR,UN	*I747+1
	LODA,R3	MA88
	LODI,R2	H'48'	H
I747	BSTA,UN	BDE5
	LODI,R1	H'31'	1
	STRA,R1	S60C
	LODA,R1	MA77
	STRA,R1	S60D
	LODI,R0	H'30'	0
	LODI,R1	4
B759	STRA,R0	S666,R1-
	BRNR,R1	B759
	LODI,R0	H'2A'	*
	STRR,R0	I76D+2
B762	LODI,R3	4
B764	BSTA,UN	B6D6
	COMI,R0	H'37'	7
	BCFR,LT	B764
	ADDI,R0	1
I76D	STRA,R0	S639,R3-
	BDRR,R3	B764
	LODR,R3	I76D+2
	LODI,R0	H'39'	9
	STRR,R0	I76D+2
	COMZ,R3
	BCFR,EQ	B762
	BSTA,UN	BB00
	LODI,R1	1
	BSTA,UN	BCE1
B783	BSTA,UN	BBAE
B786	BSTA,UN	BB16
B789	LODI,R2	4
	LODI,R0	H'30'	0
B78D	STRA,R0	S9F7,R2-
	BRNR,R2	B78D
	LODI,R3	H'AE'
I794	BSTA,UN	B6F0
I797	BSTA,UN	KEYPR
	STRZ,R1
I79B	BSTA,UN	B688
	COMI,R1	H'31'	1
	BCTR,EQ	B786
	BCTA,GT	BE16
	BSTA,UN	BC61
	BCTR,LT	B789
	STRZ,R1
	BSTR,UN	*I794+1
	LODI,R2	H'49'	I
	BSTA,UN	BCB3
	LODZ,R1
	STRZ,R3
	BSTR,UN	*I797+1
	STRZ,R1
	BSTR,UN	*I79B+1
	COMI,R1	H'34'	4
	BCTR,GT	B789
	BSTR,UN	*I797+1
	STRZ,R2
	BSTR,UN	*I79B+1
	COMI,R2	H'39'	9
	BCTR,GT	*I7CA+1
	BSTA,UN	BC7B
	STRZ,R1
I7CA	BCTA,EQ	B789
	LODZ,R3
B7CE	BDRR,R0	B7DC
	LODI,R2	H'32'	2
	EORZ,R0
B7D3	ADDI,R0	1
	SUBI,R1	2
	BCTR,GT	B7D3
	STRZ,R1
	BCTR,UN	B7E0
*
B7DC	BDRR,R0	B7CE
	LODI,R2	H'31'	1
B7E0	STRA,R2	S9F9
	EORZ,R0
I7E4	STRA,R0	M879+1
B7E7	BSTA,UN	BC88
	BCTR,GT	*A7FA
	LODA,R0	S63A
	ADDA,R0	MCCD,R3
	COMI,R0	H'30'	0
	BCTR,GT	B806
	ADDI,R0	7
	STRR,R0	*I7E4+1
A7FA	LODA,R2	S62B
	SUBI,R2	H'01'
I7FF	STRA,R2	S62B
	COMI,R2	H'30'	0
	BCFR,GT	*I816+1
B806	COMI,R0	H'38'	8
	BCTR,LT	B819
	SUBI,R0	7
	STRR,R0	*I7E4+1
	LODR,R2	*I7FF+1
	ADDI,R2	1
	STRR,R2	*I7FF+1
	COMI,R2	H'37'	7
I816	BCTA,GT	BE02
B819	STRA,R0	S63A
	LODA,R0	S63C
	ADDA,R0	MCD1,R3
	COMI,R0	H'30'	0
	BCTR,GT	B836
	ADDI,R0	7
I828	STRA,R0	M879+1
I82B	LODA,R2	M62D
	SUBI,R2	1
	STRR,R2	*I82B+1
	COMI,R2	H'30'	0
	BCFR,GT	*I816+1
B836	COMI,R0	H'38'	8
	BCTR,LT	B848
	SUBI,R0	7
	STRR,R0	*I828+1
	LODR,R2	*I82B+1
	ADDI,R2	1
	STRR,R2	*I82B+1
	COMI,R2	H'37'	7
	BCTR,GT	*I816+1
B848	STRA,R0	S63C
	STRR,R0	I856+1
	LODR,R2	M879+1
	BRNR,R2	B85C
	LODI,R2	9
B853	LODA,R0	S678,R2-
I856	COMI,R0	H'A7'
	BCTR,EQ	B881
B85A	BRNR,R2	B853
B85C	BDRA,R1	B7E7
	LODI,R2	H'49'	I
	BSTA,UN	BCC0
B864	LODA,R0	S60D
	COMI,R0	H'30'	0
	BCFR,EQ	B875
I86B	COMA,R0	S60C
	BCTA,EQ	BDFA
	STRR,R0	*I86B+1
	LODI,R0	H'3A'	:
B875	SUBI,R0	1
	STRR,R0	*B864+1
M879	LODI,R2	H'27'	'
	BRNA,R2	B783
	BCTA,UN	B786
*
B881	LODA,R0	S66E,R2
	STRR,R0	I889+1
	LODA,R0	S63A
I889	COMI,R0	H'31'	1
	BCFR,EQ	B85A
	COMI,R2	7
	BCTA,LT	BDFE
	BCTR,EQ	B8CC
B894	STRA,R2	S676
	BDRR,R1	B8A7
	BSTA,UN	BB00
	LODI,R2	H'78'	x
	BSTR,UN	B8AF
	LODI,R0	H'47'	G
	BSTR,UN	B8B8
	BCTA,UN	B864
*
B8A7	LODI,R2	0
I8A9	BSTR,UN	B8AF
	LODI,R0	H'47'	G
	BCTR,UN	S8EA
*
B8AF	LODA,R0	MF00,R2+
	RETC,LT
	BSTA,UN	B688
	BCTR,UN	B8AF
*
B8B8	STRR,R0	I8C4+2
	LODI,R2	H'17'
I8BC	STRA,R2	SC09
	BSTA,UN	BBEA
	SUBI,R0	1
I8C4	STRA,R0	S916,R1
	LODI,R2	H'14'
	STRR,R2	*I8BC+1
	RETC,UN
*
B8CC	LODI,R2	H'1E'
	STRA,R2	S675
	BSTR,UN	B8AF
I8D3	LODA,R3	SA64
	SUBI,R3	1
	STRR,R3	*I8D3+1
	COMI,R3	H'30'	0
	BCFR,EQ	B8E5
	LODI,R2	H'39'	9
	BSTR,UN	B8AF
	BCTA,UN	B700
*
B8E5	BSTA,UN	BFEE
	LODI,R0	H'16'
S8EA	BSTR,UN	B8B8
	LODI,R3	H'37'	7
	STRA,R3	S9F8
	BSTA,UN	BC88
	BCTA,GT	BE06
	LODI,R2	H'49'	I
	BSTA,UN	BCC0
	BCTA,UN	B864
*
W8FF	DATA	H'10'	_
M900	DATA	H'20,A,D,47,41,4C,41,58'	 __GALAX
	DATA	H'59,20,44,49,53,50,4C,41'	Y DISPLA
	DATA	H'59,D,A,20,20,20'	Y__   
S916	RES	1
S917	RES	1
	DATA	H'30,30,30,30,30,30,31,30'	00000010
	DATA	H'30,30,30,30,30,31,31,30'	00000110
	DATA	H'30,30,30,30,30,31,30,30'	00000100
	DATA	H'30,30,30,30,30,31,30,30'	00000100
	DATA	H'30,30,30,30,31,30,30,30'	00001000
	DATA	H'30,30,30,30,30,30,30,30'	00000000
S948	RES	1
	DATA	H'30,30,30,30,30,30,30,30'	00000000
	DATA	H'31,30,30,30,30,31,30,31'	10000101
	DATA	H'30,30,30,30,30,31,31,30'	00000110
	DATA	H'30,31,30,30,30,30,30,30'	01000000
	DATA	H'30,30,30,30,30,30,30,30'	00000000
	DATA	H'30,30,30,30,30,30,30'	0000000
M978	DATA	H'30,31,37,34,32,31,35,34'	01742154
	DATA	H'37,35,35,33,36,33,33,37'	75536337
	DATA	H'36,37,37,37,31,32,32,36'	67771226
	DATA	H'36,37,33,30,35,31,35,32'	67305152
	DATA	H'37,36,35,34,35,35,33,36'	76545536
	DATA	H'33,34,37,33,32,31,37,32'	34732172
	DATA	H'33,34'	34
M9AA	DATA	H'30,30,1,32,11,50'	00_2_P
*
B9B0	LODI,R2	H'30'	0
	LODI,R1	0
B9B4	LODA,R0	M900,R1+
	BCTR,LT	B9BD
	BSTR,UN	*I9D1+1
	BCTR,UN	B9B4
*
B9BD	ADDI,R2	1
	LODZ,R2
	BSTR,UN	*I9D1+1
	LODI,R1	H'12'
	COMI,R2	H'37'	7
	BCFR,EQ	B9B4
	LODI,R1	H'CF'
	LODI,R2	H'30'	0
B9CC	BSTR,UN	*I9EB+1
	ADDI,R2	1
	LODZ,R2
I9D1	BSTA,UN	B688
	LODI,R3	7
B9D6	LODI,R0	H'20'	 
	BSTR,UN	*I9D1+1
	LODA,R0	B848,R1
	BSTR,UN	*I9D1+1
	LODA,R0	M879,R1
	BSTR,UN	*I9D1+1
	LODA,R0	I8A9+1,R1
	BSTR,UN	*I9D1+1
	BIRR,R1	B9EF
I9EB	BSTA,UN	B682
	RETC,UN
*
B9EF	BDRR,R3	B9D6
	BSTR,UN	*I9EB+1
	BCTR,UN	B9CC
*
W9F5	DATA	H'5'	_
S9F6	RES	1
S9F7	RES	1
S9F8	RES	1
S9F9	RES	1
	DATA	H'30'	0
S9FB	RES	1
	DATA	H'30,34,34,38'	0448
MA00	DATA	H'33,A,A,20,20,41,53,54'	3__  AST
	DATA	H'52,4F,2D,54,52,45,4B,20'	RO-TREK 
	DATA	H'D,A,A,44,4F,20,59,4F'	___DO YO
	DATA	H'55,20,57,41,4E,54,20,54'	U WANT T
	DATA	H'4F,20,54,41,4B,45,20,43'	O TAKE C
	DATA	H'4F,4D,4D,41,4E,44,20,4F'	OMMAND O
	DATA	H'46,A,D,54,48,45,20,53'	F__THE S
	DATA	H'54,41,52,53,48,49,50,20'	TARSHIP 
	DATA	H'45,4E,54,45,52,50,52,49'	ENTERPRI
	DATA	H'53,45,3F,20,DD,59,45,53'	SE? _YES
	DATA	H'D,A,A,59,4F,55,20,4D'	___YOU M
	DATA	H'55,53,54,20,44,45,53,54'	UST DEST
	DATA	H'52,4F,59,20'	ROY 
SA64	RES	1
	DATA	H'20,41,4C,49,45,4E,20,53'	 ALIEN S
	DATA	H'48,49,50,53,20,1,49,4E'	HIPS _IN
	DATA	H'20'	 
SA76	RES	1
MA77	DATA	H'36,20,53,54,41,52,44,41'	6 STARDA
	DATA	H'54,45,53,20,57,49,54,48'	TES WITH
	DATA	H'20'	 
MA88	DATA	H'36,20,53,50,41,43,45,A'	6 SPACE_
	DATA	H'D,53,54,41,54,49,4F,4E'	_STATION
	DATA	H'53,DD,4E,4F,A,D,43,48'	S_NO__CH
	DATA	H'49,43,4B,45,4E,21,A,A'	ICKEN!__

	DATA	H'D,DD'	__
SAAA	RES	1
	DATA	H'0,0,0'	___
SAAE	RES	1
	DATA	H'A,D,43,4F,4D,4D,41,4E'	__COMMAN
	DATA	H'44,3F,20,DD,A,D,43,4F'	D? ___CO
	DATA	H'55,52,53,45,20,28,30,30'	URSE (00
	DATA	H'2D,31,35,29,3F,20,DD,A'	-15)? __
	DATA	H'D,57,41,52,50,20,46,41'	_WARP FA
	DATA	H'43,54,4F,52,20,28,30,31'	CTOR (01
	DATA	H'2D,34,39,29,3F,DD,6,0'	-49)?___
	DATA	H'2,20,65,1,43,0,23,4'	_ e_C_#_
	DATA	H'41,1,41,0,6,1,D,0'	A_A_____
	DATA	H'24,1,27,0,60,0,21,0'	$_'_`_!_
	DATA	H'40'	@
*
BB00	LODI,R0	H'32'	2
	LODI,R3	0
BB04	STRA,R0	S648,R3+
BB07	BSTA,UN	B6D6
	COMI,R3	4
	BCFR,EQ	BB04
	COMI,R0	H'35'	5
	BCTR,LT	BB07
	STRA,R0	S659
	RETC,UN
*
BB16	BSTR,UN	*IB33+1
	LODI,R2	H'30'	0
	LODI,R0	H'20'	 
	BSTR,UN	*BB52+1
BB1E	LODI,R0	H'2D'	-
	BSTR,UN	*BB52+1
	ADDI,R2	1
	LODZ,R2
	BSTR,UN	*BB52+1
	LODI,R0	H'2D'	-
	BSTR,UN	*BB52+1
	COMI,R2	H'37'	7
	BCFR,EQ	BB1E
	LODI,R2	H'30'	0
BB31	ADDI,R2	1
IB33	BSTA,UN	B682
	NOP
	NOP
	LODZ,R2
	BSTR,UN	*BB52+1
	LODI,R1	H'30'	0
BB3D	ADDI,R1	1
	LODA,R0	S63A
	LODI,R3	0
BB44	COMZ,R1
BB45	BCTR,EQ	BB68
	LODA,R0	M66D,R3+
	COMI,R3	H'A'
	BCFR,EQ	BB44
	LODI,R3	3
BB50	LODI,R0	H'20'	 
BB52	BSTA,UN	B688
	BDRR,R3	BB50
BB57	COMI,R1	H'37'	7
	BCFR,EQ	BB3D
	COMI,R2	H'37'	7
	BCFR,EQ	BB31
	NOP
BB60	LODA,R0	M5FF,R3+
	RETC,LT
	BSTR,UN	*BB52+1
	BCTR,UN	BB60
*
BB68	BRNR,R3	BB7E
	LODA,R0	S63C
	COMZ,R2
	BCFR,EQ	BB45
	LODI,R0	H'3C'	<
	BSTR,UN	*IBA2+1
	LODI,R0	H'4F'	O
	BSTR,UN	*IBA2+1
	LODI,R0	H'3E'	>
	BSTR,UN	*IBA2+1
	BCTR,UN	BB57
*
BB7E	LODA,R0	M677,R3
	COMZ,R2
	BCFR,EQ	BB45
	COMI,R3	8
	BCTR,EQ	BB9E
	BCTR,GT	BB96
	LODI,R3	H'2A'	*
BB8C	LODI,R0	H'20'	 
	BSTR,UN	*IBA2+1
	LODZ,R3
	LODI,R3	2
	BCTA,UN	BB52
*
BB96	COMI,R3	H'A'
	BCFR,EQ	BBAA
	LODI,R3	H'2B'	+
	BCTR,UN	BB8C
*
BB9E	LODI,R3	3
BBA0	LODI,R0	H'2B'	+
IBA2	BSTA,UN	B688
	BDRR,R3	BBA0
	BCTA,UN	BB57
*
BBAA	LODI,R3	H'48'	H
	BCTR,UN	BB8C
*
BBAE	EORZ,R0
	LODI,R1	H'14'
BBB1	STRA,R0	S66E,R1-
	BRNR,R1	BBB1
	LODI,R0	H'16'
	LODI,R1	H'75'	u
	LODI,R2	H'7F'
	BSTR,UN	BBEA
	BSTA,UN	BCE8
	BCTR,UN	BBDC
*
WBC3	DATA	H'0,52,45,44,0'	_RED_
MBC8	DATA	H'47,52,45,45,4E'	GREEN
*
BBCD	LODI,R1	H'C8'
BBCF	STRR,R1	BBD3+2
	LODI,R1	5
BBD3	LODA,R0	MBC8,R1-
	STRA,R0	S61A,R1
	BRNR,R1	BBD3
	RETC,UN
*
BBDC	LODI,R0	H'47'	G
	LODI,R1	H'76'	v
	LODI,R2	H'80'
	BSTR,UN	BBEA
	LODI,R0	H'78'	x
	LODI,R1	H'6E'	n
	LODI,R2	H'78'	x
BBEA	STRR,R0	IC03+2
	STRR,R1	IC29+2
	EORZ,R0
	LODA,R1	M62D
BBF2	SUBI,R1	1
	COMI,R1	H'30'	0
	BCTR,EQ	BBFC
	ADDI,R0	7
	BCTR,UN	BBF2
*
BBFC	EORA,R1	S62B
	ADDZ,R1
	STRR,R2	IC37+2
	STRZ,R1
IC03	LODA,R0	M978,R1
	STRZ,R2
BC07	ANDI,R2	H'F'
SC09	RETC,EQ
	BSTR,UN	BC3C
	EORZ,R0
BC0D	STRA,R0	SAAA,R1-
	BRNR,R1	BC0D
	LODI,R1	H'A'
BC14	LODA,R0	S66E,R1-
	COMZ,R3
	BCTR,EQ	BC49
BC1A	BRNR,R1	BC14
	LODA,R0	S63A
	COMZ,R3
	BCFR,EQ	BC28
	LODA,R0	S63C
	STRA,R0	SAAE
BC28	LODZ,R3
IC29	STRA,R0	S66E,R2-
BC2C	BSTR,UN	BC3C
BC2E	LODA,R0	M9AA,R1-
	COMZ,R3
	BCTR,EQ	BC2C
	BRNR,R1	BC2E
	LODZ,R3
IC37	STRA,R0	S678,R2
BC3A	BCTR,UN	BC07
*
BC3C	BSTA,UN	B6D6
	COMI,R0	H'36'	6
	BCTR,GT	BC3C
	ADDI,R0	1
	STRZ,R3
	LODI,R1	5
	RETC,UN
*
BC49	STRR,R3	IC5C+1
	LODI,R3	4
BC4D	BRNR,R3	BC51
	BCTR,UN	BC3A
*
BC51	LODA,R0	SAAA,R3-
	BCFR,EQ	BC4D
	LODA,R0	S678,R1
	STRA,R0	SAAA,R3
IC5C	LODI,R3	H'34'	4
	BCTA,UN	BC1A
*
BC61	BSTA,UN	B6F0
IC64	BSTA,UN	KEYPR
	STRZ,R1
IC68	BSTA,UN	B688
	COMI,R1	H'31'	1
	BCFR,GT	BC72
BC6F	LODI,R3	H'FD'
	RETC,UN
*
BC72	BSTR,UN	*IC64+1
	STRZ,R2
	BSTR,UN	*IC68+1
	COMI,R2	H'39'	9
	BCTR,GT	BC6F
BC7B	EORZ,R0
	SUBI,R1	H'30'	0
	BCTR,EQ	BC84
BC80	ADDI,R0	H'A'
	BDRR,R1	BC80
BC84	SUBI,R2	H'30'	0
	ADDZ,R2
	RETC,UN
*
BC88	EORZ,R0
	STRR,R0	IC90+1
	LODI,R2	4
BC8D	LODA,R0	S9F7,R2-
IC90	ADDI,R0	0
	STRR,R0	IC9A+1
	EORZ,R0
	STRR,R0	IC90+1
	LODA,R0	S9FB,R2
IC9A	SUBI,R0	H'30'	0
	BSTR,LT	BCA8
	ADDI,R0	H'30'	0
	STRA,R0	S9FB,R2
	BRNR,R2	BC8D
	LODR,R0	IC90+1
	RETC,UN
*
BCA8	STRR,R2	ICAE+1
	LODI,R2	1
	STRR,R2	IC90+1
ICAE	LODI,R2	2
	ADDI,R0	H'A'
	RETC,UN
*
BCB3	STRR,R2	BCB7+2
	LODI,R2	4
BCB7	LODA,R0	S649,R2-
	STRA,R0	S9FB,R2
	BRNR,R2	BCB7
	RETC,UN
*
BCC0	STRR,R2	ICC7+2
	LODI,R2	4
BCC4	LODA,R0	S9FB,R2-
ICC7	STRA,R0	S649,R2
	BRNR,R2	BCC4
	RETC,UN

*
MCCD	DATA	H'1,2,1,1'	____
MCD1	DATA	H'0,FF,FF,FE,FF,FE,FF,FF'	________
	DATA	H'0,1,1,2,1,2,1,1'	________
*
BCE1	EORZ,R0
	BSTA,UN	B2B4
	BDRR,R1	BCE1
	RETC,UN
*
BCE8	LODI,R2	3
BCEA	BSTA,UN	B6D6
	STRA,R0	SCF6,R2-
	BRNR,R2	BCEA
	BCTA,UN	BFEE
*
SCF5	RES	1
SCF6	RES	1
	DATA	H'33,39,C,0,4,1,43,20'	39____C 
	DATA	H'8'	_
MD00	DATA	H'80,A,A,D,42,41,44,20'	____BAD 
	DATA	H'4C,55,43,4B,2E,59,4F,55'	LUCK.YOU
	DATA	H'20,43,52,41,53,48,45,44'	 CRASHED
	DATA	H'20,49,4E,54,4F,20,41,20'	 INTO A 
	DATA	H'53,54,41,52,A,D,20,20'	STAR__  
	DATA	H'59,4F,55,52,20,53,48,49'	YOUR SHI
	DATA	H'50,20,49,53,20,44,45,53'	P IS DES
	DATA	H'54,52,4F,59,45,44,21,A'	TROYED!_
	DATA	H'D,DD,A,D,A,59,4F,55'	_____YOU
	DATA	H'20,4D,4F,56,45,44,20,4F'	 MOVED O
	DATA	H'55,54,20,4F,46,20,54,48'	UT OF TH
	DATA	H'45,20,47,41,4C,41,58,59'	E GALAXY
	DATA	H'2E,D,A,20,20,59,4F,55'	.__  YOU
	DATA	H'52,20,53,48,49,50,20,49'	R SHIP I
	DATA	H'53,20,4C,4F,53,54,2E,2E'	S LOST..
	DATA	H'2E,4C,4F,53,54,2E,2E,2E'	.LOST...
	DATA	H'21,D,A,DD,A,A,D,4D'	!______M
	DATA	H'49,53,53,49,4F,4E,20,46'	ISSION F
	DATA	H'41,49,4C,45,44,2C,59,4F'	AILED,YO
	DATA	H'55,20,48,41,56,45,20,52'	U HAVE R
	DATA	H'55,4E,A,D,4F,55,54,20'	UN__OUT 
	DATA	H'4F,46,20,53,54,41,52,44'	OF STARD
	DATA	H'41,54,45,53,2E,A,D,DD'	ATES.___
	DATA	H'D,A,A,41,42,41,4E,44'	___ABAND
	DATA	H'4F,4E,20,53,48,49,50,21'	ON SHIP!
	DATA	H'4E,4F,20,45,4E,45,52,47'	NO ENERG
	DATA	H'59,20,4C,45,46,54,21,A'	Y LEFT!_
	DATA	H'D,DD,80,14,80,50,88,8'	_____P__
	DATA	H'80'	_
*
BDE1	LODI,R0	H'37'	7
	BCTR,UN	BDE9
*
BDE5	BCTR,LT	BDE1
	LODI,R0	H'31'	1
BDE9	SUBI,R3	H'30'	0
	BCTA,UN	B6B4
*
WDEE	DATA	H'0,60,41,18,80,68,0,44'	_`A__h_D
	DATA	H'0,44,80,2A'	_D_*
*
BDFA	LODI,R2	H'83'
	BCTR,UN	BE08
*
BDFE	LODI,R2	0
	BCTR,UN	BE08
*
BE02	LODI,R2	H'41'	A
	BCTR,UN	BE08
*
BE06	LODI,R2	H'B7'
BE08	BSTR,UN	BE0D
	BCTA,UN	B700
*
BE0D	LODA,R0	MD00,R2+
	RETC,LT
	BSTA,UN	B688
	BCTR,UN	BE0D
*
BE16	COMI,R1	H'33'	3
	BCFR,LT	BE1F
	BSTA,UN	B9B0
	BCTR,UN	*IE43+1
*
BE1F	BCTA,GT	BE74
	LODI,R2	H'9D'
	BSTR,UN	BE4D
	EORZ,R0
	STRR,R0	IE2E+1
	LODI,R2	4
BE2B	LODA,R0	S9F7,R2-
IE2E	ADDI,R0	0
	STRZ,R1
	EORZ,R0
	STRR,R0	IE2E+1
	LODA,R0	S666,R2
	ADDZ,R1
	SUBI,R0	H'30'	0
	COMI,R0	H'39'	9
	BSTR,GT	BE46
	STRA,R0	S666,R2
	BRNR,R2	BE2B
IE43	BCTA,UN	B789
*
BE46	LODI,R1	1
	STRR,R1	IE2E+1
	SUBI,R0	H'A'
	RETC,UN
*
BE4D	BSTA,UN	B8AF
	LODI,R2	H'49'	I
	BSTA,UN	BCB3
BE55	BSTA,UN	KEYPR
	STRA,R0	S9F6,R2+
	BSTA,UN	B688
	COMI,R2	4
	BCFR,EQ	BE55
BE62	BSTA,UN	BC88
	BCTR,EQ	BE6F
	LODI,R2	H'B9'
	BSTR,UN	*BE4D+1
	CPSU	7
	BCTR,UN	*IE43+1
*
BE6F	LODI,R2	H'49'	I
	BCTA,UN	BCC0
*
BE74	COMI,R1	H'35'	5
	BCFA,LT	B1114
	LODI,R2	H'D1'
	BSTR,UN	BE4D
	LODI,R2	H'2C'	,
	LODA,R1	S61A
	BCFR,EQ	BEA5
	LODI,R3	4
BE86	LODA,R0	SCF5,R3-
	STRA,R0	S9FB,R3
	BRNR,R3	BE86
	BSTA,UN	BC88
	BCTR,GT	BEBD
	LODI,R3	4
BE95	LODA,R0	S9FB,R3-
	STRA,R0	SCF5,R3
	BRNR,R3	BE95
	LODI,R2	H'50'	P
	BSTR,UN	BEC6
	BSTR,UN	BECF
	BCTR,UN	BEA7
*
BEA5	BSTR,UN	BEC6
BEA7	LODA,R3	S676
	COMI,R3	H'31'	1
IEAC	BCTA,LT	B789
BEAF	LODI,R2	H'1B'
IEB1	STRA,R2	S8EA
	BSTA,UN	B894
BEB7	LODI,R2	H'3B'	;
	STRR,R2	*IEB1+1
SEBB	BCTR,UN	*IEAC+1
*
BEBD	LODI,R2	H'1B'
	STRR,R2	*IEB1+1
	BSTA,UN	B8CC
	BCTR,UN	BEB7
*
BEC6	LODA,R0	M1000,R2+
	RETC,LT
IECA	BSTA,UN	B688
	BCTR,UN	BEC6
*
BECF	LODI,R2	H'66'	f
	BSTA,UN	BCB3
	BSTR,UN	BEC6
	LODI,R2	3
BED8	BSTA,UN	B6D6
	BRNA,R2	B110E
	COMI,R0	H'35'	5
	BCFR,LT	BED8
	STRA,R0	S9F8
BEE5	LODA,R0	S9F6,R2+
	BSTR,UN	*IECA+1
	COMI,R2	4
	BCFR,EQ	BEE5
	BCTA,UN	B1100
*
WEF1	DATA	H'58,0,38,80,7C,0,4C,90'	X_8_|_L_
	DATA	H'5C,80,1,0,48,80,8'	\___H__
MF00	DATA	H'2,A,A,D,53,50,41,43'	____SPAC
	DATA	H'45,20,53,54,41,54,49,4F'	E STATIO
	DATA	H'4E,20,44,45,53,54,52,4F'	N DESTRO
	DATA	H'59,45,44,21,A,D,DD,A'	YED!____
	DATA	H'A,D,41,4C,49,45,4E,20'	__ALIEN 
	DATA	H'53,48,49,50,20,44,45,53'	SHIP DES
	DATA	H'54,52,4F,59,45,44,21,A'	TROYED!_
	DATA	H'D,DD,A,A,D,43,4F,4E'	_____CON
	DATA	H'47,52,41,54,55,4C,41,54'	GRATULAT
	DATA	H'49,4F,4E,53,2C,59,4F,55'	IONS,YOU
	DATA	H'20,48,41,56,45,A,D,44'	 HAVE__D
	DATA	H'45,53,54,52,4F,59,45,44'	ESTROYED
	DATA	H'20,41,4C,4C,20,54,48,45'	 ALL THE
	DATA	H'20,41,4C,49,45,4E,20,53'	 ALIEN S
	DATA	H'48,49,50,53,A,D,DD,DD'	HIPS____
	DATA	H'DD,A,A,D,53,54,41,52'	____STAR
	DATA	H'53,48,49,50,20,45,4E,54'	SHIP ENT
	DATA	H'45,52,50,52,49,53,45,20'	ERPRISE 
	DATA	H'4E,4F,57,20,44,4F,43,4B'	NOW DOCK
	DATA	H'45,44,A,D,DD,A,A,D'	ED______
	DATA	H'53,48,49,45,4C,44,20,45'	SHIELD E
	DATA	H'4E,45,52,47,59,20,54,52'	NERGY TR
	DATA	H'41,4E,53,46,45,52,20,3D'	ANSFER =
	DATA	H'20,DD,D,A,A,4E,4F,54'	 ____NOT
	DATA	H'20,45,4E,4F,55,47,48,20'	 ENOUGH 
	DATA	H'45,4E,45,52,47,59,21,A'	ENERGY!_
	DATA	H'D,DD,D,A,A,50,48,41'	_____PHA
	DATA	H'53,4F,52,20,45,4E,45,52'	SOR ENER
	DATA	H'47,59,20,54,4F,20,46,49'	GY TO FI
	DATA	H'52,45,20,3D,20,DD'	RE = _
*
BFEE	LODA,R1	S675
	COMI,R1	H'30'	0
	BCFA,GT	BBCD
	LODI,R1	H'C3'
	BCTA,UN	BBCF
*
WFFB	DATA	H'4,37,1B,4,1A'	_7___
M1000	DATA	H'2,D,A,A,41,4C,49,45'	____ALIE
	DATA	H'4E,20,53,48,49,50,20,52'	N SHIP R
	DATA	H'45,54,41,4C,49,41,54,45'	ETALIATE
	DATA	H'53,A,D,4C,4F,53,53,20'	S__LOSS 
	DATA	H'4F,46,20,45,4E,45,52,47'	OF ENERG
	DATA	H'59,20,3D,20,DD,D,A,A'	Y = ____
	DATA	H'4E,4F,20,41,4C,49,45,4E'	NO ALIEN
	DATA	H'53,20,49,4E,20,53,49,47'	S IN SIG
	DATA	H'48,54,21,57,41,53,54,45'	HT!WASTE
	DATA	H'44,20,53,48,4F,54,D,A'	D SHOT__
	DATA	H'DD,D,A,A,45,4E,45,4D'	____ENEM
	DATA	H'59,20,53,48,49,45,4C,44'	Y SHIELD
	DATA	H'53,20,57,45,41,4B,45,4E'	S WEAKEN
	DATA	H'49,4E,47,20,42,55,54,20'	ING BUT 
	DATA	H'4E,4F,54,D,A,59,45,54'	NOT__YET
	DATA	H'20,44,45,53,54,52,4F,59'	 DESTROY
	DATA	H'45,44,D,A,DD,D,A,54'	ED_____T
	DATA	H'4F,52,50,45,44,4F,20,54'	ORPEDO T
	DATA	H'52,41,4A,45,43,54,4F,52'	RAJECTOR
	DATA	H'59,DD,D,A,A,4E,4F,20'	Y____NO 
	DATA	H'54,4F,52,50,45,44,4F,45'	TORPEDOE
	DATA	H'53,A,D,DD,D,A,54,52'	S_____TR
	DATA	H'41,43,4B,49,4E,47,3A,20'	ACKING: 
S10B8	RES	1
	DATA	H'2C'	,
M10BA	DATA	H'36,DD,D,A,A,59,4F,55'	6____YOU
	DATA	H'20,43,41,4E,27,54,20,44'	 CAN'T D
	DATA	H'45,53,54,52,4F,59,20,53'	ESTROY S
	DATA	H'54,41,52,53,A,D,57,41'	TARS__WA
	DATA	H'53,54,45,44,20,54,4F,52'	STED TOR
	DATA	H'50,45,44,4F,21,D,A,DD'	PEDO!___
	DATA	H'D,A,A,59,4F,55,20,4D'	___YOU M
	DATA	H'49,53,53,45,44,DD,42,6C'	ISSED_Bl
	DATA	H'42,10,40,7C,40,54'	B_@|@T
*
B1100	BSTA,UN	BC88
	BCTR,EQ	B1107+2
	CPSU	7
B1107	BCTA,UN	BE06
	DATA	H'66'
	BCTA,UN	BCC0
B110E	STRA,R0	S9F8,R2-
	BCTA,UN	BED8
*
B1114	BCTA,GT	B789
	LODI,R2	H'84'
I1119	BSTA,UN	BEC6
	LODI,R3	H'C2'
	BSTA,UN	BC61
I1121	BCTA,LT	B789
	STRZ,R1
	LODI,R2	H'32'	2
	STRA,R2	S9F8
	BSTA,UN	B11AD
I112D	LODA,R2	S659
	SUBI,R2	1
	COMI,R2	H'2F'	/
	BCTR,GT	B113E
	LODI,R2	H'99'
	BSTR,UN	*I1119+1
	CPSU	7
	BCTR,UN	*I1121+1
*
B113E	STRR,R2	*I112D+1
	LODA,R2	S63A
	LODA,R3	S63C
	STRR,R2	*I114F+1
	STRR,R3	*I1154+1
B114A	LODR,R0	*I114F+1
	ADDA,R0	MCCD,R1
I114F	STRA,R0	S10B8
	BSTR,UN	B116F
I1154	LODA,R0	M10BA
	ADDA,R0	MCD1,R1
	STRR,R0	*I1154+1
	BSTR,UN	B116F
	STRZ,R3
	LODI,R2	H'AB'
	BSTR,UN	*I117A+1
	LODZ,R3
	LODI,R3	9
B1166	COMA,R0	S678,R3-
	BSTR,EQ	B1186
	BRNR,R3	B1166
	BCTR,UN	B114A
*
B116F	COMI,R0	H'31'	1
	BCTR,LT	B1176
	COMI,R0	H'38'	8
	RETC,LT
B1176	CPSU	7
	LODI,R2	H'E9'
I117A	BSTA,UN	BEC6
B117D	LODA,R2	S61A
	BSTA,EQ	BECF
	BCTA,UN	B789
*
B1186	STRZ,R2
	LODR,R0	*I114F+1
	COMA,R0	S66E,R3
	BCTR,EQ	B1190
	LODZ,R2
	RETC,UN
*
B1190	CPSU	7
	COMI,R3	7
	BCFR,LT	B119C
	LODI,R2	H'BB'
	BSTR,UN	*I117A+1
	BCTR,UN	B117D
*
B119C	BCFA,EQ	BEAF
	LODI,R3	H'17'
I11A1	STRA,R3	SEBB
	BSTA,UN	BEBD
	LODI,R3	H'1B'
	STRR,R3	*I11A1+1
	BCTR,UN	B117D
*
B11AD	LODI,R2	H'49'	I
	BSTA,UN	BCB3
	BCTA,UN	BE62
*
KEYPR	REDE,R0	H'05'
	ANDI,R0	H'7F'
	BCTR,EQ	KEYPR
	WRTE,R0	H'06'
	COMI,R0	H'1B'
	BCTA,EQ	*ENTER
	COMI,R0	A'Y'
	RETC,EQ
	COMI,R0	A'N'
	RETC,EQ
	COMI,R0	A'0'
	BCTR,LT	KEYPR
	COMI,R0	A'9'
	BCTR,GT	KEYPR
	NOP
	RETC,UN
*
B11D2	NOP
	LODI,R0	H'AA'
B11D5	BDRR,R0	B11D5
B11D7	NOP
	NOP
	LODI,R0	H'C5'
B11DB	BDRR,R0	B11DB
	RETC,UN
*
B11DE	BSTA,UN	B2B4
	RETC,UN
*
B11E2	STRZ,R2
	LODI,R1	8
	BSTR,UN	B11D2
	BSTR,UN	B11D2
	CPSU	H'40'	@
B11EB	BSTR,UN	B11D2
	RRR,R2
	BCTR,LT	B11F4
	CPSU	H'40'	@
	BCTR,UN	B11F6
*
B11F4	PPSU	H'40'	@
B11F6	BDRR,R1	B11EB
	BSTR,UN	B11D2
	PPSU	H'40'	@
	CPSL	H'10'
	RETC,UN
*
W11FF	DATA	H'52'	R
	END	B700
