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

⟦28cb8e4f8⟧ Ada Source

    Length: 2048 (0x800)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, generic, package Connexion_Serie, seg_0514e6

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;
with General_Defs;

generic
    No_Port : General_Defs.Port := General_Defs.Port_A;
package Connexion_Serie is

    package G_Defs renames General_Defs;
    procedure Lire (Trame : out G_Defs.Byte_String; Taille : out Integer);
    function Lire return G_Defs.Byte;

    procedure Ecrire (Trame : G_Defs.Byte_String);
    procedure Ecrire (Caractere : G_Defs.Byte);

    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);

    Envoi_Trame_Taille_Nulle : exception;
end Connexion_Serie;

E3 Meta Data

    nblk1=1
    nid=0
    hdr6=2
        [0x00] rec0=17 rec1=00 rec2=01 rec3=000
    tail 0x21758c6ce879974056f28 0x42a00088462060003