|
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: 19456 (0x4c00)
Types: Ada Source
Notes: 03_class, FILE, R1k_Segment, e3_tag, package body Configurateur, seg_051243
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦this⟧
with Objet_Generic;
with Bdd;
with Lecteur_68;
with Lecteur_Zone_68;
with Acces_68;
with Plage_68;
with Carte_Groupe_68;
with Carte_68;
with General_Defs;
with Config_Cl35;
with Conversion;
with Com_Cl35;
with Ss_Zone_68;
with Zone_68;
with Evenement_68;
with Jj_Hh_Mm_68;
with Heure;
package body Configurateur is
procedure Lecture_Cl35 is
Bs : constant General_Defs.Byte_String := Com_Cl35.Lecture;
begin
null;
--Text_Io.Put_Line (Conversion.Image_Hex (Bs));
end Lecture_Cl35;
procedure Invalide_Carte (Lecteur : Lecteur_68.Object) is Carte1, Carte2 : Carte_68.Object;
Plage : Plage_68.Object;
Ss_Zone : Ss_Zone_68.Object;
begin
Carte_68.Create (O => Carte1, Numero => Carte_68.T_Carte'First);
Carte_68.Create (O => Carte2, Numero => Carte_68.T_Carte'Last);
Ss_Zone_68.Initialise (Ss_Zone);
Plage_68.Create (O => Plage,
Numero => Plage_68.T_Plage'First,
Zone => Zone_68.T_Zone'First,
Per_1 => Ss_Zone,
Per_2 => Ss_Zone,
Per_3 => Ss_Zone);
for I in Plage_68.T_Plage'First .. Plage_68.T_Plage'Last loop
Plage_68.Set_Numero (Plage, I);
Com_Cl35.Ecriture
(Config_Cl35.Cl35_Invalide_Groupe_Carte (De_La_Carte => Carte1,
A_La_Carte => Carte2,
Plage => Plage,
Lecteur => Lecteur));
Lecture_Cl35;
end loop;
end Invalide_Carte;
procedure Programmation_Lecteur (Lecteur : Objet_Generic.Object) is
Lect : Lecteur_68.Object;
begin
Lect := Objet_Generic.Get_Lecteur (Lecteur);
Invalide_Carte (Lect);
Com_Cl35.Ecriture (Config_Cl35.Cl35_Parametre (Lect));
Lecture_Cl35;
Com_Cl35.Ecriture (Config_Cl35.Cl35_Site (Lect));
Lecture_Cl35;
Com_Cl35.Ecriture (Config_Cl35.Cl35_Jjhhmm (Lect, Heure.Get));
Lecture_Cl35;
Com_Cl35.Ecriture (Config_Cl35.Cl35_Beep (Lect));
Lecture_Cl35;
end Programmation_Lecteur;
procedure Programmation_Plage (Lecteur : Objet_Generic.Object;
Plage : Objet_Generic.Object) is
Lec : Lecteur_68.Object;
Pla : Plage_68.Object;
begin
Lec := Objet_Generic.Get_Lecteur (Lecteur);
Pla := Objet_Generic.Get_Plage (Plage);
Com_Cl35.Ecriture (Config_Cl35.Cl35_Plage (Lec, Pla));
Lecture_Cl35;
end Programmation_Plage;
procedure Programmation_Carte (Lecteur : Objet_Generic.Object;
Carte : Objet_Generic.Object;
Plage : Objet_Generic.Object) is
Lec : Lecteur_68.Object;
Car : Carte_68.Object;
Pla : Plage_68.Object;
begin
Lec := Objet_Generic.Get_Lecteur (Lecteur);
Car := Objet_Generic.Get_Carte (Carte);
Pla := Objet_Generic.Get_Plage (Plage);
Com_Cl35.Ecriture (Config_Cl35.Cl35_Valide_Carte (Car, Pla, Lec));
Lecture_Cl35;
end Programmation_Carte;
procedure Programmation_Config is
use Objet_Generic;
use Bdd;
Lec, L_Z, Pla, Acc, C_G, Car : Objet_Generic.Object;
begin
First_Item (Lecteur);
while not End_Iter (Lecteur) loop
Lec := Current_Item (Lecteur);
Programmation_Lecteur (Lec);
Next_Item (Lecteur);
end loop;
First_Item (Acces);
while not End_Iter (Acces) loop
Acc := Current_Item (Acces);
First_Item (Lecteur_Zone, Acces_68.Get_Zone (Get_Acces (Acc)));
while not End_Iter (Lecteur_Zone) loop
L_Z := Current_Item (Lecteur_Zone);
First_Item (Plage, Lecteur_Zone_68.Get_Zone
(Get_Lecteur_Zone (L_Z)));
while not End_Iter (Plage) loop
Pla := Current_Item (Plage);
First_Item (Lecteur, Lecteur_Zone_68.Get_Lecteur
(Get_Lecteur_Zone (L_Z)));
if not End_Iter (Lecteur) then
Lec := Current_Item (Lecteur);
Programmation_Plage (Lecteur => Lec, Plage => Pla);
First_Item (Carte_Groupe,
Acces_68.Get_Groupe (Get_Acces (Acc)));
while not End_Iter (Carte_Groupe) loop
C_G := Current_Item (Carte_Groupe);
First_Item (Carte, Carte_Groupe_68.Get_Carte
(Get_Carte_Groupe (C_G)));
if not End_Iter (Carte) then
Car := Current_Item (Carte);
Programmation_Carte
(Lecteur => Lec, Carte => Car, Plage => Pla);
end if;
Next_Item (Carte_Groupe);
end loop;
end if;
Next_Item (Plage);
end loop;
Next_Item (Lecteur_Zone);
end loop;
Next_Item (Acces);
end loop;
end Programmation_Config;
end Configurateur;
nblk1=12
nid=d
hdr6=e
[0x00] rec0=1e rec1=00 rec2=01 rec3=002
[0x01] rec0=13 rec1=00 rec2=02 rec3=020
[0x02] rec0=19 rec1=00 rec2=08 rec3=062
[0x03] rec0=1a rec1=00 rec2=0c rec3=028
[0x04] rec0=1b rec1=00 rec2=06 rec3=00e
[0x05] rec0=1a rec1=00 rec2=05 rec3=020
[0x06] rec0=0a rec1=00 rec2=03 rec3=000
[0x07] rec0=1b rec1=00 rec2=0a rec3=020
[0x08] rec0=01 rec1=00 rec2=10 rec3=002
[0x09] rec0=13 rec1=00 rec2=02 rec3=020
[0x0a] rec0=19 rec1=00 rec2=08 rec3=062
[0x0b] rec0=1a rec1=00 rec2=0c rec3=028
[0x0c] rec0=1b rec1=00 rec2=06 rec3=00e
[0x0d] rec0=1a rec1=00 rec2=05 rec3=020
[0x0e] rec0=1e rec1=00 rec2=03 rec3=016
[0x0f] rec0=1a rec1=00 rec2=11 rec3=034
[0x10] rec0=20 rec1=00 rec2=12 rec3=006
[0x11] rec0=0e rec1=00 rec2=0d rec3=000
tail 0x2154b295887995b075bf0 0x42a00088462060003
Free Block Chain:
0xd: 0000 00 12 02 6c 80 47 20 20 20 20 20 20 20 20 20 20 ┆ l G ┆
0x12: 0000 00 11 03 fc 00 23 20 20 20 20 20 20 20 20 4c 65 ┆ # Le┆
0x11: 0000 00 10 03 fc 80 0d 20 20 20 20 20 20 20 20 20 65 ┆ e┆
0x10: 0000 00 0a 01 65 80 29 74 65 6d 20 28 54 72 61 6d 65 ┆ e )tem (Trame┆
0xa: 0000 00 0b 03 fc 80 1c 5f 47 65 6e 65 72 69 63 2e 43 ┆ _Generic.C┆
0xb: 0000 00 07 03 fc 80 2c 20 20 20 20 20 20 20 20 20 4f ┆ , O┆
0x7: 0000 00 0e 03 fc 80 0e 5f 36 38 2e 4f 62 6a 65 63 74 ┆ _68.Object┆
0xe: 0000 00 04 00 4c 80 12 20 65 6e 64 20 43 72 65 61 74 ┆ L end Creat┆
0x4: 0000 00 09 03 fc 80 1c 20 20 20 20 20 20 20 43 72 65 ┆ Cre┆
0x9: 0000 00 0f 00 e5 80 10 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0xf: 0000 00 00 00 05 00 02 20 20 02 20 70 72 6f 63 65 64 ┆ proced┆