(48G) 48G, 49G & 50G: Multiplicative Inverse of a Hex String Modulo 2^(Wordsize)

[Gerald H]

As expected, even inputs return zero.

Code:


::
  CK1&Dispatch
  BINT11
  ::
    HXS 00001 1
    WORDSIZE
    ONE_DO
    OVER
    bit*
    SWAPDUP
    bit*
    SWAPLOOP
    SWAPDROP
  ;
;