[12,10]ST3OV.MAC/-AU=[12,10]OLDST3OV.MAC
-2,2
	.IDENT	/04.04C/
-51
;
;	J. Billquist	3-Jun-93	4.04C
;		BQT001 -- Fixed relative directory parsing in SET /DEF
;			  along with longer directory paths.
-71,71
	.MCALL	PFCS$S,PRMS$S,TLON$S,LNBDF$,CPRDF$
-138
SYTXT:	.ASCII	'SY:'
-172,173
TBUF:	.BLKB	54.		; TEMPORARY BUFFER SPACE
TBUF1:	.BLKB	54.		;
-843,843
	GDIR$S	#GD.LOG,#TBUF,#52.,#DSIZ ; GET DEFAULT DIRECTORY STRING
-864,864
323$:	PRMS$S	,,#3,R5,R2,#EXPBUF,#50.,,,,#SYTXT,#3,#FS$NAM!FS$TYP!FS$VER ; EXPAND POSSIBLE LOGICAL
-918,918
;	A DEFAULT DIRECTORY STRING OF FIFTY CHARACTERS
-962,962
	MOV	#51.,R2		; MAX LENGTH OF DDS + 1
-1039,1039
150$:	SDIR$S	#SD.LOG,#TBUF,DSIZ ; RESTORE ORIGINAL DIRECTORY
/