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

⟦aeaf38cad⟧ Ada Source

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

Derivation

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

with Byte_Defs;
with Transport_Defs;
with Transport;
with Text_Io;
with Byte_String_Io;  
with Utils;
use Transport;


procedure Recep is
    Iter : Connection_Id_Iterator;  
    Ref : Connection_Id;
    Status : Transport_Defs.Status_Code;
    Net : constant Transport_Defs.Network_Name := "TCP/IP";
    Socket : constant Transport_Defs.Socket_Id (1 .. 4) := (2, 6, 0, 8);
    -- Host : Transport_Defs.Host_Id (1 .. 0) := (others => 0);
    Count : Natural;
    Msg : Byte_String_Io.Byte_String (1 .. 4);
    -- String_Mes : String (1 .. 4);
begin
--    Init (Iter);
--    Ref := Value (Iter);

    Text_Io.Put_Line ("Initialisation O.K.");

    Open (Ref, Status, Net, Socket);

    if Is_Open (Ref) then
        Text_Io.Put_Line ("Ouverture Reception   canal O.K.");
    else
        Text_Io.Put_Line ("Ouverture reception  canal echec");
    end if;
    Text_Io.Put_Line ("attente connection");

    Connect (Ref, Status);  -- , Local_Host (Ref), Socket);

    --   Reception:
    --       while not Is_Connected (Ref) loop
    --           Text_Io.Put_Line ("Reception  : Mauvaise connection");
    --           Connect (Ref, Status);
    --       end loop Reception;

    Receive (Ref, Status, Msg, Count);  
    Text_Io.Put_Line ("Reception OK");
    --  String_Mes := Byte_String_Io.Image (Msg);
    Text_Io.Put ("Resultat : ");
    Text_Io.Put_Line (Utils.Byte_String_To_String (Msg));
    Text_Io.Put_Line ("Nombre de byte transmis" & Natural'Image (Count));
    Disconnect (Ref);
    Close (Ref);
end Recep;

    nblk1=2
    nid=0
    hdr6=4
        [0x00] rec0=24 rec1=00 rec2=01 rec3=05c
        [0x01] rec0=12 rec1=00 rec2=02 rec3=000
    tail 0x2175d9cf887b886d4877d 0x42a00088462060003