home *** CD-ROM | disk | FTP | other *** search
/ norge.freeshell.org (192.94.73.8) / 192.94.73.8.tar / 192.94.73.8 / pub / computers / cpm / alphatronic / JANADA14.ZIP / BIT.LIB < prev    next >
Text File  |  1999-04-05  |  1KB  |  30 lines
  1. Package Bit Is
  2.     -- Bit operations library
  3.     -- Last modified 6/29/82
  4.  
  5.  
  6.     -- Copyright 1982  RR Software, P.O. Box 1512, Madison WI 53701
  7.     -- Permission is hereby given to distribute Object Code produced from
  8.     -- these libraries.
  9.  
  10.  
  11.     Subtype bit_num Is Integer Range 0..15;
  12.  
  13.     Procedure Setbit(Val : In Out Integer; Bit : In Bit_num);
  14.     -- Set bit number bit
  15.     Procedure Clrbit(Val : In Out Integer; Bit : In Bit_num);
  16.     -- Clear bit number bit
  17.     Function Tstbit(Val : In Integer; Bit : In Bit_num) Return Boolean;
  18.     -- Return the value of bit number bit (1 = True)
  19.  
  20.     Function Land(Val1,Val2 : In Integer) Return Integer;
  21.     -- Logical And
  22.     Function Lor(Val1,Val2 : In Integer) Return Integer;
  23.     -- Logical Or
  24.     Function Lxor(Val1,Val2 : In Integer) Return Integer;
  25.     -- Logical Xor
  26.     Function Lnot(Val : In Integer) Return Integer;
  27.     -- Logical Not
  28.  
  29. End Bit;
  30.