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

⟦3ab8453a8⟧ Ada Source

    Length: 3072 (0xc00)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, procedure Pack_Action, seg_0111eb

Derivation

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

E3 Source Code



with Frame_Examples, Slot, Frame, Tuple, Text_Io;

procedure Pack_Action (The_Result : Tuple.Object) is
    package Ball    renames Frame_Examples.Ball;
    package Box     renames Frame_Examples.Box;
    package Sticker renames Frame_Examples.Sticker;
    use Frame_Examples.Ball_Features, Frame_Examples.Box_Features,
        Frame_Examples.Sticker_Features, Slot.Operators;
    The_Ball    : Ball.Object;
    The_Box     : Box.Object;
    The_Sticker : Sticker.Object;
begin
    Tuple.Split (The_Result, The_Ball, The_Ball, The_Box, The_Sticker);
    Ball.Change (The_Ball, Place, To => In_The_Box);

    Text_Io.Put_Line ("la place balle de taille " &
                      Slot.Image (Ball.Get (The_Ball, Size)) &
                      " est changee par in_the_box");
    Box.Change (The_Box, State, To => State_Slot.Value (Is_Bosy));
    Box.Change (The_Box, Contains, To => Slot.Value (The_Ball));
    Sticker.Delete (The_Sticker);
end Pack_Action;

E3 Meta Data

    nblk1=2
    nid=2
    hdr6=2
        [0x00] rec0=18 rec1=00 rec2=01 rec3=000
        [0x01] rec0=01 rec1=00 rec2=02 rec3=000
    tail 0x2150c87f082383e96340f 0x42a00088462063c03
Free Block Chain:
  0x2: 0000  00 00 00 03 00 00 00 01 00 00 00 05 00 00 00 00  ┆                ┆