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

⟦8d4ca4a6e⟧ TextFile

    Length: 1480 (0x5c8)
    Types: TextFile
    Names: »IMPORT.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!IMPORT.I« 
    └─ ⟦this⟧ »PREFIXES.D!XAMOS.D!KA.D!V04CT.D!PASCAL.D!IMPORT.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!IMPORT.I« 
    └─ ⟦this⟧ »PREFIXES.D!XAMOS.D!KA.D!V04CT.D!PASCAL.D!IMPORT.I«

TextFile

%IMPORT: HASH_KEY, HASH_KEY_ID
"
***********************************************************************
*                                                                     *
*                   H A S H I N G   R O U T I N E S                   *
*                                                                     *
***********************************************************************
"

FUNCTION HASH_KEY (    KEY         : UNIV KEY_TYPE;
                       LEN         : INTEGER;
                       MAX_ENTRIES : LONG_INTEGER) : LONG_INTEGER; EXTERN;

FUNCTION HASH_KEY_ID : INTEGER;                                    EXTERN;





%IMPORT : RANDOM_32, BITSHAKE, SHAKE_BACK, RECORD_KEY
"
***********************************************************************
*                                                                     *
*                S C R A M B L I N G   R O U T I N E S                *
*                                                                     *
***********************************************************************
"

FUNCTION RANDOM_32 ( SEED       : LONG_INTEGER) : LONG_INTEGER; EXTERN;

FUNCTION BITSHAKE  ( INPUT      : INTEGER;
                     KEY        : LONG_INTEGER) : INTEGER;      EXTERN;

FUNCTION SHAKE_BACK( INPUT      : INTEGER;
                     KEY        : LONG_INTEGER) : INTEGER;      EXTERN;

FUNCTION RECORD_KEY( MASTER_KEY,
                     REC_NO     : LONG_INTEGER) : LONG_INTEGER; EXTERN; «a5»