-1,1
	$BEGIN	FINIT,<28.P>,<INITIALIZE THE FILE STORAGE REGION>,R$$SUP,<FINIT,FINTSL>
-40
;
; RJDK	28-DEC-82
;		FOR PC350 - GET DEFAULT DIRECTORY FROM EXEC AT .FINIT
;
-86
	.IF     DF,PRONAM	; PROFESSIONAL NAMED DIRECTORIES?	;RJK
	MOV	R1,R2		; MAKE ADDRESS OF DEFAULT DESCRIPTOR	;RJK
	ADD	#A.DFDR,R2	; in FSR2				;RJK
	MOV	R2,R3		; MAKE ADDRESS TO PUT THE DEFAULT DIR	;RJK
	ADD	#4,R3		; IMMEDIATELY AFTER ITS DESCRIPTOR	;RJK
	MOV	R3,2(R2)	; SET ADDRESS OF DESCRIPTOR		;RJK
	GDIR$S	,R3,#12.,R2	; GET DIRECTORY AND SET ITS LENGTH	;RJK
	CLC			; NEVER SAY C SET BECAUSE OF THIS	;RJK
	.ENDC
/