LIST P=16F628A
	INCLUDE<P16F628A.INC>

#DEFINE		TLAC	PORTA,0
#DEFINE		LED	PORTA,1

	BSF	STATUS,RP0
	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