DataMuseum.dk

Presents historical artifacts from the history of:

CR80 Hard and Floppy Disks

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about CR80 Hard and Floppy Disks

Excavated with: AutoArchaeologist - Free & Open Source Software.


top - download

⟦84d856df6⟧ TextFile

    Length: 1676 (0x68c)
    Types: TextFile
    Names: »TYPE.I«

Derivation

└─⟦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!TYPE.I« 
    └─ ⟦this⟧ »PREFIXES.D!XAMOS.D!KA.D!V04CT.D!PASCAL.D!TYPE.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!TYPE.I« 
    └─ ⟦this⟧ »PREFIXES.D!XAMOS.D!KA.D!V04CT.D!PASCAL.D!TYPE.I« 

TextFile

"
**************************************************************************
*                                                                        *
*                           K A   T Y P E S                              *
*                                                                        *
**************************************************************************
"

TYPE KEY_TYPE            = ARRAY [0..MAX_KEY_SIZE_W_M1] OF INTEGER;

     CTL_RECORD =
     RECORD
       FIRST_REC,
       NEXT_REC          : INTEGER
     END;

     KEYED_ENTRY =
     RECORD
       CTL               : CTL_RECORD;
       USER_DATA         : ARRAY [0..MAX_USER_DATA_SIZE_W_M1] OF INTEGER
     END;

     FILE_TYPES          = (HF, KAF);

     KA_FILE_HEADER =
     RECORD
       FILE_TYPE         : FILE_TYPES;
       GEN_TIME,
       UPD_TIME          : DATE_TIME_GROUP;
       GEN_USER,
       UPD_USER          : INTEGER;
       MAX_ENTRIES,
       ENTRIES           : LONG_INTEGER;
       HASH_ID,
       USER_DATA_SIZE_W,
       KEY_SIZE_W,
       KEY_START_POS,
       SCR_LEN_W         : INTEGER;
       SCR_PATTERN       : LONG_INTEGER;
       WRITE_CC          : COMPLETION_CODE
     END;

     KA_FILE_CURRENT =
     RECORD
       KA_FILE           : FILE;
       ACCESSIBLE,
       MODIFIED          : BOOLEAN;
       ENTRY_SIZE_B      : INTEGER;
       MASTER_KEY        : LONG_INTEGER;
       BL                : BLEPTR;
       BUF_HEAD          : BLE;
       CURSOR            : LONG_INTEGER;
       KEY               : KEY_TYPE
     END;

     KA_FCB_T =
     RECORD
       HEAD              : KA_FILE_HEADER;
       CUR               : KA_FILE_CURRENT
     END;