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

⟦96e309260⟧ Ada Source

    Length: 5120 (0x1400)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, package body Action, seg_059aae

Derivation

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

with Cap;
use Cap;
with Coordonnees;
use Coordonnees;
with Point;
with Terminal;
with Text_Io;
package body Action is
    -- realisation de la procedure ecran
    procedure Envoyer_Caractere (C : in Character; No : in Integer) is
        Old_P : Point.Objet renames Mes_Terminaux (No).Loc_Point;
        P : Point.Objet := Mes_Terminaux (No).Loc_Point;
        Affichage : Boolean := True;

    begin
        case C is
            when 'v' =>
                Point.Bouger (Point => P, Sens => Sud);
            when 'r' =>
                Point.Bouger (Point => P, Sens => Nord);
            when 'g' =>
                Point.Bouger (Point => P, Sens => Est);
            when 'd' =>
                Point.Bouger (Point => P, Sens => Ouest);
            when 'b' =>
                Point.Bouger (Point => P, Sens => Sud_Est);
            when 'c' =>
                Point.Bouger (Point => P, Sens => Sud_Ouest);
            when 't' =>
                Point.Bouger (Point => P, Sens => Nord_Est);
            when 'e' =>
                Point.Bouger (Point => P, Sens => Nord_Ouest);  
            when '6' =>
                Mon_Terminal.Fermer (Terminal => Mes_Terminaux (No).Handle);
                Affichage := False;
            when others =>
                Affichage := False;
        end case;  
        if Affichage then
            for I in 1 .. Last_Term loop
                Point.Effacer (No_Terminal => I, Point => Old_P);
                Point.Afficher (No_Terminal => I, Point => P);
            end loop;
            Old_P := P;
        end if;
    end Envoyer_Caractere;

end Action;

    nblk1=4
    nid=3
    hdr6=4
        [0x00] rec0=1f rec1=00 rec2=01 rec3=028
        [0x01] rec0=14 rec1=00 rec2=04 rec3=000
        [0x02] rec0=16 rec1=00 rec2=03 rec3=07c
        [0x03] rec0=0d rec1=00 rec2=02 rec3=000
    tail 0x217688274890e84d91ed0 0x42a00088462060003
Free Block Chain:
  0x3: 0000  00 02 00 d1 00 58 20 20 20 20 20 20 20 20 20 20  ┆     X          ┆
  0x2: 0000  00 00 01 9a 80 0c 20 28 31 29 2e 48 61 6e 64 6c  ┆       (1).Handl┆