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

⟦ed89a84c5⟧ Ada Source

    Length: 2048 (0x800)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, procedure Pam_Slot1, seg_058585

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_Slot1 is

    package Vsip1 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 Vsip1.Mod101 (Base_Address_Module => 16#600#);



begin  
    Text_Io.Put_Line ("running vsip   setup ...");
    Vsip1.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;
        delay 1.0;  
        Text_Io.Put_Line ("led off delaying 1 s");
        Module.Led_Off;  
        delay 1.0;
    end loop;
end Pam_Slot1;
pragma Main;

E3 Meta Data

    nblk1=1
    nid=0
    hdr6=2
        [0x00] rec0=22 rec1=00 rec2=01 rec3=000
    tail 0x21765c54488274ac77deb 0x42a00088462060003