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

⟦b0d20aa0b⟧ Ada Source

    Length: 5120 (0x1400)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, package Integer_Class, seg_035770

Derivation

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

with Object, Message, Arguments;
package Integer_Class is

    Incorrect_Method, Incorrect_Nb_Args : exception;

    function Send (To_Object : Object.Reference;
                   The_Message : Message.Selector;
                   With_Arguments : Arguments.List := Arguments.Void_Arguments)
                  return Object.Reference;

    function Create (Value : Integer) return Object.Reference;

private


    function Delete (The_Integer : Object.Reference) return Object.Reference;

    function In_Text (The_Integer : Object.Reference) return String;

    function Square (The_Integer : Object.Reference) return Object.Reference;

    function Cubic (The_Integer : Object.Reference) return Object.Reference;

    function Repeat_To_Limit
                (The_Start : Object.Reference;
                 The_Limit : Object.Reference;
                 The_Block : Object.Reference) return Object.Reference;

    function N_Time (Nb_Time : Object.Reference; The_Block : Object.Reference)
                    return Object.Reference;

    function "+" (First_Integer : Object.Reference;
                  Second_Integer : Object.Reference) return Object.Reference;

    function "-" (First_Integer : Object.Reference;
                  Second_Integer : Object.Reference) return Object.Reference;

    function "*" (First_Integer : Object.Reference;
                  Second_Integer : Object.Reference) return Object.Reference;

    function "/" (First_Integer : Object.Reference;
                  Second_Integer : Object.Reference) return Object.Reference;

    function "<" (First_Integer : Object.Reference;
                  Second_Integer : Object.Reference) return Object.Reference;

    function ">" (First_Integer : Object.Reference;
                  Second_Integer : Object.Reference) return Object.Reference;

    function Is_Less_Or_Equal
                (First_Integer : Object.Reference;
                 Second_Integer : Object.Reference) return Object.Reference;

    function Is_Great_Or_Equal
                (First_Integer : Object.Reference;  
                 Second_Integer : Object.Reference) return Object.Reference;

    function Is_Not_Equal (First_Integer : Object.Reference;
                           Second_Integer : Object.Reference)
                          return Object.Reference;

    function Is_Equal (First_Integer : Object.Reference;
                       Second_Integer : Object.Reference)
                      return Object.Reference;
end Integer_Class;

    nblk1=4
    nid=3
    hdr6=6
        [0x00] rec0=1e rec1=00 rec2=01 rec3=05a
        [0x01] rec0=17 rec1=00 rec2=02 rec3=030
        [0x02] rec0=0f rec1=00 rec2=04 rec3=000
        [0x03] rec0=08 rec1=00 rec2=04 rec3=000
    tail 0x2152e30f084d88e2c5566 0x42a00088462060003
Free Block Chain:
  0x3: 0000  00 00 03 fc 80 29 20 20 20 20 20 20 20 20 20 20  ┆     )          ┆