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

⟦b99b5dc0d⟧ Ada Source

    Length: 5120 (0x1400)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, package Configuration_Serie, seg_04d417

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 System;  
with System_Utilities;  
with Const_Serie;
package Configuration_Serie is
    subtype Adresse is System.Address;

    -- Stop Bit 1 ou 2
    subtype Valeurs_Stop_Bits is System_Utilities.Stop_Bits_Range;

    -- Nombre de bits par caractere, de 5 a 8
    subtype Valeurs_Nbre_Bits_Par_Caractere is
       System_Utilities.Character_Bits_Range;

    -- Parite Sans, Paire, Impaire
    subtype Valeurs_Parite is System_Utilities.Parity_Kind;

    --
    -- Ports 68681
    -- 0 Pas de port, 1 Port A selectionne, 2 Port B selectionne
    --
    subtype Numport is Integer range 0 .. 2;

    type Baud_Rate is (Bd300, Bd600, Bd1200, Bd2400, Bd4800, Bd9600, Bd19400);

    procedure Pos_Vitesse
                 (Adr_Port : Adresse := Const_Serie.Adresse_Base_Duart_1;
                  Vitesse : Baud_Rate);

    procedure Pos_Parite (Adr_Port : Adresse :=
                             Const_Serie.Adresse_Base_Duart_1;
                          Parite : Valeurs_Parite);

    procedure Pos_Stop_Bits (Adr_Port : Adresse :=
                                Const_Serie.Adresse_Base_Duart_1;
                             Valeurs_Stop_Bits : Baud_Rate);

    procedure Pos_Nbre_Bits_Caracatere
                 (Adr_Port : Adresse := Const_Serie.Adresse_Base_Duart_1;
                  Valeurs_Nbre_Bits_Par_Caractere : Baud_Rate);

    procedure Validation_Reception (Adr_Port : Adresse :=
                                       Const_Serie.Adresse_Base_Duart_1);


    procedure Validation_Emission (Adr_Port : Adresse :=
                                      Const_Serie.Adresse_Base_Duart_1);

    procedure Validation_Interruption_Reception
                 (Adr_Port : Adresse := Const_Serie.Adresse_Base_Duart_1);

    function Emetteur_Pret
                (Adr_Port : Adresse := Const_Serie.Adresse_Base_Duart_1)
                return Boolean;

    function Recepteur_Pret
                (Adr_Port : Adresse := Const_Serie.Adresse_Base_Duart_1)
                return Boolean;

    function Quel_Port_A_Recu return Numport;


end Configuration_Serie;

E3 Meta Data

    nblk1=4
    nid=3
    hdr6=6
        [0x00] rec0=20 rec1=00 rec2=01 rec3=02c
        [0x01] rec0=19 rec1=00 rec2=04 rec3=03a
        [0x02] rec0=07 rec1=00 rec2=02 rec3=000
        [0x03] rec0=05 rec1=4b rec2=cc rec3=642
    tail 0x21754c1788761756439ff 0x42a00088462060003
Free Block Chain:
  0x3: 0000  00 00 00 44 80 0e 72 6e 20 4e 75 6d 50 6f 72 74  ┆   D  rn NumPort┆