LIST      P=18F1320            ; LIST DIRECTIVE TO DEFINE PROCESSOR
	#INCLUDE "P18F1320.INC"         ; PROCESSOR SPECIFIC VARIABLE DEFINITIONS

 CONFIG OSC = INTIO2, FSCM = OFF, IESO = OFF, PWRT = OFF, BOR = OFF, BORV = 27, WDT = OFF, WDTPS = 32768, MCLRE = OFF, STVR = OFF, LVP = OFF
;--------kódvédelmek kikapcsolása:
 CONFIG DEBUG = OFF, CP0 = OFF, CP1 = OFF, CPB = OFF, CPD = OFF, WRT0 = OFF, WRT1 = OFF, WRTB = OFF, WRTC = OFF, WRTD = OFF, EBTR0 = OFF
 CONFIG EBTR1 = OFF,  EBTRB = OFF
;--------

	CBLOCK	0x20
		DELAY1
		DELAY2
	ENDC
	ORG	0
	GOTO	START
	
	ORG	0x08
	RETFIE
	ORG 0x18	
	RETFIE		;Low Priority Interrupt Vector Trap

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


START	;ALAPBEÁLLÍTÁSOK, ÉS ALAPÉRTÉKEK MEGADÁSA:
	MOVLW B'01100010'
	MOVWF OSCCON		;4MHZ BELSŐ ÓRAJEL
	CLRF WDTCON

	CLRF PORTB
	CLRF LATB
	CLRF PORTA
	CLRF LATA	
	MOVLW b'01111111'   ; mindegyik digitális port
	MOVWF ADCON1
	MOVLW .0
	MOVWF ADCON0

	MOVLW b'00000000'
	MOVWF TRISB 
	MOVLW b'00000000' 
	MOVWF TRISA

CIKLUS	
	BSF LATA,2
	CALL IDO
	BCF LATA,2
	CALL IDO
	GOTO CIKLUS


IDO	
	MOVLW	.255
	MOVWF	DELAY1
IDO2  
	MOVLW	.255
	MOVWF	DELAY2
IDO3
	DECFSZ	DELAY2,F
	GOTO	IDO3
	DECFSZ	DELAY1,F
	GOTO	IDO2
	RETURN
	

	END	;PROGRAM VÉGE.