#include <p18F14K22.inc>

;	CONFIG FOSC = ECM       ; Kúlső oszcillátor
;	CONFIG FOSC = ECCLKOUTH       ; Kúlső oszcillátor
;	CONFIG PLLEN = ON		; 4x PLL oszcillátor
;	CONFIG FOSC = IRC
;	CONFIG FOSC = IRCCLKOUT
;	CONFIG LVP = OFF		; 
;	CONFIG MCLRE = ON		; RA3 beállításához kell, amíg a rádiós IC feléled REST-ben tartja a PIC-ket
;	CONFIG WDTEN = OFF		; Watchdog kikapcsolva
;	CONFIG PWRTEN = OFF

;*******[ CBLOCK ]**************************************************
    cblock 0x20
Delay1				; delay loop
Delay2				; delay loop

     endc
;*******[ PROGRAMKÓD KEZDETE ]**************************************************

	ORG	0X0000
	movlw	B'01000000'
	movwf	OSCCON

	movlw	B'00000000'
	movwf	ANSEL		; digitális port
	movlw	B'00001000'
	movwf	ANSELH		; digitális port
	movlw	B'00111111' ;Kimenet 0, bemenet 1   RA1 be, RA3 be
	movwf	TRISA
	movlw	B'00000000' ;Kimenet 0, bemenet 1	RB4 be, RB5 ki, RB6 ki, RB7 ki, 
	movwf	TRISB
	movlw	B'11010111' ;Kimenet 0, bemenet 1	RC3 ki, RC4 be, RC5 ki, RC6 be, RC7 be
	movwf	TRISC
stop
	bsf		LATC,5
	call	Delayadas
	bcf		LATC,5
	call	Delayadas	
	goto	stop
Delayadas:     
	movlw	   B'00000000'	
	movwf     Delay1         ;
	movlw	   B'00000000'	
	movwf     Delay2   
DelayLoopadas:
	incfsz    Delay1,f   
	goto      DelayLoopadas 
	incfsz    Delay2,f       
	goto      DelayLoopadas                     
	return
   end