|
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: 16384 (0x4000)
Types: Ada Source
Notes: 03_class, FILE, R1k_Segment, e3_tag, procedure Test_Cl35, seg_04e8d0
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦this⟧
with Text_Io;
use Text_Io;
with Lecteur_68;
with Parametre_68;
with Site_68;
with Config_Cl35;
with General_Defs;
with Conversion;
with Horaire_68;
with Jj_Hh_Mm_68;
with Plage_68;
with Semaine_68;
with Ss_Zone_68;
with Carte_68;
with Evenement_68;
procedure Test_Cl35 is
Parametre : Parametre_68.Object;
Site : Site_68.Object;
Lecteur : Lecteur_68.Object;
Horaire : Horaire_68.Object;
Jjhhmm : Jj_Hh_Mm_68.Object;
Plage : Plage_68.Object;
Semaine : Semaine_68.Object;
Ss_Zone : Ss_Zone_68.Object;
Carte, Carte2 : Carte_68.Object;
begin
Site_68.Create (O => Site, N => 1);
Parametre_68.Create (O => Parametre,
Tempo => 2,
Apb => Parametre_68.Actif,
Veille => Parametre_68.En_Service,
Entree_Tor => Parametre_68.Contact,
Evenement => Parametre_68.Tous);
Lecteur_68.Create
(O => Lecteur, Numero => 3, Site => Site, Parametre => Parametre);
Horaire_68.Create (O => Horaire, Heure => 4, Minute => 5);
Jj_Hh_Mm_68.Create (O => Jjhhmm,
Jour => Jj_Hh_Mm_68.Lundi,
Horaire => Horaire);
Semaine_68.Create_Semaine_Vide (Semaine);
Semaine_68.Ajout_Jour (Semaine, Semaine_68.Mercredi);
Ss_Zone_68.Create (O => Ss_Zone,
Deb_1 => Horaire,
Fin_1 => Horaire,
Deb_2 => Horaire,
Fin_2 => Horaire,
Jour_Sem => Semaine);
Plage_68.Create (O => Plage,
Numero => 6,
Zone => 7,
Per_1 => Ss_Zone,
Per_2 => Ss_Zone,
Per_3 => Ss_Zone);
Carte_68.Create (Carte, 8);
Carte_68.Create (Carte2, 10);
declare
Bs : constant General_Defs.Byte_String :=
Config_Cl35.Cl35_Parametre (Lecteur => Lecteur);
Bs2 : constant General_Defs.Byte_String :=
Config_Cl35.Cl35_Site (Lecteur => Lecteur);
Bs3 : constant General_Defs.Byte_String :=
Config_Cl35.Cl35_Jjhhmm (Lecteur => Lecteur, Jjhhmm => Jjhhmm);
Bs4 : constant General_Defs.Byte_String :=
Config_Cl35.Cl35_Valide_Carte
(Carte => Carte, Plage => Plage, Lecteur => Lecteur);
Bs5 : constant General_Defs.Byte_String :=
Config_Cl35.Cl35_Invalide_Carte
(Carte => Carte, Plage => Plage, Lecteur => Lecteur);
Bs6 : constant General_Defs.Byte_String :=
Config_Cl35.Cl35_Plage (Lecteur => Lecteur, Plage => Plage);
Bs7 : constant General_Defs.Byte_String :=
Config_Cl35.Cl35_Beep (Lecteur => Lecteur);
Bs8 : constant General_Defs.Byte_String :=
Config_Cl35.Cl35_Demande_Parametre (Lecteur => Lecteur);
Bs9 : constant General_Defs.Byte_String :=
Config_Cl35.Cl35_Demande_Carte_Valide (Lecteur => Lecteur);
Bs10 : constant General_Defs.Byte_String :=
Config_Cl35.Cl35_Demande_Carte_Invalide (Lecteur => Lecteur);
Bs11 : constant General_Defs.Byte_String :=
Config_Cl35.Cl35_Demande_Horloge (Lecteur => Lecteur);
Bs12 : constant General_Defs.Byte_String :=
Config_Cl35.Cl35_Demande_Site (Lecteur => Lecteur);
Bs13 : constant General_Defs.Byte_String :=
Config_Cl35.Cl35_En_Veille (Lecteur => Lecteur);
Bs14 : constant General_Defs.Byte_String :=
Config_Cl35.Cl35_En_Service (Lecteur => Lecteur);
Bs15 : constant General_Defs.Byte_String :=
Config_Cl35.Cl35_Ack (Lecteur => Lecteur);
Bs16 : constant General_Defs.Byte_String :=
Config_Cl35.Cl35_Nak (Lecteur => Lecteur);
Bs17 : constant General_Defs.Byte_String :=
Config_Cl35.Cl35_Pilotage_1 (Lecteur => Lecteur);
Bs18 : constant General_Defs.Byte_String :=
Config_Cl35.Cl35_Demande_Evenement (Lecteur => Lecteur);
Bs19 : constant General_Defs.Byte_String :=
Config_Cl35.Cl35_Valide_Groupe_Carte (De_La_Carte => Carte,
A_La_Carte => Carte2,
Plage => Plage,
Lecteur => Lecteur);
Bs20 : constant General_Defs.Byte_String :=
Config_Cl35.Cl35_Invalide_Groupe_Carte (De_La_Carte => Carte,
A_La_Carte => Carte2,
Plage => Plage,
Lecteur => Lecteur);
begin
Put_Line ("Lecteur : ");
New_Line;
Put_Line (Lecteur_68.Image (O => Lecteur));
New_Line;
Put_Line ("programmation du lecteur ");
New_Line;
Put_Line (Conversion.Image (Bs));
Put_Line (Conversion.Image_Hex (Bs));
New_Line;
Put_Line ("Programmation du site");
New_Line;
Put_Line (Conversion.Image (Bs2));
Put_Line (Conversion.Image_Hex (Bs2));
New_Line;
Put_Line ("Programmation de l'heure :");
Put_Line (Conversion.Image (Bs3));
Put_Line (Conversion.Image_Hex (Bs3));
New_Line;
Put_Line ("Validation d'une carte");
Put_Line (Conversion.Image (Bs4));
Put_Line (Conversion.Image_Hex (Bs4));
New_Line;
Put_Line ("Invalidation d'une carte");
Put_Line (Conversion.Image (Bs5));
Put_Line (Conversion.Image_Hex (Bs5));
New_Line;
Put_Line ("Programmation d'une plage horaire");
Put_Line (Conversion.Image (Bs6));
Put_Line (Conversion.Image_Hex (Bs6));
New_Line;
Put_Line ("beep");
Put_Line (Conversion.Image (Bs7));
Put_Line (Conversion.Image_Hex (Bs7));
New_Line;
Put_Line ("param");
Put_Line (Conversion.Image (Bs8));
Put_Line (Conversion.Image_Hex (Bs8));
New_Line;
Put_Line ("cartes valides");
Put_Line (Conversion.Image (Bs9));
Put_Line (Conversion.Image_Hex (Bs9));
New_Line;
Put_Line ("cartes invalides");
Put_Line (Conversion.Image (Bs10));
Put_Line (Conversion.Image_Hex (Bs10));
New_Line;
Put_Line ("Horloge");
Put_Line (Conversion.Image (Bs11));
Put_Line (Conversion.Image_Hex (Bs11));
New_Line;
Put_Line ("Site");
Put_Line (Conversion.Image (Bs12));
Put_Line (Conversion.Image_Hex (Bs12));
New_Line;
Put_Line ("Mise en veille");
Put_Line (Conversion.Image (Bs13));
Put_Line (Conversion.Image_Hex (Bs13));
New_Line;
Put_Line ("Mise en service");
Put_Line (Conversion.Image (Bs14));
Put_Line (Conversion.Image_Hex (Bs14));
New_Line;
Put_Line ("Ack");
Put_Line (Conversion.Image (Bs15));
Put_Line (Conversion.Image_Hex (Bs15));
New_Line;
Put_Line ("nak");
Put_Line (Conversion.Image (Bs16));
Put_Line (Conversion.Image_Hex (Bs16));
New_Line;
Put_Line ("Pilotage a 1");
Put_Line (Conversion.Image (Bs17));
Put_Line (Conversion.Image_Hex (Bs17));
New_Line;
Put_Line ("Evenement");
Put_Line (Conversion.Image (Bs18));
Put_Line (Conversion.Image_Hex (Bs18));
New_Line;
Put_Line ("validation d'un groupe de cartes ");
Put_Line (Conversion.Image (Bs19));
Put_Line (Conversion.Image_Hex (Bs19));
New_Line;
Put_Line ("Invalidation d'un groupe de cartes");
Put_Line (Conversion.Image (Bs20));
Put_Line (Conversion.Image_Hex (Bs20));
New_Line;
Put_Line ("Analyse de trame cl35");
Put_Line ("Type : " & Conversion.Image_Hex
((1 => Config_Cl35.Get_Type_Rapport (Bs20))));
Put_Line ("lecteur : " & Natural'Image
(Config_Cl35.Get_Lecteur_Rapport (Bs20)));
Put_Line ("Taille : " & Natural'Image
(Config_Cl35.Get_Size_Rapport (Bs20)));
Put_Line ("Data : " & Conversion.Image_Hex
(Config_Cl35.Get_Data_Rapport (Bs20)));
New_Line;
Put_Line ("rapport site");
Put_Line (Site_68.Image (Config_Cl35.Get_Site
(Config_Cl35.Get_Data_Rapport (Bs2))));
New_Line;
Put_Line ("rapport parametre ");
Put_Line (Parametre_68.Image (Config_Cl35.Get_Parametre
(Config_Cl35.Get_Data_Rapport (Bs))));
New_Line;
Put_Line ("rapport JJHHMM");
Put_Line (Jj_Hh_Mm_68.Image (Config_Cl35.Get_Jjhhmm
(Config_Cl35.Get_Data_Rapport (Bs3))));
New_Line;
Put_Line ("rapport plage :");
Put_Line (Conversion.Image_Hex (Bs6));
Put_Line (Conversion.Image_Hex (Config_Cl35.Get_Data_Rapport (Bs6)));
Put_Line (Plage_68.Image (Config_Cl35.Get_Plage
(Config_Cl35.Get_Data_Rapport (Bs6))));
New_Line;
Put_Line ("rapport Carte :");
declare
Rapport : General_Defs.Byte_String (1 .. 10);
I : Natural;
De, A : Carte_68.Object;
begin
Rapport (1) := 1;
Rapport (2) := 2;
Rapport (3) := 3;
Rapport (4) := 4;
Rapport (5) := 5;
Rapport (6) := 6;
Rapport (7) := 7;
Rapport (8) := 8;
Config_Cl35.Get_Carte (Rapport, De, A, I);
Put_Line (Carte_68.Image (De));
Put_Line (Carte_68.Image (A));
Config_Cl35.Get_Carte (Rapport (I + 1 .. Rapport'Last), De, A, I);
Put_Line (Carte_68.Image (De));
Put_Line (Carte_68.Image (A));
end;
New_Line;
Put_Line ("rapport evenement");
declare
Rapport : General_Defs.Byte_String (1 .. 20);
Evenement : Evenement_68.Object;
I : Natural;
begin
Rapport (1) := 12;
Rapport (2) := 34;
Rapport (3) := 05;
Rapport (4) := 06;
Rapport (5) := 78;
Rapport (6) := 0;
Rapport (7) := 16#00#;
Rapport (8) := 11;
Rapport (9) := 22;
Rapport (10) := 1;
Rapport (11) := 39;
Rapport (12) := 99;
Rapport (13) := 1;
Rapport (14) := 16#35#;
Config_Cl35.Get_Evenement (Data => Rapport,
Lecteur => 63,
Evenement => Evenement,
Indice_Fin => I);
Put_Line (Evenement_68.Image (Evenement));
Config_Cl35.Get_Evenement (Data => Rapport (I + 1 .. Rapport'Last),
Lecteur => 63,
Evenement => Evenement,
Indice_Fin => I);
Put_Line (Evenement_68.Image (Evenement));
end;
end;
end Test_Cl35;
nblk1=f
nid=d
hdr6=1c
[0x00] rec0=25 rec1=00 rec2=01 rec3=018
[0x01] rec0=19 rec1=00 rec2=0c rec3=050
[0x02] rec0=01 rec1=00 rec2=0a rec3=012
[0x03] rec0=11 rec1=00 rec2=06 rec3=038
[0x04] rec0=11 rec1=00 rec2=05 rec3=054
[0x05] rec0=12 rec1=00 rec2=07 rec3=052
[0x06] rec0=10 rec1=00 rec2=08 rec3=040
[0x07] rec0=1c rec1=00 rec2=09 rec3=03a
[0x08] rec0=1b rec1=00 rec2=04 rec3=018
[0x09] rec0=18 rec1=00 rec2=03 rec3=014
[0x0a] rec0=18 rec1=00 rec2=02 rec3=00c
[0x0b] rec0=22 rec1=00 rec2=0b rec3=004
[0x0c] rec0=1b rec1=00 rec2=0f rec3=072
[0x0d] rec0=0a rec1=00 rec2=0e rec3=000
[0x0e] rec0=00 rec1=00 rec2=00 rec3=019
tail 0x2154a252e876f5fcc1891 0x42a00088462060003
Free Block Chain:
0xd: 0000 00 00 00 ae 00 38 20 20 20 20 20 20 20 20 20 20 ┆ 8 ┆