Code:
Value     VAR WORD
Buf       VAR BYTE[3]
DigLoop   VAR BYTE

Value = 01389

For DigLoop = 5 to 1 STEP -2
    Buf((6-DigLoop)/2) = ((Value DIG DigLoop) << 4) + Value DIG (DigLoop -1)
Next DigLoop 

LCDOUT HEX2 Buf(0),":",HEX2 Buf(1),":",HEX2 Buf(2)
Displays 00:13:89
<br>