
	TITL	TARGET SHOOT GAME SOURCE
*
CRLF	EQU	H'8A'
CHIN	EQU	H'286'
COUT	EQU	H'2B4'
ENTER	EQU	H'6803'
*
	ORG	H'440'
*
ZSTART	LODI,R0	H'2B'	+
	BSTA,UN	COUT
CNT1	LODI,R2	H'63'	c
CNT2	LODI,R1	H'63'	c
KEYIN	REDE,R0	H'05'	read parallel keyboard port
	BCFR,EQ	REDY
	BDRR,R1	KEYIN
	BDRR,R2	CNT2
	BCTR,UN	CNT1
*
REDY	EORZ,R0
	WRTE,R0	H'06'
	STRA,R1	COORD1
	STRA,R2	COORD2
B458	BSTA,UN	CRLF
	LODI,R1	H'1D'
	BSTA,UN	B4BD
	BSTR,UN	B49B
	LODA,R1	COORD1
	LODI,R3	0
	COMZ,R1
	BCTR,LT	B471
	LODI,R3	2
	COMZ,R1
	BCTR,GT	B471
	LODI,R3	1
B471	STRA,R3	S4FD
	LODI,R0	H'2C'	,
	BSTA,UN	COUT
	BSTR,UN	B49B
	LODA,R1	COORD2
	LODI,R3	H'A'
	COMZ,R1
	BCTR,LT	B48A
	LODI,R3	0
	COMZ,R1
	BCTR,GT	B48A
	LODI,R3	5
B48A	ADDA,R3	S4FD
	COMI,R3	6
	BSTR,EQ	B4BB
	BSTR,UN	B4C8
	COMI,R3	6
	BCTA,EQ	ZSTART
	BCTA,UN	B458
*
B49B	BSTR,UN	B4A8
	LODI,R3	9
	STRZ,R2
B4A0	ADDZ,R2
	BDRR,R3	B4A0
	STRZ,R2
	BSTR,UN	B4A8
	ADDZ,R2
	RETC,UN
*
B4A8	BCTA,UN	B500
*
B4AB	COMI,R0	H'30'	0
	BCTR,LT	B4A8
	COMI,R0	H'39'	9
	BCTR,GT	B4A8
	STRZ,R3
	BSTA,UN	COUT
	LODZ,R3
	ANDI,R0	H'F'
	RETC,UN
*
B4BB	LODI,R1	0
B4BD	LODA,R0	M4D9,R1+
	COMI,R0	0
	RETC,EQ
	BSTA,UN	COUT
	BCTR,UN	B4BD
*
B4C8	LODA,R0	S4E6,R3
	STRZ,R2
	LODI,R0	H'2A'	*
	STRA,R0	S4E6,R3
	LODI,R1	9
	BSTR,UN	B4BD
	LODZ,R2
	STRA,R0	S4E6,R3
M4D9	RETC,UN
*
W4DA	DATA	H'D,A,A,42,41,4E,47,21'	___BANG!
	DATA	H'0,D,D,A'	____
S4E6	DATA	H'20'
	DATA	H'21,20,D,A,2D,2B,2D,D'	! __-+-_
	DATA	H'A,20,21,20,D,D,A,0'	_ ! ____
	DATA	H'41,49,4D,2D,20,0'	AIM- _
S4FD	DATA	H'1'
COORD1	RES	1
COORD2	RES	1
*
B500	BSTA,UN	CHIN
	COMI,R0	H'1B'
	BCTA,EQ	*ENTER
	BCTA,UN	B4AB
	END	ZSTART
