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 - download
Index: ┃ B T ┃

⟦631d78558⟧ TextFile

    Length: 958 (0x3be)
    Types: TextFile
    Names: »B«

Derivation

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

TextFile

with Log;
with Profile;
with Move_Runtime_To_Target;
with Move_Debugger_To_Target;

procedure Install_Product_On_Target_Main
             (Target_Machine : String := "";
              Runtime_Module_Directory : String := "/h0/cmds/bootobjs";
              Runtime_Errors_Directory : String := "/h0/sys";
              Debugger_Module_Directory : String := "/h0/cmds") is
begin
    if Target_Machine /= "" then
        Move_Runtime_To_Target (Target_Machine => Target_Machine,
                                Module_Directory => Runtime_Module_Directory,
                                Errors_Directory => Runtime_Errors_Directory);
        Move_Debugger_To_Target (Target_Machine => Target_Machine,
                                 Module_Directory => Debugger_Module_Directory);
    else
        Log.Put_Line ("Target_Machine parameter may not be null",
                      Profile.Error_Msg);
    end if;
end Install_Product_On_Target_Main;
pragma Main;