|
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 !**********┆