Package Bit Is
    -- Bit operations library
    -- Last modified 3/27/83


    -- Copyright 1982,1983  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

    Function Peek (Addr : In Integer) Return Byte;
	-- Returns the byte at address in the data segment
    Procedure Poke (Addr : In Integer; Val : In Byte);
	-- Changes the byte at address in the data segment to Val

    Procedure InPort (Portnum : In Integer; Value : Out Byte);
	-- Reads a byte from the port portnum, returns it in Value
	-- Z80 Only!  Would need self-modifying code for the 8080
    Procedure Outport (Portnum : In Integer; Value : In Byte);
	-- Writes a byte (Value) to the port portnum
	-- Z80 Only!  Would need self-modifying code for the 8080

End Bit;
nteger; Bit : In Bit_num) Return Boolean;
	-- Return the value of bit number bit (1 = True)

    Function Land(Val1,Val2 : In