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

⟦507293d40⟧ Ada Source

    Length: 7168 (0x1c00)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, package Standard, seg_000143

Derivation

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

E3 Source Code



package Standard is
    type *Universal_Integer* is [universal_integer];
    type *Universal_Real* is [universal_real];
    type *Universal_Fixed* is [universal_fixed];
    type Boolean is (False, True);
    type Integer is range -2147483647 .. 2147483647;
    type Float is
       digits 15
          range -1.797693134862281993946453440003097057342529296875E308 ..
                   1.797693134862281993946453440003097057342529296875E308;
    type Long_Integer is range -9223372036854775808 .. 9223372036854775807;
    subtype Natural is Integer range 0 .. 2147483647;
    subtype Positive is Integer range 1 .. 2147483647;
    type Duration is
       delta 3.0517578125E-5
          range -4.29496729599999849114055905374698340892791748046875E9 ..
                   4.29496729599996651671744984923861920833587646484375E9;
    type String is array (Positive range <>) of Character;
    package Ascii is
        Lc_Z : constant Character := *LC_Z*;
        Lc_Y : constant Character := *LC_Y*;
        Lc_X : constant Character := *LC_X*;
        Lc_W : constant Character := *LC_W*;
        Lc_V : constant Character := *LC_V*;
        Lc_U : constant Character := *LC_U*;
        Lc_T : constant Character := *LC_T*;
        Lc_S : constant Character := *LC_S*;
        Lc_R : constant Character := *LC_R*;
        Lc_Q : constant Character := *LC_Q*;
        Lc_P : constant Character := *LC_P*;
        Lc_O : constant Character := *LC_O*;
        Lc_N : constant Character := *LC_N*;
        Lc_M : constant Character := *LC_M*;
        Lc_L : constant Character := *LC_L*;
        Lc_K : constant Character := *LC_K*;
        Lc_J : constant Character := *LC_J*;
        Lc_I : constant Character := *LC_I*;
        Lc_H : constant Character := *LC_H*;
        Lc_G : constant Character := *LC_G*;
        Lc_F : constant Character := *LC_F*;
        Lc_E : constant Character := *LC_E*;
        Lc_D : constant Character := *LC_D*;
        Lc_C : constant Character := *LC_C*;
        Lc_B : constant Character := *LC_B*;
        Lc_A : constant Character := *LC_A*;
        Tilde : constant Character := *TILDE*;
        Bar : constant Character := *BAR*;
        Grave : constant Character := *GRAVE*;
        Circumflex : constant Character := *CIRCUMFLEX*;
        Back_Slash : constant Character := *BACK_SLASH*;
        At_Sign : constant Character := *AT_SIGN*;
        Semicolon : constant Character := *SEMICOLON*;
        Ampersand : constant Character := *AMPERSAND*;
        Dollar : constant Character := *DOLLAR*;
        Quotation : constant Character := *QUOTATION*;
        R_Brace : constant Character := *R_BRACE*;
        L_Brace : constant Character := *L_BRACE*;
        Underline : constant Character := *UNDERLINE*;
        R_Bracket : constant Character := *R_BRACKET*;
        L_Bracket : constant Character := *L_BRACKET*;
        Query : constant Character := *QUERY*;       Colon : constant Character := *COLON*;
        Percent : constant Character := *PERCENT*;
        Sharp : constant Character := *SHARP*;
        Exclam : constant Character := *EXCLAM*;
        Del : constant Character := *DEL*;
        Us : constant Character := *US*;
        Rs : constant Character := *RS*;
        Gs : constant Character := *GS*;
        Fs : constant Character := *FS*;
        Esc : constant Character := *ESC*;
        Sub : constant Character := *SUB*;
        Em : constant Character := *EM*;
        Can : constant Character := *CAN*;
        Etb : constant Character := *ETB*;
        Syn : constant Character := *SYN*;
        Nak : constant Character := *NAK*;
        Dc4 : constant Character := *DC4*;
        Dc3 : constant Character := *DC3*;
        Dc2 : constant Character := *DC2*;
        Dc1 : constant Character := *DC1*;
        Dle : constant Character := *DLE*;
        Si : constant Character := *SI*;
        So : constant Character := *SO*;
        Cr : constant Character := *CR*;
        Ff : constant Character := *FF*;
        Vt : constant Character := *VT*;
        Lf : constant Character := *LF*;
        Ht : constant Character := *HT*;
        Bs : constant Character := *BS*;
        Bel : constant Character := *BEL*;
        Ack : constant Character := *ACK*;
        Enq : constant Character := *ENQ*;
        Eot : constant Character := *EOT*;
        Etx : constant Character := *ETX*;
        Stx : constant Character := *STX*;
        Soh : constant Character := *SOH*;
        Nul : constant Character := *NUL*;
    end Ascii;
    Constraint_Error : exception;
    Numeric_Error : exception;
    Storage_Error : exception;
    Tasking_Error : exception;
    Program_Error : exception;
    type Character is (ASCII.NUL, ASCII.SOH, ASCII.STX, ASCII.ETX, ASCII.EOT, ASCII.ENQ, ASCII.ACK, ASCII.BEL, ASCII.BS, ASCII.HT, ASCII.LF,
                       ASCII.VT, ASCII.FF, ASCII.CR, ASCII.SO, ASCII.SI, ASCII.DLE, ASCII.DC1, ASCII.DC2, ASCII.DC3, ASCII.DC4, ASCII.NAK,
                       ASCII.SYN, ASCII.ETB, ASCII.CAN, ASCII.EM, ASCII.SUB, ASCII.ESC, ASCII.FS, ASCII.GS, ASCII.RS, ASCII.US, ' ',
                       '!', '"', '#', '$', '%', '&', ''', '(', ')', '*', '+',
                       ',', '-', '.', '/', '0', '1', '2', '3', '4', '5', '6',
                       '7', '8', '9', ':', ';', '<', '=', '>', '?', '@', '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', '[', '\', ']', '^', '_', '`', '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', '{', '|', '}', '~', ASCII.DEL);
end Standard;

E3 Meta Data

    nblk1=6
    nid=0
    hdr6=c
        [0x00] rec0=16 rec1=00 rec2=01 rec3=008
        [0x01] rec0=15 rec1=00 rec2=02 rec3=044
        [0x02] rec0=14 rec1=00 rec2=03 rec3=002
        [0x03] rec0=16 rec1=00 rec2=04 rec3=024
        [0x04] rec0=16 rec1=00 rec2=05 rec3=05c
        [0x05] rec0=0c rec1=00 rec2=06 rec3=000
    tail 0x2010049267b6a635ceb0d 0x42a00088462062003