INDMCR.MAC;2=INDMCR.VGN;1
\
-2,2
	.IDENT	/4.29X/
-33
;
;	RJDK2 	8/28/78	  ADD TEST FOR /NOLI SWITCH
;	JGD	2/05/79   FIX /NOLI FOR V3.2.  MUST DETACH TERMINAL
;			  AFTER A COMMENT.
;
%
-36,,/; JGD/
	.MCALL	DIR$
-68,68,/; RJDK2/
	BEQ	19$		; Y - JUMP
-73,74,/; RJDK2/
	BIT	#NOLIST,.LIFLG	; LISTING REQUIRED
	BNE	11$		; N - SKIP PRINT
	CALL	PRMSG1		; Y - PRINT
11$:	TRAP	EREOF		; EXIT
-78,,/; RJDK2/
19$:	BIT	#NOLIST,.LIFLG	; LISTING MCR LINE?
	BNE	40$		; NO - SKIP PRINT
-82,,/; JGD/
	BIT	#NOLIST,.LIFLG	; IF NOLIST, MUST DETACH AFTER COMMENT
	BEQ	35$		; IF EQ, NO SO SKIP DETACH
	MOV	#IO.DET,DPBATT+Q.IOFN ; SET UP THE DPB
	DIR$	#DPBATT		; ISSUE QIO
35$:				; REFFERENCE LABLE
-98,98,/; JGD/
	BIT	#NOLIST!QUIET,.LIFLG	; SUPPRESS TERMINAL OUTPUT?
/