|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 Tapes |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Tapes Excavated with: AutoArchaeologist - Free & Open Source Software. |
top
Length: 39183062 (0x255e2d6)
Types: R1K_ARCHIVE_DATA
Names: »DATA«
└─⟦180fe333a⟧ Bits:30000405 8mm tape, Rational 1000, SW CATALOG, 10_20_0
└─ ⟦5cb1d1d7f⟧ »DATA«
└─⟦this⟧
0x0000000…0000020 63 ad 58 b1 00 00 00 00 00 00 00 20 00 00 02 00 00 00 01 80 00 00 02 80 00 00 02 00 00 00 00 04 ┆c X ┆ 0x0000020…0000040 00 00 00 00 00 00 00 00 00 00 00 04 00 00 00 21 49 15 58 c5 7c c1 7c c4 21 4d 4f 44 45 4c 2e 52 ┆ !I X | | !MODEL.R┆ 0x0000040…0000060 31 30 30 30 5f 49 4d 50 4c 45 4d 45 4e 54 41 54 49 4f 4e 52 45 56 31 63 ad 58 b1 00 00 00 00 00 ┆1000_IMPLEMENTATIONREV1c X ┆ 0x0000060…0000080 00 00 2c 00 00 02 00 00 00 01 80 00 00 02 80 00 00 02 60 00 00 00 04 00 00 00 00 00 00 00 00 00 ┆ , ` ┆ 0x0000080…00000a0 00 00 04 00 00 00 2d 49 15 58 c5 7c c1 7d 4d 41 15 0c 63 ad 58 b1 00 00 00 00 00 00 00 30 00 00 ┆ -I X | }MA c X 0 ┆ 0x00000a0…00000c0 02 00 00 00 01 80 00 00 02 80 00 00 02 80 00 00 00 04 00 00 00 00 00 00 00 00 00 00 00 04 00 00 ┆ ┆ 0x00000c0…00000e0 00 31 49 15 58 c5 7d 5d 3d 49 2d 25 39 1c 72 65 70 6c 61 63 65 5f 69 64 27 73 70 65 63 0a 72 65 ┆ 1I X }]=I-%9 replace_id'spec re┆ 0x00000e0…0000100 61 64 5f 6d 65 0a 52 41 54 49 4f 4e 41 4c 5f 43 4f 50 59 52 49 47 48 54 5f 57 41 52 4e 49 4e 47 ┆ad_me RATIONAL_COPYRIGHT_WARNING┆ 0x0000100…0000120 32 0a 30 0a 30 0a 30 0a 30 0a 30 0a 30 0a 30 0a 30 0a 30 63 ad 58 b1 00 00 00 00 00 00 00 20 00 ┆2 0 0 0 0 0 0 0 0 0c X ┆ 0x0000120…0000140 00 02 00 00 00 01 80 00 00 02 80 00 00 02 00 00 00 00 04 00 00 00 00 00 00 00 00 00 00 00 04 00 ┆ ┆ 0x0000140…0000160 00 00 21 49 15 58 c5 7c c1 7c c4 52 45 56 31 5f 30 5f 31 4c 4f 41 44 54 68 65 20 73 6f 66 74 77 ┆ !I X | | REV1_0_1LOADThe softw┆ 0x0000160…0000180 61 72 65 20 63 6f 6e 74 61 69 6e 65 64 20 69 6e 20 74 68 69 73 20 6c 69 62 72 61 72 79 20 77 61 ┆are contained in this library wa┆ 0x0000180…00001a0 73 20 65 78 74 72 61 63 74 65 64 20 66 72 6f 6d 20 74 68 65 20 70 75 62 6c 69 63 20 64 6f 6d 61 ┆s extracted from the public doma┆ 0x00001a0…00001c0 69 6e 2e 0a 54 68 65 20 75 73 65 20 6f 66 20 74 68 69 73 20 73 6f 66 74 77 61 72 65 20 69 73 20 ┆in. The use of this software is ┆ 0x00001c0…00001e0 73 75 62 6a 65 63 74 20 74 6f 20 74 68 65 20 72 65 73 74 72 69 63 74 69 6f 6e 73 20 70 6c 61 63 ┆subject to the restrictions plac┆ 0x00001e0…0000200 65 64 20 75 70 6f 6e 20 69 74 0a 62 79 20 69 74 73 20 6f 72 69 67 69 6e 61 6c 20 61 75 74 68 6f ┆ed upon it by its original autho┆ 0x0000200…0000220 72 28 73 29 2c 20 61 73 20 73 65 74 20 66 6f 72 74 68 20 69 6e 20 74 68 65 20 63 6f 6d 6d 65 6e ┆r(s), as set forth in the commen┆ 0x0000220…0000240 74 73 20 61 6e 64 2f 6f 72 20 64 6f 63 75 6d 65 6e 74 2d 0a 61 74 69 6f 6e 20 63 6f 6e 74 61 69 ┆ts and/or document- ation contai┆ 0x0000240…0000260 6e 65 64 20 69 6e 20 74 68 69 73 20 6c 69 62 72 61 72 79 2e 77 69 74 68 20 44 69 72 65 63 74 6f ┆ned in this library.with Directo┆ 0x0000260…0000280 72 79 5f 54 6f 6f 6c 73 3b 0a 70 61 63 6b 61 67 65 20 43 6c 6f 73 75 72 65 20 69 73 0a 20 20 20 ┆ry_Tools; package Closure is ┆ 0x0000280…00002a0 20 70 61 63 6b 61 67 65 20 4f 62 6a 65 63 74 20 72 65 6e 61 6d 65 73 20 44 69 72 65 63 74 6f 72 ┆ package Object renames Director┆ 0x00002a0…00002c0 79 5f 54 6f 6f 6c 73 2e 4f 62 6a 65 63 74 3b 0a 0a 20 20 20 20 70 72 6f 63 65 64 75 72 65 20 50 ┆y_Tools.Object; procedure P┆ 0x00002c0…00002e0 72 69 6e 74 20 28 49 74 65 72 20 3a 20 69 6e 20 6f 75 74 20 4f 62 6a 65 63 74 2e 49 74 65 72 61 ┆rint (Iter : in out Object.Itera┆ 0x00002e0…0000300 74 6f 72 29 3b 0a 0a 0a 20 20 20 20 66 75 6e 63 74 69 6f 6e 20 46 61 6d 69 6c 79 20 28 4f 62 6a ┆tor); function Family (Obj┆ 0x0000300…0000320 20 3a 20 4f 62 6a 65 63 74 2e 48 61 6e 64 6c 65 29 20 72 65 74 75 72 6e 20 4f 62 6a 65 63 74 2e ┆ : Object.Handle) return Object.┆ 0x0000320…0000340 49 74 65 72 61 74 6f 72 3b 0a 0a 20 20 20 20 66 75 6e 63 74 69 6f 6e 20 44 65 70 65 6e 64 65 6e ┆Iterator; function Dependen┆ 0x0000340…0000360 63 79 5f 43 6c 6f 73 75 72 65 20 28 4f 62 6a 20 3a 20 4f 62 6a 65 63 74 2e 48 61 6e 64 6c 65 29 ┆cy_Closure (Obj : Object.Handle)┆ 0x0000360…0000380 20 72 65 74 75 72 6e 20 4f 62 6a 65 63 74 2e 49 74 65 72 61 74 6f 72 3b 0a 65 6e 64 20 43 6c 6f ┆ return Object.Iterator; end Clo┆ 0x0000380…00003a0 73 75 72 65 3b 77 69 74 68 20 49 6f 3b 0a 77 69 74 68 20 44 69 72 65 63 74 6f 72 79 5f 54 6f 6f ┆sure;with Io; with Directory_Too┆ 0x00003a0…00003c0 6c 73 3b 0a 70 61 63 6b 61 67 65 20 62 6f 64 79 20 43 6c 6f 73 75 72 65 20 69 73 0a 20 20 20 20 ┆ls; package body Closure is ┆ 0x00003c0…00003e0 70 61 63 6b 61 67 65 20 54 72 61 76 65 72 73 61 6c 20 72 65 6e 61 6d 65 73 20 44 69 72 65 63 74 ┆package Traversal renames Direct┆ 0x00003e0…0000400 6f 72 79 5f 54 6f 6f 6c 73 2e 54 72 61 76 65 72 73 61 6c 3b 0a 20 20 20 20 70 61 63 6b 61 67 65 ┆ory_Tools.Traversal; package┆ 0x0000400…0000420 20 4e 61 6d 69 6e 67 20 72 65 6e 61 6d 65 73 20 44 69 72 65 63 74 6f 72 79 5f 54 6f 6f 6c 73 2e ┆ Naming renames Directory_Tools.┆ 0x0000420…0000440 4e 61 6d 69 6e 67 3b 0a 20 20 20 20 70 61 63 6b 61 67 65 20 41 64 61 5f 4f 62 6a 65 63 74 20 72 ┆Naming; package Ada_Object r┆ 0x0000440…0000460 65 6e 61 6d 65 73 20 44 69 72 65 63 74 6f 72 79 5f 54 6f 6f 6c 73 2e 41 64 61 5f 4f 62 6a 65 63 ┆enames Directory_Tools.Ada_Objec┆ 0x0000460…0000480 74 3b 0a 0a 20 20 20 20 74 79 70 65 20 53 74 61 74 65 20 69 73 20 6e 65 77 20 42 6f 6f 6c 65 61 ┆t; type State is new Boolea┆ 0x0000480…00004a0 6e 3b 0a 0a 20 20 20 20 70 72 6f 63 65 64 75 72 65 20 46 61 6d 69 6c 79 5f 4f 70 20 28 53 20 3a ┆n; procedure Family_Op (S :┆ 0x00004a0…00004c0 20 69 6e 20 6f 75 74 20 53 74 61 74 65 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ in out State; ┆ 0x00004c0…00004e0 20 20 20 20 20 20 20 20 4f 62 6a 20 3a 20 4f 62 6a 65 63 74 2e 48 61 6e 64 6c 65 3b 0a 20 20 20 ┆ Obj : Object.Handle; ┆ 0x00004e0…0000500 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 74 65 72 20 3a 20 6f 75 74 ┆ Iter : out┆ 0x0000500…0000520 20 4f 62 6a 65 63 74 2e 49 74 65 72 61 74 6f 72 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ Object.Iterator; ┆ 0x0000520…0000540 20 20 20 20 20 20 20 20 20 20 20 53 74 61 74 75 73 20 3a 20 6f 75 74 20 4f 62 6a 65 63 74 2e 45 ┆ Status : out Object.E┆ 0x0000540…0000560 72 72 6f 72 5f 43 6f 64 65 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆rror_Code; ┆ 0x0000560…0000580 20 20 20 20 43 6f 6e 74 72 6f 6c 20 3a 20 69 6e 20 6f 75 74 20 54 72 61 76 65 72 73 61 6c 2e 43 ┆ Control : in out Traversal.C┆ 0x0000580…00005a0 6f 6e 74 72 6f 6c 5f 45 6e 75 6d 65 72 61 74 69 6f 6e 29 20 69 73 0a 20 20 20 20 20 20 20 20 4c ┆ontrol_Enumeration) is L┆ 0x00005a0…00005c0 6f 63 61 6c 20 3a 20 4f 62 6a 65 63 74 2e 49 74 65 72 61 74 6f 72 20 3a 3d 20 4f 62 6a 65 63 74 ┆ocal : Object.Iterator := Object┆ 0x00005c0…00005e0 2e 43 72 65 61 74 65 3b 0a 20 20 20 20 20 20 20 20 54 68 65 5f 42 6f 64 79 20 3a 20 4f 62 6a 65 ┆.Create; The_Body : Obje┆ 0x00005e0…0000600 63 74 2e 48 61 6e 64 6c 65 3b 0a 20 20 20 20 20 20 20 20 44 75 70 20 3a 20 42 6f 6f 6c 65 61 6e ┆ct.Handle; Dup : Boolean┆ 0x0000600…0000620 3b 0a 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 69 66 20 41 64 61 5f 4f 62 6a 65 63 ┆; begin if Ada_Objec┆ 0x0000620…0000640 74 2e 49 73 5f 56 69 73 69 62 6c 65 5f 50 61 72 74 20 28 4f 62 6a 29 20 74 68 65 6e 0a 20 20 20 ┆t.Is_Visible_Part (Obj) then ┆ 0x0000640…0000660 20 20 20 20 20 20 20 20 20 54 68 65 5f 42 6f 64 79 20 3a 3d 20 41 64 61 5f 4f 62 6a 65 63 74 2e ┆ The_Body := Ada_Object.┆ 0x0000660…0000680 4f 74 68 65 72 5f 50 61 72 74 20 28 4f 62 6a 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 ┆Other_Part (Obj); if┆ 0x0000680…00006a0 20 6e 6f 74 20 4f 62 6a 65 63 74 2e 49 73 5f 42 61 64 20 28 54 68 65 5f 42 6f 64 79 29 20 74 68 ┆ not Object.Is_Bad (The_Body) th┆ 0x00006a0…00006c0 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4f 62 6a 65 63 74 2e 41 64 64 20 28 4c ┆en Object.Add (L┆ 0x00006c0…00006e0 6f 63 61 6c 2c 20 54 68 65 5f 42 6f 64 79 2c 20 44 75 70 29 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆ocal, The_Body, Dup); ┆ 0x00006e0…0000700 20 20 65 6e 64 20 69 66 3b 0a 20 20 20 20 20 20 20 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 ┆ end if; else ┆ 0x0000700…0000720 20 20 20 4c 6f 63 61 6c 20 3a 3d 20 41 64 61 5f 4f 62 6a 65 63 74 2e 53 75 62 75 6e 69 74 73 20 ┆ Local := Ada_Object.Subunits ┆ 0x0000720…0000740 28 4f 62 6a 29 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 20 69 66 3b 0a 20 20 20 20 20 20 20 20 53 ┆(Obj); end if; S┆ 0x0000740…0000760 74 61 74 75 73 20 3a 3d 20 4f 62 6a 65 63 74 2e 45 72 72 5f 43 6f 64 65 20 28 4c 6f 63 61 6c 29 ┆tatus := Object.Err_Code (Local)┆ 0x0000760…0000780 3b 0a 20 20 20 20 20 20 20 20 49 74 65 72 20 3a 3d 20 4c 6f 63 61 6c 3b 0a 20 20 20 20 65 6e 64 ┆; Iter := Local; end┆ 0x0000780…00007a0 20 46 61 6d 69 6c 79 5f 4f 70 3b 0a 0a 20 20 20 20 70 72 6f 63 65 64 75 72 65 20 46 61 6d 69 6c ┆ Family_Op; procedure Famil┆ 0x00007a0…00007c0 79 5f 43 6c 6f 73 75 72 65 20 69 73 20 6e 65 77 20 54 72 61 76 65 72 73 61 6c 2e 43 6c 6f 73 75 ┆y_Closure is new Traversal.Closu┆ 0x00007c0…00007e0 72 65 20 28 53 74 61 74 65 2c 20 46 61 6d 69 6c 79 5f 4f 70 29 3b 0a 0a 20 20 20 20 66 75 6e 63 ┆re (State, Family_Op); func┆ 0x00007e0…0000800 74 69 6f 6e 20 46 61 6d 69 6c 79 20 28 4f 62 6a 20 3a 20 4f 62 6a 65 63 74 2e 48 61 6e 64 6c 65 ┆tion Family (Obj : Object.Handle┆ 0x0000800…0000820 29 20 72 65 74 75 72 6e 20 4f 62 6a 65 63 74 2e 49 74 65 72 61 74 6f 72 20 69 73 0a 20 20 20 20 ┆) return Object.Iterator is ┆ 0x0000820…0000840 20 20 20 20 49 6e 5f 49 74 65 72 20 3a 20 4f 62 6a 65 63 74 2e 49 74 65 72 61 74 6f 72 20 3a 3d ┆ In_Iter : Object.Iterator :=┆ 0x0000840…0000860 20 4f 62 6a 65 63 74 2e 43 72 65 61 74 65 3b 0a 20 20 20 20 20 20 20 20 43 6c 6f 73 75 72 65 20 ┆ Object.Create; Closure ┆ 0x0000860…0000880 3a 20 4f 62 6a 65 63 74 2e 49 74 65 72 61 74 6f 72 3b 0a 20 20 20 20 20 20 20 20 44 75 70 20 3a ┆: Object.Iterator; Dup :┆ 0x0000880…00008a0 20 42 6f 6f 6c 65 61 6e 3b 0a 20 20 20 20 20 20 20 20 53 74 61 74 20 3a 20 53 74 61 74 65 20 3a ┆ Boolean; Stat : State :┆ 0x00008a0…00008c0 3d 20 54 72 75 65 3b 0a 20 20 20 20 20 20 20 20 53 74 61 74 75 73 20 3a 20 4f 62 6a 65 63 74 2e ┆= True; Status : Object.┆ 0x00008c0…00008e0 45 72 72 6f 72 5f 43 6f 64 65 3b 0a 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 4f 62 ┆Error_Code; begin Ob┆ 0x00008e0…0000900 6a 65 63 74 2e 41 64 64 20 28 49 6e 5f 49 74 65 72 2c 20 4f 62 6a 2c 20 44 75 70 29 3b 0a 20 20 ┆ject.Add (In_Iter, Obj, Dup); ┆ 0x0000900…0000920 20 20 20 20 20 20 46 61 6d 69 6c 79 5f 43 6c 6f 73 75 72 65 20 28 53 74 61 74 2c 20 49 6e 5f 49 ┆ Family_Closure (Stat, In_I┆ 0x0000920…0000940 74 65 72 2c 20 43 6c 6f 73 75 72 65 2c 20 53 74 61 74 75 73 29 3b 0a 20 20 20 20 20 20 20 20 72 ┆ter, Closure, Status); r┆ 0x0000940…0000960 65 74 75 72 6e 20 43 6c 6f 73 75 72 65 3b 0a 20 20 20 20 65 6e 64 20 46 61 6d 69 6c 79 3b 0a 0a ┆eturn Closure; end Family; ┆ 0x0000960…0000980 20 20 20 20 70 72 6f 63 65 64 75 72 65 20 4f 70 20 28 53 20 3a 20 69 6e 20 6f 75 74 20 53 74 61 ┆ procedure Op (S : in out Sta┆ 0x0000980…00009a0 74 65 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4f 62 6a 20 3a 20 4f 62 6a 65 ┆te; Obj : Obje┆ 0x00009a0…00009c0 63 74 2e 48 61 6e 64 6c 65 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 74 65 ┆ct.Handle; Ite┆ 0x00009c0…00009e0 72 20 3a 20 6f 75 74 20 4f 62 6a 65 63 74 2e 49 74 65 72 61 74 6f 72 3b 0a 20 20 20 20 20 20 20 ┆r : out Object.Iterator; ┆ 0x00009e0…0000a00 20 20 20 20 20 20 20 20 20 20 20 53 74 61 74 75 73 20 3a 20 6f 75 74 20 4f 62 6a 65 63 74 2e 45 ┆ Status : out Object.E┆ 0x0000a00…0000a20 72 72 6f 72 5f 43 6f 64 65 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 43 6f 6e ┆rror_Code; Con┆ 0x0000a20…0000a40 74 72 6f 6c 20 3a 20 69 6e 20 6f 75 74 20 54 72 61 76 65 72 73 61 6c 2e 43 6f 6e 74 72 6f 6c 5f ┆trol : in out Traversal.Control_┆ 0x0000a40…0000a60 45 6e 75 6d 65 72 61 74 69 6f 6e 29 20 69 73 0a 20 20 20 20 20 20 20 20 4c 6f 63 61 6c 20 3a 20 ┆Enumeration) is Local : ┆ 0x0000a60…0000a80 4f 62 6a 65 63 74 2e 49 74 65 72 61 74 6f 72 20 3a 3d 20 4f 62 6a 65 63 74 2e 43 72 65 61 74 65 ┆Object.Iterator := Object.Create┆ 0x0000a80…0000aa0 3b 0a 20 20 20 20 20 20 20 20 54 68 65 5f 42 6f 64 79 20 3a 20 4f 62 6a 65 63 74 2e 48 61 6e 64 ┆; The_Body : Object.Hand┆ 0x0000aa0…0000ac0 6c 65 3b 0a 20 20 20 20 20 20 20 20 44 75 70 20 3a 20 42 6f 6f 6c 65 61 6e 3b 0a 20 20 20 20 62 ┆le; Dup : Boolean; b┆ 0x0000ac0…0000ae0 65 67 69 6e 0a 20 20 20 20 20 20 20 20 69 66 20 41 64 61 5f 4f 62 6a 65 63 74 2e 49 73 5f 56 69 ┆egin if Ada_Object.Is_Vi┆ 0x0000ae0…0000b00 73 69 62 6c 65 5f 50 61 72 74 20 28 4f 62 6a 29 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 ┆sible_Part (Obj) then ┆ 0x0000b00…0000b20 20 20 4c 6f 63 61 6c 20 3a 3d 20 41 64 61 5f 4f 62 6a 65 63 74 2e 44 65 70 65 6e 64 73 5f 4f 6e ┆ Local := Ada_Object.Depends_On┆ 0x0000b20…0000b40 20 28 4f 62 6a 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 54 68 65 5f 42 6f 64 79 20 3a 3d 20 ┆ (Obj); The_Body := ┆ 0x0000b40…0000b60 41 64 61 5f 4f 62 6a 65 63 74 2e 4f 74 68 65 72 5f 50 61 72 74 20 28 4f 62 6a 29 3b 0a 20 20 20 ┆Ada_Object.Other_Part (Obj); ┆ 0x0000b60…0000b80 20 20 20 20 20 20 20 20 20 69 66 20 6e 6f 74 20 4f 62 6a 65 63 74 2e 49 73 5f 42 61 64 20 28 54 ┆ if not Object.Is_Bad (T┆ 0x0000b80…0000ba0 68 65 5f 42 6f 64 79 29 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4f 62 ┆he_Body) then Ob┆ 0x0000ba0…0000bc0 6a 65 63 74 2e 41 64 64 20 28 4c 6f 63 61 6c 2c 20 54 68 65 5f 42 6f 64 79 2c 20 44 75 70 29 3b ┆ject.Add (Local, The_Body, Dup);┆ 0x0000bc0…0000be0 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 20 69 66 3b 0a 20 20 20 20 20 20 20 20 65 6c 73 ┆ end if; els┆ 0x0000be0…0000c00 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 4c 6f 63 61 6c 20 3a 3d 20 41 64 61 5f 4f 62 6a 65 63 ┆e Local := Ada_Objec┆ 0x0000c00…0000c20 74 2e 53 75 62 75 6e 69 74 73 20 28 4f 62 6a 29 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 20 69 66 ┆t.Subunits (Obj); end if┆ 0x0000c20…0000c40 3b 0a 20 20 20 20 20 20 20 20 53 74 61 74 75 73 20 3a 3d 20 4f 62 6a 65 63 74 2e 45 72 72 5f 43 ┆; Status := Object.Err_C┆ 0x0000c40…0000c60 6f 64 65 20 28 4c 6f 63 61 6c 29 3b 0a 20 20 20 20 20 20 20 20 49 74 65 72 20 3a 3d 20 4c 6f 63 ┆ode (Local); Iter := Loc┆ 0x0000c60…0000c80 61 6c 3b 0a 20 20 20 20 65 6e 64 20 4f 70 3b 0a 0a 20 20 20 20 70 72 6f 63 65 64 75 72 65 20 47 ┆al; end Op; procedure G┆ 0x0000c80…0000ca0 65 74 5f 43 6c 6f 73 75 72 65 20 69 73 20 6e 65 77 20 54 72 61 76 65 72 73 61 6c 2e 43 6c 6f 73 ┆et_Closure is new Traversal.Clos┆ 0x0000ca0…0000cc0 75 72 65 20 28 53 74 61 74 65 2c 20 4f 70 29 3b 0a 0a 20 20 20 20 66 75 6e 63 74 69 6f 6e 20 44 ┆ure (State, Op); function D┆ 0x0000cc0…0000ce0 65 70 65 6e 64 65 6e 63 79 5f 43 6c 6f 73 75 72 65 20 28 4f 62 6a 20 3a 20 4f 62 6a 65 63 74 2e ┆ependency_Closure (Obj : Object.┆ 0x0000ce0…0000d00 48 61 6e 64 6c 65 29 20 72 65 74 75 72 6e 20 4f 62 6a 65 63 74 2e 49 74 65 72 61 74 6f 72 20 69 ┆Handle) return Object.Iterator i┆ 0x0000d00…0000d20 73 0a 20 20 20 20 20 20 20 20 49 6e 5f 49 74 65 72 20 3a 20 4f 62 6a 65 63 74 2e 49 74 65 72 61 ┆s In_Iter : Object.Itera┆ 0x0000d20…0000d40 74 6f 72 20 3a 3d 20 4f 62 6a 65 63 74 2e 43 72 65 61 74 65 3b 0a 20 20 20 20 20 20 20 20 43 6c ┆tor := Object.Create; Cl┆ 0x0000d40…0000d60 6f 73 75 72 65 20 3a 20 4f 62 6a 65 63 74 2e 49 74 65 72 61 74 6f 72 3b 0a 20 20 20 20 20 20 20 ┆osure : Object.Iterator; ┆ 0x0000d60…0000d80 20 44 75 70 20 3a 20 42 6f 6f 6c 65 61 6e 3b 0a 20 20 20 20 20 20 20 20 53 74 61 74 20 3a 20 53 ┆ Dup : Boolean; Stat : S┆ 0x0000d80…0000da0 74 61 74 65 20 3a 3d 20 54 72 75 65 3b 0a 20 20 20 20 20 20 20 20 53 74 61 74 75 73 20 3a 20 4f ┆tate := True; Status : O┆ 0x0000da0…0000dc0 62 6a 65 63 74 2e 45 72 72 6f 72 5f 43 6f 64 65 3b 0a 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 ┆bject.Error_Code; begin ┆ 0x0000dc0…0000de0 20 20 20 20 4f 62 6a 65 63 74 2e 41 64 64 20 28 49 6e 5f 49 74 65 72 2c 20 4f 62 6a 2c 20 44 75 ┆ Object.Add (In_Iter, Obj, Du┆ 0x0000de0…0000e00 70 29 3b 0a 20 20 20 20 20 20 20 20 47 65 74 5f 43 6c 6f 73 75 72 65 20 28 53 74 61 74 2c 20 49 ┆p); Get_Closure (Stat, I┆ 0x0000e00…0000e20 6e 5f 49 74 65 72 2c 20 43 6c 6f 73 75 72 65 2c 20 53 74 61 74 75 73 29 3b 0a 20 20 20 20 20 20 ┆n_Iter, Closure, Status); ┆ 0x0000e20…0000e40 20 20 72 65 74 75 72 6e 20 43 6c 6f 73 75 72 65 3b 0a 20 20 20 20 65 6e 64 20 44 65 70 65 6e 64 ┆ return Closure; end Depend┆ 0x0000e40…0000e60 65 6e 63 79 5f 43 6c 6f 73 75 72 65 3b 0a 0a 20 20 20 20 70 72 6f 63 65 64 75 72 65 20 50 72 69 ┆ency_Closure; procedure Pri┆ 0x0000e60…0000e80 6e 74 20 28 49 74 65 72 20 3a 20 69 6e 20 6f 75 74 20 4f 62 6a 65 63 74 2e 49 74 65 72 61 74 6f ┆nt (Iter : in out Object.Iterato┆ 0x0000e80…0000ea0 72 29 20 69 73 0a 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 77 68 69 6c 65 20 6e 6f ┆r) is begin while no┆ 0x0000ea0…0000ec0 74 20 4f 62 6a 65 63 74 2e 44 6f 6e 65 20 28 49 74 65 72 29 20 6c 6f 6f 70 0a 20 20 20 20 20 20 ┆t Object.Done (Iter) loop ┆ 0x0000ec0…0000ee0 20 20 20 20 20 20 49 6f 2e 50 75 74 5f 4c 69 6e 65 20 28 4e 61 6d 69 6e 67 2e 55 6e 69 71 75 65 ┆ Io.Put_Line (Naming.Unique┆ 0x0000ee0…0000f00 5f 46 75 6c 6c 5f 4e 61 6d 65 20 28 4f 62 6a 65 63 74 2e 56 61 6c 75 65 20 28 49 74 65 72 29 29 ┆_Full_Name (Object.Value (Iter))┆ 0x0000f00…0000f20 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 4f 62 6a 65 63 74 2e 4e 65 78 74 20 28 49 74 65 72 ┆); Object.Next (Iter┆ 0x0000f20…0000f40 29 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 20 6c 6f 6f 70 3b 0a 20 20 20 20 65 6e 64 20 50 72 69 ┆); end loop; end Pri┆ 0x0000f40…0000f60 6e 74 3b 0a 65 6e 64 20 43 6c 6f 73 75 72 65 3b 54 68 65 20 75 73 65 20 6f 66 20 74 68 65 20 73 ┆nt; end Closure;The use of the s┆ 0x0000f60…0000f80 6f 66 74 77 61 72 65 20 63 6f 6e 74 61 69 6e 65 64 20 69 6e 20 74 68 69 73 20 6c 69 62 72 61 72 ┆oftware contained in this librar┆ 0x0000f80…0000fa0 79 20 69 73 20 73 75 62 6a 65 63 74 20 74 6f 0a 74 68 65 20 73 6f 66 74 77 61 72 65 20 6c 69 63 ┆y is subject to the software lic┆ 0x0000fa0…0000fc0 65 6e 73 65 20 74 65 72 6d 73 20 61 6e 64 20 63 6f 6e 64 69 74 69 6f 6e 73 20 61 67 72 65 65 64 ┆ense terms and conditions agreed┆ 0x0000fc0…0000fe0 20 75 70 6f 6e 20 62 65 74 77 65 65 6e 0a 52 61 74 69 6f 6e 61 6c 20 61 6e 64 20 74 68 65 20 43 ┆ upon between Rational and the C┆ 0x0000fe0…0001000 75 73 74 6f 6d 65 72 2e 0a 0a 20 20 20 20 20 20 20 20 20 20 43 6f 70 79 72 69 67 68 74 20 31 39 ┆ustomer. Copyright 19┆ 0x0001000…0001020 38 35 2c 20 31 39 38 36 2c 20 31 39 38 37 2c 20 31 39 38 38 20 62 79 20 52 61 74 69 6f 6e 61 6c ┆85, 1986, 1987, 1988 by Rational┆ 0x0001020…0001040 2e 0a 20 20 20 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 52 45 53 54 52 49 ┆. RESTRI┆ 0x0001040…0001060 43 54 45 44 20 52 49 47 48 54 53 20 4c 45 47 45 4e 44 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆CTED RIGHTS LEGEND ┆ 0x0001060…0001080 20 20 20 20 20 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 55 73 65 2c 20 64 75 70 6c 69 63 61 74 ┆ Use, duplicat┆ 0x0001080…00010a0 69 6f 6e 2c 20 6f 72 20 64 69 73 63 6c 6f 73 75 72 65 20 62 79 20 74 68 65 0a 20 20 20 20 20 20 ┆ion, or disclosure by the ┆ 0x00010a0…00010c0 20 20 20 20 20 20 47 6f 76 65 72 6e 6d 65 6e 74 20 69 73 20 73 75 62 6a 65 63 74 20 74 6f 20 72 ┆ Government is subject to r┆ 0x00010c0…00010e0 65 73 74 72 69 63 74 69 6f 6e 73 20 61 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 73 65 74 20 66 ┆estrictions as set f┆ 0x00010e0…0001100 6f 72 74 68 20 69 6e 20 73 75 62 64 69 76 69 73 69 6f 6e 20 28 62 29 28 33 29 28 69 69 29 20 6f ┆orth in subdivision (b)(3)(ii) o┆ 0x0001100…0001120 66 0a 20 20 20 20 20 20 20 20 20 20 20 20 74 68 65 20 52 69 67 68 74 73 20 69 6e 20 54 65 63 68 ┆f the Rights in Tech┆ 0x0001120…0001140 6e 69 63 61 6c 20 44 61 74 61 20 61 6e 64 20 43 6f 6d 70 75 74 65 72 0a 20 20 20 20 20 20 20 20 ┆nical Data and Computer ┆ 0x0001140…0001160 20 20 20 20 53 6f 66 74 77 61 72 65 20 63 6c 61 75 73 65 20 61 74 20 35 32 2e 32 32 37 2d 37 30 ┆ Software clause at 52.227-70┆ 0x0001160…0001180 31 33 2e 0a 20 20 20 20 20 20 20 20 20 20 20 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆13. ┆ 0x0001180…00011a0 20 52 61 74 69 6f 6e 61 6c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 33 33 32 30 20 53 ┆ Rational 3320 S┆ 0x00011a0…00011c0 63 6f 74 74 20 42 6f 75 6c 65 76 61 72 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 53 ┆cott Boulevard S┆ 0x00011c0…00011e0 61 6e 74 61 20 43 6c 61 72 61 2c 20 43 41 20 20 39 35 30 35 34 2d 33 31 39 37 54 68 69 73 20 70 ┆anta Clara, CA 95054-3197This p┆ 0x00011e0…0001200 61 63 6b 61 67 65 20 77 69 6c 6c 20 72 65 70 6c 61 63 65 20 61 6e 20 41 64 61 20 69 64 65 6e 74 ┆ackage will replace an Ada ident┆ 0x0001200…0001220 69 66 69 65 72 20 77 69 74 68 20 61 20 6e 65 77 20 69 64 65 6e 74 69 66 69 65 72 20 0a 69 6e 20 ┆ifier with a new identifier in ┆ 0x0001220…0001240 61 20 73 65 74 20 6f 66 20 75 6e 69 74 73 2e 20 20 54 68 65 20 72 65 70 6c 61 63 65 6d 65 6e 74 ┆a set of units. The replacement┆ 0x0001240…0001260 20 77 69 6c 6c 20 62 65 20 66 6f 72 20 69 64 65 6e 74 69 66 69 65 72 73 20 6f 6e 6c 79 2e 0a 53 ┆ will be for identifiers only. S┆ 0x0001260…0001280 74 72 69 6e 67 73 20 69 6e 20 63 6f 6d 6d 65 6e 74 73 20 61 6e 64 20 73 75 62 73 74 72 69 6e 67 ┆trings in comments and substring┆ 0x0001280…00012a0 73 20 77 69 6c 6c 20 62 65 20 69 67 6e 6f 72 65 64 2e 20 4f 76 65 72 6c 6f 61 64 65 64 0a 69 64 ┆s will be ignored. Overloaded id┆ 0x00012a0…00012c0 65 6e 74 69 66 69 65 72 73 20 77 69 6c 6c 20 41 4c 4c 20 62 65 20 72 65 70 6c 61 63 65 64 2e 20 ┆entifiers will ALL be replaced. ┆ 0x00012c0…00012e0 46 6f 72 20 65 78 61 6d 70 6c 65 2c 20 69 66 20 79 6f 75 20 77 61 6e 74 20 74 6f 0a 72 65 70 6c ┆For example, if you want to repl┆ 0x00012e0…0001300 61 63 65 20 74 68 65 20 69 64 65 6e 74 69 66 69 65 72 20 22 4f 62 6a 65 63 74 22 20 77 69 74 68 ┆ace the identifier "Object" with┆ 0x0001300…0001320 20 74 68 65 20 69 64 65 6e 74 69 66 69 65 72 20 22 46 6f 6f 22 20 69 6e 20 74 68 65 0a 65 78 61 ┆ the identifier "Foo" in the exa┆ 0x0001320…0001340 6d 70 6c 65 20 62 65 6c 6f 77 3a 0a 0a 20 20 20 20 4f 62 6a 65 63 74 20 3a 20 44 69 72 65 63 74 ┆mple below: Object : Direct┆ 0x0001340…0001360 6f 72 79 5f 54 6f 6f 6c 73 2e 4f 62 6a 65 63 74 2e 48 61 6e 64 6c 65 3b 0a 20 20 20 20 4d 79 5f ┆ory_Tools.Object.Handle; My_┆ 0x0001360…0001380 4f 62 6a 65 63 74 20 3a 20 44 69 72 65 63 74 6f 72 79 5f 54 6f 6f 6c 73 2e 4f 62 6a 65 63 74 2e ┆Object : Directory_Tools.Object.┆ 0x0001380…00013a0 48 61 6e 64 6c 65 3b 0a 20 20 20 20 53 6f 6d 65 5f 53 74 72 69 6e 67 20 3a 20 43 4f 4e 53 54 41 ┆Handle; Some_String : CONSTA┆ 0x00013a0…00013c0 4e 54 20 53 74 72 69 6e 67 20 3a 3d 20 22 4f 62 6a 65 63 74 22 3b 0a 20 20 20 20 2d 2d 20 54 68 ┆NT String := "Object"; -- Th┆ 0x00013c0…00013e0 69 73 20 69 73 20 61 20 74 65 73 74 20 6f 66 20 52 65 70 6c 61 63 65 5f 49 64 20 6f 6e 20 4f 62 ┆is is a test of Replace_Id on Ob┆ 0x00013e0…0001400 6a 65 63 74 2e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 0a 74 68 65 20 72 65 73 75 6c 74 20 ┆ject. the result ┆ 0x0001400…0001420 77 69 6c 6c 20 62 65 3a 0a 0a 20 20 20 20 46 6f 6f 20 3a 20 44 69 72 65 63 74 6f 72 79 5f 54 6f ┆will be: Foo : Directory_To┆ 0x0001420…0001440 6f 6c 73 2e 46 6f 6f 2e 48 61 6e 64 6c 65 3b 0a 20 20 20 20 4d 79 5f 4f 62 6a 65 63 74 20 3a 20 ┆ols.Foo.Handle; My_Object : ┆ 0x0001440…0001460 44 69 72 65 63 74 6f 72 79 5f 54 6f 6f 6c 73 2e 46 6f 6f 2e 48 61 6e 64 6c 65 3b 0a 20 20 20 20 ┆Directory_Tools.Foo.Handle; ┆ 0x0001460…0001480 53 6f 6d 65 5f 53 74 72 69 6e 67 20 3a 20 43 4f 4e 53 54 41 4e 54 20 53 74 72 69 6e 67 20 3a 3d ┆Some_String : CONSTANT String :=┆ 0x0001480…00014a0 20 22 4f 62 6a 65 63 74 22 3b 0a 20 20 20 20 2d 2d 20 54 68 69 73 20 69 73 20 61 20 74 65 73 74 ┆ "Object"; -- This is a test┆ 0x00014a0…00014c0 20 6f 66 20 52 65 70 6c 61 63 65 5f 49 64 20 6f 6e 20 4f 62 6a 65 63 74 2e 0a 20 20 20 20 20 20 ┆ of Replace_Id on Object. ┆ 0x00014c0…00014e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 0a 4e 6f ┆ No┆ 0x00014e0…0001500 74 69 63 65 20 74 68 61 74 20 61 6c 6c 20 6f 63 63 75 72 65 6e 63 65 73 20 6f 66 20 4f 62 6a 65 ┆tice that all occurences of Obje┆ 0x0001500…0001520 63 74 20 61 73 20 61 6e 20 69 64 65 6e 74 69 66 69 65 72 20 77 65 72 65 20 72 65 70 6c 61 63 65 ┆ct as an identifier were replace┆ 0x0001520…0001540 64 2c 20 62 75 74 0a 6e 6f 74 20 69 6e 20 73 74 72 69 6e 67 73 2c 20 63 6f 6d 6d 65 6e 74 73 2c ┆d, but not in strings, comments,┆ 0x0001540…0001560 20 6f 72 20 61 73 20 70 61 72 74 20 6f 66 20 61 20 6c 6f 6e 67 65 72 20 69 64 65 6e 74 69 66 69 ┆ or as part of a longer identifi┆ 0x0001560…0001580 65 72 20 73 75 63 68 20 61 73 0a 4d 79 5f 4f 62 6a 65 63 74 2e 0a 0a 54 77 6f 20 70 72 6f 63 65 ┆er such as My_Object. Two proce┆ 0x0001580…00015a0 64 75 72 65 73 20 61 72 65 20 6f 66 66 65 72 65 64 2c 20 6f 6e 65 20 74 68 61 74 20 72 65 70 6c ┆dures are offered, one that repl┆ 0x00015a0…00015c0 61 63 65 73 20 61 6e 20 49 64 20 69 6e 20 74 68 65 20 63 6f 6d 70 69 6c 61 74 69 6f 6e 0a 63 6c ┆aces an Id in the compilation cl┆ 0x00015c0…00015e0 6f 73 75 72 65 20 6f 66 20 61 20 6d 61 69 6e 20 70 72 6f 67 72 61 6d 20 61 6e 64 20 6f 6e 65 20 ┆osure of a main program and one ┆ 0x00015e0…0001600 74 68 61 74 20 72 65 70 6c 61 63 65 73 20 74 68 65 20 49 64 20 69 6e 20 61 20 73 65 74 20 6f 66 ┆that replaces the Id in a set of┆ 0x0001600…0001620 20 75 6e 69 74 73 0a 73 70 65 63 69 66 69 65 64 20 62 79 20 61 20 77 69 6c 64 63 61 72 64 20 6e ┆ units specified by a wildcard n┆ 0x0001620…0001640 61 6d 69 6e 67 20 65 78 70 72 65 73 73 69 6f 6e 2e 0a 0a 55 6e 69 74 73 20 73 70 65 63 69 66 69 ┆aming expression. Units specifi┆ 0x0001640…0001660 65 64 20 77 69 6c 6c 20 62 65 20 64 65 6d 6f 74 65 64 20 74 6f 20 74 68 65 20 73 6f 75 72 63 65 ┆ed will be demoted to the source┆ 0x0001660…0001680 20 73 74 61 74 65 2e 20 20 54 68 65 20 75 73 65 72 20 6d 75 73 74 20 74 68 65 6e 0a 72 65 63 6f ┆ state. The user must then reco┆ 0x0001680…00016a0 6d 70 69 6c 65 20 74 68 65 6d 2e 20 20 0a 0a 54 48 49 53 20 50 52 4f 43 45 44 55 52 45 20 55 53 ┆mpile them. THIS PROCEDURE US┆ 0x00016a0…00016c0 45 53 20 54 48 45 20 45 44 49 54 4f 52 20 49 4e 54 45 52 46 41 43 45 20 41 4e 44 20 52 45 4c 49 ┆ES THE EDITOR INTERFACE AND RELI┆ 0x00016c0…00016e0 45 53 20 4f 4e 20 54 48 45 20 43 55 52 52 45 4e 54 0a 53 54 41 54 45 20 4f 46 20 54 48 45 20 45 ┆ES ON THE CURRENT STATE OF THE E┆ 0x00016e0…0001700 44 49 54 4f 52 20 54 4f 20 43 4f 4d 50 4c 45 54 45 20 53 55 43 45 53 53 46 55 4c 4c 59 2e 20 41 ┆DITOR TO COMPLETE SUCESSFULLY. A┆ 0x0001700…0001720 53 20 53 55 43 48 20 49 54 20 53 48 4f 55 4c 44 20 42 45 0a 41 4c 4c 4f 57 45 44 20 54 4f 20 43 ┆S SUCH IT SHOULD BE ALLOWED TO C┆ 0x0001720…0001740 4f 4d 50 4c 45 54 45 20 41 4e 44 20 4e 4f 54 20 42 45 20 49 4e 54 45 52 52 55 50 54 45 44 2e 70 ┆OMPLETE AND NOT BE INTERRUPTED.p┆ 0x0001740…0001760 61 63 6b 61 67 65 20 52 65 70 6c 61 63 65 5f 49 64 20 69 73 0a 0a 2d 2d 20 54 48 45 53 45 20 50 ┆ackage Replace_Id is -- THESE P┆ 0x0001760…0001780 52 4f 43 45 44 55 52 45 53 20 43 41 4c 4c 20 54 48 49 53 20 45 44 49 54 4f 52 0a 2d 2d 20 54 68 ┆ROCEDURES CALL THIS EDITOR -- Th┆ 0x0001780…00017a0 65 20 75 73 65 72 20 6d 61 79 20 6e 6f 74 20 65 78 69 74 20 66 72 6f 6d 20 74 68 65 73 65 20 70 ┆e user may not exit from these p┆ 0x00017a0…00017c0 72 6f 63 65 64 75 72 65 73 20 75 6e 74 69 6c 20 74 68 65 79 20 68 61 76 65 20 63 6f 6d 70 6c 65 ┆rocedures until they have comple┆ 0x00017c0…00017e0 74 65 64 0a 2d 2d 0a 0a 20 20 20 20 70 72 6f 63 65 64 75 72 65 20 49 6e 5f 44 65 70 65 6e 64 65 ┆ted -- procedure In_Depende┆ 0x00017e0…0001800 6e 63 79 5f 43 6c 6f 73 75 72 65 20 28 4f 66 5f 55 6e 69 74 20 3a 20 69 6e 20 53 74 72 69 6e 67 ┆ncy_Closure (Of_Unit : in String┆ 0x0001800…0001820 20 3a 3d 20 22 3c 53 45 4c 45 43 54 49 4f 4e 3e 22 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ := "<SELECTION>"; ┆ 0x0001820…0001840 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4f 6c 64 5f 49 64 20 3a ┆ Old_Id :┆ 0x0001840…0001860 20 69 6e 20 53 74 72 69 6e 67 20 3a 3d 20 22 22 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ in String := ""; ┆ 0x0001860…0001880 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4e 65 77 5f 49 64 20 3a 20 ┆ New_Id : ┆ 0x0001880…00018a0 69 6e 20 53 74 72 69 6e 67 20 3a 3d 20 22 22 29 3b 0a 0a 20 20 20 20 2d 2d 20 52 65 70 6c 61 63 ┆in String := ""); -- Replac┆ 0x00018a0…00018c0 65 73 20 61 6e 20 69 64 65 6e 74 69 66 69 65 72 20 69 6e 20 61 6c 6c 20 75 6e 69 74 73 20 69 6e ┆es an identifier in all units in┆ 0x00018c0…00018e0 20 61 20 70 72 6f 67 72 61 6d 2e 0a 20 20 20 20 2d 2d 20 41 4c 4c 20 55 4e 49 54 53 20 4d 55 53 ┆ a program. -- ALL UNITS MUS┆ 0x00018e0…0001900 54 20 42 45 47 49 4e 20 49 4e 20 54 48 45 20 53 4f 55 52 43 45 20 53 54 41 54 45 0a 0a 20 20 20 ┆T BEGIN IN THE SOURCE STATE ┆ 0x0001900…0001920 20 70 72 6f 63 65 64 75 72 65 20 49 6e 5f 53 65 74 5f 4f 66 5f 55 6e 69 74 73 20 28 55 6e 69 74 ┆ procedure In_Set_Of_Units (Unit┆ […truncated at 200 lines…]