[Back to NUMBERS SWAG index]  [Back to Main SWAG index]  [Original]

Unit BitOper;
{$F+,O+}
Interface

Function GetBit(a,n: byte):byte;              { �®§¢à�é�¥â §��ç¥�¨¥ n-®£® ¡¨â�
}
Function SetBitZero(a,n:byte):byte;                      { �¡à�áë¢�¥â n-ë© ¡¨â
}
Function SetBitOne(a,n:byte):byte;                    { �áâ���¢«¨¢�¥â n-ë© ¡¨â
}

Implementation

Function GetBit(a,n: byte):byte;              { �®§¢à�é�¥â §��ç¥�¨¥ n-®£® ¡¨â�
}
Begin
    GetBit:=1 and (a shr n);
End;

Function SetBitZero(a,n:byte):byte;                      { �¡à�áë¢�¥â n-ë© ¡¨â
}
Begin
    SetBitZero:=a and (not(1 shl n));
End;

Function SetBitOne(a,n:byte):byte;                    { �áâ���¢«¨¢�¥â n-ë© ¡¨â
}
Begin
    SetBitOne:=a or (1 shl n);
End;

End.

[Back to NUMBERS SWAG index]  [Back to Main SWAG index]  [Original]