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: M T

⟦2df8c785a⟧ TextFile

    Length: 2135 (0x857)
    Types: TextFile
    Names: »MOVE_DEBUGGER_TO_TARGET«

Derivation

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

TextFile

-- The following procedure may be executed to download the modules
-- needed for the Mc68020_Os2000 cross debugger to a target machine.

procedure Move_Debugger_To_Target
             (Target_Machine : String := "";
              Module_Directory : String := "/h0/cmds");
--
-- It is necessary to provide a non-null string for the Target_Machine
-- parameter.
--
-- The string for the directory on the target may be changed.
--
\f

with Os2000_Put;

procedure Move_Debugger_To_Target
             (Target_Machine : String := "";
              Module_Directory : String := "/h0/cmds") is
    Units : constant String :=
       "!Targets.Implementation.Motorola_68k_Machine'View.Units.";
begin
    Os2000_Put (From_Local_File => Units & "Ratcom",
                To_Remote_File => "Ratcom",
                Remote_Machine => Target_Machine,
                Remote_Directory => Module_Directory,
                Transliterate => False,
                Response => "<PROFILE>");
    Os2000_Put (From_Local_File => Units & "Ratdbg",
                To_Remote_File => "Ratdbg",
                Remote_Machine => Target_Machine,
                Remote_Directory => Module_Directory,
                Transliterate => False,
                Response => "<PROFILE>");
    Os2000_Put (From_Local_File => Units & "Ratsend",
                To_Remote_File => "Ratsend",
                Remote_Machine => Target_Machine,
                Remote_Directory => Module_Directory,
                Transliterate => False,
                Response => "<PROFILE>");
    Os2000_Put (From_Local_File => Units & "Ratshut",
                To_Remote_File => "Ratshut",
                Remote_Machine => Target_Machine,
                Remote_Directory => Module_Directory,
                Transliterate => False,
                Response => "<PROFILE>");
    Os2000_Put (From_Local_File => Units & "Dbgcom",
                To_Remote_File => "Dbgcom",
                Remote_Machine => Target_Machine,
                Remote_Directory => Module_Directory,
                Transliterate => False,
                Response => "<PROFILE>");
end Move_Debugger_To_Target;