LIST      P=18f1320            ; LIST DIRECTIVE TO DEFINE PROCESSOR
	#INCLUDE <P18f1320.INC>         ; PROCESSOR SPECIFIC VARIABLE DEFINITIONS

	CONFIG WDT = OFF; disable watchdog timer
	CONFIG MCLRE = ON; MCLEAR Pin on
	CONFIG BOR = OFF; Enable Debug Mode
	CONFIG LVP = OFF; Low-Voltage programming disabled (necessary for debugging)
	CONFIG OSC = INTIO2	;Internal oscillator, port function on RA6, AND RA7
	CONFIG IESO = OFF; disable watchdog timer
	CONFIG PWRT = OFF; disable watchdog timer
	CONFIG STVR = OFF
	CONFIG DEBUG = off
	CONFIG CPB = OFF
	CONFIG WRT0 = OFF
	CONFIG WRT1 = OFF
	CONFIG WRTC = OFF
	CONFIG WRTB = OFF
	CONFIG WRTD = OFF
	CONFIG EBTRB = OFF

	CBLOCK	0X000

		DELAY1
		DELAY2
	ENDC
	ORG	0
	GOTO	START
	
	ORG	8
	retfie
	org	18	
	retfie		;Low Priority Interrupt Vector Trap

;************************************************************************************


START	;ALAPBEÁLLÍTÁSOK, ÉS ALAPÉRTÉKEK MEGADÁSA:
	clrf	intcon
	MOVLW	B'11111111'
	MOVWF	ADCON1		;LATA0-1 ANALÓG, A TÖBBI DIGITÁLIS
	MOVLW	B'00000000'
	MOVWF	ADCON0		;TÁP A REFERENCIA, 0-S CSATORNA AKTÍV, A/D BEKAPCSOLVA
	MOVLW	B'01101100'
	MOVWF	OSCCON		;4MHZ BELSŐ ÓRAJEL
	clrf	wdtcon
	
	MOVLW	B'00000000'
	MOVWF	TRISA	  	; OUTPUT-BA ALLITASA
	CLRF	TRISB
	clrf	lata
	clrf	latb
	goto	ciklus
IDO	
	MOVLW	.255
	MOVWF	DeLAY1
IDO2  
	MOVLW	.255
	MOVWF	DELAY2
IDO3
	DECFSZ	DELAY2,F
	GOTO	IDO3
	DECFSZ	DELAY1,F
	GOTO	IDO2
	RETURN
	
CIKLUS	
	bsf		lata,2
	call	ido
	bcf		lata,2
	call 	ido
	goto	ciklus

	END	;PROGRAM VÉGE.