*
*   Flash Motor Lights until Stop / Go Button
*
PORTA	EQU	$1000		; Port A data register
TCTL1	EQU	$1020		; Timer Control register 1
*
        ORG	$8000         	;Prog starts at $8000 for handyboard.
*
AGAIN	LDX	#$1000
	BSET	TCTL1,X $01
*
	LDAA	#$00
	STAA	$7000
*
	LDY	#$8000
LOP1	DEY
	BNE	LOP1
*
	BCLR	TCTL1,X $01
*
	LDAA	#$FF
	STAA	$7000
*
	LDY	#$8000
LOP2	DEY
	BNE	LOP2
	BCLR	PORTA,X $08	; turn off speaker when done
*
	LDAA	$7000		; Get the Digital Input Status
	ANDA	#$40		; Mask all but the STOP button
	BEQ	END
*
	BRA	AGAIN
*
END	LDAA	$7000		; Get the Digital Input Status
	ANDA	#$80		; Mask all but the STOP button
	BNE	END
	JMP	AGAIN

