INCLUDE	p18f4550.inc

_PLLDIV_5_1L_CPUDIV_OSC1_PLL2_1L_FOSC_XTPLL_XT_1H_WDT_OFF_2H 

org     0             	; reset vektor
		nop				; MPLAB-ICD miatt



s1	equ	50H
s2	equ	51H
s3	equ	52H

INIT:	clrf	TRISB
		clrf	PORTB
		bsf		PORTB,0
	
FO1:	call	ELL1
		call	ELL2
		call	KESES3
		goto	FO1		

ELL1:	call	BALRA
		btfss	PORTB,7
		goto	ELL1
		return		

ELL2:	call	JOBBRA
		btfss	PORTB,0
		goto	ELL2
		return

BALRA:	call	KESES
		rlncf	PORTB
		call	KESES
		return

JOBBRA:	call	KESES	
		rrncf	PORTB
		call	KESES
		return

KESES:	movlw	D'300'
		movwf	s1
C1:		decfsz	s1,1
		goto	C1
		return


KESES3:	movlw	D'600'
		movwf	s2
C2:		decfsz	s2,1
		goto	C1
		return


	end