|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 8192 (0x2000) Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_ccb0b3
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000 └─ ⟦cfc2e13cd⟧ »Space Info Vol 2« └─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code 0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 0e58 | X | .CONST 0x0e58 ; 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 8009 | | .CONST 0x8009 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 01ca | | .CONST 0x01ca ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0085 | | .CONST 0x0085 ; Number of locals 000b INIT_0008: 000b 4800 |H | Short_Literal 0x0 000c 48ff |H | Short_Literal 0xff 000d 00e5 | | Load_Encached Long_Integer_Cache 000e 03f9 | | Declare_Type Discrete,Constrained,Visible 000f 029a 01db | | Declare_Subprogram INIT_01d8,For_Outer_Call,Visible,Unelaborated 0011 029a 01e3 | | Declare_Subprogram INIT_01e0,For_Outer_Call,Visible,Unelaborated 0013 00c4 | | Action Make_Default 0014 00c4 | | Action Make_Default 0015 00c4 | | Action Make_Default 0016 00c4 | | Action Make_Default 0017 00c4 | | Action Make_Default 0018 00c4 | | Action Make_Default 0019 00c4 | | Action Make_Default 001a 00c4 | | Action Make_Default 001b 00c4 | | Action Make_Default 001c 00c4 | | Action Make_Default 001d 00c4 | | Action Make_Default 001e 00c4 | | Action Make_Default 001f 00c4 | | Action Make_Default 0020 00c4 | | Action Make_Default 0021 00c4 | | Action Make_Default 0022 00c4 | | Action Make_Default 0023 00c4 | | Action Make_Default 0024 00c4 | | Action Make_Default 0025 00c4 | | Action Make_Default 0026 00c4 | | Action Make_Default 0027 00c4 | | Action Make_Default 0028 00c4 | | Action Make_Default 0029 00c4 | | Action Make_Default 002a 00c4 | | Action Make_Default 002b 00c4 | | Action Make_Default 002c 00c4 | | Action Make_Default 002d 00c4 | | Action Make_Default 002e 00c4 | | Action Make_Default 002f 00c4 | | Action Make_Default 0030 00c4 | | Action Make_Default 0031 00c4 | | Action Make_Default 0032 00c4 | | Action Make_Default 0033 00c4 | | Action Make_Default 0034 00c4 | | Action Make_Default 0035 00c4 | | Action Make_Default 0036 00c4 | | Action Make_Default 0037 00c4 | | Action Make_Default 0038 00c4 | | Action Make_Default 0039 00c4 | | Action Make_Default 003a 00c4 | | Action Make_Default 003b 00c4 | | Action Make_Default 003c 00c4 | | Action Make_Default 003d 00c4 | | Action Make_Default 003e 00c4 | | Action Make_Default 003f 4802 |H | Short_Literal 0x2 0040 032b | + | Declare_Type Record,Incomplete,Visible 0041 c239 | 9 | Store 0x1,0x39 0042 00da | | Load_Top At_Offset_2 0043 02a0 | | Declare_Subprogram Null_Subprogram 0044 03ae | | Declare_Type Heap_Access,Defined,Visible 0045 c212 | | Store 0x1,0x12 0046 e212 | | Load 0x1,0x12 0047 0129 | ) | Execute Any,Make_Visible 0048 c213 | | Store 0x1,0x13 0049 03a6 | | Declare_Type Heap_Access,Indirect_Literal,Visible,Values_Relative 004a e212 | | Load 0x1,0x12 004b 00d9 | | Load_Top At_Offset_1 004c 03a2 | | Complete_Type Heap_Access,By_Renaming 004d c21c | | Store 0x1,0x1c 004e 00e2 | | Load_Encached Integer_Cache 004f 0129 | ) | Execute Any,Make_Visible 0050 c23a | : | Store 0x1,0x3a 0051 00d9 | | Load_Top At_Offset_1 0052 e21c | | Load 0x1,0x1c 0053 02a0 | | Declare_Subprogram Null_Subprogram 0054 e239 | 9 | Load 0x1,0x39 0055 0326 | & | Complete_Type Record,By_Defining 0056 4805 |H | Short_Literal 0x5 0057 032b | + | Declare_Type Record,Incomplete,Visible 0058 c23b | ; | Store 0x1,0x3b 0059 00d8 | | Load_Top At_Offset_0 005a 02a0 | | Declare_Subprogram Null_Subprogram 005b 03ae | | Declare_Type Heap_Access,Defined,Visible 005c c215 | | Store 0x1,0x15 005d e215 | | Load 0x1,0x15 005e 0129 | ) | Execute Any,Make_Visible 005f c216 | | Store 0x1,0x16 0060 03a6 | | Declare_Type Heap_Access,Indirect_Literal,Visible,Values_Relative 0061 e215 | | Load 0x1,0x15 0062 00d9 | | Load_Top At_Offset_1 0063 03a2 | | Complete_Type Heap_Access,By_Renaming 0064 c21e | | Store 0x1,0x1e 0065 e001 | | Load 0x0,0x1 0066 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0067 00ec | | Load_Encached Diana_Tree_Cache 0068 00db | | Load_Top At_Offset_3 0069 00e3 | | Load_Encached Natural_Cache 006a e21e | | Load 0x1,0x1e 006b 029f 0ceb | | Declare_Subprogram INIT_0ce8,For_Call 006d e23b | ; | Load 0x1,0x3b 006e 0326 | & | Complete_Type Record,By_Defining 006f 4802 |H | Short_Literal 0x2 0070 032b | + | Declare_Type Record,Incomplete,Visible 0071 c22c | , | Store 0x1,0x2c 0072 e22c | , | Load 0x1,0x2c 0073 02a0 | | Declare_Subprogram Null_Subprogram 0074 03ae | | Declare_Type Heap_Access,Defined,Visible 0075 c22d | - | Store 0x1,0x2d 0076 e22d | - | Load 0x1,0x2d 0077 0129 | ) | Execute Any,Make_Visible 0078 c22e | . | Store 0x1,0x2e 0079 03a6 | | Declare_Type Heap_Access,Indirect_Literal,Visible,Values_Relative 007a e22d | - | Load 0x1,0x2d 007b 00d9 | | Load_Top At_Offset_1 007c 03a2 | | Complete_Type Heap_Access,By_Renaming 007d c22f | / | Store 0x1,0x2f 007e 00ec | | Load_Encached Diana_Tree_Cache 007f e22f | / | Load 0x1,0x2f 0080 029f 0d13 | | Declare_Subprogram INIT_0d10,For_Call 0082 e22c | , | Load 0x1,0x2c 0083 0326 | & | Complete_Type Record,By_Defining 0084 4801 |H | Short_Literal 0x1 0085 4800 |H | Short_Literal 0x0 0086 49a0 |I | Short_Literal 0x1a0 0087 00eb | | Load_Encached Diana_Cache 0088 0098 | | Execute Package,Field_Read_Dynamic 0089 035b | [ | Declare_Type Array,Constrained 008a 0336 | 6 | Declare_Variable Array,Visible 008b 00d8 | | Load_Top At_Offset_0 008c 0335 | 5 | Declare_Variable Array,Duplicate 008d 00cd | | Action Spare6_Action 008e 00d9 | | Load_Top At_Offset_1 008f 01d4 | | Execute Vector,Structure_Write 0090 c237 | 7 | Store 0x1,0x37 0091 029a 01f3 | | Declare_Subprogram INIT_01f0,For_Outer_Call,Visible,Unelaborated 0093 c228 | ( | Store 0x1,0x28 0094 029a 020b | | Declare_Subprogram INIT_0208,For_Outer_Call,Visible,Unelaborated 0096 c229 | ) | Store 0x1,0x29 0097 029a 0223 | #| Declare_Subprogram INIT_0220,For_Outer_Call,Visible,Unelaborated 0099 c230 | 0 | Store 0x1,0x30 009a 029a 0243 | C| Declare_Subprogram INIT_0240,For_Outer_Call,Visible,Unelaborated 009c c231 | 1 | Store 0x1,0x31 009d 029a 024b | K| Declare_Subprogram INIT_0248,For_Outer_Call,Visible,Unelaborated 009f c232 | 2 | Store 0x1,0x32 00a0 029a 0263 | c| Declare_Subprogram INIT_0260,For_Outer_Call,Visible,Unelaborated 00a2 c238 | 8 | Store 0x1,0x38 00a3 029a 0273 | s| Declare_Subprogram INIT_0270,For_Outer_Call,Visible,Unelaborated 00a5 c236 | 6 | Store 0x1,0x36 00a6 00bf | | Action Accept_Activation 00a7 e20d | | Load 0x1,0xd 00a8 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 00a9 e20d | | Load 0x1,0xd 00aa e001 | | Load 0x0,0x1 00ab 1b30 | 0 | Execute Package,Field_Read,Field_Number 0x30 00ac e001 | | Load 0x0,0x1 00ad 1b30 | 0 | Execute Package,Field_Read,Field_Number 0x30 00ae e001 | | Load 0x0,0x1 00af 1b30 | 0 | Execute Package,Field_Read,Field_Number 0x30 00b0 e001 | | Load 0x0,0x1 00b1 1b30 | 0 | Execute Package,Field_Read,Field_Number 0x30 00b2 e001 | | Load 0x0,0x1 00b3 1b30 | 0 | Execute Package,Field_Read,Field_Number 0x30 00b4 029f 02e3 | | Declare_Subprogram INIT_02e0,For_Call 00b6 4806 |H | Short_Literal 0x6 00b7 032d | - | Declare_Type Record,Defined 00b8 00d8 | | Load_Top At_Offset_0 00b9 02a0 | | Declare_Subprogram Null_Subprogram 00ba 03ad | | Declare_Type Heap_Access,Defined 00bb e216 | | Load 0x1,0x16 00bc e213 | | Load 0x1,0x13 00bd 02a0 | | Declare_Subprogram Null_Subprogram 00be 4802 |H | Short_Literal 0x2 00bf 032d | - | Declare_Type Record,Defined 00c0 00d8 | | Load_Top At_Offset_0 00c1 e22e | . | Load 0x1,0x2e 00c2 02a0 | | Declare_Subprogram Null_Subprogram 00c3 4802 |H | Short_Literal 0x2 00c4 032d | - | Declare_Type Record,Defined 00c5 49a0 |I | Short_Literal 0x1a0 00c6 00eb | | Load_Encached Diana_Cache 00c7 0098 | | Execute Package,Field_Read_Dynamic 00c8 02a0 | | Declare_Subprogram Null_Subprogram 00c9 03ad | | Declare_Type Heap_Access,Defined 00ca 00d9 | | Load_Top At_Offset_1 00cb 00d9 | | Load_Top At_Offset_1 00cc 02a0 | | Declare_Subprogram Null_Subprogram 00cd 4802 |H | Short_Literal 0x2 00ce 032d | - | Declare_Type Record,Defined 00cf 00d8 | | Load_Top At_Offset_0 00d0 02a0 | | Declare_Subprogram Null_Subprogram 00d1 03ad | | Declare_Type Heap_Access,Defined 00d2 4800 |H | Short_Literal 0x0 00d3 4801 |H | Short_Literal 0x1 00d4 029f 0313 | | Declare_Subprogram INIT_0310,For_Call 00d6 03fd | | Declare_Type Discrete,Defined 00d7 e002 | | Load 0x0,0x2 00d8 e003 | | Load 0x0,0x3 00d9 e23d | = | Load 0x1,0x3d 00da e23e | > | Load 0x1,0x3e 00db e242 | B | Load 0x1,0x42 00dc e243 | C | Load 0x1,0x43 00dd e001 | | Load 0x0,0x1 00de 1b74 | t | Execute Package,Field_Read,Field_Number 0x74 00df 0387 | | Declare_Variable Package 00e0 00d8 | | Load_Top At_Offset_0 00e1 020f | | Execute Module,Activate 00e2 029d 033b | ;| Declare_Subprogram INIT_0338,For_Outer_Call 00e4 029d 034b | K| Declare_Subprogram INIT_0348,For_Outer_Call 00e6 029d 035b | [| Declare_Subprogram INIT_0358,For_Outer_Call 00e8 029d 036b | k| Declare_Subprogram INIT_0368,For_Outer_Call 00ea e004 | | Load 0x0,0x4 00eb e005 | | Load 0x0,0x5 00ec e242 | B | Load 0x1,0x42 00ed e243 | C | Load 0x1,0x43 00ee e001 | | Load 0x0,0x1 00ef 1b6d | m | Execute Package,Field_Read,Field_Number 0x6d 00f0 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00f1 0387 | | Declare_Variable Package 00f2 00d8 | | Load_Top At_Offset_0 00f3 020f | | Execute Module,Activate 00f4 029d 037b | {| Declare_Subprogram INIT_0378,For_Outer_Call 00f6 029d 0393 | | Declare_Subprogram INIT_0390,For_Outer_Call 00f8 e006 | | Load 0x0,0x6 00f9 e007 | | Load 0x0,0x7 00fa e23b | ; | Load 0x1,0x3b 00fb e215 | | Load 0x1,0x15 00fc e001 | | Load 0x0,0x1 00fd 1b6d | m | Execute Package,Field_Read,Field_Number 0x6d 00fe 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00ff 0387 | | Declare_Variable Package 0100 00d8 | | Load_Top At_Offset_0 0101 020f | | Execute Module,Activate 0102 e008 | | Load 0x0,0x8 0103 e009 | | Load 0x0,0x9 0104 e239 | 9 | Load 0x1,0x39 0105 e212 | | Load 0x1,0x12 0106 e001 | | Load 0x0,0x1 0107 1b6d | m | Execute Package,Field_Read,Field_Number 0x6d 0108 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0109 0387 | | Declare_Variable Package 010a 00d8 | | Load_Top At_Offset_0 010b 020f | | Execute Module,Activate 010c e00a | | Load 0x0,0xa 010d e00b | | Load 0x0,0xb 010e e22c | , | Load 0x1,0x2c 010f e22d | - | Load 0x1,0x2d 0110 e001 | | Load 0x0,0x1 0111 1b6d | m | Execute Package,Field_Read,Field_Number 0x6d 0112 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0113 0387 | | Declare_Variable Package 0114 00d8 | | Load_Top At_Offset_0 0115 020f | | Execute Module,Activate 0116 029d 03a3 | | Declare_Subprogram INIT_03a0,For_Outer_Call 0118 029d 03b3 | | Declare_Subprogram INIT_03b0,For_Outer_Call 011a 029d 03bb | | Declare_Subprogram INIT_03b8,For_Outer_Call 011c e00c | | Load 0x0,0xc 011d e00d | | Load 0x0,0xd 011e 49a0 |I | Short_Literal 0x1a0 011f 00eb | | Load_Encached Diana_Cache 0120 0098 | | Execute Package,Field_Read_Dynamic 0121 e241 | A | Load 0x1,0x41 0122 1d50 | P | Execute_Immediate Reference_Lex_1,0x50 0123 1d51 | Q | Execute_Immediate Reference_Lex_1,0x51 0124 1d52 | R | Execute_Immediate Reference_Lex_1,0x52 0125 e001 | | Load 0x0,0x1 0126 1b6d | m | Execute Package,Field_Read,Field_Number 0x6d 0127 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0128 0387 | | Declare_Variable Package 0129 00d8 | | Load_Top At_Offset_0 012a 020f | | Execute Module,Activate 012b 029d 03c3 | | Declare_Subprogram INIT_03c0,For_Outer_Call 012d 029d 03db | | Declare_Subprogram INIT_03d8,For_Outer_Call 012f 029d 03eb | | Declare_Subprogram INIT_03e8,For_Outer_Call 0131 029d 0403 | | Declare_Subprogram INIT_0400,For_Outer_Call 0133 029d 0413 | | Declare_Subprogram INIT_0410,For_Outer_Call 0135 029d 042b | +| Declare_Subprogram INIT_0428,For_Outer_Call 0137 029d 043b | ;| Declare_Subprogram INIT_0438,For_Outer_Call 0139 029d 0453 | S| Declare_Subprogram INIT_0450,For_Outer_Call 013b 029d 0463 | c| Declare_Subprogram INIT_0460,For_Outer_Call 013d 1d0e | | Execute_Immediate Reference_Lex_1,0xe 013e 00c7 | | Action Elaborate_Subprogram 013f 1d0f | | Execute_Immediate Reference_Lex_1,0xf 0140 00c7 | | Action Elaborate_Subprogram 0141 1d28 | ( | Execute_Immediate Reference_Lex_1,0x28 0142 00c7 | | Action Elaborate_Subprogram 0143 1d29 | ) | Execute_Immediate Reference_Lex_1,0x29 0144 00c7 | | Action Elaborate_Subprogram 0145 1d32 | 2 | Execute_Immediate Reference_Lex_1,0x32 0146 00c7 | | Action Elaborate_Subprogram 0147 1d30 | 0 | Execute_Immediate Reference_Lex_1,0x30 0148 00c7 | | Action Elaborate_Subprogram 0149 1d31 | 1 | Execute_Immediate Reference_Lex_1,0x31 014a 00c7 | | Action Elaborate_Subprogram 014b 1d38 | 8 | Execute_Immediate Reference_Lex_1,0x38 014c 00c7 | | Action Elaborate_Subprogram 014d 1d36 | 6 | Execute_Immediate Reference_Lex_1,0x36 014e 00c7 | | Action Elaborate_Subprogram 014f 029d 04db | | Declare_Subprogram INIT_04d8,For_Outer_Call 0151 029d 04fb | | Declare_Subprogram INIT_04f8,For_Outer_Call 0153 029d 0503 | | Declare_Subprogram INIT_0500,For_Outer_Call 0155 029d 059b | | Declare_Subprogram INIT_0598,For_Outer_Call 0157 029d 05a3 | | Declare_Subprogram INIT_05a0,For_Outer_Call 0159 029d 05ab | | Declare_Subprogram INIT_05a8,For_Outer_Call 015b 029d 05b3 | | Declare_Subprogram INIT_05b0,For_Outer_Call 015d 029d 05bb | | Declare_Subprogram INIT_05b8,For_Outer_Call 015f 029d 05f3 | | Declare_Subprogram INIT_05f0,For_Outer_Call 0161 029d 060b | | Declare_Subprogram INIT_0608,For_Outer_Call 0163 029d 0623 | #| Declare_Subprogram INIT_0620,For_Outer_Call 0165 029b 06a3 | | Declare_Subprogram INIT_06a0,For_Outer_Call,Unelaborated 0167 1d68 | h | Execute_Immediate Reference_Lex_1,0x68 0168 00c7 | | Action Elaborate_Subprogram 0169 029d 06ab | | Declare_Subprogram INIT_06a8,For_Outer_Call 016b 029d 06e3 | | Declare_Subprogram INIT_06e0,For_Outer_Call 016d 029d 0713 | | Declare_Subprogram INIT_0710,For_Outer_Call 016f 029d 071b | | Declare_Subprogram INIT_0718,For_Outer_Call 0171 029d 0723 | #| Declare_Subprogram INIT_0720,For_Outer_Call 0173 029d 074b | K| Declare_Subprogram INIT_0748,For_Outer_Call 0175 029d 0753 | S| Declare_Subprogram INIT_0750,For_Outer_Call 0177 029d 076b | k| Declare_Subprogram INIT_0768,For_Outer_Call 0179 029d 0793 | | Declare_Subprogram INIT_0790,For_Outer_Call 017b 029d 07c3 | | Declare_Subprogram INIT_07c0,For_Outer_Call 017d 029d 07cb | | Declare_Subprogram INIT_07c8,For_Outer_Call 017f 029d 07d3 | | Declare_Subprogram INIT_07d0,For_Outer_Call 0181 029d 07db | | Declare_Subprogram INIT_07d8,For_Outer_Call 0183 029d 07e3 | | Declare_Subprogram INIT_07e0,For_Outer_Call 0185 029d 07eb | | Declare_Subprogram INIT_07e8,For_Outer_Call 0187 029d 07f3 | | Declare_Subprogram INIT_07f0,For_Outer_Call 0189 029d 07fb | | Declare_Subprogram INIT_07f8,For_Outer_Call 018b 029d 0803 | | Declare_Subprogram INIT_0800,For_Outer_Call 018d 029d 0813 | | Declare_Subprogram INIT_0810,For_Outer_Call 018f 029d 0823 | #| Declare_Subprogram INIT_0820,For_Outer_Call 0191 029d 082b | +| Declare_Subprogram INIT_0828,For_Outer_Call 0193 029d 0833 | 3| Declare_Subprogram INIT_0830,For_Outer_Call 0195 029d 083b | ;| Declare_Subprogram INIT_0838,For_Outer_Call 0197 029d 0843 | C| Declare_Subprogram INIT_0840,For_Outer_Call 0199 029d 084b | K| Declare_Subprogram INIT_0848,For_Outer_Call 019b 029d 0873 | s| Declare_Subprogram INIT_0870,For_Outer_Call 019d 029d 089b | | Declare_Subprogram INIT_0898,For_Outer_Call 019f 029d 08a3 | | Declare_Subprogram INIT_08a0,For_Outer_Call 01a1 e00e | | Load 0x0,0xe 01a2 e00f | | Load 0x0,0xf 01a3 1d5d | ] | Execute_Immediate Reference_Lex_1,0x5d 01a4 1d5e | ^ | Execute_Immediate Reference_Lex_1,0x5e 01a5 1d5f | _ | Execute_Immediate Reference_Lex_1,0x5f 01a6 1d60 | ` | Execute_Immediate Reference_Lex_1,0x60 01a7 1d64 | d | Execute_Immediate Reference_Lex_1,0x64 01a8 1d63 | c | Execute_Immediate Reference_Lex_1,0x63 01a9 1d6c | l | Execute_Immediate Reference_Lex_1,0x6c 01aa 1d6a | j | Execute_Immediate Reference_Lex_1,0x6a 01ab 1d6b | k | Execute_Immediate Reference_Lex_1,0x6b 01ac 1d6d | m | Execute_Immediate Reference_Lex_1,0x6d 01ad 1d6e | n | Execute_Immediate Reference_Lex_1,0x6e 01ae 1d6f | o | Execute_Immediate Reference_Lex_1,0x6f 01af 1d81 | | Execute_Immediate Reference_Lex_1,0x81 01b0 1d82 | | Execute_Immediate Reference_Lex_1,0x82 01b1 1d83 | | Execute_Immediate Reference_Lex_1,0x83 01b2 1d70 | p | Execute_Immediate Reference_Lex_1,0x70 01b3 1d71 | q | Execute_Immediate Reference_Lex_1,0x71 01b4 1d72 | r | Execute_Immediate Reference_Lex_1,0x72 01b5 1d73 | s | Execute_Immediate Reference_Lex_1,0x73 01b6 1d74 | t | Execute_Immediate Reference_Lex_1,0x74 01b7 1d75 | u | Execute_Immediate Reference_Lex_1,0x75 01b8 1d76 | v | Execute_Immediate Reference_Lex_1,0x76 01b9 1d77 | w | Execute_Immediate Reference_Lex_1,0x77 01ba 1d61 | a | Execute_Immediate Reference_Lex_1,0x61 01bb 1d62 | b | Execute_Immediate Reference_Lex_1,0x62 01bc 1d78 | x | Execute_Immediate Reference_Lex_1,0x78 01bd 1d84 | | Execute_Immediate Reference_Lex_1,0x84 01be 1d79 | y | Execute_Immediate Reference_Lex_1,0x79 01bf 1d7a | z | Execute_Immediate Reference_Lex_1,0x7a 01c0 1d7c | | | Execute_Immediate Reference_Lex_1,0x7c 01c1 1d7b | { | Execute_Immediate Reference_Lex_1,0x7b 01c2 1d7d | } | Execute_Immediate Reference_Lex_1,0x7d 01c3 1d7f | | Execute_Immediate Reference_Lex_1,0x7f 01c4 1d7e | ~ | Execute_Immediate Reference_Lex_1,0x7e 01c5 e010 | | Load 0x0,0x10 01c6 1b17 | | Execute Package,Field_Read,Field_Number 0x17 01c7 0387 | | Declare_Variable Package 01c8 00d8 | | Load_Top At_Offset_0 01c9 020f | | Execute Module,Activate 01ca BODY_0008: 01ca e011 | | Load 0x0,0x11 01cb 180d | | Execute Package,Field_Execute,Field_Number 0xd 01cc 00d9 | | Load_Top At_Offset_1 01cd 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 01ce e010 | | Load 0x0,0x10 01cf 1818 | | Execute Package,Field_Execute,Field_Number 0x18 01d0 8012 | | Call 0x0,0x12 01d1 00bc | | Action Signal_Activated 01d2 00bb | | Action Signal_Completion 01d3 0000 0000 | | .BLANK 0000[0x5] 01d8 ; -------------------------------------------------------------------------------------- 01d8 ; SUBPROGRAM 01d8 ; -------------------------------------------------------------------------------------- 01d8 01db | | .CONST 0x01db ; Address of begin 01d9 0004 | | .CONST 0x0004 ; Address of exception handler 01da 0001 | | .CONST 0x0001 ; Number of locals 01db BODY_01d8: 01db INIT_01d8: 01db e23c | < | Load 0x1,0x3c 01dc 00ca | | Action Exit_Nullary_Function 01dd 0000 0000 | | .XXX[0x3] 01df 0000 | | 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 00da | | Load_Top At_Offset_2 01e4 e001 | | Load 0x0,0x1 01e5 1b6b | k | Execute Package,Field_Read,Field_Number 0x6b 01e6 1812 | | Execute Package,Field_Execute,Field_Number 0x12 01e7 e245 | E | Load 0x1,0x45 01e8 1813 | | Execute Package,Field_Execute,Field_Number 0x13 01e9 0217 | | Execute Heap_Access,All_Reference 01ea 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 01eb 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01ec 0000 0000 | | .BLANK 0000[0x4] 01f0 ; -------------------------------------------------------------------------------------- 01f0 ; SUBPROGRAM 01f0 ; -------------------------------------------------------------------------------------- 01f0 01f3 | | .CONST 0x01f3 ; Address of begin 01f1 0004 | | .CONST 0x0004 ; Address of exception handler 01f2 0001 | | .CONST 0x0001 ; Number of locals 01f3 BODY_01f0: 01f3 INIT_01f0: 01f3 00da | | Load_Top At_Offset_2 01f4 e001 | | Load 0x0,0x1 01f5 1b6c | l | Execute Package,Field_Read,Field_Number 0x6c 01f6 1819 | | Execute Package,Field_Execute,Field_Number 0x19 01f7 6804 |h | Jump_Zero 0x1fc 01f8 e001 | | Load 0x0,0x1 01f9 1b6c | l | Execute Package,Field_Read,Field_Number 0x6c 01fa 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01fb 0257 | W | Execute Discrete,Raise 01fc 00da | | Load_Top At_Offset_2 01fd e001 | | Load 0x0,0x1 01fe 1b6c | l | Execute Package,Field_Read,Field_Number 0x6c 01ff 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36 0200 e245 | E | Load 0x1,0x45 0201 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0202 0217 | | Execute Heap_Access,All_Reference 0203 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0204 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0205 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0206 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0207 0000 | | .XXX[0x1] 0208 ; -------------------------------------------------------------------------------------- 0208 ; SUBPROGRAM 0208 ; -------------------------------------------------------------------------------------- 0208 020b | | .CONST 0x020b ; Address of begin 0209 0004 | | .CONST 0x0004 ; Address of exception handler 020a 0001 | | .CONST 0x0001 ; Number of locals 020b BODY_0208: 020b INIT_0208: 020b 00da | | Load_Top At_Offset_2 020c e001 | | Load 0x0,0x1 020d 1b6c | l | Execute Package,Field_Read,Field_Number 0x6c 020e 1819 | | Execute Package,Field_Execute,Field_Number 0x19 020f 6804 |h | Jump_Zero 0x214 0210 e001 | | Load 0x0,0x1 0211 1b6c | l | Execute Package,Field_Read,Field_Number 0x6c 0212 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0213 0257 | W | Execute Discrete,Raise 0214 00da | | Load_Top At_Offset_2 0215 e001 | | Load 0x0,0x1 0216 1b6c | l | Execute Package,Field_Read,Field_Number 0x6c 0217 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36 0218 e245 | E | Load 0x1,0x45 0219 1815 | | Execute Package,Field_Execute,Field_Number 0x15 021a 0217 | | Execute Heap_Access,All_Reference 021b 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 021c 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 021d 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 021e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 021f 0000 | | .XXX[0x1] 0220 ; -------------------------------------------------------------------------------------- 0220 ; SUBPROGRAM 0220 ; -------------------------------------------------------------------------------------- 0220 022f | / | .CONST 0x022f ; Address of begin 0221 0004 | | .CONST 0x0004 ; Address of exception handler 0222 0005 | | .CONST 0x0005 ; Number of locals 0223 INIT_0220: 0223 e22d | - | Load 0x1,0x2d 0224 0007 | | Action Break_Optional 0225 e5fe | | Load 0x2,-0x2 0226 8248 | H | Call 0x1,0x48 0227 00d8 | | Load_Top At_Offset_0 0228 0217 | | Execute Heap_Access,All_Reference 0229 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 022a 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 022b e22f | / | Load 0x1,0x2f 022c 0216 | | Execute Heap_Access,Convert 022d 029f 08ab | | Declare_Subprogram INIT_08a8,For_Call 022f BODY_0220: 022f e22d | - | Load 0x1,0x2d 0230 e5fd | | Load 0x2,-0x3 0231 8258 | X | Call 0x1,0x58 0232 c402 | | Store 0x2,0x2 0233 e5ff | | Load 0x2,-0x1 0234 e402 | | Load 0x2,0x2 0235 0217 | | Execute Heap_Access,All_Reference 0236 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0237 e22f | / | Load 0x1,0x2f 0238 e402 | | Load 0x2,0x2 0239 0217 | | Execute Heap_Access,All_Reference 023a 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 023b 00db | | Load_Top At_Offset_3 023c 8405 | | Call 0x2,0x5 023d 4504 |E | Exit_Suprogram New_Top_Offset 0x4 023e 0000 0000 | | .XXX[0x2] 0240 ; -------------------------------------------------------------------------------------- 0240 ; SUBPROGRAM 0240 ; -------------------------------------------------------------------------------------- 0240 0243 | C | .CONST 0x0243 ; Address of begin 0241 0004 | | .CONST 0x0004 ; Address of exception handler 0242 0001 | | .CONST 0x0001 ; Number of locals 0243 BODY_0240: 0243 INIT_0240: 0243 0833 | 3 | Execute_Immediate Raise,0x33 0244 0000 0000 | | .BLANK 0000[0x4] 0248 ; -------------------------------------------------------------------------------------- 0248 ; SUBPROGRAM 0248 ; -------------------------------------------------------------------------------------- 0248 024b | K | .CONST 0x024b ; Address of begin 0249 0004 | | .CONST 0x0004 ; Address of exception handler 024a 0001 | | .CONST 0x0001 ; Number of locals 024b BODY_0248: 024b INIT_0248: 024b 00da | | Load_Top At_Offset_2 024c e001 | | Load 0x0,0x1 024d 1b6c | l | Execute Package,Field_Read,Field_Number 0x6c 024e 1819 | | Execute Package,Field_Execute,Field_Number 0x19 024f 6804 |h | Jump_Zero 0x254 0250 e001 | | Load 0x0,0x1 0251 1b6c | l | Execute Package,Field_Read,Field_Number 0x6c 0252 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0253 0257 | W | Execute Discrete,Raise 0254 00da | | Load_Top At_Offset_2 0255 e001 | | Load 0x0,0x1 0256 1b6c | l | Execute Package,Field_Read,Field_Number 0x6c 0257 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36 0258 e245 | E | Load 0x1,0x45 0259 1815 | | Execute Package,Field_Execute,Field_Number 0x15 025a 0217 | | Execute Heap_Access,All_Reference 025b 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 025c 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 025d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 025e 0000 0000 | | .XXX[0x2] 0260 ; -------------------------------------------------------------------------------------- 0260 ; SUBPROGRAM 0260 ; -------------------------------------------------------------------------------------- 0260 0265 | e | .CONST 0x0265 ; Address of begin 0261 0004 | | .CONST 0x0004 ; Address of exception handler 0262 0002 | | .CONST 0x0002 ; Number of locals 0263 INIT_0260: 0263 029f 08d3 | | Declare_Subprogram INIT_08d0,For_Call 0265 BODY_0260: 0265 00db | | Load_Top At_Offset_3 0266 e001 | | Load 0x0,0x1 0267 1b6c | l | Execute Package,Field_Read,Field_Number 0x6c 0268 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0269 6804 |h | Jump_Zero 0x26e 026a e001 | | Load 0x0,0x1 026b 1b6c | l | Execute Package,Field_Read,Field_Number 0x6c 026c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 026d 0257 | W | Execute Discrete,Raise 026e 8402 | | Call 0x2,0x2 026f 0831 | 1 | Execute_Immediate Raise,0x31 0270 ; -------------------------------------------------------------------------------------- 0270 ; SUBPROGRAM 0270 ; -------------------------------------------------------------------------------------- 0270 028f | | .CONST 0x028f ; Address of begin 0271 0004 | | .CONST 0x0004 ; Address of exception handler 0272 000b | | .CONST 0x000b ; Number of locals 0273 INIT_0270: 0273 00ed | | Load_Encached Diana_Symbol_Rep_Cache 0274 02c7 | | Declare_Variable Any 0275 00d8 | | Load_Top At_Offset_0 0276 1c00 | | Execute_Immediate Run_Utility,0x0 0277 00eb | | Load_Encached Diana_Cache 0278 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0279 00ec | | Load_Encached Diana_Tree_Cache 027a 02c7 | | Declare_Variable Any 027b 00d8 | | Load_Top At_Offset_0 027c 1c00 | | Execute_Immediate Run_Utility,0x0 027d 00e3 | | Load_Encached Natural_Cache 027e 00e1 | | Load_Encached Boolean_Cache 027f 00e1 | | Load_Encached Boolean_Cache 0280 e013 | | Load 0x0,0x13 0281 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0282 02ff | | Declare_Variable Variant_Record 0283 00d8 | | Load_Top At_Offset_0 0284 1c00 | | Execute_Immediate Run_Utility,0x0 0285 e014 | | Load 0x0,0x14 0286 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0287 e5fe | | Load 0x2,-0x2 0288 e014 | | Load 0x0,0x14 0289 1814 | | Execute Package,Field_Execute,Field_Number 0x14 028a e014 | | Load 0x0,0x14 028b 1b0f | | Execute Package,Field_Read,Field_Number 0xf 028c 03f1 | | Declare_Variable Discrete,With_Value 028d e5ff | | Load 0x2,-0x1 028e 8248 | H | Call 0x1,0x48 028f BODY_0270: 028f 00d8 | | Load_Top At_Offset_0 0290 0217 | | Execute Heap_Access,All_Reference 0291 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0292 680c |h | Jump_Zero 0x29f 0293 00d8 | | Load_Top At_Offset_0 0294 0219 | | Execute Heap_Access,All_Read 0295 00d8 | | Load_Top At_Offset_0 0296 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0297 e5ff | | Load 0x2,-0x1 0298 e001 | | Load 0x0,0x1 0299 1b6c | l | Execute Package,Field_Read,Field_Number 0x6c 029a 1818 | | Execute Package,Field_Execute,Field_Number 0x18 029b 825b | [ | Call 0x1,0x5b 029c 00d9 | | Load_Top At_Offset_1 029d 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 029e 00d1 | | Pop_Control Pop_Count_1 029f 00d8 | | Load_Top At_Offset_0 02a0 0219 | | Execute Heap_Access,All_Read 02a1 e241 | A | Load 0x1,0x41 02a2 00db | | Load_Top At_Offset_3 02a3 4801 |H | Short_Literal 0x1 02a4 e5ff | | Load 0x2,-0x1 02a5 e001 | | Load 0x0,0x1 02a6 1b6c | l | Execute Package,Field_Read,Field_Number 0x6c 02a7 1818 | | Execute Package,Field_Execute,Field_Number 0x18 02a8 825a | Z | Call 0x1,0x5a 02a9 00d9 | | Load_Top At_Offset_1 02aa 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 02ab 00d1 | | Pop_Control Pop_Count_1 02ac 00cf | | Action Mark_Auxiliary 02ad 00da | | Load_Top At_Offset_2 02ae 4801 |H | Short_Literal 0x1 02af 0263 | c | Execute Discrete,Above_Bound 02b0 7029 |p) | Jump_Nonzero 0x2da 02b1 e014 | | Load 0x0,0x14 02b2 1b10 | | Execute Package,Field_Read,Field_Number 0x10 02b3 e408 | | Load 0x2,0x8 02b4 00e1 | | Load_Encached Boolean_Cache 02b5 00e1 | | Load_Encached Boolean_Cache 02b6 00e3 | | Load_Encached Natural_Cache 02b7 e404 | | Load 0x2,0x4 02b8 0120 | | Execute Any,Is_Value 02b9 6802 |h | Jump_Zero 0x2bc 02ba 00ec | | Load_Encached Diana_Tree_Cache 02bb 7801 |x | Jump 0x2bd 02bc e404 | | Load 0x2,0x4 02bd 00eb | | Load_Encached Diana_Cache 02be 1b0e | | Execute Package,Field_Read,Field_Number 0xe 02bf e402 | | Load 0x2,0x2 02c0 0120 | | Execute Any,Is_Value 02c1 6802 |h | Jump_Zero 0x2c4 02c2 00ed | | Load_Encached Diana_Symbol_Rep_Cache 02c3 7801 |x | Jump 0x2c5 02c4 e402 | | Load 0x2,0x2 02c5 e40e | | Load 0x2,0xe 02c6 e5fe | | Load 0x2,-0x2 02c7 e014 | | Load 0x0,0x14 02c8 1815 | | Execute Package,Field_Execute,Field_Number 0x15 02c9 c402 | | Store 0x2,0x2 02ca c403 | | Store 0x2,0x3 02cb c404 | | Store 0x2,0x4 02cc c405 | | Store 0x2,0x5 02cd c406 | | Store 0x2,0x6 02ce c407 | | Store 0x2,0x7 02cf 00d1 | | Pop_Control Pop_Count_1 02d0 c409 | | Store 0x2,0x9 02d1 e404 | | Load 0x2,0x4 02d2 00d9 | | Load_Top At_Offset_1 02d3 e40b | | Load 0x2,0xb 02d4 0217 | | Execute Heap_Access,All_Reference 02d5 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 02d6 0217 | | Execute Heap_Access,All_Reference 02d7 01d6 | | Execute Vector,Field_Write 02d8 00c8 | | Action Pop_Auxiliary_Range 02d9 3fd7 |? | Loop_Increasing 0x2b1 02da 4503 |E | Exit_Suprogram New_Top_Offset 0x3 02db 0000 0000 | | .BLANK 0000[0x5] 02e0 ; -------------------------------------------------------------------------------------- 02e0 ; SUBPROGRAM 02e0 ; -------------------------------------------------------------------------------------- 02e0 02e3 | | .CONST 0x02e3 ; Address of begin 02e1 0004 | | .CONST 0x0004 ; Address of exception handler 02e2 0001 | | .CONST 0x0001 ; Number of locals 02e3 BODY_02e0: 02e3 INIT_02e0: 02e3 4608 |F | Jump_Case 0x9 02e4 7808 |x | Jump 0x2ed ; case 0x0 02e5 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 02e6 7825 |x% | Jump 0x30c ; case 0x2 02e7 7824 |x$ | Jump 0x30c ; case 0x3 02e8 7823 |x# | Jump 0x30c ; case 0x4 02e9 7822 |x" | Jump 0x30c ; case 0x5 02ea 7821 |x! | Jump 0x30c ; case 0x6 02eb 7820 |x | Jump 0x30c ; case 0x7 02ec 781f |x | Jump 0x30c ; case 0x8 02ed 00da | | Load_Top At_Offset_2 02ee 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 02ef 0125 | % | Execute Any,Set_Constraint 02f0 00da | | Load_Top At_Offset_2 02f1 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 02f2 1c00 | | Execute_Immediate Run_Utility,0x0 02f3 00da | | Load_Top At_Offset_2 02f4 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 02f5 0125 | % | Execute Any,Set_Constraint 02f6 00da | | Load_Top At_Offset_2 02f7 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 02f8 1c00 | | Execute_Immediate Run_Utility,0x0 02f9 00da | | Load_Top At_Offset_2 02fa 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3 02fb 0125 | % | Execute Any,Set_Constraint 02fc 00da | | Load_Top At_Offset_2 02fd 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3 02fe 1c00 | | Execute_Immediate Run_Utility,0x0 02ff 00da | | Load_Top At_Offset_2 0300 3404 |4 | Execute Record,Field_Reference,Field_Number 0x4 0301 0125 | % | Execute Any,Set_Constraint 0302 00da | | Load_Top At_Offset_2 0303 3404 |4 | Execute Record,Field_Reference,Field_Number 0x4 0304 1c00 | | Execute_Immediate Run_Utility,0x0 0305 00da | | Load_Top At_Offset_2 0306 3405 |4 | Execute Record,Field_Reference,Field_Number 0x5 0307 0125 | % | Execute Any,Set_Constraint 0308 00da | | Load_Top At_Offset_2 0309 3405 |4 | Execute Record,Field_Reference,Field_Number 0x5 030a 1c00 | | Execute_Immediate Run_Utility,0x0 030b 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 030c 0869 | i | Execute_Immediate Raise,0x69 030d 0000 0000 | | .XXX[0x3] 030f 0000 | | 0310 ; -------------------------------------------------------------------------------------- 0310 ; SUBPROGRAM 0310 ; -------------------------------------------------------------------------------------- 0310 0313 | | .CONST 0x0313 ; Address of begin 0311 0004 | | .CONST 0x0004 ; Address of exception handler 0312 0001 | | .CONST 0x0001 ; Number of locals 0313 BODY_0310: 0313 INIT_0310: 0313 4607 |F | Jump_Case 0x8 0314 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 0315 7806 |x | Jump 0x31c ; case 0x1 0316 7809 |x | Jump 0x320 ; case 0x2 0317 780d |x | Jump 0x325 ; case 0x3 0318 7810 |x | Jump 0x329 ; case 0x4 0319 7811 |x | Jump 0x32b ; case 0x5 031a 7812 |x | Jump 0x32d ; case 0x6 031b 7815 |x | Jump 0x331 ; case 0x7 031c 00da | | Load_Top At_Offset_2 031d 0091 0d25 | %| Action Push_String_Extended_Indexed,0xd25 ; "UNIT_INSTALL" 031f 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0320 00db | | Load_Top At_Offset_3 0321 00db | | Load_Top At_Offset_3 0322 00e0 | | Load_Encached Standard_Cache 0323 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0324 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0325 00da | | Load_Top At_Offset_2 0326 00e0 | | Load_Encached Standard_Cache 0327 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0328 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0329 00db | | Load_Top At_Offset_3 032a 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 032b 00db | | Load_Top At_Offset_3 032c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 032d e244 | D | Load 0x1,0x44 032e 00dc | | Load_Top At_Offset_4 032f 0267 | g | Execute Discrete,Predecessor 0330 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0331 e244 | D | Load 0x1,0x44 0332 00dc | | Load_Top At_Offset_4 0333 0268 | h | Execute Discrete,Successor 0334 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0335 0000 0000 | | .XXX[0x3] 0337 0000 | | 0338 ; -------------------------------------------------------------------------------------- 0338 ; SUBPROGRAM 0338 ; -------------------------------------------------------------------------------------- 0338 033b | ; | .CONST 0x033b ; Address of begin 0339 0004 | | .CONST 0x0004 ; Address of exception handler 033a 0001 | | .CONST 0x0001 ; Number of locals 033b BODY_0338: 033b INIT_0338: 033b 00da | | Load_Top At_Offset_2 033c e001 | | Load 0x0,0x1 033d 1b6b | k | Execute Package,Field_Read,Field_Number 0x6b 033e 1812 | | Execute Package,Field_Execute,Field_Number 0x12 033f e245 | E | Load 0x1,0x45 0340 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0341 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0342 0000 0000 | | .BLANK 0000[0x6] 0348 ; -------------------------------------------------------------------------------------- 0348 ; SUBPROGRAM 0348 ; -------------------------------------------------------------------------------------- 0348 034b | K | .CONST 0x034b ; Address of begin 0349 0004 | | .CONST 0x0004 ; Address of exception handler 034a 0001 | | .CONST 0x0001 ; Number of locals 034b BODY_0348: 034b INIT_0348: 034b 00db | | Load_Top At_Offset_3 034c e245 | E | Load 0x1,0x45 034d 1814 | | Execute Package,Field_Execute,Field_Number 0x14 034e 00db | | Load_Top At_Offset_3 034f e001 | | Load 0x0,0x1 0350 1b6b | k | Execute Package,Field_Read,Field_Number 0x6b 0351 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0352 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0353 0000 0000 | | .BLANK 0000[0x5] 0358 ; -------------------------------------------------------------------------------------- 0358 ; SUBPROGRAM 0358 ; -------------------------------------------------------------------------------------- 0358 035b | [ | .CONST 0x035b ; Address of begin 0359 0004 | | .CONST 0x0004 ; Address of exception handler 035a 0001 | | .CONST 0x0001 ; Number of locals 035b BODY_0358: 035b INIT_0358: 035b 00da | | Load_Top At_Offset_2 035c e001 | | Load 0x0,0x1 035d 1b6c | l | Execute Package,Field_Read,Field_Number 0x6c 035e 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36 035f e245 | E | Load 0x1,0x45 0360 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0361 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0362 0000 0000 | | .BLANK 0000[0x6] 0368 ; -------------------------------------------------------------------------------------- 0368 ; SUBPROGRAM 0368 ; -------------------------------------------------------------------------------------- 0368 036b | k | .CONST 0x036b ; Address of begin 0369 0004 | | .CONST 0x0004 ; Address of exception handler 036a 0001 | | .CONST 0x0001 ; Number of locals 036b BODY_0368: 036b INIT_0368: 036b 00db | | Load_Top At_Offset_3 036c e245 | E | Load 0x1,0x45 036d 1816 | | Execute Package,Field_Execute,Field_Number 0x16 036e 00db | | Load_Top At_Offset_3 036f e001 | | Load 0x0,0x1 0370 1b6c | l | Execute Package,Field_Read,Field_Number 0x6c 0371 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37 0372 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0373 0000 0000 | | .BLANK 0000[0x5] 0378 ; -------------------------------------------------------------------------------------- 0378 ; SUBPROGRAM 0378 ; -------------------------------------------------------------------------------------- 0378 037b | { | .CONST 0x037b ; Address of begin 0379 0004 | | .CONST 0x0004 ; Address of exception handler 037a 0001 | | .CONST 0x0001 ; Number of locals 037b BODY_0378: 037b INIT_0378: 037b 00da | | Load_Top At_Offset_2 037c 8246 | F | Call 0x1,0x46 037d 0219 | | Execute Heap_Access,All_Read 037e e24a | J | Load 0x1,0x4a 037f 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0380 00d9 | | Load_Top At_Offset_1 0381 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0382 e5ff | | Load 0x2,-0x1 0383 e24a | J | Load 0x1,0x4a 0384 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0385 00da | | Load_Top At_Offset_2 0386 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0387 c5fe | | Store 0x2,-0x2 0388 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0389 0000 0000 | | .BLANK 0000[0x7] 0390 ; -------------------------------------------------------------------------------------- 0390 ; SUBPROGRAM 0390 ; -------------------------------------------------------------------------------------- 0390 0393 | | .CONST 0x0393 ; Address of begin 0391 0004 | | .CONST 0x0004 ; Address of exception handler 0392 0001 | | .CONST 0x0001 ; Number of locals 0393 BODY_0390: 0393 INIT_0390: 0393 00da | | Load_Top At_Offset_2 0394 8246 | F | Call 0x1,0x46 0395 0219 | | Execute Heap_Access,All_Read 0396 e5fe | | Load 0x2,-0x2 0397 00d9 | | Load_Top At_Offset_1 0398 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0399 e5ff | | Load 0x2,-0x1 039a e24a | J | Load 0x1,0x4a 039b 1812 | | Execute Package,Field_Execute,Field_Number 0x12 039c 00da | | Load_Top At_Offset_2 039d 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 039e c5fe | | Store 0x2,-0x2 039f 4502 |E | Exit_Suprogram New_Top_Offset 0x2 03a0 ; -------------------------------------------------------------------------------------- 03a0 ; SUBPROGRAM 03a0 ; -------------------------------------------------------------------------------------- 03a0 03a3 | | .CONST 0x03a3 ; Address of begin 03a1 0004 | | .CONST 0x0004 ; Address of exception handler 03a2 0001 | | .CONST 0x0001 ; Number of locals 03a3 BODY_03a0: 03a3 INIT_03a0: 03a3 00db | | Load_Top At_Offset_3 03a4 e5fd | | Load 0x2,-0x3 03a5 e241 | A | Load 0x1,0x41 03a6 e5ff | | Load 0x2,-0x1 03a7 039a | | Declare_Variable Heap_Access,By_Allocation,With_Constraint 03a8 00d8 | | Load_Top At_Offset_0 03a9 0217 | | Execute Heap_Access,All_Reference 03aa 1c00 | | Execute_Immediate Run_Utility,0x0 03ab 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 03ac 0000 0000 | | .BLANK 0000[0x4] 03b0 ; -------------------------------------------------------------------------------------- 03b0 ; SUBPROGRAM 03b0 ; -------------------------------------------------------------------------------------- 03b0 03b3 | | .CONST 0x03b3 ; Address of begin 03b1 0004 | | .CONST 0x0004 ; Address of exception handler 03b2 0001 | | .CONST 0x0001 ; Number of locals 03b3 BODY_03b0: 03b3 INIT_03b0: 03b3 00da | | Load_Top At_Offset_2 03b4 0217 | | Execute Heap_Access,All_Reference 03b5 01dd | | Execute Vector,First 03b6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 03b7 0000 | | .XXX[0x1] 03b8 ; -------------------------------------------------------------------------------------- 03b8 ; SUBPROGRAM 03b8 ; -------------------------------------------------------------------------------------- 03b8 03bb | | .CONST 0x03bb ; Address of begin 03b9 0004 | | .CONST 0x0004 ; Address of exception handler 03ba 0001 | | .CONST 0x0001 ; Number of locals 03bb BODY_03b8: 03bb INIT_03b8: 03bb 00da | | Load_Top At_Offset_2 03bc 0217 | | Execute Heap_Access,All_Reference 03bd 01dc | | Execute Vector,Last 03be 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 03bf 0000 | | .XXX[0x1] 03c0 ; -------------------------------------------------------------------------------------- 03c0 ; SUBPROGRAM 03c0 ; -------------------------------------------------------------------------------------- 03c0 03c3 | | .CONST 0x03c3 ; Address of begin 03c1 0004 | | .CONST 0x0004 ; Address of exception handler 03c2 0001 | | .CONST 0x0001 ; Number of locals 03c3 BODY_03c0: 03c3 INIT_03c0: 03c3 00da | | Load_Top At_Offset_2 03c4 8246 | F | Call 0x1,0x46 03c5 0219 | | Execute Heap_Access,All_Read 03c6 e24d | M | Load 0x1,0x4d 03c7 1b10 | | Execute Package,Field_Read,Field_Number 0x10 03c8 00d9 | | Load_Top At_Offset_1 03c9 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 03ca e5ff | | Load 0x2,-0x1 03cb e24d | M | Load 0x1,0x4d 03cc 1811 | | Execute Package,Field_Execute,Field_Number 0x11 03cd 00da | | Load_Top At_Offset_2 03ce 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 03cf c5fe | | Store 0x2,-0x2 03d0 4502 |E | Exit_Suprogram New_Top_Offset 0x2 03d1 0000 0000 | | .BLANK 0000[0x7] 03d8 ; -------------------------------------------------------------------------------------- 03d8 ; SUBPROGRAM 03d8 ; -------------------------------------------------------------------------------------- 03d8 03db | | .CONST 0x03db ; Address of begin 03d9 0004 | | .CONST 0x0004 ; Address of exception handler 03da 0001 | | .CONST 0x0001 ; Number of locals 03db BODY_03d8: 03db INIT_03d8: 03db 00da | | Load_Top At_Offset_2 03dc 8246 | F | Call 0x1,0x46 03dd 0219 | | Execute Heap_Access,All_Read 03de e5fe | | Load 0x2,-0x2 03df 00d9 | | Load_Top At_Offset_1 03e0 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 03e1 e5ff | | Load 0x2,-0x1 03e2 e24d | M | Load 0x1,0x4d 03e3 1812 | | Execute Package,Field_Execute,Field_Number 0x12 03e4 00da | | Load_Top At_Offset_2 03e5 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 03e6 c5fe | | Store 0x2,-0x2 03e7 4502 |E | Exit_Suprogram New_Top_Offset 0x2 03e8 ; -------------------------------------------------------------------------------------- 03e8 ; SUBPROGRAM 03e8 ; -------------------------------------------------------------------------------------- 03e8 03eb | | .CONST 0x03eb ; Address of begin 03e9 0004 | | .CONST 0x0004 ; Address of exception handler 03ea 0001 | | .CONST 0x0001 ; Number of locals 03eb BODY_03e8: 03eb INIT_03e8: 03eb 00da | | Load_Top At_Offset_2 03ec 8246 | F | Call 0x1,0x46 03ed 0219 | | Execute Heap_Access,All_Read 03ee e24e | N | Load 0x1,0x4e 03ef 1b10 | | Execute Package,Field_Read,Field_Number 0x10 03f0 00d9 | | Load_Top At_Offset_1 03f1 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 03f2 e5ff | | Load 0x2,-0x1 03f3 e24e | N | Load 0x1,0x4e 03f4 1811 | | Execute Package,Field_Execute,Field_Number 0x11 03f5 00da | | Load_Top At_Offset_2 03f6 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 03f7 c5fe | | Store 0x2,-0x2 03f8 4502 |E | Exit_Suprogram New_Top_Offset 0x2 03f9 0000 0000 | | .BLANK 0000[0x7] 0400 ; -------------------------------------------------------------------------------------- 0400 ; SUBPROGRAM 0400 ; -------------------------------------------------------------------------------------- 0400 0403 | | .CONST 0x0403 ; Address of begin 0401 0004 | | .CONST 0x0004 ; Address of exception handler 0402 0001 | | .CONST 0x0001 ; Number of locals 0403 BODY_0400: 0403 INIT_0400: 0403 00da | | Load_Top At_Offset_2 0404 8246 | F | Call 0x1,0x46 0405 0219 | | Execute Heap_Access,All_Read 0406 e5fe | | Load 0x2,-0x2 0407 00d9 | | Load_Top At_Offset_1 0408 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0409 e5ff | | Load 0x2,-0x1 040a e24e | N | Load 0x1,0x4e 040b 1812 | | Execute Package,Field_Execute,Field_Number 0x12 040c 00da | | Load_Top At_Offset_2 040d 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 040e c5fe | | Store 0x2,-0x2 040f 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0410 ; -------------------------------------------------------------------------------------- 0410 ; SUBPROGRAM 0410 ; -------------------------------------------------------------------------------------- 0410 0413 | | .CONST 0x0413 ; Address of begin 0411 0004 | | .CONST 0x0004 ; Address of exception handler 0412 0001 | | .CONST 0x0001 ; Number of locals 0413 BODY_0410: 0413 INIT_0410: 0413 00da | | Load_Top At_Offset_2 0414 8246 | F | Call 0x1,0x46 0415 0219 | | Execute Heap_Access,All_Read 0416 e24f | O | Load 0x1,0x4f 0417 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0418 00d9 | | Load_Top At_Offset_1 0419 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 041a e5ff | | Load 0x2,-0x1 041b e24f | O | Load 0x1,0x4f 041c 1811 | | Execute Package,Field_Execute,Field_Number 0x11 041d 00da | | Load_Top At_Offset_2 041e 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 041f c5fe | | Store 0x2,-0x2 0420 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0421 0000 0000 | | .BLANK 0000[0x7] 0428 ; -------------------------------------------------------------------------------------- 0428 ; SUBPROGRAM 0428 ; -------------------------------------------------------------------------------------- 0428 042b | + | .CONST 0x042b ; Address of begin 0429 0004 | | .CONST 0x0004 ; Address of exception handler 042a 0001 | | .CONST 0x0001 ; Number of locals 042b BODY_0428: 042b INIT_0428: 042b 00da | | Load_Top At_Offset_2 042c 8246 | F | Call 0x1,0x46 042d 0219 | | Execute Heap_Access,All_Read 042e e5fe | | Load 0x2,-0x2 042f 00d9 | | Load_Top At_Offset_1 0430 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 0431 e5ff | | Load 0x2,-0x1 0432 e24f | O | Load 0x1,0x4f 0433 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0434 00da | | Load_Top At_Offset_2 0435 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 0436 c5fe | | Store 0x2,-0x2 0437 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0438 ; -------------------------------------------------------------------------------------- 0438 ; SUBPROGRAM 0438 ; -------------------------------------------------------------------------------------- 0438 043b | ; | .CONST 0x043b ; Address of begin 0439 0004 | | .CONST 0x0004 ; Address of exception handler 043a 0001 | | .CONST 0x0001 ; Number of locals 043b BODY_0438: 043b INIT_0438: 043b 00da | | Load_Top At_Offset_2 043c 8246 | F | Call 0x1,0x46 043d 0219 | | Execute Heap_Access,All_Read 043e e253 | S | Load 0x1,0x53 043f 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0440 00d9 | | Load_Top At_Offset_1 0441 3c05 |< | Execute Record,Field_Read,Field_Number 0x5 0442 e5fd | | Load 0x2,-0x3 0443 e5fe | | Load 0x2,-0x2 0444 e5ff | | Load 0x2,-0x1 0445 e253 | S | Load 0x1,0x53 0446 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0447 00da | | Load_Top At_Offset_2 0448 3805 |8 | Execute Record,Field_Write,Field_Number 0x5 0449 c5fc | | Store 0x2,-0x4 044a 4504 |E | Exit_Suprogram New_Top_Offset 0x4 044b 0000 0000 | | .BLANK 0000[0x5] 0450 ; -------------------------------------------------------------------------------------- 0450 ; SUBPROGRAM 0450 ; -------------------------------------------------------------------------------------- 0450 0453 | S | .CONST 0x0453 ; Address of begin 0451 0004 | | .CONST 0x0004 ; Address of exception handler 0452 0001 | | .CONST 0x0001 ; Number of locals 0453 BODY_0450: 0453 INIT_0450: 0453 00da | | Load_Top At_Offset_2 0454 8246 | F | Call 0x1,0x46 0455 0219 | | Execute Heap_Access,All_Read 0456 e5fe | | Load 0x2,-0x2 0457 00d9 | | Load_Top At_Offset_1 0458 3c05 |< | Execute Record,Field_Read,Field_Number 0x5 0459 e5ff | | Load 0x2,-0x1 045a e253 | S | Load 0x1,0x53 045b 1815 | | Execute Package,Field_Execute,Field_Number 0x15 045c 00da | | Load_Top At_Offset_2 045d 3805 |8 | Execute Record,Field_Write,Field_Number 0x5 045e c5fe | | Store 0x2,-0x2 045f 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0460 ; -------------------------------------------------------------------------------------- 0460 ; SUBPROGRAM 0460 ; -------------------------------------------------------------------------------------- 0460 047f | | .CONST 0x047f ; Address of begin 0461 0004 | | .CONST 0x0004 ; Address of exception handler 0462 0008 | | .CONST 0x0008 ; Number of locals 0463 INIT_0460: 0463 e5fd | | Load 0x2,-0x3 0464 8248 | H | Call 0x1,0x48 0465 00d8 | | Load_Top At_Offset_0 0466 0217 | | Execute Heap_Access,All_Reference 0467 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0468 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0469 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 046a 0007 | | Action Break_Optional 046b e216 | | Load 0x1,0x16 046c 0007 | | Action Break_Optional 046d 00da | | Load_Top At_Offset_2 046e 0217 | | Execute Heap_Access,All_Reference 046f 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0470 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0471 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0472 0007 | | Action Break_Optional 0473 e213 | | Load 0x1,0x13 0474 0007 | | Action Break_Optional 0475 e241 | A | Load 0x1,0x41 0476 e402 | | Load 0x2,0x2 0477 0217 | | Execute Heap_Access,All_Reference 0478 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0479 0031 | 1 | Store_Top Heap_Access,At_Offset_1 047a e001 | | Load 0x0,0x1 047b 1b13 | | Execute Package,Field_Read,Field_Number 0x13 047c 02c7 | | Declare_Variable Any 047d 00d8 | | Load_Top At_Offset_0 047e 1c00 | | Execute_Immediate Run_Utility,0x0 047f BODY_0460: 047f 00cf | | Action Mark_Auxiliary 0480 7820 |x | Jump 0x4a1 0481 e403 | | Load 0x2,0x3 0482 0217 | | Execute Heap_Access,All_Reference 0483 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 0484 e216 | | Load 0x1,0x16 0485 0216 | | Execute Heap_Access,Convert 0486 a404 | | Store_Unchecked 0x2,0x4 0487 e403 | | Load 0x2,0x3 0488 0217 | | Execute Heap_Access,All_Reference 0489 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 048a e001 | | Load 0x0,0x1 048b 1818 | | Execute Package,Field_Execute,Field_Number 0x18 048c c408 | | Store 0x2,0x8 048d 00d9 | | Load_Top At_Offset_1 048e e001 | | Load 0x0,0x1 048f 1b6c | l | Execute Package,Field_Read,Field_Number 0x6c 0490 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0491 6806 |h | Jump_Zero 0x498 0492 00d9 | | Load_Top At_Offset_1 0493 e5ff | | Load 0x2,-0x1 0494 e001 | | Load 0x0,0x1 0495 1b6a | j | Execute Package,Field_Read,Field_Number 0x6a 0496 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0497 c408 | | Store 0x2,0x8 0498 e403 | | Load 0x2,0x3 0499 e215 | | Load 0x1,0x15 049a 0216 | | Execute Heap_Access,Convert 049b e5fe | | Load 0x2,-0x2 049c 8255 | U | Call 0x1,0x55 049d c403 | | Store 0x2,0x3 049e e404 | | Load 0x2,0x4 049f a403 | | Store_Unchecked 0x2,0x3 04a0 00c9 | | Action Pop_Auxiliary_Loop 04a1 e403 | | Load 0x2,0x3 04a2 77de |w | Jump_Nonzero 0x481 04a3 00ce | | Action Pop_Auxiliary 04a4 e216 | | Load 0x1,0x16 04a5 e402 | | Load 0x2,0x2 04a6 0217 | | Execute Heap_Access,All_Reference 04a7 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 04a8 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 04a9 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 04aa 00cf | | Action Mark_Auxiliary 04ab 780f |x | Jump 0x4bb 04ac e405 | | Load 0x2,0x5 04ad 0217 | | Execute Heap_Access,All_Reference 04ae 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 04af e213 | | Load 0x1,0x13 04b0 0216 | | Execute Heap_Access,Convert 04b1 a406 | | Store_Unchecked 0x2,0x6 04b2 e405 | | Load 0x2,0x5 04b3 e212 | | Load 0x1,0x12 04b4 0216 | | Execute Heap_Access,Convert 04b5 e5fe | | Load 0x2,-0x2 04b6 8257 | W | Call 0x1,0x57 04b7 c405 | | Store 0x2,0x5 04b8 00db | | Load_Top At_Offset_3 04b9 a405 | | Store_Unchecked 0x2,0x5 04ba 00c9 | | Action Pop_Auxiliary_Loop 04bb e405 | | Load 0x2,0x5 04bc 77ef |w | Jump_Nonzero 0x4ac 04bd 00ce | | Action Pop_Auxiliary 04be e213 | | Load 0x1,0x13 04bf e402 | | Load 0x2,0x2 04c0 0217 | | Execute Heap_Access,All_Reference 04c1 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 04c2 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 04c3 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 04c4 00d9 | | Load_Top At_Offset_1 04c5 680d |h | Jump_Zero 0x4d3 04c6 00cf | | Action Mark_Auxiliary 04c7 00da | | Load_Top At_Offset_2 04c8 0217 | | Execute Heap_Access,All_Reference 04c9 01d9 | | Execute Vector,Reverse_Bounds 04ca 0263 | c | Execute Discrete,Above_Bound 04cb 7006 |p | Jump_Nonzero 0x4d2 04cc e407 | | Load 0x2,0x7 04cd e5fe | | Load 0x2,-0x2 04ce 825b | [ | Call 0x1,0x5b 04cf c407 | | Store 0x2,0x7 04d0 00c8 | | Action Pop_Auxiliary_Range 04d1 3ffa |? | Loop_Increasing 0x4cc 04d2 00ce | | Action Pop_Auxiliary 04d3 4504 |E | Exit_Suprogram New_Top_Offset 0x4 04d4 0000 0000 | | .BLANK 0000[0x4] 04d8 ; -------------------------------------------------------------------------------------- 04d8 ; SUBPROGRAM 04d8 ; -------------------------------------------------------------------------------------- 04d8 04dd | | .CONST 0x04dd ; Address of begin 04d9 0004 | | .CONST 0x0004 ; Address of exception handler 04da 0002 | | .CONST 0x0002 ; Number of locals 04db INIT_04d8: 04db e23e | > | Load 0x1,0x3e 04dc 0007 | | Action Break_Optional 04dd BODY_04d8: 04dd e23e | > | Load 0x1,0x3e 04de e5fe | | Load 0x2,-0x2 04df e001 | | Load 0x0,0x1 04e0 1811 | | Execute Package,Field_Execute,Field_Number 0x11 04e1 039c | | Declare_Variable Heap_Access,By_Allocation 04e2 00d8 | | Load_Top At_Offset_0 04e3 0217 | | Execute Heap_Access,All_Reference 04e4 1c00 | | Execute_Immediate Run_Utility,0x0 04e5 0031 | 1 | Store_Top Heap_Access,At_Offset_1 04e6 e001 | | Load 0x0,0x1 04e7 1b31 | 1 | Execute Package,Field_Read,Field_Number 0x31 04e8 00d9 | | Load_Top At_Offset_1 04e9 0217 | | Execute Heap_Access,All_Reference 04ea 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 04eb e23c | < | Load 0x1,0x3c 04ec 00d9 | | Load_Top At_Offset_1 04ed 0217 | | Execute Heap_Access,All_Reference 04ee 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 04ef 00d8 | | Load_Top At_Offset_0 04f0 e5fe | | Load 0x2,-0x2 04f1 8247 | G | Call 0x1,0x47 04f2 4503 |E | Exit_Suprogram New_Top_Offset 0x3 04f3 0000 0000 | | .BLANK 0000[0x5] 04f8 ; -------------------------------------------------------------------------------------- 04f8 ; SUBPROGRAM 04f8 ; -------------------------------------------------------------------------------------- 04f8 04fb | | .CONST 0x04fb ; Address of begin 04f9 0004 | | .CONST 0x0004 ; Address of exception handler 04fa 0001 | | .CONST 0x0001 ; Number of locals 04fb BODY_04f8: 04fb INIT_04f8: 04fb 4503 |E | Exit_Suprogram New_Top_Offset 0x3 04fc 0000 0000 | | .BLANK 0000[0x4] 0500 ; -------------------------------------------------------------------------------------- 0500 ; SUBPROGRAM 0500 ; -------------------------------------------------------------------------------------- 0500 0551 | Q | .CONST 0x0551 ; Address of begin 0501 0004 | | .CONST 0x0004 ; Address of exception handler 0502 0021 | ! | .CONST 0x0021 ; Number of locals 0503 INIT_0500: 0503 00db | | Load_Top At_Offset_3 0504 8246 | F | Call 0x1,0x46 0505 00e1 | | Load_Encached Boolean_Cache 0506 029f 08eb | | Declare_Subprogram INIT_08e8,For_Call 0508 e001 | | Load 0x0,0x1 0509 1b73 | s | Execute Package,Field_Read,Field_Number 0x73 050a 1b0f | | Execute Package,Field_Read,Field_Number 0xf 050b 1911 | | Execute Package,Field_Reference,Field_Number 0x11 050c 00c6 | | Action Check_Subprogram_Elaborated 050d e5ff | | Load 0x2,-0x1 050e 00d8 | | Load_Top At_Offset_0 050f 0120 | | Execute Any,Is_Value 0510 7002 |p | Jump_Nonzero 0x513 0511 00d8 | | Load_Top At_Offset_0 0512 011e | | Execute Any,Convert 0513 e242 | B | Load 0x1,0x42 0514 e243 | C | Load 0x1,0x43 0515 0092 0d27 | '| Action Push_String_Extended,0xd27 ; "target-dependent unit" 0517 4804 |H | Short_Literal 0x4 0518 4802 |H | Short_Literal 0x2 0519 0099 | | Action Reference_Dynamic 051a 4800 |H | Short_Literal 0x0 051b e015 | | Load 0x0,0x15 051c e016 | | Load 0x0,0x16 051d 480d |H | Short_Literal 0xd 051e 0007 | | Action Break_Optional 051f 029f 0913 | | Declare_Subprogram INIT_0910,For_Call 0521 e001 | | Load 0x0,0x1 0522 1b73 | s | Execute Package,Field_Read,Field_Number 0x73 0523 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0524 1911 | | Execute Package,Field_Reference,Field_Number 0x11 0525 00c6 | | Action Check_Subprogram_Elaborated 0526 e5ff | | Load 0x2,-0x1 0527 00d8 | | Load_Top At_Offset_0 0528 0120 | | Execute Any,Is_Value 0529 7002 |p | Jump_Nonzero 0x52c 052a 00d8 | | Load_Top At_Offset_0 052b 011e | | Execute Any,Convert 052c e23b | ; | Load 0x1,0x3b 052d e215 | | Load 0x1,0x15 052e 0092 0d28 | (| Action Push_String_Extended,0xd28 ; "call" 0530 480e |H | Short_Literal 0xe 0531 4802 |H | Short_Literal 0x2 0532 0099 | | Action Reference_Dynamic 0533 4800 |H | Short_Literal 0x0 0534 e017 | | Load 0x0,0x17 0535 e018 | | Load 0x0,0x18 0536 4817 |H | Short_Literal 0x17 0537 0007 | | Action Break_Optional 0538 029f 092b | +| Declare_Subprogram INIT_0928,For_Call 053a e001 | | Load 0x0,0x1 053b 1b73 | s | Execute Package,Field_Read,Field_Number 0x73 053c 1b0f | | Execute Package,Field_Read,Field_Number 0xf 053d 1911 | | Execute Package,Field_Reference,Field_Number 0x11 053e 00c6 | | Action Check_Subprogram_Elaborated 053f e5ff | | Load 0x2,-0x1 0540 00d8 | | Load_Top At_Offset_0 0541 0120 | | Execute Any,Is_Value 0542 7002 |p | Jump_Nonzero 0x545 0543 00d8 | | Load_Top At_Offset_0 0544 011e | | Execute Any,Convert 0545 e239 | 9 | Load 0x1,0x39 0546 e212 | | Load 0x1,0x12 0547 0092 0d29 | )| Action Push_String_Extended,0xd29 ; "defn" 0549 4818 |H | Short_Literal 0x18 054a 4802 |H | Short_Literal 0x2 054b 0099 | | Action Reference_Dynamic 054c 4800 |H | Short_Literal 0x0 054d e019 | | Load 0x0,0x19 054e e01a | | Load 0x0,0x1a 054f 4821 |H! | Short_Literal 0x21 0550 0007 | | Action Break_Optional 0551 BODY_0500: 0551 e402 | | Load 0x2,0x2 0552 700c |p | Jump_Nonzero 0x55f 0553 4802 |H | Short_Literal 0x2 0554 0092 0d2a | *| Action Push_String_Extended,0xd2a ; "Null target-dependent header" 0556 e5ff | | Load 0x2,-0x1 0557 e001 | | Load 0x0,0x1 0558 1b73 | s | Execute Package,Field_Read,Field_Number 0x73 0559 1b0f | | Execute Package,Field_Read,Field_Number 0xf 055a 180f | | Execute Package,Field_Execute,Field_Number 0xf 055b e001 | | Load 0x0,0x1 055c 1b1c | | Execute Package,Field_Read,Field_Number 0x1c 055d 1819 | | Execute Package,Field_Execute,Field_Number 0x19 055e 4503 |E | Exit_Suprogram New_Top_Offset 0x3 055f e402 | | Load 0x2,0x2 0560 0217 | | Execute Heap_Access,All_Reference 0561 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0562 e405 | | Load 0x2,0x5 0563 e406 | | Load 0x2,0x6 0564 e407 | | Load 0x2,0x7 0565 e408 | | Load 0x2,0x8 0566 4809 |H | Short_Literal 0x9 0567 4802 |H | Short_Literal 0x2 0568 0099 | | Action Reference_Dynamic 0569 e40a | | Load 0x2,0xa 056a 480b |H | Short_Literal 0xb 056b 4802 |H | Short_Literal 0x2 056c 0099 | | Action Reference_Dynamic 056d e001 | | Load 0x0,0x1 056e 1b73 | s | Execute Package,Field_Read,Field_Number 0x73 056f 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0570 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0571 e402 | | Load 0x2,0x2 0572 0217 | | Execute Heap_Access,All_Reference 0573 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0574 e40f | | Load 0x2,0xf 0575 e410 | | Load 0x2,0x10 0576 e411 | | Load 0x2,0x11 0577 e412 | | Load 0x2,0x12 0578 4813 |H | Short_Literal 0x13 0579 4802 |H | Short_Literal 0x2 057a 0099 | | Action Reference_Dynamic 057b e414 | | Load 0x2,0x14 057c 4815 |H | Short_Literal 0x15 057d 4802 |H | Short_Literal 0x2 057e 0099 | | Action Reference_Dynamic 057f e001 | | Load 0x0,0x1 0580 1b73 | s | Execute Package,Field_Read,Field_Number 0x73 0581 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0582 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0583 e402 | | Load 0x2,0x2 0584 0217 | | Execute Heap_Access,All_Reference 0585 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0586 e419 | | Load 0x2,0x19 0587 e41a | | Load 0x2,0x1a 0588 e41b | | Load 0x2,0x1b 0589 e41c | | Load 0x2,0x1c 058a 481d |H | Short_Literal 0x1d 058b 4802 |H | Short_Literal 0x2 058c 0099 | | Action Reference_Dynamic 058d e41e | | Load 0x2,0x1e 058e 481f |H | Short_Literal 0x1f 058f 4802 |H | Short_Literal 0x2 0590 0099 | | Action Reference_Dynamic 0591 e001 | | Load 0x0,0x1 0592 1b73 | s | Execute Package,Field_Read,Field_Number 0x73 0593 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0594 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0595 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0596 0000 0000 | | .XXX[0x2] 0598 ; -------------------------------------------------------------------------------------- 0598 ; SUBPROGRAM 0598 ; -------------------------------------------------------------------------------------- 0598 059b | | .CONST 0x059b ; Address of begin 0599 0004 | | .CONST 0x0004 ; Address of exception handler 059a 0001 | | .CONST 0x0001 ; Number of locals 059b BODY_0598: 059b INIT_0598: 059b e01b | | Load 0x0,0x1b 059c 0257 | W | Execute Discrete,Raise 059d 0000 0000 | | .XXX[0x3] 059f 0000 | | 05a0 ; -------------------------------------------------------------------------------------- 05a0 ; SUBPROGRAM 05a0 ; -------------------------------------------------------------------------------------- 05a0 05a3 | | .CONST 0x05a3 ; Address of begin 05a1 0004 | | .CONST 0x0004 ; Address of exception handler 05a2 0001 | | .CONST 0x0001 ; Number of locals 05a3 BODY_05a0: 05a3 INIT_05a0: 05a3 4505 |E | Exit_Suprogram New_Top_Offset 0x5 05a4 0000 0000 | | .BLANK 0000[0x4] 05a8 ; -------------------------------------------------------------------------------------- 05a8 ; SUBPROGRAM 05a8 ; -------------------------------------------------------------------------------------- 05a8 05ab | | .CONST 0x05ab ; Address of begin 05a9 0004 | | .CONST 0x0004 ; Address of exception handler 05aa 0001 | | .CONST 0x0001 ; Number of locals 05ab BODY_05a8: 05ab INIT_05a8: 05ab 4504 |E | Exit_Suprogram New_Top_Offset 0x4 05ac 0000 0000 | | .BLANK 0000[0x4] 05b0 ; -------------------------------------------------------------------------------------- 05b0 ; SUBPROGRAM 05b0 ; -------------------------------------------------------------------------------------- 05b0 05b3 | | .CONST 0x05b3 ; Address of begin 05b1 0004 | | .CONST 0x0004 ; Address of exception handler 05b2 0001 | | .CONST 0x0001 ; Number of locals 05b3 BODY_05b0: 05b3 INIT_05b0: 05b3 e01b | | Load 0x0,0x1b 05b4 0257 | W | Execute Discrete,Raise 05b5 0000 0000 | | .XXX[0x3] 05b7 0000 | | 05b8 ; -------------------------------------------------------------------------------------- 05b8 ; SUBPROGRAM 05b8 ; -------------------------------------------------------------------------------------- 05b8 05bf | | .CONST 0x05bf ; Address of begin 05b9 0004 | | .CONST 0x0004 ; Address of exception handler 05ba 0003 | | .CONST 0x0003 ; Number of locals 05bb INIT_05b8: 05bb e5fc | | Load 0x2,-0x4 05bc 8248 | H | Call 0x1,0x48 05bd e216 | | Load 0x1,0x16 05be 0007 | | Action Break_Optional 05bf BODY_05b8: 05bf e5fc | | Load 0x2,-0x4 05c0 e001 | | Load 0x0,0x1 05c1 1b6c | l | Execute Package,Field_Read,Field_Number 0x6c 05c2 1819 | | Execute Package,Field_Execute,Field_Number 0x19 05c3 7025 |p% | Jump_Nonzero 0x5e9 05c4 00d9 | | Load_Top At_Offset_1 05c5 0217 | | Execute Heap_Access,All_Reference 05c6 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 05c7 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 05c8 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 05c9 0031 | 1 | Store_Top Heap_Access,At_Offset_1 05ca 00cf | | Action Mark_Auxiliary 05cb 781a |x | Jump 0x5e6 05cc 00d9 | | Load_Top At_Offset_1 05cd 0217 | | Execute Heap_Access,All_Reference 05ce 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 05cf e001 | | Load 0x0,0x1 05d0 1818 | | Execute Package,Field_Execute,Field_Number 0x18 05d1 e001 | | Load 0x0,0x1 05d2 1b6c | l | Execute Package,Field_Read,Field_Number 0x6c 05d3 1819 | | Execute Package,Field_Execute,Field_Number 0x19 05d4 680a |h | Jump_Zero 0x5df 05d5 00d9 | | Load_Top At_Offset_1 05d6 0217 | | Execute Heap_Access,All_Reference 05d7 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 05d8 e001 | | Load 0x0,0x1 05d9 1818 | | Execute Package,Field_Execute,Field_Number 0x18 05da e5ff | | Load 0x2,-0x1 05db e001 | | Load 0x0,0x1 05dc 1b73 | s | Execute Package,Field_Read,Field_Number 0x73 05dd 1b0f | | Execute Package,Field_Read,Field_Number 0xf 05de 1812 | | Execute Package,Field_Execute,Field_Number 0x12 05df 00d9 | | Load_Top At_Offset_1 05e0 0217 | | Execute Heap_Access,All_Reference 05e1 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 05e2 e216 | | Load 0x1,0x16 05e3 0216 | | Execute Heap_Access,Convert 05e4 0032 | 2 | Store_Top Heap_Access,At_Offset_2 05e5 00c9 | | Action Pop_Auxiliary_Loop 05e6 00d9 | | Load_Top At_Offset_1 05e7 77e4 |w | Jump_Nonzero 0x5cc 05e8 00ce | | Action Pop_Auxiliary 05e9 4505 |E | Exit_Suprogram New_Top_Offset 0x5 05ea 0000 0000 | | .BLANK 0000[0x6] 05f0 ; -------------------------------------------------------------------------------------- 05f0 ; SUBPROGRAM 05f0 ; -------------------------------------------------------------------------------------- 05f0 05f3 | | .CONST 0x05f3 ; Address of begin 05f1 0004 | | .CONST 0x0004 ; Address of exception handler 05f2 0001 | | .CONST 0x0001 ; Number of locals 05f3 BODY_05f0: 05f3 INIT_05f0: 05f3 00da | | Load_Top At_Offset_2 05f4 e01c | | Load 0x0,0x1c 05f5 189e | | Execute Package,Field_Execute,Field_Number 0x9e 05f6 6804 |h | Jump_Zero 0x5fb 05f7 00da | | Load_Top At_Offset_2 05f8 e01c | | Load 0x0,0x1c 05f9 189d | | Execute Package,Field_Execute,Field_Number 0x9d 05fa 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 05fb 00da | | Load_Top At_Offset_2 05fc 0148 | H | Execute Heap_Access,Get_Offset 05fd 00d8 | | Load_Top At_Offset_0 05fe 49a2 |I | Short_Literal 0x1a2 05ff 00eb | | Load_Encached Diana_Cache 0600 0098 | | Execute Package,Field_Read_Dynamic 0601 0260 | ` | Execute Discrete,In_Type 0602 7001 |p | Jump_Nonzero 0x604 0603 0801 | | Execute_Immediate Raise,0x1 0604 0275 | u | Execute Discrete,Unary_Minus 0605 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0606 0000 0000 | | .XXX[0x2] 0608 ; -------------------------------------------------------------------------------------- 0608 ; SUBPROGRAM 0608 ; -------------------------------------------------------------------------------------- 0608 060b | | .CONST 0x060b ; Address of begin 0609 0004 | | .CONST 0x0004 ; Address of exception handler 060a 0001 | | .CONST 0x0001 ; Number of locals 060b BODY_0608: 060b INIT_0608: 060b 00da | | Load_Top At_Offset_2 060c e01c | | Load 0x0,0x1c 060d 183e | > | Execute Package,Field_Execute,Field_Number 0x3e 060e 680c |h | Jump_Zero 0x61b 060f 00da | | Load_Top At_Offset_2 0610 e01c | | Load 0x0,0x1c 0611 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f 0612 0145 | E | Execute Heap_Access,Diana_Tree_Kind 0613 4867 |Hg | Short_Literal 0x67 0614 486a |Hj | Short_Literal 0x6a 0615 0262 | b | Execute Discrete,In_Range 0616 7002 |p | Jump_Nonzero 0x619 0617 4800 |H | Short_Literal 0x0 0618 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0619 4801 |H | Short_Literal 0x1 061a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 061b 4800 |H | Short_Literal 0x0 061c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 061d 0000 0000 | | .XXX[0x3] 061f 0000 | | 0620 ; -------------------------------------------------------------------------------------- 0620 ; SUBPROGRAM 0620 ; -------------------------------------------------------------------------------------- 0620 0633 | 3 | .CONST 0x0633 ; Address of begin 0621 0004 | | .CONST 0x0004 ; Address of exception handler 0622 0005 | | .CONST 0x0005 ; Number of locals 0623 INIT_0620: 0623 00ec | | Load_Encached Diana_Tree_Cache 0624 02c7 | | Declare_Variable Any 0625 00db | | Load_Top At_Offset_3 0626 a402 | | Store_Unchecked 0x2,0x2 0627 00ec | | Load_Encached Diana_Tree_Cache 0628 02c7 | | Declare_Variable Any 0629 00d8 | | Load_Top At_Offset_0 062a 1c00 | | Execute_Immediate Run_Utility,0x0 062b 00ec | | Load_Encached Diana_Tree_Cache 062c 02c7 | | Declare_Variable Any 062d 00d8 | | Load_Top At_Offset_0 062e 1c00 | | Execute_Immediate Run_Utility,0x0 062f 00ec | | Load_Encached Diana_Tree_Cache 0630 02c7 | | Declare_Variable Any 0631 00d8 | | Load_Top At_Offset_0 0632 1c00 | | Execute_Immediate Run_Utility,0x0 0633 BODY_0620: 0633 00cf | | Action Mark_Auxiliary 0634 e402 | | Load 0x2,0x2 0635 e01c | | Load 0x0,0x1c 0636 1861 | a | Execute Package,Field_Execute,Field_Number 0x61 0637 6807 |h | Jump_Zero 0x63f 0638 e402 | | Load 0x2,0x2 0639 8266 | f | Call 0x1,0x66 063a 7004 |p | Jump_Nonzero 0x63f 063b e402 | | Load 0x2,0x2 063c e01c | | Load 0x0,0x1c 063d 1860 | ` | Execute Package,Field_Execute,Field_Number 0x60 063e c402 | | Store 0x2,0x2 063f e402 | | Load 0x2,0x2 0640 0145 | E | Execute Heap_Access,Diana_Tree_Kind 0641 0f15 | | Execute_Immediate Equal,0x15 0642 6801 |h | Jump_Zero 0x644 0643 7855 |xU | Jump 0x699 0644 e402 | | Load 0x2,0x2 0645 00eb | | Load_Encached Diana_Cache 0646 18f8 | | Execute Package,Field_Execute,Field_Number 0xf8 0647 c403 | | Store 0x2,0x3 0648 00db | | Load_Top At_Offset_3 0649 0145 | E | Execute Heap_Access,Diana_Tree_Kind 064a 0f80 | | Execute_Immediate Equal,-0x80 064b 684d |hM | Jump_Zero 0x699 064c 00db | | Load_Top At_Offset_3 064d 00eb | | Load_Encached Diana_Cache 064e 18d4 | | Execute Package,Field_Execute,Field_Number 0xd4 064f c404 | | Store 0x2,0x4 0650 00da | | Load_Top At_Offset_2 0651 0145 | E | Execute Heap_Access,Diana_Tree_Kind 0652 0f12 | | Execute_Immediate Equal,0x12 0653 6805 |h | Jump_Zero 0x659 0654 00da | | Load_Top At_Offset_2 0655 00eb | | Load_Encached Diana_Cache 0656 18c0 | | Execute Package,Field_Execute,Field_Number 0xc0 0657 c405 | | Store 0x2,0x5 0658 7802 |x | Jump 0x65b 0659 00da | | Load_Top At_Offset_2 065a c405 | | Store 0x2,0x5 065b 00d9 | | Load_Top At_Offset_1 065c 0145 | E | Execute Heap_Access,Diana_Tree_Kind 065d 00d8 | | Load_Top At_Offset_0 065e 0c18 | | Execute_Immediate Greater_Equal,0x18 065f 7024 |p$ | Jump_Nonzero 0x684 0660 4617 |F | Jump_Case 0x18 0661 7823 |x# | Jump 0x685 ; case 0x0 0662 7822 |x" | Jump 0x685 ; case 0x1 0663 7821 |x! | Jump 0x685 ; case 0x2 0664 7820 |x | Jump 0x685 ; case 0x3 0665 781f |x | Jump 0x685 ; case 0x4 0666 781e |x | Jump 0x685 ; case 0x5 0667 781d |x | Jump 0x685 ; case 0x6 0668 781c |x | Jump 0x685 ; case 0x7 0669 781b |x | Jump 0x685 ; case 0x8 066a 781a |x | Jump 0x685 ; case 0x9 066b 7819 |x | Jump 0x685 ; case 0xa 066c 7818 |x | Jump 0x685 ; case 0xb 066d 7821 |x! | Jump 0x68f ; case 0xc 066e 7816 |x | Jump 0x685 ; case 0xd 066f 7824 |x$ | Jump 0x694 ; case 0xe 0670 7814 |x | Jump 0x685 ; case 0xf 0671 7813 |x | Jump 0x685 ; case 0x10 0672 7814 |x | Jump 0x687 ; case 0x11 0673 7811 |x | Jump 0x685 ; case 0x12 0674 7810 |x | Jump 0x685 ; case 0x13 0675 7814 |x | Jump 0x68a ; case 0x14 0676 780e |x | Jump 0x685 ; case 0x15 0677 7817 |x | Jump 0x68f ; case 0x16 0678 7800 |x | Jump 0x679 ; case 0x17 0679 00d9 | | Load_Top At_Offset_1 067a 00eb | | Load_Encached Diana_Cache 067b 18fa | | Execute Package,Field_Execute,Field_Number 0xfa 067c c402 | | Store 0x2,0x2 067d e402 | | Load 0x2,0x2 067e 0145 | E | Execute Heap_Access,Diana_Tree_Kind 067f 0f1f | | Execute_Immediate Equal,0x1f 0680 6816 |h | Jump_Zero 0x697 0681 00da | | Load_Top At_Offset_2 0682 c402 | | Store 0x2,0x2 0683 7815 |x | Jump 0x699 0684 00d1 | | Pop_Control Pop_Count_1 0685 e01d | | Load 0x0,0x1d 0686 0257 | W | Execute Discrete,Raise 0687 00da | | Load_Top At_Offset_2 0688 c402 | | Store 0x2,0x2 0689 780f |x | Jump 0x699 068a 00d9 | | Load_Top At_Offset_1 068b 00eb | | Load_Encached Diana_Cache 068c 18fa | | Execute Package,Field_Execute,Field_Number 0xfa 068d c402 | | Store 0x2,0x2 068e 7808 |x | Jump 0x697 068f 00d9 | | Load_Top At_Offset_1 0690 00eb | | Load_Encached Diana_Cache 0691 18fa | | Execute Package,Field_Execute,Field_Number 0xfa 0692 c402 | | Store 0x2,0x2 0693 7805 |x | Jump 0x699 0694 00d9 | | Load_Top At_Offset_1 0695 c402 | | Store 0x2,0x2 0696 7802 |x | Jump 0x699 0697 00c9 | | Action Pop_Auxiliary_Loop 0698 7f9b | | Jump 0x634 0699 00ce | | Action Pop_Auxiliary 069a 00db | | Load_Top At_Offset_3 069b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 069c 0000 0000 | | .BLANK 0000[0x4] 06a0 ; -------------------------------------------------------------------------------------- 06a0 ; SUBPROGRAM 06a0 ; -------------------------------------------------------------------------------------- 06a0 06a5 | | .CONST 0x06a5 ; Address of begin 06a1 0004 | | .CONST 0x0004 ; Address of exception handler 06a2 0002 | | .CONST 0x0002 ; Number of locals 06a3 INIT_06a0: 06a3 029f 0943 | C| Declare_Subprogram INIT_0940,For_Call 06a5 BODY_06a0: 06a5 e5fc | | Load 0x2,-0x4 06a6 8402 | | Call 0x2,0x2 06a7 4508 |E | Exit_Suprogram New_Top_Offset 0x8 06a8 ; -------------------------------------------------------------------------------------- 06a8 ; SUBPROGRAM 06a8 ; -------------------------------------------------------------------------------------- 06a8 06c5 | | .CONST 0x06c5 ; Address of begin 06a9 0004 | | .CONST 0x0004 ; Address of exception handler 06aa 0009 | | .CONST 0x0009 ; Number of locals 06ab INIT_06a8: 06ab e215 | | Load 0x1,0x15 06ac 0007 | | Action Break_Optional 06ad 00ec | | Load_Encached Diana_Tree_Cache 06ae 02c7 | | Declare_Variable Any 06af e5ff | | Load 0x2,-0x1 06b0 4974 |It | Short_Literal 0x174 06b1 00eb | | Load_Encached Diana_Cache 06b2 0098 | | Execute Package,Field_Read_Dynamic 06b3 181a | | Execute Package,Field_Execute,Field_Number 0x1a 06b4 a403 | | Store_Unchecked 0x2,0x3 06b5 e001 | | Load 0x0,0x1 06b6 1b13 | | Execute Package,Field_Read,Field_Number 0x13 06b7 02c7 | | Declare_Variable Any 06b8 00d8 | | Load_Top At_Offset_0 06b9 1c00 | | Execute_Immediate Run_Utility,0x0 06ba 00e1 | | Load_Encached Boolean_Cache 06bb e5ff | | Load 0x2,-0x1 06bc 8265 | e | Call 0x1,0x65 06bd e23a | : | Load 0x1,0x3a 06be 03f1 | | Declare_Variable Discrete,With_Value 06bf 029f 09eb | | Declare_Subprogram INIT_09e8,For_Call 06c1 029f 0a0b | | Declare_Subprogram INIT_0a08,For_Call 06c3 029f 0a3b | ;| Declare_Subprogram INIT_0a38,For_Call 06c5 BODY_06a8: 06c5 e403 | | Load 0x2,0x3 06c6 0145 | E | Execute Heap_Access,Diana_Tree_Kind 06c7 0ea8 | | Execute_Immediate Not_Equal,-0x58 06c8 6801 |h | Jump_Zero 0x6ca 06c9 4505 |E | Exit_Suprogram New_Top_Offset 0x5 06ca e403 | | Load 0x2,0x3 06cb e5fc | | Load 0x2,-0x4 06cc e001 | | Load 0x0,0x1 06cd 1b6a | j | Execute Package,Field_Read,Field_Number 0x6a 06ce 1814 | | Execute Package,Field_Execute,Field_Number 0x14 06cf c404 | | Store 0x2,0x4 06d0 00e1 | | Load_Encached Boolean_Cache 06d1 e406 | | Load 0x2,0x6 06d2 8409 | | Call 0x2,0x9 06d3 c405 | | Store 0x2,0x5 06d4 e405 | | Load 0x2,0x5 06d5 6808 |h | Jump_Zero 0x6de 06d6 e215 | | Load 0x1,0x15 06d7 e5fd | | Load 0x2,-0x3 06d8 8254 | T | Call 0x1,0x54 06d9 c402 | | Store 0x2,0x2 06da e402 | | Load 0x2,0x2 06db 8407 | | Call 0x2,0x7 06dc e402 | | Load 0x2,0x2 06dd 8408 | | Call 0x2,0x8 06de 4505 |E | Exit_Suprogram New_Top_Offset 0x5 06df 0000 | | .XXX[0x1] 06e0 ; -------------------------------------------------------------------------------------- 06e0 ; SUBPROGRAM 06e0 ; -------------------------------------------------------------------------------------- 06e0 06ee | | .CONST 0x06ee ; Address of begin 06e1 0004 | | .CONST 0x0004 ; Address of exception handler 06e2 0007 | | .CONST 0x0007 ; Number of locals 06e3 INIT_06e0: 06e3 e243 | C | Load 0x1,0x43 06e4 0007 | | Action Break_Optional 06e5 1d68 | h | Execute_Immediate Reference_Lex_1,0x68 06e6 00c6 | | Action Check_Subprogram_Elaborated 06e7 1d69 | i | Execute_Immediate Reference_Lex_1,0x69 06e8 e01e | | Load 0x0,0x1e 06e9 e01f | | Load 0x0,0x1f 06ea 4806 |H | Short_Literal 0x6 06eb 0007 | | Action Break_Optional 06ec 029f 0a6b | k| Declare_Subprogram INIT_0a68,For_Call 06ee BODY_06e0: 06ee e5fc | | Load 0x2,-0x4 06ef 8248 | H | Call 0x1,0x48 06f0 a402 | | Store_Unchecked 0x2,0x2 06f1 e243 | C | Load 0x1,0x43 06f2 e5fd | | Load 0x2,-0x3 06f3 824b | K | Call 0x1,0x4b 06f4 c402 | | Store 0x2,0x2 06f5 e5fd | | Load 0x2,-0x3 06f6 e5ff | | Load 0x2,-0x1 06f7 e402 | | Load 0x2,0x2 06f8 e5fe | | Load 0x2,-0x2 06f9 4800 |H | Short_Literal 0x0 06fa 4803 |H | Short_Literal 0x3 06fb 4802 |H | Short_Literal 0x2 06fc 0099 | | Action Reference_Dynamic 06fd 4804 |H | Short_Literal 0x4 06fe 4802 |H | Short_Literal 0x2 06ff 0099 | | Action Reference_Dynamic 0700 8268 | h | Call 0x1,0x68 0701 e402 | | Load 0x2,0x2 0702 e5fc | | Load 0x2,-0x4 0703 8249 | I | Call 0x1,0x49 0704 e5ff | | Load 0x2,-0x1 0705 e001 | | Load 0x0,0x1 0706 1b1c | | Execute Package,Field_Read,Field_Number 0x1c 0707 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0708 7005 |p | Jump_Nonzero 0x70e 0709 e020 | | Load 0x0,0x20 070a 180e | | Execute Package,Field_Execute,Field_Number 0xe 070b 7002 |p | Jump_Nonzero 0x70e 070c e5fe | | Load 0x2,-0x2 070d 8407 | | Call 0x2,0x7 070e 4505 |E | Exit_Suprogram New_Top_Offset 0x5 070f 0000 | | .XXX[0x1] 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 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0714 0000 0000 | | .BLANK 0000[0x4] 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 e01b | | Load 0x0,0x1b 071c 0257 | W | Execute Discrete,Raise 071d 0000 0000 | | .XXX[0x3] 071f 0000 | | 0720 ; -------------------------------------------------------------------------------------- 0720 ; SUBPROGRAM 0720 ; -------------------------------------------------------------------------------------- 0720 072b | + | .CONST 0x072b ; Address of begin 0721 0004 | | .CONST 0x0004 ; Address of exception handler 0722 0003 | | .CONST 0x0003 ; Number of locals 0723 INIT_0720: 0723 e013 | | Load 0x0,0x13 0724 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 0725 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0726 02c7 | | Declare_Variable Any 0727 00d8 | | Load_Top At_Offset_0 0728 1c00 | | Execute_Immediate Run_Utility,0x0 0729 e013 | | Load 0x0,0x13 072a 1b0d | | Execute Package,Field_Read,Field_Number 0xd 072b BODY_0720: 072b e013 | | Load 0x0,0x13 072c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 072d 00da | | Load_Top At_Offset_2 072e 0120 | | Execute Any,Is_Value 072f 6804 |h | Jump_Zero 0x734 0730 e013 | | Load 0x0,0x13 0731 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 0732 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0733 7801 |x | Jump 0x735 0734 00da | | Load_Top At_Offset_2 0735 e5fe | | Load 0x2,-0x2 0736 e021 | ! | Load 0x0,0x21 0737 180d | | Execute Package,Field_Execute,Field_Number 0xd 0738 e013 | | Load 0x0,0x13 0739 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 073a 181c | | Execute Package,Field_Execute,Field_Number 0x1c 073b c402 | | Store 0x2,0x2 073c 0059 | Y | Store_Top Discrete,At_Offset_1 073d 00d9 | | Load_Top At_Offset_1 073e e013 | | Load 0x0,0x13 073f 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 0740 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0741 e022 | " | Load 0x0,0x22 0742 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0743 0f00 | | Execute_Immediate Equal,0x0 0744 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0745 0000 0000 | | .XXX[0x3] 0747 0000 | | 0748 ; -------------------------------------------------------------------------------------- 0748 ; SUBPROGRAM 0748 ; -------------------------------------------------------------------------------------- 0748 074b | K | .CONST 0x074b ; Address of begin 0749 0004 | | .CONST 0x0004 ; Address of exception handler 074a 0001 | | .CONST 0x0001 ; Number of locals 074b BODY_0748: 074b INIT_0748: 074b e01b | | Load 0x0,0x1b 074c 0257 | W | Execute Discrete,Raise 074d 0000 0000 | | .XXX[0x3] 074f 0000 | | 0750 ; -------------------------------------------------------------------------------------- 0750 ; SUBPROGRAM 0750 ; -------------------------------------------------------------------------------------- 0750 0755 | U | .CONST 0x0755 ; Address of begin 0751 0004 | | .CONST 0x0004 ; Address of exception handler 0752 0002 | | .CONST 0x0002 ; Number of locals 0753 INIT_0750: 0753 e243 | C | Load 0x1,0x43 0754 0007 | | Action Break_Optional 0755 BODY_0750: 0755 e023 | # | Load 0x0,0x23 0756 180e | | Execute Package,Field_Execute,Field_Number 0xe 0757 e024 | $ | Load 0x0,0x24 0758 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0759 e5fc | | Load 0x2,-0x4 075a 8248 | H | Call 0x1,0x48 075b 0031 | 1 | Store_Top Heap_Access,At_Offset_1 075c e5fc | | Load 0x2,-0x4 075d e5fd | | Load 0x2,-0x3 075e e5ff | | Load 0x2,-0x1 075f 825c | \ | Call 0x1,0x5c 0760 00d8 | | Load_Top At_Offset_0 0761 e5fd | | Load 0x2,-0x3 0762 824c | L | Call 0x1,0x4c 0763 0031 | 1 | Store_Top Heap_Access,At_Offset_1 0764 e243 | C | Load 0x1,0x43 0765 e5fc | | Load 0x2,-0x4 0766 8249 | I | Call 0x1,0x49 0767 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0768 ; -------------------------------------------------------------------------------------- 0768 ; SUBPROGRAM 0768 ; -------------------------------------------------------------------------------------- 0768 0777 | w | .CONST 0x0777 ; Address of begin 0769 0004 | | .CONST 0x0004 ; Address of exception handler 076a 0007 | | .CONST 0x0007 ; Number of locals 076b INIT_0768: 076b e5fb | | Load 0x2,-0x5 076c 8248 | H | Call 0x1,0x48 076d 00f1 | | Load_Encached Diana_Temp_Seq 076e 02c7 | | Declare_Variable Any 076f e5fe | | Load 0x2,-0x2 0770 a403 | | Store_Unchecked 0x2,0x3 0771 1d68 | h | Execute_Immediate Reference_Lex_1,0x68 0772 00c6 | | Action Check_Subprogram_Elaborated 0773 1d69 | i | Execute_Immediate Reference_Lex_1,0x69 0774 e025 | % | Load 0x0,0x25 0775 e026 | & | Load 0x0,0x26 0776 4807 |H | Short_Literal 0x7 0777 BODY_0768: 0777 00cf | | Action Mark_Auxiliary 0778 7813 |x | Jump 0x78c 0779 e5fc | | Load 0x2,-0x4 077a e5ff | | Load 0x2,-0x1 077b e402 | | Load 0x2,0x2 077c e403 | | Load 0x2,0x3 077d 0217 | | Execute Heap_Access,All_Reference 077e 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 077f 4801 |H | Short_Literal 0x1 0780 4804 |H | Short_Literal 0x4 0781 4802 |H | Short_Literal 0x2 0782 0099 | | Action Reference_Dynamic 0783 4805 |H | Short_Literal 0x5 0784 4802 |H | Short_Literal 0x2 0785 0099 | | Action Reference_Dynamic 0786 8268 | h | Call 0x1,0x68 0787 e403 | | Load 0x2,0x3 0788 0217 | | Execute Heap_Access,All_Reference 0789 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 078a c403 | | Store 0x2,0x3 078b 00c9 | | Action Pop_Auxiliary_Loop 078c e403 | | Load 0x2,0x3 078d 77eb |w | Jump_Nonzero 0x779 078e 4506 |E | Exit_Suprogram New_Top_Offset 0x6 078f 0000 | | .XXX[0x1] 0790 ; -------------------------------------------------------------------------------------- 0790 ; SUBPROGRAM 0790 ; -------------------------------------------------------------------------------------- 0790 07a4 | | .CONST 0x07a4 ; Address of begin 0791 0004 | | .CONST 0x0004 ; Address of exception handler 0792 0008 | | .CONST 0x0008 ; Number of locals 0793 INIT_0790: 0793 e5fb | | Load 0x2,-0x5 0794 8248 | H | Call 0x1,0x48 0795 00f1 | | Load_Encached Diana_Temp_Seq 0796 02c7 | | Declare_Variable Any 0797 e5fe | | Load 0x2,-0x2 0798 a403 | | Store_Unchecked 0x2,0x3 0799 029f 0b63 | c| Declare_Subprogram INIT_0b60,For_Call 079b 1d68 | h | Execute_Immediate Reference_Lex_1,0x68 079c 00c6 | | Action Check_Subprogram_Elaborated 079d 4804 |H | Short_Literal 0x4 079e 4802 |H | Short_Literal 0x2 079f 0099 | | Action Reference_Dynamic 07a0 e027 | ' | Load 0x0,0x27 07a1 e028 | ( | Load 0x0,0x28 07a2 4808 |H | Short_Literal 0x8 07a3 0007 | | Action Break_Optional 07a4 BODY_0790: 07a4 e023 | # | Load 0x0,0x23 07a5 180e | | Execute Package,Field_Execute,Field_Number 0xe 07a6 e024 | $ | Load 0x0,0x24 07a7 1819 | | Execute Package,Field_Execute,Field_Number 0x19 07a8 00cf | | Action Mark_Auxiliary 07a9 7813 |x | Jump 0x7bd 07aa e5fc | | Load 0x2,-0x4 07ab e5ff | | Load 0x2,-0x1 07ac e402 | | Load 0x2,0x2 07ad e403 | | Load 0x2,0x3 07ae 0217 | | Execute Heap_Access,All_Reference 07af 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 07b0 4801 |H | Short_Literal 0x1 07b1 4805 |H | Short_Literal 0x5 07b2 4802 |H | Short_Literal 0x2 07b3 0099 | | Action Reference_Dynamic 07b4 4806 |H | Short_Literal 0x6 07b5 4802 |H | Short_Literal 0x2 07b6 0099 | | Action Reference_Dynamic 07b7 8268 | h | Call 0x1,0x68 07b8 e403 | | Load 0x2,0x3 07b9 0217 | | Execute Heap_Access,All_Reference 07ba 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 07bb c403 | | Store 0x2,0x3 07bc 00c9 | | Action Pop_Auxiliary_Loop 07bd e403 | | Load 0x2,0x3 07be 77eb |w | Jump_Nonzero 0x7aa 07bf 4506 |E | Exit_Suprogram New_Top_Offset 0x6 07c0 ; -------------------------------------------------------------------------------------- 07c0 ; SUBPROGRAM 07c0 ; -------------------------------------------------------------------------------------- 07c0 07c3 | | .CONST 0x07c3 ; Address of begin 07c1 0004 | | .CONST 0x0004 ; Address of exception handler 07c2 0001 | | .CONST 0x0001 ; Number of locals 07c3 BODY_07c0: 07c3 INIT_07c0: 07c3 4507 |E | Exit_Suprogram New_Top_Offset 0x7 07c4 0000 0000 | | .BLANK 0000[0x4] 07c8 ; -------------------------------------------------------------------------------------- 07c8 ; SUBPROGRAM 07c8 ; -------------------------------------------------------------------------------------- 07c8 07cb | | .CONST 0x07cb ; Address of begin 07c9 0004 | | .CONST 0x0004 ; Address of exception handler 07ca 0001 | | .CONST 0x0001 ; Number of locals 07cb BODY_07c8: 07cb INIT_07c8: 07cb e023 | # | Load 0x0,0x23 07cc 180e | | Execute Package,Field_Execute,Field_Number 0xe 07cd e024 | $ | Load 0x0,0x24 07ce 1819 | | Execute Package,Field_Execute,Field_Number 0x19 07cf 4507 |E | Exit_Suprogram New_Top_Offset 0x7 07d0 ; -------------------------------------------------------------------------------------- 07d0 ; SUBPROGRAM 07d0 ; -------------------------------------------------------------------------------------- 07d0 07d3 | | .CONST 0x07d3 ; Address of begin 07d1 0004 | | .CONST 0x0004 ; Address of exception handler 07d2 0001 | | .CONST 0x0001 ; Number of locals 07d3 BODY_07d0: 07d3 INIT_07d0: 07d3 4506 |E | Exit_Suprogram New_Top_Offset 0x6 07d4 0000 0000 | | .BLANK 0000[0x4] 07d8 ; -------------------------------------------------------------------------------------- 07d8 ; SUBPROGRAM 07d8 ; -------------------------------------------------------------------------------------- 07d8 07db | | .CONST 0x07db ; Address of begin 07d9 0004 | | .CONST 0x0004 ; Address of exception handler 07da 0001 | | .CONST 0x0001 ; Number of locals 07db BODY_07d8: 07db INIT_07d8: 07db 4502 |E | Exit_Suprogram New_Top_Offset 0x2 07dc 0000 0000 | | .BLANK 0000[0x4] 07e0 ; -------------------------------------------------------------------------------------- 07e0 ; SUBPROGRAM 07e0 ; -------------------------------------------------------------------------------------- 07e0 07e3 | | .CONST 0x07e3 ; Address of begin 07e1 0004 | | .CONST 0x0004 ; Address of exception handler 07e2 0001 | | .CONST 0x0001 ; Number of locals 07e3 BODY_07e0: 07e3 INIT_07e0: 07e3 4801 |H | Short_Literal 0x1 07e4 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 07e5 0000 0000 | | .XXX[0x3] 07e7 0000 | | 07e8 ; -------------------------------------------------------------------------------------- 07e8 ; SUBPROGRAM 07e8 ; -------------------------------------------------------------------------------------- 07e8 07eb | | .CONST 0x07eb ; Address of begin 07e9 0004 | | .CONST 0x0004 ; Address of exception handler 07ea 0001 | | .CONST 0x0001 ; Number of locals 07eb BODY_07e8: 07eb INIT_07e8: 07eb 4800 |H | Short_Literal 0x0 07ec a5fc | | Store_Unchecked 0x2,-0x4 07ed 4504 |E | Exit_Suprogram New_Top_Offset 0x4 07ee 0000 0000 | | .XXX[0x2] 07f0 ; -------------------------------------------------------------------------------------- 07f0 ; SUBPROGRAM 07f0 ; -------------------------------------------------------------------------------------- 07f0 07f3 | | .CONST 0x07f3 ; Address of begin 07f1 0004 | | .CONST 0x0004 ; Address of exception handler 07f2 0001 | | .CONST 0x0001 ; Number of locals 07f3 BODY_07f0: 07f3 INIT_07f0: 07f3 4505 |E | Exit_Suprogram New_Top_Offset 0x5 07f4 0000 0000 | | .BLANK 0000[0x4] 07f8 ; -------------------------------------------------------------------------------------- 07f8 ; SUBPROGRAM 07f8 ; -------------------------------------------------------------------------------------- 07f8 07fb | | .CONST 0x07fb ; Address of begin 07f9 0004 | | .CONST 0x0004 ; Address of exception handler 07fa 0001 | | .CONST 0x0001 ; Number of locals 07fb BODY_07f8: 07fb INIT_07f8: 07fb 0833 | 3 | Execute_Immediate Raise,0x33 07fc 0000 0000 | | .BLANK 0000[0x4] 0800 ; -------------------------------------------------------------------------------------- 0800 ; SUBPROGRAM 0800 ; -------------------------------------------------------------------------------------- 0800 0809 | | .CONST 0x0809 ; Address of begin 0801 0004 | | .CONST 0x0004 ; Address of exception handler 0802 0002 | | .CONST 0x0002 ; Number of locals 0803 INIT_0800: 0803 4801 |H | Short_Literal 0x1 0804 4800 |H | Short_Literal 0x0 0805 e029 | ) | Load 0x0,0x29 0806 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0807 035b | [ | Declare_Type Array,Constrained 0808 0337 | 7 | Declare_Variable Array 0809 BODY_0800: 0809 e01b | | Load 0x0,0x1b 080a 0257 | W | Execute Discrete,Raise 080b 0000 0000 | | .BLANK 0000[0x5] 0810 ; -------------------------------------------------------------------------------------- 0810 ; SUBPROGRAM 0810 ; -------------------------------------------------------------------------------------- 0810 0819 | | .CONST 0x0819 ; Address of begin 0811 0004 | | .CONST 0x0004 ; Address of exception handler 0812 0002 | | .CONST 0x0002 ; Number of locals 0813 INIT_0810: 0813 4801 |H | Short_Literal 0x1 0814 4800 |H | Short_Literal 0x0 0815 e029 | ) | Load 0x0,0x29 0816 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0817 035b | [ | Declare_Type Array,Constrained 0818 0337 | 7 | Declare_Variable Array 0819 BODY_0810: 0819 e01b | | Load 0x0,0x1b 081a 0257 | W | Execute Discrete,Raise 081b 0000 0000 | | .BLANK 0000[0x5] 0820 ; -------------------------------------------------------------------------------------- 0820 ; SUBPROGRAM 0820 ; -------------------------------------------------------------------------------------- 0820 0823 | # | .CONST 0x0823 ; Address of begin 0821 0004 | | .CONST 0x0004 ; Address of exception handler 0822 0001 | | .CONST 0x0001 ; Number of locals 0823 BODY_0820: 0823 INIT_0820: 0823 e01b | | Load 0x0,0x1b 0824 0257 | W | Execute Discrete,Raise 0825 0000 0000 | | .XXX[0x3] 0827 0000 | | 0828 ; -------------------------------------------------------------------------------------- 0828 ; SUBPROGRAM 0828 ; -------------------------------------------------------------------------------------- 0828 082b | + | .CONST 0x082b ; Address of begin 0829 0004 | | .CONST 0x0004 ; Address of exception handler 082a 0001 | | .CONST 0x0001 ; Number of locals 082b BODY_0828: 082b INIT_0828: 082b e01b | | Load 0x0,0x1b 082c 0257 | W | Execute Discrete,Raise 082d 0000 0000 | | .XXX[0x3] 082f 0000 | | 0830 ; -------------------------------------------------------------------------------------- 0830 ; SUBPROGRAM 0830 ; -------------------------------------------------------------------------------------- 0830 0833 | 3 | .CONST 0x0833 ; Address of begin 0831 0004 | | .CONST 0x0004 ; Address of exception handler 0832 0001 | | .CONST 0x0001 ; Number of locals 0833 BODY_0830: 0833 INIT_0830: 0833 e01b | | Load 0x0,0x1b 0834 0257 | W | Execute Discrete,Raise 0835 0000 0000 | | .XXX[0x3] 0837 0000 | | 0838 ; -------------------------------------------------------------------------------------- 0838 ; SUBPROGRAM 0838 ; -------------------------------------------------------------------------------------- 0838 083b | ; | .CONST 0x083b ; Address of begin 0839 0004 | | .CONST 0x0004 ; Address of exception handler 083a 0001 | | .CONST 0x0001 ; Number of locals 083b BODY_0838: 083b INIT_0838: 083b e01b | | Load 0x0,0x1b 083c 0257 | W | Execute Discrete,Raise 083d 0000 0000 | | .XXX[0x3] 083f 0000 | | 0840 ; -------------------------------------------------------------------------------------- 0840 ; SUBPROGRAM 0840 ; -------------------------------------------------------------------------------------- 0840 0843 | C | .CONST 0x0843 ; Address of begin 0841 0004 | | .CONST 0x0004 ; Address of exception handler 0842 0001 | | .CONST 0x0001 ; Number of locals 0843 BODY_0840: 0843 INIT_0840: 0843 00da | | Load_Top At_Offset_2 0844 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0845 0000 0000 | | .XXX[0x3] 0847 0000 | | 0848 ; -------------------------------------------------------------------------------------- 0848 ; SUBPROGRAM 0848 ; -------------------------------------------------------------------------------------- 0848 085a | Z | .CONST 0x085a ; Address of begin 0849 0004 | | .CONST 0x0004 ; Address of exception handler 084a 0005 | | .CONST 0x0005 ; Number of locals 084b INIT_0848: 084b e013 | | Load 0x0,0x13 084c 1b14 | | Execute Package,Field_Read,Field_Number 0x14 084d 02ff | | Declare_Variable Variant_Record 084e 00d8 | | Load_Top At_Offset_0 084f 1c00 | | Execute_Immediate Run_Utility,0x0 0850 e02a | * | Load 0x0,0x2a 0851 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0852 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0853 02c7 | | Declare_Variable Any 0854 00d8 | | Load_Top At_Offset_0 0855 1c00 | | Execute_Immediate Run_Utility,0x0 0856 e013 | | Load 0x0,0x13 0857 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0858 e02b | + | Load 0x0,0x2b 0859 1b0d | | Execute Package,Field_Read,Field_Number 0xd 085a BODY_0848: 085a e5ff | | Load 0x2,-0x1 085b e001 | | Load 0x0,0x1 085c 1b1c | | Execute Package,Field_Read,Field_Number 0x1c 085d 181e | | Execute Package,Field_Execute,Field_Number 0x1e 085e 680e |h | Jump_Zero 0x86d 085f e5ff | | Load 0x2,-0x1 0860 00d8 | | Load_Top At_Offset_0 0861 e001 | | Load 0x0,0x1 0862 1b1c | | Execute Package,Field_Read,Field_Number 0x1c 0863 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0864 e02c | , | Load 0x0,0x2c 0865 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0866 e02d | - | Load 0x0,0x2d 0867 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0868 e5fe | | Load 0x2,-0x2 0869 e02e | . | Load 0x0,0x2e 086a 1b0e | | Execute Package,Field_Read,Field_Number 0xe 086b 1812 | | Execute Package,Field_Execute,Field_Number 0x12 086c c403 | | Store 0x2,0x3 086d 4507 |E | Exit_Suprogram New_Top_Offset 0x7 086e 0000 0000 | | .XXX[0x2] 0870 ; -------------------------------------------------------------------------------------- 0870 ; SUBPROGRAM 0870 ; -------------------------------------------------------------------------------------- 0870 087b | { | .CONST 0x087b ; Address of begin 0871 0004 | | .CONST 0x0004 ; Address of exception handler 0872 0004 | | .CONST 0x0004 ; Number of locals 0873 INIT_0870: 0873 e5fc | | Load 0x2,-0x4 0874 8248 | H | Call 0x1,0x48 0875 00d8 | | Load_Top At_Offset_0 0876 0217 | | Execute Heap_Access,All_Reference 0877 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0878 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0879 0007 | | Action Break_Optional 087a e22e | . | Load 0x1,0x2e 087b BODY_0870: 087b 00cf | | Action Mark_Auxiliary 087c 780f |x | Jump 0x88c 087d 00da | | Load_Top At_Offset_2 087e 0217 | | Execute Heap_Access,All_Reference 087f 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0880 e22e | . | Load 0x1,0x2e 0881 0216 | | Execute Heap_Access,Convert 0882 0032 | 2 | Store_Top Heap_Access,At_Offset_2 0883 00da | | Load_Top At_Offset_2 0884 e22d | - | Load 0x1,0x2d 0885 0216 | | Execute Heap_Access,Convert 0886 e5fd | | Load 0x2,-0x3 0887 8259 | Y | Call 0x1,0x59 0888 0033 | 3 | Store_Top Heap_Access,At_Offset_3 0889 00d9 | | Load_Top At_Offset_1 088a 0033 | 3 | Store_Top Heap_Access,At_Offset_3 088b 00c9 | | Action Pop_Auxiliary_Loop 088c 00da | | Load_Top At_Offset_2 088d 77ef |w | Jump_Nonzero 0x87d 088e 00ce | | Action Pop_Auxiliary 088f e22e | . | Load 0x1,0x2e 0890 00db | | Load_Top At_Offset_3 0891 0217 | | Execute Heap_Access,All_Reference 0892 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0893 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0894 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0895 0000 0000 | | .XXX[0x3] 0897 0000 | | 0898 ; -------------------------------------------------------------------------------------- 0898 ; SUBPROGRAM 0898 ; -------------------------------------------------------------------------------------- 0898 089b | | .CONST 0x089b ; Address of begin 0899 0004 | | .CONST 0x0004 ; Address of exception handler 089a 0001 | | .CONST 0x0001 ; Number of locals 089b BODY_0898: 089b INIT_0898: 089b 4507 |E | Exit_Suprogram New_Top_Offset 0x7 089c 0000 0000 | | .BLANK 0000[0x4] 08a0 ; -------------------------------------------------------------------------------------- 08a0 ; SUBPROGRAM 08a0 ; -------------------------------------------------------------------------------------- 08a0 08a3 | | .CONST 0x08a3 ; Address of begin 08a1 0004 | | .CONST 0x0004 ; Address of exception handler 08a2 0001 | | .CONST 0x0001 ; Number of locals 08a3 BODY_08a0: 08a3 INIT_08a0: 08a3 450c |E | Exit_Suprogram New_Top_Offset 0xc 08a4 0000 0000 | | .BLANK 0000[0x4] 08a8 ; -------------------------------------------------------------------------------------- 08a8 ; SUBPROGRAM 08a8 ; -------------------------------------------------------------------------------------- 08a8 08ad | | .CONST 0x08ad ; Address of begin 08a9 0004 | | .CONST 0x0004 ; Address of exception handler 08aa 0002 | | .CONST 0x0002 ; Number of locals 08ab INIT_08a8: 08ab e22f | / | Load 0x1,0x2f 08ac 0007 | | Action Break_Optional 08ad BODY_08a8: 08ad e404 | | Load 0x2,0x4 08ae 7006 |p | Jump_Nonzero 0x8b5 08af 00db | | Load_Top At_Offset_3 08b0 e403 | | Load 0x2,0x3 08b1 0217 | | Execute Heap_Access,All_Reference 08b2 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 08b3 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 08b4 4502 |E | Exit_Suprogram New_Top_Offset 0x2 08b5 e404 | | Load 0x2,0x4 08b6 0217 | | Execute Heap_Access,All_Reference 08b7 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 08b8 0031 | 1 | Store_Top Heap_Access,At_Offset_1 08b9 00cf | | Action Mark_Auxiliary 08ba 7807 |x | Jump 0x8c2 08bb 00d9 | | Load_Top At_Offset_1 08bc a404 | | Store_Unchecked 0x2,0x4 08bd 00d9 | | Load_Top At_Offset_1 08be 0217 | | Execute Heap_Access,All_Reference 08bf 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 08c0 0032 | 2 | Store_Top Heap_Access,At_Offset_2 08c1 00c9 | | Action Pop_Auxiliary_Loop 08c2 00d9 | | Load_Top At_Offset_1 08c3 77f7 |w | Jump_Nonzero 0x8bb 08c4 00ce | | Action Pop_Auxiliary 08c5 00db | | Load_Top At_Offset_3 08c6 e22f | / | Load 0x1,0x2f 08c7 0216 | | Execute Heap_Access,Convert 08c8 e404 | | Load 0x2,0x4 08c9 0217 | | Execute Heap_Access,All_Reference 08ca 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 08cb 4502 |E | Exit_Suprogram New_Top_Offset 0x2 08cc 0000 0000 | | .BLANK 0000[0x4] 08d0 ; -------------------------------------------------------------------------------------- 08d0 ; SUBPROGRAM 08d0 ; -------------------------------------------------------------------------------------- 08d0 08d9 | | .CONST 0x08d9 ; Address of begin 08d1 0004 | | .CONST 0x0004 ; Address of exception handler 08d2 0002 | | .CONST 0x0002 ; Number of locals 08d3 INIT_08d0: 08d3 e241 | A | Load 0x1,0x41 08d4 e5ff | | Load 0x2,-0x1 08d5 8248 | H | Call 0x1,0x48 08d6 0217 | | Execute Heap_Access,All_Reference 08d7 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 08d8 0031 | 1 | Store_Top Heap_Access,At_Offset_1 08d9 BODY_08d0: 08d9 00d8 | | Load_Top At_Offset_0 08da 7003 |p | Jump_Nonzero 0x8de 08db e237 | 7 | Load 0x1,0x37 08dc 00cb | | Action Pop_Block_With_Result 08dd 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 08de 00d8 | | Load_Top At_Offset_0 08df 0217 | | Execute Heap_Access,All_Reference 08e0 0335 | 5 | Declare_Variable Array,Duplicate 08e1 00cd | | Action Spare6_Action 08e2 00cb | | Action Pop_Block_With_Result 08e3 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 08e4 0000 0000 | | .BLANK 0000[0x4] 08e8 ; -------------------------------------------------------------------------------------- 08e8 ; SUBPROGRAM 08e8 ; -------------------------------------------------------------------------------------- 08e8 08eb | | .CONST 0x08eb ; Address of begin 08e9 0004 | | .CONST 0x0004 ; Address of exception handler 08ea 0001 | | .CONST 0x0001 ; Number of locals 08eb BODY_08e8: 08eb INIT_08e8: 08eb 00da | | Load_Top At_Offset_2 08ec 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 08ed 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 08ee 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 08ef 680b |h | Jump_Zero 0x8fb 08f0 4802 |H | Short_Literal 0x2 08f1 0092 0d2b | +| Action Push_String_Extended,0xd2b ; "Item on target-dependent unit free list has a non-null list of calls" 08f3 e5ff | | Load 0x2,-0x1 08f4 e001 | | Load 0x0,0x1 08f5 1b73 | s | Execute Package,Field_Read,Field_Number 0x73 08f6 1b0f | | Execute Package,Field_Read,Field_Number 0xf 08f7 180f | | Execute Package,Field_Execute,Field_Number 0xf 08f8 e001 | | Load 0x0,0x1 08f9 1b1c | | Execute Package,Field_Read,Field_Number 0x1c 08fa 1819 | | Execute Package,Field_Execute,Field_Number 0x19 08fb 00da | | Load_Top At_Offset_2 08fc 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 08fd 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 08fe 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 08ff 680b |h | Jump_Zero 0x90b 0900 4802 |H | Short_Literal 0x2 0901 0092 0d2c | ,| Action Push_String_Extended,0xd2c ; "Item on target-dependent unit free list has a non-null list of defns" 0903 e5ff | | Load 0x2,-0x1 0904 e001 | | Load 0x0,0x1 0905 1b73 | s | Execute Package,Field_Read,Field_Number 0x73 0906 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0907 180f | | Execute Package,Field_Execute,Field_Number 0xf 0908 e001 | | Load 0x0,0x1 0909 1b1c | | Execute Package,Field_Read,Field_Number 0x1c 090a 1819 | | Execute Package,Field_Execute,Field_Number 0x19 090b 4502 |E | Exit_Suprogram New_Top_Offset 0x2 090c 0000 0000 | | .BLANK 0000[0x4] 0910 ; -------------------------------------------------------------------------------------- 0910 ; SUBPROGRAM 0910 ; -------------------------------------------------------------------------------------- 0910 0913 | | .CONST 0x0913 ; Address of begin 0911 0004 | | .CONST 0x0004 ; Address of exception handler 0912 0001 | | .CONST 0x0001 ; Number of locals 0913 BODY_0910: 0913 INIT_0910: 0913 00da | | Load_Top At_Offset_2 0914 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 0915 680b |h | Jump_Zero 0x921 0916 4802 |H | Short_Literal 0x2 0917 0092 0d2d | -| Action Push_String_Extended,0xd2d ; "A calls node on the free list has a non-null link" 0919 e5ff | | Load 0x2,-0x1 091a e001 | | Load 0x0,0x1 091b 1b73 | s | Execute Package,Field_Read,Field_Number 0x73 091c 1b0f | | Execute Package,Field_Read,Field_Number 0xf 091d 180f | | Execute Package,Field_Execute,Field_Number 0xf 091e e001 | | Load 0x0,0x1 091f 1b1c | | Execute Package,Field_Read,Field_Number 0x1c 0920 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0921 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0922 0000 0000 | | .BLANK 0000[0x6] 0928 ; -------------------------------------------------------------------------------------- 0928 ; SUBPROGRAM 0928 ; -------------------------------------------------------------------------------------- 0928 092b | + | .CONST 0x092b ; Address of begin 0929 0004 | | .CONST 0x0004 ; Address of exception handler 092a 0001 | | .CONST 0x0001 ; Number of locals 092b BODY_0928: 092b INIT_0928: 092b 00da | | Load_Top At_Offset_2 092c 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 092d 680b |h | Jump_Zero 0x939 092e 4802 |H | Short_Literal 0x2 092f 0092 0d2e | .| Action Push_String_Extended,0xd2e ; "A defns node on the free list has a non-null link" 0931 e5ff | | Load 0x2,-0x1 0932 e001 | | Load 0x0,0x1 0933 1b73 | s | Execute Package,Field_Read,Field_Number 0x73 0934 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0935 180f | | Execute Package,Field_Execute,Field_Number 0xf 0936 e001 | | Load 0x0,0x1 0937 1b1c | | Execute Package,Field_Read,Field_Number 0x1c 0938 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0939 4502 |E | Exit_Suprogram New_Top_Offset 0x2 093a 0000 0000 | | .BLANK 0000[0x6] 0940 ; -------------------------------------------------------------------------------------- 0940 ; SUBPROGRAM 0940 ; -------------------------------------------------------------------------------------- 0940 095d | ] | .CONST 0x095d ; Address of begin 0941 0004 | | .CONST 0x0004 ; Address of exception handler 0942 0009 | | .CONST 0x0009 ; Number of locals 0943 INIT_0940: 0943 00da | | Load_Top At_Offset_2 0944 0145 | E | Execute Heap_Access,Diana_Tree_Kind 0945 008e | | Action Discrete,Diana_Arity_For_Kind 0946 00eb | | Load_Encached Diana_Cache 0947 1b82 | | Execute Package,Field_Read,Field_Number 0x82 0948 03f1 | | Declare_Variable Discrete,With_Value 0949 00ee | | Load_Encached Diana_Seq_Type_Cache 094a 02c7 | | Declare_Variable Any 094b 00d8 | | Load_Top At_Offset_0 094c 1c00 | | Execute_Immediate Run_Utility,0x0 094d 00ec | | Load_Encached Diana_Tree_Cache 094e 02c7 | | Declare_Variable Any 094f 00d8 | | Load_Top At_Offset_0 0950 1c00 | | Execute_Immediate Run_Utility,0x0 0951 00ec | | Load_Encached Diana_Tree_Cache 0952 02c7 | | Declare_Variable Any 0953 00d8 | | Load_Top At_Offset_0 0954 1c00 | | Execute_Immediate Run_Utility,0x0 0955 029f 0bdb | | Declare_Subprogram INIT_0bd8,For_Call 0957 029f 0c13 | | Declare_Subprogram INIT_0c10,For_Call 0959 029f 0c23 | #| Declare_Subprogram INIT_0c20,For_Call 095b 029f 0c3b | ;| Declare_Subprogram INIT_0c38,For_Call 095d BODY_0940: 095d e602 | | Load 0x3,0x2 095e 4604 |F | Jump_Case 0x5 095f 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x0 0960 7815 |x | Jump 0x976 ; case 0x1 0961 7819 |x | Jump 0x97b ; case 0x2 0962 7861 |xa | Jump 0x9c4 ; case 0x3 0963 7800 |x | Jump 0x964 ; case 0x4 0964 e7ff | | Load 0x3,-0x1 0965 00eb | | Load_Encached Diana_Cache 0966 1889 | | Execute Package,Field_Execute,Field_Number 0x89 0967 c603 | | Store 0x3,0x3 0968 00cf | | Action Mark_Auxiliary 0969 7808 |x | Jump 0x972 096a e603 | | Load 0x3,0x3 096b 008b | | Action Heap_Access,Diana_Seq_Type_Get_Head 096c 8402 | | Call 0x2,0x2 096d e603 | | Load 0x3,0x3 096e 0217 | | Execute Heap_Access,All_Reference 096f 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0970 c603 | | Store 0x3,0x3 0971 00c9 | | Action Pop_Auxiliary_Loop 0972 e603 | | Load 0x3,0x3 0973 77f6 |w | Jump_Nonzero 0x96a 0974 00ce | | Action Pop_Auxiliary 0975 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0976 e7ff | | Load 0x3,-0x1 0977 00eb | | Load_Encached Diana_Cache 0978 188a | | Execute Package,Field_Execute,Field_Number 0x8a 0979 8402 | | Call 0x2,0x2 097a 4502 |E | Exit_Suprogram New_Top_Offset 0x2 097b e7ff | | Load 0x3,-0x1 097c 0145 | E | Execute Heap_Access,Diana_Tree_Kind 097d 0f10 | | Execute_Immediate Equal,0x10 097e e7ff | | Load 0x3,-0x1 097f 0145 | E | Execute Heap_Access,Diana_Tree_Kind 0980 0f5b | [ | Execute_Immediate Equal,0x5b 0981 0278 | x | Execute Discrete,Or 0982 681c |h | Jump_Zero 0x99f 0983 e7ff | | Load 0x3,-0x1 0984 00eb | | Load_Encached Diana_Cache 0985 18d4 | | Execute Package,Field_Execute,Field_Number 0xd4 0986 4976 |Iv | Short_Literal 0x176 0987 00eb | | Load_Encached Diana_Cache 0988 0098 | | Execute Package,Field_Read_Dynamic 0989 1813 | | Execute Package,Field_Execute,Field_Number 0x13 098a c604 | | Store 0x3,0x4 098b e604 | | Load 0x3,0x4 098c 8606 | | Call 0x3,0x6 098d 682d |h- | Jump_Zero 0x9bb 098e e604 | | Load 0x3,0x4 098f 8267 | g | Call 0x1,0x67 0990 c604 | | Store 0x3,0x4 0991 e604 | | Load 0x3,0x4 0992 8607 | | Call 0x3,0x7 0993 6827 |h' | Jump_Zero 0x9bb 0994 e7ff | | Load 0x3,-0x1 0995 490c |I | Short_Literal 0x10c 0996 00eb | | Load_Encached Diana_Cache 0997 0096 | | Execute Package,Entry 0998 8609 | | Call 0x3,0x9 0999 e5fa | | Load 0x2,-0x6 099a e5f9 | | Load 0x2,-0x7 099b e5fb | | Load 0x2,-0x5 099c e604 | | Load 0x3,0x4 099d 85fe | | Call 0x2,-0x2 099e 781c |x | Jump 0x9bb 099f e7ff | | Load 0x3,-0x1 09a0 0145 | E | Execute Heap_Access,Diana_Tree_Kind 09a1 0f40 | @ | Execute_Immediate Equal,0x40 09a2 6818 |h | Jump_Zero 0x9bb 09a3 e5fd | | Load 0x2,-0x3 09a4 0f01 | | Execute_Immediate Equal,0x1 09a5 6815 |h | Jump_Zero 0x9bb 09a6 4801 |H | Short_Literal 0x1 09a7 0092 0d2f | /| Action Push_String_Extended,0xd2f ; "INLINE" 09a9 e7ff | | Load 0x3,-0x1 09aa 00eb | | Load_Encached Diana_Cache 09ab 18cf | | Execute Package,Field_Execute,Field_Number 0xcf 09ac 00eb | | Load_Encached Diana_Cache 09ad 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 09ae 00eb | | Load_Encached Diana_Cache 09af 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 09b0 e02f | / | Load 0x0,0x2f 09b1 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 09b2 6808 |h | Jump_Zero 0x9bb 09b3 4802 |H | Short_Literal 0x2 09b4 0092 0d30 | 0| Action Push_String_Extended,0xd30 ; "Incremental insertion and removal of pragma Inline with RCI is disallowed" 09b6 e5fa | | Load 0x2,-0x6 09b7 e001 | | Load 0x0,0x1 09b8 1b1c | | Execute Package,Field_Read,Field_Number 0x1c 09b9 1819 | | Execute Package,Field_Execute,Field_Number 0x19 09ba 4502 |E | Exit_Suprogram New_Top_Offset 0x2 09bb e7ff | | Load 0x3,-0x1 09bc 00eb | | Load_Encached Diana_Cache 09bd 188a | | Execute Package,Field_Execute,Field_Number 0x8a 09be 8402 | | Call 0x2,0x2 09bf e7ff | | Load 0x3,-0x1 09c0 00eb | | Load_Encached Diana_Cache 09c1 188b | | Execute Package,Field_Execute,Field_Number 0x8b 09c2 8402 | | Call 0x2,0x2 09c3 4502 |E | Exit_Suprogram New_Top_Offset 0x2 09c4 e5fd | | Load 0x2,-0x3 09c5 7011 |p | Jump_Nonzero 0x9d7 09c6 e7ff | | Load 0x3,-0x1 09c7 0145 | E | Execute Heap_Access,Diana_Tree_Kind 09c8 0f48 | H | Execute_Immediate Equal,0x48 09c9 680d |h | Jump_Zero 0x9d7 09ca e7ff | | Load 0x3,-0x1 09cb 00eb | | Load_Encached Diana_Cache 09cc 18bf | | Execute Package,Field_Execute,Field_Number 0xbf 09cd 4976 |Iv | Short_Literal 0x176 09ce 00eb | | Load_Encached Diana_Cache 09cf 0098 | | Execute Package,Field_Read_Dynamic 09d0 1817 | | Execute Package,Field_Execute,Field_Number 0x17 09d1 c605 | | Store 0x3,0x5 09d2 e605 | | Load 0x3,0x5 09d3 8606 | | Call 0x3,0x6 09d4 6802 |h | Jump_Zero 0x9d7 09d5 e605 | | Load 0x3,0x5 09d6 8608 | | Call 0x3,0x8 09d7 e7ff | | Load 0x3,-0x1 09d8 00eb | | Load_Encached Diana_Cache 09d9 188a | | Execute Package,Field_Execute,Field_Number 0x8a 09da 8402 | | Call 0x2,0x2 09db e7ff | | Load 0x3,-0x1 09dc 00eb | | Load_Encached Diana_Cache 09dd 188b | | Execute Package,Field_Execute,Field_Number 0x8b 09de 8402 | | Call 0x2,0x2 09df e7ff | | Load 0x3,-0x1 09e0 00eb | | Load_Encached Diana_Cache 09e1 188c | | Execute Package,Field_Execute,Field_Number 0x8c 09e2 8402 | | Call 0x2,0x2 09e3 4502 |E | Exit_Suprogram New_Top_Offset 0x2 09e4 0000 0000 | | .BLANK 0000[0x4] 09e8 ; -------------------------------------------------------------------------------------- 09e8 ; SUBPROGRAM 09e8 ; -------------------------------------------------------------------------------------- 09e8 09ef | | .CONST 0x09ef ; Address of begin 09e9 0004 | | .CONST 0x0004 ; Address of exception handler 09ea 0003 | | .CONST 0x0003 ; Number of locals 09eb INIT_09e8: 09eb 029f 0c7b | {| Declare_Subprogram INIT_0c78,For_Call 09ed 029f 0c8b | | Declare_Subprogram INIT_0c88,For_Call 09ef BODY_09e8: 09ef e404 | | Load 0x2,0x4 09f0 8602 | | Call 0x3,0x2 09f1 6802 |h | Jump_Zero 0x9f4 09f2 8603 | | Call 0x3,0x3 09f3 7806 |x | Jump 0x9fa 09f4 e404 | | Load 0x2,0x4 09f5 e001 | | Load 0x0,0x1 09f6 1819 | | Execute Package,Field_Execute,Field_Number 0x19 09f7 e7ff | | Load 0x3,-0x1 09f8 0217 | | Execute Heap_Access,All_Reference 09f9 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 09fa e21e | | Load 0x1,0x1e 09fb e7ff | | Load 0x3,-0x1 09fc 0217 | | Execute Heap_Access,All_Reference 09fd 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 09fe e406 | | Load 0x2,0x6 09ff e7ff | | Load 0x3,-0x1 0a00 0217 | | Execute Heap_Access,All_Reference 0a01 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0a02 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0a03 0000 0000 | | .BLANK 0000[0x5] 0a08 ; -------------------------------------------------------------------------------------- 0a08 ; SUBPROGRAM 0a08 ; -------------------------------------------------------------------------------------- 0a08 0a14 | | .CONST 0x0a14 ; Address of begin 0a09 0004 | | .CONST 0x0004 ; Address of exception handler 0a0a 0003 | | .CONST 0x0003 ; Number of locals 0a0b INIT_0a08: 0a0b e21e | | Load 0x1,0x1e 0a0c 0007 | | Action Break_Optional 0a0d e5fe | | Load 0x2,-0x2 0a0e 0217 | | Execute Heap_Access,All_Reference 0a0f 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0a10 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0a11 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0a12 e21e | | Load 0x1,0x1e 0a13 0216 | | Execute Heap_Access,Convert 0a14 BODY_0a08: 0a14 00d8 | | Load_Top At_Offset_0 0a15 7007 |p | Jump_Nonzero 0xa1d 0a16 e7ff | | Load 0x3,-0x1 0a17 e5fe | | Load 0x2,-0x2 0a18 0217 | | Execute Heap_Access,All_Reference 0a19 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0a1a 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0a1b 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0a1c 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0a1d 00d8 | | Load_Top At_Offset_0 0a1e 0217 | | Execute Heap_Access,All_Reference 0a1f 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 0a20 0032 | 2 | Store_Top Heap_Access,At_Offset_2 0a21 00cf | | Action Mark_Auxiliary 0a22 7807 |x | Jump 0xa2a 0a23 00da | | Load_Top At_Offset_2 0a24 0032 | 2 | Store_Top Heap_Access,At_Offset_2 0a25 00da | | Load_Top At_Offset_2 0a26 0217 | | Execute Heap_Access,All_Reference 0a27 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 0a28 0033 | 3 | Store_Top Heap_Access,At_Offset_3 0a29 00c9 | | Action Pop_Auxiliary_Loop 0a2a 00da | | Load_Top At_Offset_2 0a2b 77f7 |w | Jump_Nonzero 0xa23 0a2c 00ce | | Action Pop_Auxiliary 0a2d e7ff | | Load 0x3,-0x1 0a2e e21e | | Load 0x1,0x1e 0a2f 0216 | | Execute Heap_Access,Convert 0a30 00d9 | | Load_Top At_Offset_1 0a31 0217 | | Execute Heap_Access,All_Reference 0a32 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 0a33 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0a34 0000 0000 | | .BLANK 0000[0x4] 0a38 ; -------------------------------------------------------------------------------------- 0a38 ; SUBPROGRAM 0a38 ; -------------------------------------------------------------------------------------- 0a38 0a42 | B | .CONST 0x0a42 ; Address of begin 0a39 0004 | | .CONST 0x0004 ; Address of exception handler 0a3a 0002 | | .CONST 0x0002 ; Number of locals 0a3b INIT_0a38: 0a3b e5fe | | Load 0x2,-0x2 0a3c 0217 | | Execute Heap_Access,All_Reference 0a3d 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0a3e 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0a3f 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0a40 e21e | | Load 0x1,0x1e 0a41 0216 | | Execute Heap_Access,Convert 0a42 BODY_0a38: 0a42 4801 |H | Short_Literal 0x1 0a43 a7fe | | Store_Unchecked 0x3,-0x2 0a44 00cf | | Action Mark_Auxiliary 0a45 781d |x | Jump 0xa63 0a46 00d9 | | Load_Top At_Offset_1 0a47 0217 | | Execute Heap_Access,All_Reference 0a48 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0a49 e406 | | Load 0x2,0x6 0a4a 027f | | Execute Discrete,Equal 0a4b 6812 |h | Jump_Zero 0xa5e 0a4c 00d9 | | Load_Top At_Offset_1 0a4d 0217 | | Execute Heap_Access,All_Reference 0a4e 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0a4f e404 | | Load 0x2,0x4 0a50 e001 | | Load 0x0,0x1 0a51 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0a52 012f | / | Execute Any,Equal 0a53 680a |h | Jump_Zero 0xa5e 0a54 00d9 | | Load_Top At_Offset_1 0a55 0217 | | Execute Heap_Access,All_Reference 0a56 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0a57 0a01 | | Execute_Immediate Plus,0x1 0a58 00da | | Load_Top At_Offset_2 0a59 0217 | | Execute Heap_Access,All_Reference 0a5a 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 0a5b 4800 |H | Short_Literal 0x0 0a5c a7fe | | Store_Unchecked 0x3,-0x2 0a5d 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0a5e 00d9 | | Load_Top At_Offset_1 0a5f 0217 | | Execute Heap_Access,All_Reference 0a60 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 0a61 0032 | 2 | Store_Top Heap_Access,At_Offset_2 0a62 00c9 | | Action Pop_Auxiliary_Loop 0a63 00d9 | | Load_Top At_Offset_1 0a64 77e1 |w | Jump_Nonzero 0xa46 0a65 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0a66 0000 0000 | | .XXX[0x2] 0a68 ; -------------------------------------------------------------------------------------- 0a68 ; SUBPROGRAM 0a68 ; -------------------------------------------------------------------------------------- 0a68 0a8b | | .CONST 0x0a8b ; Address of begin 0a69 0b40 | @ | .CONST 0x0b40 ; Address of exception handler 0a6a 0008 | | .CONST 0x0008 ; Number of locals 0a6b INIT_0a68: 0a6b e030 | 0 | Load 0x0,0x30 0a6c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0a6d 02c7 | | Declare_Variable Any 0a6e 00d8 | | Load_Top At_Offset_0 0a6f 1c00 | | Execute_Immediate Run_Utility,0x0 0a70 e013 | | Load 0x0,0x13 0a71 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0a72 e02b | + | Load 0x0,0x2b 0a73 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0a74 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0a75 e013 | | Load 0x0,0x13 0a76 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 0a77 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0a78 02c7 | | Declare_Variable Any 0a79 00d8 | | Load_Top At_Offset_0 0a7a 1c00 | | Execute_Immediate Run_Utility,0x0 0a7b e013 | | Load 0x0,0x13 0a7c 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0a7d 02c7 | | Declare_Variable Any 0a7e 00d8 | | Load_Top At_Offset_0 0a7f 1c00 | | Execute_Immediate Run_Utility,0x0 0a80 e013 | | Load 0x0,0x13 0a81 1b3d | = | Execute Package,Field_Read,Field_Number 0x3d 0a82 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0a83 02c7 | | Declare_Variable Any 0a84 00d8 | | Load_Top At_Offset_0 0a85 1c00 | | Execute_Immediate Run_Utility,0x0 0a86 e013 | | Load 0x0,0x13 0a87 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0a88 02c7 | | Declare_Variable Any 0a89 00d8 | | Load_Top At_Offset_0 0a8a 1c00 | | Execute_Immediate Run_Utility,0x0 0a8b BODY_0a68: 0a8b e013 | | Load 0x0,0x13 0a8c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0a8d e605 | | Load 0x3,0x5 0a8e 0120 | | Execute Any,Is_Value 0a8f 6804 |h | Jump_Zero 0xa94 0a90 e013 | | Load 0x0,0x13 0a91 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 0a92 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0a93 7801 |x | Jump 0xa95 0a94 e605 | | Load 0x3,0x5 0a95 e7ff | | Load 0x3,-0x1 0a96 e013 | | Load 0x0,0x13 0a97 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 0a98 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0a99 c605 | | Store 0x3,0x5 0a9a c603 | | Store 0x3,0x3 0a9b e603 | | Load 0x3,0x3 0a9c 681e |h | Jump_Zero 0xabb 0a9d 00ec | | Load_Encached Diana_Tree_Cache 0a9e 00ec | | Load_Encached Diana_Tree_Cache 0a9f e02c | , | Load 0x0,0x2c 0aa0 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0aa1 e02d | - | Load 0x0,0x2d 0aa2 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0aa3 00ec | | Load_Encached Diana_Tree_Cache 0aa4 0092 0d31 | 1| Action Push_String_Extended,0xd31 ; "Error while obtaining object for " 0aa6 e7ff | | Load 0x3,-0x1 0aa7 e013 | | Load 0x0,0x13 0aa8 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0aa9 183d | = | Execute Package,Field_Execute,Field_Number 0x3d 0aaa 01cc | | Execute Vector,Catenate 0aab 0092 0d32 | 2| Action Push_String_Extended,0xd32 ; ": " 0aad 01cc | | Execute Vector,Catenate 0aae e603 | | Load 0x3,0x3 0aaf e013 | | Load 0x0,0x13 0ab0 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0ab1 011c | | Execute Any,Convert_Unchecked 0ab2 1c01 | | Execute_Immediate Run_Utility,0x1 0ab3 01cc | | Execute Vector,Catenate 0ab4 00ec | | Load_Encached Diana_Tree_Cache 0ab5 4802 |H | Short_Literal 0x2 0ab6 e602 | | Load 0x3,0x2 0ab7 e030 | 0 | Load 0x0,0x30 0ab8 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0ab9 c602 | | Store 0x3,0x2 0aba 787f |x | Jump 0xb3a 0abb 00db | | Load_Top At_Offset_3 0abc e013 | | Load 0x0,0x13 0abd 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 0abe 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0abf c606 | | Store 0x3,0x6 0ac0 e013 | | Load 0x0,0x13 0ac1 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0ac2 00da | | Load_Top At_Offset_2 0ac3 0120 | | Execute Any,Is_Value 0ac4 6804 |h | Jump_Zero 0xac9 0ac5 e013 | | Load 0x0,0x13 0ac6 1b3d | = | Execute Package,Field_Read,Field_Number 0x3d 0ac7 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0ac8 7801 |x | Jump 0xaca 0ac9 00da | | Load_Top At_Offset_2 0aca e606 | | Load 0x3,0x6 0acb e013 | | Load 0x0,0x13 0acc 1b3d | = | Execute Package,Field_Read,Field_Number 0x3d 0acd 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0ace c607 | | Store 0x3,0x7 0acf c603 | | Store 0x3,0x3 0ad0 e603 | | Load 0x3,0x3 0ad1 681d |h | Jump_Zero 0xaef 0ad2 00ec | | Load_Encached Diana_Tree_Cache 0ad3 00ec | | Load_Encached Diana_Tree_Cache 0ad4 e02c | , | Load 0x0,0x2c 0ad5 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0ad6 e02d | - | Load 0x0,0x2d 0ad7 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0ad8 00ec | | Load_Encached Diana_Tree_Cache 0ad9 0092 0d33 | 3| Action Push_String_Extended,0xd33 ; "Error while obtaining enclosing world for " 0adb e606 | | Load 0x3,0x6 0adc e013 | | Load 0x0,0x13 0add 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0ade 183e | > | Execute Package,Field_Execute,Field_Number 0x3e 0adf 01cc | | Execute Vector,Catenate 0ae0 0092 0d32 | 2| Action Push_String_Extended,0xd32 ; ": " 0ae2 01cc | | Execute Vector,Catenate 0ae3 e603 | | Load 0x3,0x3 0ae4 e013 | | Load 0x0,0x13 0ae5 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0ae6 011c | | Execute Any,Convert_Unchecked 0ae7 1c01 | | Execute_Immediate Run_Utility,0x1 0ae8 01cc | | Execute Vector,Catenate 0ae9 00ec | | Load_Encached Diana_Tree_Cache 0aea 4802 |H | Short_Literal 0x2 0aeb e602 | | Load 0x3,0x2 0aec e030 | 0 | Load 0x0,0x30 0aed 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0aee c602 | | Store 0x3,0x2 0aef 00d9 | | Load_Top At_Offset_1 0af0 e013 | | Load 0x0,0x13 0af1 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 0af2 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0af3 c608 | | Store 0x3,0x8 0af4 00d8 | | Load_Top At_Offset_0 0af5 e013 | | Load 0x0,0x13 0af6 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 0af7 e031 | 1 | Load 0x0,0x31 0af8 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0af9 027e | ~ | Execute Discrete,Not_Equal 0afa 681c |h | Jump_Zero 0xb17 0afb 00d8 | | Load_Top At_Offset_0 0afc e022 | " | Load 0x0,0x22 0afd 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0afe 7018 |p | Jump_Nonzero 0xb17 0aff 00d8 | | Load_Top At_Offset_0 0b00 e022 | " | Load 0x0,0x22 0b01 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0b02 7014 |p | Jump_Nonzero 0xb17 0b03 00ec | | Load_Encached Diana_Tree_Cache 0b04 00ec | | Load_Encached Diana_Tree_Cache 0b05 e02c | , | Load 0x0,0x2c 0b06 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0b07 e02d | - | Load 0x0,0x2d 0b08 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0b09 00ec | | Load_Encached Diana_Tree_Cache 0b0a e608 | | Load 0x3,0x8 0b0b e013 | | Load 0x0,0x13 0b0c 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0b0d 183e | > | Execute Package,Field_Execute,Field_Number 0x3e 0b0e 0092 0d34 | 4| Action Push_String_Extended,0xd34 ; " is not a combined or spec view" 0b10 01cc | | Execute Vector,Catenate 0b11 00ec | | Load_Encached Diana_Tree_Cache 0b12 4802 |H | Short_Literal 0x2 0b13 e602 | | Load 0x3,0x2 0b14 e030 | 0 | Load 0x0,0x30 0b15 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0b16 c602 | | Store 0x3,0x2 0b17 00d8 | | Load_Top At_Offset_0 0b18 e022 | " | Load 0x0,0x22 0b19 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0b1a 0f00 | | Execute_Immediate Equal,0x0 0b1b 00d9 | | Load_Top At_Offset_1 0b1c e022 | " | Load 0x0,0x22 0b1d 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0b1e 0f00 | | Execute_Immediate Equal,0x0 0b1f 0279 | y | Execute Discrete,And 0b20 680e |h | Jump_Zero 0xb2f 0b21 e02b | + | Load 0x0,0x2b 0b22 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0b23 e023 | # | Load 0x0,0x23 0b24 180e | | Execute Package,Field_Execute,Field_Number 0xe 0b25 e023 | # | Load 0x0,0x23 0b26 180e | | Execute Package,Field_Execute,Field_Number 0xe 0b27 00db | | Load_Top At_Offset_3 0b28 e022 | " | Load 0x0,0x22 0b29 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0b2a 00db | | Load_Top At_Offset_3 0b2b e606 | | Load 0x3,0x6 0b2c e032 | 2 | Load 0x0,0x32 0b2d 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 0b2e c604 | | Store 0x3,0x4 0b2f 4800 |H | Short_Literal 0x0 0b30 e604 | | Load 0x3,0x4 0b31 e02b | + | Load 0x0,0x2b 0b32 1847 | G | Execute Package,Field_Execute,Field_Number 0x47 0b33 7006 |p | Jump_Nonzero 0xb3a 0b34 e602 | | Load 0x3,0x2 0b35 e604 | | Load 0x3,0x4 0b36 e033 | 3 | Load 0x0,0x33 0b37 180e | | Execute Package,Field_Execute,Field_Number 0xe 0b38 c602 | | Store 0x3,0x2 0b39 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0b3a e602 | | Load 0x3,0x2 0b3b e5ff | | Load 0x2,-0x1 0b3c e001 | | Load 0x0,0x1 0b3d 1b1c | | Execute Package,Field_Read,Field_Number 0x1c 0b3e 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0b3f 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0b40 TRAP_0a68: 0b40 0007 | | Action Break_Optional 0b41 00ec | | Load_Encached Diana_Tree_Cache 0b42 00ec | | Load_Encached Diana_Tree_Cache 0b43 e02c | , | Load 0x0,0x2c 0b44 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0b45 e02d | - | Load 0x0,0x2d 0b46 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0b47 00ec | | Load_Encached Diana_Tree_Cache 0b48 0092 0d35 | 5| Action Push_String_Extended,0xd35 ; "Unhandled exception: " 0b4a 4800 |H | Short_Literal 0x0 0b4b 4801 |H | Short_Literal 0x1 0b4c e034 | 4 | Load 0x0,0x34 0b4d 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0b4e 01cc | | Execute Vector,Catenate 0b4f 0092 0d36 | 6| Action Push_String_Extended,0xd36 ; " encountered while installing " 0b51 01cc | | Execute Vector,Catenate 0b52 e7ff | | Load 0x3,-0x1 0b53 e013 | | Load 0x0,0x13 0b54 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0b55 183d | = | Execute Package,Field_Execute,Field_Number 0x3d 0b56 01cc | | Execute Vector,Catenate 0b57 00ec | | Load_Encached Diana_Tree_Cache 0b58 4802 |H | Short_Literal 0x2 0b59 e602 | | Load 0x3,0x2 0b5a e030 | 0 | Load 0x0,0x30 0b5b 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0b5c c602 | | Store 0x3,0x2 0b5d 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0b5e 0000 0000 | | .XXX[0x2] 0b60 ; -------------------------------------------------------------------------------------- 0b60 ; SUBPROGRAM 0b60 ; -------------------------------------------------------------------------------------- 0b60 0b7f | | .CONST 0x0b7f ; Address of begin 0b61 0004 | | .CONST 0x0004 ; Address of exception handler 0b62 0007 | | .CONST 0x0007 ; Number of locals 0b63 INIT_0b60: 0b63 00db | | Load_Top At_Offset_3 0b64 0217 | | Execute Heap_Access,All_Reference 0b65 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0b66 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0b67 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0b68 e21e | | Load 0x1,0x1e 0b69 0216 | | Execute Heap_Access,Convert 0b6a 00d8 | | Load_Top At_Offset_0 0b6b 0007 | | Action Break_Optional 0b6c 00d9 | | Load_Top At_Offset_1 0b6d 0007 | | Action Break_Optional 0b6e e7ff | | Load 0x3,-0x1 0b6f 8265 | e | Call 0x1,0x65 0b70 e23a | : | Load 0x1,0x3a 0b71 03f1 | | Declare_Variable Discrete,With_Value 0b72 00ec | | Load_Encached Diana_Tree_Cache 0b73 02c7 | | Declare_Variable Any 0b74 e7ff | | Load 0x3,-0x1 0b75 4974 |It | Short_Literal 0x174 0b76 00eb | | Load_Encached Diana_Cache 0b77 0098 | | Execute Package,Field_Read_Dynamic 0b78 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0b79 a606 | | Store_Unchecked 0x3,0x6 0b7a e001 | | Load 0x0,0x1 0b7b 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0b7c 02c7 | | Declare_Variable Any 0b7d 00d8 | | Load_Top At_Offset_0 0b7e 1c00 | | Execute_Immediate Run_Utility,0x0 0b7f BODY_0b60: 0b7f 00d9 | | Load_Top At_Offset_1 0b80 0145 | E | Execute Heap_Access,Diana_Tree_Kind 0b81 0ea8 | | Execute_Immediate Not_Equal,-0x58 0b82 6801 |h | Jump_Zero 0xb84 0b83 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0b84 00d9 | | Load_Top At_Offset_1 0b85 e7fc | | Load 0x3,-0x4 0b86 e001 | | Load 0x0,0x1 0b87 1b6a | j | Execute Package,Field_Read,Field_Number 0x6a 0b88 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0b89 e001 | | Load 0x0,0x1 0b8a 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0b8b c607 | | Store 0x3,0x7 0b8c 00cf | | Action Mark_Auxiliary 0b8d 7840 |x@ | Jump 0xbce 0b8e e602 | | Load 0x3,0x2 0b8f 0217 | | Execute Heap_Access,All_Reference 0b90 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0b91 e605 | | Load 0x3,0x5 0b92 027f | | Execute Discrete,Equal 0b93 e602 | | Load 0x3,0x2 0b94 0217 | | Execute Heap_Access,All_Reference 0b95 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0b96 00db | | Load_Top At_Offset_3 0b97 012f | / | Execute Any,Equal 0b98 0279 | y | Execute Discrete,And 0b99 682d |h- | Jump_Zero 0xbc7 0b9a e602 | | Load 0x3,0x2 0b9b 0217 | | Execute Heap_Access,All_Reference 0b9c 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0b9d 0f01 | | Execute_Immediate Equal,0x1 0b9e 6820 |h | Jump_Zero 0xbbf 0b9f e602 | | Load 0x3,0x2 0ba0 e603 | | Load 0x3,0x3 0ba1 021f | | Execute Heap_Access,Equal 0ba2 680b |h | Jump_Zero 0xbae 0ba3 e602 | | Load 0x3,0x2 0ba4 0217 | | Execute Heap_Access,All_Reference 0ba5 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 0ba6 e216 | | Load 0x1,0x16 0ba7 0216 | | Execute Heap_Access,Convert 0ba8 e7fe | | Load 0x3,-0x2 0ba9 0217 | | Execute Heap_Access,All_Reference 0baa 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0bab 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0bac 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0bad 7806 |x | Jump 0xbb4 0bae e602 | | Load 0x3,0x2 0baf 0217 | | Execute Heap_Access,All_Reference 0bb0 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 0bb1 e604 | | Load 0x3,0x4 0bb2 0217 | | Execute Heap_Access,All_Reference 0bb3 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 0bb4 e602 | | Load 0x3,0x2 0bb5 e215 | | Load 0x1,0x15 0bb6 0216 | | Execute Heap_Access,Convert 0bb7 e215 | | Load 0x1,0x15 0bb8 0216 | | Execute Heap_Access,Convert 0bb9 e7fd | | Load 0x3,-0x3 0bba 8255 | U | Call 0x1,0x55 0bbb e21e | | Load 0x1,0x1e 0bbc 0216 | | Execute Heap_Access,Convert 0bbd c602 | | Store 0x3,0x2 0bbe 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0bbf e602 | | Load 0x3,0x2 0bc0 0217 | | Execute Heap_Access,All_Reference 0bc1 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0bc2 0aff | | Execute_Immediate Plus,-0x1 0bc3 e602 | | Load 0x3,0x2 0bc4 0217 | | Execute Heap_Access,All_Reference 0bc5 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 0bc6 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0bc7 e602 | | Load 0x3,0x2 0bc8 a604 | | Store_Unchecked 0x3,0x4 0bc9 e602 | | Load 0x3,0x2 0bca 0217 | | Execute Heap_Access,All_Reference 0bcb 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 0bcc a602 | | Store_Unchecked 0x3,0x2 0bcd 00c9 | | Action Pop_Auxiliary_Loop 0bce e602 | | Load 0x3,0x2 0bcf 77be |w | Jump_Nonzero 0xb8e 0bd0 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0bd1 0000 0000 | | .BLANK 0000[0x7] 0bd8 ; -------------------------------------------------------------------------------------- 0bd8 ; SUBPROGRAM 0bd8 ; -------------------------------------------------------------------------------------- 0bd8 0be3 | | .CONST 0x0be3 ; Address of begin 0bd9 0004 | | .CONST 0x0004 ; Address of exception handler 0bda 0003 | | .CONST 0x0003 ; Number of locals 0bdb INIT_0bd8: 0bdb 00ef | | Load_Encached Diana_Sequence_Cache 0bdc 02c7 | | Declare_Variable Any 0bdd 00d8 | | Load_Top At_Offset_0 0bde 1c00 | | Execute_Immediate Run_Utility,0x0 0bdf 00ec | | Load_Encached Diana_Tree_Cache 0be0 02c7 | | Declare_Variable Any 0be1 00d8 | | Load_Top At_Offset_0 0be2 1c00 | | Execute_Immediate Run_Utility,0x0 0be3 BODY_0bd8: 0be3 e9ff | | Load 0x4,-0x1 0be4 e01c | | Load 0x0,0x1c 0be5 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0be6 6821 |h! | Jump_Zero 0xc08 0be7 e9ff | | Load 0x4,-0x1 0be8 e01c | | Load 0x0,0x1c 0be9 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0bea c802 | | Store 0x4,0x2 0beb 00cf | | Action Mark_Auxiliary 0bec 7818 |x | Jump 0xc05 0bed 00da | | Load_Top At_Offset_2 0bee 00eb | | Load_Encached Diana_Cache 0bef 1865 | e | Execute Package,Field_Execute,Field_Number 0x65 0bf0 c803 | | Store 0x4,0x3 0bf1 4801 |H | Short_Literal 0x1 0bf2 0092 0d37 | 7| Action Push_String_Extended,0xd37 ; "inline" 0bf4 00db | | Load_Top At_Offset_3 0bf5 00eb | | Load_Encached Diana_Cache 0bf6 18cf | | Execute Package,Field_Execute,Field_Number 0xcf 0bf7 00eb | | Load_Encached Diana_Cache 0bf8 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 0bf9 00eb | | Load_Encached Diana_Cache 0bfa 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 0bfb e02f | / | Load 0x0,0x2f 0bfc 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0bfd 6802 |h | Jump_Zero 0xc00 0bfe 4801 |H | Short_Literal 0x1 0bff 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0c00 00da | | Load_Top At_Offset_2 0c01 0217 | | Execute Heap_Access,All_Reference 0c02 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0c03 c802 | | Store 0x4,0x2 0c04 00c9 | | Action Pop_Auxiliary_Loop 0c05 00da | | Load_Top At_Offset_2 0c06 77e6 |w | Jump_Nonzero 0xbed 0c07 00ce | | Action Pop_Auxiliary 0c08 4800 |H | Short_Literal 0x0 0c09 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0c0a 0000 0000 | | .BLANK 0000[0x6] 0c10 ; -------------------------------------------------------------------------------------- 0c10 ; SUBPROGRAM 0c10 ; -------------------------------------------------------------------------------------- 0c10 0c13 | | .CONST 0x0c13 ; Address of begin 0c11 0004 | | .CONST 0x0004 ; Address of exception handler 0c12 0001 | | .CONST 0x0001 ; Number of locals 0c13 BODY_0c10: 0c13 INIT_0c10: 0c13 00da | | Load_Top At_Offset_2 0c14 4974 |It | Short_Literal 0x174 0c15 00eb | | Load_Encached Diana_Cache 0c16 0098 | | Execute Package,Field_Read_Dynamic 0c17 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0c18 e5fc | | Load 0x2,-0x4 0c19 012f | / | Execute Any,Equal 0c1a 0f00 | | Execute_Immediate Equal,0x0 0c1b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0c1c 0000 0000 | | .BLANK 0000[0x4] 0c20 ; -------------------------------------------------------------------------------------- 0c20 ; SUBPROGRAM 0c20 ; -------------------------------------------------------------------------------------- 0c20 0c29 | ) | .CONST 0x0c29 ; Address of begin 0c21 0004 | | .CONST 0x0004 ; Address of exception handler 0c22 0004 | | .CONST 0x0004 ; Number of locals 0c23 INIT_0c20: 0c23 e212 | | Load 0x1,0x12 0c24 0007 | | Action Break_Optional 0c25 029f 0cab | | Declare_Subprogram INIT_0ca8,For_Call 0c27 029f 0cbb | | Declare_Subprogram INIT_0cb8,For_Call 0c29 BODY_0c20: 0c29 e212 | | Load 0x1,0x12 0c2a e5f9 | | Load 0x2,-0x7 0c2b 8256 | V | Call 0x1,0x56 0c2c 0033 | 3 | Store_Top Heap_Access,At_Offset_3 0c2d 00da | | Load_Top At_Offset_2 0c2e 8803 | | Call 0x4,0x3 0c2f 00da | | Load_Top At_Offset_2 0c30 8804 | | Call 0x4,0x4 0c31 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0c32 0000 0000 | | .BLANK 0000[0x6] 0c38 ; -------------------------------------------------------------------------------------- 0c38 ; SUBPROGRAM 0c38 ; -------------------------------------------------------------------------------------- 0c38 0c49 | I | .CONST 0x0c49 ; Address of begin 0c39 0004 | | .CONST 0x0004 ; Address of exception handler 0c3a 0004 | | .CONST 0x0004 ; Number of locals 0c3b INIT_0c38: 0c3b 00ef | | Load_Encached Diana_Sequence_Cache 0c3c 02c7 | | Declare_Variable Any 0c3d 00db | | Load_Top At_Offset_3 0c3e 00eb | | Load_Encached Diana_Cache 0c3f 18ed | | Execute Package,Field_Execute,Field_Number 0xed 0c40 a802 | | Store_Unchecked 0x4,0x2 0c41 00ec | | Load_Encached Diana_Tree_Cache 0c42 02c7 | | Declare_Variable Any 0c43 00d8 | | Load_Top At_Offset_0 0c44 1c00 | | Execute_Immediate Run_Utility,0x0 0c45 00ec | | Load_Encached Diana_Tree_Cache 0c46 02c7 | | Declare_Variable Any 0c47 00d8 | | Load_Top At_Offset_0 0c48 1c00 | | Execute_Immediate Run_Utility,0x0 0c49 BODY_0c38: 0c49 00cf | | Action Mark_Auxiliary 0c4a 7823 |x# | Jump 0xc6e 0c4b 00db | | Load_Top At_Offset_3 0c4c 00eb | | Load_Encached Diana_Cache 0c4d 1865 | e | Execute Package,Field_Execute,Field_Number 0x65 0c4e c803 | | Store 0x4,0x3 0c4f 00da | | Load_Top At_Offset_2 0c50 0145 | E | Execute Heap_Access,Diana_Tree_Kind 0c51 0f10 | | Execute_Immediate Equal,0x10 0c52 6816 |h | Jump_Zero 0xc69 0c53 00da | | Load_Top At_Offset_2 0c54 00eb | | Load_Encached Diana_Cache 0c55 18d4 | | Execute Package,Field_Execute,Field_Number 0xd4 0c56 4976 |Iv | Short_Literal 0x176 0c57 00eb | | Load_Encached Diana_Cache 0c58 0098 | | Execute Package,Field_Read_Dynamic 0c59 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0c5a c804 | | Store 0x4,0x4 0c5b 00d9 | | Load_Top At_Offset_1 0c5c 8606 | | Call 0x3,0x6 0c5d 680b |h | Jump_Zero 0xc69 0c5e 00d9 | | Load_Top At_Offset_1 0c5f 8267 | g | Call 0x1,0x67 0c60 c804 | | Store 0x4,0x4 0c61 00d9 | | Load_Top At_Offset_1 0c62 8607 | | Call 0x3,0x7 0c63 6805 |h | Jump_Zero 0xc69 0c64 e5fa | | Load 0x2,-0x6 0c65 e5f9 | | Load 0x2,-0x7 0c66 e5fb | | Load 0x2,-0x5 0c67 e804 | | Load 0x4,0x4 0c68 85fe | | Call 0x2,-0x2 0c69 00db | | Load_Top At_Offset_3 0c6a 0217 | | Execute Heap_Access,All_Reference 0c6b 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0c6c c802 | | Store 0x4,0x2 0c6d 00c9 | | Action Pop_Auxiliary_Loop 0c6e 00db | | Load_Top At_Offset_3 0c6f 77db |w | Jump_Nonzero 0xc4b 0c70 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0c71 0000 0000 | | .BLANK 0000[0x7] 0c78 ; -------------------------------------------------------------------------------------- 0c78 ; SUBPROGRAM 0c78 ; -------------------------------------------------------------------------------------- 0c78 0c7b | { | .CONST 0x0c7b ; Address of begin 0c79 0004 | | .CONST 0x0004 ; Address of exception handler 0c7a 0001 | | .CONST 0x0001 ; Number of locals 0c7b BODY_0c78: 0c7b INIT_0c78: 0c7b 00da | | Load_Top At_Offset_2 0c7c e001 | | Load 0x0,0x1 0c7d 1b6c | l | Execute Package,Field_Read,Field_Number 0x6c 0c7e 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0c7f e5fd | | Load 0x2,-0x3 0c80 012e | . | Execute Any,Not_Equal 0c81 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0c82 0000 0000 | | .BLANK 0000[0x6] 0c88 ; -------------------------------------------------------------------------------------- 0c88 ; SUBPROGRAM 0c88 ; -------------------------------------------------------------------------------------- 0c88 0c90 | | .CONST 0x0c90 ; Address of begin 0c89 0004 | | .CONST 0x0004 ; Address of exception handler 0c8a 0002 | | .CONST 0x0002 ; Number of locals 0c8b INIT_0c88: 0c8b e001 | | Load 0x0,0x1 0c8c 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0c8d 02c7 | | Declare_Variable Any 0c8e 00d8 | | Load_Top At_Offset_0 0c8f 1c00 | | Execute_Immediate Run_Utility,0x0 0c90 BODY_0c88: 0c90 00d8 | | Load_Top At_Offset_0 0c91 0120 | | Execute Any,Is_Value 0c92 6803 |h | Jump_Zero 0xc96 0c93 e001 | | Load 0x0,0x1 0c94 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0c95 7801 |x | Jump 0xc97 0c96 00d8 | | Load_Top At_Offset_0 0c97 4801 |H | Short_Literal 0x1 0c98 e404 | | Load 0x2,0x4 0c99 e5fd | | Load 0x2,-0x3 0c9a e5fc | | Load 0x2,-0x4 0c9b e001 | | Load 0x0,0x1 0c9c 1b6a | j | Execute Package,Field_Read,Field_Number 0x6a 0c9d 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0c9e c802 | | Store 0x4,0x2 0c9f 00d8 | | Load_Top At_Offset_0 0ca0 e001 | | Load 0x0,0x1 0ca1 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0ca2 e7ff | | Load 0x3,-0x1 0ca3 0217 | | Execute Heap_Access,All_Reference 0ca4 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0ca5 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0ca6 0000 0000 | | .XXX[0x2] 0ca8 ; -------------------------------------------------------------------------------------- 0ca8 ; SUBPROGRAM 0ca8 ; -------------------------------------------------------------------------------------- 0ca8 0cab | | .CONST 0x0cab ; Address of begin 0ca9 0004 | | .CONST 0x0004 ; Address of exception handler 0caa 0001 | | .CONST 0x0001 ; Number of locals 0cab BODY_0ca8: 0cab INIT_0ca8: 0cab e21c | | Load 0x1,0x1c 0cac 00db | | Load_Top At_Offset_3 0cad 0217 | | Execute Heap_Access,All_Reference 0cae 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0caf e9ff | | Load 0x4,-0x1 0cb0 8265 | e | Call 0x1,0x65 0cb1 00db | | Load_Top At_Offset_3 0cb2 0217 | | Execute Heap_Access,All_Reference 0cb3 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0cb4 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0cb5 0000 0000 | | .XXX[0x3] 0cb7 0000 | | 0cb8 ; -------------------------------------------------------------------------------------- 0cb8 ; SUBPROGRAM 0cb8 ; -------------------------------------------------------------------------------------- 0cb8 0cc4 | | .CONST 0x0cc4 ; Address of begin 0cb9 0004 | | .CONST 0x0004 ; Address of exception handler 0cba 0003 | | .CONST 0x0003 ; Number of locals 0cbb INIT_0cb8: 0cbb e5fb | | Load 0x2,-0x5 0cbc 0217 | | Execute Heap_Access,All_Reference 0cbd 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0cbe 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0cbf 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0cc0 e21c | | Load 0x1,0x1c 0cc1 0216 | | Execute Heap_Access,Convert 0cc2 e21c | | Load 0x1,0x1c 0cc3 0007 | | Action Break_Optional 0cc4 BODY_0cb8: 0cc4 00d9 | | Load_Top At_Offset_1 0cc5 7007 |p | Jump_Nonzero 0xccd 0cc6 ebff | | Load 0x5,-0x1 0cc7 e5fb | | Load 0x2,-0x5 0cc8 0217 | | Execute Heap_Access,All_Reference 0cc9 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0cca 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0ccb 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0ccc 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0ccd 00d9 | | Load_Top At_Offset_1 0cce 0217 | | Execute Heap_Access,All_Reference 0ccf 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0cd0 0031 | 1 | Store_Top Heap_Access,At_Offset_1 0cd1 00cf | | Action Mark_Auxiliary 0cd2 7807 |x | Jump 0xcda 0cd3 00d9 | | Load_Top At_Offset_1 0cd4 0033 | 3 | Store_Top Heap_Access,At_Offset_3 0cd5 00d9 | | Load_Top At_Offset_1 0cd6 0217 | | Execute Heap_Access,All_Reference 0cd7 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0cd8 0032 | 2 | Store_Top Heap_Access,At_Offset_2 0cd9 00c9 | | Action Pop_Auxiliary_Loop 0cda 00d9 | | Load_Top At_Offset_1 0cdb 77f7 |w | Jump_Nonzero 0xcd3 0cdc 00ce | | Action Pop_Auxiliary 0cdd ebff | | Load 0x5,-0x1 0cde e21c | | Load 0x1,0x1c 0cdf 0216 | | Execute Heap_Access,Convert 0ce0 00da | | Load_Top At_Offset_2 0ce1 0217 | | Execute Heap_Access,All_Reference 0ce2 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0ce3 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0ce4 0000 0000 | | .BLANK 0000[0x4] 0ce8 ; -------------------------------------------------------------------------------------- 0ce8 ; SUBPROGRAM 0ce8 ; -------------------------------------------------------------------------------------- 0ce8 0ceb | | .CONST 0x0ceb ; Address of begin 0ce9 0004 | | .CONST 0x0004 ; Address of exception handler 0cea 0001 | | .CONST 0x0001 ; Number of locals 0ceb BODY_0ce8: 0ceb INIT_0ce8: 0ceb 4608 |F | Jump_Case 0x9 0cec 7808 |x | Jump 0xcf5 ; case 0x0 0ced 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 0cee 781b |x | Jump 0xd0a ; case 0x2 0cef 781a |x | Jump 0xd0a ; case 0x3 0cf0 7819 |x | Jump 0xd0a ; case 0x4 0cf1 7818 |x | Jump 0xd0a ; case 0x5 0cf2 7817 |x | Jump 0xd0a ; case 0x6 0cf3 7816 |x | Jump 0xd0a ; case 0x7 0cf4 7815 |x | Jump 0xd0a ; case 0x8 0cf5 00da | | Load_Top At_Offset_2 0cf6 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0cf7 0125 | % | Execute Any,Set_Constraint 0cf8 00da | | Load_Top At_Offset_2 0cf9 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0cfa 1c00 | | Execute_Immediate Run_Utility,0x0 0cfb 00da | | Load_Top At_Offset_2 0cfc 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 0cfd 0125 | % | Execute Any,Set_Constraint 0cfe 00ec | | Load_Encached Diana_Tree_Cache 0cff 00db | | Load_Top At_Offset_3 0d00 00d9 | | Load_Top At_Offset_1 0d01 00d9 | | Load_Top At_Offset_1 0d02 3001 |0 | Execute Record,Field_Type,Field_Number 0x1 0d03 0119 | | Execute Any,Check_In_Formal_Type 0d04 00d1 | | Pop_Control Pop_Count_1 0d05 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0d06 4800 |H | Short_Literal 0x0 0d07 00db | | Load_Top At_Offset_3 0d08 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 0d09 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0d0a 0869 | i | Execute_Immediate Raise,0x69 0d0b 0000 0000 | | .BLANK 0000[0x5] 0d10 ; -------------------------------------------------------------------------------------- 0d10 ; SUBPROGRAM 0d10 ; -------------------------------------------------------------------------------------- 0d10 0d13 | | .CONST 0x0d13 ; Address of begin 0d11 0004 | | .CONST 0x0004 ; Address of exception handler 0d12 0001 | | .CONST 0x0001 ; Number of locals 0d13 BODY_0d10: 0d13 INIT_0d10: 0d13 4608 |F | Jump_Case 0x9 0d14 7808 |x | Jump 0xd1d ; case 0x0 0d15 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 0d16 780d |x | Jump 0xd24 ; case 0x2 0d17 780c |x | Jump 0xd24 ; case 0x3 0d18 780b |x | Jump 0xd24 ; case 0x4 0d19 780a |x | Jump 0xd24 ; case 0x5 0d1a 7809 |x | Jump 0xd24 ; case 0x6 0d1b 7808 |x | Jump 0xd24 ; case 0x7 0d1c 7807 |x | Jump 0xd24 ; case 0x8 0d1d 00da | | Load_Top At_Offset_2 0d1e 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0d1f 0125 | % | Execute Any,Set_Constraint 0d20 00da | | Load_Top At_Offset_2 0d21 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0d22 1c00 | | Execute_Immediate Run_Utility,0x0 0d23 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0d24 0869 | i | Execute_Immediate Raise,0x69 0d25 ; -------------------------------------------------------------------------------------- 0d25 ; STRING TABLE 0d25 ; -------------------------------------------------------------------------------------- 0d25 0028 | ( | .STRTAB 0x0028->0x0d39 ; "UNIT_INSTALL" 0d26 0032 | 2 | .STRTAB 0x0032->0x0d3f ; "ITEM_INSTALL" 0d27 003c | < | .STRTAB 0x003c->0x0d45 ; "target-dependent unit" 0d28 004f | O | .STRTAB 0x004f->0x0d4f ; "call" 0d29 0051 | Q | .STRTAB 0x0051->0x0d51 ; "defn" 0d2a 0053 | S | .STRTAB 0x0053->0x0d53 ; "Null target-dependent header" 0d2b 006d | m | .STRTAB 0x006d->0x0d61 ; "Item on target-dependent unit free list has a non-null list of calls" 0d2c 00b0 | | .STRTAB 0x00b0->0x0d84 ; "Item on target-dependent unit free list has a non-null list of defns" 0d2d 00f2 | | .STRTAB 0x00f2->0x0da6 ; "A calls node on the free list has a non-null link" 0d2e 0121 | ! | .STRTAB 0x0121->0x0dbe ; "A defns node on the free list has a non-null link" 0d2f 0150 | P | .STRTAB 0x0150->0x0dd7 ; "INLINE" 0d30 0154 | T | .STRTAB 0x0154->0x0dda ; "Incremental insertion and removal of pragma Inline with RCI is disallowed" 0d31 019b | | .STRTAB 0x019b->0x0dfe ; "Error while obtaining object for " 0d32 01ba | | .STRTAB 0x01ba->0x0e0f ; ": " 0d33 01ba | | .STRTAB 0x01ba->0x0e10 ; "Error while obtaining enclosing world for " 0d34 01e2 | | .STRTAB 0x01e2->0x0e25 ; " is not a combined or spec view" 0d35 01ff | | .STRTAB 0x01ff->0x0e34 ; "Unhandled exception: " 0d36 0212 | | .STRTAB 0x0212->0x0e3f ; " encountered while installing " 0d37 022e | . | .STRTAB 0x022e->0x0e4e ; "inline" 0d38 0232 | 2 | .STREND 0x0232->0x0e51 0d39 554e 4954 |UNIT| .STRTAB_STRINGS 0e51 0000 0000 | | .BLANK 0000[0x7] 0e58 ; -------------------------------------------------------------------------------------- 0e58 ; Debug Table 0e58 ; -------------------------------------------------------------------------------------- 0e58 0004 000f | | .DEBUG4 0x0004,0x000f,0x331b,0x0000,0x0001,0x0000 0e5e 0404 0404 | | .BLANK 0404[0x49] 0ea7 040e 4cae | L | .XXX[0x12] 0ea9 8eae 4dc4 | M | 0eab 09ec 4d4c | ML| 0ead ae85 c9cd | | 0eaf edac 4e4c | NL| 0eb1 a407 a409 | | 0eb3 ac2f 0be8 | / | 0eb5 ad8c adac | | 0eb7 adce 8764 | d| 0eb9 0404 0404 | | .BLANK 0404[0x3c] 0ef5 040c adcc | | .XXX[0x6] 0ef7 840a 0d8c | | 0ef9 ad2d c764 | - d| 0efb 0404 0404 | | .BLANK 0404[0xea] 0fe5 040c cead | | .XXX[0x1b] 0fe7 cc6e 8d2d | n -| 0fe9 edc4 08af | | 0feb 0d2e 6e8c | .n | 0fed a405 0a6c | l| 0fef 2c64 0744 |,d D| 0ff1 09ec 4d4c | ML| 0ff3 ae87 6409 | d | 0ff5 cded a407 | | 0ff7 4408 6d0c |D m | 0ff9 2d2d cca5 |-- | 0ffb c9ec 4d4c | ML| 0ffd ae85 240e | $ | 0fff 4cae |L |