.TITLE	EROUT - OUTPUT ERROR MESSAGE
	.IDENT	/01JUN7/	;10:45:00, LV
;	.ENTRY	EROUT - OUTPUT ERROR MESSAGE
;+
; E R O U T
;
; PURPOSE:	OUTPUTS ERROR MESSAGE ON TI LUN5
;
; INTERFACE:	CALLING SEQUENCE:
;			CALL EROUT
;
;		R1 CONTAINS ERROR MESSAGE
;
; LANGUAGE:	MACRO-11
;
; RESTRICTIONS:	NOT FORTRAN-CALLABLE.
;		THIS ROUTINE IS NOT USABLE UNDER RSX-11M.
;-
; REVISIONS:
; 01-JUN-77	LV	UPDATED TO CONFORM TO STANDARDS
;
	.MCALL	DIR$,QIO$
EROUT::
	TST	R1
	BMI	OUT
	BEQ	OUT
	CMP	#3,R1
	BMI	OUT
	MOV	R0,-(SP)
	MOV	R1,-(SP)
	MOV	#WRITE,R0
	ASL	R1
	SUB	#2,R1
	MOV	BUF(R1),Q.IOPL(R0)
	MOV	SIZ(R1),Q.IOPL+2(R0)
	DIR$	#WRITE
	MOV	(SP)+,R1
	MOV	(SP)+,R0
OUT:	RTS	PC
;
;
WRITE:	QIO$	IO.WVB,5,1,,IOST,,<BUF1,SIZE1,40>
IOST:	.BLKW	2
BUF:	.WORD	BUF1,BUF2,BUF3
SIZ:	.WORD	SIZE1,SIZE2,SIZE3
;
BUF1:	.ASCII	/SEND AND REQUEST MCRREQ FAILED/
	.BYTE	12
E1=.
	.EVEN
SIZE1=E1-BUF1
;
BUF2:	.ASCII	/RECEIVE FROM MCRREQ FAILED/
	.BYTE	12
E2=.
	.EVEN
SIZE2=E2-BUF2
;
BUF3:	.ASCII	/MCRREQ FAILED/
	.BYTE	12
E3=.
	.EVEN
SIZE3=E3-BUF3
;
	.END