|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 4096 (0x1000)
Types: Ada Source
Notes: 03_class, FILE, R1k_Segment, e3_tag, package Type_Inst, seg_04431e, seg_044dd2
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦this⟧
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦this⟧
package Type_Inst is
type Inst_Si is
record
Exp_Cond : Integer;
Alors : Integer;
Sinon : Integer;
end record;
type Inst_Pour is
record
Entier : Integer;
Faire : Integer;
end record;
type Inst_Affec is
record
Variable : Integer;
Exp_Generale : Integer;
end record;
type Inst_Lie_Delie is
record
Var1 : Integer;
Var2 : Integer;
end record;
type Inst_Liste_Lien is
record
Variable : Integer;
Etat : Integer;
end record;
type Inst_Echanger_Lien is
record
Var1 : Integer;
Var2 : Integer;
Var3 : Integer;
end record;
type Inst_Afficher is
record
Param1 : Integer;
Param2 : Integer;
end record;
type Inst_Fin is
record
Parem : Integer;
end record;
type Instruction is (Si_Alors_Sinon, Pour_Faire, Affectation,
Lie_Connexion, Delie_Connexion, Lie_Lien, Delie_Lien,
Liste_Lien, Echanger_Lien, Afficher, Fin);
type Element (I : Instruction := Fin) is
record
Genre : Instruction := I;
case I is
when Si_Alors_Sinon =>
Contenu_Si : Inst_Si;
when Pour_Faire =>
Contenu_Pour : Inst_Pour;
when Affectation =>
Contenu_Affec : Inst_Affec;
when Lie_Connexion | Delie_Connexion | Lie_Lien | Delie_Lien =>
Contenu_Lie_Delie : Inst_Lie_Delie;
when Liste_Lien =>
Contenu_Liste_Lien : Inst_Liste_Lien;
when Echanger_Lien =>
Contenu_Echanger_Lien : Inst_Echanger_Lien;
when Afficher =>
Contenu_Aff : Inst_Afficher;
when Fin =>
Contenu_Fin : Inst_Fin;
end case;
end record;
type Elem is
record
Genre : Instruction;
Cond : Integer;
Alors : Integer;
Sinon : Integer;
Entier : Integer;
Faire : Integer;
Param1 : Integer;
Param2 : Integer;
Param3 : Integer;
Etat : Integer;
end record;
end Type_Inst;
nblk1=3
nid=0
hdr6=6
[0x00] rec0=44 rec1=00 rec2=01 rec3=016
[0x01] rec0=1e rec1=00 rec2=02 rec3=058
[0x02] rec0=19 rec1=00 rec2=03 rec3=000
tail 0x2153fc1b2863d70f96994 0x42a00088462060003