Re: TESTB in /free

Adam Glauser wrote:

That is, assuming you mean the 7th bit counting from the least significant bit (which I think is the usual way).

FWIW, this only works if you use a literal, named constant, or numeric variable for the mask (the x'40' part). I checked the manual, because I realized that I forgot to take in to account that your character field is 2 long.

Here's what the manual says about operands of different lengths:
The length is the length of the largest operand. If the arguments have different lengths, they are padded on the left with bit zeros for numeric arguments. Shorter character arguments are padded on the right with bit ones.

So it appears that the literal x'40' is treated as numeric, and padded on the left with x'00', which is what we want in this case.

%BITAND won't allow one operand to be character and the other operand to be numeric. It considers a hex literal to be either character or numeric depending on the other operand.

The literal x'40' would be treated as character, so it would be padded on the right with bit ones.

To test the 7th bit of a 2-byte string, (I'm also assuming it's the 7th least significant bit), I think it's better to be explicit and spell out the 2-byte mask:
if (%bitand(charField : x'0040') = x'0040');
// bit 7 is on
endif;