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

⟦3ab7c6aae⟧ Ada Source

    Length: 3072 (0xc00)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, procedure Receive_Request_To_Orb, seg_0560fd

Derivation

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

E3 Source Code



with Channel_Operator;
with Bls_Constant;
with Text_Io;
with Message;
with Parametre_Defs;
with Display_Mess;
procedure Receive_Request_To_Orb is
    A_Message, Another_Message : Message.Object;
    Liaison : Channel_Operator.Object;
    Resultat : Boolean;
    Emetteur, Recepteur : Parametre_Defs.Identificator;

begin
    Channel_Operator.Init (Liaison, Bls_Constant.Orb_Socket,
                           Bls_Constant.Orb_Host, Resultat);

    if Resultat = True then

        Message.Receive (A_Message, Liaison);

        while Parametre_Defs.Message_Type'Pos (Message.Get_Type (A_Message)) /=
                 Parametre_Defs.Message_Type'Pos (Parametre_Defs.Unreg) loop
            Display_Mess.Get_Trame (A_Message);
            Message.Receive (A_Message, Liaison);
        end loop;

        Display_Mess.Get_Emet (A_Message);
        Display_Mess.Get_Dest (A_Message);
        Display_Mess.Get_Type (A_Message);
        Display_Mess.Get_Number (A_Message);

    else
        Text_Io.Put_Line ("operator : connection failed !");
    end if;
    Channel_Operator.Close (Liaison);
end Receive_Request_To_Orb;

E3 Meta Data

    nblk1=2
    nid=0
    hdr6=4
        [0x00] rec0=1f rec1=00 rec2=01 rec3=042
        [0x01] rec0=07 rec1=00 rec2=02 rec3=000
    tail 0x21761ba9a87c35749c08b 0x42a00088462060003