97 lines
4.3 KiB
Plaintext
97 lines
4.3 KiB
Plaintext
|
{MS-Pascal / MS-FORTRAN FCB Declaration Include File}
|
||
|
|
|
||
|
|
INTERFACE; UNIT
|
||
|
|
FILKQQ (FCBFQQ,
|
||
|
|
FILEMODES, SEQUENTIAL, TERMINAL, DIRECT,
|
||
|
|
fm_sequential, fm_terminal, fm_direct,
|
||
|
|
accessmodes,
|
||
|
|
am_read,
|
||
|
|
am_readwrite,
|
||
|
|
am_write,
|
||
|
|
am_default,
|
||
|
|
SHAREMODES,
|
||
|
|
sm_compat,
|
||
|
|
sm_denyrw,
|
||
|
|
sm_denywr,
|
||
|
|
sm_denyrd,
|
||
|
|
sm_denynone,
|
||
|
|
BUFFER_SIZE,
|
||
|
|
ADRFIELDS);
|
||
|
|
|
||
|
|
const
|
||
|
|
BUFFER_SIZE = 512;
|
||
|
|
ADRFIELDS = 2; {* Two ADR fields in the FCB, see NEWUQQ. *}
|
||
|
|
|
||
|
|
TYPE
|
||
|
|
FILEMODES = (SEQUENTIAL, TERMINAL, DIRECT);
|
||
|
|
SHAREMODES = (sm_compat, sm_denyrw, sm_denywr, sm_denyrd, sm_denynone);
|
||
|
|
accessmodes = (am_read, am_write, am_readwrite, am_default);
|
||
|
|
FCBFQQ = RECORD {byte offsets start every field comment}
|
||
|
|
{fields accessible by Pascal user as <file variable>.<field>}
|
||
|
|
TRAP: BOOLEAN; {00 Pascal user trapping errors if true}
|
||
|
|
ERRS: WRD(0)..18; {01 error status, set only by all units}
|
||
|
|
MODE: FILEMODES; {02 user file mode; not used in unit U}
|
||
|
|
SHARE:SHAREMODES; {03 pad to word bound, special user use}
|
||
|
|
{fields shared by units F, V, U; ERRC / ESTS are write-only}
|
||
|
|
ERRC: WORD; {04 error code, error exists if nonzero}
|
||
|
|
{1000..1099: set for unit U errors}
|
||
|
|
{1100..1199: set for unit F errors}
|
||
|
|
{1200..1299: set for unit V errors}
|
||
|
|
ESTS: WORD; {06 error specific data usually from OS}
|
||
|
|
CMOD: FILEMODES; {08 system file mode; copied from MODE}
|
||
|
|
{fields set / used by units F and V, and read-only in unit U}
|
||
|
|
TXTF: BOOLEAN; {09 true: formatted / ASCII / TEXT file}
|
||
|
|
{false: not formatted / binary file}
|
||
|
|
SIZE: WORD; {10 record size set when file is opened}
|
||
|
|
{DIRECT: always fixed record length}
|
||
|
|
{others: max buffer variable length}
|
||
|
|
IERF: BOOLEAN; {12 Unit U Incomplete End Of Record }
|
||
|
|
{Kluge. Set false by opnuqq and }
|
||
|
|
{pccuqq, and true by peruqq. Thus }
|
||
|
|
{if true in wefuqq, it means that }
|
||
|
|
{there is an incomplete line, and }
|
||
|
|
{pccuqq should be called to flush }
|
||
|
|
{it. Only applies to terminal files}
|
||
|
|
access: accessmodes;{13 Controls actual open mode }
|
||
|
|
OLDF: boolean; {14 true :must exist before open; RESET}
|
||
|
|
{false :can create on open; REWRITE}
|
||
|
|
INPT: BOOLEAN; {15 true: user is now reading from file}
|
||
|
|
{false: user is now writing to file}
|
||
|
|
RECL: WORD; {16 DIRECT record number, lo order word}
|
||
|
|
RECH: WORD; {18 DIRECT record number, hi order word}
|
||
|
|
USED: WORD; {20 number bytes used in current record}
|
||
|
|
{fields used internally by units F or V not needed by unit U}
|
||
|
|
LINK: ADR OF FCBFQQ;{22 DS offset address of next open file}
|
||
|
|
BADR: ADRMEM; {24 F: DS offset address for buffer var}
|
||
|
|
TMPF: BOOLEAN; {26 F: is a temp file; delete on CLOSE}
|
||
|
|
FULL: BOOLEAN; {27 F: buffer variable lazy eval status}
|
||
|
|
UNFM: BOOLEAN; {28 V: for unformatted binary file mode}
|
||
|
|
OPEN: BOOLEAN; {29 F: file opened (by RESET / REWRITE)}
|
||
|
|
FUNT: INTEGER; {30 V: FORTRAN unit number (1 to 32767)}
|
||
|
|
ENDF: BOOLEAN; {32 V: last I/O statement was a ENDFILE}
|
||
|
|
{fields set / used by unit U, and read-only in units F and V}
|
||
|
|
REDY: BOOLEAN; {33 buffer ready if true; set by F / U}
|
||
|
|
BCNT: WORD; {34 number of data bytes actually moved}
|
||
|
|
EORF: BOOLEAN; {36 true if end of record read, written}
|
||
|
|
EOFF: BOOLEAN; {37 end of file flag set after EOF read}
|
||
|
|
{unit U (operating system) information starts here}
|
||
|
|
{**********************************************************}
|
||
|
|
|
||
|
|
FILE_NAME : ^STRING; {* 38 points to file name *}
|
||
|
|
FDSCP : INTEGER; {* 42 actual ZEUS file number *}
|
||
|
|
PREDEFINED : BOOLEAN; {* 44 True if file is a device. *}
|
||
|
|
FNER : BOOLEAN; {* 45 True if File name error. *}
|
||
|
|
BEGIN_BUFFER : INTEGER; {* 46 Start loc of buffer. *}
|
||
|
|
END_BUFFER : INTEGER; {* 48 top loc of buffer. *}
|
||
|
|
IEOF : BOOLEAN; {* 50 Flag if EOF ever seen. For ^Zs. *}
|
||
|
|
BUFFER : STRING(512); {* 52 Internal buffering. *}
|
||
|
|
PADBUF : STRING(65); {*564 Make same size as MS-Dos. *}
|
||
|
|
{*630 + 4 = 634, see newuqq *}
|
||
|
|
{**********************************************************}
|
||
|
|
{end of section for unit U specific OS information}
|
||
|
|
END;
|
||
|
|
const fm_sequential = sequential;
|
||
|
|
fm_direct = direct;
|
||
|
|
fm_terminal = terminal;
|
||
|
|
END;
|