DataMuseum.dk

Presents historical artifacts from the history of:

Rational R1000/400

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

Excavated with: AutoArchaeologist - Free & Open Source Software.


top - download

⟦3f7c2e3ea⟧ Ada Source

    Length: 5120 (0x1400)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, package Bit_Operations, pragma Module_Name 4 828, pragma Subsystem Miscellaneous, seg_00643a

Derivation

└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
    └─ ⟦cfc2e13cd⟧ »Space Info Vol 2« 
        └─⟦this⟧ 

E3 Source Code



package Bit_Operations is

    -- Operations on Integer and Long_Integer as an array of bits.
    -- Bit numbering is left to right, 0..31 and 0..63.
    -- Arguments specified outside bit range raise Constraint_Error


    -- Extract the bits from Start .. Start + Length - 1.  Equivalent to
    -- Logical_And with 1 in bits of the extraction range and 0 elsewhere.
    function Extract
                (W : Integer; Start : Natural; Length : Natural) return Integer;
    function Extract (W : Long_Integer; Start : Natural; Length : Natural)
                     return Long_Integer;

    -- Extract the single bit at B and return as Boolean
    -- Equivalent to Extract (W, B, 1) /= 0
    function Test_Bit (W : Integer; B : Natural)      return Boolean;
    function Test_Bit (W : Long_Integer; B : Natural) return Boolean;

    -- Replace the specified bits of Into with the rightmost Length bits of W.
    function Insert (W, Into : Integer; Start : Natural; Length : Natural)
                    return Integer;
    function Insert (W, Into : Long_Integer; Start : Natural; Length : Natural)
                    return Long_Integer;

    -- Set the specified Bit to One or Zero
    procedure Set_Bit_To_One  (W : in out Integer; B : Natural);
    procedure Set_Bit_To_One  (W : in out Long_Integer; B : Natural);
    procedure Set_Bit_To_Zero (W : in out Integer; B : Natural);
    procedure Set_Bit_To_Zero (W : in out Long_Integer; B : Natural);

    -- Logical operations on two operands.
    -- For shift operations, positive arguments shift Left and negative
    -- arguments shift Right.
    -- Intermediate results are stored as Long_Integer, so shifting
    -- ones into positions outside of Integer will raise Numeric_Error.
    function Logical_And   (X, Y : Integer)                return Integer;
    function Logical_And   (X, Y : Long_Integer)           return Long_Integer;
    function Logical_Or    (X, Y : Integer)                return Integer;
    function Logical_Or    (X, Y : Long_Integer)           return Long_Integer;
    function Logical_Xor   (X, Y : Integer)                return Integer;
    function Logical_Xor   (X, Y : Long_Integer)           return Long_Integer;
    function Logical_Not   (X : Integer)                   return Integer;
    function Logical_Not   (X : Long_Integer)              return Long_Integer;
    function Logical_Shift (X : Integer; Amount : Integer) return Integer;
    function Logical_Shift
                (X : Long_Integer; Amount : Integer)       return Long_Integer;

    pragma Module_Name (4, 828);
    pragma Subsystem (Miscellaneous);

end Bit_Operations;

E3 Meta Data

    nblk1=4
    nid=0
    hdr6=8
        [0x00] rec0=16 rec1=00 rec2=01 rec3=082
        [0x01] rec0=00 rec1=00 rec2=04 rec3=00a
        [0x02] rec0=12 rec1=00 rec2=02 rec3=07e
        [0x03] rec0=0e rec1=00 rec2=03 rec3=000
    tail 0x21701b08681bf82345bf2 0x42a00088462065003