DEFINITION MODULE NumIO;     (* Hans Endl   9. 1. 86 *)
                             (*             7. 9. 86 *)

FROM SYSTEM IMPORT ADDRESS, BYTE, WORD;

TYPE
  dataform  = (byte, word, long);
  transtype = RECORD
                CASE format: dataform OF
                  byte: byte3, byte2, byte1, byte0: BYTE |
                  word: word1, word0:               WORD |
                  long: longword:                   LONGINT
                 END
               END;

               (* byte 3 ist das h”chstwertige Byte *)


PROCEDURE WriteCard     (n: CARDINAL; f: CARDINAL);

PROCEDURE WriteInt      (n: INTEGER; f: CARDINAL);

PROCEDURE WriteHexByte  (b: BYTE);

PROCEDURE WriteHexDigit (n: CARDINAL);

PROCEDURE WriteHexWord  (n: WORD);

PROCEDURE WriteHexLong  (n: LONGINT);

PROCEDURE WriteFixWord  (n: WORD; f: CARDINAL);

PROCEDURE WriteLong     (n: LONGINT; f: CARDINAL);

PROCEDURE WriteNum      (n: WORD; base, form: CARDINAL; spaces: BOOLEAN);

END NumIO.