#include <P18F26K22.INC>

	__CONFIG	_CONFIG1H, 	B'00100011'		
													
	__CONFIG	_CONFIG2H,  B'00110110'		
	__CONFIG	_CONFIG3H,  B'10000000'    
   
	__CONFIG	_CONFIG4L, 	B'00000001'		 
												

	__CONFIG	_CONFIG6L,  B'00001111'		 
	__CONFIG	_CONFIG6H, 	B'11100000'		
	__CONFIG	_CONFIG7L,  B'00001111'		

	cblock	0x000
	REG1
	ENTER
	endc

	#DEFINE LED LATA,4		

	MOVLW 0x0D
	MOVWF ENTER

	movlb  0x0F 
	clrf ANSELC
	clrf ANSELB
	CLRF ANSELA
	movlb  0x00 
	clrf PORTA
	clrf PORTB
	CLRF LATC
	MOVLW B'11101111'
	MOVWF TRISA
	MOVLW B'11100111'
	MOVWF TRISB
	MOVLW B'11000000'
	MOVWF TRISC



KOD_TAROLAS
	LFSR 2,200H
	MOVLW 0x0D
	MOVWF INDF2
	INCFSZ FSR2L
	MOVLW 'P'
	MOVWF INDF2
	INCFSZ FSR2L
	MOVLW 'R'
	MOVWF INDF2
	INCFSZ FSR2L
	MOVLW 'O'
	MOVWF INDF2
	INCFSZ FSR2L
	MOVLW 'B'
	MOVWF INDF2
	INCFSZ FSR2L
	MOVLW 'A'
	MOVWF INDF2
	INCFSZ FSR2L
	MOVLW '1'
	MOVWF INDF2
	INCFSZ FSR2L
	MOVLW '2'
	MOVWF INDF2

	LFSR 2,210H
	MOVLW 0x0D
	MOVWF INDF2
	INCFSZ FSR2L
	MOVLW 'P'
	MOVWF INDF2
	INCFSZ FSR2L
	MOVLW 'R'
	MOVWF INDF2
	INCFSZ FSR2L
	MOVLW 'O'
	MOVWF INDF2
	INCFSZ FSR2L
	MOVLW 'B'
	MOVWF INDF2
	INCFSZ FSR2L
	MOVLW 'A'
	MOVWF INDF2
	INCFSZ FSR2L
	MOVLW '1'
	MOVWF INDF2
	INCFSZ FSR2L
	MOVLW '2'
	MOVWF INDF2



TAROLAS 
					
	LFSR 0,200h
CIMKIJELOL
	lfsr 1,210h
HASONLITAS
	MOVf INDF0,w
	MOVWF REG1
	movf INDF1,W
	cpfseq REG1	
	bra NINCSBENNE
	incfsz FSR0L
	INCFSZ FSR1L
	movlw 0x08
	cpfseq FSR1L
	BRA HASONLITAS
	BRA EGYEZIK
	NOP
	NOP
	RETURN
NINCSBENNE
	MOVF REG1,W
	CPFSEQ ENTER
	BRA NEMLEPKI
	NOP
	NOP
	RETURN
NEMLEPKI
	INCFSZ FSR0L
	nop
	movlw 0xFF
	cpfseq FSR0L
	BRA CIMKIJELOL
	BRA TAROLAS

EGYEZIK	
	BSF LED
	BRA TAROLAS

	END