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