|
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, procedure Test_Driver, seg_05a2e8
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦this⟧
with Connexion_Serie;
with Driver_Serie;
with General_Defs;
with Port_Serie;
with Simple_Io;
procedure Test_Driver is
package G_Defs renames General_Defs;
Taille : Integer := G_Defs.Taille_Trame;
Caractere_Lu : G_Defs.Byte;
Trame1 : G_Defs.Byte_String (1 .. 12);
Trame_Reception : G_Defs.Byte_String (1 .. Taille);
package Port_A is new Connexion_Serie (No_Port => General_Defs.Port_A);
package Port_B is new Connexion_Serie (No_Port => General_Defs.Port_B);
I : Integer := 1;
begin
Driver_Serie.Interface_Serie.Emission_Reception
(Driver_Serie.Interface_Serie.R_Seule);
Driver_Serie.Interface_Serie.Validation_It
(Driver_Serie.Interface_Serie.R_Ab);
Caractere_Lu := 65;
Trame1 (1) := 16#3C#;
Trame1 (2) := 16#3C#;
Trame1 (3) := 16#00#;
Trame1 (4) := 16#05#;
Trame1 (5) := 65;
Trame1 (6) := 66;
Trame1 (7) := 65;
Trame1 (8) := 65;
Trame1 (9) := 65;
Trame1 (10) := 16#3E#;
Trame1 (11) := 16#3E#;
Trame1 (12) := 65;
-- while (I mod 5000 /= 0) loop
--
-- Port_B.Ecrire (Caractere_Lu);
-- Caractere_Lu := Port_A.Lire;
-- if (I mod 1000 = 0) then
-- Simple_Io.Put_Line (" -> Passage a " & Integer'Image (I) &
-- " caracteres avec " &
-- Character'Val (Caractere_Lu) & " .");
-- end if;
-- I := I + 1;
-- end loop;
--Simple_Io.Put_Line ("Echange de " & Integer'Image (I) &
-- " carcateres entre Port_A et Port_B");
I := 1;
-- for I in 1 .. 11 loop
-- Port_B.Ecrire (Trame1 (I));
--Simple_Io.Put_Line ("Ecrire trame INIT " & Character'Val (Trame1 (I)));
-- end loop;
-- while (I mod 5 /= 0) loop
-- Port_A.Lire (Trame => Trame_Reception, Taille => Taille);
Simple_Io.Put_Line ("Lecture OK");
--for I in 1 .. Taille loop
Port_A.Ecrire (Trame1);
--end loop;
-- end loop;
Simple_Io.Put_Line ("Echange de 100 trames entre Port_A et Port_B");
exception
when Port_B.Envoi_Trame_Taille_Nulle =>
Simple_Io.Put_Line ("Envoi Trame taille Nulle ");
end Test_Driver;
pragma Main;
nblk1=4
nid=3
hdr6=6
[0x00] rec0=20 rec1=00 rec2=01 rec3=00c
[0x01] rec0=1e rec1=00 rec2=04 rec3=022
[0x02] rec0=0b rec1=00 rec2=02 rec3=000
[0x03] rec0=04 rec1=00 rec2=02 rec3=000
tail 0x21769c0e8892491809731 0x42a00088462060003
Free Block Chain:
0x3: 0000 00 00 01 11 00 13 20 20 20 20 20 20 20 20 2d 2d ┆ --┆