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

⟦d4f02d67d⟧ Ada Source

    Length: 6144 (0x1800)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, package body Message, seg_0405a7

Derivation

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

with Media;
package body Message is

--*****************************************************************************

    function Creer (Le_No_Lecteur : Integer;
                    La_Commande : Commande;
                    Les_Donnees : Integer;
                    Le_Lecteur : Lecteur) return Objet is

        Le_Message : Objet;

    begin
        Le_Message.Le_No_Lecteur := Le_No_Lecteur;
        Le_Message.La_Commande := La_Commande;
        Le_Message.Les_Donnees := Les_Donnees;
        Le_Message.Le_Lecteur := Le_Lecteur;
        return (Le_Message);
    end Creer;

--*****************************************************************************

    function Donner_No_Lecteur (Le_Message : Objet) return Integer is
    begin
        return (Le_Message.Le_No_Lecteur);
    end Donner_No_Lecteur;

--*****************************************************************************

    function Donner_La_Commande (Le_Message : Objet) return Commande is
    begin
        return (Le_Message.La_Commande);
    end Donner_La_Commande;

--*****************************************************************************

    function Donner_Les_Donnees (Le_Message : Objet) return Integer is
    begin
        return (Le_Message.Les_Donnees);
    end Donner_Les_Donnees;

--*****************************************************************************

    function Donner_Le_Lecteur (Le_Message : Objet) return Lecteur is
    begin
        return (Le_Message.Le_Lecteur);
    end Donner_Le_Lecteur;
--*****************************************************************************

    procedure Entrer_No_Lecteur (Le_No_Lecteur : Integer;
                                 Le_Message : in out Objet) is

    begin
        Le_Message.Le_No_Lecteur := Le_No_Lecteur;
    end Entrer_No_Lecteur;

--*****************************************************************************

    procedure Entrer_La_Commande (La_Commande : Commande;
                                  Le_Message : in out Objet) is

    begin
        Le_Message.La_Commande := La_Commande;
    end Entrer_La_Commande;


--*****************************************************************************

    procedure Entrer_Les_Donnees (Les_Donnees : Integer;
                                  Le_Message : in out Objet) is

    begin
        Le_Message.Les_Donnees := Les_Donnees;
    end Entrer_Les_Donnees;


--*****************************************************************************

    procedure Entrer_Le_Lecteur (Le_Lecteur : Lecteur;
                                 Le_Message : in out Objet) is

    begin
        Le_Message.Le_Lecteur := Le_Lecteur;
    end Entrer_Le_Lecteur;

--*****************************************************************************


    procedure Afficher (Le_Message : in Objet) is

        Le_Buffer : constant Media.Buffer :=
           (1 => new String'(" MESSAGE  : "),
            2 => new String'(" "),
            3 => new String'("Lecteur No   :" &
                             Integer'Image (Le_Message.Le_No_Lecteur)),
            4 => new String'("Commande     :" &
                             Message.Commande'Image (Le_Message.La_Commande)),
            5 => new String'("donnees      :" &
                             Integer'Image (Le_Message.Les_Donnees)),
            6 => new String'("Type lecteur :" &
                             Message.Lecteur'Image (Le_Message.Le_Lecteur)));

    begin
        Media.Ecrire (Le_Buffer, Media.Terminal);
    end Afficher;

--*****************************************************************************
end Message;

    nblk1=5
    nid=0
    hdr6=a
        [0x00] rec0=1f rec1=00 rec2=01 rec3=078
        [0x01] rec0=00 rec1=00 rec2=04 rec3=012
        [0x02] rec0=1d rec1=00 rec2=02 rec3=056
        [0x03] rec0=21 rec1=00 rec2=03 rec3=042
        [0x04] rec0=11 rec1=00 rec2=05 rec3=000
    tail 0x2153ae49a860e7fd9a17c 0x42a00088462060003