|
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_0a7cf5
└─⟦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 08c8 | | .CONST 0x08c8 ; 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 02bb | | Declare_Subprogram INIT_02b8,For_Outer_Call,Visible,Unelaborated
0045 c230 | 0 | Store 0x1,0x30
0046 029a 039b | | Declare_Subprogram INIT_0398,For_Outer_Call,Visible,Unelaborated
0048 c218 | | Store 0x1,0x18
0049 029a 03ab | | Declare_Subprogram INIT_03a8,For_Outer_Call,Visible,Unelaborated
004b c227 | ' | Store 0x1,0x27
004c 029a 041b | | Declare_Subprogram INIT_0418,For_Outer_Call,Visible,Unelaborated
004e c21a | | Store 0x1,0x1a
004f 029a 0443 | C| Declare_Subprogram INIT_0440,For_Outer_Call,Visible,Unelaborated
0051 c21b | | Store 0x1,0x1b
0052 029a 0453 | S| Declare_Subprogram INIT_0450,For_Outer_Call,Visible,Unelaborated
0054 c21c | | Store 0x1,0x1c
0055 029a 0463 | c| Declare_Subprogram INIT_0460,For_Outer_Call,Visible,Unelaborated
0057 c21d | | Store 0x1,0x1d
0058 029a 0483 | | Declare_Subprogram INIT_0480,For_Outer_Call,Visible,Unelaborated
005a c21e | | Store 0x1,0x1e
005b 029a 0493 | | Declare_Subprogram INIT_0490,For_Outer_Call,Visible,Unelaborated
005d c21f | | Store 0x1,0x1f
005e 029a 04ab | | Declare_Subprogram INIT_04a8,For_Outer_Call,Visible,Unelaborated
0060 c220 | | Store 0x1,0x20
0061 029a 04bb | | Declare_Subprogram INIT_04b8,For_Outer_Call,Visible,Unelaborated
0063 c221 | ! | Store 0x1,0x21
0064 029a 04e3 | | Declare_Subprogram INIT_04e0,For_Outer_Call,Visible,Unelaborated
0066 c222 | " | Store 0x1,0x22
0067 029a 050b | | Declare_Subprogram INIT_0508,For_Outer_Call,Visible,Unelaborated
0069 c223 | # | Store 0x1,0x23
006a 029a 052b | +| Declare_Subprogram INIT_0528,For_Outer_Call,Visible,Unelaborated
006c c224 | $ | Store 0x1,0x24
006d 029a 054b | K| Declare_Subprogram INIT_0548,For_Outer_Call,Visible,Unelaborated
006f c229 | ) | Store 0x1,0x29
0070 029a 055b | [| Declare_Subprogram INIT_0558,For_Outer_Call,Visible,Unelaborated
0072 c22a | * | Store 0x1,0x2a
0073 029a 0573 | s| Declare_Subprogram INIT_0570,For_Outer_Call,Visible,Unelaborated
0075 c22d | - | Store 0x1,0x2d
0076 029a 0583 | | Declare_Subprogram INIT_0580,For_Outer_Call,Visible,Unelaborated
0078 c22c | , | Store 0x1,0x2c
0079 029a 0593 | | Declare_Subprogram INIT_0590,For_Outer_Call,Visible,Unelaborated
007b c22e | . | Store 0x1,0x2e
007c 029a 05fb | | Declare_Subprogram INIT_05f8,For_Outer_Call,Visible,Unelaborated
007e c22f | / | Store 0x1,0x2f
007f 00bf | | Action Accept_Activation
0080 029d 063b | ;| Declare_Subprogram INIT_0638,For_Outer_Call
0082 029d 064b | K| Declare_Subprogram INIT_0648,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 06f0 | | Action Push_String_Extended,0x6f0 ; "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 06f1 | | Action Push_String_Extended,0x6f1 ; "<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 065b | [| Declare_Subprogram INIT_0658,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 06f2 | | Action Push_String_Extended,0x6f2 ; "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 06f1 | | Action Push_String_Extended,0x6f1 ; "<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 068b | | Declare_Subprogram INIT_0688,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 06f2 | | Action Push_String_Extended,0x6f2 ; "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 0833 | 3 | Execute_Immediate Raise,0x33
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 06f1 | | Action Push_String_Extended,0x6f1 ; "<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 06f2 | | Action Push_String_Extended,0x6f2 ; "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 06f3 | | Action Push_String_Extended,0x6f3 ; "Demoting "
01b5 e403 | | Load 0x2,0x3
01b6 01cc | | Execute Vector,Catenate
01b7 0092 06f4 | | Action Push_String_Extended,0x6f4 ; "\x5c"
01b9 01cc | | Execute Vector,Catenate
01ba 0092 06f5 | | Action Push_String_Extended,0x6f5 ; " 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 06f6 | | Action Push_String_Extended,0x6f6 ; " units\x5c"
01c2 01cc | | Execute Vector,Catenate
01c3 0092 06f7 | | Action Push_String_Extended,0x6f7 ; " in "
01c5 01cc | | Execute Vector,Catenate
01c6 e407 | | Load 0x2,0x7
01c7 8232 | 2 | Call 0x1,0x32
01c8 01cc | | Execute Vector,Catenate
01c9 0092 06f8 | | Action Push_String_Extended,0x6f8 ; " subsystems\x5c"
01cb 01cc | | Execute Vector,Catenate
01cc 0092 06f9 | | Action Push_String_Extended,0x6f9 ; " 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 06fa | | Action Push_String_Extended,0x6fa ; " lines.\x5c\x5c Ok?"
01d4 01cc | | Execute Vector,Catenate
01d5 0092 06fb | | Action Push_String_Extended,0x6fb ; "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 06fc | | Action Push_String_Extended,0x6fc ; "<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 06fc | | Action Push_String_Extended,0x6fc ; "<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 06fd | | Action Push_String_Extended,0x6fd ; "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 06fc | | Action Push_String_Extended,0x6fc ; "<PROFILE>"
01fd 4800 |H | Short_Literal 0x0
01fe 0092 06fe | | Action Push_String_Extended,0x6fe ; "<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 06f1 | | Action Push_String_Extended,0x6f1 ; "<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 06f2 | | Action Push_String_Extended,0x6f2 ; "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 06f3 | | Action Push_String_Extended,0x6f3 ; "Demoting "
0249 e403 | | Load 0x2,0x3
024a 01cc | | Execute Vector,Catenate
024b 0092 06f4 | | Action Push_String_Extended,0x6f4 ; "\x5c"
024d 01cc | | Execute Vector,Catenate
024e 0092 06f5 | | Action Push_String_Extended,0x6f5 ; " 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 06f6 | | Action Push_String_Extended,0x6f6 ; " units\x5c"
0256 01cc | | Execute Vector,Catenate
0257 0092 06f7 | | Action Push_String_Extended,0x6f7 ; " 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 06f8 | | Action Push_String_Extended,0x6f8 ; " subsystems\x5c"
025f 01cc | | Execute Vector,Catenate
0260 0092 06f9 | | Action Push_String_Extended,0x6f9 ; " 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 06fa | | Action Push_String_Extended,0x6fa ; " lines.\x5c\x5c Ok?"
0268 01cc | | Execute Vector,Catenate
0269 0092 06ff | | Action Push_String_Extended,0x6ff ; "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 06fc | | Action Push_String_Extended,0x6fc ; "<PROFILE>"
0271 4800 |H | Short_Literal 0x0
0272 0092 06fe | | Action Push_String_Extended,0x6fe ; "<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 0700 | | Action Push_String_Extended,0x700 ; "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 06fc | | Action Push_String_Extended,0x6fc ; "<PROFILE>"
0280 4800 |H | Short_Literal 0x0
0281 0092 06fe | | Action Push_String_Extended,0x6fe ; "<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 06fd | | Action Push_String_Extended,0x6fd ; "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 06fc | | Action Push_String_Extended,0x6fc ; "<PROFILE>"
0295 4800 |H | Short_Literal 0x0
0296 0092 06fe | | Action Push_String_Extended,0x6fe ; "<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 0701 | | Action Push_String_Extended,0x701 ; "<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 02af | | .CONST 0x02af ; Address of begin
02a9 0004 | | .CONST 0x0004 ; Address of exception handler
02aa 0002 | | .CONST 0x0002 ; Number of locals
02ab INIT_02a8:
02ab 0092 06f1 | | Action Push_String_Extended,0x6f1 ; "<Cursor>"
02ad e001 | | Load 0x0,0x1
02ae 180f | | Execute Package,Field_Execute,Field_Number 0xf
02af BODY_02a8:
02af e003 | | Load 0x0,0x3
02b0 181e | | Execute Package,Field_Execute,Field_Number 0x1e
02b1 4501 |E | Exit_Suprogram New_Top_Offset 0x1
02b2 0000 0000 | | .BLANK 0000[0x6]
02b8 ; --------------------------------------------------------------------------------------
02b8 ; SUBPROGRAM
02b8 ; --------------------------------------------------------------------------------------
02b8 02d2 | | .CONST 0x02d2 ; Address of begin
02b9 0004 | | .CONST 0x0004 ; Address of exception handler
02ba 0006 | | .CONST 0x0006 ; Number of locals
02bb INIT_02b8:
02bb e008 | | Load 0x0,0x8
02bc 1b0f | | Execute Package,Field_Read,Field_Number 0xf
02bd e001 | | Load 0x0,0x1
02be 1b14 | | Execute Package,Field_Read,Field_Number 0x14
02bf e004 | | Load 0x0,0x4
02c0 1b0f | | Execute Package,Field_Read,Field_Number 0xf
02c1 02c7 | | Declare_Variable Any
02c2 00d8 | | Load_Top At_Offset_0
02c3 1c00 | | Execute_Immediate Run_Utility,0x0
02c4 e5ff | | Load 0x2,-0x1
02c5 01db | | Execute Vector,Length
02c6 0a14 | | Execute_Immediate Plus,0x14
02c7 e00a | | Load 0x0,0xa
02c8 1b0e | | Execute Package,Field_Read,Field_Number 0xe
02c9 1c08 | | Execute_Immediate Run_Utility,0x8
02ca 00d8 | | Load_Top At_Offset_0
02cb 1c00 | | Execute_Immediate Run_Utility,0x0
02cc 4814 |H | Short_Literal 0x14
02cd e00a | | Load 0x0,0xa
02ce 1b0e | | Execute Package,Field_Read,Field_Number 0xe
02cf 1c08 | | Execute_Immediate Run_Utility,0x8
02d0 00d8 | | Load_Top At_Offset_0
02d1 1c00 | | Execute_Immediate Run_Utility,0x0
02d2 BODY_02b8:
02d2 e5fe | | Load 0x2,-0x2
02d3 00d8 | | Load_Top At_Offset_0
02d4 4843 |HC | Short_Literal 0x43
02d5 4853 |HS | Short_Literal 0x53
02d6 0262 | b | Execute Discrete,In_Range
02d7 6812 |h | Jump_Zero 0x2ea
02d8 0b43 | C | Execute_Immediate Case_Compare,0x43
02d9 700c |p | Jump_Nonzero 0x2e6
02da 0b49 | I | Execute_Immediate Case_Compare,0x49
02db 7006 |p | Jump_Nonzero 0x2e2
02dc 0f53 | S | Execute_Immediate Equal,0x53
02dd 7001 |p | Jump_Nonzero 0x2df
02de 780c |x | Jump 0x2eb
02df 4801 |H | Short_Literal 0x1
02e0 a402 | | Store_Unchecked 0x2,0x2
02e1 780e |x | Jump 0x2f0
02e2 00d1 | | Pop_Control Pop_Count_1
02e3 4802 |H | Short_Literal 0x2
02e4 a402 | | Store_Unchecked 0x2,0x2
02e5 780a |x | Jump 0x2f0
02e6 00d1 | | Pop_Control Pop_Count_1
02e7 4803 |H | Short_Literal 0x3
02e8 a402 | | Store_Unchecked 0x2,0x2
02e9 7806 |x | Jump 0x2f0
02ea 00d1 | | Pop_Control Pop_Count_1
02eb 0092 0702 | | Action Push_String_Extended,0x702 ; "Illegal goal state"
02ed e002 | | Load 0x0,0x2
02ee 1865 | e | Execute Package,Field_Execute,Field_Number 0x65
02ef 4507 |E | Exit_Suprogram New_Top_Offset 0x7
02f0 e5fc | | Load 0x2,-0x4
02f1 0b57 | W | Execute_Immediate Case_Compare,0x57
02f2 7007 |p | Jump_Nonzero 0x2fa
02f3 0f41 | A | Execute_Immediate Equal,0x41
02f4 700d |p | Jump_Nonzero 0x302
02f5 0092 0703 | | Action Push_String_Extended,0x703 ; "Illegal limit indicator : & limit);"
02f7 e002 | | Load 0x0,0x2
02f8 1865 | e | Execute Package,Field_Execute,Field_Number 0x65
02f9 4507 |E | Exit_Suprogram New_Top_Offset 0x7
02fa 00d1 | | Pop_Control Pop_Count_1
02fb 00d8 | | Load_Top At_Offset_0
02fc 0092 0704 | | Action Push_String_Extended,0x704 ; "<WORLDS>"
02fe e00a | | Load 0x0,0xa
02ff 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0300 00d1 | | Pop_Control Pop_Count_1
0301 7806 |x | Jump 0x308
0302 00d8 | | Load_Top At_Offset_0
0303 0092 06fe | | Action Push_String_Extended,0x6fe ; "<ALL_WORLDS>"
0305 e00a | | Load 0x0,0xa
0306 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0307 00d1 | | Pop_Control Pop_Count_1
0308 e5ff | | Load 0x2,-0x1
0309 e001 | | Load 0x0,0x1
030a 1810 | | Execute Package,Field_Execute,Field_Number 0x10
030b c404 | | Store 0x2,0x4
030c 00da | | Load_Top At_Offset_2
030d e004 | | Load 0x0,0x4
030e 1810 | | Execute Package,Field_Execute,Field_Number 0x10
030f 012f | / | Execute Any,Equal
0310 7005 |p | Jump_Nonzero 0x316
0311 00da | | Load_Top At_Offset_2
0312 e001 | | Load 0x0,0x1
0313 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0314 a403 | | Store_Unchecked 0x2,0x3
0315 7802 |x | Jump 0x318
0316 4800 |H | Short_Literal 0x0
0317 a403 | | Store_Unchecked 0x2,0x3
0318 00db | | Load_Top At_Offset_3
0319 0f02 | | Execute_Immediate Equal,0x2
031a 7006 |p | Jump_Nonzero 0x321
031b 00d9 | | Load_Top At_Offset_1
031c e5ff | | Load 0x2,-0x1
031d e00a | | Load 0x0,0xa
031e 1810 | | Execute Package,Field_Execute,Field_Number 0x10
031f 00d1 | | Pop_Control Pop_Count_1
0320 7808 |x | Jump 0x329
0321 00d9 | | Load_Top At_Offset_1
0322 e5ff | | Load 0x2,-0x1
0323 0092 0705 | | Action Push_String_Extended,0x705 ; ".?'c(ada)"
0325 01cc | | Execute Vector,Catenate
0326 e00a | | Load 0x0,0xa
0327 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0328 00d1 | | Pop_Control Pop_Count_1
0329 e5fb | | Load 0x2,-0x5
032a 0b57 | W | Execute_Immediate Case_Compare,0x57
032b 7009 |p | Jump_Nonzero 0x335
032c 0f46 | F | Execute_Immediate Equal,0x46
032d 7009 |p | Jump_Nonzero 0x337
032e e5fb | | Load 0x2,-0x5
032f 0092 0706 | | Action Push_String_Extended,0x706 ; "Illegal log destination code: "
0331 01cb | | Execute Vector,Append
0332 e002 | | Load 0x0,0x2
0333 1865 | e | Execute Package,Field_Execute,Field_Number 0x65
0334 4507 |E | Exit_Suprogram New_Top_Offset 0x7
0335 00d1 | | Pop_Control Pop_Count_1
0336 7803 |x | Jump 0x33a
0337 e5fa | | Load 0x2,-0x6
0338 e00b | | Load 0x0,0xb
0339 181a | | Execute Package,Field_Execute,Field_Number 0x1a
033a e5fd | | Load 0x2,-0x3
033b 00d8 | | Load_Top At_Offset_0
033c 4842 |HB | Short_Literal 0x42
033d 4855 |HU | Short_Literal 0x55
033e 0262 | b | Execute Discrete,In_Range
033f 684e |hN | Jump_Zero 0x38e
0340 0abe | | Execute_Immediate Plus,-0x42
0341 4613 |F | Jump_Case 0x14
0342 782f |x/ | Jump 0x372 ; case 0x0
0343 784b |xK | Jump 0x38f ; case 0x1
0344 784a |xJ | Jump 0x38f ; case 0x2
0345 7849 |xI | Jump 0x38f ; case 0x3
0346 7848 |xH | Jump 0x38f ; case 0x4
0347 7847 |xG | Jump 0x38f ; case 0x5
0348 7846 |xF | Jump 0x38f ; case 0x6
0349 7836 |x6 | Jump 0x380 ; case 0x7
034a 7844 |xD | Jump 0x38f ; case 0x8
034b 7843 |xC | Jump 0x38f ; case 0x9
034c 7842 |xB | Jump 0x38f ; case 0xa
034d 7841 |xA | Jump 0x38f ; case 0xb
034e 7840 |x@ | Jump 0x38f ; case 0xc
034f 783f |x? | Jump 0x38f ; case 0xd
0350 783e |x> | Jump 0x38f ; case 0xe
0351 783d |x= | Jump 0x38f ; case 0xf
0352 783c |x< | Jump 0x38f ; case 0x10
0353 7810 |x | Jump 0x364 ; case 0x11
0354 783a |x: | Jump 0x38f ; case 0x12
0355 7800 |x | Jump 0x356 ; case 0x13
0356 0092 06fc | | Action Push_String_Extended,0x6fc ; "<PROFILE>"
0358 4800 |H | Short_Literal 0x0
0359 00da | | Load_Top At_Offset_2
035a e00a | | Load 0x0,0xa
035b 1813 | | Execute Package,Field_Execute,Field_Number 0x13
035c e402 | | Load 0x2,0x2
035d 4800 |H | Short_Literal 0x0
035e e405 | | Load 0x2,0x5
035f e00a | | Load 0x0,0xa
0360 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0361 e008 | | Load 0x0,0x8
0362 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0363 4507 |E | Exit_Suprogram New_Top_Offset 0x7
0364 0092 06fc | | Action Push_String_Extended,0x6fc ; "<PROFILE>"
0366 4800 |H | Short_Literal 0x0
0367 00da | | Load_Top At_Offset_2
0368 e00a | | Load 0x0,0xa
0369 1813 | | Execute Package,Field_Execute,Field_Number 0x13
036a e402 | | Load 0x2,0x2
036b 4801 |H | Short_Literal 0x1
036c e405 | | Load 0x2,0x5
036d e00a | | Load 0x0,0xa
036e 1813 | | Execute Package,Field_Execute,Field_Number 0x13
036f e008 | | Load 0x0,0x8
0370 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0371 4507 |E | Exit_Suprogram New_Top_Offset 0x7
0372 0092 06fc | | Action Push_String_Extended,0x6fc ; "<PROFILE>"
0374 4800 |H | Short_Literal 0x0
0375 00da | | Load_Top At_Offset_2
0376 e00a | | Load 0x0,0xa
0377 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0378 e402 | | Load 0x2,0x2
0379 4802 |H | Short_Literal 0x2
037a e405 | | Load 0x2,0x5
037b e00a | | Load 0x0,0xa
037c 1813 | | Execute Package,Field_Execute,Field_Number 0x13
037d e008 | | Load 0x0,0x8
037e 1819 | | Execute Package,Field_Execute,Field_Number 0x19
037f 4507 |E | Exit_Suprogram New_Top_Offset 0x7
0380 0092 06fc | | Action Push_String_Extended,0x6fc ; "<PROFILE>"
0382 4800 |H | Short_Literal 0x0
0383 00da | | Load_Top At_Offset_2
0384 e00a | | Load 0x0,0xa
0385 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0386 e402 | | Load 0x2,0x2
0387 4804 |H | Short_Literal 0x4
0388 e405 | | Load 0x2,0x5
0389 e00a | | Load 0x0,0xa
038a 1813 | | Execute Package,Field_Execute,Field_Number 0x13
038b e008 | | Load 0x0,0x8
038c 1819 | | Execute Package,Field_Execute,Field_Number 0x19
038d 4507 |E | Exit_Suprogram New_Top_Offset 0x7
038e 00d1 | | Pop_Control Pop_Count_1
038f 0092 0707 | | Action Push_String_Extended,0x707 ; "Illegal Promote scope"
0391 e002 | | Load 0x0,0x2
0392 1865 | e | Execute Package,Field_Execute,Field_Number 0x65
0393 4507 |E | Exit_Suprogram New_Top_Offset 0x7
0394 0000 0000 | | .BLANK 0000[0x4]
0398 ; --------------------------------------------------------------------------------------
0398 ; SUBPROGRAM
0398 ; --------------------------------------------------------------------------------------
0398 039f | | .CONST 0x039f ; Address of begin
0399 0004 | | .CONST 0x0004 ; Address of exception handler
039a 0002 | | .CONST 0x0002 ; Number of locals
039b INIT_0398:
039b 0092 06f1 | | Action Push_String_Extended,0x6f1 ; "<Cursor>"
039d e001 | | Load 0x0,0x1
039e 180f | | Execute Package,Field_Execute,Field_Number 0xf
039f BODY_0398:
039f e003 | | Load 0x0,0x3
03a0 181d | | Execute Package,Field_Execute,Field_Number 0x1d
03a1 4501 |E | Exit_Suprogram New_Top_Offset 0x1
03a2 0000 0000 | | .BLANK 0000[0x6]
03a8 ; --------------------------------------------------------------------------------------
03a8 ; SUBPROGRAM
03a8 ; --------------------------------------------------------------------------------------
03a8 03b0 | | .CONST 0x03b0 ; Address of begin
03a9 0004 | | .CONST 0x0004 ; Address of exception handler
03aa 0005 | | .CONST 0x0005 ; Number of locals
03ab INIT_03a8:
03ab e008 | | Load 0x0,0x8
03ac 1b0f | | Execute Package,Field_Read,Field_Number 0xf
03ad 00e3 | | Load_Encached Natural_Cache
03ae 03e9 | | Declare_Variable Discrete,Duplicate
03af 03e9 | | Declare_Variable Discrete,Duplicate
03b0 BODY_03a8:
03b0 e5fe | | Load 0x2,-0x2
03b1 00d8 | | Load_Top At_Offset_0
03b2 4841 |HA | Short_Literal 0x41
03b3 4853 |HS | Short_Literal 0x53
03b4 0262 | b | Execute Discrete,In_Range
03b5 6812 |h | Jump_Zero 0x3c8
03b6 0b41 | A | Execute_Immediate Case_Compare,0x41
03b7 7005 |p | Jump_Nonzero 0x3bd
03b8 0b49 | I | Execute_Immediate Case_Compare,0x49
03b9 700a |p | Jump_Nonzero 0x3c4
03ba 0f53 | S | Execute_Immediate Equal,0x53
03bb 7005 |p | Jump_Nonzero 0x3c1
03bc 780c |x | Jump 0x3c9
03bd 00d1 | | Pop_Control Pop_Count_1
03be 4800 |H | Short_Literal 0x0
03bf a402 | | Store_Unchecked 0x2,0x2
03c0 780d |x | Jump 0x3ce
03c1 4801 |H | Short_Literal 0x1
03c2 a402 | | Store_Unchecked 0x2,0x2
03c3 780a |x | Jump 0x3ce
03c4 00d1 | | Pop_Control Pop_Count_1
03c5 4802 |H | Short_Literal 0x2
03c6 a402 | | Store_Unchecked 0x2,0x2
03c7 7806 |x | Jump 0x3ce
03c8 00d1 | | Pop_Control Pop_Count_1
03c9 0092 0702 | | Action Push_String_Extended,0x702 ; "Illegal goal state"
03cb e002 | | Load 0x0,0x2
03cc 1865 | e | Execute Package,Field_Execute,Field_Number 0x65
03cd 4504 |E | Exit_Suprogram New_Top_Offset 0x4
03ce e5fd | | Load 0x2,-0x3
03cf 00d8 | | Load_Top At_Offset_0
03d0 4841 |HA | Short_Literal 0x41
03d1 4855 |HU | Short_Literal 0x55
03d2 0262 | b | Execute Discrete,In_Range
03d3 6839 |h9 | Jump_Zero 0x40d
03d4 0b41 | A | Execute_Immediate Case_Compare,0x41
03d5 702c |p, | Jump_Nonzero 0x402
03d6 0b4c | L | Execute_Immediate Case_Compare,0x4c
03d7 701f |p | Jump_Nonzero 0x3f7
03d8 0f55 | U | Execute_Immediate Equal,0x55
03d9 7001 |p | Jump_Nonzero 0x3db
03da 7833 |x3 | Jump 0x40e
03db 00e3 | | Load_Encached Natural_Cache
03dc 00e3 | | Load_Encached Natural_Cache
03dd 00e3 | | Load_Encached Natural_Cache
03de 4800 |H | Short_Literal 0x0
03df e5ff | | Load 0x2,-0x1
03e0 e006 | | Load 0x0,0x6
03e1 1810 | | Execute Package,Field_Execute,Field_Number 0x10
03e2 c403 | | Store 0x2,0x3
03e3 005b | [ | Store_Top Discrete,At_Offset_3
03e4 0059 | Y | Store_Top Discrete,At_Offset_1
03e5 00da | | Load_Top At_Offset_2
03e6 0d02 | | Execute_Immediate Less,0x2
03e7 680a |h | Jump_Zero 0x3f2
03e8 0092 06fc | | Action Push_String_Extended,0x6fc ; "<PROFILE>"
03ea 4800 |H | Short_Literal 0x0
03eb 0092 0704 | | Action Push_String_Extended,0x704 ; "<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 0092 0708 | | Action Push_String_Extended,0x708 ; "The unit has dependents that would need to be demoted."
03f4 e002 | | Load 0x0,0x2
03f5 1865 | e | Execute Package,Field_Execute,Field_Number 0x65
03f6 4504 |E | Exit_Suprogram New_Top_Offset 0x4
03f7 00d1 | | Pop_Control Pop_Count_1
03f8 0092 06fc | | Action Push_String_Extended,0x6fc ; "<PROFILE>"
03fa 4800 |H | Short_Literal 0x0
03fb 0092 0704 | | Action Push_String_Extended,0x704 ; "<WORLDS>"
03fd e402 | | Load 0x2,0x2
03fe e5ff | | Load 0x2,-0x1
03ff e008 | | Load 0x0,0x8
0400 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0401 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0402 00d1 | | Pop_Control Pop_Count_1
0403 0092 06fc | | Action Push_String_Extended,0x6fc ; "<PROFILE>"
0405 4800 |H | Short_Literal 0x0
0406 0092 06fe | | Action Push_String_Extended,0x6fe ; "<ALL_WORLDS>"
0408 e402 | | Load 0x2,0x2
0409 e5ff | | Load 0x2,-0x1
040a e008 | | Load 0x0,0x8
040b 1816 | | Execute Package,Field_Execute,Field_Number 0x16
040c 4504 |E | Exit_Suprogram New_Top_Offset 0x4
040d 00d1 | | Pop_Control Pop_Count_1
040e 0092 0709 | | Action Push_String_Extended,0x709 ; "Illegal Demote scope"
0410 e002 | | Load 0x0,0x2
0411 1865 | e | Execute Package,Field_Execute,Field_Number 0x65
0412 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0413 0000 0000 | | .BLANK 0000[0x5]
0418 ; --------------------------------------------------------------------------------------
0418 ; SUBPROGRAM
0418 ; --------------------------------------------------------------------------------------
0418 041b | | .CONST 0x041b ; Address of begin
0419 0004 | | .CONST 0x0004 ; Address of exception handler
041a 0001 | | .CONST 0x0001 ; Number of locals
041b BODY_0418:
041b INIT_0418:
041b e001 | | Load 0x0,0x1
041c 181c | | Execute Package,Field_Execute,Field_Number 0x1c
041d 4610 |F | Jump_Case 0x11
041e 7810 |x | Jump 0x42f ; case 0x0
041f 7814 |x | Jump 0x434 ; case 0x1
0420 780e |x | Jump 0x42f ; case 0x2
0421 780d |x | Jump 0x42f ; case 0x3
0422 780c |x | Jump 0x42f ; case 0x4
0423 7810 |x | Jump 0x434 ; case 0x5
0424 780a |x | Jump 0x42f ; case 0x6
0425 7809 |x | Jump 0x42f ; case 0x7
0426 7808 |x | Jump 0x42f ; case 0x8
0427 7807 |x | Jump 0x42f ; case 0x9
0428 7806 |x | Jump 0x42f ; case 0xa
0429 7805 |x | Jump 0x42f ; case 0xb
042a 7804 |x | Jump 0x42f ; case 0xc
042b 7803 |x | Jump 0x42f ; case 0xd
042c 7802 |x | Jump 0x42f ; case 0xe
042d 7801 |x | Jump 0x42f ; case 0xf
042e 7800 |x | Jump 0x42f ; case 0x10
042f 0092 070a | | Action Push_String_Extended,0x70a ; "Show usage must be applied to an Ada object or item"
0431 e002 | | Load 0x0,0x2
0432 1865 | e | Execute Package,Field_Execute,Field_Number 0x65
0433 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0434 00ea | | Load_Encached Null_String_Cache
0435 4801 |H | Short_Literal 0x1
0436 0092 06fe | | Action Push_String_Extended,0x6fe ; "<ALL_WORLDS>"
0438 4801 |H | Short_Literal 0x1
0439 4806 |H | Short_Literal 0x6
043a 0092 070b | | Action Push_String_Extended,0x70b ; "<CURSOR>"
043c e00c | | Load 0x0,0xc
043d 180f | | Execute Package,Field_Execute,Field_Number 0xf
043e 4501 |E | Exit_Suprogram New_Top_Offset 0x1
043f 0000 | | .XXX[0x1]
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 4801 |H | Short_Literal 0x1
0444 0092 070c | | Action Push_String_Extended,0x70c ; "<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 0453 | S | .CONST 0x0453 ; Address of begin
0451 0004 | | .CONST 0x0004 ; Address of exception handler
0452 0001 | | .CONST 0x0001 ; Number of locals
0453 BODY_0450:
0453 INIT_0450:
0453 4800 |H | Short_Literal 0x0
0454 0092 070c | | Action Push_String_Extended,0x70c ; "<IMAGE>"
0456 e00d | | Load 0x0,0xd
0457 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0458 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0459 0000 0000 | | .BLANK 0000[0x7]
0460 ; --------------------------------------------------------------------------------------
0460 ; SUBPROGRAM
0460 ; --------------------------------------------------------------------------------------
0460 046f | o | .CONST 0x046f ; Address of begin
0461 0004 | | .CONST 0x0004 ; Address of exception handler
0462 0003 | | .CONST 0x0003 ; Number of locals
0463 INIT_0460:
0463 e004 | | Load 0x0,0x4
0464 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0465 02c7 | | Declare_Variable Any
0466 0092 06f1 | | Action Push_String_Extended,0x6f1 ; "<Cursor>"
0468 e001 | | Load 0x0,0x1
0469 1810 | | Execute Package,Field_Execute,Field_Number 0x10
046a a402 | | Store_Unchecked 0x2,0x2
046b 00d8 | | Load_Top At_Offset_0
046c e004 | | Load 0x0,0x4
046d 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
046e 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
046f BODY_0460:
046f 00ea | | Load_Encached Null_String_Cache
0470 00ea | | Load_Encached Null_String_Cache
0471 00ea | | Load_Encached Null_String_Cache
0472 00ea | | Load_Encached Null_String_Cache
0473 00ea | | Load_Encached Null_String_Cache
0474 00ea | | Load_Encached Null_String_Cache
0475 e403 | | Load 0x2,0x3
0476 0092 070d | | Action Push_String_Extended,0x70d ; "_Exe"
0478 01cc | | Execute Vector,Catenate
0479 e403 | | Load 0x2,0x3
047a 4b8e |K | Short_Literal 0x38e
047b 4838 |H8 | Short_Literal 0x38
047c e007 | | Load 0x0,0x7
047d 1818 | | Execute Package,Field_Execute,Field_Number 0x18
047e 4501 |E | Exit_Suprogram New_Top_Offset 0x1
047f 0000 | | .XXX[0x1]
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 0092 06fc | | Action Push_String_Extended,0x6fc ; "<PROFILE>"
0485 e5fe | | Load 0x2,-0x2
0486 e5ff | | Load 0x2,-0x1
0487 e008 | | Load 0x0,0x8
0488 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0489 4503 |E | Exit_Suprogram New_Top_Offset 0x3
048a 0000 0000 | | .BLANK 0000[0x6]
0490 ; --------------------------------------------------------------------------------------
0490 ; SUBPROGRAM
0490 ; --------------------------------------------------------------------------------------
0490 0493 | | .CONST 0x0493 ; Address of begin
0491 0004 | | .CONST 0x0004 ; Address of exception handler
0492 0001 | | .CONST 0x0001 ; Number of locals
0493 BODY_0490:
0493 INIT_0490:
0493 00ea | | Load_Encached Null_String_Cache
0494 00ea | | Load_Encached Null_String_Cache
0495 00ea | | Load_Encached Null_String_Cache
0496 00ea | | Load_Encached Null_String_Cache
0497 00ea | | Load_Encached Null_String_Cache
0498 00ea | | Load_Encached Null_String_Cache
0499 e001 | | Load 0x0,0x1
049a 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
049b 0092 06f1 | | Action Push_String_Extended,0x6f1 ; "<Cursor>"
049d e001 | | Load 0x0,0x1
049e 180f | | Execute Package,Field_Execute,Field_Number 0xf
049f 4b8f |K | Short_Literal 0x38f
04a0 481f |H | Short_Literal 0x1f
04a1 e007 | | Load 0x0,0x7
04a2 1818 | | Execute Package,Field_Execute,Field_Number 0x18
04a3 4501 |E | Exit_Suprogram New_Top_Offset 0x1
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 0092 06fc | | Action Push_String_Extended,0x6fc ; "<PROFILE>"
04ad 00ea | | Load_Encached Null_String_Cache
04ae 4800 |H | Short_Literal 0x0
04af e5fe | | Load 0x2,-0x2
04b0 e5ff | | Load 0x2,-0x1
04b1 e008 | | Load 0x0,0x8
04b2 1817 | | Execute Package,Field_Execute,Field_Number 0x17
04b3 4503 |E | Exit_Suprogram New_Top_Offset 0x3
04b4 0000 0000 | | .BLANK 0000[0x4]
04b8 ; --------------------------------------------------------------------------------------
04b8 ; SUBPROGRAM
04b8 ; --------------------------------------------------------------------------------------
04b8 04bb | | .CONST 0x04bb ; Address of begin
04b9 0004 | | .CONST 0x0004 ; Address of exception handler
04ba 0001 | | .CONST 0x0001 ; Number of locals
04bb BODY_04b8:
04bb INIT_04b8:
04bb e001 | | Load 0x0,0x1
04bc 181c | | Execute Package,Field_Execute,Field_Number 0x1c
04bd 4610 |F | Jump_Case 0x11
04be 7810 |x | Jump 0x4cf ; case 0x0
04bf 7814 |x | Jump 0x4d4 ; case 0x1
04c0 780e |x | Jump 0x4cf ; case 0x2
04c1 780d |x | Jump 0x4cf ; case 0x3
04c2 780c |x | Jump 0x4cf ; case 0x4
04c3 7810 |x | Jump 0x4d4 ; case 0x5
04c4 780a |x | Jump 0x4cf ; case 0x6
04c5 7809 |x | Jump 0x4cf ; case 0x7
04c6 7808 |x | Jump 0x4cf ; case 0x8
04c7 7807 |x | Jump 0x4cf ; case 0x9
04c8 7806 |x | Jump 0x4cf ; case 0xa
04c9 7805 |x | Jump 0x4cf ; case 0xb
04ca 7804 |x | Jump 0x4cf ; case 0xc
04cb 7803 |x | Jump 0x4cf ; case 0xd
04cc 7802 |x | Jump 0x4cf ; case 0xe
04cd 7801 |x | Jump 0x4cf ; case 0xf
04ce 7800 |x | Jump 0x4cf ; case 0x10
04cf 0092 070e | | Action Push_String_Extended,0x70e ; "Build Private Part can only be applied to Ada units"
04d1 e002 | | Load 0x0,0x2
04d2 1865 | e | Execute Package,Field_Execute,Field_Number 0x65
04d3 4501 |E | Exit_Suprogram New_Top_Offset 0x1
04d4 0092 070c | | Action Push_String_Extended,0x70c ; "<IMAGE>"
04d6 e00d | | Load 0x0,0xd
04d7 181a | | Execute Package,Field_Execute,Field_Number 0x1a
04d8 4501 |E | Exit_Suprogram New_Top_Offset 0x1
04d9 0000 0000 | | .BLANK 0000[0x7]
04e0 ; --------------------------------------------------------------------------------------
04e0 ; SUBPROGRAM
04e0 ; --------------------------------------------------------------------------------------
04e0 04e3 | | .CONST 0x04e3 ; Address of begin
04e1 0004 | | .CONST 0x0004 ; Address of exception handler
04e2 0001 | | .CONST 0x0001 ; Number of locals
04e3 BODY_04e0:
04e3 INIT_04e0:
04e3 e001 | | Load 0x0,0x1
04e4 181c | | Execute Package,Field_Execute,Field_Number 0x1c
04e5 4610 |F | Jump_Case 0x11
04e6 7810 |x | Jump 0x4f7 ; case 0x0
04e7 7814 |x | Jump 0x4fc ; case 0x1
04e8 780e |x | Jump 0x4f7 ; case 0x2
04e9 780d |x | Jump 0x4f7 ; case 0x3
04ea 780c |x | Jump 0x4f7 ; case 0x4
04eb 7810 |x | Jump 0x4fc ; case 0x5
04ec 780a |x | Jump 0x4f7 ; case 0x6
04ed 7809 |x | Jump 0x4f7 ; case 0x7
04ee 7808 |x | Jump 0x4f7 ; case 0x8
04ef 7807 |x | Jump 0x4f7 ; case 0x9
04f0 7806 |x | Jump 0x4f7 ; case 0xa
04f1 7805 |x | Jump 0x4f7 ; case 0xb
04f2 7804 |x | Jump 0x4f7 ; case 0xc
04f3 7803 |x | Jump 0x4f7 ; case 0xd
04f4 7802 |x | Jump 0x4f7 ; case 0xe
04f5 7801 |x | Jump 0x4f7 ; case 0xf
04f6 7800 |x | Jump 0x4f7 ; case 0x10
04f7 0092 070f | | Action Push_String_Extended,0x70f ; "Build Body can only be applied to Ada units"
04f9 e002 | | Load 0x0,0x2
04fa 1865 | e | Execute Package,Field_Execute,Field_Number 0x65
04fb 4501 |E | Exit_Suprogram New_Top_Offset 0x1
04fc 0092 070c | | Action Push_String_Extended,0x70c ; "<IMAGE>"
04fe e00d | | Load 0x0,0xd
04ff 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0500 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0501 0000 0000 | | .BLANK 0000[0x7]
0508 ; --------------------------------------------------------------------------------------
0508 ; SUBPROGRAM
0508 ; --------------------------------------------------------------------------------------
0508 050b | | .CONST 0x050b ; Address of begin
0509 0004 | | .CONST 0x0004 ; Address of exception handler
050a 0001 | | .CONST 0x0001 ; Number of locals
050b BODY_0508:
050b INIT_0508:
050b e001 | | Load 0x0,0x1
050c 181c | | Execute Package,Field_Execute,Field_Number 0x1c
050d 4610 |F | Jump_Case 0x11
050e 7810 |x | Jump 0x51f ; case 0x0
050f 7814 |x | Jump 0x524 ; case 0x1
0510 780e |x | Jump 0x51f ; case 0x2
0511 780d |x | Jump 0x51f ; case 0x3
0512 780c |x | Jump 0x51f ; case 0x4
0513 7810 |x | Jump 0x524 ; case 0x5
0514 780a |x | Jump 0x51f ; case 0x6
0515 7809 |x | Jump 0x51f ; case 0x7
0516 7808 |x | Jump 0x51f ; case 0x8
0517 7807 |x | Jump 0x51f ; case 0x9
0518 7806 |x | Jump 0x51f ; case 0xa
0519 7805 |x | Jump 0x51f ; case 0xb
051a 7804 |x | Jump 0x51f ; case 0xc
051b 7803 |x | Jump 0x51f ; case 0xd
051c 7802 |x | Jump 0x51f ; case 0xe
051d 7801 |x | Jump 0x51f ; case 0xf
051e 7800 |x | Jump 0x51f ; case 0x10
051f 0092 0710 | | Action Push_String_Extended,0x710 ; "Make Separate can only be applied to Ada units"
0521 e002 | | Load 0x0,0x2
0522 1865 | e | Execute Package,Field_Execute,Field_Number 0x65
0523 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0524 e00d | | Load 0x0,0xd
0525 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0526 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0527 0000 | | .XXX[0x1]
0528 ; --------------------------------------------------------------------------------------
0528 ; SUBPROGRAM
0528 ; --------------------------------------------------------------------------------------
0528 052b | + | .CONST 0x052b ; Address of begin
0529 0004 | | .CONST 0x0004 ; Address of exception handler
052a 0001 | | .CONST 0x0001 ; Number of locals
052b BODY_0528:
052b INIT_0528:
052b e001 | | Load 0x0,0x1
052c 181c | | Execute Package,Field_Execute,Field_Number 0x1c
052d 4610 |F | Jump_Case 0x11
052e 7810 |x | Jump 0x53f ; case 0x0
052f 7814 |x | Jump 0x544 ; case 0x1
0530 780e |x | Jump 0x53f ; case 0x2
0531 780d |x | Jump 0x53f ; case 0x3
0532 780c |x | Jump 0x53f ; case 0x4
0533 7810 |x | Jump 0x544 ; case 0x5
0534 780a |x | Jump 0x53f ; case 0x6
0535 7809 |x | Jump 0x53f ; case 0x7
0536 7808 |x | Jump 0x53f ; case 0x8
0537 7807 |x | Jump 0x53f ; case 0x9
0538 7806 |x | Jump 0x53f ; case 0xa
0539 7805 |x | Jump 0x53f ; case 0xb
053a 7804 |x | Jump 0x53f ; case 0xc
053b 7803 |x | Jump 0x53f ; case 0xd
053c 7802 |x | Jump 0x53f ; case 0xe
053d 7801 |x | Jump 0x53f ; case 0xf
053e 7800 |x | Jump 0x53f ; case 0x10
053f 0092 0711 | | Action Push_String_Extended,0x711 ; "Make Inline can only be applied to 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 e00d | | Load 0x0,0xd
0545 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0546 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0547 0000 | | .XXX[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 0712 | | Action Push_String_Extended,0x712 ; "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 e003 | | Load 0x0,0x3
0555 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
0556 180d | | Execute Package,Field_Execute,Field_Number 0xd
0557 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0558 ; --------------------------------------------------------------------------------------
0558 ; SUBPROGRAM
0558 ; --------------------------------------------------------------------------------------
0558 055b | [ | .CONST 0x055b ; Address of begin
0559 0004 | | .CONST 0x0004 ; Address of exception handler
055a 0001 | | .CONST 0x0001 ; Number of locals
055b BODY_0558:
055b INIT_0558:
055b e001 | | Load 0x0,0x1
055c 181c | | Execute Package,Field_Execute,Field_Number 0x1c
055d 0f01 | | Execute_Immediate Equal,0x1
055e 7005 |p | Jump_Nonzero 0x564
055f 0092 0712 | | Action Push_String_Extended,0x712 ; "Incremental editing can only be performed in Ada units"
0561 e002 | | Load 0x0,0x2
0562 1865 | e | Execute Package,Field_Execute,Field_Number 0x65
0563 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0564 4801 |H | Short_Literal 0x1
0565 4800 |H | Short_Literal 0x0
0566 0092 070c | | Action Push_String_Extended,0x70c ; "<IMAGE>"
0568 e003 | | Load 0x0,0x3
0569 1813 | | Execute Package,Field_Execute,Field_Number 0x13
056a 4501 |E | Exit_Suprogram New_Top_Offset 0x1
056b 0000 0000 | | .BLANK 0000[0x5]
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 0712 | | Action Push_String_Extended,0x712 ; "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 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
057e 180f | | Execute Package,Field_Execute,Field_Number 0xf
057f 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0580 ; --------------------------------------------------------------------------------------
0580 ; SUBPROGRAM
0580 ; --------------------------------------------------------------------------------------
0580 0583 | | .CONST 0x0583 ; Address of begin
0581 0004 | | .CONST 0x0004 ; Address of exception handler
0582 0001 | | .CONST 0x0001 ; Number of locals
0583 BODY_0580:
0583 INIT_0580:
0583 e001 | | Load 0x0,0x1
0584 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0585 0f01 | | Execute_Immediate Equal,0x1
0586 7005 |p | Jump_Nonzero 0x58c
0587 0092 0712 | | Action Push_String_Extended,0x712 ; "Incremental editing can only be performed in Ada units"
0589 e002 | | Load 0x0,0x2
058a 1865 | e | Execute Package,Field_Execute,Field_Number 0x65
058b 4501 |E | Exit_Suprogram New_Top_Offset 0x1
058c e003 | | Load 0x0,0x3
058d 181e | | Execute Package,Field_Execute,Field_Number 0x1e
058e 4501 |E | Exit_Suprogram New_Top_Offset 0x1
058f 0000 | | .XXX[0x1]
0590 ; --------------------------------------------------------------------------------------
0590 ; SUBPROGRAM
0590 ; --------------------------------------------------------------------------------------
0590 05b5 | | .CONST 0x05b5 ; Address of begin
0591 0004 | | .CONST 0x0004 ; Address of exception handler
0592 0005 | | .CONST 0x0005 ; Number of locals
0593 INIT_0590:
0593 0092 06f1 | | Action Push_String_Extended,0x6f1 ; "<Cursor>"
0595 e001 | | Load 0x0,0x1
0596 180f | | Execute Package,Field_Execute,Field_Number 0xf
0597 4801 |H | Short_Literal 0x1
0598 4801 |H | Short_Literal 0x1
0599 00e9 | | Load_Encached String_Cache
059a 035b | [ | Declare_Type Array,Constrained
059b 0337 | 7 | Declare_Variable Array
059c 00d8 | | Load_Top At_Offset_0
059d 0335 | 5 | Declare_Variable Array,Duplicate
059e 00cd | | Action Spare6_Action
059f 4843 |HC | Short_Literal 0x43
05a0 4801 |H | Short_Literal 0x1
05a1 00da | | Load_Top At_Offset_2
05a2 01d6 | | Execute Vector,Field_Write
05a3 00d9 | | Load_Top At_Offset_1
05a4 01d4 | | Execute Vector,Structure_Write
05a5 4801 |H | Short_Literal 0x1
05a6 4801 |H | Short_Literal 0x1
05a7 00e9 | | Load_Encached String_Cache
05a8 035b | [ | Declare_Type Array,Constrained
05a9 0337 | 7 | Declare_Variable Array
05aa 00d8 | | Load_Top At_Offset_0
05ab 0335 | 5 | Declare_Variable Array,Duplicate
05ac 00cd | | Action Spare6_Action
05ad 4846 |HF | Short_Literal 0x46
05ae 4801 |H | Short_Literal 0x1
05af 00da | | Load_Top At_Offset_2
05b0 01d6 | | Execute Vector,Field_Write
05b1 00d9 | | Load_Top At_Offset_1
05b2 01d4 | | Execute Vector,Structure_Write
05b3 029f 06d3 | | Declare_Subprogram INIT_06d0,For_Call
05b5 BODY_0590:
05b5 e5ff | | Load 0x2,-0x1
05b6 01dd | | Execute Vector,First
05b7 e5ff | | Load 0x2,-0x1
05b8 01d7 | | Execute Vector,Field_Read
05b9 4801 |H | Short_Literal 0x1
05ba e403 | | Load 0x2,0x3
05bb 01d6 | | Execute Vector,Field_Write
05bc e5ff | | Load 0x2,-0x1
05bd 01dd | | Execute Vector,First
05be 0a01 | | Execute_Immediate Plus,0x1
05bf e5ff | | Load 0x2,-0x1
05c0 01d7 | | Execute Vector,Field_Read
05c1 4801 |H | Short_Literal 0x1
05c2 00db | | Load_Top At_Offset_3
05c3 01d6 | | Execute Vector,Field_Write
05c4 e001 | | Load 0x0,0x1
05c5 181c | | Execute Package,Field_Execute,Field_Number 0x1c
05c6 4610 |F | Jump_Case 0x11
05c7 7811 |x | Jump 0x5d9 ; case 0x0
05c8 780f |x | Jump 0x5d8 ; case 0x1
05c9 780f |x | Jump 0x5d9 ; case 0x2
05ca 780e |x | Jump 0x5d9 ; case 0x3
05cb 780d |x | Jump 0x5d9 ; case 0x4
05cc 780b |x | Jump 0x5d8 ; case 0x5
05cd 780b |x | Jump 0x5d9 ; case 0x6
05ce 780a |x | Jump 0x5d9 ; case 0x7
05cf 7809 |x | Jump 0x5d9 ; case 0x8
05d0 7808 |x | Jump 0x5d9 ; case 0x9
05d1 7807 |x | Jump 0x5d9 ; case 0xa
05d2 7806 |x | Jump 0x5d9 ; case 0xb
05d3 7805 |x | Jump 0x5d9 ; case 0xc
05d4 7804 |x | Jump 0x5d9 ; case 0xd
05d5 7803 |x | Jump 0x5d9 ; case 0xe
05d6 7802 |x | Jump 0x5d9 ; case 0xf
05d7 7801 |x | Jump 0x5d9 ; case 0x10
05d8 8405 | | Call 0x2,0x5
05d9 00ea | | Load_Encached Null_String_Cache
05da 00ea | | Load_Encached Null_String_Cache
05db 00ea | | Load_Encached Null_String_Cache
05dc 00ea | | Load_Encached Null_String_Cache
05dd e404 | | Load 0x2,0x4
05de 0092 0713 | | Action Push_String_Extended,0x713 ; "!Users."
05e0 e00e | | Load 0x0,0xe
05e1 1819 | | Execute Package,Field_Execute,Field_Number 0x19
05e2 e00e | | Load 0x0,0xe
05e3 181c | | Execute Package,Field_Execute,Field_Number 0x1c
05e4 e00f | | Load 0x0,0xf
05e5 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
05e6 01cc | | Execute Vector,Catenate
05e7 0092 0714 | | Action Push_String_Extended,0x714 ; ".Compile_Log"
05e9 01cc | | Execute Vector,Catenate
05ea e403 | | Load 0x2,0x3
05eb e402 | | Load 0x2,0x2
05ec 4b8a |K | Short_Literal 0x38a
05ed 481c |H | Short_Literal 0x1c
05ee e007 | | Load 0x0,0x7
05ef 1818 | | Execute Package,Field_Execute,Field_Number 0x18
05f0 4502 |E | Exit_Suprogram New_Top_Offset 0x2
05f1 0000 0000 | | .BLANK 0000[0x7]
05f8 ; --------------------------------------------------------------------------------------
05f8 ; SUBPROGRAM
05f8 ; --------------------------------------------------------------------------------------
05f8 061b | | .CONST 0x061b ; Address of begin
05f9 0004 | | .CONST 0x0004 ; Address of exception handler
05fa 0004 | | .CONST 0x0004 ; Number of locals
05fb INIT_05f8:
05fb 0092 06f1 | | Action Push_String_Extended,0x6f1 ; "<Cursor>"
05fd e001 | | Load 0x0,0x1
05fe 180f | | Execute Package,Field_Execute,Field_Number 0xf
05ff 4801 |H | Short_Literal 0x1
0600 4801 |H | Short_Literal 0x1
0601 00e9 | | Load_Encached String_Cache
0602 035b | [ | Declare_Type Array,Constrained
0603 0337 | 7 | Declare_Variable Array
0604 00d8 | | Load_Top At_Offset_0
0605 0335 | 5 | Declare_Variable Array,Duplicate
0606 00cd | | Action Spare6_Action
0607 4843 |HC | Short_Literal 0x43
0608 4801 |H | Short_Literal 0x1
0609 00da | | Load_Top At_Offset_2
060a 01d6 | | Execute Vector,Field_Write
060b 00d9 | | Load_Top At_Offset_1
060c 01d4 | | Execute Vector,Structure_Write
060d 4801 |H | Short_Literal 0x1
060e 4801 |H | Short_Literal 0x1
060f 00e9 | | Load_Encached String_Cache
0610 035b | [ | Declare_Type Array,Constrained
0611 0337 | 7 | Declare_Variable Array
0612 00d8 | | Load_Top At_Offset_0
0613 0335 | 5 | Declare_Variable Array,Duplicate
0614 00cd | | Action Spare6_Action
0615 4846 |HF | Short_Literal 0x46
0616 4801 |H | Short_Literal 0x1
0617 00da | | Load_Top At_Offset_2
0618 01d6 | | Execute Vector,Field_Write
0619 00d9 | | Load_Top At_Offset_1
061a 01d4 | | Execute Vector,Structure_Write
061b BODY_05f8:
061b e5ff | | Load 0x2,-0x1
061c 01dd | | Execute Vector,First
061d e5ff | | Load 0x2,-0x1
061e 01d7 | | Execute Vector,Field_Read
061f 4801 |H | Short_Literal 0x1
0620 00db | | Load_Top At_Offset_3
0621 01d6 | | Execute Vector,Field_Write
0622 e5ff | | Load 0x2,-0x1
0623 01dd | | Execute Vector,First
0624 0a01 | | Execute_Immediate Plus,0x1
0625 e5ff | | Load 0x2,-0x1
0626 01d7 | | Execute Vector,Field_Read
0627 4801 |H | Short_Literal 0x1
0628 00da | | Load_Top At_Offset_2
0629 01d6 | | Execute Vector,Field_Write
062a 00ea | | Load_Encached Null_String_Cache
062b 00ea | | Load_Encached Null_String_Cache
062c 00ea | | Load_Encached Null_String_Cache
062d 00ea | | Load_Encached Null_String_Cache
062e 00ea | | Load_Encached Null_String_Cache
062f e404 | | Load 0x2,0x4
0630 e403 | | Load 0x2,0x3
0631 e402 | | Load 0x2,0x2
0632 4b8b |K | Short_Literal 0x38b
0633 481b |H | Short_Literal 0x1b
0634 e007 | | Load 0x0,0x7
0635 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0636 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0637 0000 | | .XXX[0x1]
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 00da | | Load_Top At_Offset_2
063c e002 | | Load 0x0,0x2
063d 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
063e e002 | | Load 0x0,0x2
063f 1863 | c | Execute Package,Field_Execute,Field_Number 0x63
0640 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0641 0000 0000 | | .BLANK 0000[0x7]
0648 ; --------------------------------------------------------------------------------------
0648 ; SUBPROGRAM
0648 ; --------------------------------------------------------------------------------------
0648 064b | K | .CONST 0x064b ; Address of begin
0649 0004 | | .CONST 0x0004 ; Address of exception handler
064a 0001 | | .CONST 0x0001 ; Number of locals
064b BODY_0648:
064b INIT_0648:
064b 4820 |H | Short_Literal 0x20
064c 4800 |H | Short_Literal 0x0
064d 480a |H | Short_Literal 0xa
064e e5ff | | Load 0x2,-0x1
064f e00f | | Load 0x0,0xf
0650 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0651 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0652 0000 0000 | | .BLANK 0000[0x6]
0658 ; --------------------------------------------------------------------------------------
0658 ; SUBPROGRAM
0658 ; --------------------------------------------------------------------------------------
0658 0677 | w | .CONST 0x0677 ; Address of begin
0659 0004 | | .CONST 0x0004 ; Address of exception handler
065a 0005 | | .CONST 0x0005 ; Number of locals
065b INIT_0658:
065b e004 | | Load 0x0,0x4
065c 1b0f | | Execute Package,Field_Read,Field_Number 0xf
065d 02c7 | | Declare_Variable Any
065e 0092 06f1 | | Action Push_String_Extended,0x6f1 ; "<Cursor>"
0660 e001 | | Load 0x0,0x1
0661 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0662 a602 | | Store_Unchecked 0x3,0x2
0663 00d8 | | Load_Top At_Offset_0
0664 e004 | | Load 0x0,0x4
0665 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0666 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
0667 e004 | | Load 0x0,0x4
0668 1b3f | ? | Execute Package,Field_Read,Field_Number 0x3f
0669 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
066a 02c7 | | Declare_Variable Any
066b 00da | | Load_Top At_Offset_2
066c e001 | | Load 0x0,0x1
066d 1812 | | Execute Package,Field_Execute,Field_Number 0x12
066e a604 | | Store_Unchecked 0x3,0x4
066f 00d8 | | Load_Top At_Offset_0
0670 e004 | | Load 0x0,0x4
0671 1b3f | ? | Execute Package,Field_Read,Field_Number 0x3f
0672 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0673 e004 | | Load 0x0,0x4
0674 1b3a | : | Execute Package,Field_Read,Field_Number 0x3a
0675 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0676 03f1 | | Declare_Variable Discrete,With_Value
0677 BODY_0658:
0677 00d8 | | Load_Top At_Offset_0
0678 680b |h | Jump_Zero 0x684
0679 0092 0715 | | Action Push_String_Extended,0x715 ; "~:::,<PROFILE>,~:::"
067b 4800 |H | Short_Literal 0x0
067c e008 | | Load 0x0,0x8
067d 1b15 | | Execute Package,Field_Read,Field_Number 0x15
067e 4803 |H | Short_Literal 0x3
067f 4801 |H | Short_Literal 0x1
0680 e603 | | Load 0x3,0x3
0681 e008 | | Load 0x0,0x8
0682 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0683 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0684 0092 06fd | | Action Push_String_Extended,0x6fd ; "Not an ada object"
0686 8231 | 1 | Call 0x1,0x31
0687 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0688 ; --------------------------------------------------------------------------------------
0688 ; SUBPROGRAM
0688 ; --------------------------------------------------------------------------------------
0688 06a7 | | .CONST 0x06a7 ; Address of begin
0689 0004 | | .CONST 0x0004 ; Address of exception handler
068a 0005 | | .CONST 0x0005 ; Number of locals
068b INIT_0688:
068b e004 | | Load 0x0,0x4
068c 1b0f | | Execute Package,Field_Read,Field_Number 0xf
068d 02c7 | | Declare_Variable Any
068e 0092 06f1 | | Action Push_String_Extended,0x6f1 ; "<Cursor>"
0690 e001 | | Load 0x0,0x1
0691 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0692 a602 | | Store_Unchecked 0x3,0x2
0693 00d8 | | Load_Top At_Offset_0
0694 e004 | | Load 0x0,0x4
0695 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0696 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
0697 e004 | | Load 0x0,0x4
0698 1b3f | ? | Execute Package,Field_Read,Field_Number 0x3f
0699 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
069a 02c7 | | Declare_Variable Any
069b 00da | | Load_Top At_Offset_2
069c e001 | | Load 0x0,0x1
069d 1812 | | Execute Package,Field_Execute,Field_Number 0x12
069e a604 | | Store_Unchecked 0x3,0x4
069f 00d8 | | Load_Top At_Offset_0
06a0 e004 | | Load 0x0,0x4
06a1 1b3f | ? | Execute Package,Field_Read,Field_Number 0x3f
06a2 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
06a3 e004 | | Load 0x0,0x4
06a4 1b3a | : | Execute Package,Field_Read,Field_Number 0x3a
06a5 1b0d | | Execute Package,Field_Read,Field_Number 0xd
06a6 03f1 | | Declare_Variable Discrete,With_Value
06a7 BODY_0688:
06a7 00d8 | | Load_Top At_Offset_0
06a8 4604 |F | Jump_Case 0x5
06a9 7820 |x | Jump 0x6ca ; case 0x0
06aa 7814 |x | Jump 0x6bf ; case 0x1
06ab 7813 |x | Jump 0x6bf ; case 0x2
06ac 780b |x | Jump 0x6b8 ; case 0x3
06ad 7800 |x | Jump 0x6ae ; case 0x4
06ae 0092 06fc | | Action Push_String_Extended,0x6fc ; "<PROFILE>"
06b0 4800 |H | Short_Literal 0x0
06b1 e008 | | Load 0x0,0x8
06b2 1b15 | | Execute Package,Field_Read,Field_Number 0x15
06b3 4802 |H | Short_Literal 0x2
06b4 e603 | | Load 0x3,0x3
06b5 e008 | | Load 0x0,0x8
06b6 1816 | | Execute Package,Field_Execute,Field_Number 0x16
06b7 4501 |E | Exit_Suprogram New_Top_Offset 0x1
06b8 00da | | Load_Top At_Offset_2
06b9 0092 0716 | | Action Push_String_Extended,0x716 ; " is already in the Installed state"
06bb 01cc | | Execute Vector,Catenate
06bc e002 | | Load 0x0,0x2
06bd 1865 | e | Execute Package,Field_Execute,Field_Number 0x65
06be 4501 |E | Exit_Suprogram New_Top_Offset 0x1
06bf 0092 0715 | | Action Push_String_Extended,0x715 ; "~:::,<PROFILE>,~:::"
06c1 4800 |H | Short_Literal 0x0
06c2 e008 | | Load 0x0,0x8
06c3 1b15 | | Execute Package,Field_Read,Field_Number 0x15
06c4 4802 |H | Short_Literal 0x2
06c5 4801 |H | Short_Literal 0x1
06c6 e603 | | Load 0x3,0x3
06c7 e008 | | Load 0x0,0x8
06c8 1819 | | Execute Package,Field_Execute,Field_Number 0x19
06c9 4501 |E | Exit_Suprogram New_Top_Offset 0x1
06ca 0092 06fd | | Action Push_String_Extended,0x6fd ; "Not an ada object"
06cc 8231 | 1 | Call 0x1,0x31
06cd 4501 |E | Exit_Suprogram New_Top_Offset 0x1
06ce 0000 0000 | | .XXX[0x2]
06d0 ; --------------------------------------------------------------------------------------
06d0 ; SUBPROGRAM
06d0 ; --------------------------------------------------------------------------------------
06d0 06d5 | | .CONST 0x06d5 ; Address of begin
06d1 0004 | | .CONST 0x0004 ; Address of exception handler
06d2 0002 | | .CONST 0x0002 ; Number of locals
06d3 INIT_06d0:
06d3 e001 | | Load 0x0,0x1
06d4 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
06d5 BODY_06d0:
06d5 4801 |H | Short_Literal 0x1
06d6 00d9 | | Load_Top At_Offset_1
06d7 0092 0717 | | Action Push_String_Extended,0x717 ; "._ADA"
06d9 e00f | | Load 0x0,0xf
06da 181d | | Execute Package,Field_Execute,Field_Number 0x1d
06db 700f |p | Jump_Nonzero 0x6eb
06dc 00d8 | | Load_Top At_Offset_0
06dd 01db | | Execute Vector,Length
06de 6810 |h | Jump_Zero 0x6ef
06df 00d8 | | Load_Top At_Offset_0
06e0 01dd | | Execute Vector,First
06e1 00d9 | | Load_Top At_Offset_1
06e2 01d7 | | Execute Vector,Field_Read
06e3 0f5b | [ | Execute_Immediate Equal,0x5b
06e4 680a |h | Jump_Zero 0x6ef
06e5 00d8 | | Load_Top At_Offset_0
06e6 01dc | | Execute Vector,Last
06e7 00d9 | | Load_Top At_Offset_1
06e8 01d7 | | Execute Vector,Field_Read
06e9 0f5d | ] | Execute_Immediate Equal,0x5d
06ea 6804 |h | Jump_Zero 0x6ef
06eb e003 | | Load 0x0,0x3
06ec 181e | | Execute Package,Field_Execute,Field_Number 0x1e
06ed 00cc | | Action Pop_Block
06ee 4502 |E | Exit_Suprogram New_Top_Offset 0x2
06ef 4501 |E | Exit_Suprogram New_Top_Offset 0x1
06f0 ; --------------------------------------------------------------------------------------
06f0 ; STRING TABLE
06f0 ; --------------------------------------------------------------------------------------
06f0 0052 | R | .STRTAB 0x0052->0x0719 ; "Semanticize can only be applied in an Ada window."
06f1 0081 | | .STRTAB 0x0081->0x0731 ; "<Cursor>"
06f2 0087 | | .STRTAB 0x0087->0x0735 ; "No item selected"
06f3 0095 | | .STRTAB 0x0095->0x073d ; "Demoting "
06f4 009c | | .STRTAB 0x009c->0x0742 ; "\x5c"
06f5 009b | | .STRTAB 0x009b->0x0742 ; " will demote "
06f6 00a7 | | .STRTAB 0x00a7->0x0749 ; " units\x5c"
06f7 00ac | | .STRTAB 0x00ac->0x074d ; " in "
06f8 00af | | .STRTAB 0x00af->0x074f ; " subsystems\x5c"
06f9 00b9 | | .STRTAB 0x00b9->0x0755 ; " demoting a total of "
06fa 00cc | | .STRTAB 0x00cc->0x0760 ; " lines.\x5c\x5c Ok?"
06fb 00da | | .STRTAB 0x00da->0x0768 ; "Source, Confirm"
06fc 00e7 | | .STRTAB 0x00e7->0x076f ; "<PROFILE>"
06fd 00ee | | .STRTAB 0x00ee->0x0774 ; "Not an ada object"
06fe 00fd | | .STRTAB 0x00fd->0x077c ; "<ALL_WORLDS>"
06ff 0107 | | .STRTAB 0x0107->0x0782 ; "Archive, Confirm"
0700 0115 | | .STRTAB 0x0115->0x078a ; "Unit is already in the archived state."
0701 0139 | 9 | .STRTAB 0x0139->0x079d ; "<SWITCH>"
0702 013f | ? | .STRTAB 0x013f->0x07a1 ; "Illegal goal state"
0703 014f | O | .STRTAB 0x014f->0x07aa ; "Illegal limit indicator : & limit);"
0704 0170 | p | .STRTAB 0x0170->0x07bc ; "<WORLDS>"
0705 0176 | v | .STRTAB 0x0176->0x07c0 ; ".?'c(ada)"
0706 017d | } | .STRTAB 0x017d->0x07c4 ; "Illegal log destination code: "
0707 0199 | | .STRTAB 0x0199->0x07d3 ; "Illegal Promote scope"
0708 01ac | | .STRTAB 0x01ac->0x07de ; "The unit has dependents that would need to be demoted."
0709 01e0 | | .STRTAB 0x01e0->0x07f9 ; "Illegal Demote scope"
070a 01f2 | | .STRTAB 0x01f2->0x0803 ; "Show usage must be applied to an Ada object or item"
070b 0223 | # | .STRTAB 0x0223->0x081c ; "<CURSOR>"
070c 0229 | ) | .STRTAB 0x0229->0x0820 ; "<IMAGE>"
070d 022e | . | .STRTAB 0x022e->0x0824 ; "_Exe"
070e 0230 | 0 | .STRTAB 0x0230->0x0826 ; "Build Private Part can only be applied to Ada units"
070f 0261 | a | .STRTAB 0x0261->0x083f ; "Build Body can only be applied to Ada units"
0710 028a | | .STRTAB 0x028a->0x0855 ; "Make Separate can only be applied to Ada units"
0711 02b6 | | .STRTAB 0x02b6->0x086c ; "Make Inline can only be applied to Ada units"
0712 02e0 | | .STRTAB 0x02e0->0x0882 ; "Incremental editing can only be performed in Ada units"
0713 0314 | | .STRTAB 0x0314->0x089d ; "!Users."
0714 0319 | | .STRTAB 0x0319->0x08a0 ; ".Compile_Log"
0715 0323 | # | .STRTAB 0x0323->0x08a6 ; "~:::,<PROFILE>,~:::"
0716 0334 | 4 | .STRTAB 0x0334->0x08b0 ; " is already in the Installed state"
0717 0354 | T | .STRTAB 0x0354->0x08c1 ; "._ADA"
0718 0357 | W | .STREND 0x0357->0x08c3
0719 5365 6d61 |Sema| .STRTAB_STRINGS
08c4 0000 0000 | | .BLANK 0000[0x4]
08c8 ; --------------------------------------------------------------------------------------
08c8 ; Debug Table
08c8 ; --------------------------------------------------------------------------------------
08c8 0004 0012 | | .DEBUG4 0x0004,0x0012,0x14fa,0x0000,0x0001,0x0000
08ce 0011 0000 | | .XXX[0x6]
08d0 0000 0800 | |
08d2 0000 5000 | P |
08d4 0000 0000 | | .BLANK 0000[0x2d]
0901 0020 0500 | | .XXX[0xc]
0903 0000 0000 | |
0905 0000 4000 | @ |
0907 0002 2000 | |
0909 0000 0100 | |
090b 0000 0a00 | |
090d 0000 0000 | | .BLANK 0000[0x2d]
093a 0004 00a0 | | .XXX[0xc]
093c 0000 0000 | |
093e 0000 0800 | |
0940 0000 4400 | D |
0942 0000 0020 | |
0944 0000 0140 | @|
0946 0000 0000 | | .BLANK 0000[0x2e]
0974 8014 0000 | | .XXX[0xb]
0976 0000 0000 | |
0978 0100 0000 | |
097a 0880 0000 | |
097c 0004 0000 | |
097e 0028 | ( |
097f 0000 0000 | | .BLANK 0000[0x2e]
09ad 1002 8000 | | .XXX[0xb]
09af 0000 0000 | |
09b1 0020 0000 | |
09b3 0110 0000 | |
09b5 0000 8000 | |
09b7 0005 | |
09b8 0000 0000 | | .BLANK 0000[0x48]