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 ┃

⟦c0d7e4414⟧ TextFile

    Length: 4599 (0x11f7)
    Types: TextFile
    Names: »V«

Derivation

└─⟦516dceb10⟧ Bits:30000751 8mm tape, Rational 1000, RCI_VADS
    └─ ⟦9a14c9417⟧ »DATA« 
        └─⟦this⟧

TextFile

-- This package provides an Ada implementation of the Sun Ada supplied
-- package Unsigned_Types.  The user should see the warning pertaining to
-- the use of this package in the Sun Ada Programmer's Guide.
package Unsigned_Types is

    type Unsigned_Integer is range 0 .. (2 ** 32 - 1);
    for Unsigned_Integer'Size use 32;

    -- Ada provides for the "=" and "/=" functions when the type is declared.
    -- FUNCTION "=" (A, B : Unsigned_Integer) RETURN Boolean;
    -- FUNCTION "/="  (A, B : Unsigned_Integer) RETURN Boolean;
    function "<" (A, B : Unsigned_Integer) return Boolean;
    function "<=" (A, B : Unsigned_Integer) return Boolean;
    function ">" (A, B : Unsigned_Integer) return Boolean;
    function ">=" (A, B : Unsigned_Integer) return Boolean;
    function "+" (A, B : Unsigned_Integer) return Unsigned_Integer;
    function "-" (A, B : Unsigned_Integer) return Unsigned_Integer;
    function "+" (A : Unsigned_Integer) return Unsigned_Integer;
    function "-" (A : Unsigned_Integer) return Unsigned_Integer;
    function "*" (A, B : Unsigned_Integer) return Unsigned_Integer;
    function "/" (A, B : Unsigned_Integer) return Unsigned_Integer;
    function "mod" (A, B : Unsigned_Integer) return Unsigned_Integer;
    function "rem" (A, B : Unsigned_Integer) return Unsigned_Integer;
    function "**" (A, B : Unsigned_Integer) return Unsigned_Integer;
    function "abs" (A : Unsigned_Integer) return Unsigned_Integer;
    --FUNCTION "ABS" (A, B : Unsigned_Integer) RETURN Unsigned_Integer;
    -- The ABS function specified in the Appendix F description of the
    -- Unsigned_Types package does not conform to legal Ada overloading as
    -- "ABS" is a unary operator [LRM 6.7 (2)].  Therefore, I have supplied a
    -- corrected "ABS" function on the theory that the one in the Appendix F
    -- description must be in error.

    type Unsigned_Short_Integer is range 0 .. (2 ** 16 - 1);

    -- FUNCTION "=" (A, B : Unsigned_Short_Integer) RETURN Boolean;
    -- FUNCTION "/=" (A, B : Unsigned_Short_Integer) RETURN Boolean;
    function "<" (A, B : Unsigned_Short_Integer) return Boolean;
    function "<=" (A, B : Unsigned_Short_Integer) return Boolean;
    function ">" (A, B : Unsigned_Short_Integer) return Boolean;
    function ">=" (A, B : Unsigned_Short_Integer) return Boolean;
    function "+" (A, B : Unsigned_Short_Integer) return Unsigned_Short_Integer;
    function "-" (A, B : Unsigned_Short_Integer) return Unsigned_Short_Integer;
    function "+" (A : Unsigned_Short_Integer) return Unsigned_Short_Integer;
    function "-" (A : Unsigned_Short_Integer) return Unsigned_Short_Integer;
    function "*" (A, B : Unsigned_Short_Integer) return Unsigned_Short_Integer;
    function "/" (A, B : Unsigned_Short_Integer) return Unsigned_Short_Integer;
    function "mod" (A, B : Unsigned_Short_Integer)
                   return Unsigned_Short_Integer;
    function "rem" (A, B : Unsigned_Short_Integer)
                   return Unsigned_Short_Integer;
    function "**" (A, B : Unsigned_Short_Integer) return Unsigned_Short_Integer;
    function "abs" (A : Unsigned_Short_Integer) return Unsigned_Short_Integer;
    --FUNCTION "ABS" (A, B : Unsigned_Short_Integer)
    --             RETURN Unsigned_Short_Integer;


    type Unsigned_Tiny_Integer is range 0 .. (2 ** 8 - 1);

    -- FUNCTION "="   (A, B : Unsigned_Tiny_Integer) RETURN Boolean;
    -- FUNCTION "/="  (A, B : Unsigned_Tiny_Integer) RETURN Boolean;
    function "<" (A, B : Unsigned_Tiny_Integer) return Boolean;
    function "<=" (A, B : Unsigned_Tiny_Integer) return Boolean;
    function ">" (A, B : Unsigned_Tiny_Integer) return Boolean;
    function ">=" (A, B : Unsigned_Tiny_Integer) return Boolean;
    function "+" (A, B : Unsigned_Tiny_Integer) return Unsigned_Tiny_Integer;
    function "-" (A, B : Unsigned_Tiny_Integer) return Unsigned_Tiny_Integer;
    function "+" (A : Unsigned_Tiny_Integer) return Unsigned_Tiny_Integer;
    function "-" (A : Unsigned_Tiny_Integer) return Unsigned_Tiny_Integer;
    function "*" (A, B : Unsigned_Tiny_Integer) return Unsigned_Tiny_Integer;
    function "/" (A, B : Unsigned_Tiny_Integer) return Unsigned_Tiny_Integer;
    function "mod" (A, B : Unsigned_Tiny_Integer) return Unsigned_Tiny_Integer;
    function "rem" (A, B : Unsigned_Tiny_Integer) return Unsigned_Tiny_Integer;
    function "**" (A, B : Unsigned_Tiny_Integer) return Unsigned_Tiny_Integer;
    function "abs" (A : Unsigned_Tiny_Integer) return Unsigned_Tiny_Integer;
    -- FUNCTION "ABS" (A, B : Unsigned_Tiny_Integer) RETURN Unsigned_Tiny_Integer;

end Unsigned_Types;