I suppose it depends on the accuracy you need. But if you only want the integer of the result, here's one way to do it.

Code:
a          var  word      ' 0-60000
result     var  word[2]   ' 32-bit result, although largest is 17-bit with input of 0-60,000
 ResHigh   var  result[1]
 ResLow    var  result[0]
remainder  var  word
temp       var  word

a = 60000    ' a test number

ResLow = a / 3
remainder = a // 3 * 15 / 10
temp = ResLow - 13107
ResHigh = temp.15 ^ 1
ResLow = ResLow * 5
Reslow = Reslow + Remainder

LCDout $FE,1,Hex4 ResHigh,":",hex4 ResLow
I know it looks strange, but try it. It works.

Best regards,
   Darrel