LIST	P=16F877A
	#INCLUDE	<P16F877A.INC>
	
	__CONFIG _HS_OSC& _WDT_OFF& _CP_OFF&_LVP_OFF
	


BANK0		MACRO
			BCF			STATUS,RP0
			BCF			STATUS,RP1
			ENDM
BANK1		MACRO		
			BSF			STATUS,RP0
			BCF			STATUS,RP1
			ENDM
BANK2		MACRO
			BCF			STATUS,RP0
			BSF			STATUS,RP1
			ENDM
BANK3		MACRO
			BSF			STATUS,RP0
			BSF			STATUS,RP1
			ENDM
	
	ORG		0
	GOTO	START	

START
	BANK1
	CLRF		TRISD
	BANK0
	CLRF		PORTD
	GOTO		MAIN
;*****EEPROM ÍRÁS******
MAIN
	BANK3
	BCF			EECON1,7		;EPROM MEMÓRIA KIVÁLASZTÁSA
	BANK2
	MOVLW		H'02'
	MOVWF		EEADR			;ÍRÁSI CÍM BEÁLLÍTÁSA
	MOVLW		B'00000111'
	MOVWF		EEDATA			;ADAT MEGADÁSA
	BANK3
	BCF			INTCON,7		;MEGSZAKÍTÁSOK TILTÁSA
	BSF			EECON1,2		;EPROM ÍRÁS ENGEDÉLYEZÉSE
	MOVLW		H'55'
	MOVWF		EECON2			;ÍRÁS INICIALIZÁLÁS (1)
	MOVLW		H'AA'
	MOVWF		EECON2			;ÍRÁS INICIALIZÁLÁS	(2)
	BSF			EECON1,1		;ÍRÁS INDÍTÁSA
	BSF			INTCON,7		;MEGSZAKÍTÁS ENGEDÉLYEZÉSE
S_0	BTFSC		EECON1,1		;ÍRÁS BIT VIZSGÁLATA
	GOTO		S_0
	BANK0			
	BSF			PORTD,0
	GOTO		OLVAS
;********EEPROM OLVASÁSA***************
OLVAS	
	BANK3
	BCF			EECON1,7		;EPROM MEMÓRIA KIVÁLASZTÁSA
	BANK2
	MOVLW		H'02'
	MOVWF		EEADR			;EEPROM CÍM MEGADÁSA
	BANK3
	BSF			EECON1,0		;OLVASÁS INDÍTÁSA
	BANK2
	MOVFW		EEDATA		;EREDMÉNY BETÖLTÉSE W-BE 
	BANK0
D_1	MOVWF		PORTD
	GOTO		D_1
	END