|
DataMuseum.dkPresents historical artifacts from the history of: CR80 Hard and Floppy Disks |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about CR80 Hard and Floppy Disks Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 1760 (0x6e0)
Types: TextFile
Names: »CONST_TYPE_VAR.I«
└─⟦8c095a7f3⟧ Bits:30005798 CR80 Disc Pack ( Vol ILS systemdisk XAMOS TOS 10:01 hard boot #43c 19-7-87/JFJ )
└─ ⟦this⟧ »PREFIXES.D!XAMOS.D!KA.D!V0401.D!PASCAL.D!COPY.D!CONST_TYPE_VAR.I«
└─ ⟦this⟧ »PREFIXES.D!XAMOS.D!KA.D!V04CT.D!PASCAL.D!COPY.D!CONST_TYPE_VAR.I«
└─⟦c2e810e96⟧ Bits:30005799 CR80 Disc Pack ( XAMOS 841129 ILS TOS 10-01 System Disk Tilhører ILS/MSG hard boot boot entry #43c )
└─ ⟦this⟧ »PREFIXES.D!XAMOS.D!KA.D!V0401.D!PASCAL.D!COPY.D!CONST_TYPE_VAR.I«
└─ ⟦this⟧ »PREFIXES.D!XAMOS.D!KA.D!V04CT.D!PASCAL.D!COPY.D!CONST_TYPE_VAR.I«
CONST
ENTRY_BV_LENGTH = #1000; "MAX_ENTRIES DIV 16L + 1L"
ENTRY_BV_LENGTH_M_1 = ENTRY_BV_LENGTH - 1;
MINI_BUFFER_SIZE_W = MAX_USER_DATA_SIZE_W + CTL_SIZE_W;
MINI_BUFFER_SIZE_W_M1 = MINI_BUFFER_SIZE_W - 1;
INPUT_BUFFER_SIZE_W = MIN_AREA_SIZE*SECTOR_SIZE_W;
INPUT_BUFFER_SIZE_B = INPUT_BUFFER_SIZE_W*2;
INPUT_BUFFER_SIZE_W_M1 = INPUT_BUFFER_SIZE_W - 1;
TYPE
BIT_VECTOR = ARRAY [ 0 .. ENTRY_BV_LENGTH_M_1 ] OF INTEGER;
"16 entries are put into one integer (16 bits), as only one bit
per entry is used. "
MINI_BUFFER_T = ARRAY [ 0 .. MINI_BUFFER_SIZE_W_M1 ] OF INTEGER;
INPUT_BUFFER_T = ARRAY [ 0 .. INPUT_BUFFER_SIZE_W_M1 ] OF INTEGER;
VAR
I, J, K : INTEGER;
LI : LONG_INTEGER;
CH : CHAR;
CC : COMPLETION_CODE;
SP : STREAM;
FOUND : BOOLEAN;
ERRORS,
REC_NO,
RECORDS : LONG_INTEGER;
PRINT_FILE : FILE;
IFCB, OFCB : KA_FCB_T;
IFILE_OPEN,
OFILE_OPEN : BOOLEAN;
IREC : KEYED_ENTRY;
CB : PARAM_CB;
FN : PARAM_FILENAME;
PR_ENTRY,
UNPR_ENTRY : BIT_VECTOR;
MINI_BUFFER : MINI_BUFFER_T;
INPUT_BUFFER : INPUT_BUFFER_T;
MINI_P, INPUT_P,
ENTRY_SIZE_W,
BUF_NO : INTEGER;
BYTES_LEFT : LONG_INTEGER;
BL : BLEPTR;
BUFHEAD : BLE;
FA : FILE_ADDRESS;