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 - metrics - download

⟦6ede01da9⟧ Ada Source

    Length: 3072 (0xc00)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, package Interrupt, seg_01c4ac

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



package Interrupt is
    type Signal_Type is
       (Sigprof,  
        Sigusr2,  
        Sigusr1,  
        Sigpwr,  
        Sigwinch,  
        Sigmsg,  
        Res26, Sigxfsz,  
        Sigxcpu,  
        Sigio,  
        Sigttou,  
        Sigttin,  
        Sigchld,  
        Sigcont,  
        Sigtstp,  
        Sigstop,  
        Sigurg,  
        Sigterm,  
        Sigalrm,  
        Sigpipe,  
        Sigsys,  
        Sigsegv,  
        Sigbus,  
        Sigkill,  
        Sigfpe,  
        Sigemt,  
        Sigiot,  
        Sigtrap,  
        Sigill,  
        Sigquit,  
        Sigint,  
        Sighup,  
        Res0, Res63, Sigsound,  
        Sigretract, Siggrant,  
        Sig_59, Res58, Res57, Res56, Res55, Res54, Res53, Res52, Res51,
        Res50, Res49, Res48, Res47, Res46, Res45, Res44, Res43, Res42, Res41,
        Res40, Res39, Res38, Res37, Res36, Res35, Sigvtalrm, Sigdanger);
    type Signal_Mask_Type is array (Signal_Type) of Boolean;
    pragma Pack (Signal_Mask_Type);
    function Get_Signal_Mask return Signal_Mask_Type;
    procedure Set_Signal_Mask (Signal_Mask : Signal_Mask_Type);
    function Get_Signal return Signal_Type;
    type Descriptor is private;
    function Source return Descriptor;
    package Preemption_Control is
        procedure Disable_Preemption;
        procedure Enable_Preemption;
    end Preemption_Control;
private
    pragma List (Off);
    type Descriptor is
        record
            null;
        end record;
end Interrupt;

E3 Meta Data

    nblk1=2
    nid=0
    hdr6=4
        [0x00] rec0=28 rec1=00 rec2=01 rec3=02a
        [0x01] rec0=12 rec1=00 rec2=02 rec3=000
    tail 0x21719891e83657cf06f24 0x42a00088462060003