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

⟦e5fe8d2a1⟧ Ada Source

    Length: 5120 (0x1400)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, package body Connexion_Serie, seg_051b12

Derivation

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

E3 Source Code



with Driver_Serie;  
package body Connexion_Serie is

    procedure Lire (Trame : out G_Defs.Byte_String; Taille : out Integer) is
        Numero_Port : G_Defs.Port;
    begin
        Driver_Serie.Tache_Driver_Serie.Lecture_Trame
           (Trame => Trame, Taille => Taille, Port => Numero_Port);
    end Lire;

    function Lire return G_Defs.Byte is
        Car : G_Defs.Byte;
    begin  
        Driver_Serie.Interface_Serie.Validation_It
           (Sorte => Driver_Serie.Interface_Serie.Pas_It);
        Driver_Serie.Interface_Serie.Emission_Reception
           (Config => Driver_Serie.Interface_Serie.R_Seule);
        Car := Driver_Serie.Interface_Serie.Serie.Lire_Donnee_Sans_It (No_Port);
--        Driver_Serie.Interface_Serie.Validation_It
--           (Sorte => Driver_Serie.Interface_Serie.R_Ab);
        return Car;
    end Lire;

    procedure Ecrire (Trame : G_Defs.Byte_String) is
    begin  
        if Trame'Length = 0 then
            raise Envoi_Trame_Taille_Nulle;
        end if;
        Driver_Serie.Tache_Driver_Serie.Ecriture_Trame (Trame, No_Port);
    end Ecrire;

    procedure Ecrire (Caractere : G_Defs.Byte) is
    begin  
        case No_Port is
            when G_Defs.Port_A =>
                Driver_Serie.Interface_Serie.Emission_Reception
                   (Config => Driver_Serie.Interface_Serie.Ea);
            when G_Defs.Port_B =>
                Driver_Serie.Interface_Serie.Emission_Reception
                   (Config => Driver_Serie.Interface_Serie.Eb);
        end case;
        Driver_Serie.Interface_Serie.Serie.Ecrire_Donnee_Sans_It
           (Port_Serie => No_Port, Donnee => Caractere);
        Driver_Serie.Interface_Serie.Emission_Reception
           (Config => Driver_Serie.Interface_Serie.R_Seule);
    end Ecrire;

    procedure Configure (Vitesse : G_Defs.Baud_Rate;
                         Parite : G_Defs.Parite;
                         Nb_Bit : G_Defs.Nbre_Bits_Par_Caractere;
                         Nb_Bit_Stop : General_Defs.Stop_Bits) is
    begin
        Driver_Serie.Interface_Serie.Initialiser (N_Port => No_Port,
                                                  Vitesse => Vitesse,
                                                  Parite => Parite,
                                                  Nb_Bit => Nb_Bit,
                                                  Nb_Bit_Stop => Nb_Bit_Stop);

    end Configure;

end Connexion_Serie;

E3 Meta Data

    nblk1=4
    nid=0
    hdr6=8
        [0x00] rec0=1c rec1=00 rec2=01 rec3=022
        [0x01] rec0=00 rec1=00 rec2=02 rec3=008
        [0x02] rec0=17 rec1=00 rec2=04 rec3=070
        [0x03] rec0=0c rec1=00 rec2=03 rec3=000
    tail 0x21759100a879b5307b672 0x42a00088462060003