home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / NVDC87.ZIP / PROCESS.ZIP / ERRORHAN.INC < prev    next >
Encoding:
Text File  |  1987-08-17  |  612 b   |  26 lines
  1. {$F+}
  2. {$I-}
  3.   PROCEDURE ErrorHandler;
  4.   VAR I : integer;
  5.   BEGIN
  6.     IF ErrorAddr = NIL THEN
  7.       BEGIN
  8.         IF ExitCode = $FF THEN
  9.           BEGIN
  10.             WriteLn('     USER BREAK');
  11.             IF Is_Child THEN Passback_Status(2);
  12.             {status 2 means ^Break}
  13.           END;
  14.         Exit;
  15.       END;
  16.     I := IOresult;
  17.     Assign(Output,'');
  18.     ReWrite(Output);
  19.     Write('     ERROR $',HexByte(ExitCode));
  20.     WriteLn(' at ',hex(seg(ErrorAddr^)),':',hex(ofs(ErrorAddr^)));
  21.     Close(OutPut);
  22.     IF Is_Child THEN Passback_Status(ExitCode OR $100);
  23.   END;
  24. {$F-}
  25. {$I+}
  26.