|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 6144 (0x1800)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_5850da
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code
0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 0a70 | p | .CONST 0x0a70 ; 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 00c2 | | .CONST 0x00c2 ; 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 00cb | | Declare_Subprogram INIT_00c8,For_Outer_Call,Visible,Unelaborated
0013 c212 | | Store 0x1,0x12
0014 029a 00e3 | | Declare_Subprogram INIT_00e0,For_Outer_Call,Visible,Unelaborated
0016 c210 | | Store 0x1,0x10
0017 029a 00fb | | Declare_Subprogram INIT_00f8,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 016b | k| Declare_Subprogram INIT_0168,For_Call
001f 03fd | | Declare_Type Discrete,Defined
0020 4800 |H | Short_Literal 0x0
0021 4804 |H | Short_Literal 0x4
0022 029f 0193 | | Declare_Subprogram INIT_0190,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 092c | ,| Action Push_String_Extended,0x92c ; "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 01bb | | Declare_Subprogram INIT_01b8,For_Outer_Call
003e 029d 01e3 | | Declare_Subprogram INIT_01e0,For_Outer_Call
0040 029d 01eb | | Declare_Subprogram INIT_01e8,For_Outer_Call
0042 029d 0263 | c| Declare_Subprogram INIT_0260,For_Outer_Call
0044 029d 02ab | | Declare_Subprogram INIT_02a8,For_Outer_Call
0046 029d 02e3 | | Declare_Subprogram INIT_02e0,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 e00a | | Load 0x0,0xa
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 e02c | , | Load 0x0,0x2c
005c e02d | - | Load 0x0,0x2d
005d e02e | . | Load 0x0,0x2e
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 e02f | / | Load 0x0,0x2f
0067 e030 | 0 | Load 0x0,0x30
0068 e01a | | Load 0x0,0x1a
0069 481c |H | Short_Literal 0x1c
006a e21d | | Load 0x1,0x1d
006b 020e | | Execute Module,Augment_Imports
006c 00d8 | | Load_Top At_Offset_0
006d 020f | | Execute Module,Activate
006e 029d 0363 | c| Declare_Subprogram INIT_0360,For_Outer_Call
0070 029d 03cb | | Declare_Subprogram INIT_03c8,For_Outer_Call
0072 1d12 | | Execute_Immediate Reference_Lex_1,0x12
0073 00c7 | | Action Elaborate_Subprogram
0074 1d10 | | Execute_Immediate Reference_Lex_1,0x10
0075 00c7 | | Action Elaborate_Subprogram
0076 1d11 | | Execute_Immediate Reference_Lex_1,0x11
0077 00c7 | | Action Elaborate_Subprogram
0078 029d 03db | | Declare_Subprogram INIT_03d8,For_Outer_Call
007a 029d 0543 | C| Declare_Subprogram INIT_0540,For_Outer_Call
007c 029d 0553 | S| Declare_Subprogram INIT_0550,For_Outer_Call
007e 029d 066b | k| Declare_Subprogram INIT_0668,For_Outer_Call
0080 029d 067b | {| Declare_Subprogram INIT_0678,For_Outer_Call
0082 029d 068b | | Declare_Subprogram INIT_0688,For_Outer_Call
0084 029d 069b | | Declare_Subprogram INIT_0698,For_Outer_Call
0086 029d 06ab | | Declare_Subprogram INIT_06a8,For_Outer_Call
0088 029d 06bb | | Declare_Subprogram INIT_06b8,For_Outer_Call
008a 029d 06cb | | Declare_Subprogram INIT_06c8,For_Outer_Call
008c 029d 06db | | Declare_Subprogram INIT_06d8,For_Outer_Call
008e 029d 06eb | | Declare_Subprogram INIT_06e8,For_Outer_Call
0090 029d 06f3 | | Declare_Subprogram INIT_06f0,For_Outer_Call
0092 029d 0703 | | Declare_Subprogram INIT_0700,For_Outer_Call
0094 029d 070b | | Declare_Subprogram INIT_0708,For_Outer_Call
0096 029d 0713 | | Declare_Subprogram INIT_0710,For_Outer_Call
0098 029d 071b | | Declare_Subprogram INIT_0718,For_Outer_Call
009a 029d 0723 | #| Declare_Subprogram INIT_0720,For_Outer_Call
009c 029d 072b | +| Declare_Subprogram INIT_0728,For_Outer_Call
009e 029d 0733 | 3| Declare_Subprogram INIT_0730,For_Outer_Call
00a0 e031 | 1 | Load 0x0,0x31
00a1 e032 | 2 | Load 0x0,0x32
00a2 1d18 | | Execute_Immediate Reference_Lex_1,0x18
00a3 1d19 | | Execute_Immediate Reference_Lex_1,0x19
00a4 1d1f | | Execute_Immediate Reference_Lex_1,0x1f
00a5 1d20 | | Execute_Immediate Reference_Lex_1,0x20
00a6 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21
00a7 1d22 | " | Execute_Immediate Reference_Lex_1,0x22
00a8 1d23 | # | Execute_Immediate Reference_Lex_1,0x23
00a9 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24
00aa 1d25 | % | Execute_Immediate Reference_Lex_1,0x25
00ab 1d26 | & | Execute_Immediate Reference_Lex_1,0x26
00ac 1d27 | ' | Execute_Immediate Reference_Lex_1,0x27
00ad 1d28 | ( | Execute_Immediate Reference_Lex_1,0x28
00ae 1d29 | ) | Execute_Immediate Reference_Lex_1,0x29
00af 1d2a | * | Execute_Immediate Reference_Lex_1,0x2a
00b0 1d2b | + | Execute_Immediate Reference_Lex_1,0x2b
00b1 1d2c | , | Execute_Immediate Reference_Lex_1,0x2c
00b2 1d2d | - | Execute_Immediate Reference_Lex_1,0x2d
00b3 1d2e | . | Execute_Immediate Reference_Lex_1,0x2e
00b4 1d2f | / | Execute_Immediate Reference_Lex_1,0x2f
00b5 1d30 | 0 | Execute_Immediate Reference_Lex_1,0x30
00b6 1d31 | 1 | Execute_Immediate Reference_Lex_1,0x31
00b7 1d32 | 2 | Execute_Immediate Reference_Lex_1,0x32
00b8 1d33 | 3 | Execute_Immediate Reference_Lex_1,0x33
00b9 e01d | | Load 0x0,0x1d
00ba 1814 | | Execute Package,Field_Execute,Field_Number 0x14
00bb e015 | | Load 0x0,0x15
00bc 1b14 | | Execute Package,Field_Read,Field_Number 0x14
00bd 1b33 | 3 | Execute Package,Field_Read,Field_Number 0x33
00be 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00bf 0387 | | Declare_Variable Package
00c0 00d8 | | Load_Top At_Offset_0
00c1 020f | | Execute Module,Activate
00c2 BODY_0008:
00c2 00bc | | Action Signal_Activated
00c3 00bb | | Action Signal_Completion
00c4 0000 0000 | | .BLANK 0000[0x4]
00c8 ; --------------------------------------------------------------------------------------
00c8 ; SUBPROGRAM
00c8 ; --------------------------------------------------------------------------------------
00c8 00d1 | | .CONST 0x00d1 ; Address of begin
00c9 0004 | | .CONST 0x0004 ; Address of exception handler
00ca 0002 | | .CONST 0x0002 ; Number of locals
00cb INIT_00c8:
00cb e015 | | Load 0x0,0x15
00cc 1b14 | | Execute Package,Field_Read,Field_Number 0x14
00cd 1b10 | | Execute Package,Field_Read,Field_Number 0x10
00ce 02c7 | | Declare_Variable Any
00cf 00d8 | | Load_Top At_Offset_0
00d0 1c00 | | Execute_Immediate Run_Utility,0x0
00d1 BODY_00c8:
00d1 4802 |H | Short_Literal 0x2
00d2 e5fc | | Load 0x2,-0x4
00d3 e5fd | | Load 0x2,-0x3
00d4 e5fe | | Load 0x2,-0x2
00d5 e5ff | | Load 0x2,-0x1
00d6 821e | | Call 0x1,0x1e
00d7 c402 | | Store 0x2,0x2
00d8 00d8 | | Load_Top At_Offset_0
00d9 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
00da 0000 0000 | | .BLANK 0000[0x6]
00e0 ; --------------------------------------------------------------------------------------
00e0 ; SUBPROGRAM
00e0 ; --------------------------------------------------------------------------------------
00e0 00ef | | .CONST 0x00ef ; Address of begin
00e1 0004 | | .CONST 0x0004 ; Address of exception handler
00e2 0003 | | .CONST 0x0003 ; Number of locals
00e3 INIT_00e0:
00e3 e015 | | Load 0x0,0x15
00e4 1b14 | | Execute Package,Field_Read,Field_Number 0x14
00e5 1b10 | | Execute Package,Field_Read,Field_Number 0x10
00e6 02c7 | | Declare_Variable Any
00e7 00d8 | | Load_Top At_Offset_0
00e8 1c00 | | Execute_Immediate Run_Utility,0x0
00e9 e00c | | Load 0x0,0xc
00ea 1b1c | | Execute Package,Field_Read,Field_Number 0x1c
00eb 1b13 | | Execute Package,Field_Read,Field_Number 0x13
00ec 02c7 | | Declare_Variable Any
00ed 00d8 | | Load_Top At_Offset_0
00ee 1c00 | | Execute_Immediate Run_Utility,0x0
00ef BODY_00e0:
00ef 4801 |H | Short_Literal 0x1
00f0 00d9 | | Load_Top At_Offset_1
00f1 e5fd | | Load 0x2,-0x3
00f2 e5fe | | Load 0x2,-0x2
00f3 e5ff | | Load 0x2,-0x1
00f4 821e | | Call 0x1,0x1e
00f5 c402 | | Store 0x2,0x2
00f6 00d9 | | Load_Top At_Offset_1
00f7 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
00f8 ; --------------------------------------------------------------------------------------
00f8 ; SUBPROGRAM
00f8 ; --------------------------------------------------------------------------------------
00f8 0105 | | .CONST 0x0105 ; Address of begin
00f9 0004 | | .CONST 0x0004 ; Address of exception handler
00fa 0003 | | .CONST 0x0003 ; Number of locals
00fb INIT_00f8:
00fb e015 | | Load 0x0,0x15
00fc 1b14 | | Execute Package,Field_Read,Field_Number 0x14
00fd 1b10 | | Execute Package,Field_Read,Field_Number 0x10
00fe 02c7 | | Declare_Variable Any
00ff 00d8 | | Load_Top At_Offset_0
0100 1c00 | | Execute_Immediate Run_Utility,0x0
0101 00ec | | Load_Encached Diana_Tree_Cache
0102 02c7 | | Declare_Variable Any
0103 00d8 | | Load_Top At_Offset_0
0104 1c00 | | Execute_Immediate Run_Utility,0x0
0105 BODY_00f8:
0105 e010 | | Load 0x0,0x10
0106 180e | | Execute Package,Field_Execute,Field_Number 0xe
0107 4801 |H | Short_Literal 0x1
0108 0092 092d | -| Action Push_String_Extended,0x92d ; "Acquiring demotion_effects for "
010a e5ff | | Load 0x2,-0x1
010b e005 | | Load 0x0,0x5
010c 1816 | | Execute Package,Field_Execute,Field_Number 0x16
010d 01cc | | Execute Vector,Catenate
010e e014 | | Load 0x0,0x14
010f 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0110 e010 | | Load 0x0,0x10
0111 180e | | Execute Package,Field_Execute,Field_Number 0xe
0112 e01d | | Load 0x0,0x1d
0113 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0114 e5ff | | Load 0x2,-0x1
0115 821b | | Call 0x1,0x1b
0116 4604 |F | Jump_Case 0x5
0117 780d |x | Jump 0x125 ; case 0x0
0118 781d |x | Jump 0x136 ; case 0x1
0119 780b |x | Jump 0x125 ; case 0x2
011a 7801 |x | Jump 0x11c ; case 0x3
011b 7800 |x | Jump 0x11c ; case 0x4
011c 00d9 | | Load_Top At_Offset_1
011d e5fd | | Load 0x2,-0x3
011e e5fe | | Load 0x2,-0x2
011f 4800 |H | Short_Literal 0x0
0120 e5ff | | Load 0x2,-0x1
0121 e21d | | Load 0x1,0x1d
0122 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0123 c402 | | Store 0x2,0x2
0124 782e |x. | Jump 0x153
0125 00d9 | | Load_Top At_Offset_1
0126 e5fd | | Load 0x2,-0x3
0127 e5fe | | Load 0x2,-0x2
0128 4800 |H | Short_Literal 0x0
0129 e5ff | | Load 0x2,-0x1
012a e21d | | Load 0x1,0x1d
012b 1811 | | Execute Package,Field_Execute,Field_Number 0x11
012c c402 | | Store 0x2,0x2
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 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0134 c402 | | Store 0x2,0x2
0135 781d |x | Jump 0x153
0136 e5ff | | Load 0x2,-0x1
0137 4976 |Iv | Short_Literal 0x176
0138 00eb | | Load_Encached Diana_Cache
0139 0098 | | Execute Package,Field_Read_Dynamic
013a 180f | | Execute Package,Field_Execute,Field_Number 0xf
013b c403 | | Store 0x2,0x3
013c 00d8 | | Load_Top At_Offset_0
013d 490b |I | Short_Literal 0x10b
013e 00eb | | Load_Encached Diana_Cache
013f 0096 | | Execute Package,Entry
0140 00d9 | | Load_Top At_Offset_1
0141 012f | / | Execute Any,Equal
0142 6808 |h | Jump_Zero 0x14b
0143 00d9 | | Load_Top At_Offset_1
0144 e5fd | | Load 0x2,-0x3
0145 e5fe | | Load 0x2,-0x2
0146 4800 |H | Short_Literal 0x0
0147 e5ff | | Load 0x2,-0x1
0148 e21d | | Load 0x1,0x1d
0149 1810 | | Execute Package,Field_Execute,Field_Number 0x10
014a c402 | | Store 0x2,0x2
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 1812 | | Execute Package,Field_Execute,Field_Number 0x12
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 1815 | | Execute Package,Field_Execute,Field_Number 0x15
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 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0162 c402 | | Store 0x2,0x2
0163 00d9 | | Load_Top At_Offset_1
0164 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
0165 0000 0000 | | .XXX[0x3]
0167 0000 | |
0168 ; --------------------------------------------------------------------------------------
0168 ; SUBPROGRAM
0168 ; --------------------------------------------------------------------------------------
0168 016b | k | .CONST 0x016b ; Address of begin
0169 0004 | | .CONST 0x0004 ; Address of exception handler
016a 0001 | | .CONST 0x0001 ; Number of locals
016b BODY_0168:
016b INIT_0168:
016b 4607 |F | Jump_Case 0x8
016c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
016d 7806 |x | Jump 0x174 ; case 0x1
016e 7809 |x | Jump 0x178 ; case 0x2
016f 780d |x | Jump 0x17d ; case 0x3
0170 7810 |x | Jump 0x181 ; case 0x4
0171 7811 |x | Jump 0x183 ; case 0x5
0172 7812 |x | Jump 0x185 ; case 0x6
0173 7815 |x | Jump 0x189 ; case 0x7
0174 00da | | Load_Top At_Offset_2
0175 0091 0924 | $| Action Push_String_Extended_Indexed,0x924 ; "COMP_COUPLER"
0177 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0178 00db | | Load_Top At_Offset_3
0179 00db | | Load_Top At_Offset_3
017a 00e0 | | Load_Encached Standard_Cache
017b 181b | | Execute Package,Field_Execute,Field_Number 0x1b
017c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
017d 00da | | Load_Top At_Offset_2
017e 00e0 | | Load_Encached Standard_Cache
017f 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0180 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0181 00db | | Load_Top At_Offset_3
0182 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0183 00db | | Load_Top At_Offset_3
0184 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0185 e213 | | Load 0x1,0x13
0186 00dc | | Load_Top At_Offset_4
0187 0267 | g | Execute Discrete,Predecessor
0188 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0189 e213 | | Load 0x1,0x13
018a 00dc | | Load_Top At_Offset_4
018b 0268 | h | Execute Discrete,Successor
018c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
018d 0000 0000 | | .XXX[0x3]
018f 0000 | |
0190 ; --------------------------------------------------------------------------------------
0190 ; SUBPROGRAM
0190 ; --------------------------------------------------------------------------------------
0190 0193 | | .CONST 0x0193 ; Address of begin
0191 0004 | | .CONST 0x0004 ; Address of exception handler
0192 0001 | | .CONST 0x0001 ; Number of locals
0193 BODY_0190:
0193 INIT_0190:
0193 4607 |F | Jump_Case 0x8
0194 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
0195 7806 |x | Jump 0x19c ; case 0x1
0196 7809 |x | Jump 0x1a0 ; case 0x2
0197 780d |x | Jump 0x1a5 ; case 0x3
0198 7810 |x | Jump 0x1a9 ; case 0x4
0199 7811 |x | Jump 0x1ab ; case 0x5
019a 7812 |x | Jump 0x1ad ; case 0x6
019b 7815 |x | Jump 0x1b1 ; case 0x7
019c 00da | | Load_Top At_Offset_2
019d 0091 0927 | '| Action Push_String_Extended_Indexed,0x927 ; "LIBRARY_UNIT_SPEC"
019f 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
01a0 00db | | Load_Top At_Offset_3
01a1 00db | | Load_Top At_Offset_3
01a2 00e0 | | Load_Encached Standard_Cache
01a3 181b | | Execute Package,Field_Execute,Field_Number 0x1b
01a4 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
01a5 00da | | Load_Top At_Offset_2
01a6 00e0 | | Load_Encached Standard_Cache
01a7 181c | | Execute Package,Field_Execute,Field_Number 0x1c
01a8 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
01a9 00db | | Load_Top At_Offset_3
01aa 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
01ab 00db | | Load_Top At_Offset_3
01ac 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
01ad e214 | | Load 0x1,0x14
01ae 00dc | | Load_Top At_Offset_4
01af 0267 | g | Execute Discrete,Predecessor
01b0 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
01b1 e214 | | Load 0x1,0x14
01b2 00dc | | Load_Top At_Offset_4
01b3 0268 | h | Execute Discrete,Successor
01b4 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
01b5 0000 0000 | | .XXX[0x3]
01b7 0000 | |
01b8 ; --------------------------------------------------------------------------------------
01b8 ; SUBPROGRAM
01b8 ; --------------------------------------------------------------------------------------
01b8 01bd | | .CONST 0x01bd ; Address of begin
01b9 0004 | | .CONST 0x0004 ; Address of exception handler
01ba 0002 | | .CONST 0x0002 ; Number of locals
01bb INIT_01b8:
01bb e010 | | Load 0x0,0x10
01bc 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
01bd BODY_01b8:
01bd 4800 |H | Short_Literal 0x0
01be e5ff | | Load 0x2,-0x1
01bf e012 | | Load 0x0,0x12
01c0 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
01c1 6802 |h | Jump_Zero 0x1c4
01c2 4800 |H | Short_Literal 0x0
01c3 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01c4 00db | | Load_Top At_Offset_3
01c5 e012 | | Load 0x0,0x12
01c6 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
01c7 e012 | | Load 0x0,0x12
01c8 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
01c9 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
01ca 00d8 | | Load_Top At_Offset_0
01cb 460b |F | Jump_Case 0xc
01cc 780b |x | Jump 0x1d8 ; case 0x0
01cd 780a |x | Jump 0x1d8 ; case 0x1
01ce 7809 |x | Jump 0x1d8 ; case 0x2
01cf 7808 |x | Jump 0x1d8 ; case 0x3
01d0 7807 |x | Jump 0x1d8 ; case 0x4
01d1 780a |x | Jump 0x1dc ; case 0x5
01d2 7807 |x | Jump 0x1da ; case 0x6
01d3 7808 |x | Jump 0x1dc ; case 0x7
01d4 7809 |x | Jump 0x1de ; case 0x8
01d5 7802 |x | Jump 0x1d8 ; case 0x9
01d6 7801 |x | Jump 0x1d8 ; case 0xa
01d7 7800 |x | Jump 0x1d8 ; case 0xb
01d8 4800 |H | Short_Literal 0x0
01d9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01da 4801 |H | Short_Literal 0x1
01db 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01dc 4802 |H | Short_Literal 0x2
01dd 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01de 4804 |H | Short_Literal 0x4
01df 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01e0 ; --------------------------------------------------------------------------------------
01e0 ; SUBPROGRAM
01e0 ; --------------------------------------------------------------------------------------
01e0 01e3 | | .CONST 0x01e3 ; Address of begin
01e1 0004 | | .CONST 0x0004 ; Address of exception handler
01e2 0001 | | .CONST 0x0001 ; Number of locals
01e3 BODY_01e0:
01e3 INIT_01e0:
01e3 4801 |H | Short_Literal 0x1
01e4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01e5 0000 0000 | | .XXX[0x3]
01e7 0000 | |
01e8 ; --------------------------------------------------------------------------------------
01e8 ; SUBPROGRAM
01e8 ; --------------------------------------------------------------------------------------
01e8 01fb | | .CONST 0x01fb ; Address of begin
01e9 0004 | | .CONST 0x0004 ; Address of exception handler
01ea 0005 | | .CONST 0x0005 ; Number of locals
01eb INIT_01e8:
01eb e009 | | Load 0x0,0x9
01ec 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01ed e009 | | Load 0x0,0x9
01ee 1b3a | : | Execute Package,Field_Read,Field_Number 0x3a
01ef 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01f0 e009 | | Load 0x0,0x9
01f1 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
01f2 1b0e | | Execute Package,Field_Read,Field_Number 0xe
01f3 02c7 | | Declare_Variable Any
01f4 00d8 | | Load_Top At_Offset_0
01f5 1c00 | | Execute_Immediate Run_Utility,0x0
01f6 e009 | | Load 0x0,0x9
01f7 1b0f | | Execute Package,Field_Read,Field_Number 0xf
01f8 02c7 | | Declare_Variable Any
01f9 00d8 | | Load_Top At_Offset_0
01fa 1c00 | | Execute_Immediate Run_Utility,0x0
01fb BODY_01e8:
01fb e010 | | Load 0x0,0x10
01fc 180e | | Execute Package,Field_Execute,Field_Number 0xe
01fd 4801 |H | Short_Literal 0x1
01fe 0092 092e | .| Action Push_String_Extended,0x92e ; "Entering Current_Phase"
0200 e014 | | Load 0x0,0x14
0201 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0202 e215 | | Load 0x1,0x15
0203 c5fa | | Store 0x2,-0x6
0204 e009 | | Load 0x0,0x9
0205 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0206 00da | | Load_Top At_Offset_2
0207 0120 | | Execute Any,Is_Value
0208 6804 |h | Jump_Zero 0x20d
0209 e009 | | Load 0x0,0x9
020a 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
020b 1b0e | | Execute Package,Field_Read,Field_Number 0xe
020c 7801 |x | Jump 0x20e
020d 00da | | Load_Top At_Offset_2
020e e5fe | | Load 0x2,-0x2
020f e009 | | Load 0x0,0x9
0210 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
0211 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0212 c404 | | Store 0x2,0x4
0213 c402 | | Store 0x2,0x2
0214 00db | | Load_Top At_Offset_3
0215 680a |h | Jump_Zero 0x220
0216 e010 | | Load 0x0,0x10
0217 180e | | Execute Package,Field_Execute,Field_Number 0xe
0218 4801 |H | Short_Literal 0x1
0219 0092 092f | /| Action Push_String_Extended,0x92f ; "Unable to get coding phase"
021b e014 | | Load 0x0,0x14
021c 1813 | | Execute Package,Field_Execute,Field_Number 0x13
021d 4800 |H | Short_Literal 0x0
021e a5fb | | Store_Unchecked 0x2,-0x5
021f 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0220 e009 | | Load 0x0,0x9
0221 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0222 e009 | | Load 0x0,0x9
0223 1b3a | : | Execute Package,Field_Read,Field_Number 0x3a
0224 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0225 6036 |`6 | Indirect_Literal Discrete,0x25c,{0x00000000, 0x00004000}
0226 e01e | | Load 0x0,0x1e
0227 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0228 4800 |H | Short_Literal 0x0
0229 e404 | | Load 0x2,0x4
022a e009 | | Load 0x0,0x9
022b 1b3a | : | Execute Package,Field_Read,Field_Number 0x3a
022c 180f | | Execute Package,Field_Execute,Field_Number 0xf
022d c403 | | Store 0x2,0x3
022e c402 | | Store 0x2,0x2
022f 00d9 | | Load_Top At_Offset_1
0230 e009 | | Load 0x0,0x9
0231 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
0232 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0233 c405 | | Store 0x2,0x5
0234 00db | | Load_Top At_Offset_3
0235 680f |h | Jump_Zero 0x245
0236 4800 |H | Short_Literal 0x0
0237 a5fb | | Store_Unchecked 0x2,-0x5
0238 e010 | | Load 0x0,0x10
0239 180e | | Execute Package,Field_Execute,Field_Number 0xe
023a 4806 |H | Short_Literal 0x6
023b 0092 0930 | 0| Action Push_String_Extended,0x930 ; "Unable to retrieve unit state for "
023d 00db | | Load_Top At_Offset_3
023e e009 | | Load 0x0,0x9
023f 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0240 183b | ; | Execute Package,Field_Execute,Field_Number 0x3b
0241 01cc | | Execute Vector,Catenate
0242 e014 | | Load 0x0,0x14
0243 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0244 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0245 00da | | Load_Top At_Offset_2
0246 4604 |F | Jump_Case 0x5
0247 780e |x | Jump 0x256 ; case 0x0
0248 780d |x | Jump 0x256 ; case 0x1
0249 7809 |x | Jump 0x253 ; case 0x2
024a 7805 |x | Jump 0x250 ; case 0x3
024b 7800 |x | Jump 0x24c ; case 0x4
024c e5ff | | Load 0x2,-0x1
024d 8218 | | Call 0x1,0x18
024e a5fb | | Store_Unchecked 0x2,-0x5
024f 7808 |x | Jump 0x258
0250 4800 |H | Short_Literal 0x0
0251 a5fb | | Store_Unchecked 0x2,-0x5
0252 7805 |x | Jump 0x258
0253 4fff |O | Short_Literal -0x1
0254 a5fb | | Store_Unchecked 0x2,-0x5
0255 7802 |x | Jump 0x258
0256 4800 |H | Short_Literal 0x0
0257 a5fb | | Store_Unchecked 0x2,-0x5
0258 e215 | | Load 0x1,0x15
0259 c5fa | | Store 0x2,-0x6
025a 4505 |E | Exit_Suprogram New_Top_Offset 0x5
025b 0000 | | .XXX[0x1]
025c 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
0260 ; --------------------------------------------------------------------------------------
0260 ; SUBPROGRAM
0260 ; --------------------------------------------------------------------------------------
0260 026e | n | .CONST 0x026e ; Address of begin
0261 0004 | | .CONST 0x0004 ; Address of exception handler
0262 0003 | | .CONST 0x0003 ; Number of locals
0263 INIT_0260:
0263 e009 | | Load 0x0,0x9
0264 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
0265 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0266 02c7 | | Declare_Variable Any
0267 00d8 | | Load_Top At_Offset_0
0268 1c00 | | Execute_Immediate Run_Utility,0x0
0269 e009 | | Load 0x0,0x9
026a 1b0f | | Execute Package,Field_Read,Field_Number 0xf
026b 02c7 | | Declare_Variable Any
026c 00d8 | | Load_Top At_Offset_0
026d 1c00 | | Execute_Immediate Run_Utility,0x0
026e BODY_0260:
026e e009 | | Load 0x0,0x9
026f 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0270 00da | | Load_Top At_Offset_2
0271 0120 | | Execute Any,Is_Value
0272 6804 |h | Jump_Zero 0x277
0273 e009 | | Load 0x0,0x9
0274 1b3d | = | Execute Package,Field_Read,Field_Number 0x3d
0275 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0276 7801 |x | Jump 0x278
0277 00da | | Load_Top At_Offset_2
0278 e5ff | | Load 0x2,-0x1
0279 e009 | | Load 0x0,0x9
027a 1b3d | = | Execute Package,Field_Read,Field_Number 0x3d
027b 181c | | Execute Package,Field_Execute,Field_Number 0x1c
027c c402 | | Store 0x2,0x2
027d c5fd | | Store 0x2,-0x3
027e e5fd | | Load 0x2,-0x3
027f 6818 |h | Jump_Zero 0x298
0280 e010 | | Load 0x0,0x10
0281 180e | | Execute Package,Field_Execute,Field_Number 0xe
0282 4807 |H | Short_Literal 0x7
0283 0092 0931 | 1| Action Push_String_Extended,0x931 ; "Error while obtaining enclosing world for unit "
0285 e5ff | | Load 0x2,-0x1
0286 e009 | | Load 0x0,0x9
0287 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0288 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
0289 01cc | | Execute Vector,Catenate
028a 0092 0932 | 2| Action Push_String_Extended,0x932 ; " - "
028c 01cc | | Execute Vector,Catenate
028d e5fd | | Load 0x2,-0x3
028e e009 | | Load 0x0,0x9
028f 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0290 011c | | Execute Any,Convert_Unchecked
0291 1c01 | | Execute_Immediate Run_Utility,0x1
0292 01cc | | Execute Vector,Catenate
0293 e014 | | Load 0x0,0x14
0294 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0295 4800 |H | Short_Literal 0x0
0296 a5fe | | Store_Unchecked 0x2,-0x2
0297 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0298 00d9 | | Load_Top At_Offset_1
0299 e009 | | Load 0x0,0x9
029a 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
029b 1812 | | Execute Package,Field_Execute,Field_Number 0x12
029c c403 | | Store 0x2,0x3
029d 00d8 | | Load_Top At_Offset_0
029e e009 | | Load 0x0,0x9
029f 182c | , | Execute Package,Field_Execute,Field_Number 0x2c
02a0 e01f | | Load 0x0,0x1f
02a1 1815 | | Execute Package,Field_Execute,Field_Number 0x15
02a2 027f | | Execute Discrete,Equal
02a3 a5fe | | Store_Unchecked 0x2,-0x2
02a4 4502 |E | Exit_Suprogram New_Top_Offset 0x2
02a5 0000 0000 | | .XXX[0x3]
02a7 0000 | |
02a8 ; --------------------------------------------------------------------------------------
02a8 ; SUBPROGRAM
02a8 ; --------------------------------------------------------------------------------------
02a8 02b1 | | .CONST 0x02b1 ; Address of begin
02a9 0004 | | .CONST 0x0004 ; Address of exception handler
02aa 0002 | | .CONST 0x0002 ; Number of locals
02ab INIT_02a8:
02ab 00ec | | Load_Encached Diana_Tree_Cache
02ac 02c7 | | Declare_Variable Any
02ad 00db | | Load_Top At_Offset_3
02ae 00eb | | Load_Encached Diana_Cache
02af 18e9 | | Execute Package,Field_Execute,Field_Number 0xe9
02b0 a402 | | Store_Unchecked 0x2,0x2
02b1 BODY_02a8:
02b1 00d8 | | Load_Top At_Offset_0
02b2 0145 | E | Execute Heap_Access,Diana_Tree_Kind
02b3 00d8 | | Load_Top At_Offset_0
02b4 483d |H= | Short_Literal 0x3d
02b5 4849 |HI | Short_Literal 0x49
02b6 0262 | b | Execute Discrete,In_Range
02b7 6811 |h | Jump_Zero 0x2c9
02b8 0ac3 | | Execute_Immediate Plus,-0x3d
02b9 460c |F | Jump_Case 0xd
02ba 7818 |x | Jump 0x2d3 ; case 0x0
02bb 781f |x | Jump 0x2db ; case 0x1
02bc 7822 |x" | Jump 0x2df ; case 0x2
02bd 7821 |x! | Jump 0x2df ; case 0x3
02be 781c |x | Jump 0x2db ; case 0x4
02bf 781f |x | Jump 0x2df ; case 0x5
02c0 781e |x | Jump 0x2df ; case 0x6
02c1 781d |x | Jump 0x2df ; case 0x7
02c2 781c |x | Jump 0x2df ; case 0x8
02c3 781b |x | Jump 0x2df ; case 0x9
02c4 7818 |x | Jump 0x2dd ; case 0xa
02c5 7805 |x | Jump 0x2cb ; case 0xb
02c6 7800 |x | Jump 0x2c7 ; case 0xc
02c7 4804 |H | Short_Literal 0x4
02c8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02c9 00d1 | | Pop_Control Pop_Count_1
02ca 7814 |x | Jump 0x2df
02cb 00d8 | | Load_Top At_Offset_0
02cc e005 | | Load 0x0,0x5
02cd 1810 | | Execute Package,Field_Execute,Field_Number 0x10
02ce 6802 |h | Jump_Zero 0x2d1
02cf 4803 |H | Short_Literal 0x3
02d0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02d1 4801 |H | Short_Literal 0x1
02d2 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
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 4802 |H | Short_Literal 0x2
02d8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02d9 4800 |H | Short_Literal 0x0
02da 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02db 4800 |H | Short_Literal 0x0
02dc 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02dd 4801 |H | Short_Literal 0x1
02de 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02df 0831 | 1 | Execute_Immediate Raise,0x31
02e0 ; --------------------------------------------------------------------------------------
02e0 ; SUBPROGRAM
02e0 ; --------------------------------------------------------------------------------------
02e0 02ef | | .CONST 0x02ef ; Address of begin
02e1 0359 | Y | .CONST 0x0359 ; Address of exception handler
02e2 0005 | | .CONST 0x0005 ; Number of locals
02e3 INIT_02e0:
02e3 00ec | | Load_Encached Diana_Tree_Cache
02e4 02c7 | | Declare_Variable Any
02e5 00db | | Load_Top At_Offset_3
02e6 a402 | | Store_Unchecked 0x2,0x2
02e7 00ec | | Load_Encached Diana_Tree_Cache
02e8 02c7 | | Declare_Variable Any
02e9 00d8 | | Load_Top At_Offset_0
02ea 1c00 | | Execute_Immediate Run_Utility,0x0
02eb 029f 075b | [| Declare_Subprogram INIT_0758,For_Call
02ed 029f 0773 | s| Declare_Subprogram INIT_0770,For_Call
02ef BODY_02e0:
02ef 00cf | | Action Mark_Auxiliary
02f0 e402 | | Load 0x2,0x2
02f1 0145 | E | Execute Heap_Access,Diana_Tree_Kind
02f2 00d8 | | Load_Top At_Offset_0
02f3 0d3d | = | Execute_Immediate Less,0x3d
02f4 7022 |p" | Jump_Nonzero 0x317
02f5 00d8 | | Load_Top At_Offset_0
02f6 0c41 | A | Execute_Immediate Greater_Equal,0x41
02f7 7015 |p | Jump_Nonzero 0x30d
02f8 0c3f | ? | Execute_Immediate Greater_Equal,0x3f
02f9 683e |h> | Jump_Zero 0x338
02fa e402 | | Load 0x2,0x2
02fb 00eb | | Load_Encached Diana_Cache
02fc 18ec | | Execute Package,Field_Execute,Field_Number 0xec
02fd 6805 |h | Jump_Zero 0x303
02fe e402 | | Load 0x2,0x2
02ff 00eb | | Load_Encached Diana_Cache
0300 18ec | | Execute Package,Field_Execute,Field_Number 0xec
0301 c402 | | Store 0x2,0x2
0302 7854 |xT | Jump 0x357
0303 e402 | | Load 0x2,0x2
0304 e008 | | Load 0x0,0x8
0305 180d | | Execute Package,Field_Execute,Field_Number 0xd
0306 6805 |h | Jump_Zero 0x30c
0307 e402 | | Load 0x2,0x2
0308 e008 | | Load 0x0,0x8
0309 180e | | Execute Package,Field_Execute,Field_Number 0xe
030a c402 | | Store 0x2,0x2
030b 784b |xK | Jump 0x357
030c 0887 | | Execute_Immediate Raise,0x87
030d 0b41 | A | Execute_Immediate Case_Compare,0x41
030e 7010 |p | Jump_Nonzero 0x31f
030f 00d8 | | Load_Top At_Offset_0
0310 4847 |HG | Short_Literal 0x47
0311 4849 |HI | Short_Literal 0x49
0312 0262 | b | Execute Discrete,In_Range
0313 7023 |p# | Jump_Nonzero 0x337
0314 0fa8 | | Execute_Immediate Equal,-0x58
0315 700e |p | Jump_Nonzero 0x324
0316 7fe3 | | Jump 0x2fa
0317 0b00 | | Execute_Immediate Case_Compare,0x0
0318 7003 |p | Jump_Nonzero 0x31c
0319 0f22 | " | Execute_Immediate Equal,0x22
031a 7007 |p | Jump_Nonzero 0x322
031b 7fde | | Jump 0x2fa
031c 00d1 | | Pop_Control Pop_Count_1
031d 4800 |H | Short_Literal 0x0
031e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
031f 00d1 | | Pop_Control Pop_Count_1
0320 4801 |H | Short_Literal 0x1
0321 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0322 4801 |H | Short_Literal 0x1
0323 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0324 e402 | | Load 0x2,0x2
0325 4976 |Iv | Short_Literal 0x176
0326 00eb | | Load_Encached Diana_Cache
0327 0098 | | Execute Package,Field_Read_Dynamic
0328 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0329 8404 | | Call 0x2,0x4
032a 6802 |h | Jump_Zero 0x32d
032b 4801 |H | Short_Literal 0x1
032c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
032d e402 | | Load 0x2,0x2
032e 00eb | | Load_Encached Diana_Cache
032f 18e9 | | Execute Package,Field_Execute,Field_Number 0xe9
0330 c402 | | Store 0x2,0x2
0331 e402 | | Load 0x2,0x2
0332 0145 | E | Execute Heap_Access,Diana_Tree_Kind
0333 0f49 | I | Execute_Immediate Equal,0x49
0334 7022 |p" | Jump_Nonzero 0x357
0335 4800 |H | Short_Literal 0x0
0336 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0337 00d1 | | Pop_Control Pop_Count_1
0338 e402 | | Load 0x2,0x2
0339 4976 |Iv | Short_Literal 0x176
033a 00eb | | Load_Encached Diana_Cache
033b 0098 | | Execute Package,Field_Read_Dynamic
033c 1811 | | Execute Package,Field_Execute,Field_Number 0x11
033d c403 | | Store 0x2,0x3
033e 00db | | Load_Top At_Offset_3
033f 8404 | | Call 0x2,0x4
0340 6802 |h | Jump_Zero 0x343
0341 4801 |H | Short_Literal 0x1
0342 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0343 00db | | Load_Top At_Offset_3
0344 490b |I | Short_Literal 0x10b
0345 00eb | | Load_Encached Diana_Cache
0346 0096 | | Execute Package,Entry
0347 e403 | | Load 0x2,0x3
0348 012f | / | Execute Any,Equal
0349 7008 |p | Jump_Nonzero 0x352
034a 00db | | Load_Top At_Offset_3
034b 490b |I | Short_Literal 0x10b
034c 00eb | | Load_Encached Diana_Cache
034d 0096 | | Execute Package,Entry
034e 00eb | | Load_Encached Diana_Cache
034f 18ec | | Execute Package,Field_Execute,Field_Number 0xec
0350 c402 | | Store 0x2,0x2
0351 7805 |x | Jump 0x357
0352 e402 | | Load 0x2,0x2
0353 00eb | | Load_Encached Diana_Cache
0354 18ec | | Execute Package,Field_Execute,Field_Number 0xec
0355 c402 | | Store 0x2,0x2
0356 7800 |x | Jump 0x357
0357 00c9 | | Action Pop_Auxiliary_Loop
0358 7f97 | | Jump 0x2f0
0359 TRAP_02e0:
0359 010e | | Execute Exception,Is_Constraint_Error
035a 6803 |h | Jump_Zero 0x35e
035b 8405 | | Call 0x2,0x5
035c 4800 |H | Short_Literal 0x0
035d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
035e 0100 | | Execute Exception,Raise
035f 0000 | | .XXX[0x1]
0360 ; --------------------------------------------------------------------------------------
0360 ; SUBPROGRAM
0360 ; --------------------------------------------------------------------------------------
0360 0372 | r | .CONST 0x0372 ; Address of begin
0361 0004 | | .CONST 0x0004 ; Address of exception handler
0362 0004 | | .CONST 0x0004 ; Number of locals
0363 INIT_0360:
0363 00da | | Load_Top At_Offset_2
0364 821b | | Call 0x1,0x1b
0365 e214 | | Load 0x1,0x14
0366 03f1 | | Declare_Variable Discrete,With_Value
0367 e015 | | Load 0x0,0x15
0368 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0369 1b10 | | Execute Package,Field_Read,Field_Number 0x10
036a 02c7 | | Declare_Variable Any
036b 00d8 | | Load_Top At_Offset_0
036c 1c00 | | Execute_Immediate Run_Utility,0x0
036d e01e | | Load 0x0,0x1e
036e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
036f 02c7 | | Declare_Variable Any
0370 00d8 | | Load_Top At_Offset_0
0371 1c00 | | Execute_Immediate Run_Utility,0x0
0372 BODY_0360:
0372 e010 | | Load 0x0,0x10
0373 180e | | Execute Package,Field_Execute,Field_Number 0xe
0374 4801 |H | Short_Literal 0x1
0375 0092 0933 | 3| Action Push_String_Extended,0x933 ; "Acquiring promotion_prerequisites for "
0377 e5ff | | Load 0x2,-0x1
0378 e005 | | Load 0x0,0x5
0379 1816 | | Execute Package,Field_Execute,Field_Number 0x16
037a 01cc | | Execute Vector,Catenate
037b e014 | | Load 0x0,0x14
037c 1813 | | Execute Package,Field_Execute,Field_Number 0x13
037d e010 | | Load 0x0,0x10
037e 180e | | Execute Package,Field_Execute,Field_Number 0xe
037f e01d | | Load 0x0,0x1d
0380 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0381 e020 | | Load 0x0,0x20
0382 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0383 e5fd | | Load 0x2,-0x3
0384 e01e | | Load 0x0,0x1e
0385 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0386 c404 | | Store 0x2,0x4
0387 00d8 | | Load_Top At_Offset_0
0388 e00b | | Load 0x0,0xb
0389 1b0e | | Execute Package,Field_Read,Field_Number 0xe
038a 1811 | | Execute Package,Field_Execute,Field_Number 0x11
038b 00d9 | | Load_Top At_Offset_1
038c e5fe | | Load 0x2,-0x2
038d 4801 |H | Short_Literal 0x1
038e e5ff | | Load 0x2,-0x1
038f e21d | | Load 0x1,0x1d
0390 180d | | Execute Package,Field_Execute,Field_Number 0xd
0391 c403 | | Store 0x2,0x3
0392 00da | | Load_Top At_Offset_2
0393 4604 |F | Jump_Case 0x5
0394 7816 |x | Jump 0x3ab ; case 0x0
0395 780e |x | Jump 0x3a4 ; case 0x1
0396 7814 |x | Jump 0x3ab ; case 0x2
0397 780c |x | Jump 0x3a4 ; case 0x3
0398 7800 |x | Jump 0x399 ; case 0x4
0399 e5ff | | Load 0x2,-0x1
039a 821c | | Call 0x1,0x1c
039b 700f |p | Jump_Nonzero 0x3ab
039c 00d9 | | Load_Top At_Offset_1
039d e5fe | | Load 0x2,-0x2
039e 4801 |H | Short_Literal 0x1
039f e5ff | | Load 0x2,-0x1
03a0 e21d | | Load 0x1,0x1d
03a1 180f | | Execute Package,Field_Execute,Field_Number 0xf
03a2 c403 | | Store 0x2,0x3
03a3 7807 |x | Jump 0x3ab
03a4 00d9 | | Load_Top At_Offset_1
03a5 e5fe | | Load 0x2,-0x2
03a6 4801 |H | Short_Literal 0x1
03a7 e5ff | | Load 0x2,-0x1
03a8 e21d | | Load 0x1,0x1d
03a9 180e | | Execute Package,Field_Execute,Field_Number 0xe
03aa c403 | | Store 0x2,0x3
03ab 00d9 | | Load_Top At_Offset_1
03ac e5fb | | Load 0x2,-0x5
03ad e5fc | | Load 0x2,-0x4
03ae 00db | | Load_Top At_Offset_3
03af e5fe | | Load 0x2,-0x2
03b0 4801 |H | Short_Literal 0x1
03b1 e5ff | | Load 0x2,-0x1
03b2 e21d | | Load 0x1,0x1d
03b3 1813 | | Execute Package,Field_Execute,Field_Number 0x13
03b4 c403 | | Store 0x2,0x3
03b5 00d8 | | Load_Top At_Offset_0
03b6 4801 |H | Short_Literal 0x1
03b7 00da | | Load_Top At_Offset_2
03b8 e021 | ! | Load 0x0,0x21
03b9 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
03ba 0f00 | | Execute_Immediate Equal,0x0
03bb e5fd | | Load 0x2,-0x3
03bc e01e | | Load 0x0,0x1e
03bd 1819 | | Execute Package,Field_Execute,Field_Number 0x19
03be c404 | | Store 0x2,0x4
03bf 00d9 | | Load_Top At_Offset_1
03c0 4405 |D | Exit_Subprogram With_Value,New_Top_Offset 0x5
03c1 0000 0000 | | .BLANK 0000[0x7]
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 050a | | .CONST 0x050a ; 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 077b | {| Declare_Subprogram INIT_0778,For_Call
0400 e022 | " | Load 0x0,0x22
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 e033 | 3 | Load 0x0,0x33
0408 e034 | 4 | Load 0x0,0x34
0409 4811 |H | Short_Literal 0x11
040a 0007 | | Action Break_Optional
040b 029f 078b | | Declare_Subprogram INIT_0788,For_Call
040d 029f 0813 | | Declare_Subprogram INIT_0810,For_Call
040f 029f 086b | k| Declare_Subprogram INIT_0868,For_Call
0411 029f 0893 | | Declare_Subprogram INIT_0890,For_Call
0413 029f 08b3 | | Declare_Subprogram INIT_08b0,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 6801 |h | Jump_Zero 0x442
0441 4507 |E | Exit_Suprogram New_Top_Offset 0x7
0442 e404 | | Load 0x2,0x4
0443 00e1 | | Load_Encached Boolean_Cache
0444 e403 | | Load 0x2,0x3
0445 821a | | Call 0x1,0x1a
0446 c407 | | Store 0x2,0x7
0447 c404 | | Store 0x2,0x4
0448 e404 | | Load 0x2,0x4
0449 681e |h | Jump_Zero 0x468
044a 00ec | | Load_Encached Diana_Tree_Cache
044b 00ec | | Load_Encached Diana_Tree_Cache
044c e002 | | Load 0x0,0x2
044d 1811 | | Execute Package,Field_Execute,Field_Number 0x11
044e e003 | | Load 0x0,0x3
044f 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0450 00ec | | Load_Encached Diana_Tree_Cache
0451 0092 0931 | 1| Action Push_String_Extended,0x931 ; "Error while obtaining enclosing world for unit "
0453 e403 | | Load 0x2,0x3
0454 e009 | | Load 0x0,0x9
0455 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0456 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
0457 01cc | | Execute Vector,Catenate
0458 0092 0932 | 2| Action Push_String_Extended,0x932 ; " - "
045a 01cc | | Execute Vector,Catenate
045b e404 | | Load 0x2,0x4
045c e009 | | Load 0x0,0x9
045d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
045e 011c | | Execute Any,Convert_Unchecked
045f 1c01 | | Execute_Immediate Run_Utility,0x1
0460 01cc | | Execute Vector,Catenate
0461 00ec | | Load_Encached Diana_Tree_Cache
0462 4802 |H | Short_Literal 0x2
0463 e001 | | Load 0x0,0x1
0464 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0465 e001 | | Load 0x0,0x1
0466 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0467 c5f9 | | Store 0x2,-0x7
0468 e407 | | Load 0x2,0x7
0469 6801 |h | Jump_Zero 0x46b
046a 4507 |E | Exit_Suprogram New_Top_Offset 0x7
046b e40a | | Load 0x2,0xa
046c e5fe | | Load 0x2,-0x2
046d e40d | | Load 0x2,0xd
046e 480e |H | Short_Literal 0xe
046f 4802 |H | Short_Literal 0x2
0470 0099 | | Action Reference_Dynamic
0471 480f |H | Short_Literal 0xf
0472 4802 |H | Short_Literal 0x2
0473 0099 | | Action Reference_Dynamic
0474 e022 | " | Load 0x0,0x22
0475 180d | | Execute Package,Field_Execute,Field_Number 0xd
0476 c40a | | Store 0x2,0xa
0477 e010 | | Load 0x0,0x10
0478 180e | | Execute Package,Field_Execute,Field_Number 0xe
0479 4801 |H | Short_Literal 0x1
047a 0092 0934 | 4| Action Push_String_Extended,0x934 ; "Promoting: "
047c e403 | | Load 0x2,0x3
047d e009 | | Load 0x0,0x9
047e 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
047f 1841 | A | Execute Package,Field_Execute,Field_Number 0x41
0480 01cc | | Execute Vector,Catenate
0481 e014 | | Load 0x0,0x14
0482 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0483 e009 | | Load 0x0,0x9
0484 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0485 e406 | | Load 0x2,0x6
0486 60b1 |` | Indirect_Literal Discrete,0x538,{0x00000000, 0x00004000}
0487 e01e | | Load 0x0,0x1e
0488 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0489 e403 | | Load 0x2,0x3
048a e009 | | Load 0x0,0x9
048b 1b3d | = | Execute Package,Field_Read,Field_Number 0x3d
048c 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
048d 00d1 | | Pop_Control Pop_Count_1
048e c404 | | Store 0x2,0x4
048f e404 | | Load 0x2,0x4
0490 681f |h | Jump_Zero 0x4b0
0491 00ec | | Load_Encached Diana_Tree_Cache
0492 00ec | | Load_Encached Diana_Tree_Cache
0493 e002 | | Load 0x0,0x2
0494 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0495 e003 | | Load 0x0,0x3
0496 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0497 00ec | | Load_Encached Diana_Tree_Cache
0498 0092 0935 | 5| Action Push_String_Extended,0x935 ; "Error while obtaining target key for unit "
049a e403 | | Load 0x2,0x3
049b e009 | | Load 0x0,0x9
049c 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
049d 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
049e 01cc | | Execute Vector,Catenate
049f 0092 0932 | 2| Action Push_String_Extended,0x932 ; " - "
04a1 01cc | | Execute Vector,Catenate
04a2 e404 | | Load 0x2,0x4
04a3 e009 | | Load 0x0,0x9
04a4 1b0d | | Execute Package,Field_Read,Field_Number 0xd
04a5 011c | | Execute Any,Convert_Unchecked
04a6 1c01 | | Execute_Immediate Run_Utility,0x1
04a7 01cc | | Execute Vector,Catenate
04a8 00ec | | Load_Encached Diana_Tree_Cache
04a9 4802 |H | Short_Literal 0x2
04aa e001 | | Load 0x0,0x1
04ab 181b | | Execute Package,Field_Execute,Field_Number 0x1b
04ac e001 | | Load 0x0,0x1
04ad 1812 | | Execute Package,Field_Execute,Field_Number 0x12
04ae c5f9 | | Store 0x2,-0x7
04af 4507 |E | Exit_Suprogram New_Top_Offset 0x7
04b0 8416 | | Call 0x2,0x16
04b1 4800 |H | Short_Literal 0x0
04b2 e405 | | Load 0x2,0x5
04b3 e012 | | Load 0x0,0x12
04b4 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
04b5 7007 |p | Jump_Nonzero 0x4bd
04b6 e001 | | Load 0x0,0x1
04b7 181b | | Execute Package,Field_Execute,Field_Number 0x1b
04b8 e405 | | Load 0x2,0x5
04b9 e025 | % | Load 0x0,0x25
04ba 180e | | Execute Package,Field_Execute,Field_Number 0xe
04bb c5f9 | | Store 0x2,-0x7
04bc 4507 |E | Exit_Suprogram New_Top_Offset 0x7
04bd e009 | | Load 0x0,0x9
04be 1b0d | | Execute Package,Field_Read,Field_Number 0xd
04bf e40b | | Load 0x2,0xb
04c0 6077 |`w | Indirect_Literal Discrete,0x538,{0x00000000, 0x00004000}
04c1 e5fb | | Load 0x2,-0x5
04c2 4800 |H | Short_Literal 0x0
04c3 e403 | | Load 0x2,0x3
04c4 e009 | | Load 0x0,0x9
04c5 1b39 | 9 | Execute Package,Field_Read,Field_Number 0x39
04c6 181a | | Execute Package,Field_Execute,Field_Number 0x1a
04c7 00d1 | | Pop_Control Pop_Count_1
04c8 c404 | | Store 0x2,0x4
04c9 e404 | | Load 0x2,0x4
04ca 682a |h* | Jump_Zero 0x4f5
04cb e001 | | Load 0x0,0x1
04cc 181b | | Execute Package,Field_Execute,Field_Number 0x1b
04cd 4801 |H | Short_Literal 0x1
04ce 4803 |H | Short_Literal 0x3
04cf e017 | | Load 0x0,0x17
04d0 1b0f | | Execute Package,Field_Read,Field_Number 0xf
04d1 035b | [ | Declare_Type Array,Constrained
04d2 0337 | 7 | Declare_Variable Array
04d3 e403 | | Load 0x2,0x3
04d4 e017 | | Load 0x0,0x17
04d5 181a | | Execute Package,Field_Execute,Field_Number 0x1a
04d6 e017 | | Load 0x0,0x17
04d7 1b0e | | Execute Package,Field_Read,Field_Number 0xe
04d8 0119 | | Execute Any,Check_In_Formal_Type
04d9 4801 |H | Short_Literal 0x1
04da 00da | | Load_Top At_Offset_2
04db 01d6 | | Execute Vector,Field_Write
04dc 00ea | | Load_Encached Null_String_Cache
04dd e017 | | Load 0x0,0x17
04de 1810 | | Execute Package,Field_Execute,Field_Number 0x10
04df e017 | | Load 0x0,0x17
04e0 1b0e | | Execute Package,Field_Read,Field_Number 0xe
04e1 0119 | | Execute Any,Check_In_Formal_Type
04e2 4802 |H | Short_Literal 0x2
04e3 00da | | Load_Top At_Offset_2
04e4 01d6 | | Execute Vector,Field_Write
04e5 e404 | | Load 0x2,0x4
04e6 e017 | | Load 0x0,0x17
04e7 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
04e8 e017 | | Load 0x0,0x17
04e9 1b0e | | Execute Package,Field_Read,Field_Number 0xe
04ea 0119 | | Execute Any,Check_In_Formal_Type
04eb 4803 |H | Short_Literal 0x3
04ec 00da | | Load_Top At_Offset_2
04ed 01d6 | | Execute Vector,Field_Write
04ee 6045 |`E | Indirect_Literal Discrete,0x534,{0x00000000, 0x00008158}
04ef e012 | | Load 0x0,0x12
04f0 1813 | | Execute Package,Field_Execute,Field_Number 0x13
04f1 e025 | % | Load 0x0,0x25
04f2 180e | | Execute Package,Field_Execute,Field_Number 0xe
04f3 c5f9 | | Store 0x2,-0x7
04f4 4507 |E | Exit_Suprogram New_Top_Offset 0x7
04f5 e012 | | Load 0x0,0x12
04f6 1b0d | | Execute Package,Field_Read,Field_Number 0xd
04f7 e5fb | | Load 0x2,-0x5
04f8 e408 | | Load 0x2,0x8
04f9 e40b | | Load 0x2,0xb
04fa e5fe | | Load 0x2,-0x2
04fb e026 | & | Load 0x0,0x26
04fc 1818 | | Execute Package,Field_Execute,Field_Number 0x18
04fd c405 | | Store 0x2,0x5
04fe 4800 |H | Short_Literal 0x0
04ff e405 | | Load 0x2,0x5
0500 e012 | | Load 0x0,0x12
0501 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
0502 7006 |p | Jump_Nonzero 0x509
0503 e001 | | Load 0x0,0x1
0504 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0505 e405 | | Load 0x2,0x5
0506 e025 | % | Load 0x0,0x25
0507 180e | | Execute Package,Field_Execute,Field_Number 0xe
0508 c5f9 | | Store 0x2,-0x7
0509 4507 |E | Exit_Suprogram New_Top_Offset 0x7
050a TRAP_03d8:
050a e02e | . | Load 0x0,0x2e
050b 010f | | Execute Exception,Equal
050c 6807 |h | Jump_Zero 0x514
050d e001 | | Load 0x0,0x1
050e 181b | | Execute Package,Field_Execute,Field_Number 0x1b
050f e405 | | Load 0x2,0x5
0510 e025 | % | Load 0x0,0x25
0511 180e | | Execute Package,Field_Execute,Field_Number 0xe
0512 c5f9 | | Store 0x2,-0x7
0513 4507 |E | Exit_Suprogram New_Top_Offset 0x7
0514 e035 | 5 | Load 0x0,0x35
0515 010f | | Execute Exception,Equal
0516 6819 |h | Jump_Zero 0x530
0517 00ec | | Load_Encached Diana_Tree_Cache
0518 00ec | | Load_Encached Diana_Tree_Cache
0519 e002 | | Load 0x0,0x2
051a 1811 | | Execute Package,Field_Execute,Field_Number 0x11
051b e003 | | Load 0x0,0x3
051c 1811 | | Execute Package,Field_Execute,Field_Number 0x11
051d 00ec | | Load_Encached Diana_Tree_Cache
051e 0092 0936 | 6| Action Push_String_Extended,0x936 ; "Ada unit "
0520 e403 | | Load 0x2,0x3
0521 e009 | | Load 0x0,0x9
0522 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0523 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
0524 01cc | | Execute Vector,Catenate
0525 0092 0937 | 7| Action Push_String_Extended,0x937 ; " has nonterminals"
0527 01cc | | Execute Vector,Catenate
0528 00ec | | Load_Encached Diana_Tree_Cache
0529 4802 |H | Short_Literal 0x2
052a e001 | | Load 0x0,0x1
052b 181b | | Execute Package,Field_Execute,Field_Number 0x1b
052c e001 | | Load 0x0,0x1
052d 1812 | | Execute Package,Field_Execute,Field_Number 0x12
052e c5f9 | | Store 0x2,-0x7
052f 4507 |E | Exit_Suprogram New_Top_Offset 0x7
0530 0100 | | Execute Exception,Raise
0531 0000 0000 | | .XXX[0x3]
0533 0000 | |
0534 0000 0000 | | .LITERAL {0x00000000, 0x00008158}
0538 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
053c 0000 0000 | | .BLANK 0000[0x4]
0540 ; --------------------------------------------------------------------------------------
0540 ; SUBPROGRAM
0540 ; --------------------------------------------------------------------------------------
0540 0543 | C | .CONST 0x0543 ; Address of begin
0541 0004 | | .CONST 0x0004 ; Address of exception handler
0542 0001 | | .CONST 0x0001 ; Number of locals
0543 BODY_0540:
0543 INIT_0540:
0543 e010 | | Load 0x0,0x10
0544 180e | | Execute Package,Field_Execute,Field_Number 0xe
0545 e01d | | Load 0x0,0x1d
0546 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0547 4800 |H | Short_Literal 0x0
0548 e5fb | | Load 0x2,-0x5
0549 e5fc | | Load 0x2,-0x4
054a e5fe | | Load 0x2,-0x2
054b 8211 | | Call 0x1,0x11
054c 4406 |D | Exit_Subprogram With_Value,New_Top_Offset 0x6
054d 0000 0000 | | .XXX[0x3]
054f 0000 | |
0550 ; --------------------------------------------------------------------------------------
0550 ; SUBPROGRAM
0550 ; --------------------------------------------------------------------------------------
0550 0576 | v | .CONST 0x0576 ; Address of begin
0551 0004 | | .CONST 0x0004 ; Address of exception handler
0552 000b | | .CONST 0x000b ; Number of locals
0553 INIT_0550:
0553 e009 | | Load 0x0,0x9
0554 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
0555 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0556 02c7 | | Declare_Variable Any
0557 00d8 | | Load_Top At_Offset_0
0558 1c00 | | Execute_Immediate Run_Utility,0x0
0559 e009 | | Load 0x0,0x9
055a 1b0f | | Execute Package,Field_Read,Field_Number 0xf
055b 02c7 | | Declare_Variable Any
055c 00d8 | | Load_Top At_Offset_0
055d 1c00 | | Execute_Immediate Run_Utility,0x0
055e e009 | | Load 0x0,0x9
055f 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0560 e012 | | Load 0x0,0x12
0561 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0562 00e1 | | Load_Encached Boolean_Cache
0563 e009 | | Load 0x0,0x9
0564 1b2e | . | Execute Package,Field_Read,Field_Number 0x2e
0565 0322 | " | Declare_Variable Record
0566 00d8 | | Load_Top At_Offset_0
0567 1c00 | | Execute_Immediate Run_Utility,0x0
0568 00e1 | | Load_Encached Boolean_Cache
0569 e009 | | Load 0x0,0x9
056a 1b14 | | Execute Package,Field_Read,Field_Number 0x14
056b 02ff | | Declare_Variable Variant_Record
056c 00d8 | | Load_Top At_Offset_0
056d 1c00 | | Execute_Immediate Run_Utility,0x0
056e e010 | | Load 0x0,0x10
056f 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0570 02c7 | | Declare_Variable Any
0571 e010 | | Load 0x0,0x10
0572 180e | | Execute Package,Field_Execute,Field_Number 0xe
0573 a40a | | Store_Unchecked 0x2,0xa
0574 029f 0903 | | Declare_Subprogram INIT_0900,For_Call
0576 BODY_0550:
0576 e010 | | Load 0x0,0x10
0577 180e | | Execute Package,Field_Execute,Field_Number 0xe
0578 e01d | | Load 0x0,0x1d
0579 1819 | | Execute Package,Field_Execute,Field_Number 0x19
057a e5fe | | Load 0x2,-0x2
057b 821b | | Call 0x1,0x1b
057c 0f03 | | Execute_Immediate Equal,0x3
057d a408 | | Store_Unchecked 0x2,0x8
057e e009 | | Load 0x0,0x9
057f 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0580 e402 | | Load 0x2,0x2
0581 0120 | | Execute Any,Is_Value
0582 6804 |h | Jump_Zero 0x587
0583 e009 | | Load 0x0,0x9
0584 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
0585 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0586 7801 |x | Jump 0x588
0587 e402 | | Load 0x2,0x2
0588 e5fe | | Load 0x2,-0x2
0589 e009 | | Load 0x0,0x9
058a 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
058b 181c | | Execute Package,Field_Execute,Field_Number 0x1c
058c c402 | | Store 0x2,0x2
058d c404 | | Store 0x2,0x4
058e e404 | | Load 0x2,0x4
058f 6802 |h | Jump_Zero 0x592
0590 840b | | Call 0x2,0xb
0591 4507 |E | Exit_Suprogram New_Top_Offset 0x7
0592 e402 | | Load 0x2,0x2
0593 e009 | | Load 0x0,0x9
0594 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
0595 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0596 c403 | | Store 0x2,0x3
0597 e403 | | Load 0x2,0x3
0598 e01a | | Load 0x0,0x1a
0599 1814 | | Execute Package,Field_Execute,Field_Number 0x14
059a 6801 |h | Jump_Zero 0x59c
059b 4507 |E | Exit_Suprogram New_Top_Offset 0x7
059c e404 | | Load 0x2,0x4
059d 00e1 | | Load_Encached Boolean_Cache
059e e403 | | Load 0x2,0x3
059f 821a | | Call 0x1,0x1a
05a0 c406 | | Store 0x2,0x6
05a1 c404 | | Store 0x2,0x4
05a2 e404 | | Load 0x2,0x4
05a3 681e |h | Jump_Zero 0x5c2
05a4 00ec | | Load_Encached Diana_Tree_Cache
05a5 00ec | | Load_Encached Diana_Tree_Cache
05a6 e002 | | Load 0x0,0x2
05a7 1811 | | Execute Package,Field_Execute,Field_Number 0x11
05a8 e003 | | Load 0x0,0x3
05a9 1811 | | Execute Package,Field_Execute,Field_Number 0x11
05aa 00ec | | Load_Encached Diana_Tree_Cache
05ab 0092 0931 | 1| Action Push_String_Extended,0x931 ; "Error while obtaining enclosing world for unit "
05ad e403 | | Load 0x2,0x3
05ae e009 | | Load 0x0,0x9
05af 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
05b0 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
05b1 01cc | | Execute Vector,Catenate
05b2 0092 0932 | 2| Action Push_String_Extended,0x932 ; " - "
05b4 01cc | | Execute Vector,Catenate
05b5 e404 | | Load 0x2,0x4
05b6 e009 | | Load 0x0,0x9
05b7 1b0d | | Execute Package,Field_Read,Field_Number 0xd
05b8 011c | | Execute Any,Convert_Unchecked
05b9 1c01 | | Execute_Immediate Run_Utility,0x1
05ba 01cc | | Execute Vector,Catenate
05bb 00ec | | Load_Encached Diana_Tree_Cache
05bc 4802 |H | Short_Literal 0x2
05bd e001 | | Load 0x0,0x1
05be 181b | | Execute Package,Field_Execute,Field_Number 0x1b
05bf e001 | | Load 0x0,0x1
05c0 1812 | | Execute Package,Field_Execute,Field_Number 0x12
05c1 c5f9 | | Store 0x2,-0x7
05c2 e406 | | Load 0x2,0x6
05c3 6801 |h | Jump_Zero 0x5c5
05c4 4507 |E | Exit_Suprogram New_Top_Offset 0x7
05c5 e010 | | Load 0x0,0x10
05c6 180e | | Execute Package,Field_Execute,Field_Number 0xe
05c7 4801 |H | Short_Literal 0x1
05c8 0092 0938 | 8| Action Push_String_Extended,0x938 ; "Demoting: "
05ca e403 | | Load 0x2,0x3
05cb e009 | | Load 0x0,0x9
05cc 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
05cd 1841 | A | Execute Package,Field_Execute,Field_Number 0x41
05ce 01cc | | Execute Vector,Catenate
05cf e014 | | Load 0x0,0x14
05d0 1813 | | Execute Package,Field_Execute,Field_Number 0x13
05d1 e009 | | Load 0x0,0x9
05d2 1b0d | | Execute Package,Field_Read,Field_Number 0xd
05d3 e407 | | Load 0x2,0x7
05d4 608f |` | Indirect_Literal Discrete,0x664,{0x00000000, 0x00004000}
05d5 e01e | | Load 0x0,0x1e
05d6 1b0e | | Execute Package,Field_Read,Field_Number 0xe
05d7 e403 | | Load 0x2,0x3
05d8 e009 | | Load 0x0,0x9
05d9 1b3d | = | Execute Package,Field_Read,Field_Number 0x3d
05da 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
05db 00d1 | | Pop_Control Pop_Count_1
05dc c404 | | Store 0x2,0x4
05dd e404 | | Load 0x2,0x4
05de 681f |h | Jump_Zero 0x5fe
05df 00ec | | Load_Encached Diana_Tree_Cache
05e0 00ec | | Load_Encached Diana_Tree_Cache
05e1 e002 | | Load 0x0,0x2
05e2 1811 | | Execute Package,Field_Execute,Field_Number 0x11
05e3 e003 | | Load 0x0,0x3
05e4 1811 | | Execute Package,Field_Execute,Field_Number 0x11
05e5 00ec | | Load_Encached Diana_Tree_Cache
05e6 0092 0935 | 5| Action Push_String_Extended,0x935 ; "Error while obtaining target key for unit "
05e8 e403 | | Load 0x2,0x3
05e9 e009 | | Load 0x0,0x9
05ea 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
05eb 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
05ec 01cc | | Execute Vector,Catenate
05ed 0092 0932 | 2| Action Push_String_Extended,0x932 ; " - "
05ef 01cc | | Execute Vector,Catenate
05f0 e404 | | Load 0x2,0x4
05f1 e009 | | Load 0x0,0x9
05f2 1b0d | | Execute Package,Field_Read,Field_Number 0xd
05f3 011c | | Execute Any,Convert_Unchecked
05f4 1c01 | | Execute_Immediate Run_Utility,0x1
05f5 01cc | | Execute Vector,Catenate
05f6 00ec | | Load_Encached Diana_Tree_Cache
05f7 4802 |H | Short_Literal 0x2
05f8 e001 | | Load 0x0,0x1
05f9 181b | | Execute Package,Field_Execute,Field_Number 0x1b
05fa e001 | | Load 0x0,0x1
05fb 1812 | | Execute Package,Field_Execute,Field_Number 0x12
05fc c5f9 | | Store 0x2,-0x7
05fd 4507 |E | Exit_Suprogram New_Top_Offset 0x7
05fe e012 | | Load 0x0,0x12
05ff 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0600 00da | | Load_Top At_Offset_2
0601 e407 | | Load 0x2,0x7
0602 e403 | | Load 0x2,0x3
0603 e028 | ( | Load 0x0,0x28
0604 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0605 c405 | | Store 0x2,0x5
0606 4800 |H | Short_Literal 0x0
0607 e405 | | Load 0x2,0x5
0608 e012 | | Load 0x0,0x12
0609 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
060a 7007 |p | Jump_Nonzero 0x612
060b e001 | | Load 0x0,0x1
060c 181b | | Execute Package,Field_Execute,Field_Number 0x1b
060d e405 | | Load 0x2,0x5
060e e025 | % | Load 0x0,0x25
060f 180e | | Execute Package,Field_Execute,Field_Number 0xe
0610 c5f9 | | Store 0x2,-0x7
0611 4507 |E | Exit_Suprogram New_Top_Offset 0x7
0612 e009 | | Load 0x0,0x9
0613 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0614 00db | | Load_Top At_Offset_3
0615 604e |`N | Indirect_Literal Discrete,0x664,{0x00000000, 0x00004000}
0616 e5fb | | Load 0x2,-0x5
0617 4800 |H | Short_Literal 0x0
0618 e403 | | Load 0x2,0x3
0619 e009 | | Load 0x0,0x9
061a 1b39 | 9 | Execute Package,Field_Read,Field_Number 0x39
061b 181a | | Execute Package,Field_Execute,Field_Number 0x1a
061c 00d1 | | Pop_Control Pop_Count_1
061d c404 | | Store 0x2,0x4
061e e404 | | Load 0x2,0x4
061f 682a |h* | Jump_Zero 0x64a
0620 e001 | | Load 0x0,0x1
0621 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0622 4801 |H | Short_Literal 0x1
0623 4803 |H | Short_Literal 0x3
0624 e017 | | Load 0x0,0x17
0625 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0626 035b | [ | Declare_Type Array,Constrained
0627 0337 | 7 | Declare_Variable Array
0628 e403 | | Load 0x2,0x3
0629 e017 | | Load 0x0,0x17
062a 181a | | Execute Package,Field_Execute,Field_Number 0x1a
062b e017 | | Load 0x0,0x17
062c 1b0e | | Execute Package,Field_Read,Field_Number 0xe
062d 0119 | | Execute Any,Check_In_Formal_Type
062e 4801 |H | Short_Literal 0x1
062f 00da | | Load_Top At_Offset_2
0630 01d6 | | Execute Vector,Field_Write
0631 00ea | | Load_Encached Null_String_Cache
0632 e017 | | Load 0x0,0x17
0633 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0634 e017 | | Load 0x0,0x17
0635 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0636 0119 | | Execute Any,Check_In_Formal_Type
0637 4802 |H | Short_Literal 0x2
0638 00da | | Load_Top At_Offset_2
0639 01d6 | | Execute Vector,Field_Write
063a e404 | | Load 0x2,0x4
063b e017 | | Load 0x0,0x17
063c 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
063d e017 | | Load 0x0,0x17
063e 1b0e | | Execute Package,Field_Read,Field_Number 0xe
063f 0119 | | Execute Any,Check_In_Formal_Type
0640 4803 |H | Short_Literal 0x3
0641 00da | | Load_Top At_Offset_2
0642 01d6 | | Execute Vector,Field_Write
0643 601c |` | Indirect_Literal Discrete,0x660,{0x00000000, 0x00008158}
0644 e012 | | Load 0x0,0x12
0645 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0646 e025 | % | Load 0x0,0x25
0647 180e | | Execute Package,Field_Execute,Field_Number 0xe
0648 c5f9 | | Store 0x2,-0x7
0649 4507 |E | Exit_Suprogram New_Top_Offset 0x7
064a e012 | | Load 0x0,0x12
064b 1b0d | | Execute Package,Field_Read,Field_Number 0xd
064c e5fb | | Load 0x2,-0x5
064d e408 | | Load 0x2,0x8
064e e409 | | Load 0x2,0x9
064f e5fe | | Load 0x2,-0x2
0650 e026 | & | Load 0x0,0x26
0651 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0652 c405 | | Store 0x2,0x5
0653 4800 |H | Short_Literal 0x0
0654 e405 | | Load 0x2,0x5
0655 e012 | | Load 0x0,0x12
0656 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
0657 7006 |p | Jump_Nonzero 0x65e
0658 e001 | | Load 0x0,0x1
0659 181b | | Execute Package,Field_Execute,Field_Number 0x1b
065a e405 | | Load 0x2,0x5
065b e025 | % | Load 0x0,0x25
065c 180e | | Execute Package,Field_Execute,Field_Number 0xe
065d c5f9 | | Store 0x2,-0x7
065e 4507 |E | Exit_Suprogram New_Top_Offset 0x7
065f 0000 | | .XXX[0x1]
0660 0000 0000 | | .LITERAL {0x00000000, 0x00008158}
0664 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
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 e216 | | Load 0x1,0x16
0680 c5f8 | | Store 0x2,-0x8
0681 4508 |E | Exit_Suprogram New_Top_Offset 0x8
0682 0000 0000 | | .BLANK 0000[0x6]
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 e015 | | Load 0x0,0x15
0690 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0691 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0692 4407 |D | Exit_Subprogram With_Value,New_Top_Offset 0x7
0693 0000 0000 | | .BLANK 0000[0x5]
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 e015 | | Load 0x0,0x15
06a0 1b14 | | Execute Package,Field_Read,Field_Number 0x14
06a1 1812 | | Execute Package,Field_Execute,Field_Number 0x12
06a2 4407 |D | Exit_Subprogram With_Value,New_Top_Offset 0x7
06a3 0000 0000 | | .BLANK 0000[0x5]
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 e010 | | Load 0x0,0x10
06ac 180e | | Execute Package,Field_Execute,Field_Number 0xe
06ad e01d | | Load 0x0,0x1d
06ae 1819 | | Execute Package,Field_Execute,Field_Number 0x19
06af e216 | | Load 0x1,0x16
06b0 c5f8 | | Store 0x2,-0x8
06b1 4508 |E | Exit_Suprogram New_Top_Offset 0x8
06b2 0000 0000 | | .BLANK 0000[0x6]
06b8 ; --------------------------------------------------------------------------------------
06b8 ; SUBPROGRAM
06b8 ; --------------------------------------------------------------------------------------
06b8 06bb | | .CONST 0x06bb ; Address of begin
06b9 0004 | | .CONST 0x0004 ; Address of exception handler
06ba 0001 | | .CONST 0x0001 ; Number of locals
06bb BODY_06b8:
06bb INIT_06b8:
06bb e010 | | Load 0x0,0x10
06bc 180e | | Execute Package,Field_Execute,Field_Number 0xe
06bd e01d | | Load 0x0,0x1d
06be 1819 | | Execute Package,Field_Execute,Field_Number 0x19
06bf e015 | | Load 0x0,0x15
06c0 1b14 | | Execute Package,Field_Read,Field_Number 0x14
06c1 1812 | | Execute Package,Field_Execute,Field_Number 0x12
06c2 4407 |D | Exit_Subprogram With_Value,New_Top_Offset 0x7
06c3 0000 0000 | | .BLANK 0000[0x5]
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 e010 | | Load 0x0,0x10
06cc 180e | | Execute Package,Field_Execute,Field_Number 0xe
06cd e01d | | Load 0x0,0x1d
06ce 1819 | | Execute Package,Field_Execute,Field_Number 0x19
06cf e216 | | Load 0x1,0x16
06d0 c5f8 | | Store 0x2,-0x8
06d1 4508 |E | Exit_Suprogram New_Top_Offset 0x8
06d2 0000 0000 | | .BLANK 0000[0x6]
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 e010 | | Load 0x0,0x10
06dc 180e | | Execute Package,Field_Execute,Field_Number 0xe
06dd e01d | | Load 0x0,0x1d
06de 1819 | | Execute Package,Field_Execute,Field_Number 0x19
06df e216 | | Load 0x1,0x16
06e0 c5f8 | | Store 0x2,-0x8
06e1 4508 |E | Exit_Suprogram New_Top_Offset 0x8
06e2 0000 0000 | | .BLANK 0000[0x6]
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 4801 |H | Short_Literal 0x1
06ec 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
06ed 0000 0000 | | .XXX[0x3]
06ef 0000 | |
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 e010 | | Load 0x0,0x10
06f4 180e | | Execute Package,Field_Execute,Field_Number 0xe
06f5 e01d | | Load 0x0,0x1d
06f6 1819 | | Execute Package,Field_Execute,Field_Number 0x19
06f7 e215 | | Load 0x1,0x15
06f8 c5f8 | | Store 0x2,-0x8
06f9 4508 |E | Exit_Suprogram New_Top_Offset 0x8
06fa 0000 0000 | | .BLANK 0000[0x6]
0700 ; --------------------------------------------------------------------------------------
0700 ; SUBPROGRAM
0700 ; --------------------------------------------------------------------------------------
0700 0703 | | .CONST 0x0703 ; Address of begin
0701 0004 | | .CONST 0x0004 ; Address of exception handler
0702 0001 | | .CONST 0x0001 ; Number of locals
0703 BODY_0700:
0703 INIT_0700:
0703 00ea | | Load_Encached Null_String_Cache
0704 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0705 0000 0000 | | .XXX[0x3]
0707 0000 | |
0708 ; --------------------------------------------------------------------------------------
0708 ; SUBPROGRAM
0708 ; --------------------------------------------------------------------------------------
0708 070b | | .CONST 0x070b ; Address of begin
0709 0004 | | .CONST 0x0004 ; Address of exception handler
070a 0001 | | .CONST 0x0001 ; Number of locals
070b BODY_0708:
070b INIT_0708:
070b 00ea | | Load_Encached Null_String_Cache
070c 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
070d 0000 0000 | | .XXX[0x3]
070f 0000 | |
0710 ; --------------------------------------------------------------------------------------
0710 ; SUBPROGRAM
0710 ; --------------------------------------------------------------------------------------
0710 0713 | | .CONST 0x0713 ; Address of begin
0711 0004 | | .CONST 0x0004 ; Address of exception handler
0712 0001 | | .CONST 0x0001 ; Number of locals
0713 BODY_0710:
0713 INIT_0710:
0713 4820 |H | Short_Literal 0x20
0714 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0715 0000 0000 | | .XXX[0x3]
0717 0000 | |
0718 ; --------------------------------------------------------------------------------------
0718 ; SUBPROGRAM
0718 ; --------------------------------------------------------------------------------------
0718 071b | | .CONST 0x071b ; Address of begin
0719 0004 | | .CONST 0x0004 ; Address of exception handler
071a 0001 | | .CONST 0x0001 ; Number of locals
071b BODY_0718:
071b INIT_0718:
071b 4801 |H | Short_Literal 0x1
071c 4405 |D | Exit_Subprogram With_Value,New_Top_Offset 0x5
071d 0000 0000 | | .XXX[0x3]
071f 0000 | |
0720 ; --------------------------------------------------------------------------------------
0720 ; SUBPROGRAM
0720 ; --------------------------------------------------------------------------------------
0720 0723 | # | .CONST 0x0723 ; Address of begin
0721 0004 | | .CONST 0x0004 ; Address of exception handler
0722 0001 | | .CONST 0x0001 ; Number of locals
0723 BODY_0720:
0723 INIT_0720:
0723 e215 | | Load 0x1,0x15
0724 c5f4 | | Store 0x2,-0xc
0725 450c |E | Exit_Suprogram New_Top_Offset 0xc
0726 0000 0000 | | .XXX[0x2]
0728 ; --------------------------------------------------------------------------------------
0728 ; SUBPROGRAM
0728 ; --------------------------------------------------------------------------------------
0728 072b | + | .CONST 0x072b ; Address of begin
0729 0004 | | .CONST 0x0004 ; Address of exception handler
072a 0001 | | .CONST 0x0001 ; Number of locals
072b BODY_0728:
072b INIT_0728:
072b e215 | | Load 0x1,0x15
072c c5f4 | | Store 0x2,-0xc
072d 450c |E | Exit_Suprogram New_Top_Offset 0xc
072e 0000 0000 | | .XXX[0x2]
0730 ; --------------------------------------------------------------------------------------
0730 ; SUBPROGRAM
0730 ; --------------------------------------------------------------------------------------
0730 0733 | 3 | .CONST 0x0733 ; Address of begin
0731 0004 | | .CONST 0x0004 ; Address of exception handler
0732 0001 | | .CONST 0x0001 ; Number of locals
0733 BODY_0730:
0733 INIT_0730:
0733 e5fd | | Load 0x2,-0x3
0734 6810 |h | Jump_Zero 0x745
0735 00da | | Load_Top At_Offset_2
0736 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
0737 e5fe | | Load 0x2,-0x2
0738 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
0739 027f | | Execute Discrete,Equal
073a 6808 |h | Jump_Zero 0x743
073b 00da | | Load_Top At_Offset_2
073c 3c06 |< | Execute Record,Field_Read,Field_Number 0x6
073d e5fe | | Load 0x2,-0x2
073e 3c06 |< | Execute Record,Field_Read,Field_Number 0x6
073f 027f | | Execute Discrete,Equal
0740 6802 |h | Jump_Zero 0x743
0741 4803 |H | Short_Literal 0x3
0742 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0743 4800 |H | Short_Literal 0x0
0744 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0745 00da | | Load_Top At_Offset_2
0746 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
0747 e5fe | | Load 0x2,-0x2
0748 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
0749 027f | | Execute Discrete,Equal
074a 6808 |h | Jump_Zero 0x753
074b 00da | | Load_Top At_Offset_2
074c 3c06 |< | Execute Record,Field_Read,Field_Number 0x6
074d e5fe | | Load 0x2,-0x2
074e 3c06 |< | Execute Record,Field_Read,Field_Number 0x6
074f 027f | | Execute Discrete,Equal
0750 6802 |h | Jump_Zero 0x753
0751 4803 |H | Short_Literal 0x3
0752 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0753 4801 |H | Short_Literal 0x1
0754 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0755 0000 0000 | | .XXX[0x3]
0757 0000 | |
0758 ; --------------------------------------------------------------------------------------
0758 ; SUBPROGRAM
0758 ; --------------------------------------------------------------------------------------
0758 075f | _ | .CONST 0x075f ; Address of begin
0759 0004 | | .CONST 0x0004 ; Address of exception handler
075a 0002 | | .CONST 0x0002 ; Number of locals
075b INIT_0758:
075b 00ec | | Load_Encached Diana_Tree_Cache
075c 02c7 | | Declare_Variable Any
075d 00db | | Load_Top At_Offset_3
075e a602 | | Store_Unchecked 0x3,0x2
075f BODY_0758:
075f 00db | | Load_Top At_Offset_3
0760 7001 |p | Jump_Nonzero 0x762
0761 0887 | | Execute_Immediate Raise,0x87
0762 00d8 | | Load_Top At_Offset_0
0763 490b |I | Short_Literal 0x10b
0764 00eb | | Load_Encached Diana_Cache
0765 0096 | | Execute Package,Entry
0766 6805 |h | Jump_Zero 0x76c
0767 00d8 | | Load_Top At_Offset_0
0768 490b |I | Short_Literal 0x10b
0769 00eb | | Load_Encached Diana_Cache
076a 0096 | | Execute Package,Entry
076b c602 | | Store 0x3,0x2
076c 00d8 | | Load_Top At_Offset_0
076d 0145 | E | Execute Heap_Access,Diana_Tree_Kind
076e 0f22 | " | Execute_Immediate Equal,0x22
076f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0770 ; --------------------------------------------------------------------------------------
0770 ; SUBPROGRAM
0770 ; --------------------------------------------------------------------------------------
0770 0773 | s | .CONST 0x0773 ; Address of begin
0771 0775 | u | .CONST 0x0775 ; Address of exception handler
0772 0001 | | .CONST 0x0001 ; Number of locals
0773 BODY_0770:
0773 INIT_0770:
0773 e036 | 6 | Load 0x0,0x36
0774 0257 | W | Execute Discrete,Raise
0775 TRAP_0770:
0775 0007 | | Action Break_Optional
0776 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0777 0000 | | .XXX[0x1]
0778 ; --------------------------------------------------------------------------------------
0778 ; SUBPROGRAM
0778 ; --------------------------------------------------------------------------------------
0778 077b | { | .CONST 0x077b ; Address of begin
0779 0004 | | .CONST 0x0004 ; Address of exception handler
077a 0001 | | .CONST 0x0001 ; Number of locals
077b BODY_0778:
077b INIT_0778:
077b 00da | | Load_Top At_Offset_2
077c 0145 | E | Execute Heap_Access,Diana_Tree_Kind
077d 0fab | | Execute_Immediate Equal,-0x55
077e 6802 |h | Jump_Zero 0x781
077f e035 | 5 | Load 0x0,0x35
0780 0257 | W | Execute Discrete,Raise
0781 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0782 0000 0000 | | .BLANK 0000[0x6]
0788 ; --------------------------------------------------------------------------------------
0788 ; SUBPROGRAM
0788 ; --------------------------------------------------------------------------------------
0788 07aa | | .CONST 0x07aa ; Address of begin
0789 07e6 | | .CONST 0x07e6 ; Address of exception handler
078a 0006 | | .CONST 0x0006 ; Number of locals
078b INIT_0788:
078b e001 | | Load 0x0,0x1
078c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
078d 02c7 | | Declare_Variable Any
078e e215 | | Load 0x1,0x15
078f a602 | | Store_Unchecked 0x3,0x2
0790 e00c | | Load 0x0,0xc
0791 1b1c | | Execute Package,Field_Read,Field_Number 0x1c
0792 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0793 02c7 | | Declare_Variable Any
0794 4800 |H | Short_Literal 0x0
0795 4800 |H | Short_Literal 0x0
0796 4801 |H | Short_Literal 0x1
0797 e602 | | Load 0x3,0x2
0798 e5fb | | Load 0x2,-0x5
0799 e5fc | | Load 0x2,-0x4
079a e00c | | Load 0x0,0xc
079b 1b1c | | Execute Package,Field_Read,Field_Number 0x1c
079c 1814 | | Execute Package,Field_Execute,Field_Number 0x14
079d a603 | | Store_Unchecked 0x3,0x3
079e e00c | | Load 0x0,0xc
079f 1b0d | | Execute Package,Field_Read,Field_Number 0xd
07a0 02c7 | | Declare_Variable Any
07a1 00d8 | | Load_Top At_Offset_0
07a2 1c00 | | Execute_Immediate Run_Utility,0x0
07a3 e00c | | Load 0x0,0xc
07a4 1b13 | | Execute Package,Field_Read,Field_Number 0x13
07a5 02c7 | | Declare_Variable Any
07a6 00d8 | | Load_Top At_Offset_0
07a7 1c00 | | Execute_Immediate Run_Utility,0x0
07a8 e016 | | Load 0x0,0x16
07a9 1b2e | . | Execute Package,Field_Read,Field_Number 0x2e
07aa BODY_0788:
07aa e602 | | Load 0x3,0x2
07ab e001 | | Load 0x0,0x1
07ac 181a | | Execute Package,Field_Execute,Field_Number 0x1a
07ad 7007 |p | Jump_Nonzero 0x7b5
07ae e602 | | Load 0x3,0x2
07af e001 | | Load 0x0,0x1
07b0 1813 | | Execute Package,Field_Execute,Field_Number 0x13
07b1 0c02 | | Execute_Immediate Greater_Equal,0x2
07b2 6802 |h | Jump_Zero 0x7b5
07b3 e02e | . | Load 0x0,0x2e
07b4 0257 | W | Execute Discrete,Raise
07b5 00da | | Load_Top At_Offset_2
07b6 0120 | | Execute Any,Is_Value
07b7 6803 |h | Jump_Zero 0x7bb
07b8 e00c | | Load 0x0,0xc
07b9 1b0d | | Execute Package,Field_Read,Field_Number 0xd
07ba 7801 |x | Jump 0x7bc
07bb 00da | | Load_Top At_Offset_2
07bc 4800 |H | Short_Literal 0x0
07bd 4801 |H | Short_Literal 0x1
07be e5fe | | Load 0x2,-0x2
07bf e603 | | Load 0x3,0x3
07c0 e00c | | Load 0x0,0xc
07c1 1b6a | j | Execute Package,Field_Read,Field_Number 0x6a
07c2 180e | | Execute Package,Field_Execute,Field_Number 0xe
07c3 c604 | | Store 0x3,0x4
07c4 e5fe | | Load 0x2,-0x2
07c5 e603 | | Load 0x3,0x3
07c6 e00c | | Load 0x0,0xc
07c7 1b6a | j | Execute Package,Field_Read,Field_Number 0x6a
07c8 1814 | | Execute Package,Field_Execute,Field_Number 0x14
07c9 c605 | | Store 0x3,0x5
07ca 00d9 | | Load_Top At_Offset_1
07cb e016 | | Load 0x0,0x16
07cc 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32
07cd 0031 | 1 | Store_Top Heap_Access,At_Offset_1
07ce 00cf | | Action Mark_Auxiliary
07cf 7811 |x | Jump 0x7e1
07d0 e5fb | | Load 0x2,-0x5
07d1 00da | | Load_Top At_Offset_2
07d2 0217 | | Execute Heap_Access,All_Reference
07d3 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
07d4 e005 | | Load 0x0,0x5
07d5 1814 | | Execute Package,Field_Execute,Field_Number 0x14
07d6 7002 |p | Jump_Nonzero 0x7d9
07d7 4800 |H | Short_Literal 0x0
07d8 00ca | | Action Exit_Nullary_Function
07d9 00d9 | | Load_Top At_Offset_1
07da 0217 | | Execute Heap_Access,All_Reference
07db 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
07dc e016 | | Load 0x0,0x16
07dd 1b2e | . | Execute Package,Field_Read,Field_Number 0x2e
07de 0216 | | Execute Heap_Access,Convert
07df 0032 | 2 | Store_Top Heap_Access,At_Offset_2
07e0 00c9 | | Action Pop_Auxiliary_Loop
07e1 00d9 | | Load_Top At_Offset_1
07e2 77ed |w | Jump_Nonzero 0x7d0
07e3 00ce | | Action Pop_Auxiliary
07e4 4801 |H | Short_Literal 0x1
07e5 00ca | | Action Exit_Nullary_Function
07e6 TRAP_0788:
07e6 e02e | . | Load 0x0,0x2e
07e7 010f | | Execute Exception,Equal
07e8 6820 |h | Jump_Zero 0x809
07e9 4801 |H | Short_Literal 0x1
07ea 4802 |H | Short_Literal 0x2
07eb e017 | | Load 0x0,0x17
07ec 1b0f | | Execute Package,Field_Read,Field_Number 0xf
07ed 035b | [ | Declare_Type Array,Constrained
07ee 0337 | 7 | Declare_Variable Array
07ef e403 | | Load 0x2,0x3
07f0 e017 | | Load 0x0,0x17
07f1 181a | | Execute Package,Field_Execute,Field_Number 0x1a
07f2 e017 | | Load 0x0,0x17
07f3 1b0e | | Execute Package,Field_Read,Field_Number 0xe
07f4 0119 | | Execute Any,Check_In_Formal_Type
07f5 4801 |H | Short_Literal 0x1
07f6 00da | | Load_Top At_Offset_2
07f7 01d6 | | Execute Vector,Field_Write
07f8 e602 | | Load 0x3,0x2
07f9 e001 | | Load 0x0,0x1
07fa 1816 | | Execute Package,Field_Execute,Field_Number 0x16
07fb e017 | | Load 0x0,0x17
07fc 1810 | | Execute Package,Field_Execute,Field_Number 0x10
07fd e017 | | Load 0x0,0x17
07fe 1b0e | | Execute Package,Field_Read,Field_Number 0xe
07ff 0119 | | Execute Any,Check_In_Formal_Type
0800 4802 |H | Short_Literal 0x2
0801 00da | | Load_Top At_Offset_2
0802 01d6 | | Execute Vector,Field_Write
0803 6008 |` | Indirect_Literal Discrete,0x80c,{0x00000000, 0x000081da}
0804 e012 | | Load 0x0,0x12
0805 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0806 a405 | | Store_Unchecked 0x2,0x5
0807 00d8 | | Load_Top At_Offset_0
0808 0101 | | Execute Exception,Reraise
0809 00d8 | | Load_Top At_Offset_0
080a 0101 | | Execute Exception,Reraise
080b 0000 | | .XXX[0x1]
080c 0000 0000 | | .LITERAL {0x00000000, 0x000081da}
0810 ; --------------------------------------------------------------------------------------
0810 ; SUBPROGRAM
0810 ; --------------------------------------------------------------------------------------
0810 081c | | .CONST 0x081c ; Address of begin
0811 0854 | T | .CONST 0x0854 ; Address of exception handler
0812 0002 | | .CONST 0x0002 ; Number of locals
0813 INIT_0810:
0813 e01e | | Load 0x0,0x1e
0814 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0815 02c7 | | Declare_Variable Any
0816 e020 | | Load 0x0,0x20
0817 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0818 e5fb | | Load 0x2,-0x5
0819 e01e | | Load 0x0,0x1e
081a 1815 | | Execute Package,Field_Execute,Field_Number 0x15
081b a602 | | Store_Unchecked 0x3,0x2
081c BODY_0810:
081c e405 | | Load 0x2,0x5
081d 00d9 | | Load_Top At_Offset_1
081e e409 | | Load 0x2,0x9
081f 4800 |H | Short_Literal 0x0
0820 4801 |H | Short_Literal 0x1
0821 e403 | | Load 0x2,0x3
0822 e037 | 7 | Load 0x0,0x37
0823 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0824 c405 | | Store 0x2,0x5
0825 4800 |H | Short_Literal 0x0
0826 e405 | | Load 0x2,0x5
0827 e012 | | Load 0x0,0x12
0828 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
0829 681f |h | Jump_Zero 0x849
082a e012 | | Load 0x0,0x12
082b 1b0d | | Execute Package,Field_Read,Field_Number 0xd
082c e409 | | Load 0x2,0x9
082d e406 | | Load 0x2,0x6
082e e403 | | Load 0x2,0x3
082f e028 | ( | Load 0x0,0x28
0830 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0831 c405 | | Store 0x2,0x5
0832 4800 |H | Short_Literal 0x0
0833 e405 | | Load 0x2,0x5
0834 e012 | | Load 0x0,0x12
0835 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
0836 680a |h | Jump_Zero 0x841
0837 e012 | | Load 0x0,0x12
0838 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0839 e409 | | Load 0x2,0x9
083a 4800 |H | Short_Literal 0x0
083b e406 | | Load 0x2,0x6
083c 00ea | | Load_Encached Null_String_Cache
083d e403 | | Load 0x2,0x3
083e e028 | ( | Load 0x0,0x28
083f 181f | | Execute Package,Field_Execute,Field_Number 0x1f
0840 c405 | | Store 0x2,0x5
0841 4800 |H | Short_Literal 0x0
0842 e405 | | Load 0x2,0x5
0843 e012 | | Load 0x0,0x12
0844 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
0845 7003 |p | Jump_Nonzero 0x849
0846 00d8 | | Load_Top At_Offset_0
0847 e01e | | Load 0x0,0x1e
0848 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0849 00d8 | | Load_Top At_Offset_0
084a 4801 |H | Short_Literal 0x1
084b 00da | | Load_Top At_Offset_2
084c e021 | ! | Load 0x0,0x21
084d 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
084e 0f00 | | Execute_Immediate Equal,0x0
084f e5fb | | Load 0x2,-0x5
0850 e01e | | Load 0x0,0x1e
0851 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0852 c602 | | Store 0x3,0x2
0853 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0854 TRAP_0810:
0854 0007 | | Action Break_Optional
0855 00d9 | | Load_Top At_Offset_1
0856 e01e | | Load 0x0,0x1e
0857 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0858 00d9 | | Load_Top At_Offset_1
0859 4801 |H | Short_Literal 0x1
085a 4800 |H | Short_Literal 0x0
085b e5fb | | Load 0x2,-0x5
085c e01e | | Load 0x0,0x1e
085d 1819 | | Execute Package,Field_Execute,Field_Number 0x19
085e c602 | | Store 0x3,0x2
085f 00d8 | | Load_Top At_Offset_0
0860 0101 | | Execute Exception,Reraise
0861 0000 0000 | | .BLANK 0000[0x7]
0868 ; --------------------------------------------------------------------------------------
0868 ; SUBPROGRAM
0868 ; --------------------------------------------------------------------------------------
0868 087c | | | .CONST 0x087c ; Address of begin
0869 0004 | | .CONST 0x0004 ; Address of exception handler
086a 0002 | | .CONST 0x0002 ; Number of locals
086b INIT_0868:
086b 0092 0939 | 9| Action Push_String_Extended,0x939 ; "Error while obtaining object for unit "
086d e5fe | | Load 0x2,-0x2
086e e009 | | Load 0x0,0x9
086f 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0870 183d | = | Execute Package,Field_Execute,Field_Number 0x3d
0871 01cc | | Execute Vector,Catenate
0872 0092 0932 | 2| Action Push_String_Extended,0x932 ; " - "
0874 01cc | | Execute Vector,Catenate
0875 e404 | | Load 0x2,0x4
0876 e009 | | Load 0x0,0x9
0877 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0878 011c | | Execute Any,Convert_Unchecked
0879 1c01 | | Execute_Immediate Run_Utility,0x1
087a 01cc | | Execute Vector,Catenate
087b 0007 | | Action Break_Optional
087c BODY_0868:
087c 00ec | | Load_Encached Diana_Tree_Cache
087d 00ec | | Load_Encached Diana_Tree_Cache
087e e002 | | Load 0x0,0x2
087f 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0880 e003 | | Load 0x0,0x3
0881 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0882 00ec | | Load_Encached Diana_Tree_Cache
0883 e602 | | Load 0x3,0x2
0884 00ec | | Load_Encached Diana_Tree_Cache
0885 4802 |H | Short_Literal 0x2
0886 e001 | | Load 0x0,0x1
0887 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0888 e001 | | Load 0x0,0x1
0889 1812 | | Execute Package,Field_Execute,Field_Number 0x12
088a c5f9 | | Store 0x2,-0x7
088b 4501 |E | Exit_Suprogram New_Top_Offset 0x1
088c 0000 0000 | | .BLANK 0000[0x4]
0890 ; --------------------------------------------------------------------------------------
0890 ; SUBPROGRAM
0890 ; --------------------------------------------------------------------------------------
0890 089b | | .CONST 0x089b ; Address of begin
0891 0004 | | .CONST 0x0004 ; Address of exception handler
0892 0002 | | .CONST 0x0002 ; Number of locals
0893 INIT_0890:
0893 e5fe | | Load 0x2,-0x2
0894 e009 | | Load 0x0,0x9
0895 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0896 183d | = | Execute Package,Field_Execute,Field_Number 0x3d
0897 0092 093a | :| Action Push_String_Extended,0x93a ; " must be Installed before it can be Coded."
0899 01cc | | Execute Vector,Catenate
089a 0007 | | Action Break_Optional
089b BODY_0890:
089b 00ec | | Load_Encached Diana_Tree_Cache
089c 00ec | | Load_Encached Diana_Tree_Cache
089d e002 | | Load 0x0,0x2
089e 1811 | | Execute Package,Field_Execute,Field_Number 0x11
089f e003 | | Load 0x0,0x3
08a0 1811 | | Execute Package,Field_Execute,Field_Number 0x11
08a1 00ec | | Load_Encached Diana_Tree_Cache
08a2 e602 | | Load 0x3,0x2
08a3 00ec | | Load_Encached Diana_Tree_Cache
08a4 4802 |H | Short_Literal 0x2
08a5 e001 | | Load 0x0,0x1
08a6 181b | | Execute Package,Field_Execute,Field_Number 0x1b
08a7 e001 | | Load 0x0,0x1
08a8 1812 | | Execute Package,Field_Execute,Field_Number 0x12
08a9 c5f9 | | Store 0x2,-0x7
08aa 4501 |E | Exit_Suprogram New_Top_Offset 0x1
08ab 0000 0000 | | .BLANK 0000[0x5]
08b0 ; --------------------------------------------------------------------------------------
08b0 ; SUBPROGRAM
08b0 ; --------------------------------------------------------------------------------------
08b0 08b3 | | .CONST 0x08b3 ; Address of begin
08b1 08d6 | | .CONST 0x08d6 ; Address of exception handler
08b2 0001 | | .CONST 0x0001 ; Number of locals
08b3 BODY_08b0:
08b3 INIT_08b0:
08b3 e408 | | Load 0x2,0x8
08b4 6802 |h | Jump_Zero 0x8b7
08b5 8413 | | Call 0x2,0x13
08b6 4501 |E | Exit_Suprogram New_Top_Offset 0x1
08b7 8412 | | Call 0x2,0x12
08b8 6809 |h | Jump_Zero 0x8c2
08b9 e012 | | Load 0x0,0x12
08ba 1b0d | | Execute Package,Field_Read,Field_Number 0xd
08bb e409 | | Load 0x2,0x9
08bc e406 | | Load 0x2,0x6
08bd e403 | | Load 0x2,0x3
08be e028 | ( | Load 0x0,0x28
08bf 181d | | Execute Package,Field_Execute,Field_Number 0x1d
08c0 c405 | | Store 0x2,0x5
08c1 4501 |E | Exit_Suprogram New_Top_Offset 0x1
08c2 4801 |H | Short_Literal 0x1
08c3 4801 |H | Short_Literal 0x1
08c4 e017 | | Load 0x0,0x17
08c5 1b0f | | Execute Package,Field_Read,Field_Number 0xf
08c6 035b | [ | Declare_Type Array,Constrained
08c7 0337 | 7 | Declare_Variable Array
08c8 e403 | | Load 0x2,0x3
08c9 e017 | | Load 0x0,0x17
08ca 181a | | Execute Package,Field_Execute,Field_Number 0x1a
08cb e017 | | Load 0x0,0x17
08cc 1b0e | | Execute Package,Field_Read,Field_Number 0xe
08cd 0119 | | Execute Any,Check_In_Formal_Type
08ce 4801 |H | Short_Literal 0x1
08cf 00da | | Load_Top At_Offset_2
08d0 01d6 | | Execute Vector,Field_Write
08d1 6026 |`& | Indirect_Literal Discrete,0x8f8,{0x00000000, 0x0000811a}
08d2 e012 | | Load 0x0,0x12
08d3 1813 | | Execute Package,Field_Execute,Field_Number 0x13
08d4 a405 | | Store_Unchecked 0x2,0x5
08d5 4501 |E | Exit_Suprogram New_Top_Offset 0x1
08d6 TRAP_08b0:
08d6 e02e | . | Load 0x0,0x2e
08d7 010f | | Execute Exception,Equal
08d8 6802 |h | Jump_Zero 0x8db
08d9 00d8 | | Load_Top At_Offset_0
08da 0101 | | Execute Exception,Reraise
08db 0092 093b | ;| Action Push_String_Extended,0x93b ; "Cg_Coupler.Promote"
08dd e011 | | Load 0x0,0x11
08de 1810 | | Execute Package,Field_Execute,Field_Number 0x10
08df a405 | | Store_Unchecked 0x2,0x5
08e0 e010 | | Load 0x0,0x10
08e1 180e | | Execute Package,Field_Execute,Field_Number 0xe
08e2 4801 |H | Short_Literal 0x1
08e3 0092 093c | <| Action Push_String_Extended,0x93c ; "Promote: "
08e5 4800 |H | Short_Literal 0x0
08e6 4801 |H | Short_Literal 0x1
08e7 e02b | + | Load 0x0,0x2b
08e8 1815 | | Execute Package,Field_Execute,Field_Number 0x15
08e9 01cc | | Execute Vector,Catenate
08ea 0092 093d | =| Action Push_String_Extended,0x93d ; " raised. At location "
08ec 01cc | | Execute Vector,Catenate
08ed 4800 |H | Short_Literal 0x0
08ee 4801 |H | Short_Literal 0x1
08ef e02b | + | Load 0x0,0x2b
08f0 1816 | | Execute Package,Field_Execute,Field_Number 0x16
08f1 01cc | | Execute Vector,Catenate
08f2 e014 | | Load 0x0,0x14
08f3 1813 | | Execute Package,Field_Execute,Field_Number 0x13
08f4 4501 |E | Exit_Suprogram New_Top_Offset 0x1
08f5 0000 0000 | | .XXX[0x3]
08f7 0000 | |
08f8 0000 0000 | | .LITERAL {0x00000000, 0x0000811a}
08fc 0000 0000 | | .BLANK 0000[0x4]
0900 ; --------------------------------------------------------------------------------------
0900 ; SUBPROGRAM
0900 ; --------------------------------------------------------------------------------------
0900 0914 | | .CONST 0x0914 ; Address of begin
0901 0004 | | .CONST 0x0004 ; Address of exception handler
0902 0002 | | .CONST 0x0002 ; Number of locals
0903 INIT_0900:
0903 0092 0939 | 9| Action Push_String_Extended,0x939 ; "Error while obtaining object for unit "
0905 e5fe | | Load 0x2,-0x2
0906 e009 | | Load 0x0,0x9
0907 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0908 183d | = | Execute Package,Field_Execute,Field_Number 0x3d
0909 01cc | | Execute Vector,Catenate
090a 0092 0932 | 2| Action Push_String_Extended,0x932 ; " - "
090c 01cc | | Execute Vector,Catenate
090d e404 | | Load 0x2,0x4
090e e009 | | Load 0x0,0x9
090f 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0910 011c | | Execute Any,Convert_Unchecked
0911 1c01 | | Execute_Immediate Run_Utility,0x1
0912 01cc | | Execute Vector,Catenate
0913 0007 | | Action Break_Optional
0914 BODY_0900:
0914 00ec | | Load_Encached Diana_Tree_Cache
0915 00ec | | Load_Encached Diana_Tree_Cache
0916 e002 | | Load 0x0,0x2
0917 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0918 e003 | | Load 0x0,0x3
0919 1811 | | Execute Package,Field_Execute,Field_Number 0x11
091a 00ec | | Load_Encached Diana_Tree_Cache
091b e602 | | Load 0x3,0x2
091c 00ec | | Load_Encached Diana_Tree_Cache
091d 4802 |H | Short_Literal 0x2
091e e001 | | Load 0x0,0x1
091f 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0920 e001 | | Load 0x0,0x1
0921 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0922 c5f9 | | Store 0x2,-0x7
0923 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0924 ; --------------------------------------------------------------------------------------
0924 ; STRING TABLE
0924 ; --------------------------------------------------------------------------------------
0924 0036 | 6 | .STRTAB 0x0036->0x093f ; "COMP_COUPLER"
0925 0040 | @ | .STRTAB 0x0040->0x0945 ; "PROGRAMMATIC_INTERFACE"
0926 0054 | T | .STRTAB 0x0054->0x0950 ; "PL_INST"
0927 0059 | Y | .STRTAB 0x0059->0x0953 ; "LIBRARY_UNIT_SPEC"
0928 0068 | h | .STRTAB 0x0068->0x095c ; "LIBRARY_UNIT_BODY"
0929 0077 | w | .STRTAB 0x0077->0x0964 ; "MAIN_PROGRAM_SPEC"
092a 0086 | | .STRTAB 0x0086->0x096d ; "MAIN_PROGRAM_BODY"
092b 0095 | | .STRTAB 0x0095->0x0975 ; "SUBUNIT_BODY"
092c 009f | | .STRTAB 0x009f->0x097b ; "Incremental operations are not allowed in coded units"
092d 00d2 | | .STRTAB 0x00d2->0x0996 ; "Acquiring demotion_effects for "
092e 00ef | | .STRTAB 0x00ef->0x09a5 ; "Entering Current_Phase"
092f 0103 | | .STRTAB 0x0103->0x09b0 ; "Unable to get coding phase"
0930 011b | | .STRTAB 0x011b->0x09bd ; "Unable to retrieve unit state for "
0931 013b | ; | .STRTAB 0x013b->0x09ce ; "Error while obtaining enclosing world for unit "
0932 0168 | h | .STRTAB 0x0168->0x09e6 ; " - "
0933 0169 | i | .STRTAB 0x0169->0x09e7 ; "Acquiring promotion_prerequisites for "
0934 018d | | .STRTAB 0x018d->0x09fa ; "Promoting: "
0935 0197 | | .STRTAB 0x0197->0x0a00 ; "Error while obtaining target key for unit "
0936 01bf | | .STRTAB 0x01bf->0x0a15 ; "Ada unit "
0937 01c6 | | .STRTAB 0x01c6->0x0a1a ; " has nonterminals"
0938 01d5 | | .STRTAB 0x01d5->0x0a22 ; "Demoting: "
0939 01de | | .STRTAB 0x01de->0x0a28 ; "Error while obtaining object for unit "
093a 0202 | | .STRTAB 0x0202->0x0a3b ; " must be Installed before it can be Coded."
093b 022a | * | .STRTAB 0x022a->0x0a50 ; "Cg_Coupler.Promote"
093c 023a | : | .STRTAB 0x023a->0x0a59 ; "Promote: "
093d 0241 | A | .STRTAB 0x0241->0x0a5d ; " raised. At location "
093e 0255 | U | .STREND 0x0255->0x0a68
093f 434f 4d50 |COMP| .STRTAB_STRINGS
0a69 0000 0000 | | .BLANK 0000[0x7]
0a70 ; --------------------------------------------------------------------------------------
0a70 ; Debug Table
0a70 ; --------------------------------------------------------------------------------------
0a70 0004 000d | | .DEBUG4 0x0004,0x000d,0xcee1,0x0000,0x0001,0x0000
0a76 0001 f3fa | | .XXX[0x18a]
0a78 0000 0000 | |
0a7a 0007 e3e0 | |
0a7c 8021 0680 | ! |
0a7e 0002 0d54 | T|
0a80 8000 0000 | |
0a82 0007 e420 | |
0a84 8021 0680 | ! |
0a86 0001 c5b3 | |
0a88 0000 0000 | |
0a8a 0007 e460 | `|
0a8c 8021 0680 | ! |
0a8e 0001 d8a9 | |
0a90 8000 0000 | |
0a92 0007 e4a0 | |
0a94 8021 0680 | ! |
0a96 0001 9038 | 8|
0a98 0000 0000 | |
0a9a 0007 e4e0 | |
0a9c 8021 0680 | ! |
0a9e 0001 a992 | |
0aa0 8000 0000 | |
0aa2 0007 e520 | |
0aa4 8021 0680 | ! |
0aa6 0002 8ebc | |
0aa8 0000 0000 | |
0aaa 0007 e560 | `|
0aac 8021 0680 | ! |
0aae 0002 a1b2 | |
0ab0 8000 0000 | |
0ab2 0007 e5a0 | |
0ab4 8021 0680 | ! |
0ab6 0002 5941 | YA|
0ab8 0000 0000 | |
0aba 0007 e5e0 | |
0abc 8021 0680 | ! |
0abe 0002 729b | r |
0ac0 8000 0000 | |
0ac2 0000 0000 | |
0ac4 0021 0680 | ! |
0ac6 0002 2975 | )u|
0ac8 0000 0000 | |
0aca 0007 e660 | `|
0acc 8021 0680 | ! |
0ace 0002 3df0 | = |
0ad0 8000 0000 | |
0ad2 0007 e6a0 | |
0ad4 8021 0680 | ! |
0ad6 0001 f3fa | |
0ad8 0000 0000 | |
0ada 0007 e6e0 | |
0adc 8021 0680 | ! |
0ade 0002 0d54 | T|
0ae0 8000 0000 | |
0ae2 0007 e720 | |
0ae4 8021 0680 | ! |
0ae6 0001 c5b3 | |
0ae8 0000 0000 | |
0aea 0007 e760 | `|
0aec 8021 0680 | ! |
0aee 0001 d8a9 | |
0af0 8000 0000 | |
0af2 0007 e7a0 | |
0af4 8021 0680 | ! |
0af6 0001 9038 | 8|
0af8 0000 0000 | |
0afa 0007 e7e0 | |
0afc 8021 0680 | ! |
0afe 0001 a992 | |
0b00 8000 0000 | |
0b02 0007 e820 | |
0b04 8021 0680 | ! |
0b06 0002 8ebc | |
0b08 0000 0000 | |
0b0a 0007 e860 | `|
0b0c 8021 0680 | ! |
0b0e 0002 a1b2 | |
0b10 8000 0000 | |
0b12 0007 e8a0 | |
0b14 8021 0680 | ! |
0b16 0002 5941 | YA|
0b18 0000 0000 | |
0b1a 0007 e8e0 | |
0b1c 8021 0680 | ! |
0b1e 0002 729b | r |
0b20 8000 0000 | |
0b22 0000 0000 | |
0b24 0021 0680 | ! |
0b26 0000 5748 | WH|
0b28 8000 0001 | |
0b2a 43b3 7121 |C q!|
0b2c 4001 f988 |@ |
0b2e 23b3 7121 |# q!|
0b30 4001 f8ab |@ |
0b32 e3b9 cda1 | |
0b34 4000 2cab |@ , |
0b36 e000 0000 | |
0b38 0001 fa74 | t|
0b3a 63b9 cda1 |c |
0b3c 4000 2bdb |@ + |
0b3e 0000 0000 | |
0b40 0001 fa84 | |
0b42 63b9 cda1 |c |
0b44 4000 2aeb |@ * |
0b46 2000 0000 | |
0b48 0001 fa94 | |
0b4a 63b9 cda1 |c |
0b4c 4000 2a1a |@ * |
0b4e 4000 0000 |@ |
0b50 0001 faa4 | |
0b52 6008 41a0 |` A |
0b54 0000 9ca6 | |
0b56 e000 0000 | |
0b58 0001 fab4 | |
0b5a 6008 41a0 |` A |
0b5c 0000 9650 | P|
0b5e 4000 0000 |@ |
0b60 0001 fac4 | |
0b62 6008 41a0 |` A |
0b64 0000 a86c | l|
0b66 a000 0000 | |
0b68 0001 fad4 | |
0b6a 6008 41a0 |` A |
0b6c 0000 a3af | |
0b6e 0000 0000 | |
0b70 0001 fae4 | |
0b72 6008 41a0 |` A |
0b74 0000 6a64 | jd|
0b76 a000 0000 | |
0b78 0001 faf4 | |
0b7a 6008 41a0 |` A |
0b7c 0000 640e | d |
0b7e 0000 0000 | |
0b80 0001 fb04 | |
0b82 6008 41a0 |` A |
0b84 0000 762a | v*|
0b86 6000 0000 |` |
0b88 0001 fb14 | |
0b8a 6008 41a0 |` A |
0b8c 0000 716c | ql|
0b8e c000 0000 | |
0b90 0001 fb24 | $|
0b92 6008 41a0 |` A |
0b94 0000 8355 | U|
0b96 2000 0000 | |
0b98 0001 fb34 | 4|
0b9a 6008 41a0 |` A |
0b9c 0000 7cfe | | |
0b9e 8000 0000 | |
0ba0 0001 fb44 | D|
0ba2 6008 41a0 |` A |
0ba4 0000 8f7c | ||
0ba6 2000 0000 | |
0ba8 0001 fb54 | T|
0baa 6008 41a0 |` A |
0bac 0000 8a5d | ]|
0bae 4000 0000 |@ |
0bb0 0000 0000 | |
0bb2 03ba e1a1 | |
0bb4 4006 9a08 |@ |
0bb6 8000 0000 | |
0bb8 0001 fa64 | d|
0bba 6000 0000 |` |
0bbc 0001 74eb | t |
0bbe 31dc e6d0 |1 |
0bc0 a000 1655 | U|
0bc2 f000 0000 | |
0bc4 0000 0000 | |
0bc6 01dc e6d0 | |
0bc8 a000 15ed | |
0bca 8000 0000 | |
0bcc 0000 fdbe | |
0bce 41dc e6d0 |A |
0bd0 a000 1575 | u|
0bd2 9000 0000 | |
0bd4 0000 fdc6 | |
0bd6 41dc e6d0 |A |
0bd8 a000 150d | |
0bda 2000 0000 | |
0bdc 0000 fdce | |
0bde 4004 20d0 |@ |
0be0 0000 4e53 | NS|
0be2 7000 0000 |p |
0be4 0000 fdd6 | |
0be6 4004 20d0 |@ |
0be8 0000 4b28 | K(|
0bea 2000 0000 | |
0bec 0000 fdde | |
0bee 4004 20d0 |@ |
0bf0 0000 5436 | T6|
0bf2 5000 0000 |P |
0bf4 0000 fde6 | |
0bf6 4004 20d0 |@ |
0bf8 0000 51d7 | Q |
0bfa 8000 0000 | |
0bfc 0000 fdee | |
0bfe 4004 20d0 |@ |