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

⟦041f7f9ed⟧ Ada Source

    Length: 6144 (0x1800)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, package body Frame, seg_02b86b

Derivation

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

with Unchecked_Conversion;
package body Frame is

    function Create_Request
                (The_Command : Command;
                 Adressing_Mode : Sensor_Adr_Mode;
                 Bit_Selection : Sensor_Bit_Selection) return Request is
    begin
        if Adressing_Mode = Slice then
            raise Constraint_Error;
        end if;
        return Request'(The_Command, Adressing_Mode, Bit_Selection);
    end Create_Request;

    function Create_Request
                (The_Command : Command;
                 Slice_Selection : Sensor_Slice_Selection) return Request is
    begin
        return Request'(The_Command, Slice, Slice_Selection);
    end Create_Request;

    function Create_Mode (Mean_Value : Mean;
                          Number_Of_Samples : Sample_Count;
                          Data_Format : Format;
                          Measure_Type : Measure) return Mode is
    begin
        return Mode'(Mean_Value, Number_Of_Samples, Data_Format, Measure_Type);
    end Create_Mode;

    function Create_N_Delta_T (Number_Of_Transmissions : Transmission_Count;
                               Period_Of_Transmissions : Transmission_Period)
                              return N_Delta_T is
    begin
        return N_Delta_T'(Number_Of_Transmissions, Period_Of_Transmissions);
    end Create_N_Delta_T;


    function Create_Task_Selection return Task_Selection is
    begin
        return Task_Selection'(others => False);
    end Create_Task_Selection;

    procedure Action_On_Task (T : in out Task_Selection;
                              Which_One : Task_Identification) is
    begin
        case Which_One is
            when 0 =>
                T.Task0_Active := True;
            when 1 =>
                T.Task1_Active := True;
            when 2 =>
                T.Task2_Active := True;
            when 3 =>
                T.Task3_Active := True;
            when 4 =>
                T.Task4_Active := True;
            when 5 =>
                T.Task5_Active := True;
            when 6 =>
                T.Task6_Active := True;
            when 7 =>
                T.Task7_Active := True;
        end case;
    end Action_On_Task;

    procedure No_Action_On_Task (T : in out Task_Selection;
                                 Which_One : Task_Identification) is
    begin
        case Which_One is
            when 0 =>
                T.Task0_Active := False;
            when 1 =>
                T.Task1_Active := False;
            when 2 =>
                T.Task2_Active := False;
            when 3 =>
                T.Task3_Active := False;
            when 4 =>
                T.Task4_Active := False;
            when 5 =>
                T.Task5_Active := False;
            when 6 =>
                T.Task6_Active := False;
            when 7 =>
                T.Task7_Active := False;
        end case;
    end No_Action_On_Task;


    function Create_Adress (Station : Station_Identification;
                            Station_Task : Task_Identification) return Adress is
    begin
        return Adress'(Station, Station_Task);
    end Create_Adress;


    function Is_Acknowledge (M : Message) return Boolean is
        Acknowledge : constant Message := 255;
    begin
        return M = Acknowledge;
    end Is_Acknowledge;

    function As_Adress (M : Message) return Adress is
        function Cvt is new Unchecked_Conversion
                               (Source => Message, Target => Adress);
    begin
        return Cvt (M);
    end As_Adress;

    function As_Natural (M : Message) return Natural is  
    begin
        return Natural (M);
    end As_Natural;

end Frame;

    nblk1=5
    nid=2
    hdr6=8
        [0x00] rec0=1c rec1=00 rec2=01 rec3=06e
        [0x01] rec0=1d rec1=00 rec2=04 rec3=018
        [0x02] rec0=1f rec1=00 rec2=05 rec3=016
        [0x03] rec0=1d rec1=00 rec2=03 rec3=000
        [0x04] rec0=03 rec1=00 rec2=02 rec3=001
    tail 0x217246c7283ef6d2f2fa4 0x42a00088462060003
Free Block Chain:
  0x2: 0000  00 00 00 1d 80 07 61 74 75 72 61 6c 3b 07 00 00  ┆      atural;   ┆