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

⟦51b68158e⟧ TextFile

    Length: 440 (0x1b8)
    Types: TextFile
    Names: »V«

Derivation

└─⟦bfaa708f6⟧ Bits:30000531 8mm tape, Rational 1000, INSIGHT 1_3_0
    └─ ⟦c51948655⟧ »DATA« 
        └─⟦266b31e86⟧ 
            └─⟦this⟧

TextFile

with Client;
with Message;
package Message_Dispatch is

    -- Client call in to get their messages

    procedure Get_Message (Client_Name : Client.Id;
                           Packet : out Message.Packet);
    -- get any waiting packets.  Block until one arrives if there
    -- is not currently any.

    procedure Free_Buffer (Pkt : Message.Packet);
    -- return packet to the pool.  Very important to do this!

end Message_Dispatch;