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

⟦181e16a40⟧ Ada Source

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

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 General_Defs;
with Port_Serie_68k;
with System;
generic

------------------------------------------------------------------------------
-- L'interruption pour le DUART pourra etre installee dans la table de vecteur
-- predefinie au vecteur 100 qui correspond a l'adresse 400.
-- ***************************************************************************
--                  Initialisation a l' instantiation du package
-- ***************************************************************************

    Vecteur_Interruption : General_Defs.Vecteur_It :=
       General_Defs.Valeur_Vecteur_It;

    with procedure Lecture (Car : General_Defs.Byte;
                            N_Port : General_Defs.Port);
    with procedure Ecriture (Car : out General_Defs.Byte;
                             N_Port : General_Defs.Port);

-- ***************************************************************************

package C_Port_Serie is

-- ***************************************************************************
--   Instantiation du package port_serie_68k. L' adresse pourra etre modifiee
-- ***************************************************************************


    package Serie is new Port_Serie_68k (Adresse_Circuit =>
                                            System.Address'Ref (16#03001000#));

-- ***************************************************************************
--  possibilite de validation de l'emission-reception
--     Ea  ->  port A en emission-reception port B -> en reception seule
--     Eb  ->  port A en reception seule  port B -> en emission reception
-- ***************************************************************************


    type Sorte_E_R is (Ea, Eb, R_Seule, Rien);
    type Sorte_It is (R_Ab, Ea_R, Eb_R, Pas_It);

-- ***************************************************************************

    procedure Initialiser (N_Port : General_Defs.Port;
                           Vitesse : General_Defs.Baud_Rate;
                           Parite : General_Defs.Parite;
                           Nb_Bit : General_Defs.Nbre_Bits_Par_Caractere;
                           Nb_Bit_Stop : General_Defs.Stop_Bits);

    procedure Emission_Reception (Config : Sorte_E_R);
    procedure Validation_It (Sorte : Sorte_It);
    procedure Envoi_Donnee_Par_It (Type_Port : General_Defs.Port);

    task Transmettre is
        entry Lit_Ecrit_Caractere;
        for Lit_Ecrit_Caractere use at
           Serie.Calcul_Adresse_It (Vecteur_Interruption);
        --       pragma Passive;
    end Transmettre;

    Erreur_Interruption : exception;
end C_Port_Serie;

E3 Meta Data

    nblk1=4
    nid=3
    hdr6=6
        [0x00] rec0=1a rec1=00 rec2=01 rec3=046
        [0x01] rec0=15 rec1=00 rec2=04 rec3=04c
        [0x02] rec0=12 rec1=00 rec2=02 rec3=000
        [0x03] rec0=0d rec1=00 rec2=03 rec3=000
    tail 0x21765001087d175ad59d7 0x42a00088462060003
Free Block Chain:
  0x3: 0000  00 00 00 6b 80 42 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ┆   k B**********┆