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

⟦e5002566b⟧ TextFile

    Length: 2150 (0x866)
    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!TEST.D!IMPORT.I« 
    └─ ⟦this⟧ »PREFIXES.D!XAMOS.D!KA.D!V04CT.D!PASCAL.D!TEST.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!TEST.D!IMPORT.I« 
    └─ ⟦this⟧ »PREFIXES.D!XAMOS.D!KA.D!V04CT.D!PASCAL.D!TEST.D!IMPORT.I«

TextFile

"
**************************************************************************
*                                                                        *
*                        K A   I M P O R T                               *
*                                                                        *
**************************************************************************
"

%IMPORT: KA_CREATE_FILE, KA_OPEN, KA_CLOSE
%IMPORT: KA_READ_SEQL, KA_GET, KA_MASTER_KEY
%IMPORT: KA_UPDATE, KA_PUT, KA_DELETE

PROCEDURE KA_CREATE_FILE (    FSN           : FILE_SYSTEM_NAME;
                              VOL           : VOLUME_NAME;
                          VAR KA_FCB        : KA_FCB_T;
                          VAR CC            : COMPLETION_CODE);   EXTERN;

PROCEDURE KA_OPEN (VAR KA_FCB        : KA_FCB_T;
                       KA_COPY_IFILE : BOOLEAN;
                   VAR CC            : COMPLETION_CODE);          EXTERN;

PROCEDURE KA_CLOSE (VAR KA_FCB  : KA_FCB_T;
                    VAR CC      : COMPLETION_CODE);               EXTERN;

PROCEDURE KA_READ_SEQL (VAR KA_FCB     : KA_FCB_T;
                            DIRECTION  : INTEGER;
                        VAR REC        : UNIV KEYED_ENTRY;
                        VAR CC         : COMPLETION_CODE);        EXTERN;

PROCEDURE KA_GET (VAR KA_FCB  : KA_FCB_T;
                  VAR REC     : UNIV KEYED_ENTRY;
                  VAR CC      : COMPLETION_CODE);                 EXTERN;

PROCEDURE KA_MASTER_KEY(VAR KA_FCB      : KA_FCB_T;
                            MASTER_KEY  : LONG_INTEGER;
                        VAR CC          : COMPLETION_CODE);       EXTERN;

PROCEDURE KA_UPDATE (VAR KA_FCB  : KA_FCB_T;
                         REC     : UNIV KEYED_ENTRY;
                     VAR CC      : COMPLETION_CODE);              EXTERN;

PROCEDURE KA_PUT (VAR KA_FCB  : KA_FCB_T;
                      REC     : UNIV KEYED_ENTRY;
                  VAR CC      : COMPLETION_CODE);                 EXTERN;

PROCEDURE KA_DELETE (VAR KA_FCB  : KA_FCB_T;
                         REC     : UNIV KEYED_ENTRY;
                     VAR CC      : COMPLETION_CODE);              EXTERN; «a5»