BitHacks.mesa
Copyright
© 1984, 1985 by Xerox Corporation. All rights reserved.
Louis Monier December 17, 1985 4:40:22 pm PST
Barth, January 8, 1986 3:23:26 pm PST
BitHacks:
CEDAR
DEFINITIONS =
BEGIN
Predicates
ODD:
PROC [i:
INT]
RETURNS [
BOOL];
EVEN:
PROC [i:
INT]
RETURNS [
BOOL];
Log2
Log2:
PROC [n:
INT]
RETURNS [
INT];
-- Floor of Log2
NBits:
PROC [n:
INT]
RETURNS [
INT];
TwoToThe:
PROC [x:
INT]
RETURNS [
INT];
TwoToTheLog2:
PROC [n:
INT]
RETURNS [
INT];
Bit Extraction
XthBitOfN:
PROC [x, n:
INT]
RETURNS [
BOOL];
Extract the xth bit in the interger N
Warning: bit 0 is the LOW order bit (lsb)
END.