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

⟦d4801caf1⟧ Ada Source

    Length: 7168 (0x1c00)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, package body Treatment, seg_054106

Derivation

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

with Communication;
with Text_Io;
with Our_Constantes;
use Our_Constantes;
with Message;
with Utils;
with Our_String;

package body Treatment is

    -- procedure de traitement de la commande
    -- ======================================
    function Treatment_Of_Command (Line : in String) return Boolean is
        The_Message : Message.Type_Of_Message;
    begin
        if Line = "emet" then
            Text_Io.Put ("transmission ...");

            The_Message.The_Host_Machine_Receive := (193, 54, 146, 132);
            The_Message.The_Socket_Receive := (2, 6, 0, 4);

            The_Message.Data := Our_String.Value ("coucou");
            The_Message.Command_Is_Ok := True;

            Communication.Transmitter (The_Message);

        elsif Line = "reco" then
            Text_Io.Put_Line ("reception");
            Communication.Receiver (The_Message, (2, 6, 0, 4));
        elsif Line = "quit" then
            return True;
        else
            Text_Io.Put_Line
               ("Mot incorrect. Entrez emet pour emettre ou reco pour recevoir");
            return False;
        end if;
        return True;
    end Treatment_Of_Command;

    -- procedure de lecture de commande
    -- ================================
    procedure Type_Of_Command is

        Line : String (1 .. 4);
        Counter : Natural := 1;
        Test : Boolean := False;
    begin
        Text_Io.Put_Line ("Entrez une commande");
        Text_Io.Get (Line);
        Text_Io.New_Line;
        Text_Io.Put (Line);
        Text_Io.New_Line;
        Test := Treatment_Of_Command (Line);
    end Type_Of_Command;

begin
    null;
end Treatment;

    nblk1=6
    nid=4
    hdr6=4
        [0x00] rec0=21 rec1=00 rec2=01 rec3=018
        [0x01] rec0=1b rec1=00 rec2=03 rec3=000
        [0x02] rec0=04 rec1=00 rec2=04 rec3=00a
        [0x03] rec0=1d rec1=00 rec2=02 rec3=064
        [0x04] rec0=0c rec1=00 rec2=06 rec3=000
        [0x05] rec0=0c rec1=00 rec2=06 rec3=000
    tail 0x2154cc89887b539c84420 0x42a00088462060003
Free Block Chain:
  0x4: 0000  00 02 01 77 80 0d 70 6f 72 74 2e 54 72 61 6e 73  ┆   w  port.Trans┆
  0x2: 0000  00 06 03 fc 80 30 20 20 20 54 65 78 74 5f 49 6f  ┆     0   Text_Io┆
  0x6: 0000  00 05 01 4e 80 0a 61 2c 20 43 6f 75 6e 74 29 3b  ┆   N  a, Count);┆
  0x5: 0000  00 00 00 04 80 01 4c 01 02 20 20 20 20 20 65 6e  ┆      L       en┆