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

⟦2efadfc6b⟧ Ada Source

    Length: 6144 (0x1800)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, package Unsigned_Types, seg_03bd9a

Derivation

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

-- 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;

    nblk1=5
    nid=0
    hdr6=a
        [0x00] rec0=14 rec1=00 rec2=01 rec3=00e
        [0x01] rec0=10 rec1=00 rec2=02 rec3=054
        [0x02] rec0=0f rec1=00 rec2=03 rec3=008
        [0x03] rec0=11 rec1=00 rec2=04 rec3=078
        [0x04] rec0=0c rec1=00 rec2=05 rec3=000
    tail 0x215347ec68565741e53ea 0x42a00088462060003