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

⟦310fda0f6⟧ Ada Source

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

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 Simple_Io;
package body C_68k_Io is

    procedure Lire (Trame : out G_Defs.Byte_String; Taille : out Integer) is
        Numero_Port : G_Defs.Port;
    begin
        C_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
        C_Driver_Serie.Interface_Serie.Emission_Reception
           (Config => C_Driver_Serie.Interface_Serie.R_Seule);
        Car := C_Driver_Serie.Interface_Serie.Serie.Lire_Donnee_Sans_It
                  (No_Port);
        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;
--        Simple_Io.Put_Line ("dans Ecrire ");
        C_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 =>
                C_Driver_Serie.Interface_Serie.Emission_Reception
                   (Config => C_Driver_Serie.Interface_Serie.Ea);
            when G_Defs.Port_B =>
                C_Driver_Serie.Interface_Serie.Emission_Reception
                   (Config => C_Driver_Serie.Interface_Serie.Eb);
        end case;
        C_Driver_Serie.Interface_Serie.Serie.Ecrire_Donnee_Sans_It
           (Port_Serie => No_Port, Donnee => Caractere);
        C_Driver_Serie.Interface_Serie.Emission_Reception
           (Config => C_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
        C_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 C_68k_Io;

E3 Meta Data

    nblk1=4
    nid=0
    hdr6=8
        [0x00] rec0=1f rec1=00 rec2=01 rec3=020
        [0x01] rec0=01 rec1=00 rec2=02 rec3=014
        [0x02] rec0=15 rec1=00 rec2=04 rec3=02c
        [0x03] rec0=08 rec1=00 rec2=03 rec3=000
    tail 0x217649c1887cc5e6331af 0x42a00088462060003