|
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: 164864 (0x28400)
Types: Ada Source
Notes: 03_class, FILE, Long Ada Source, R1k_Segment, e3_tag, package body Order_Array, seg_048bea, seg_04921f, seg_049481
└─⟦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⟧
with Text_Io, Complement_Array, Group_Identifier_Array;
package body Order_Array is
Max_Element : constant Positive := 32;
Position : Positive;
The_Array : array (1 .. Max_Element) of Order.Object;
procedure Make (Basic_Order : in Order.Object) is
begin
The_Array (1) := Basic_Order;
The_Array (2) := Basic_Order;
Order.Put_First_Complement
(The_Array (2), Complement_Array.Group
(Order.Complement (Basic_Order, 2)));
The_Array (3) := Basic_Order;
Order.Put_Second_Complement
(The_Array (3), Complement_Array.Group
(Order.Complement (Basic_Order, 3)));
The_Array (4) := Basic_Order;
Order.Put_Third_Complement
(The_Array (4), Complement_Array.Group
(Order.Complement (Basic_Order, 4)));
The_Array (5) := Basic_Order;
Order.Put_Fourth_Complement
(The_Array (5), Complement_Array.Group
(Order.Complement (Basic_Order, 5)));
The_Array (6) := The_Array (2);
Order.Put_Second_Complement
(The_Array (6), Complement_Array.Group
(Order.Complement (Basic_Order, 3)));
The_Array (7) := The_Array (2);
Order.Put_Third_Complement
(The_Array (7), Complement_Array.Group
(Order.Complement (Basic_Order, 4)));
The_Array (8) := The_Array (2);
Order.Put_Fourth_Complement
(The_Array (8), Complement_Array.Group
(Order.Complement (Basic_Order, 5)));
The_Array (9) := The_Array (3);
Order.Put_Third_Complement
(The_Array (9), Complement_Array.Group
(Order.Complement (Basic_Order, 4)));
The_Array (10) := The_Array (3);
Order.Put_Fourth_Complement
(The_Array (10), Complement_Array.Group
(Order.Complement (Basic_Order, 5)));
The_Array (11) := The_Array (4);
Order.Put_Fourth_Complement
(The_Array (11), Complement_Array.Group
(Order.Complement (Basic_Order, 5)));
The_Array (12) := The_Array (6);
Order.Put_Third_Complement
(The_Array (12), Complement_Array.Group
(Order.Complement (Basic_Order, 4)));
The_Array (13) := The_Array (6);
Order.Put_Fourth_Complement
(The_Array (13), Complement_Array.Group
(Order.Complement (Basic_Order, 5)));
The_Array (14) := The_Array (9);
Order.Put_Fourth_Complement
(The_Array (14), Complement_Array.Group
(Order.Complement (Basic_Order, 5)));
The_Array (15) := The_Array (11);
Order.Put_First_Complement
(The_Array (15), Complement_Array.Group
(Order.Complement (Basic_Order, 2)));
The_Array (16) := The_Array (15);
Order.Put_Second_Complement
(The_Array (16), Complement_Array.Group
(Order.Complement (Basic_Order, 3)));
for I in 1 .. Max_Element / 2 loop
The_Array (I + Max_Element / 2) := The_Array (I);
Order.Put_Place (The_Array (I + Max_Element / 2), "global");
end loop;
end Make;
procedure Show is
begin
Text_Io.Put_Line ("Order Array :");
for I in 1 .. Max_Element loop
Order.Show (The_Array (I));
end loop;
end Show;
function Belong (An_Order : in Order.Object) return Boolean is
Ok : Boolean := False;
begin
for Position in 1 .. Max_Element loop
Ok := Ok or (Order.Image (An_Order) =
Order.Image (The_Array (Position)));
end loop;
return Ok;
end Belong;
procedure Init is
begin
Position := 1;
end Init;
procedure Next is
begin
Position := Position + 1;
end Next;
function Value return Order.Object is
begin
return The_Array (Position);
end Value;
function Done return Boolean is
begin
return Position > Max_Element;
end Done;
end Order_Array;
nblk1=a0
nid=a
hdr6=a
[0x00] rec0=1c rec1=00 rec2=01 rec3=042
[0x01] rec0=16 rec1=00 rec2=02 rec3=046
[0x02] rec0=19 rec1=00 rec2=08 rec3=01e
[0x03] rec0=20 rec1=00 rec2=05 rec3=00c
[0x04] rec0=1e rec1=00 rec2=06 rec3=000
[0x05] rec0=19 rec1=00 rec2=02 rec3=00c
[0x06] rec0=18 rec1=00 rec2=05 rec3=026
[0x07] rec0=1e rec1=00 rec2=06 rec3=000
[0x08] rec0=1d rec1=00 rec2=08 rec3=000
[0x09] rec0=1d rec1=00 rec2=97 rec3=090
[0x0a] rec0=1d rec1=00 rec2=96 rec3=008
[0x0b] rec0=16 rec1=00 rec2=95 rec3=060
[0x0c] rec0=1c rec1=00 rec2=94 rec3=03a
[0x0d] rec0=13 rec1=00 rec2=93 rec3=072
[0x0e] rec0=1b rec1=00 rec2=92 rec3=004
[0x0f] rec0=18 rec1=00 rec2=91 rec3=002
[0x10] rec0=1b rec1=00 rec2=90 rec3=04c
[0x11] rec0=19 rec1=00 rec2=8f rec3=046
[0x12] rec0=22 rec1=00 rec2=8e rec3=026
[0x13] rec0=1a rec1=00 rec2=8d rec3=02e
[0x14] rec0=1b rec1=00 rec2=8c rec3=04a
[0x15] rec0=1a rec1=00 rec2=8b rec3=03e
[0x16] rec0=13 rec1=00 rec2=8a rec3=048
[0x17] rec0=1a rec1=00 rec2=89 rec3=00e
[0x18] rec0=17 rec1=00 rec2=88 rec3=00c
[0x19] rec0=1c rec1=00 rec2=87 rec3=02c
[0x1a] rec0=17 rec1=00 rec2=86 rec3=014
[0x1b] rec0=1d rec1=00 rec2=85 rec3=042
[0x1c] rec0=18 rec1=00 rec2=84 rec3=004
[0x1d] rec0=1a rec1=00 rec2=83 rec3=02c
[0x1e] rec0=10 rec1=00 rec2=82 rec3=05a
[0x1f] rec0=24 rec1=00 rec2=81 rec3=032
[0x20] rec0=14 rec1=00 rec2=80 rec3=050
[0x21] rec0=14 rec1=00 rec2=7f rec3=02a
[0x22] rec0=1c rec1=00 rec2=7e rec3=020
[0x23] rec0=22 rec1=00 rec2=7d rec3=01c
[0x24] rec0=20 rec1=00 rec2=7c rec3=008
[0x25] rec0=19 rec1=00 rec2=7b rec3=03e
[0x26] rec0=1e rec1=00 rec2=7a rec3=036
[0x27] rec0=14 rec1=00 rec2=79 rec3=048
[0x28] rec0=1c rec1=00 rec2=78 rec3=01a
[0x29] rec0=1c rec1=00 rec2=77 rec3=05c
[0x2a] rec0=1b rec1=00 rec2=76 rec3=01a
[0x2b] rec0=1c rec1=00 rec2=75 rec3=076
[0x2c] rec0=1a rec1=00 rec2=74 rec3=024
[0x2d] rec0=1b rec1=00 rec2=73 rec3=096
[0x2e] rec0=17 rec1=00 rec2=72 rec3=096
[0x2f] rec0=1d rec1=00 rec2=71 rec3=016
[0x30] rec0=18 rec1=00 rec2=70 rec3=02c
[0x31] rec0=16 rec1=00 rec2=6f rec3=0bc
[0x32] rec0=1a rec1=00 rec2=6e rec3=018
[0x33] rec0=16 rec1=00 rec2=6d rec3=006
[0x34] rec0=18 rec1=00 rec2=6c rec3=02e
[0x35] rec0=1a rec1=00 rec2=6b rec3=084
[0x36] rec0=1d rec1=00 rec2=6a rec3=038
[0x37] rec0=19 rec1=00 rec2=69 rec3=014
[0x38] rec0=1b rec1=00 rec2=68 rec3=006
[0x39] rec0=18 rec1=00 rec2=67 rec3=00c
[0x3a] rec0=16 rec1=00 rec2=66 rec3=062
[0x3b] rec0=19 rec1=00 rec2=65 rec3=018
[0x3c] rec0=1a rec1=00 rec2=64 rec3=032
[0x3d] rec0=14 rec1=00 rec2=63 rec3=01e
[0x3e] rec0=19 rec1=00 rec2=62 rec3=080
[0x3f] rec0=1f rec1=00 rec2=61 rec3=008
[0x40] rec0=21 rec1=00 rec2=60 rec3=040
[0x41] rec0=14 rec1=00 rec2=5f rec3=016
[0x42] rec0=18 rec1=00 rec2=5e rec3=02e
[0x43] rec0=1c rec1=00 rec2=5d rec3=03c
[0x44] rec0=1b rec1=00 rec2=5c rec3=028
[0x45] rec0=19 rec1=00 rec2=5b rec3=02e
[0x46] rec0=1b rec1=00 rec2=5a rec3=030
[0x47] rec0=1e rec1=00 rec2=59 rec3=010
[0x48] rec0=19 rec1=00 rec2=58 rec3=00a
[0x49] rec0=20 rec1=00 rec2=57 rec3=01c
[0x4a] rec0=1d rec1=00 rec2=56 rec3=072
[0x4b] rec0=1e rec1=00 rec2=55 rec3=010
[0x4c] rec0=19 rec1=00 rec2=54 rec3=07c
[0x4d] rec0=1f rec1=00 rec2=53 rec3=012
[0x4e] rec0=29 rec1=00 rec2=52 rec3=042
[0x4f] rec0=18 rec1=00 rec2=51 rec3=02e
[0x50] rec0=1b rec1=00 rec2=50 rec3=07c
[0x51] rec0=1c rec1=00 rec2=4f rec3=036
[0x52] rec0=1d rec1=00 rec2=4e rec3=034
[0x53] rec0=19 rec1=00 rec2=4d rec3=026
[0x54] rec0=1b rec1=00 rec2=4c rec3=01a
[0x55] rec0=1c rec1=00 rec2=4b rec3=052
[0x56] rec0=19 rec1=00 rec2=4a rec3=038
[0x57] rec0=1f rec1=00 rec2=49 rec3=022
[0x58] rec0=1c rec1=00 rec2=48 rec3=032
[0x59] rec0=1b rec1=00 rec2=47 rec3=020
[0x5a] rec0=18 rec1=00 rec2=46 rec3=006
[0x5b] rec0=1c rec1=00 rec2=45 rec3=012
[0x5c] rec0=13 rec1=00 rec2=44 rec3=008
[0x5d] rec0=1b rec1=00 rec2=43 rec3=016
[0x5e] rec0=17 rec1=00 rec2=42 rec3=024
[0x5f] rec0=1c rec1=00 rec2=41 rec3=042
[0x60] rec0=18 rec1=00 rec2=40 rec3=01a
[0x61] rec0=20 rec1=00 rec2=3f rec3=006
[0x62] rec0=1c rec1=00 rec2=3e rec3=026
[0x63] rec0=1e rec1=00 rec2=3d rec3=00e
tail 0x21546176a865a834d4b51 0x42a00088462060003
Free Block Chain:
0xa: 0000 00 09 00 b7 80 19 75 72 6e 20 54 68 65 5f 41 72 ┆ urn The_Ar┆
0x9: 0000 00 04 03 fc 80 17 76 69 6e 67 5f 53 74 72 69 6e ┆ ving_Strin┆
0x4: 0000 00 07 03 fc 00 00 00 00 09 20 20 20 20 62 65 67 ┆ beg┆
0x7: 0000 00 03 03 3b 80 16 41 72 72 61 79 2e 4e 65 78 74 ┆ ; Array.Next┆
0x3: 0000 00 0b 00 0c 80 09 20 20 20 65 6e 64 20 6c 6f 09 ┆ end lo ┆
0xb: 0000 00 0c 03 fc 80 08 65 74 69 72 65 20 3d 3e 08 00 ┆ etire => ┆
0xc: 0000 00 0d 03 fc 80 19 70 6c 65 73 20 28 4c 65 78 2e ┆ ples (Lex.┆
0xd: 0000 00 0e 03 fc 80 16 65 78 2e 6c 6f 77 65 72 5f 63 ┆ ex.lower_c┆
0xe: 0000 00 0f 03 fc 00 22 20 20 20 20 20 20 20 20 2d 2d ┆ " --┆
0xf: 0000 00 10 03 fb 80 53 65 6d 65 6e 74 5f 61 72 72 61 ┆ Sement_arra┆
0x10: 0000 00 11 03 fc 80 05 6e 29 20 69 73 05 00 00 00 00 ┆ n) is ┆
0x11: 0000 00 12 03 fc 80 09 65 72 73 61 6e 64 20 3d 3e 09 ┆ ersand => ┆
0x12: 0000 00 13 03 fc 00 26 20 20 20 20 20 20 20 20 20 20 ┆ & ┆
0x13: 0000 00 14 03 f9 80 13 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x14: 0000 00 15 03 fc 00 1a 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x15: 0000 00 16 03 fc 80 1d 2c 20 46 6f 6c 6c 6f 77 5f 49 ┆ , Follow_I┆
0x16: 0000 00 17 03 fc 80 26 20 20 20 20 20 20 20 20 20 20 ┆ & ┆
0x17: 0000 00 18 03 fc 80 05 20 20 20 20 20 05 00 3a 2d 2d ┆ :--┆
0x18: 0000 00 19 03 fc 80 02 29 20 02 00 55 2d 2d 64 65 74 ┆ ) U--det┆
0x19: 0000 00 1a 03 fc 00 2a 20 20 20 20 20 20 20 20 20 20 ┆ * ┆
0x1a: 0000 00 1b 03 fa 80 51 20 20 20 70 72 6f 63 65 64 75 ┆ Q procedu┆
0x1b: 0000 00 1c 03 fc 80 28 65 64 75 72 65 20 43 6f 6e 64 ┆ (edure Cond┆
0x1c: 0000 00 1d 03 fc 80 08 6e 5f 46 6f 72 74 65 3b 08 00 ┆ n_Forte; ┆
0x1d: 0000 00 1e 03 fc 80 14 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1e: 0000 00 1f 03 fc 80 08 20 20 20 20 65 6c 73 65 08 00 ┆ else ┆
0x1f: 0000 00 20 03 fc 80 28 20 20 20 20 20 20 20 20 20 69 ┆ ( i┆
0x20: 0000 00 21 03 fc 80 1a 2c 20 46 6f 6c 6c 6f 77 5f 43 ┆ ! , Follow_C┆
0x21: 0000 00 22 03 fc 80 0d 6c 65 61 6e 20 3a 3d 20 54 72 ┆ " lean := Tr┆
0x22: 0000 00 23 03 fc 80 1e 67 2e 69 6d 61 67 65 28 61 6e ┆ # g.image(an┆
0x23: 0000 00 24 03 fc 80 24 20 20 20 20 20 20 20 20 20 20 ┆ $ $ ┆
0x24: 0000 00 25 03 fc 80 4f 20 20 20 20 20 20 20 2d 2d 69 ┆ % O --i┆
0x25: 0000 00 26 03 fc 80 48 20 20 20 20 20 20 20 20 77 68 ┆ & H wh┆
0x26: 0000 00 27 03 fc 80 18 20 20 20 20 20 20 20 54 65 72 ┆ ' Ter┆
0x27: 0000 00 28 03 fc 80 0d 20 20 20 20 65 6e 64 20 6c 6f ┆ ( end lo┆
0x28: 0000 00 29 03 fc 80 04 73 65 29 3b 04 00 00 00 00 32 ┆ ) se); 2┆
0x29: 0000 00 2a 03 fc 80 17 2e 69 6d 61 67 65 28 61 6e 5f ┆ * .image(an_┆
0x2a: 0000 00 2b 03 fc 80 13 20 20 20 20 20 20 20 20 20 20 ┆ + ┆
0x2b: 0000 00 2c 03 fc 00 46 20 2d 2d 69 66 20 66 69 65 6c ┆ , F --if fiel┆
0x2c: 0000 00 2d 03 fc 00 34 20 20 20 20 20 20 20 20 20 20 ┆ - 4 ┆
0x2d: 0000 00 2e 03 fa 80 0b 42 6f 6f 6c 65 61 6e 29 20 69 ┆ . Boolean) i┆
0x2e: 0000 00 2f 03 fc 80 07 76 61 6c 75 65 29 3b 07 00 07 ┆ / value); ┆
0x2f: 0000 00 30 03 fc 80 02 29 3b 02 00 21 20 20 20 20 20 ┆ 0 ); ! ┆
0x30: 0000 00 31 03 fc 80 03 6f 6f 70 03 00 6e 69 66 20 63 ┆ 1 oop nif c┆
0x31: 0000 00 32 03 fc 80 07 65 61 6e 29 20 69 73 07 00 28 ┆ 2 ean) is (┆
0x32: 0000 00 33 03 fc 80 15 64 5f 64 69 72 65 63 74 69 6f ┆ 3 d_directio┆
0x33: 0000 00 34 03 fc 80 49 20 20 20 20 20 20 20 20 20 20 ┆ 4 I ┆
0x34: 0000 00 35 03 fc 80 53 65 72 61 6c 5f 69 6e 64 65 78 ┆ 5 Seral_index┆
0x35: 0000 00 36 03 fc 80 5e 64 75 72 65 20 4d 6f 79 65 6e ┆ 6 ^dure Moyen┆
0x36: 0000 00 37 03 fc 80 0a 6f 6f 6c 65 61 6e 29 20 69 73 ┆ 7 oolean) is┆
0x37: 0000 00 38 03 fc 80 17 76 61 6c 75 65 29 3b 20 20 20 ┆ 8 value); ┆
0x38: 0000 00 39 03 fc 80 10 6f 77 5f 45 74 61 74 73 5f 4c ┆ 9 ow_Etats_L┆
0x39: 0000 00 3a 03 fc 80 11 5f 6c 69 73 74 2c 20 4c 6f 63 ┆ : _list, Loc┆
0x3a: 0000 00 3b 03 fc 80 12 20 20 20 20 20 20 20 20 20 20 ┆ ; ┆
0x3b: 0000 00 3c 03 fc 80 12 4c 6f 77 65 72 5f 43 61 73 65 ┆ < Lower_Case┆
0x3c: 0000 00 3d 03 fc 80 2e 20 20 20 20 20 20 20 20 20 20 ┆ = . ┆
0x3d: 0000 00 3e 03 fc 80 34 61 6c 5f 6f 6b 20 66 61 75 78 ┆ > 4al_ok faux┆
0x3e: 0000 00 3f 03 fc 80 26 20 20 20 20 20 69 66 20 4c 65 ┆ ? & if Le┆
0x3f: 0000 00 40 03 fc 80 04 6f 6f 70 3b 04 00 1e 20 20 20 ┆ @ oop; ┆
0x40: 0000 00 41 03 fc 80 15 74 75 72 65 5f 54 79 70 65 2c ┆ A ture_Type,┆
0x41: 0000 00 42 03 fc 80 3e 53 74 72 75 63 74 75 72 65 5f ┆ B >Structure_┆
0x42: 0000 00 43 03 fc 80 1b 20 69 66 20 4c 65 78 2e 47 65 ┆ C if Lex.Ge┆
0x43: 0000 00 44 03 fc 80 1d 64 20 69 66 3b 20 20 20 20 20 ┆ D d if; ┆
0x44: 0000 00 45 03 fc 80 4d 61 74 69 6f 6e 5f 61 72 72 61 ┆ E Mation_arra┆
0x45: 0000 00 46 03 fc 80 15 20 20 20 20 20 20 20 20 20 20 ┆ F ┆
0x46: 0000 00 47 03 fc 80 2c 73 74 65 5f 4d 65 73 73 61 67 ┆ G ,ste_Messag┆
0x47: 0000 00 48 03 fc 80 01 3b 01 00 15 20 20 20 20 20 20 ┆ H ; ┆
0x48: 0000 00 49 03 fc 80 3e 61 6c 28 61 6e 5f 6f 62 6a 65 ┆ I >al(an_obje┆
0x49: 0000 00 4a 03 fc 80 03 68 65 6e 03 00 3d 69 66 20 63 ┆ J hen =if c┆
0x4a: 0000 00 4b 03 fc 80 1d 70 6c 65 6d 65 6e 74 2c 61 74 ┆ K plement,at┆
0x4b: 0000 00 4c 03 fc 80 20 20 20 20 20 20 20 20 20 20 4f ┆ L O┆
0x4c: 0000 00 4d 03 fc 80 1e 74 75 72 65 5f 41 72 72 61 79 ┆ M ture_Array┆
0x4d: 0000 00 4e 03 fc 80 31 74 69 66 69 65 72 2e 46 72 6f ┆ N 1tifier.Fro┆
0x4e: 0000 00 4f 03 fc 80 25 20 20 20 20 20 20 20 20 20 20 ┆ O % ┆
0x4f: 0000 00 50 03 fc 80 08 75 65 29 20 74 68 65 6e 08 00 ┆ P ue) then ┆
0x50: 0000 00 51 03 fc 80 2d 20 20 20 20 20 20 20 20 20 20 ┆ Q - ┆
0x51: 0000 00 52 03 fc 80 0a 75 74 20 28 22 65 31 22 29 3b ┆ R ut ("e1");┆
0x52: 0000 00 53 03 fc 80 1a 6f 63 61 6c 5f 4f 6b 20 3a 20 ┆ S ocal_Ok : ┆
0x53: 0000 00 54 03 fc 80 06 65 73 73 29 29 3b 06 00 0f 20 ┆ T ess)); ┆
0x54: 0000 00 55 03 fc 80 2d 20 20 20 20 20 20 20 20 20 20 ┆ U - ┆
0x55: 0000 00 56 03 fc 80 04 74 22 29 3b 04 00 1f 20 20 20 ┆ V t"); ┆
0x56: 0000 00 57 03 fc 80 05 64 20 69 66 3b 05 00 0c 20 20 ┆ W d if; ┆
0x57: 0000 00 58 03 fc 80 13 20 20 20 20 20 20 20 20 20 20 ┆ X ┆
0x58: 0000 00 59 03 fc 80 01 6e 01 00 12 2d 2d 6f 72 64 65 ┆ Y n --orde┆
0x59: 0000 00 5a 03 fc 80 31 74 72 69 6e 67 2e 66 72 6f 6d ┆ Z 1tring.from┆
0x5a: 0000 00 5b 03 fc 80 26 6e 73 74 72 75 63 74 69 6f 6e ┆ [ &nstruction┆
0x5b: 0000 00 5c 03 fc 80 09 4c 65 78 2e 4e 65 78 74 3b 09 ┆ \ Lex.Next; ┆
0x5c: 0000 00 5d 03 fc 80 04 6c 73 65 3b 04 00 42 20 20 20 ┆ ] lse; B ┆
0x5d: 0000 00 5e 03 fc 80 0f 62 6a 65 74 2c 6c 6f 63 61 6c ┆ ^ bjet,local┆
0x5e: 0000 00 5f 03 fc 80 64 20 2d 2d 65 72 72 6f 72 2e 73 ┆ _ d --error.s┆
0x5f: 0000 00 60 03 fc 80 19 6c 6c 6f 77 5f 49 6e 73 74 72 ┆ ` llow_Instr┆
0x60: 0000 00 61 03 fc 80 15 20 20 20 20 20 20 20 20 20 20 ┆ a ┆
0x61: 0000 00 62 03 fc 00 11 20 20 20 20 20 20 20 20 65 6e ┆ b en┆
0x62: 0000 00 63 03 fb 80 0c 20 20 20 20 20 2d 2d 20 65 6c ┆ c -- el┆
0x63: 0000 00 64 03 fc 80 3c 74 61 69 6c 2c 66 69 65 6c 64 ┆ d <tail,field┆
0x64: 0000 00 65 03 fc 80 16 20 20 20 20 4c 6f 63 61 6c 5f ┆ e Local_┆
0x65: 0000 00 66 03 fc 80 0d 74 69 6f 6e 5f 53 69 6d 70 6c ┆ f tion_Simpl┆
0x66: 0000 00 67 03 fc 80 20 20 20 20 20 20 20 20 20 20 20 ┆ g ┆
0x67: 0000 00 68 03 fc 80 11 6f 63 61 6c 5f 6f 6b 20 3a 3d ┆ h ocal_ok :=┆
0x68: 0000 00 69 03 fc 80 18 20 20 20 20 20 20 4c 6f 63 61 ┆ i Loca┆
0x69: 0000 00 6a 03 fc 80 03 6b 29 3b 03 00 29 20 20 2d 2d ┆ j k); ) --┆
0x6a: 0000 00 6b 03 fc 80 0f 20 2d 2d 20 6f 75 20 65 74 20 ┆ k -- ou et ┆
0x6b: 0000 00 6c 03 fc 80 29 6c 65 61 6e 5f 41 72 72 61 79 ┆ l )lean_Array┆
0x6c: 0000 00 6d 03 fc 80 20 20 20 20 20 20 20 20 20 20 20 ┆ m ┆
0x6d: 0000 00 6e 03 fc 80 11 20 20 20 20 20 20 20 20 4c 65 ┆ n Le┆
0x6e: 0000 00 6f 03 fc 00 18 20 20 20 20 20 20 20 20 20 20 ┆ o ┆
0x6f: 0000 00 70 03 fa 80 29 69 73 5f 61 5f 70 6c 61 63 65 ┆ p )is_a_place┆
0x70: 0000 00 71 03 fc 80 0f 20 77 68 65 6e 20 48 65 72 6f ┆ q when Hero┆
0x71: 0000 00 72 03 fc 00 61 2d 2d 63 6f 6e 64 69 74 69 6f ┆ r a--conditio┆
0x72: 0000 00 73 03 fa 80 45 6f 6d 70 6c 65 6d 65 6e 74 5f ┆ s Eomplement_┆
0x73: 0000 00 74 03 fc 80 53 5f 67 72 6f 75 70 28 61 5f 64 ┆ t S_group(a_d┆
0x74: 0000 00 75 03 fc 80 35 69 6e 64 27 76 61 6c 75 65 28 ┆ u 5ind'value(┆
0x75: 0000 00 76 03 fc 80 11 20 20 20 77 68 65 6e 20 6f 74 ┆ v when ot┆
0x76: 0000 00 77 03 fc 80 0f 6f 6f 6c 65 61 6e 5f 41 72 72 ┆ w oolean_Arr┆
0x77: 0000 00 78 03 fc 80 14 61 73 65 20 4c 65 78 2e 47 65 ┆ x ase Lex.Ge┆
0x78: 0000 00 79 03 fc 80 12 69 6f 6e 2c 61 6e 5f 61 74 74 ┆ y ion,an_att┆
0x79: 0000 00 7a 03 fc 80 0b 6b 20 3a 3d 20 46 61 6c 73 65 ┆ z k := False┆
0x7a: 0000 00 7b 03 fc 80 3d 6f 72 64 65 72 5f 6c 69 73 74 ┆ { =order_list┆
0x7b: 0000 00 7c 03 fc 80 0b 20 20 20 20 65 6e 64 20 69 66 ┆ | end if┆
0x7c: 0000 00 7d 03 fc 80 10 4f 6b 20 61 6e 64 20 4c 6f 63 ┆ } Ok and Loc┆
0x7d: 0000 00 7e 03 fc 80 0c 65 61 74 20 5c 3d 30 20 74 68 ┆ ~ eat \=0 th┆
0x7e: 0000 00 7f 03 fc 80 0d 5f 4f 6b 20 3a 3d 20 46 61 6c ┆ _Ok := Fal┆
0x7f: 0000 00 80 03 fc 80 28 20 20 20 20 28 49 64 65 6e 74 ┆ ( (Ident┆
0x80: 0000 00 81 03 fc 80 10 65 6e 20 3d 20 47 72 6f 75 70 ┆ en = Group┆
0x81: 0000 00 82 03 fc 80 28 6c 61 63 65 5f 69 6e 64 65 78 ┆ (lace_index┆
0x82: 0000 00 83 03 fc 80 14 69 6f 6e 73 20 64 27 75 73 61 ┆ ions d'usa┆
0x83: 0000 00 84 03 fc 80 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x84: 0000 00 85 03 fc 80 02 65 6e 02 00 15 20 20 20 20 20 ┆ en ┆
0x85: 0000 00 86 03 fc 80 08 3d 20 66 61 6c 73 65 3b 08 00 ┆ = false; ┆
0x86: 0000 00 87 03 fc 80 30 20 20 77 68 69 6c 65 20 6e 6f ┆ 0 while no┆
0x87: 0000 00 88 03 fc 80 3b 6f 63 65 64 75 72 65 20 53 79 ┆ ;ocedure Sy┆
0x88: 0000 00 89 03 fc 80 32 20 20 20 20 20 20 20 20 20 20 ┆ 2 ┆
0x89: 0000 00 8a 03 fc 80 14 46 6f 6c 6c 6f 77 5f 45 74 61 ┆ Follow_Eta┆
0x8a: 0000 00 8b 03 fc 80 1b 65 20 28 22 65 74 61 74 73 20 ┆ e ("etats ┆
0x8b: 0000 00 8c 03 fc 80 36 20 20 20 20 20 20 20 20 20 20 ┆ 6 ┆
0x8c: 0000 00 8d 03 fc 80 0e 69 6e 65 20 28 22 6f 62 6a 65 ┆ ine ("obje┆
0x8d: 0000 00 8e 03 fc 80 13 74 69 66 69 65 72 5f 4c 69 73 ┆ tifier_Lis┆
0x8e: 0000 00 8f 03 fc 00 04 20 20 20 20 04 00 05 62 65 67 ┆ beg┆
0x8f: 0000 00 90 03 fb 80 32 20 20 20 28 4c 65 78 2e 47 65 ┆ 2 (Lex.Ge┆
0x90: 0000 00 91 03 fc 80 33 20 20 20 20 20 20 20 20 20 20 ┆ 3 ┆
0x91: 0000 00 92 03 fc 80 cc 20 70 62 20 73 69 20 74 79 70 ┆ pb si typ┆
0x92: 0000 00 93 03 fc 80 04 65 73 29 3b 04 00 17 20 20 20 ┆ es); ┆
0x93: 0000 00 94 03 fc 80 10 6b 65 6e 20 3d 20 43 6f 6c 6f ┆ ken = Colo┆
0x94: 0000 00 95 03 fc 80 11 4d 65 73 73 61 67 65 73 5f 45 ┆ Messages_E┆
0x95: 0000 00 96 03 fc 80 15 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x96: 0000 00 97 03 fc 80 0b 61 73 65 5f 56 61 6c 75 65 29 ┆ ase_Value)┆
0x97: 0000 00 98 03 fc 80 37 20 28 6e 65 69 74 68 65 72 5f ┆ 7 (neither_┆
0x98: 0000 00 99 03 fc 00 04 65 6c 73 65 04 00 10 6c 6f 63 ┆ else loc┆
0x99: 0000 00 9a 03 f9 80 28 20 20 20 20 20 20 20 20 20 20 ┆ ( ┆
0x9a: 0000 00 9b 03 fc 80 16 72 69 62 75 74 65 5f 69 6e 64 ┆ ribute_ind┆
0x9b: 0000 00 9c 03 fc 80 06 6e 64 20 69 66 3b 06 00 04 65 ┆ nd if; e┆
0x9c: 0000 00 9d 03 fc 80 1b 6e 74 65 6e 63 65 20 3a 20 49 ┆ ntence : I┆
0x9d: 0000 00 9e 03 fc 80 11 64 20 54 79 70 65 5f 53 74 72 ┆ d Type_Str┆
0x9e: 0000 00 9f 00 06 80 03 20 65 6e 03 6f 74 20 6c 6f 63 ┆ en ot loc┆
0x9f: 0000 00 a0 03 fb 80 18 74 69 6f 6e 5f 54 79 70 65 20 ┆ tion_Type ┆
0xa0: 0000 00 00 0c 00 1e 05 a1 20 03 b0 24 38 00 74 16 84 ┆ $8 t ┆