INDFIL.MAC=INDFIL.MAC
-37,37,/;PE/
	.MCALL	CSI$,CSI$SV,CSI$SW,	CSI$ND,	FSRSZ$
-46,,/;PE/
EXLUN=4+NDATF		;THIS IS LUN TO MAINIPULATE EXTRA FILE
-119,,/;PE/
	CSI$SW	PA,,,,,PA3	;FOR PA SWITCH
	CSI$ND			;END OF TABLE
PA3:	CSI$SV	ASCII,PA4,2	;PUT 2 CHARS IN PA4
-139,140,/;PE/
EXTRA::	FDBDF$			;FILE FOR READING COMMANDS
	FDAT$A	R.VAR,FD.CR	;VARIBLE RECORDS WITH CR
	FDOP$A	EXLUN,$CSIBK+C.DSDS,EXDF,FO.RD	;CHARISTICS OF FILE
	FDBF$A	EXLUN		;THE LUN TO USE
EXDF:	NMBLK$	,CON,,SY,0	;DEFAULT CHARISTICS
	FSRSZ$	2+NDATF		; FILE STORAGE REQION SPACE
				; FOR 1 COMMAND FILE AND $NDATF DATA FILES
				;AND FOR THE EXTRA FILE
EXST::	.BYTE	0,0		;THE SATUS OF EXTRA FILE
/