DataMuseum.dk

Presents historical artifacts from the history of:

Rational R1000/400 Tapes

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 Tapes

Excavated with: AutoArchaeologist - Free & Open Source Software.

top - metrics - download

Index: T V

⟦5a9a81805⟧ TextFile

    Length: 687 (0x2af)
    Types: TextFile
    Names: »V«

Derivation

└─⟦180fe333a⟧ Bits:30000405 8mm tape, Rational 1000, SW CATALOG, 10_20_0
└─⟦180fe333a⟧ Bits:30000537 8mm tape, Rational 1000, SW Catalog 10_20_0
    └─⟦5cb1d1d7f⟧ »DATA« 
        └─⟦3b1ee7bd8⟧ 
            └─⟦this⟧

TextFile

package Test_Representation is


    type State is range 0 .. 15;
    for State'Size use 4;

    type Status is
        record
            Level : Integer;
            Rr    : Natural range 0 .. 31;
            Ss    : State;
            Ii    : State;
        end record;  
    B31 : constant := 31;

    for Status use
        record
            Xx    at 1 range 5 .. 7;
            Level at 0 range 0 .. B31;
            Xx    at 1 range 7 .. 8;
            Ss    at 1 range 0 .. 4;
            Rr    at 2 range 20 .. 33;
        end record;

    type Color is (Red, Blue, Green);
    for Color use (Red => 1, Blue => 4, Green => 8);
    for Color'Size use 3;
end Test_Representation;