;**************************************************
;****   ÏÎÄÏÐÎÃÐÀÌÌÛ ÐÀÁÎÒÛ Ñ EEPROM PIC      *****
;**************************************************
;	INCLUDE EEPROMRW.INC
;*********  ×ÒÅÍÈÅ ÊÎÍÑÒÀÍÒ ******************			
L_TIMER1
	MOVLW	VAL_TIMER1	; ÓÊÀÇÛÂÀÅÌ ÀÄÐÅÑ ×ÒÅÍÈß VAL_TIMER1
	GOTO	RID_BT
L_TIMER2
	MOVLW	VAL_TIMER2	; ÓÊÀÇÛÂÀÅÌ ÀÄÐÅÑ ×ÒÅÍÈß VAL_TIMER2
	GOTO	RID_BT
L_BAUND
	MOVLW	UST_BAUND	; ÓÊÀÇÛÂÀÅÌ ÀÄÐÅÑ ×ÒÅÍÈß UST_BAUND
	GOTO	RID_BT
L_ADRES_MOD
	MOVLW	ADRES_MOD	; ÓÊÀÇÛÂÀÅÌ ÀÄÐÅÑ ×ÒÅÍÈß ADRES_MOD
RID_BT 
	MOVWF	EEADR,A		; ÓÑÒÀÍÀÂËÈÂÀÅÌ ÀÄÐÅÑ Â EEPROM
RD_FLASH
	BCF	EECON1,EEPGD,A	; ÓÊÀÇÀÒÅËÜ ÏÀÌßÒÈ ÄÀÍÍÛÕ
	BCF	EECON1,CFGS,A	;
	BSF	EECON1,RD,A
	MOVF	EEDATA,W,A
	RETURN
;********************************
SAVE_EEPROM
	MOVWF	EEDATA,A
WR_FLASH
	BCF	INTCON,GIE,A	; ÂÑÅ ÌÀÑÊÈÐÓÅÌÛÅ ÏÐÅÐÛÂÀÍÈß ÇÀÏÐÅØÅÍÛ
	BCF	EECON1,EEPGD,A	; ÓÊÀÇÀÒÅËÜ ÏÀÌßÒÈ ÄÀÍÍÛÕ
	BCF	EECON1,CFGS,A	;
	BCF	EECON1,FREE,A	;

	BSF	EECON1,WREN,A
	MOVLW	55
	MOVWF	EECON2,A
	MOVLW	0AA
	MOVWF	EECON2,A
	BSF	EECON1,WR,A
WAIT_WR
	BTFSS	PIR2,EEIF,A
	GOTO	WAIT_WR
	BCF	PIR2,EEIF,A
	BCF	EECON1,WREN,A
	BSF	INTCON,GIE,A	; ÂÑÅ ÌÀÑÊÈÐÓÅÌÛÅ ÏÐÅÐÛÂÀÍÈß ÐÀÇÐÅØÅÍÛ
	RETURN
;****************************************