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

⟦75e060718⟧ Ada Source

    Length: 4096 (0x1000)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, procedure Show_Tasks, seg_02869e

Derivation

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

procedure Show_Tasks (Task_Or_Job_Id             : Integer;  
                      Show_Stack                 : Boolean := True;  
                      Show_Full_Stack            : Boolean := False;  
                      Show_Hex_Stack             : Boolean := False;  
                      Show_Packages              : Boolean := True;  
                      Name_Filter                : String  := "";  
                      Max_Tasks                  : Natural := 50;  
                      Names_File                 : String  :=  
                         "!Commands.System_Maintenance.@_Mload";  
                      Debug_File                 : String  :=  
                         "!Commands.System_Maintenance.@_Rdebug";
                      Structural_Expansion_Level : Natural := 4;
                      Pointer_Expansion_Level    : Natural := 3;
                      Max_Elements               : Natural := 20);

-- Scan the specified Task_Or_Job_Id.  If less than 256, it is
-- interpreted as a job id.  As many tasks as possible for the
-- job are located.

-- Show_Stack => stacks call trace is displayed

-- Show_Full_Stack => a full detailed display of the stack is provided,
--                    with each word shown and decoded.  The parameters
--                    Structural_Expansion_Level, Pointer_Expansion_Level,
--                    and Max_Elements control the amount of decoding word
--                    done.

-- Show_Hex_Stack => control stack words are displayed in hex.

-- Show_Packages => inactive package modules are listed.

-- Name_Filter is a string against which names of modules are matched.
-- If the Name_Filter is contained in the module name, it is listed, else
-- not.  The null string is in all names.

-- Max_Tasks = max number of modules to be displayed/traversed.  The search
-- stops once this count is reached.  Running time is partially proportional
-- to the square of this number.

-- In MV location names, the package is listed along with the subprogram
-- node number and statement number.  The node number is the diana node
-- id in the MV tree.

-- The Names_File is a pattern for file names.  These files are Mload
-- format files listing package names for each code segment.

    nblk1=3
    nid=0
    hdr6=6
        [0x00] rec0=11 rec1=00 rec2=01 rec3=05a
        [0x01] rec0=17 rec1=00 rec2=02 rec3=000
        [0x02] rec0=07 rec1=00 rec2=03 rec3=000
    tail 0x21722483a83c1889c1984 0x42a00088462063203