;	WAIT.MAC
;
;	THIS SUBROUTINE ATTEMPTS TO REDUCE THE OVERHEAD
;	IMPOSED ON THE RSX-11M SYSTEM BY THE XMITR PROGRAM
;
;	WRITTEN BY MICHAEL LAMPI    10/15/79
;
	.MCALL	CLEF$S,SETF$S,MRKT$S,WTLO$S,CMKT$S
;
	.GLOBL	WAIT
WAIT:	CLEF$S	#1		;SEE IF OUTPUT TO REMOTE HAS FINISHD
	CMPB	#IS.SET,$DSW
	BNE	10$		;NOPE
	SETF$S	#10.		;YES - SET CLRED FLAG FLAG
10$:	CLEF$S	#2		;SEE IF OUTPUT TO TTY HAS FINISHED
	CMPB	#IS.SET,$DSW
	BNE	20$		;NOPE
	SETF$S	#11.		;YES - SET CLRED FLAG FLAG
20$:	MRKT$S	#12.,#10.,#1.	;SET UP THE MARK TIME
	WTLO$S	0,#174777	;WAIT FOR SOMETHING TO HAPPEN
	CMKT$S			;SOMETHING WOKE US UP - CANCEL MRKT
	CLEF$S	#11.		;SEE IF WE SET THIS CLRED FLAG FLAG
	CMPB	#IS.SET,$DSW
	BNE	30$		;NOPE
	SETF$S	#2		;YES - RESET THE FLAG
30$:	CLEF$S	#10.		;SEE IF WE SET THIS CLRED FLAG FLAG
	CMPB	#IS.SET,$DSW
	BNE	40$		;NOPE
	SETF$S	#1		;YES - RESET THIS FLAG
40$:	RTS	PC		;RETURN TO CALLING PROGRAM
;
	.END