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

⟦50551314c⟧ TextFile

    Length: 3938 (0xf62)
    Types: TextFile
    Names: »CRAM_IO_PARAMS.S«

Derivation

└─⟦8c095a7f3⟧ Bits:30005798 CR80 Disc Pack ( Vol ILS systemdisk XAMOS TOS 10:01 hard boot #43c 19-7-87/JFJ )
    └─ ⟦this⟧ »SYSTEMS.D!XAMOS.D!GEN850501.D!FILE.D!FMS.D!ALTFMS.D!GENS.D!CRAM_IO_PARAMS.S« 
    └─ ⟦this⟧ »SYSTEMS.D!XAMOS.D!GEN850501.D!FILE.D!FMS.D!FILSYS.D!GENS.D!CRAM_IO_PARAMS.S« 
    └─ ⟦this⟧ »SYSTEMS.D!XAMOS.D!GEN850501.D!FILE.D!FMS.D!MY_SYSTEM.D!GENS.D!CRAM_IO_PARAMS.S« 
    └─ ⟦this⟧ »SYSTEMS.D!XAMOS.D!GEN850501.D!FILE.D!FMS.D!QUATTRO_MUX.D!GENS.D!CRAM_IO_PARAMS.S« 
    └─ ⟦this⟧ »SYSTEMS.D!XAMOS.D!GEN850501.D!FILE.D!FMS.D!SINGLE.D!GENS.D!CRAM_IO_PARAMS.S« 
    └─ ⟦this⟧ »SYSTEMS.D!XAMOS.D!GEN850501.D!FMS.D!ALTFMS.D!GENS.D!CRAM_IO_PARAMS.S« 
    └─ ⟦this⟧ »SYSTEMS.D!XAMOS.D!GEN850501.D!FMS.D!FILSYS.D!GENS.D!CRAM_IO_PARAMS.S« 
    └─ ⟦this⟧ »SYSTEMS.D!XAMOS.D!GEN850501.D!FMS.D!MY_SYSTEM.D!GENS.D!CRAM_IO_PARAMS.S« 
    └─ ⟦this⟧ »SYSTEMS.D!XAMOS.D!GEN850501.D!FMS.D!QUATTRO_MUX.D!GENS.D!CRAM_IO_PARAMS.S« 
    └─ ⟦this⟧ »SYSTEMS.D!XAMOS.D!GEN850501.D!FMS.D!SINGLE.D!GENS.D!CRAM_IO_PARAMS.S« 
└─⟦c2e810e96⟧ Bits:30005799 CR80 Disc Pack ( XAMOS 841129 ILS TOS 10-01 System Disk Tilhører ILS/MSG hard boot boot entry #43c )
    └─ ⟦this⟧ »SYSTEMS.D!XAMOS.D!GEN850501.D!FILE.D!FMS.D!ALTFMS.D!GENS.D!CRAM_IO_PARAMS.S« 
    └─ ⟦this⟧ »SYSTEMS.D!XAMOS.D!GEN850501.D!FILE.D!FMS.D!FILSYS.D!GENS.D!CRAM_IO_PARAMS.S« 
    └─ ⟦this⟧ »SYSTEMS.D!XAMOS.D!GEN850501.D!FILE.D!FMS.D!MY_SYSTEM.D!GENS.D!CRAM_IO_PARAMS.S« 
    └─ ⟦this⟧ »SYSTEMS.D!XAMOS.D!GEN850501.D!FILE.D!FMS.D!QUATTRO_MUX.D!GENS.D!CRAM_IO_PARAMS.S« 
    └─ ⟦this⟧ »SYSTEMS.D!XAMOS.D!GEN850501.D!FILE.D!FMS.D!SINGLE.D!GENS.D!CRAM_IO_PARAMS.S« 
    └─ ⟦this⟧ »SYSTEMS.D!XAMOS.D!GEN850501.D!FMS.D!ALTFMS.D!GENS.D!CRAM_IO_PARAMS.S« 
    └─ ⟦this⟧ »SYSTEMS.D!XAMOS.D!GEN850501.D!FMS.D!FILSYS.D!GENS.D!CRAM_IO_PARAMS.S« 
    └─ ⟦this⟧ »SYSTEMS.D!XAMOS.D!GEN850501.D!FMS.D!MY_SYSTEM.D!GENS.D!CRAM_IO_PARAMS.S« 
    └─ ⟦this⟧ »SYSTEMS.D!XAMOS.D!GEN850501.D!FMS.D!QUATTRO_MUX.D!GENS.D!CRAM_IO_PARAMS.S« 
    └─ ⟦this⟧ »SYSTEMS.D!XAMOS.D!GEN850501.D!FMS.D!SINGLE.D!GENS.D!CRAM_IO_PARAMS.S« 
└─⟦e0c43619c⟧ Bits:30005797 CR80 Disc pack ( Vol:FNJ1 861029/EC CR80 S/W Package II+III+IV+V+VII )
    └─ ⟦this⟧ »CSP005_V0501.D!CSS920.D!LINK.D!ERP_SINGLE.D!GENS.D!CRAM_IO_PARAMS.S« 
    └─ ⟦this⟧ »CSP005_V0501.D!CSS920.D!LINK.D!MX.D!GENS.D!CRAM_IO_PARAMS.S« 
    └─ ⟦this⟧ »CSP005_V0501.D!CSS920.D!LINK.D!MX_CRAM.D!GENS.D!CRAM_IO_PARAMS.S« 
    └─ ⟦this⟧ »CSP005_V0501.D!CSS920.D!LINK.D!MX_DMA.D!GENS.D!CRAM_IO_PARAMS.S« 
    └─ ⟦this⟧ »CSP005_V0501.D!CSS920.D!LINK.D!MY_SYSTEM.D!GENS.D!CRAM_IO_PARAMS.S« 
    └─ ⟦this⟧ »CSP005_V0501.D!CSS920.D!LINK.D!SINGLE.D!GENS.D!CRAM_IO_PARAMS.S« 

TextFile

"PAGE«ff»

CONST                      "SEARCH MODES: "
                           "--------------"
    LE = 0;
    LT = 1;      LTGTBIT = 0;
    GE = 2;      GEGTBIT = 1;
    GT = 3;
    EQ = 4;      EQBIT   = 2;

TYPE
    SEARCH_MODE = LE..EQ;

"   CRAM RETURN VALUES:
"   ==================

CONST
    USER_ER                = #480; " = (user_err_type shiftll err_type_posn); "

    CRAM_OK                =          0;    " * * * S U C C E S S F U L L * * *

    CRAM_RECORD_SIZE       = USER_ER+ 1;    " RECORD SIZE WARNING "
    CRAM_PURGING           = USER_ER+ 2;    " INCOMPLETE PURGING WARNING "
    CRAM_KEY_TOO_BIG       = USER_ER+ 3;    "
    CRAM_RECORD_TOO_BIG    = USER_ER+ 4;    "
    CRAM_NO_RECORD         = USER_ER+ 5;    "
    CRAM_RECORD_EXIST      = USER_ER+ 6;    "
    CRAM_DIRECTION         = USER_ER+ 7;    " DIRECTION <> (LT,LE,EQ,GE,GT)
    CRAM_EOF               = USER_ER+ 8;    " END OF FILE/SUBFILE
    CRAM_FULL              = USER_ER+ 9;    "
    CRAM_SUBFILE_EXIST     = USER_ER+10;    "
    CRAM_NO_SUBFILE        = USER_ER+11;    "
    CRAM_ALREADY_OPEN      = USER_ER+12;    "
    CRAM_DBCB_UNKNOWN      = USER_ER+13;    "
    CRAM_DBCB_IN_USE       = USER_ER+14;    "
    CRAM_NOT_OPEN          = USER_ER+15;    "
    CRAM_FLAG_INVALID      = USER_ER+16;    "
    CRAM_DBCB_MISMATCH     = USER_ER+17;    " ATTEMPT TO USE SHARED HANDLER
    CRAM_ILLEGAL_BLOCKSIZE = USER_ER+18;    "
    CRAM_ILLEGAL_DB_FILE   = USER_ER+19;    "
    CRAM_COMMAND_UNKNOWN   = USER_ER+20;    "
    CRAM_CAP_POOL_EMPTY    = USER_ER+21;    "
    CRAM_DMA_ERROR         = USER_ER+22;    "
    CRAM_DB_INVALID        = USER_ER+23;    " AFTER CRAMERROR CALL

"PAGE«ff»
"   CRAM OPERATIONS:
"   ===============

    CRAMOP            = 100;         " FIRST CRAM OP

    CRAMINIT          = CRAMOP+ 0;
    CRAMTQMOPEN       = CRAMOP+ 1;
    CRAMNEWOPEN       = CRAMOP+ 2;
    CRAMTQMLOCK       = CRAMOP+ 3;
    CRAMNEWLOCK       = CRAMOP+ 4;
    CRAMREAD          = CRAMOP+ 5;
    CRAMUPDATE        = CRAMOP+ 6;
    CRAMCREATE        = CRAMOP+ 7;
    CRAMDELETE        = CRAMOP+ 8;
    CRAMPURGE         = CRAMOP+ 9;
    CRAMCREATESUBFILE = CRAMOP+10;
    CRAMDELETESUBFILE = CRAMOP+11;
    CRAMOPENSUBFILE   = CRAMOP+12;
    CRAMCLOSESUBFILE  = CRAMOP+13; " !!!!NB!!!! FMS DISMANTLE USED FOR PROPER CLOSING "
    CRAMLOOKUPSUBFILE = CRAMOP+14;
    CRAMFORGET        = CRAMOP+15;
    CRAMBEGINLOCK     = CRAMOP+16;
    CRAMTQMVERSION    = CRAMOP+17;
    CRAMNEWVERSION    = CRAMOP+18;
    CRAMCLOSE         = CRAMOP+19;           " DISCONNECT DBCB FROM FCB

    CRAMLASTOP        = CRAMCLOSE;

    CRAMOPENOP        = CRAMNEWOPEN+1;       "TOP OF OPEN/INIT OPERATIONS
    CRAMFIRSTKEYOP    = CRAMREAD;            "FIRST OPERATION USING KEY
    CRAMSUBFILEOP     = CRAMCREATESUBFILE;   "FIRST SUBFILE OPERATION
    CRAMLASTKEYOP     = CRAMLOOKUPSUBFILE;   "LAST OPERATION USING KEY

" COMMAND HEADER FOR CRAM FUNCTIONS
TYPE  CRAM_HEAD =
      RECORD
        COMMAND_TYPE:      INTEGER;
        USER_ID:           LONG;
        FILE_ID:           INTEGER;
        DIRECTION:         INTEGER;
        KEY_SIZE:          INTEGER;
        MIN_KEY_SIZE:      INTEGER;
        REC_SIZE:          INTEGER;
        RESERVED:          INTEGER;
      END;
"PAGE«ff»

" CRAM DATA SPECIFICATION
TYPE  DATA_SPEC =
      RECORD
        DIRECTION:         SEARCH_MODE;
        KEY_SIZE:          INTEGER;
        ACT_KEY_SIZE:      INTEGER;
        KEY_ADDR:          INTEGER;
        REC_SIZE:          INTEGER;
        ACT_REC_SIZE:      INTEGER;
        REC_ADDR:          INTEGER;
      END;

" CRAM SUBFILE SPECIFICATION
TYPE  SUBFILE_REC =
      RECORD
        KEY_SIZE:          INTEGER;
        REC_SIZE:          INTEGER;
        CREATE_DATE:       INTEGER;
        DUMMY:             INTEGER;
      END;
TYPE  SUBFILE_SPEC =
      RECORD
        SUBFILE_NAME:      ARRAY [0..2] OF INTEGER;
        SUBFILE_REC:       SUBFILE_REC;
      END;