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

⟦a26151ba0⟧ Ada Source

    Length: 4096 (0x1000)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, procedure Main, seg_05557e

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



with Text_Io;
with Liste;
with Gestion_Table;
procedure Main is
    A, B, C, D, E : Natural;
    Ma_Liste : Liste.List;
    Mon_Indice : Liste.Iterator;
    Eff : Boolean;
begin
    -- Gestion_Table.Testtab;
    -- Gestion_Table.Affichetab;
    Ma_Liste := Liste.Nil;
    Ma_Liste := Liste.Make (1, Ma_Liste);
    Ma_Liste := Liste.Make (2, Ma_Liste);
    Ma_Liste := Liste.Make (3, Ma_Liste);
    Ma_Liste := Liste.Make (4, Ma_Liste);
    Ma_Liste := Liste.Make (5, Ma_Liste);
    Gestion_Table.Affiche_Liste (Ma_Liste);
    Ma_Liste := Liste.Nil;
    Ma_Liste := Liste.Make (106, Ma_Liste);
    Ma_Liste := Liste.Make (205, Ma_Liste);
    Ma_Liste := Liste.Make (306, Ma_Liste);
    Ma_Liste := Liste.Make (406, Ma_Liste);
    Ma_Liste := Liste.Make (605, Ma_Liste);
    Ma_Liste := Liste.Make (806, Ma_Liste);
    Gestion_Table.Affiche_Liste (Ma_Liste);
    Ma_Liste := Liste.Nil;
    Ma_Liste := Liste.Make (11111, Ma_Liste);
    Gestion_Table.Affiche_Liste (Ma_Liste);
    Ma_Liste := Liste.Nil;
    Gestion_Table.Affiche_Liste (Ma_Liste);
    --Liste.Init (Mon_Indice, Ma_Liste);
    --A := Liste.Value (Mon_Indice);
    --Liste.Next (Mon_Indice);
    --B := Liste.Value (Mon_Indice);
    --Liste.Next (Mon_Indice);
    --C := Liste.Value (Mon_Indice);
    --Liste.Next (Mon_Indice);
    --D := Liste.Value (Mon_Indice);
    --Liste.Next (Mon_Indice);
    --E := Liste.Value (Mon_Indice);
    --Text_Io.Put_Line ("second passage : " & Natural'Image (A) &
    --                  Natural'Image (B) & Natural'Image (C) &
    --                  Natural'Image (D) & Natural'Image (E));

    -- Liste.Init (Mon_Indice, Ma_Liste);
    -- Liste.Next (Mon_Indice);
    -- Eff := Liste.Done (Mon_Indice);
    -- if Eff = True then
    --     Text_Io.Put_Line ("eff=true");
    -- else
    --     Text_Io.Put_Line ("eff=false");
    -- end if;

    -- Liste.Init (Mon_Indice, Ma_Liste);
    --A := Liste.Value (Mon_Indice);
    --Liste.Next (Mon_Indice);
    --B := Liste.Value (Mon_Indice);
    --Liste.Next (Mon_Indice);
    --C := Liste.Value (Mon_Indice);
    --Liste.Next (Mon_Indice);
    --D := Liste.Value (Mon_Indice);
    --Text_Io.Put_Line ("second passage : " &
    --                  Natural'Image (A) & Natural'Image (B) &
    --                  Natural'Image (C) & Natural'Image (D));

end Main;

E3 Meta Data

    nblk1=3
    nid=0
    hdr6=6
        [0x00] rec0=1e rec1=00 rec2=01 rec3=038
        [0x01] rec0=1b rec1=00 rec2=02 rec3=048
        [0x02] rec0=0c rec1=00 rec2=03 rec3=000
    tail 0x2175f786a87bd3e499dc6 0x42a00088462060003