list	 p=18f2550
	#include p18f2550.inc

;=============================


	CBLOCK	20H

		SZAM1
		SZAM2
		SZAM3
		TEMP

	ENDC
	
;===============================

BANKSEL		TRISB
	MOVLW		00000000B	
	MOVWF		TRISB
;==============================

BANKSEL		 PORTB
	
	MOVLW		00001111B
	MOVWF		ADCON1

	CLRF		 LATB
	CLRF		 TEMP
;==============================
;=========PROGRAM=============
;==============================

	MOVLW		00000001B
	MOVWF		LATB,W
	MOVWF		TEMP
FORGAT:

	
	RLNCF		TEMP,W
	MOVWF		LATB,W
	MOVWF		TEMP
	
	
	
	CALL		 KESL

	GOTO		 FORGAT


;=================================	


KESL:
	MOVLW	255
	MOVWF	SZAM1
	MOVLW	100
	MOVWF	SZAM2
	MOVLW	1
	MOVWF	SZAM3


CIKL:
	DECFSZ	SZAM1
	GOTO		CIKL
	DECFSZ	SZAM2
	GOTO		CIKL
	DECFSZ	SZAM3
	GOTO		CIKL
	RETURN

END