10 lines
217 B
Text
10 lines
217 B
Text
EXPORT BITOPS(a, b)
|
|
BEGIN
|
|
PRINT(BITAND(a, b));
|
|
PRINT(BITOR(a, b));
|
|
PRINT(BITXOR(a, b));
|
|
PRINT(BITNOT(a));
|
|
PRINT(BITSL(a, b));
|
|
PRINT(BITSR(a, b));
|
|
// HPPPL has no builtin rotates or arithmetic right shift.
|
|
END;
|