DataMuseum.dk

Presents historical artifacts from the history of:

Rational R1000/400

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about Rational R1000/400

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - download

⟦9fa4b9f79⟧ Ada Source

    Length: 6144 (0x1800)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, procedure C_Test_D, seg_057c12

Derivation

└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
    └─ ⟦cfc2e13cd⟧ »Space Info Vol 2« 
        └─⟦this⟧

E3 Source Code



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;

E3 Meta Data

    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 ┆