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

⟦44b747d70⟧ TextFile

    Length: 1018 (0x3fa)
    Types: TextFile
    Names: »FILEIDHELP.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!FILEIDHELP.D!V0102.D!PASCAL.D!FILEIDHELP.I« 
    └─ ⟦this⟧ »PREFIXES.D!XAMOS.D!FILEIDHELP.D!V01CT.D!PASCAL.D!FILEIDHELP.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!FILEIDHELP.D!V0102.D!PASCAL.D!FILEIDHELP.I« 
    └─ ⟦this⟧ »PREFIXES.D!XAMOS.D!FILEIDHELP.D!V01CT.D!PASCAL.D!FILEIDHELP.I«

TextFile


%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 ;