|
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: 9216 (0x2400)
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 1008 | | .CONST 0x1008 ; 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 00ee | | .CONST 0x00ee ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0046 | F | .CONST 0x0046 ; Number of locals
000b INIT_0008:
000b 4800 |H | Short_Literal 0x0
000c 4826 |H& | Short_Literal 0x26
000d 029f 00f3 | | Declare_Subprogram INIT_00f0,For_Call
000f 03fe | | Declare_Type Discrete,Defined,Visible
0010 029a 011b | | Declare_Subprogram INIT_0118,For_Outer_Call,Visible,Unelaborated
0012 029a 013b | ;| Declare_Subprogram INIT_0138,For_Outer_Call,Visible,Unelaborated
0014 029a 017b | {| Declare_Subprogram INIT_0178,For_Outer_Call,Visible,Unelaborated
0016 029a 01ab | | Declare_Subprogram INIT_01a8,For_Outer_Call,Visible,Unelaborated
0018 029a 01cb | | Declare_Subprogram INIT_01c8,For_Outer_Call,Visible,Unelaborated
001a 029a 01eb | | Declare_Subprogram INIT_01e8,For_Outer_Call,Visible,Unelaborated
001c 029a 0213 | | Declare_Subprogram INIT_0210,For_Outer_Call,Visible,Unelaborated
001e 029a 0223 | #| Declare_Subprogram INIT_0220,For_Outer_Call,Visible,Unelaborated
0020 029a 0243 | C| Declare_Subprogram INIT_0240,For_Outer_Call,Visible,Unelaborated
0022 029a 0293 | | Declare_Subprogram INIT_0290,For_Outer_Call,Visible,Unelaborated
0024 029a 02cb | | Declare_Subprogram INIT_02c8,For_Outer_Call,Visible,Unelaborated
0026 029a 02f3 | | Declare_Subprogram INIT_02f0,For_Outer_Call,Visible,Unelaborated
0028 029a 031b | | Declare_Subprogram INIT_0318,For_Outer_Call,Visible,Unelaborated
002a 029a 0333 | 3| Declare_Subprogram INIT_0330,For_Outer_Call,Visible,Unelaborated
002c 029a 034b | K| Declare_Subprogram INIT_0348,For_Outer_Call,Visible,Unelaborated
002e 029a 0363 | c| Declare_Subprogram INIT_0360,For_Outer_Call,Visible,Unelaborated
0030 029a 0383 | | Declare_Subprogram INIT_0380,For_Outer_Call,Visible,Unelaborated
0032 029a 03eb | | Declare_Subprogram INIT_03e8,For_Outer_Call,Visible,Unelaborated
0034 029a 0413 | | Declare_Subprogram INIT_0410,For_Outer_Call,Visible,Unelaborated
0036 029a 043b | ;| Declare_Subprogram INIT_0438,For_Outer_Call,Visible,Unelaborated
0038 029a 0463 | c| Declare_Subprogram INIT_0460,For_Outer_Call,Visible,Unelaborated
003a 029a 048b | | Declare_Subprogram INIT_0488,For_Outer_Call,Visible,Unelaborated
003c 029a 04b3 | | Declare_Subprogram INIT_04b0,For_Outer_Call,Visible,Unelaborated
003e 029a 0513 | | Declare_Subprogram INIT_0510,For_Outer_Call,Visible,Unelaborated
0040 029a 057b | {| Declare_Subprogram INIT_0578,For_Outer_Call,Visible,Unelaborated
0042 029a 05e3 | | Declare_Subprogram INIT_05e0,For_Outer_Call,Visible,Unelaborated
0044 029a 05fb | | Declare_Subprogram INIT_05f8,For_Outer_Call,Visible,Unelaborated
0046 029a 0613 | | Declare_Subprogram INIT_0610,For_Outer_Call,Visible,Unelaborated
0048 4800 |H | Short_Literal 0x0
0049 4804 |H | Short_Literal 0x4
004a 029f 0623 | #| Declare_Subprogram INIT_0620,For_Call
004c 03fe | | Declare_Type Discrete,Defined,Visible
004d 029a 064b | K| Declare_Subprogram INIT_0648,For_Outer_Call,Visible,Unelaborated
004f 029a 068b | | Declare_Subprogram INIT_0688,For_Outer_Call,Visible,Unelaborated
0051 029a 06cb | | Declare_Subprogram INIT_06c8,For_Outer_Call,Visible,Unelaborated
0053 029a 070b | | Declare_Subprogram INIT_0708,For_Outer_Call,Visible,Unelaborated
0055 029a 072b | +| Declare_Subprogram INIT_0728,For_Outer_Call,Visible,Unelaborated
0057 029a 073b | ;| Declare_Subprogram INIT_0738,For_Outer_Call,Visible,Unelaborated
0059 029a 0753 | S| Declare_Subprogram INIT_0750,For_Outer_Call,Visible,Unelaborated
005b 029a 0773 | s| Declare_Subprogram INIT_0770,For_Outer_Call,Visible,Unelaborated
005d 029a 07ab | | Declare_Subprogram INIT_07a8,For_Outer_Call,Visible,Unelaborated
005f 4800 |H | Short_Literal 0x0
0060 480a |H | Short_Literal 0xa
0061 029f 07bb | | Declare_Subprogram INIT_07b8,For_Call
0063 03fe | | Declare_Type Discrete,Defined,Visible
0064 029a 07e3 | | Declare_Subprogram INIT_07e0,For_Outer_Call,Visible,Unelaborated
0066 029a 083b | ;| Declare_Subprogram INIT_0838,For_Outer_Call,Visible,Unelaborated
0068 4800 |H | Short_Literal 0x0
0069 4803 |H | Short_Literal 0x3
006a 029f 085b | [| Declare_Subprogram INIT_0858,For_Call
006c 03fe | | Declare_Type Discrete,Defined,Visible
006d 029a 0883 | | Declare_Subprogram INIT_0880,For_Outer_Call,Visible,Unelaborated
006f 029a 08a3 | | Declare_Subprogram INIT_08a0,For_Outer_Call,Visible,Unelaborated
0071 029a 08d3 | | Declare_Subprogram INIT_08d0,For_Outer_Call,Visible,Unelaborated
0073 029a 08f3 | | Declare_Subprogram INIT_08f0,For_Outer_Call,Visible,Unelaborated
0075 029a 092b | +| Declare_Subprogram INIT_0928,For_Outer_Call,Visible,Unelaborated
0077 029a 0963 | c| Declare_Subprogram INIT_0960,For_Outer_Call,Visible,Unelaborated
0079 029a 0993 | | Declare_Subprogram INIT_0990,For_Outer_Call,Visible,Unelaborated
007b 029a 09c3 | | Declare_Subprogram INIT_09c0,For_Outer_Call,Visible,Unelaborated
007d 029a 09d3 | | Declare_Subprogram INIT_09d0,For_Outer_Call,Visible,Unelaborated
007f 029a 09fb | | Declare_Subprogram INIT_09f8,For_Outer_Call,Visible,Unelaborated
0081 00bf | | Action Accept_Activation
0082 029d 0a23 | #| Declare_Subprogram INIT_0a20,For_Outer_Call
0084 029d 0a3b | ;| Declare_Subprogram INIT_0a38,For_Outer_Call
0086 029d 0a93 | | Declare_Subprogram INIT_0a90,For_Outer_Call
0088 029d 0ae3 | | Declare_Subprogram INIT_0ae0,For_Outer_Call
008a 029d 0b23 | #| Declare_Subprogram INIT_0b20,For_Outer_Call
008c 1d0e | | Execute_Immediate Reference_Lex_1,0xe
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 1d13 | | Execute_Immediate Reference_Lex_1,0x13
0097 00c7 | | Action Elaborate_Subprogram
0098 1d14 | | Execute_Immediate Reference_Lex_1,0x14
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 1d1a | | Execute_Immediate Reference_Lex_1,0x1a
00a5 00c7 | | Action Elaborate_Subprogram
00a6 1d1b | | Execute_Immediate Reference_Lex_1,0x1b
00a7 00c7 | | Action Elaborate_Subprogram
00a8 1d1c | | Execute_Immediate Reference_Lex_1,0x1c
00a9 00c7 | | Action Elaborate_Subprogram
00aa 1d1d | | Execute_Immediate Reference_Lex_1,0x1d
00ab 00c7 | | Action Elaborate_Subprogram
00ac 1d1e | | Execute_Immediate Reference_Lex_1,0x1e
00ad 00c7 | | Action Elaborate_Subprogram
00ae 1d1f | | Execute_Immediate Reference_Lex_1,0x1f
00af 00c7 | | Action Elaborate_Subprogram
00b0 1d20 | | Execute_Immediate Reference_Lex_1,0x20
00b1 00c7 | | Action Elaborate_Subprogram
00b2 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21
00b3 00c7 | | Action Elaborate_Subprogram
00b4 1d22 | " | Execute_Immediate Reference_Lex_1,0x22
00b5 00c7 | | Action Elaborate_Subprogram
00b6 1d23 | # | Execute_Immediate Reference_Lex_1,0x23
00b7 00c7 | | Action Elaborate_Subprogram
00b8 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24
00b9 00c7 | | Action Elaborate_Subprogram
00ba 1d25 | % | Execute_Immediate Reference_Lex_1,0x25
00bb 00c7 | | Action Elaborate_Subprogram
00bc 1d26 | & | Execute_Immediate Reference_Lex_1,0x26
00bd 00c7 | | Action Elaborate_Subprogram
00be 1d27 | ' | Execute_Immediate Reference_Lex_1,0x27
00bf 00c7 | | Action Elaborate_Subprogram
00c0 1d28 | ( | Execute_Immediate Reference_Lex_1,0x28
00c1 00c7 | | Action Elaborate_Subprogram
00c2 1d29 | ) | Execute_Immediate Reference_Lex_1,0x29
00c3 00c7 | | Action Elaborate_Subprogram
00c4 1d2b | + | Execute_Immediate Reference_Lex_1,0x2b
00c5 00c7 | | Action Elaborate_Subprogram
00c6 1d2c | , | Execute_Immediate Reference_Lex_1,0x2c
00c7 00c7 | | Action Elaborate_Subprogram
00c8 1d2d | - | Execute_Immediate Reference_Lex_1,0x2d
00c9 00c7 | | Action Elaborate_Subprogram
00ca 1d2e | . | Execute_Immediate Reference_Lex_1,0x2e
00cb 00c7 | | Action Elaborate_Subprogram
00cc 1d2f | / | Execute_Immediate Reference_Lex_1,0x2f
00cd 00c7 | | Action Elaborate_Subprogram
00ce 1d30 | 0 | Execute_Immediate Reference_Lex_1,0x30
00cf 00c7 | | Action Elaborate_Subprogram
00d0 1d31 | 1 | Execute_Immediate Reference_Lex_1,0x31
00d1 00c7 | | Action Elaborate_Subprogram
00d2 1d32 | 2 | Execute_Immediate Reference_Lex_1,0x32
00d3 00c7 | | Action Elaborate_Subprogram
00d4 1d33 | 3 | Execute_Immediate Reference_Lex_1,0x33
00d5 00c7 | | Action Elaborate_Subprogram
00d6 1d35 | 5 | Execute_Immediate Reference_Lex_1,0x35
00d7 00c7 | | Action Elaborate_Subprogram
00d8 1d36 | 6 | Execute_Immediate Reference_Lex_1,0x36
00d9 00c7 | | Action Elaborate_Subprogram
00da 1d38 | 8 | Execute_Immediate Reference_Lex_1,0x38
00db 00c7 | | Action Elaborate_Subprogram
00dc 1d39 | 9 | Execute_Immediate Reference_Lex_1,0x39
00dd 00c7 | | Action Elaborate_Subprogram
00de 1d3a | : | Execute_Immediate Reference_Lex_1,0x3a
00df 00c7 | | Action Elaborate_Subprogram
00e0 1d3b | ; | Execute_Immediate Reference_Lex_1,0x3b
00e1 00c7 | | Action Elaborate_Subprogram
00e2 1d3c | < | Execute_Immediate Reference_Lex_1,0x3c
00e3 00c7 | | Action Elaborate_Subprogram
00e4 1d3d | = | Execute_Immediate Reference_Lex_1,0x3d
00e5 00c7 | | Action Elaborate_Subprogram
00e6 1d3e | > | Execute_Immediate Reference_Lex_1,0x3e
00e7 00c7 | | Action Elaborate_Subprogram
00e8 1d3f | ? | Execute_Immediate Reference_Lex_1,0x3f
00e9 00c7 | | Action Elaborate_Subprogram
00ea 1d40 | @ | Execute_Immediate Reference_Lex_1,0x40
00eb 00c7 | | Action Elaborate_Subprogram
00ec 1d41 | A | Execute_Immediate Reference_Lex_1,0x41
00ed 00c7 | | Action Elaborate_Subprogram
00ee BODY_0008:
00ee 00bc | | Action Signal_Activated
00ef 00bb | | Action Signal_Completion
00f0 ; --------------------------------------------------------------------------------------
00f0 ; SUBPROGRAM
00f0 ; --------------------------------------------------------------------------------------
00f0 00f3 | | .CONST 0x00f3 ; Address of begin
00f1 0004 | | .CONST 0x0004 ; Address of exception handler
00f2 0001 | | .CONST 0x0001 ; Number of locals
00f3 BODY_00f0:
00f3 INIT_00f0:
00f3 4607 |F | Jump_Case 0x8
00f4 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
00f5 7807 |x | Jump 0xfd ; case 0x1
00f6 780a |x | Jump 0x101 ; case 0x2
00f7 780e |x | Jump 0x106 ; case 0x3
00f8 7811 |x | Jump 0x10a ; case 0x4
00f9 7812 |x | Jump 0x10c ; case 0x5
00fa 7813 |x | Jump 0x10e ; case 0x6
00fb 7816 |x | Jump 0x112 ; case 0x7
00fc 4302 |C | .XXX[0x1]
00fd 00da | | Load_Top At_Offset_2
00fe 0091 0b88 | | Action Push_String_Extended_Indexed,0xb88 ; "A_VARIABLE_DECLARATION"
0100 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0101 00db | | Load_Top At_Offset_3
0102 00db | | Load_Top At_Offset_3
0103 00e0 | | Load_Encached Standard_Cache
0104 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0105 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0106 00da | | Load_Top At_Offset_2
0107 00e0 | | Load_Encached Standard_Cache
0108 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0109 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
010a 00db | | Load_Top At_Offset_3
010b 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
010c 00db | | Load_Top At_Offset_3
010d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
010e e20d | | Load 0x1,0xd
010f 00dc | | Load_Top At_Offset_4
0110 0267 | g | Execute Discrete,Predecessor
0111 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0112 e20d | | Load 0x1,0xd
0113 00dc | | Load_Top At_Offset_4
0114 0268 | h | Execute Discrete,Successor
0115 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0116 0000 0000 | | .XXX[0x2]
0118 ; --------------------------------------------------------------------------------------
0118 ; SUBPROGRAM
0118 ; --------------------------------------------------------------------------------------
0118 0121 | ! | .CONST 0x0121 ; Address of begin
0119 0004 | | .CONST 0x0004 ; Address of exception handler
011a 0003 | | .CONST 0x0003 ; Number of locals
011b INIT_0118:
011b e002 | | Load 0x0,0x2
011c 02ff | | Declare_Variable Variant_Record
011d 00d8 | | Load_Top At_Offset_0
011e 1c00 | | Execute_Immediate Run_Utility,0x0
011f 00db | | Load_Top At_Offset_3
0120 8003 | | Call 0x0,0x3
0121 BODY_0118:
0121 00d8 | | Load_Top At_Offset_0
0122 8004 | | Call 0x0,0x4
0123 0f02 | | Execute_Immediate Equal,0x2
0124 6810 |h | Jump_Zero 0x135
0125 4800 |H | Short_Literal 0x0
0126 e5ff | | Load 0x2,-0x1
0127 8003 | | Call 0x0,0x3
0128 8244 | D | Call 0x1,0x44
0129 8005 | | Call 0x0,0x5
012a 00da | | Load_Top At_Offset_2
012b 016d | m | Execute Variant_Record,Structure_Write
012c 00d9 | | Load_Top At_Offset_1
012d 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
012e 0f02 | | Execute_Immediate Equal,0x2
012f 6803 |h | Jump_Zero 0x133
0130 00d9 | | Load_Top At_Offset_1
0131 2e04 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
0132 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0133 4826 |H& | Short_Literal 0x26
0134 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0135 4826 |H& | Short_Literal 0x26
0136 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0137 0000 | | .XXX[0x1]
0138 ; --------------------------------------------------------------------------------------
0138 ; SUBPROGRAM
0138 ; --------------------------------------------------------------------------------------
0138 013f | ? | .CONST 0x013f ; Address of begin
0139 0004 | | .CONST 0x0004 ; Address of exception handler
013a 0003 | | .CONST 0x0003 ; Number of locals
013b INIT_0138:
013b 00da | | Load_Top At_Offset_2
013c 8003 | | Call 0x0,0x3
013d 00db | | Load_Top At_Offset_3
013e 8003 | | Call 0x0,0x3
013f BODY_0138:
013f 00cf | | Action Mark_Auxiliary
0140 00da | | Load_Top At_Offset_2
0141 0145 | E | Execute Heap_Access,Diana_Tree_Kind
0142 00d8 | | Load_Top At_Offset_0
0143 0d4a | J | Execute_Immediate Less,0x4a
0144 700a |p | Jump_Nonzero 0x14f
0145 00d8 | | Load_Top At_Offset_0
0146 0c7c | | | Execute_Immediate Greater_Equal,0x7c
0147 7002 |p | Jump_Nonzero 0x14a
0148 00d1 | | Pop_Control Pop_Count_1
0149 7825 |x% | Jump 0x16f
014a 0b7c | | | Execute_Immediate Case_Compare,0x7c
014b 7011 |p | Jump_Nonzero 0x15d
014c 0fa8 | | Execute_Immediate Equal,-0x58
014d 700b |p | Jump_Nonzero 0x159
014e 7820 |x | Jump 0x16f
014f 00d8 | | Load_Top At_Offset_0
0150 4801 |H | Short_Literal 0x1
0151 4846 |HF | Short_Literal 0x46
0152 0262 | b | Execute Discrete,In_Range
0153 77f4 |w | Jump_Nonzero 0x148
0154 4847 |HG | Short_Literal 0x47
0155 4849 |HI | Short_Literal 0x49
0156 0262 | b | Execute Discrete,In_Range
0157 7003 |p | Jump_Nonzero 0x15b
0158 780d |x | Jump 0x166
0159 4801 |H | Short_Literal 0x1
015a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
015b 4800 |H | Short_Literal 0x0
015c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
015d 00d1 | | Pop_Control Pop_Count_1
015e 00da | | Load_Top At_Offset_2
015f 00eb | | Load_Encached Diana_Cache
0160 18be | | Execute Package,Field_Execute,Field_Number 0xbe
0161 00da | | Load_Top At_Offset_2
0162 021f | | Execute Heap_Access,Equal
0163 680b |h | Jump_Zero 0x16f
0164 4800 |H | Short_Literal 0x0
0165 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0166 00d9 | | Load_Top At_Offset_1
0167 8006 | | Call 0x0,0x6
0168 6804 |h | Jump_Zero 0x16d
0169 00d9 | | Load_Top At_Offset_1
016a 8007 | | Call 0x0,0x7
016b 0033 | 3 | Store_Top Heap_Access,At_Offset_3
016c 7802 |x | Jump 0x16f
016d 4800 |H | Short_Literal 0x0
016e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
016f 00da | | Load_Top At_Offset_2
0170 0032 | 2 | Store_Top Heap_Access,At_Offset_2
0171 00da | | Load_Top At_Offset_2
0172 00eb | | Load_Encached Diana_Cache
0173 18ec | | Execute Package,Field_Execute,Field_Number 0xec
0174 0033 | 3 | Store_Top Heap_Access,At_Offset_3
0175 00c9 | | Action Pop_Auxiliary_Loop
0176 7fc9 | | Jump 0x140
0177 0000 | | .XXX[0x1]
0178 ; --------------------------------------------------------------------------------------
0178 ; SUBPROGRAM
0178 ; --------------------------------------------------------------------------------------
0178 017f | | .CONST 0x017f ; Address of begin
0179 0004 | | .CONST 0x0004 ; Address of exception handler
017a 0003 | | .CONST 0x0003 ; Number of locals
017b INIT_0178:
017b 00da | | Load_Top At_Offset_2
017c 8003 | | Call 0x0,0x3
017d 00db | | Load_Top At_Offset_3
017e 8003 | | Call 0x0,0x3
017f BODY_0178:
017f 00cf | | Action Mark_Auxiliary
0180 00da | | Load_Top At_Offset_2
0181 0145 | E | Execute Heap_Access,Diana_Tree_Kind
0182 0b00 | | Execute_Immediate Case_Compare,0x0
0183 7010 |p | Jump_Nonzero 0x194
0184 0ba8 | | Execute_Immediate Case_Compare,0xa8
0185 7003 |p | Jump_Nonzero 0x189
0186 0f7c | | | Execute_Immediate Equal,0x7c
0187 7004 |p | Jump_Nonzero 0x18c
0188 7815 |x | Jump 0x19e
0189 00d1 | | Pop_Control Pop_Count_1
018a 4800 |H | Short_Literal 0x0
018b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
018c 00da | | Load_Top At_Offset_2
018d 00eb | | Load_Encached Diana_Cache
018e 18be | | Execute Package,Field_Execute,Field_Number 0xbe
018f 00da | | Load_Top At_Offset_2
0190 021f | | Execute Heap_Access,Equal
0191 680c |h | Jump_Zero 0x19e
0192 4801 |H | Short_Literal 0x1
0193 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0194 00d1 | | Pop_Control Pop_Count_1
0195 00d9 | | Load_Top At_Offset_1
0196 8006 | | Call 0x0,0x6
0197 6804 |h | Jump_Zero 0x19c
0198 00d9 | | Load_Top At_Offset_1
0199 8007 | | Call 0x0,0x7
019a 0033 | 3 | Store_Top Heap_Access,At_Offset_3
019b 7802 |x | Jump 0x19e
019c 4800 |H | Short_Literal 0x0
019d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
019e 00da | | Load_Top At_Offset_2
019f 0032 | 2 | Store_Top Heap_Access,At_Offset_2
01a0 00da | | Load_Top At_Offset_2
01a1 00eb | | Load_Encached Diana_Cache
01a2 18ec | | Execute Package,Field_Execute,Field_Number 0xec
01a3 0033 | 3 | Store_Top Heap_Access,At_Offset_3
01a4 00c9 | | Action Pop_Auxiliary_Loop
01a5 7fda | | Jump 0x180
01a6 0000 0000 | | .XXX[0x2]
01a8 ; --------------------------------------------------------------------------------------
01a8 ; SUBPROGRAM
01a8 ; --------------------------------------------------------------------------------------
01a8 01ac | | .CONST 0x01ac ; Address of begin
01a9 0004 | | .CONST 0x0004 ; Address of exception handler
01aa 0002 | | .CONST 0x0002 ; Number of locals
01ab INIT_01a8:
01ab 00ec | | Load_Encached Diana_Tree_Cache
01ac BODY_01a8:
01ac 4800 |H | Short_Literal 0x0
01ad e5ff | | Load 0x2,-0x1
01ae 8003 | | Call 0x0,0x3
01af 8244 | D | Call 0x1,0x44
01b0 0031 | 1 | Store_Top Heap_Access,At_Offset_1
01b1 00d8 | | Load_Top At_Offset_0
01b2 680c |h | Jump_Zero 0x1bf
01b3 00d8 | | Load_Top At_Offset_0
01b4 e008 | | Load 0x0,0x8
01b5 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
01b6 6806 |h | Jump_Zero 0x1bd
01b7 00d8 | | Load_Top At_Offset_0
01b8 00eb | | Load_Encached Diana_Cache
01b9 18ec | | Execute Package,Field_Execute,Field_Number 0xec
01ba 0145 | E | Execute Heap_Access,Diana_Tree_Kind
01bb 0f8f | | Execute_Immediate Equal,-0x71
01bc 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01bd 4800 |H | Short_Literal 0x0
01be 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01bf 4800 |H | Short_Literal 0x0
01c0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01c1 0000 0000 | | .BLANK 0000[0x7]
01c8 ; --------------------------------------------------------------------------------------
01c8 ; SUBPROGRAM
01c8 ; --------------------------------------------------------------------------------------
01c8 01cc | | .CONST 0x01cc ; Address of begin
01c9 0004 | | .CONST 0x0004 ; Address of exception handler
01ca 0002 | | .CONST 0x0002 ; Number of locals
01cb INIT_01c8:
01cb 00ec | | Load_Encached Diana_Tree_Cache
01cc BODY_01c8:
01cc 4800 |H | Short_Literal 0x0
01cd e5ff | | Load 0x2,-0x1
01ce 8003 | | Call 0x0,0x3
01cf 8244 | D | Call 0x1,0x44
01d0 0031 | 1 | Store_Top Heap_Access,At_Offset_1
01d1 00d8 | | Load_Top At_Offset_0
01d2 680c |h | Jump_Zero 0x1df
01d3 00d8 | | Load_Top At_Offset_0
01d4 e008 | | Load 0x0,0x8
01d5 1834 | 4 | Execute Package,Field_Execute,Field_Number 0x34
01d6 6806 |h | Jump_Zero 0x1dd
01d7 00d8 | | Load_Top At_Offset_0
01d8 00eb | | Load_Encached Diana_Cache
01d9 18ec | | Execute Package,Field_Execute,Field_Number 0xec
01da 0145 | E | Execute Heap_Access,Diana_Tree_Kind
01db 0f94 | | Execute_Immediate Equal,-0x6c
01dc 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01dd 4800 |H | Short_Literal 0x0
01de 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01df 4800 |H | Short_Literal 0x0
01e0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01e1 0000 0000 | | .BLANK 0000[0x7]
01e8 ; --------------------------------------------------------------------------------------
01e8 ; SUBPROGRAM
01e8 ; --------------------------------------------------------------------------------------
01e8 01f0 | | .CONST 0x01f0 ; Address of begin
01e9 0004 | | .CONST 0x0004 ; Address of exception handler
01ea 0004 | | .CONST 0x0004 ; Number of locals
01eb INIT_01e8:
01eb 00ec | | Load_Encached Diana_Tree_Cache
01ec e009 | | Load 0x0,0x9
01ed 0322 | " | Declare_Variable Record
01ee e00a | | Load 0x0,0xa
01ef 0322 | " | Declare_Variable Record
01f0 BODY_01e8:
01f0 e5ff | | Load 0x2,-0x1
01f1 8243 | C | Call 0x1,0x43
01f2 0033 | 3 | Store_Top Heap_Access,At_Offset_3
01f3 00da | | Load_Top At_Offset_2
01f4 0145 | E | Execute Heap_Access,Diana_Tree_Kind
01f5 0f90 | | Execute_Immediate Equal,-0x70
01f6 680b |h | Jump_Zero 0x202
01f7 00da | | Load_Top At_Offset_2
01f8 00eb | | Load_Encached Diana_Cache
01f9 1889 | | Execute Package,Field_Execute,Field_Number 0x89
01fa 800b | | Call 0x0,0xb
01fb 00da | | Load_Top At_Offset_2
01fc 017d | } | Execute Record,Structure_Write
01fd 00d8 | | Load_Top At_Offset_0
01fe 00da | | Load_Top At_Offset_2
01ff 800c | | Call 0x0,0xc
0200 00d1 | | Pop_Control Pop_Count_1
0201 7805 |x | Jump 0x207
0202 00d8 | | Load_Top At_Offset_0
0203 00db | | Load_Top At_Offset_3
0204 800d | | Call 0x0,0xd
0205 800e | | Call 0x0,0xe
0206 00d1 | | Pop_Control Pop_Count_1
0207 00d8 | | Load_Top At_Offset_0
0208 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0209 0000 0000 | | .BLANK 0000[0x7]
0210 ; --------------------------------------------------------------------------------------
0210 ; SUBPROGRAM
0210 ; --------------------------------------------------------------------------------------
0210 0215 | | .CONST 0x0215 ; Address of begin
0211 0004 | | .CONST 0x0004 ; Address of exception handler
0212 0002 | | .CONST 0x0002 ; Number of locals
0213 INIT_0210:
0213 029f 0b63 | c| Declare_Subprogram INIT_0b60,For_Call
0215 BODY_0210:
0215 4801 |H | Short_Literal 0x1
0216 e5ff | | Load 0x2,-0x1
0217 8213 | | Call 0x1,0x13
0218 8402 | | Call 0x2,0x2
0219 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
021a 0000 0000 | | .BLANK 0000[0x6]
0220 ; --------------------------------------------------------------------------------------
0220 ; SUBPROGRAM
0220 ; --------------------------------------------------------------------------------------
0220 0225 | % | .CONST 0x0225 ; Address of begin
0221 0004 | | .CONST 0x0004 ; Address of exception handler
0222 0002 | | .CONST 0x0002 ; Number of locals
0223 INIT_0220:
0223 00da | | Load_Top At_Offset_2
0224 8003 | | Call 0x0,0x3
0225 BODY_0220:
0225 00cf | | Action Mark_Auxiliary
0226 7805 |x | Jump 0x22c
0227 00d9 | | Load_Top At_Offset_1
0228 00eb | | Load_Encached Diana_Cache
0229 18ec | | Execute Package,Field_Execute,Field_Number 0xec
022a 0032 | 2 | Store_Top Heap_Access,At_Offset_2
022b 00c9 | | Action Pop_Auxiliary_Loop
022c 00d9 | | Load_Top At_Offset_1
022d 6805 |h | Jump_Zero 0x233
022e 00d9 | | Load_Top At_Offset_1
022f 8005 | | Call 0x0,0x5
0230 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0231 0f02 | | Execute_Immediate Equal,0x2
0232 7801 |x | Jump 0x234
0233 4801 |H | Short_Literal 0x1
0234 6ff2 |o | Jump_Zero 0x227
0235 00ce | | Action Pop_Auxiliary
0236 00d8 | | Load_Top At_Offset_0
0237 800d | | Call 0x0,0xd
0238 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0239 0000 0000 | | .BLANK 0000[0x7]
0240 ; --------------------------------------------------------------------------------------
0240 ; SUBPROGRAM
0240 ; --------------------------------------------------------------------------------------
0240 0245 | E | .CONST 0x0245 ; Address of begin
0241 0004 | | .CONST 0x0004 ; Address of exception handler
0242 0002 | | .CONST 0x0002 ; Number of locals
0243 INIT_0240:
0243 00da | | Load_Top At_Offset_2
0244 8003 | | Call 0x0,0x3
0245 BODY_0240:
0245 00d8 | | Load_Top At_Offset_0
0246 0145 | E | Execute Heap_Access,Diana_Tree_Kind
0247 0f9b | | Execute_Immediate Equal,-0x65
0248 703d |p= | Jump_Nonzero 0x286
0249 4801 |H | Short_Literal 0x1
024a 00d9 | | Load_Top At_Offset_1
024b 8244 | D | Call 0x1,0x44
024c 0031 | 1 | Store_Top Heap_Access,At_Offset_1
024d 00d8 | | Load_Top At_Offset_0
024e 0145 | E | Execute Heap_Access,Diana_Tree_Kind
024f 00d8 | | Load_Top At_Offset_0
0250 0d38 | 8 | Execute_Immediate Less,0x38
0251 7020 |p | Jump_Nonzero 0x272
0252 00d8 | | Load_Top At_Offset_0
0253 0c3a | : | Execute_Immediate Greater_Equal,0x3a
0254 7016 |p | Jump_Nonzero 0x26b
0255 0f38 | 8 | Execute_Immediate Equal,0x38
0256 701f |p | Jump_Nonzero 0x276
0257 00d8 | | Load_Top At_Offset_0
0258 00eb | | Load_Encached Diana_Cache
0259 18d7 | | Execute Package,Field_Execute,Field_Number 0xd7
025a 7002 |p | Jump_Nonzero 0x25d
025b 4800 |H | Short_Literal 0x0
025c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
025d 00d8 | | Load_Top At_Offset_0
025e 00eb | | Load_Encached Diana_Cache
025f 18d7 | | Execute Package,Field_Execute,Field_Number 0xd7
0260 0145 | E | Execute Heap_Access,Diana_Tree_Kind
0261 0f80 | | Execute_Immediate Equal,-0x80
0262 6806 |h | Jump_Zero 0x269
0263 0092 0bc3 | | Action Push_String_Extended,0xbc3 ; "Element is an Object Renaming"
0265 e00f | | Load 0x0,0xf
0266 8010 | | Call 0x0,0x10
0267 e011 | | Load 0x0,0x11
0268 0257 | W | Execute Discrete,Raise
0269 4801 |H | Short_Literal 0x1
026a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
026b 0b3a | : | Execute_Immediate Case_Compare,0x3a
026c 7008 |p | Jump_Nonzero 0x275
026d 487d |H} | Short_Literal 0x7d
026e 487f |H | Short_Literal 0x7f
026f 0262 | b | Execute Discrete,In_Range
0270 7009 |p | Jump_Nonzero 0x27a
0271 780e |x | Jump 0x280
0272 0f02 | | Execute_Immediate Equal,0x2
0273 7004 |p | Jump_Nonzero 0x278
0274 780b |x | Jump 0x280
0275 00d1 | | Pop_Control Pop_Count_1
0276 4801 |H | Short_Literal 0x1
0277 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0278 4800 |H | Short_Literal 0x0
0279 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
027a 00d8 | | Load_Top At_Offset_0
027b 00eb | | Load_Encached Diana_Cache
027c 18ca | | Execute Package,Field_Execute,Field_Number 0xca
027d 021d | | Execute Heap_Access,Is_Null
027e 0f00 | | Execute_Immediate Equal,0x0
027f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0280 0092 0bc4 | | Action Push_String_Extended,0xbc4 ; "Element is not an Object or Parameter Declaration"
0282 e00f | | Load 0x0,0xf
0283 8010 | | Call 0x0,0x10
0284 e011 | | Load 0x0,0x11
0285 0257 | W | Execute Discrete,Raise
0286 00d8 | | Load_Top At_Offset_0
0287 00eb | | Load_Encached Diana_Cache
0288 18d7 | | Execute Package,Field_Execute,Field_Number 0xd7
0289 021d | | Execute Heap_Access,Is_Null
028a 0f00 | | Execute_Immediate Equal,0x0
028b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
028c 0000 0000 | | .BLANK 0000[0x4]
0290 ; --------------------------------------------------------------------------------------
0290 ; SUBPROGRAM
0290 ; --------------------------------------------------------------------------------------
0290 0295 | | .CONST 0x0295 ; Address of begin
0291 0004 | | .CONST 0x0004 ; Address of exception handler
0292 0002 | | .CONST 0x0002 ; Number of locals
0293 INIT_0290:
0293 00da | | Load_Top At_Offset_2
0294 8003 | | Call 0x0,0x3
0295 BODY_0290:
0295 00d8 | | Load_Top At_Offset_0
0296 0145 | E | Execute Heap_Access,Diana_Tree_Kind
0297 0f9b | | Execute_Immediate Equal,-0x65
0298 7028 |p( | Jump_Nonzero 0x2c1
0299 4801 |H | Short_Literal 0x1
029a 00d9 | | Load_Top At_Offset_1
029b 8244 | D | Call 0x1,0x44
029c 0031 | 1 | Store_Top Heap_Access,At_Offset_1
029d 00d8 | | Load_Top At_Offset_0
029e 0145 | E | Execute Heap_Access,Diana_Tree_Kind
029f 00d8 | | Load_Top At_Offset_0
02a0 4838 |H8 | Short_Literal 0x38
02a1 4839 |H9 | Short_Literal 0x39
02a2 0262 | b | Execute Discrete,In_Range
02a3 700c |p | Jump_Nonzero 0x2b0
02a4 0b3a | : | Execute_Immediate Case_Compare,0x3a
02a5 7010 |p | Jump_Nonzero 0x2b6
02a6 487d |H} | Short_Literal 0x7d
02a7 487f |H | Short_Literal 0x7f
02a8 0262 | b | Execute Discrete,In_Range
02a9 7012 |p | Jump_Nonzero 0x2bc
02aa 0092 0bc4 | | Action Push_String_Extended,0xbc4 ; "Element is not an Object or Parameter Declaration"
02ac e00f | | Load 0x0,0xf
02ad 8010 | | Call 0x0,0x10
02ae e011 | | Load 0x0,0x11
02af 0257 | W | Execute Discrete,Raise
02b0 00d1 | | Pop_Control Pop_Count_1
02b1 00d8 | | Load_Top At_Offset_0
02b2 00eb | | Load_Encached Diana_Cache
02b3 18d7 | | Execute Package,Field_Execute,Field_Number 0xd7
02b4 800d | | Call 0x0,0xd
02b5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02b6 00d1 | | Pop_Control Pop_Count_1
02b7 00d8 | | Load_Top At_Offset_0
02b8 00eb | | Load_Encached Diana_Cache
02b9 18c5 | | Execute Package,Field_Execute,Field_Number 0xc5
02ba 800d | | Call 0x0,0xd
02bb 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02bc 00d8 | | Load_Top At_Offset_0
02bd 00eb | | Load_Encached Diana_Cache
02be 18ca | | Execute Package,Field_Execute,Field_Number 0xca
02bf 800d | | Call 0x0,0xd
02c0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02c1 00d8 | | Load_Top At_Offset_0
02c2 00eb | | Load_Encached Diana_Cache
02c3 18d7 | | Execute Package,Field_Execute,Field_Number 0xd7
02c4 800d | | Call 0x0,0xd
02c5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02c6 0000 0000 | | .XXX[0x2]
02c8 ; --------------------------------------------------------------------------------------
02c8 ; SUBPROGRAM
02c8 ; --------------------------------------------------------------------------------------
02c8 02cc | | .CONST 0x02cc ; Address of begin
02c9 0004 | | .CONST 0x0004 ; Address of exception handler
02ca 0002 | | .CONST 0x0002 ; Number of locals
02cb INIT_02c8:
02cb 00ec | | Load_Encached Diana_Tree_Cache
02cc BODY_02c8:
02cc 4801 |H | Short_Literal 0x1
02cd e5ff | | Load 0x2,-0x1
02ce 8003 | | Call 0x0,0x3
02cf 8244 | D | Call 0x1,0x44
02d0 0031 | 1 | Store_Top Heap_Access,At_Offset_1
02d1 00d8 | | Load_Top At_Offset_0
02d2 0145 | E | Execute Heap_Access,Diana_Tree_Kind
02d3 0b9b | | Execute_Immediate Case_Compare,0x9b
02d4 700a |p | Jump_Nonzero 0x2df
02d5 4838 |H8 | Short_Literal 0x38
02d6 4839 |H9 | Short_Literal 0x39
02d7 0262 | b | Execute Discrete,In_Range
02d8 700c |p | Jump_Nonzero 0x2e5
02d9 0092 0bc5 | | Action Push_String_Extended,0xbc5 ; "Element is not an object declaration or id"
02db e00f | | Load 0x0,0xf
02dc 8010 | | Call 0x0,0x10
02dd e011 | | Load 0x0,0x11
02de 0257 | W | Execute Discrete,Raise
02df 00d1 | | Pop_Control Pop_Count_1
02e0 00d8 | | Load_Top At_Offset_0
02e1 00eb | | Load_Encached Diana_Cache
02e2 18d4 | | Execute Package,Field_Execute,Field_Number 0xd4
02e3 800d | | Call 0x0,0xd
02e4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02e5 00d8 | | Load_Top At_Offset_0
02e6 00eb | | Load_Encached Diana_Cache
02e7 18e8 | | Execute Package,Field_Execute,Field_Number 0xe8
02e8 800d | | Call 0x0,0xd
02e9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02ea 0000 0000 | | .BLANK 0000[0x6]
02f0 ; --------------------------------------------------------------------------------------
02f0 ; SUBPROGRAM
02f0 ; --------------------------------------------------------------------------------------
02f0 02f5 | | .CONST 0x02f5 ; Address of begin
02f1 0004 | | .CONST 0x0004 ; Address of exception handler
02f2 0002 | | .CONST 0x0002 ; Number of locals
02f3 INIT_02f0:
02f3 00da | | Load_Top At_Offset_2
02f4 8003 | | Call 0x0,0x3
02f5 BODY_02f0:
02f5 00d8 | | Load_Top At_Offset_0
02f6 0145 | E | Execute Heap_Access,Diana_Tree_Kind
02f7 0f9b | | Execute_Immediate Equal,-0x65
02f8 7018 |p | Jump_Nonzero 0x311
02f9 4801 |H | Short_Literal 0x1
02fa 00d9 | | Load_Top At_Offset_1
02fb 8244 | D | Call 0x1,0x44
02fc 0031 | 1 | Store_Top Heap_Access,At_Offset_1
02fd 00d8 | | Load_Top At_Offset_0
02fe 0145 | E | Execute Heap_Access,Diana_Tree_Kind
02ff 0b02 | | Execute_Immediate Case_Compare,0x2
0300 700a |p | Jump_Nonzero 0x30b
0301 487d |H} | Short_Literal 0x7d
0302 487f |H | Short_Literal 0x7f
0303 0262 | b | Execute Discrete,In_Range
0304 7007 |p | Jump_Nonzero 0x30c
0305 0092 0bc6 | | Action Push_String_Extended,0xbc6 ; "Element is not a subprogram formal or deferred constant"
0307 e00f | | Load 0x0,0xf
0308 8010 | | Call 0x0,0x10
0309 e011 | | Load 0x0,0x11
030a 0257 | W | Execute Discrete,Raise
030b 00d1 | | Pop_Control Pop_Count_1
030c 00d8 | | Load_Top At_Offset_0
030d 00eb | | Load_Encached Diana_Cache
030e 18d4 | | Execute Package,Field_Execute,Field_Number 0xd4
030f 800d | | Call 0x0,0xd
0310 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0311 00d8 | | Load_Top At_Offset_0
0312 00eb | | Load_Encached Diana_Cache
0313 18d4 | | Execute Package,Field_Execute,Field_Number 0xd4
0314 800d | | Call 0x0,0xd
0315 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0316 0000 0000 | | .XXX[0x2]
0318 ; --------------------------------------------------------------------------------------
0318 ; SUBPROGRAM
0318 ; --------------------------------------------------------------------------------------
0318 031c | | .CONST 0x031c ; Address of begin
0319 0004 | | .CONST 0x0004 ; Address of exception handler
031a 0002 | | .CONST 0x0002 ; Number of locals
031b INIT_0318:
031b 00ec | | Load_Encached Diana_Tree_Cache
031c BODY_0318:
031c 4801 |H | Short_Literal 0x1
031d e5ff | | Load 0x2,-0x1
031e 8003 | | Call 0x0,0x3
031f 8244 | D | Call 0x1,0x44
0320 0031 | 1 | Store_Top Heap_Access,At_Offset_1
0321 00d8 | | Load_Top At_Offset_0
0322 0145 | E | Execute Heap_Access,Diana_Tree_Kind
0323 0f3b | ; | Execute_Immediate Equal,0x3b
0324 6806 |h | Jump_Zero 0x32b
0325 00d8 | | Load_Top At_Offset_0
0326 00eb | | Load_Encached Diana_Cache
0327 18e8 | | Execute Package,Field_Execute,Field_Number 0xe8
0328 0145 | E | Execute Heap_Access,Diana_Tree_Kind
0329 0f71 | q | Execute_Immediate Equal,0x71
032a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
032b 4800 |H | Short_Literal 0x0
032c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
032d 0000 0000 | | .XXX[0x3]
032f 0000 | |
0330 ; --------------------------------------------------------------------------------------
0330 ; SUBPROGRAM
0330 ; --------------------------------------------------------------------------------------
0330 0334 | 4 | .CONST 0x0334 ; Address of begin
0331 0004 | | .CONST 0x0004 ; Address of exception handler
0332 0002 | | .CONST 0x0002 ; Number of locals
0333 INIT_0330:
0333 00ec | | Load_Encached Diana_Tree_Cache
0334 BODY_0330:
0334 4801 |H | Short_Literal 0x1
0335 e5ff | | Load 0x2,-0x1
0336 8003 | | Call 0x0,0x3
0337 8244 | D | Call 0x1,0x44
0338 0031 | 1 | Store_Top Heap_Access,At_Offset_1
0339 00d8 | | Load_Top At_Offset_0
033a 0145 | E | Execute Heap_Access,Diana_Tree_Kind
033b 0f3b | ; | Execute_Immediate Equal,0x3b
033c 6806 |h | Jump_Zero 0x343
033d 00d8 | | Load_Top At_Offset_0
033e 00eb | | Load_Encached Diana_Cache
033f 18e8 | | Execute Package,Field_Execute,Field_Number 0xe8
0340 0145 | E | Execute Heap_Access,Diana_Tree_Kind
0341 0f70 | p | Execute_Immediate Equal,0x70
0342 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0343 4800 |H | Short_Literal 0x0
0344 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0345 0000 0000 | | .XXX[0x3]
0347 0000 | |
0348 ; --------------------------------------------------------------------------------------
0348 ; SUBPROGRAM
0348 ; --------------------------------------------------------------------------------------
0348 034c | L | .CONST 0x034c ; Address of begin
0349 0004 | | .CONST 0x0004 ; Address of exception handler
034a 0002 | | .CONST 0x0002 ; Number of locals
034b INIT_0348:
034b 00ec | | Load_Encached Diana_Tree_Cache
034c BODY_0348:
034c 4801 |H | Short_Literal 0x1
034d e5ff | | Load 0x2,-0x1
034e 8003 | | Call 0x0,0x3
034f 8244 | D | Call 0x1,0x44
0350 0031 | 1 | Store_Top Heap_Access,At_Offset_1
0351 00d8 | | Load_Top At_Offset_0
0352 0145 | E | Execute Heap_Access,Diana_Tree_Kind
0353 0f3b | ; | Execute_Immediate Equal,0x3b
0354 6805 |h | Jump_Zero 0x35a
0355 00d8 | | Load_Top At_Offset_0
0356 00eb | | Load_Encached Diana_Cache
0357 18e8 | | Execute Package,Field_Execute,Field_Number 0xe8
0358 021d | | Execute Heap_Access,Is_Null
0359 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
035a 4800 |H | Short_Literal 0x0
035b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
035c 0000 0000 | | .BLANK 0000[0x4]
0360 ; --------------------------------------------------------------------------------------
0360 ; SUBPROGRAM
0360 ; --------------------------------------------------------------------------------------
0360 0364 | d | .CONST 0x0364 ; Address of begin
0361 0004 | | .CONST 0x0004 ; Address of exception handler
0362 0002 | | .CONST 0x0002 ; Number of locals
0363 INIT_0360:
0363 00ec | | Load_Encached Diana_Tree_Cache
0364 BODY_0360:
0364 4801 |H | Short_Literal 0x1
0365 e5ff | | Load 0x2,-0x1
0366 8003 | | Call 0x0,0x3
0367 8244 | D | Call 0x1,0x44
0368 0031 | 1 | Store_Top Heap_Access,At_Offset_1
0369 00d8 | | Load_Top At_Offset_0
036a 0145 | E | Execute Heap_Access,Diana_Tree_Kind
036b 0b3b | ; | Execute_Immediate Case_Compare,0x3b
036c 7008 |p | Jump_Nonzero 0x375
036d 0f3c | < | Execute_Immediate Equal,0x3c
036e 700c |p | Jump_Nonzero 0x37b
036f 0092 0bc7 | | Action Push_String_Extended,0xbc7 ; "Element is not a type or subtype"
0371 e00f | | Load 0x0,0xf
0372 8010 | | Call 0x0,0x10
0373 e011 | | Load 0x0,0x11
0374 0257 | W | Execute Discrete,Raise
0375 00d1 | | Pop_Control Pop_Count_1
0376 00d8 | | Load_Top At_Offset_0
0377 00eb | | Load_Encached Diana_Cache
0378 18e8 | | Execute Package,Field_Execute,Field_Number 0xe8
0379 800d | | Call 0x0,0xd
037a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
037b 00d8 | | Load_Top At_Offset_0
037c 00eb | | Load_Encached Diana_Cache
037d 18b9 | | Execute Package,Field_Execute,Field_Number 0xb9
037e 800d | | Call 0x0,0xd
037f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0380 ; --------------------------------------------------------------------------------------
0380 ; SUBPROGRAM
0380 ; --------------------------------------------------------------------------------------
0380 0388 | | .CONST 0x0388 ; Address of begin
0381 0004 | | .CONST 0x0004 ; Address of exception handler
0382 0006 | | .CONST 0x0006 ; Number of locals
0383 INIT_0380:
0383 00ec | | Load_Encached Diana_Tree_Cache
0384 00ee | | Load_Encached Diana_Seq_Type_Cache
0385 00ec | | Load_Encached Diana_Tree_Cache
0386 00ec | | Load_Encached Diana_Tree_Cache
0387 00ec | | Load_Encached Diana_Tree_Cache
0388 BODY_0380:
0388 4801 |H | Short_Literal 0x1
0389 e5ff | | Load 0x2,-0x1
038a 8003 | | Call 0x0,0x3
038b 8244 | D | Call 0x1,0x44
038c 0033 | 3 | Store_Top Heap_Access,At_Offset_3
038d 00da | | Load_Top At_Offset_2
038e 0145 | E | Execute Heap_Access,Diana_Tree_Kind
038f 0b3b | ; | Execute_Immediate Case_Compare,0x3b
0390 7008 |p | Jump_Nonzero 0x399
0391 0f3c | < | Execute_Immediate Equal,0x3c
0392 704d |pM | Jump_Nonzero 0x3e0
0393 0092 0bc7 | | Action Push_String_Extended,0xbc7 ; "Element is not a type or subtype"
0395 e00f | | Load 0x0,0xf
0396 8010 | | Call 0x0,0x10
0397 e011 | | Load 0x0,0x11
0398 0257 | W | Execute Discrete,Raise
0399 00d1 | | Pop_Control Pop_Count_1
039a 00da | | Load_Top At_Offset_2
039b 00eb | | Load_Encached Diana_Cache
039c 18e8 | | Execute Package,Field_Execute,Field_Number 0xe8
039d 0032 | 2 | Store_Top Heap_Access,At_Offset_2
039e 00d9 | | Load_Top At_Offset_1
039f 703d |p= | Jump_Nonzero 0x3dd
03a0 00da | | Load_Top At_Offset_2
03a1 00eb | | Load_Encached Diana_Cache
03a2 18cf | | Execute Package,Field_Execute,Field_Number 0xcf
03a3 4907 |I | Short_Literal 0x107
03a4 00eb | | Load_Encached Diana_Cache
03a5 0096 | | Execute Package,Entry
03a6 0032 | 2 | Store_Top Heap_Access,At_Offset_2
03a7 00d9 | | Load_Top At_Offset_1
03a8 7030 |p0 | Jump_Nonzero 0x3d9
03a9 00da | | Load_Top At_Offset_2
03aa 00eb | | Load_Encached Diana_Cache
03ab 18ec | | Execute Package,Field_Execute,Field_Number 0xec
03ac 800d | | Call 0x0,0xd
03ad 8215 | | Call 0x1,0x15
03ae 8226 | & | Call 0x1,0x26
03af 8003 | | Call 0x0,0x3
03b0 0031 | 1 | Store_Top Heap_Access,At_Offset_1
03b1 00d8 | | Load_Top At_Offset_0
03b2 7002 |p | Jump_Nonzero 0x3b5
03b3 e012 | | Load 0x0,0x12
03b4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
03b5 00d8 | | Load_Top At_Offset_0
03b6 00eb | | Load_Encached Diana_Cache
03b7 18b6 | | Execute Package,Field_Execute,Field_Number 0xb6
03b8 00eb | | Load_Encached Diana_Cache
03b9 18d1 | | Execute Package,Field_Execute,Field_Number 0xd1
03ba 00eb | | Load_Encached Diana_Cache
03bb 1888 | | Execute Package,Field_Execute,Field_Number 0x88
03bc a403 | | Store_Unchecked 0x2,0x3
03bd 00cf | | Action Mark_Auxiliary
03be 7816 |x | Jump 0x3d5
03bf e403 | | Load 0x2,0x3
03c0 008b | | Action Heap_Access,Diana_Seq_Type_Get_Head
03c1 a402 | | Store_Unchecked 0x2,0x2
03c2 e402 | | Load 0x2,0x2
03c3 0145 | E | Execute Heap_Access,Diana_Tree_Kind
03c4 0f3b | ; | Execute_Immediate Equal,0x3b
03c5 6809 |h | Jump_Zero 0x3cf
03c6 e402 | | Load 0x2,0x2
03c7 e013 | | Load 0x0,0x13
03c8 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
03c9 e404 | | Load 0x2,0x4
03ca 021f | | Execute Heap_Access,Equal
03cb 6803 |h | Jump_Zero 0x3cf
03cc e402 | | Load 0x2,0x2
03cd 800d | | Call 0x0,0xd
03ce 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
03cf e403 | | Load 0x2,0x3
03d0 0217 | | Execute Heap_Access,All_Reference
03d1 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
03d2 a403 | | Store_Unchecked 0x2,0x3
03d3 e012 | | Load 0x0,0x12
03d4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
03d5 e403 | | Load 0x2,0x3
03d6 77e8 |w | Jump_Nonzero 0x3bf
03d7 00ce | | Action Pop_Auxiliary
03d8 780a |x | Jump 0x3e3
03d9 00d9 | | Load_Top At_Offset_1
03da 800d | | Call 0x0,0xd
03db 8215 | | Call 0x1,0x15
03dc 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
03dd 00da | | Load_Top At_Offset_2
03de 800d | | Call 0x0,0xd
03df 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
03e0 00da | | Load_Top At_Offset_2
03e1 800d | | Call 0x0,0xd
03e2 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
03e3 0831 | 1 | Execute_Immediate Raise,0x31
03e4 0000 0000 | | .BLANK 0000[0x4]
03e8 ; --------------------------------------------------------------------------------------
03e8 ; SUBPROGRAM
03e8 ; --------------------------------------------------------------------------------------
03e8 03ec | | .CONST 0x03ec ; Address of begin
03e9 0004 | | .CONST 0x0004 ; Address of exception handler
03ea 0002 | | .CONST 0x0002 ; Number of locals
03eb INIT_03e8:
03eb 00ec | | Load_Encached Diana_Tree_Cache
03ec BODY_03e8:
03ec 4801 |H | Short_Literal 0x1
03ed e5ff | | Load 0x2,-0x1
03ee 8003 | | Call 0x0,0x3
03ef 8244 | D | Call 0x1,0x44
03f0 0031 | 1 | Store_Top Heap_Access,At_Offset_1
03f1 00d8 | | Load_Top At_Offset_0
03f2 0145 | E | Execute Heap_Access,Diana_Tree_Kind
03f3 00d8 | | Load_Top At_Offset_0
03f4 483b |H; | Short_Literal 0x3b
03f5 4841 |HA | Short_Literal 0x41
03f6 0262 | b | Execute Discrete,In_Range
03f7 6814 |h | Jump_Zero 0x40c
03f8 0b3b | ; | Execute_Immediate Case_Compare,0x3b
03f9 700b |p | Jump_Nonzero 0x405
03fa 00d8 | | Load_Top At_Offset_0
03fb 483d |H= | Short_Literal 0x3d
03fc 483f |H? | Short_Literal 0x3f
03fd 0262 | b | Execute Discrete,In_Range
03fe 7003 |p | Jump_Nonzero 0x402
03ff 0f41 | A | Execute_Immediate Equal,0x41
0400 7002 |p | Jump_Nonzero 0x403
0401 780b |x | Jump 0x40d
0402 00d1 | | Pop_Control Pop_Count_1
0403 4801 |H | Short_Literal 0x1
0404 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0405 00d1 | | Pop_Control Pop_Count_1
0406 00d8 | | Load_Top At_Offset_0
0407 00eb | | Load_Encached Diana_Cache
0408 18e8 | | Execute Package,Field_Execute,Field_Number 0xe8
0409 0145 | E | Execute Heap_Access,Diana_Tree_Kind
040a 0f73 | s | Execute_Immediate Equal,0x73
040b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
040c 00d1 | | Pop_Control Pop_Count_1
040d 4800 |H | Short_Literal 0x0
040e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
040f 0000 | | .XXX[0x1]
0410 ; --------------------------------------------------------------------------------------
0410 ; SUBPROGRAM
0410 ; --------------------------------------------------------------------------------------
0410 0414 | | .CONST 0x0414 ; Address of begin
0411 0004 | | .CONST 0x0004 ; Address of exception handler
0412 0002 | | .CONST 0x0002 ; Number of locals
0413 INIT_0410:
0413 00ec | | Load_Encached Diana_Tree_Cache
0414 BODY_0410:
0414 4801 |H | Short_Literal 0x1
0415 e5ff | | Load 0x2,-0x1
0416 8003 | | Call 0x0,0x3
0417 8244 | D | Call 0x1,0x44
0418 0031 | 1 | Store_Top Heap_Access,At_Offset_1
0419 00d8 | | Load_Top At_Offset_0
041a 0145 | E | Execute Heap_Access,Diana_Tree_Kind
041b 00d8 | | Load_Top At_Offset_0
041c 483e |H> | Short_Literal 0x3e
041d 4847 |HG | Short_Literal 0x47
041e 0262 | b | Execute Discrete,In_Range
041f 6811 |h | Jump_Zero 0x431
0420 0b3e | > | Execute_Immediate Case_Compare,0x3e
0421 7005 |p | Jump_Nonzero 0x427
0422 0b41 | A | Execute_Immediate Case_Compare,0x41
0423 7006 |p | Jump_Nonzero 0x42a
0424 0f47 | G | Execute_Immediate Equal,0x47
0425 7002 |p | Jump_Nonzero 0x428
0426 780b |x | Jump 0x432
0427 00d1 | | Pop_Control Pop_Count_1
0428 4801 |H | Short_Literal 0x1
0429 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
042a 00d1 | | Pop_Control Pop_Count_1
042b 00d8 | | Load_Top At_Offset_0
042c 00eb | | Load_Encached Diana_Cache
042d 18cc | | Execute Package,Field_Execute,Field_Number 0xcc
042e 0145 | E | Execute Heap_Access,Diana_Tree_Kind
042f 0f7c | | | Execute_Immediate Equal,0x7c
0430 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0431 00d1 | | Pop_Control Pop_Count_1
0432 4800 |H | Short_Literal 0x0
0433 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0434 0000 0000 | | .BLANK 0000[0x4]
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 8003 | | Call 0x0,0x3
043f 8244 | D | Call 0x1,0x44
0440 0031 | 1 | Store_Top Heap_Access,At_Offset_1
0441 00d8 | | Load_Top At_Offset_0
0442 0145 | E | Execute Heap_Access,Diana_Tree_Kind
0443 00d8 | | Load_Top At_Offset_0
0444 483b |H; | Short_Literal 0x3b
0445 4846 |HF | Short_Literal 0x46
0446 0262 | b | Execute Discrete,In_Range
0447 6811 |h | Jump_Zero 0x459
0448 0b3b | ; | Execute_Immediate Case_Compare,0x3b
0449 7008 |p | Jump_Nonzero 0x452
044a 0b3f | ? | Execute_Immediate Case_Compare,0x3f
044b 7003 |p | Jump_Nonzero 0x44f
044c 0f46 | F | Execute_Immediate Equal,0x46
044d 7002 |p | Jump_Nonzero 0x450
044e 780b |x | Jump 0x45a
044f 00d1 | | Pop_Control Pop_Count_1
0450 4801 |H | Short_Literal 0x1
0451 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0452 00d1 | | Pop_Control Pop_Count_1
0453 00d8 | | Load_Top At_Offset_0
0454 00eb | | Load_Encached Diana_Cache
0455 18e8 | | Execute Package,Field_Execute,Field_Number 0xe8
0456 0145 | E | Execute Heap_Access,Diana_Tree_Kind
0457 0f73 | s | Execute_Immediate Equal,0x73
0458 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0459 00d1 | | Pop_Control Pop_Count_1
045a 4800 |H | Short_Literal 0x0
045b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
045c 0000 0000 | | .BLANK 0000[0x4]
0460 ; --------------------------------------------------------------------------------------
0460 ; SUBPROGRAM
0460 ; --------------------------------------------------------------------------------------
0460 0464 | d | .CONST 0x0464 ; Address of begin
0461 0004 | | .CONST 0x0004 ; Address of exception handler
0462 0002 | | .CONST 0x0002 ; Number of locals
0463 INIT_0460:
0463 00ec | | Load_Encached Diana_Tree_Cache
0464 BODY_0460:
0464 4801 |H | Short_Literal 0x1
0465 e5ff | | Load 0x2,-0x1
0466 8003 | | Call 0x0,0x3
0467 8244 | D | Call 0x1,0x44
0468 0031 | 1 | Store_Top Heap_Access,At_Offset_1
0469 00d8 | | Load_Top At_Offset_0
046a 0145 | E | Execute Heap_Access,Diana_Tree_Kind
046b 00d8 | | Load_Top At_Offset_0
046c 483d |H= | Short_Literal 0x3d
046d 4848 |HH | Short_Literal 0x48
046e 0262 | b | Execute Discrete,In_Range
046f 6815 |h | Jump_Zero 0x485
0470 0b3d | = | Execute_Immediate Case_Compare,0x3d
0471 7005 |p | Jump_Nonzero 0x477
0472 0b41 | A | Execute_Immediate Case_Compare,0x41
0473 700a |p | Jump_Nonzero 0x47e
0474 0f48 | H | Execute_Immediate Equal,0x48
0475 7002 |p | Jump_Nonzero 0x478
0476 780f |x | Jump 0x486
0477 00d1 | | Pop_Control Pop_Count_1
0478 00d8 | | Load_Top At_Offset_0
0479 00eb | | Load_Encached Diana_Cache
047a 18ce | | Execute Package,Field_Execute,Field_Number 0xce
047b 0145 | E | Execute Heap_Access,Diana_Tree_Kind
047c 0f7b | { | Execute_Immediate Equal,0x7b
047d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
047e 00d1 | | Pop_Control Pop_Count_1
047f 00d8 | | Load_Top At_Offset_0
0480 00eb | | Load_Encached Diana_Cache
0481 18cc | | Execute Package,Field_Execute,Field_Number 0xcc
0482 0145 | E | Execute Heap_Access,Diana_Tree_Kind
0483 0f7b | { | Execute_Immediate Equal,0x7b
0484 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0485 00d1 | | Pop_Control Pop_Count_1
0486 4800 |H | Short_Literal 0x0
0487 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0488 ; --------------------------------------------------------------------------------------
0488 ; SUBPROGRAM
0488 ; --------------------------------------------------------------------------------------
0488 048c | | .CONST 0x048c ; Address of begin
0489 0004 | | .CONST 0x0004 ; Address of exception handler
048a 0002 | | .CONST 0x0002 ; Number of locals
048b INIT_0488:
048b 00ec | | Load_Encached Diana_Tree_Cache
048c BODY_0488:
048c 4801 |H | Short_Literal 0x1
048d e5ff | | Load 0x2,-0x1
048e 8003 | | Call 0x0,0x3
048f 8244 | D | Call 0x1,0x44
0490 0031 | 1 | Store_Top Heap_Access,At_Offset_1
0491 00d8 | | Load_Top At_Offset_0
0492 0145 | E | Execute Heap_Access,Diana_Tree_Kind
0493 00d8 | | Load_Top At_Offset_0
0494 483d |H= | Short_Literal 0x3d
0495 4848 |HH | Short_Literal 0x48
0496 0262 | b | Execute Discrete,In_Range
0497 6815 |h | Jump_Zero 0x4ad
0498 0b3d | = | Execute_Immediate Case_Compare,0x3d
0499 7005 |p | Jump_Nonzero 0x49f
049a 0b41 | A | Execute_Immediate Case_Compare,0x41
049b 700a |p | Jump_Nonzero 0x4a6
049c 0f48 | H | Execute_Immediate Equal,0x48
049d 7002 |p | Jump_Nonzero 0x4a0
049e 780f |x | Jump 0x4ae
049f 00d1 | | Pop_Control Pop_Count_1
04a0 00d8 | | Load_Top At_Offset_0
04a1 00eb | | Load_Encached Diana_Cache
04a2 18ce | | Execute Package,Field_Execute,Field_Number 0xce
04a3 0145 | E | Execute Heap_Access,Diana_Tree_Kind
04a4 0f7a | z | Execute_Immediate Equal,0x7a
04a5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
04a6 00d1 | | Pop_Control Pop_Count_1
04a7 00d8 | | Load_Top At_Offset_0
04a8 00eb | | Load_Encached Diana_Cache
04a9 18cc | | Execute Package,Field_Execute,Field_Number 0xcc
04aa 0145 | E | Execute Heap_Access,Diana_Tree_Kind
04ab 0f7a | z | Execute_Immediate Equal,0x7a
04ac 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
04ad 00d1 | | Pop_Control Pop_Count_1
04ae 4800 |H | Short_Literal 0x0
04af 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
04b0 ; --------------------------------------------------------------------------------------
04b0 ; SUBPROGRAM
04b0 ; --------------------------------------------------------------------------------------
04b0 04b4 | | .CONST 0x04b4 ; Address of begin
04b1 0004 | | .CONST 0x0004 ; Address of exception handler
04b2 0002 | | .CONST 0x0002 ; Number of locals
04b3 INIT_04b0:
04b3 00ec | | Load_Encached Diana_Tree_Cache
04b4 BODY_04b0:
04b4 4801 |H | Short_Literal 0x1
04b5 e5ff | | Load 0x2,-0x1
04b6 8003 | | Call 0x0,0x3
04b7 8244 | D | Call 0x1,0x44
04b8 0031 | 1 | Store_Top Heap_Access,At_Offset_1
04b9 00d8 | | Load_Top At_Offset_0
04ba 0145 | E | Execute Heap_Access,Diana_Tree_Kind
04bb 00d8 | | Load_Top At_Offset_0
04bc 483d |H= | Short_Literal 0x3d
04bd 4848 |HH | Short_Literal 0x48
04be 0262 | b | Execute Discrete,In_Range
04bf 684a |hJ | Jump_Zero 0x50a
04c0 0b3d | = | Execute_Immediate Case_Compare,0x3d
04c1 7005 |p | Jump_Nonzero 0x4c7
04c2 0b41 | A | Execute_Immediate Case_Compare,0x41
04c3 702f |p/ | Jump_Nonzero 0x4f3
04c4 0f48 | H | Execute_Immediate Equal,0x48
04c5 7002 |p | Jump_Nonzero 0x4c8
04c6 7844 |xD | Jump 0x50b
04c7 00d1 | | Pop_Control Pop_Count_1
04c8 00d8 | | Load_Top At_Offset_0
04c9 00eb | | Load_Encached Diana_Cache
04ca 18bf | | Execute Package,Field_Execute,Field_Number 0xbf
04cb 0145 | E | Execute Heap_Access,Diana_Tree_Kind
04cc 00d8 | | Load_Top At_Offset_0
04cd 481f |H | Short_Literal 0x1f
04ce 4833 |H3 | Short_Literal 0x33
04cf 0262 | b | Execute Discrete,In_Range
04d0 681b |h | Jump_Zero 0x4ec
04d1 0ae1 | | Execute_Immediate Plus,-0x1f
04d2 4614 |F | Jump_Case 0x15
04d3 7816 |x | Jump 0x4ea ; case 0x0
04d4 7818 |x | Jump 0x4ed ; case 0x1
04d5 7812 |x | Jump 0x4e8 ; case 0x2
04d6 7816 |x | Jump 0x4ed ; case 0x3
04d7 7815 |x | Jump 0x4ed ; case 0x4
04d8 7814 |x | Jump 0x4ed ; case 0x5
04d9 7813 |x | Jump 0x4ed ; case 0x6
04da 7812 |x | Jump 0x4ed ; case 0x7
04db 7811 |x | Jump 0x4ed ; case 0x8
04dc 7810 |x | Jump 0x4ed ; case 0x9
04dd 780f |x | Jump 0x4ed ; case 0xa
04de 780e |x | Jump 0x4ed ; case 0xb
04df 780d |x | Jump 0x4ed ; case 0xc
04e0 7807 |x | Jump 0x4e8 ; case 0xd
04e1 780b |x | Jump 0x4ed ; case 0xe
04e2 780a |x | Jump 0x4ed ; case 0xf
04e3 7809 |x | Jump 0x4ed ; case 0x10
04e4 7808 |x | Jump 0x4ed ; case 0x11
04e5 7807 |x | Jump 0x4ed ; case 0x12
04e6 7806 |x | Jump 0x4ed ; case 0x13
04e7 7800 |x | Jump 0x4e8 ; case 0x14
04e8 4801 |H | Short_Literal 0x1
04e9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
04ea 4800 |H | Short_Literal 0x0
04eb 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
04ec 00d1 | | Pop_Control Pop_Count_1
04ed 0092 0bc8 | | Action Push_String_Extended,0xbc8 ; "Unexpected subprogram declaration or body"
04ef e014 | | Load 0x0,0x14
04f0 8010 | | Call 0x0,0x10
04f1 e011 | | Load 0x0,0x11
04f2 0257 | W | Execute Discrete,Raise
04f3 00d1 | | Pop_Control Pop_Count_1
04f4 00d8 | | Load_Top At_Offset_0
04f5 00eb | | Load_Encached Diana_Cache
04f6 18cc | | Execute Package,Field_Execute,Field_Number 0xcc
04f7 0145 | E | Execute Heap_Access,Diana_Tree_Kind
04f8 00d8 | | Load_Top At_Offset_0
04f9 487a |Hz | Short_Literal 0x7a
04fa 487b |H{ | Short_Literal 0x7b
04fb 0262 | b | Execute Discrete,In_Range
04fc 7008 |p | Jump_Nonzero 0x505
04fd 0f7c | | | Execute_Immediate Equal,0x7c
04fe 7009 |p | Jump_Nonzero 0x508
04ff 0092 0bc8 | | Action Push_String_Extended,0xbc8 ; "Unexpected subprogram declaration or body"
0501 e014 | | Load 0x0,0x14
0502 8010 | | Call 0x0,0x10
0503 e011 | | Load 0x0,0x11
0504 0257 | W | Execute Discrete,Raise
0505 00d1 | | Pop_Control Pop_Count_1
0506 4801 |H | Short_Literal 0x1
0507 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0508 4800 |H | Short_Literal 0x0
0509 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
050a 00d1 | | Pop_Control Pop_Count_1
050b 4800 |H | Short_Literal 0x0
050c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
050d 0000 0000 | | .XXX[0x3]
050f 0000 | |
0510 ; --------------------------------------------------------------------------------------
0510 ; SUBPROGRAM
0510 ; --------------------------------------------------------------------------------------
0510 0516 | | .CONST 0x0516 ; Address of begin
0511 0004 | | .CONST 0x0004 ; Address of exception handler
0512 0004 | | .CONST 0x0004 ; Number of locals
0513 INIT_0510:
0513 00ec | | Load_Encached Diana_Tree_Cache
0514 00ec | | Load_Encached Diana_Tree_Cache
0515 00ec | | Load_Encached Diana_Tree_Cache
0516 BODY_0510:
0516 4801 |H | Short_Literal 0x1
0517 e5ff | | Load 0x2,-0x1
0518 8003 | | Call 0x0,0x3
0519 8244 | D | Call 0x1,0x44
051a 0032 | 2 | Store_Top Heap_Access,At_Offset_2
051b 00d9 | | Load_Top At_Offset_1
051c 0145 | E | Execute Heap_Access,Diana_Tree_Kind
051d 00d8 | | Load_Top At_Offset_0
051e 483b |H; | Short_Literal 0x3b
051f 4848 |HH | Short_Literal 0x48
0520 0262 | b | Execute Discrete,In_Range
0521 684b |hK | Jump_Zero 0x56d
0522 0ac5 | | Execute_Immediate Plus,-0x3b
0523 460d |F | Jump_Case 0xe
0524 7839 |x9 | Jump 0x55e ; case 0x0
0525 7848 |xH | Jump 0x56e ; case 0x1
0526 7834 |x4 | Jump 0x55b ; case 0x2
0527 7833 |x3 | Jump 0x55b ; case 0x3
0528 7832 |x2 | Jump 0x55b ; case 0x4
0529 7844 |xD | Jump 0x56e ; case 0x5
052a 7830 |x0 | Jump 0x55b ; case 0x6
052b 7842 |xB | Jump 0x56e ; case 0x7
052c 7841 |xA | Jump 0x56e ; case 0x8
052d 7840 |x@ | Jump 0x56e ; case 0x9
052e 783f |x? | Jump 0x56e ; case 0xa
052f 781b |x | Jump 0x54b ; case 0xb
0530 781a |x | Jump 0x54b ; case 0xc
0531 7800 |x | Jump 0x532 ; case 0xd
0532 00d9 | | Load_Top At_Offset_1
0533 00eb | | Load_Encached Diana_Cache
0534 18bf | | Execute Package,Field_Execute,Field_Number 0xbf
0535 0033 | 3 | Store_Top Heap_Access,At_Offset_3
0536 00da | | Load_Top At_Offset_2
0537 490b |I | Short_Literal 0x10b
0538 00eb | | Load_Encached Diana_Cache
0539 0096 | | Execute Package,Entry
053a e015 | | Load 0x0,0x15
053b 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
053c 0031 | 1 | Store_Top Heap_Access,At_Offset_1
053d 00d8 | | Load_Top At_Offset_0
053e 6804 |h | Jump_Zero 0x543
053f 00d8 | | Load_Top At_Offset_0
0540 00db | | Load_Top At_Offset_3
0541 021f | | Execute Heap_Access,Equal
0542 6803 |h | Jump_Zero 0x546
0543 00d9 | | Load_Top At_Offset_1
0544 800d | | Call 0x0,0xd
0545 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0546 00d8 | | Load_Top At_Offset_0
0547 00eb | | Load_Encached Diana_Cache
0548 18ec | | Execute Package,Field_Execute,Field_Number 0xec
0549 800d | | Call 0x0,0xd
054a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
054b 00d9 | | Load_Top At_Offset_1
054c 00eb | | Load_Encached Diana_Cache
054d 18cf | | Execute Package,Field_Execute,Field_Number 0xcf
054e 0033 | 3 | Store_Top Heap_Access,At_Offset_3
054f 00da | | Load_Top At_Offset_2
0550 490b |I | Short_Literal 0x10b
0551 00eb | | Load_Encached Diana_Cache
0552 0096 | | Execute Package,Entry
0553 e015 | | Load 0x0,0x15
0554 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
0555 0031 | 1 | Store_Top Heap_Access,At_Offset_1
0556 00d8 | | Load_Top At_Offset_0
0557 00eb | | Load_Encached Diana_Cache
0558 18ec | | Execute Package,Field_Execute,Field_Number 0xec
0559 800d | | Call 0x0,0xd
055a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
055b 00d9 | | Load_Top At_Offset_1
055c 800d | | Call 0x0,0xd
055d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
055e 00d9 | | Load_Top At_Offset_1
055f 00eb | | Load_Encached Diana_Cache
0560 18e8 | | Execute Package,Field_Execute,Field_Number 0xe8
0561 0145 | E | Execute Heap_Access,Diana_Tree_Kind
0562 0f73 | s | Execute_Immediate Equal,0x73
0563 6803 |h | Jump_Zero 0x567
0564 00d9 | | Load_Top At_Offset_1
0565 800d | | Call 0x0,0xd
0566 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0567 0092 0bc9 | | Action Push_String_Extended,0xbc9 ; "Element is not a Program Unit"
0569 e00f | | Load 0x0,0xf
056a 8010 | | Call 0x0,0x10
056b e011 | | Load 0x0,0x11
056c 0257 | W | Execute Discrete,Raise
056d 00d1 | | Pop_Control Pop_Count_1
056e 0092 0bc9 | | Action Push_String_Extended,0xbc9 ; "Element is not a Program Unit"
0570 e00f | | Load 0x0,0xf
0571 8010 | | Call 0x0,0x10
0572 e011 | | Load 0x0,0x11
0573 0257 | W | Execute Discrete,Raise
0574 0000 0000 | | .BLANK 0000[0x4]
0578 ; --------------------------------------------------------------------------------------
0578 ; SUBPROGRAM
0578 ; --------------------------------------------------------------------------------------
0578 057e | ~ | .CONST 0x057e ; Address of begin
0579 0004 | | .CONST 0x0004 ; Address of exception handler
057a 0004 | | .CONST 0x0004 ; Number of locals
057b INIT_0578:
057b 00ec | | Load_Encached Diana_Tree_Cache
057c 00ec | | Load_Encached Diana_Tree_Cache
057d 00ec | | Load_Encached Diana_Tree_Cache
057e BODY_0578:
057e 4801 |H | Short_Literal 0x1
057f e5ff | | Load 0x2,-0x1
0580 8003 | | Call 0x0,0x3
0581 8244 | D | Call 0x1,0x44
0582 0032 | 2 | Store_Top Heap_Access,At_Offset_2
0583 00d9 | | Load_Top At_Offset_1
0584 0145 | E | Execute Heap_Access,Diana_Tree_Kind
0585 00d8 | | Load_Top At_Offset_0
0586 483b |H; | Short_Literal 0x3b
0587 4848 |HH | Short_Literal 0x48
0588 0262 | b | Execute Discrete,In_Range
0589 683e |h> | Jump_Zero 0x5c8
058a 0ac5 | | Execute_Immediate Plus,-0x3b
058b 460d |F | Jump_Case 0xe
058c 7829 |x) | Jump 0x5b6 ; case 0x0
058d 783b |x; | Jump 0x5c9 ; case 0x1
058e 7821 |x! | Jump 0x5b0 ; case 0x2
058f 7820 |x | Jump 0x5b0 ; case 0x3
0590 781f |x | Jump 0x5b0 ; case 0x4
0591 7837 |x7 | Jump 0x5c9 ; case 0x5
0592 781d |x | Jump 0x5b0 ; case 0x6
0593 7835 |x5 | Jump 0x5c9 ; case 0x7
0594 7834 |x4 | Jump 0x5c9 ; case 0x8
0595 7833 |x3 | Jump 0x5c9 ; case 0x9
0596 7832 |x2 | Jump 0x5c9 ; case 0xa
0597 7802 |x | Jump 0x59a ; case 0xb
0598 7801 |x | Jump 0x59a ; case 0xc
0599 7800 |x | Jump 0x59a ; case 0xd
059a 00d9 | | Load_Top At_Offset_1
059b 00eb | | Load_Encached Diana_Cache
059c 18b6 | | Execute Package,Field_Execute,Field_Number 0xb6
059d 0145 | E | Execute Heap_Access,Diana_Tree_Kind
059e 0f77 | w | Execute_Immediate Equal,0x77
059f 680d |h | Jump_Zero 0x5ad
05a0 4801 |H | Short_Literal 0x1
05a1 00da | | Load_Top At_Offset_2
05a2 e016 | | Load 0x0,0x16
05a3 180e | | Execute Package,Field_Execute,Field_Number 0xe
05a4 0031 | 1 | Store_Top Heap_Access,At_Offset_1
05a5 00d8 | | Load_Top At_Offset_0
05a6 7002 |p | Jump_Nonzero 0x5a9
05a7 e012 | | Load 0x0,0x12
05a8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
05a9 00d8 | | Load_Top At_Offset_0
05aa 800d | | Call 0x0,0xd
05ab 8017 | | Call 0x0,0x17
05ac 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
05ad 00d9 | | Load_Top At_Offset_1
05ae 800d | | Call 0x0,0xd
05af 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
05b0 4800 |H | Short_Literal 0x0
05b1 00da | | Load_Top At_Offset_2
05b2 e016 | | Load 0x0,0x16
05b3 180e | | Execute Package,Field_Execute,Field_Number 0xe
05b4 0033 | 3 | Store_Top Heap_Access,At_Offset_3
05b5 7819 |x | Jump 0x5cf
05b6 00d9 | | Load_Top At_Offset_1
05b7 00eb | | Load_Encached Diana_Cache
05b8 18e8 | | Execute Package,Field_Execute,Field_Number 0xe8
05b9 0145 | E | Execute Heap_Access,Diana_Tree_Kind
05ba 0f73 | s | Execute_Immediate Equal,0x73
05bb 6806 |h | Jump_Zero 0x5c2
05bc 4800 |H | Short_Literal 0x0
05bd 00da | | Load_Top At_Offset_2
05be e016 | | Load 0x0,0x16
05bf 180e | | Execute Package,Field_Execute,Field_Number 0xe
05c0 0033 | 3 | Store_Top Heap_Access,At_Offset_3
05c1 780d |x | Jump 0x5cf
05c2 0092 0bca | | Action Push_String_Extended,0xbca ; "Element has no unit body"
05c4 e00f | | Load 0x0,0xf
05c5 8010 | | Call 0x0,0x10
05c6 e011 | | Load 0x0,0x11
05c7 0257 | W | Execute Discrete,Raise
05c8 00d1 | | Pop_Control Pop_Count_1
05c9 0092 0bca | | Action Push_String_Extended,0xbca ; "Element has no unit body"
05cb e00f | | Load 0x0,0xf
05cc 8010 | | Call 0x0,0x10
05cd e011 | | Load 0x0,0x11
05ce 0257 | W | Execute Discrete,Raise
05cf 00da | | Load_Top At_Offset_2
05d0 7002 |p | Jump_Nonzero 0x5d3
05d1 e012 | | Load 0x0,0x12
05d2 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
05d3 00da | | Load_Top At_Offset_2
05d4 800d | | Call 0x0,0xd
05d5 821f | | Call 0x1,0x1f
05d6 6802 |h | Jump_Zero 0x5d9
05d7 e012 | | Load 0x0,0x12
05d8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
05d9 00da | | Load_Top At_Offset_2
05da 00eb | | Load_Encached Diana_Cache
05db 18ec | | Execute Package,Field_Execute,Field_Number 0xec
05dc 800d | | Call 0x0,0xd
05dd 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
05de 0000 0000 | | .XXX[0x2]
05e0 ; --------------------------------------------------------------------------------------
05e0 ; SUBPROGRAM
05e0 ; --------------------------------------------------------------------------------------
05e0 05e4 | | .CONST 0x05e4 ; Address of begin
05e1 0004 | | .CONST 0x0004 ; Address of exception handler
05e2 0002 | | .CONST 0x0002 ; Number of locals
05e3 INIT_05e0:
05e3 00ec | | Load_Encached Diana_Tree_Cache
05e4 BODY_05e0:
05e4 4801 |H | Short_Literal 0x1
05e5 e5ff | | Load 0x2,-0x1
05e6 8003 | | Call 0x0,0x3
05e7 8244 | D | Call 0x1,0x44
05e8 0031 | 1 | Store_Top Heap_Access,At_Offset_1
05e9 00d8 | | Load_Top At_Offset_0
05ea 8245 | E | Call 0x1,0x45
05eb 00eb | | Load_Encached Diana_Cache
05ec 18bd | | Execute Package,Field_Execute,Field_Number 0xbd
05ed 00eb | | Load_Encached Diana_Cache
05ee 1889 | | Execute Package,Field_Execute,Field_Number 0x89
05ef 800b | | Call 0x0,0xb
05f0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
05f1 0000 0000 | | .BLANK 0000[0x7]
05f8 ; --------------------------------------------------------------------------------------
05f8 ; SUBPROGRAM
05f8 ; --------------------------------------------------------------------------------------
05f8 05fc | | .CONST 0x05fc ; Address of begin
05f9 0004 | | .CONST 0x0004 ; Address of exception handler
05fa 0002 | | .CONST 0x0002 ; Number of locals
05fb INIT_05f8:
05fb 00ec | | Load_Encached Diana_Tree_Cache
05fc BODY_05f8:
05fc 4801 |H | Short_Literal 0x1
05fd e5ff | | Load 0x2,-0x1
05fe 8003 | | Call 0x0,0x3
05ff 8244 | D | Call 0x1,0x44
0600 0031 | 1 | Store_Top Heap_Access,At_Offset_1
0601 00d8 | | Load_Top At_Offset_0
0602 8245 | E | Call 0x1,0x45
0603 00eb | | Load_Encached Diana_Cache
0604 18be | | Execute Package,Field_Execute,Field_Number 0xbe
0605 00eb | | Load_Encached Diana_Cache
0606 1889 | | Execute Package,Field_Execute,Field_Number 0x89
0607 800b | | Call 0x0,0xb
0608 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0609 0000 0000 | | .BLANK 0000[0x7]
0610 ; --------------------------------------------------------------------------------------
0610 ; SUBPROGRAM
0610 ; --------------------------------------------------------------------------------------
0610 0614 | | .CONST 0x0614 ; Address of begin
0611 0004 | | .CONST 0x0004 ; Address of exception handler
0612 0002 | | .CONST 0x0002 ; Number of locals
0613 INIT_0610:
0613 00ec | | Load_Encached Diana_Tree_Cache
0614 BODY_0610:
0614 4801 |H | Short_Literal 0x1
0615 e5ff | | Load 0x2,-0x1
0616 8003 | | Call 0x0,0x3
0617 8244 | D | Call 0x1,0x44
0618 0031 | 1 | Store_Top Heap_Access,At_Offset_1
0619 0092 0bcb | | Action Push_String_Extended,0xbcb ; "Package Body Declaration);"
061b 4847 |HG | Short_Literal 0x47
061c 00da | | Load_Top At_Offset_2
061d 8246 | F | Call 0x1,0x46
061e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
061f 0000 | | .XXX[0x1]
0620 ; --------------------------------------------------------------------------------------
0620 ; SUBPROGRAM
0620 ; --------------------------------------------------------------------------------------
0620 0623 | # | .CONST 0x0623 ; Address of begin
0621 0004 | | .CONST 0x0004 ; Address of exception handler
0622 0001 | | .CONST 0x0001 ; Number of locals
0623 BODY_0620:
0623 INIT_0620:
0623 4607 |F | Jump_Case 0x8
0624 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
0625 7807 |x | Jump 0x62d ; case 0x1
0626 780a |x | Jump 0x631 ; case 0x2
0627 780e |x | Jump 0x636 ; case 0x3
0628 7811 |x | Jump 0x63a ; case 0x4
0629 7812 |x | Jump 0x63c ; case 0x5
062a 7813 |x | Jump 0x63e ; case 0x6
062b 7816 |x | Jump 0x642 ; case 0x7
062c 4302 |C | .XXX[0x1]
062d 00da | | Load_Top At_Offset_2
062e 0091 0baf | | Action Push_String_Extended_Indexed,0xbaf ; "DEFAULT_IN_PARAMETER"
0630 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0631 00db | | Load_Top At_Offset_3
0632 00db | | Load_Top At_Offset_3
0633 00e0 | | Load_Encached Standard_Cache
0634 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0635 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0636 00da | | Load_Top At_Offset_2
0637 00e0 | | Load_Encached Standard_Cache
0638 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0639 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
063a 00db | | Load_Top At_Offset_3
063b 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
063c 00db | | Load_Top At_Offset_3
063d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
063e e22a | * | Load 0x1,0x2a
063f 00dc | | Load_Top At_Offset_4
0640 0267 | g | Execute Discrete,Predecessor
0641 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0642 e22a | * | Load 0x1,0x2a
0643 00dc | | Load_Top At_Offset_4
0644 0268 | h | Execute Discrete,Successor
0645 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0646 0000 0000 | | .XXX[0x2]
0648 ; --------------------------------------------------------------------------------------
0648 ; SUBPROGRAM
0648 ; --------------------------------------------------------------------------------------
0648 064d | M | .CONST 0x064d ; Address of begin
0649 0004 | | .CONST 0x0004 ; Address of exception handler
064a 0002 | | .CONST 0x0002 ; Number of locals
064b INIT_0648:
064b 00da | | Load_Top At_Offset_2
064c 8003 | | Call 0x0,0x3
064d BODY_0648:
064d 00d8 | | Load_Top At_Offset_0
064e 0145 | E | Execute Heap_Access,Diana_Tree_Kind
064f 00d8 | | Load_Top At_Offset_0
0650 0d26 | & | Execute_Immediate Less,0x26
0651 700d |p | Jump_Nonzero 0x65f
0652 00d8 | | Load_Top At_Offset_0
0653 0c7d | } | Execute_Immediate Greater_Equal,0x7d
0654 7003 |p | Jump_Nonzero 0x658
0655 00d1 | | Pop_Control Pop_Count_1
0656 4804 |H | Short_Literal 0x4
0657 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0658 0b7d | } | Execute_Immediate Case_Compare,0x7d
0659 702b |p+ | Jump_Nonzero 0x685
065a 0b7e | ~ | Execute_Immediate Case_Compare,0x7e
065b 701e |p | Jump_Nonzero 0x67a
065c 0f7f | | Execute_Immediate Equal,0x7f
065d 7025 |p% | Jump_Nonzero 0x683
065e 7ff7 | | Jump 0x656
065f 0b23 | # | Execute_Immediate Case_Compare,0x23
0660 7005 |p | Jump_Nonzero 0x666
0661 0b24 | $ | Execute_Immediate Case_Compare,0x24
0662 7012 |p | Jump_Nonzero 0x675
0663 0f25 | % | Execute_Immediate Equal,0x25
0664 7013 |p | Jump_Nonzero 0x678
0665 7ff0 | | Jump 0x656
0666 00d1 | | Pop_Control Pop_Count_1
0667 00d8 | | Load_Top At_Offset_0
0668 00eb | | Load_Encached Diana_Cache
0669 18ec | | Execute Package,Field_Execute,Field_Number 0xec
066a 00eb | | Load_Encached Diana_Cache
066b 18ec | | Execute Package,Field_Execute,Field_Number 0xec
066c 0031 | 1 | Store_Top Heap_Access,At_Offset_1
066d 00d8 | | Load_Top At_Offset_0
066e 00eb | | Load_Encached Diana_Cache
066f 1844 | D | Execute Package,Field_Execute,Field_Number 0x44
0670 6802 |h | Jump_Zero 0x673
0671 4800 |H | Short_Literal 0x0
0672 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0673 4801 |H | Short_Literal 0x1
0674 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0675 00d1 | | Pop_Control Pop_Count_1
0676 4803 |H | Short_Literal 0x3
0677 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0678 4802 |H | Short_Literal 0x2
0679 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
067a 00d1 | | Pop_Control Pop_Count_1
067b 00d8 | | Load_Top At_Offset_0
067c 00eb | | Load_Encached Diana_Cache
067d 1844 | D | Execute Package,Field_Execute,Field_Number 0x44
067e 6802 |h | Jump_Zero 0x681
067f 4800 |H | Short_Literal 0x0
0680 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0681 4801 |H | Short_Literal 0x1
0682 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0683 4803 |H | Short_Literal 0x3
0684 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0685 00d1 | | Pop_Control Pop_Count_1
0686 4802 |H | Short_Literal 0x2
0687 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0688 ; --------------------------------------------------------------------------------------
0688 ; SUBPROGRAM
0688 ; --------------------------------------------------------------------------------------
0688 068d | | .CONST 0x068d ; Address of begin
0689 0004 | | .CONST 0x0004 ; Address of exception handler
068a 0003 | | .CONST 0x0003 ; Number of locals
068b INIT_0688:
068b 00ec | | Load_Encached Diana_Tree_Cache
068c 00ec | | Load_Encached Diana_Tree_Cache
068d BODY_0688:
068d 4801 |H | Short_Literal 0x1
068e e5ff | | Load 0x2,-0x1
068f 8003 | | Call 0x0,0x3
0690 8244 | D | Call 0x1,0x44
0691 0032 | 2 | Store_Top Heap_Access,At_Offset_2
0692 00d9 | | Load_Top At_Offset_1
0693 0145 | E | Execute Heap_Access,Diana_Tree_Kind
0694 00d8 | | Load_Top At_Offset_0
0695 483d |H= | Short_Literal 0x3d
0696 4848 |HH | Short_Literal 0x48
0697 0262 | b | Execute Discrete,In_Range
0698 6816 |h | Jump_Zero 0x6af
0699 0b3d | = | Execute_Immediate Case_Compare,0x3d
069a 7005 |p | Jump_Nonzero 0x6a0
069b 0b41 | A | Execute_Immediate Case_Compare,0x41
069c 700c |p | Jump_Nonzero 0x6a9
069d 0f48 | H | Execute_Immediate Equal,0x48
069e 7002 |p | Jump_Nonzero 0x6a1
069f 7810 |x | Jump 0x6b0
06a0 00d1 | | Pop_Control Pop_Count_1
06a1 00d9 | | Load_Top At_Offset_1
06a2 00eb | | Load_Encached Diana_Cache
06a3 18bf | | Execute Package,Field_Execute,Field_Number 0xbf
06a4 4904 |I | Short_Literal 0x104
06a5 00eb | | Load_Encached Diana_Cache
06a6 0096 | | Execute Package,Entry
06a7 0031 | 1 | Store_Top Heap_Access,At_Offset_1
06a8 7809 |x | Jump 0x6b2
06a9 00d1 | | Pop_Control Pop_Count_1
06aa 00d9 | | Load_Top At_Offset_1
06ab 00eb | | Load_Encached Diana_Cache
06ac 18cc | | Execute Package,Field_Execute,Field_Number 0xcc
06ad 0031 | 1 | Store_Top Heap_Access,At_Offset_1
06ae 7803 |x | Jump 0x6b2
06af 00d1 | | Pop_Control Pop_Count_1
06b0 00ec | | Load_Encached Diana_Tree_Cache
06b1 0031 | 1 | Store_Top Heap_Access,At_Offset_1
06b2 00d8 | | Load_Top At_Offset_0
06b3 0145 | E | Execute Heap_Access,Diana_Tree_Kind
06b4 4879 |Hy | Short_Literal 0x79
06b5 487b |H{ | Short_Literal 0x7b
06b6 0262 | b | Execute Discrete,In_Range
06b7 7006 |p | Jump_Nonzero 0x6be
06b8 0092 0bcc | | Action Push_String_Extended,0xbcc ; "Element is not a Subprogram or Entry Declaration"
06ba e00f | | Load 0x0,0xf
06bb 8010 | | Call 0x0,0x10
06bc e011 | | Load 0x0,0x11
06bd 0257 | W | Execute Discrete,Raise
06be 00d8 | | Load_Top At_Offset_0
06bf 00eb | | Load_Encached Diana_Cache
06c0 18da | | Execute Package,Field_Execute,Field_Number 0xda
06c1 00eb | | Load_Encached Diana_Cache
06c2 1889 | | Execute Package,Field_Execute,Field_Number 0x89
06c3 800b | | Call 0x0,0xb
06c4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
06c5 0000 0000 | | .XXX[0x3]
06c7 0000 | |
06c8 ; --------------------------------------------------------------------------------------
06c8 ; SUBPROGRAM
06c8 ; --------------------------------------------------------------------------------------
06c8 06cd | | .CONST 0x06cd ; Address of begin
06c9 0004 | | .CONST 0x0004 ; Address of exception handler
06ca 0003 | | .CONST 0x0003 ; Number of locals
06cb INIT_06c8:
06cb 00ec | | Load_Encached Diana_Tree_Cache
06cc 00ec | | Load_Encached Diana_Tree_Cache
06cd BODY_06c8:
06cd 4801 |H | Short_Literal 0x1
06ce e5ff | | Load 0x2,-0x1
06cf 8003 | | Call 0x0,0x3
06d0 8244 | D | Call 0x1,0x44
06d1 0032 | 2 | Store_Top Heap_Access,At_Offset_2
06d2 00d9 | | Load_Top At_Offset_1
06d3 0145 | E | Execute Heap_Access,Diana_Tree_Kind
06d4 00d8 | | Load_Top At_Offset_0
06d5 483d |H= | Short_Literal 0x3d
06d6 4848 |HH | Short_Literal 0x48
06d7 0262 | b | Execute Discrete,In_Range
06d8 6816 |h | Jump_Zero 0x6ef
06d9 0b3d | = | Execute_Immediate Case_Compare,0x3d
06da 7005 |p | Jump_Nonzero 0x6e0
06db 0b41 | A | Execute_Immediate Case_Compare,0x41
06dc 700c |p | Jump_Nonzero 0x6e9
06dd 0f48 | H | Execute_Immediate Equal,0x48
06de 7002 |p | Jump_Nonzero 0x6e1
06df 7810 |x | Jump 0x6f0
06e0 00d1 | | Pop_Control Pop_Count_1
06e1 00d9 | | Load_Top At_Offset_1
06e2 00eb | | Load_Encached Diana_Cache
06e3 18bf | | Execute Package,Field_Execute,Field_Number 0xbf
06e4 4904 |I | Short_Literal 0x104
06e5 00eb | | Load_Encached Diana_Cache
06e6 0096 | | Execute Package,Entry
06e7 0031 | 1 | Store_Top Heap_Access,At_Offset_1
06e8 7809 |x | Jump 0x6f2
06e9 00d1 | | Pop_Control Pop_Count_1
06ea 00d9 | | Load_Top At_Offset_1
06eb 00eb | | Load_Encached Diana_Cache
06ec 18cc | | Execute Package,Field_Execute,Field_Number 0xcc
06ed 0031 | 1 | Store_Top Heap_Access,At_Offset_1
06ee 7803 |x | Jump 0x6f2
06ef 00d1 | | Pop_Control Pop_Count_1
06f0 00ec | | Load_Encached Diana_Tree_Cache
06f1 0031 | 1 | Store_Top Heap_Access,At_Offset_1
06f2 00d8 | | Load_Top At_Offset_0
06f3 0145 | E | Execute Heap_Access,Diana_Tree_Kind
06f4 0f7a | z | Execute_Immediate Equal,0x7a
06f5 6805 |h | Jump_Zero 0x6fb
06f6 00d8 | | Load_Top At_Offset_0
06f7 00eb | | Load_Encached Diana_Cache
06f8 18d6 | | Execute Package,Field_Execute,Field_Number 0xd6
06f9 800d | | Call 0x0,0xd
06fa 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
06fb 0092 0bcd | | Action Push_String_Extended,0xbcd ; "Element is not a Function Declaration"
06fd e00f | | Load 0x0,0xf
06fe 8010 | | Call 0x0,0x10
06ff e011 | | Load 0x0,0x11
0700 0257 | W | Execute Discrete,Raise
0701 0000 0000 | | .BLANK 0000[0x7]
0708 ; --------------------------------------------------------------------------------------
0708 ; SUBPROGRAM
0708 ; --------------------------------------------------------------------------------------
0708 070c | | .CONST 0x070c ; Address of begin
0709 0004 | | .CONST 0x0004 ; Address of exception handler
070a 0002 | | .CONST 0x0002 ; Number of locals
070b INIT_0708:
070b 00ec | | Load_Encached Diana_Tree_Cache
070c BODY_0708:
070c 4801 |H | Short_Literal 0x1
070d e5ff | | Load 0x2,-0x1
070e 8003 | | Call 0x0,0x3
070f 8244 | D | Call 0x1,0x44
0710 0031 | 1 | Store_Top Heap_Access,At_Offset_1
0711 00d8 | | Load_Top At_Offset_0
0712 0145 | E | Execute Heap_Access,Diana_Tree_Kind
0713 0b3d | = | Execute_Immediate Case_Compare,0x3d
0714 7008 |p | Jump_Nonzero 0x71d
0715 0f48 | H | Execute_Immediate Equal,0x48
0716 7007 |p | Jump_Nonzero 0x71e
0717 0092 0bcd | | Action Push_String_Extended,0xbcd ; "Element is not a Function Declaration"
0719 e00f | | Load 0x0,0xf
071a 8010 | | Call 0x0,0x10
071b e011 | | Load 0x0,0x11
071c 0257 | W | Execute Discrete,Raise
071d 00d1 | | Pop_Control Pop_Count_1
071e 00d8 | | Load_Top At_Offset_0
071f 00eb | | Load_Encached Diana_Cache
0720 18bf | | Execute Package,Field_Execute,Field_Number 0xbf
0721 0145 | E | Execute Heap_Access,Diana_Tree_Kind
0722 0f33 | 3 | Execute_Immediate Equal,0x33
0723 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0724 0000 0000 | | .BLANK 0000[0x4]
0728 ; --------------------------------------------------------------------------------------
0728 ; SUBPROGRAM
0728 ; --------------------------------------------------------------------------------------
0728 072c | , | .CONST 0x072c ; Address of begin
0729 0004 | | .CONST 0x0004 ; Address of exception handler
072a 0002 | | .CONST 0x0002 ; Number of locals
072b INIT_0728:
072b 00ec | | Load_Encached Diana_Tree_Cache
072c BODY_0728:
072c 4801 |H | Short_Literal 0x1
072d e5ff | | Load 0x2,-0x1
072e 8003 | | Call 0x0,0x3
072f 8244 | D | Call 0x1,0x44
0730 0031 | 1 | Store_Top Heap_Access,At_Offset_1
0731 0092 0bce | | Action Push_String_Extended,0xbce ; "Subprogram Body Declaration);"
0733 4848 |HH | Short_Literal 0x48
0734 00da | | Load_Top At_Offset_2
0735 8246 | F | Call 0x1,0x46
0736 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0737 0000 | | .XXX[0x1]
0738 ; --------------------------------------------------------------------------------------
0738 ; SUBPROGRAM
0738 ; --------------------------------------------------------------------------------------
0738 073d | = | .CONST 0x073d ; Address of begin
0739 0004 | | .CONST 0x0004 ; Address of exception handler
073a 0003 | | .CONST 0x0003 ; Number of locals
073b INIT_0738:
073b 00ec | | Load_Encached Diana_Tree_Cache
073c 00ec | | Load_Encached Diana_Tree_Cache
073d BODY_0738:
073d 4801 |H | Short_Literal 0x1
073e e5ff | | Load 0x2,-0x1
073f 8003 | | Call 0x0,0x3
0740 8244 | D | Call 0x1,0x44
0741 0032 | 2 | Store_Top Heap_Access,At_Offset_2
0742 00ec | | Load_Encached Diana_Tree_Cache
0743 00da | | Load_Top At_Offset_2
0744 8018 | | Call 0x0,0x18
0745 0031 | 1 | Store_Top Heap_Access,At_Offset_1
0746 00d8 | | Load_Top At_Offset_0
0747 021d | | Execute Heap_Access,Is_Null
0748 0f00 | | Execute_Immediate Equal,0x0
0749 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
074a 0000 0000 | | .BLANK 0000[0x6]
0750 ; --------------------------------------------------------------------------------------
0750 ; SUBPROGRAM
0750 ; --------------------------------------------------------------------------------------
0750 0755 | U | .CONST 0x0755 ; Address of begin
0751 0004 | | .CONST 0x0004 ; Address of exception handler
0752 0003 | | .CONST 0x0003 ; Number of locals
0753 INIT_0750:
0753 00ec | | Load_Encached Diana_Tree_Cache
0754 00ec | | Load_Encached Diana_Tree_Cache
0755 BODY_0750:
0755 4801 |H | Short_Literal 0x1
0756 e5ff | | Load 0x2,-0x1
0757 8003 | | Call 0x0,0x3
0758 8244 | D | Call 0x1,0x44
0759 0032 | 2 | Store_Top Heap_Access,At_Offset_2
075a 00ec | | Load_Encached Diana_Tree_Cache
075b 00da | | Load_Top At_Offset_2
075c 8018 | | Call 0x0,0x18
075d 0031 | 1 | Store_Top Heap_Access,At_Offset_1
075e 00d8 | | Load_Top At_Offset_0
075f 7006 |p | Jump_Nonzero 0x766
0760 0092 0bcf | | Action Push_String_Extended,0xbcf ; "Element is not a Renaming Declaration"
0762 e00f | | Load 0x0,0xf
0763 8010 | | Call 0x0,0x10
0764 e011 | | Load 0x0,0x11
0765 0257 | W | Execute Discrete,Raise
0766 00d8 | | Load_Top At_Offset_0
0767 00eb | | Load_Encached Diana_Cache
0768 18d4 | | Execute Package,Field_Execute,Field_Number 0xd4
0769 800d | | Call 0x0,0xd
076a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
076b 0000 0000 | | .BLANK 0000[0x5]
0770 ; --------------------------------------------------------------------------------------
0770 ; SUBPROGRAM
0770 ; --------------------------------------------------------------------------------------
0770 0775 | u | .CONST 0x0775 ; Address of begin
0771 0004 | | .CONST 0x0004 ; Address of exception handler
0772 0002 | | .CONST 0x0002 ; Number of locals
0773 INIT_0770:
0773 e019 | | Load 0x0,0x19
0774 0007 | | Action Break_Optional
0775 BODY_0770:
0775 00db | | Load_Top At_Offset_3
0776 8231 | 1 | Call 0x1,0x31
0777 0031 | 1 | Store_Top Heap_Access,At_Offset_1
0778 00d8 | | Load_Top At_Offset_0
0779 801a | | Call 0x0,0x1a
077a 4612 |F | Jump_Case 0x13
077b 7814 |x | Jump 0x790 ; case 0x0
077c 7813 |x | Jump 0x790 ; case 0x1
077d 7810 |x | Jump 0x78e ; case 0x2
077e 780f |x | Jump 0x78e ; case 0x3
077f 7817 |x | Jump 0x797 ; case 0x4
0780 780d |x | Jump 0x78e ; case 0x5
0781 780c |x | Jump 0x78e ; case 0x6
0782 780b |x | Jump 0x78e ; case 0x7
0783 780a |x | Jump 0x78e ; case 0x8
0784 7809 |x | Jump 0x78e ; case 0x9
0785 7808 |x | Jump 0x78e ; case 0xa
0786 7807 |x | Jump 0x78e ; case 0xb
0787 7806 |x | Jump 0x78e ; case 0xc
0788 7805 |x | Jump 0x78e ; case 0xd
0789 7804 |x | Jump 0x78e ; case 0xe
078a 7803 |x | Jump 0x78e ; case 0xf
078b 7802 |x | Jump 0x78e ; case 0x10
078c 7801 |x | Jump 0x78e ; case 0x11
078d 7800 |x | Jump 0x78e ; case 0x12
078e e012 | | Load 0x0,0x12
078f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0790 4801 |H | Short_Literal 0x1
0791 00d9 | | Load_Top At_Offset_1
0792 8003 | | Call 0x0,0x3
0793 e016 | | Load 0x0,0x16
0794 180e | | Execute Package,Field_Execute,Field_Number 0xe
0795 800d | | Call 0x0,0xd
0796 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0797 00d8 | | Load_Top At_Offset_0
0798 801b | | Call 0x0,0x1b
0799 4604 |F | Jump_Case 0x5
079a 7807 |x | Jump 0x7a2 ; case 0x0
079b 7806 |x | Jump 0x7a2 ; case 0x1
079c 7802 |x | Jump 0x79f ; case 0x2
079d 7804 |x | Jump 0x7a2 ; case 0x3
079e 7800 |x | Jump 0x79f ; case 0x4
079f 00d8 | | Load_Top At_Offset_0
07a0 801c | | Call 0x0,0x1c
07a1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
07a2 e012 | | Load 0x0,0x12
07a3 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
07a4 0000 0000 | | .BLANK 0000[0x4]
07a8 ; --------------------------------------------------------------------------------------
07a8 ; SUBPROGRAM
07a8 ; --------------------------------------------------------------------------------------
07a8 07ac | | .CONST 0x07ac ; Address of begin
07a9 0004 | | .CONST 0x0004 ; Address of exception handler
07aa 0002 | | .CONST 0x0002 ; Number of locals
07ab INIT_07a8:
07ab 00ec | | Load_Encached Diana_Tree_Cache
07ac BODY_07a8:
07ac 4801 |H | Short_Literal 0x1
07ad e5ff | | Load 0x2,-0x1
07ae 8003 | | Call 0x0,0x3
07af 8244 | D | Call 0x1,0x44
07b0 0031 | 1 | Store_Top Heap_Access,At_Offset_1
07b1 00d8 | | Load_Top At_Offset_0
07b2 0145 | E | Execute Heap_Access,Diana_Tree_Kind
07b3 0f41 | A | Execute_Immediate Equal,0x41
07b4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
07b5 0000 0000 | | .XXX[0x3]
07b7 0000 | |
07b8 ; --------------------------------------------------------------------------------------
07b8 ; SUBPROGRAM
07b8 ; --------------------------------------------------------------------------------------
07b8 07bb | | .CONST 0x07bb ; Address of begin
07b9 0004 | | .CONST 0x0004 ; Address of exception handler
07ba 0001 | | .CONST 0x0001 ; Number of locals
07bb BODY_07b8:
07bb INIT_07b8:
07bb 4607 |F | Jump_Case 0x8
07bc 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
07bd 7807 |x | Jump 0x7c5 ; case 0x1
07be 780a |x | Jump 0x7c9 ; case 0x2
07bf 780e |x | Jump 0x7ce ; case 0x3
07c0 7811 |x | Jump 0x7d2 ; case 0x4
07c1 7812 |x | Jump 0x7d4 ; case 0x5
07c2 7813 |x | Jump 0x7d6 ; case 0x6
07c3 7816 |x | Jump 0x7da ; case 0x7
07c4 4302 |C | .XXX[0x1]
07c5 00da | | Load_Top At_Offset_2
07c6 0091 0bb4 | | Action Push_String_Extended_Indexed,0xbb4 ; "SUBPROGRAM"
07c8 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
07c9 00db | | Load_Top At_Offset_3
07ca 00db | | Load_Top At_Offset_3
07cb 00e0 | | Load_Encached Standard_Cache
07cc 181b | | Execute Package,Field_Execute,Field_Number 0x1b
07cd 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
07ce 00da | | Load_Top At_Offset_2
07cf 00e0 | | Load_Encached Standard_Cache
07d0 181c | | Execute Package,Field_Execute,Field_Number 0x1c
07d1 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
07d2 00db | | Load_Top At_Offset_3
07d3 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
07d4 00db | | Load_Top At_Offset_3
07d5 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
07d6 e234 | 4 | Load 0x1,0x34
07d7 00dc | | Load_Top At_Offset_4
07d8 0267 | g | Execute Discrete,Predecessor
07d9 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
07da e234 | 4 | Load 0x1,0x34
07db 00dc | | Load_Top At_Offset_4
07dc 0268 | h | Execute Discrete,Successor
07dd 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
07de 0000 0000 | | .XXX[0x2]
07e0 ; --------------------------------------------------------------------------------------
07e0 ; SUBPROGRAM
07e0 ; --------------------------------------------------------------------------------------
07e0 07e4 | | .CONST 0x07e4 ; Address of begin
07e1 0004 | | .CONST 0x0004 ; Address of exception handler
07e2 0002 | | .CONST 0x0002 ; Number of locals
07e3 INIT_07e0:
07e3 00ec | | Load_Encached Diana_Tree_Cache
07e4 BODY_07e0:
07e4 4801 |H | Short_Literal 0x1
07e5 e5ff | | Load 0x2,-0x1
07e6 8003 | | Call 0x0,0x3
07e7 8244 | D | Call 0x1,0x44
07e8 0031 | 1 | Store_Top Heap_Access,At_Offset_1
07e9 00d8 | | Load_Top At_Offset_0
07ea 00eb | | Load_Encached Diana_Cache
07eb 18ec | | Execute Package,Field_Execute,Field_Number 0xec
07ec 0145 | E | Execute Heap_Access,Diana_Tree_Kind
07ed 0f8f | | Execute_Immediate Equal,-0x71
07ee 7002 |p | Jump_Nonzero 0x7f1
07ef 480a |H | Short_Literal 0xa
07f0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
07f1 00d8 | | Load_Top At_Offset_0
07f2 0145 | E | Execute Heap_Access,Diana_Tree_Kind
07f3 00d8 | | Load_Top At_Offset_0
07f4 0d3b | ; | Execute_Immediate Less,0x3b
07f5 700d |p | Jump_Nonzero 0x803
07f6 00d8 | | Load_Top At_Offset_0
07f7 0c3e | > | Execute_Immediate Greater_Equal,0x3e
07f8 7005 |p | Jump_Nonzero 0x7fe
07f9 0b3b | ; | Execute_Immediate Case_Compare,0x3b
07fa 700d |p | Jump_Nonzero 0x808
07fb 0f3d | = | Execute_Immediate Equal,0x3d
07fc 7035 |p5 | Jump_Nonzero 0x832
07fd 7806 |x | Jump 0x804
07fe 487e |H~ | Short_Literal 0x7e
07ff 487f |H | Short_Literal 0x7f
0800 0262 | b | Execute Discrete,In_Range
0801 7004 |p | Jump_Nonzero 0x806
0802 7801 |x | Jump 0x804
0803 00d1 | | Pop_Control Pop_Count_1
0804 480a |H | Short_Literal 0xa
0805 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0806 4801 |H | Short_Literal 0x1
0807 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0808 00d1 | | Pop_Control Pop_Count_1
0809 00d8 | | Load_Top At_Offset_0
080a 00eb | | Load_Encached Diana_Cache
080b 18e8 | | Execute Package,Field_Execute,Field_Number 0xe8
080c 0145 | E | Execute Heap_Access,Diana_Tree_Kind
080d 00d8 | | Load_Top At_Offset_0
080e 4867 |Hg | Short_Literal 0x67
080f 4871 |Hq | Short_Literal 0x71
0810 0262 | b | Execute Discrete,In_Range
0811 681d |h | Jump_Zero 0x82f
0812 0a99 | | Execute_Immediate Plus,-0x67
0813 460a |F | Jump_Case 0xb
0814 780c |x | Jump 0x821 ; case 0x0
0815 780f |x | Jump 0x825 ; case 0x1
0816 7810 |x | Jump 0x827 ; case 0x2
0817 780b |x | Jump 0x823 ; case 0x3
0818 7814 |x | Jump 0x82d ; case 0x4
0819 7811 |x | Jump 0x82b ; case 0x5
081a 7815 |x | Jump 0x830 ; case 0x6
081b 7814 |x | Jump 0x830 ; case 0x7
081c 7813 |x | Jump 0x830 ; case 0x8
081d 780b |x | Jump 0x829 ; case 0x9
081e 7800 |x | Jump 0x81f ; case 0xa
081f 4802 |H | Short_Literal 0x2
0820 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0821 4804 |H | Short_Literal 0x4
0822 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0823 4805 |H | Short_Literal 0x5
0824 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0825 4807 |H | Short_Literal 0x7
0826 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0827 4806 |H | Short_Literal 0x6
0828 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0829 4803 |H | Short_Literal 0x3
082a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
082b 4808 |H | Short_Literal 0x8
082c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
082d 4809 |H | Short_Literal 0x9
082e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
082f 00d1 | | Pop_Control Pop_Count_1
0830 480a |H | Short_Literal 0xa
0831 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0832 4800 |H | Short_Literal 0x0
0833 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0834 0000 0000 | | .BLANK 0000[0x4]
0838 ; --------------------------------------------------------------------------------------
0838 ; SUBPROGRAM
0838 ; --------------------------------------------------------------------------------------
0838 083c | < | .CONST 0x083c ; Address of begin
0839 0004 | | .CONST 0x0004 ; Address of exception handler
083a 0002 | | .CONST 0x0002 ; Number of locals
083b INIT_0838:
083b 00ec | | Load_Encached Diana_Tree_Cache
083c BODY_0838:
083c 4801 |H | Short_Literal 0x1
083d e5ff | | Load 0x2,-0x1
083e 8003 | | Call 0x0,0x3
083f 8244 | D | Call 0x1,0x44
0840 0031 | 1 | Store_Top Heap_Access,At_Offset_1
0841 00d8 | | Load_Top At_Offset_0
0842 0145 | E | Execute Heap_Access,Diana_Tree_Kind
0843 0f41 | A | Execute_Immediate Equal,0x41
0844 6807 |h | Jump_Zero 0x84c
0845 00d8 | | Load_Top At_Offset_0
0846 00eb | | Load_Encached Diana_Cache
0847 18cd | | Execute Package,Field_Execute,Field_Number 0xcd
0848 00eb | | Load_Encached Diana_Cache
0849 1889 | | Execute Package,Field_Execute,Field_Number 0x89
084a 800b | | Call 0x0,0xb
084b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
084c 0092 0bd0 | | Action Push_String_Extended,0xbd0 ; "Element is not a Generic Declaration"
084e e00f | | Load 0x0,0xf
084f 8010 | | Call 0x0,0x10
0850 e011 | | Load 0x0,0x11
0851 0257 | W | Execute Discrete,Raise
0852 0000 0000 | | .BLANK 0000[0x6]
0858 ; --------------------------------------------------------------------------------------
0858 ; SUBPROGRAM
0858 ; --------------------------------------------------------------------------------------
0858 085b | [ | .CONST 0x085b ; Address of begin
0859 0004 | | .CONST 0x0004 ; Address of exception handler
085a 0001 | | .CONST 0x0001 ; Number of locals
085b BODY_0858:
085b INIT_0858:
085b 4607 |F | Jump_Case 0x8
085c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
085d 7807 |x | Jump 0x865 ; case 0x1
085e 780a |x | Jump 0x869 ; case 0x2
085f 780e |x | Jump 0x86e ; case 0x3
0860 7811 |x | Jump 0x872 ; case 0x4
0861 7812 |x | Jump 0x874 ; case 0x5
0862 7813 |x | Jump 0x876 ; case 0x6
0863 7816 |x | Jump 0x87a ; case 0x7
0864 4302 |C | .XXX[0x1]
0865 00da | | Load_Top At_Offset_2
0866 0091 0bbf | | Action Push_String_Extended_Indexed,0xbbf ; "BOX"
0868 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0869 00db | | Load_Top At_Offset_3
086a 00db | | Load_Top At_Offset_3
086b 00e0 | | Load_Encached Standard_Cache
086c 181b | | Execute Package,Field_Execute,Field_Number 0x1b
086d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
086e 00da | | Load_Top At_Offset_2
086f 00e0 | | Load_Encached Standard_Cache
0870 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0871 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0872 00db | | Load_Top At_Offset_3
0873 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0874 00db | | Load_Top At_Offset_3
0875 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0876 e237 | 7 | Load 0x1,0x37
0877 00dc | | Load_Top At_Offset_4
0878 0267 | g | Execute Discrete,Predecessor
0879 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
087a e237 | 7 | Load 0x1,0x37
087b 00dc | | Load_Top At_Offset_4
087c 0268 | h | Execute Discrete,Successor
087d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
087e 0000 0000 | | .XXX[0x2]
0880 ; --------------------------------------------------------------------------------------
0880 ; SUBPROGRAM
0880 ; --------------------------------------------------------------------------------------
0880 0884 | | .CONST 0x0884 ; Address of begin
0881 0004 | | .CONST 0x0004 ; Address of exception handler
0882 0002 | | .CONST 0x0002 ; Number of locals
0883 INIT_0880:
0883 00ec | | Load_Encached Diana_Tree_Cache
0884 BODY_0880:
0884 4801 |H | Short_Literal 0x1
0885 e5ff | | Load 0x2,-0x1
0886 8003 | | Call 0x0,0x3
0887 8244 | D | Call 0x1,0x44
0888 0031 | 1 | Store_Top Heap_Access,At_Offset_1
0889 00d8 | | Load_Top At_Offset_0
088a 0145 | E | Execute Heap_Access,Diana_Tree_Kind
088b 0f3d | = | Execute_Immediate Equal,0x3d
088c 680f |h | Jump_Zero 0x89c
088d 00d8 | | Load_Top At_Offset_0
088e 00eb | | Load_Encached Diana_Cache
088f 18e4 | | Execute Package,Field_Execute,Field_Number 0xe4
0890 0145 | E | Execute Heap_Access,Diana_Tree_Kind
0891 0b34 | 4 | Execute_Immediate Case_Compare,0x34
0892 7004 |p | Jump_Nonzero 0x897
0893 0f35 | 5 | Execute_Immediate Equal,0x35
0894 7005 |p | Jump_Nonzero 0x89a
0895 4801 |H | Short_Literal 0x1
0896 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0897 00d1 | | Pop_Control Pop_Count_1
0898 4800 |H | Short_Literal 0x0
0899 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
089a 4802 |H | Short_Literal 0x2
089b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
089c 4803 |H | Short_Literal 0x3
089d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
089e 0000 0000 | | .XXX[0x2]
08a0 ; --------------------------------------------------------------------------------------
08a0 ; SUBPROGRAM
08a0 ; --------------------------------------------------------------------------------------
08a0 08a5 | | .CONST 0x08a5 ; Address of begin
08a1 0004 | | .CONST 0x0004 ; Address of exception handler
08a2 0003 | | .CONST 0x0003 ; Number of locals
08a3 INIT_08a0:
08a3 00ec | | Load_Encached Diana_Tree_Cache
08a4 00ec | | Load_Encached Diana_Tree_Cache
08a5 BODY_08a0:
08a5 4801 |H | Short_Literal 0x1
08a6 e5ff | | Load 0x2,-0x1
08a7 8003 | | Call 0x0,0x3
08a8 8244 | D | Call 0x1,0x44
08a9 0032 | 2 | Store_Top Heap_Access,At_Offset_2
08aa 00d9 | | Load_Top At_Offset_1
08ab 0145 | E | Execute Heap_Access,Diana_Tree_Kind
08ac 0f3d | = | Execute_Immediate Equal,0x3d
08ad 681a |h | Jump_Zero 0x8c8
08ae 00d9 | | Load_Top At_Offset_1
08af 00eb | | Load_Encached Diana_Cache
08b0 18e4 | | Execute Package,Field_Execute,Field_Number 0xe4
08b1 0031 | 1 | Store_Top Heap_Access,At_Offset_1
08b2 00d8 | | Load_Top At_Offset_0
08b3 0145 | E | Execute Heap_Access,Diana_Tree_Kind
08b4 0b34 | 4 | Execute_Immediate Case_Compare,0x34
08b5 7005 |p | Jump_Nonzero 0x8bb
08b6 0f35 | 5 | Execute_Immediate Equal,0x35
08b7 700a |p | Jump_Nonzero 0x8c2
08b8 00d8 | | Load_Top At_Offset_0
08b9 800d | | Call 0x0,0xd
08ba 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
08bb 00d1 | | Pop_Control Pop_Count_1
08bc 0092 0bd1 | | Action Push_String_Extended,0xbd1 ; "Element default is box"
08be e00f | | Load 0x0,0xf
08bf 8010 | | Call 0x0,0x10
08c0 e011 | | Load 0x0,0x11
08c1 0257 | W | Execute Discrete,Raise
08c2 0092 0bd2 | | Action Push_String_Extended,0xbd2 ; "Element has no default"
08c4 e00f | | Load 0x0,0xf
08c5 8010 | | Call 0x0,0x10
08c6 e011 | | Load 0x0,0x11
08c7 0257 | W | Execute Discrete,Raise
08c8 0092 0bd3 | | Action Push_String_Extended,0xbd3 ; "Element is not a generic formal subprogram"
08ca e00f | | Load 0x0,0xf
08cb 8010 | | Call 0x0,0x10
08cc e011 | | Load 0x0,0x11
08cd 0257 | W | Execute Discrete,Raise
08ce 0000 0000 | | .XXX[0x2]
08d0 ; --------------------------------------------------------------------------------------
08d0 ; SUBPROGRAM
08d0 ; --------------------------------------------------------------------------------------
08d0 08d4 | | .CONST 0x08d4 ; Address of begin
08d1 0004 | | .CONST 0x0004 ; Address of exception handler
08d2 0002 | | .CONST 0x0002 ; Number of locals
08d3 INIT_08d0:
08d3 00ec | | Load_Encached Diana_Tree_Cache
08d4 BODY_08d0:
08d4 4801 |H | Short_Literal 0x1
08d5 e5ff | | Load 0x2,-0x1
08d6 8003 | | Call 0x0,0x3
08d7 8244 | D | Call 0x1,0x44
08d8 0031 | 1 | Store_Top Heap_Access,At_Offset_1
08d9 00d8 | | Load_Top At_Offset_0
08da 0145 | E | Execute Heap_Access,Diana_Tree_Kind
08db 0b3d | = | Execute_Immediate Case_Compare,0x3d
08dc 7004 |p | Jump_Nonzero 0x8e1
08dd 0f3e | > | Execute_Immediate Equal,0x3e
08de 7009 |p | Jump_Nonzero 0x8e8
08df 4800 |H | Short_Literal 0x0
08e0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
08e1 00d1 | | Pop_Control Pop_Count_1
08e2 00d8 | | Load_Top At_Offset_0
08e3 00eb | | Load_Encached Diana_Cache
08e4 18e4 | | Execute Package,Field_Execute,Field_Number 0xe4
08e5 0145 | E | Execute Heap_Access,Diana_Tree_Kind
08e6 0f36 | 6 | Execute_Immediate Equal,0x36
08e7 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
08e8 00d8 | | Load_Top At_Offset_0
08e9 00eb | | Load_Encached Diana_Cache
08ea 18d8 | | Execute Package,Field_Execute,Field_Number 0xd8
08eb 0145 | E | Execute Heap_Access,Diana_Tree_Kind
08ec 0f36 | 6 | Execute_Immediate Equal,0x36
08ed 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
08ee 0000 0000 | | .XXX[0x2]
08f0 ; --------------------------------------------------------------------------------------
08f0 ; SUBPROGRAM
08f0 ; --------------------------------------------------------------------------------------
08f0 08f5 | | .CONST 0x08f5 ; Address of begin
08f1 0004 | | .CONST 0x0004 ; Address of exception handler
08f2 0003 | | .CONST 0x0003 ; Number of locals
08f3 INIT_08f0:
08f3 00ec | | Load_Encached Diana_Tree_Cache
08f4 00ec | | Load_Encached Diana_Tree_Cache
08f5 BODY_08f0:
08f5 4801 |H | Short_Literal 0x1
08f6 e5ff | | Load 0x2,-0x1
08f7 8003 | | Call 0x0,0x3
08f8 8244 | D | Call 0x1,0x44
08f9 0032 | 2 | Store_Top Heap_Access,At_Offset_2
08fa 00d9 | | Load_Top At_Offset_1
08fb 0145 | E | Execute Heap_Access,Diana_Tree_Kind
08fc 0b3d | = | Execute_Immediate Case_Compare,0x3d
08fd 7008 |p | Jump_Nonzero 0x906
08fe 0f3e | > | Execute_Immediate Equal,0x3e
08ff 700c |p | Jump_Nonzero 0x90c
0900 0092 0bd4 | | Action Push_String_Extended,0xbd4 ; "Element is not a Generic Instantiation"
0902 e00f | | Load 0x0,0xf
0903 8010 | | Call 0x0,0x10
0904 e011 | | Load 0x0,0x11
0905 0257 | W | Execute Discrete,Raise
0906 00d1 | | Pop_Control Pop_Count_1
0907 00d9 | | Load_Top At_Offset_1
0908 00eb | | Load_Encached Diana_Cache
0909 18e4 | | Execute Package,Field_Execute,Field_Number 0xe4
090a 0031 | 1 | Store_Top Heap_Access,At_Offset_1
090b 7804 |x | Jump 0x910
090c 00d9 | | Load_Top At_Offset_1
090d 00eb | | Load_Encached Diana_Cache
090e 18d8 | | Execute Package,Field_Execute,Field_Number 0xd8
090f 0031 | 1 | Store_Top Heap_Access,At_Offset_1
0910 00d8 | | Load_Top At_Offset_0
0911 0145 | E | Execute Heap_Access,Diana_Tree_Kind
0912 0f36 | 6 | Execute_Immediate Equal,0x36
0913 7006 |p | Jump_Nonzero 0x91a
0914 0092 0bd4 | | Action Push_String_Extended,0xbd4 ; "Element is not a Generic Instantiation"
0916 e00f | | Load 0x0,0xf
0917 8010 | | Call 0x0,0x10
0918 e011 | | Load 0x0,0x11
0919 0257 | W | Execute Discrete,Raise
091a 4801 |H | Short_Literal 0x1
091b 00d9 | | Load_Top At_Offset_1
091c e016 | | Load 0x0,0x16
091d 180e | | Execute Package,Field_Execute,Field_Number 0xe
091e 00eb | | Load_Encached Diana_Cache
091f 18ec | | Execute Package,Field_Execute,Field_Number 0xec
0920 800d | | Call 0x0,0xd
0921 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0922 0000 0000 | | .BLANK 0000[0x6]
0928 ; --------------------------------------------------------------------------------------
0928 ; SUBPROGRAM
0928 ; --------------------------------------------------------------------------------------
0928 092d | - | .CONST 0x092d ; Address of begin
0929 0004 | | .CONST 0x0004 ; Address of exception handler
092a 0003 | | .CONST 0x0003 ; Number of locals
092b INIT_0928:
092b 00ec | | Load_Encached Diana_Tree_Cache
092c 00ec | | Load_Encached Diana_Tree_Cache
092d BODY_0928:
092d 4801 |H | Short_Literal 0x1
092e e5ff | | Load 0x2,-0x1
092f 8003 | | Call 0x0,0x3
0930 8244 | D | Call 0x1,0x44
0931 0032 | 2 | Store_Top Heap_Access,At_Offset_2
0932 00d9 | | Load_Top At_Offset_1
0933 0145 | E | Execute Heap_Access,Diana_Tree_Kind
0934 0b3d | = | Execute_Immediate Case_Compare,0x3d
0935 7008 |p | Jump_Nonzero 0x93e
0936 0f3e | > | Execute_Immediate Equal,0x3e
0937 700c |p | Jump_Nonzero 0x944
0938 0092 0bd4 | | Action Push_String_Extended,0xbd4 ; "Element is not a Generic Instantiation"
093a e00f | | Load 0x0,0xf
093b 8010 | | Call 0x0,0x10
093c e011 | | Load 0x0,0x11
093d 0257 | W | Execute Discrete,Raise
093e 00d1 | | Pop_Control Pop_Count_1
093f 00d9 | | Load_Top At_Offset_1
0940 00eb | | Load_Encached Diana_Cache
0941 18e4 | | Execute Package,Field_Execute,Field_Number 0xe4
0942 0031 | 1 | Store_Top Heap_Access,At_Offset_1
0943 7804 |x | Jump 0x948
0944 00d9 | | Load_Top At_Offset_1
0945 00eb | | Load_Encached Diana_Cache
0946 18d8 | | Execute Package,Field_Execute,Field_Number 0xd8
0947 0031 | 1 | Store_Top Heap_Access,At_Offset_1
0948 00d8 | | Load_Top At_Offset_0
0949 0145 | E | Execute Heap_Access,Diana_Tree_Kind
094a 0f36 | 6 | Execute_Immediate Equal,0x36
094b 6807 |h | Jump_Zero 0x953
094c 00d8 | | Load_Top At_Offset_0
094d 00eb | | Load_Encached Diana_Cache
094e 18cb | | Execute Package,Field_Execute,Field_Number 0xcb
094f 00eb | | Load_Encached Diana_Cache
0950 1889 | | Execute Package,Field_Execute,Field_Number 0x89
0951 800b | | Call 0x0,0xb
0952 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0953 0092 0bd4 | | Action Push_String_Extended,0xbd4 ; "Element is not a Generic Instantiation"
0955 e00f | | Load 0x0,0xf
0956 8010 | | Call 0x0,0x10
0957 e011 | | Load 0x0,0x11
0958 0257 | W | Execute Discrete,Raise
0959 0000 0000 | | .BLANK 0000[0x7]
0960 ; --------------------------------------------------------------------------------------
0960 ; SUBPROGRAM
0960 ; --------------------------------------------------------------------------------------
0960 0965 | e | .CONST 0x0965 ; Address of begin
0961 0004 | | .CONST 0x0004 ; Address of exception handler
0962 0003 | | .CONST 0x0003 ; Number of locals
0963 INIT_0960:
0963 00ec | | Load_Encached Diana_Tree_Cache
0964 00ec | | Load_Encached Diana_Tree_Cache
0965 BODY_0960:
0965 4801 |H | Short_Literal 0x1
0966 e5ff | | Load 0x2,-0x1
0967 8003 | | Call 0x0,0x3
0968 8244 | D | Call 0x1,0x44
0969 0032 | 2 | Store_Top Heap_Access,At_Offset_2
096a 00d9 | | Load_Top At_Offset_1
096b 0145 | E | Execute Heap_Access,Diana_Tree_Kind
096c 0b3f | ? | Execute_Immediate Case_Compare,0x3f
096d 700e |p | Jump_Nonzero 0x97c
096e 0f3b | ; | Execute_Immediate Equal,0x3b
096f 7001 |p | Jump_Nonzero 0x971
0970 7813 |x | Jump 0x984
0971 00d9 | | Load_Top At_Offset_1
0972 00eb | | Load_Encached Diana_Cache
0973 18e8 | | Execute Package,Field_Execute,Field_Number 0xe8
0974 0031 | 1 | Store_Top Heap_Access,At_Offset_1
0975 00d8 | | Load_Top At_Offset_0
0976 0145 | E | Execute Heap_Access,Diana_Tree_Kind
0977 0f73 | s | Execute_Immediate Equal,0x73
0978 680b |h | Jump_Zero 0x984
0979 00d8 | | Load_Top At_Offset_0
097a 800d | | Call 0x0,0xd
097b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
097c 00d1 | | Pop_Control Pop_Count_1
097d 00d9 | | Load_Top At_Offset_1
097e 00eb | | Load_Encached Diana_Cache
097f 18e6 | | Execute Package,Field_Execute,Field_Number 0xe6
0980 0031 | 1 | Store_Top Heap_Access,At_Offset_1
0981 00d8 | | Load_Top At_Offset_0
0982 800d | | Call 0x0,0xd
0983 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0984 0092 0bd5 | | Action Push_String_Extended,0xbd5 ; "Element is not a Task Type Declaration"
0986 e00f | | Load 0x0,0xf
0987 8010 | | Call 0x0,0x10
0988 e011 | | Load 0x0,0x11
0989 0257 | W | Execute Discrete,Raise
098a 0000 0000 | | .BLANK 0000[0x6]
0990 ; --------------------------------------------------------------------------------------
0990 ; SUBPROGRAM
0990 ; --------------------------------------------------------------------------------------
0990 0994 | | .CONST 0x0994 ; Address of begin
0991 0004 | | .CONST 0x0004 ; Address of exception handler
0992 0002 | | .CONST 0x0002 ; Number of locals
0993 INIT_0990:
0993 00ec | | Load_Encached Diana_Tree_Cache
0994 BODY_0990:
0994 4801 |H | Short_Literal 0x1
0995 e5ff | | Load 0x2,-0x1
0996 8003 | | Call 0x0,0x3
0997 8244 | D | Call 0x1,0x44
0998 0031 | 1 | Store_Top Heap_Access,At_Offset_1
0999 00d8 | | Load_Top At_Offset_0
099a 0145 | E | Execute Heap_Access,Diana_Tree_Kind
099b 0b3f | ? | Execute_Immediate Case_Compare,0x3f
099c 7008 |p | Jump_Nonzero 0x9a5
099d 0f3b | ; | Execute_Immediate Equal,0x3b
099e 700c |p | Jump_Nonzero 0x9ab
099f 0092 0bd6 | | Action Push_String_Extended,0xbd6 ; "Element is not a Task Declaration"
09a1 e00f | | Load 0x0,0xf
09a2 8010 | | Call 0x0,0x10
09a3 e011 | | Load 0x0,0x11
09a4 0257 | W | Execute Discrete,Raise
09a5 00d1 | | Pop_Control Pop_Count_1
09a6 00d8 | | Load_Top At_Offset_0
09a7 00eb | | Load_Encached Diana_Cache
09a8 18e6 | | Execute Package,Field_Execute,Field_Number 0xe6
09a9 0031 | 1 | Store_Top Heap_Access,At_Offset_1
09aa 780e |x | Jump 0x9b9
09ab 00d8 | | Load_Top At_Offset_0
09ac 00eb | | Load_Encached Diana_Cache
09ad 18e8 | | Execute Package,Field_Execute,Field_Number 0xe8
09ae 0031 | 1 | Store_Top Heap_Access,At_Offset_1
09af 00d8 | | Load_Top At_Offset_0
09b0 0145 | E | Execute Heap_Access,Diana_Tree_Kind
09b1 0f73 | s | Execute_Immediate Equal,0x73
09b2 7006 |p | Jump_Nonzero 0x9b9
09b3 0092 0bd6 | | Action Push_String_Extended,0xbd6 ; "Element is not a Task Declaration"
09b5 e00f | | Load 0x0,0xf
09b6 8010 | | Call 0x0,0x10
09b7 e011 | | Load 0x0,0x11
09b8 0257 | W | Execute Discrete,Raise
09b9 00d8 | | Load_Top At_Offset_0
09ba 00eb | | Load_Encached Diana_Cache
09bb 18bc | | Execute Package,Field_Execute,Field_Number 0xbc
09bc 00eb | | Load_Encached Diana_Cache
09bd 1889 | | Execute Package,Field_Execute,Field_Number 0x89
09be 800b | | Call 0x0,0xb
09bf 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
09c0 ; --------------------------------------------------------------------------------------
09c0 ; SUBPROGRAM
09c0 ; --------------------------------------------------------------------------------------
09c0 09c4 | | .CONST 0x09c4 ; Address of begin
09c1 0004 | | .CONST 0x0004 ; Address of exception handler
09c2 0002 | | .CONST 0x0002 ; Number of locals
09c3 INIT_09c0:
09c3 00ec | | Load_Encached Diana_Tree_Cache
09c4 BODY_09c0:
09c4 4801 |H | Short_Literal 0x1
09c5 e5ff | | Load 0x2,-0x1
09c6 8003 | | Call 0x0,0x3
09c7 8244 | D | Call 0x1,0x44
09c8 0031 | 1 | Store_Top Heap_Access,At_Offset_1
09c9 0092 0bd7 | | Action Push_String_Extended,0xbd7 ; "Task Body Declaration"
09cb 4846 |HF | Short_Literal 0x46
09cc 00da | | Load_Top At_Offset_2
09cd 8246 | F | Call 0x1,0x46
09ce 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
09cf 0000 | | .XXX[0x1]
09d0 ; --------------------------------------------------------------------------------------
09d0 ; SUBPROGRAM
09d0 ; --------------------------------------------------------------------------------------
09d0 09d5 | | .CONST 0x09d5 ; Address of begin
09d1 0004 | | .CONST 0x0004 ; Address of exception handler
09d2 0003 | | .CONST 0x0003 ; Number of locals
09d3 INIT_09d0:
09d3 00ec | | Load_Encached Diana_Tree_Cache
09d4 00ec | | Load_Encached Diana_Tree_Cache
09d5 BODY_09d0:
09d5 4801 |H | Short_Literal 0x1
09d6 e5ff | | Load 0x2,-0x1
09d7 8003 | | Call 0x0,0x3
09d8 8244 | D | Call 0x1,0x44
09d9 0032 | 2 | Store_Top Heap_Access,At_Offset_2
09da 00d9 | | Load_Top At_Offset_1
09db 0145 | E | Execute Heap_Access,Diana_Tree_Kind
09dc 0f3d | = | Execute_Immediate Equal,0x3d
09dd 680d |h | Jump_Zero 0x9eb
09de 00d9 | | Load_Top At_Offset_1
09df 00eb | | Load_Encached Diana_Cache
09e0 18ce | | Execute Package,Field_Execute,Field_Number 0xce
09e1 0031 | 1 | Store_Top Heap_Access,At_Offset_1
09e2 00d8 | | Load_Top At_Offset_0
09e3 0145 | E | Execute Heap_Access,Diana_Tree_Kind
09e4 0f79 | y | Execute_Immediate Equal,0x79
09e5 6805 |h | Jump_Zero 0x9eb
09e6 00d8 | | Load_Top At_Offset_0
09e7 00eb | | Load_Encached Diana_Cache
09e8 18c3 | | Execute Package,Field_Execute,Field_Number 0xc3
09e9 800d | | Call 0x0,0xd
09ea 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
09eb 0092 0bd8 | | Action Push_String_Extended,0xbd8 ; "Element is not an Entry Declaration"
09ed e00f | | Load 0x0,0xf
09ee 8010 | | Call 0x0,0x10
09ef e011 | | Load 0x0,0x11
09f0 0257 | W | Execute Discrete,Raise
09f1 0000 0000 | | .BLANK 0000[0x7]
09f8 ; --------------------------------------------------------------------------------------
09f8 ; SUBPROGRAM
09f8 ; --------------------------------------------------------------------------------------
09f8 09fc | | .CONST 0x09fc ; Address of begin
09f9 0004 | | .CONST 0x0004 ; Address of exception handler
09fa 0002 | | .CONST 0x0002 ; Number of locals
09fb INIT_09f8:
09fb 00ec | | Load_Encached Diana_Tree_Cache
09fc BODY_09f8:
09fc 4801 |H | Short_Literal 0x1
09fd e5ff | | Load 0x2,-0x1
09fe 8003 | | Call 0x0,0x3
09ff 8244 | D | Call 0x1,0x44
0a00 0031 | 1 | Store_Top Heap_Access,At_Offset_1
0a01 00d8 | | Load_Top At_Offset_0
0a02 0145 | E | Execute Heap_Access,Diana_Tree_Kind
0a03 4846 |HF | Short_Literal 0x46
0a04 4848 |HH | Short_Literal 0x48
0a05 0262 | b | Execute Discrete,In_Range
0a06 7001 |p | Jump_Nonzero 0xa08
0a07 780c |x | Jump 0xa14
0a08 00d8 | | Load_Top At_Offset_0
0a09 00eb | | Load_Encached Diana_Cache
0a0a 18b6 | | Execute Package,Field_Execute,Field_Number 0xb6
0a0b 0145 | E | Execute Heap_Access,Diana_Tree_Kind
0a0c 0f77 | w | Execute_Immediate Equal,0x77
0a0d 6806 |h | Jump_Zero 0xa14
0a0e 4801 |H | Short_Literal 0x1
0a0f 00d9 | | Load_Top At_Offset_1
0a10 e016 | | Load 0x0,0x16
0a11 180e | | Execute Package,Field_Execute,Field_Number 0xe
0a12 800d | | Call 0x0,0xd
0a13 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0a14 0092 0bd9 | | Action Push_String_Extended,0xbd9 ; "Element is not a Subunit Stub"
0a16 e00f | | Load 0x0,0xf
0a17 8010 | | Call 0x0,0x10
0a18 e011 | | Load 0x0,0x11
0a19 0257 | W | Execute Discrete,Raise
0a1a 0000 0000 | | .BLANK 0000[0x6]
0a20 ; --------------------------------------------------------------------------------------
0a20 ; SUBPROGRAM
0a20 ; --------------------------------------------------------------------------------------
0a20 0a23 | # | .CONST 0x0a23 ; Address of begin
0a21 0004 | | .CONST 0x0004 ; Address of exception handler
0a22 0001 | | .CONST 0x0001 ; Number of locals
0a23 BODY_0a20:
0a23 INIT_0a20:
0a23 00db | | Load_Top At_Offset_3
0a24 801d | | Call 0x0,0x1d
0a25 00db | | Load_Top At_Offset_3
0a26 027f | | Execute Discrete,Equal
0a27 700b |p | Jump_Nonzero 0xa33
0a28 0092 0bda | | Action Push_String_Extended,0xbda ; "Element is not "
0a2a 00db | | Load_Top At_Offset_3
0a2b e01e | | Load 0x0,0x1e
0a2c 011c | | Execute Any,Convert_Unchecked
0a2d 1c01 | | Execute_Immediate Run_Utility,0x1
0a2e 01cc | | Execute Vector,Catenate
0a2f e00f | | Load 0x0,0xf
0a30 8010 | | Call 0x0,0x10
0a31 e011 | | Load 0x0,0x11
0a32 0257 | W | Execute Discrete,Raise
0a33 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0a34 0000 0000 | | .BLANK 0000[0x4]
0a38 ; --------------------------------------------------------------------------------------
0a38 ; SUBPROGRAM
0a38 ; --------------------------------------------------------------------------------------
0a38 0a3d | = | .CONST 0x0a3d ; Address of begin
0a39 0004 | | .CONST 0x0004 ; Address of exception handler
0a3a 0002 | | .CONST 0x0002 ; Number of locals
0a3b INIT_0a38:
0a3b 00da | | Load_Top At_Offset_2
0a3c 8003 | | Call 0x0,0x3
0a3d BODY_0a38:
0a3d 00d8 | | Load_Top At_Offset_0
0a3e 0145 | E | Execute Heap_Access,Diana_Tree_Kind
0a3f 00d8 | | Load_Top At_Offset_0
0a40 0d33 | 3 | Execute_Immediate Less,0x33
0a41 7030 |p0 | Jump_Nonzero 0xa72
0a42 00d8 | | Load_Top At_Offset_0
0a43 0c42 | B | Execute_Immediate Greater_Equal,0x42
0a44 7015 |p | Jump_Nonzero 0xa5a
0a45 0acd | | Execute_Immediate Plus,-0x33
0a46 460e |F | Jump_Case 0xf
0a47 7836 |x6 | Jump 0xa7e ; case 0x0
0a48 7837 |x7 | Jump 0xa80 ; case 0x1
0a49 7836 |x6 | Jump 0xa80 ; case 0x2
0a4a 7835 |x5 | Jump 0xa80 ; case 0x3
0a4b 7815 |x | Jump 0xa61 ; case 0x4
0a4c 7814 |x | Jump 0xa61 ; case 0x5
0a4d 7813 |x | Jump 0xa61 ; case 0x6
0a4e 7812 |x | Jump 0xa61 ; case 0x7
0a4f 7806 |x | Jump 0xa56 ; case 0x8
0a50 7805 |x | Jump 0xa56 ; case 0x9
0a51 7825 |x% | Jump 0xa77 ; case 0xa
0a52 7803 |x | Jump 0xa56 ; case 0xb
0a53 7802 |x | Jump 0xa56 ; case 0xc
0a54 782b |x+ | Jump 0xa80 ; case 0xd
0a55 7800 |x | Jump 0xa56 ; case 0xe
0a56 00d8 | | Load_Top At_Offset_0
0a57 00eb | | Load_Encached Diana_Cache
0a58 18cf | | Execute Package,Field_Execute,Field_Number 0xcf
0a59 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0a5a 00d8 | | Load_Top At_Offset_0
0a5b 0d7d | } | Execute_Immediate Less,0x7d
0a5c 700d |p | Jump_Nonzero 0xa6a
0a5d 00d8 | | Load_Top At_Offset_0
0a5e 0c80 | | Execute_Immediate Greater_Equal,-0x80
0a5f 7005 |p | Jump_Nonzero 0xa65
0a60 00d1 | | Pop_Control Pop_Count_1
0a61 00d8 | | Load_Top At_Offset_0
0a62 00eb | | Load_Encached Diana_Cache
0a63 18d0 | | Execute Package,Field_Execute,Field_Number 0xd0
0a64 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0a65 0b90 | | Execute_Immediate Case_Compare,0x90
0a66 7014 |p | Jump_Nonzero 0xa7b
0a67 0f9b | | Execute_Immediate Equal,-0x65
0a68 77f8 |w | Jump_Nonzero 0xa61
0a69 7816 |x | Jump 0xa80
0a6a 00d8 | | Load_Top At_Offset_0
0a6b 4846 |HF | Short_Literal 0x46
0a6c 4847 |HG | Short_Literal 0x47
0a6d 0262 | b | Execute Discrete,In_Range
0a6e 7006 |p | Jump_Nonzero 0xa75
0a6f 0f48 | H | Execute_Immediate Equal,0x48
0a70 7006 |p | Jump_Nonzero 0xa77
0a71 780e |x | Jump 0xa80
0a72 0f02 | | Execute_Immediate Equal,0x2
0a73 77ed |w | Jump_Nonzero 0xa61
0a74 780b |x | Jump 0xa80
0a75 00d1 | | Pop_Control Pop_Count_1
0a76 7fdf | | Jump 0xa56
0a77 00d8 | | Load_Top At_Offset_0
0a78 00eb | | Load_Encached Diana_Cache
0a79 18bf | | Execute Package,Field_Execute,Field_Number 0xbf
0a7a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0a7b 00d1 | | Pop_Control Pop_Count_1
0a7c 00d8 | | Load_Top At_Offset_0
0a7d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0a7e 00d8 | | Load_Top At_Offset_0
0a7f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0a80 00d8 | | Load_Top At_Offset_0
0a81 e008 | | Load 0x0,0x8
0a82 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0a83 6802 |h | Jump_Zero 0xa86
0a84 00d8 | | Load_Top At_Offset_0
0a85 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0a86 0092 0bdb | | Action Push_String_Extended,0xbdb ; "Element has no ID"
0a88 e00f | | Load 0x0,0xf
0a89 8010 | | Call 0x0,0x10
0a8a e011 | | Load 0x0,0x11
0a8b 0257 | W | Execute Discrete,Raise
0a8c 0000 0000 | | .BLANK 0000[0x4]
0a90 ; --------------------------------------------------------------------------------------
0a90 ; SUBPROGRAM
0a90 ; --------------------------------------------------------------------------------------
0a90 0a99 | | .CONST 0x0a99 ; Address of begin
0a91 0004 | | .CONST 0x0004 ; Address of exception handler
0a92 0004 | | .CONST 0x0004 ; Number of locals
0a93 INIT_0a90:
0a93 e002 | | Load 0x0,0x2
0a94 02ff | | Declare_Variable Variant_Record
0a95 00d8 | | Load_Top At_Offset_0
0a96 1c00 | | Execute_Immediate Run_Utility,0x0
0a97 00ec | | Load_Encached Diana_Tree_Cache
0a98 00ec | | Load_Encached Diana_Tree_Cache
0a99 BODY_0a90:
0a99 e5ff | | Load 0x2,-0x1
0a9a 0145 | E | Execute Heap_Access,Diana_Tree_Kind
0a9b 0f33 | 3 | Execute_Immediate Equal,0x33
0a9c 7004 |p | Jump_Nonzero 0xaa1
0a9d e5ff | | Load 0x2,-0x1
0a9e e008 | | Load 0x0,0x8
0a9f 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0aa0 6810 |h | Jump_Zero 0xab1
0aa1 e5ff | | Load 0x2,-0x1
0aa2 00eb | | Load_Encached Diana_Cache
0aa3 18ec | | Execute Package,Field_Execute,Field_Number 0xec
0aa4 0032 | 2 | Store_Top Heap_Access,At_Offset_2
0aa5 00d9 | | Load_Top At_Offset_1
0aa6 0145 | E | Execute Heap_Access,Diana_Tree_Kind
0aa7 0f90 | | Execute_Immediate Equal,-0x70
0aa8 6805 |h | Jump_Zero 0xaae
0aa9 00d9 | | Load_Top At_Offset_1
0aaa 00eb | | Load_Encached Diana_Cache
0aab 18ec | | Execute Package,Field_Execute,Field_Number 0xec
0aac 0031 | 1 | Store_Top Heap_Access,At_Offset_1
0aad 7805 |x | Jump 0xab3
0aae 00d9 | | Load_Top At_Offset_1
0aaf 0031 | 1 | Store_Top Heap_Access,At_Offset_1
0ab0 7802 |x | Jump 0xab3
0ab1 e5ff | | Load 0x2,-0x1
0ab2 0031 | 1 | Store_Top Heap_Access,At_Offset_1
0ab3 00cf | | Action Mark_Auxiliary
0ab4 00d9 | | Load_Top At_Offset_1
0ab5 0145 | E | Execute Heap_Access,Diana_Tree_Kind
0ab6 0ba8 | | Execute_Immediate Case_Compare,0xa8
0ab7 7016 |p | Jump_Nonzero 0xace
0ab8 0f49 | I | Execute_Immediate Equal,0x49
0ab9 701a |p | Jump_Nonzero 0xad4
0aba 00d9 | | Load_Top At_Offset_1
0abb 8005 | | Call 0x0,0x5
0abc e402 | | Load 0x2,0x2
0abd 016d | m | Execute Variant_Record,Structure_Write
0abe 00db | | Load_Top At_Offset_3
0abf 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0ac0 0f02 | | Execute_Immediate Equal,0x2
0ac1 6802 |h | Jump_Zero 0xac4
0ac2 00d9 | | Load_Top At_Offset_1
0ac3 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0ac4 e5fe | | Load 0x2,-0x2
0ac5 6806 |h | Jump_Zero 0xacc
0ac6 0092 0bdc | | Action Push_String_Extended,0xbdc ; "Element is not a Declaration"
0ac8 e00f | | Load 0x0,0xf
0ac9 8010 | | Call 0x0,0x10
0aca e011 | | Load 0x0,0x11
0acb 0257 | W | Execute Discrete,Raise
0acc 00ec | | Load_Encached Diana_Tree_Cache
0acd 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0ace 00d1 | | Pop_Control Pop_Count_1
0acf 00d9 | | Load_Top At_Offset_1
0ad0 00eb | | Load_Encached Diana_Cache
0ad1 18e9 | | Execute Package,Field_Execute,Field_Number 0xe9
0ad2 0032 | 2 | Store_Top Heap_Access,At_Offset_2
0ad3 7804 |x | Jump 0xad8
0ad4 00d9 | | Load_Top At_Offset_1
0ad5 00eb | | Load_Encached Diana_Cache
0ad6 18e5 | | Execute Package,Field_Execute,Field_Number 0xe5
0ad7 0032 | 2 | Store_Top Heap_Access,At_Offset_2
0ad8 00c9 | | Action Pop_Auxiliary_Loop
0ad9 7fda | | Jump 0xab4
0ada 0000 0000 | | .BLANK 0000[0x6]
0ae0 ; --------------------------------------------------------------------------------------
0ae0 ; SUBPROGRAM
0ae0 ; --------------------------------------------------------------------------------------
0ae0 0ae5 | | .CONST 0x0ae5 ; Address of begin
0ae1 0004 | | .CONST 0x0004 ; Address of exception handler
0ae2 0003 | | .CONST 0x0003 ; Number of locals
0ae3 INIT_0ae0:
0ae3 00ec | | Load_Encached Diana_Tree_Cache
0ae4 00ec | | Load_Encached Diana_Tree_Cache
0ae5 BODY_0ae0:
0ae5 e5ff | | Load 0x2,-0x1
0ae6 0145 | E | Execute Heap_Access,Diana_Tree_Kind
0ae7 0b3e | > | Execute_Immediate Case_Compare,0x3e
0ae8 700d |p | Jump_Nonzero 0xaf6
0ae9 0f41 | A | Execute_Immediate Equal,0x41
0aea 7001 |p | Jump_Nonzero 0xaec
0aeb 782a |x* | Jump 0xb16
0aec e5ff | | Load 0x2,-0x1
0aed 00eb | | Load_Encached Diana_Cache
0aee 18cc | | Execute Package,Field_Execute,Field_Number 0xcc
0aef 0031 | 1 | Store_Top Heap_Access,At_Offset_1
0af0 00d8 | | Load_Top At_Offset_0
0af1 0145 | E | Execute Heap_Access,Diana_Tree_Kind
0af2 0f7c | | | Execute_Immediate Equal,0x7c
0af3 6822 |h" | Jump_Zero 0xb16
0af4 00d8 | | Load_Top At_Offset_0
0af5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0af6 00d1 | | Pop_Control Pop_Count_1
0af7 e5ff | | Load 0x2,-0x1
0af8 00eb | | Load_Encached Diana_Cache
0af9 18cf | | Execute Package,Field_Execute,Field_Number 0xcf
0afa 4904 |I | Short_Literal 0x104
0afb 00eb | | Load_Encached Diana_Cache
0afc 0096 | | Execute Package,Entry
0afd 0031 | 1 | Store_Top Heap_Access,At_Offset_1
0afe 00d8 | | Load_Top At_Offset_0
0aff 0145 | E | Execute Heap_Access,Diana_Tree_Kind
0b00 0b7c | | | Execute_Immediate Case_Compare,0x7c
0b01 7003 |p | Jump_Nonzero 0xb05
0b02 0f80 | | Execute_Immediate Equal,-0x80
0b03 7004 |p | Jump_Nonzero 0xb08
0b04 08e2 | | Execute_Immediate Raise,0xe2
0b05 00d1 | | Pop_Control Pop_Count_1
0b06 00d8 | | Load_Top At_Offset_0
0b07 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0b08 4801 |H | Short_Literal 0x1
0b09 00d9 | | Load_Top At_Offset_1
0b0a e016 | | Load 0x0,0x16
0b0b 180e | | Execute Package,Field_Execute,Field_Number 0xe
0b0c 0032 | 2 | Store_Top Heap_Access,At_Offset_2
0b0d 00d9 | | Load_Top At_Offset_1
0b0e 7002 |p | Jump_Nonzero 0xb11
0b0f 00ec | | Load_Encached Diana_Tree_Cache
0b10 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0b11 00d9 | | Load_Top At_Offset_1
0b12 00eb | | Load_Encached Diana_Cache
0b13 18ec | | Execute Package,Field_Execute,Field_Number 0xec
0b14 8245 | E | Call 0x1,0x45
0b15 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0b16 0092 0bdd | | Action Push_String_Extended,0xbdd ; "Element is not a Package specification"
0b18 e00f | | Load 0x0,0xf
0b19 8010 | | Call 0x0,0x10
0b1a e011 | | Load 0x0,0x11
0b1b 0257 | W | Execute Discrete,Raise
0b1c 0000 0000 | | .BLANK 0000[0x4]
0b20 ; --------------------------------------------------------------------------------------
0b20 ; SUBPROGRAM
0b20 ; --------------------------------------------------------------------------------------
0b20 0b26 | & | .CONST 0x0b26 ; Address of begin
0b21 0004 | | .CONST 0x0004 ; Address of exception handler
0b22 0004 | | .CONST 0x0004 ; Number of locals
0b23 INIT_0b20:
0b23 00ec | | Load_Encached Diana_Tree_Cache
0b24 00ec | | Load_Encached Diana_Tree_Cache
0b25 00ec | | Load_Encached Diana_Tree_Cache
0b26 BODY_0b20:
0b26 e5ff | | Load 0x2,-0x1
0b27 0145 | E | Execute Heap_Access,Diana_Tree_Kind
0b28 e5fe | | Load 0x2,-0x2
0b29 027f | | Execute Discrete,Equal
0b2a 682c |h, | Jump_Zero 0xb57
0b2b e5ff | | Load 0x2,-0x1
0b2c 00eb | | Load_Encached Diana_Cache
0b2d 18b6 | | Execute Package,Field_Execute,Field_Number 0xb6
0b2e 0032 | 2 | Store_Top Heap_Access,At_Offset_2
0b2f 00d9 | | Load_Top At_Offset_1
0b30 0145 | E | Execute Heap_Access,Diana_Tree_Kind
0b31 0b4e | N | Execute_Immediate Case_Compare,0x4e
0b32 7003 |p | Jump_Nonzero 0xb36
0b33 0f77 | w | Execute_Immediate Equal,0x77
0b34 7005 |p | Jump_Nonzero 0xb3a
0b35 08e2 | | Execute_Immediate Raise,0xe2
0b36 00d1 | | Pop_Control Pop_Count_1
0b37 00d9 | | Load_Top At_Offset_1
0b38 800d | | Call 0x0,0xd
0b39 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0b3a 4801 |H | Short_Literal 0x1
0b3b e5ff | | Load 0x2,-0x1
0b3c e016 | | Load 0x0,0x16
0b3d 180e | | Execute Package,Field_Execute,Field_Number 0xe
0b3e 0033 | 3 | Store_Top Heap_Access,At_Offset_3
0b3f 00da | | Load_Top At_Offset_2
0b40 0145 | E | Execute Heap_Access,Diana_Tree_Kind
0b41 0ba8 | | Execute_Immediate Case_Compare,0xa8
0b42 7005 |p | Jump_Nonzero 0xb48
0b43 0b00 | | Execute_Immediate Case_Compare,0x0
0b44 700f |p | Jump_Nonzero 0xb54
0b45 0f77 | w | Execute_Immediate Equal,0x77
0b46 700e |p | Jump_Nonzero 0xb55
0b47 08e2 | | Execute_Immediate Raise,0xe2
0b48 00d1 | | Pop_Control Pop_Count_1
0b49 00da | | Load_Top At_Offset_2
0b4a 00eb | | Load_Encached Diana_Cache
0b4b 18e9 | | Execute Package,Field_Execute,Field_Number 0xe9
0b4c 00eb | | Load_Encached Diana_Cache
0b4d 18e5 | | Execute Package,Field_Execute,Field_Number 0xe5
0b4e 0031 | 1 | Store_Top Heap_Access,At_Offset_1
0b4f 00d8 | | Load_Top At_Offset_0
0b50 00eb | | Load_Encached Diana_Cache
0b51 18b6 | | Execute Package,Field_Execute,Field_Number 0xb6
0b52 800d | | Call 0x0,0xd
0b53 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0b54 00d1 | | Pop_Control Pop_Count_1
0b55 e012 | | Load 0x0,0x12
0b56 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0b57 0092 0bde | | Action Push_String_Extended,0xbde ; "Element is not a "
0b59 e5fd | | Load 0x2,-0x3
0b5a 01cc | | Execute Vector,Catenate
0b5b e00f | | Load 0x0,0xf
0b5c 8010 | | Call 0x0,0x10
0b5d e011 | | Load 0x0,0x11
0b5e 0257 | W | Execute Discrete,Raise
0b5f 0000 | | .XXX[0x1]
0b60 ; --------------------------------------------------------------------------------------
0b60 ; SUBPROGRAM
0b60 ; --------------------------------------------------------------------------------------
0b60 0b67 | g | .CONST 0x0b67 ; Address of begin
0b61 0004 | | .CONST 0x0004 ; Address of exception handler
0b62 0003 | | .CONST 0x0003 ; Number of locals
0b63 INIT_0b60:
0b63 e00a | | Load 0x0,0xa
0b64 0322 | " | Declare_Variable Record
0b65 e019 | | Load 0x0,0x19
0b66 0007 | | Action Break_Optional
0b67 BODY_0b60:
0b67 e7ff | | Load 0x3,-0x1
0b68 801f | | Call 0x0,0x1f
0b69 6802 |h | Jump_Zero 0xb6c
0b6a 00ea | | Load_Encached Null_String_Cache
0b6b 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0b6c e7ff | | Load 0x3,-0x1
0b6d 8020 | | Call 0x0,0x20
0b6e 0031 | 1 | Store_Top Heap_Access,At_Offset_1
0b6f e7ff | | Load 0x3,-0x1
0b70 00da | | Load_Top At_Offset_2
0b71 017d | } | Execute Record,Structure_Write
0b72 00d9 | | Load_Top At_Offset_1
0b73 8021 | ! | Call 0x0,0x21
0b74 00d1 | | Pop_Control Pop_Count_1
0b75 e7fe | | Load 0x3,-0x2
0b76 6807 |h | Jump_Zero 0xb7e
0b77 00d8 | | Load_Top At_Offset_0
0b78 8022 | " | Call 0x0,0x22
0b79 4800 |H | Short_Literal 0x0
0b7a 00db | | Load_Top At_Offset_3
0b7b 8402 | | Call 0x2,0x2
0b7c 01cc | | Execute Vector,Catenate
0b7d 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0b7e 0092 0bdf | | Action Push_String_Extended,0xbdf ; ", "
0b80 00d9 | | Load_Top At_Offset_1
0b81 8022 | " | Call 0x0,0x22
0b82 01cc | | Execute Vector,Catenate
0b83 4800 |H | Short_Literal 0x0
0b84 00db | | Load_Top At_Offset_3
0b85 8402 | | Call 0x2,0x2
0b86 01cc | | Execute Vector,Catenate
0b87 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0b88 ; --------------------------------------------------------------------------------------
0b88 ; STRING TABLE
0b88 ; --------------------------------------------------------------------------------------
0b88 00b2 | | .STRTAB 0x00b2->0x0be1 ; "A_VARIABLE_DECLARATION"
0b89 00c6 | | .STRTAB 0x00c6->0x0bec ; "A_CONSTANT_DECLARATION"
0b8a 00da | | .STRTAB 0x00da->0x0bf7 ; "A_DEFERRED_CONSTANT_DECLARATION"
0b8b 00f7 | | .STRTAB 0x00f7->0x0c06 ; "AN_INTEGER_NUMBER_DECLARATION"
0b8c 0112 | | .STRTAB 0x0112->0x0c15 ; "A_REAL_NUMBER_DECLARATION"
0b8d 0129 | ) | .STRTAB 0x0129->0x0c21 ; "A_TYPE_DECLARATION"
0b8e 0139 | 9 | .STRTAB 0x0139->0x0c2a ; "AN_INCOMPLETE_TYPE_DECLARATION"
0b8f 0155 | U | .STRTAB 0x0155->0x0c39 ; "A_SUBTYPE_DECLARATION"
0b90 0168 | h | .STRTAB 0x0168->0x0c44 ; "A_PACKAGE_DECLARATION"
0b91 017b | { | .STRTAB 0x017b->0x0c4e ; "A_PACKAGE_BODY_DECLARATION"
0b92 0193 | | .STRTAB 0x0193->0x0c5b ; "A_PROCEDURE_DECLARATION"
0b93 01a8 | | .STRTAB 0x01a8->0x0c67 ; "A_PROCEDURE_BODY_DECLARATION"
0b94 01c2 | | .STRTAB 0x01c2->0x0c75 ; "A_FUNCTION_DECLARATION"
0b95 01d6 | | .STRTAB 0x01d6->0x0c80 ; "A_FUNCTION_BODY_DECLARATION"
0b96 01ef | | .STRTAB 0x01ef->0x0c8d ; "A_PACKAGE_RENAME_DECLARATION"
0b97 0209 | | .STRTAB 0x0209->0x0c9b ; "A_PROCEDURE_RENAME_DECLARATION"
0b98 0225 | % | .STRTAB 0x0225->0x0caa ; "A_FUNCTION_RENAME_DECLARATION"
0b99 0240 | @ | .STRTAB 0x0240->0x0cb9 ; "AN_OBJECT_RENAME_DECLARATION"
0b9a 025a | Z | .STRTAB 0x025a->0x0cc7 ; "AN_EXCEPTION_RENAME_DECLARATION"
0b9b 0277 | w | .STRTAB 0x0277->0x0cd6 ; "A_GENERIC_PACKAGE_DECLARATION"
0b9c 0292 | | .STRTAB 0x0292->0x0ce5 ; "A_GENERIC_PROCEDURE_DECLARATION"
0b9d 02af | | .STRTAB 0x02af->0x0cf4 ; "A_GENERIC_FUNCTION_DECLARATION"
0b9e 02cb | | .STRTAB 0x02cb->0x0d03 ; "A_PACKAGE_INSTANTIATION"
0b9f 02e0 | | .STRTAB 0x02e0->0x0d0f ; "A_PROCEDURE_INSTANTIATION"
0ba0 02f7 | | .STRTAB 0x02f7->0x0d1b ; "A_FUNCTION_INSTANTIATION"
0ba1 030d | | .STRTAB 0x030d->0x0d27 ; "A_TASK_DECLARATION"
0ba2 031d | | .STRTAB 0x031d->0x0d30 ; "A_TASK_BODY_DECLARATION"
0ba3 0332 | 2 | .STRTAB 0x0332->0x0d3c ; "A_TASK_TYPE_DECLARATION"
0ba4 0347 | G | .STRTAB 0x0347->0x0d47 ; "AN_ENTRY_DECLARATION"
0ba5 0359 | Y | .STRTAB 0x0359->0x0d51 ; "AN_EXCEPTION_DECLARATION"
0ba6 036f | o | .STRTAB 0x036f->0x0d5d ; "A_PROCEDURE_SUBUNIT"
0ba7 0380 | | .STRTAB 0x0380->0x0d67 ; "A_FUNCTION_SUBUNIT"
0ba8 0390 | | .STRTAB 0x0390->0x0d70 ; "A_PACKAGE_SUBUNIT"
0ba9 039f | | .STRTAB 0x039f->0x0d78 ; "A_TASK_SUBUNIT"
0baa 03ab | | .STRTAB 0x03ab->0x0d7f ; "A_SUBPROGRAM_FORMAL_PARAMETER"
0bab 03c6 | | .STRTAB 0x03c6->0x0d8e ; "A_GENERIC_FORMAL_PARAMETER"
0bac 03de | | .STRTAB 0x03de->0x0d9b ; "A_DISCRIMINANT"
0bad 03ea | | .STRTAB 0x03ea->0x0da2 ; "A_RECORD_COMPONENT"
0bae 03fa | | .STRTAB 0x03fa->0x0dab ; "NOT_A_DECLARATION"
0baf 0409 | | .STRTAB 0x0409->0x0db3 ; "DEFAULT_IN_PARAMETER"
0bb0 041b | | .STRTAB 0x041b->0x0dbd ; "IN_PARAMETER"
0bb1 0425 | % | .STRTAB 0x0425->0x0dc3 ; "OUT_PARAMETER"
0bb2 0430 | 0 | .STRTAB 0x0430->0x0dca ; "IN_OUT_PARAMETER"
0bb3 043e | > | .STRTAB 0x043e->0x0dd2 ; "NOT_A_PARAMETER"
0bb4 044b | K | .STRTAB 0x044b->0x0dd9 ; "SUBPROGRAM"
0bb5 0453 | S | .STRTAB 0x0453->0x0dde ; "OBJECT"
0bb6 0457 | W | .STRTAB 0x0457->0x0de1 ; "PRIVATE_TYPE"
0bb7 0461 | a | .STRTAB 0x0461->0x0de7 ; "LIMITED_PRIVATE_TYPE"
0bb8 0473 | s | .STRTAB 0x0473->0x0df1 ; "DISCRETE_TYPE"
0bb9 047e | ~ | .STRTAB 0x047e->0x0df8 ; "INTEGER_TYPE"
0bba 0488 | | .STRTAB 0x0488->0x0dfe ; "FLOATING_POINT_TYPE"
0bbb 0499 | | .STRTAB 0x0499->0x0e07 ; "FIXED_POINT_TYPE"
0bbc 04a7 | | .STRTAB 0x04a7->0x0e0f ; "ARRAY_TYPE"
0bbd 04af | | .STRTAB 0x04af->0x0e14 ; "ACCESS_TYPE"
0bbe 04b8 | | .STRTAB 0x04b8->0x0e1a ; "NOT_A_GENERIC_PARAMETER"
0bbf 04cd | | .STRTAB 0x04cd->0x0e25 ; "BOX"
0bc0 04ce | | .STRTAB 0x04ce->0x0e27 ; "NAME"
0bc1 04d0 | | .STRTAB 0x04d0->0x0e29 ; "NONE"
0bc2 04d2 | | .STRTAB 0x04d2->0x0e2b ; "NOT_A_GENERIC_FORMAL_SUBPROGRAM"
0bc3 04ef | | .STRTAB 0x04ef->0x0e3a ; "Element is an Object Renaming"
0bc4 050a | | .STRTAB 0x050a->0x0e49 ; "Element is not an Object or Parameter Declaration"
0bc5 0539 | 9 | .STRTAB 0x0539->0x0e61 ; "Element is not an object declaration or id"
0bc6 0561 | a | .STRTAB 0x0561->0x0e76 ; "Element is not a subprogram formal or deferred constant"
0bc7 0596 | | .STRTAB 0x0596->0x0e92 ; "Element is not a type or subtype"
0bc8 05b4 | | .STRTAB 0x05b4->0x0ea2 ; "Unexpected subprogram declaration or body"
0bc9 05db | | .STRTAB 0x05db->0x0eb6 ; "Element is not a Program Unit"
0bca 05f6 | | .STRTAB 0x05f6->0x0ec5 ; "Element has no unit body"
0bcb 060c | | .STRTAB 0x060c->0x0ed1 ; "Package Body Declaration);"
0bcc 0624 | $ | .STRTAB 0x0624->0x0ede ; "Element is not a Subprogram or Entry Declaration"
0bcd 0652 | R | .STRTAB 0x0652->0x0ef6 ; "Element is not a Function Declaration"
0bce 0675 | u | .STRTAB 0x0675->0x0f08 ; "Subprogram Body Declaration);"
0bcf 0690 | | .STRTAB 0x0690->0x0f17 ; "Element is not a Renaming Declaration"
0bd0 06b3 | | .STRTAB 0x06b3->0x0f29 ; "Element is not a Generic Declaration"
0bd1 06d5 | | .STRTAB 0x06d5->0x0f3b ; "Element default is box"
0bd2 06e9 | | .STRTAB 0x06e9->0x0f46 ; "Element has no default"
0bd3 06fd | | .STRTAB 0x06fd->0x0f51 ; "Element is not a generic formal subprogram"
0bd4 0725 | % | .STRTAB 0x0725->0x0f66 ; "Element is not a Generic Instantiation"
0bd5 0749 | I | .STRTAB 0x0749->0x0f79 ; "Element is not a Task Type Declaration"
0bd6 076d | m | .STRTAB 0x076d->0x0f8c ; "Element is not a Task Declaration"
0bd7 078c | | .STRTAB 0x078c->0x0f9d ; "Task Body Declaration"
0bd8 079f | | .STRTAB 0x079f->0x0fa7 ; "Element is not an Entry Declaration"
0bd9 07c0 | | .STRTAB 0x07c0->0x0fb9 ; "Element is not a Subunit Stub"
0bda 07db | | .STRTAB 0x07db->0x0fc7 ; "Element is not "
0bdb 07e8 | | .STRTAB 0x07e8->0x0fcf ; "Element has no ID"
0bdc 07f7 | | .STRTAB 0x07f7->0x0fd7 ; "Element is not a Declaration"
0bdd 0811 | | .STRTAB 0x0811->0x0fe5 ; "Element is not a Package specification"
0bde 0835 | 5 | .STRTAB 0x0835->0x0ff8 ; "Element is not a "
0bdf 0844 | D | .STRTAB 0x0844->0x1001 ; ", "
0be0 0844 | D | .STREND 0x0844->0x1002
0be1 415f 5641 |A_VA| .STRTAB_STRINGS
1002 0000 0000 | | .BLANK 0000[0x6]
1008 ; --------------------------------------------------------------------------------------
1008 ; Debug Table
1008 ; --------------------------------------------------------------------------------------
1008 0004 0009 | | .DEBUG4 0x0004,0x0009,0x5d85,0x0000,0x0001,0x0000
100e 0000 0000 | | .BLANK 0000[0x1f2]