symbol segundos = b11
symbol minutos = b12
symbol horas = b13
symbol dayweek = b14
symbol dia = b15
symbol mes = b16
symbol year = b17
symbol control = b18

i2cslave %11010000, i2cslow, i2cbyte

loopp:
	'leyendo ds1307
	readi2c 0, (b0,b1,b2,b3,b4,b5,b6,b7,b8)
	'conversion para verlo con el comando sertxd
	segundos = bcdtobin b0
	minutos = bcdtobin b1
	horas	= bcdtobin b2
	dayweek = bcdtobin b3
	dia = bcdtobin b4
	mes = bcdtobin b5
	year = bcdtobin b6
	
	'visualizando
	sertxd(#horas," : ",#minutos," : ",#segundos,"  Fecha: ",#dia,"/",#mes,"/",#year,13,10)
	wait 1
	goto loopp