DEFINITION MODULE Bits;

(*

from BITS.MOD,  bit manipulation module,  BA June 10, 1985 

Adapted to Turbo Modula-2, Jim Lill 7 Sep 87 

Use of these types of Procedures is illustrated in:

Advanced Modula-2, Herbert Schildt, ISBN 0-07-881245-3, p.238-240

*)


PROCEDURE Set (VAR arg1 : CHAR; bit : CARDINAL);

PROCEDURE Reset (VAR arg1 : CHAR; bit : CARDINAL);

PROCEDURE Test (arg1 : CHAR; bit : CARDINAL) : BOOLEAN;

PROCEDURE SHL (VAR arg1 : CHAR);

PROCEDURE SHR (VAR arg1 : CHAR);

PROCEDURE AndB (arg1, arg2 : CHAR) : CHAR;

PROCEDURE OrB (arg1, arg2 : CHAR) : CHAR;

PROCEDURE XorB (arg1, arg2 : CHAR) : CHAR;

END Bits.
