/* Funkcije za delo z podatkovnim eepromom.	S. Murko 1997-12-26
	za uporabo v HT-Cbeta */

/*********************************/
/* S U B _ R E A D _ E E P R O M */
/*********************************/

byte	read_eeprom(byte Eepr_addr) {
	EEADR=(Eepr_addr);
#asm	  
	BSF    3,5
	BSF    8,0
	BCF    3,5
#endasm
	return(EEDATA);
	}
/***********************************/
/* S U B _ W R I T E _ E E P R O M */
/***********************************/

void	write_eeprom(byte Eepr_addr,byte Eepr_data) {
	EEADR=(Eepr_addr);
	EEDATA=(Eepr_data);
#asm	  
	BSF    3,5
	BSF    8,2
	BCF    0X0B,7
	MOVLW  0x55
	MOVWF  9
	MOVLW  0xAA
	MOVWF  9
	BSF    8,1
	BSF    0X0B,7	 		  // nazaj omogoci xprekiniteve 
wait_ee:	BTFSC  8,1
	GOTO   wait_ee
	BCF    8,2
 	BCF    3,5
#endasm
	}