DEFINITION MODULE Listing;
(* Creates a program listing, including Addresses, Code & Source. *)

   FROM FileSystem IMPORT
      File;

   FROM LongNumbers IMPORT
      LONG;


   EXPORT QUALIFIED
      StartListing, WriteListLine, WriteSymTab;


   PROCEDURE StartListing (VAR f : File);
   (* Sign on messages for listing file -- initialize *)


   PROCEDURE WriteListLine (VAR f : File; 
                            AddrCnt, ObjOp, ObjSrc, ObjDest : LONG;
                               nA,     nO,    nS,     nD    : CARDINAL);
   (* Writes one line to the Listing file, Including Object Code *)


   PROCEDURE WriteSymTab (VAR f : File; NumSym : CARDINAL);
   (* Lists symbol table in alphabetical order *)

END Listing.