	LIST P=16F877a
	INCLUDE<P16F877a.INC>
	__CONFIG   _CP_OFF &_CPD_OFF & _WDT_OFF & _BODEN_OFF &_PWRTE_ON &_HS_OSC &_LVP_OFF

CISLO	equ	20h	
CISLOA	equ	21h

#DEFINE	TLAC	PORTA,0	

		org	00h		
		goto	START

CEKEJ	CLRF	CISLO		
		MOVLW	10		
		MOVWF	CISLOA

		RETURN

START	MOVLW	B'00000111'	
		MOVWF	CMCON
		BSF	STATUS,RP0	
		MOVLW	B'00000001'
		MOVWF	TRISA
		CLRF	TRISB
		BCF	STATUS,RP0

ZNOVU	MOVLW	B'00000001'	
		MOVWF	PORTB
		CALL	CEKEJ		

		MOVLW	B'00000010'
		MOVWF	PORTB
		CALL	CEKEJ

		MOVLW	B'00000100'
		MOVWF	PORTB
		CALL	CEKEJ

		MOVLW	B'00001000'
		MOVWF	PORTB
		CALL	CEKEJ

		MOVLW	B'00010000'
		MOVWF	PORTB
		CALL	CEKEJ

		MOVLW	B'00100000'
		MOVWF	PORTB
		CALL	CEKEJ

		MOVLW	B'01000000'
		MOVWF	PORTB
		CALL	CEKEJ

		MOVLW	B'10000000'
		MOVWF	PORTB
		CALL	CEKEJ

		GOTO	ZNOVU
	

		END


