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

⟦a0ebf8351⟧ Ada Source

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

Derivation

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

WITH Transport_Defs;
PACKAGE Net_Info IS

   FUNCTION Test_String RETURN String;
   -- Returns a string that will be used as a test message for transmisison
   -- between the server and client.


   FUNCTION Net_Name RETURN Transport_Defs.Network_Name;
   -- Returns the network name to be used in Transport.Open calls.
   -- The will be changed by the user in the body as necessary and the body
   -- recompiled.


   FUNCTION R1000_Address RETURN Transport_Defs.Host_Id;
   -- Returns the internet address of the R1000 used for testing
   -- This address is set by the user in the package body and recompiled for
   -- each specific host.
   FUNCTION Aconit_Address    RETURN Transport_Defs.Host_Id;
   FUNCTION Belladone_Address RETURN Transport_Defs.Host_Id;



   FUNCTION R1000_Socket RETURN Transport_Defs.Socket_Id;
   -- Returns the socket_id to be used by the R1000 Server to Open a local
   -- socket and perform a passive connect.  The passive connect binds a
   -- name to the local socket and listens for an incoming connection from a
   -- remote client.  The local socket must be a valid socket_id for the
   -- Server system.
   --
   -- This socket_id is also used by the Sparc Client as the Remote Socket
   -- for its active connection.


   FUNCTION Rs6000_Socket RETURN Transport_Defs.Socket_Id;
   -- Returns the socket_id to be used by the Sparc Server to Open a local
   -- socket and perform a passive connect.  The passive connect binds a
   -- name to the local socket and listens for an incoming connection from a
   -- remote client.  The local socket must be a valid socket_id for the
   -- Server system.
   --
   -- This socket_id is also used by the R1000 Client as the Remote Socket
   -- for its active connection.



END Net_Info;

    nblk1=2
    nid=0
    hdr6=4
        [0x00] rec0=1b rec1=00 rec2=01 rec3=082
        [0x01] rec0=16 rec1=00 rec2=02 rec3=000
    tail 0x2174f3a6c86755d6609b5 0x489e0066482863c01