|
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 - metrics - download
Length: 6144 (0x1800)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_ccb0b3
└─⟦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 0a30 | 0 | .CONST 0x0a30 ; 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 8006 | | .CONST 0x8006 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 00c7 | | .CONST 0x00c7 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0034 | 4 | .CONST 0x0034 ; Number of locals
000b INIT_0008:
000b 00c4 | | Action Make_Default
000c 00c4 | | Action Make_Default
000d 00c4 | | Action Make_Default
000e 00c4 | | Action Make_Default
000f 00c4 | | Action Make_Default
0010 00c4 | | Action Make_Default
0011 029a 00d3 | | Declare_Subprogram INIT_00d0,For_Outer_Call,Visible,Unelaborated
0013 c212 | | Store 0x1,0x12
0014 029a 00eb | | Declare_Subprogram INIT_00e8,For_Outer_Call,Visible,Unelaborated
0016 c210 | | Store 0x1,0x10
0017 029a 0103 | | Declare_Subprogram INIT_0100,For_Outer_Call,Visible,Unelaborated
0019 c211 | | Store 0x1,0x11
001a 00bf | | Action Accept_Activation
001b 4800 |H | Short_Literal 0x0
001c 4802 |H | Short_Literal 0x2
001d 029f 0173 | s| Declare_Subprogram INIT_0170,For_Call
001f 03fd | | Declare_Type Discrete,Defined
0020 4800 |H | Short_Literal 0x0
0021 4804 |H | Short_Literal 0x4
0022 029f 019b | | Declare_Subprogram INIT_0198,For_Call
0024 03fd | | Declare_Type Discrete,Defined
0025 e001 | | Load 0x0,0x1
0026 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0027 e001 | | Load 0x0,0x1
0028 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0029 011e | | Execute Any,Convert
002a 00ec | | Load_Encached Diana_Tree_Cache
002b 00ec | | Load_Encached Diana_Tree_Cache
002c e002 | | Load 0x0,0x2
002d 1811 | | Execute Package,Field_Execute,Field_Number 0x11
002e e003 | | Load 0x0,0x3
002f 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0030 00ec | | Load_Encached Diana_Tree_Cache
0031 0092 08ec | | Action Push_String_Extended,0x8ec ; "Incremental operations are not allowed in coded units"
0033 00ec | | Load_Encached Diana_Tree_Cache
0034 4802 |H | Short_Literal 0x2
0035 e001 | | Load 0x0,0x1
0036 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0037 e001 | | Load 0x0,0x1
0038 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0039 e001 | | Load 0x0,0x1
003a 1b0d | | Execute Package,Field_Read,Field_Number 0xd
003b 011e | | Execute Any,Convert
003c 029d 01c3 | | Declare_Subprogram INIT_01c0,For_Outer_Call
003e 029d 01eb | | Declare_Subprogram INIT_01e8,For_Outer_Call
0040 029d 01f3 | | Declare_Subprogram INIT_01f0,For_Outer_Call
0042 029d 026b | k| Declare_Subprogram INIT_0268,For_Outer_Call
0044 029d 02b3 | | Declare_Subprogram INIT_02b0,For_Outer_Call
0046 029d 02eb | | Declare_Subprogram INIT_02e8,For_Outer_Call
0048 4800 |H | Short_Literal 0x0
0049 e004 | | Load 0x0,0x4
004a 02a0 | | Declare_Subprogram Null_Subprogram
004b 038e | | Declare_Type Package,Defined
004c 0387 | | Declare_Variable Package
004d e005 | | Load 0x0,0x5
004e e006 | | Load 0x0,0x6
004f e007 | | Load 0x0,0x7
0050 e008 | | Load 0x0,0x8
0051 e009 | | Load 0x0,0x9
0052 e002 | | Load 0x0,0x2
0053 e003 | | Load 0x0,0x3
0054 4800 |H | Short_Literal 0x0
0055 e00b | | Load 0x0,0xb
0056 1d1b | | Execute_Immediate Reference_Lex_1,0x1b
0057 1d1c | | Execute_Immediate Reference_Lex_1,0x1c
0058 e001 | | Load 0x0,0x1
0059 e215 | | Load 0x1,0x15
005a e00c | | Load 0x0,0xc
005b e00d | | Load 0x0,0xd
005c e00e | | Load 0x0,0xe
005d e00f | | Load 0x0,0xf
005e e010 | | Load 0x0,0x10
005f e011 | | Load 0x0,0x11
0060 e012 | | Load 0x0,0x12
0061 e013 | | Load 0x0,0x13
0062 e014 | | Load 0x0,0x14
0063 e015 | | Load 0x0,0x15
0064 e016 | | Load 0x0,0x16
0065 e017 | | Load 0x0,0x17
0066 e018 | | Load 0x0,0x18
0067 e019 | | Load 0x0,0x19
0068 e01a | | Load 0x0,0x1a
0069 4800 |H | Short_Literal 0x0
006a 4800 |H | Short_Literal 0x0
006b 4800 |H | Short_Literal 0x0
006c 4800 |H | Short_Literal 0x0
006d e031 | 1 | Load 0x0,0x31
006e 4821 |H! | Short_Literal 0x21
006f e21d | | Load 0x1,0x1d
0070 020e | | Execute Module,Augment_Imports
0071 00d8 | | Load_Top At_Offset_0
0072 020f | | Execute Module,Activate
0073 029d 036b | k| Declare_Subprogram INIT_0368,For_Outer_Call
0075 029d 03cb | | Declare_Subprogram INIT_03c8,For_Outer_Call
0077 1d12 | | Execute_Immediate Reference_Lex_1,0x12
0078 00c7 | | Action Elaborate_Subprogram
0079 1d10 | | Execute_Immediate Reference_Lex_1,0x10
007a 00c7 | | Action Elaborate_Subprogram
007b 1d11 | | Execute_Immediate Reference_Lex_1,0x11
007c 00c7 | | Action Elaborate_Subprogram
007d 029d 03db | | Declare_Subprogram INIT_03d8,For_Outer_Call
007f 029d 0523 | #| Declare_Subprogram INIT_0520,For_Outer_Call
0081 029d 0533 | 3| Declare_Subprogram INIT_0530,For_Outer_Call
0083 029d 062b | +| Declare_Subprogram INIT_0628,For_Outer_Call
0085 029d 063b | ;| Declare_Subprogram INIT_0638,For_Outer_Call
0087 029d 064b | K| Declare_Subprogram INIT_0648,For_Outer_Call
0089 029d 065b | [| Declare_Subprogram INIT_0658,For_Outer_Call
008b 029d 066b | k| Declare_Subprogram INIT_0668,For_Outer_Call
008d 029d 067b | {| Declare_Subprogram INIT_0678,For_Outer_Call
008f 029d 068b | | Declare_Subprogram INIT_0688,For_Outer_Call
0091 029d 069b | | Declare_Subprogram INIT_0698,For_Outer_Call
0093 029d 06ab | | Declare_Subprogram INIT_06a8,For_Outer_Call
0095 029d 06b3 | | Declare_Subprogram INIT_06b0,For_Outer_Call
0097 029d 06c3 | | Declare_Subprogram INIT_06c0,For_Outer_Call
0099 029d 06cb | | Declare_Subprogram INIT_06c8,For_Outer_Call
009b 029d 06d3 | | Declare_Subprogram INIT_06d0,For_Outer_Call
009d 029d 06db | | Declare_Subprogram INIT_06d8,For_Outer_Call
009f 029d 06e3 | | Declare_Subprogram INIT_06e0,For_Outer_Call
00a1 029d 06eb | | Declare_Subprogram INIT_06e8,For_Outer_Call
00a3 029d 06f3 | | Declare_Subprogram INIT_06f0,For_Outer_Call
00a5 e01b | | Load 0x0,0x1b
00a6 e01c | | Load 0x0,0x1c
00a7 1d18 | | Execute_Immediate Reference_Lex_1,0x18
00a8 1d19 | | Execute_Immediate Reference_Lex_1,0x19
00a9 1d1f | | Execute_Immediate Reference_Lex_1,0x1f
00aa 1d20 | | Execute_Immediate Reference_Lex_1,0x20
00ab 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21
00ac 1d22 | " | Execute_Immediate Reference_Lex_1,0x22
00ad 1d23 | # | Execute_Immediate Reference_Lex_1,0x23
00ae 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24
00af 1d25 | % | Execute_Immediate Reference_Lex_1,0x25
00b0 1d26 | & | Execute_Immediate Reference_Lex_1,0x26
00b1 1d27 | ' | Execute_Immediate Reference_Lex_1,0x27
00b2 1d28 | ( | Execute_Immediate Reference_Lex_1,0x28
00b3 1d29 | ) | Execute_Immediate Reference_Lex_1,0x29
00b4 1d2a | * | Execute_Immediate Reference_Lex_1,0x2a
00b5 1d2b | + | Execute_Immediate Reference_Lex_1,0x2b
00b6 1d2c | , | Execute_Immediate Reference_Lex_1,0x2c
00b7 1d2d | - | Execute_Immediate Reference_Lex_1,0x2d
00b8 1d2e | . | Execute_Immediate Reference_Lex_1,0x2e
00b9 1d2f | / | Execute_Immediate Reference_Lex_1,0x2f
00ba 1d30 | 0 | Execute_Immediate Reference_Lex_1,0x30
00bb 1d31 | 1 | Execute_Immediate Reference_Lex_1,0x31
00bc 1d32 | 2 | Execute_Immediate Reference_Lex_1,0x32
00bd 1d33 | 3 | Execute_Immediate Reference_Lex_1,0x33
00be e01d | | Load 0x0,0x1d
00bf 1814 | | Execute Package,Field_Execute,Field_Number 0x14
00c0 e015 | | Load 0x0,0x15
00c1 1b14 | | Execute Package,Field_Read,Field_Number 0x14
00c2 1b33 | 3 | Execute Package,Field_Read,Field_Number 0x33
00c3 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00c4 0387 | | Declare_Variable Package
00c5 00d8 | | Load_Top At_Offset_0
00c6 020f | | Execute Module,Activate
00c7 BODY_0008:
00c7 00bc | | Action Signal_Activated
00c8 00bb | | Action Signal_Completion
00c9 0000 0000 | | .BLANK 0000[0x7]
00d0 ; --------------------------------------------------------------------------------------
00d0 ; SUBPROGRAM
00d0 ; --------------------------------------------------------------------------------------
00d0 00d9 | | .CONST 0x00d9 ; Address of begin
00d1 0004 | | .CONST 0x0004 ; Address of exception handler
00d2 0002 | | .CONST 0x0002 ; Number of locals
00d3 INIT_00d0:
00d3 e015 | | Load 0x0,0x15
00d4 1b14 | | Execute Package,Field_Read,Field_Number 0x14
00d5 1b10 | | Execute Package,Field_Read,Field_Number 0x10
00d6 02c7 | | Declare_Variable Any
00d7 00d8 | | Load_Top At_Offset_0
00d8 1c00 | | Execute_Immediate Run_Utility,0x0
00d9 BODY_00d0:
00d9 4802 |H | Short_Literal 0x2
00da e5fc | | Load 0x2,-0x4
00db e5fd | | Load 0x2,-0x3
00dc e5fe | | Load 0x2,-0x2
00dd e5ff | | Load 0x2,-0x1
00de 821e | | Call 0x1,0x1e
00df c402 | | Store 0x2,0x2
00e0 00d8 | | Load_Top At_Offset_0
00e1 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
00e2 0000 0000 | | .BLANK 0000[0x6]
00e8 ; --------------------------------------------------------------------------------------
00e8 ; SUBPROGRAM
00e8 ; --------------------------------------------------------------------------------------
00e8 00f7 | | .CONST 0x00f7 ; Address of begin
00e9 0004 | | .CONST 0x0004 ; Address of exception handler
00ea 0003 | | .CONST 0x0003 ; Number of locals
00eb INIT_00e8:
00eb e015 | | Load 0x0,0x15
00ec 1b14 | | Execute Package,Field_Read,Field_Number 0x14
00ed 1b10 | | Execute Package,Field_Read,Field_Number 0x10
00ee 02c7 | | Declare_Variable Any
00ef 00d8 | | Load_Top At_Offset_0
00f0 1c00 | | Execute_Immediate Run_Utility,0x0
00f1 e00c | | Load 0x0,0xc
00f2 1b1c | | Execute Package,Field_Read,Field_Number 0x1c
00f3 1b13 | | Execute Package,Field_Read,Field_Number 0x13
00f4 02c7 | | Declare_Variable Any
00f5 00d8 | | Load_Top At_Offset_0
00f6 1c00 | | Execute_Immediate Run_Utility,0x0
00f7 BODY_00e8:
00f7 4801 |H | Short_Literal 0x1
00f8 00d9 | | Load_Top At_Offset_1
00f9 e5fd | | Load 0x2,-0x3
00fa e5fe | | Load 0x2,-0x2
00fb e5ff | | Load 0x2,-0x1
00fc 821e | | Call 0x1,0x1e
00fd c402 | | Store 0x2,0x2
00fe 00d9 | | Load_Top At_Offset_1
00ff 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
0100 ; --------------------------------------------------------------------------------------
0100 ; SUBPROGRAM
0100 ; --------------------------------------------------------------------------------------
0100 010d | | .CONST 0x010d ; Address of begin
0101 0004 | | .CONST 0x0004 ; Address of exception handler
0102 0003 | | .CONST 0x0003 ; Number of locals
0103 INIT_0100:
0103 e015 | | Load 0x0,0x15
0104 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0105 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0106 02c7 | | Declare_Variable Any
0107 00d8 | | Load_Top At_Offset_0
0108 1c00 | | Execute_Immediate Run_Utility,0x0
0109 00ec | | Load_Encached Diana_Tree_Cache
010a 02c7 | | Declare_Variable Any
010b 00d8 | | Load_Top At_Offset_0
010c 1c00 | | Execute_Immediate Run_Utility,0x0
010d BODY_0100:
010d e010 | | Load 0x0,0x10
010e 180e | | Execute Package,Field_Execute,Field_Number 0xe
010f 4801 |H | Short_Literal 0x1
0110 0092 08ed | | Action Push_String_Extended,0x8ed ; "Acquiring demotion_effects for "
0112 e5ff | | Load 0x2,-0x1
0113 e005 | | Load 0x0,0x5
0114 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0115 01cc | | Execute Vector,Catenate
0116 e014 | | Load 0x0,0x14
0117 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0118 e010 | | Load 0x0,0x10
0119 180e | | Execute Package,Field_Execute,Field_Number 0xe
011a e01d | | Load 0x0,0x1d
011b 1819 | | Execute Package,Field_Execute,Field_Number 0x19
011c e5ff | | Load 0x2,-0x1
011d 821b | | Call 0x1,0x1b
011e 4604 |F | Jump_Case 0x5
011f 780d |x | Jump 0x12d ; case 0x0
0120 781d |x | Jump 0x13e ; case 0x1
0121 780b |x | Jump 0x12d ; case 0x2
0122 7801 |x | Jump 0x124 ; case 0x3
0123 7800 |x | Jump 0x124 ; case 0x4
0124 00d9 | | Load_Top At_Offset_1
0125 e5fd | | Load 0x2,-0x3
0126 e5fe | | Load 0x2,-0x2
0127 4800 |H | Short_Literal 0x0
0128 e5ff | | Load 0x2,-0x1
0129 e21d | | Load 0x1,0x1d
012a 1812 | | Execute Package,Field_Execute,Field_Number 0x12
012b c402 | | Store 0x2,0x2
012c 782e |x. | Jump 0x15b
012d 00d9 | | Load_Top At_Offset_1
012e e5fd | | Load 0x2,-0x3
012f e5fe | | Load 0x2,-0x2
0130 4800 |H | Short_Literal 0x0
0131 e5ff | | Load 0x2,-0x1
0132 e21d | | Load 0x1,0x1d
0133 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0134 c402 | | Store 0x2,0x2
0135 00d9 | | Load_Top At_Offset_1
0136 e5fd | | Load 0x2,-0x3
0137 e5fe | | Load 0x2,-0x2
0138 4800 |H | Short_Literal 0x0
0139 e5ff | | Load 0x2,-0x1
013a e21d | | Load 0x1,0x1d
013b 1810 | | Execute Package,Field_Execute,Field_Number 0x10
013c c402 | | Store 0x2,0x2
013d 781d |x | Jump 0x15b
013e e5ff | | Load 0x2,-0x1
013f 4976 |Iv | Short_Literal 0x176
0140 00eb | | Load_Encached Diana_Cache
0141 0098 | | Execute Package,Field_Read_Dynamic
0142 180f | | Execute Package,Field_Execute,Field_Number 0xf
0143 c403 | | Store 0x2,0x3
0144 00d8 | | Load_Top At_Offset_0
0145 490b |I | Short_Literal 0x10b
0146 00eb | | Load_Encached Diana_Cache
0147 0096 | | Execute Package,Entry
0148 00d9 | | Load_Top At_Offset_1
0149 012f | / | Execute Any,Equal
014a 6808 |h | Jump_Zero 0x153
014b 00d9 | | Load_Top At_Offset_1
014c e5fd | | Load 0x2,-0x3
014d e5fe | | Load 0x2,-0x2
014e 4800 |H | Short_Literal 0x0
014f e5ff | | Load 0x2,-0x1
0150 e21d | | Load 0x1,0x1d
0151 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0152 c402 | | Store 0x2,0x2
0153 00d9 | | Load_Top At_Offset_1
0154 e5fd | | Load 0x2,-0x3
0155 e5fe | | Load 0x2,-0x2
0156 4800 |H | Short_Literal 0x0
0157 e5ff | | Load 0x2,-0x1
0158 e21d | | Load 0x1,0x1d
0159 1812 | | Execute Package,Field_Execute,Field_Number 0x12
015a c402 | | Store 0x2,0x2
015b 00d9 | | Load_Top At_Offset_1
015c e5fd | | Load 0x2,-0x3
015d e5fe | | Load 0x2,-0x2
015e 4800 |H | Short_Literal 0x0
015f e5ff | | Load 0x2,-0x1
0160 e21d | | Load 0x1,0x1d
0161 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0162 c402 | | Store 0x2,0x2
0163 00d9 | | Load_Top At_Offset_1
0164 e5fd | | Load 0x2,-0x3
0165 e5fe | | Load 0x2,-0x2
0166 4800 |H | Short_Literal 0x0
0167 e5ff | | Load 0x2,-0x1
0168 e21d | | Load 0x1,0x1d
0169 1814 | | Execute Package,Field_Execute,Field_Number 0x14
016a c402 | | Store 0x2,0x2
016b 00d9 | | Load_Top At_Offset_1
016c 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
016d 0000 0000 | | .XXX[0x3]
016f 0000 | |
0170 ; --------------------------------------------------------------------------------------
0170 ; SUBPROGRAM
0170 ; --------------------------------------------------------------------------------------
0170 0173 | s | .CONST 0x0173 ; Address of begin
0171 0004 | | .CONST 0x0004 ; Address of exception handler
0172 0001 | | .CONST 0x0001 ; Number of locals
0173 BODY_0170:
0173 INIT_0170:
0173 4607 |F | Jump_Case 0x8
0174 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
0175 7806 |x | Jump 0x17c ; case 0x1
0176 7809 |x | Jump 0x180 ; case 0x2
0177 780d |x | Jump 0x185 ; case 0x3
0178 7810 |x | Jump 0x189 ; case 0x4
0179 7811 |x | Jump 0x18b ; case 0x5
017a 7812 |x | Jump 0x18d ; case 0x6
017b 7815 |x | Jump 0x191 ; case 0x7
017c 00da | | Load_Top At_Offset_2
017d 0091 08e4 | | Action Push_String_Extended_Indexed,0x8e4 ; "COMP_COUPLER"
017f 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0180 00db | | Load_Top At_Offset_3
0181 00db | | Load_Top At_Offset_3
0182 00e0 | | Load_Encached Standard_Cache
0183 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0184 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0185 00da | | Load_Top At_Offset_2
0186 00e0 | | Load_Encached Standard_Cache
0187 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0188 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0189 00db | | Load_Top At_Offset_3
018a 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
018b 00db | | Load_Top At_Offset_3
018c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
018d e213 | | Load 0x1,0x13
018e 00dc | | Load_Top At_Offset_4
018f 0267 | g | Execute Discrete,Predecessor
0190 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0191 e213 | | Load 0x1,0x13
0192 00dc | | Load_Top At_Offset_4
0193 0268 | h | Execute Discrete,Successor
0194 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0195 0000 0000 | | .XXX[0x3]
0197 0000 | |
0198 ; --------------------------------------------------------------------------------------
0198 ; SUBPROGRAM
0198 ; --------------------------------------------------------------------------------------
0198 019b | | .CONST 0x019b ; Address of begin
0199 0004 | | .CONST 0x0004 ; Address of exception handler
019a 0001 | | .CONST 0x0001 ; Number of locals
019b BODY_0198:
019b INIT_0198:
019b 4607 |F | Jump_Case 0x8
019c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
019d 7806 |x | Jump 0x1a4 ; case 0x1
019e 7809 |x | Jump 0x1a8 ; case 0x2
019f 780d |x | Jump 0x1ad ; case 0x3
01a0 7810 |x | Jump 0x1b1 ; case 0x4
01a1 7811 |x | Jump 0x1b3 ; case 0x5
01a2 7812 |x | Jump 0x1b5 ; case 0x6
01a3 7815 |x | Jump 0x1b9 ; case 0x7
01a4 00da | | Load_Top At_Offset_2
01a5 0091 08e7 | | Action Push_String_Extended_Indexed,0x8e7 ; "LIBRARY_UNIT_SPEC"
01a7 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
01a8 00db | | Load_Top At_Offset_3
01a9 00db | | Load_Top At_Offset_3
01aa 00e0 | | Load_Encached Standard_Cache
01ab 181b | | Execute Package,Field_Execute,Field_Number 0x1b
01ac 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
01ad 00da | | Load_Top At_Offset_2
01ae 00e0 | | Load_Encached Standard_Cache
01af 181c | | Execute Package,Field_Execute,Field_Number 0x1c
01b0 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
01b1 00db | | Load_Top At_Offset_3
01b2 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
01b3 00db | | Load_Top At_Offset_3
01b4 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
01b5 e214 | | Load 0x1,0x14
01b6 00dc | | Load_Top At_Offset_4
01b7 0267 | g | Execute Discrete,Predecessor
01b8 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
01b9 e214 | | Load 0x1,0x14
01ba 00dc | | Load_Top At_Offset_4
01bb 0268 | h | Execute Discrete,Successor
01bc 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
01bd 0000 0000 | | .XXX[0x3]
01bf 0000 | |
01c0 ; --------------------------------------------------------------------------------------
01c0 ; SUBPROGRAM
01c0 ; --------------------------------------------------------------------------------------
01c0 01c5 | | .CONST 0x01c5 ; Address of begin
01c1 0004 | | .CONST 0x0004 ; Address of exception handler
01c2 0002 | | .CONST 0x0002 ; Number of locals
01c3 INIT_01c0:
01c3 e010 | | Load 0x0,0x10
01c4 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
01c5 BODY_01c0:
01c5 4800 |H | Short_Literal 0x0
01c6 e5ff | | Load 0x2,-0x1
01c7 e012 | | Load 0x0,0x12
01c8 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
01c9 6802 |h | Jump_Zero 0x1cc
01ca 4800 |H | Short_Literal 0x0
01cb 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01cc 00db | | Load_Top At_Offset_3
01cd e012 | | Load 0x0,0x12
01ce 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
01cf e012 | | Load 0x0,0x12
01d0 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
01d1 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
01d2 00d8 | | Load_Top At_Offset_0
01d3 460b |F | Jump_Case 0xc
01d4 780b |x | Jump 0x1e0 ; case 0x0
01d5 780a |x | Jump 0x1e0 ; case 0x1
01d6 7809 |x | Jump 0x1e0 ; case 0x2
01d7 7808 |x | Jump 0x1e0 ; case 0x3
01d8 7807 |x | Jump 0x1e0 ; case 0x4
01d9 780a |x | Jump 0x1e4 ; case 0x5
01da 7807 |x | Jump 0x1e2 ; case 0x6
01db 7808 |x | Jump 0x1e4 ; case 0x7
01dc 7809 |x | Jump 0x1e6 ; case 0x8
01dd 7802 |x | Jump 0x1e0 ; case 0x9
01de 7801 |x | Jump 0x1e0 ; case 0xa
01df 7800 |x | Jump 0x1e0 ; case 0xb
01e0 4800 |H | Short_Literal 0x0
01e1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01e2 4801 |H | Short_Literal 0x1
01e3 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01e4 4802 |H | Short_Literal 0x2
01e5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01e6 4804 |H | Short_Literal 0x4
01e7 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01e8 ; --------------------------------------------------------------------------------------
01e8 ; SUBPROGRAM
01e8 ; --------------------------------------------------------------------------------------
01e8 01eb | | .CONST 0x01eb ; Address of begin
01e9 0004 | | .CONST 0x0004 ; Address of exception handler
01ea 0001 | | .CONST 0x0001 ; Number of locals
01eb BODY_01e8:
01eb INIT_01e8:
01eb 4801 |H | Short_Literal 0x1
01ec 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01ed 0000 0000 | | .XXX[0x3]
01ef 0000 | |
01f0 ; --------------------------------------------------------------------------------------
01f0 ; SUBPROGRAM
01f0 ; --------------------------------------------------------------------------------------
01f0 0203 | | .CONST 0x0203 ; Address of begin
01f1 0004 | | .CONST 0x0004 ; Address of exception handler
01f2 0005 | | .CONST 0x0005 ; Number of locals
01f3 INIT_01f0:
01f3 e009 | | Load 0x0,0x9
01f4 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01f5 e009 | | Load 0x0,0x9
01f6 1b3a | : | Execute Package,Field_Read,Field_Number 0x3a
01f7 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01f8 e009 | | Load 0x0,0x9
01f9 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
01fa 1b0e | | Execute Package,Field_Read,Field_Number 0xe
01fb 02c7 | | Declare_Variable Any
01fc 00d8 | | Load_Top At_Offset_0
01fd 1c00 | | Execute_Immediate Run_Utility,0x0
01fe e009 | | Load 0x0,0x9
01ff 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0200 02c7 | | Declare_Variable Any
0201 00d8 | | Load_Top At_Offset_0
0202 1c00 | | Execute_Immediate Run_Utility,0x0
0203 BODY_01f0:
0203 e010 | | Load 0x0,0x10
0204 180e | | Execute Package,Field_Execute,Field_Number 0xe
0205 4801 |H | Short_Literal 0x1
0206 0092 08ee | | Action Push_String_Extended,0x8ee ; "Entering Current_Phase"
0208 e014 | | Load 0x0,0x14
0209 1813 | | Execute Package,Field_Execute,Field_Number 0x13
020a e215 | | Load 0x1,0x15
020b c5fa | | Store 0x2,-0x6
020c e009 | | Load 0x0,0x9
020d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
020e 00da | | Load_Top At_Offset_2
020f 0120 | | Execute Any,Is_Value
0210 6804 |h | Jump_Zero 0x215
0211 e009 | | Load 0x0,0x9
0212 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
0213 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0214 7801 |x | Jump 0x216
0215 00da | | Load_Top At_Offset_2
0216 e5fe | | Load 0x2,-0x2
0217 e009 | | Load 0x0,0x9
0218 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
0219 181c | | Execute Package,Field_Execute,Field_Number 0x1c
021a c404 | | Store 0x2,0x4
021b c402 | | Store 0x2,0x2
021c 00db | | Load_Top At_Offset_3
021d 680a |h | Jump_Zero 0x228
021e e010 | | Load 0x0,0x10
021f 180e | | Execute Package,Field_Execute,Field_Number 0xe
0220 4801 |H | Short_Literal 0x1
0221 0092 08ef | | Action Push_String_Extended,0x8ef ; "Unable to get coding phase"
0223 e014 | | Load 0x0,0x14
0224 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0225 4800 |H | Short_Literal 0x0
0226 a5fb | | Store_Unchecked 0x2,-0x5
0227 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0228 e009 | | Load 0x0,0x9
0229 1b0d | | Execute Package,Field_Read,Field_Number 0xd
022a e009 | | Load 0x0,0x9
022b 1b3a | : | Execute Package,Field_Read,Field_Number 0x3a
022c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
022d 6036 |`6 | Indirect_Literal Discrete,0x264,{0x00000000, 0x00004000}
022e e01e | | Load 0x0,0x1e
022f 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0230 4800 |H | Short_Literal 0x0
0231 e404 | | Load 0x2,0x4
0232 e009 | | Load 0x0,0x9
0233 1b3a | : | Execute Package,Field_Read,Field_Number 0x3a
0234 180f | | Execute Package,Field_Execute,Field_Number 0xf
0235 c403 | | Store 0x2,0x3
0236 c402 | | Store 0x2,0x2
0237 00d9 | | Load_Top At_Offset_1
0238 e009 | | Load 0x0,0x9
0239 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
023a 1812 | | Execute Package,Field_Execute,Field_Number 0x12
023b c405 | | Store 0x2,0x5
023c 00db | | Load_Top At_Offset_3
023d 680f |h | Jump_Zero 0x24d
023e 4800 |H | Short_Literal 0x0
023f a5fb | | Store_Unchecked 0x2,-0x5
0240 e010 | | Load 0x0,0x10
0241 180e | | Execute Package,Field_Execute,Field_Number 0xe
0242 4806 |H | Short_Literal 0x6
0243 0092 08f0 | | Action Push_String_Extended,0x8f0 ; "Unable to retrieve unit state for "
0245 00db | | Load_Top At_Offset_3
0246 e009 | | Load 0x0,0x9
0247 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0248 183b | ; | Execute Package,Field_Execute,Field_Number 0x3b
0249 01cc | | Execute Vector,Catenate
024a e014 | | Load 0x0,0x14
024b 1813 | | Execute Package,Field_Execute,Field_Number 0x13
024c 4505 |E | Exit_Suprogram New_Top_Offset 0x5
024d 00da | | Load_Top At_Offset_2
024e 4604 |F | Jump_Case 0x5
024f 780e |x | Jump 0x25e ; case 0x0
0250 780d |x | Jump 0x25e ; case 0x1
0251 7809 |x | Jump 0x25b ; case 0x2
0252 7805 |x | Jump 0x258 ; case 0x3
0253 7800 |x | Jump 0x254 ; case 0x4
0254 e5ff | | Load 0x2,-0x1
0255 8218 | | Call 0x1,0x18
0256 a5fb | | Store_Unchecked 0x2,-0x5
0257 7808 |x | Jump 0x260
0258 4800 |H | Short_Literal 0x0
0259 a5fb | | Store_Unchecked 0x2,-0x5
025a 7805 |x | Jump 0x260
025b 4fff |O | Short_Literal -0x1
025c a5fb | | Store_Unchecked 0x2,-0x5
025d 7802 |x | Jump 0x260
025e 4800 |H | Short_Literal 0x0
025f a5fb | | Store_Unchecked 0x2,-0x5
0260 e215 | | Load 0x1,0x15
0261 c5fa | | Store 0x2,-0x6
0262 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0263 0000 | | .XXX[0x1]
0264 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
0268 ; --------------------------------------------------------------------------------------
0268 ; SUBPROGRAM
0268 ; --------------------------------------------------------------------------------------
0268 0276 | v | .CONST 0x0276 ; Address of begin
0269 0004 | | .CONST 0x0004 ; Address of exception handler
026a 0003 | | .CONST 0x0003 ; Number of locals
026b INIT_0268:
026b e009 | | Load 0x0,0x9
026c 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
026d 1b0e | | Execute Package,Field_Read,Field_Number 0xe
026e 02c7 | | Declare_Variable Any
026f 00d8 | | Load_Top At_Offset_0
0270 1c00 | | Execute_Immediate Run_Utility,0x0
0271 e009 | | Load 0x0,0x9
0272 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0273 02c7 | | Declare_Variable Any
0274 00d8 | | Load_Top At_Offset_0
0275 1c00 | | Execute_Immediate Run_Utility,0x0
0276 BODY_0268:
0276 e009 | | Load 0x0,0x9
0277 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0278 00da | | Load_Top At_Offset_2
0279 0120 | | Execute Any,Is_Value
027a 6804 |h | Jump_Zero 0x27f
027b e009 | | Load 0x0,0x9
027c 1b3d | = | Execute Package,Field_Read,Field_Number 0x3d
027d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
027e 7801 |x | Jump 0x280
027f 00da | | Load_Top At_Offset_2
0280 e5ff | | Load 0x2,-0x1
0281 e009 | | Load 0x0,0x9
0282 1b3d | = | Execute Package,Field_Read,Field_Number 0x3d
0283 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0284 c402 | | Store 0x2,0x2
0285 c5fd | | Store 0x2,-0x3
0286 e5fd | | Load 0x2,-0x3
0287 6818 |h | Jump_Zero 0x2a0
0288 e010 | | Load 0x0,0x10
0289 180e | | Execute Package,Field_Execute,Field_Number 0xe
028a 4807 |H | Short_Literal 0x7
028b 0092 08f1 | | Action Push_String_Extended,0x8f1 ; "Error while obtaining enclosing world for unit "
028d e5ff | | Load 0x2,-0x1
028e e009 | | Load 0x0,0x9
028f 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0290 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
0291 01cc | | Execute Vector,Catenate
0292 0092 08f2 | | Action Push_String_Extended,0x8f2 ; " - "
0294 01cc | | Execute Vector,Catenate
0295 e5fd | | Load 0x2,-0x3
0296 e009 | | Load 0x0,0x9
0297 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0298 011c | | Execute Any,Convert_Unchecked
0299 1c01 | | Execute_Immediate Run_Utility,0x1
029a 01cc | | Execute Vector,Catenate
029b e014 | | Load 0x0,0x14
029c 1813 | | Execute Package,Field_Execute,Field_Number 0x13
029d 4800 |H | Short_Literal 0x0
029e a5fe | | Store_Unchecked 0x2,-0x2
029f 4502 |E | Exit_Suprogram New_Top_Offset 0x2
02a0 00d9 | | Load_Top At_Offset_1
02a1 e009 | | Load 0x0,0x9
02a2 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
02a3 1812 | | Execute Package,Field_Execute,Field_Number 0x12
02a4 c403 | | Store 0x2,0x3
02a5 00d8 | | Load_Top At_Offset_0
02a6 e009 | | Load 0x0,0x9
02a7 182c | , | Execute Package,Field_Execute,Field_Number 0x2c
02a8 e01f | | Load 0x0,0x1f
02a9 1815 | | Execute Package,Field_Execute,Field_Number 0x15
02aa 027f | | Execute Discrete,Equal
02ab a5fe | | Store_Unchecked 0x2,-0x2
02ac 4502 |E | Exit_Suprogram New_Top_Offset 0x2
02ad 0000 0000 | | .XXX[0x3]
02af 0000 | |
02b0 ; --------------------------------------------------------------------------------------
02b0 ; SUBPROGRAM
02b0 ; --------------------------------------------------------------------------------------
02b0 02b9 | | .CONST 0x02b9 ; Address of begin
02b1 0004 | | .CONST 0x0004 ; Address of exception handler
02b2 0002 | | .CONST 0x0002 ; Number of locals
02b3 INIT_02b0:
02b3 00ec | | Load_Encached Diana_Tree_Cache
02b4 02c7 | | Declare_Variable Any
02b5 00db | | Load_Top At_Offset_3
02b6 00eb | | Load_Encached Diana_Cache
02b7 18e9 | | Execute Package,Field_Execute,Field_Number 0xe9
02b8 a402 | | Store_Unchecked 0x2,0x2
02b9 BODY_02b0:
02b9 00d8 | | Load_Top At_Offset_0
02ba 0145 | E | Execute Heap_Access,Diana_Tree_Kind
02bb 00d8 | | Load_Top At_Offset_0
02bc 483d |H= | Short_Literal 0x3d
02bd 4849 |HI | Short_Literal 0x49
02be 0262 | b | Execute Discrete,In_Range
02bf 6811 |h | Jump_Zero 0x2d1
02c0 0ac3 | | Execute_Immediate Plus,-0x3d
02c1 460c |F | Jump_Case 0xd
02c2 7818 |x | Jump 0x2db ; case 0x0
02c3 781f |x | Jump 0x2e3 ; case 0x1
02c4 7822 |x" | Jump 0x2e7 ; case 0x2
02c5 7821 |x! | Jump 0x2e7 ; case 0x3
02c6 781c |x | Jump 0x2e3 ; case 0x4
02c7 781f |x | Jump 0x2e7 ; case 0x5
02c8 781e |x | Jump 0x2e7 ; case 0x6
02c9 781d |x | Jump 0x2e7 ; case 0x7
02ca 781c |x | Jump 0x2e7 ; case 0x8
02cb 781b |x | Jump 0x2e7 ; case 0x9
02cc 7818 |x | Jump 0x2e5 ; case 0xa
02cd 7805 |x | Jump 0x2d3 ; case 0xb
02ce 7800 |x | Jump 0x2cf ; case 0xc
02cf 4804 |H | Short_Literal 0x4
02d0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02d1 00d1 | | Pop_Control Pop_Count_1
02d2 7814 |x | Jump 0x2e7
02d3 00d8 | | Load_Top At_Offset_0
02d4 e005 | | Load 0x0,0x5
02d5 1810 | | Execute Package,Field_Execute,Field_Number 0x10
02d6 6802 |h | Jump_Zero 0x2d9
02d7 4803 |H | Short_Literal 0x3
02d8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02d9 4801 |H | Short_Literal 0x1
02da 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02db 00d8 | | Load_Top At_Offset_0
02dc e005 | | Load 0x0,0x5
02dd 1810 | | Execute Package,Field_Execute,Field_Number 0x10
02de 6802 |h | Jump_Zero 0x2e1
02df 4802 |H | Short_Literal 0x2
02e0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02e1 4800 |H | Short_Literal 0x0
02e2 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02e3 4800 |H | Short_Literal 0x0
02e4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02e5 4801 |H | Short_Literal 0x1
02e6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02e7 0831 | 1 | Execute_Immediate Raise,0x31
02e8 ; --------------------------------------------------------------------------------------
02e8 ; SUBPROGRAM
02e8 ; --------------------------------------------------------------------------------------
02e8 02f7 | | .CONST 0x02f7 ; Address of begin
02e9 0361 | a | .CONST 0x0361 ; Address of exception handler
02ea 0005 | | .CONST 0x0005 ; Number of locals
02eb INIT_02e8:
02eb 00ec | | Load_Encached Diana_Tree_Cache
02ec 02c7 | | Declare_Variable Any
02ed 00db | | Load_Top At_Offset_3
02ee a402 | | Store_Unchecked 0x2,0x2
02ef 00ec | | Load_Encached Diana_Tree_Cache
02f0 02c7 | | Declare_Variable Any
02f1 00d8 | | Load_Top At_Offset_0
02f2 1c00 | | Execute_Immediate Run_Utility,0x0
02f3 029f 071b | | Declare_Subprogram INIT_0718,For_Call
02f5 029f 0733 | 3| Declare_Subprogram INIT_0730,For_Call
02f7 BODY_02e8:
02f7 00cf | | Action Mark_Auxiliary
02f8 e402 | | Load 0x2,0x2
02f9 0145 | E | Execute Heap_Access,Diana_Tree_Kind
02fa 00d8 | | Load_Top At_Offset_0
02fb 0d3d | = | Execute_Immediate Less,0x3d
02fc 7022 |p" | Jump_Nonzero 0x31f
02fd 00d8 | | Load_Top At_Offset_0
02fe 0c41 | A | Execute_Immediate Greater_Equal,0x41
02ff 7015 |p | Jump_Nonzero 0x315
0300 0c3f | ? | Execute_Immediate Greater_Equal,0x3f
0301 683e |h> | Jump_Zero 0x340
0302 e402 | | Load 0x2,0x2
0303 00eb | | Load_Encached Diana_Cache
0304 18ec | | Execute Package,Field_Execute,Field_Number 0xec
0305 6805 |h | Jump_Zero 0x30b
0306 e402 | | Load 0x2,0x2
0307 00eb | | Load_Encached Diana_Cache
0308 18ec | | Execute Package,Field_Execute,Field_Number 0xec
0309 c402 | | Store 0x2,0x2
030a 7854 |xT | Jump 0x35f
030b e402 | | Load 0x2,0x2
030c e008 | | Load 0x0,0x8
030d 180d | | Execute Package,Field_Execute,Field_Number 0xd
030e 6805 |h | Jump_Zero 0x314
030f e402 | | Load 0x2,0x2
0310 e008 | | Load 0x0,0x8
0311 180e | | Execute Package,Field_Execute,Field_Number 0xe
0312 c402 | | Store 0x2,0x2
0313 784b |xK | Jump 0x35f
0314 0887 | | Execute_Immediate Raise,0x87
0315 0b41 | A | Execute_Immediate Case_Compare,0x41
0316 7010 |p | Jump_Nonzero 0x327
0317 00d8 | | Load_Top At_Offset_0
0318 4847 |HG | Short_Literal 0x47
0319 4849 |HI | Short_Literal 0x49
031a 0262 | b | Execute Discrete,In_Range
031b 7023 |p# | Jump_Nonzero 0x33f
031c 0fa8 | | Execute_Immediate Equal,-0x58
031d 700e |p | Jump_Nonzero 0x32c
031e 7fe3 | | Jump 0x302
031f 0b00 | | Execute_Immediate Case_Compare,0x0
0320 7003 |p | Jump_Nonzero 0x324
0321 0f22 | " | Execute_Immediate Equal,0x22
0322 7007 |p | Jump_Nonzero 0x32a
0323 7fde | | Jump 0x302
0324 00d1 | | Pop_Control Pop_Count_1
0325 4800 |H | Short_Literal 0x0
0326 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0327 00d1 | | Pop_Control Pop_Count_1
0328 4801 |H | Short_Literal 0x1
0329 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
032a 4801 |H | Short_Literal 0x1
032b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
032c e402 | | Load 0x2,0x2
032d 4976 |Iv | Short_Literal 0x176
032e 00eb | | Load_Encached Diana_Cache
032f 0098 | | Execute Package,Field_Read_Dynamic
0330 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0331 8404 | | Call 0x2,0x4
0332 6802 |h | Jump_Zero 0x335
0333 4801 |H | Short_Literal 0x1
0334 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0335 e402 | | Load 0x2,0x2
0336 00eb | | Load_Encached Diana_Cache
0337 18e9 | | Execute Package,Field_Execute,Field_Number 0xe9
0338 c402 | | Store 0x2,0x2
0339 e402 | | Load 0x2,0x2
033a 0145 | E | Execute Heap_Access,Diana_Tree_Kind
033b 0f49 | I | Execute_Immediate Equal,0x49
033c 7022 |p" | Jump_Nonzero 0x35f
033d 4800 |H | Short_Literal 0x0
033e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
033f 00d1 | | Pop_Control Pop_Count_1
0340 e402 | | Load 0x2,0x2
0341 4976 |Iv | Short_Literal 0x176
0342 00eb | | Load_Encached Diana_Cache
0343 0098 | | Execute Package,Field_Read_Dynamic
0344 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0345 c403 | | Store 0x2,0x3
0346 00db | | Load_Top At_Offset_3
0347 8404 | | Call 0x2,0x4
0348 6802 |h | Jump_Zero 0x34b
0349 4801 |H | Short_Literal 0x1
034a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
034b 00db | | Load_Top At_Offset_3
034c 490b |I | Short_Literal 0x10b
034d 00eb | | Load_Encached Diana_Cache
034e 0096 | | Execute Package,Entry
034f e403 | | Load 0x2,0x3
0350 012f | / | Execute Any,Equal
0351 7008 |p | Jump_Nonzero 0x35a
0352 00db | | Load_Top At_Offset_3
0353 490b |I | Short_Literal 0x10b
0354 00eb | | Load_Encached Diana_Cache
0355 0096 | | Execute Package,Entry
0356 00eb | | Load_Encached Diana_Cache
0357 18ec | | Execute Package,Field_Execute,Field_Number 0xec
0358 c402 | | Store 0x2,0x2
0359 7805 |x | Jump 0x35f
035a e402 | | Load 0x2,0x2
035b 00eb | | Load_Encached Diana_Cache
035c 18ec | | Execute Package,Field_Execute,Field_Number 0xec
035d c402 | | Store 0x2,0x2
035e 7800 |x | Jump 0x35f
035f 00c9 | | Action Pop_Auxiliary_Loop
0360 7f97 | | Jump 0x2f8
0361 TRAP_02e8:
0361 010e | | Execute Exception,Is_Constraint_Error
0362 6803 |h | Jump_Zero 0x366
0363 8405 | | Call 0x2,0x5
0364 4800 |H | Short_Literal 0x0
0365 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0366 0100 | | Execute Exception,Raise
0367 0000 | | .XXX[0x1]
0368 ; --------------------------------------------------------------------------------------
0368 ; SUBPROGRAM
0368 ; --------------------------------------------------------------------------------------
0368 037a | z | .CONST 0x037a ; Address of begin
0369 0004 | | .CONST 0x0004 ; Address of exception handler
036a 0004 | | .CONST 0x0004 ; Number of locals
036b INIT_0368:
036b 00da | | Load_Top At_Offset_2
036c 821b | | Call 0x1,0x1b
036d e214 | | Load 0x1,0x14
036e 03f1 | | Declare_Variable Discrete,With_Value
036f e015 | | Load 0x0,0x15
0370 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0371 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0372 02c7 | | Declare_Variable Any
0373 00d8 | | Load_Top At_Offset_0
0374 1c00 | | Execute_Immediate Run_Utility,0x0
0375 e01e | | Load 0x0,0x1e
0376 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0377 02c7 | | Declare_Variable Any
0378 00d8 | | Load_Top At_Offset_0
0379 1c00 | | Execute_Immediate Run_Utility,0x0
037a BODY_0368:
037a e010 | | Load 0x0,0x10
037b 180e | | Execute Package,Field_Execute,Field_Number 0xe
037c 4801 |H | Short_Literal 0x1
037d 0092 08f3 | | Action Push_String_Extended,0x8f3 ; "Acquiring promotion_prerequisites for "
037f e5ff | | Load 0x2,-0x1
0380 e005 | | Load 0x0,0x5
0381 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0382 01cc | | Execute Vector,Catenate
0383 e014 | | Load 0x0,0x14
0384 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0385 e010 | | Load 0x0,0x10
0386 180e | | Execute Package,Field_Execute,Field_Number 0xe
0387 e01d | | Load 0x0,0x1d
0388 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0389 e020 | | Load 0x0,0x20
038a 1810 | | Execute Package,Field_Execute,Field_Number 0x10
038b e5fd | | Load 0x2,-0x3
038c e01e | | Load 0x0,0x1e
038d 1815 | | Execute Package,Field_Execute,Field_Number 0x15
038e c404 | | Store 0x2,0x4
038f 00d8 | | Load_Top At_Offset_0
0390 e021 | ! | Load 0x0,0x21
0391 180e | | Execute Package,Field_Execute,Field_Number 0xe
0392 00d9 | | Load_Top At_Offset_1
0393 e5fe | | Load 0x2,-0x2
0394 4801 |H | Short_Literal 0x1
0395 e5ff | | Load 0x2,-0x1
0396 e21d | | Load 0x1,0x1d
0397 180d | | Execute Package,Field_Execute,Field_Number 0xd
0398 c403 | | Store 0x2,0x3
0399 00da | | Load_Top At_Offset_2
039a 4604 |F | Jump_Case 0x5
039b 7816 |x | Jump 0x3b2 ; case 0x0
039c 780e |x | Jump 0x3ab ; case 0x1
039d 7814 |x | Jump 0x3b2 ; case 0x2
039e 780c |x | Jump 0x3ab ; case 0x3
039f 7800 |x | Jump 0x3a0 ; case 0x4
03a0 e5ff | | Load 0x2,-0x1
03a1 821c | | Call 0x1,0x1c
03a2 700f |p | Jump_Nonzero 0x3b2
03a3 00d9 | | Load_Top At_Offset_1
03a4 e5fe | | Load 0x2,-0x2
03a5 4801 |H | Short_Literal 0x1
03a6 e5ff | | Load 0x2,-0x1
03a7 e21d | | Load 0x1,0x1d
03a8 180f | | Execute Package,Field_Execute,Field_Number 0xf
03a9 c403 | | Store 0x2,0x3
03aa 7807 |x | Jump 0x3b2
03ab 00d9 | | Load_Top At_Offset_1
03ac e5fe | | Load 0x2,-0x2
03ad 4801 |H | Short_Literal 0x1
03ae e5ff | | Load 0x2,-0x1
03af e21d | | Load 0x1,0x1d
03b0 180e | | Execute Package,Field_Execute,Field_Number 0xe
03b1 c403 | | Store 0x2,0x3
03b2 00d9 | | Load_Top At_Offset_1
03b3 e5fb | | Load 0x2,-0x5
03b4 e5fc | | Load 0x2,-0x4
03b5 00db | | Load_Top At_Offset_3
03b6 e5fe | | Load 0x2,-0x2
03b7 4801 |H | Short_Literal 0x1
03b8 e5ff | | Load 0x2,-0x1
03b9 e21d | | Load 0x1,0x1d
03ba 1813 | | Execute Package,Field_Execute,Field_Number 0x13
03bb c403 | | Store 0x2,0x3
03bc 00d8 | | Load_Top At_Offset_0
03bd 4801 |H | Short_Literal 0x1
03be 00da | | Load_Top At_Offset_2
03bf e022 | " | Load 0x0,0x22
03c0 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
03c1 0f00 | | Execute_Immediate Equal,0x0
03c2 e5fd | | Load 0x2,-0x3
03c3 e01e | | Load 0x0,0x1e
03c4 1819 | | Execute Package,Field_Execute,Field_Number 0x19
03c5 c404 | | Store 0x2,0x4
03c6 00d9 | | Load_Top At_Offset_1
03c7 4405 |D | Exit_Subprogram With_Value,New_Top_Offset 0x5
03c8 ; --------------------------------------------------------------------------------------
03c8 ; SUBPROGRAM
03c8 ; --------------------------------------------------------------------------------------
03c8 03d1 | | .CONST 0x03d1 ; Address of begin
03c9 0004 | | .CONST 0x0004 ; Address of exception handler
03ca 0002 | | .CONST 0x0002 ; Number of locals
03cb INIT_03c8:
03cb e00c | | Load 0x0,0xc
03cc 1b1c | | Execute Package,Field_Read,Field_Number 0x1c
03cd 1b13 | | Execute Package,Field_Read,Field_Number 0x13
03ce 02c7 | | Declare_Variable Any
03cf 00d8 | | Load_Top At_Offset_0
03d0 1c00 | | Execute_Immediate Run_Utility,0x0
03d1 BODY_03c8:
03d1 4800 |H | Short_Literal 0x0
03d2 00d9 | | Load_Top At_Offset_1
03d3 e5fb | | Load 0x2,-0x5
03d4 e5fc | | Load 0x2,-0x4
03d5 e5fe | | Load 0x2,-0x2
03d6 821e | | Call 0x1,0x1e
03d7 4406 |D | Exit_Subprogram With_Value,New_Top_Offset 0x6
03d8 ; --------------------------------------------------------------------------------------
03d8 ; SUBPROGRAM
03d8 ; --------------------------------------------------------------------------------------
03d8 0415 | | .CONST 0x0415 ; Address of begin
03d9 04ea | | .CONST 0x04ea ; Address of exception handler
03da 0016 | | .CONST 0x0016 ; Number of locals
03db INIT_03d8:
03db e009 | | Load 0x0,0x9
03dc 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
03dd 1b0e | | Execute Package,Field_Read,Field_Number 0xe
03de 02c7 | | Declare_Variable Any
03df 00d8 | | Load_Top At_Offset_0
03e0 1c00 | | Execute_Immediate Run_Utility,0x0
03e1 e009 | | Load 0x0,0x9
03e2 1b0f | | Execute Package,Field_Read,Field_Number 0xf
03e3 02c7 | | Declare_Variable Any
03e4 00d8 | | Load_Top At_Offset_0
03e5 1c00 | | Execute_Immediate Run_Utility,0x0
03e6 e009 | | Load 0x0,0x9
03e7 1b0d | | Execute Package,Field_Read,Field_Number 0xd
03e8 e012 | | Load 0x0,0x12
03e9 1b0d | | Execute Package,Field_Read,Field_Number 0xd
03ea e009 | | Load 0x0,0x9
03eb 1b2e | . | Execute Package,Field_Read,Field_Number 0x2e
03ec 0322 | " | Declare_Variable Record
03ed 00d8 | | Load_Top At_Offset_0
03ee 1c00 | | Execute_Immediate Run_Utility,0x0
03ef 00e1 | | Load_Encached Boolean_Cache
03f0 00e1 | | Load_Encached Boolean_Cache
03f1 e010 | | Load 0x0,0x10
03f2 1b0d | | Execute Package,Field_Read,Field_Number 0xd
03f3 02c7 | | Declare_Variable Any
03f4 e010 | | Load 0x0,0x10
03f5 180e | | Execute Package,Field_Execute,Field_Number 0xe
03f6 a409 | | Store_Unchecked 0x2,0x9
03f7 00e1 | | Load_Encached Boolean_Cache
03f8 0601 | | Execute_Immediate Set_Value_Unchecked,0x1
03f9 e009 | | Load 0x0,0x9
03fa 1b14 | | Execute Package,Field_Read,Field_Number 0x14
03fb 02ff | | Declare_Variable Variant_Record
03fc 00d8 | | Load_Top At_Offset_0
03fd 1c00 | | Execute_Immediate Run_Utility,0x0
03fe 029f 073b | ;| Declare_Subprogram INIT_0738,For_Call
0400 e023 | # | Load 0x0,0x23
0401 190d | | Execute Package,Field_Reference,Field_Number 0xd
0402 00c6 | | Action Check_Subprogram_Elaborated
0403 00e1 | | Load_Encached Boolean_Cache
0404 480c |H | Short_Literal 0xc
0405 4802 |H | Short_Literal 0x2
0406 0099 | | Action Reference_Dynamic
0407 e024 | $ | Load 0x0,0x24
0408 e025 | % | Load 0x0,0x25
0409 4811 |H | Short_Literal 0x11
040a 0007 | | Action Break_Optional
040b 029f 074b | K| Declare_Subprogram INIT_0748,For_Call
040d 029f 07d3 | | Declare_Subprogram INIT_07d0,For_Call
040f 029f 082b | +| Declare_Subprogram INIT_0828,For_Call
0411 029f 0853 | S| Declare_Subprogram INIT_0850,For_Call
0413 029f 0873 | s| Declare_Subprogram INIT_0870,For_Call
0415 BODY_03d8:
0415 e010 | | Load 0x0,0x10
0416 180e | | Execute Package,Field_Execute,Field_Number 0xe
0417 e01d | | Load 0x0,0x1d
0418 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0419 e5fe | | Load 0x2,-0x2
041a 821b | | Call 0x1,0x1b
041b 0f03 | | Execute_Immediate Equal,0x3
041c a408 | | Store_Unchecked 0x2,0x8
041d e009 | | Load 0x0,0x9
041e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
041f e402 | | Load 0x2,0x2
0420 0120 | | Execute Any,Is_Value
0421 6804 |h | Jump_Zero 0x426
0422 e009 | | Load 0x0,0x9
0423 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
0424 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0425 7801 |x | Jump 0x427
0426 e402 | | Load 0x2,0x2
0427 e5fe | | Load 0x2,-0x2
0428 e009 | | Load 0x0,0x9
0429 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
042a 181c | | Execute Package,Field_Execute,Field_Number 0x1c
042b c402 | | Store 0x2,0x2
042c c404 | | Store 0x2,0x4
042d e404 | | Load 0x2,0x4
042e 6802 |h | Jump_Zero 0x431
042f 8414 | | Call 0x2,0x14
0430 4507 |E | Exit_Suprogram New_Top_Offset 0x7
0431 e5fe | | Load 0x2,-0x2
0432 e009 | | Load 0x0,0x9
0433 1b3a | : | Execute Package,Field_Read,Field_Number 0x3a
0434 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0435 7002 |p | Jump_Nonzero 0x438
0436 8415 | | Call 0x2,0x15
0437 4507 |E | Exit_Suprogram New_Top_Offset 0x7
0438 e402 | | Load 0x2,0x2
0439 e009 | | Load 0x0,0x9
043a 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
043b 1812 | | Execute Package,Field_Execute,Field_Number 0x12
043c c403 | | Store 0x2,0x3
043d e403 | | Load 0x2,0x3
043e e01a | | Load 0x0,0x1a
043f 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0440 7009 |p | Jump_Nonzero 0x44a
0441 e010 | | Load 0x0,0x10
0442 180e | | Execute Package,Field_Execute,Field_Number 0xe
0443 4801 |H | Short_Literal 0x1
0444 e403 | | Load 0x2,0x3
0445 e01a | | Load 0x0,0x1a
0446 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0447 e01a | | Load 0x0,0x1a
0448 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0449 6801 |h | Jump_Zero 0x44b
044a 4507 |E | Exit_Suprogram New_Top_Offset 0x7
044b e40a | | Load 0x2,0xa
044c e5fe | | Load 0x2,-0x2
044d e40d | | Load 0x2,0xd
044e 480e |H | Short_Literal 0xe
044f 4802 |H | Short_Literal 0x2
0450 0099 | | Action Reference_Dynamic
0451 480f |H | Short_Literal 0xf
0452 4802 |H | Short_Literal 0x2
0453 0099 | | Action Reference_Dynamic
0454 e023 | # | Load 0x0,0x23
0455 180d | | Execute Package,Field_Execute,Field_Number 0xd
0456 c40a | | Store 0x2,0xa
0457 e010 | | Load 0x0,0x10
0458 180e | | Execute Package,Field_Execute,Field_Number 0xe
0459 4801 |H | Short_Literal 0x1
045a 0092 08f4 | | Action Push_String_Extended,0x8f4 ; "Promoting: "
045c e403 | | Load 0x2,0x3
045d e009 | | Load 0x0,0x9
045e 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
045f 1841 | A | Execute Package,Field_Execute,Field_Number 0x41
0460 01cc | | Execute Vector,Catenate
0461 e014 | | Load 0x0,0x14
0462 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0463 e009 | | Load 0x0,0x9
0464 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0465 e406 | | Load 0x2,0x6
0466 60b1 |` | Indirect_Literal Discrete,0x518,{0x00000000, 0x00004000}
0467 e01e | | Load 0x0,0x1e
0468 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0469 e403 | | Load 0x2,0x3
046a e009 | | Load 0x0,0x9
046b 1b3d | = | Execute Package,Field_Read,Field_Number 0x3d
046c 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
046d 00d1 | | Pop_Control Pop_Count_1
046e c404 | | Store 0x2,0x4
046f e404 | | Load 0x2,0x4
0470 681f |h | Jump_Zero 0x490
0471 00ec | | Load_Encached Diana_Tree_Cache
0472 00ec | | Load_Encached Diana_Tree_Cache
0473 e002 | | Load 0x0,0x2
0474 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0475 e003 | | Load 0x0,0x3
0476 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0477 00ec | | Load_Encached Diana_Tree_Cache
0478 0092 08f5 | | Action Push_String_Extended,0x8f5 ; "Error while obtaining target key for unit "
047a e403 | | Load 0x2,0x3
047b e009 | | Load 0x0,0x9
047c 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
047d 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
047e 01cc | | Execute Vector,Catenate
047f 0092 08f2 | | Action Push_String_Extended,0x8f2 ; " - "
0481 01cc | | Execute Vector,Catenate
0482 e404 | | Load 0x2,0x4
0483 e009 | | Load 0x0,0x9
0484 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0485 011c | | Execute Any,Convert_Unchecked
0486 1c01 | | Execute_Immediate Run_Utility,0x1
0487 01cc | | Execute Vector,Catenate
0488 00ec | | Load_Encached Diana_Tree_Cache
0489 4802 |H | Short_Literal 0x2
048a e001 | | Load 0x0,0x1
048b 181b | | Execute Package,Field_Execute,Field_Number 0x1b
048c e001 | | Load 0x0,0x1
048d 1812 | | Execute Package,Field_Execute,Field_Number 0x12
048e c5f9 | | Store 0x2,-0x7
048f 4507 |E | Exit_Suprogram New_Top_Offset 0x7
0490 8416 | | Call 0x2,0x16
0491 4800 |H | Short_Literal 0x0
0492 e405 | | Load 0x2,0x5
0493 e012 | | Load 0x0,0x12
0494 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
0495 7007 |p | Jump_Nonzero 0x49d
0496 e001 | | Load 0x0,0x1
0497 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0498 e405 | | Load 0x2,0x5
0499 e026 | & | Load 0x0,0x26
049a 180e | | Execute Package,Field_Execute,Field_Number 0xe
049b c5f9 | | Store 0x2,-0x7
049c 4507 |E | Exit_Suprogram New_Top_Offset 0x7
049d e009 | | Load 0x0,0x9
049e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
049f e40b | | Load 0x2,0xb
04a0 6077 |`w | Indirect_Literal Discrete,0x518,{0x00000000, 0x00004000}
04a1 e5fb | | Load 0x2,-0x5
04a2 4800 |H | Short_Literal 0x0
04a3 e403 | | Load 0x2,0x3
04a4 e009 | | Load 0x0,0x9
04a5 1b39 | 9 | Execute Package,Field_Read,Field_Number 0x39
04a6 181a | | Execute Package,Field_Execute,Field_Number 0x1a
04a7 00d1 | | Pop_Control Pop_Count_1
04a8 c404 | | Store 0x2,0x4
04a9 e404 | | Load 0x2,0x4
04aa 682a |h* | Jump_Zero 0x4d5
04ab e001 | | Load 0x0,0x1
04ac 181b | | Execute Package,Field_Execute,Field_Number 0x1b
04ad 4801 |H | Short_Literal 0x1
04ae 4803 |H | Short_Literal 0x3
04af e017 | | Load 0x0,0x17
04b0 1b0f | | Execute Package,Field_Read,Field_Number 0xf
04b1 035b | [ | Declare_Type Array,Constrained
04b2 0337 | 7 | Declare_Variable Array
04b3 e403 | | Load 0x2,0x3
04b4 e017 | | Load 0x0,0x17
04b5 181a | | Execute Package,Field_Execute,Field_Number 0x1a
04b6 e017 | | Load 0x0,0x17
04b7 1b0e | | Execute Package,Field_Read,Field_Number 0xe
04b8 0119 | | Execute Any,Check_In_Formal_Type
04b9 4801 |H | Short_Literal 0x1
04ba 00da | | Load_Top At_Offset_2
04bb 01d6 | | Execute Vector,Field_Write
04bc 00ea | | Load_Encached Null_String_Cache
04bd e017 | | Load 0x0,0x17
04be 1810 | | Execute Package,Field_Execute,Field_Number 0x10
04bf e017 | | Load 0x0,0x17
04c0 1b0e | | Execute Package,Field_Read,Field_Number 0xe
04c1 0119 | | Execute Any,Check_In_Formal_Type
04c2 4802 |H | Short_Literal 0x2
04c3 00da | | Load_Top At_Offset_2
04c4 01d6 | | Execute Vector,Field_Write
04c5 e404 | | Load 0x2,0x4
04c6 e017 | | Load 0x0,0x17
04c7 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
04c8 e017 | | Load 0x0,0x17
04c9 1b0e | | Execute Package,Field_Read,Field_Number 0xe
04ca 0119 | | Execute Any,Check_In_Formal_Type
04cb 4803 |H | Short_Literal 0x3
04cc 00da | | Load_Top At_Offset_2
04cd 01d6 | | Execute Vector,Field_Write
04ce 6045 |`E | Indirect_Literal Discrete,0x514,{0x00000000, 0x00008158}
04cf e012 | | Load 0x0,0x12
04d0 1813 | | Execute Package,Field_Execute,Field_Number 0x13
04d1 e026 | & | Load 0x0,0x26
04d2 180e | | Execute Package,Field_Execute,Field_Number 0xe
04d3 c5f9 | | Store 0x2,-0x7
04d4 4507 |E | Exit_Suprogram New_Top_Offset 0x7
04d5 e012 | | Load 0x0,0x12
04d6 1b0d | | Execute Package,Field_Read,Field_Number 0xd
04d7 e5fb | | Load 0x2,-0x5
04d8 e408 | | Load 0x2,0x8
04d9 e40b | | Load 0x2,0xb
04da e5fe | | Load 0x2,-0x2
04db e027 | ' | Load 0x0,0x27
04dc 1818 | | Execute Package,Field_Execute,Field_Number 0x18
04dd c405 | | Store 0x2,0x5
04de 4800 |H | Short_Literal 0x0
04df e405 | | Load 0x2,0x5
04e0 e012 | | Load 0x0,0x12
04e1 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
04e2 7006 |p | Jump_Nonzero 0x4e9
04e3 e001 | | Load 0x0,0x1
04e4 181b | | Execute Package,Field_Execute,Field_Number 0x1b
04e5 e405 | | Load 0x2,0x5
04e6 e026 | & | Load 0x0,0x26
04e7 180e | | Execute Package,Field_Execute,Field_Number 0xe
04e8 c5f9 | | Store 0x2,-0x7
04e9 4507 |E | Exit_Suprogram New_Top_Offset 0x7
04ea TRAP_03d8:
04ea e00f | | Load 0x0,0xf
04eb 010f | | Execute Exception,Equal
04ec 6807 |h | Jump_Zero 0x4f4
04ed e001 | | Load 0x0,0x1
04ee 181b | | Execute Package,Field_Execute,Field_Number 0x1b
04ef e405 | | Load 0x2,0x5
04f0 e026 | & | Load 0x0,0x26
04f1 180e | | Execute Package,Field_Execute,Field_Number 0xe
04f2 c5f9 | | Store 0x2,-0x7
04f3 4507 |E | Exit_Suprogram New_Top_Offset 0x7
04f4 e028 | ( | Load 0x0,0x28
04f5 010f | | Execute Exception,Equal
04f6 6819 |h | Jump_Zero 0x510
04f7 00ec | | Load_Encached Diana_Tree_Cache
04f8 00ec | | Load_Encached Diana_Tree_Cache
04f9 e002 | | Load 0x0,0x2
04fa 1811 | | Execute Package,Field_Execute,Field_Number 0x11
04fb e003 | | Load 0x0,0x3
04fc 1811 | | Execute Package,Field_Execute,Field_Number 0x11
04fd 00ec | | Load_Encached Diana_Tree_Cache
04fe 0092 08f6 | | Action Push_String_Extended,0x8f6 ; "Ada unit "
0500 e403 | | Load 0x2,0x3
0501 e009 | | Load 0x0,0x9
0502 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0503 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
0504 01cc | | Execute Vector,Catenate
0505 0092 08f7 | | Action Push_String_Extended,0x8f7 ; " has nonterminals"
0507 01cc | | Execute Vector,Catenate
0508 00ec | | Load_Encached Diana_Tree_Cache
0509 4802 |H | Short_Literal 0x2
050a e001 | | Load 0x0,0x1
050b 181b | | Execute Package,Field_Execute,Field_Number 0x1b
050c e001 | | Load 0x0,0x1
050d 1812 | | Execute Package,Field_Execute,Field_Number 0x12
050e c5f9 | | Store 0x2,-0x7
050f 4507 |E | Exit_Suprogram New_Top_Offset 0x7
0510 0100 | | Execute Exception,Raise
0511 0000 0000 | | .XXX[0x3]
0513 0000 | |
0514 0000 0000 | | .LITERAL {0x00000000, 0x00008158}
0518 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
051c 0000 0000 | | .BLANK 0000[0x4]
0520 ; --------------------------------------------------------------------------------------
0520 ; SUBPROGRAM
0520 ; --------------------------------------------------------------------------------------
0520 0523 | # | .CONST 0x0523 ; Address of begin
0521 0004 | | .CONST 0x0004 ; Address of exception handler
0522 0001 | | .CONST 0x0001 ; Number of locals
0523 BODY_0520:
0523 INIT_0520:
0523 e010 | | Load 0x0,0x10
0524 180e | | Execute Package,Field_Execute,Field_Number 0xe
0525 e01d | | Load 0x0,0x1d
0526 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0527 4800 |H | Short_Literal 0x0
0528 e5fb | | Load 0x2,-0x5
0529 e5fc | | Load 0x2,-0x4
052a e5fe | | Load 0x2,-0x2
052b 8211 | | Call 0x1,0x11
052c 4406 |D | Exit_Subprogram With_Value,New_Top_Offset 0x6
052d 0000 0000 | | .XXX[0x3]
052f 0000 | |
0530 ; --------------------------------------------------------------------------------------
0530 ; SUBPROGRAM
0530 ; --------------------------------------------------------------------------------------
0530 0556 | V | .CONST 0x0556 ; Address of begin
0531 0004 | | .CONST 0x0004 ; Address of exception handler
0532 000b | | .CONST 0x000b ; Number of locals
0533 INIT_0530:
0533 e009 | | Load 0x0,0x9
0534 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
0535 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0536 02c7 | | Declare_Variable Any
0537 00d8 | | Load_Top At_Offset_0
0538 1c00 | | Execute_Immediate Run_Utility,0x0
0539 e009 | | Load 0x0,0x9
053a 1b0f | | Execute Package,Field_Read,Field_Number 0xf
053b 02c7 | | Declare_Variable Any
053c 00d8 | | Load_Top At_Offset_0
053d 1c00 | | Execute_Immediate Run_Utility,0x0
053e e009 | | Load 0x0,0x9
053f 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0540 e012 | | Load 0x0,0x12
0541 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0542 00e1 | | Load_Encached Boolean_Cache
0543 e009 | | Load 0x0,0x9
0544 1b2e | . | Execute Package,Field_Read,Field_Number 0x2e
0545 0322 | " | Declare_Variable Record
0546 00d8 | | Load_Top At_Offset_0
0547 1c00 | | Execute_Immediate Run_Utility,0x0
0548 00e1 | | Load_Encached Boolean_Cache
0549 e009 | | Load 0x0,0x9
054a 1b14 | | Execute Package,Field_Read,Field_Number 0x14
054b 02ff | | Declare_Variable Variant_Record
054c 00d8 | | Load_Top At_Offset_0
054d 1c00 | | Execute_Immediate Run_Utility,0x0
054e e010 | | Load 0x0,0x10
054f 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0550 02c7 | | Declare_Variable Any
0551 e010 | | Load 0x0,0x10
0552 180e | | Execute Package,Field_Execute,Field_Number 0xe
0553 a40a | | Store_Unchecked 0x2,0xa
0554 029f 08c3 | | Declare_Subprogram INIT_08c0,For_Call
0556 BODY_0530:
0556 e010 | | Load 0x0,0x10
0557 180e | | Execute Package,Field_Execute,Field_Number 0xe
0558 e01d | | Load 0x0,0x1d
0559 1819 | | Execute Package,Field_Execute,Field_Number 0x19
055a e5fe | | Load 0x2,-0x2
055b 821b | | Call 0x1,0x1b
055c 0f03 | | Execute_Immediate Equal,0x3
055d a408 | | Store_Unchecked 0x2,0x8
055e e009 | | Load 0x0,0x9
055f 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0560 e402 | | Load 0x2,0x2
0561 0120 | | Execute Any,Is_Value
0562 6804 |h | Jump_Zero 0x567
0563 e009 | | Load 0x0,0x9
0564 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
0565 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0566 7801 |x | Jump 0x568
0567 e402 | | Load 0x2,0x2
0568 e5fe | | Load 0x2,-0x2
0569 e009 | | Load 0x0,0x9
056a 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
056b 181c | | Execute Package,Field_Execute,Field_Number 0x1c
056c c402 | | Store 0x2,0x2
056d c404 | | Store 0x2,0x4
056e e404 | | Load 0x2,0x4
056f 6802 |h | Jump_Zero 0x572
0570 840b | | Call 0x2,0xb
0571 4507 |E | Exit_Suprogram New_Top_Offset 0x7
0572 e402 | | Load 0x2,0x2
0573 e009 | | Load 0x0,0x9
0574 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
0575 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0576 c403 | | Store 0x2,0x3
0577 e403 | | Load 0x2,0x3
0578 e01a | | Load 0x0,0x1a
0579 1814 | | Execute Package,Field_Execute,Field_Number 0x14
057a 7009 |p | Jump_Nonzero 0x584
057b e010 | | Load 0x0,0x10
057c 180e | | Execute Package,Field_Execute,Field_Number 0xe
057d 4800 |H | Short_Literal 0x0
057e e403 | | Load 0x2,0x3
057f e01a | | Load 0x0,0x1a
0580 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0581 e01a | | Load 0x0,0x1a
0582 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0583 6801 |h | Jump_Zero 0x585
0584 4507 |E | Exit_Suprogram New_Top_Offset 0x7
0585 e010 | | Load 0x0,0x10
0586 180e | | Execute Package,Field_Execute,Field_Number 0xe
0587 4801 |H | Short_Literal 0x1
0588 0092 08f8 | | Action Push_String_Extended,0x8f8 ; "Demoting: "
058a e403 | | Load 0x2,0x3
058b e009 | | Load 0x0,0x9
058c 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
058d 1841 | A | Execute Package,Field_Execute,Field_Number 0x41
058e 01cc | | Execute Vector,Catenate
058f e014 | | Load 0x0,0x14
0590 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0591 e009 | | Load 0x0,0x9
0592 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0593 e407 | | Load 0x2,0x7
0594 608f |` | Indirect_Literal Discrete,0x624,{0x00000000, 0x00004000}
0595 e01e | | Load 0x0,0x1e
0596 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0597 e403 | | Load 0x2,0x3
0598 e009 | | Load 0x0,0x9
0599 1b3d | = | Execute Package,Field_Read,Field_Number 0x3d
059a 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
059b 00d1 | | Pop_Control Pop_Count_1
059c c404 | | Store 0x2,0x4
059d e404 | | Load 0x2,0x4
059e 681f |h | Jump_Zero 0x5be
059f 00ec | | Load_Encached Diana_Tree_Cache
05a0 00ec | | Load_Encached Diana_Tree_Cache
05a1 e002 | | Load 0x0,0x2
05a2 1811 | | Execute Package,Field_Execute,Field_Number 0x11
05a3 e003 | | Load 0x0,0x3
05a4 1811 | | Execute Package,Field_Execute,Field_Number 0x11
05a5 00ec | | Load_Encached Diana_Tree_Cache
05a6 0092 08f5 | | Action Push_String_Extended,0x8f5 ; "Error while obtaining target key for unit "
05a8 e403 | | Load 0x2,0x3
05a9 e009 | | Load 0x0,0x9
05aa 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
05ab 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
05ac 01cc | | Execute Vector,Catenate
05ad 0092 08f2 | | Action Push_String_Extended,0x8f2 ; " - "
05af 01cc | | Execute Vector,Catenate
05b0 e404 | | Load 0x2,0x4
05b1 e009 | | Load 0x0,0x9
05b2 1b0d | | Execute Package,Field_Read,Field_Number 0xd
05b3 011c | | Execute Any,Convert_Unchecked
05b4 1c01 | | Execute_Immediate Run_Utility,0x1
05b5 01cc | | Execute Vector,Catenate
05b6 00ec | | Load_Encached Diana_Tree_Cache
05b7 4802 |H | Short_Literal 0x2
05b8 e001 | | Load 0x0,0x1
05b9 181b | | Execute Package,Field_Execute,Field_Number 0x1b
05ba e001 | | Load 0x0,0x1
05bb 1812 | | Execute Package,Field_Execute,Field_Number 0x12
05bc c5f9 | | Store 0x2,-0x7
05bd 4507 |E | Exit_Suprogram New_Top_Offset 0x7
05be e012 | | Load 0x0,0x12
05bf 1b0d | | Execute Package,Field_Read,Field_Number 0xd
05c0 00da | | Load_Top At_Offset_2
05c1 e407 | | Load 0x2,0x7
05c2 e403 | | Load 0x2,0x3
05c3 e029 | ) | Load 0x0,0x29
05c4 181e | | Execute Package,Field_Execute,Field_Number 0x1e
05c5 c405 | | Store 0x2,0x5
05c6 4800 |H | Short_Literal 0x0
05c7 e405 | | Load 0x2,0x5
05c8 e012 | | Load 0x0,0x12
05c9 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
05ca 7007 |p | Jump_Nonzero 0x5d2
05cb e001 | | Load 0x0,0x1
05cc 181b | | Execute Package,Field_Execute,Field_Number 0x1b
05cd e405 | | Load 0x2,0x5
05ce e026 | & | Load 0x0,0x26
05cf 180e | | Execute Package,Field_Execute,Field_Number 0xe
05d0 c5f9 | | Store 0x2,-0x7
05d1 4507 |E | Exit_Suprogram New_Top_Offset 0x7
05d2 e009 | | Load 0x0,0x9
05d3 1b0d | | Execute Package,Field_Read,Field_Number 0xd
05d4 00db | | Load_Top At_Offset_3
05d5 604e |`N | Indirect_Literal Discrete,0x624,{0x00000000, 0x00004000}
05d6 e5fb | | Load 0x2,-0x5
05d7 4800 |H | Short_Literal 0x0
05d8 e403 | | Load 0x2,0x3
05d9 e009 | | Load 0x0,0x9
05da 1b39 | 9 | Execute Package,Field_Read,Field_Number 0x39
05db 181a | | Execute Package,Field_Execute,Field_Number 0x1a
05dc 00d1 | | Pop_Control Pop_Count_1
05dd c404 | | Store 0x2,0x4
05de e404 | | Load 0x2,0x4
05df 682a |h* | Jump_Zero 0x60a
05e0 e001 | | Load 0x0,0x1
05e1 181b | | Execute Package,Field_Execute,Field_Number 0x1b
05e2 4801 |H | Short_Literal 0x1
05e3 4803 |H | Short_Literal 0x3
05e4 e017 | | Load 0x0,0x17
05e5 1b0f | | Execute Package,Field_Read,Field_Number 0xf
05e6 035b | [ | Declare_Type Array,Constrained
05e7 0337 | 7 | Declare_Variable Array
05e8 e403 | | Load 0x2,0x3
05e9 e017 | | Load 0x0,0x17
05ea 181a | | Execute Package,Field_Execute,Field_Number 0x1a
05eb e017 | | Load 0x0,0x17
05ec 1b0e | | Execute Package,Field_Read,Field_Number 0xe
05ed 0119 | | Execute Any,Check_In_Formal_Type
05ee 4801 |H | Short_Literal 0x1
05ef 00da | | Load_Top At_Offset_2
05f0 01d6 | | Execute Vector,Field_Write
05f1 00ea | | Load_Encached Null_String_Cache
05f2 e017 | | Load 0x0,0x17
05f3 1810 | | Execute Package,Field_Execute,Field_Number 0x10
05f4 e017 | | Load 0x0,0x17
05f5 1b0e | | Execute Package,Field_Read,Field_Number 0xe
05f6 0119 | | Execute Any,Check_In_Formal_Type
05f7 4802 |H | Short_Literal 0x2
05f8 00da | | Load_Top At_Offset_2
05f9 01d6 | | Execute Vector,Field_Write
05fa e404 | | Load 0x2,0x4
05fb e017 | | Load 0x0,0x17
05fc 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
05fd e017 | | Load 0x0,0x17
05fe 1b0e | | Execute Package,Field_Read,Field_Number 0xe
05ff 0119 | | Execute Any,Check_In_Formal_Type
0600 4803 |H | Short_Literal 0x3
0601 00da | | Load_Top At_Offset_2
0602 01d6 | | Execute Vector,Field_Write
0603 601c |` | Indirect_Literal Discrete,0x620,{0x00000000, 0x00008158}
0604 e012 | | Load 0x0,0x12
0605 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0606 e026 | & | Load 0x0,0x26
0607 180e | | Execute Package,Field_Execute,Field_Number 0xe
0608 c5f9 | | Store 0x2,-0x7
0609 4507 |E | Exit_Suprogram New_Top_Offset 0x7
060a e012 | | Load 0x0,0x12
060b 1b0d | | Execute Package,Field_Read,Field_Number 0xd
060c e5fb | | Load 0x2,-0x5
060d e408 | | Load 0x2,0x8
060e e409 | | Load 0x2,0x9
060f e5fe | | Load 0x2,-0x2
0610 e027 | ' | Load 0x0,0x27
0611 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0612 c405 | | Store 0x2,0x5
0613 4800 |H | Short_Literal 0x0
0614 e405 | | Load 0x2,0x5
0615 e012 | | Load 0x0,0x12
0616 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
0617 7006 |p | Jump_Nonzero 0x61e
0618 e001 | | Load 0x0,0x1
0619 181b | | Execute Package,Field_Execute,Field_Number 0x1b
061a e405 | | Load 0x2,0x5
061b e026 | & | Load 0x0,0x26
061c 180e | | Execute Package,Field_Execute,Field_Number 0xe
061d c5f9 | | Store 0x2,-0x7
061e 4507 |E | Exit_Suprogram New_Top_Offset 0x7
061f 0000 | | .XXX[0x1]
0620 0000 0000 | | .LITERAL {0x00000000, 0x00008158}
0624 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
0628 ; --------------------------------------------------------------------------------------
0628 ; SUBPROGRAM
0628 ; --------------------------------------------------------------------------------------
0628 062b | + | .CONST 0x062b ; Address of begin
0629 0004 | | .CONST 0x0004 ; Address of exception handler
062a 0001 | | .CONST 0x0001 ; Number of locals
062b BODY_0628:
062b INIT_0628:
062b e010 | | Load 0x0,0x10
062c 180e | | Execute Package,Field_Execute,Field_Number 0xe
062d e01d | | Load 0x0,0x1d
062e 1819 | | Execute Package,Field_Execute,Field_Number 0x19
062f e216 | | Load 0x1,0x16
0630 c5f8 | | Store 0x2,-0x8
0631 4508 |E | Exit_Suprogram New_Top_Offset 0x8
0632 0000 0000 | | .BLANK 0000[0x6]
0638 ; --------------------------------------------------------------------------------------
0638 ; SUBPROGRAM
0638 ; --------------------------------------------------------------------------------------
0638 063b | ; | .CONST 0x063b ; Address of begin
0639 0004 | | .CONST 0x0004 ; Address of exception handler
063a 0001 | | .CONST 0x0001 ; Number of locals
063b BODY_0638:
063b INIT_0638:
063b e010 | | Load 0x0,0x10
063c 180e | | Execute Package,Field_Execute,Field_Number 0xe
063d e01d | | Load 0x0,0x1d
063e 1819 | | Execute Package,Field_Execute,Field_Number 0x19
063f e216 | | Load 0x1,0x16
0640 c5f8 | | Store 0x2,-0x8
0641 4508 |E | Exit_Suprogram New_Top_Offset 0x8
0642 0000 0000 | | .BLANK 0000[0x6]
0648 ; --------------------------------------------------------------------------------------
0648 ; SUBPROGRAM
0648 ; --------------------------------------------------------------------------------------
0648 064b | K | .CONST 0x064b ; Address of begin
0649 0004 | | .CONST 0x0004 ; Address of exception handler
064a 0001 | | .CONST 0x0001 ; Number of locals
064b BODY_0648:
064b INIT_0648:
064b e010 | | Load 0x0,0x10
064c 180e | | Execute Package,Field_Execute,Field_Number 0xe
064d e01d | | Load 0x0,0x1d
064e 1819 | | Execute Package,Field_Execute,Field_Number 0x19
064f e015 | | Load 0x0,0x15
0650 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0651 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0652 4407 |D | Exit_Subprogram With_Value,New_Top_Offset 0x7
0653 0000 0000 | | .BLANK 0000[0x5]
0658 ; --------------------------------------------------------------------------------------
0658 ; SUBPROGRAM
0658 ; --------------------------------------------------------------------------------------
0658 065b | [ | .CONST 0x065b ; Address of begin
0659 0004 | | .CONST 0x0004 ; Address of exception handler
065a 0001 | | .CONST 0x0001 ; Number of locals
065b BODY_0658:
065b INIT_0658:
065b e010 | | Load 0x0,0x10
065c 180e | | Execute Package,Field_Execute,Field_Number 0xe
065d e01d | | Load 0x0,0x1d
065e 1819 | | Execute Package,Field_Execute,Field_Number 0x19
065f e015 | | Load 0x0,0x15
0660 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0661 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0662 4407 |D | Exit_Subprogram With_Value,New_Top_Offset 0x7
0663 0000 0000 | | .BLANK 0000[0x5]
0668 ; --------------------------------------------------------------------------------------
0668 ; SUBPROGRAM
0668 ; --------------------------------------------------------------------------------------
0668 066b | k | .CONST 0x066b ; Address of begin
0669 0004 | | .CONST 0x0004 ; Address of exception handler
066a 0001 | | .CONST 0x0001 ; Number of locals
066b BODY_0668:
066b INIT_0668:
066b e010 | | Load 0x0,0x10
066c 180e | | Execute Package,Field_Execute,Field_Number 0xe
066d e01d | | Load 0x0,0x1d
066e 1819 | | Execute Package,Field_Execute,Field_Number 0x19
066f e216 | | Load 0x1,0x16
0670 c5f8 | | Store 0x2,-0x8
0671 4508 |E | Exit_Suprogram New_Top_Offset 0x8
0672 0000 0000 | | .BLANK 0000[0x6]
0678 ; --------------------------------------------------------------------------------------
0678 ; SUBPROGRAM
0678 ; --------------------------------------------------------------------------------------
0678 067b | { | .CONST 0x067b ; Address of begin
0679 0004 | | .CONST 0x0004 ; Address of exception handler
067a 0001 | | .CONST 0x0001 ; Number of locals
067b BODY_0678:
067b INIT_0678:
067b e010 | | Load 0x0,0x10
067c 180e | | Execute Package,Field_Execute,Field_Number 0xe
067d e01d | | Load 0x0,0x1d
067e 1819 | | Execute Package,Field_Execute,Field_Number 0x19
067f e015 | | Load 0x0,0x15
0680 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0681 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0682 4407 |D | Exit_Subprogram With_Value,New_Top_Offset 0x7
0683 0000 0000 | | .BLANK 0000[0x5]
0688 ; --------------------------------------------------------------------------------------
0688 ; SUBPROGRAM
0688 ; --------------------------------------------------------------------------------------
0688 068b | | .CONST 0x068b ; Address of begin
0689 0004 | | .CONST 0x0004 ; Address of exception handler
068a 0001 | | .CONST 0x0001 ; Number of locals
068b BODY_0688:
068b INIT_0688:
068b e010 | | Load 0x0,0x10
068c 180e | | Execute Package,Field_Execute,Field_Number 0xe
068d e01d | | Load 0x0,0x1d
068e 1819 | | Execute Package,Field_Execute,Field_Number 0x19
068f e216 | | Load 0x1,0x16
0690 c5f8 | | Store 0x2,-0x8
0691 4508 |E | Exit_Suprogram New_Top_Offset 0x8
0692 0000 0000 | | .BLANK 0000[0x6]
0698 ; --------------------------------------------------------------------------------------
0698 ; SUBPROGRAM
0698 ; --------------------------------------------------------------------------------------
0698 069b | | .CONST 0x069b ; Address of begin
0699 0004 | | .CONST 0x0004 ; Address of exception handler
069a 0001 | | .CONST 0x0001 ; Number of locals
069b BODY_0698:
069b INIT_0698:
069b e010 | | Load 0x0,0x10
069c 180e | | Execute Package,Field_Execute,Field_Number 0xe
069d e01d | | Load 0x0,0x1d
069e 1819 | | Execute Package,Field_Execute,Field_Number 0x19
069f e216 | | Load 0x1,0x16
06a0 c5f8 | | Store 0x2,-0x8
06a1 4508 |E | Exit_Suprogram New_Top_Offset 0x8
06a2 0000 0000 | | .BLANK 0000[0x6]
06a8 ; --------------------------------------------------------------------------------------
06a8 ; SUBPROGRAM
06a8 ; --------------------------------------------------------------------------------------
06a8 06ab | | .CONST 0x06ab ; Address of begin
06a9 0004 | | .CONST 0x0004 ; Address of exception handler
06aa 0001 | | .CONST 0x0001 ; Number of locals
06ab BODY_06a8:
06ab INIT_06a8:
06ab 4801 |H | Short_Literal 0x1
06ac 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
06ad 0000 0000 | | .XXX[0x3]
06af 0000 | |
06b0 ; --------------------------------------------------------------------------------------
06b0 ; SUBPROGRAM
06b0 ; --------------------------------------------------------------------------------------
06b0 06b3 | | .CONST 0x06b3 ; Address of begin
06b1 0004 | | .CONST 0x0004 ; Address of exception handler
06b2 0001 | | .CONST 0x0001 ; Number of locals
06b3 BODY_06b0:
06b3 INIT_06b0:
06b3 e010 | | Load 0x0,0x10
06b4 180e | | Execute Package,Field_Execute,Field_Number 0xe
06b5 e01d | | Load 0x0,0x1d
06b6 1819 | | Execute Package,Field_Execute,Field_Number 0x19
06b7 e215 | | Load 0x1,0x15
06b8 c5f8 | | Store 0x2,-0x8
06b9 4508 |E | Exit_Suprogram New_Top_Offset 0x8
06ba 0000 0000 | | .BLANK 0000[0x6]
06c0 ; --------------------------------------------------------------------------------------
06c0 ; SUBPROGRAM
06c0 ; --------------------------------------------------------------------------------------
06c0 06c3 | | .CONST 0x06c3 ; Address of begin
06c1 0004 | | .CONST 0x0004 ; Address of exception handler
06c2 0001 | | .CONST 0x0001 ; Number of locals
06c3 BODY_06c0:
06c3 INIT_06c0:
06c3 00ea | | Load_Encached Null_String_Cache
06c4 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
06c5 0000 0000 | | .XXX[0x3]
06c7 0000 | |
06c8 ; --------------------------------------------------------------------------------------
06c8 ; SUBPROGRAM
06c8 ; --------------------------------------------------------------------------------------
06c8 06cb | | .CONST 0x06cb ; Address of begin
06c9 0004 | | .CONST 0x0004 ; Address of exception handler
06ca 0001 | | .CONST 0x0001 ; Number of locals
06cb BODY_06c8:
06cb INIT_06c8:
06cb 00ea | | Load_Encached Null_String_Cache
06cc 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
06cd 0000 0000 | | .XXX[0x3]
06cf 0000 | |
06d0 ; --------------------------------------------------------------------------------------
06d0 ; SUBPROGRAM
06d0 ; --------------------------------------------------------------------------------------
06d0 06d3 | | .CONST 0x06d3 ; Address of begin
06d1 0004 | | .CONST 0x0004 ; Address of exception handler
06d2 0001 | | .CONST 0x0001 ; Number of locals
06d3 BODY_06d0:
06d3 INIT_06d0:
06d3 4820 |H | Short_Literal 0x20
06d4 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
06d5 0000 0000 | | .XXX[0x3]
06d7 0000 | |
06d8 ; --------------------------------------------------------------------------------------
06d8 ; SUBPROGRAM
06d8 ; --------------------------------------------------------------------------------------
06d8 06db | | .CONST 0x06db ; Address of begin
06d9 0004 | | .CONST 0x0004 ; Address of exception handler
06da 0001 | | .CONST 0x0001 ; Number of locals
06db BODY_06d8:
06db INIT_06d8:
06db 4801 |H | Short_Literal 0x1
06dc 4405 |D | Exit_Subprogram With_Value,New_Top_Offset 0x5
06dd 0000 0000 | | .XXX[0x3]
06df 0000 | |
06e0 ; --------------------------------------------------------------------------------------
06e0 ; SUBPROGRAM
06e0 ; --------------------------------------------------------------------------------------
06e0 06e3 | | .CONST 0x06e3 ; Address of begin
06e1 0004 | | .CONST 0x0004 ; Address of exception handler
06e2 0001 | | .CONST 0x0001 ; Number of locals
06e3 BODY_06e0:
06e3 INIT_06e0:
06e3 e215 | | Load 0x1,0x15
06e4 c5f4 | | Store 0x2,-0xc
06e5 450c |E | Exit_Suprogram New_Top_Offset 0xc
06e6 0000 0000 | | .XXX[0x2]
06e8 ; --------------------------------------------------------------------------------------
06e8 ; SUBPROGRAM
06e8 ; --------------------------------------------------------------------------------------
06e8 06eb | | .CONST 0x06eb ; Address of begin
06e9 0004 | | .CONST 0x0004 ; Address of exception handler
06ea 0001 | | .CONST 0x0001 ; Number of locals
06eb BODY_06e8:
06eb INIT_06e8:
06eb e215 | | Load 0x1,0x15
06ec c5f4 | | Store 0x2,-0xc
06ed 450c |E | Exit_Suprogram New_Top_Offset 0xc
06ee 0000 0000 | | .XXX[0x2]
06f0 ; --------------------------------------------------------------------------------------
06f0 ; SUBPROGRAM
06f0 ; --------------------------------------------------------------------------------------
06f0 06f3 | | .CONST 0x06f3 ; Address of begin
06f1 0004 | | .CONST 0x0004 ; Address of exception handler
06f2 0001 | | .CONST 0x0001 ; Number of locals
06f3 BODY_06f0:
06f3 INIT_06f0:
06f3 e5fd | | Load 0x2,-0x3
06f4 6810 |h | Jump_Zero 0x705
06f5 00da | | Load_Top At_Offset_2
06f6 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
06f7 e5fe | | Load 0x2,-0x2
06f8 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
06f9 027f | | Execute Discrete,Equal
06fa 6808 |h | Jump_Zero 0x703
06fb 00da | | Load_Top At_Offset_2
06fc 3c06 |< | Execute Record,Field_Read,Field_Number 0x6
06fd e5fe | | Load 0x2,-0x2
06fe 3c06 |< | Execute Record,Field_Read,Field_Number 0x6
06ff 027f | | Execute Discrete,Equal
0700 6802 |h | Jump_Zero 0x703
0701 4803 |H | Short_Literal 0x3
0702 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0703 4800 |H | Short_Literal 0x0
0704 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0705 00da | | Load_Top At_Offset_2
0706 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
0707 e5fe | | Load 0x2,-0x2
0708 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
0709 027f | | Execute Discrete,Equal
070a 6808 |h | Jump_Zero 0x713
070b 00da | | Load_Top At_Offset_2
070c 3c06 |< | Execute Record,Field_Read,Field_Number 0x6
070d e5fe | | Load 0x2,-0x2
070e 3c06 |< | Execute Record,Field_Read,Field_Number 0x6
070f 027f | | Execute Discrete,Equal
0710 6802 |h | Jump_Zero 0x713
0711 4803 |H | Short_Literal 0x3
0712 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0713 4801 |H | Short_Literal 0x1
0714 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0715 0000 0000 | | .XXX[0x3]
0717 0000 | |
0718 ; --------------------------------------------------------------------------------------
0718 ; SUBPROGRAM
0718 ; --------------------------------------------------------------------------------------
0718 071f | | .CONST 0x071f ; Address of begin
0719 0004 | | .CONST 0x0004 ; Address of exception handler
071a 0002 | | .CONST 0x0002 ; Number of locals
071b INIT_0718:
071b 00ec | | Load_Encached Diana_Tree_Cache
071c 02c7 | | Declare_Variable Any
071d 00db | | Load_Top At_Offset_3
071e a602 | | Store_Unchecked 0x3,0x2
071f BODY_0718:
071f 00db | | Load_Top At_Offset_3
0720 7001 |p | Jump_Nonzero 0x722
0721 0887 | | Execute_Immediate Raise,0x87
0722 00d8 | | Load_Top At_Offset_0
0723 490b |I | Short_Literal 0x10b
0724 00eb | | Load_Encached Diana_Cache
0725 0096 | | Execute Package,Entry
0726 6805 |h | Jump_Zero 0x72c
0727 00d8 | | Load_Top At_Offset_0
0728 490b |I | Short_Literal 0x10b
0729 00eb | | Load_Encached Diana_Cache
072a 0096 | | Execute Package,Entry
072b c602 | | Store 0x3,0x2
072c 00d8 | | Load_Top At_Offset_0
072d 0145 | E | Execute Heap_Access,Diana_Tree_Kind
072e 0f22 | " | Execute_Immediate Equal,0x22
072f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0730 ; --------------------------------------------------------------------------------------
0730 ; SUBPROGRAM
0730 ; --------------------------------------------------------------------------------------
0730 0733 | 3 | .CONST 0x0733 ; Address of begin
0731 0735 | 5 | .CONST 0x0735 ; Address of exception handler
0732 0001 | | .CONST 0x0001 ; Number of locals
0733 BODY_0730:
0733 INIT_0730:
0733 e02a | * | Load 0x0,0x2a
0734 0257 | W | Execute Discrete,Raise
0735 TRAP_0730:
0735 0007 | | Action Break_Optional
0736 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0737 0000 | | .XXX[0x1]
0738 ; --------------------------------------------------------------------------------------
0738 ; SUBPROGRAM
0738 ; --------------------------------------------------------------------------------------
0738 073b | ; | .CONST 0x073b ; Address of begin
0739 0004 | | .CONST 0x0004 ; Address of exception handler
073a 0001 | | .CONST 0x0001 ; Number of locals
073b BODY_0738:
073b INIT_0738:
073b 00da | | Load_Top At_Offset_2
073c 0145 | E | Execute Heap_Access,Diana_Tree_Kind
073d 0fab | | Execute_Immediate Equal,-0x55
073e 6802 |h | Jump_Zero 0x741
073f e028 | ( | Load 0x0,0x28
0740 0257 | W | Execute Discrete,Raise
0741 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0742 0000 0000 | | .BLANK 0000[0x6]
0748 ; --------------------------------------------------------------------------------------
0748 ; SUBPROGRAM
0748 ; --------------------------------------------------------------------------------------
0748 076a | j | .CONST 0x076a ; Address of begin
0749 07a6 | | .CONST 0x07a6 ; Address of exception handler
074a 0006 | | .CONST 0x0006 ; Number of locals
074b INIT_0748:
074b e001 | | Load 0x0,0x1
074c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
074d 02c7 | | Declare_Variable Any
074e e215 | | Load 0x1,0x15
074f a602 | | Store_Unchecked 0x3,0x2
0750 e00c | | Load 0x0,0xc
0751 1b1c | | Execute Package,Field_Read,Field_Number 0x1c
0752 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0753 02c7 | | Declare_Variable Any
0754 4800 |H | Short_Literal 0x0
0755 4800 |H | Short_Literal 0x0
0756 4801 |H | Short_Literal 0x1
0757 e602 | | Load 0x3,0x2
0758 e5fb | | Load 0x2,-0x5
0759 e5fc | | Load 0x2,-0x4
075a e00c | | Load 0x0,0xc
075b 1b1c | | Execute Package,Field_Read,Field_Number 0x1c
075c 1814 | | Execute Package,Field_Execute,Field_Number 0x14
075d a603 | | Store_Unchecked 0x3,0x3
075e e00c | | Load 0x0,0xc
075f 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0760 02c7 | | Declare_Variable Any
0761 00d8 | | Load_Top At_Offset_0
0762 1c00 | | Execute_Immediate Run_Utility,0x0
0763 e00c | | Load 0x0,0xc
0764 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0765 02c7 | | Declare_Variable Any
0766 00d8 | | Load_Top At_Offset_0
0767 1c00 | | Execute_Immediate Run_Utility,0x0
0768 e016 | | Load 0x0,0x16
0769 1b2e | . | Execute Package,Field_Read,Field_Number 0x2e
076a BODY_0748:
076a e602 | | Load 0x3,0x2
076b e001 | | Load 0x0,0x1
076c 181a | | Execute Package,Field_Execute,Field_Number 0x1a
076d 7007 |p | Jump_Nonzero 0x775
076e e602 | | Load 0x3,0x2
076f e001 | | Load 0x0,0x1
0770 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0771 0c02 | | Execute_Immediate Greater_Equal,0x2
0772 6802 |h | Jump_Zero 0x775
0773 e00f | | Load 0x0,0xf
0774 0257 | W | Execute Discrete,Raise
0775 00da | | Load_Top At_Offset_2
0776 0120 | | Execute Any,Is_Value
0777 6803 |h | Jump_Zero 0x77b
0778 e00c | | Load 0x0,0xc
0779 1b0d | | Execute Package,Field_Read,Field_Number 0xd
077a 7801 |x | Jump 0x77c
077b 00da | | Load_Top At_Offset_2
077c 4800 |H | Short_Literal 0x0
077d 4801 |H | Short_Literal 0x1
077e e5fe | | Load 0x2,-0x2
077f e603 | | Load 0x3,0x3
0780 e00c | | Load 0x0,0xc
0781 1b6a | j | Execute Package,Field_Read,Field_Number 0x6a
0782 180e | | Execute Package,Field_Execute,Field_Number 0xe
0783 c604 | | Store 0x3,0x4
0784 e5fe | | Load 0x2,-0x2
0785 e603 | | Load 0x3,0x3
0786 e00c | | Load 0x0,0xc
0787 1b6a | j | Execute Package,Field_Read,Field_Number 0x6a
0788 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0789 c605 | | Store 0x3,0x5
078a 00d9 | | Load_Top At_Offset_1
078b e016 | | Load 0x0,0x16
078c 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32
078d 0031 | 1 | Store_Top Heap_Access,At_Offset_1
078e 00cf | | Action Mark_Auxiliary
078f 7811 |x | Jump 0x7a1
0790 e5fb | | Load 0x2,-0x5
0791 00da | | Load_Top At_Offset_2
0792 0217 | | Execute Heap_Access,All_Reference
0793 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0794 e005 | | Load 0x0,0x5
0795 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0796 7002 |p | Jump_Nonzero 0x799
0797 4800 |H | Short_Literal 0x0
0798 00ca | | Action Exit_Nullary_Function
0799 00d9 | | Load_Top At_Offset_1
079a 0217 | | Execute Heap_Access,All_Reference
079b 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
079c e016 | | Load 0x0,0x16
079d 1b2e | . | Execute Package,Field_Read,Field_Number 0x2e
079e 0216 | | Execute Heap_Access,Convert
079f 0032 | 2 | Store_Top Heap_Access,At_Offset_2
07a0 00c9 | | Action Pop_Auxiliary_Loop
07a1 00d9 | | Load_Top At_Offset_1
07a2 77ed |w | Jump_Nonzero 0x790
07a3 00ce | | Action Pop_Auxiliary
07a4 4801 |H | Short_Literal 0x1
07a5 00ca | | Action Exit_Nullary_Function
07a6 TRAP_0748:
07a6 e00f | | Load 0x0,0xf
07a7 010f | | Execute Exception,Equal
07a8 6820 |h | Jump_Zero 0x7c9
07a9 4801 |H | Short_Literal 0x1
07aa 4802 |H | Short_Literal 0x2
07ab e017 | | Load 0x0,0x17
07ac 1b0f | | Execute Package,Field_Read,Field_Number 0xf
07ad 035b | [ | Declare_Type Array,Constrained
07ae 0337 | 7 | Declare_Variable Array
07af e403 | | Load 0x2,0x3
07b0 e017 | | Load 0x0,0x17
07b1 181a | | Execute Package,Field_Execute,Field_Number 0x1a
07b2 e017 | | Load 0x0,0x17
07b3 1b0e | | Execute Package,Field_Read,Field_Number 0xe
07b4 0119 | | Execute Any,Check_In_Formal_Type
07b5 4801 |H | Short_Literal 0x1
07b6 00da | | Load_Top At_Offset_2
07b7 01d6 | | Execute Vector,Field_Write
07b8 e602 | | Load 0x3,0x2
07b9 e001 | | Load 0x0,0x1
07ba 1816 | | Execute Package,Field_Execute,Field_Number 0x16
07bb e017 | | Load 0x0,0x17
07bc 1810 | | Execute Package,Field_Execute,Field_Number 0x10
07bd e017 | | Load 0x0,0x17
07be 1b0e | | Execute Package,Field_Read,Field_Number 0xe
07bf 0119 | | Execute Any,Check_In_Formal_Type
07c0 4802 |H | Short_Literal 0x2
07c1 00da | | Load_Top At_Offset_2
07c2 01d6 | | Execute Vector,Field_Write
07c3 6008 |` | Indirect_Literal Discrete,0x7cc,{0x00000000, 0x000081da}
07c4 e012 | | Load 0x0,0x12
07c5 1813 | | Execute Package,Field_Execute,Field_Number 0x13
07c6 a405 | | Store_Unchecked 0x2,0x5
07c7 00d8 | | Load_Top At_Offset_0
07c8 0101 | | Execute Exception,Reraise
07c9 00d8 | | Load_Top At_Offset_0
07ca 0101 | | Execute Exception,Reraise
07cb 0000 | | .XXX[0x1]
07cc 0000 0000 | | .LITERAL {0x00000000, 0x000081da}
07d0 ; --------------------------------------------------------------------------------------
07d0 ; SUBPROGRAM
07d0 ; --------------------------------------------------------------------------------------
07d0 07dc | | .CONST 0x07dc ; Address of begin
07d1 0815 | | .CONST 0x0815 ; Address of exception handler
07d2 0002 | | .CONST 0x0002 ; Number of locals
07d3 INIT_07d0:
07d3 e01e | | Load 0x0,0x1e
07d4 1b0d | | Execute Package,Field_Read,Field_Number 0xd
07d5 02c7 | | Declare_Variable Any
07d6 e020 | | Load 0x0,0x20
07d7 1810 | | Execute Package,Field_Execute,Field_Number 0x10
07d8 e5fb | | Load 0x2,-0x5
07d9 e01e | | Load 0x0,0x1e
07da 1815 | | Execute Package,Field_Execute,Field_Number 0x15
07db a602 | | Store_Unchecked 0x3,0x2
07dc BODY_07d0:
07dc e405 | | Load 0x2,0x5
07dd 00d9 | | Load_Top At_Offset_1
07de e409 | | Load 0x2,0x9
07df 4800 |H | Short_Literal 0x0
07e0 4801 |H | Short_Literal 0x1
07e1 e403 | | Load 0x2,0x3
07e2 e02b | + | Load 0x0,0x2b
07e3 1817 | | Execute Package,Field_Execute,Field_Number 0x17
07e4 c405 | | Store 0x2,0x5
07e5 4800 |H | Short_Literal 0x0
07e6 e405 | | Load 0x2,0x5
07e7 e012 | | Load 0x0,0x12
07e8 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
07e9 6820 |h | Jump_Zero 0x80a
07ea e012 | | Load 0x0,0x12
07eb 1b0d | | Execute Package,Field_Read,Field_Number 0xd
07ec e409 | | Load 0x2,0x9
07ed e406 | | Load 0x2,0x6
07ee e403 | | Load 0x2,0x3
07ef e029 | ) | Load 0x0,0x29
07f0 181d | | Execute Package,Field_Execute,Field_Number 0x1d
07f1 c405 | | Store 0x2,0x5
07f2 4800 |H | Short_Literal 0x0
07f3 e405 | | Load 0x2,0x5
07f4 e012 | | Load 0x0,0x12
07f5 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
07f6 680b |h | Jump_Zero 0x802
07f7 e012 | | Load 0x0,0x12
07f8 1b0d | | Execute Package,Field_Read,Field_Number 0xd
07f9 e409 | | Load 0x2,0x9
07fa 4801 |H | Short_Literal 0x1
07fb 4800 |H | Short_Literal 0x0
07fc e406 | | Load 0x2,0x6
07fd 00ea | | Load_Encached Null_String_Cache
07fe e403 | | Load 0x2,0x3
07ff e029 | ) | Load 0x0,0x29
0800 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
0801 c405 | | Store 0x2,0x5
0802 4800 |H | Short_Literal 0x0
0803 e405 | | Load 0x2,0x5
0804 e012 | | Load 0x0,0x12
0805 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
0806 7003 |p | Jump_Nonzero 0x80a
0807 00d8 | | Load_Top At_Offset_0
0808 e01e | | Load 0x0,0x1e
0809 181a | | Execute Package,Field_Execute,Field_Number 0x1a
080a 00d8 | | Load_Top At_Offset_0
080b 4801 |H | Short_Literal 0x1
080c 00da | | Load_Top At_Offset_2
080d e022 | " | Load 0x0,0x22
080e 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
080f 0f00 | | Execute_Immediate Equal,0x0
0810 e5fb | | Load 0x2,-0x5
0811 e01e | | Load 0x0,0x1e
0812 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0813 c602 | | Store 0x3,0x2
0814 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0815 TRAP_07d0:
0815 0007 | | Action Break_Optional
0816 00d9 | | Load_Top At_Offset_1
0817 e01e | | Load 0x0,0x1e
0818 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0819 00d9 | | Load_Top At_Offset_1
081a 4801 |H | Short_Literal 0x1
081b 4800 |H | Short_Literal 0x0
081c e5fb | | Load 0x2,-0x5
081d e01e | | Load 0x0,0x1e
081e 1819 | | Execute Package,Field_Execute,Field_Number 0x19
081f c602 | | Store 0x3,0x2
0820 00d8 | | Load_Top At_Offset_0
0821 0101 | | Execute Exception,Reraise
0822 0000 0000 | | .BLANK 0000[0x6]
0828 ; --------------------------------------------------------------------------------------
0828 ; SUBPROGRAM
0828 ; --------------------------------------------------------------------------------------
0828 083c | < | .CONST 0x083c ; Address of begin
0829 0004 | | .CONST 0x0004 ; Address of exception handler
082a 0002 | | .CONST 0x0002 ; Number of locals
082b INIT_0828:
082b 0092 08f9 | | Action Push_String_Extended,0x8f9 ; "Error while obtaining object for unit "
082d e5fe | | Load 0x2,-0x2
082e e009 | | Load 0x0,0x9
082f 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0830 183d | = | Execute Package,Field_Execute,Field_Number 0x3d
0831 01cc | | Execute Vector,Catenate
0832 0092 08f2 | | Action Push_String_Extended,0x8f2 ; " - "
0834 01cc | | Execute Vector,Catenate
0835 e404 | | Load 0x2,0x4
0836 e009 | | Load 0x0,0x9
0837 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0838 011c | | Execute Any,Convert_Unchecked
0839 1c01 | | Execute_Immediate Run_Utility,0x1
083a 01cc | | Execute Vector,Catenate
083b 0007 | | Action Break_Optional
083c BODY_0828:
083c 00ec | | Load_Encached Diana_Tree_Cache
083d 00ec | | Load_Encached Diana_Tree_Cache
083e e002 | | Load 0x0,0x2
083f 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0840 e003 | | Load 0x0,0x3
0841 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0842 00ec | | Load_Encached Diana_Tree_Cache
0843 e602 | | Load 0x3,0x2
0844 00ec | | Load_Encached Diana_Tree_Cache
0845 4802 |H | Short_Literal 0x2
0846 e001 | | Load 0x0,0x1
0847 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0848 e001 | | Load 0x0,0x1
0849 1812 | | Execute Package,Field_Execute,Field_Number 0x12
084a c5f9 | | Store 0x2,-0x7
084b 4501 |E | Exit_Suprogram New_Top_Offset 0x1
084c 0000 0000 | | .BLANK 0000[0x4]
0850 ; --------------------------------------------------------------------------------------
0850 ; SUBPROGRAM
0850 ; --------------------------------------------------------------------------------------
0850 085b | [ | .CONST 0x085b ; Address of begin
0851 0004 | | .CONST 0x0004 ; Address of exception handler
0852 0002 | | .CONST 0x0002 ; Number of locals
0853 INIT_0850:
0853 e5fe | | Load 0x2,-0x2
0854 e009 | | Load 0x0,0x9
0855 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0856 183d | = | Execute Package,Field_Execute,Field_Number 0x3d
0857 0092 08fa | | Action Push_String_Extended,0x8fa ; " must be Installed before it can be Coded."
0859 01cc | | Execute Vector,Catenate
085a 0007 | | Action Break_Optional
085b BODY_0850:
085b 00ec | | Load_Encached Diana_Tree_Cache
085c 00ec | | Load_Encached Diana_Tree_Cache
085d e002 | | Load 0x0,0x2
085e 1811 | | Execute Package,Field_Execute,Field_Number 0x11
085f e003 | | Load 0x0,0x3
0860 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0861 00ec | | Load_Encached Diana_Tree_Cache
0862 e602 | | Load 0x3,0x2
0863 00ec | | Load_Encached Diana_Tree_Cache
0864 4802 |H | Short_Literal 0x2
0865 e001 | | Load 0x0,0x1
0866 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0867 e001 | | Load 0x0,0x1
0868 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0869 c5f9 | | Store 0x2,-0x7
086a 4501 |E | Exit_Suprogram New_Top_Offset 0x1
086b 0000 0000 | | .BLANK 0000[0x5]
0870 ; --------------------------------------------------------------------------------------
0870 ; SUBPROGRAM
0870 ; --------------------------------------------------------------------------------------
0870 0873 | s | .CONST 0x0873 ; Address of begin
0871 0896 | | .CONST 0x0896 ; Address of exception handler
0872 0001 | | .CONST 0x0001 ; Number of locals
0873 BODY_0870:
0873 INIT_0870:
0873 e408 | | Load 0x2,0x8
0874 6802 |h | Jump_Zero 0x877
0875 8413 | | Call 0x2,0x13
0876 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0877 8412 | | Call 0x2,0x12
0878 6809 |h | Jump_Zero 0x882
0879 e012 | | Load 0x0,0x12
087a 1b0d | | Execute Package,Field_Read,Field_Number 0xd
087b e409 | | Load 0x2,0x9
087c e406 | | Load 0x2,0x6
087d e403 | | Load 0x2,0x3
087e e029 | ) | Load 0x0,0x29
087f 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0880 c405 | | Store 0x2,0x5
0881 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0882 4801 |H | Short_Literal 0x1
0883 4801 |H | Short_Literal 0x1
0884 e017 | | Load 0x0,0x17
0885 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0886 035b | [ | Declare_Type Array,Constrained
0887 0337 | 7 | Declare_Variable Array
0888 e403 | | Load 0x2,0x3
0889 e017 | | Load 0x0,0x17
088a 181a | | Execute Package,Field_Execute,Field_Number 0x1a
088b e017 | | Load 0x0,0x17
088c 1b0e | | Execute Package,Field_Read,Field_Number 0xe
088d 0119 | | Execute Any,Check_In_Formal_Type
088e 4801 |H | Short_Literal 0x1
088f 00da | | Load_Top At_Offset_2
0890 01d6 | | Execute Vector,Field_Write
0891 6026 |`& | Indirect_Literal Discrete,0x8b8,{0x00000000, 0x0000811a}
0892 e012 | | Load 0x0,0x12
0893 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0894 a405 | | Store_Unchecked 0x2,0x5
0895 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0896 TRAP_0870:
0896 e00f | | Load 0x0,0xf
0897 010f | | Execute Exception,Equal
0898 6802 |h | Jump_Zero 0x89b
0899 00d8 | | Load_Top At_Offset_0
089a 0101 | | Execute Exception,Reraise
089b 0092 08fb | | Action Push_String_Extended,0x8fb ; "Cg_Coupler.Promote"
089d e011 | | Load 0x0,0x11
089e 1810 | | Execute Package,Field_Execute,Field_Number 0x10
089f a405 | | Store_Unchecked 0x2,0x5
08a0 e010 | | Load 0x0,0x10
08a1 180e | | Execute Package,Field_Execute,Field_Number 0xe
08a2 4801 |H | Short_Literal 0x1
08a3 0092 08fc | | Action Push_String_Extended,0x8fc ; "Promote: "
08a5 4800 |H | Short_Literal 0x0
08a6 4801 |H | Short_Literal 0x1
08a7 e02c | , | Load 0x0,0x2c
08a8 1815 | | Execute Package,Field_Execute,Field_Number 0x15
08a9 01cc | | Execute Vector,Catenate
08aa 0092 08fd | | Action Push_String_Extended,0x8fd ; " raised. At location "
08ac 01cc | | Execute Vector,Catenate
08ad 4800 |H | Short_Literal 0x0
08ae 4801 |H | Short_Literal 0x1
08af e02c | , | Load 0x0,0x2c
08b0 1816 | | Execute Package,Field_Execute,Field_Number 0x16
08b1 01cc | | Execute Vector,Catenate
08b2 e014 | | Load 0x0,0x14
08b3 1813 | | Execute Package,Field_Execute,Field_Number 0x13
08b4 4501 |E | Exit_Suprogram New_Top_Offset 0x1
08b5 0000 0000 | | .XXX[0x3]
08b7 0000 | |
08b8 0000 0000 | | .LITERAL {0x00000000, 0x0000811a}
08bc 0000 0000 | | .BLANK 0000[0x4]
08c0 ; --------------------------------------------------------------------------------------
08c0 ; SUBPROGRAM
08c0 ; --------------------------------------------------------------------------------------
08c0 08d4 | | .CONST 0x08d4 ; Address of begin
08c1 0004 | | .CONST 0x0004 ; Address of exception handler
08c2 0002 | | .CONST 0x0002 ; Number of locals
08c3 INIT_08c0:
08c3 0092 08f9 | | Action Push_String_Extended,0x8f9 ; "Error while obtaining object for unit "
08c5 e5fe | | Load 0x2,-0x2
08c6 e009 | | Load 0x0,0x9
08c7 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
08c8 183d | = | Execute Package,Field_Execute,Field_Number 0x3d
08c9 01cc | | Execute Vector,Catenate
08ca 0092 08f2 | | Action Push_String_Extended,0x8f2 ; " - "
08cc 01cc | | Execute Vector,Catenate
08cd e404 | | Load 0x2,0x4
08ce e009 | | Load 0x0,0x9
08cf 1b0d | | Execute Package,Field_Read,Field_Number 0xd
08d0 011c | | Execute Any,Convert_Unchecked
08d1 1c01 | | Execute_Immediate Run_Utility,0x1
08d2 01cc | | Execute Vector,Catenate
08d3 0007 | | Action Break_Optional
08d4 BODY_08c0:
08d4 00ec | | Load_Encached Diana_Tree_Cache
08d5 00ec | | Load_Encached Diana_Tree_Cache
08d6 e002 | | Load 0x0,0x2
08d7 1811 | | Execute Package,Field_Execute,Field_Number 0x11
08d8 e003 | | Load 0x0,0x3
08d9 1811 | | Execute Package,Field_Execute,Field_Number 0x11
08da 00ec | | Load_Encached Diana_Tree_Cache
08db e602 | | Load 0x3,0x2
08dc 00ec | | Load_Encached Diana_Tree_Cache
08dd 4802 |H | Short_Literal 0x2
08de e001 | | Load 0x0,0x1
08df 181b | | Execute Package,Field_Execute,Field_Number 0x1b
08e0 e001 | | Load 0x0,0x1
08e1 1812 | | Execute Package,Field_Execute,Field_Number 0x12
08e2 c5f9 | | Store 0x2,-0x7
08e3 4501 |E | Exit_Suprogram New_Top_Offset 0x1
08e4 ; --------------------------------------------------------------------------------------
08e4 ; STRING TABLE
08e4 ; --------------------------------------------------------------------------------------
08e4 0036 | 6 | .STRTAB 0x0036->0x08ff ; "COMP_COUPLER"
08e5 0040 | @ | .STRTAB 0x0040->0x0905 ; "PROGRAMMATIC_INTERFACE"
08e6 0054 | T | .STRTAB 0x0054->0x0910 ; "PL_INST"
08e7 0059 | Y | .STRTAB 0x0059->0x0913 ; "LIBRARY_UNIT_SPEC"
08e8 0068 | h | .STRTAB 0x0068->0x091c ; "LIBRARY_UNIT_BODY"
08e9 0077 | w | .STRTAB 0x0077->0x0924 ; "MAIN_PROGRAM_SPEC"
08ea 0086 | | .STRTAB 0x0086->0x092d ; "MAIN_PROGRAM_BODY"
08eb 0095 | | .STRTAB 0x0095->0x0935 ; "SUBUNIT_BODY"
08ec 009f | | .STRTAB 0x009f->0x093b ; "Incremental operations are not allowed in coded units"
08ed 00d2 | | .STRTAB 0x00d2->0x0956 ; "Acquiring demotion_effects for "
08ee 00ef | | .STRTAB 0x00ef->0x0965 ; "Entering Current_Phase"
08ef 0103 | | .STRTAB 0x0103->0x0970 ; "Unable to get coding phase"
08f0 011b | | .STRTAB 0x011b->0x097d ; "Unable to retrieve unit state for "
08f1 013b | ; | .STRTAB 0x013b->0x098e ; "Error while obtaining enclosing world for unit "
08f2 0168 | h | .STRTAB 0x0168->0x09a6 ; " - "
08f3 0169 | i | .STRTAB 0x0169->0x09a7 ; "Acquiring promotion_prerequisites for "
08f4 018d | | .STRTAB 0x018d->0x09ba ; "Promoting: "
08f5 0197 | | .STRTAB 0x0197->0x09c0 ; "Error while obtaining target key for unit "
08f6 01bf | | .STRTAB 0x01bf->0x09d5 ; "Ada unit "
08f7 01c6 | | .STRTAB 0x01c6->0x09da ; " has nonterminals"
08f8 01d5 | | .STRTAB 0x01d5->0x09e2 ; "Demoting: "
08f9 01de | | .STRTAB 0x01de->0x09e8 ; "Error while obtaining object for unit "
08fa 0202 | | .STRTAB 0x0202->0x09fb ; " must be Installed before it can be Coded."
08fb 022a | * | .STRTAB 0x022a->0x0a10 ; "Cg_Coupler.Promote"
08fc 023a | : | .STRTAB 0x023a->0x0a19 ; "Promote: "
08fd 0241 | A | .STRTAB 0x0241->0x0a1d ; " raised. At location "
08fe 0255 | U | .STREND 0x0255->0x0a28
08ff 434f 4d50 |COMP| .STRTAB_STRINGS
0a29 0000 0000 | | .BLANK 0000[0x7]
0a30 ; --------------------------------------------------------------------------------------
0a30 ; Debug Table
0a30 ; --------------------------------------------------------------------------------------
0a30 0004 000e | | .DEBUG4 0x0004,0x000e,0xcc86,0x0000,0x0001,0x0000
0a36 0404 0404 | | .BLANK 0404[0x1ca]