DataMuseum.dk

Presents historical artifacts from the history of:

Rational R1000/400

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about Rational R1000/400

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - download

⟦9fd29ca7f⟧ Ada Source

    Length: 2048 (0x800)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, procedure Setup_Machine, seg_012aee

Derivation

└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
    └─ ⟦cfc2e13cd⟧ »Space Info Vol 2« 
        └─⟦this⟧

E3 Source Code



procedure Setup_Machine (Response : String := "<PROFILE>");

-- For use by Rational Tech Reps only.  This procedure is used to convert
-- existing machines to Delta 2 per-session pricing, or to initialize new
-- machines on the manufacturing floor or on delivery.
--
-- Requests interactive input of the site name for the machine followed
-- by token limites for each of the products installed on the machine.
-- The site name and token counts are then set for the machine.
--
-- Once run, the machine cannot be converted back pre-Delta 2 pricing.
-- Equivalently, this command can be run only once.
--
-- Requires that the machine have no previous Site_ID
--
-- To change the Site Name of the machine, use the Set_Site command.
-- Accept_Tokens and Donate_Tokens can be used to alter the number of
-- tokens for each product individually.

E3 Meta Data

    nblk1=1
    nid=0
    hdr6=2
        [0x00] rec0=15 rec1=00 rec2=01 rec3=000
    tail 0x2170e625c82b14d470c5c 0x42a00088462063203