MD0:XEDRV.MAC;2=KT1:[11,10]XEDRV.MAC/AU/-BF
\
-2,2,/;GACMOD/
	.IDENT	/01.01A/
-38,,/;GACMOD/
; 26 APR 85	C.T. MICKELSON
;		GOODYEAR AEROSPACE CORPORATION
;		AKRON, OHIO 44315
;		(216) 796-2388
;	FIX DIAGNOSTIC FUNCTIONS SPECIFIED WITH NO DATA TRANSFER
%
-/XEXMT:/
-/70$/,.,/;GACMOD/
	BCS	60$			; If CS, invalid
-/50$/,.,/;GACMOD/
	BEQ	70$			; If EQ, none present
-/70$:/,,/;GACMOD/
	MOV	#IE.SPC&377,R0		; Assume no DIAG buffer
	TST	I.PRM+12(R3)		; Do we have a DIAG buffer?
	BEQ	60$			; If EQ, neither AUX nor DIAG, error
	MOV	#IS.SUC,R0		; Else, set status successful
-/XERCV:/
-/50$/,.,/;GACMOD/
	BCS	20$			; If CS, invalid
	TST	I.PRM+6(R3)		; Do we have and AUX buffer?
	BEQ	50$			; If EQ, none present
-/50$:/,.,/;GACMOD/
50$:	MOV	#IE.SPC&377,R0		; Assume no DIAG buffer
	TST	I.PRM+12(R3)		; Do we have a DIAG buffer?
	BEQ	20$			; If EQ, neither AUX nor DIAG, error
	MOV	#IS.SUC,I.PRM+2(R3)	; Else, set status successful
/