(*
    Title: 	BinOutput - Definitions
    LastEdit:	"Tue Sep 23 10:09:56 1986"
    Author: 	Mick Jordan
		Cambridge University Computer Laboratory
*)

DEFINITION MODULE BinOutput;

FROM Streams IMPORT Stream;

EXPORT QUALIFIED OutputObjectCode, TextSize, CodeStart, ArgName;

PROCEDURE OutputObjectCode(s: Stream);
(*  do the output to stream 's'.
*)

VAR TextSize, CodeStart: CARDINAL;  (* needed by BinImode *)
    ArgName : ARRAY [0..19] OF CHAR; (* needed to find ref file *)


END BinOutput.
