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

⟦09f045afd⟧ TextFile

    Length: 934 (0x3a6)
    Types: TextFile
    Names: »INPARAMS.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!INPARAMS.D!V0101.D!PASCAL.D!INPARAMS.I« 
    └─ ⟦this⟧ »PREFIXES.D!XAMOS.D!INPARAMS.D!V01CT.D!PASCAL.D!INPARAMS.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!INPARAMS.D!V0101.D!PASCAL.D!INPARAMS.I« 
    └─ ⟦this⟧ »PREFIXES.D!XAMOS.D!INPARAMS.D!V01CT.D!PASCAL.D!INPARAMS.I«

TextFile


%LIST     %LIST     %LIST
"-----------------------------------------------------------------------
"
"  MODULE NAME:           INPARAMS IMPORT DECLARATIONS
"  MODULE ID NMB:         CSS/127
"  MODULE VERSION:        01
"  MODULE RELEASE:        01
"  RELEASE DATE:          830518
"
"-----------------------------------------------------------------------
%NOLIST   %NOLIST   %NOLIST


" N o t e:
"
"  This module requires UTILITYHELP
"
import var
  ifiletype: filetype;           "input file descr
  ofiletype: filetype;           "output file descr


import procedure inparams(r6); "all registers destroyed
"============================"
"
"  This procedure reads the second line of the parameter file
"  searching for
"
"     I:<file-id>    O:<file-id>
"
"
"  If found, the files are opened, and streams connected.
"  The output file is reset, too.
"  If not found, current input and/or current output are
"  used as defaults.
" ▶f0◀