;***************************************************************
;                          FESZÜLTSÉGÉRZÉKELŐ
;***************************************************************
;Processor: PIC12F509
;Program  : Braun Antal 2012.03.13.
;
;                  +---------------+
;                  |               |
; 		 		 1-| Vdd       Vss |-8 
;                  |               |
; GP5/OSC1/CLKIN 2-|               |-7 GP0/ICSPDAT
;                  |               |
;       GP4/OSC2 3-| FESZ BE       |-6 GP1/ICSPCLK
;                  |               |
;   GP3/MCLR/VPP 4-|       KIMENET |-5 GP2/T0CKI
;                  |               |
;                  +---------------+
;
;***************************************************************
;PROCESSOR TIPUSMEGADÁSA
 LIST P=12F509 
 #INCLUDE "P12F509.INC" 
 errorlevel -302 			;BANKHIBAJELZÉS ELNYOMÁSA A FORDÍTÓBAN 
 errorlevel -305 			; 

;KONFIGURÁCIÓS SZÓ
 __CONFIG _IntRC_OSC&_WDT_OFF&_CP_ON&_MCLRE_ON

 	ORG	0 
 	GOTO START

	CBLOCK 0x07
	D1
	D2
	D3
	D4
	ENDC

START
 	MOVLW	B'00010000' ;
 	TRIS    GPIO
 	CLRF	GPIO
 	MOVLW	B'00000000' ;
	OPTION
PROGRAM:
	MOVLW	0X00
	MOVWF	D1	
	MOVWF	D2	
	MOVWF	D3	
	MOVWF	D4	
ELL:
	BTFSS	GPIO,4			;Van bemenő fesz?
	GOTO	ELL				;Nincs
	BSF		GPIO,2			;Bekapcsoljuk a kimenetet
ELL1:
	BTFSC	GPIO,4			;Van bemenő fesz?
	GOTO	ELL1			;Van
	CALL	DELAY			;Nincs, várunk 5 percig
	BCF		GPIO,2			;és kikapcsoljuk a kimenetet
	GOTO	PROGRAM

DELAY:						;5 perc késleltetés
	MOVLW	0x54
	MOVWF	D1
	MOVLW	0xA1
	MOVWF	D2
	MOVLW	0xFD
	MOVWF	D3
	MOVLW	0x02
	MOVWF	D4
DELAY_0:
	DECFSZ	D1, F
	GOTO	$+2
	DECFSZ	D2, F
	GOTO	$+2
	DECFSZ	D3, F
	GOTO	$+2
	DECFSZ	D4, F
	GOTO	DELAY_0
	NOP
	RETURN
	END