Bits of integer

[Werner]

Hi, Albert!
Yes, the method I used in the VA12c challenge will return the correct answer in linear time for all arguments up to 2^35-1 (on a 42S) or to 2^WSIZE-1 on Free42 (WSIZE<45):

Code:

 LBL D
 BINM @ set Binary mode, activates the BASE menu
 CLA
 ARCL ST X @ Alpha reg now contains X in binary
 CLX @ To replace X with the new value - my routine depended on that
 ALENG @ nr of bits
 EXITALL @ exit the BASE menu
 RTN

Sadly, that cannot be used on the 41. Don't know about the 71. On the 48, something similar may be done:

Code:

\<< BIN R\->B \->STR SIZE 3. - \>>

Cheers, Werner