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

⟦8ad6ed5a5⟧ TextFile

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

TextFile

"
**************************************************************************
*                                                                        *
*                         R E T U R N   C O D E S                        *
*                                                                        *
**************************************************************************
"

CONST KA_WRONG_FILE_TYPE                   = #1800;
      KA_FILE_MAY_BE_CORRUPTED             = #1801;
      KA_TOO_FEW_ENTRIES                   = #1802;
      KA_TOO_MANY_ENTRIES                  = #1803;
      KA_USER_DATA_TOO_SMALL               = #1804;
      KA_USER_DATA_TOO_LARGE               = #1805;
      KA_KEY_TOO_SMALL                     = #1806;
      KA_KEY_TOO_LARGE                     = #1807;
      KA_KEY_OUTSIDE_ENTRY                 = #1808;
      KA_ATTEMPT_TO_SCRAMBLE_OUTSIDE_ENTRY = #1809;
      KA_FILE_EMPTY                        = #180A;
      KA_FILE_FULL                         = #180B;
      KA_FILE_NOT_ACCESSIBLE               = #180C;
      KA_WRONG_HASH_KEY_FUNCTION           = #180D;
      KA_MASTER_KEY_NOT_ACCEPTED           = #180E;
      KA_ENTRY_NOT_FOUND                   = #180F;
      KA_KEY_CHANGED                       = #1810;
      KA_DUPLICATE_KEY                     = #1811;
%PAGE
"
**************************************************************************
*                                                                        *
*            C O N F I G U R A T I O N S   C O N S T A N T S             *
*                                                                        *
**************************************************************************
"

      GLOBAL_MAX_ENTRIES      = #FFF1;   "maximum number of entries"
      SECTOR_SIZE_W           =   256;   "data words on disk sector"
      SECTOR_SIZE_B           =     SECTOR_SIZE_W * 2;
      MAX_AREAS               =   126;   "maximum number of areas in a
                                          random file"
      MIN_AREA_SIZE           =    20;   "minimum number of sectors in
                                          one area of a random file"
      MAX_ALLOC_SIZE          =   100;   "maximum size in sectors in a
                                          contiguous file"
      HEADER_SIZE_B           =    54;   "bytes in file header"
      CTL_SIZE_W              =     2;
      CTL_SIZE_B              =     CTL_SIZE_W * 2;
      MIN_USER_DATA_SIZE_W    =     2;   "MIN_KEY_SIZE_W + MIN_DATA = 1 + 1"
      MAX_USER_DATA_SIZE_W    =   500;
      MAX_USER_DATA_SIZE_W_M1 =     MAX_USER_DATA_SIZE_W - 1 ;
      MIN_KEY_SIZE_W          =     1;   "key must not be empty"
      MAX_KEY_SIZE_W          =   100;
      MAX_KEY_SIZE_W_M1       =     MAX_KEY_SIZE_W - 1 ;
      MAX_INTEGER             = 32767;

"
**************************************************************************
*                                                                        *
*                       C O N S T A N T S                                *
*                                                                        *
**************************************************************************
"

      FIRST_JUMP               =     2;   "initial offset before search"
      NEXT_JUMP                =     5;   "entry increment used in search
                                           for free entries in KA_PUT"
      MAX_SEARCH_LENGTH        =   100;   "maximum number of searches for
                                           free slot"
      SLOT_EMPTY               = #FFFF;
      END_OF_CHAIN             = #FFFE;
      HEADER_REC_NO            = #FFFFFFFFL;
      USER_NO_POS              = #FFFA;   "-6 in process header"
      AB                       = #4241;   "ASCII-value of AB"
      CD                       = #4443;   "ASCII-value of CD"