OK it is now working.. somewhat, Needed to put a word instaed of a byte for the address. Now its more of a programming issue which I am stuck with. The lcd is showing recoded time, but the time does not seem to follow a normal clocking. I record at 5 sec interval, and the first three times are identical, then the next two are 15sec later but are the same...

Code:
Mainloop:
	lcdout $FE,1, "Appuye sur Record"
	lcdout $FE,$C0, "ou sur Show"
	pause 100
	
		if PORTC.6 =0 then  

			GOSUB READ_RTC
				I2CWRITE DPIN,CPIN,$A0,Write_Address,[sec,mins,hr]
				Write_Address = Write_Address +3

					Battery_Charge_Counter = Battery_Charge_Counter + 1
		Endif	
			
			if PORTC.7 =0 then 
			bat = 0
			j=1			
              for i =0 to Battery_Charge_Counter/3
			  I2CREAD DPIN,CPIN,$A0,bat,[sec,mins,hr]
              PAUSE 10
              LCDOUT $FE,1," Time  ",DEC3 j
              LCDOUT $FE,$C0,"WA",DEC Write_Address," T:", HEX2 hr, ":", HEX2 mins, ":", HEX2 sec
              PAUSE 2500
			  bat = bat +3
			  j = j+1
			  next i
		Endif
			
            GOTO Mainloop
			End
			
          READ_RTC:
          I2CREAD DPIN, CPIN, $D0, SecReg, [sec,mins,hr,day,date,mon,yr]
          pause 10
          RETURN

          SET_RTC:		' Do once at startup
          yr = $3
          mon = $5
          date = $05
          sec = $09
          mins = $05
          hr = $03
          I2CWRITE DPIN, CPIN, $D0, SecReg, [sec,mins,hr,day,date,mon,yr]
          RETURN