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

⟦5c236bd12⟧ TextFile

    Length: 1333 (0x535)
    Types: TextFile
    Names: »B«

Derivation

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

TextFile

with Os2000_Put;

procedure Move_Runtime_To_Target
             (Target_Machine : String := "";
              Module_Directory : String := "/h0/cmds/bootobjs";
              Errors_Directory : String := "/h0/sys") is
    Units : constant String :=
       "!Targets.Implementation.Mc68020_Os2000_Runtimes'View.Units.";
begin
    Os2000_Put (From_Local_File =>
                   Units & "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 =>
                   Units & "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 => Units & "Ada_Runtime_Error_Messages",
                To_Remote_File => "Art_Errmsg",
                Remote_Machine => Target_Machine,
                Remote_Directory => Errors_Directory,
                Transliterate => True,
                Response => "<PROFILE>");
end Move_Runtime_To_Target;