.TITLE VTLFDB - File Descriptor Blocks .IDENT /1.1/ .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: VTLFDB.MAC ; Author: Robin Miller ; Date: July 21, 1983 ; ; Description: ; ; This module contains the File Descriptor Blocks. ; ; Modification History: ; ; October 8, 1984 by Robin Miller. Edit (01), Version 1.1 ; o Changed the input default file name block to remove the default ; file name and file type. This allows the program to open files ; which have only a file name or only a file type field. ; o Added a default file name block for the output file. ; ;- .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$ 4 ; Allocate the FSR space. TIFDB:: FDBDF$ ; FDB for terminal input. FDAT$A R.VAR,FD.CR,,, ; Variable length / implied. FDRC$A ,CMDBUF,CMDSIZ ; Locate mode / max size. FDOP$A TILUN,,INPNB,FO.RD ; Open for read access. (01) FDBF$A TIEFN,CMDSIZ,, ; Init block buffer section. TOFDB:: FDBDF$ ; FDB for terminal output. FDAT$A R.VAR,,,, ; Variable length / no control. FDRC$A ,FMTBUF,RECSIZ ; Locate mode / max size. FDOP$A TOLUN,,OUTNB,FO.WRT ; Open for write access. (01) FDBF$A TOEFN,RECSIZ,, ; Init block buffer section HLPFDB::FDBDF$ ; FDB for the help file. FDAT$A R.VAR,FD.CR,,, ; Variable length / implied. FDRC$A ,ERRBUF,RECSIZ ; Locate mode / max size. FDOP$A HLPLUN,,HLPNB,FO.RD!FA.SHR ; Open for shared read. FDBF$A HLPEFN,BLKSIZ,, ; Init block buffer section. INFDB:: FDBDF$ ; FDB for the 1st input file. FDAT$A R.VAR,FD.CR,RECSIZ,, ; Maximum input record size. FDRC$A ,INBUF,RECSIZ ; Buffer address / max. length. FDOP$A INLUN,,INPNB,FO.RD!FA.SHR ; Shared read access. (01) FDBF$A INEFN,BLKSIZ,, ; Event flag / FSR buffer size. IN2FDB::FDBDF$ ; FDB for the 2nd input file. FDAT$A R.VAR,FD.CR,RECSIZ,, ; Maximum input record size. FDRC$A ,INBUF,RECSIZ ; Buffer address / max. length. FDOP$A IN2LUN,,INPNB,FO.RD!FA.SHR ; Shared read access. (01) FDBF$A IN2EFN,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 ,FMTBUF,RECSIZ ; Buffer address / max length. FDOP$A OUTLUN,,OUTNB,FO.WRT!FA.NSP ; Write / no supercede. (01) FDBF$A OUTEFN,BLKSIZ,, ; Event flag / FSR buffer size. ; Default file name blocks. HLPNB: NMBLK$ VTL,HLP,,LB,0 ; Defaults for help file. INPNB: NMBLK$ ,,,SY,0 ; Defaults for input file names.(01) OUTNB: NMBLK$ VTL,LIS,,SY,0 ; Defaults for output file name.(01) .END