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

⟦fa6977fef⟧ Ada Source

    Length: 2048 (0x800)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, package Alias, seg_02cc7a, seg_02cece

Derivation

└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
    └─ ⟦5a81ac88f⟧ »Space Info Vol 1« 
        └─⟦this⟧ 
└─⟦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 Output_Stream;
package Alias is
    type Name is (A, B, C, D, E, F, G, H, I, J, K, L, M,
                  N, O, P, Q, R, S, T, U, V, W, X, Y, Z);
    procedure Set (The_Alias : Name; To : Integer);
    function  Get (The_Alias : Name) return Integer;
    procedure Put (The_Alias : Name; Where : Output_Stream.Object);
end Alias;

E3 Meta Data

    nblk1=1
    nid=0
    hdr6=2
        [0x00] rec0=0a rec1=00 rec2=01 rec3=000
    tail 0x215255c4c840c79e176ca 0x42a00088462063c03