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

⟦a7d7a1523⟧ Ada Source

    Length: 5120 (0x1400)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, procedure Essai_Calcul, seg_03bb29

Derivation

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

E3 Source Code



with Lexical;  
use Lexical;
with Text_Io;
with Erreurs;

with Semantique;

procedure Essai_Calcul is
    Le_Resultat : Integer;
begin  
    Erreurs.Ouvrir ("un_nouveau_ficihier_erreur");
    Semantique.Demarre_Calcul;
    Semantique.Empiler (Un_Jeton => L_Number, Une_Valeur => 406);
    Semantique.Empiler (Un_Jeton => L_Plus);
    Semantique.Empiler (Un_Jeton => L_Number, Une_Valeur => 2);
    Semantique.Empiler (Un_Jeton => L_Star);
    Semantique.Empiler (Un_Jeton => L_Open);
    Semantique.Empiler (Un_Jeton => L_Number, Une_Valeur => 2);
    Semantique.Empiler (Un_Jeton => L_Sub);
    Semantique.Empiler (Un_Jeton => L_Number, Une_Valeur => 2);
    Semantique.Empiler (Un_Jeton => L_Star);
    Semantique.Empiler (Un_Jeton => L_Open);
    Semantique.Empiler (Un_Jeton => L_Number, Une_Valeur => 2);
    Semantique.Empiler (Un_Jeton => L_Plus);
    Semantique.Empiler (Un_Jeton => L_Number, Une_Valeur => 100);
    Semantique.Empiler (Un_Jeton => L_Close);
    Semantique.Empiler (Un_Jeton => L_Close);
    -- Semantique.Empiler (Un_Jeton => L_Close);


    Semantique.Empiler (Un_Jeton => L_Ok);
    Semantique.Evaluer_Expression (Le_Resultat);
    Text_Io.Put_Line (Integer'Image (Le_Resultat));

    Erreurs.Fermer;

end Essai_Calcul;

E3 Meta Data

    nblk1=4
    nid=3
    hdr6=4
        [0x00] rec0=1b rec1=00 rec2=01 rec3=056
        [0x01] rec0=0c rec1=00 rec2=04 rec3=001
        [0x02] rec0=0b rec1=00 rec2=00 rec3=004
        [0x03] rec0=03 rec1=40 rec2=42 rec3=442
    tail 0x2173464d684e24e9511f0 0x42a00088462060003
Free Block Chain:
  0x3: 0000  00 02 00 47 80 2a 49 6f 2e 50 75 74 5f 4c 69 6e  ┆   G *Io.Put_Lin┆
  0x2: 0000  00 00 03 fc 80 38 74 69 71 75 65 2e 45 6d 70 69  ┆     8tique.Empi┆