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

⟦66e9d1c73⟧ Ada Source

    Length: 4096 (0x1000)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, package body Subs, seg_020bc6

Derivation

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

with Types_2;
with Types;
package body Subs is
    function "+" (Left, Right : T) return T is
    begin
        [statement]
    end "+";

    function "-" (Left, Right : T) return T is
    begin
        [statement]
    end "-";

    function "*" (Left, Right : T) return T is
    begin
        [statement]
    end "*";

    function "*" (Left : Integer; Right : T) return T is
    begin
        [statement]
    end "*";

    function "*" (Left : T; Right : Integer) return T is
    begin
        [statement]
    end "*";

    function F4 return A_Return_Type is
    begin
        [statement]
    end F4;

    function F3 (A : Integer; B : Integer)
                return Unconstrained_Multi_Index_Array_1 is
    begin
        [statement]
    end F3;

    procedure P1 (I1, I2 :        Types.Int;
                  S      :        String;
                  B      : out    Boolean;
                  E      : in out Types.Enum) is
    begin
        [statement]
    end P1;

    procedure P2 (F1   : in out Float;
                  A, H : in out Integer;
                  R1   : in out Types.Subt;
                  B    : in out Types.Derived;
                  G    : in out Types_2.T;
                  D    : in out Duration;
                  K    : in out Types_2.Constrained_Arr) is
    begin
        [statement]
    end P2;

    function F1 (C1, C2, C3 : Character;
                 S          : String;
                 D          : Duration;
                 Aa         : Types_2.Priv;
                 B          : Boolean;
                 L          : Types_2.Unconstrained_Arr) return Types.Enum is
    begin
        [statement]
    end F1;

    function Empty_Func return String is
    begin
        [statement]
    end Empty_Func;

    function Empty_Func_2 return Duration is
    begin
        [statement]
    end Empty_Func_2;

    procedure Empty is
    begin
        [statement]
    end Empty;
end Subs;

    nblk1=3
    nid=0
    hdr6=6
        [0x00] rec0=2c rec1=00 rec2=01 rec3=038
        [0x01] rec0=22 rec1=00 rec2=02 rec3=02a
        [0x02] rec0=07 rec1=00 rec2=03 rec3=000
    tail 0x2171d2f6a838d45420f55 0x42a00088462061e03