|
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 - metrics - download
Length: 6144 (0x1800)
Types: Ada Source
Notes: 03_class, FILE, R1k_Segment, e3_tag, procedure C_Test_D, seg_057c12
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦this⟧
with C_68k_Io;
with C_Driver_Serie;
with General_Defs;
--with C_Port_Serie;
--with Simple_Io;
procedure C_Test_D 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 C_68k_Io (No_Port => General_Defs.Port_A);
-- package Port_B is new C_68k_Io (No_Port => General_Defs.Port_B);
-- I : Integer := 1;
begin
C_Driver_Serie.Interface_Serie.Emission_Reception
(C_Driver_Serie.Interface_Serie.R_Seule);
C_Driver_Serie.Interface_Serie.Validation_It
(C_Driver_Serie.Interface_Serie.R_Ab);
-- Caractere_Lu := 65;
Trame1 (1) := 16#65#;
Trame1 (2) := 16#66#;
Trame1 (3) := 16#67#;
Trame1 (4) := 16#68#;
Trame1 (5) := 69;
Trame1 (6) := 70;
Trame1 (7) := 71;
Trame1 (8) := 72;
Trame1 (9) := 73;
Trame1 (10) := 16#3E#;
Trame1 (11) := 16#3E#;
Trame1 (12) := 65;
-- I := 1;
-- Simple_Io.Put_Line ("Ecrire trame INIT ");
-- Port_A.Ecrire (Trame1 (5));
loop
-- Simple_Io.Put_Line ("Ecrire dans loop ");
Port_A.Ecrire (Trame1);
delay 0.01;
-- Simple_Io.Put_Line ("Ecrire trame dedans ");
end loop;
-- for I in 1 .. 11 loop
-- Port_A.Ecrire (Trame1 (I));
-- Simple_Io.Put_Line ("Ecrire trame INIT " & Character'Val (Trame1 (I)));
-- end loop;
end C_Test_D;
pragma Main;
nblk1=5
nid=3
hdr6=4
[0x00] rec0=21 rec1=00 rec2=01 rec3=004
[0x01] rec0=1b rec1=00 rec2=02 rec3=000
[0x02] rec0=11 rec1=00 rec2=03 rec3=000
[0x03] rec0=05 rec1=71 rec2=cb rec3=342
[0x04] rec0=c0 rec1=00 rec2=00 rec3=100
tail 0x21764f80487d160e2f76a 0x42a00088462060003
Free Block Chain:
0x3: 0000 00 04 01 61 80 12 6e 20 31 20 2e 2e 20 54 61 69 ┆ a n 1 .. Tai┆
0x4: 0000 00 05 00 04 80 01 20 01 02 2d 50 6f 72 74 5f 42 ┆ -Port_B┆
0x5: 0000 00 00 03 fc 80 09 20 20 20 20 20 6c 6f 6f 70 09 ┆ loop ┆