-147
	MOV	#DPBATT+Q.IOFN,R0 ; GET ADDRESS OF ATTACH DPB	[RJDK002]
	MOV	#IO.DET,R1	; GET FUNCTION TO USE IF NOT 	[RJDK002]
				; ALREADY DONE			[RJDK002]
	CMP	(R0),R1		; DONE IT ?			[RJDK002]
	BEQ	10$		; YES				[RJDK002]
	MOV	R1,(R0)		; SET DETACH FUNCTION		[RJDK002]
	DIR$	#DPBATT		; DETACH TI: FOR PROG		[RJDK002]
-189,189
110$:	CLRB	PRFLAG		; CLEAR PROMPT FLAG		[RJDK002]
/