LIST P=16f628A
	INCLUDE<P16F628A.INC>
	__CONFIG _PWRTE_ON & _WDT_OFF & _RC_OSC

#DEFINE	TLAC	PORTA,0		; Poznamky se pisi
#DEFINE	LED	PORTA,1		; za stredniky !!!

	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