.TITLE	ERRMSG
	.ENABLE	LC
;
; ERROR MESSAGE CODE FOR OBJECT CODE DISASSEMBLER
;
; MACRO CALLS USED HERE
	.MCALL	PUT$	DIR$	CLOSE$
;
; GLOBALS DEFINED ELSEWHERE
	.GLOBL	OUTFDB	FILFDB	ENDPRC	STKSAV	DETACH
; DEFINE ERROR MESSAGES GLOBALLY
;
ARGBLK:: .BLKW	15.		; Argument block for $EDMSG
	.NLIST	BEX
I.SST:: .ASCII	/DOB - SST Trap = %D at PC %P/<7><7>
	.ASCII	/%N         R0=%P, R1=%P, R2=%P, R3=%P/
	.ASCIZ	/%N         R4=%P, R5=%P, R6=%P, (SP)=%P/
I.GIN::	.ASCIZ	/DOB - Invalid Indirect Command File/<7>
I.GCM::	.ASCIZ	/DOB - Command Read Error = %D/<7>
I.CS1::	.ASCIZ	/DOB - Command Line Parse Failure at Offset %D/<7>
I.CSO::	.ASCIZ	/DOB - Invalid Syntax in Output Filespec/<7>
I.CSI::	.ASCIZ	/DOB - Invalid Syntax in Input Filespec/<7>
I.OPO::	.ASCIZ	/DOB - Open Error = %D on Output File/<7>
I.OPI::	.ASCIZ	/DOB - Open Error = %D on Input File/<7>
I.MRO::	.ASCIZ	/DOB - Too Many Output Files Specified/<7>
I.MRI::	.ASCIZ	/DOB - Too Many Input Files Specified/<7>
I.INP::	.ASCIZ	/DOB - Error = %D Reading Input File/
I.RTP::	.ASCIZ	/DOB - Invalid Record Type = %D/
I.PSC::	.ASCIZ	/DOB - Too Many PSECTs in Module/
I.URL::	.ASCIZ	/DOB - Unexpected RLD Type = %D/
I.RLF::	.ASCIZ	/DOB - RLD Type Error = %D in Finishing/
I.RAM::	.ASCIZ	/DOB - RLD ASCII Buffer Mismatch/
I.LSF::	.ASCIZ	/DOB - Requested Module not in Library/
FILMSG:	.ASCII	/ABNORMAL TERMINATION/
FILEND:
	.EVEN
	.LIST	BEX
FERR::
	JSR	PC,DETACH
	PUT$	#OUTFDB,#FILMSG,#FILEND-FILMSG
	MOV	#MOB,R0	; Get Buffer for Output
	MOV	#ARGBLK,R2	; Get Address of any Parameters
	CALL	$EDMSG		; Edit the Message
	PUT$	#MOFDB,#MOB,R1
	MOV	STKSAV,SP	;RESTORE ORIGINAL STACK
	JMP	ENDPRC		;GO FINISH AND RE-PROMPT
	.END