|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 2048 (0x800) Types: Ada Source Notes: 03_class, FILE, R1k_Segment, e3_tag, procedure Get, seg_0290c0
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000 └─ ⟦5a81ac88f⟧ »Space Info Vol 1« └─⟦this⟧
with Byte_Defs; with Text_Io; with Transport; with Transport_Defs; with Utils; procedure Get is package T renames Transport; package T_Defs renames Transport_Defs; C : T.Connection_Id; S : T_Defs.Status_Code; N : constant T_Defs.Network_Name := "TCP/IP"; Sid : constant Transport_Defs.Socket_Id := (10, 45); Cnt : Natural; D : Byte_Defs.Byte_String (1 .. 1024); begin T.Open (Connection => C, Status => S, Network => N, Local_Socket => Sid); T.Connect (C, S); loop T.Receive (Connection => C, Status => S, Data => D, Count => Cnt, Max_Wait => Duration'Last); Text_Io.Put_Line ("got " & Integer'Image (Cnt) & " characters => " & Utils.Byte_String_To_String (D)); delay 0.5; end loop; end Get;
nblk1=1 nid=0 hdr6=2 [0x00] rec0=25 rec1=00 rec2=01 rec3=000 tail 0x21521571a83c86bebcab3 0x42a00088462060003