Threaded Mode | Linear Mode

Gerald H · (This post was last modified: 06-15-2017 01:43 PM by Gene.)

ZBMRR takes an integer from the stack & returns the bit reversed integer.

eg For input

65

the programme returns

65

or for input

77^77

the programme returns

18366534824822646077823694996015305077283851597047981665758027101169075241717800535357331193664397611464622329815059415485300995452848454341037661

in

2.72 sec

ZBMRR

Code:

::

  CK1&Dispatch

  # FF

  ::

    FPTR2 ^DupQIsZero?

    ?SEMI

    Z0_

    SWAP

    FPTR2 ^Z>ZH

    FPTR2 ^ZBits

    ZERO_DO

    INDEX@

    FPTR2 ^ZBit?

    ITE

    Z1_

    Z0_

    ROTDUP

    FPTR2 ^RADDext

    FPTR2 ^RADDext

    SWAPLOOP

    DROP

  ;

;