|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 Tapes |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Tapes Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - downloadIndex: ┃ B T ┃
Length: 1164 (0x48c)
Types: TextFile
Names: »B«
└─⟦149519bd4⟧ Bits:30000546 8mm tape, Rational 1000, !projects 93-07-13
└─ ⟦124ff5788⟧ »DATA«
└─⟦this⟧
└─⟦a7d1ea751⟧ Bits:30000550 8mm tape, Rational 1000, !users!projects 94_04_11
└─ ⟦129cab021⟧ »DATA«
└─⟦this⟧
└─⟦f64eaa120⟧ Bits:30000752 8mm tape, Rational 1000, !projects 93 02 16
└─ ⟦6f12a12be⟧ »DATA«
└─⟦this⟧
└─⟦2f6cfab89⟧ Bits:30000547 8mm tape, Rational 1000, !projects 94-01-04
└─ ⟦d65440be7⟧ »DATA«
└─⟦this⟧
with Rs6000_Defs;
with Interchange;
with Rpc;
with Rpc_Client;
with Transport_Defs;
with Transport_Interchange;
with Transport_Name;
with Transport_Stream;
package body Serial_Io is
Remote_Host : constant Transport_Defs.Host_Id :=
Transport_Name.Host_To_Host_Id ("Belladone");
procedure Start_Request is
new Rpc_Client.Start_Request_Generic
(Default_Network => Rs6000_Defs.Network,
Default_Host => Remote_Host,
Default_Socket => Rs6000_Defs.Socket,
Default_Program => Rs6000_Defs.Program,
Default_Version => Rs6000_Defs.Version);
procedure End_Request (Stream : Transport_Stream.Stream_Id)
renames Rpc_Client.End_Request;
procedure Put (S : String; Tty : String) is
Stream : Transport_Stream.Stream_Id;
begin
Start_Request (Stream => Stream, Proc => Rs6000_Defs.Proc_Number.Put);
Transport_Interchange.Put_String (Into => Stream, Data => S);
Transport_Interchange.Put_String (Into => Stream, Data => Tty);
End_Request (Stream);
Rpc_Client.End_Response (Stream);
end Put;
end Serial_Io;