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

⟦bd078436c⟧ Ada Source

    Length: 5120 (0x1400)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, generic, package Port_Serie_68k, seg_04ed53

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 Const_Scn68681;  
with General_Defs;
with System;
generic
    Adresse_Circuit : General_Defs.Adresse := System.Address'Ref (16#03001000#);
    Adresse_Base_It : General_Defs.Adresse := System.Address'Ref (0);
    Adresse_Base_Gestionnaire_It : General_Defs.Adresse :=
       System.Address'Ref (16#03010020#);
package Port_Serie_68k is

    package C_68681 renames Const_Scn68681;
    package G_Defs renames General_Defs;

    type Port is (Port_A, Port_B);  
    type Evenement_Interruption is (Reception_A, Emission_A,
                                    Reception_B, Emission_B, Inconnu);
    type Mode_Emission_Reception is (E, R, E_R, Aucun);
    subtype Niveau_Interruption is Integer range 0 .. 255;
    procedure Pos_Vitesse (Port_Serie : Port; Vitesse : G_Defs.Baud_Rate);
    procedure Pos_Parite (Port_Serie : Port; Val_Parite : G_Defs.Parite);
    procedure Pos_Stop_Bits (Port_Serie : Port;
                             Val_Stop_Bits : G_Defs.Stop_Bits);
    procedure Pos_Nbre_Bits_Caractere
                 (Port_Serie : Port;
                  Val_Nbre_Bits_Par_Caractere : G_Defs.Nbre_Bits_Par_Caractere);
    procedure Emission_Reception (Port_Serie : Port;
                                  Mode : Mode_Emission_Reception);
    procedure Pos_Interruption (Mode : Mode_Emission_Reception);  
    function Calcul_Adresse_It
                (No_It : Niveau_Interruption) return G_Defs.Adresse;
    function Donner_Evenement_Interruption
                (Port_Serie : Port) return Evenement_Interruption;
    function Lire_Donnee (Port_Serie : Port) return G_Defs.Byte;
    procedure Ecrire_Donnee (Port_Serie : Port; Donnee : G_Defs.Byte);

    function Masquage_Du_Registre
                (Registre : G_Defs.Byte; Mask : C_68681.Masque.Objet)
                return G_Defs.Byte;

    Framing_Error : exception;
    Parity_Error : exception;
    Overrun_Error : exception;

end Port_Serie_68k;

E3 Meta Data

    nblk1=4
    nid=2
    hdr6=4
        [0x00] rec0=17 rec1=00 rec2=01 rec3=07e
        [0x01] rec0=17 rec1=00 rec2=04 rec3=000
        [0x02] rec0=03 rec1=00 rec2=02 rec3=000
        [0x03] rec0=08 rec1=00 rec2=02 rec3=000
    tail 0x2175651a087715aed390d 0x42a00088462060003
Free Block Chain:
  0x2: 0000  00 03 00 6e 80 2c 20 3a 20 47 5f 44 65 66 73 2e  ┆   n , : G_Defs.┆
  0x3: 0000  00 00 00 e4 80 33 65 5f 44 6f 6e 6e 65 65 20 28  ┆     3e_Donnee (┆