.TITLE ERMSG .ENABL LC .IDENT /BL3.2/ ; ; Routine rewritten by J. CLEMENT April 1982 ; ; Error message routine ; ; LOCAL DATA ; ; ERROR MESSAGES ; .psect $TABL,RO,D,LCL,CON .even ERRTAB: .WORD ERR0,ERR1,ERR2,ERR3,ERR4,ERR5,ERR6 .WORD ERR7,ERR8,ERR9,ERR10,ERR11,ERR12 .WORD ERR13,ERR14,ERR15,ERR16,ERR17,ERR18 .WORD ERR19,ERR20,ERR21,ERR22,ERR23,ERR24 .WORD ERR25,ERR26,ERR27,ERR28,ERR29,ERR30 .WORD ERR31,ERR32,ERR33,ERR34,ERR35,ERR36 ERREND: .PSECT TEXT,RO,D,LCL,CON .nlist bin ERR0: .ASCIZ /RNO -- Unknown error message/ ERR1: .ASCII /RNO -- Bad parameters/ .ASCIZ / -- Parameter too large/ ERR2: .ASCII /RNO -- Bad parameters/ .ASCIZ / -- Parameter too small/ ERR3: .ASCIZ /RNO -- Symbol already defined/ ERR4: .ASCIZ /RNO -- Bad parameters/ ERR5: .ASCIZ /RNO -- Unrecognized command/ ERR6: .ASCIZ /RNO -- Error in formatting equation/ ERR7: .ASCIZ /RNO -- Missing parameter from command/ ERR8: .ASCII /RNO -- Bad parameters/ .ASCIZ / -- Param too big or negative/ ERR9: .ASCII /RNO -- Internal error/ .ASCIZ / -- Contact your system manager/ ERR10: .ASCIZ /RNO -- Output file error/ ERR11: .ASCIZ /RNO -- Input file error/ ERR12: .ASCII /RNO -- Insufficient dynamic memory/ .ASCII / -- Reduce either footnote length,/ .ASCII / Number of .DEFINE statements,/ .ASCIZ / or .TEXT section length/ ERR13: .ASCIZ /RNO -- Can't indent list element/ ERR14: .ASCIZ /RNO -- Can't reduce margins/ ERR15: .ASCIZ /RNO -- Command string syntax error/ ERR16: .ASCIZ /RNO -- Output file specification error/ ERR17: .ASCIZ /RNO -- Output file open error/ ERR18: .ASCIZ /RNO -- Input file specification error/ ERR19: .ASCII /RNO -- Input file open error/ .ASCII / -- Input DEVICE:FILE probably doesn't exist, or/ .ASCIZ / You lack privelege to use the file/ ERR20: .ASCII /RNO -- Too many nested .REQ/ .ASCIZ / -- Maximum nesting is 5 levels/ ERR21: .ASCIZ /RNO -- Illegal command inside footnote/ ERR22: .ASCIZ /RNO -- Illegal command inside note/ ERR23: .ASCIZ /RNO -- Illegal command after .LOCK command/ ERR24: .ASCIZ /RNO -- Illegal command during .TEXT section/ ERR25: .ASCIZ /RNO -- Character is already defined as a flag/ ERR26: .ASCII /RNO -- Illegal character specified as flag/ .ASCIZ / -- Only special characters may be flags/ ERR27: .ASCIZ /RNO -- Extraneous characters after legal command/ ERR28: .ASCII /RNO -- Illegal command --/ .ASCIZ / -- Missing .FOOTNOTE before .END FOOTNOTE/ ERR29: .ASCII /RNO -- Illegal command --/ .ASCIZ / -- Missing .NOTE before .END NOTE/ ERR30: .ASCII /RNO -- Illegal command --/ .ASCIZ / -- Missing .LIST before .END LIST/ ERR31: .ASCII /RNO -- Illegal command --/ .ASCIZ / -- Missing .LITERAL before .END LITERAL/ ERR32: .ASCIZ /RNO -- Too many tabs specified -- Max is 32/ ERR33: .ASCII /RNO -- Permanent footnote error/ .ASCIZ / -- Footnote already specified for this page/ ERR34: .ASCIZ /RNO -- Char specified is not special flag/ ERR35: .ASCII /RNO -- Maximum list level exceeded/ .ASCIZ / -- Max level is 6 indented lists/ ERR36: .ASCII /RNO -- Maximum subindex levels exceeded/ .ASCIZ / -- No more than 6 subindices are allowed/ .PSECT $CODE,RO,I,LCL,CON .list bin ; ; This entry point also loads error messages from overlay ; ERMSG:: CLC ASL R0 ; Now is table pointer CMP R0,#ERREND-ERRTAB ; Check it BLO 10$ ; Not too big ? CLR R0 ; Output null message 10$: MOV ERRTAB(R0),R0 ; Get address of error message JMP EROUT ; TRANSFER TO REAL OUTPUT ROUTINE .END