I try with this variant of code
Code:
read_1307:                             ' Read time Secs,Mins,Hours,Day,Date,Month,Year,Control
   I2CREAD SDA,SCL,$D1,$00,[STR DB\8]  ' Read 8 bytes from DS1307
        pause 50
    If RTCHour.6=1 then           ' Work-Out 12 or 24 hour Display for Hours
        CounterA=(RTCHour>>4)&$01
        else
        CounterA=(RTCHour>>4)&$03
        endif
        
        CounterA=CounterA*10+(RTCHour&$0F)
    If RTCHour.6=1 then            ' Display Hours appropriately for 12 or 24 hour Mode 
        oraa = CounterA
        else
        oraa = CounterA Dig 1 : orab = CounterA Dig 0
        endif

    minutea =(RTCMin>>4)&$0F : minuteb = RTCMin&$0F    
return
but still "00:00" time I have ...