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
Bookmarks