-1,1
	$BEGIN	PARDI,<28.P>,<PARSE DIRECTORY NAME - 2ND HALF>
-28
;
; 	RJDK 28-DEC-82	Add PC350 named directories
-74
	.IF DF PRONAM
	GDIR$S	,R2,#12.,R4	;get default directory
	BCS	41$		; none - ok
	CMP	(SP)+,(SP)+	; unstack R4,R3
	MOV	(SP)+,R2	;
	BR	45$		;
41$:
	.ENDC
/