EEPROM_WRITE:
	LCALL I2C_START
	LCALL EE_ADD_WR
	MOV A,DPL           ;DPL is 10H
	LCALL I2C_WRITE
	LCALL ACK
	MOV A,VERI          ;VERI is 30H add. location in the ram
	LCALL I2C_WRITE
	LCALL ACK
	LCALL I2C_STOP
	RET
EEPROM_READ:
	LCALL I2C_START
	LCALL EE_ADD_WR
	MOV A,DPL
	LCALL I2C_WRITE
	LCALL ACK
	LCALL I2C_START
	LCALL EE_ADD_RD
	LCALL I2C_READ
	LCALL NO_ACK
	LCALL I2C_STOP
	RET

EE_ADD_WR:
	MOV A,#0A0H
	LCALL I2C_WRITE
	LCALL ACK
	RET
EE_ADD_RD:
	MOV A,#0A1H
	LCALL I2C_WRITE
	LCALL ACK
	RET

I2C_WRITE:
	MOV R7,#8D
	CLR C
LOOP:	RLC A
	MOV SDA,C
	LCALL CLOCK
	DJNZ R7,LOOP
	RET
I2C_READ:
	MOV R7,#8D
LOOP2:	SETB SDA
	SETB SCL
	NOP
	NOP
	MOV C,SDA
	RLC A
	CLR SCL
	NOP
	NOP
	DJNZ R7,LOOP2
	MOV VERI,A
	RET