|
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: 8192 (0x2000) Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_779ce4
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000 └─ ⟦cfc2e13cd⟧ »Space Info Vol 2« └─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code 0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 0f80 | | .CONST 0x0f80 ; 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 800a | | .CONST 0x800a ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 00ea | | .CONST 0x00ea ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0043 | C | .CONST 0x0043 ; Number of locals 000b INIT_0008: 000b 029a 00f3 | | Declare_Subprogram INIT_00f0,For_Outer_Call,Visible,Unelaborated 000d 4800 |H | Short_Literal 0x0 000e 4812 |H | Short_Literal 0x12 000f 029f 010b | | Declare_Subprogram INIT_0108,For_Call 0011 03fe | | Declare_Type Discrete,Defined,Visible 0012 029a 0133 | 3| Declare_Subprogram INIT_0130,For_Outer_Call,Visible,Unelaborated 0014 029a 01a3 | | Declare_Subprogram INIT_01a0,For_Outer_Call,Visible,Unelaborated 0016 029a 026b | k| Declare_Subprogram INIT_0268,For_Outer_Call,Visible,Unelaborated 0018 029a 0283 | | Declare_Subprogram INIT_0280,For_Outer_Call,Visible,Unelaborated 001a 029a 02ab | | Declare_Subprogram INIT_02a8,For_Outer_Call,Visible,Unelaborated 001c 029a 02cb | | Declare_Subprogram INIT_02c8,For_Outer_Call,Visible,Unelaborated 001e 029a 02eb | | Declare_Subprogram INIT_02e8,For_Outer_Call,Visible,Unelaborated 0020 029a 0303 | | Declare_Subprogram INIT_0300,For_Outer_Call,Visible,Unelaborated 0022 029a 031b | | Declare_Subprogram INIT_0318,For_Outer_Call,Visible,Unelaborated 0024 029a 0363 | c| Declare_Subprogram INIT_0360,For_Outer_Call,Visible,Unelaborated 0026 029a 0373 | s| Declare_Subprogram INIT_0370,For_Outer_Call,Visible,Unelaborated 0028 4800 |H | Short_Literal 0x0 0029 4804 |H | Short_Literal 0x4 002a 029f 0383 | | Declare_Subprogram INIT_0380,For_Call 002c 03fe | | Declare_Type Discrete,Defined,Visible 002d 029a 03ab | | Declare_Subprogram INIT_03a8,For_Outer_Call,Visible,Unelaborated 002f 029a 03e3 | | Declare_Subprogram INIT_03e0,For_Outer_Call,Visible,Unelaborated 0031 029a 0403 | | Declare_Subprogram INIT_0400,For_Outer_Call,Visible,Unelaborated 0033 029a 041b | | Declare_Subprogram INIT_0418,For_Outer_Call,Visible,Unelaborated 0035 029a 043b | ;| Declare_Subprogram INIT_0438,For_Outer_Call,Visible,Unelaborated 0037 029a 0453 | S| Declare_Subprogram INIT_0450,For_Outer_Call,Visible,Unelaborated 0039 029a 046b | k| Declare_Subprogram INIT_0468,For_Outer_Call,Visible,Unelaborated 003b 4800 |H | Short_Literal 0x0 003c 4828 |H( | Short_Literal 0x28 003d 029f 048b | | Declare_Subprogram INIT_0488,For_Call 003f 03fe | | Declare_Type Discrete,Defined,Visible 0040 029a 04b3 | | Declare_Subprogram INIT_04b0,For_Outer_Call,Visible,Unelaborated 0042 029a 04cb | | Declare_Subprogram INIT_04c8,For_Outer_Call,Visible,Unelaborated 0044 029a 04d3 | | Declare_Subprogram INIT_04d0,For_Outer_Call,Visible,Unelaborated 0046 029a 04f3 | | Declare_Subprogram INIT_04f0,For_Outer_Call,Visible,Unelaborated 0048 029a 0513 | | Declare_Subprogram INIT_0510,For_Outer_Call,Visible,Unelaborated 004a 029a 053b | ;| Declare_Subprogram INIT_0538,For_Outer_Call,Visible,Unelaborated 004c 029a 057b | {| Declare_Subprogram INIT_0578,For_Outer_Call,Visible,Unelaborated 004e 029a 05bb | | Declare_Subprogram INIT_05b8,For_Outer_Call,Visible,Unelaborated 0050 029a 05db | | Declare_Subprogram INIT_05d8,For_Outer_Call,Visible,Unelaborated 0052 029a 05fb | | Declare_Subprogram INIT_05f8,For_Outer_Call,Visible,Unelaborated 0054 029a 0613 | | Declare_Subprogram INIT_0610,For_Outer_Call,Visible,Unelaborated 0056 029a 0623 | #| Declare_Subprogram INIT_0620,For_Outer_Call,Visible,Unelaborated 0058 029a 0643 | C| Declare_Subprogram INIT_0640,For_Outer_Call,Visible,Unelaborated 005a 029a 065b | [| Declare_Subprogram INIT_0658,For_Outer_Call,Visible,Unelaborated 005c 4800 |H | Short_Literal 0x0 005d 4801 |H | Short_Literal 0x1 005e 029f 0673 | s| Declare_Subprogram INIT_0670,For_Call 0060 03fe | | Declare_Type Discrete,Defined,Visible 0061 029a 069b | | Declare_Subprogram INIT_0698,For_Outer_Call,Visible,Unelaborated 0063 029a 06b3 | | Declare_Subprogram INIT_06b0,For_Outer_Call,Visible,Unelaborated 0065 029a 06d3 | | Declare_Subprogram INIT_06d0,For_Outer_Call,Visible,Unelaborated 0067 4800 |H | Short_Literal 0x0 0068 4802 |H | Short_Literal 0x2 0069 029f 06f3 | | Declare_Subprogram INIT_06f0,For_Call 006b 03fe | | Declare_Type Discrete,Defined,Visible 006c 029a 071b | | Declare_Subprogram INIT_0718,For_Outer_Call,Visible,Unelaborated 006e 029a 073b | ;| Declare_Subprogram INIT_0738,For_Outer_Call,Visible,Unelaborated 0070 4800 |H | Short_Literal 0x0 0071 4806 |H | Short_Literal 0x6 0072 029f 0753 | S| Declare_Subprogram INIT_0750,For_Call 0074 03fe | | Declare_Type Discrete,Defined,Visible 0075 029a 077b | {| Declare_Subprogram INIT_0778,For_Outer_Call,Visible,Unelaborated 0077 029a 07cb | | Declare_Subprogram INIT_07c8,For_Outer_Call,Visible,Unelaborated 0079 029a 07eb | | Declare_Subprogram INIT_07e8,For_Outer_Call,Visible,Unelaborated 007b 029a 080b | | Declare_Subprogram INIT_0808,For_Outer_Call,Visible,Unelaborated 007d 029a 082b | +| Declare_Subprogram INIT_0828,For_Outer_Call,Visible,Unelaborated 007f 029a 084b | K| Declare_Subprogram INIT_0848,For_Outer_Call,Visible,Unelaborated 0081 029a 085b | [| Declare_Subprogram INIT_0858,For_Outer_Call,Visible,Unelaborated 0083 029a 0873 | s| Declare_Subprogram INIT_0870,For_Outer_Call,Visible,Unelaborated 0085 029a 0883 | | Declare_Subprogram INIT_0880,For_Outer_Call,Visible,Unelaborated 0087 00bf | | Action Accept_Activation 0088 029d 08ab | | Declare_Subprogram INIT_08a8,For_Outer_Call 008a 029d 08c3 | | Declare_Subprogram INIT_08c0,For_Outer_Call 008c 1d0d | | Execute_Immediate Reference_Lex_1,0xd 008d 00c7 | | Action Elaborate_Subprogram 008e 1d0f | | Execute_Immediate Reference_Lex_1,0xf 008f 00c7 | | Action Elaborate_Subprogram 0090 1d10 | | Execute_Immediate Reference_Lex_1,0x10 0091 00c7 | | Action Elaborate_Subprogram 0092 1d11 | | Execute_Immediate Reference_Lex_1,0x11 0093 00c7 | | Action Elaborate_Subprogram 0094 1d12 | | Execute_Immediate Reference_Lex_1,0x12 0095 00c7 | | Action Elaborate_Subprogram 0096 1d14 | | Execute_Immediate Reference_Lex_1,0x14 0097 00c7 | | Action Elaborate_Subprogram 0098 1d13 | | Execute_Immediate Reference_Lex_1,0x13 0099 00c7 | | Action Elaborate_Subprogram 009a 1d15 | | Execute_Immediate Reference_Lex_1,0x15 009b 00c7 | | Action Elaborate_Subprogram 009c 1d16 | | Execute_Immediate Reference_Lex_1,0x16 009d 00c7 | | Action Elaborate_Subprogram 009e 1d17 | | Execute_Immediate Reference_Lex_1,0x17 009f 00c7 | | Action Elaborate_Subprogram 00a0 1d18 | | Execute_Immediate Reference_Lex_1,0x18 00a1 00c7 | | Action Elaborate_Subprogram 00a2 1d19 | | Execute_Immediate Reference_Lex_1,0x19 00a3 00c7 | | Action Elaborate_Subprogram 00a4 1d1b | | Execute_Immediate Reference_Lex_1,0x1b 00a5 00c7 | | Action Elaborate_Subprogram 00a6 1d1c | | Execute_Immediate Reference_Lex_1,0x1c 00a7 00c7 | | Action Elaborate_Subprogram 00a8 1d1d | | Execute_Immediate Reference_Lex_1,0x1d 00a9 00c7 | | Action Elaborate_Subprogram 00aa 1d1e | | Execute_Immediate Reference_Lex_1,0x1e 00ab 00c7 | | Action Elaborate_Subprogram 00ac 1d1f | | Execute_Immediate Reference_Lex_1,0x1f 00ad 00c7 | | Action Elaborate_Subprogram 00ae 1d20 | | Execute_Immediate Reference_Lex_1,0x20 00af 00c7 | | Action Elaborate_Subprogram 00b0 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21 00b1 00c7 | | Action Elaborate_Subprogram 00b2 1d23 | # | Execute_Immediate Reference_Lex_1,0x23 00b3 00c7 | | Action Elaborate_Subprogram 00b4 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24 00b5 00c7 | | Action Elaborate_Subprogram 00b6 1d25 | % | Execute_Immediate Reference_Lex_1,0x25 00b7 00c7 | | Action Elaborate_Subprogram 00b8 1d26 | & | Execute_Immediate Reference_Lex_1,0x26 00b9 00c7 | | Action Elaborate_Subprogram 00ba 1d27 | ' | Execute_Immediate Reference_Lex_1,0x27 00bb 00c7 | | Action Elaborate_Subprogram 00bc 1d28 | ( | Execute_Immediate Reference_Lex_1,0x28 00bd 00c7 | | Action Elaborate_Subprogram 00be 1d29 | ) | Execute_Immediate Reference_Lex_1,0x29 00bf 00c7 | | Action Elaborate_Subprogram 00c0 1d2a | * | Execute_Immediate Reference_Lex_1,0x2a 00c1 00c7 | | Action Elaborate_Subprogram 00c2 1d2b | + | Execute_Immediate Reference_Lex_1,0x2b 00c3 00c7 | | Action Elaborate_Subprogram 00c4 1d2c | , | Execute_Immediate Reference_Lex_1,0x2c 00c5 00c7 | | Action Elaborate_Subprogram 00c6 1d2d | - | Execute_Immediate Reference_Lex_1,0x2d 00c7 00c7 | | Action Elaborate_Subprogram 00c8 1d2e | . | Execute_Immediate Reference_Lex_1,0x2e 00c9 00c7 | | Action Elaborate_Subprogram 00ca 1d2f | / | Execute_Immediate Reference_Lex_1,0x2f 00cb 00c7 | | Action Elaborate_Subprogram 00cc 1d30 | 0 | Execute_Immediate Reference_Lex_1,0x30 00cd 00c7 | | Action Elaborate_Subprogram 00ce 1d32 | 2 | Execute_Immediate Reference_Lex_1,0x32 00cf 00c7 | | Action Elaborate_Subprogram 00d0 1d33 | 3 | Execute_Immediate Reference_Lex_1,0x33 00d1 00c7 | | Action Elaborate_Subprogram 00d2 1d34 | 4 | Execute_Immediate Reference_Lex_1,0x34 00d3 00c7 | | Action Elaborate_Subprogram 00d4 1d36 | 6 | Execute_Immediate Reference_Lex_1,0x36 00d5 00c7 | | Action Elaborate_Subprogram 00d6 1d37 | 7 | Execute_Immediate Reference_Lex_1,0x37 00d7 00c7 | | Action Elaborate_Subprogram 00d8 1d39 | 9 | Execute_Immediate Reference_Lex_1,0x39 00d9 00c7 | | Action Elaborate_Subprogram 00da 1d3a | : | Execute_Immediate Reference_Lex_1,0x3a 00db 00c7 | | Action Elaborate_Subprogram 00dc 1d3b | ; | Execute_Immediate Reference_Lex_1,0x3b 00dd 00c7 | | Action Elaborate_Subprogram 00de 1d3c | < | Execute_Immediate Reference_Lex_1,0x3c 00df 00c7 | | Action Elaborate_Subprogram 00e0 1d3d | = | Execute_Immediate Reference_Lex_1,0x3d 00e1 00c7 | | Action Elaborate_Subprogram 00e2 1d3e | > | Execute_Immediate Reference_Lex_1,0x3e 00e3 00c7 | | Action Elaborate_Subprogram 00e4 1d3f | ? | Execute_Immediate Reference_Lex_1,0x3f 00e5 00c7 | | Action Elaborate_Subprogram 00e6 1d40 | @ | Execute_Immediate Reference_Lex_1,0x40 00e7 00c7 | | Action Elaborate_Subprogram 00e8 1d41 | A | Execute_Immediate Reference_Lex_1,0x41 00e9 00c7 | | Action Elaborate_Subprogram 00ea BODY_0008: 00ea 00bc | | Action Signal_Activated 00eb 00bb | | Action Signal_Completion 00ec 0000 0000 | | .BLANK 0000[0x4] 00f0 ; -------------------------------------------------------------------------------------- 00f0 ; SUBPROGRAM 00f0 ; -------------------------------------------------------------------------------------- 00f0 00f5 | | .CONST 0x00f5 ; Address of begin 00f1 0103 | | .CONST 0x0103 ; Address of exception handler 00f2 0002 | | .CONST 0x0002 ; Number of locals 00f3 INIT_00f0: 00f3 00da | | Load_Top At_Offset_2 00f4 8002 | | Call 0x0,0x2 00f5 BODY_00f0: 00f5 00d8 | | Load_Top At_Offset_0 00f6 e003 | | Load 0x0,0x3 00f7 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 00f8 7006 |p | Jump_Nonzero 0xff 00f9 0092 0ab8 | | Action Push_String_Extended,0xab8 ; "Element is not an expression" 00fb e004 | | Load 0x0,0x4 00fc 8005 | | Call 0x0,0x5 00fd e006 | | Load 0x0,0x6 00fe 0257 | W | Execute Discrete,Raise 00ff 00d8 | | Load_Top At_Offset_0 0100 8007 | | Call 0x0,0x7 0101 8008 | | Call 0x0,0x8 0102 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0103 TRAP_00f0: 0103 010e | | Execute Exception,Is_Constraint_Error 0104 6802 |h | Jump_Zero 0x107 0105 e009 | | Load 0x0,0x9 0106 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0107 0100 | | Execute Exception,Raise 0108 ; -------------------------------------------------------------------------------------- 0108 ; SUBPROGRAM 0108 ; -------------------------------------------------------------------------------------- 0108 010b | | .CONST 0x010b ; Address of begin 0109 0004 | | .CONST 0x0004 ; Address of exception handler 010a 0001 | | .CONST 0x0001 ; Number of locals 010b BODY_0108: 010b INIT_0108: 010b 4607 |F | Jump_Case 0x8 010c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 010d 7807 |x | Jump 0x115 ; case 0x1 010e 780a |x | Jump 0x119 ; case 0x2 010f 780e |x | Jump 0x11e ; case 0x3 0110 7811 |x | Jump 0x122 ; case 0x4 0111 7812 |x | Jump 0x124 ; case 0x5 0112 7813 |x | Jump 0x126 ; case 0x6 0113 7816 |x | Jump 0x12a ; case 0x7 0114 4302 |C | .XXX[0x1] 0115 00da | | Load_Top At_Offset_2 0116 0091 0a6b | k| Action Push_String_Extended_Indexed,0xa6b ; "A_SIMPLE_NAME" 0118 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0119 00db | | Load_Top At_Offset_3 011a 00db | | Load_Top At_Offset_3 011b 00e0 | | Load_Encached Standard_Cache 011c 181b | | Execute Package,Field_Execute,Field_Number 0x1b 011d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 011e 00da | | Load_Top At_Offset_2 011f 00e0 | | Load_Encached Standard_Cache 0120 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0121 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0122 00db | | Load_Top At_Offset_3 0123 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0124 00db | | Load_Top At_Offset_3 0125 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0126 e20e | | Load 0x1,0xe 0127 00dc | | Load_Top At_Offset_4 0128 0267 | g | Execute Discrete,Predecessor 0129 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 012a e20e | | Load 0x1,0xe 012b 00dc | | Load_Top At_Offset_4 012c 0268 | h | Execute Discrete,Successor 012d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 012e 0000 0000 | | .XXX[0x2] 0130 ; -------------------------------------------------------------------------------------- 0130 ; SUBPROGRAM 0130 ; -------------------------------------------------------------------------------------- 0130 0135 | 5 | .CONST 0x0135 ; Address of begin 0131 0004 | | .CONST 0x0004 ; Address of exception handler 0132 0002 | | .CONST 0x0002 ; Number of locals 0133 INIT_0130: 0133 00da | | Load_Top At_Offset_2 0134 8002 | | Call 0x0,0x2 0135 BODY_0130: 0135 00d8 | | Load_Top At_Offset_0 0136 0145 | E | Execute Heap_Access,Diana_Tree_Kind 0137 00d8 | | Load_Top At_Offset_0 0138 0c19 | | Execute_Immediate Greater_Equal,0x19 0139 701c |p | Jump_Nonzero 0x156 013a 4618 |F | Jump_Case 0x19 013b 781b |x | Jump 0x157 ; case 0x0 013c 7854 |xT | Jump 0x191 ; case 0x1 013d 7819 |x | Jump 0x157 ; case 0x2 013e 7856 |xV | Jump 0x195 ; case 0x3 013f 785b |x[ | Jump 0x19b ; case 0x4 0140 7856 |xV | Jump 0x197 ; case 0x5 0141 7859 |xY | Jump 0x19b ; case 0x6 0142 784c |xL | Jump 0x18f ; case 0x7 0143 782d |x- | Jump 0x171 ; case 0x8 0144 7856 |xV | Jump 0x19b ; case 0x9 0145 7853 |xS | Jump 0x199 ; case 0xa 0146 784c |xL | Jump 0x193 ; case 0xb 0147 781d |x | Jump 0x165 ; case 0xc 0148 7822 |x" | Jump 0x16b ; case 0xd 0149 7823 |x# | Jump 0x16d ; case 0xe 014a 7822 |x" | Jump 0x16d ; case 0xf 014b 7823 |x# | Jump 0x16f ; case 0x10 014c 781a |x | Jump 0x167 ; case 0x11 014d 781d |x | Jump 0x16b ; case 0x12 014e 781a |x | Jump 0x169 ; case 0x13 014f 7813 |x | Jump 0x163 ; case 0x14 0150 7812 |x | Jump 0x163 ; case 0x15 0151 7807 |x | Jump 0x159 ; case 0x16 0152 7801 |x | Jump 0x154 ; case 0x17 0153 7800 |x | Jump 0x154 ; case 0x18 0154 4800 |H | Short_Literal 0x0 0155 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0156 00d1 | | Pop_Control Pop_Count_1 0157 4812 |H | Short_Literal 0x12 0158 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0159 00d8 | | Load_Top At_Offset_0 015a 00eb | | Load_Encached Diana_Cache 015b 18fa | | Execute Package,Field_Execute,Field_Number 0xfa 015c 0145 | E | Execute Heap_Access,Diana_Tree_Kind 015d 0f31 | 1 | Execute_Immediate Equal,0x31 015e 6802 |h | Jump_Zero 0x161 015f 4809 |H | Short_Literal 0x9 0160 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0161 4800 |H | Short_Literal 0x0 0162 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0163 4801 |H | Short_Literal 0x1 0164 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0165 4806 |H | Short_Literal 0x6 0166 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0167 4802 |H | Short_Literal 0x2 0168 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0169 4803 |H | Short_Literal 0x3 016a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 016b 4804 |H | Short_Literal 0x4 016c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 016d 4805 |H | Short_Literal 0x5 016e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 016f 4811 |H | Short_Literal 0x11 0170 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0171 00d8 | | Load_Top At_Offset_0 0172 00eb | | Load_Encached Diana_Cache 0173 18f5 | | Execute Package,Field_Execute,Field_Number 0xf5 0174 00eb | | Load_Encached Diana_Cache 0175 1898 | | Execute Package,Field_Execute,Field_Number 0x98 0176 4603 |F | Jump_Case 0x4 0177 7815 |x | Jump 0x18d ; case 0x0 0178 7812 |x | Jump 0x18b ; case 0x1 0179 7801 |x | Jump 0x17b ; case 0x2 017a 7800 |x | Jump 0x17b ; case 0x3 017b 0092 0ab9 | | Action Push_String_Extended,0xab9 ; "Numeric Literal has Sm_Value = " 017d 00d9 | | Load_Top At_Offset_1 017e 00eb | | Load_Encached Diana_Cache 017f 18f5 | | Execute Package,Field_Execute,Field_Number 0xf5 0180 00eb | | Load_Encached Diana_Cache 0181 1898 | | Execute Package,Field_Execute,Field_Number 0x98 0182 00eb | | Load_Encached Diana_Cache 0183 1b95 | | Execute Package,Field_Read,Field_Number 0x95 0184 011c | | Execute Any,Convert_Unchecked 0185 1c01 | | Execute_Immediate Run_Utility,0x1 0186 01cc | | Execute Vector,Catenate 0187 e004 | | Load 0x0,0x4 0188 8005 | | Call 0x0,0x5 0189 e006 | | Load 0x0,0x6 018a 0257 | W | Execute Discrete,Raise 018b 4808 |H | Short_Literal 0x8 018c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 018d 4807 |H | Short_Literal 0x7 018e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 018f 480a |H | Short_Literal 0xa 0190 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0191 480c |H | Short_Literal 0xc 0192 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0193 480b |H | Short_Literal 0xb 0194 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0195 480f |H | Short_Literal 0xf 0196 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0197 480d |H | Short_Literal 0xd 0198 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0199 480e |H | Short_Literal 0xe 019a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 019b 4810 |H | Short_Literal 0x10 019c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 019d 0000 0000 | | .XXX[0x3] 019f 0000 | | 01a0 ; -------------------------------------------------------------------------------------- 01a0 ; SUBPROGRAM 01a0 ; -------------------------------------------------------------------------------------- 01a0 01a7 | | .CONST 0x01a7 ; Address of begin 01a1 0004 | | .CONST 0x0004 ; Address of exception handler 01a2 0004 | | .CONST 0x0004 ; Number of locals 01a3 INIT_01a0: 01a3 00da | | Load_Top At_Offset_2 01a4 8002 | | Call 0x0,0x2 01a5 00ec | | Load_Encached Diana_Tree_Cache 01a6 00ec | | Load_Encached Diana_Tree_Cache 01a7 BODY_01a0: 01a7 00cf | | Action Mark_Auxiliary 01a8 00db | | Load_Top At_Offset_3 01a9 0145 | E | Execute Heap_Access,Diana_Tree_Kind 01aa 00d8 | | Load_Top At_Offset_0 01ab 0c18 | | Execute_Immediate Greater_Equal,0x18 01ac 7076 |pv | Jump_Nonzero 0x223 01ad 4617 |F | Jump_Case 0x18 01ae 7875 |xu | Jump 0x224 ; case 0x0 01af 7874 |xt | Jump 0x224 ; case 0x1 01b0 7873 |xs | Jump 0x224 ; case 0x2 01b1 7872 |xr | Jump 0x224 ; case 0x3 01b2 7871 |xq | Jump 0x224 ; case 0x4 01b3 7870 |xp | Jump 0x224 ; case 0x5 01b4 786f |xo | Jump 0x224 ; case 0x6 01b5 786e |xn | Jump 0x224 ; case 0x7 01b6 786d |xm | Jump 0x224 ; case 0x8 01b7 786c |xl | Jump 0x224 ; case 0x9 01b8 786b |xk | Jump 0x224 ; case 0xa 01b9 786a |xj | Jump 0x224 ; case 0xb 01ba 7869 |xi | Jump 0x224 ; case 0xc 01bb 78a6 |x | Jump 0x262 ; case 0xd 01bc 7867 |xg | Jump 0x224 ; case 0xe 01bd 7866 |xf | Jump 0x224 ; case 0xf 01be 7865 |xe | Jump 0x224 ; case 0x10 01bf 786f |xo | Jump 0x22f ; case 0x11 01c0 7873 |xs | Jump 0x234 ; case 0x12 01c1 7868 |xh | Jump 0x22a ; case 0x13 01c2 7861 |xa | Jump 0x224 ; case 0x14 01c3 7860 |x` | Jump 0x224 ; case 0x15 01c4 7801 |x | Jump 0x1c6 ; case 0x16 01c5 7800 |x | Jump 0x1c6 ; case 0x17 01c6 00db | | Load_Top At_Offset_3 01c7 00eb | | Load_Encached Diana_Cache 01c8 18fa | | Execute Package,Field_Execute,Field_Number 0xfa 01c9 0033 | 3 | Store_Top Heap_Access,At_Offset_3 01ca 00da | | Load_Top At_Offset_2 01cb 0145 | E | Execute Heap_Access,Diana_Tree_Kind 01cc 00d8 | | Load_Top At_Offset_0 01cd 0c31 | 1 | Execute_Immediate Greater_Equal,0x31 01ce 7043 |pC | Jump_Nonzero 0x212 01cf 4630 |F0 | Jump_Case 0x31 01d0 7842 |xB | Jump 0x213 ; case 0x0 01d1 7841 |xA | Jump 0x213 ; case 0x1 01d2 7840 |x@ | Jump 0x213 ; case 0x2 01d3 783f |x? | Jump 0x213 ; case 0x3 01d4 783e |x> | Jump 0x213 ; case 0x4 01d5 783d |x= | Jump 0x213 ; case 0x5 01d6 783c |x< | Jump 0x213 ; case 0x6 01d7 783b |x; | Jump 0x213 ; case 0x7 01d8 783a |x: | Jump 0x213 ; case 0x8 01d9 7839 |x9 | Jump 0x213 ; case 0x9 01da 7838 |x8 | Jump 0x213 ; case 0xa 01db 7837 |x7 | Jump 0x213 ; case 0xb 01dc 7836 |x6 | Jump 0x213 ; case 0xc 01dd 7835 |x5 | Jump 0x213 ; case 0xd 01de 7834 |x4 | Jump 0x213 ; case 0xe 01df 7833 |x3 | Jump 0x213 ; case 0xf 01e0 7832 |x2 | Jump 0x213 ; case 0x10 01e1 7831 |x1 | Jump 0x213 ; case 0x11 01e2 7830 |x0 | Jump 0x213 ; case 0x12 01e3 782f |x/ | Jump 0x213 ; case 0x13 01e4 782e |x. | Jump 0x213 ; case 0x14 01e5 782d |x- | Jump 0x213 ; case 0x15 01e6 782c |x, | Jump 0x213 ; case 0x16 01e7 782b |x+ | Jump 0x213 ; case 0x17 01e8 782a |x* | Jump 0x213 ; case 0x18 01e9 7829 |x) | Jump 0x213 ; case 0x19 01ea 7828 |x( | Jump 0x213 ; case 0x1a 01eb 7827 |x' | Jump 0x213 ; case 0x1b 01ec 7826 |x& | Jump 0x213 ; case 0x1c 01ed 7833 |x3 | Jump 0x221 ; case 0x1d 01ee 7824 |x$ | Jump 0x213 ; case 0x1e 01ef 7823 |x# | Jump 0x213 ; case 0x1f 01f0 7822 |x" | Jump 0x213 ; case 0x20 01f1 7821 |x! | Jump 0x213 ; case 0x21 01f2 7820 |x | Jump 0x213 ; case 0x22 01f3 7825 |x% | Jump 0x219 ; case 0x23 01f4 7826 |x& | Jump 0x21b ; case 0x24 01f5 7825 |x% | Jump 0x21b ; case 0x25 01f6 7826 |x& | Jump 0x21d ; case 0x26 01f7 781b |x | Jump 0x213 ; case 0x27 01f8 7826 |x& | Jump 0x21f ; case 0x28 01f9 7819 |x | Jump 0x213 ; case 0x29 01fa 7818 |x | Jump 0x213 ; case 0x2a 01fb 7817 |x | Jump 0x213 ; case 0x2b 01fc 7816 |x | Jump 0x213 ; case 0x2c 01fd 7815 |x | Jump 0x213 ; case 0x2d 01fe 7814 |x | Jump 0x213 ; case 0x2e 01ff 7813 |x | Jump 0x213 ; case 0x2f 0200 7800 |x | Jump 0x201 ; case 0x30 0201 00da | | Load_Top At_Offset_2 0202 4901 |I | Short_Literal 0x101 0203 00eb | | Load_Encached Diana_Cache 0204 0096 | | Execute Package,Entry 0205 0145 | E | Execute Heap_Access,Diana_Tree_Kind 0206 0f80 | | Execute_Immediate Equal,-0x80 0207 6808 |h | Jump_Zero 0x210 0208 00da | | Load_Top At_Offset_2 0209 4901 |I | Short_Literal 0x101 020a 00eb | | Load_Encached Diana_Cache 020b 0096 | | Execute Package,Entry 020c 00eb | | Load_Encached Diana_Cache 020d 1885 | | Execute Package,Field_Execute,Field_Number 0x85 020e a402 | | Store_Unchecked 0x2,0x2 020f 7854 |xT | Jump 0x264 0210 4800 |H | Short_Literal 0x0 0211 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0212 00d1 | | Pop_Control Pop_Count_1 0213 0092 0aba | | Action Push_String_Extended,0xaba ; "Element is not an assignable Name" 0215 e00a | | Load 0x0,0xa 0216 8005 | | Call 0x0,0x5 0217 e006 | | Load 0x0,0x6 0218 0257 | W | Execute Discrete,Raise 0219 4801 |H | Short_Literal 0x1 021a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 021b 4800 |H | Short_Literal 0x0 021c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 021d 4801 |H | Short_Literal 0x1 021e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 021f 4801 |H | Short_Literal 0x1 0220 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0221 4801 |H | Short_Literal 0x1 0222 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0223 00d1 | | Pop_Control Pop_Count_1 0224 0092 0aba | | Action Push_String_Extended,0xaba ; "Element is not an assignable Name" 0226 e00a | | Load 0x0,0xa 0227 8005 | | Call 0x0,0x5 0228 e006 | | Load 0x0,0x6 0229 0257 | W | Execute Discrete,Raise 022a 00db | | Load_Top At_Offset_3 022b 00eb | | Load_Encached Diana_Cache 022c 18d4 | | Execute Package,Field_Execute,Field_Number 0xd4 022d a402 | | Store_Unchecked 0x2,0x2 022e 7835 |x5 | Jump 0x264 022f 00db | | Load_Top At_Offset_3 0230 00eb | | Load_Encached Diana_Cache 0231 18d4 | | Execute Package,Field_Execute,Field_Number 0xd4 0232 a402 | | Store_Unchecked 0x2,0x2 0233 7830 |x0 | Jump 0x264 0234 00db | | Load_Top At_Offset_3 0235 00eb | | Load_Encached Diana_Cache 0236 18c0 | | Execute Package,Field_Execute,Field_Number 0xc0 0237 0032 | 2 | Store_Top Heap_Access,At_Offset_2 0238 00d9 | | Load_Top At_Offset_1 0239 0145 | E | Execute Heap_Access,Diana_Tree_Kind 023a 4816 |H | Short_Literal 0x16 023b 4817 |H | Short_Literal 0x17 023c 0262 | b | Execute Discrete,In_Range 023d 7006 |p | Jump_Nonzero 0x244 023e 0092 0aba | | Action Push_String_Extended,0xaba ; "Element is not an assignable Name" 0240 e00a | | Load 0x0,0xa 0241 8005 | | Call 0x0,0x5 0242 e006 | | Load 0x0,0x6 0243 0257 | W | Execute Discrete,Raise 0244 00d9 | | Load_Top At_Offset_1 0245 00eb | | Load_Encached Diana_Cache 0246 18fa | | Execute Package,Field_Execute,Field_Number 0xfa 0247 0033 | 3 | Store_Top Heap_Access,At_Offset_3 0248 00da | | Load_Top At_Offset_2 0249 0145 | E | Execute Heap_Access,Diana_Tree_Kind 024a 0b1e | | Execute_Immediate Case_Compare,0x1e 024b 7005 |p | Jump_Nonzero 0x251 024c 0f1c | | Execute_Immediate Equal,0x1c 024d 700f |p | Jump_Nonzero 0x25d 024e 00d9 | | Load_Top At_Offset_1 024f a402 | | Store_Unchecked 0x2,0x2 0250 7813 |x | Jump 0x264 0251 00d1 | | Pop_Control Pop_Count_1 0252 00da | | Load_Top At_Offset_2 0253 00eb | | Load_Encached Diana_Cache 0254 18ff | | Execute Package,Field_Execute,Field_Number 0xff 0255 7002 |p | Jump_Nonzero 0x258 0256 4801 |H | Short_Literal 0x1 0257 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0258 00db | | Load_Top At_Offset_3 0259 00eb | | Load_Encached Diana_Cache 025a 18d4 | | Execute Package,Field_Execute,Field_Number 0xd4 025b a402 | | Store_Unchecked 0x2,0x2 025c 7807 |x | Jump 0x264 025d 00db | | Load_Top At_Offset_3 025e 00eb | | Load_Encached Diana_Cache 025f 18d4 | | Execute Package,Field_Execute,Field_Number 0xd4 0260 a402 | | Store_Unchecked 0x2,0x2 0261 7802 |x | Jump 0x264 0262 4800 |H | Short_Literal 0x0 0263 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0264 00c9 | | Action Pop_Auxiliary_Loop 0265 7f42 | B | Jump 0x1a8 0266 0000 0000 | | .XXX[0x2] 0268 ; -------------------------------------------------------------------------------------- 0268 ; SUBPROGRAM 0268 ; -------------------------------------------------------------------------------------- 0268 026b | k | .CONST 0x026b ; Address of begin 0269 027d | } | .CONST 0x027d ; Address of exception handler 026a 0001 | | .CONST 0x0001 ; Number of locals 026b BODY_0268: 026b INIT_0268: 026b 00da | | Load_Top At_Offset_2 026c 820f | | Call 0x1,0xf 026d 4806 |H | Short_Literal 0x6 026e 480b |H | Short_Literal 0xb 026f 0262 | b | Execute Discrete,In_Range 0270 700a |p | Jump_Nonzero 0x27b 0271 00da | | Load_Top At_Offset_2 0272 8002 | | Call 0x0,0x2 0273 00eb | | Load_Encached Diana_Cache 0274 18f5 | | Execute Package,Field_Execute,Field_Number 0xf5 0275 00eb | | Load_Encached Diana_Cache 0276 1898 | | Execute Package,Field_Execute,Field_Number 0x98 0277 4800 |H | Short_Literal 0x0 0278 4801 |H | Short_Literal 0x1 0279 0262 | b | Execute Discrete,In_Range 027a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 027b 4801 |H | Short_Literal 0x1 027c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 027d TRAP_0268: 027d 0007 | | Action Break_Optional 027e 4800 |H | Short_Literal 0x0 027f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0280 ; -------------------------------------------------------------------------------------- 0280 ; SUBPROGRAM 0280 ; -------------------------------------------------------------------------------------- 0280 0286 | | .CONST 0x0286 ; Address of begin 0281 0004 | | .CONST 0x0004 ; Address of exception handler 0282 0003 | | .CONST 0x0003 ; Number of locals 0283 INIT_0280: 0283 00da | | Load_Top At_Offset_2 0284 8002 | | Call 0x0,0x2 0285 00e5 | | Load_Encached Long_Integer_Cache 0286 BODY_0280: 0286 e5ff | | Load 0x2,-0x1 0287 8211 | | Call 0x1,0x11 0288 6812 |h | Jump_Zero 0x29b 0289 00d9 | | Load_Top At_Offset_1 028a 00eb | | Load_Encached Diana_Cache 028b 18f5 | | Execute Package,Field_Execute,Field_Number 0xf5 028c 00eb | | Load_Encached Diana_Cache 028d 1898 | | Execute Package,Field_Execute,Field_Number 0x98 028e 4801 |H | Short_Literal 0x1 028f 4803 |H | Short_Literal 0x3 0290 0262 | b | Execute Discrete,In_Range 0291 7009 |p | Jump_Nonzero 0x29b 0292 7800 |x | Jump 0x293 0293 00d9 | | Load_Top At_Offset_1 0294 00eb | | Load_Encached Diana_Cache 0295 18f5 | | Execute Package,Field_Execute,Field_Number 0xf5 0296 00eb | | Load_Encached Diana_Cache 0297 189f | | Execute Package,Field_Execute,Field_Number 0x9f 0298 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 0299 00d8 | | Load_Top At_Offset_0 029a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 029b 0092 0abb | | Action Push_String_Extended,0xabb ; "Element is not an Integer Expression" 029d e00a | | Load 0x0,0xa 029e 8005 | | Call 0x0,0x5 029f e006 | | Load 0x0,0x6 02a0 0257 | W | Execute Discrete,Raise 02a1 0000 0000 | | .BLANK 0000[0x7] 02a8 ; -------------------------------------------------------------------------------------- 02a8 ; SUBPROGRAM 02a8 ; -------------------------------------------------------------------------------------- 02a8 02b2 | | .CONST 0x02b2 ; Address of begin 02a9 0004 | | .CONST 0x0004 ; Address of exception handler 02aa 0003 | | .CONST 0x0003 ; Number of locals 02ab INIT_02a8: 02ab 00da | | Load_Top At_Offset_2 02ac 8002 | | Call 0x0,0x2 02ad 4801 |H | Short_Literal 0x1 02ae 4803 |H | Short_Literal 0x3 02af 00e9 | | Load_Encached String_Cache 02b0 035b | [ | Declare_Type Array,Constrained 02b1 0337 | 7 | Declare_Variable Array 02b2 BODY_02a8: 02b2 00d9 | | Load_Top At_Offset_1 02b3 0145 | E | Execute Heap_Access,Diana_Tree_Kind 02b4 0f0c | | Execute_Immediate Equal,0xc 02b5 7006 |p | Jump_Nonzero 0x2bc 02b6 0092 0abc | | Action Push_String_Extended,0xabc ; "Element is not a Static Character Expression" 02b8 e00a | | Load 0x0,0xa 02b9 8005 | | Call 0x0,0x5 02ba e006 | | Load 0x0,0x6 02bb 0257 | W | Execute Discrete,Raise 02bc 00d9 | | Load_Top At_Offset_1 02bd 00eb | | Load_Encached Diana_Cache 02be 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 02bf 00eb | | Load_Encached Diana_Cache 02c0 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 02c1 00d9 | | Load_Top At_Offset_1 02c2 01d4 | | Execute Vector,Structure_Write 02c3 4802 |H | Short_Literal 0x2 02c4 00d9 | | Load_Top At_Offset_1 02c5 01d7 | | Execute Vector,Field_Read 02c6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 02c7 0000 | | .XXX[0x1] 02c8 ; -------------------------------------------------------------------------------------- 02c8 ; SUBPROGRAM 02c8 ; -------------------------------------------------------------------------------------- 02c8 02cd | | .CONST 0x02cd ; Address of begin 02c9 0004 | | .CONST 0x0004 ; Address of exception handler 02ca 0002 | | .CONST 0x0002 ; Number of locals 02cb INIT_02c8: 02cb 00da | | Load_Top At_Offset_2 02cc 8002 | | Call 0x0,0x2 02cd BODY_02c8: 02cd 00db | | Load_Top At_Offset_3 02ce 8211 | | Call 0x1,0x11 02cf 6810 |h | Jump_Zero 0x2e0 02d0 00d8 | | Load_Top At_Offset_0 02d1 00eb | | Load_Encached Diana_Cache 02d2 18f5 | | Execute Package,Field_Execute,Field_Number 0xf5 02d3 00eb | | Load_Encached Diana_Cache 02d4 1898 | | Execute Package,Field_Execute,Field_Number 0x98 02d5 0f01 | | Execute_Immediate Equal,0x1 02d6 7001 |p | Jump_Nonzero 0x2d8 02d7 7808 |x | Jump 0x2e0 02d8 00d8 | | Load_Top At_Offset_0 02d9 00eb | | Load_Encached Diana_Cache 02da 18f5 | | Execute Package,Field_Execute,Field_Number 0xf5 02db 00eb | | Load_Encached Diana_Cache 02dc 18a1 | | Execute Package,Field_Execute,Field_Number 0xa1 02dd e00b | | Load 0x0,0xb 02de 1863 | c | Execute Package,Field_Execute,Field_Number 0x63 02df 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 02e0 0092 0abd | | Action Push_String_Extended,0xabd ; "Element is not a Static Float Expression" 02e2 e00a | | Load 0x0,0xa 02e3 8005 | | Call 0x0,0x5 02e4 e006 | | Load 0x0,0x6 02e5 0257 | W | Execute Discrete,Raise 02e6 0000 0000 | | .XXX[0x2] 02e8 ; -------------------------------------------------------------------------------------- 02e8 ; SUBPROGRAM 02e8 ; -------------------------------------------------------------------------------------- 02e8 02ed | | .CONST 0x02ed ; Address of begin 02e9 0004 | | .CONST 0x0004 ; Address of exception handler 02ea 0002 | | .CONST 0x0002 ; Number of locals 02eb INIT_02e8: 02eb 00da | | Load_Top At_Offset_2 02ec 8002 | | Call 0x0,0x2 02ed BODY_02e8: 02ed 00d8 | | Load_Top At_Offset_0 02ee 0145 | E | Execute Heap_Access,Diana_Tree_Kind 02ef 0f0b | | Execute_Immediate Equal,0xb 02f0 7006 |p | Jump_Nonzero 0x2f7 02f1 0092 0abe | | Action Push_String_Extended,0xabe ; "Element is not a Static String Expression" 02f3 e00a | | Load 0x0,0xa 02f4 8005 | | Call 0x0,0x5 02f5 e006 | | Load 0x0,0x6 02f6 0257 | W | Execute Discrete,Raise 02f7 00d8 | | Load_Top At_Offset_0 02f8 00eb | | Load_Encached Diana_Cache 02f9 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 02fa 00eb | | Load_Encached Diana_Cache 02fb 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 02fc 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 02fd 0000 0000 | | .XXX[0x3] 02ff 0000 | | 0300 ; -------------------------------------------------------------------------------------- 0300 ; SUBPROGRAM 0300 ; -------------------------------------------------------------------------------------- 0300 030f | | .CONST 0x030f ; Address of begin 0301 0004 | | .CONST 0x0004 ; Address of exception handler 0302 0005 | | .CONST 0x0005 ; Number of locals 0303 INIT_0300: 0303 e00c | | Load 0x0,0xc 0304 0322 | " | Declare_Variable Record 0305 00db | | Load_Top At_Offset_3 0306 8002 | | Call 0x0,0x2 0307 029e 08db | | Declare_Subprogram INIT_08d8,For_Call,Unelaborated 0309 029f 0a5b | [| Declare_Subprogram INIT_0a58,For_Call 030b 4804 |H | Short_Literal 0x4 030c 4802 |H | Short_Literal 0x2 030d 0099 | | Action Reference_Dynamic 030e 00c7 | | Action Elaborate_Subprogram 030f BODY_0300: 030f 00da | | Load_Top At_Offset_2 0310 6802 |h | Jump_Zero 0x313 0311 00da | | Load_Top At_Offset_2 0312 8404 | | Call 0x2,0x4 0313 00db | | Load_Top At_Offset_3 0314 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0315 0000 0000 | | .XXX[0x3] 0317 0000 | | 0318 ; -------------------------------------------------------------------------------------- 0318 ; SUBPROGRAM 0318 ; -------------------------------------------------------------------------------------- 0318 031d | | .CONST 0x031d ; Address of begin 0319 0004 | | .CONST 0x0004 ; Address of exception handler 031a 0002 | | .CONST 0x0002 ; Number of locals 031b INIT_0318: 031b 00da | | Load_Top At_Offset_2 031c 8002 | | Call 0x0,0x2 031d BODY_0318: 031d 00d8 | | Load_Top At_Offset_0 031e 0145 | E | Execute Heap_Access,Diana_Tree_Kind 031f 00d8 | | Load_Top At_Offset_0 0320 0c14 | | Execute_Immediate Greater_Equal,0x14 0321 701a |p | Jump_Nonzero 0x33c 0322 4613 |F | Jump_Case 0x14 0323 7819 |x | Jump 0x33d ; case 0x0 0324 7818 |x | Jump 0x33d ; case 0x1 0325 7817 |x | Jump 0x33d ; case 0x2 0326 7816 |x | Jump 0x33d ; case 0x3 0327 7815 |x | Jump 0x33d ; case 0x4 0328 7814 |x | Jump 0x33d ; case 0x5 0329 7813 |x | Jump 0x33d ; case 0x6 032a 7812 |x | Jump 0x33d ; case 0x7 032b 7811 |x | Jump 0x33d ; case 0x8 032c 7810 |x | Jump 0x33d ; case 0x9 032d 780f |x | Jump 0x33d ; case 0xa 032e 780e |x | Jump 0x33d ; case 0xb 032f 780d |x | Jump 0x33d ; case 0xc 0330 781c |x | Jump 0x34d ; case 0xd 0331 7820 |x | Jump 0x352 ; case 0xe 0332 7824 |x$ | Jump 0x357 ; case 0xf 0333 7809 |x | Jump 0x33d ; case 0x10 0334 780e |x | Jump 0x343 ; case 0x11 0335 7812 |x | Jump 0x348 ; case 0x12 0336 7800 |x | Jump 0x337 ; case 0x13 0337 00d8 | | Load_Top At_Offset_0 0338 00eb | | Load_Encached Diana_Cache 0339 18d4 | | Execute Package,Field_Execute,Field_Number 0xd4 033a 8008 | | Call 0x0,0x8 033b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 033c 00d1 | | Pop_Control Pop_Count_1 033d 0092 0abf | | Action Push_String_Extended,0xabf ; "Element is not a slice or indexed expression" 033f e00a | | Load 0x0,0xa 0340 8005 | | Call 0x0,0x5 0341 e006 | | Load 0x0,0x6 0342 0257 | W | Execute Discrete,Raise 0343 00d8 | | Load_Top At_Offset_0 0344 00eb | | Load_Encached Diana_Cache 0345 18d4 | | Execute Package,Field_Execute,Field_Number 0xd4 0346 8008 | | Call 0x0,0x8 0347 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0348 00d8 | | Load_Top At_Offset_0 0349 00eb | | Load_Encached Diana_Cache 034a 18d4 | | Execute Package,Field_Execute,Field_Number 0xd4 034b 8008 | | Call 0x0,0x8 034c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 034d 00d8 | | Load_Top At_Offset_0 034e 00eb | | Load_Encached Diana_Cache 034f 18d4 | | Execute Package,Field_Execute,Field_Number 0xd4 0350 8008 | | Call 0x0,0x8 0351 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0352 00d8 | | Load_Top At_Offset_0 0353 00eb | | Load_Encached Diana_Cache 0354 18d4 | | Execute Package,Field_Execute,Field_Number 0xd4 0355 8008 | | Call 0x0,0x8 0356 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0357 00d8 | | Load_Top At_Offset_0 0358 00eb | | Load_Encached Diana_Cache 0359 18d4 | | Execute Package,Field_Execute,Field_Number 0xd4 035a 00eb | | Load_Encached Diana_Cache 035b 18d4 | | Execute Package,Field_Execute,Field_Number 0xd4 035c 8008 | | Call 0x0,0x8 035d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 035e 0000 0000 | | .XXX[0x2] 0360 ; -------------------------------------------------------------------------------------- 0360 ; SUBPROGRAM 0360 ; -------------------------------------------------------------------------------------- 0360 0365 | e | .CONST 0x0365 ; Address of begin 0361 0004 | | .CONST 0x0004 ; Address of exception handler 0362 0002 | | .CONST 0x0002 ; Number of locals 0363 INIT_0360: 0363 00da | | Load_Top At_Offset_2 0364 8002 | | Call 0x0,0x2 0365 BODY_0360: 0365 4802 |H | Short_Literal 0x2 0366 e5ff | | Load 0x2,-0x1 0367 8242 | B | Call 0x1,0x42 0368 00d8 | | Load_Top At_Offset_0 0369 00eb | | Load_Encached Diana_Cache 036a 18c9 | | Execute Package,Field_Execute,Field_Number 0xc9 036b 00eb | | Load_Encached Diana_Cache 036c 1889 | | Execute Package,Field_Execute,Field_Number 0x89 036d 800d | | Call 0x0,0xd 036e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 036f 0000 | | .XXX[0x1] 0370 ; -------------------------------------------------------------------------------------- 0370 ; SUBPROGRAM 0370 ; -------------------------------------------------------------------------------------- 0370 0373 | s | .CONST 0x0373 ; Address of begin 0371 0004 | | .CONST 0x0004 ; Address of exception handler 0372 0001 | | .CONST 0x0001 ; Number of locals 0373 BODY_0370: 0373 INIT_0370: 0373 4803 |H | Short_Literal 0x3 0374 00db | | Load_Top At_Offset_3 0375 8242 | B | Call 0x1,0x42 0376 00da | | Load_Top At_Offset_2 0377 8002 | | Call 0x0,0x2 0378 00eb | | Load_Encached Diana_Cache 0379 18c1 | | Execute Package,Field_Execute,Field_Number 0xc1 037a 8008 | | Call 0x0,0x8 037b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 037c 0000 0000 | | .BLANK 0000[0x4] 0380 ; -------------------------------------------------------------------------------------- 0380 ; SUBPROGRAM 0380 ; -------------------------------------------------------------------------------------- 0380 0383 | | .CONST 0x0383 ; Address of begin 0381 0004 | | .CONST 0x0004 ; Address of exception handler 0382 0001 | | .CONST 0x0001 ; Number of locals 0383 BODY_0380: 0383 INIT_0380: 0383 4607 |F | Jump_Case 0x8 0384 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 0385 7807 |x | Jump 0x38d ; case 0x1 0386 780a |x | Jump 0x391 ; case 0x2 0387 780e |x | Jump 0x396 ; case 0x3 0388 7811 |x | Jump 0x39a ; case 0x4 0389 7812 |x | Jump 0x39c ; case 0x5 038a 7813 |x | Jump 0x39e ; case 0x6 038b 7816 |x | Jump 0x3a2 ; case 0x7 038c 4302 |C | .XXX[0x1] 038d 00da | | Load_Top At_Offset_2 038e 0091 0a7e | ~| Action Push_String_Extended_Indexed,0xa7e ; "RECORD_DISCRIMINANT" 0390 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0391 00db | | Load_Top At_Offset_3 0392 00db | | Load_Top At_Offset_3 0393 00e0 | | Load_Encached Standard_Cache 0394 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0395 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0396 00da | | Load_Top At_Offset_2 0397 00e0 | | Load_Encached Standard_Cache 0398 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0399 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 039a 00db | | Load_Top At_Offset_3 039b 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 039c 00db | | Load_Top At_Offset_3 039d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 039e e21a | | Load 0x1,0x1a 039f 00dc | | Load_Top At_Offset_4 03a0 0267 | g | Execute Discrete,Predecessor 03a1 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 03a2 e21a | | Load 0x1,0x1a 03a3 00dc | | Load_Top At_Offset_4 03a4 0268 | h | Execute Discrete,Successor 03a5 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 03a6 0000 0000 | | .XXX[0x2] 03a8 ; -------------------------------------------------------------------------------------- 03a8 ; SUBPROGRAM 03a8 ; -------------------------------------------------------------------------------------- 03a8 03ae | | .CONST 0x03ae ; Address of begin 03a9 0004 | | .CONST 0x0004 ; Address of exception handler 03aa 0003 | | .CONST 0x0003 ; Number of locals 03ab INIT_03a8: 03ab 00da | | Load_Top At_Offset_2 03ac 8002 | | Call 0x0,0x2 03ad 00ec | | Load_Encached Diana_Tree_Cache 03ae BODY_03a8: 03ae 00d9 | | Load_Top At_Offset_1 03af 0145 | E | Execute Heap_Access,Diana_Tree_Kind 03b0 0b0d | | Execute_Immediate Case_Compare,0xd 03b1 7008 |p | Jump_Nonzero 0x3ba 03b2 0f12 | | Execute_Immediate Equal,0x12 03b3 7009 |p | Jump_Nonzero 0x3bd 03b4 0092 0ac0 | | Action Push_String_Extended,0xac0 ; "Element is not a Selected Component" 03b6 e00a | | Load 0x0,0xa 03b7 8005 | | Call 0x0,0x5 03b8 e006 | | Load 0x0,0x6 03b9 0257 | W | Execute Discrete,Raise 03ba 00d1 | | Pop_Control Pop_Count_1 03bb 4803 |H | Short_Literal 0x3 03bc 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 03bd 00d9 | | Load_Top At_Offset_1 03be 00eb | | Load_Encached Diana_Cache 03bf 18c0 | | Execute Package,Field_Execute,Field_Number 0xc0 03c0 0031 | 1 | Store_Top Heap_Access,At_Offset_1 03c1 00d8 | | Load_Top At_Offset_0 03c2 0145 | E | Execute Heap_Access,Diana_Tree_Kind 03c3 4816 |H | Short_Literal 0x16 03c4 4817 |H | Short_Literal 0x17 03c5 0262 | b | Execute Discrete,In_Range 03c6 7002 |p | Jump_Nonzero 0x3c9 03c7 4804 |H | Short_Literal 0x4 03c8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 03c9 00d8 | | Load_Top At_Offset_0 03ca 00eb | | Load_Encached Diana_Cache 03cb 18fa | | Execute Package,Field_Execute,Field_Number 0xfa 03cc 0145 | E | Execute Heap_Access,Diana_Tree_Kind 03cd 0b1e | | Execute_Immediate Case_Compare,0x1e 03ce 7006 |p | Jump_Nonzero 0x3d5 03cf 0b1c | | Execute_Immediate Case_Compare,0x1c 03d0 7007 |p | Jump_Nonzero 0x3d8 03d1 0f1f | | Execute_Immediate Equal,0x1f 03d2 7008 |p | Jump_Nonzero 0x3db 03d3 4804 |H | Short_Literal 0x4 03d4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 03d5 00d1 | | Pop_Control Pop_Count_1 03d6 4800 |H | Short_Literal 0x0 03d7 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 03d8 00d1 | | Pop_Control Pop_Count_1 03d9 4801 |H | Short_Literal 0x1 03da 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 03db 4802 |H | Short_Literal 0x2 03dc 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 03dd 0000 0000 | | .XXX[0x3] 03df 0000 | | 03e0 ; -------------------------------------------------------------------------------------- 03e0 ; SUBPROGRAM 03e0 ; -------------------------------------------------------------------------------------- 03e0 03e5 | | .CONST 0x03e5 ; Address of begin 03e1 0004 | | .CONST 0x0004 ; Address of exception handler 03e2 0002 | | .CONST 0x0002 ; Number of locals 03e3 INIT_03e0: 03e3 00da | | Load_Top At_Offset_2 03e4 8002 | | Call 0x0,0x2 03e5 BODY_03e0: 03e5 00d8 | | Load_Top At_Offset_0 03e6 0145 | E | Execute Heap_Access,Diana_Tree_Kind 03e7 0b12 | | Execute_Immediate Case_Compare,0x12 03e8 7008 |p | Jump_Nonzero 0x3f1 03e9 0f0d | | Execute_Immediate Equal,0xd 03ea 700c |p | Jump_Nonzero 0x3f7 03eb 0092 0ac0 | | Action Push_String_Extended,0xac0 ; "Element is not a Selected Component" 03ed e00a | | Load 0x0,0xa 03ee 8005 | | Call 0x0,0x5 03ef e006 | | Load 0x0,0x6 03f0 0257 | W | Execute Discrete,Raise 03f1 00d1 | | Pop_Control Pop_Count_1 03f2 00d8 | | Load_Top At_Offset_0 03f3 00eb | | Load_Encached Diana_Cache 03f4 18c0 | | Execute Package,Field_Execute,Field_Number 0xc0 03f5 8008 | | Call 0x0,0x8 03f6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 03f7 0092 0ac1 | | Action Push_String_Extended,0xac1 ; "Element is an Access object and has no selector" 03f9 e00a | | Load 0x0,0xa 03fa 8005 | | Call 0x0,0x5 03fb e006 | | Load 0x0,0x6 03fc 0257 | W | Execute Discrete,Raise 03fd 0000 0000 | | .XXX[0x3] 03ff 0000 | | 0400 ; -------------------------------------------------------------------------------------- 0400 ; SUBPROGRAM 0400 ; -------------------------------------------------------------------------------------- 0400 0404 | | .CONST 0x0404 ; Address of begin 0401 0004 | | .CONST 0x0004 ; Address of exception handler 0402 0002 | | .CONST 0x0002 ; Number of locals 0403 INIT_0400: 0403 00ec | | Load_Encached Diana_Tree_Cache 0404 BODY_0400: 0404 00db | | Load_Top At_Offset_3 0405 8002 | | Call 0x0,0x2 0406 0031 | 1 | Store_Top Heap_Access,At_Offset_1 0407 00d8 | | Load_Top At_Offset_0 0408 0145 | E | Execute Heap_Access,Diana_Tree_Kind 0409 0f12 | | Execute_Immediate Equal,0x12 040a 7006 |p | Jump_Nonzero 0x411 040b 0092 0ac0 | | Action Push_String_Extended,0xac0 ; "Element is not a Selected Component" 040d e00a | | Load 0x0,0xa 040e 8005 | | Call 0x0,0x5 040f e006 | | Load 0x0,0x6 0410 0257 | W | Execute Discrete,Raise 0411 4801 |H | Short_Literal 0x1 0412 00d9 | | Load_Top At_Offset_1 0413 e00e | | Load 0x0,0xe 0414 180e | | Execute Package,Field_Execute,Field_Number 0xe 0415 8008 | | Call 0x0,0x8 0416 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0417 0000 | | .XXX[0x1] 0418 ; -------------------------------------------------------------------------------------- 0418 ; SUBPROGRAM 0418 ; -------------------------------------------------------------------------------------- 0418 041c | | .CONST 0x041c ; Address of begin 0419 0004 | | .CONST 0x0004 ; Address of exception handler 041a 0002 | | .CONST 0x0002 ; Number of locals 041b INIT_0418: 041b 00ec | | Load_Encached Diana_Tree_Cache 041c BODY_0418: 041c 4801 |H | Short_Literal 0x1 041d e5ff | | Load 0x2,-0x1 041e 8002 | | Call 0x0,0x2 041f e00e | | Load 0x0,0xe 0420 180e | | Execute Package,Field_Execute,Field_Number 0xe 0421 0031 | 1 | Store_Top Heap_Access,At_Offset_1 0422 00d8 | | Load_Top At_Offset_0 0423 0145 | E | Execute Heap_Access,Diana_Tree_Kind 0424 0b1c | | Execute_Immediate Case_Compare,0x1c 0425 7008 |p | Jump_Nonzero 0x42e 0426 0f1e | | Execute_Immediate Equal,0x1e 0427 7007 |p | Jump_Nonzero 0x42f 0428 0092 0ac2 | | Action Push_String_Extended,0xac2 ; "Element is not a Discriminant or Component Selection" 042a e00a | | Load 0x0,0xa 042b 8005 | | Call 0x0,0x5 042c e006 | | Load 0x0,0x6 042d 0257 | W | Execute Discrete,Raise 042e 00d1 | | Pop_Control Pop_Count_1 042f 00d8 | | Load_Top At_Offset_0 0430 8008 | | Call 0x0,0x8 0431 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0432 0000 0000 | | .BLANK 0000[0x6] 0438 ; -------------------------------------------------------------------------------------- 0438 ; SUBPROGRAM 0438 ; -------------------------------------------------------------------------------------- 0438 043c | < | .CONST 0x043c ; Address of begin 0439 0004 | | .CONST 0x0004 ; Address of exception handler 043a 0002 | | .CONST 0x0002 ; Number of locals 043b INIT_0438: 043b 00ec | | Load_Encached Diana_Tree_Cache 043c BODY_0438: 043c 4801 |H | Short_Literal 0x1 043d e5ff | | Load 0x2,-0x1 043e 8002 | | Call 0x0,0x2 043f e00e | | Load 0x0,0xe 0440 180e | | Execute Package,Field_Execute,Field_Number 0xe 0441 0031 | 1 | Store_Top Heap_Access,At_Offset_1 0442 0092 0ac3 | | Action Push_String_Extended,0xac3 ; "a Task Entry Selection" 0444 481f |H | Short_Literal 0x1f 0445 00da | | Load_Top At_Offset_2 0446 8243 | C | Call 0x1,0x43 0447 00d8 | | Load_Top At_Offset_0 0448 8008 | | Call 0x0,0x8 0449 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 044a 0000 0000 | | .BLANK 0000[0x6] 0450 ; -------------------------------------------------------------------------------------- 0450 ; SUBPROGRAM 0450 ; -------------------------------------------------------------------------------------- 0450 0455 | U | .CONST 0x0455 ; Address of begin 0451 0004 | | .CONST 0x0004 ; Address of exception handler 0452 0002 | | .CONST 0x0002 ; Number of locals 0453 INIT_0450: 0453 00da | | Load_Top At_Offset_2 0454 8002 | | Call 0x0,0x2 0455 BODY_0450: 0455 0092 0ac4 | | Action Push_String_Extended,0xac4 ; "an Access Object Selection" 0457 480d |H | Short_Literal 0xd 0458 00da | | Load_Top At_Offset_2 0459 8243 | C | Call 0x1,0x43 045a 00d8 | | Load_Top At_Offset_0 045b 00eb | | Load_Encached Diana_Cache 045c 18fc | | Execute Package,Field_Execute,Field_Number 0xfc 045d e00f | | Load 0x0,0xf 045e 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 045f 8010 | | Call 0x0,0x10 0460 8008 | | Call 0x0,0x8 0461 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0462 0000 0000 | | .BLANK 0000[0x6] 0468 ; -------------------------------------------------------------------------------------- 0468 ; SUBPROGRAM 0468 ; -------------------------------------------------------------------------------------- 0468 046e | n | .CONST 0x046e ; Address of begin 0469 0004 | | .CONST 0x0004 ; Address of exception handler 046a 0003 | | .CONST 0x0003 ; Number of locals 046b INIT_0468: 046b 00da | | Load_Top At_Offset_2 046c 8002 | | Call 0x0,0x2 046d 00ec | | Load_Encached Diana_Tree_Cache 046e BODY_0468: 046e 00d9 | | Load_Top At_Offset_1 046f 0145 | E | Execute Heap_Access,Diana_Tree_Kind 0470 0f12 | | Execute_Immediate Equal,0x12 0471 7006 |p | Jump_Nonzero 0x478 0472 0092 0ac5 | | Action Push_String_Extended,0xac5 ; "Element is not an Expanded Name" 0474 e00a | | Load 0x0,0xa 0475 8005 | | Call 0x0,0x5 0476 e006 | | Load 0x0,0x6 0477 0257 | W | Execute Discrete,Raise 0478 e5ff | | Load 0x2,-0x1 0479 8002 | | Call 0x0,0x2 047a 00eb | | Load_Encached Diana_Cache 047b 18c0 | | Execute Package,Field_Execute,Field_Number 0xc0 047c 0031 | 1 | Store_Top Heap_Access,At_Offset_1 047d 4801 |H | Short_Literal 0x1 047e 00d9 | | Load_Top At_Offset_1 047f e00e | | Load 0x0,0xe 0480 180e | | Execute Package,Field_Execute,Field_Number 0xe 0481 8008 | | Call 0x0,0x8 0482 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0483 0000 0000 | | .BLANK 0000[0x5] 0488 ; -------------------------------------------------------------------------------------- 0488 ; SUBPROGRAM 0488 ; -------------------------------------------------------------------------------------- 0488 048b | | .CONST 0x048b ; Address of begin 0489 0004 | | .CONST 0x0004 ; Address of exception handler 048a 0001 | | .CONST 0x0001 ; Number of locals 048b BODY_0488: 048b INIT_0488: 048b 4607 |F | Jump_Case 0x8 048c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 048d 7807 |x | Jump 0x495 ; case 0x1 048e 780a |x | Jump 0x499 ; case 0x2 048f 780e |x | Jump 0x49e ; case 0x3 0490 7811 |x | Jump 0x4a2 ; case 0x4 0491 7812 |x | Jump 0x4a4 ; case 0x5 0492 7813 |x | Jump 0x4a6 ; case 0x6 0493 7816 |x | Jump 0x4aa ; case 0x7 0494 4302 |C | .XXX[0x1] 0495 00da | | Load_Top At_Offset_2 0496 0091 0a83 | | Action Push_String_Extended_Indexed,0xa83 ; "ADDRESS_ATTRIBUTE" 0498 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0499 00db | | Load_Top At_Offset_3 049a 00db | | Load_Top At_Offset_3 049b 00e0 | | Load_Encached Standard_Cache 049c 181b | | Execute Package,Field_Execute,Field_Number 0x1b 049d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 049e 00da | | Load_Top At_Offset_2 049f 00e0 | | Load_Encached Standard_Cache 04a0 181c | | Execute Package,Field_Execute,Field_Number 0x1c 04a1 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 04a2 00db | | Load_Top At_Offset_3 04a3 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 04a4 00db | | Load_Top At_Offset_3 04a5 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 04a6 e222 | " | Load 0x1,0x22 04a7 00dc | | Load_Top At_Offset_4 04a8 0267 | g | Execute Discrete,Predecessor 04a9 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 04aa e222 | " | Load 0x1,0x22 04ab 00dc | | Load_Top At_Offset_4 04ac 0268 | h | Execute Discrete,Successor 04ad 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 04ae 0000 0000 | | .XXX[0x2] 04b0 ; -------------------------------------------------------------------------------------- 04b0 ; SUBPROGRAM 04b0 ; -------------------------------------------------------------------------------------- 04b0 04b6 | | .CONST 0x04b6 ; Address of begin 04b1 04bd | | .CONST 0x04bd ; Address of exception handler 04b2 0002 | | .CONST 0x0002 ; Number of locals 04b3 INIT_04b0: 04b3 00da | | Load_Top At_Offset_2 04b4 8225 | % | Call 0x1,0x25 04b5 8011 | | Call 0x0,0x11 04b6 BODY_04b0: 04b6 00d8 | | Load_Top At_Offset_0 04b7 0092 0ac6 | | Action Push_String_Extended,0xac6 ; "_Attribute" 04b9 01cc | | Execute Vector,Catenate 04ba e222 | " | Load 0x1,0x22 04bb 1c02 | | Execute_Immediate Run_Utility,0x2 04bc 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 04bd TRAP_04b0: 04bd 010e | | Execute Exception,Is_Constraint_Error 04be 6802 |h | Jump_Zero 0x4c1 04bf 4828 |H( | Short_Literal 0x28 04c0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 04c1 0100 | | Execute Exception,Raise 04c2 0000 0000 | | .BLANK 0000[0x6] 04c8 ; -------------------------------------------------------------------------------------- 04c8 ; SUBPROGRAM 04c8 ; -------------------------------------------------------------------------------------- 04c8 04cb | | .CONST 0x04cb ; Address of begin 04c9 0004 | | .CONST 0x0004 ; Address of exception handler 04ca 0001 | | .CONST 0x0001 ; Number of locals 04cb BODY_04c8: 04cb INIT_04c8: 04cb 00da | | Load_Top At_Offset_2 04cc 8225 | % | Call 0x1,0x25 04cd 8011 | | Call 0x0,0x11 04ce 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 04cf 0000 | | .XXX[0x1] 04d0 ; -------------------------------------------------------------------------------------- 04d0 ; SUBPROGRAM 04d0 ; -------------------------------------------------------------------------------------- 04d0 04d5 | | .CONST 0x04d5 ; Address of begin 04d1 0004 | | .CONST 0x0004 ; Address of exception handler 04d2 0002 | | .CONST 0x0002 ; Number of locals 04d3 INIT_04d0: 04d3 00da | | Load_Top At_Offset_2 04d4 8002 | | Call 0x0,0x2 04d5 BODY_04d0: 04d5 00d8 | | Load_Top At_Offset_0 04d6 0145 | E | Execute Heap_Access,Diana_Tree_Kind 04d7 0b0e | | Execute_Immediate Case_Compare,0xe 04d8 7008 |p | Jump_Nonzero 0x4e1 04d9 0f0f | | Execute_Immediate Equal,0xf 04da 700c |p | Jump_Nonzero 0x4e7 04db 0092 0ac7 | | Action Push_String_Extended,0xac7 ; "Element is not an Attribute or Attribute call" 04dd e00a | | Load 0x0,0xa 04de 8005 | | Call 0x0,0x5 04df e006 | | Load 0x0,0x6 04e0 0257 | W | Execute Discrete,Raise 04e1 00d1 | | Pop_Control Pop_Count_1 04e2 00d8 | | Load_Top At_Offset_0 04e3 00eb | | Load_Encached Diana_Cache 04e4 18cf | | Execute Package,Field_Execute,Field_Number 0xcf 04e5 8008 | | Call 0x0,0x8 04e6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 04e7 00d8 | | Load_Top At_Offset_0 04e8 00eb | | Load_Encached Diana_Cache 04e9 18d4 | | Execute Package,Field_Execute,Field_Number 0xd4 04ea 00eb | | Load_Encached Diana_Cache 04eb 18cf | | Execute Package,Field_Execute,Field_Number 0xcf 04ec 8008 | | Call 0x0,0x8 04ed 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 04ee 0000 0000 | | .XXX[0x2] 04f0 ; -------------------------------------------------------------------------------------- 04f0 ; SUBPROGRAM 04f0 ; -------------------------------------------------------------------------------------- 04f0 04f5 | | .CONST 0x04f5 ; Address of begin 04f1 0004 | | .CONST 0x0004 ; Address of exception handler 04f2 0002 | | .CONST 0x0002 ; Number of locals 04f3 INIT_04f0: 04f3 00da | | Load_Top At_Offset_2 04f4 8002 | | Call 0x0,0x2 04f5 BODY_04f0: 04f5 00d8 | | Load_Top At_Offset_0 04f6 0145 | E | Execute Heap_Access,Diana_Tree_Kind 04f7 0b0e | | Execute_Immediate Case_Compare,0xe 04f8 7008 |p | Jump_Nonzero 0x501 04f9 0f0f | | Execute_Immediate Equal,0xf 04fa 7009 |p | Jump_Nonzero 0x504 04fb 0092 0ac8 | | Action Push_String_Extended,0xac8 ; "Element is not an Attribute call" 04fd e00a | | Load 0x0,0xa 04fe 8005 | | Call 0x0,0x5 04ff e006 | | Load 0x0,0x6 0500 0257 | W | Execute Discrete,Raise 0501 00d1 | | Pop_Control Pop_Count_1 0502 e009 | | Load 0x0,0x9 0503 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0504 00d8 | | Load_Top At_Offset_0 0505 00eb | | Load_Encached Diana_Cache 0506 18c5 | | Execute Package,Field_Execute,Field_Number 0xc5 0507 8008 | | Call 0x0,0x8 0508 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0509 0000 0000 | | .BLANK 0000[0x7] 0510 ; -------------------------------------------------------------------------------------- 0510 ; SUBPROGRAM 0510 ; -------------------------------------------------------------------------------------- 0510 0515 | | .CONST 0x0515 ; Address of begin 0511 0004 | | .CONST 0x0004 ; Address of exception handler 0512 0002 | | .CONST 0x0002 ; Number of locals 0513 INIT_0510: 0513 00da | | Load_Top At_Offset_2 0514 8002 | | Call 0x0,0x2 0515 BODY_0510: 0515 00d8 | | Load_Top At_Offset_0 0516 0145 | E | Execute Heap_Access,Diana_Tree_Kind 0517 00d8 | | Load_Top At_Offset_0 0518 0d08 | | Execute_Immediate Less,0x8 0519 7012 |p | Jump_Nonzero 0x52c 051a 00d8 | | Load_Top At_Offset_0 051b 0c17 | | Execute_Immediate Greater_Equal,0x17 051c 700a |p | Jump_Nonzero 0x527 051d 0b08 | | Execute_Immediate Case_Compare,0x8 051e 7010 |p | Jump_Nonzero 0x52f 051f 00d8 | | Load_Top At_Offset_0 0520 480b |H | Short_Literal 0xb 0521 480c |H | Short_Literal 0xc 0522 0262 | b | Execute Discrete,In_Range 0523 700b |p | Jump_Nonzero 0x52f 0524 0f16 | | Execute_Immediate Equal,0x16 0525 700c |p | Jump_Nonzero 0x532 0526 7806 |x | Jump 0x52d 0527 4831 |H1 | Short_Literal 0x31 0528 4832 |H2 | Short_Literal 0x32 0529 0262 | b | Execute Discrete,In_Range 052a 7005 |p | Jump_Nonzero 0x530 052b 7801 |x | Jump 0x52d 052c 00d1 | | Pop_Control Pop_Count_1 052d 4800 |H | Short_Literal 0x0 052e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 052f 00d1 | | Pop_Control Pop_Count_1 0530 4801 |H | Short_Literal 0x1 0531 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0532 00d8 | | Load_Top At_Offset_0 0533 00eb | | Load_Encached Diana_Cache 0534 18fa | | Execute Package,Field_Execute,Field_Number 0xfa 0535 0145 | E | Execute Heap_Access,Diana_Tree_Kind 0536 0f31 | 1 | Execute_Immediate Equal,0x31 0537 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0538 ; -------------------------------------------------------------------------------------- 0538 ; SUBPROGRAM 0538 ; -------------------------------------------------------------------------------------- 0538 053d | = | .CONST 0x053d ; Address of begin 0539 0004 | | .CONST 0x0004 ; Address of exception handler 053a 0002 | | .CONST 0x0002 ; Number of locals 053b INIT_0538: 053b 00da | | Load_Top At_Offset_2 053c 8002 | | Call 0x0,0x2 053d BODY_0538: 053d 00d8 | | Load_Top At_Offset_0 053e 0145 | E | Execute Heap_Access,Diana_Tree_Kind 053f 00d8 | | Load_Top At_Offset_0 0540 0d08 | | Execute_Immediate Less,0x8 0541 7012 |p | Jump_Nonzero 0x554 0542 00d8 | | Load_Top At_Offset_0 0543 0c17 | | Execute_Immediate Greater_Equal,0x17 0544 700a |p | Jump_Nonzero 0x54f 0545 0b08 | | Execute_Immediate Case_Compare,0x8 0546 700f |p | Jump_Nonzero 0x556 0547 00d8 | | Load_Top At_Offset_0 0548 0c0c | | Execute_Immediate Greater_Equal,0xc 0549 680a |h | Jump_Zero 0x554 054a 480d |H | Short_Literal 0xd 054b 4815 |H | Short_Literal 0x15 054c 0262 | b | Execute Discrete,In_Range 054d 7023 |p# | Jump_Nonzero 0x571 054e 781c |x | Jump 0x56b 054f 4831 |H1 | Short_Literal 0x31 0550 4832 |H2 | Short_Literal 0x32 0551 0262 | b | Execute Discrete,In_Range 0552 7014 |p | Jump_Nonzero 0x567 0553 781d |x | Jump 0x571 0554 00d1 | | Pop_Control Pop_Count_1 0555 781b |x | Jump 0x571 0556 00d1 | | Pop_Control Pop_Count_1 0557 00d8 | | Load_Top At_Offset_0 0558 00eb | | Load_Encached Diana_Cache 0559 18f5 | | Execute Package,Field_Execute,Field_Number 0xf5 055a 00eb | | Load_Encached Diana_Cache 055b 1898 | | Execute Package,Field_Execute,Field_Number 0x98 055c 4801 |H | Short_Literal 0x1 055d 4803 |H | Short_Literal 0x3 055e 0262 | b | Execute Discrete,In_Range 055f 7011 |p | Jump_Nonzero 0x571 0560 7800 |x | Jump 0x561 0561 00d8 | | Load_Top At_Offset_0 0562 00eb | | Load_Encached Diana_Cache 0563 18f5 | | Execute Package,Field_Execute,Field_Number 0xf5 0564 00eb | | Load_Encached Diana_Cache 0565 189f | | Execute Package,Field_Execute,Field_Number 0x9f 0566 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0567 00d8 | | Load_Top At_Offset_0 0568 00eb | | Load_Encached Diana_Cache 0569 18ef | | Execute Package,Field_Execute,Field_Number 0xef 056a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 056b 00d8 | | Load_Top At_Offset_0 056c 00eb | | Load_Encached Diana_Cache 056d 18fa | | Execute Package,Field_Execute,Field_Number 0xfa 056e 00eb | | Load_Encached Diana_Cache 056f 18ef | | Execute Package,Field_Execute,Field_Number 0xef 0570 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0571 0092 0ac9 | | Action Push_String_Extended,0xac9 ; "Element is not an Enumeration or Character literal" 0573 e00a | | Load 0x0,0xa 0574 8005 | | Call 0x0,0x5 0575 e006 | | Load 0x0,0x6 0576 0257 | W | Execute Discrete,Raise 0577 0000 | | .XXX[0x1] 0578 ; -------------------------------------------------------------------------------------- 0578 ; SUBPROGRAM 0578 ; -------------------------------------------------------------------------------------- 0578 057d | } | .CONST 0x057d ; Address of begin 0579 0004 | | .CONST 0x0004 ; Address of exception handler 057a 0002 | | .CONST 0x0002 ; Number of locals 057b INIT_0578: 057b 00da | | Load_Top At_Offset_2 057c 8002 | | Call 0x0,0x2 057d BODY_0578: 057d 00d8 | | Load_Top At_Offset_0 057e 0145 | E | Execute Heap_Access,Diana_Tree_Kind 057f 00d8 | | Load_Top At_Offset_0 0580 0d08 | | Execute_Immediate Less,0x8 0581 7012 |p | Jump_Nonzero 0x594 0582 00d8 | | Load_Top At_Offset_0 0583 0c17 | | Execute_Immediate Greater_Equal,0x17 0584 700a |p | Jump_Nonzero 0x58f 0585 0b08 | | Execute_Immediate Case_Compare,0x8 0586 700f |p | Jump_Nonzero 0x596 0587 00d8 | | Load_Top At_Offset_0 0588 0c0c | | Execute_Immediate Greater_Equal,0xc 0589 680a |h | Jump_Zero 0x594 058a 480d |H | Short_Literal 0xd 058b 4815 |H | Short_Literal 0x15 058c 0262 | b | Execute Discrete,In_Range 058d 7023 |p# | Jump_Nonzero 0x5b1 058e 781c |x | Jump 0x5ab 058f 4831 |H1 | Short_Literal 0x31 0590 4832 |H2 | Short_Literal 0x32 0591 0262 | b | Execute Discrete,In_Range 0592 7014 |p | Jump_Nonzero 0x5a7 0593 781d |x | Jump 0x5b1 0594 00d1 | | Pop_Control Pop_Count_1 0595 781b |x | Jump 0x5b1 0596 00d1 | | Pop_Control Pop_Count_1 0597 00d8 | | Load_Top At_Offset_0 0598 00eb | | Load_Encached Diana_Cache 0599 18f5 | | Execute Package,Field_Execute,Field_Number 0xf5 059a 00eb | | Load_Encached Diana_Cache 059b 1898 | | Execute Package,Field_Execute,Field_Number 0x98 059c 4801 |H | Short_Literal 0x1 059d 4803 |H | Short_Literal 0x3 059e 0262 | b | Execute Discrete,In_Range 059f 7011 |p | Jump_Nonzero 0x5b1 05a0 7800 |x | Jump 0x5a1 05a1 00d8 | | Load_Top At_Offset_0 05a2 00eb | | Load_Encached Diana_Cache 05a3 18f5 | | Execute Package,Field_Execute,Field_Number 0xf5 05a4 00eb | | Load_Encached Diana_Cache 05a5 189f | | Execute Package,Field_Execute,Field_Number 0x9f 05a6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 05a7 00d8 | | Load_Top At_Offset_0 05a8 00eb | | Load_Encached Diana_Cache 05a9 18f0 | | Execute Package,Field_Execute,Field_Number 0xf0 05aa 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 05ab 00d8 | | Load_Top At_Offset_0 05ac 00eb | | Load_Encached Diana_Cache 05ad 18fa | | Execute Package,Field_Execute,Field_Number 0xfa 05ae 00eb | | Load_Encached Diana_Cache 05af 18f0 | | Execute Package,Field_Execute,Field_Number 0xf0 05b0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 05b1 0092 0ac9 | | Action Push_String_Extended,0xac9 ; "Element is not an Enumeration or Character literal" 05b3 e00a | | Load 0x0,0xa 05b4 8005 | | Call 0x0,0x5 05b5 e006 | | Load 0x0,0x6 05b6 0257 | W | Execute Discrete,Raise 05b7 0000 | | .XXX[0x1] 05b8 ; -------------------------------------------------------------------------------------- 05b8 ; SUBPROGRAM 05b8 ; -------------------------------------------------------------------------------------- 05b8 05bd | | .CONST 0x05bd ; Address of begin 05b9 0004 | | .CONST 0x0004 ; Address of exception handler 05ba 0002 | | .CONST 0x0002 ; Number of locals 05bb INIT_05b8: 05bb 00da | | Load_Top At_Offset_2 05bc 8002 | | Call 0x0,0x2 05bd BODY_05b8: 05bd 00d8 | | Load_Top At_Offset_0 05be 0145 | E | Execute Heap_Access,Diana_Tree_Kind 05bf 0b0c | | Execute_Immediate Case_Compare,0xc 05c0 7008 |p | Jump_Nonzero 0x5c9 05c1 0f16 | | Execute_Immediate Equal,0x16 05c2 7007 |p | Jump_Nonzero 0x5ca 05c3 0092 0ac9 | | Action Push_String_Extended,0xac9 ; "Element is not an Enumeration or Character literal" 05c5 e00a | | Load 0x0,0xa 05c6 8005 | | Call 0x0,0x5 05c7 e006 | | Load 0x0,0x6 05c8 0257 | W | Execute Discrete,Raise 05c9 00d1 | | Pop_Control Pop_Count_1 05ca 4800 |H | Short_Literal 0x0 05cb 00d9 | | Load_Top At_Offset_1 05cc e00e | | Load 0x0,0xe 05cd 180e | | Execute Package,Field_Execute,Field_Number 0xe 05ce 8010 | | Call 0x0,0x10 05cf 8008 | | Call 0x0,0x8 05d0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 05d1 0000 0000 | | .BLANK 0000[0x7] 05d8 ; -------------------------------------------------------------------------------------- 05d8 ; SUBPROGRAM 05d8 ; -------------------------------------------------------------------------------------- 05d8 05de | | .CONST 0x05de ; Address of begin 05d9 0004 | | .CONST 0x0004 ; Address of exception handler 05da 0003 | | .CONST 0x0003 ; Number of locals 05db INIT_05d8: 05db 00da | | Load_Top At_Offset_2 05dc 8002 | | Call 0x0,0x2 05dd 00ec | | Load_Encached Diana_Tree_Cache 05de BODY_05d8: 05de 0092 0aca | | Action Push_String_Extended,0xaca ; "an Aggregate" 05e0 4801 |H | Short_Literal 0x1 05e1 00db | | Load_Top At_Offset_3 05e2 8243 | C | Call 0x1,0x43 05e3 e5fe | | Load 0x2,-0x2 05e4 680c |h | Jump_Zero 0x5f1 05e5 00d9 | | Load_Top At_Offset_1 05e6 490f |I | Short_Literal 0x10f 05e7 00eb | | Load_Encached Diana_Cache 05e8 0096 | | Execute Package,Entry 05e9 0031 | 1 | Store_Top Heap_Access,At_Offset_1 05ea 00d8 | | Load_Top At_Offset_0 05eb 6805 |h | Jump_Zero 0x5f1 05ec 00d8 | | Load_Top At_Offset_0 05ed 00eb | | Load_Encached Diana_Cache 05ee 18ed | | Execute Package,Field_Execute,Field_Number 0xed 05ef 8012 | | Call 0x0,0x12 05f0 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 05f1 00d9 | | Load_Top At_Offset_1 05f2 00eb | | Load_Encached Diana_Cache 05f3 1889 | | Execute Package,Field_Execute,Field_Number 0x89 05f4 800d | | Call 0x0,0xd 05f5 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 05f6 0000 0000 | | .XXX[0x2] 05f8 ; -------------------------------------------------------------------------------------- 05f8 ; SUBPROGRAM 05f8 ; -------------------------------------------------------------------------------------- 05f8 05fd | | .CONST 0x05fd ; Address of begin 05f9 0004 | | .CONST 0x0004 ; Address of exception handler 05fa 0002 | | .CONST 0x0002 ; Number of locals 05fb INIT_05f8: 05fb 00da | | Load_Top At_Offset_2 05fc 8002 | | Call 0x0,0x2 05fd BODY_05f8: 05fd 00d8 | | Load_Top At_Offset_0 05fe 0145 | E | Execute Heap_Access,Diana_Tree_Kind 05ff 0fa7 | | Execute_Immediate Equal,-0x59 0600 6807 |h | Jump_Zero 0x608 0601 00d8 | | Load_Top At_Offset_0 0602 00eb | | Load_Encached Diana_Cache 0603 18b7 | | Execute Package,Field_Execute,Field_Number 0xb7 0604 00eb | | Load_Encached Diana_Cache 0605 1889 | | Execute Package,Field_Execute,Field_Number 0x89 0606 800d | | Call 0x0,0xd 0607 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0608 e013 | | Load 0x0,0x13 0609 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 060a 0000 0000 | | .BLANK 0000[0x6] 0610 ; -------------------------------------------------------------------------------------- 0610 ; SUBPROGRAM 0610 ; -------------------------------------------------------------------------------------- 0610 0615 | | .CONST 0x0615 ; Address of begin 0611 0004 | | .CONST 0x0004 ; Address of exception handler 0612 0002 | | .CONST 0x0002 ; Number of locals 0613 INIT_0610: 0613 00da | | Load_Top At_Offset_2 0614 8002 | | Call 0x0,0x2 0615 BODY_0610: 0615 00d8 | | Load_Top At_Offset_0 0616 0145 | E | Execute Heap_Access,Diana_Tree_Kind 0617 0fa7 | | Execute_Immediate Equal,-0x59 0618 6805 |h | Jump_Zero 0x61e 0619 00d8 | | Load_Top At_Offset_0 061a 00eb | | Load_Encached Diana_Cache 061b 18c5 | | Execute Package,Field_Execute,Field_Number 0xc5 061c 8008 | | Call 0x0,0x8 061d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 061e 00db | | Load_Top At_Offset_3 061f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0620 ; -------------------------------------------------------------------------------------- 0620 ; SUBPROGRAM 0620 ; -------------------------------------------------------------------------------------- 0620 0626 | & | .CONST 0x0626 ; Address of begin 0621 0004 | | .CONST 0x0004 ; Address of exception handler 0622 0003 | | .CONST 0x0003 ; Number of locals 0623 INIT_0620: 0623 00da | | Load_Top At_Offset_2 0624 8002 | | Call 0x0,0x2 0625 00ec | | Load_Encached Diana_Tree_Cache 0626 BODY_0620: 0626 0092 0aca | | Action Push_String_Extended,0xaca ; "an Aggregate" 0628 4801 |H | Short_Literal 0x1 0629 00db | | Load_Top At_Offset_3 062a 8243 | C | Call 0x1,0x43 062b 00d9 | | Load_Top At_Offset_1 062c 00eb | | Load_Encached Diana_Cache 062d 18f9 | | Execute Package,Field_Execute,Field_Number 0xf9 062e 0031 | 1 | Store_Top Heap_Access,At_Offset_1 062f 00d8 | | Load_Top At_Offset_0 0630 7006 |p | Jump_Nonzero 0x637 0631 0092 0acb | | Action Push_String_Extended,0xacb ; "Element is not an Array Aggregate" 0633 e00a | | Load 0x0,0xa 0634 8005 | | Call 0x0,0x5 0635 e006 | | Load 0x0,0x6 0636 0257 | W | Execute Discrete,Raise 0637 00d8 | | Load_Top At_Offset_0 0638 8008 | | Call 0x0,0x8 0639 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 063a 0000 0000 | | .BLANK 0000[0x6] 0640 ; -------------------------------------------------------------------------------------- 0640 ; SUBPROGRAM 0640 ; -------------------------------------------------------------------------------------- 0640 0645 | E | .CONST 0x0645 ; Address of begin 0641 0004 | | .CONST 0x0004 ; Address of exception handler 0642 0002 | | .CONST 0x0002 ; Number of locals 0643 INIT_0640: 0643 00da | | Load_Top At_Offset_2 0644 8002 | | Call 0x0,0x2 0645 BODY_0640: 0645 00d8 | | Load_Top At_Offset_0 0646 0145 | E | Execute Heap_Access,Diana_Tree_Kind 0647 0b05 | | Execute_Immediate Case_Compare,0x5 0648 7008 |p | Jump_Nonzero 0x651 0649 0f0a | | Execute_Immediate Equal,0xa 064a 7007 |p | Jump_Nonzero 0x652 064b 0092 0acc | | Action Push_String_Extended,0xacc ; "Element is not a Type Conversion or Qualified Expression" 064d e00a | | Load 0x0,0xa 064e 8005 | | Call 0x0,0x5 064f e006 | | Load 0x0,0x6 0650 0257 | W | Execute Discrete,Raise 0651 00d1 | | Pop_Control Pop_Count_1 0652 00d8 | | Load_Top At_Offset_0 0653 00eb | | Load_Encached Diana_Cache 0654 18d4 | | Execute Package,Field_Execute,Field_Number 0xd4 0655 8008 | | Call 0x0,0x8 0656 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0657 0000 | | .XXX[0x1] 0658 ; -------------------------------------------------------------------------------------- 0658 ; SUBPROGRAM 0658 ; -------------------------------------------------------------------------------------- 0658 065d | ] | .CONST 0x065d ; Address of begin 0659 0004 | | .CONST 0x0004 ; Address of exception handler 065a 0002 | | .CONST 0x0002 ; Number of locals 065b INIT_0658: 065b 00da | | Load_Top At_Offset_2 065c 8002 | | Call 0x0,0x2 065d BODY_0658: 065d 00d8 | | Load_Top At_Offset_0 065e 0145 | E | Execute Heap_Access,Diana_Tree_Kind 065f 0b05 | | Execute_Immediate Case_Compare,0x5 0660 7008 |p | Jump_Nonzero 0x669 0661 0f0a | | Execute_Immediate Equal,0xa 0662 7007 |p | Jump_Nonzero 0x66a 0663 0092 0acc | | Action Push_String_Extended,0xacc ; "Element is not a Type Conversion or Qualified Expression" 0665 e00a | | Load 0x0,0xa 0666 8005 | | Call 0x0,0x5 0667 e006 | | Load 0x0,0x6 0668 0257 | W | Execute Discrete,Raise 0669 00d1 | | Pop_Control Pop_Count_1 066a 00d8 | | Load_Top At_Offset_0 066b 00eb | | Load_Encached Diana_Cache 066c 18c5 | | Execute Package,Field_Execute,Field_Number 0xc5 066d 8008 | | Call 0x0,0x8 066e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 066f 0000 | | .XXX[0x1] 0670 ; -------------------------------------------------------------------------------------- 0670 ; SUBPROGRAM 0670 ; -------------------------------------------------------------------------------------- 0670 0673 | s | .CONST 0x0673 ; Address of begin 0671 0004 | | .CONST 0x0004 ; Address of exception handler 0672 0001 | | .CONST 0x0001 ; Number of locals 0673 BODY_0670: 0673 INIT_0670: 0673 4607 |F | Jump_Case 0x8 0674 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 0675 7807 |x | Jump 0x67d ; case 0x1 0676 780a |x | Jump 0x681 ; case 0x2 0677 780e |x | Jump 0x686 ; case 0x3 0678 7811 |x | Jump 0x68a ; case 0x4 0679 7812 |x | Jump 0x68c ; case 0x5 067a 7813 |x | Jump 0x68e ; case 0x6 067b 7816 |x | Jump 0x692 ; case 0x7 067c 4302 |C | .XXX[0x1] 067d 00da | | Load_Top At_Offset_2 067e 0091 0aac | | Action Push_String_Extended_Indexed,0xaac ; "ALLOCATION_FROM_SUBTYPE" 0680 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0681 00db | | Load_Top At_Offset_3 0682 00db | | Load_Top At_Offset_3 0683 00e0 | | Load_Encached Standard_Cache 0684 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0685 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0686 00da | | Load_Top At_Offset_2 0687 00e0 | | Load_Encached Standard_Cache 0688 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0689 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 068a 00db | | Load_Top At_Offset_3 068b 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 068c 00db | | Load_Top At_Offset_3 068d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 068e e231 | 1 | Load 0x1,0x31 068f 00dc | | Load_Top At_Offset_4 0690 0267 | g | Execute Discrete,Predecessor 0691 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0692 e231 | 1 | Load 0x1,0x31 0693 00dc | | Load_Top At_Offset_4 0694 0268 | h | Execute Discrete,Successor 0695 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0696 0000 0000 | | .XXX[0x2] 0698 ; -------------------------------------------------------------------------------------- 0698 ; SUBPROGRAM 0698 ; -------------------------------------------------------------------------------------- 0698 069d | | .CONST 0x069d ; Address of begin 0699 0004 | | .CONST 0x0004 ; Address of exception handler 069a 0002 | | .CONST 0x0002 ; Number of locals 069b INIT_0698: 069b 00da | | Load_Top At_Offset_2 069c 8002 | | Call 0x0,0x2 069d BODY_0698: 069d 0092 0acd | | Action Push_String_Extended,0xacd ; "an Allocator" 069f 4803 |H | Short_Literal 0x3 06a0 00da | | Load_Top At_Offset_2 06a1 8243 | C | Call 0x1,0x43 06a2 00d8 | | Load_Top At_Offset_0 06a3 00eb | | Load_Encached Diana_Cache 06a4 18c8 | | Execute Package,Field_Execute,Field_Number 0xc8 06a5 0145 | E | Execute Heap_Access,Diana_Tree_Kind 06a6 0b66 | f | Execute_Immediate Case_Compare,0x66 06a7 7003 |p | Jump_Nonzero 0x6ab 06a8 0f0a | | Execute_Immediate Equal,0xa 06a9 7004 |p | Jump_Nonzero 0x6ae 06aa 08e2 | | Execute_Immediate Raise,0xe2 06ab 00d1 | | Pop_Control Pop_Count_1 06ac 4800 |H | Short_Literal 0x0 06ad 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 06ae 4801 |H | Short_Literal 0x1 06af 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 06b0 ; -------------------------------------------------------------------------------------- 06b0 ; SUBPROGRAM 06b0 ; -------------------------------------------------------------------------------------- 06b0 06b6 | | .CONST 0x06b6 ; Address of begin 06b1 0004 | | .CONST 0x0004 ; Address of exception handler 06b2 0003 | | .CONST 0x0003 ; Number of locals 06b3 INIT_06b0: 06b3 00da | | Load_Top At_Offset_2 06b4 8002 | | Call 0x0,0x2 06b5 00ec | | Load_Encached Diana_Tree_Cache 06b6 BODY_06b0: 06b6 0092 0acd | | Action Push_String_Extended,0xacd ; "an Allocator" 06b8 4803 |H | Short_Literal 0x3 06b9 00db | | Load_Top At_Offset_3 06ba 8243 | C | Call 0x1,0x43 06bb 00d9 | | Load_Top At_Offset_1 06bc 00eb | | Load_Encached Diana_Cache 06bd 18c8 | | Execute Package,Field_Execute,Field_Number 0xc8 06be 0031 | 1 | Store_Top Heap_Access,At_Offset_1 06bf 00d8 | | Load_Top At_Offset_0 06c0 0145 | E | Execute Heap_Access,Diana_Tree_Kind 06c1 0f66 | f | Execute_Immediate Equal,0x66 06c2 7006 |p | Jump_Nonzero 0x6c9 06c3 0092 0ace | | Action Push_String_Extended,0xace ; "Element is not an Allocation from a Subtype" 06c5 e00a | | Load 0x0,0xa 06c6 8005 | | Call 0x0,0x5 06c7 e006 | | Load 0x0,0x6 06c8 0257 | W | Execute Discrete,Raise 06c9 00d8 | | Load_Top At_Offset_0 06ca 8008 | | Call 0x0,0x8 06cb 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 06cc 0000 0000 | | .BLANK 0000[0x4] 06d0 ; -------------------------------------------------------------------------------------- 06d0 ; SUBPROGRAM 06d0 ; -------------------------------------------------------------------------------------- 06d0 06d6 | | .CONST 0x06d6 ; Address of begin 06d1 0004 | | .CONST 0x0004 ; Address of exception handler 06d2 0003 | | .CONST 0x0003 ; Number of locals 06d3 INIT_06d0: 06d3 00da | | Load_Top At_Offset_2 06d4 8002 | | Call 0x0,0x2 06d5 00ec | | Load_Encached Diana_Tree_Cache 06d6 BODY_06d0: 06d6 0092 0acd | | Action Push_String_Extended,0xacd ; "an Allocator" 06d8 4803 |H | Short_Literal 0x3 06d9 00db | | Load_Top At_Offset_3 06da 8243 | C | Call 0x1,0x43 06db 00d9 | | Load_Top At_Offset_1 06dc 00eb | | Load_Encached Diana_Cache 06dd 18c8 | | Execute Package,Field_Execute,Field_Number 0xc8 06de 0031 | 1 | Store_Top Heap_Access,At_Offset_1 06df 00d8 | | Load_Top At_Offset_0 06e0 0145 | E | Execute Heap_Access,Diana_Tree_Kind 06e1 0f0a | | Execute_Immediate Equal,0xa 06e2 7006 |p | Jump_Nonzero 0x6e9 06e3 0092 0acf | | Action Push_String_Extended,0xacf ; "Element is not an Allocation from a Qualified Expression" 06e5 e00a | | Load 0x0,0xa 06e6 8005 | | Call 0x0,0x5 06e7 e006 | | Load 0x0,0x6 06e8 0257 | W | Execute Discrete,Raise 06e9 00d8 | | Load_Top At_Offset_0 06ea 8008 | | Call 0x0,0x8 06eb 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 06ec 0000 0000 | | .BLANK 0000[0x4] 06f0 ; -------------------------------------------------------------------------------------- 06f0 ; SUBPROGRAM 06f0 ; -------------------------------------------------------------------------------------- 06f0 06f3 | | .CONST 0x06f3 ; Address of begin 06f1 0004 | | .CONST 0x0004 ; Address of exception handler 06f2 0001 | | .CONST 0x0001 ; Number of locals 06f3 BODY_06f0: 06f3 INIT_06f0: 06f3 4607 |F | Jump_Case 0x8 06f4 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 06f5 7807 |x | Jump 0x6fd ; case 0x1 06f6 780a |x | Jump 0x701 ; case 0x2 06f7 780e |x | Jump 0x706 ; case 0x3 06f8 7811 |x | Jump 0x70a ; case 0x4 06f9 7812 |x | Jump 0x70c ; case 0x5 06fa 7813 |x | Jump 0x70e ; case 0x6 06fb 7816 |x | Jump 0x712 ; case 0x7 06fc 4302 |C | .XXX[0x1] 06fd 00da | | Load_Top At_Offset_2 06fe 0091 0aae | | Action Push_String_Extended_Indexed,0xaae ; "A_PARENTHESIZED_EXPRESSION" 0700 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0701 00db | | Load_Top At_Offset_3 0702 00db | | Load_Top At_Offset_3 0703 00e0 | | Load_Encached Standard_Cache 0704 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0705 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0706 00da | | Load_Top At_Offset_2 0707 00e0 | | Load_Encached Standard_Cache 0708 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0709 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 070a 00db | | Load_Top At_Offset_3 070b 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 070c 00db | | Load_Top At_Offset_3 070d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 070e e235 | 5 | Load 0x1,0x35 070f 00dc | | Load_Top At_Offset_4 0710 0267 | g | Execute Discrete,Predecessor 0711 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0712 e235 | 5 | Load 0x1,0x35 0713 00dc | | Load_Top At_Offset_4 0714 0268 | h | Execute Discrete,Successor 0715 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0716 0000 0000 | | .XXX[0x2] 0718 ; -------------------------------------------------------------------------------------- 0718 ; SUBPROGRAM 0718 ; -------------------------------------------------------------------------------------- 0718 071d | | .CONST 0x071d ; Address of begin 0719 0004 | | .CONST 0x0004 ; Address of exception handler 071a 0002 | | .CONST 0x0002 ; Number of locals 071b INIT_0718: 071b 00da | | Load_Top At_Offset_2 071c 8002 | | Call 0x0,0x2 071d BODY_0718: 071d 00d8 | | Load_Top At_Offset_0 071e 0145 | E | Execute Heap_Access,Diana_Tree_Kind 071f 00d8 | | Load_Top At_Offset_0 0720 0c0a | | Execute_Immediate Greater_Equal,0xa 0721 700d |p | Jump_Nonzero 0x72f 0722 4609 |F | Jump_Case 0xa 0723 780c |x | Jump 0x730 ; case 0x0 0724 780b |x | Jump 0x730 ; case 0x1 0725 780a |x | Jump 0x730 ; case 0x2 0726 7809 |x | Jump 0x730 ; case 0x3 0727 780a |x | Jump 0x732 ; case 0x4 0728 7807 |x | Jump 0x730 ; case 0x5 0729 7808 |x | Jump 0x732 ; case 0x6 072a 7805 |x | Jump 0x730 ; case 0x7 072b 7804 |x | Jump 0x730 ; case 0x8 072c 7800 |x | Jump 0x72d ; case 0x9 072d 4800 |H | Short_Literal 0x0 072e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 072f 00d1 | | Pop_Control Pop_Count_1 0730 4802 |H | Short_Literal 0x2 0731 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0732 4801 |H | Short_Literal 0x1 0733 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0734 0000 0000 | | .BLANK 0000[0x4] 0738 ; -------------------------------------------------------------------------------------- 0738 ; SUBPROGRAM 0738 ; -------------------------------------------------------------------------------------- 0738 073d | = | .CONST 0x073d ; Address of begin 0739 0004 | | .CONST 0x0004 ; Address of exception handler 073a 0002 | | .CONST 0x0002 ; Number of locals 073b INIT_0738: 073b 00da | | Load_Top At_Offset_2 073c 8002 | | Call 0x0,0x2 073d BODY_0738: 073d 00d8 | | Load_Top At_Offset_0 073e 0145 | E | Execute Heap_Access,Diana_Tree_Kind 073f 0f09 | | Execute_Immediate Equal,0x9 0740 7006 |p | Jump_Nonzero 0x747 0741 0092 0ad0 | | Action Push_String_Extended,0xad0 ; "Element is not a Parenthesized Expression" 0743 e00a | | Load 0x0,0xa 0744 8005 | | Call 0x0,0x5 0745 e006 | | Load 0x0,0x6 0746 0257 | W | Execute Discrete,Raise 0747 00d8 | | Load_Top At_Offset_0 0748 00eb | | Load_Encached Diana_Cache 0749 18c5 | | Execute Package,Field_Execute,Field_Number 0xc5 074a 8008 | | Call 0x0,0x8 074b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 074c 0000 0000 | | .BLANK 0000[0x4] 0750 ; -------------------------------------------------------------------------------------- 0750 ; SUBPROGRAM 0750 ; -------------------------------------------------------------------------------------- 0750 0753 | S | .CONST 0x0753 ; Address of begin 0751 0004 | | .CONST 0x0004 ; Address of exception handler 0752 0001 | | .CONST 0x0001 ; Number of locals 0753 BODY_0750: 0753 INIT_0750: 0753 4607 |F | Jump_Case 0x8 0754 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 0755 7807 |x | Jump 0x75d ; case 0x1 0756 780a |x | Jump 0x761 ; case 0x2 0757 780e |x | Jump 0x766 ; case 0x3 0758 7811 |x | Jump 0x76a ; case 0x4 0759 7812 |x | Jump 0x76c ; case 0x5 075a 7813 |x | Jump 0x76e ; case 0x6 075b 7816 |x | Jump 0x772 ; case 0x7 075c 4302 |C | .XXX[0x1] 075d 00da | | Load_Top At_Offset_2 075e 0091 0ab1 | | Action Push_String_Extended_Indexed,0xab1 ; "IN_RANGE" 0760 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0761 00db | | Load_Top At_Offset_3 0762 00db | | Load_Top At_Offset_3 0763 00e0 | | Load_Encached Standard_Cache 0764 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0765 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0766 00da | | Load_Top At_Offset_2 0767 00e0 | | Load_Encached Standard_Cache 0768 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0769 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 076a 00db | | Load_Top At_Offset_3 076b 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 076c 00db | | Load_Top At_Offset_3 076d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 076e e238 | 8 | Load 0x1,0x38 076f 00dc | | Load_Top At_Offset_4 0770 0267 | g | Execute Discrete,Predecessor 0771 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0772 e238 | 8 | Load 0x1,0x38 0773 00dc | | Load_Top At_Offset_4 0774 0268 | h | Execute Discrete,Successor 0775 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0776 0000 0000 | | .XXX[0x2] 0778 ; -------------------------------------------------------------------------------------- 0778 ; SUBPROGRAM 0778 ; -------------------------------------------------------------------------------------- 0778 077f | | .CONST 0x077f ; Address of begin 0779 0004 | | .CONST 0x0004 ; Address of exception handler 077a 0004 | | .CONST 0x0004 ; Number of locals 077b INIT_0778: 077b 00da | | Load_Top At_Offset_2 077c 8002 | | Call 0x0,0x2 077d 00ec | | Load_Encached Diana_Tree_Cache 077e 00e1 | | Load_Encached Boolean_Cache 077f BODY_0778: 077f 00da | | Load_Top At_Offset_2 0780 0145 | E | Execute Heap_Access,Diana_Tree_Kind 0781 0b04 | | Execute_Immediate Case_Compare,0x4 0782 7004 |p | Jump_Nonzero 0x787 0783 0f06 | | Execute_Immediate Equal,0x6 0784 7011 |p | Jump_Nonzero 0x796 0785 4806 |H | Short_Literal 0x6 0786 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0787 00d1 | | Pop_Control Pop_Count_1 0788 00da | | Load_Top At_Offset_2 0789 00eb | | Load_Encached Diana_Cache 078a 18b5 | | Execute Package,Field_Execute,Field_Number 0xb5 078b 0145 | E | Execute Heap_Access,Diana_Tree_Kind 078c 0b9c | | Execute_Immediate Case_Compare,0x9c 078d 7003 |p | Jump_Nonzero 0x791 078e 0f9d | | Execute_Immediate Equal,-0x63 078f 7004 |p | Jump_Nonzero 0x794 0790 08e2 | | Execute_Immediate Raise,0xe2 0791 00d1 | | Pop_Control Pop_Count_1 0792 4804 |H | Short_Literal 0x4 0793 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0794 4805 |H | Short_Literal 0x5 0795 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0796 00da | | Load_Top At_Offset_2 0797 00eb | | Load_Encached Diana_Cache 0798 18e7 | | Execute Package,Field_Execute,Field_Number 0xe7 0799 0032 | 2 | Store_Top Heap_Access,At_Offset_2 079a 00d9 | | Load_Top At_Offset_1 079b 0145 | E | Execute Heap_Access,Diana_Tree_Kind 079c 0b61 | a | Execute_Immediate Case_Compare,0x61 079d 7005 |p | Jump_Nonzero 0x7a3 079e 0f0e | | Execute_Immediate Equal,0xe 079f 7007 |p | Jump_Nonzero 0x7a7 07a0 4800 |H | Short_Literal 0x0 07a1 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 07a2 780a |x | Jump 0x7ad 07a3 00d1 | | Pop_Control Pop_Count_1 07a4 4801 |H | Short_Literal 0x1 07a5 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 07a6 7806 |x | Jump 0x7ad 07a7 00d9 | | Load_Top At_Offset_1 07a8 00eb | | Load_Encached Diana_Cache 07a9 18d4 | | Execute Package,Field_Execute,Field_Number 0xd4 07aa e014 | | Load 0x0,0x14 07ab 186a | j | Execute Package,Field_Execute,Field_Number 0x6a 07ac 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 07ad 00da | | Load_Top At_Offset_2 07ae 00eb | | Load_Encached Diana_Cache 07af 18d3 | | Execute Package,Field_Execute,Field_Number 0xd3 07b0 0145 | E | Execute Heap_Access,Diana_Tree_Kind 07b1 0b86 | | Execute_Immediate Case_Compare,0x86 07b2 7003 |p | Jump_Nonzero 0x7b6 07b3 0f87 | | Execute_Immediate Equal,-0x79 07b4 7008 |p | Jump_Nonzero 0x7bd 07b5 08e2 | | Execute_Immediate Raise,0xe2 07b6 00d1 | | Pop_Control Pop_Count_1 07b7 00d8 | | Load_Top At_Offset_0 07b8 6802 |h | Jump_Zero 0x7bb 07b9 4800 |H | Short_Literal 0x0 07ba 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 07bb 4802 |H | Short_Literal 0x2 07bc 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 07bd 00d8 | | Load_Top At_Offset_0 07be 6802 |h | Jump_Zero 0x7c1 07bf 4801 |H | Short_Literal 0x1 07c0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 07c1 4803 |H | Short_Literal 0x3 07c2 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 07c3 0000 0000 | | .BLANK 0000[0x5] 07c8 ; -------------------------------------------------------------------------------------- 07c8 ; SUBPROGRAM 07c8 ; -------------------------------------------------------------------------------------- 07c8 07cd | | .CONST 0x07cd ; Address of begin 07c9 0004 | | .CONST 0x0004 ; Address of exception handler 07ca 0002 | | .CONST 0x0002 ; Number of locals 07cb INIT_07c8: 07cb 00da | | Load_Top At_Offset_2 07cc 8002 | | Call 0x0,0x2 07cd BODY_07c8: 07cd 00d8 | | Load_Top At_Offset_0 07ce 0145 | E | Execute Heap_Access,Diana_Tree_Kind 07cf 0b06 | | Execute_Immediate Case_Compare,0x6 07d0 7008 |p | Jump_Nonzero 0x7d9 07d1 0f04 | | Execute_Immediate Equal,0x4 07d2 700c |p | Jump_Nonzero 0x7df 07d3 0092 0ad1 | | Action Push_String_Extended,0xad1 ; "Element is not a Special Operation" 07d5 e00a | | Load 0x0,0xa 07d6 8005 | | Call 0x0,0x5 07d7 e006 | | Load 0x0,0x6 07d8 0257 | W | Execute Discrete,Raise 07d9 00d1 | | Pop_Control Pop_Count_1 07da 00d8 | | Load_Top At_Offset_0 07db 00eb | | Load_Encached Diana_Cache 07dc 18c5 | | Execute Package,Field_Execute,Field_Number 0xc5 07dd 8008 | | Call 0x0,0x8 07de 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 07df 00d8 | | Load_Top At_Offset_0 07e0 00eb | | Load_Encached Diana_Cache 07e1 18c6 | | Execute Package,Field_Execute,Field_Number 0xc6 07e2 8008 | | Call 0x0,0x8 07e3 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 07e4 0000 0000 | | .BLANK 0000[0x4] 07e8 ; -------------------------------------------------------------------------------------- 07e8 ; SUBPROGRAM 07e8 ; -------------------------------------------------------------------------------------- 07e8 07ed | | .CONST 0x07ed ; Address of begin 07e9 0004 | | .CONST 0x0004 ; Address of exception handler 07ea 0002 | | .CONST 0x0002 ; Number of locals 07eb INIT_07e8: 07eb 00da | | Load_Top At_Offset_2 07ec 8002 | | Call 0x0,0x2 07ed BODY_07e8: 07ed 00db | | Load_Top At_Offset_3 07ee 8239 | 9 | Call 0x1,0x39 07ef 4800 |H | Short_Literal 0x0 07f0 4801 |H | Short_Literal 0x1 07f1 0261 | a | Execute Discrete,Not_In_Range 07f2 6806 |h | Jump_Zero 0x7f9 07f3 0092 0ad2 | | Action Push_String_Extended,0xad2 ; "Element is not a Range Operation" 07f5 e00a | | Load 0x0,0xa 07f6 8005 | | Call 0x0,0x5 07f7 e006 | | Load 0x0,0x6 07f8 0257 | W | Execute Discrete,Raise 07f9 00d8 | | Load_Top At_Offset_0 07fa 0145 | E | Execute Heap_Access,Diana_Tree_Kind 07fb 0f06 | | Execute_Immediate Equal,0x6 07fc 7001 |p | Jump_Nonzero 0x7fe 07fd 08e2 | | Execute_Immediate Raise,0xe2 07fe 00d8 | | Load_Top At_Offset_0 07ff 00eb | | Load_Encached Diana_Cache 0800 18e7 | | Execute Package,Field_Execute,Field_Number 0xe7 0801 8008 | | Call 0x0,0x8 0802 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0803 0000 0000 | | .BLANK 0000[0x5] 0808 ; -------------------------------------------------------------------------------------- 0808 ; SUBPROGRAM 0808 ; -------------------------------------------------------------------------------------- 0808 080d | | .CONST 0x080d ; Address of begin 0809 0004 | | .CONST 0x0004 ; Address of exception handler 080a 0002 | | .CONST 0x0002 ; Number of locals 080b INIT_0808: 080b 00da | | Load_Top At_Offset_2 080c 8002 | | Call 0x0,0x2 080d BODY_0808: 080d 00db | | Load_Top At_Offset_3 080e 8239 | 9 | Call 0x1,0x39 080f 4802 |H | Short_Literal 0x2 0810 4803 |H | Short_Literal 0x3 0811 0261 | a | Execute Discrete,Not_In_Range 0812 6806 |h | Jump_Zero 0x819 0813 0092 0ad3 | | Action Push_String_Extended,0xad3 ; "Element is not a Type Operation" 0815 e00a | | Load 0x0,0xa 0816 8005 | | Call 0x0,0x5 0817 e006 | | Load 0x0,0x6 0818 0257 | W | Execute Discrete,Raise 0819 00d8 | | Load_Top At_Offset_0 081a 0145 | E | Execute Heap_Access,Diana_Tree_Kind 081b 0f06 | | Execute_Immediate Equal,0x6 081c 7001 |p | Jump_Nonzero 0x81e 081d 08e2 | | Execute_Immediate Raise,0xe2 081e 00d8 | | Load_Top At_Offset_0 081f 00eb | | Load_Encached Diana_Cache 0820 18e7 | | Execute Package,Field_Execute,Field_Number 0xe7 0821 8008 | | Call 0x0,0x8 0822 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0823 0000 0000 | | .BLANK 0000[0x5] 0828 ; -------------------------------------------------------------------------------------- 0828 ; SUBPROGRAM 0828 ; -------------------------------------------------------------------------------------- 0828 082d | - | .CONST 0x082d ; Address of begin 0829 0004 | | .CONST 0x0004 ; Address of exception handler 082a 0002 | | .CONST 0x0002 ; Number of locals 082b INIT_0828: 082b 00da | | Load_Top At_Offset_2 082c 8002 | | Call 0x0,0x2 082d BODY_0828: 082d 00db | | Load_Top At_Offset_3 082e 8239 | 9 | Call 0x1,0x39 082f 4804 |H | Short_Literal 0x4 0830 4805 |H | Short_Literal 0x5 0831 0261 | a | Execute Discrete,Not_In_Range 0832 6806 |h | Jump_Zero 0x839 0833 0092 0ad4 | | Action Push_String_Extended,0xad4 ; "Element is not a Short Circuit Operation" 0835 e00a | | Load 0x0,0xa 0836 8005 | | Call 0x0,0x5 0837 e006 | | Load 0x0,0x6 0838 0257 | W | Execute Discrete,Raise 0839 00d8 | | Load_Top At_Offset_0 083a 0145 | E | Execute Heap_Access,Diana_Tree_Kind 083b 0f04 | | Execute_Immediate Equal,0x4 083c 7001 |p | Jump_Nonzero 0x83e 083d 08e2 | | Execute_Immediate Raise,0xe2 083e 00d8 | | Load_Top At_Offset_0 083f 00eb | | Load_Encached Diana_Cache 0840 18c6 | | Execute Package,Field_Execute,Field_Number 0xc6 0841 8008 | | Call 0x0,0x8 0842 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0843 0000 0000 | | .BLANK 0000[0x5] 0848 ; -------------------------------------------------------------------------------------- 0848 ; SUBPROGRAM 0848 ; -------------------------------------------------------------------------------------- 0848 084d | M | .CONST 0x084d ; Address of begin 0849 0004 | | .CONST 0x0004 ; Address of exception handler 084a 0002 | | .CONST 0x0002 ; Number of locals 084b INIT_0848: 084b 00da | | Load_Top At_Offset_2 084c 8002 | | Call 0x0,0x2 084d BODY_0848: 084d 00d8 | | Load_Top At_Offset_0 084e 0145 | E | Execute Heap_Access,Diana_Tree_Kind 084f 0f10 | | Execute_Immediate Equal,0x10 0850 7002 |p | Jump_Nonzero 0x853 0851 4800 |H | Short_Literal 0x0 0852 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0853 00d8 | | Load_Top At_Offset_0 0854 00eb | | Load_Encached Diana_Cache 0855 1842 | B | Execute Package,Field_Execute,Field_Number 0x42 0856 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0857 0000 | | .XXX[0x1] 0858 ; -------------------------------------------------------------------------------------- 0858 ; SUBPROGRAM 0858 ; -------------------------------------------------------------------------------------- 0858 085d | ] | .CONST 0x085d ; Address of begin 0859 0004 | | .CONST 0x0004 ; Address of exception handler 085a 0002 | | .CONST 0x0002 ; Number of locals 085b INIT_0858: 085b 00da | | Load_Top At_Offset_2 085c 8002 | | Call 0x0,0x2 085d BODY_0858: 085d 00d8 | | Load_Top At_Offset_0 085e 0145 | E | Execute Heap_Access,Diana_Tree_Kind 085f 0f10 | | Execute_Immediate Equal,0x10 0860 7002 |p | Jump_Nonzero 0x863 0861 4800 |H | Short_Literal 0x0 0862 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0863 00d8 | | Load_Top At_Offset_0 0864 00eb | | Load_Encached Diana_Cache 0865 18d4 | | Execute Package,Field_Execute,Field_Number 0xd4 0866 0145 | E | Execute Heap_Access,Diana_Tree_Kind 0867 0f15 | | Execute_Immediate Equal,0x15 0868 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0869 0000 0000 | | .BLANK 0000[0x7] 0870 ; -------------------------------------------------------------------------------------- 0870 ; SUBPROGRAM 0870 ; -------------------------------------------------------------------------------------- 0870 0875 | u | .CONST 0x0875 ; Address of begin 0871 0004 | | .CONST 0x0004 ; Address of exception handler 0872 0002 | | .CONST 0x0002 ; Number of locals 0873 INIT_0870: 0873 00da | | Load_Top At_Offset_2 0874 8002 | | Call 0x0,0x2 0875 BODY_0870: 0875 0092 0ad5 | | Action Push_String_Extended,0xad5 ; "a Function Call" 0877 4810 |H | Short_Literal 0x10 0878 00da | | Load_Top At_Offset_2 0879 8243 | C | Call 0x1,0x43 087a 4801 |H | Short_Literal 0x1 087b e5ff | | Load 0x2,-0x1 087c 8015 | | Call 0x0,0x15 087d 8016 | | Call 0x0,0x16 087e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 087f 0000 | | .XXX[0x1] 0880 ; -------------------------------------------------------------------------------------- 0880 ; SUBPROGRAM 0880 ; -------------------------------------------------------------------------------------- 0880 0886 | | .CONST 0x0886 ; Address of begin 0881 0004 | | .CONST 0x0004 ; Address of exception handler 0882 0003 | | .CONST 0x0003 ; Number of locals 0883 INIT_0880: 0883 00da | | Load_Top At_Offset_2 0884 8002 | | Call 0x0,0x2 0885 00ec | | Load_Encached Diana_Tree_Cache 0886 BODY_0880: 0886 0092 0ad5 | | Action Push_String_Extended,0xad5 ; "a Function Call" 0888 4810 |H | Short_Literal 0x10 0889 00db | | Load_Top At_Offset_3 088a 8243 | C | Call 0x1,0x43 088b e5fe | | Load 0x2,-0x2 088c 680e |h | Jump_Zero 0x89b 088d 00d9 | | Load_Top At_Offset_1 088e 490c |I | Short_Literal 0x10c 088f 00eb | | Load_Encached Diana_Cache 0890 0096 | | Execute Package,Entry 0891 0031 | 1 | Store_Top Heap_Access,At_Offset_1 0892 00d8 | | Load_Top At_Offset_0 0893 7002 |p | Jump_Nonzero 0x896 0894 e013 | | Load 0x0,0x13 0895 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0896 00d8 | | Load_Top At_Offset_0 0897 00eb | | Load_Encached Diana_Cache 0898 18ed | | Execute Package,Field_Execute,Field_Number 0xed 0899 8012 | | Call 0x0,0x12 089a 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 089b 00d9 | | Load_Top At_Offset_1 089c 00eb | | Load_Encached Diana_Cache 089d 18d9 | | Execute Package,Field_Execute,Field_Number 0xd9 089e 00eb | | Load_Encached Diana_Cache 089f 1889 | | Execute Package,Field_Execute,Field_Number 0x89 08a0 800d | | Call 0x0,0xd 08a1 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 08a2 0000 0000 | | .BLANK 0000[0x6] 08a8 ; -------------------------------------------------------------------------------------- 08a8 ; SUBPROGRAM 08a8 ; -------------------------------------------------------------------------------------- 08a8 08ab | | .CONST 0x08ab ; Address of begin 08a9 0004 | | .CONST 0x0004 ; Address of exception handler 08aa 0001 | | .CONST 0x0001 ; Number of locals 08ab BODY_08a8: 08ab INIT_08a8: 08ab 00da | | Load_Top At_Offset_2 08ac 820f | | Call 0x1,0xf 08ad e5fe | | Load 0x2,-0x2 08ae 027e | ~ | Execute Discrete,Not_Equal 08af 680b |h | Jump_Zero 0x8bb 08b0 0092 0ad6 | | Action Push_String_Extended,0xad6 ; "Element is not " 08b2 e5fe | | Load 0x2,-0x2 08b3 e20e | | Load 0x1,0xe 08b4 011c | | Execute Any,Convert_Unchecked 08b5 1c01 | | Execute_Immediate Run_Utility,0x1 08b6 01cc | | Execute Vector,Catenate 08b7 e00a | | Load 0x0,0xa 08b8 8005 | | Call 0x0,0x5 08b9 e006 | | Load 0x0,0x6 08ba 0257 | W | Execute Discrete,Raise 08bb 4503 |E | Exit_Suprogram New_Top_Offset 0x3 08bc 0000 0000 | | .BLANK 0000[0x4] 08c0 ; -------------------------------------------------------------------------------------- 08c0 ; SUBPROGRAM 08c0 ; -------------------------------------------------------------------------------------- 08c0 08c3 | | .CONST 0x08c3 ; Address of begin 08c1 0004 | | .CONST 0x0004 ; Address of exception handler 08c2 0001 | | .CONST 0x0001 ; Number of locals 08c3 BODY_08c0: 08c3 INIT_08c0: 08c3 00da | | Load_Top At_Offset_2 08c4 0145 | E | Execute Heap_Access,Diana_Tree_Kind 08c5 e5fe | | Load 0x2,-0x2 08c6 027f | | Execute Discrete,Equal 08c7 7008 |p | Jump_Nonzero 0x8d0 08c8 0092 0ad6 | | Action Push_String_Extended,0xad6 ; "Element is not " 08ca e5fd | | Load 0x2,-0x3 08cb 01cc | | Execute Vector,Catenate 08cc e00a | | Load 0x0,0xa 08cd 8005 | | Call 0x0,0x5 08ce e006 | | Load 0x0,0x6 08cf 0257 | W | Execute Discrete,Raise 08d0 4504 |E | Exit_Suprogram New_Top_Offset 0x4 08d1 0000 0000 | | .BLANK 0000[0x7] 08d8 ; -------------------------------------------------------------------------------------- 08d8 ; SUBPROGRAM 08d8 ; -------------------------------------------------------------------------------------- 08d8 08db | | .CONST 0x08db ; Address of begin 08d9 0004 | | .CONST 0x0004 ; Address of exception handler 08da 0001 | | .CONST 0x0001 ; Number of locals 08db BODY_08d8: 08db INIT_08d8: 08db 00da | | Load_Top At_Offset_2 08dc 0145 | E | Execute Heap_Access,Diana_Tree_Kind 08dd 46ad |F | Jump_Case 0xae 08de 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x0 08df 7963 |yc | Jump 0xa43 ; case 0x1 08e0 78ab |x | Jump 0x98c ; case 0x2 08e1 796a |yj | Jump 0xa4c ; case 0x3 08e2 7913 |y | Jump 0x9f6 ; case 0x4 08e3 78fb |x | Jump 0x9df ; case 0x5 08e4 791e |y | Jump 0xa03 ; case 0x6 08e5 78df |x | Jump 0x9c5 ; case 0x7 08e6 78d8 |x | Jump 0x9bf ; case 0x8 08e7 7909 |y | Jump 0x9f1 ; case 0x9 08e8 78ff |x | Jump 0x9e8 ; case 0xa 08e9 795c |y\ | Jump 0xa46 ; case 0xb 08ea 78b0 |x | Jump 0x99b ; case 0xc 08eb 78e5 |x | Jump 0x9d1 ; case 0xd 08ec 78e9 |x | Jump 0x9d6 ; case 0xe 08ed 7937 |y7 | Jump 0xa25 ; case 0xf 08ee 78c7 |x | Jump 0x9b6 ; case 0x10 08ef 78b1 |x | Jump 0x9a1 ; case 0x11 08f0 78da |x | Jump 0x9cb ; case 0x12 08f1 78a0 |x | Jump 0x992 ; case 0x13 08f2 78bd |x | Jump 0x9b0 ; case 0x14 08f3 78bc |x | Jump 0x9b0 ; case 0x15 08f4 78b5 |x | Jump 0x9aa ; case 0x16 08f5 78b4 |x | Jump 0x9aa ; case 0x17 08f6 78b3 |x | Jump 0x9aa ; case 0x18 08f7 7894 |x | Jump 0x98c ; case 0x19 08f8 7893 |x | Jump 0x98c ; case 0x1a 08f9 7892 |x | Jump 0x98c ; case 0x1b 08fa 7891 |x | Jump 0x98c ; case 0x1c 08fb 7890 |x | Jump 0x98c ; case 0x1d 08fc 788f |x | Jump 0x98c ; case 0x1e 08fd 788e |x | Jump 0x98c ; case 0x1f 08fe 788d |x | Jump 0x98c ; case 0x20 08ff 788c |x | Jump 0x98c ; case 0x21 0900 788b |x | Jump 0x98c ; case 0x22 0901 788a |x | Jump 0x98c ; case 0x23 0902 7889 |x | Jump 0x98c ; case 0x24 0903 7888 |x | Jump 0x98c ; case 0x25 0904 7887 |x | Jump 0x98c ; case 0x26 0905 7886 |x | Jump 0x98c ; case 0x27 0906 7885 |x | Jump 0x98c ; case 0x28 0907 7884 |x | Jump 0x98c ; case 0x29 0908 7883 |x | Jump 0x98c ; case 0x2a 0909 7882 |x | Jump 0x98c ; case 0x2b 090a 7881 |x | Jump 0x98c ; case 0x2c 090b 7880 |x | Jump 0x98c ; case 0x2d 090c 787f |x | Jump 0x98c ; case 0x2e 090d 787e |x~ | Jump 0x98c ; case 0x2f 090e 787d |x} | Jump 0x98c ; case 0x30 090f 787c |x| | Jump 0x98c ; case 0x31 0910 787b |x{ | Jump 0x98c ; case 0x32 0911 787a |xz | Jump 0x98c ; case 0x33 0912 7879 |xy | Jump 0x98c ; case 0x34 0913 7878 |xx | Jump 0x98c ; case 0x35 0914 7877 |xw | Jump 0x98c ; case 0x36 0915 7876 |xv | Jump 0x98c ; case 0x37 0916 7875 |xu | Jump 0x98c ; case 0x38 0917 7874 |xt | Jump 0x98c ; case 0x39 0918 7873 |xs | Jump 0x98c ; case 0x3a 0919 7872 |xr | Jump 0x98c ; case 0x3b 091a 7871 |xq | Jump 0x98c ; case 0x3c 091b 7870 |xp | Jump 0x98c ; case 0x3d 091c 786f |xo | Jump 0x98c ; case 0x3e 091d 786e |xn | Jump 0x98c ; case 0x3f 091e 786d |xm | Jump 0x98c ; case 0x40 091f 786c |xl | Jump 0x98c ; case 0x41 0920 786b |xk | Jump 0x98c ; case 0x42 0921 786a |xj | Jump 0x98c ; case 0x43 0922 7869 |xi | Jump 0x98c ; case 0x44 0923 7868 |xh | Jump 0x98c ; case 0x45 0924 7867 |xg | Jump 0x98c ; case 0x46 0925 7866 |xf | Jump 0x98c ; case 0x47 0926 7865 |xe | Jump 0x98c ; case 0x48 0927 7864 |xd | Jump 0x98c ; case 0x49 0928 7863 |xc | Jump 0x98c ; case 0x4a 0929 7862 |xb | Jump 0x98c ; case 0x4b 092a 7861 |xa | Jump 0x98c ; case 0x4c 092b 7860 |x` | Jump 0x98c ; case 0x4d 092c 785f |x_ | Jump 0x98c ; case 0x4e 092d 785e |x^ | Jump 0x98c ; case 0x4f 092e 785d |x] | Jump 0x98c ; case 0x50 092f 785c |x\ | Jump 0x98c ; case 0x51 0930 785b |x[ | Jump 0x98c ; case 0x52 0931 785a |xZ | Jump 0x98c ; case 0x53 0932 7859 |xY | Jump 0x98c ; case 0x54 0933 7858 |xX | Jump 0x98c ; case 0x55 0934 7857 |xW | Jump 0x98c ; case 0x56 0935 7856 |xV | Jump 0x98c ; case 0x57 0936 7855 |xU | Jump 0x98c ; case 0x58 0937 7854 |xT | Jump 0x98c ; case 0x59 0938 7853 |xS | Jump 0x98c ; case 0x5a 0939 7852 |xR | Jump 0x98c ; case 0x5b 093a 7851 |xQ | Jump 0x98c ; case 0x5c 093b 7850 |xP | Jump 0x98c ; case 0x5d 093c 784f |xO | Jump 0x98c ; case 0x5e 093d 784e |xN | Jump 0x98c ; case 0x5f 093e 784d |xM | Jump 0x98c ; case 0x60 093f 78fa |x | Jump 0xa3a ; case 0x61 0940 78d8 |x | Jump 0xa19 ; case 0x62 0941 78ec |x | Jump 0xa2e ; case 0x63 0942 7849 |xI | Jump 0x98c ; case 0x64 0943 7848 |xH | Jump 0x98c ; case 0x65 0944 78cb |x | Jump 0xa10 ; case 0x66 0945 7846 |xF | Jump 0x98c ; case 0x67 0946 7845 |xE | Jump 0x98c ; case 0x68 0947 7844 |xD | Jump 0x98c ; case 0x69 0948 7843 |xC | Jump 0x98c ; case 0x6a 0949 7842 |xB | Jump 0x98c ; case 0x6b 094a 7841 |xA | Jump 0x98c ; case 0x6c 094b 7840 |x@ | Jump 0x98c ; case 0x6d 094c 783f |x? | Jump 0x98c ; case 0x6e 094d 783e |x> | Jump 0x98c ; case 0x6f 094e 783d |x= | Jump 0x98c ; case 0x70 094f 783c |x< | Jump 0x98c ; case 0x71 0950 783b |x; | Jump 0x98c ; case 0x72 0951 783a |x: | Jump 0x98c ; case 0x73 0952 7839 |x9 | Jump 0x98c ; case 0x74 0953 7838 |x8 | Jump 0x98c ; case 0x75 0954 7837 |x7 | Jump 0x98c ; case 0x76 0955 7836 |x6 | Jump 0x98c ; case 0x77 0956 7835 |x5 | Jump 0x98c ; case 0x78 0957 7834 |x4 | Jump 0x98c ; case 0x79 0958 7833 |x3 | Jump 0x98c ; case 0x7a 0959 7832 |x2 | Jump 0x98c ; case 0x7b 095a 7831 |x1 | Jump 0x98c ; case 0x7c 095b 7830 |x0 | Jump 0x98c ; case 0x7d 095c 782f |x/ | Jump 0x98c ; case 0x7e 095d 782e |x. | Jump 0x98c ; case 0x7f 095e 782d |x- | Jump 0x98c ; case 0x80 095f 782c |x, | Jump 0x98c ; case 0x81 0960 782b |x+ | Jump 0x98c ; case 0x82 0961 782a |x* | Jump 0x98c ; case 0x83 0962 7829 |x) | Jump 0x98c ; case 0x84 0963 7828 |x( | Jump 0x98c ; case 0x85 0964 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x86 0965 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x87 0966 7825 |x% | Jump 0x98c ; case 0x88 0967 7824 |x$ | Jump 0x98c ; case 0x89 0968 7823 |x# | Jump 0x98c ; case 0x8a 0969 7822 |x" | Jump 0x98c ; case 0x8b 096a 7821 |x! | Jump 0x98c ; case 0x8c 096b 7820 |x | Jump 0x98c ; case 0x8d 096c 781f |x | Jump 0x98c ; case 0x8e 096d 781e |x | Jump 0x98c ; case 0x8f 096e 781d |x | Jump 0x98c ; case 0x90 096f 781c |x | Jump 0x98c ; case 0x91 0970 781b |x | Jump 0x98c ; case 0x92 0971 781a |x | Jump 0x98c ; case 0x93 0972 7819 |x | Jump 0x98c ; case 0x94 0973 7818 |x | Jump 0x98c ; case 0x95 0974 7817 |x | Jump 0x98c ; case 0x96 0975 7816 |x | Jump 0x98c ; case 0x97 0976 7815 |x | Jump 0x98c ; case 0x98 0977 7814 |x | Jump 0x98c ; case 0x99 0978 7813 |x | Jump 0x98c ; case 0x9a 0979 7812 |x | Jump 0x98c ; case 0x9b 097a 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x9c 097b 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x9d 097c 780f |x | Jump 0x98c ; case 0x9e 097d 780e |x | Jump 0x98c ; case 0x9f 097e 780d |x | Jump 0x98c ; case 0xa0 097f 780c |x | Jump 0x98c ; case 0xa1 0980 780b |x | Jump 0x98c ; case 0xa2 0981 780a |x | Jump 0x98c ; case 0xa3 0982 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0xa4 0983 7808 |x | Jump 0x98c ; case 0xa5 0984 7807 |x | Jump 0x98c ; case 0xa6 0985 7896 |x | Jump 0xa1c ; case 0xa7 0986 7805 |x | Jump 0x98c ; case 0xa8 0987 78a9 |x | Jump 0xa31 ; case 0xa9 0988 7803 |x | Jump 0x98c ; case 0xaa 0989 7802 |x | Jump 0x98c ; case 0xab 098a 7801 |x | Jump 0x98c ; case 0xac 098b 7800 |x | Jump 0x98c ; case 0xad 098c 0092 0ab8 | | Action Push_String_Extended,0xab8 ; "Element is not an expression" 098e e00a | | Load 0x0,0xa 098f 8005 | | Call 0x0,0x5 0990 e006 | | Load 0x0,0x6 0991 0257 | W | Execute Discrete,Raise 0992 00da | | Load_Top At_Offset_2 0993 00eb | | Load_Encached Diana_Cache 0994 18d4 | | Execute Package,Field_Execute,Field_Number 0xd4 0995 8404 | | Call 0x2,0x4 0996 00da | | Load_Top At_Offset_2 0997 00eb | | Load_Encached Diana_Cache 0998 18c1 | | Execute Package,Field_Execute,Field_Number 0xc1 0999 8404 | | Call 0x2,0x4 099a 4502 |E | Exit_Suprogram New_Top_Offset 0x2 099b e402 | | Load 0x2,0x2 099c 00db | | Load_Top At_Offset_3 099d 8008 | | Call 0x0,0x8 099e 8017 | | Call 0x0,0x17 099f 00d1 | | Pop_Control Pop_Count_1 09a0 4502 |E | Exit_Suprogram New_Top_Offset 0x2 09a1 00da | | Load_Top At_Offset_2 09a2 00eb | | Load_Encached Diana_Cache 09a3 18d4 | | Execute Package,Field_Execute,Field_Number 0xd4 09a4 8404 | | Call 0x2,0x4 09a5 00da | | Load_Top At_Offset_2 09a6 00eb | | Load_Encached Diana_Cache 09a7 18c9 | | Execute Package,Field_Execute,Field_Number 0xc9 09a8 8405 | | Call 0x2,0x5 09a9 4502 |E | Exit_Suprogram New_Top_Offset 0x2 09aa e402 | | Load 0x2,0x2 09ab 00db | | Load_Top At_Offset_3 09ac 8008 | | Call 0x0,0x8 09ad 8017 | | Call 0x0,0x17 09ae 00d1 | | Pop_Control Pop_Count_1 09af 4502 |E | Exit_Suprogram New_Top_Offset 0x2 09b0 e402 | | Load 0x2,0x2 09b1 00db | | Load_Top At_Offset_3 09b2 8008 | | Call 0x0,0x8 09b3 8017 | | Call 0x0,0x17 09b4 00d1 | | Pop_Control Pop_Count_1 09b5 4502 |E | Exit_Suprogram New_Top_Offset 0x2 09b6 00da | | Load_Top At_Offset_2 09b7 00eb | | Load_Encached Diana_Cache 09b8 18d4 | | Execute Package,Field_Execute,Field_Number 0xd4 09b9 8404 | | Call 0x2,0x4 09ba 00da | | Load_Top At_Offset_2 09bb 00eb | | Load_Encached Diana_Cache 09bc 18d9 | | Execute Package,Field_Execute,Field_Number 0xd9 09bd 8405 | | Call 0x2,0x5 09be 4502 |E | Exit_Suprogram New_Top_Offset 0x2 09bf e402 | | Load 0x2,0x2 09c0 00db | | Load_Top At_Offset_3 09c1 8008 | | Call 0x0,0x8 09c2 8017 | | Call 0x0,0x17 09c3 00d1 | | Pop_Control Pop_Count_1 09c4 4502 |E | Exit_Suprogram New_Top_Offset 0x2 09c5 e402 | | Load 0x2,0x2 09c6 00db | | Load_Top At_Offset_3 09c7 8008 | | Call 0x0,0x8 09c8 8017 | | Call 0x0,0x17 09c9 00d1 | | Pop_Control Pop_Count_1 09ca 4502 |E | Exit_Suprogram New_Top_Offset 0x2 09cb e402 | | Load 0x2,0x2 09cc 00db | | Load_Top At_Offset_3 09cd 8008 | | Call 0x0,0x8 09ce 8017 | | Call 0x0,0x17 09cf 00d1 | | Pop_Control Pop_Count_1 09d0 4502 |E | Exit_Suprogram New_Top_Offset 0x2 09d1 00da | | Load_Top At_Offset_2 09d2 00eb | | Load_Encached Diana_Cache 09d3 18d4 | | Execute Package,Field_Execute,Field_Number 0xd4 09d4 8404 | | Call 0x2,0x4 09d5 4502 |E | Exit_Suprogram New_Top_Offset 0x2 09d6 00da | | Load_Top At_Offset_2 09d7 00eb | | Load_Encached Diana_Cache 09d8 18d4 | | Execute Package,Field_Execute,Field_Number 0xd4 09d9 8404 | | Call 0x2,0x4 09da 00da | | Load_Top At_Offset_2 09db 00eb | | Load_Encached Diana_Cache 09dc 18cf | | Execute Package,Field_Execute,Field_Number 0xcf 09dd 8404 | | Call 0x2,0x4 09de 4502 |E | Exit_Suprogram New_Top_Offset 0x2 09df 00da | | Load_Top At_Offset_2 09e0 00eb | | Load_Encached Diana_Cache 09e1 18d4 | | Execute Package,Field_Execute,Field_Number 0xd4 09e2 8404 | | Call 0x2,0x4 09e3 00da | | Load_Top At_Offset_2 09e4 00eb | | Load_Encached Diana_Cache 09e5 18c5 | | Execute Package,Field_Execute,Field_Number 0xc5 09e6 8404 | | Call 0x2,0x4 09e7 4502 |E | Exit_Suprogram New_Top_Offset 0x2 09e8 00da | | Load_Top At_Offset_2 09e9 00eb | | Load_Encached Diana_Cache 09ea 18d4 | | Execute Package,Field_Execute,Field_Number 0xd4 09eb 8404 | | Call 0x2,0x4 09ec 00da | | Load_Top At_Offset_2 09ed 00eb | | Load_Encached Diana_Cache 09ee 18c5 | | Execute Package,Field_Execute,Field_Number 0xc5 09ef 8404 | | Call 0x2,0x4 09f0 4502 |E | Exit_Suprogram New_Top_Offset 0x2 09f1 00da | | Load_Top At_Offset_2 09f2 00eb | | Load_Encached Diana_Cache 09f3 18c5 | | Execute Package,Field_Execute,Field_Number 0xc5 09f4 8404 | | Call 0x2,0x4 09f5 4502 |E | Exit_Suprogram New_Top_Offset 0x2 09f6 00da | | Load_Top At_Offset_2 09f7 00eb | | Load_Encached Diana_Cache 09f8 18c6 | | Execute Package,Field_Execute,Field_Number 0xc6 09f9 8404 | | Call 0x2,0x4 09fa 00da | | Load_Top At_Offset_2 09fb 00eb | | Load_Encached Diana_Cache 09fc 18b5 | | Execute Package,Field_Execute,Field_Number 0xb5 09fd 8404 | | Call 0x2,0x4 09fe 00da | | Load_Top At_Offset_2 09ff 00eb | | Load_Encached Diana_Cache 0a00 18c7 | | Execute Package,Field_Execute,Field_Number 0xc7 0a01 8404 | | Call 0x2,0x4 0a02 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0a03 00da | | Load_Top At_Offset_2 0a04 00eb | | Load_Encached Diana_Cache 0a05 18c5 | | Execute Package,Field_Execute,Field_Number 0xc5 0a06 8404 | | Call 0x2,0x4 0a07 00da | | Load_Top At_Offset_2 0a08 00eb | | Load_Encached Diana_Cache 0a09 18d3 | | Execute Package,Field_Execute,Field_Number 0xd3 0a0a 8404 | | Call 0x2,0x4 0a0b 00da | | Load_Top At_Offset_2 0a0c 00eb | | Load_Encached Diana_Cache 0a0d 18e7 | | Execute Package,Field_Execute,Field_Number 0xe7 0a0e 8404 | | Call 0x2,0x4 0a0f 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0a10 00da | | Load_Top At_Offset_2 0a11 00eb | | Load_Encached Diana_Cache 0a12 18d4 | | Execute Package,Field_Execute,Field_Number 0xd4 0a13 8404 | | Call 0x2,0x4 0a14 00da | | Load_Top At_Offset_2 0a15 00eb | | Load_Encached Diana_Cache 0a16 18ba | | Execute Package,Field_Execute,Field_Number 0xba 0a17 8404 | | Call 0x2,0x4 0a18 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0a19 00da | | Load_Top At_Offset_2 0a1a 8405 | | Call 0x2,0x5 0a1b 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0a1c 00da | | Load_Top At_Offset_2 0a1d 00eb | | Load_Encached Diana_Cache 0a1e 18b7 | | Execute Package,Field_Execute,Field_Number 0xb7 0a1f 8405 | | Call 0x2,0x5 0a20 00da | | Load_Top At_Offset_2 0a21 00eb | | Load_Encached Diana_Cache 0a22 18c5 | | Execute Package,Field_Execute,Field_Number 0xc5 0a23 8404 | | Call 0x2,0x4 0a24 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0a25 00da | | Load_Top At_Offset_2 0a26 00eb | | Load_Encached Diana_Cache 0a27 18d4 | | Execute Package,Field_Execute,Field_Number 0xd4 0a28 8404 | | Call 0x2,0x4 0a29 00da | | Load_Top At_Offset_2 0a2a 00eb | | Load_Encached Diana_Cache 0a2b 18c5 | | Execute Package,Field_Execute,Field_Number 0xc5 0a2c 8404 | | Call 0x2,0x4 0a2d 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0a2e 00da | | Load_Top At_Offset_2 0a2f 8405 | | Call 0x2,0x5 0a30 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0a31 00da | | Load_Top At_Offset_2 0a32 00eb | | Load_Encached Diana_Cache 0a33 18bf | | Execute Package,Field_Execute,Field_Number 0xbf 0a34 8404 | | Call 0x2,0x4 0a35 00da | | Load_Top At_Offset_2 0a36 00eb | | Load_Encached Diana_Cache 0a37 18b2 | | Execute Package,Field_Execute,Field_Number 0xb2 0a38 8404 | | Call 0x2,0x4 0a39 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0a3a 00da | | Load_Top At_Offset_2 0a3b 00eb | | Load_Encached Diana_Cache 0a3c 18c6 | | Execute Package,Field_Execute,Field_Number 0xc6 0a3d 8404 | | Call 0x2,0x4 0a3e 00da | | Load_Top At_Offset_2 0a3f 00eb | | Load_Encached Diana_Cache 0a40 18c7 | | Execute Package,Field_Execute,Field_Number 0xc7 0a41 8404 | | Call 0x2,0x4 0a42 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0a43 00da | | Load_Top At_Offset_2 0a44 8405 | | Call 0x2,0x5 0a45 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0a46 e402 | | Load 0x2,0x2 0a47 00db | | Load_Top At_Offset_3 0a48 8008 | | Call 0x0,0x8 0a49 8017 | | Call 0x0,0x17 0a4a 00d1 | | Pop_Control Pop_Count_1 0a4b 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0a4c 00da | | Load_Top At_Offset_2 0a4d 00eb | | Load_Encached Diana_Cache 0a4e 18c8 | | Execute Package,Field_Execute,Field_Number 0xc8 0a4f 8404 | | Call 0x2,0x4 0a50 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0a51 0000 0000 | | .BLANK 0000[0x7] 0a58 ; -------------------------------------------------------------------------------------- 0a58 ; SUBPROGRAM 0a58 ; -------------------------------------------------------------------------------------- 0a58 0a5e | ^ | .CONST 0x0a5e ; Address of begin 0a59 0004 | | .CONST 0x0004 ; Address of exception handler 0a5a 0002 | | .CONST 0x0002 ; Number of locals 0a5b INIT_0a58: 0a5b 00da | | Load_Top At_Offset_2 0a5c 00eb | | Load_Encached Diana_Cache 0a5d 1889 | | Execute Package,Field_Execute,Field_Number 0x89 0a5e BODY_0a58: 0a5e 00cf | | Action Mark_Auxiliary 0a5f 7808 |x | Jump 0xa68 0a60 00d9 | | Load_Top At_Offset_1 0a61 008b | | Action Heap_Access,Diana_Seq_Type_Get_Head 0a62 8404 | | Call 0x2,0x4 0a63 00d9 | | Load_Top At_Offset_1 0a64 0217 | | Execute Heap_Access,All_Reference 0a65 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0a66 0032 | 2 | Store_Top Heap_Access,At_Offset_2 0a67 00c9 | | Action Pop_Auxiliary_Loop 0a68 00d9 | | Load_Top At_Offset_1 0a69 77f6 |w | Jump_Nonzero 0xa60 0a6a 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0a6b ; -------------------------------------------------------------------------------------- 0a6b ; STRING TABLE 0a6b ; -------------------------------------------------------------------------------------- 0a6b 00da | | .STRTAB 0x00da->0x0ad8 ; "A_SIMPLE_NAME" 0a6c 00e5 | | .STRTAB 0x00e5->0x0ade ; "AN_OPERATOR_SYMBOL" 0a6d 00f5 | | .STRTAB 0x00f5->0x0ae7 ; "AN_INDEXED_COMPONENT" 0a6e 0107 | | .STRTAB 0x0107->0x0af1 ; "A_SLICE" 0a6f 010c | | .STRTAB 0x010c->0x0af5 ; "A_SELECTED_COMPONENT" 0a70 011e | | .STRTAB 0x011e->0x0aff ; "AN_ATTRIBUTE" 0a71 0128 | ( | .STRTAB 0x0128->0x0b05 ; "A_CHARACTER_LITERAL" 0a72 0139 | 9 | .STRTAB 0x0139->0x0b0e ; "AN_INTEGER_LITERAL" 0a73 0149 | I | .STRTAB 0x0149->0x0b17 ; "A_REAL_LITERAL" 0a74 0155 | U | .STRTAB 0x0155->0x0b1e ; "AN_ENUMERATION_LITERAL" 0a75 0169 | i | .STRTAB 0x0169->0x0b29 ; "A_NULL_LITERAL" 0a76 0175 | u | .STRTAB 0x0175->0x0b30 ; "A_STRING_LITERAL" 0a77 0183 | | .STRTAB 0x0183->0x0b38 ; "AN_AGGREGATE" 0a78 018d | | .STRTAB 0x018d->0x0b3e ; "A_TYPE_CONVERSION" 0a79 019c | | .STRTAB 0x019c->0x0b47 ; "A_QUALIFIED_EXPRESSION" 0a7a 01b0 | | .STRTAB 0x01b0->0x0b52 ; "AN_ALLOCATOR" 0a7b 01ba | | .STRTAB 0x01ba->0x0b58 ; "A_COMPLEX_EXPRESSION" 0a7c 01cc | | .STRTAB 0x01cc->0x0b62 ; "A_FUNCTION_CALL" 0a7d 01d9 | | .STRTAB 0x01d9->0x0b69 ; "NOT_AN_EXPRESSION" 0a7e 01e8 | | .STRTAB 0x01e8->0x0b72 ; "RECORD_DISCRIMINANT" 0a7f 01f9 | | .STRTAB 0x01f9->0x0b7b ; "RECORD_COMPONENT" 0a80 0207 | | .STRTAB 0x0207->0x0b83 ; "TASK_ENTRY" 0a81 020f | | .STRTAB 0x020f->0x0b88 ; "ACCESS_OBJECT" 0a82 021a | | .STRTAB 0x021a->0x0b8f ; "EXPANDED_NAME" 0a83 0225 | % | .STRTAB 0x0225->0x0b95 ; "ADDRESS_ATTRIBUTE" 0a84 0234 | 4 | .STRTAB 0x0234->0x0b9e ; "AFT_ATTRIBUTE" 0a85 023f | ? | .STRTAB 0x023f->0x0ba4 ; "BASE_ATTRIBUTE" 0a86 024b | K | .STRTAB 0x024b->0x0bab ; "CALLABLE_ATTRIBUTE" 0a87 025b | [ | .STRTAB 0x025b->0x0bb4 ; "CONSTRAINED_ATTRIBUTE" 0a88 026e | n | .STRTAB 0x026e->0x0bbf ; "COUNT_ATTRIBUTE" 0a89 027b | { | .STRTAB 0x027b->0x0bc6 ; "DELTA_ATTRIBUTE" 0a8a 0288 | | .STRTAB 0x0288->0x0bce ; "DIGITS_ATTRIBUTE" 0a8b 0296 | | .STRTAB 0x0296->0x0bd6 ; "EMAX_ATTRIBUTE" 0a8c 02a2 | | .STRTAB 0x02a2->0x0bdd ; "EPSILON_ATTRIBUTE" 0a8d 02b1 | | .STRTAB 0x02b1->0x0be5 ; "FIRST_ATTRIBUTE" 0a8e 02be | | .STRTAB 0x02be->0x0bed ; "FIRST_BIT_ATTRIBUTE" 0a8f 02cf | | .STRTAB 0x02cf->0x0bf6 ; "FORE_ATTRIBUTE" 0a90 02db | | .STRTAB 0x02db->0x0bfd ; "IMAGE_ATTRIBUTE" 0a91 02e8 | | .STRTAB 0x02e8->0x0c05 ; "LARGE_ATTRIBUTE" 0a92 02f5 | | .STRTAB 0x02f5->0x0c0c ; "LAST_ATTRIBUTE" 0a93 0301 | | .STRTAB 0x0301->0x0c13 ; "LAST_BIT_ATTRIBUTE" 0a94 0311 | | .STRTAB 0x0311->0x0c1c ; "LENGTH_ATTRIBUTE" 0a95 031f | | .STRTAB 0x031f->0x0c24 ; "MACHINE_EMAX_ATTRIBUTE" 0a96 0333 | 3 | .STRTAB 0x0333->0x0c2f ; "MACHINE_EMIN_ATTRIBUTE" 0a97 0347 | G | .STRTAB 0x0347->0x0c3a ; "MACHINE_MANTISSA_ATTRIBUTE" 0a98 035f | _ | .STRTAB 0x035f->0x0c47 ; "MACHINE_OVERFLOWS_ATTRIBUTE" 0a99 0378 | x | .STRTAB 0x0378->0x0c55 ; "MACHINE_RADIX_ATTRIBUTE" 0a9a 038d | | .STRTAB 0x038d->0x0c60 ; "MACHINE_ROUNDS_ATTRIBUTE" 0a9b 03a3 | | .STRTAB 0x03a3->0x0c6c ; "MANTISSA_ATTRIBUTE" 0a9c 03b3 | | .STRTAB 0x03b3->0x0c75 ; "POS_ATTRIBUTE" 0a9d 03be | | .STRTAB 0x03be->0x0c7c ; "POSITION_ATTRIBUTE" 0a9e 03ce | | .STRTAB 0x03ce->0x0c85 ; "PRED_ATTRIBUTE" 0a9f 03da | | .STRTAB 0x03da->0x0c8c ; "RANGE_ATTRIBUTE" 0aa0 03e7 | | .STRTAB 0x03e7->0x0c93 ; "SAFE_EMAX_ATTRIBUTE" 0aa1 03f8 | | .STRTAB 0x03f8->0x0c9d ; "SAFE_LARGE_ATTRIBUTE" 0aa2 040a | | .STRTAB 0x040a->0x0ca7 ; "SAFE_SMALL_ATTRIBUTE" 0aa3 041c | | .STRTAB 0x041c->0x0cb1 ; "SIZE_ATTRIBUTE" 0aa4 0428 | ( | .STRTAB 0x0428->0x0cb8 ; "SMALL_ATTRIBUTE" 0aa5 0435 | 5 | .STRTAB 0x0435->0x0cbf ; "STORAGE_SIZE_ATTRIBUTE" 0aa6 0449 | I | .STRTAB 0x0449->0x0cca ; "SUCC_ATTRIBUTE" 0aa7 0455 | U | .STRTAB 0x0455->0x0cd1 ; "TERMINATED_ATTRIBUTE" 0aa8 0467 | g | .STRTAB 0x0467->0x0cdb ; "VAL_ATTRIBUTE" 0aa9 0472 | r | .STRTAB 0x0472->0x0ce2 ; "VALUE_ATTRIBUTE" 0aaa 047f | | .STRTAB 0x047f->0x0ce9 ; "WIDTH_ATTRIBUTE" 0aab 048c | | .STRTAB 0x048c->0x0cf1 ; "NOT_A_PREDEFINED_ATTRIBUTE" 0aac 04a4 | | .STRTAB 0x04a4->0x0cfe ; "ALLOCATION_FROM_SUBTYPE" 0aad 04b9 | | .STRTAB 0x04b9->0x0d09 ; "ALLOCATION_FROM_QUALIFIED_EXPRESSION" 0aae 04db | | .STRTAB 0x04db->0x0d1b ; "A_PARENTHESIZED_EXPRESSION" 0aaf 04f3 | | .STRTAB 0x04f3->0x0d28 ; "A_SPECIAL_OPERATION" 0ab0 0504 | | .STRTAB 0x0504->0x0d32 ; "NOT_A_COMPLEX_EXPRESSION" 0ab1 051a | | .STRTAB 0x051a->0x0d3e ; "IN_RANGE" 0ab2 0520 | | .STRTAB 0x0520->0x0d42 ; "NOT_IN_RANGE" 0ab3 052a | * | .STRTAB 0x052a->0x0d48 ; "IN_TYPE" 0ab4 052f | / | .STRTAB 0x052f->0x0d4b ; "NOT_IN_TYPE" 0ab5 0538 | 8 | .STRTAB 0x0538->0x0d51 ; "AND_THEN" 0ab6 053e | > | .STRTAB 0x053e->0x0d55 ; "OR_ELSE" 0ab7 0543 | C | .STRTAB 0x0543->0x0d58 ; "NOT_A_SPECIAL_OPERATION" 0ab8 0558 | X | .STRTAB 0x0558->0x0d64 ; "Element is not an expression" 0ab9 0572 | r | .STRTAB 0x0572->0x0d72 ; "Numeric Literal has Sm_Value = " 0aba 058f | | .STRTAB 0x058f->0x0d81 ; "Element is not an assignable Name" 0abb 05ae | | .STRTAB 0x05ae->0x0d92 ; "Element is not an Integer Expression" 0abc 05d0 | | .STRTAB 0x05d0->0x0da4 ; "Element is not a Static Character Expression" 0abd 05fa | | .STRTAB 0x05fa->0x0dba ; "Element is not a Static Float Expression" 0abe 0620 | | .STRTAB 0x0620->0x0dce ; "Element is not a Static String Expression" 0abf 0647 | G | .STRTAB 0x0647->0x0de2 ; "Element is not a slice or indexed expression" 0ac0 0671 | q | .STRTAB 0x0671->0x0df8 ; "Element is not a Selected Component" 0ac1 0692 | | .STRTAB 0x0692->0x0e0a ; "Element is an Access object and has no selector" 0ac2 06bf | | .STRTAB 0x06bf->0x0e21 ; "Element is not a Discriminant or Component Selection" 0ac3 06f1 | | .STRTAB 0x06f1->0x0e3b ; "a Task Entry Selection" 0ac4 0705 | | .STRTAB 0x0705->0x0e46 ; "an Access Object Selection" 0ac5 071d | | .STRTAB 0x071d->0x0e53 ; "Element is not an Expanded Name" 0ac6 073a | : | .STRTAB 0x073a->0x0e63 ; "_Attribute" 0ac7 0742 | B | .STRTAB 0x0742->0x0e68 ; "Element is not an Attribute or Attribute call" 0ac8 076d | m | .STRTAB 0x076d->0x0e7e ; "Element is not an Attribute call" 0ac9 078b | | .STRTAB 0x078b->0x0e8e ; "Element is not an Enumeration or Character literal" 0aca 07bb | | .STRTAB 0x07bb->0x0ea7 ; "an Aggregate" 0acb 07c5 | | .STRTAB 0x07c5->0x0ead ; "Element is not an Array Aggregate" 0acc 07e4 | | .STRTAB 0x07e4->0x0ebe ; "Element is not a Type Conversion or Qualified Expression" 0acd 081a | | .STRTAB 0x081a->0x0eda ; "an Allocator" 0ace 0824 | $ | .STRTAB 0x0824->0x0ee0 ; "Element is not an Allocation from a Subtype" 0acf 084d | M | .STRTAB 0x084d->0x0ef5 ; "Element is not an Allocation from a Qualified Expression" 0ad0 0883 | | .STRTAB 0x0883->0x0f11 ; "Element is not a Parenthesized Expression" 0ad1 08aa | | .STRTAB 0x08aa->0x0f26 ; "Element is not a Special Operation" 0ad2 08ca | | .STRTAB 0x08ca->0x0f37 ; "Element is not a Range Operation" 0ad3 08e8 | | .STRTAB 0x08e8->0x0f47 ; "Element is not a Type Operation" 0ad4 0905 | | .STRTAB 0x0905->0x0f56 ; "Element is not a Short Circuit Operation" 0ad5 092b | + | .STRTAB 0x092b->0x0f6a ; "a Function Call" 0ad6 0938 | 8 | .STRTAB 0x0938->0x0f72 ; "Element is not " 0ad7 0945 | E | .STREND 0x0945->0x0f79 0ad8 415f 5349 |A_SI| .STRTAB_STRINGS 0f7a 0000 0000 | | .BLANK 0000[0x6] 0f80 ; -------------------------------------------------------------------------------------- 0f80 ; Debug Table 0f80 ; -------------------------------------------------------------------------------------- 0f80 0004 0009 | | .DEBUG4 0x0004,0x0009,0x5d8d,0x0000,0x0001,0x0000 0f86 0000 0000 | | .BLANK 0000[0x7a]