DataMuseum.dk

top - download

    Length: 2774 (0xad6)
    Types: TextFile
    Names: »V«

└─⟦afbc8121e⟧ Bits:30000532 8mm tape, Rational 1000, MC68020_OS2000 7_2_2
    └─ ⟦77aa8350c⟧ »DATA« 
        └─⟦f794ecd1d⟧ 
            └─⟦4c85d69e2⟧ 
                └─⟦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 System_Types;

package Machine_Primitive_Operations is

    subtype Byte        is System_Types.Byte;
    subtype Byte_String is System_Types.Byte_String;

    -- Block move Length bytes from the From address to the To address.
    -- No checking for overlap or element range.

    procedure Move_Bytes (From   : in  String;  
                          To     : out String;
                          Length : in  Natural);

    procedure Move_Bytes (From   : in  String;
                          To     : out Byte_String;
                          Length : in  Natural);

    procedure Move_Bytes (From   : in  Byte_String;  
                          To     : out String;
                          Length : in  Natural);

    procedure Move_Bytes (From   : in  Byte_String;
                          To     : out Byte_String;
                          Length : in  Natural);

    -- Block fill Length bytes at the Fill address with bytes of the given
    -- Value.  No checking for overlap or element range (not even that the
    -- Value is within range 0 .. 255).

    procedure Fill_Bytes (Fill   : out String;  
                          Length : in  Natural;
                          Value  : in  Character);

    procedure Fill_Bytes
                 (Fill : out Byte_String; Length : in Natural; Value : in Byte);

    procedure Blank_Fill (Fill   : out String;
                          Length : in  Natural;
                          Value  : in  Character := ' ') renames Fill_Bytes;

    procedure Zero_Fill (Fill   : out Byte_String;
                         Length : in  Natural;
                         Value  : in  Byte := 0) renames Fill_Bytes;

private

    pragma Inline (Move_Bytes, Fill_Bytes, Blank_Fill, Zero_Fill);

    pragma Suppress (Elaboration_Check, On => Move_Bytes);
    pragma Suppress (Elaboration_Check, On => Fill_Bytes);

end Machine_Primitive_Operations;