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

⟦cff630f25⟧ Ada Source

    Length: 7168 (0x1c00)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, seg_04accb

Derivation

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

WITH Date_Defs;
WITH Interchange;
WITH Net_Info;
WITH Rpc;
WITH Rpc_Client;
WITH Transport_Date;
WITH Transport_Defs;
WITH Transport_Interchange;
WITH Transport_Stream;
WITH Text_Io;

PACKAGE BODY Date_Client IS

   Remote_Host : CONSTANT Transport_Defs.Host_Id := Net_Info.R1000_Address;

   Remote_Socket : CONSTANT Transport_Defs.Socket_Id := Net_Info.R1000_Socket;


   PROCEDURE Start_Request IS  
      NEW Rpc_Client.Start_Request_Generic
             (Default_Network => Date_Defs.Network,
              Default_Host    => Remote_Host,
              Default_Socket  => Remote_Socket,
              Default_Program => Date_Defs.Program,
              Default_Version => Date_Defs.Version);

   FUNCTION Date RETURN String IS
      Stream : Transport_Stream.Stream_Id;
      --Answer : Time_Utilities.Time;
      Answer : String (1 .. 29);
   BEGIN  
      Start_Request  
         (Stream => Stream,  
          Proc   => Date_Defs.Proc_Number.Date);
      Transport_Date.Put (Stream, "date");

      Text_Io.Put_Line ("3");

      Rpc_Client.End_Request (Stream);

      Text_Io.Put_Line ("4");

      Transport_Date.Get (Stream, Answer);
      Text_Io.Put_Line ("5");

      Rpc_Client.End_Response (Stream);

      Text_Io.Put_Line ("6");  
      RETURN Answer;
   END Date;


END Date_Client;

    nblk1=6
    nid=6
    hdr6=4
        [0x00] rec0=23 rec1=00 rec2=01 rec3=04e
        [0x01] rec0=14 rec1=00 rec2=02 rec3=000
        [0x02] rec0=1e rec1=00 rec2=03 rec3=056
        [0x03] rec0=1a rec1=00 rec2=04 rec3=086
        [0x04] rec0=22 rec1=00 rec2=05 rec3=036
        [0x05] rec0=07 rec1=00 rec2=06 rec3=000
    tail 0x21547f95e86763f43262a 0x489e0066482863c01
Free Block Chain:
  0x6: 0000  00 05 00 35 80 09 4e 20 41 6e 73 77 65 72 3b 09  ┆   5  N Answer; ┆
  0x5: 0000  00 04 03 f9 00 27 20 20 20 20 20 20 52 70 63 5f  ┆     '      Rpc_┆
  0x4: 0000  00 03 00 28 80 25 74 72 65 61 6d 2c 20 43 6f 6d  ┆   ( %tream, Com┆
  0x3: 0000  00 00 00 0f 80 0c 20 4e 75 6d 62 65 72 29 20 52  ┆       Number) R┆