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

⟦2ee3a273d⟧ TextFile

    Length: 1234 (0x4d2)
    Types: TextFile
    Names: »V«

Derivation

└─⟦f64eaa120⟧ Bits:30000752 8mm tape, Rational 1000, !projects 93 02 16
    └─⟦6f12a12be⟧ »DATA« 
        └─⟦this⟧

TextFile

with Frame;
package Worker is

    type Worker_Class is limited private;
    type Worker_Reference is access Worker_Class;

    function Create (Station : Frame.Station_Identification;
                     Task_Id : Frame.Task_Identification)
                    return Worker_Reference;
    procedure Acknowledge (Self : Worker_Reference);
    procedure Accept_Message (Self : Worker_Reference;
                              M : Frame.Message;
                              Need_More : out Boolean);

private

    type Qualification is (Sleep, Reset, Autotest, Single_Shot, Flash,
                           Free_Running, Int_Value, Int_Positive, Int_Negative);
    type Frame_Format is (None, Acknowledge, Address, Value_Low, Value_High);

    type Worker_Class is
        record  
            Station : Frame.Station_Identification;
            Task_Number : Frame.Task_Identification;
            Current_Work : Qualification;
            Expected_Frame : Frame_Format;
            Format : Frame.Format;
            Number_Of_Transmissions : Frame.Transmission_Count;
            Lasting_Number_Of_Transmissions : Natural;  
            First_Message : Frame.Message;
            Value : Natural;
        end record;

end Worker;