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

⟦9a2b0f834⟧ TextFile

    Length: 1000 (0x3e8)
    Types: TextFile
    Names: »IMPORT.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!PARAM_UTIL.D!V0201.D!PASCAL.D!IMPORT.I« 
    └─ ⟦this⟧ »PREFIXES.D!XAMOS.D!PARAM_UTIL.D!V02CT.D!PASCAL.D!IMPORT.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!PARAM_UTIL.D!V0201.D!PASCAL.D!IMPORT.I« 
    └─ ⟦this⟧ »PREFIXES.D!XAMOS.D!PARAM_UTIL.D!V02CT.D!PASCAL.D!IMPORT.I« 

TextFile

%IMPORT: READ_FILE_PARAMETER
%IMPORT: READ_INTEGER_PARAMETER

PROCEDURE READ_FILE_PARAMETER
                 (     KEY     : CHAR ;
                   VAR F       : FILE ;
                   VAR CC      : COMPLETION_CODE );
"
Scans the parameterfile (PARAM.PFILE) for a construct of the form :
  <KEYWORD><optional spaces> : <optional spaces> <file-id>
<KEYWORD> is any identifier, first character of which is KEY
INFILEID is used to read the file-id (default file system name and
volume is PARAM.FSN and PARAM.VOL.  The file is then opened by
means of FIND_FILE and returned in F
"

EXTERN ;


PROCEDURE READ_INTEGER_PARAMETER
                 (     KEY     : CHAR ;
                   VAR I       : INTEGER ;
                   VAR CC      : COMPLETION_CODE );
"
Scans the parameterfile (PARAM.PFILE) for a construct of the form :
  <KEYWORD><optional spaces> : <optional spaces> <integer>
<KEYWORD> is any identifier, first character of which is KEY
The integer read is returned in I
"

EXTERN ;