Directory of image this file is from
This file as a plain text file

*1000

START,	SWAB
	CLA
	JMS DISCOR
	JMP .-1
INIT,	CLA
	TAD AVSPED
	DCA SPEED
	DCA SCORE
	JMS INSWTC
	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
TOOSON,	ISZ PLAY
	CLA
	TAD I PLAY		/MISSED
	JMS DISCOR
	ISZ PLAY
	JMP I PLAY

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

N100,	100
N4001,	4001
INNER,	-200
N7100,	7100
NM6,	-6
N140,	140
AVSPED,	-200
DISPED,	0
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
	JMS INSWTC
	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



INSWTC,	0
	CLA
	6514
	6513
	OSR
	JMP I INSWTC


$$$$