;Program: Práce s pamětí EEPROM
;*********************************
	LIST P = 16F84,	R = DEC
	#INCLUDE <P16F84.INC>
;---------------------------------
 __CONFIG   _CP_OFF & _WDT_OFF & _PWRTE_ON & _XT_OSC
;****************************************************************************
	ORG	0

ZAPIS	BSF	STATUS,RP0	;banka 1
	BSF	EECON1,WREN	;zápis povolen
	MOVLW	H'55'
	MOVWF	EECON2		;bezpečnostní kód
	MOVLW	H'AA'
	MOVWF	EECON2		;bezpečnostní kód
	BSF	EECON1,WR	;zapiš data
	BTFSS	EECON1,EEIF	;jsou data zapsána?
	GOTO	$-1		;ne,čekej
	BCF	EECON1,EEIF	;ano,vynuluj testovací bit
	BCF	EECON1,WREN	;zápis zakázán
	BCF	STATUS,RP0	;banka 0

BOD_1	NOP

CTENI	BSF	STATUS,RP0	;banka 1
	BSF	EECON1,RD	;přečti data
	BCF	STATUS,RP0	;banka	0

BOD_2	NOP

	END
