|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 5120 (0x1400) Types: Ada Source Notes: 03_class, FILE, R1k_Segment, e3_tag, generic, package Port_Serie, seg_051aff
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000 └─ ⟦cfc2e13cd⟧ »Space Info Vol 2« └─⟦this⟧
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 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 (Abort_Safe); end Transmettre; Erreur_Interruption : exception; end Port_Serie;
nblk1=4 nid=4 hdr6=6 [0x00] rec0=1a rec1=00 rec2=01 rec3=04a [0x01] rec0=15 rec1=00 rec2=02 rec3=028 [0x02] rec0=0d rec1=00 rec2=03 rec3=000 [0x03] rec0=0b rec1=00 rec2=02 rec3=000 tail 0x217590ef4879b51f76bc7 0x42a00088462060003 Free Block Chain: 0x4: 0000 00 00 00 4f 80 21 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ O !**********┆