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

⟦df7b23f1a⟧ Ada Source

    Length: 3072 (0xc00)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, procedure Ask_Service, seg_05439d, separate Service_Toolbox

Derivation

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

separate (Service_Toolbox)
procedure Ask_Service
             (Service_Class : in Orb_Defs.Class;
              Service_Fct : in Orb_Defs.Funct;
              Agent_Reference : out Service_Manager_Defs.Number_Of_Agent;
              Error : out Boolean) is
    Iterator, N : Number_Of_Service;
begin
    for Iterator in Number_Of_Service loop  
        N := Iterator;
        exit when Service_Table (Iterator).Class = Service_Class and
                     Service_Table (Iterator).Funct = Service_Fct and
                     Service_Manager_Defs."="
                        (Agent_Toolbox.Get_Status
                            (Agent_Number => Service_Table (Iterator).
                                                Agent_Reference),
                         Service_Manager_Defs.Ok) and
                     Agent_Toolbox.Get_Exist (Service_Table (Iterator).
                                              Agent_Reference) = True;
    end loop;  
    if Service_Table (N).Class = Service_Class and
       Service_Table (N).Funct = Service_Fct then
        Agent_Reference := Service_Table (N).Agent_Reference;
        Error := False;
    else
        Error := True;
    end if;
end Ask_Service;

    nblk1=2
    nid=0
    hdr6=4
        [0x00] rec0=16 rec1=00 rec2=01 rec3=02a
        [0x01] rec0=09 rec1=00 rec2=02 rec3=001
    tail 0x2154cf69e87b65cd62980 0x42a00088462060003