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