.TITLE ERROR - HANDLES RT-11 STANDARD ERROR MESSAGES .IDENT /821021/ .GLOBL P.MSGF,P.MSGE,P.MSGW,P.MSGI ;USAGE ; PROCEDURE FATAL(PROG,MSG:ARRAY [1..255] OF CHAR); EXTERNAL; ; PROCEDURE ERROR(PROG,MSG:ARRAY [1..255] OF CHAR); EXTERNAL; ; PROCEDURE WARN(PROG,MSG:ARRAY [1..255] OF CHAR); EXTERNAL; ; PROCEDURE INFORM(PROG,MSG:ARRAY [1..255] OF CHAR); EXTERNAL; .PSECT INFORM:: JMP P.MSGI ERROR:: JMP P.MSGE WARN:: JMP P.MSGW FATAL:: JMP P.MSGF .END