	INCLUDE	68HC11F1.DEF	
	INCLUDE	AS11.MAC	
	INCLUDE	MAP.ASM	
			
	CODE		
	VECTOR_RESET		
RESET	EQU	*	
	INCLUDE	INIT.ASM	
MLOOP	EQU	*	;main loop start
	TST	T100MS0	
	BEQ	M10	
	BRA	M20	
M10	LDAA	#10	;restart timer
	STAA	T100MS0	
	LDAA	PORTA	
	EORA	#$80	;toggle PORTA bit 7
	STAA	PORTA	
M20	TST	T100MS1	;next timer
	BEQ	M30	
	JMP	MLOOP	
M30	LDAA	#25	;restart second timer
	STAA	T100MS1	
	LDAA	PORTA	;toggle PORTA bit 6
	EORA	#$40	
	STAA	PORTA	
	JMP	MLOOP	
        INCLUDE TIMER.ASM

	END		
