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

	list	 p=18f2550               
	#include p18f2550.inc

;=============================T
	CBLOCK	20H
		SZAM1
		SZAM2
		SZAM3
		FORSZAM
		TEMP
		BALV
		JOBV
	ENDC
;==============================
ORG 0
;===============================
BANKSEL		TRISB
	MOVLW		00000000B	
	MOVWF		TRISB
BANKSEL 		TRISC
	MOVLW		11111111B
	MOVWF		TRISC
;==============================
;=========PROGRAM===========
;==============================
BANKSEL		 PORTB	
	CLRF		 LATB
	CLRF		 TEMP
	MOVLW		00000001B
ELEJE:
	BANKSEL 	PORTC
	BTFSC		PORTC,0	; ha gomb akkor 0 ugrik 
	GOTO 		BALRA           
	GOTO		JOBRA         
BALRA:
	BANKSEL	 PORTB
	MOVWF		TEMP,W
	MOVWF		LATB,W
	MOVWF		TEMP
	RLNCF		TEMP,W
	MOVWF		LATB,W
	MOVWF		TEMP
	CALL		 KESL
	GOTO		 ELEJE 
JOBRA:
	BANKSEL PORTB
	MOVWF		TEMP,W
	MOVWF		LATB,W
	MOVWF		TEMP
	RRNCF		TEMP,W
	MOVWF		LATB,W
	MOVWF		TEMP
	CALL		 KESL
	GOTO		 ELEJE 
;=================================	
KESL:
	MOVLW	255
	MOVWF	SZAM1
	MOVLW	20
	MOVWF	SZAM2
	;MOVLW	20
	;MOVWF	SZAM3
CIKL:
	DECFSZ	SZAM1
	GOTO		CIKL
	DECFSZ	SZAM2
	GOTO		CIKL
	;DECFSZ	SZAM3
	;GOTO		CIKL
	RETURN
;=========================
	END		
;=========================