epromw	call	I2Cstart
	movlw	b'10100010'	;ide o zapis do 24c64; adresa 24c64 
	call	i2cW
;-----------------------------------------
;	movfw	adresah	; adresa high
	movlw	10h
	call	i2cW
;	movfw	adresal	; adresa low
	movlw	10h
	call	i2cW
	movlw	10h	;data
	call	i2cW
	call	I2Cstop
	call	cek15m
	return



;************************************i2c komunikacia******************
I2Cstart
	bsf	sda		;ini	dAta v W registre
	bsf	scl
	call	outsda		;sda je nastavene na vystup
	call	cek10
	bcf	sda		;start
	call	cek10
	bcf	scl		;ukoncena start sekvencia
	return

i2cW	movwf	pom
	call	outsda		;sda je nastavene na vystup
	movlw	8
	movwf	cykl
cyklusI2C
	call	cek10
	bcf	scl
	call	cek10
	bcf	sda	
	call	cek10
	rlf	pom,1
	btfsc	STATUS,C			
	bsf	sda	
	call	cek10
	bsf	scl	
	decfsz	cykl,1
	goto	cyklusI2C

acks	call	cek10
	bcf	scl		;acklovage
	call	insda		;sda je nastavene na vstup
	call	cek10
	bsf	scl
	btfsc	sda		;TEST ci bol prikaz potvrdeny...
	goto	$-1
	call	cek10
	bcf	scl	
	return
;-----------------------------------------------------------


I2Cstop	call	cek10
	bsf	scl		;stop
	call	cek10
	call	outsda		;sda je nastavene na vystup
	bsf	sda		;ukoncena stop sekvencia
	call	cek10
	call	insda		;sda je nastavene na vstup
	return
;********************************************************
insda	bsf	STATUS,RP0	; banka registru 1
	bsf	TRISA,3		;sda je nastavene na vstup
	bcf	STATUS,RP0	; banka registru 0
	return
outsda	bsf	STATUS,RP0	; banka registru 1
	bcf	TRISA,3		;sda je nastavene na vystup
	bcf	STATUS,RP0	; banka registru 0
	return