DEFINITION MODULE BitStuff;

FROM SYSTEM IMPORT BYTE, WORD, LONGWORD;

PROCEDURE LAnd( op1, op2 : LONGWORD):LONGWORD;
PROCEDURE LOr( op1, op2 : LONGWORD):LONGWORD;
PROCEDURE LEor( op1, op2 : LONGWORD):LONGWORD;
PROCEDURE LShl(number : LONGWORD; numbits : CARDINAL):LONGWORD;
PROCEDURE LShr(number : LONGWORD; numbits : CARDINAL):LONGWORD;

PROCEDURE WAnd( op1, op2 : WORD):WORD;
PROCEDURE WOr( op1, op2 : WORD):WORD;
PROCEDURE WEor( op1, op2 : WORD):WORD;
PROCEDURE WShl(number : WORD; numbits : CARDINAL):WORD;
PROCEDURE WShr(number : WORD; numbits : CARDINAL):WORD;

PROCEDURE BAnd( op1, op2 : BYTE):BYTE;
PROCEDURE BOr( op1, op2 : BYTE):BYTE;
PROCEDURE BEor( op1, op2 : BYTE):BYTE;
PROCEDURE BShl(number : BYTE; numbits : CARDINAL):BYTE;
PROCEDURE BShr(number : BYTE; numbits : CARDINAL):BYTE;

END BitStuff.
