processor       18F14K50
        radix           dec
        
        #include 		P18F14K50.INC


	cblock 0x20
Delay1                   
Delay2
Delay3       
Timer1
Timer2
Timer3            
     endc

;-------------------------------------------------------------------------------
; PORTB kivezetések
;
;RS              equ     6                       ; 0= utasítás, 1= adat reg. választás
;RdWr            equ     5                       ; R/W=0 LCD írás, R/W=1 LCD memória olvasás
;E               equ     4                       ; 0= LCD tiltás, 1= engedélyezés
;-------------------------------------------------------------------------------
      
     org 0
oscillátor_beállítás
	movlw	b'01010110'
	movwf	OSCCON

IO_BEALLITAS
	movlw	b'00000000'
	movwf	TRISC
	movlw	b'00000000'
	movwf	TRISB

be
	movlw	b'11110000'
	movwf	LATC
	call 	delay
	CLRF	PORTC
ki	
	movlw	b'00001111'
	movwf	LATC
	call 	delay
	clrf	PORTC
	goto	be

delay
	movlw	10
	movwf	Delay3
delay_
	decfsz	Delay1
	goto	delay_
	decfsz	Delay2
	goto	delay_
	decfsz	Delay3
	goto	delay_
	return

	END