INDMGCML.MAC;2/AU/BF=MGCML.MAC;1
\
-2,2
	.IDENT	/M10.10X/
-52
;
;	RJDK1	8/28/78		SUPPORT FOR @FILESPEC XXX YYY ZZZ....
;				WHERE XXX, YYY, ZZZ ECT WILL BE PLACED IN
;				STRING VARIABLES A$,B$, C$....
%
-369,370,/; RJDK2/
-523,523,/; 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			;
/