This is what I use.


Code:
Loop:

    GOSUB ReadClk       ' Go read clock from DS1302.
    DataA = RTCmin      ' Load input variable DataA; DataA is now HEX.
    GOSUB SubConvert    ' Go convert HEX to DEC.
    RTCMin = DataA      ' GetBack the Loaded variable. DataA is now Decimal.

'...other stuff here....

Goto Loop
    
    
    SubConvert:
    LOOKDOWN DataA,[0,1,2,3,4,5,6,7,8,9,$10,$11,$12,$13,$14,$15,$16,$17,$18,$19,$20,$21,$22,$23,$24,$25,$26,$27,$28,$29,$30,$31,$32,$33,$34,$35,$36,$37,$38,$39,$40,$41,$42,$43,$44,$45,$46,$47,$48,$49,$50,$51,$52,$53,$54,$55,$56,$57,$58,$59],DataA
    RETURN