.title	.xqiow	Execute a QIO
	.ident	"V02.00"
;+
; Index		Execute a QIO
;
; Usage
;
;    Internal
;
;	mov	#qiodpb,r0
;	call	.xqiow
;
; Description
;
; 	Executes FILES-11 QIOs with wait and auto retry on pool
;	exhaustion. Assumes waiting on event flag.
;-
; Edits:
; V02.00 19-Oct-82 TTC 		Rework of old CS library
;

	.mcall	dir$	wsig$s	wtse$s
	.psect	c$code

loop:	WSIG$S			; Wait a bit

.XQIOW::
	DIR$	r0		; Execute the directive
	bcc	wait		; Leave if ok
	cmp	$DSW,#-1	; No nodes?
	beq	loop		; Yes -- try again.
	sec			; Set carry - error
	return			; Bail out

wait:	WTSE$S	#eflag		; Wait for completion
	return			; and return
	.end