DEFINITION MODULE OutTerminal;

(* contains formatting number output routines*)
(* taken from the Lilith Handbook  13.1.1984 P. Fink *)
 (* WriteR removed 07.01.84 fxk *)

FROM SYSTEM IMPORT WORD, ADDRESS;

EXPORT QUALIFIED WriteT, WriteI,WriteB, WriteC, WriteH, (* WriteR, *)
                 WriteAC, WriteAH, dumphex;

PROCEDURE WriteT (VAR s: ARRAY OF CHAR; length: CARDINAL);
PROCEDURE WriteI (value: INTEGER; length: CARDINAL);
PROCEDURE WriteB (value: BOOLEAN; length: CARDINAL);
PROCEDURE WriteC (value: CARDINAL; length: CARDINAL);
PROCEDURE WriteH (value: WORD; length: CARDINAL);
(* PROCEDURE WriteR (value: REAL; length,dec: CARDINAL; fmt: CARDINAL);
   (* fmt = 0: normal, =1: fixed only, =2: float only *)                *)

PROCEDURE WriteAC (value: ADDRESS; length: CARDINAL);
PROCEDURE WriteAH (value: ADDRESS; length: CARDINAL);

PROCEDURE dumphex
   (VAR title: ARRAY OF CHAR;
        start: ADDRESS; length: CARDINAL; printadr: ADDRESS; linelength: CARDINAL);
   (* note: printadr = displayed addr *)

END OutTerminal.
(*======================================================================================*)



