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

⟦96d90bae1⟧ Ada Source

    Length: 5120 (0x1400)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, package body Essai_Port, seg_057b88

Derivation

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

with C_Const;
--with Essai_Delai;
with General_Defs;
with Simple_Io;
package body Essai_Port is
    procedure Init is
        -- Reg_Duart, Reg_Cra, Reg_Mra, Reg_Csra,
        -- Reg_Ivr, Reg_Picr0, Reg_Picr1, Reg_Picr5 : General_Defs.Byte;
        -- for Reg_Duart use at C_Const.Duart;
        -- for Reg_Cra use at C_Const.Cra;
        -- for Reg_Mra use at C_Const.Mra;
        -- for Reg_Csra use at C_Const.Csra;
        -- for Reg_Ivr use at C_Const.Ivr;
        -- for Reg_Picr0 use at C_Const.Pic_R0;
        -- for Reg_Picr1 use at C_Const.Pic_R1;
        -- for Reg_Picr5 use at C_Const.Pic_R5;
    begin
        -- Reg_Cra := 2#00011010#;
        -- Reg_Mra := 2#00010011#;
        -- Reg_Mra := 2#00000111#;
        -- Reg_Csra := 2#10111011#;
        -- Reg_Ivr := 2#01100100#;
        -- Reg_Cra := 2#01000101#;
        -- Reg_Picr0 := 2#00000001#;
        -- Reg_Picr1 := 2#00000000#;
        -- Reg_Picr5 := 2#00000000#;
        null;
    end Init;


    procedure Valide_It is
        -- Reg_Imr : General_Defs.Byte;
        -- for Reg_Imr use at C_Const.Imr;
    begin  
        Serie.Emission_Reception
           (Port_Serie => General_Defs.Port_A, Mode => Serie.E_R);
        Serie.Pos_Interruption (Serie.Ea_R);
        --    Reg_Imr := 2#00000001#;
    end Valide_It;

    task body Transmettre is
        -- Reg_Data : General_Defs.Byte;
        -- for Reg_Data use at C_Const.Data_A;
        Caractere : General_Defs.Byte := 65;
    begin
        loop
            --Simple_Io.Put_Line ("tache it");
            accept Ecrit_Caractere do
                --Simple_Io.Put_Line ("it 1er");
                --      Reg_Data := 65;
                --Serie.Emission_Reception
                --   (Port_Serie => General_Defs.Port_A, Mode => Serie.E_R);
                Serie.Ecrire_Donnee_Sans_It
                   (Port_Serie => General_Defs.Port_A, Donnee => Caractere);
                Serie.Emission_Reception
                   (Port_Serie => General_Defs.Port_A, Mode => Serie.R);
                --Simple_Io.Put_Line ("it fin");
--                Essai_Delai.Delais.Stop;
            end Ecrit_Caractere;
        end loop;
    end Transmettre;
end Essai_Port;

    nblk1=4
    nid=4
    hdr6=6
        [0x00] rec0=1d rec1=00 rec2=01 rec3=00c
        [0x01] rec0=1b rec1=00 rec2=02 rec3=038
        [0x02] rec0=08 rec1=00 rec2=03 rec3=000
        [0x03] rec0=05 rec1=00 rec2=02 rec3=000
    tail 0x21764c60a87cd846ef7fa 0x42a00088462060003
Free Block Chain:
  0x4: 0000  00 00 00 c8 80 0c 3d 3e 20 53 65 72 69 65 2e 52  ┆      => Serie.R┆