|
DataMuseum.dkPresents historical artifacts from the history of: CR80 Hard and Floppy Disks |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about CR80 Hard and Floppy Disks Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 1914 (0x77a)
Types: TextFile
Names: »IMPORT.I«
└─⟦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!COPY.D!IMPORT.I«
└─ ⟦this⟧ »PREFIXES.D!XAMOS.D!KA.D!V04CT.D!PASCAL.D!COPY.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!COPY.D!IMPORT.I«
└─ ⟦this⟧ »PREFIXES.D!XAMOS.D!KA.D!V04CT.D!PASCAL.D!COPY.D!IMPORT.I«
"
**************************************************************************
* *
* K A I M P O R T *
* *
**************************************************************************
"
%IMPORT: KA_CREATE_FILE, KA_OPEN, KA_CLOSE
%IMPORT: KA_READ_SEQL, KA_PUT, KA_MASTER_KEY
%IMPORT: KA_READ
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_MASTER_KEY(VAR KA_FCB : KA_FCB_T;
MASTER_KEY : LONG_INTEGER;
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_READ( VAR KA_FCB : KA_FCB_T;
REC_NO : LONG_INTEGER;
NUMBER_OF_BYTES : INTEGER;
VAR REC : UNIV KEYED_ENTRY;
VAR CC : COMPLETION_CODE); EXTERN; «a5»