.TITLE	TWAIT - TERMINAL WAITING SUBROUTINE
;
	.GLOBL	INPCHR,OUTCHR
TWAIT::
;	JSR	PC,WLOS	;WAIT FOR SOMETHING TO HAPPEN
	.MCALL	WSIG$S
	WSIG$S
	RTS	PC
	.END
;SEE IF READ DONE
3$:	CLEF$S	#9.		;CLEAR E.F. #9.
	CMPB	#IS.SET,@#$DSW	;WAS IT SET? (WOULD MEAN I/O DONE)
	BEQ	2$		;IF SO GO GET CHARACTER
	JSR	PC,WLOS		;ELSE WAIT A BIT FOR WHATEVER
	WSIG$S			;(THEN JUST A TAD MORE)
	MOV	#-1,R0		;RETURN NOTHING
	RTS	PC
2$:	CLR	WRFG		;SAY READ IS DONE
	MOVB	WRBF,R0		;GET THE CHARACTER