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

⟦5eaa49ef4⟧ Ada Source

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

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_I;
package body V_I_Tasks is

    function Get_Task (Id : System.Task_Id) return Task_Id is
    begin
        return Id;
    end Get_Task;

    function Get_Current_Program return Program_Id is
    begin
        return Ada_Krn_I.Program_Self;
    end Get_Current_Program;

    function Get_Program (Tsk : Task_Id) return Program_Id is
    begin
        return Ada_Krn_I.Program_Get (Tsk);
    end Get_Program;

    procedure Terminate_Program (Status : Integer;  -- exit status
                                 Prg : Program_Id := Get_Current_Program) is
    begin
        Ada_Krn_I.Program_Terminate (Prg, Status);
    end Terminate_Program;

    function Get_Program_Key (Prg : Program_Id := Get_Current_Program)
                             return System.Address is
    begin
        return Ada_Krn_I.Program_Get_Key (Prg);
    end Get_Program_Key;

    function Suspend_Task (Tsk : Task_Id) return Boolean is
    begin
        return Ada_Krn_I.Task_Suspend (Tsk);
    end Suspend_Task;

    function Resume_Task (Tsk : Task_Id) return Boolean is
    begin
        return Ada_Krn_I.Task_Resume (Tsk);
    end Resume_Task;

    function Get_Time_Slice (Tsk : Task_Id) return Duration is
    begin
        return Ada_Krn_I.Task_Get_Time_Slice (Tsk);
    end Get_Time_Slice;
    procedure Set_Time_Slice (Tsk : Task_Id; New_Time_Slice : Duration) is
    begin
        Ada_Krn_I.Task_Set_Time_Slice (Tsk, New_Time_Slice);
    end Set_Time_Slice;

    function Get_Time_Slicing return Boolean is
    begin
        return Ada_Krn_I.Kernel_Get_Time_Slicing_Enabled;
    end Get_Time_Slicing;
    procedure Set_Time_Slicing (Enabled : Boolean) is
    begin
        Ada_Krn_I.Kernel_Set_Time_Slicing_Enabled (Enabled);
    end Set_Time_Slicing;

    procedure Disable_Preemption is
    begin
        Ada_Krn_I.Task_Disable_Preemption;
    end Disable_Preemption;
    procedure Enable_Preemption is
    begin
        Ada_Krn_I.Task_Enable_Preemption;
    end Enable_Preemption;
end V_I_Tasks;

    nblk1=3
    nid=0
    hdr6=6
        [0x00] rec0=22 rec1=00 rec2=01 rec3=076
        [0x01] rec0=20 rec1=00 rec2=02 rec3=016
        [0x02] rec0=05 rec1=00 rec2=03 rec3=001
    tail 0x21750be5e868438a94f9d 0x42a00088462060003