home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1990 / 03 / tricks / bit.def next >
Encoding:
Modula Definition  |  1989-12-13  |  1.6 KB  |  47 lines
  1. (* ------------------------------------------------------ *)
  2. (*                      BIT.DEF                           *)
  3. (*          (c) 1989 Roland Minges & TOOLBOX              *)
  4. (* ------------------------------------------------------ *)
  5. DEFINITION MODULE Bit;
  6.  
  7. IMPORT SYSTEM;
  8.  
  9. (* ----- exportierte modul-globale Vereinbarungen ------- *)
  10.  
  11. TYPE
  12.   BITNO = CARDINAL [0..15];
  13.  
  14. (* --------------- exportierte Prozeduren --------------- *)
  15.  
  16. PROCEDURE and   (w1, w2: SYSTEM.WORD): SYSTEM.WORD;
  17.                 (* logisches UND der einzelnen Bits *)
  18.  
  19. PROCEDURE or    (w1, w2: SYSTEM.WORD): SYSTEM.WORD;
  20.                 (* logisches ODER der einzelnen Bits *)
  21.  
  22. PROCEDURE xor   (w1, w2: SYSTEM.WORD): SYSTEM.WORD;
  23.                 (* logisches exclusiv-ODER der einz. Bits *)
  24.  
  25. PROCEDURE not   (w     : SYSTEM.WORD): SYSTEM.WORD;
  26.                 (* alle Bits werden invertiert *)
  27.  
  28. PROCEDURE lsh   (VAR w : SYSTEM.WORD; Bits: BITNO);
  29.                 (* um die gewünschte Anzahl Bits
  30.                    nach links verschieben *)
  31.  
  32. PROCEDURE rsh   (VAR w : SYSTEM.WORD; Bits: BITNO);
  33.                 (* um die gewünschte Anzahl Bits
  34.                    nach rechts verschieben *)
  35.  
  36. PROCEDURE set   (VAR w : SYSTEM.WORD; Bit : BITNO);
  37.                 (* gewünschtes Bit setzen *)
  38.  
  39. PROCEDURE reset (VAR w : SYSTEM.WORD; Bit : BITNO);
  40.                 (* gewünschtes Bit löschen *)
  41.  
  42. PROCEDURE isset (    w : SYSTEM.WORD; Bit : BITNO): BOOLEAN;
  43.                 (* Prüfen, ob ein Bit gesetzt ist *)
  44. END Bit.
  45. (* ------------------------------------------------------ *)
  46. (*                 Ende von BIT.DEF                       *)
  47.