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

⟦33c7f6fb5⟧ TextFile

    Length: 4158 (0x103e)
    Types: TextFile
    Names: »CRAM_IF.I«

Derivation

└─⟦e0c43619c⟧ Bits:30005797 CR80 Disc pack ( Vol:FNJ1 861029/EC CR80 S/W Package II+III+IV+V+VII )
    └─ ⟦this⟧ »CSP004_V0801.D!CSS976.D!CRAM_IF.I« 

TextFile


%LIST     %LIST     %LIST
"-----------------------------------------------------------------------"
"                                                                       "
"  MODULE NAME:           PASCAL CRAM INTERFACE                         "
"  MODULE ID NMB:         CSS/976                                       "
"  MODULE VERSION:        02                                            "
"  MODULE RELEASE:        01                                            "
"  RELEASE DATE:          860121                                        "
"                                                                       "
"-----------------------------------------------------------------------"
%NOLIST   %NOLIST   %NOLIST

%IMPORT: CRAM_NEWOPEN, CRAM_NEWLOCK, BEGIN_LOCK, CRAM_FORGETLOCK
%IMPORT: CRAM_CREATESUBFILE, CRAM_DELETESUBFILE
%IMPORT: CRAM_OPENSUBFILE, CRAM_CLOSESUBFILE
%IMPORT: CRAM_CREATEREC, CRAM_READREC, CRAM_UPDATEREC
%IMPORT: CRAM_DELETEREC, CRAM_PURGERECS

" ==================================================================== "
"            C R A M   I N T E R F A C E   R O U T I N E S             "
" ==================================================================== "

PROCEDURE CRAM_NEWOPEN (
                         DBCB_NO     : INTEGER;
                         DBFD        : FILE;
                         VAR VERSION : LONG_INTEGER;
                         VAR CC      : COMPLETION_CODE
                       );
EXTERN;

PROCEDURE CRAM_NEWLOCK (
                         DBFD        : FILE;
                         VAR VERSION : LONG_INTEGER;
                         VAR CC      : COMPLETION_CODE
                       );
EXTERN;

PROCEDURE BEGIN_LOCK (
                       FILE_NAME    : SUBFILE_NAME;
                       VAR CC       : COMPLETION_CODE
                     );
EXTERN;

PROCEDURE CRAM_FORGETLOCK (
                            DBFD    : FILE;
                            VAR CC  : COMPLETION_CODE
                          );
EXTERN;

PROCEDURE CRAM_CREATESUBFILE (
                               FILE_NAME   : SUBFILE_PACKED_NAME;
                               KEY_SIZE    : INTEGER;
                               REC_SIZE    : INTEGER;
                               DBFD        : FILE;
                               VAR CC      : COMPLETION_CODE
                             );
EXTERN;

PROCEDURE CRAM_DELETESUBFILE (
                               FILE_NAME   : SUBFILE_PACKED_NAME;
                               DBFD        : FILE;
                               VAR CC      : COMPLETION_CODE
                             );
EXTERN;

PROCEDURE CRAM_OPENSUBFILE (
                               FILE_NAME   : SUBFILE_PACKED_NAME;
                               DBFD        : FILE;
                               VAR FD      : FILE;
                               VAR CC      : COMPLETION_CODE
                             );
EXTERN;

PROCEDURE CRAM_CLOSESUBFILE (
                               FD     : FILE;
                               VAR CC : COMPLETION_CODE
                             );
EXTERN;

PROCEDURE CRAM_CREATEREC (
                           DATA       : DATA_SPEC;
                           FD         : FILE;
                           VAR CC     : COMPLETION_CODE
                         );
EXTERN;

PROCEDURE CRAM_READREC (
                           DATA       : DATA_SPEC;
                           FD         : FILE;
                           VAR CC     : COMPLETION_CODE
                         );
EXTERN;

PROCEDURE CRAM_UPDATEREC (
                           DATA       : DATA_SPEC;
                           FD         : FILE;
                           VAR CC     : COMPLETION_CODE
                         );
EXTERN;

PROCEDURE CRAM_DELETEREC (
                           DATA       : DATA_SPEC;
                           FD         : FILE;
                           VAR CC     : COMPLETION_CODE
                         );
EXTERN;

PROCEDURE CRAM_PURGERECS (
                           DATA       : DATA_SPEC;
                           FD         : FILE;
                           VAR CC     : COMPLETION_CODE
                         );
EXTERN;