|
DataMuseum.dkPresents historical artifacts from the history of: Jet Computer Jet80 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Jet Computer Jet80 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 896 (0x380)
Types: TextFile
Names: »FIBDEF.LIB«
└─⟦c9df7130d⟧ Bits:30005915 Pascal MT+ Release 5.2 (Jet-80)
└─ ⟦this⟧ »FIBDEF.LIB«
(* FIB LAYOUT *)
TYPE
OPTTYPE = (NOTOPEN,FWRITE,FRDWR,FRANDOM,FCONIO,FTRMIO,FLSTOUT);
FIB=RECORD
FNAME : STRINGÆ16Å; (* d:filename.ext *)
FCB : PACKED ARRAY Æ0..34Å OF CHAR; (* CP/M FILE CONTROL BLOCK *)
BUFLEN : INTEGER; (* SIZE OF FBUFFER *)
BUFIDX : INTEGER; (* CURRENT INDEX INTO FBUFFER *)
OPTION : OPTTYPE;
IOSIZE : INTEGER; (* SIZE OF NEXT TRANSFER *)
FEOLN : BOOLEAN; (* TRUE IF TEXT FILE AT END-OF-LINE *)
FEOF : BOOLEAN; (* TRUE IF AT END-OF-FILE *)
FBUFADR: WORD; (* POINTER TO FBUFFER *)
FSECINX: 0..128; (* INDEX INTO FSECTOR +1 FOR OVERFLOW *)
FTEXT : BOOLEAN; (* TRUE IF THIS IS A TEXT FILE! *)
NOSECTRS:BOOLEAN; (* TRUE IF NO MORE DISK DATA AVAILABLE *)
FSECTOR: PACKED ARRAY Æ0..127Å OF CHAR; (* 1 SECTOR BUFFER FOR CP/M *)
FBUFFER: PACKED ARRAY Æ0..0 Å OF CHAR;
END;
«eof»