*1000

START,	SWAB
	CLA
	JMS DISCOR
	JMP .-1
INIT,	CLA
	TAD AVSPED
	DCA SPEED
	DCA SCORE
	LAS
	AND N100
	SZA CLA
	JMP RIGHT
	JMP LEFT

PLAY,	0
	DCA MASK
	TAD I PLAY
	DCA INSTR
	ISZ PLAY
	TAD MASK
	CMA
	AND N4001
PLYLOP,	MQL
	ISZ COUNT
	MQA
	JMS SRDEL
	JMP SETSPD		/HIT
INSTR,	CLL RAR		/OR CLL RAL
	SZA
	JMP PLYLOP
	MOSTSR
	ISZ PLAY
TOOSON,	CLA
	TAD I PLAY		/MISSED
	JMS DISCOR
	ISZ PLAY
	JMP I PLAY

SETSPD,	CLA
	TAD COUNT
	SHL
	4
	TAD N7100
	NOP
	DCA SPEED
	TAD COUNT
	TAD NM6
	SPA CLA
	JMP TOOSON
	JMP I PLAY

N100,	100
N4001,	4001
INNER,	-100
N7100,	7100
NM6,	-6
N140,	140
AVSPED,	-600
DISPED,	-5000
SCORE,	0
MASK,	0
DEL1,	0
DEL2,	0
COUNT,	0
ACSAV,	0
SPEED,	0

LFRTLP,	CLA
	TAD AVSPED
	DCA SPEED
RIGHT,	DCA COUNT
	CLA IAC
	JMS PLAY
	CLL RAR
	JMP LEFT
	100
	MOSTSR
	CLA
	TAD AVSPED
	DCA SPEED
LEFT,	DCA COUNT
	CLA CLL CML RAR
	JMS PLAY
	CLL RAL
	JMP RIGHT
	1
	MOSTSR
	JMP LFRTLP

SRDEL,	0
	DCA ACSAV
	TAD SPEED
	DCA DEL1
DELLOP,	TAD INNER
	DCA DEL2
	ISZ DEL2
	JMP .-1
	LAS
	AND MASK
	SZA CLA
	JMP I SRDEL
	ISZ DEL1
	JMP DELLOP
	ISZ SRDEL
	TAD ACSAV
	JMP I SRDEL

DISCOR,	0
	TAD SCORE
	DCA SCORE
	TAD SCORE
	MQL
	TAD DISPED
	DCA SPEED
	TAD N140
	DCA MASK
	JMS SRDEL
	JMP INIT
	JMP I DISCOR
$$$$