.TITLE	MFD1..	DATA AREAS FOR FILE AND BLOCK TRANSFERS
;
	.IDENT	/MFD1../
;
;
	.PAGE
	.SBTTL	FILE/BLOCK DATA CONTROL AREAS
;
;
;
F$LUN::		.WORD	1		;DEFAULT FILE LUN
F$SIZE::	.WORD	80.		;DEFAULT SIZE OF FIXED LENGTH RECORDS
F$TYPE::	.WORD	0		;FILE TYPE CONTROL FLAG WORD
;F$BUFF::	.WORD	0		;ADDRESS OF RECORD BUFFER
F$FLG0::	.WORD	0		;CONTROL FLAGS FOR FILE FUNCTIONS
F$FLG1::	.WORD	0		;CONTROL FLAGS FOR FILENAME FUNCTIONS
F$MAXC::	.WORD	0		;MAX CHARACTERS DURING FILENAME CHECK
F$USED::	.WORD	0		;ONE BIT SET FOR EACH LUN ACTIVE
F$FDB::		.WORD	F$FDBS		;ADDRESS OF PRESENT FDB
					;DEFAULT ASSUMED TO BE FIRST FDB
F$DFNB::	.BLKB 40		;DEFAULT FILENAME BLOCK
;
;
;
;
	.PAGE
	.SBTTL	AREA RESERVED FOR RECORD-BLOCK DEBUFFERING
;
;
;
;		WHEN FILE/BLOCK SERVICES NOT REQD THIS AREA
;		WILL TAKE UP 'NO' PROGRAM SPACE
;
	.MCALL	FSRSZ$
;
;
	FSRSZ$	0		;GENERATE PSECT AND RESERVE A STORAGE AREA
				;FOR BLOCK/RECORD DEBUFFERING AREA
;
	F.BFHD==S.BFHD		;MAGIC SYMBOL TO ALLOW ACTFIL TO WORK
;
;
;		THE PSECT GENERATED HERE IS FCSRS1
;		THE LINKER TERMINATES THIS AREA BY PSECT FCSRS2
;
;
	.PAGE
	.SBTTL	FILE DESCRIPTOR BLOCK STORAGE AREA
;
;
;
;		WHEN FILE/BLOCK SERVICES NOT REQD THIS AREA
;		WILL TAKE UP 'NO' PROGRAM SPACE
;
;
	.PSECT	$$DEVT,OVR,D	;RESERVE AN AREA FOR FDBS
				;THIS AREA IS EXTENDED A LINK TIME
				;BY THE 'UNITS' PARAMETER AT LINK
;
	F.FDB==140		;MAGIC SYMBOL WHICH ALLOWS 'UNITS' TO WORK
;
F$FDBS::			;LABLE INDICATING WHERE FDBS START
;
;
	.PSECT			;INDICATE SPECIAL PSECTS FINISHED
;
;
;
	.END
;
;
;
;
;