|
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 ┆