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

⟦87c615645⟧ Ada Source

    Length: 4096 (0x1000)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, package body V_I_Intr, seg_04b9af

Derivation

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

with System;
use System;
with Ada_Krn_Defs;
with Ada_Krn_I;
package body V_I_Intr is

    pragma Suppress (All_Checks);
    pragma Suppress (Exception_Tables);

    function Attach_Isr
                (Iv : Intr_Vector_Id_T; Isr : System.Address) return Boolean is
    begin
        if Ada_Krn_I.Isr_Attach (Ada_Krn_Defs.Intr_Vector_Id_T (Iv), Isr) /=
           Ada_Krn_Defs.Bad_Intr_Vector then
            return True;
        else
            return False;
        end if;
    end Attach_Isr;

    function Detach_Isr (Iv : Intr_Vector_Id_T) return Boolean is
    begin
        if Ada_Krn_I.Isr_Detach (Ada_Krn_Defs.Intr_Vector_Id_T (Iv)) /=
           Ada_Krn_Defs.Bad_Intr_Vector then
            return True;
        else
            return False;
        end if;
    end Detach_Isr;

    procedure Enter_Isr is
    begin
        raise V_I_Intr_Not_Supported;
    end Enter_Isr;
    procedure Complete_Isr is
    begin
        raise V_I_Intr_Not_Supported;
    end Complete_Isr;

    procedure Enter_Supervisor_State is
    begin
        Ada_Krn_I.Task_Enter_Supervisor_State;
    end Enter_Supervisor_State;
    procedure Leave_Supervisor_State is
    begin
        Ada_Krn_I.Task_Leave_Supervisor_State;
    end Leave_Supervisor_State;

    procedure Get_Interrupts (Old_Status : out Intr_Status_T) is
        Status : Ada_Krn_Defs.Intr_Status_T;
    begin
        Ada_Krn_I.Interrupts_Get_Status (Status);
        Old_Status := Intr_Status_T (Status);
    end Get_Interrupts;

    procedure Disable_Interrupts
                 (Old_Status : out Intr_Status_T;
                  New_Status : Intr_Status_T := Disable_Intr_Status) is
        Status : Ada_Krn_Defs.Intr_Status_T;
    begin
        Ada_Krn_I.Interrupts_Set_Status
           (Status, Ada_Krn_Defs.Intr_Status_T (New_Status));
        Old_Status := Intr_Status_T (Status);
    end Disable_Interrupts;

    procedure Restore_Interrupts (Old_Status : Intr_Status_T) is
        Status : Ada_Krn_Defs.Intr_Status_T;
    begin
        Ada_Krn_I.Interrupts_Set_Status
           (Status, Ada_Krn_Defs.Intr_Status_T (Old_Status));
    end Restore_Interrupts;

    function Disable_Intr_Status return Intr_Status_T is
    begin
        return Intr_Status_T (Ada_Krn_Defs.Disable_Intr_Status);
    end Disable_Intr_Status;

    function Enable_Intr_Status return Intr_Status_T is
    begin
        return Intr_Status_T (Ada_Krn_Defs.Enable_Intr_Status);
    end Enable_Intr_Status;

end V_I_Intr;

    nblk1=3
    nid=0
    hdr6=6
        [0x00] rec0=26 rec1=00 rec2=01 rec3=020
        [0x01] rec0=1d rec1=00 rec2=02 rec3=036
        [0x02] rec0=12 rec1=00 rec2=03 rec3=001
    tail 0x21750bd7a86843838df4e 0x42a00088462060003