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 - metrics - download

⟦4d059091f⟧ Ada Source

    Length: 3072 (0xc00)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, package Random, seg_058309

Derivation

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

--::::::::::
--io_libs.ada
--::::::::::
-- Precompiled instantiations of Integer_IO and
-- Float_IO for the predefined Integer and Float types
with Text_Io;
--::::::::::
--random.ads
--::::::::::
package Random is

    package My_Int_Io is new Text_Io.Integer_Io (Num => Integer);

-- WITH Text_IO;
    package My_Flt_Io is new Text_Io.Float_Io (Num => Float);

-- Simple pseudo-random number generator package.
-- Adapated from the Ada literature by
-- Michael B. Feldman, The George Washington University, November 1990.

    procedure Set_Seed (N : Positive);

    function Unit_Random return Float;

    --returns a float >=0.0 and <1.0

    function Random_Int (N : Positive) return Positive;

    --return a random integer in the range 1..N

end Random;

    nblk1=2
    nid=2
    hdr6=2
        [0x00] rec0=24 rec1=00 rec2=01 rec3=000
        [0x01] rec0=00 rec1=19 rec2=63 rec3=3d5
    tail 0x217658edc87e28896cc32 0x42a00088462060003
Free Block Chain:
  0x2: 0000  00 00 00 5e 80 09 50 6f 73 69 74 69 76 65 3b 09  ┆   ^  Positive; ┆