list	 p=18f2550
	#include p18f2550.inc

;=============================
	CBLOCK	20H
		SZAM1
		SZAM2
	ENDC
;===============================
ORG 0
;===============================
BANKSEL		TRISB
	MOVLW		00000000B	
	MOVWF		TRISB
BANKSEL		TRISC
	MOVLW		11111111B	
	MOVWF		TRISC
;==============================
	CLRF 		PORTC
	CLRF		 LATC
BANKSEL		 PORTB
	CLRF		 PORTB		
	CLRF 		LATB 			
	MOVLW 		00001111B		 ; Set RB<4:0> as
	MOVWF 		ADCON1			
;==============================
;=========PROGRAM===========
;==============================
	MOVLW		00000001B
	MOVWF		LATB
ELEJE:
	BTFSS		PORTC,0		;ugrik ha 1
	BRA		JOBRA
BALRA:
		RLNCF		LATB,F
		RCALL		KESL
		BRA		ELEJE
JOBRA:
		RRNCF		LATB,F
		RCALL		KESL
		BRA		ELEJE
;==============================
KESL:
	MOVLW	255
	MOVWF	SZAM1
	MOVLW	100
	MOVWF	SZAM2
CIKL:
	DECFSZ	SZAM1
	GOTO		CIKL
	DECFSZ	SZAM2
	GOTO		CIKL
	RETURN
END