|
|
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 - metrics - download
Length: 1018 (0x3fa)
Types: TextFile
Names: »FIDHELP.I«
└─⟦e0c43619c⟧ Bits:30005797 CR80 Disc pack ( Vol:FNJ1 861029/EC CR80 S/W Package II+III+IV+V+VII )
└─⟦this⟧ »CSP004_V0801.D!CSS205.D!FIDHELP.I«
%IMPORT: PACK_FILEID, UNPACK_FILEID
PROCEDURE PACK_FILEID
( BUFFER : UNIV ELEMENT ;
VAR BYTECOUNT : INTEGER ;
VAR FROM_ADAM : BOOLEAN ;
VAR FSN : FILE_SYSTEM_NAME ;
VAR VOLUME : VOLUME_NAME ;
VAR NAMELIST : NAMELISTTYPE ;
VAR NAMENO : INTEGER ;
VAR CC : COMPLETION_CODE ) ;
EXTERN ;
PROCEDURE UNPACK_FILEID
( BUFFER : UNIV ELEMENT ;
VAR BYTES_UNPACKED : INTEGER ;
FORMAT : INTEGER ;
FSN : FILE_SYSTEM_NAME ;
VOLUME : VOLUME_NAME ;
NAMELIST : NAMELISTTYPE ;
NAME_NO : INTEGER ) ;
EXTERN ;
«a5»