INDSU2.MAC;2/AU/-BF=INDSU2.OLD;1
\
-2,2
	.IDENT	/4.13N/
-38
;
;	DTB020	AUG 80 MULTITASKER - HANDLE ATTACH/DETACH PROPERLY WITH .QUIET
;				     ENABLED BY REMOVING FORCED DETACH
;
;	MBK001		"	   - SUPPORT FOR IO.RPR
;
;	MBK002		"	   - LEAVE TERMINAL ATTACHED DURING QUESTIONS
;
;	NAPC - IF QUIET AND TRACING, PRINT MCR LINES
;		ELIMINATE DOUBLE TRACE LINE FOR .WAIT, .IFINS, .IFACT, ...
;
%
-104,105,/;NAPC/
GETTK::	CALL	$GNBLK		; GET NEXT NON-BLANK CHARACTER
-250,252,/;DTB020/
PRMSG3::BIT	#QUIET,.LIFLG	;IS QUIET ENABLED?
	BEQ	PRMSG1		;IF EQ, NO - HANDLE IT NORMALLY
-,,/;NAPC/
	BIT	#NOTRAC,.LIFLG	; IN TRACE MODE?
	BEQ	PRMSG1		; IF EQ, YES - PRINT IT ANYWAY
-,,/;DTB020/
	CLC			;SUCCESSFUL RETURN
	RETURN
-306,306,/;DTB020/
PRMSG1::
-310,,/;MBK002/
	CMPB	@R1,#'*		;ASKING A QUESTION?
	BNE	PRMSGE		;NO, DO A DETACH
	BIT	#QUIET,.LIFLG	;QUIET ENABLED?
	BNE	PRMSGE		;YES, LEAVE IT DETACHED
	MOV	#IO.ATT,@SP	;NO, ATTACH OR LEAVE ATTACHED
-316,319,/;DTB020/
-346,346,/;MBK001/
TIIO::	CMPB	#IO.RPR/256.,TIDPB+Q.IOFN+1	;IO.RPR?
	BNE	3$		;IF NE, NO
	MOV	R1,TIDPB+Q.IOPL+6	;STORE PROMPT STRING ADDRESS
	MOV	R2,TIDPB+Q.IOPL+8.	;AND LENGTH
	MOV	TIDPB+Q.IOPL+4,TIDPB+Q.IOPL+10.	;NOTE CARRIAGE CONTROL
	CLR	TIDPB+Q.IOPL+4	;AND CLEAR TIMEOUT WORD
	BR	5$		;GO ON
3$:	MOV	R1,TIDPB+Q.IOPL	;SET BUFFER ADDRESS
/