.TITLE DIRFDB - 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: DIRFDB.MAC ; Author: Robin Miller ; Date: February 19, 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$ 2 ; Allocate the FSR space. INFDB:: FDBDF$ ; FDB for the input file. FDAT$A R.VAR,FD.CR,RECSIZ,, ; Maximum input record size. FDOP$A INLUN,,INPNB,FO.RD!FA.SHR ; Shared read access. FDBF$A INEFN,BLKSIZ,, ; Event flag / FSR buffer size. OUTFDB::FDBDF$ ; FDB for the output file. FDAT$A R.VAR,FD.CR,,-10.,-10. ; Variable / implied / allocation. FDRC$A ,,RECSIZ ; Set the maximum record size. FDOP$A OUTLUN,,OUTNB,FO.WRT!FA.NSP ; Write / no supercede. FDBF$A OUTEFN,BLKSIZ,, ; Event flag / FSR buffer size. ; Default file name blocks. INPNB: NMBLK$ ,,,SY,0 ; Defaults for input file names. OUTNB: NMBLK$ DIRECTORY,LST,,SY,0 ; Defaults for output file name. .END