IMGCML.MAC;2/AU=MGCML.VGN;1
\
-2,2
	.IDENT	/M10.11X/
-55
;
;	RJDK1	8/28/78		SUPPORT FOR @FILESPEC XXX YYY ZZZ....
;				WHERE XXX, YYY, ZZZ ECT WILL BE PLACED IN
;				STRING VARIABLES A$,B$, C$....
;	JGD	2/05/79		FOR RSX11M V3.2 SYSTEMS SUPPORTING ;				   THE SWAWN DIRECTIVE.
%
-376,377,/; RJDK2/
-531,531,/; RJDK2/
	BCC	10$		;OPENED OK
	MOV	#SYSIND,6(R2)	;GET DEFAULT UIC
	MOV	#5,4(R2)	;AND LENGTH
	CALL	.PARSE		;PARSE IT
	BCS	10$		;BAD INDEED
	OFNB$R			;TRY FOR FILE IN DEF UIC
10$:	RETURN			;++002
SYSIND:	.ASCII	/[1,5]/		;
	.EVEN			;
/