DEFINITION MODULE ErrorX68;
(* Displays error messages for X68000 cross assembler *)

   FROM FileSystem IMPORT
      File;

   EXPORT QUALIFIED
      ErrorType, ErrorCount, Error, WriteErrorCount;

   TYPE
      ErrorType = (Dummy, TooLong, NoCode, SymDup, Undef, SymFull, Phase,
                   ModeErr, OperErr, BraErr, AddrErr, SizeErr, EndErr);

   VAR
      ErrorCount : CARDINAL;

   PROCEDURE Error (Pos : CARDINAL; ErrorNbr : ErrorType);
   (*  Displays Error #ErrorNbr, then waits for any key to continue *)

   PROCEDURE WriteErrorCount (VAR f : File);
   (* Error count output to Console & Listing file *)

END ErrorX68.