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

⟦40e17b8f8⟧ Ada Source

    Length: 4096 (0x1000)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, package body Display_Mess, seg_05620c

Derivation

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

with Message;
with Parametre_Defs;
with Liste_Parametre;
with Parametre;
with Bounded_String;
with Task_Io;
with Utils;
with Byte_Defs;

package body Display_Mess is
    procedure Get_Emet (O : Message.Object) is
    begin
        Task_Io.Put_Line ("emetteur: " &
                          Utils.Byte_String_To_String
                             (Byte_Defs.Byte_String (Message.Get_Emet (O))));
    end Get_Emet;

    procedure Get_Dest (O : Message.Object) is
    begin
        Task_Io.Put_Line ("destinataire: " &
                          Utils.Byte_String_To_String
                             (Byte_Defs.Byte_String (Message.Get_Dest (O))));
    end Get_Dest;

    procedure Get_Number (O : Message.Object) is
    begin
        Task_Io.Put_Line ("numero de message: " &
                          String (Message.Get_Number (O)));
    end Get_Number;

    procedure Get_Type (O : Message.Object) is
    begin
        Task_Io.Put_Line ("type du message : " &
                          Parametre_Defs.Message_Type'Image
                             (Message.Get_Type (O)));
    end Get_Type;

    procedure Get_Containt (O : Message.Object) is
        Liste_Tempo : Liste_Parametre.List;
        Iterat : Liste_Parametre.Iterator;
    begin
        Liste_Tempo := Message.Get_Containt (O);
        Liste_Parametre.Init (Iterat, Liste_Tempo);
        Task_Io.Put_Line ("liste des parametres de la trame");
        while (Liste_Parametre.Done (Iterat) /= True) loop
            Task_Io.Put_Line (Bounded_String.Image
                                 (Liste_Parametre.Value (Iterat)));
            Liste_Parametre.Next (Iterat);
        end loop;
        Task_Io.Put_Line ("fin de la liste de parametres");
    end Get_Containt;

    procedure Get_Trame (O : Message.Object) is
    begin
        Get_Emet (O);
        Get_Dest (O);
        Get_Type (O);
        Get_Number (O);
        Get_Containt (O);
    end Get_Trame;
end Display_Mess;

    nblk1=3
    nid=0
    hdr6=6
        [0x00] rec0=22 rec1=00 rec2=01 rec3=046
        [0x01] rec0=1b rec1=00 rec2=02 rec3=010
        [0x02] rec0=02 rec1=00 rec2=03 rec3=000
    tail 0x2175d78d487b883f4a013 0x42a00088462060003