.TITLE	WAITOR
;
; Subroutine callable from FORTRAN to wait for a given number of
; seconds or until an input QIO is terminated
;
;	CALL WAITOR(ISEC)
;
	.MCALL	MRKT$S,CMKT$S,QIO$S,WTSE$S,EXIT$S,QIOW$S
IOSB:	.BLKW	2
BUF:	.WORD
WAITOR::
	MOV	ROWNO,-(SP)
	MOV	COLNO,-(SP)
	MOV	#23.,ROWNO
	MOV	#73.,COLNO
	CALL	CURPOS
	MOV	(SP)+,COLNO
	MOV	(SP)+,ROWNO
	TST	(R5)+
	MOV	@(R5)+,R0
	MRKT$S	#1,R0,#2
	QIO$S	#IO.RNE,#5,#1,,#IOSB,,<#BUF,#1>
	WTSE$S	#1
	TSTB	IOSB
	BEQ	10$
	CMKT$S
	CMPB	IOSB,#IE.IES
	BNE	20$
	QIOW$S	#IO.DET,#5,#1
	EXIT$S
;
10$:
	QIO$S	#IO.KIL,#5
;
20$:
	RETURN
	.END