LIST P=16F628A
	INCLUDE<P16F628A.INC>
__CONFIG _PWRTE_ON & _WDT_OFF & _MCLRE_OFF & _BODEN_OFF & _LVP_OFF & _INTRC_OSC_NOCLKOUT

#DEFINE		TLAC		PORTA,0
#DEFINE		LED		PORTA,1

	BSF	STATUS,PR0
	MOVLW	B'00000001'
	MOVWF	TRISA
	BCF	STATUS,RP0

	BCF	LED

START	BTFSS	TLAC
	GOTO	$-1
	BSF	LED
	BTFSC	TLAC
	GOTO	$-1

	BTFSS	TLAC
	GOTO	$-1
	BCF	LED
	BTFSC	TLAC
	GOTO	$-1

	GOTO	START

	END