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

⟦a69bb32ae⟧ TextFile

    Length: 1780 (0x6f4)
    Types: TextFile
    Names: »V«

Derivation

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

TextFile

--    The use of this system is subject to the software license terms and
--    conditions agreed upon between Rational and the Customer.
--
--                Copyright 1988 by Rational.
--
--                          RESTRICTED RIGHTS LEGEND
--
--    Use, duplication, or disclosure by the Government is subject to
--    restrictions as set forth in subdivision (b)(3)(ii) of the Rights in
--    Technical Data and Computer Software clause at 52.227-7013.
--
--
--                Rational
--                3320 Scott Boulevard
--                Santa Clara, California 95054-3197
--
--   PROPRIETARY AND CONFIDENTIAL INFORMATION OF RATIONAL;
--   USE OR COPYING WITHOUT EXPRESS WRITTEN AUTHORIZATION
--   IS STRICTLY PROHIBITED.  THIS MATERIAL IS PROTECTED AS
--   AN UNPUBLISHED WORK UNDER THE U.S. COPYRIGHT ACT OF
--   1976.  CREATED 1988.  ALL RIGHTS RESERVED.
--
--

with Debug_Definitions;
with Runtime_Ids;

package Sequential_Ops is

    -- this package is used only by programs that contain no tasks

    procedure Delay_Statement (For_Duration : Duration);
    procedure Finalize;
    procedure Handle_Signal   (Signal_Code : Integer);

private

    pragma Suppress (Elaboration_Check, Delay_Statement);
    pragma Export_Procedure (Delay_Statement, "__SEQUENTIAL_DELAY_STATEMENT");

    pragma Suppress (Elaboration_Check, Finalize);
    pragma Export_Procedure (Finalize, "__SEQUENTIAL_FINALIZATION");

    pragma Suppress (Elaboration_Check, Handle_Signal);
    pragma Export_Procedure (Handle_Signal, "__SEQUENTIAL_SIGNAL_INTERCEPT");

end Sequential_Ops;
pragma Export_Elaboration_Procedure ("__SEQUENTIAL_OPS_SPEC_ELAB");
pragma Runtime_Unit (Unit_Number         => Runtime_Ids.Runtime_Compunit,
                     Elab_Routine_Number => Runtime_Ids.Internal);