BitIsSet Function
Returns True if Specified Bit of BitList is 1.

Unit
QESBPCSSystem

Declaration
Function BitIsSet(const BitList: TESBLongBitList; const I: Byte): Boolean;

Description
Can pass both types of BitList to this.

Parameters
BitList BitList to process.
Bit to clear, starts at 0.

Category
Memory Operations

Implementation

function BitIsSet (const BitList: TESBLongBitList; const I: Byte): Boolean;
asm
  	and  edx, $1f
  	bt   eax, edx  //Test the bit #I
  	setc al          //Result := Bit value (was in CF)
End;


HTML generated by Time2HELP
http://www.time2help.com