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

⟦90aff966f⟧ Ada Source

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

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

    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=3
    hdr6=6
        [0x00] rec0=17 rec1=00 rec2=01 rec3=046
        [0x01] rec0=14 rec1=00 rec2=04 rec3=00c
        [0x02] rec0=08 rec1=00 rec2=02 rec3=000
        [0x03] rec0=08 rec1=00 rec2=02 rec3=000
    tail 0x21769c0a68924917b3e0f 0x42a00088462060003
Free Block Chain:
  0x3: 0000  00 00 00 e4 80 33 65 5f 44 6f 6e 6e 65 65 20 28  ┆     3e_Donnee (┆