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

⟦69cfa3336⟧ TextFile

    Length: 1582 (0x62e)
    Types: TextFile
    Names: »MULTI_HDL.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!MULTI_HDL.D!V0101.D!PASCAL.D!MULTI_HDL.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!MULTI_HDL.D!V0101.D!PASCAL.D!MULTI_HDL.I« 

TextFile


%IMPORT:WAIT_OPERATIONS,M_INIT_READ_BYTES
%IMPORT:M_INIT_MODIFY_BYTES,M_INIT_APPEND_BYTES
%IMPORT:M_CANCEL_OPERATION

PROCEDURE WAIT_OPERATIONS(   DELAY:          INTEGER;
                             EVTMASK:        EVENT_MASK;
                         VAR MSG:            UNIV MESSAGE_BUFFER;
                         VAR      WOR:       WAIT_OPERATIONS_RESULT);
  EXTERN;

PROCEDURE M_INIT_READ_BYTES( F:               FILE;
                         VAR FILE_ADDR:       FILE_ADDRESS;
                             BLE_POINTER:     BLEPTR;
                         VAR OPREF:           OPERATION_REFERENCE;
                         VAR CC:              COMPLETION_CODE);
  EXTERN;

PROCEDURE M_INIT_MODIFY_BYTES( F:             FILE;
                         VAR FILE_ADDR:       FILE_ADDRESS;
                             BLE_POINTER:     BLEPTR;
                         VAR OPREF:           OPERATION_REFERENCE;
                         VAR CC:              COMPLETION_CODE);
  EXTERN;

PROCEDURE M_INIT_APPEND_BYTES( F:             FILE;
                         VAR FILE_ADDR:       FILE_ADDRESS;
                             BLE_POINTER:     BLEPTR;
                         VAR OPREF:           OPERATION_REFERENCE;
                         VAR CC:              COMPLETION_CODE);
  EXTERN;

PROCEDURE M_CANCEL_OPERATION (
             " INPUT:  "     OPREF:           OPERATION_REFERENCE;
             " RETURN: " VAR F:               FILE;
                         VAR BLE_PTR:         BLEPTR;
                         VAR CC:              COMPLETION_CODE );
  EXTERN;