| ClearBit Routines |
Unit
QESBPCSSystem
| Overloaded Variants |
| Procedure ClearBit(var BitList: TESBBitList; const I: Byte); |
| Procedure ClearBit(var BitList: TESBLongBitList; const I: Byte); |
Declaration
Procedure ClearBit(var BitList: TESBBitList; const I: Byte);
| Parameters |
| BitList | BitList to process. |
| I | Bit to clear, starts at 0. |
Category
Memory OperationsImplementation
procedure ClearBit (var BitList: TESBBitList; const I: Byte); asm and edx, $0f //Should be faster than "movzx edx, dl" btr [eax], edx //Clear the bit #I End; |
Declaration
Procedure ClearBit(var BitList: TESBLongBitList; const I: Byte);Implementation
procedure ClearBit (var BitList: TESBLongBitList; const I: Byte); asm and edx, $1f //Should be faster than "movzx edx, dl" btr [eax], edx //Clear the bit #I End; |
|
|