HP 50g: Mantissa of an Extended Real

[DavidM]

(10-07-2017 03:24 PM)Gerald H Wrote:  Here is my attempt at a solution, but I fear the programme is too large & slow:
...

This is smaller and faster, but there's probably still a better way:

Code:

::
   CK1&Dispatch
   BINT63 ::
      TOTEMPOB
      CODEM
         A=DAT1 A
         AD0EX
         D0+5
         C=0 A
         DAT0=C A
         D0+15
         D0+5
         DAT0=C P
         AD0EX
         RPL
      ENDCODE
   ;
;