MXQIO.MAC;3/AU:72.=MXQIO.MAC
\
-1,21
	$BEGIN	MXQIO,<Execute QIO for mount>

;
; COPYRIGHT (c)	1982 BY DIGITAL EQUIPMENT CORPORATION.
; ALL RIGHTS RESERVED.
;
; THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED
; OR COPIED ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;

	$VERSION	B0204

-/MLP070/+1
;	P. DeVita	11-NOV-83
;		BTPD01 - Allow building as an I and D space task
;
%
-/; CALL:/,/.END/,/; BTPD01/
;old way
; CALL: JSR	R5,XQIO
;	.WORD	DPB ADDRESS
;
;new way (FP I and D)
;	MOV	R5,-(SP)
;	MOV	#DPB,R5
;	JSR	PC,.MXQIO
;	MOV	(SP)+,R5
;
;
; REGISTERS ARE PRESERVED.
;
;-
.MXQIO::
	DIR$	R5		; DO IT
	BCC	20$		; DIRECTIVE OK
	CMP	$DSW,#IE.UPN	; CHECK FOR NO NODES
	BNE	10$		; SOMETHING ELSE - GIVE UP
	WSIG$S			; WAIT A BIT
	BR	.MXQIO		; AND TRY AGAIN

10$:	MOV	$DSW,.QIOST	; PUT ERROR CODE IN STANDARD PLACE
20$:	TSTB	.QIOST		; CHECK FOR I/O ERROR
	BGT	30$		; OK
	SEC			; MINUS MEANS ERROR
30$:	RTS	PC

;
;
	$END	MXQIO
;
;
	.END
/