MCRDIS.MAC;3/AU/-BF=MCRDIS.MAC;2
-,,/;* RVT01
-/.IDENT/,.
	.IDENT	/02.20XB/
-51
;
;	RVT01	23 Feb 1981	BY RAY VAN TASSLE
;	ORDINARILY, MCR WILL CHASE DOWN THE REDIRECT CHAIN OF THE
;	TERMINAL. THIS IS COOL EXCEPT WHEN THE TERMINAL IS THE
;	CONSOLE (CO0:). IN THIS CASE, CHASING THE CHAIN MEANS THAT
;	A TIME-SCHEDULED TASK (WHICH ALWAYS GET IT'S TI: SET TO CO0:)
;	CANNOT SUBMIT MCR COMMANDS.
;	THE FIX IS TO MAKE MCR TO NOT CHASE THE REDIRECT CHAIN IT
;	THE TI: IS THE CONSOLE DEVICE (WHOSE UCB IS IN $COPT)
;
-/MCR1:/
-/$STPCT/,.
301$:	MOV	$TKTCB,R0	; RESET MCR... TO CONSOLE TERMINAL
	MOV	$COPT,T.UCB(R0)
	CALLR	$STPCT		; WAIT FOR MORE COMMANDS
-/#1,R0/
	CMP	R0,$COPT	; DON'T CHASE REDIRECT IF TERM IS CO0:
	BEQ	42$
-.+2
42$:				; REF LABEL
//