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

⟦8f5cb4d43⟧ Ada Source

    Length: 3072 (0xc00)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, package body Time, seg_0416af

Derivation

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

package body Time is


    procedure Create (The_Object : in out Time.Object;
                      With_Hour : Time.Hour;
                      And_Minute : Time.Minute;
                      And_Day : String) is
    begin
        The_Object.Hour := With_Hour;
        The_Object.Minute := And_Minute;
        The_Object.Day := Time.Day'Value (And_Day);
    end Create;


    function Image (Of_Object : Time.Object) return String is
    begin
        return Time.Day'Image (Of_Object.Day) &
                  Time.Hour'Image (Of_Object.Hour) & ":" &
                  Time.Minute'Image (Of_Object.Minute);
    end Image;


    procedure Set_Hour (Of_Object : in out Time.Object; To_Hour : Time.Hour) is
    begin
        Of_Object.Hour := To_Hour;
    end Set_Hour;


    function Get_Hour (Of_Object : Time.Object) return Time.Hour is
    begin
        return Of_Object.Hour;
    end Get_Hour;


    procedure Set_Minute (Of_Object : in out Time.Object;
                          To_Minute : Time.Minute) is
    begin
        Of_Object.Minute := To_Minute;
    end Set_Minute;


    function Get_Minute (Of_Object : Time.Object) return Time.Minute is
    begin
        return Of_Object.Minute;
    end Get_Minute;


    procedure Set_Day (Of_Object : in out Time.Object; To_Day : String) is
    begin
        Of_Object.Day := Time.Day'Value (To_Day);
    end Set_Day;


    function Get_Day (Of_Object : Time.Object) return Time.Day is
    begin
        return Of_Object.Day;
    end Get_Day;


end Time;

    nblk1=2
    nid=0
    hdr6=4
        [0x00] rec0=24 rec1=00 rec2=01 rec3=05e
        [0x01] rec0=1a rec1=00 rec2=02 rec3=001
    tail 0x2153c3ad686225f5a4175 0x42a00088462060003