DEFINITION MODULE ERRORS;
PROCEDURE ERROR(N:SHORTCARD);
PROCEDURE ERTRAP(P:PROC):SHORTCARD;
PROCEDURE EXCEPTION(N:SHORTCARD);
PROCEDURE EXTRAP(P:PROC):SHORTCARD;
PROCEDURE BREAK():BOOLEAN;
VAR [0BD03H] 
  ERCTRL,RERRNO,DRVERR:SHORTCARD;
END ERRORS.
IMPLEMENTATION MODULE ERRORS;
FROM SYSTEM IMPORT ADDRESS;
VAR [5C3DH] ERRSP:ADDRESS;
VAR XSP:ADDRESS;
 
PROCEDURE ERROR(N:SHORTCARD);
HEX 6F C3 55 00 END ERROR;
 
PROCEDURE ERTRAP(P:PROC):SHORTCARD;HEX
ED 5B (@ERRSP) D5 CD (@ERTRAP+20) E1 22 (@ERRSP) 3A (@ERRNR) DD
36 00 FF C9 ED 73 (@ERRSP) E9 END ERTRAP;
 
PROCEDURE EXTRAP(P:PROC):SHORTCARD;HEX
ED 5B (@XSP) D5 CD (@EXCEPTION+0DH) E1 22 (@XSP) C9
ED 73 (@XSP) E9 END EXTRAP;
PROCEDURE EXCEPTION(N:SHORTCARD);
HEX ED 7B (@XSP) C9 END EXCEPTION;
 
PROCEDURE BREAK():BOOLEAN;
HEX CD F4 15 3F C9 END BREAK;

BEGIN
XSP:=ERRSP;
END ERRORS.
