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: ┃ A T ┃

⟦02a9add61⟧ TextFile

    Length: 2183 (0x887)
    Types: TextFile
    Names: »ADA_RUNTIME_INSTALL_PROCEDURE«

Derivation

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

TextFile

    -- The following procedure should be executed in a command window
    -- to download the modules and text files needed for the Ada runtime.
    -- Before running the procedure it is necessary to provide a non-null
    -- string for the Target_Machine value.  The strings for the default
    -- directories may also be changed.
    --
    -- The startup file on the target machine should also be modified to
    -- load and initialize the Ada_Runtime, eg.
    --
    --      load /h0/cmds/bootobjs/Ada_Runtime; Ada_Runtime
    --      load /h0/cmds/bootobjs/Ada_Task
    --
    declare
        procedure Install_Ada_Runtime
                     (Target_Machine : String := "";
                      Module_Directory : String := "/h0/cmds/bootobjs";
                      Errors_Directory : String := "/h0/sys") is
        begin
            Os2000_Put (From_Local_File =>
                           "Shared.Modules.Ada_Runtime_Module_Os2000",
                        To_Remote_File => "Ada_Runtime",
                        Remote_Machine => Target_Machine,
                        Remote_Directory => Module_Directory,
                        Transliterate => False,
                        Response => "<PROFILE>");
            Os2000_Put (From_Local_File =>
                           "Shared.Modules.Ada_Task_Module_Os2000",
                        To_Remote_File => "Ada_Task",
                        Remote_Machine => Target_Machine,
                        Remote_Directory => Module_Directory,
                        Transliterate => False,
                        Response => "<PROFILE>");
            Os2000_Put (From_Local_File => "Ada_Runtime_Error_Messages",
                        To_Remote_File => "Art_Errmsg",
                        Remote_Machine => Target_Machine,
                        Remote_Directory => Errors_Directory,
                        Transliterate => True,
                        Response => "<PROFILE>");
        end Install_Ada_Runtime;
    begin
        Install_Ada_Runtime (Target_Machine => "",
                             Module_Directory => "/h0/cmds/bootobjs",
                             Errors_Directory => "/h0/sys");

    end;