.TITLE	AUXFDB - File Descriptor Blocks
	.IDENT	/1.0/
	.ENABL	LC
;+
;
;			  Free software BY
;		Project Software & Development, Inc.
;
; This  software  is  furnished  for  free and may be used and copied as
; desired.  This software or any other copies thereof may be provided or
; otherwise  made  available  to  any  other  person.  No  title  to and
; ownership of the software is hereby transferred or allowed. 
;
; The  information  in this software is subject to change without notice
; and  should  not  be  construed  as  a commitment  by PROJECT SOFTWARE
; AND DEVELOPMENT, INC.
;
; PROJECT SOFTWARE assumes no responsibility for the use or  reliability  
; of this software on any equipment whatsoever.
;
;	Project Software & Development, Inc.
;	14 Story St.
;	Cambridge, Ma. 02138
;	617-661-1444
;
;
; Title:	AUXFDB.MAC
; Author:	Robin Miller
; Date:		July 23, 1985
;
; Description:
;
;	This module contains the File Descriptor Blocks.
;
; Modification History:
;
;-
	.ENABL	AMA
	.NLIST	BEX

	.MCALL	FSRSZ$, FDBDF$, FDOP$A, FDRC$A, FDAT$A, FDBF$A, NMBLK$
	.MCALL	FCSBT$, FDOFF$, NBOFF$

	FCSBT$				; Define the FCS bits.
	FDOFF$	DEF$L			; Define the FDB offsets.
	NBOFF$  DEF$L			; Define name block offsets.


;	File Storage Region and File Descriptor Block Allocation.

	FSRSZ$	1			; Allocate the FSR space.

INFDB::	FDBDF$				; FDB for the 1st input file.
	FDAT$A	R.VAR,FD.CR,CMDSIZ,,	; Maximum input record size.
	FDRC$A	,INBUF,INPSIZ		; Buffer address / max. length.
	FDOP$A	INLUN,,INPNB,FO.RD!FA.SHR ; Shared read access.
	FDBF$A	INEFN,INPSIZ,,		; Event flag / FSR buffer size.

;	Default file name blocks.

INPNB:	NMBLK$	,,,SY,0			; Defaults for input file names.

	.END