.TITLE	ERROR
	.IDENT	/00/
	.PSECT	CODE,RO
 
;
; VERSION 00
;
; TOM GETZINGER  24-FEB-80
;
; THIS ROUTINE PRINTS ERROR MESSAGES
;
; LOCAL MACROS
;
 
.MACRO	ERR	NAME,MSG
	.PSECT	ERRTXT
...ADR=	.
	.ASCII	MSG
...LEN=	.-...ADR
	.PSECT	RODATA
NAME	==	<.-ERRTBL>/2
	.WORD	...ADR,...LEN
	.ENDM
 
;
; LOCAL DATA
;
 
	.PSECT	ERRTXT,RO,D
ERRHDR:	.ASCII	<15><12><12>"DOB -- "
ERHDLN=	.-ERRHDR
	.PSECT	RODATA,RO,D
ERRTBL:
	ERR	CMDIOR,<"COMMAND I/O ERROR">
	ERR	SYNTAX,<"COMMAND SYNTAX ERROR">
	ERR	INIOER,<"I/O ERROR ON INPUT FILE">
	ERR	OBJFMT,<"OBJECT FORMAT ERROR">
	ERR	NOMEM,<"INSUFFICIENT DYNAMIC MEMORY">
	ERR	TMPERR,<"I/O ERROR ON TEMPORARY FILE">
	.PSECT	CODE
 
	.MCALL	EXIT$S	QIOW$S
 
ERROR::	QIOW$S	#IO.WLB,#LUNERR,#LUNERR,,,,<#ERRHDR,#ERHDLN>
	MOV	(SP)+,R0	; GET ERROR NUMBER
	QIOW$S	#IO.WLB,#LUNERR,#LUNERR,,,,<ERRTBL(R0),ERRTBL+2(R0)>
	EXIT$S			; EXIT THE PROGRAM
 
	.END