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 - download

⟦94cbac564⟧ TextFile

    Length: 392 (0x188)
    Types: TextFile
    Names: »V«

Derivation

└─⟦25882cbde⟧ Bits:30000536 8mm tape, Rational 1000, RCI_RS6000_AIX_IBM 2_0_2
    └─ ⟦b8efda8ac⟧ »DATA« 
        └─⟦7061b4ee8⟧ 
            └─⟦dea849e77⟧ 
                └─⟦this⟧

TextFile

generic
    type Base_Type is range <>;  
    type Numbering is range <>;  
package Gl_Flags is
    type Flags_Type is new Base_Type;
    function Set (Flags : Flags_Type; Flag : Numbering; Value : Boolean := True)
                 return Flags_Type;
    pragma Inline (Set);
    function Is_Set (Flags : Flags_Type; Flag : Numbering) return Boolean;
    pragma Inline (Is_Set);
end Gl_Flags;