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: 4158 (0x103e) Types: TextFile Names: »CRAM_IF.I«
└─⟦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«
%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;