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

⟦e467836c5⟧ Ada Source

    Length: 3072 (0xc00)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, function Fabriquer_La_Trame, seg_036cee, seg_03719a, seg_03900a, seg_039075, separate Motor

Derivation

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

E3 Source Code



separate (Motor)
function Fabriquer_La_Trame (A_Partir : Evenement) return String is
    Numero_Station : Standard_String.Object;
    Numero_Acteur : Standard_String.Object;
    Valeur : Standard_String.Object;
    Transition : Standard_String.Object;

    Trame_Numero_Station, Trame_Numero_Acteur : Numero_Ascii;
    Trame_Valeur, Trame_Transition : Commande_Ascii;

    La_Petite_Trame_A_Envoyer : String (1 .. 10);
    La_Grande_Trame_A_Envoyer : String (1 .. 14);

    Debut : constant String := "D";
    Fin : constant String := "F";

begin
    Standard_String.Put_Contents
       (Numero_Station, String_Utilities.Number_To_String
                           (A_Partir.Numero_Station));
    Normaliser (Numero_Station, Trame_Numero_Station);
    Standard_String.Put_Contents
       (Numero_Acteur, String_Utilities.Number_To_String
                          (A_Partir.Numero_Acteur));
    Normaliser (Numero_Acteur, Trame_Numero_Acteur);
    Standard_String.Put_Contents
       (Valeur, String_Utilities.Number_To_String (A_Partir.Valeur));
    Normaliser (Valeur, Trame_Valeur);
    Standard_String.Put_Contents
       (Transition, String_Utilities.Number_To_String (A_Partir.Transition));
    Normaliser (Transition, Trame_Transition);

    if A_Partir.Transition /= 0 then
        La_Grande_Trame_A_Envoyer :=
           Debut & Trame_Numero_Station & Trame_Numero_Acteur &
              Trame_Valeur & Trame_Transition & Fin;
        return La_Grande_Trame_A_Envoyer;
    else
        La_Petite_Trame_A_Envoyer :=
           Debut & Trame_Numero_Station &
              Trame_Numero_Acteur & Trame_Valeur & Fin;  
        return La_Petite_Trame_A_Envoyer;
    end if;
end Fabriquer_La_Trame;

E3 Meta Data

    nblk1=2
    nid=0
    hdr6=4
        [0x00] rec0=1b rec1=00 rec2=01 rec3=028
        [0x01] rec0=15 rec1=00 rec2=02 rec3=001
    tail 0x215304cd084e07ec9024e 0x42a00088462060003