|
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: 5120 (0x1400) Notes: 00_class, 5900_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_0694fc
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000 └─ ⟦5a81ac88f⟧ »Space Info Vol 1« └─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code 0001 5900 |Y | .CONST 0x5900 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 08b8 | | .CONST 0x08b8 ; Offset of debug table 0004 0100 | | .CONST 0x0100 ; Default exception handler - raise instruction 0005 00bb | | .CONST 0x00bb ; Module termination instruction - signal completion 0006 0000 | | .CONST 0x0000 ; Offset to segment table (only in elab segments) 0007 8005 | | .CONST 0x8005 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 00c0 | | .CONST 0x00c0 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0032 | 2 | .CONST 0x0032 ; Number of locals 000b INIT_0008: 000b 029a 00cb | | Declare_Subprogram INIT_00c8,For_Outer_Call,Visible,Unelaborated 000d 029a 00eb | | Declare_Subprogram INIT_00e8,For_Outer_Call,Visible,Unelaborated 000f 029a 011b | | Declare_Subprogram INIT_0118,For_Outer_Call,Visible,Unelaborated 0011 029a 014b | K| Declare_Subprogram INIT_0148,For_Outer_Call,Visible,Unelaborated 0013 029a 0153 | S| Declare_Subprogram INIT_0150,For_Outer_Call,Visible,Unelaborated 0015 00c4 | | Action Make_Default 0016 00c4 | | Action Make_Default 0017 00c4 | | Action Make_Default 0018 00c4 | | Action Make_Default 0019 00c4 | | Action Make_Default 001a 00c4 | | Action Make_Default 001b 00c4 | | Action Make_Default 001c 00c4 | | Action Make_Default 001d 00c4 | | Action Make_Default 001e 00c4 | | Action Make_Default 001f 00c4 | | Action Make_Default 0020 00c4 | | Action Make_Default 0021 00c4 | | Action Make_Default 0022 00c4 | | Action Make_Default 0023 00c4 | | Action Make_Default 0024 00c4 | | Action Make_Default 0025 00c4 | | Action Make_Default 0026 00c4 | | Action Make_Default 0027 00c4 | | Action Make_Default 0028 00c4 | | Action Make_Default 0029 00c4 | | Action Make_Default 002a 00c4 | | Action Make_Default 002b 00c4 | | Action Make_Default 002c 00c4 | | Action Make_Default 002d 00c4 | | Action Make_Default 002e 00c4 | | Action Make_Default 002f 00c4 | | Action Make_Default 0030 00c4 | | Action Make_Default 0031 00c4 | | Action Make_Default 0032 00c4 | | Action Make_Default 0033 00c4 | | Action Make_Default 0034 029a 01fb | | Declare_Subprogram INIT_01f8,For_Outer_Call,Visible,Unelaborated 0036 c225 | % | Store 0x1,0x25 0037 029a 020b | | Declare_Subprogram INIT_0208,For_Outer_Call,Visible,Unelaborated 0039 c213 | | Store 0x1,0x13 003a 029a 0293 | | Declare_Subprogram INIT_0290,For_Outer_Call,Visible,Unelaborated 003c c226 | & | Store 0x1,0x26 003d 029a 02a3 | | Declare_Subprogram INIT_02a0,For_Outer_Call,Visible,Unelaborated 003f c215 | | Store 0x1,0x15 0040 029a 02ab | | Declare_Subprogram INIT_02a8,For_Outer_Call,Visible,Unelaborated 0042 c216 | | Store 0x1,0x16 0043 029a 02b3 | | Declare_Subprogram INIT_02b0,For_Outer_Call,Visible,Unelaborated 0045 c230 | 0 | Store 0x1,0x30 0046 029a 0393 | | Declare_Subprogram INIT_0390,For_Outer_Call,Visible,Unelaborated 0048 c218 | | Store 0x1,0x18 0049 029a 039b | | Declare_Subprogram INIT_0398,For_Outer_Call,Visible,Unelaborated 004b c227 | ' | Store 0x1,0x27 004c 029a 040b | | Declare_Subprogram INIT_0408,For_Outer_Call,Visible,Unelaborated 004e c21a | | Store 0x1,0x1a 004f 029a 0433 | 3| Declare_Subprogram INIT_0430,For_Outer_Call,Visible,Unelaborated 0051 c21b | | Store 0x1,0x1b 0052 029a 0443 | C| Declare_Subprogram INIT_0440,For_Outer_Call,Visible,Unelaborated 0054 c21c | | Store 0x1,0x1c 0055 029a 0453 | S| Declare_Subprogram INIT_0450,For_Outer_Call,Visible,Unelaborated 0057 c21d | | Store 0x1,0x1d 0058 029a 0473 | s| Declare_Subprogram INIT_0470,For_Outer_Call,Visible,Unelaborated 005a c21e | | Store 0x1,0x1e 005b 029a 0483 | | Declare_Subprogram INIT_0480,For_Outer_Call,Visible,Unelaborated 005d c21f | | Store 0x1,0x1f 005e 029a 049b | | Declare_Subprogram INIT_0498,For_Outer_Call,Visible,Unelaborated 0060 c220 | | Store 0x1,0x20 0061 029a 04ab | | Declare_Subprogram INIT_04a8,For_Outer_Call,Visible,Unelaborated 0063 c221 | ! | Store 0x1,0x21 0064 029a 04d3 | | Declare_Subprogram INIT_04d0,For_Outer_Call,Visible,Unelaborated 0066 c222 | " | Store 0x1,0x22 0067 029a 04fb | | Declare_Subprogram INIT_04f8,For_Outer_Call,Visible,Unelaborated 0069 c223 | # | Store 0x1,0x23 006a 029a 051b | | Declare_Subprogram INIT_0518,For_Outer_Call,Visible,Unelaborated 006c c224 | $ | Store 0x1,0x24 006d 029a 053b | ;| Declare_Subprogram INIT_0538,For_Outer_Call,Visible,Unelaborated 006f c229 | ) | Store 0x1,0x29 0070 029a 054b | K| Declare_Subprogram INIT_0548,For_Outer_Call,Visible,Unelaborated 0072 c22a | * | Store 0x1,0x2a 0073 029a 0563 | c| Declare_Subprogram INIT_0560,For_Outer_Call,Visible,Unelaborated 0075 c22d | - | Store 0x1,0x2d 0076 029a 0573 | s| Declare_Subprogram INIT_0570,For_Outer_Call,Visible,Unelaborated 0078 c22c | , | Store 0x1,0x2c 0079 029a 0583 | | Declare_Subprogram INIT_0580,For_Outer_Call,Visible,Unelaborated 007b c22e | . | Store 0x1,0x2e 007c 029a 05eb | | Declare_Subprogram INIT_05e8,For_Outer_Call,Visible,Unelaborated 007e c22f | / | Store 0x1,0x2f 007f 00bf | | Action Accept_Activation 0080 029d 062b | +| Declare_Subprogram INIT_0628,For_Outer_Call 0082 029d 063b | ;| Declare_Subprogram INIT_0638,For_Outer_Call 0084 1d0d | | Execute_Immediate Reference_Lex_1,0xd 0085 00c7 | | Action Elaborate_Subprogram 0086 1d0e | | Execute_Immediate Reference_Lex_1,0xe 0087 00c7 | | Action Elaborate_Subprogram 0088 1d0f | | Execute_Immediate Reference_Lex_1,0xf 0089 00c7 | | Action Elaborate_Subprogram 008a 1d10 | | Execute_Immediate Reference_Lex_1,0x10 008b 00c7 | | Action Elaborate_Subprogram 008c 1d11 | | Execute_Immediate Reference_Lex_1,0x11 008d 00c7 | | Action Elaborate_Subprogram 008e 1d25 | % | Execute_Immediate Reference_Lex_1,0x25 008f 00c7 | | Action Elaborate_Subprogram 0090 1d13 | | Execute_Immediate Reference_Lex_1,0x13 0091 00c7 | | Action Elaborate_Subprogram 0092 1d26 | & | Execute_Immediate Reference_Lex_1,0x26 0093 00c7 | | Action Elaborate_Subprogram 0094 1d15 | | Execute_Immediate Reference_Lex_1,0x15 0095 00c7 | | Action Elaborate_Subprogram 0096 1d16 | | Execute_Immediate Reference_Lex_1,0x16 0097 00c7 | | Action Elaborate_Subprogram 0098 1d30 | 0 | Execute_Immediate Reference_Lex_1,0x30 0099 00c7 | | Action Elaborate_Subprogram 009a 1d18 | | Execute_Immediate Reference_Lex_1,0x18 009b 00c7 | | Action Elaborate_Subprogram 009c 1d27 | ' | Execute_Immediate Reference_Lex_1,0x27 009d 00c7 | | Action Elaborate_Subprogram 009e 1d1a | | Execute_Immediate Reference_Lex_1,0x1a 009f 00c7 | | Action Elaborate_Subprogram 00a0 1d1b | | Execute_Immediate Reference_Lex_1,0x1b 00a1 00c7 | | Action Elaborate_Subprogram 00a2 1d1c | | Execute_Immediate Reference_Lex_1,0x1c 00a3 00c7 | | Action Elaborate_Subprogram 00a4 1d1d | | Execute_Immediate Reference_Lex_1,0x1d 00a5 00c7 | | Action Elaborate_Subprogram 00a6 1d1e | | Execute_Immediate Reference_Lex_1,0x1e 00a7 00c7 | | Action Elaborate_Subprogram 00a8 1d1f | | Execute_Immediate Reference_Lex_1,0x1f 00a9 00c7 | | Action Elaborate_Subprogram 00aa 1d20 | | Execute_Immediate Reference_Lex_1,0x20 00ab 00c7 | | Action Elaborate_Subprogram 00ac 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21 00ad 00c7 | | Action Elaborate_Subprogram 00ae 1d22 | " | Execute_Immediate Reference_Lex_1,0x22 00af 00c7 | | Action Elaborate_Subprogram 00b0 1d23 | # | Execute_Immediate Reference_Lex_1,0x23 00b1 00c7 | | Action Elaborate_Subprogram 00b2 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24 00b3 00c7 | | Action Elaborate_Subprogram 00b4 1d29 | ) | Execute_Immediate Reference_Lex_1,0x29 00b5 00c7 | | Action Elaborate_Subprogram 00b6 1d2a | * | Execute_Immediate Reference_Lex_1,0x2a 00b7 00c7 | | Action Elaborate_Subprogram 00b8 1d2d | - | Execute_Immediate Reference_Lex_1,0x2d 00b9 00c7 | | Action Elaborate_Subprogram 00ba 1d2c | , | Execute_Immediate Reference_Lex_1,0x2c 00bb 00c7 | | Action Elaborate_Subprogram 00bc 1d2e | . | Execute_Immediate Reference_Lex_1,0x2e 00bd 00c7 | | Action Elaborate_Subprogram 00be 1d2f | / | Execute_Immediate Reference_Lex_1,0x2f 00bf 00c7 | | Action Elaborate_Subprogram 00c0 BODY_0008: 00c0 00bc | | Action Signal_Activated 00c1 00bb | | Action Signal_Completion 00c2 0000 0000 | | .BLANK 0000[0x6] 00c8 ; -------------------------------------------------------------------------------------- 00c8 ; SUBPROGRAM 00c8 ; -------------------------------------------------------------------------------------- 00c8 00cb | | .CONST 0x00cb ; Address of begin 00c9 0004 | | .CONST 0x0004 ; Address of exception handler 00ca 0001 | | .CONST 0x0001 ; Number of locals 00cb BODY_00c8: 00cb INIT_00c8: 00cb e001 | | Load 0x0,0x1 00cc 181c | | Execute Package,Field_Execute,Field_Number 0x1c 00cd 4610 |F | Jump_Case 0x11 00ce 7810 |x | Jump 0xdf ; case 0x0 00cf 7814 |x | Jump 0xe4 ; case 0x1 00d0 780e |x | Jump 0xdf ; case 0x2 00d1 780d |x | Jump 0xdf ; case 0x3 00d2 780c |x | Jump 0xdf ; case 0x4 00d3 780b |x | Jump 0xdf ; case 0x5 00d4 780a |x | Jump 0xdf ; case 0x6 00d5 7809 |x | Jump 0xdf ; case 0x7 00d6 7808 |x | Jump 0xdf ; case 0x8 00d7 7807 |x | Jump 0xdf ; case 0x9 00d8 7806 |x | Jump 0xdf ; case 0xa 00d9 7805 |x | Jump 0xdf ; case 0xb 00da 7804 |x | Jump 0xdf ; case 0xc 00db 7808 |x | Jump 0xe4 ; case 0xd 00dc 7802 |x | Jump 0xdf ; case 0xe 00dd 7801 |x | Jump 0xdf ; case 0xf 00de 7800 |x | Jump 0xdf ; case 0x10 00df 0092 06e0 | | Action Push_String_Extended,0x6e0 ; "Semanticize can only be applied in an Ada window." 00e1 e002 | | Load 0x0,0x2 00e2 1865 | e | Execute Package,Field_Execute,Field_Number 0x65 00e3 4501 |E | Exit_Suprogram New_Top_Offset 0x1 00e4 e003 | | Load 0x0,0x3 00e5 181b | | Execute Package,Field_Execute,Field_Number 0x1b 00e6 4501 |E | Exit_Suprogram New_Top_Offset 0x1 00e7 0000 | | .XXX[0x1] 00e8 ; -------------------------------------------------------------------------------------- 00e8 ; SUBPROGRAM 00e8 ; -------------------------------------------------------------------------------------- 00e8 00fb | | .CONST 0x00fb ; Address of begin 00e9 0004 | | .CONST 0x0004 ; Address of exception handler 00ea 0004 | | .CONST 0x0004 ; Number of locals 00eb INIT_00e8: 00eb e004 | | Load 0x0,0x4 00ec 1b0f | | Execute Package,Field_Read,Field_Number 0xf 00ed 02c7 | | Declare_Variable Any 00ee 0092 06e1 | | Action Push_String_Extended,0x6e1 ; "<Cursor>" 00f0 e001 | | Load 0x0,0x1 00f1 1810 | | Execute Package,Field_Execute,Field_Number 0x10 00f2 a402 | | Store_Unchecked 0x2,0x2 00f3 00d8 | | Load_Top At_Offset_0 00f4 e001 | | Load 0x0,0x1 00f5 1819 | | Execute Package,Field_Execute,Field_Number 0x19 00f6 e001 | | Load 0x0,0x1 00f7 1b15 | | Execute Package,Field_Read,Field_Number 0x15 00f8 03f1 | | Declare_Variable Discrete,With_Value 00f9 029f 064b | K| Declare_Subprogram INIT_0648,For_Call 00fb BODY_00e8: 00fb 00da | | Load_Top At_Offset_2 00fc e004 | | Load 0x0,0x4 00fd 1811 | | Execute Package,Field_Execute,Field_Number 0x11 00fe 6804 |h | Jump_Zero 0x103 00ff 0092 06e2 | | Action Push_String_Extended,0x6e2 ; "No item selected" 0101 8231 | 1 | Call 0x1,0x31 0102 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0103 00d9 | | Load_Top At_Offset_1 0104 00d8 | | Load_Top At_Offset_0 0105 4822 |H" | Short_Literal 0x22 0106 4826 |H& | Short_Literal 0x26 0107 0262 | b | Execute Discrete,In_Range 0108 7005 |p | Jump_Nonzero 0x10e 0109 4828 |H( | Short_Literal 0x28 010a 4829 |H) | Short_Literal 0x29 010b 0262 | b | Execute Discrete,In_Range 010c 7002 |p | Jump_Nonzero 0x10f 010d 7803 |x | Jump 0x111 010e 00d1 | | Pop_Control Pop_Count_1 010f e003 | | Load 0x0,0x3 0110 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0111 8404 | | Call 0x2,0x4 0112 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0113 0000 0000 | | .BLANK 0000[0x5] 0118 ; -------------------------------------------------------------------------------------- 0118 ; SUBPROGRAM 0118 ; -------------------------------------------------------------------------------------- 0118 012b | + | .CONST 0x012b ; Address of begin 0119 0004 | | .CONST 0x0004 ; Address of exception handler 011a 0004 | | .CONST 0x0004 ; Number of locals 011b INIT_0118: 011b e004 | | Load 0x0,0x4 011c 1b0f | | Execute Package,Field_Read,Field_Number 0xf 011d 02c7 | | Declare_Variable Any 011e 0092 06e1 | | Action Push_String_Extended,0x6e1 ; "<Cursor>" 0120 e001 | | Load 0x0,0x1 0121 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0122 a402 | | Store_Unchecked 0x2,0x2 0123 00d8 | | Load_Top At_Offset_0 0124 e001 | | Load 0x0,0x1 0125 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0126 e001 | | Load 0x0,0x1 0127 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0128 03f1 | | Declare_Variable Discrete,With_Value 0129 029f 067b | {| Declare_Subprogram INIT_0678,For_Call 012b BODY_0118: 012b 00da | | Load_Top At_Offset_2 012c e004 | | Load 0x0,0x4 012d 1811 | | Execute Package,Field_Execute,Field_Number 0x11 012e 6804 |h | Jump_Zero 0x133 012f 0092 06e2 | | Action Push_String_Extended,0x6e2 ; "No item selected" 0131 8231 | 1 | Call 0x1,0x31 0132 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0133 00d9 | | Load_Top At_Offset_1 0134 00d8 | | Load_Top At_Offset_0 0135 4822 |H" | Short_Literal 0x22 0136 4826 |H& | Short_Literal 0x26 0137 0262 | b | Execute Discrete,In_Range 0138 7005 |p | Jump_Nonzero 0x13e 0139 4828 |H( | Short_Literal 0x28 013a 4829 |H) | Short_Literal 0x29 013b 0262 | b | Execute Discrete,In_Range 013c 7002 |p | Jump_Nonzero 0x13f 013d 7803 |x | Jump 0x141 013e 00d1 | | Pop_Control Pop_Count_1 013f e003 | | Load 0x0,0x3 0140 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0141 8404 | | Call 0x2,0x4 0142 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0143 0000 0000 | | .BLANK 0000[0x5] 0148 ; -------------------------------------------------------------------------------------- 0148 ; SUBPROGRAM 0148 ; -------------------------------------------------------------------------------------- 0148 014b | K | .CONST 0x014b ; Address of begin 0149 0004 | | .CONST 0x0004 ; Address of exception handler 014a 0001 | | .CONST 0x0001 ; Number of locals 014b BODY_0148: 014b INIT_0148: 014b 4501 |E | Exit_Suprogram New_Top_Offset 0x1 014c 0000 0000 | | .BLANK 0000[0x4] 0150 ; -------------------------------------------------------------------------------------- 0150 ; SUBPROGRAM 0150 ; -------------------------------------------------------------------------------------- 0150 017a | z | .CONST 0x017a ; Address of begin 0151 0004 | | .CONST 0x0004 ; Address of exception handler 0152 000b | | .CONST 0x000b ; Number of locals 0153 INIT_0150: 0153 e004 | | Load 0x0,0x4 0154 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0155 02c7 | | Declare_Variable Any 0156 0092 06e1 | | Action Push_String_Extended,0x6e1 ; "<Cursor>" 0158 e001 | | Load 0x0,0x1 0159 1810 | | Execute Package,Field_Execute,Field_Number 0x10 015a a402 | | Store_Unchecked 0x2,0x2 015b 00d8 | | Load_Top At_Offset_0 015c e004 | | Load 0x0,0x4 015d 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 015e 183e | > | Execute Package,Field_Execute,Field_Number 0x3e 015f e004 | | Load 0x0,0x4 0160 1b3f | ? | Execute Package,Field_Read,Field_Number 0x3f 0161 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 0162 02c7 | | Declare_Variable Any 0163 00da | | Load_Top At_Offset_2 0164 e001 | | Load 0x0,0x1 0165 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0166 a404 | | Store_Unchecked 0x2,0x4 0167 00d8 | | Load_Top At_Offset_0 0168 e004 | | Load 0x0,0x4 0169 1b3f | ? | Execute Package,Field_Read,Field_Number 0x3f 016a 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 016b e004 | | Load 0x0,0x4 016c 1b3a | : | Execute Package,Field_Read,Field_Number 0x3a 016d 1b0d | | Execute Package,Field_Read,Field_Number 0xd 016e 03f1 | | Declare_Variable Discrete,With_Value 016f 00e3 | | Load_Encached Natural_Cache 0170 03e9 | | Declare_Variable Discrete,Duplicate 0171 03e9 | | Declare_Variable Discrete,Duplicate 0172 e004 | | Load 0x0,0x4 0173 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0174 e004 | | Load 0x0,0x4 0175 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0176 02ff | | Declare_Variable Variant_Record 0177 00d8 | | Load_Top At_Offset_0 0178 1c00 | | Execute_Immediate Run_Utility,0x0 0179 00e1 | | Load_Encached Boolean_Cache 017a BODY_0150: 017a e402 | | Load 0x2,0x2 017b e004 | | Load 0x0,0x4 017c 1811 | | Execute Package,Field_Execute,Field_Number 0x11 017d 6804 |h | Jump_Zero 0x182 017e 0092 06e2 | | Action Push_String_Extended,0x6e2 ; "No item selected" 0180 8231 | 1 | Call 0x1,0x31 0181 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0182 e405 | | Load 0x2,0x5 0183 4604 |F | Jump_Case 0x5 0184 786b |xk | Jump 0x1f0 ; case 0x0 0185 785f |x_ | Jump 0x1e5 ; case 0x1 0186 785e |x^ | Jump 0x1e5 ; case 0x2 0187 7801 |x | Jump 0x189 ; case 0x3 0188 7800 |x | Jump 0x189 ; case 0x4 0189 e004 | | Load 0x0,0x4 018a 1b0d | | Execute Package,Field_Read,Field_Number 0xd 018b 00da | | Load_Top At_Offset_2 018c 6067 |`g | Indirect_Literal Discrete,0x1f4,{0x00000000, 0x00004000} 018d e005 | | Load 0x0,0x5 018e 1b0e | | Execute Package,Field_Read,Field_Number 0xe 018f 4800 |H | Short_Literal 0x0 0190 e402 | | Load 0x2,0x2 0191 e004 | | Load 0x0,0x4 0192 1b39 | 9 | Execute Package,Field_Read,Field_Number 0x39 0193 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0194 00d1 | | Pop_Control Pop_Count_1 0195 005b | [ | Store_Top Discrete,At_Offset_3 0196 00d9 | | Load_Top At_Offset_1 0197 e004 | | Load 0x0,0x4 0198 1b3a | : | Execute Package,Field_Read,Field_Number 0x3a 0199 1811 | | Execute Package,Field_Execute,Field_Number 0x11 019a 6803 |h | Jump_Zero 0x19e 019b 4800 |H | Short_Literal 0x0 019c 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 019d 7812 |x | Jump 0x1b0 019e 00e3 | | Load_Encached Natural_Cache 019f 00e3 | | Load_Encached Natural_Cache 01a0 00e3 | | Load_Encached Natural_Cache 01a1 4800 |H | Short_Literal 0x0 01a2 e403 | | Load 0x2,0x3 01a3 e006 | | Load 0x0,0x6 01a4 1810 | | Execute Package,Field_Execute,Field_Number 0x10 01a5 c406 | | Store 0x2,0x6 01a6 c407 | | Store 0x2,0x7 01a7 c408 | | Store 0x2,0x8 01a8 e406 | | Load 0x2,0x6 01a9 0c01 | | Execute_Immediate Greater_Equal,0x1 01aa 6803 |h | Jump_Zero 0x1ae 01ab 4801 |H | Short_Literal 0x1 01ac 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 01ad 7802 |x | Jump 0x1b0 01ae 4800 |H | Short_Literal 0x0 01af 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 01b0 00d8 | | Load_Top At_Offset_0 01b1 6829 |h) | Jump_Zero 0x1db 01b2 e403 | | Load 0x2,0x3 01b3 0092 06e3 | | Action Push_String_Extended,0x6e3 ; "Demoting " 01b5 e403 | | Load 0x2,0x3 01b6 01cc | | Execute Vector,Catenate 01b7 0092 06e4 | | Action Push_String_Extended,0x6e4 ; "\x5c" 01b9 01cc | | Execute Vector,Catenate 01ba 0092 06e5 | | Action Push_String_Extended,0x6e5 ; " will demote " 01bc 01cc | | Execute Vector,Catenate 01bd e406 | | Load 0x2,0x6 01be 8232 | 2 | Call 0x1,0x32 01bf 01cc | | Execute Vector,Catenate 01c0 0092 06e6 | | Action Push_String_Extended,0x6e6 ; " units\x5c" 01c2 01cc | | Execute Vector,Catenate 01c3 0092 06e7 | | Action Push_String_Extended,0x6e7 ; " in " 01c5 01cc | | Execute Vector,Catenate 01c6 e407 | | Load 0x2,0x7 01c7 8232 | 2 | Call 0x1,0x32 01c8 01cc | | Execute Vector,Catenate 01c9 0092 06e8 | | Action Push_String_Extended,0x6e8 ; " subsystems\x5c" 01cb 01cc | | Execute Vector,Catenate 01cc 0092 06e9 | | Action Push_String_Extended,0x6e9 ; " demoting a total of " 01ce 01cc | | Execute Vector,Catenate 01cf e408 | | Load 0x2,0x8 01d0 8232 | 2 | Call 0x1,0x32 01d1 01cc | | Execute Vector,Catenate 01d2 0092 06ea | | Action Push_String_Extended,0x6ea ; " lines.\x5c\x5c Ok?" 01d4 01cc | | Execute Vector,Catenate 01d5 0092 06eb | | Action Push_String_Extended,0x6eb ; "Source, Confirm" 01d7 4b87 |K | Short_Literal 0x387 01d8 e007 | | Load 0x0,0x7 01d9 181a | | Execute Package,Field_Execute,Field_Number 0x1a 01da 4501 |E | Exit_Suprogram New_Top_Offset 0x1 01db 0092 06ec | | Action Push_String_Extended,0x6ec ; "<PROFILE>" 01dd 4800 |H | Short_Literal 0x0 01de e008 | | Load 0x0,0x8 01df 1b15 | | Execute Package,Field_Read,Field_Number 0x15 01e0 4801 |H | Short_Literal 0x1 01e1 e403 | | Load 0x2,0x3 01e2 e008 | | Load 0x0,0x8 01e3 1816 | | Execute Package,Field_Execute,Field_Number 0x16 01e4 4501 |E | Exit_Suprogram New_Top_Offset 0x1 01e5 0092 06ec | | Action Push_String_Extended,0x6ec ; "<PROFILE>" 01e7 4800 |H | Short_Literal 0x0 01e8 e008 | | Load 0x0,0x8 01e9 1b15 | | Execute Package,Field_Read,Field_Number 0x15 01ea 4801 |H | Short_Literal 0x1 01eb 4803 |H | Short_Literal 0x3 01ec e403 | | Load 0x2,0x3 01ed e008 | | Load 0x0,0x8 01ee 1819 | | Execute Package,Field_Execute,Field_Number 0x19 01ef 4501 |E | Exit_Suprogram New_Top_Offset 0x1 01f0 0092 06ed | | Action Push_String_Extended,0x6ed ; "Not an ada object" 01f2 8231 | 1 | Call 0x1,0x31 01f3 4501 |E | Exit_Suprogram New_Top_Offset 0x1 01f4 0000 0000 | | .LITERAL {0x00000000, 0x00004000} 01f8 ; -------------------------------------------------------------------------------------- 01f8 ; SUBPROGRAM 01f8 ; -------------------------------------------------------------------------------------- 01f8 01fb | | .CONST 0x01fb ; Address of begin 01f9 0004 | | .CONST 0x0004 ; Address of exception handler 01fa 0001 | | .CONST 0x0001 ; Number of locals 01fb BODY_01f8: 01fb INIT_01f8: 01fb 0092 06ec | | Action Push_String_Extended,0x6ec ; "<PROFILE>" 01fd 4800 |H | Short_Literal 0x0 01fe 0092 06ee | | Action Push_String_Extended,0x6ee ; "<ALL_WORLDS>" 0200 4801 |H | Short_Literal 0x1 0201 e5ff | | Load 0x2,-0x1 0202 e008 | | Load 0x0,0x8 0203 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0204 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0205 0000 0000 | | .XXX[0x3] 0207 0000 | | 0208 ; -------------------------------------------------------------------------------------- 0208 ; SUBPROGRAM 0208 ; -------------------------------------------------------------------------------------- 0208 022a | * | .CONST 0x022a ; Address of begin 0209 0004 | | .CONST 0x0004 ; Address of exception handler 020a 0008 | | .CONST 0x0008 ; Number of locals 020b INIT_0208: 020b e004 | | Load 0x0,0x4 020c 1b0f | | Execute Package,Field_Read,Field_Number 0xf 020d 02c7 | | Declare_Variable Any 020e 0092 06e1 | | Action Push_String_Extended,0x6e1 ; "<Cursor>" 0210 e001 | | Load 0x0,0x1 0211 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0212 a402 | | Store_Unchecked 0x2,0x2 0213 00d8 | | Load_Top At_Offset_0 0214 e004 | | Load 0x0,0x4 0215 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0216 183e | > | Execute Package,Field_Execute,Field_Number 0x3e 0217 e004 | | Load 0x0,0x4 0218 1b3f | ? | Execute Package,Field_Read,Field_Number 0x3f 0219 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 021a 02c7 | | Declare_Variable Any 021b 00da | | Load_Top At_Offset_2 021c e001 | | Load 0x0,0x1 021d 1812 | | Execute Package,Field_Execute,Field_Number 0x12 021e a404 | | Store_Unchecked 0x2,0x4 021f 00d8 | | Load_Top At_Offset_0 0220 e004 | | Load 0x0,0x4 0221 1b3f | ? | Execute Package,Field_Read,Field_Number 0x3f 0222 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0223 e004 | | Load 0x0,0x4 0224 1b3a | : | Execute Package,Field_Read,Field_Number 0x3a 0225 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0226 03f1 | | Declare_Variable Discrete,With_Value 0227 00e3 | | Load_Encached Natural_Cache 0228 03e9 | | Declare_Variable Discrete,Duplicate 0229 03e9 | | Declare_Variable Discrete,Duplicate 022a BODY_0208: 022a e402 | | Load 0x2,0x2 022b e004 | | Load 0x0,0x4 022c 1811 | | Execute Package,Field_Execute,Field_Number 0x11 022d 6804 |h | Jump_Zero 0x232 022e 0092 06e2 | | Action Push_String_Extended,0x6e2 ; "No item selected" 0230 8231 | 1 | Call 0x1,0x31 0231 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0232 00db | | Load_Top At_Offset_3 0233 4604 |F | Jump_Case 0x5 0234 7853 |xS | Jump 0x288 ; case 0x0 0235 7843 |xC | Jump 0x279 ; case 0x1 0236 7847 |xG | Jump 0x27e ; case 0x2 0237 7801 |x | Jump 0x239 ; case 0x3 0238 7800 |x | Jump 0x239 ; case 0x4 0239 00e3 | | Load_Encached Natural_Cache 023a 00e3 | | Load_Encached Natural_Cache 023b 00e3 | | Load_Encached Natural_Cache 023c 4800 |H | Short_Literal 0x0 023d e403 | | Load 0x2,0x3 023e e006 | | Load 0x0,0x6 023f 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0240 c406 | | Store 0x2,0x6 0241 005b | [ | Store_Top Discrete,At_Offset_3 0242 0059 | Y | Store_Top Discrete,At_Offset_1 0243 00da | | Load_Top At_Offset_2 0244 0c01 | | Execute_Immediate Greater_Equal,0x1 0245 6829 |h) | Jump_Zero 0x26f 0246 e403 | | Load 0x2,0x3 0247 0092 06e3 | | Action Push_String_Extended,0x6e3 ; "Demoting " 0249 e403 | | Load 0x2,0x3 024a 01cc | | Execute Vector,Catenate 024b 0092 06e4 | | Action Push_String_Extended,0x6e4 ; "\x5c" 024d 01cc | | Execute Vector,Catenate 024e 0092 06e5 | | Action Push_String_Extended,0x6e5 ; " will demote " 0250 01cc | | Execute Vector,Catenate 0251 e406 | | Load 0x2,0x6 0252 8232 | 2 | Call 0x1,0x32 0253 01cc | | Execute Vector,Catenate 0254 0092 06e6 | | Action Push_String_Extended,0x6e6 ; " units\x5c" 0256 01cc | | Execute Vector,Catenate 0257 0092 06e7 | | Action Push_String_Extended,0x6e7 ; " in " 0259 01cc | | Execute Vector,Catenate 025a 00db | | Load_Top At_Offset_3 025b 8232 | 2 | Call 0x1,0x32 025c 01cc | | Execute Vector,Catenate 025d 0092 06e8 | | Action Push_String_Extended,0x6e8 ; " subsystems\x5c" 025f 01cc | | Execute Vector,Catenate 0260 0092 06e9 | | Action Push_String_Extended,0x6e9 ; " demoting a total of " 0262 01cc | | Execute Vector,Catenate 0263 00da | | Load_Top At_Offset_2 0264 8232 | 2 | Call 0x1,0x32 0265 01cc | | Execute Vector,Catenate 0266 0092 06ea | | Action Push_String_Extended,0x6ea ; " lines.\x5c\x5c Ok?" 0268 01cc | | Execute Vector,Catenate 0269 0092 06ef | | Action Push_String_Extended,0x6ef ; "Archive, Confirm" 026b 4b88 |K | Short_Literal 0x388 026c e007 | | Load 0x0,0x7 026d 181a | | Execute Package,Field_Execute,Field_Number 0x1a 026e 4501 |E | Exit_Suprogram New_Top_Offset 0x1 026f 0092 06ec | | Action Push_String_Extended,0x6ec ; "<PROFILE>" 0271 4800 |H | Short_Literal 0x0 0272 0092 06ee | | Action Push_String_Extended,0x6ee ; "<ALL_WORLDS>" 0274 4800 |H | Short_Literal 0x0 0275 e403 | | Load 0x2,0x3 0276 e008 | | Load 0x0,0x8 0277 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0278 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0279 0092 06f0 | | Action Push_String_Extended,0x6f0 ; "Unit is already in the archived state." 027b e002 | | Load 0x0,0x2 027c 1865 | e | Execute Package,Field_Execute,Field_Number 0x65 027d 4501 |E | Exit_Suprogram New_Top_Offset 0x1 027e 0092 06ec | | Action Push_String_Extended,0x6ec ; "<PROFILE>" 0280 4800 |H | Short_Literal 0x0 0281 0092 06ee | | Action Push_String_Extended,0x6ee ; "<ALL_WORLDS>" 0283 4800 |H | Short_Literal 0x0 0284 e403 | | Load 0x2,0x3 0285 e008 | | Load 0x0,0x8 0286 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0287 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0288 0092 06ed | | Action Push_String_Extended,0x6ed ; "Not an ada object" 028a 8231 | 1 | Call 0x1,0x31 028b 4501 |E | Exit_Suprogram New_Top_Offset 0x1 028c 0000 0000 | | .BLANK 0000[0x4] 0290 ; -------------------------------------------------------------------------------------- 0290 ; SUBPROGRAM 0290 ; -------------------------------------------------------------------------------------- 0290 0293 | | .CONST 0x0293 ; Address of begin 0291 0004 | | .CONST 0x0004 ; Address of exception handler 0292 0001 | | .CONST 0x0001 ; Number of locals 0293 BODY_0290: 0293 INIT_0290: 0293 0092 06ec | | Action Push_String_Extended,0x6ec ; "<PROFILE>" 0295 4800 |H | Short_Literal 0x0 0296 0092 06ee | | Action Push_String_Extended,0x6ee ; "<ALL_WORLDS>" 0298 4800 |H | Short_Literal 0x0 0299 e5ff | | Load 0x2,-0x1 029a e008 | | Load 0x0,0x8 029b 1816 | | Execute Package,Field_Execute,Field_Number 0x16 029c 4502 |E | Exit_Suprogram New_Top_Offset 0x2 029d 0000 0000 | | .XXX[0x3] 029f 0000 | | 02a0 ; -------------------------------------------------------------------------------------- 02a0 ; SUBPROGRAM 02a0 ; -------------------------------------------------------------------------------------- 02a0 02a3 | | .CONST 0x02a3 ; Address of begin 02a1 0004 | | .CONST 0x0004 ; Address of exception handler 02a2 0001 | | .CONST 0x0001 ; Number of locals 02a3 BODY_02a0: 02a3 INIT_02a0: 02a3 0092 06f1 | | Action Push_String_Extended,0x6f1 ; "<SWITCH>" 02a5 e009 | | Load 0x0,0x9 02a6 1817 | | Execute Package,Field_Execute,Field_Number 0x17 02a7 4501 |E | Exit_Suprogram New_Top_Offset 0x1 02a8 ; -------------------------------------------------------------------------------------- 02a8 ; SUBPROGRAM 02a8 ; -------------------------------------------------------------------------------------- 02a8 02ab | | .CONST 0x02ab ; Address of begin 02a9 0004 | | .CONST 0x0004 ; Address of exception handler 02aa 0001 | | .CONST 0x0001 ; Number of locals 02ab BODY_02a8: 02ab INIT_02a8: 02ab e003 | | Load 0x0,0x3 02ac 181e | | Execute Package,Field_Execute,Field_Number 0x1e 02ad 4501 |E | Exit_Suprogram New_Top_Offset 0x1 02ae 0000 0000 | | .XXX[0x2] 02b0 ; -------------------------------------------------------------------------------------- 02b0 ; SUBPROGRAM 02b0 ; -------------------------------------------------------------------------------------- 02b0 02ca | | .CONST 0x02ca ; Address of begin 02b1 0004 | | .CONST 0x0004 ; Address of exception handler 02b2 0006 | | .CONST 0x0006 ; Number of locals 02b3 INIT_02b0: 02b3 e008 | | Load 0x0,0x8 02b4 1b0f | | Execute Package,Field_Read,Field_Number 0xf 02b5 e001 | | Load 0x0,0x1 02b6 1b14 | | Execute Package,Field_Read,Field_Number 0x14 02b7 e004 | | Load 0x0,0x4 02b8 1b0f | | Execute Package,Field_Read,Field_Number 0xf 02b9 02c7 | | Declare_Variable Any 02ba 00d8 | | Load_Top At_Offset_0 02bb 1c00 | | Execute_Immediate Run_Utility,0x0 02bc e5ff | | Load 0x2,-0x1 02bd 01db | | Execute Vector,Length 02be 0a14 | | Execute_Immediate Plus,0x14 02bf e00a | | Load 0x0,0xa 02c0 1b0e | | Execute Package,Field_Read,Field_Number 0xe 02c1 1c08 | | Execute_Immediate Run_Utility,0x8 02c2 00d8 | | Load_Top At_Offset_0 02c3 1c00 | | Execute_Immediate Run_Utility,0x0 02c4 4814 |H | Short_Literal 0x14 02c5 e00a | | Load 0x0,0xa 02c6 1b0e | | Execute Package,Field_Read,Field_Number 0xe 02c7 1c08 | | Execute_Immediate Run_Utility,0x8 02c8 00d8 | | Load_Top At_Offset_0 02c9 1c00 | | Execute_Immediate Run_Utility,0x0 02ca BODY_02b0: 02ca e5fe | | Load 0x2,-0x2 02cb 00d8 | | Load_Top At_Offset_0 02cc 4843 |HC | Short_Literal 0x43 02cd 4853 |HS | Short_Literal 0x53 02ce 0262 | b | Execute Discrete,In_Range 02cf 6812 |h | Jump_Zero 0x2e2 02d0 0b43 | C | Execute_Immediate Case_Compare,0x43 02d1 700c |p | Jump_Nonzero 0x2de 02d2 0b49 | I | Execute_Immediate Case_Compare,0x49 02d3 7006 |p | Jump_Nonzero 0x2da 02d4 0f53 | S | Execute_Immediate Equal,0x53 02d5 7001 |p | Jump_Nonzero 0x2d7 02d6 780c |x | Jump 0x2e3 02d7 4801 |H | Short_Literal 0x1 02d8 a402 | | Store_Unchecked 0x2,0x2 02d9 780e |x | Jump 0x2e8 02da 00d1 | | Pop_Control Pop_Count_1 02db 4802 |H | Short_Literal 0x2 02dc a402 | | Store_Unchecked 0x2,0x2 02dd 780a |x | Jump 0x2e8 02de 00d1 | | Pop_Control Pop_Count_1 02df 4803 |H | Short_Literal 0x3 02e0 a402 | | Store_Unchecked 0x2,0x2 02e1 7806 |x | Jump 0x2e8 02e2 00d1 | | Pop_Control Pop_Count_1 02e3 0092 06f2 | | Action Push_String_Extended,0x6f2 ; "Illegal goal state" 02e5 e002 | | Load 0x0,0x2 02e6 1865 | e | Execute Package,Field_Execute,Field_Number 0x65 02e7 4507 |E | Exit_Suprogram New_Top_Offset 0x7 02e8 e5fc | | Load 0x2,-0x4 02e9 0b57 | W | Execute_Immediate Case_Compare,0x57 02ea 7007 |p | Jump_Nonzero 0x2f2 02eb 0f41 | A | Execute_Immediate Equal,0x41 02ec 700d |p | Jump_Nonzero 0x2fa 02ed 0092 06f3 | | Action Push_String_Extended,0x6f3 ; "Illegal limit indicator : & limit);" 02ef e002 | | Load 0x0,0x2 02f0 1865 | e | Execute Package,Field_Execute,Field_Number 0x65 02f1 4507 |E | Exit_Suprogram New_Top_Offset 0x7 02f2 00d1 | | Pop_Control Pop_Count_1 02f3 00d8 | | Load_Top At_Offset_0 02f4 0092 06f4 | | Action Push_String_Extended,0x6f4 ; "<WORLDS>" 02f6 e00a | | Load 0x0,0xa 02f7 1810 | | Execute Package,Field_Execute,Field_Number 0x10 02f8 00d1 | | Pop_Control Pop_Count_1 02f9 7806 |x | Jump 0x300 02fa 00d8 | | Load_Top At_Offset_0 02fb 0092 06ee | | Action Push_String_Extended,0x6ee ; "<ALL_WORLDS>" 02fd e00a | | Load 0x0,0xa 02fe 1810 | | Execute Package,Field_Execute,Field_Number 0x10 02ff 00d1 | | Pop_Control Pop_Count_1 0300 e5ff | | Load 0x2,-0x1 0301 e001 | | Load 0x0,0x1 0302 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0303 c404 | | Store 0x2,0x4 0304 00da | | Load_Top At_Offset_2 0305 e004 | | Load 0x0,0x4 0306 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0307 012f | / | Execute Any,Equal 0308 7005 |p | Jump_Nonzero 0x30e 0309 00da | | Load_Top At_Offset_2 030a e001 | | Load 0x0,0x1 030b 1816 | | Execute Package,Field_Execute,Field_Number 0x16 030c a403 | | Store_Unchecked 0x2,0x3 030d 7802 |x | Jump 0x310 030e 4800 |H | Short_Literal 0x0 030f a403 | | Store_Unchecked 0x2,0x3 0310 00db | | Load_Top At_Offset_3 0311 0f02 | | Execute_Immediate Equal,0x2 0312 7006 |p | Jump_Nonzero 0x319 0313 00d9 | | Load_Top At_Offset_1 0314 e5ff | | Load 0x2,-0x1 0315 e00a | | Load 0x0,0xa 0316 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0317 00d1 | | Pop_Control Pop_Count_1 0318 7808 |x | Jump 0x321 0319 00d9 | | Load_Top At_Offset_1 031a e5ff | | Load 0x2,-0x1 031b 0092 06f5 | | Action Push_String_Extended,0x6f5 ; ".?'c(ada)" 031d 01cc | | Execute Vector,Catenate 031e e00a | | Load 0x0,0xa 031f 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0320 00d1 | | Pop_Control Pop_Count_1 0321 e5fb | | Load 0x2,-0x5 0322 0b57 | W | Execute_Immediate Case_Compare,0x57 0323 7009 |p | Jump_Nonzero 0x32d 0324 0f46 | F | Execute_Immediate Equal,0x46 0325 7009 |p | Jump_Nonzero 0x32f 0326 e5fb | | Load 0x2,-0x5 0327 0092 06f6 | | Action Push_String_Extended,0x6f6 ; "Illegal log destination code: " 0329 01cb | | Execute Vector,Append 032a e002 | | Load 0x0,0x2 032b 1865 | e | Execute Package,Field_Execute,Field_Number 0x65 032c 4507 |E | Exit_Suprogram New_Top_Offset 0x7 032d 00d1 | | Pop_Control Pop_Count_1 032e 7803 |x | Jump 0x332 032f e5fa | | Load 0x2,-0x6 0330 e00b | | Load 0x0,0xb 0331 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0332 e5fd | | Load 0x2,-0x3 0333 00d8 | | Load_Top At_Offset_0 0334 4842 |HB | Short_Literal 0x42 0335 4855 |HU | Short_Literal 0x55 0336 0262 | b | Execute Discrete,In_Range 0337 684e |hN | Jump_Zero 0x386 0338 0abe | | Execute_Immediate Plus,-0x42 0339 4613 |F | Jump_Case 0x14 033a 782f |x/ | Jump 0x36a ; case 0x0 033b 784b |xK | Jump 0x387 ; case 0x1 033c 784a |xJ | Jump 0x387 ; case 0x2 033d 7849 |xI | Jump 0x387 ; case 0x3 033e 7848 |xH | Jump 0x387 ; case 0x4 033f 7847 |xG | Jump 0x387 ; case 0x5 0340 7846 |xF | Jump 0x387 ; case 0x6 0341 7836 |x6 | Jump 0x378 ; case 0x7 0342 7844 |xD | Jump 0x387 ; case 0x8 0343 7843 |xC | Jump 0x387 ; case 0x9 0344 7842 |xB | Jump 0x387 ; case 0xa 0345 7841 |xA | Jump 0x387 ; case 0xb 0346 7840 |x@ | Jump 0x387 ; case 0xc 0347 783f |x? | Jump 0x387 ; case 0xd 0348 783e |x> | Jump 0x387 ; case 0xe 0349 783d |x= | Jump 0x387 ; case 0xf 034a 783c |x< | Jump 0x387 ; case 0x10 034b 7810 |x | Jump 0x35c ; case 0x11 034c 783a |x: | Jump 0x387 ; case 0x12 034d 7800 |x | Jump 0x34e ; case 0x13 034e 0092 06ec | | Action Push_String_Extended,0x6ec ; "<PROFILE>" 0350 4800 |H | Short_Literal 0x0 0351 00da | | Load_Top At_Offset_2 0352 e00a | | Load 0x0,0xa 0353 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0354 e402 | | Load 0x2,0x2 0355 4800 |H | Short_Literal 0x0 0356 e405 | | Load 0x2,0x5 0357 e00a | | Load 0x0,0xa 0358 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0359 e008 | | Load 0x0,0x8 035a 1819 | | Execute Package,Field_Execute,Field_Number 0x19 035b 4507 |E | Exit_Suprogram New_Top_Offset 0x7 035c 0092 06ec | | Action Push_String_Extended,0x6ec ; "<PROFILE>" 035e 4800 |H | Short_Literal 0x0 035f 00da | | Load_Top At_Offset_2 0360 e00a | | Load 0x0,0xa 0361 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0362 e402 | | Load 0x2,0x2 0363 4801 |H | Short_Literal 0x1 0364 e405 | | Load 0x2,0x5 0365 e00a | | Load 0x0,0xa 0366 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0367 e008 | | Load 0x0,0x8 0368 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0369 4507 |E | Exit_Suprogram New_Top_Offset 0x7 036a 0092 06ec | | Action Push_String_Extended,0x6ec ; "<PROFILE>" 036c 4800 |H | Short_Literal 0x0 036d 00da | | Load_Top At_Offset_2 036e e00a | | Load 0x0,0xa 036f 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0370 e402 | | Load 0x2,0x2 0371 4802 |H | Short_Literal 0x2 0372 e405 | | Load 0x2,0x5 0373 e00a | | Load 0x0,0xa 0374 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0375 e008 | | Load 0x0,0x8 0376 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0377 4507 |E | Exit_Suprogram New_Top_Offset 0x7 0378 0092 06ec | | Action Push_String_Extended,0x6ec ; "<PROFILE>" 037a 4800 |H | Short_Literal 0x0 037b 00da | | Load_Top At_Offset_2 037c e00a | | Load 0x0,0xa 037d 1813 | | Execute Package,Field_Execute,Field_Number 0x13 037e e402 | | Load 0x2,0x2 037f 4804 |H | Short_Literal 0x4 0380 e405 | | Load 0x2,0x5 0381 e00a | | Load 0x0,0xa 0382 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0383 e008 | | Load 0x0,0x8 0384 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0385 4507 |E | Exit_Suprogram New_Top_Offset 0x7 0386 00d1 | | Pop_Control Pop_Count_1 0387 0092 06f7 | | Action Push_String_Extended,0x6f7 ; "Illegal Promote scope" 0389 e002 | | Load 0x0,0x2 038a 1865 | e | Execute Package,Field_Execute,Field_Number 0x65 038b 4507 |E | Exit_Suprogram New_Top_Offset 0x7 038c 0000 0000 | | .BLANK 0000[0x4] 0390 ; -------------------------------------------------------------------------------------- 0390 ; SUBPROGRAM 0390 ; -------------------------------------------------------------------------------------- 0390 0393 | | .CONST 0x0393 ; Address of begin 0391 0004 | | .CONST 0x0004 ; Address of exception handler 0392 0001 | | .CONST 0x0001 ; Number of locals 0393 BODY_0390: 0393 INIT_0390: 0393 e003 | | Load 0x0,0x3 0394 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0395 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0396 0000 0000 | | .XXX[0x2] 0398 ; -------------------------------------------------------------------------------------- 0398 ; SUBPROGRAM 0398 ; -------------------------------------------------------------------------------------- 0398 03a0 | | .CONST 0x03a0 ; Address of begin 0399 0004 | | .CONST 0x0004 ; Address of exception handler 039a 0005 | | .CONST 0x0005 ; Number of locals 039b INIT_0398: 039b e008 | | Load 0x0,0x8 039c 1b0f | | Execute Package,Field_Read,Field_Number 0xf 039d 00e3 | | Load_Encached Natural_Cache 039e 03e9 | | Declare_Variable Discrete,Duplicate 039f 03e9 | | Declare_Variable Discrete,Duplicate 03a0 BODY_0398: 03a0 e5fe | | Load 0x2,-0x2 03a1 00d8 | | Load_Top At_Offset_0 03a2 4841 |HA | Short_Literal 0x41 03a3 4853 |HS | Short_Literal 0x53 03a4 0262 | b | Execute Discrete,In_Range 03a5 6812 |h | Jump_Zero 0x3b8 03a6 0b41 | A | Execute_Immediate Case_Compare,0x41 03a7 7005 |p | Jump_Nonzero 0x3ad 03a8 0b49 | I | Execute_Immediate Case_Compare,0x49 03a9 700a |p | Jump_Nonzero 0x3b4 03aa 0f53 | S | Execute_Immediate Equal,0x53 03ab 7005 |p | Jump_Nonzero 0x3b1 03ac 780c |x | Jump 0x3b9 03ad 00d1 | | Pop_Control Pop_Count_1 03ae 4800 |H | Short_Literal 0x0 03af a402 | | Store_Unchecked 0x2,0x2 03b0 780d |x | Jump 0x3be 03b1 4801 |H | Short_Literal 0x1 03b2 a402 | | Store_Unchecked 0x2,0x2 03b3 780a |x | Jump 0x3be 03b4 00d1 | | Pop_Control Pop_Count_1 03b5 4802 |H | Short_Literal 0x2 03b6 a402 | | Store_Unchecked 0x2,0x2 03b7 7806 |x | Jump 0x3be 03b8 00d1 | | Pop_Control Pop_Count_1 03b9 0092 06f2 | | Action Push_String_Extended,0x6f2 ; "Illegal goal state" 03bb e002 | | Load 0x0,0x2 03bc 1865 | e | Execute Package,Field_Execute,Field_Number 0x65 03bd 4504 |E | Exit_Suprogram New_Top_Offset 0x4 03be e5fd | | Load 0x2,-0x3 03bf 00d8 | | Load_Top At_Offset_0 03c0 4841 |HA | Short_Literal 0x41 03c1 4855 |HU | Short_Literal 0x55 03c2 0262 | b | Execute Discrete,In_Range 03c3 6839 |h9 | Jump_Zero 0x3fd 03c4 0b41 | A | Execute_Immediate Case_Compare,0x41 03c5 702c |p, | Jump_Nonzero 0x3f2 03c6 0b4c | L | Execute_Immediate Case_Compare,0x4c 03c7 701f |p | Jump_Nonzero 0x3e7 03c8 0f55 | U | Execute_Immediate Equal,0x55 03c9 7001 |p | Jump_Nonzero 0x3cb 03ca 7833 |x3 | Jump 0x3fe 03cb 00e3 | | Load_Encached Natural_Cache 03cc 00e3 | | Load_Encached Natural_Cache 03cd 00e3 | | Load_Encached Natural_Cache 03ce 4800 |H | Short_Literal 0x0 03cf e5ff | | Load 0x2,-0x1 03d0 e006 | | Load 0x0,0x6 03d1 1810 | | Execute Package,Field_Execute,Field_Number 0x10 03d2 c403 | | Store 0x2,0x3 03d3 005b | [ | Store_Top Discrete,At_Offset_3 03d4 0059 | Y | Store_Top Discrete,At_Offset_1 03d5 00da | | Load_Top At_Offset_2 03d6 0d02 | | Execute_Immediate Less,0x2 03d7 680a |h | Jump_Zero 0x3e2 03d8 0092 06ec | | Action Push_String_Extended,0x6ec ; "<PROFILE>" 03da 4800 |H | Short_Literal 0x0 03db 0092 06f4 | | Action Push_String_Extended,0x6f4 ; "<WORLDS>" 03dd e402 | | Load 0x2,0x2 03de e5ff | | Load 0x2,-0x1 03df e008 | | Load 0x0,0x8 03e0 1816 | | Execute Package,Field_Execute,Field_Number 0x16 03e1 4504 |E | Exit_Suprogram New_Top_Offset 0x4 03e2 0092 06f8 | | Action Push_String_Extended,0x6f8 ; "The unit has dependents that would need to be demoted." 03e4 e002 | | Load 0x0,0x2 03e5 1865 | e | Execute Package,Field_Execute,Field_Number 0x65 03e6 4504 |E | Exit_Suprogram New_Top_Offset 0x4 03e7 00d1 | | Pop_Control Pop_Count_1 03e8 0092 06ec | | Action Push_String_Extended,0x6ec ; "<PROFILE>" 03ea 4800 |H | Short_Literal 0x0 03eb 0092 06f4 | | Action Push_String_Extended,0x6f4 ; "<WORLDS>" 03ed e402 | | Load 0x2,0x2 03ee e5ff | | Load 0x2,-0x1 03ef e008 | | Load 0x0,0x8 03f0 1816 | | Execute Package,Field_Execute,Field_Number 0x16 03f1 4504 |E | Exit_Suprogram New_Top_Offset 0x4 03f2 00d1 | | Pop_Control Pop_Count_1 03f3 0092 06ec | | Action Push_String_Extended,0x6ec ; "<PROFILE>" 03f5 4800 |H | Short_Literal 0x0 03f6 0092 06ee | | Action Push_String_Extended,0x6ee ; "<ALL_WORLDS>" 03f8 e402 | | Load 0x2,0x2 03f9 e5ff | | Load 0x2,-0x1 03fa e008 | | Load 0x0,0x8 03fb 1816 | | Execute Package,Field_Execute,Field_Number 0x16 03fc 4504 |E | Exit_Suprogram New_Top_Offset 0x4 03fd 00d1 | | Pop_Control Pop_Count_1 03fe 0092 06f9 | | Action Push_String_Extended,0x6f9 ; "Illegal Demote scope" 0400 e002 | | Load 0x0,0x2 0401 1865 | e | Execute Package,Field_Execute,Field_Number 0x65 0402 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0403 0000 0000 | | .BLANK 0000[0x5] 0408 ; -------------------------------------------------------------------------------------- 0408 ; SUBPROGRAM 0408 ; -------------------------------------------------------------------------------------- 0408 040b | | .CONST 0x040b ; Address of begin 0409 0004 | | .CONST 0x0004 ; Address of exception handler 040a 0001 | | .CONST 0x0001 ; Number of locals 040b BODY_0408: 040b INIT_0408: 040b e001 | | Load 0x0,0x1 040c 181c | | Execute Package,Field_Execute,Field_Number 0x1c 040d 4610 |F | Jump_Case 0x11 040e 7810 |x | Jump 0x41f ; case 0x0 040f 7814 |x | Jump 0x424 ; case 0x1 0410 780e |x | Jump 0x41f ; case 0x2 0411 780d |x | Jump 0x41f ; case 0x3 0412 780c |x | Jump 0x41f ; case 0x4 0413 7810 |x | Jump 0x424 ; case 0x5 0414 780a |x | Jump 0x41f ; case 0x6 0415 7809 |x | Jump 0x41f ; case 0x7 0416 7808 |x | Jump 0x41f ; case 0x8 0417 7807 |x | Jump 0x41f ; case 0x9 0418 7806 |x | Jump 0x41f ; case 0xa 0419 7805 |x | Jump 0x41f ; case 0xb 041a 7804 |x | Jump 0x41f ; case 0xc 041b 7803 |x | Jump 0x41f ; case 0xd 041c 7802 |x | Jump 0x41f ; case 0xe 041d 7801 |x | Jump 0x41f ; case 0xf 041e 7800 |x | Jump 0x41f ; case 0x10 041f 0092 06fa | | Action Push_String_Extended,0x6fa ; "Show usage must be applied to an Ada object or item" 0421 e002 | | Load 0x0,0x2 0422 1865 | e | Execute Package,Field_Execute,Field_Number 0x65 0423 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0424 00ea | | Load_Encached Null_String_Cache 0425 4801 |H | Short_Literal 0x1 0426 0092 06ee | | Action Push_String_Extended,0x6ee ; "<ALL_WORLDS>" 0428 4801 |H | Short_Literal 0x1 0429 4806 |H | Short_Literal 0x6 042a 0092 06fb | | Action Push_String_Extended,0x6fb ; "<CURSOR>" 042c e00c | | Load 0x0,0xc 042d 180f | | Execute Package,Field_Execute,Field_Number 0xf 042e 4501 |E | Exit_Suprogram New_Top_Offset 0x1 042f 0000 | | .XXX[0x1] 0430 ; -------------------------------------------------------------------------------------- 0430 ; SUBPROGRAM 0430 ; -------------------------------------------------------------------------------------- 0430 0433 | 3 | .CONST 0x0433 ; Address of begin 0431 0004 | | .CONST 0x0004 ; Address of exception handler 0432 0001 | | .CONST 0x0001 ; Number of locals 0433 BODY_0430: 0433 INIT_0430: 0433 4801 |H | Short_Literal 0x1 0434 0092 06fc | | Action Push_String_Extended,0x6fc ; "<IMAGE>" 0436 e00d | | Load 0x0,0xd 0437 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0438 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0439 0000 0000 | | .BLANK 0000[0x7] 0440 ; -------------------------------------------------------------------------------------- 0440 ; SUBPROGRAM 0440 ; -------------------------------------------------------------------------------------- 0440 0443 | C | .CONST 0x0443 ; Address of begin 0441 0004 | | .CONST 0x0004 ; Address of exception handler 0442 0001 | | .CONST 0x0001 ; Number of locals 0443 BODY_0440: 0443 INIT_0440: 0443 4800 |H | Short_Literal 0x0 0444 0092 06fc | | Action Push_String_Extended,0x6fc ; "<IMAGE>" 0446 e00d | | Load 0x0,0xd 0447 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0448 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0449 0000 0000 | | .BLANK 0000[0x7] 0450 ; -------------------------------------------------------------------------------------- 0450 ; SUBPROGRAM 0450 ; -------------------------------------------------------------------------------------- 0450 045f | _ | .CONST 0x045f ; Address of begin 0451 0004 | | .CONST 0x0004 ; Address of exception handler 0452 0003 | | .CONST 0x0003 ; Number of locals 0453 INIT_0450: 0453 e004 | | Load 0x0,0x4 0454 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0455 02c7 | | Declare_Variable Any 0456 0092 06e1 | | Action Push_String_Extended,0x6e1 ; "<Cursor>" 0458 e001 | | Load 0x0,0x1 0459 1810 | | Execute Package,Field_Execute,Field_Number 0x10 045a a402 | | Store_Unchecked 0x2,0x2 045b 00d8 | | Load_Top At_Offset_0 045c e004 | | Load 0x0,0x4 045d 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 045e 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 045f BODY_0450: 045f 00ea | | Load_Encached Null_String_Cache 0460 00ea | | Load_Encached Null_String_Cache 0461 00ea | | Load_Encached Null_String_Cache 0462 00ea | | Load_Encached Null_String_Cache 0463 00ea | | Load_Encached Null_String_Cache 0464 00ea | | Load_Encached Null_String_Cache 0465 e403 | | Load 0x2,0x3 0466 0092 06fd | | Action Push_String_Extended,0x6fd ; "_Exe" 0468 01cc | | Execute Vector,Catenate 0469 e403 | | Load 0x2,0x3 046a 4b8e |K | Short_Literal 0x38e 046b 4838 |H8 | Short_Literal 0x38 046c e007 | | Load 0x0,0x7 046d 1818 | | Execute Package,Field_Execute,Field_Number 0x18 046e 4501 |E | Exit_Suprogram New_Top_Offset 0x1 046f 0000 | | .XXX[0x1] 0470 ; -------------------------------------------------------------------------------------- 0470 ; SUBPROGRAM 0470 ; -------------------------------------------------------------------------------------- 0470 0473 | s | .CONST 0x0473 ; Address of begin 0471 0004 | | .CONST 0x0004 ; Address of exception handler 0472 0001 | | .CONST 0x0001 ; Number of locals 0473 BODY_0470: 0473 INIT_0470: 0473 0092 06ec | | Action Push_String_Extended,0x6ec ; "<PROFILE>" 0475 e5fe | | Load 0x2,-0x2 0476 e5ff | | Load 0x2,-0x1 0477 e008 | | Load 0x0,0x8 0478 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0479 4503 |E | Exit_Suprogram New_Top_Offset 0x3 047a 0000 0000 | | .BLANK 0000[0x6] 0480 ; -------------------------------------------------------------------------------------- 0480 ; SUBPROGRAM 0480 ; -------------------------------------------------------------------------------------- 0480 0483 | | .CONST 0x0483 ; Address of begin 0481 0004 | | .CONST 0x0004 ; Address of exception handler 0482 0001 | | .CONST 0x0001 ; Number of locals 0483 BODY_0480: 0483 INIT_0480: 0483 00ea | | Load_Encached Null_String_Cache 0484 00ea | | Load_Encached Null_String_Cache 0485 00ea | | Load_Encached Null_String_Cache 0486 00ea | | Load_Encached Null_String_Cache 0487 00ea | | Load_Encached Null_String_Cache 0488 00ea | | Load_Encached Null_String_Cache 0489 e001 | | Load 0x0,0x1 048a 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 048b 0092 06e1 | | Action Push_String_Extended,0x6e1 ; "<Cursor>" 048d e001 | | Load 0x0,0x1 048e 180f | | Execute Package,Field_Execute,Field_Number 0xf 048f 4b8f |K | Short_Literal 0x38f 0490 481f |H | Short_Literal 0x1f 0491 e007 | | Load 0x0,0x7 0492 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0493 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0494 0000 0000 | | .BLANK 0000[0x4] 0498 ; -------------------------------------------------------------------------------------- 0498 ; SUBPROGRAM 0498 ; -------------------------------------------------------------------------------------- 0498 049b | | .CONST 0x049b ; Address of begin 0499 0004 | | .CONST 0x0004 ; Address of exception handler 049a 0001 | | .CONST 0x0001 ; Number of locals 049b BODY_0498: 049b INIT_0498: 049b 0092 06ec | | Action Push_String_Extended,0x6ec ; "<PROFILE>" 049d 00ea | | Load_Encached Null_String_Cache 049e 4800 |H | Short_Literal 0x0 049f e5fe | | Load 0x2,-0x2 04a0 e5ff | | Load 0x2,-0x1 04a1 e008 | | Load 0x0,0x8 04a2 1817 | | Execute Package,Field_Execute,Field_Number 0x17 04a3 4503 |E | Exit_Suprogram New_Top_Offset 0x3 04a4 0000 0000 | | .BLANK 0000[0x4] 04a8 ; -------------------------------------------------------------------------------------- 04a8 ; SUBPROGRAM 04a8 ; -------------------------------------------------------------------------------------- 04a8 04ab | | .CONST 0x04ab ; Address of begin 04a9 0004 | | .CONST 0x0004 ; Address of exception handler 04aa 0001 | | .CONST 0x0001 ; Number of locals 04ab BODY_04a8: 04ab INIT_04a8: 04ab e001 | | Load 0x0,0x1 04ac 181c | | Execute Package,Field_Execute,Field_Number 0x1c 04ad 4610 |F | Jump_Case 0x11 04ae 7810 |x | Jump 0x4bf ; case 0x0 04af 7814 |x | Jump 0x4c4 ; case 0x1 04b0 780e |x | Jump 0x4bf ; case 0x2 04b1 780d |x | Jump 0x4bf ; case 0x3 04b2 780c |x | Jump 0x4bf ; case 0x4 04b3 7810 |x | Jump 0x4c4 ; case 0x5 04b4 780a |x | Jump 0x4bf ; case 0x6 04b5 7809 |x | Jump 0x4bf ; case 0x7 04b6 7808 |x | Jump 0x4bf ; case 0x8 04b7 7807 |x | Jump 0x4bf ; case 0x9 04b8 7806 |x | Jump 0x4bf ; case 0xa 04b9 7805 |x | Jump 0x4bf ; case 0xb 04ba 7804 |x | Jump 0x4bf ; case 0xc 04bb 7803 |x | Jump 0x4bf ; case 0xd 04bc 7802 |x | Jump 0x4bf ; case 0xe 04bd 7801 |x | Jump 0x4bf ; case 0xf 04be 7800 |x | Jump 0x4bf ; case 0x10 04bf 0092 06fe | | Action Push_String_Extended,0x6fe ; "Build Private Part can only be applied to Ada units" 04c1 e002 | | Load 0x0,0x2 04c2 1865 | e | Execute Package,Field_Execute,Field_Number 0x65 04c3 4501 |E | Exit_Suprogram New_Top_Offset 0x1 04c4 0092 06fc | | Action Push_String_Extended,0x6fc ; "<IMAGE>" 04c6 e00d | | Load 0x0,0xd 04c7 181a | | Execute Package,Field_Execute,Field_Number 0x1a 04c8 4501 |E | Exit_Suprogram New_Top_Offset 0x1 04c9 0000 0000 | | .BLANK 0000[0x7] 04d0 ; -------------------------------------------------------------------------------------- 04d0 ; SUBPROGRAM 04d0 ; -------------------------------------------------------------------------------------- 04d0 04d3 | | .CONST 0x04d3 ; Address of begin 04d1 0004 | | .CONST 0x0004 ; Address of exception handler 04d2 0001 | | .CONST 0x0001 ; Number of locals 04d3 BODY_04d0: 04d3 INIT_04d0: 04d3 e001 | | Load 0x0,0x1 04d4 181c | | Execute Package,Field_Execute,Field_Number 0x1c 04d5 4610 |F | Jump_Case 0x11 04d6 7810 |x | Jump 0x4e7 ; case 0x0 04d7 7814 |x | Jump 0x4ec ; case 0x1 04d8 780e |x | Jump 0x4e7 ; case 0x2 04d9 780d |x | Jump 0x4e7 ; case 0x3 04da 780c |x | Jump 0x4e7 ; case 0x4 04db 7810 |x | Jump 0x4ec ; case 0x5 04dc 780a |x | Jump 0x4e7 ; case 0x6 04dd 7809 |x | Jump 0x4e7 ; case 0x7 04de 7808 |x | Jump 0x4e7 ; case 0x8 04df 7807 |x | Jump 0x4e7 ; case 0x9 04e0 7806 |x | Jump 0x4e7 ; case 0xa 04e1 7805 |x | Jump 0x4e7 ; case 0xb 04e2 7804 |x | Jump 0x4e7 ; case 0xc 04e3 7803 |x | Jump 0x4e7 ; case 0xd 04e4 7802 |x | Jump 0x4e7 ; case 0xe 04e5 7801 |x | Jump 0x4e7 ; case 0xf 04e6 7800 |x | Jump 0x4e7 ; case 0x10 04e7 0092 06ff | | Action Push_String_Extended,0x6ff ; "Build Body can only be applied to Ada units" 04e9 e002 | | Load 0x0,0x2 04ea 1865 | e | Execute Package,Field_Execute,Field_Number 0x65 04eb 4501 |E | Exit_Suprogram New_Top_Offset 0x1 04ec 0092 06fc | | Action Push_String_Extended,0x6fc ; "<IMAGE>" 04ee e00d | | Load 0x0,0xd 04ef 1819 | | Execute Package,Field_Execute,Field_Number 0x19 04f0 4501 |E | Exit_Suprogram New_Top_Offset 0x1 04f1 0000 0000 | | .BLANK 0000[0x7] 04f8 ; -------------------------------------------------------------------------------------- 04f8 ; SUBPROGRAM 04f8 ; -------------------------------------------------------------------------------------- 04f8 04fb | | .CONST 0x04fb ; Address of begin 04f9 0004 | | .CONST 0x0004 ; Address of exception handler 04fa 0001 | | .CONST 0x0001 ; Number of locals 04fb BODY_04f8: 04fb INIT_04f8: 04fb e001 | | Load 0x0,0x1 04fc 181c | | Execute Package,Field_Execute,Field_Number 0x1c 04fd 4610 |F | Jump_Case 0x11 04fe 7810 |x | Jump 0x50f ; case 0x0 04ff 7814 |x | Jump 0x514 ; case 0x1 0500 780e |x | Jump 0x50f ; case 0x2 0501 780d |x | Jump 0x50f ; case 0x3 0502 780c |x | Jump 0x50f ; case 0x4 0503 7810 |x | Jump 0x514 ; case 0x5 0504 780a |x | Jump 0x50f ; case 0x6 0505 7809 |x | Jump 0x50f ; case 0x7 0506 7808 |x | Jump 0x50f ; case 0x8 0507 7807 |x | Jump 0x50f ; case 0x9 0508 7806 |x | Jump 0x50f ; case 0xa 0509 7805 |x | Jump 0x50f ; case 0xb 050a 7804 |x | Jump 0x50f ; case 0xc 050b 7803 |x | Jump 0x50f ; case 0xd 050c 7802 |x | Jump 0x50f ; case 0xe 050d 7801 |x | Jump 0x50f ; case 0xf 050e 7800 |x | Jump 0x50f ; case 0x10 050f 0092 0700 | | Action Push_String_Extended,0x700 ; "Make Separate can only be applied to Ada units" 0511 e002 | | Load 0x0,0x2 0512 1865 | e | Execute Package,Field_Execute,Field_Number 0x65 0513 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0514 e00d | | Load 0x0,0xd 0515 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0516 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0517 0000 | | .XXX[0x1] 0518 ; -------------------------------------------------------------------------------------- 0518 ; SUBPROGRAM 0518 ; -------------------------------------------------------------------------------------- 0518 051b | | .CONST 0x051b ; Address of begin 0519 0004 | | .CONST 0x0004 ; Address of exception handler 051a 0001 | | .CONST 0x0001 ; Number of locals 051b BODY_0518: 051b INIT_0518: 051b e001 | | Load 0x0,0x1 051c 181c | | Execute Package,Field_Execute,Field_Number 0x1c 051d 4610 |F | Jump_Case 0x11 051e 7810 |x | Jump 0x52f ; case 0x0 051f 7814 |x | Jump 0x534 ; case 0x1 0520 780e |x | Jump 0x52f ; case 0x2 0521 780d |x | Jump 0x52f ; case 0x3 0522 780c |x | Jump 0x52f ; case 0x4 0523 7810 |x | Jump 0x534 ; case 0x5 0524 780a |x | Jump 0x52f ; case 0x6 0525 7809 |x | Jump 0x52f ; case 0x7 0526 7808 |x | Jump 0x52f ; case 0x8 0527 7807 |x | Jump 0x52f ; case 0x9 0528 7806 |x | Jump 0x52f ; case 0xa 0529 7805 |x | Jump 0x52f ; case 0xb 052a 7804 |x | Jump 0x52f ; case 0xc 052b 7803 |x | Jump 0x52f ; case 0xd 052c 7802 |x | Jump 0x52f ; case 0xe 052d 7801 |x | Jump 0x52f ; case 0xf 052e 7800 |x | Jump 0x52f ; case 0x10 052f 0092 0701 | | Action Push_String_Extended,0x701 ; "Make Inline can only be applied to Ada units" 0531 e002 | | Load 0x0,0x2 0532 1865 | e | Execute Package,Field_Execute,Field_Number 0x65 0533 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0534 e00d | | Load 0x0,0xd 0535 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0536 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0537 0000 | | .XXX[0x1] 0538 ; -------------------------------------------------------------------------------------- 0538 ; SUBPROGRAM 0538 ; -------------------------------------------------------------------------------------- 0538 053b | ; | .CONST 0x053b ; Address of begin 0539 0004 | | .CONST 0x0004 ; Address of exception handler 053a 0001 | | .CONST 0x0001 ; Number of locals 053b BODY_0538: 053b INIT_0538: 053b e001 | | Load 0x0,0x1 053c 181c | | Execute Package,Field_Execute,Field_Number 0x1c 053d 0f01 | | Execute_Immediate Equal,0x1 053e 7005 |p | Jump_Nonzero 0x544 053f 0092 0702 | | Action Push_String_Extended,0x702 ; "Incremental editing can only be performed in Ada units" 0541 e002 | | Load 0x0,0x2 0542 1865 | e | Execute Package,Field_Execute,Field_Number 0x65 0543 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0544 e003 | | Load 0x0,0x3 0545 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 0546 180d | | Execute Package,Field_Execute,Field_Number 0xd 0547 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0548 ; -------------------------------------------------------------------------------------- 0548 ; SUBPROGRAM 0548 ; -------------------------------------------------------------------------------------- 0548 054b | K | .CONST 0x054b ; Address of begin 0549 0004 | | .CONST 0x0004 ; Address of exception handler 054a 0001 | | .CONST 0x0001 ; Number of locals 054b BODY_0548: 054b INIT_0548: 054b e001 | | Load 0x0,0x1 054c 181c | | Execute Package,Field_Execute,Field_Number 0x1c 054d 0f01 | | Execute_Immediate Equal,0x1 054e 7005 |p | Jump_Nonzero 0x554 054f 0092 0702 | | Action Push_String_Extended,0x702 ; "Incremental editing can only be performed in Ada units" 0551 e002 | | Load 0x0,0x2 0552 1865 | e | Execute Package,Field_Execute,Field_Number 0x65 0553 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0554 4801 |H | Short_Literal 0x1 0555 4800 |H | Short_Literal 0x0 0556 0092 06fc | | Action Push_String_Extended,0x6fc ; "<IMAGE>" 0558 e003 | | Load 0x0,0x3 0559 1813 | | Execute Package,Field_Execute,Field_Number 0x13 055a 4501 |E | Exit_Suprogram New_Top_Offset 0x1 055b 0000 0000 | | .BLANK 0000[0x5] 0560 ; -------------------------------------------------------------------------------------- 0560 ; SUBPROGRAM 0560 ; -------------------------------------------------------------------------------------- 0560 0563 | c | .CONST 0x0563 ; Address of begin 0561 0004 | | .CONST 0x0004 ; Address of exception handler 0562 0001 | | .CONST 0x0001 ; Number of locals 0563 BODY_0560: 0563 INIT_0560: 0563 e001 | | Load 0x0,0x1 0564 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0565 0f01 | | Execute_Immediate Equal,0x1 0566 7005 |p | Jump_Nonzero 0x56c 0567 0092 0702 | | Action Push_String_Extended,0x702 ; "Incremental editing can only be performed in Ada units" 0569 e002 | | Load 0x0,0x2 056a 1865 | e | Execute Package,Field_Execute,Field_Number 0x65 056b 4501 |E | Exit_Suprogram New_Top_Offset 0x1 056c e003 | | Load 0x0,0x3 056d 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 056e 180f | | Execute Package,Field_Execute,Field_Number 0xf 056f 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0570 ; -------------------------------------------------------------------------------------- 0570 ; SUBPROGRAM 0570 ; -------------------------------------------------------------------------------------- 0570 0573 | s | .CONST 0x0573 ; Address of begin 0571 0004 | | .CONST 0x0004 ; Address of exception handler 0572 0001 | | .CONST 0x0001 ; Number of locals 0573 BODY_0570: 0573 INIT_0570: 0573 e001 | | Load 0x0,0x1 0574 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0575 0f01 | | Execute_Immediate Equal,0x1 0576 7005 |p | Jump_Nonzero 0x57c 0577 0092 0702 | | Action Push_String_Extended,0x702 ; "Incremental editing can only be performed in Ada units" 0579 e002 | | Load 0x0,0x2 057a 1865 | e | Execute Package,Field_Execute,Field_Number 0x65 057b 4501 |E | Exit_Suprogram New_Top_Offset 0x1 057c e003 | | Load 0x0,0x3 057d 181e | | Execute Package,Field_Execute,Field_Number 0x1e 057e 4501 |E | Exit_Suprogram New_Top_Offset 0x1 057f 0000 | | .XXX[0x1] 0580 ; -------------------------------------------------------------------------------------- 0580 ; SUBPROGRAM 0580 ; -------------------------------------------------------------------------------------- 0580 05a5 | | .CONST 0x05a5 ; Address of begin 0581 0004 | | .CONST 0x0004 ; Address of exception handler 0582 0005 | | .CONST 0x0005 ; Number of locals 0583 INIT_0580: 0583 0092 06e1 | | Action Push_String_Extended,0x6e1 ; "<Cursor>" 0585 e001 | | Load 0x0,0x1 0586 180f | | Execute Package,Field_Execute,Field_Number 0xf 0587 4801 |H | Short_Literal 0x1 0588 4801 |H | Short_Literal 0x1 0589 00e9 | | Load_Encached String_Cache 058a 035b | [ | Declare_Type Array,Constrained 058b 0337 | 7 | Declare_Variable Array 058c 00d8 | | Load_Top At_Offset_0 058d 0335 | 5 | Declare_Variable Array,Duplicate 058e 00cd | | Action Spare6_Action 058f 4843 |HC | Short_Literal 0x43 0590 4801 |H | Short_Literal 0x1 0591 00da | | Load_Top At_Offset_2 0592 01d6 | | Execute Vector,Field_Write 0593 00d9 | | Load_Top At_Offset_1 0594 01d4 | | Execute Vector,Structure_Write 0595 4801 |H | Short_Literal 0x1 0596 4801 |H | Short_Literal 0x1 0597 00e9 | | Load_Encached String_Cache 0598 035b | [ | Declare_Type Array,Constrained 0599 0337 | 7 | Declare_Variable Array 059a 00d8 | | Load_Top At_Offset_0 059b 0335 | 5 | Declare_Variable Array,Duplicate 059c 00cd | | Action Spare6_Action 059d 4846 |HF | Short_Literal 0x46 059e 4801 |H | Short_Literal 0x1 059f 00da | | Load_Top At_Offset_2 05a0 01d6 | | Execute Vector,Field_Write 05a1 00d9 | | Load_Top At_Offset_1 05a2 01d4 | | Execute Vector,Structure_Write 05a3 029f 06c3 | | Declare_Subprogram INIT_06c0,For_Call 05a5 BODY_0580: 05a5 e5ff | | Load 0x2,-0x1 05a6 01dd | | Execute Vector,First 05a7 e5ff | | Load 0x2,-0x1 05a8 01d7 | | Execute Vector,Field_Read 05a9 4801 |H | Short_Literal 0x1 05aa e403 | | Load 0x2,0x3 05ab 01d6 | | Execute Vector,Field_Write 05ac e5ff | | Load 0x2,-0x1 05ad 01dd | | Execute Vector,First 05ae 0a01 | | Execute_Immediate Plus,0x1 05af e5ff | | Load 0x2,-0x1 05b0 01d7 | | Execute Vector,Field_Read 05b1 4801 |H | Short_Literal 0x1 05b2 00db | | Load_Top At_Offset_3 05b3 01d6 | | Execute Vector,Field_Write 05b4 e001 | | Load 0x0,0x1 05b5 181c | | Execute Package,Field_Execute,Field_Number 0x1c 05b6 4610 |F | Jump_Case 0x11 05b7 7811 |x | Jump 0x5c9 ; case 0x0 05b8 780f |x | Jump 0x5c8 ; case 0x1 05b9 780f |x | Jump 0x5c9 ; case 0x2 05ba 780e |x | Jump 0x5c9 ; case 0x3 05bb 780d |x | Jump 0x5c9 ; case 0x4 05bc 780b |x | Jump 0x5c8 ; case 0x5 05bd 780b |x | Jump 0x5c9 ; case 0x6 05be 780a |x | Jump 0x5c9 ; case 0x7 05bf 7809 |x | Jump 0x5c9 ; case 0x8 05c0 7808 |x | Jump 0x5c9 ; case 0x9 05c1 7807 |x | Jump 0x5c9 ; case 0xa 05c2 7806 |x | Jump 0x5c9 ; case 0xb 05c3 7805 |x | Jump 0x5c9 ; case 0xc 05c4 7804 |x | Jump 0x5c9 ; case 0xd 05c5 7803 |x | Jump 0x5c9 ; case 0xe 05c6 7802 |x | Jump 0x5c9 ; case 0xf 05c7 7801 |x | Jump 0x5c9 ; case 0x10 05c8 8405 | | Call 0x2,0x5 05c9 00ea | | Load_Encached Null_String_Cache 05ca 00ea | | Load_Encached Null_String_Cache 05cb 00ea | | Load_Encached Null_String_Cache 05cc 00ea | | Load_Encached Null_String_Cache 05cd e404 | | Load 0x2,0x4 05ce 0092 0703 | | Action Push_String_Extended,0x703 ; "!Users." 05d0 e00e | | Load 0x0,0xe 05d1 1819 | | Execute Package,Field_Execute,Field_Number 0x19 05d2 e00e | | Load 0x0,0xe 05d3 181c | | Execute Package,Field_Execute,Field_Number 0x1c 05d4 e00f | | Load 0x0,0xf 05d5 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 05d6 01cc | | Execute Vector,Catenate 05d7 0092 0704 | | Action Push_String_Extended,0x704 ; ".Compile_Log" 05d9 01cc | | Execute Vector,Catenate 05da e403 | | Load 0x2,0x3 05db e402 | | Load 0x2,0x2 05dc 4b8a |K | Short_Literal 0x38a 05dd 481c |H | Short_Literal 0x1c 05de e007 | | Load 0x0,0x7 05df 1818 | | Execute Package,Field_Execute,Field_Number 0x18 05e0 4502 |E | Exit_Suprogram New_Top_Offset 0x2 05e1 0000 0000 | | .BLANK 0000[0x7] 05e8 ; -------------------------------------------------------------------------------------- 05e8 ; SUBPROGRAM 05e8 ; -------------------------------------------------------------------------------------- 05e8 060b | | .CONST 0x060b ; Address of begin 05e9 0004 | | .CONST 0x0004 ; Address of exception handler 05ea 0004 | | .CONST 0x0004 ; Number of locals 05eb INIT_05e8: 05eb 0092 06e1 | | Action Push_String_Extended,0x6e1 ; "<Cursor>" 05ed e001 | | Load 0x0,0x1 05ee 180f | | Execute Package,Field_Execute,Field_Number 0xf 05ef 4801 |H | Short_Literal 0x1 05f0 4801 |H | Short_Literal 0x1 05f1 00e9 | | Load_Encached String_Cache 05f2 035b | [ | Declare_Type Array,Constrained 05f3 0337 | 7 | Declare_Variable Array 05f4 00d8 | | Load_Top At_Offset_0 05f5 0335 | 5 | Declare_Variable Array,Duplicate 05f6 00cd | | Action Spare6_Action 05f7 4843 |HC | Short_Literal 0x43 05f8 4801 |H | Short_Literal 0x1 05f9 00da | | Load_Top At_Offset_2 05fa 01d6 | | Execute Vector,Field_Write 05fb 00d9 | | Load_Top At_Offset_1 05fc 01d4 | | Execute Vector,Structure_Write 05fd 4801 |H | Short_Literal 0x1 05fe 4801 |H | Short_Literal 0x1 05ff 00e9 | | Load_Encached String_Cache 0600 035b | [ | Declare_Type Array,Constrained 0601 0337 | 7 | Declare_Variable Array 0602 00d8 | | Load_Top At_Offset_0 0603 0335 | 5 | Declare_Variable Array,Duplicate 0604 00cd | | Action Spare6_Action 0605 4846 |HF | Short_Literal 0x46 0606 4801 |H | Short_Literal 0x1 0607 00da | | Load_Top At_Offset_2 0608 01d6 | | Execute Vector,Field_Write 0609 00d9 | | Load_Top At_Offset_1 060a 01d4 | | Execute Vector,Structure_Write 060b BODY_05e8: 060b e5ff | | Load 0x2,-0x1 060c 01dd | | Execute Vector,First 060d e5ff | | Load 0x2,-0x1 060e 01d7 | | Execute Vector,Field_Read 060f 4801 |H | Short_Literal 0x1 0610 00db | | Load_Top At_Offset_3 0611 01d6 | | Execute Vector,Field_Write 0612 e5ff | | Load 0x2,-0x1 0613 01dd | | Execute Vector,First 0614 0a01 | | Execute_Immediate Plus,0x1 0615 e5ff | | Load 0x2,-0x1 0616 01d7 | | Execute Vector,Field_Read 0617 4801 |H | Short_Literal 0x1 0618 00da | | Load_Top At_Offset_2 0619 01d6 | | Execute Vector,Field_Write 061a 00ea | | Load_Encached Null_String_Cache 061b 00ea | | Load_Encached Null_String_Cache 061c 00ea | | Load_Encached Null_String_Cache 061d 00ea | | Load_Encached Null_String_Cache 061e 00ea | | Load_Encached Null_String_Cache 061f e404 | | Load 0x2,0x4 0620 e403 | | Load 0x2,0x3 0621 e402 | | Load 0x2,0x2 0622 4b8b |K | Short_Literal 0x38b 0623 481b |H | Short_Literal 0x1b 0624 e007 | | Load 0x0,0x7 0625 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0626 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0627 0000 | | .XXX[0x1] 0628 ; -------------------------------------------------------------------------------------- 0628 ; SUBPROGRAM 0628 ; -------------------------------------------------------------------------------------- 0628 062b | + | .CONST 0x062b ; Address of begin 0629 0004 | | .CONST 0x0004 ; Address of exception handler 062a 0001 | | .CONST 0x0001 ; Number of locals 062b BODY_0628: 062b INIT_0628: 062b 00da | | Load_Top At_Offset_2 062c e002 | | Load 0x0,0x2 062d 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 062e e002 | | Load 0x0,0x2 062f 1863 | c | Execute Package,Field_Execute,Field_Number 0x63 0630 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0631 0000 0000 | | .BLANK 0000[0x7] 0638 ; -------------------------------------------------------------------------------------- 0638 ; SUBPROGRAM 0638 ; -------------------------------------------------------------------------------------- 0638 063b | ; | .CONST 0x063b ; Address of begin 0639 0004 | | .CONST 0x0004 ; Address of exception handler 063a 0001 | | .CONST 0x0001 ; Number of locals 063b BODY_0638: 063b INIT_0638: 063b 4820 |H | Short_Literal 0x20 063c 4800 |H | Short_Literal 0x0 063d 480a |H | Short_Literal 0xa 063e e5ff | | Load 0x2,-0x1 063f e00f | | Load 0x0,0xf 0640 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0641 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0642 0000 0000 | | .BLANK 0000[0x6] 0648 ; -------------------------------------------------------------------------------------- 0648 ; SUBPROGRAM 0648 ; -------------------------------------------------------------------------------------- 0648 0667 | g | .CONST 0x0667 ; Address of begin 0649 0004 | | .CONST 0x0004 ; Address of exception handler 064a 0005 | | .CONST 0x0005 ; Number of locals 064b INIT_0648: 064b e004 | | Load 0x0,0x4 064c 1b0f | | Execute Package,Field_Read,Field_Number 0xf 064d 02c7 | | Declare_Variable Any 064e 0092 06e1 | | Action Push_String_Extended,0x6e1 ; "<Cursor>" 0650 e001 | | Load 0x0,0x1 0651 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0652 a602 | | Store_Unchecked 0x3,0x2 0653 00d8 | | Load_Top At_Offset_0 0654 e004 | | Load 0x0,0x4 0655 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0656 183e | > | Execute Package,Field_Execute,Field_Number 0x3e 0657 e004 | | Load 0x0,0x4 0658 1b3f | ? | Execute Package,Field_Read,Field_Number 0x3f 0659 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 065a 02c7 | | Declare_Variable Any 065b 00da | | Load_Top At_Offset_2 065c e001 | | Load 0x0,0x1 065d 1812 | | Execute Package,Field_Execute,Field_Number 0x12 065e a604 | | Store_Unchecked 0x3,0x4 065f 00d8 | | Load_Top At_Offset_0 0660 e004 | | Load 0x0,0x4 0661 1b3f | ? | Execute Package,Field_Read,Field_Number 0x3f 0662 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0663 e004 | | Load 0x0,0x4 0664 1b3a | : | Execute Package,Field_Read,Field_Number 0x3a 0665 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0666 03f1 | | Declare_Variable Discrete,With_Value 0667 BODY_0648: 0667 00d8 | | Load_Top At_Offset_0 0668 680b |h | Jump_Zero 0x674 0669 0092 0705 | | Action Push_String_Extended,0x705 ; "~:::,<PROFILE>,~:::" 066b 4800 |H | Short_Literal 0x0 066c e008 | | Load 0x0,0x8 066d 1b15 | | Execute Package,Field_Read,Field_Number 0x15 066e 4803 |H | Short_Literal 0x3 066f 4801 |H | Short_Literal 0x1 0670 e603 | | Load 0x3,0x3 0671 e008 | | Load 0x0,0x8 0672 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0673 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0674 0092 06ed | | Action Push_String_Extended,0x6ed ; "Not an ada object" 0676 8231 | 1 | Call 0x1,0x31 0677 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0678 ; -------------------------------------------------------------------------------------- 0678 ; SUBPROGRAM 0678 ; -------------------------------------------------------------------------------------- 0678 0697 | | .CONST 0x0697 ; Address of begin 0679 0004 | | .CONST 0x0004 ; Address of exception handler 067a 0005 | | .CONST 0x0005 ; Number of locals 067b INIT_0678: 067b e004 | | Load 0x0,0x4 067c 1b0f | | Execute Package,Field_Read,Field_Number 0xf 067d 02c7 | | Declare_Variable Any 067e 0092 06e1 | | Action Push_String_Extended,0x6e1 ; "<Cursor>" 0680 e001 | | Load 0x0,0x1 0681 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0682 a602 | | Store_Unchecked 0x3,0x2 0683 00d8 | | Load_Top At_Offset_0 0684 e004 | | Load 0x0,0x4 0685 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0686 183e | > | Execute Package,Field_Execute,Field_Number 0x3e 0687 e004 | | Load 0x0,0x4 0688 1b3f | ? | Execute Package,Field_Read,Field_Number 0x3f 0689 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 068a 02c7 | | Declare_Variable Any 068b 00da | | Load_Top At_Offset_2 068c e001 | | Load 0x0,0x1 068d 1812 | | Execute Package,Field_Execute,Field_Number 0x12 068e a604 | | Store_Unchecked 0x3,0x4 068f 00d8 | | Load_Top At_Offset_0 0690 e004 | | Load 0x0,0x4 0691 1b3f | ? | Execute Package,Field_Read,Field_Number 0x3f 0692 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0693 e004 | | Load 0x0,0x4 0694 1b3a | : | Execute Package,Field_Read,Field_Number 0x3a 0695 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0696 03f1 | | Declare_Variable Discrete,With_Value 0697 BODY_0678: 0697 00d8 | | Load_Top At_Offset_0 0698 4604 |F | Jump_Case 0x5 0699 7820 |x | Jump 0x6ba ; case 0x0 069a 7814 |x | Jump 0x6af ; case 0x1 069b 7813 |x | Jump 0x6af ; case 0x2 069c 780b |x | Jump 0x6a8 ; case 0x3 069d 7800 |x | Jump 0x69e ; case 0x4 069e 0092 06ec | | Action Push_String_Extended,0x6ec ; "<PROFILE>" 06a0 4800 |H | Short_Literal 0x0 06a1 e008 | | Load 0x0,0x8 06a2 1b15 | | Execute Package,Field_Read,Field_Number 0x15 06a3 4802 |H | Short_Literal 0x2 06a4 e603 | | Load 0x3,0x3 06a5 e008 | | Load 0x0,0x8 06a6 1816 | | Execute Package,Field_Execute,Field_Number 0x16 06a7 4501 |E | Exit_Suprogram New_Top_Offset 0x1 06a8 00da | | Load_Top At_Offset_2 06a9 0092 0706 | | Action Push_String_Extended,0x706 ; " is already in the Installed state" 06ab 01cc | | Execute Vector,Catenate 06ac e002 | | Load 0x0,0x2 06ad 1865 | e | Execute Package,Field_Execute,Field_Number 0x65 06ae 4501 |E | Exit_Suprogram New_Top_Offset 0x1 06af 0092 0705 | | Action Push_String_Extended,0x705 ; "~:::,<PROFILE>,~:::" 06b1 4800 |H | Short_Literal 0x0 06b2 e008 | | Load 0x0,0x8 06b3 1b15 | | Execute Package,Field_Read,Field_Number 0x15 06b4 4802 |H | Short_Literal 0x2 06b5 4801 |H | Short_Literal 0x1 06b6 e603 | | Load 0x3,0x3 06b7 e008 | | Load 0x0,0x8 06b8 1819 | | Execute Package,Field_Execute,Field_Number 0x19 06b9 4501 |E | Exit_Suprogram New_Top_Offset 0x1 06ba 0092 06ed | | Action Push_String_Extended,0x6ed ; "Not an ada object" 06bc 8231 | 1 | Call 0x1,0x31 06bd 4501 |E | Exit_Suprogram New_Top_Offset 0x1 06be 0000 0000 | | .XXX[0x2] 06c0 ; -------------------------------------------------------------------------------------- 06c0 ; SUBPROGRAM 06c0 ; -------------------------------------------------------------------------------------- 06c0 06c5 | | .CONST 0x06c5 ; Address of begin 06c1 0004 | | .CONST 0x0004 ; Address of exception handler 06c2 0002 | | .CONST 0x0002 ; Number of locals 06c3 INIT_06c0: 06c3 e001 | | Load 0x0,0x1 06c4 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 06c5 BODY_06c0: 06c5 4801 |H | Short_Literal 0x1 06c6 00d9 | | Load_Top At_Offset_1 06c7 0092 0707 | | Action Push_String_Extended,0x707 ; "._ADA" 06c9 e00f | | Load 0x0,0xf 06ca 181d | | Execute Package,Field_Execute,Field_Number 0x1d 06cb 700f |p | Jump_Nonzero 0x6db 06cc 00d8 | | Load_Top At_Offset_0 06cd 01db | | Execute Vector,Length 06ce 6810 |h | Jump_Zero 0x6df 06cf 00d8 | | Load_Top At_Offset_0 06d0 01dd | | Execute Vector,First 06d1 00d9 | | Load_Top At_Offset_1 06d2 01d7 | | Execute Vector,Field_Read 06d3 0f5b | [ | Execute_Immediate Equal,0x5b 06d4 680a |h | Jump_Zero 0x6df 06d5 00d8 | | Load_Top At_Offset_0 06d6 01dc | | Execute Vector,Last 06d7 00d9 | | Load_Top At_Offset_1 06d8 01d7 | | Execute Vector,Field_Read 06d9 0f5d | ] | Execute_Immediate Equal,0x5d 06da 6804 |h | Jump_Zero 0x6df 06db e003 | | Load 0x0,0x3 06dc 181e | | Execute Package,Field_Execute,Field_Number 0x1e 06dd 00cc | | Action Pop_Block 06de 4502 |E | Exit_Suprogram New_Top_Offset 0x2 06df 4501 |E | Exit_Suprogram New_Top_Offset 0x1 06e0 ; -------------------------------------------------------------------------------------- 06e0 ; STRING TABLE 06e0 ; -------------------------------------------------------------------------------------- 06e0 0052 | R | .STRTAB 0x0052->0x0709 ; "Semanticize can only be applied in an Ada window." 06e1 0081 | | .STRTAB 0x0081->0x0721 ; "<Cursor>" 06e2 0087 | | .STRTAB 0x0087->0x0725 ; "No item selected" 06e3 0095 | | .STRTAB 0x0095->0x072d ; "Demoting " 06e4 009c | | .STRTAB 0x009c->0x0732 ; "\x5c" 06e5 009b | | .STRTAB 0x009b->0x0732 ; " will demote " 06e6 00a7 | | .STRTAB 0x00a7->0x0739 ; " units\x5c" 06e7 00ac | | .STRTAB 0x00ac->0x073d ; " in " 06e8 00af | | .STRTAB 0x00af->0x073f ; " subsystems\x5c" 06e9 00b9 | | .STRTAB 0x00b9->0x0745 ; " demoting a total of " 06ea 00cc | | .STRTAB 0x00cc->0x0750 ; " lines.\x5c\x5c Ok?" 06eb 00da | | .STRTAB 0x00da->0x0758 ; "Source, Confirm" 06ec 00e7 | | .STRTAB 0x00e7->0x075f ; "<PROFILE>" 06ed 00ee | | .STRTAB 0x00ee->0x0764 ; "Not an ada object" 06ee 00fd | | .STRTAB 0x00fd->0x076c ; "<ALL_WORLDS>" 06ef 0107 | | .STRTAB 0x0107->0x0772 ; "Archive, Confirm" 06f0 0115 | | .STRTAB 0x0115->0x077a ; "Unit is already in the archived state." 06f1 0139 | 9 | .STRTAB 0x0139->0x078d ; "<SWITCH>" 06f2 013f | ? | .STRTAB 0x013f->0x0791 ; "Illegal goal state" 06f3 014f | O | .STRTAB 0x014f->0x079a ; "Illegal limit indicator : & limit);" 06f4 0170 | p | .STRTAB 0x0170->0x07ac ; "<WORLDS>" 06f5 0176 | v | .STRTAB 0x0176->0x07b0 ; ".?'c(ada)" 06f6 017d | } | .STRTAB 0x017d->0x07b4 ; "Illegal log destination code: " 06f7 0199 | | .STRTAB 0x0199->0x07c3 ; "Illegal Promote scope" 06f8 01ac | | .STRTAB 0x01ac->0x07ce ; "The unit has dependents that would need to be demoted." 06f9 01e0 | | .STRTAB 0x01e0->0x07e9 ; "Illegal Demote scope" 06fa 01f2 | | .STRTAB 0x01f2->0x07f3 ; "Show usage must be applied to an Ada object or item" 06fb 0223 | # | .STRTAB 0x0223->0x080c ; "<CURSOR>" 06fc 0229 | ) | .STRTAB 0x0229->0x0810 ; "<IMAGE>" 06fd 022e | . | .STRTAB 0x022e->0x0814 ; "_Exe" 06fe 0230 | 0 | .STRTAB 0x0230->0x0816 ; "Build Private Part can only be applied to Ada units" 06ff 0261 | a | .STRTAB 0x0261->0x082f ; "Build Body can only be applied to Ada units" 0700 028a | | .STRTAB 0x028a->0x0845 ; "Make Separate can only be applied to Ada units" 0701 02b6 | | .STRTAB 0x02b6->0x085c ; "Make Inline can only be applied to Ada units" 0702 02e0 | | .STRTAB 0x02e0->0x0872 ; "Incremental editing can only be performed in Ada units" 0703 0314 | | .STRTAB 0x0314->0x088d ; "!Users." 0704 0319 | | .STRTAB 0x0319->0x0890 ; ".Compile_Log" 0705 0323 | # | .STRTAB 0x0323->0x0896 ; "~:::,<PROFILE>,~:::" 0706 0334 | 4 | .STRTAB 0x0334->0x08a0 ; " is already in the Installed state" 0707 0354 | T | .STRTAB 0x0354->0x08b1 ; "._ADA" 0708 0357 | W | .STREND 0x0357->0x08b3 0709 5365 6d61 |Sema| .STRTAB_STRINGS 08b4 0000 0000 | | .BLANK 0000[0x4] 08b8 ; -------------------------------------------------------------------------------------- 08b8 ; Debug Table 08b8 ; -------------------------------------------------------------------------------------- 08b8 0004 0012 | | .DEBUG4 0x0004,0x0012,0x64bd,0x0000,0x0001,0x0000 08be ada3 19f6 | | .XXX[0x142] 08c0 a3cc 6571 | eq| 08c2 d359 f7f5 | Y | 08c4 d7f6 42ba | B | 08c6 967d e7f6 | } | 08c8 c3e3 fbe2 | | 08ca 3ba4 f1fa |; | 08cc 4bf7 d38e |K | 08ce 73f4 f1fa |s | 08d0 53f6 77f5 |S w | 08d2 f7f7 19f5 | | 08d4 cbbd 4d6a | Mj| 08d6 33f7 6929 |3 i)| 08d8 87f7 8bde | | 08da fff0 f7f5 | | 08dc b685 77f5 | w | 08de 9ff6 5369 | Si| 08e0 b3ee 03e1 | | 08e2 afe5 b7e7 | | 08e4 7d2b 71d8 |}+q | 08e6 2bf7 33d3 |+ 3 | 08e8 3fe2 cff5 |? | 08ea ebf5 efd1 | | 08ec a3f7 19f4 | | 08ee 1ff4 37e7 | 7 | 08f0 0608 87f4 | | 08f2 3e2b 6be3 |>+k | 08f4 19f4 1dd6 | | 08f6 45f2 45f2 |E E | 08f8 5a28 d150 |Z( P| 08fa ebce 87f5 | | 08fc dff7 19f4 | | 08fe 158a 7bf6 | { | 0900 7bf4 7b9f |{ { | 0902 3ff4 177f |? | 0904 4bf7 27a7 |K ' | 0906 3e4c 0d78 |>L x| 0908 67e5 cbcd |g | 090a 6fbe 4f92 |o O | 090c dbe3 53f6 | S | 090e 6ff6 4be7 |o K | 0910 5fa6 dff3 |_ | 0912 cf64 6bd6 | dk | 0914 dbf4 1588 | | 0916 6bd4 c7e6 |k | 0918 bff3 5529 | U)| 091a 8bbf 77de | w | 091c 6f66 7bf7 |of{ | 091e 6bf7 4d2b |k M+| 0920 77f7 37f6 |w 7 | 0922 8bf7 cbf7 | | 0924 83f7 eff3 | | 0926 d7f6 73a0 | s | 0928 d7bc 3f67 | ?g| 092a e7f7 a7d0 | | 092c 7fd7 bff7 | | 092e 87e0 4be5 | K | 0930 3fc2 cfe7 |? | 0932 73f7 5528 |s U(| 0934 6bd4 13f9 |k | 0936 cbce dbf6 | | 0938 7bf6 5ba7 |{ [ | 093a 1bf5 4ff7 | O | 093c 2b50 2ffa |+P/ | 093e 7ab3 03bb |z | 0940 1529 b7f5 | ) | 0942 b7f6 2b2e | +.| 0944 2b2c ce40 |+, @| 0946 ce40 35f8 | @5 | 0948 db96 6da7 | m | 094a c3f5 f7f4 | | 094c 9f58 fb93 | X | 094e 7bf5 dff7 |{ | 0950 efe3 2fe4 | / | 0952 63fb cff4 |c | 0954 7bf8 f1f8 |{ | 0956 cbf7 4f56 | OV| 0958 23f5 3a27 |# :'| 095a 77f4 6573 |w es| 095c abe3 43f6 | C | 095e f3f5 97d0 | | 0960 ada2 03f7 | | 0962 97aa 6223 | b#| 0964 c7f3 ebf3 | | 0966 4928 6bfb |I(k | 0968 33f4 8ffa |3 | 096a 83f4 93fa | | 096c 5363 6be1 |Sck | 096e 576f 5ff3 |Wo_ | 0970 4528 4ffa |E(O | 0972 4df1 0bfa |M | 0974 b294 f3fa | | 0976 4b63 552a |KcU*| 0978 7bf6 92f4 |{ | 097a 15d4 fde0 | | 097c 67f9 f7f4 |g | 097e dbf8 6ff8 | o | 0980 4b70 d7f8 |Kp | 0982 cffa d996 | | 0984 5ff5 ffe0 |_ | 0986 4552 afa5 |ER | 0988 c3ec 0be9 | | 098a 67f9 cfef |g | 098c 7a1d 0bd5 |z | 098e 37f5 e3ec |7 | 0990 9ff8 ff5f | _| 0992 e3cc 7ff7 | | 0994 c7f3 cfd1 | | 0996 c754 55bb | TU | 0998 6fa8 112e |o .| 099a dbf5 2ff6 | / | 099c 9bf3 bd2a | *| 099e 3bf5 a3ab |; | 09a0 19f4 d9f7 | | 09a2 43a9 72e3 |C r | 09a4 77df b78f |w | 09a6 ffa6 7bf7 | { | 09a8 ffa5 e3ab | | 09aa 7529 bbfb |u) | 09ac 77de 9bf4 |w | 09ae 1709 f1ed | | 09b0 85f8 d9f6 | | 09b2 7bf5 c7fb |{ | 09b4 8529 eff9 | ) | 09b6 3a24 4551 |:$EQ| 09b8 f7fa 6be2 | k | 09ba 4361 cfe3 |Ca | 09bc 3fdf 752a |? u*| 09be 03f8 8ffa | | 09c0 0ffa d996 | | 09c2 23fb a3f5 |# | 09c4 dfa8 3ff8 | ? | 09c6 e3fa 5bfb | [ | 09c8 5d28 83f4 |]( | 09ca c19e ebd0 | | 09cc 67aa bff4 |g | 09ce aaf2 f19d | | 09d0 3ff7 4f54 |? OT| 09d2 efd6 4ff8 | O | 09d4 43af f3d3 |C | 09d6 93de 598e | Y | 09d8 fbe4 ff80 | | 09da d3fa abfb | | 09dc 812a c21d | * | 09de 07f8 33fa | 3 | 09e0 bff8 1d43 | C| 09e2 8129 d7f8 | ) | 09e4 8ff8 b7fb | | 09e6 712a 17fb |q* | 09e8 77f4 ebfb |w | 09ea 392a cffa |9* | 09ec 5ff9 e3f8 |_ | 09ee 87f9 f5fb | | 09f0 2166 3ffa |!f? | 09f2 07a9 ab66 | f| 09f4 db56 ba8a | V | 09f6 57fa 8ff8 |W | 09f8 cfe6 37f5 | 7 | 09fa f7f7 0166 | f| 09fc b942 4bfb | BK | 09fe 5928 63f6 |Y(c |