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

⟦010ef575d⟧ Ada Source

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

Derivation

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

with Ada_Program;
procedure Zzzz is
    type Color is (Red, Green, Blue);
    A              : Color;
    B, C, D, E     : Integer;
    F              : Boolean := True;
    Elem           : Ada_Program.Element;
    Test_Exception : exception;
begin
    B := 1;
    C := 2;
    D := 3;
    E := 4;
    if ((B > 7) and (B < C)) or ((D = 5) and (B = 10)) or F then
        null;
    end if;
    Elem := Ada_Program.Conversion.Resolve
               ("((B > 7) and (B < C)) or ((D = 5) and (B = 10)) or F");

    -- case A is
    --     when Red =>
    --         null;
    --     when others =>
    --         null;
    -- end case;
exception
    when Test_Exception =>
        null;
    when others =>
        null;
end Zzzz;

    nblk1=1
    nid=0
    hdr6=2
        [0x00] rec0=21 rec1=00 rec2=01 rec3=001
    tail 0x215002fca815c6321276b 0x42a00088462061e03