Got my hopes up too quickly ...
I wrote this clock program.. works good, but sooner or later, after 1 minutes or 4 minutes the Display acts up go crazy, sometimes it comes back showing a proper time.. but its really not stable...

K

'LCD testing program

INCLUDE "modedefs.bas"
OSCCON = %01110000 '8 Mhz
Define OSC 8

CMCON = 7 : ANSEL = 0 : ADCON1 = 7
'/////////////////////////
'// LCD configuration //
'/////////////////////////

DEFINE LCD_DREG PORTA ' Set LCD Data port
DEFINE LCD_DBIT 0 ' Set starting Data bit (0 or 4) if 4-bit bus
DEFINE LCD_RSREG PORTB ' Set LCD Register Select port
DEFINE LCD_RSBIT 7 ' Set LCD Register Select bit
DEFINE LCD_EREG PORTB ' Set LCD Enable port
DEFINE LCD_EBIT 6 ' Set LCD Enable bit
DEFINE LCD_BITS 4 ' Set LCD bus size (4 or 8 bits)
DEFINE LCD_LINES 2 ' Set number of lines on LCD
DEFINE LCD_COMMANDUS 2500
DEFINE LCD_DATAUS 250
DEFINE CHAR_PACING 2000
pause 500



'/////////////////////////
'// PIN configuration //
'/////////////////////////

TRISB = %00000000 ' Set PORTB to all output
TRISA = %11111111 ' Set PORTA to all input



'///////////////////////////////////////////////
'// Variable Declaration and initialization //
'///////////////////////////////////////////////

SDApin var PORTB.1 ' RTC data
SCLpin var PORTB.4 ' RTC clock


Total_time var byte
RTCSec var byte :RTCMin var byte :RTCHour var byte :RTCWDay var byte :RTCDay var byte :RTCMonth var byte :RTCYear var byte :RTCCtrl var byte



lcdout $FE,1, "Bienvenue"
lcdout $FE,$C0, "Welcome"
pause 500


'////////////////////////////////////////////////////
'////////////////// PROGRAM /////////////////////////
'////////////////////////////////////////////////////
I2CWRITE SDApin,SCLpin,$D0,$00,[$49,$59,$00,$00,$00,$00,$00,$00] ' Write to DS1307 to start counter at ZERO
Pause 30

Mainloop:


I2CRead SDApin,SCLpin,$D0,$00,[RTCSec,RTCMin,RTCHour,RTCWDay,RTCDay,RTCMonth,RTCY ear,RTCCtrl]
Pause 30
'Will get the time from timer chip and do a 60 min count down
'Also add interrupt if someone presses start to view the charge/discharge cycle
LCDOUT $FE,1 ' Clear display
PAUSE 20
lcdout $FE,2, "Kens Clock"
lcdout $FE,$C0, "time: ", HEX2 RTCHour, ":", HEX2 RTCMin, ":", HEX2 RTCSec
Pause 300
Goto Mainloop
end