(49G, 49g+ & 50g) ZREV: Speedily Reverse Digits of Integer

[Gerald H]

For integer input Z the programme returns the reversed digits integer,

eg for input

778

the programme returns

877.

The programme is much faster than converting to a string, SREV & converting to an object.

NB: FPTR 2 A5 has been a stable pointer at least from 1.19-6 on.

Size: 37.

CkSum: # 262Eh

ZREV

Code:

::
  CK1&Dispatch
  # FF
  ::
    FPTR 2 A5
    BINT11
    OVERLEN$
    #1-SUB$
    FPTR2 ^S>Z
  ;
;