DEFINITION MODULE FpuIO;
(* gm2/PIM floating-point I/O.  V3 models REAL and LONGREAL as the same
   8-byte type, so both read/write paths are the same. *)

PROCEDURE ReadReal (VAR x : LONGREAL);
PROCEDURE ReadLongReal (VAR x : LONGREAL);
PROCEDURE WriteReal (x : LONGREAL; width, decimals : CARDINAL);
PROCEDURE WriteLongReal (x : LONGREAL; width, decimals : CARDINAL);
PROCEDURE WriteLongInt (x : LONGINT; width : CARDINAL);
PROCEDURE WriteLongCard (x : LONGCARD; width : CARDINAL);

END FpuIO.