home *** CD-ROM | disk | FTP | other *** search
/ GEMini Atari / GEMini_Atari_CD-ROM_Walnut_Creek_December_1993.iso / files / language / modula / numio.def < prev    next >
Encoding:
Modula Definition  |  1993-10-23  |  1014 b   |  39 lines
  1. DEFINITION MODULE NumIO;     (* Hans Endl   9. 1. 86 *)
  2.                              (*             7. 9. 86 *)
  3.  
  4. FROM SYSTEM IMPORT ADDRESS, BYTE, WORD;
  5.  
  6. TYPE
  7.   dataform  = (byte, word, long);
  8.   transtype = RECORD
  9.                 CASE format: dataform OF
  10.                   byte: byte3, byte2, byte1, byte0: BYTE |
  11.                   word: word1, word0:               WORD |
  12.                   long: longword:                   LONGINT
  13.                  END
  14.                END;
  15.  
  16.                (* byte 3 ist das höchstwertige Byte *)
  17.  
  18.  
  19. PROCEDURE WriteCard     (n: CARDINAL; f: CARDINAL);
  20.  
  21. PROCEDURE WriteInt      (n: INTEGER; f: CARDINAL);
  22.  
  23. PROCEDURE WriteHexByte  (b: BYTE);
  24.  
  25. PROCEDURE WriteHexDigit (n: CARDINAL);
  26.  
  27. PROCEDURE WriteHexWord  (n: WORD);
  28.  
  29. PROCEDURE WriteHexLong  (n: LONGINT);
  30.  
  31. PROCEDURE WriteFixWord  (n: WORD; f: CARDINAL);
  32.  
  33. PROCEDURE WriteLong     (n: LONGINT; f: CARDINAL);
  34.  
  35. PROCEDURE WriteNum      (n: WORD; base, form: CARDINAL; spaces: BOOLEAN);
  36.  
  37. END NumIO.
  38.  
  39.