SetBit Routines
Sets specified Bit of a BitList to 1.

Unit
QESBPCSSystem

Overloaded Variants
Procedure SetBit(var BitList: TESBBitList; const I: Byte);
Procedure SetBit(var BitList: TESBLongBitList; const I: Byte);

Declaration
Procedure SetBit(var BitList: TESBBitList; const I: Byte);

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

Category
Memory Operations

Implementation

procedure SetBit (var BitList: TESBBitList; const I: Byte);
asm
	and edx, $0f
  	bts [eax], edx  //Set to 1 the bit #I
End;

Declaration
Procedure SetBit(var BitList: TESBLongBitList; const I: Byte);

Implementation

procedure SetBit (var BitList: TESBLongBitList; const I: Byte);
asm
	and edx, $1f
  	bts [eax], edx  //Set to 1 the bit #I
End;


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