-2,2
;	.IDENT	/V02.00/
	.IDENT	/FRED 3/
-39
; 029	18-Apr-84	Incorporated into CDA to allow CDA to do disk I/O
; 030	06-Aug-84	Made CDA action reflect DEC manuals when not doing
;			disk I/O.
;
-49,49
.MCALL	EXIT$S		; +++029 REPLACES 'FATAL$'
-54
FORERR:	ERRMSG	<PRIVILEGE VIOLATION -- MOUNT INPUT FOREIGN>
-106,110
	BNE	10$			;BR IF NO, SOME OTHER ERROR
;+++029	FATAL$	#DRVERR			;ELSE PRINT ERROR MESSAGE AND EXIT
	OUTWRD	<IOSTAT>,IOST		;+++029
	EXIT$S	; +++029
10$:
	MOVB	IOST,R5			;GET I/O STATUS CODE
-119,120
	OUTBYT	<IOST  >,IOST		;+++029
;+++029	FATAL$	#DEVERR			;ELSE SOME OTHER ERROR
	CMPB	IOST,#-16.		;+++030 PRIV VIO -- MOU FOREIGN
	BNE	16$			;+++030
	MOV	#FORERR,R2		;+++030
	JMP	.MSG			;+++030
16$:	EXIT$S	; +++029
/