INDNP1.MAC;2=INDNP1.MAC;1/AU/BF
\
-2,2
	.IDENT	/4.08X/
-28
; MODIFICATIONS:
;		RJDK2	8/28/78	  REMOVE PROMPTS WHEN /NOLI PRESENT
;
%
-147,,/; RJDK2/
	MOV	#DPBATT+Q.IOFN,R0 ; GET ADDRESS OF ATTACH DPB
	MOV	#IO.DET,R1	; GET FUNCTION TO USE IF NOT 
				; ALREADY DONE
	CMP	(R0),R1		; DONE IT ?
	BEQ	10$		; YES	
	MOV	R1,(R0)		; SET DETACH FUNCTION
	DIR$	#DPBATT		; DETACH TI: FOR PROG
-189,189,/; RJDK2/
110$:	CLRB	PRFLAG		; CLEAR PROMPT FLAG
/