.TITLE ERMSG .IDENT /S1.4/ ;Derived from DECUS version M02 ;* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * ;* * ;* General permission to copy (but not for profit) is hereby * ;* granted, provided that reference is made to the fact that * ;* reproduction privileges were granted by DECUS. * ;* * ;* The information in this document is subject to change with- * ;* out notice and should not be construed as a commitment by * ;* the contributor(s), DECUS or Digital Equipment Corporation. * ;* * ;* These parties make no warranty as to the suitability of this * ;* material for use by the recipient, nor as to the accuracy or * ;* functioning of the software or related material, and no * ;* responsibility is assumed in connection therewith. * ;* * ;* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * ; INITIALIZATION AND ERROR MESSAGE ROUTINE ; ; AUTHOR: L. WADE 1-JUN-72 ; ; MODIFIED BY: ; ; E. POLLACK U. OF W. 19-DEC-73 ; ; D. N. CUTLER 27-JUL-75 ; ; C. H. Spalding, Adept Technology, Apr. '83 ; ; MODIFICATIONS ; ; SIG01 WAIT MESSAGE AND CORRECT DEFAULT ; SIG02 RSTS CHANGES ; chs05 Make page size settings available to task build ; chs10 Change default header type to "MIXED" ; chs16 Use local symbols in place of constants ; chs19 Add AUTOSUBTITLE ; chs20 Add optional-text commands ; chs22 Output multi-part error message on one line ; chs23 Add RIGHT JUSTIFY ; chs35 Misc. changes to tab processing ; chs36 Expand scope of STANDARD ; chs37 Fix FIGURE to work as claimed; added queue ; chs38 Don't output blank page at end of output ; chs39 Add PAGE FORMAT and related switches ; chs40 Expand HEADER ; chs42 Distinguish between "ILLEGAL COMMAND" and "BAD PARAMETER" ; chs43 Add QUOTE CHARACTER ; chs45 Add optional-text command-line switches ; chs46 Change ALTERNATING HEADER to ALTERNATE ; chs47 Allow consecutive subpages ; chs49 Allow multiple input files & appending to output ; chs51 Add subindexing ; chs54a Footnote processing reworked ; chs54b Add FOOTNOTE LINE ; chs56 Add PAGE NAME ; chs59 Add limit on chapters output ; chs61 Changes to LITERAL processing ; chs62 Internal cleanup of error messages ; chs66 Check validity of /UL value ; chs67 Expand error checks of margin parameters ; chs68 Store appendix letter in byte ; chs74 Allow relative/default header level argument ; chs77 Eliminate FIRST TITLE ; chs78 Add text queue & BLOCK ; revamp footnote processing ; chs81 Add /ID command line switch ; chs82 Add Table of Contents ; chs83 Add AUTOCONTENTS ; chs84 Add exit status (completely rework error messages) ; chs88 Add ENABLE and DISABLE ; chs91 Add LEVEL STYLE ; chs92 Limit hyphenation of consecutive lines ; chs98 Add argument to HYPHENATION ; chs99 Add REQUIRE ; ASSEMBLER DIRECTIVES .ENABL LC ;chs62 ; LOCAL MACROS ;chs84+ ; ERRMSG -- Store text and related information for error message ; ; Syntax: ERRMSG LABEL,TEXT,STATUS,CONTRL ; ; LABEL = Global label to be used to reference message ; TEXT = ASCII text of message (enclose in angle brackets) ; STATUS = Optional (Internal) exit status value associated with error E$SUC = 0 ;Success (assumed if no value present) E$WRN = 1 ;Warning E$ERR = 2 ;Error E$SEV = 4 ;Severe error ; CONTRL = Optional signal for post-message processing to be done E$MOR = 20 ;Append another segment of message E$OUT = 40 ;Output message to user E$PAG = 100 ;Follow with page reference .MACRO ERRMSG LABEL,TEXT,STATUS,CONTRL LABEL:: .ASCII \TEXT\ TEMP =200 .IRP R, .IF NB R TEMP =TEMP + R .ENDC ; NB R .ENDM .BYTE TEMP .ENDM ERRMSG ; LOCAL DATA .PSECT ERMSG,GBL,D ; Version identification string (output for /ID switch) ;chs81+ .IF NZ IDSWCH ERRMSG VERSN , ,E$SUC,E$OUT .ENDC ; NZ IDSWCH ;chs81- ; Error Messages ERRMSG ERRHDR, ;chs62 ERRMSG BFOVF , ,E$SEV,E$OUT ERRMSG ILCMM , ,E$ERR ERRMSG ILCMD , ,E$ERR ERRMSG ILCMM0, <"> ;NO CONTROL! ERRMSG ILCMM1, < > ,,E$PAG ERRMSG ILCMM2, < on output page > ERRMSG JUSRM1, ,E$ERR,E$OUT ERRMSG HALTM , ,E$SEV,E$OUT ERRMSG OUTERR, ,E$SEV,E$OUT ERRMSG INPERR, ,E$SEV,E$OUT ERRMSG CORERR, ,E$SEV,E$OUT ERRMSG LSTERR, ,E$ERR,E$PAG ERRMSG NOTERR, ,E$ERR,E$PAG .IF NZ OPTTXT ;chs20+ ERRMSG OPTERR,