The Museum of HP Calculators

HP Forum Archive 14

[ Return to Index | Top of Index ]

Bit fiddling on the HP33s
Message #1 Posted by martin cohen on 30 May 2004, 12:11 p.m.

Bit fiddling on the HP33s

One of the omissions on the 33s is bit fiddling commands - and, or, not. This is odd, since numbers in bases 16, 8, and 2 can be entered and used. So, I decided to fix this.

The routines shown here work on 32 bit unsigned integers, though any number of bits (up to 35) can be used. The method used is to get the corresponding bits of the 2 words to be operated upon, get a value from 0 to 3, and use that as a lookup in a 4 bit table. Separate tables are used for and, or, and not. Any 4 bit table can be used.

The routine uses the integer divide and remainder operations on the 33s; I do not know if they are on the 32sii.

The routine uses only integer values, so it can be run in hex, oct, or bin mode. However, you have to be in decimal mode when entering the "y^x" command.

The code uses lbl H to return the number of bits to process.

The registers used are:

V: First operand
U: Second operand
T: 4 bit table
S: 2^k for k from 31 to 0
R: Result


And: V U xeq A Or: V U xeq O Not: U xeq N

Result in X, U in Y, and V in Z (so you can roll down to get parameters)

General; V U table xeq B

Code: (comments indicated by "//")

And: LBL A 8 // decimal - 1000 binary gto B

Or: LBL O 14 // decimal - 1110 binary gto B

Not: LBL N 5 // decimal - 0101 binary gto B

Number of bits: LBL H 16 // or 8 or 32 or ... rtn

Bit fiddler:

LBL B sto T // the 4 bit table Rv // roll down abs sto U // make it unsigned Rv abs sto V // got the operands and table 2 xeq H 1 - y^x sto S // bit extractor 0 sto R // the eventual result

LBL C // start of the loop rcl V rcl S int/ // integer part of V/2^k 2 rmdr 2 * // 2 times the bit rcl U rcl S int/ 2 rmdr // same for U + // 2*v_bit + u_bit 2 x<>y y^x // 2^u_v value rcl T x<>y int/ // x<>y could be saved if T loaded earlier 2 rmdr // that's the bit rcl* S sto+ R // scale up and store rcl S 2 int/ sto S // get next lower power of 2 x>0? gto C // if anything there, continue rcl V rcl U rcl R // load inputs and output rtn // done

Possible improvements/enhancements:

1) Get 2 bits at a time, and use a 16-bit table. This would cut the running time by about 50% - it is now about 4 seconds on a 33s.

2) have 3 or more parameters - an arbitrary truth table of up to 5 parameters (n parameters takes 2^n bits) could be handeled.

My usual statement: All comments and suggestions will be considered.

One nice thing about the 33s - you can't run out of program space - you will run out of labels first!

Martin Cohen 5/4/04

Note added later: I have written a 2-bit version, as mentioned in (1) above. If anyone is interested, I can post it.

[ Return to Index | Top of Index ]

Go back to the main exhibit hall