INDOPN.MAC;2/AU=INDOPN.OLD;1/-BF
\
-2,2
	.IDENT	/4.19N/
-47
;
;	NAPC -- CORRECT BUG WITH TWO CONSECUTIVE .OPEN'S
;		OR .TESTFILE'S (COURTESY OF J G DOWNWARD)
;
;	DTB020	AUG 80 MULTITASKER - HANDLE ATTACH/DETACH FOR COMMENTS
;				     PROPERLY BY FORCING A DETACH ON .ENABLE
;				     QUIET
;
;	NAPC -- MAKE IND NON-PRIVILEGED DURING FILE OPENS
;
%
-51,,/;DTB020/
	.MCALL	DIR$
-127,,/;NAPC/
	MOV	R3,H.CUIC(R0)	;; RESET CURRENT UIC
	MOV	$TKTCB,R0	;; GET OUR TCB
	BIC	#T3.PRV,T.ST3(R0);; MAKE US NON-PRIV
-148,,/;NAPC/
	CLR	F.ERR(R0)	; CLEAR ERROR FLAG
-149,,/;NAPC/
	CALL	$SWSTK,15$	; GO TO SYSTEM STATE
	MOV	$TKTCB,R0	;; GET OUR TCB
	BIS	#T3.PRV,T.ST3(R0);; RETURN US TO PRIV
	RETURN			;; GO BACK TO USER STATE
15$:				;
-151,152,/;NAPC/
	CMP	#4,SWITCH	; IS THIS TESTFILE?
	BEQ	16$		; IF EQ, YES - NO ERRORS
	TSTB	F.ERR(R0)	; DID WE HAVE A FAILURE?
	BMI	30$		; IF MI, YES
16$:	CALL	FILSTR		; EXPAND THE FILE SPECIFICATION STRING
-190,191,/;NAPC/
14$:	BR	12$		; NO ERROR RETURN
-285,,/;DTB020/
	BIT	#QUIET,R1	;ARE WE ENABLING QUIET?
	BEQ	40$		;IF EQ, NO
	MOV	#IO.DET,DPBATT+Q.IOFN  ;SETUP TO PERFORM A DETACH
	DIR$	#DPBATT		;AND FORCE THE DETACH
-306,,/;NAPC/
	.BLKW	1		; LEAVE SPACE FOR OUR UIC
/