Bits of integer

[Gjermund Skailand]

Here is a version for HP50G

"
* Number of bits necessary to represent
* an integer Z in binary
* unlimited size of Z.
* Z -> %

!RPL
!NO CODE
::
CK1NOLASTWD (check for at least one argument )
CK&DISPATCH0 ( check for Z integer )
#FF
::
TOTEMPOB
DUP Z0_ Z= casedrop %0 ( special check for 0 )
FPTR2 ^Z>ZH ( convert to hex string )
FPTR2 ^ZBits ( get number of bits )
SWAPDROP
UNCOERCE ( convert to real number )
;
;
@
"
compiles to 52 bytes,
checksum #2FA1h

or you can enter the following string,
attach development lib and run H->
"D9D2079262E136211920FF000D9D20
7566088130BA3721C562D5943739F2
CA6206004F00CA620600D010A12436
F262B2130B2130"
Do not include any space or carriage returns.
run
H-> DUP BYTES
check that size and checksum is correct
before running this code.
Br Gjermund