TIC1	equ	$1010
TFLG1	equ	$1023
TCTL2	equ	$1021

	org	$2050
front	rmb	2
period	rmb	2
ED1ba	fcb	$10

	org	$2100

	ldab	ED1ba
	stab	TCTL2

	ldaa	TFLG1
	anda	#$04
	staa	TFLG1

lire1	ldaa	TFLG1
	anda	#$04
	beq	lire1

suite1	ldd	TIC1
	std	front

	ldaa	TFLG1
	anda	#$04
	staa	TFLG1

lire2	ldaa	TFLG1
	anda	#$04
	beq	lire2

suite2	ldd	TIC1
	subd	front

	std	period

	rts