-70
	.MCALL	ALUN$S,	CLOSE$		;+++030
-79
;
-166,168
;	OUTWRD	<PUD NM>,(R0)	;+++030
;	OUTWRD	<UNIT  >,2(R0)	;+++030
	MOV	#1,.RANDM	;SET FLAG TO INDICATE DISK/DECTAPE
				;+++029 PUD: DEV CHAR WORD #1,
				;+++029 SINGLE DIRECTORY DEVICE, SEQUENTIAL DEVICE
	TST	UDOTC1		;+++030 HAS THIS BEEN INITIALIZED?
	BNE	27$		;+++030 BR IF IT HAS.
	MOV	U.C1(R0),UDOTC1	;+++030 SAVE FOR NEXT TIME AROUND
	MOV	(R0),DEV	;+++030
	MOV	2(R0),UNT	;+++030
	JMP	28$		;+++030
27$:
;	OUTLIN	<RESTORING LUN>	;+++030
	CLOSE$	#BINFDB		;+++030
	ALUN$S	#INLUN,DEV,UNT	;+++030 BACK TO NORMAL (CHANGES WHEN BINFDB OPENED)
;	OUTWRD	<@#$DSW>,@#$DSW	;+++030
28$:
	BIT	#UC.SDI!UC.SQD,UDOTC1  ;+++030 (WAS U.C1(R0)) IS IT MAGTAPE?
	BNE	29$	;+++02930$		;NO
	JMP	L30	;+++029
29$:;	OUTLIN	<29$>	;+++030
-172
;	OUTLIN	<DOING DIRECTIVE>	;+++030
-177
L30:
;	OUTLIN	<L30>		;+++030
-182
	OUTLIN	<FINIT$>
/