Package Bit Is
    -- Bit operations library
    -- Last modified 6/29/82


    -- Copyright 1982  RR Software, P.O. Box 1512, Madison WI 53701
    -- Permission is hereby given to distribute Object Code produced from
    -- these libraries.


    Subtype bit_num Is Integer Range 0..15;

    Procedure Setbit(Val : In Out Integer; Bit : In Bit_num);
	-- Set bit number bit
    Procedure Clrbit(Val : In Out Integer; Bit : In Bit_num);
	-- Clear bit number bit
    Function Tstbit(Val : In Integer; Bit : In Bit_num) Return Boolean;
	-- Return the value of bit number bit (1 = True)

    Function Land(Val1,Val2 : In Integer) Return Integer;
	-- Logical And
    Function Lor(Val1,Val2 : In Integer) Return Integer;
	-- Logical Or
    Function Lxor(Val1,Val2 : In Integer) Return Integer;
	-- Logical Xor
    Function Lnot(Val : In Integer) Return Integer;
	-- Logical Not

End Bit;