DataMuseum.dk

Presents historical artifacts from the history of:

Rational R1000/400 Tapes

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 Tapes

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - metrics - download
Index: T V

⟦3933eed2f⟧ TextFile

    Length: 7358 (0x1cbe)
    Types: TextFile
    Names: »V«

Derivation

└─⟦afbc8121e⟧ Bits:30000532 8mm tape, Rational 1000, MC68020_OS2000 7_2_2
    └─⟦77aa8350c⟧ »DATA« 
        └─⟦f794ecd1d⟧ 
            └─⟦this⟧

TextFile

with Cdf_Definitions;
with Simple_Status;
with M68k_Definitions;

generic
    with procedure Set_Break (Id            : M68k_Definitions.Longword;  
                              Class         : M68k_Definitions.Break_Class;
                              Pc            : M68k_Definitions.Address;
                              Ref_Count     : M68k_Definitions.Longword;
                              Temporary     : Boolean;
                              Task_Name     : M68k_Definitions.Task_Id;
                              Target_Status : in out Simple_Status.Condition);

    with procedure Break_Trip_Count
                      (Id            :        M68k_Definitions.Longword;
                       Count         : out    M68k_Definitions.Longword;
                       Target_Status : in out Simple_Status.Condition);

    with procedure Clear_Break (Id            : M68k_Definitions.Longword;
                                Target_Status : in out Simple_Status.Condition);


    with procedure Instruction_Step
                      (Task_Name     :        M68k_Definitions.Task_Id;
                       Step_Count    :        M68k_Definitions.Longword;
                       Target_Status : in out Simple_Status.Condition);

    with procedure Run (Task_Name : M68k_Definitions.Task_Id;
                        Run_Type : M68k_Definitions.Run_Type;
                        Step_Count : M68k_Definitions.Longword;
                        Next_Sequential_Stmt_Addr : M68k_Definitions.Address;
                        Target_Status : in out Simple_Status.Condition);

    with procedure Statement_Step
                      (Task_Name : M68k_Definitions.Task_Id;
                       Step_Count : M68k_Definitions.Longword;
                       Next_Sequential_Stmt_Addr : M68k_Definitions.Address;
                       Target_Status : in out Simple_Status.Condition);

    with procedure Instruction_Step_Count
                      (Task_Name     :        M68k_Definitions.Task_Id;
                       Step_Count    : out    M68k_Definitions.Longword;
                       Target_Status : in out Simple_Status.Condition);

    with procedure Clear_Stepping
                      (Task_Name     :        M68k_Definitions.Task_Id;
                       Target_Status : in out Simple_Status.Condition);

    with procedure Execute (Task_Name     :        M68k_Definitions.Task_Id;
                            Target_Status : in out Simple_Status.Condition);

    with procedure Stop_Task (Task_Name     :        M68k_Definitions.Task_Id;
                              Target_Status : in out Simple_Status.Condition);


    with procedure Read_Memory (Source : M68k_Definitions.Address;
                                Address_Space : M68k_Definitions.Address_Kind;
                                In_Segmented_Heap : Boolean;
                                Byte_Count : in out Natural;
                                Data : out M68k_Definitions.Byte_String;
                                Target_Status : in out Simple_Status.Condition);

    with procedure Write_Memory
                      (Destination       :        M68k_Definitions.Address;
                       Address_Space     :        M68k_Definitions.Address_Kind;
                       In_Segmented_Heap :        Boolean;
                       Byte_Count        : in out Natural;
                       Data              :        M68k_Definitions.Byte_String;
                       Target_Status     : in out Simple_Status.Condition);


    with procedure Read_Registers
                      (Frame_Number  :        Natural;
                       Regs          : out    M68k_Definitions.Register_Array;
                       Task_Name     :        M68k_Definitions.Task_Id;
                       Target_Status : in out Simple_Status.Condition);

    with procedure Write_Register
                      (Frame_Number  :        Natural;
                       Reg_Num       :        M68k_Definitions.Register_Number;
                       Task_Name     :        M68k_Definitions.Task_Id;
                       Data          :        M68k_Definitions.Byte_String;
                       Target_Status : in out Simple_Status.Condition);

    with procedure Convert_To_Absolute
                      (Relative       :        M68k_Definitions.Address;
                       From_Component :        M68k_Definitions.Address;
                       Result         : out    M68k_Definitions.Address;
                       Target_Status  : in out Simple_Status.Condition);

    with procedure Convert_To_Relative
                      (Absolute      :        M68k_Definitions.Address;
                       Result        : out    M68k_Definitions.Address;
                       Target_Status : in out Simple_Status.Condition);

    with procedure Connect_To_Processor
                      (Remote_Machine :        String;
                       Version        : out    String;
                       Target_Status  : in out Simple_Status.Condition);

    with procedure Reset;

    with procedure Load (Do_Spawn         :        Boolean;
                         R1000_Path_Name  :        String;
                         Target_Path_Name :        String;
                         Remote_Directory :        String;
                         Pid_Of_Program   :        M68k_Definitions.Word;
                         Options          :        String;
                         Program_Code     : out    M68k_Definitions.Address;
                         Program_Data     : out    M68k_Definitions.Address;
                         Start_Offset     : out    M68k_Definitions.Address;
                         Runtime_Code     : out    M68k_Definitions.Address;
                         Runtime_Data     : out    M68k_Definitions.Address;
                         Misc_Info        : out    M68k_Definitions.Byte_String;
                         Version          : out    M68k_Definitions.Longword;
                         Target_Status    : in out Simple_Status.Condition);

    with procedure Disconnect (Force         :        Boolean;
                               Target_Status : in out Simple_Status.Condition);

    with procedure Stop_Debugging
                      (Process_Id    :        M68k_Definitions.Task_Id;
                       Closure       :        M68k_Definitions.Terminate_Set;
                       Kill_Process  :        Boolean;
                       Target_Status : in out Simple_Status.Condition);


    with procedure Set_Flag (Flag          :        String;
                             Flag_Value    :        Integer;
                             Target_Status : in out Simple_Status.Condition);

    with function Target_Request (Options : String) return String;

    with function Invoke_Special_Image_Function
                     (Call_Descriptor : Cdf_Definitions.Call_Descriptor)
                     return String;

    with function Wait_For_Next_Event return M68k_Definitions.Target_Event;


package Target_Interface_Generic is

    procedure Initiate_Debugging (Main_Unit  : String  := "<SELECTION>";
                                  Options    : String  := "";
                                  Spawn_Job  : Boolean := True;
                                  Target_Key : String  := "");

end Target_Interface_Generic;