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

⟦e58a9b352⟧ Ada Source

    Length: 3072 (0xc00)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, procedure Pam_Slot5, seg_05a9dc

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 Defined_Type;
--with Text_Io;
with Vme;
with Vsip;
procedure Pam_Slot5 is

    package Vsip5 is new Vsip (Base_Address => 16#8000#,
                               Vme_Position => Vme.Slot1,
                               Scim_0 => Defined_Type.Mod101,
                               Scim_1 => Defined_Type.No_Module,
                               Scim_2 => Defined_Type.No_Module,
                               Scim_3 => Defined_Type.No_Module);

    package Module is new Vsip5.Mod101 (Base_Address_Module => 16#600#);

begin
    --Text_Io.Put_Line ("running vsip   setup ...");
    Vsip5.Setup;
    --Text_Io.Put_Line ("running mod101 setup ...");
    Module.Setup;
    while True loop
        --Text_Io.Put_Line ("led on  delaying 1 s");
        --Module.Led_On;
        Module.Write_Pin (24, True);
        delay 0.05;
        Module.Write_Pin (40, False);
        delay 1.0;
        --Text_Io.Put_Line ("led off delaying 1 s");
        --Module.Led_Off;
        Module.Write_Pin (24, False);
        delay 0.05;
        Module.Write_Pin (40, True);
        delay 1.0;
    end loop;
end Pam_Slot5;

pragma Main;

E3 Meta Data

    nblk1=2
    nid=0
    hdr6=4
        [0x00] rec0=1e rec1=00 rec2=01 rec3=024
        [0x01] rec0=09 rec1=00 rec2=02 rec3=001
    tail 0x2176a22c48938707dce31 0x42a00088462060003