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

⟦021678a6c⟧ TextFile

    Length: 1572 (0x624)
    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!SWELL.D!FILEIDHELP.I« 
    └─ ⟦this⟧ »PREFIXES.D!XAMOS.D!FILEIDHELP.D!V01CT.D!SWELL.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!SWELL.D!FILEIDHELP.I« 
    └─ ⟦this⟧ »PREFIXES.D!XAMOS.D!FILEIDHELP.D!V01CT.D!SWELL.D!FILEIDHELP.I« 
└─⟦e0c43619c⟧ Bits:30005797 CR80 Disc pack ( Vol:FNJ1 861029/EC CR80 S/W Package II+III+IV+V+VII )
    └─ ⟦this⟧ »CSP004_V0801.D!CSS206.D!FILEIDHELP.I«

TextFile



%LIST     %LIST     %LIST
"-----------------------------------------------------------------------
"
"  MODULE NAME:           FILEIDHELP
"  MODULE ID NMB:         CSS/206
"  MODULE VERSION:        01
"  MODULE RELEASE:        01
"  RELEASE DATE:          830824
"
"-----------------------------------------------------------------------
%NOLIST   %NOLIST   %NOLIST

IMPORT PROCEDURE PACKFILEID(
"=========================="
                 R0;  " C K  ADDR FILE_SYSTEM_NAME
                 R1;  " C K  ADDR VOLUMENAME
                 R2;  " - R  NAMENO
                 R3;  " C -  MAX. NO OF CHARS TO SCAN
                      " - R  FROMADAM
                 R4;  " C K  ADDR TEXTSTRING
                 R5;  " C K  ADDR NAMELIST
                 R7;  " - R  COMPL.CODE
                 R6): " C -  LINK
                      " - R  NO. OF CHARS SCANNED
                 ERROR_DONE;


IMPORT PROCEDURE UNPACKFILEID(
"============================"
                 R0;  " C K   ADDR FILE_SYSTEM_NAME
                 R1;  " C K   ADDR VOLUME_NAME
                 R2;  " C K   NAMENO
                 R3;  " C K   FORMAT:
                      "       <=0: UNPACK ENTIRE NAME FROM ROOT
                      "         1: UNPACK ONLY LAST NAME IN NAMELIST
                      "         2: UNPACK ONLY LAST 2 NAMES IN NAMELIST
                      "        ...                 ...
                 R4;  " C K   ADDR TEXTSTRING
                 R5;  " C K   ADDR NAMELIST
                 R7;  " - R   NO. OF CHARS IN TEXTSTRING
                 R6); "       LINK