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