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

⟦39db27802⟧ Ada Source

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

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 Evenement_Interruption is (Reception_A, Emission_A, Reception_B,
                                    Emission_B, Emission_Reception_A,
                                    Emission_Reception_B, Inconnu);
    type Mode_Emission_Reception is (E, R, E_R, Ea_R, Eb_R, Aucun);
    procedure Pos_Vitesse (Port_Serie : G_Defs.Port;
                           Vitesse : G_Defs.Baud_Rate);
    procedure Pos_Parite (Port_Serie : G_Defs.Port; Val_Parite : G_Defs.Parite);
    procedure Pos_Stop_Bits (Port_Serie : G_Defs.Port;
                             Val_Stop_Bits : G_Defs.Stop_Bits);
    procedure Pos_Nbre_Bits_Caractere
                 (Port_Serie : G_Defs.Port;
                  Val_Nbre_Bits_Par_Caractere : G_Defs.Nbre_Bits_Par_Caractere);
    procedure Emission_Reception (Port_Serie : G_Defs.Port;
                                  Mode : Mode_Emission_Reception);
    procedure Pos_Interruption (Mode : Mode_Emission_Reception);  
    function Calcul_Adresse_It
                (No_It : G_Defs.Vecteur_It) return G_Defs.Adresse;
    function Donner_Evenement_Interruption return Evenement_Interruption;

    function Lire_Donnee (Port_Serie : G_Defs.Port) return G_Defs.Byte;
    procedure Ecrire_Donnee (Port_Serie : G_Defs.Port; Donnee : G_Defs.Byte);

    function Lire_Donnee_Sans_It (Port_Serie : G_Defs.Port) return G_Defs.Byte;
    procedure Ecrire_Donnee_Sans_It
                 (Port_Serie : G_Defs.Port; Donnee : G_Defs.Byte);

    procedure Ecrire_Donnee_Essai
                 (Port_Serie : G_Defs.Port; Donnee : G_Defs.Byte);
    function Masquage_Du_Registre
                (Registre : G_Defs.Byte; Mask : C_68681.Masque.Objet)
                return G_Defs.Byte;
    --
    -- Exceptions
    --
    Framing_Error : exception;
    Parity_Error : exception;
    Overrun_Error : exception;

end Port_Serie_68k;

E3 Meta Data

    nblk1=4
    nid=2
    hdr6=6
        [0x00] rec0=17 rec1=00 rec2=01 rec3=026
        [0x01] rec0=13 rec1=00 rec2=03 rec3=046
        [0x02] rec0=0c rec1=00 rec2=04 rec3=000
        [0x03] rec0=08 rec1=00 rec2=02 rec3=000
    tail 0x21764b5ba87cd5e87cead 0x42a00088462060003
Free Block Chain:
  0x2: 0000  00 00 00 9b 00 11 20 20 20 20 2d 2d 20 45 78 63  ┆          -- Exc┆