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

⟦b48b0799a⟧ Ada Source

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

Derivation

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

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;

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

end Message;

    nblk1=5
    nid=4
    hdr6=6
        [0x00] rec0=1e rec1=00 rec2=01 rec3=08a
        [0x01] rec0=1d rec1=00 rec2=02 rec3=056
        [0x02] rec0=1e rec1=00 rec2=03 rec3=000
        [0x03] rec0=03 rec1=ac rec2=a9 rec3=542
        [0x04] rec0=80 rec1=00 rec2=00 rec3=100
    tail 0x2153ad034860e6e65043f 0x42a00088462060003
Free Block Chain:
  0x4: 0000  00 05 00 04 80 01 73 01 04 05 c9 98 02 57 6c 00  ┆      s      Wl ┆
  0x5: 0000  00 00 00 12 00 0c 65 6e 64 20 4d 65 73 73 61 67  ┆      end Messag┆