|
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: 7168 (0x1c00) Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_5850da
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000 └─ ⟦5a81ac88f⟧ »Space Info Vol 1« └─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code 0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 0d60 | ` | .CONST 0x0d60 ; 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 01c6 | | .CONST 0x01c6 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0083 | | .CONST 0x0083 ; 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 01d3 | | Declare_Subprogram INIT_01d0,For_Outer_Call,Visible,Unelaborated 0011 029a 01db | | Declare_Subprogram INIT_01d8,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 0bfb | | Declare_Subprogram INIT_0bf8,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 0c23 | #| Declare_Subprogram INIT_0c20,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 01eb | | Declare_Subprogram INIT_01e8,For_Outer_Call,Visible,Unelaborated 0093 c228 | ( | Store 0x1,0x28 0094 029a 0203 | | Declare_Subprogram INIT_0200,For_Outer_Call,Visible,Unelaborated 0096 c229 | ) | Store 0x1,0x29 0097 029a 021b | | Declare_Subprogram INIT_0218,For_Outer_Call,Visible,Unelaborated 0099 c230 | 0 | Store 0x1,0x30 009a 029a 023b | ;| Declare_Subprogram INIT_0238,For_Outer_Call,Visible,Unelaborated 009c c231 | 1 | Store 0x1,0x31 009d 029a 0243 | C| Declare_Subprogram INIT_0240,For_Outer_Call,Visible,Unelaborated 009f c232 | 2 | Store 0x1,0x32 00a0 029a 025b | [| Declare_Subprogram INIT_0258,For_Outer_Call,Visible,Unelaborated 00a2 c238 | 8 | Store 0x1,0x38 00a3 029a 026b | k| Declare_Subprogram INIT_0268,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 02db | | Declare_Subprogram INIT_02d8,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 030b | | Declare_Subprogram INIT_0308,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 0333 | 3| Declare_Subprogram INIT_0330,For_Outer_Call 00e4 029d 0343 | C| Declare_Subprogram INIT_0340,For_Outer_Call 00e6 029d 0353 | S| Declare_Subprogram INIT_0350,For_Outer_Call 00e8 029d 0363 | c| Declare_Subprogram INIT_0360,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 0373 | s| Declare_Subprogram INIT_0370,For_Outer_Call 00f6 029d 038b | | Declare_Subprogram INIT_0388,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 039b | | Declare_Subprogram INIT_0398,For_Outer_Call 0118 029d 03ab | | Declare_Subprogram INIT_03a8,For_Outer_Call 011a 029d 03b3 | | Declare_Subprogram INIT_03b0,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 03bb | | Declare_Subprogram INIT_03b8,For_Outer_Call 012d 029d 03d3 | | Declare_Subprogram INIT_03d0,For_Outer_Call 012f 029d 03e3 | | Declare_Subprogram INIT_03e0,For_Outer_Call 0131 029d 03fb | | Declare_Subprogram INIT_03f8,For_Outer_Call 0133 029d 040b | | Declare_Subprogram INIT_0408,For_Outer_Call 0135 029d 0423 | #| Declare_Subprogram INIT_0420,For_Outer_Call 0137 029d 0433 | 3| Declare_Subprogram INIT_0430,For_Outer_Call 0139 029d 044b | K| Declare_Subprogram INIT_0448,For_Outer_Call 013b 029d 045b | [| Declare_Subprogram INIT_0458,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 04d3 | | Declare_Subprogram INIT_04d0,For_Outer_Call 0151 029d 04f3 | | Declare_Subprogram INIT_04f0,For_Outer_Call 0153 029d 04fb | | Declare_Subprogram INIT_04f8,For_Outer_Call 0155 029d 0593 | | Declare_Subprogram INIT_0590,For_Outer_Call 0157 029d 059b | | Declare_Subprogram INIT_0598,For_Outer_Call 0159 029d 05a3 | | Declare_Subprogram INIT_05a0,For_Outer_Call 015b 029d 05ab | | Declare_Subprogram INIT_05a8,For_Outer_Call 015d 029d 05b3 | | Declare_Subprogram INIT_05b0,For_Outer_Call 015f 029d 05bb | | Declare_Subprogram INIT_05b8,For_Outer_Call 0161 029b 05d3 | | Declare_Subprogram INIT_05d0,For_Outer_Call,Unelaborated 0163 1d66 | f | Execute_Immediate Reference_Lex_1,0x66 0164 00c7 | | Action Elaborate_Subprogram 0165 029d 05db | | Declare_Subprogram INIT_05d8,For_Outer_Call 0167 029d 061b | | Declare_Subprogram INIT_0618,For_Outer_Call 0169 029d 064b | K| Declare_Subprogram INIT_0648,For_Outer_Call 016b 029d 0653 | S| Declare_Subprogram INIT_0650,For_Outer_Call 016d 029d 065b | [| Declare_Subprogram INIT_0658,For_Outer_Call 016f 029d 0683 | | Declare_Subprogram INIT_0680,For_Outer_Call 0171 029d 068b | | Declare_Subprogram INIT_0688,For_Outer_Call 0173 029d 06a3 | | Declare_Subprogram INIT_06a0,For_Outer_Call 0175 029d 06cb | | Declare_Subprogram INIT_06c8,For_Outer_Call 0177 029d 06fb | | Declare_Subprogram INIT_06f8,For_Outer_Call 0179 029d 0703 | | Declare_Subprogram INIT_0700,For_Outer_Call 017b 029d 070b | | Declare_Subprogram INIT_0708,For_Outer_Call 017d 029d 0713 | | Declare_Subprogram INIT_0710,For_Outer_Call 017f 029d 071b | | Declare_Subprogram INIT_0718,For_Outer_Call 0181 029d 0723 | #| Declare_Subprogram INIT_0720,For_Outer_Call 0183 029d 072b | +| Declare_Subprogram INIT_0728,For_Outer_Call 0185 029d 0733 | 3| Declare_Subprogram INIT_0730,For_Outer_Call 0187 029d 073b | ;| Declare_Subprogram INIT_0738,For_Outer_Call 0189 029d 074b | K| Declare_Subprogram INIT_0748,For_Outer_Call 018b 029d 075b | [| Declare_Subprogram INIT_0758,For_Outer_Call 018d 029d 0763 | c| Declare_Subprogram INIT_0760,For_Outer_Call 018f 029d 076b | k| Declare_Subprogram INIT_0768,For_Outer_Call 0191 029d 0773 | s| Declare_Subprogram INIT_0770,For_Outer_Call 0193 029d 077b | {| Declare_Subprogram INIT_0778,For_Outer_Call 0195 029d 0783 | | Declare_Subprogram INIT_0780,For_Outer_Call 0197 029d 07ab | | Declare_Subprogram INIT_07a8,For_Outer_Call 0199 029d 07d3 | | Declare_Subprogram INIT_07d0,For_Outer_Call 019b 029d 07db | | Declare_Subprogram INIT_07d8,For_Outer_Call 019d e00e | | Load 0x0,0xe 019e e00f | | Load 0x0,0xf 019f 1d5d | ] | Execute_Immediate Reference_Lex_1,0x5d 01a0 1d5e | ^ | Execute_Immediate Reference_Lex_1,0x5e 01a1 1d5f | _ | Execute_Immediate Reference_Lex_1,0x5f 01a2 1d60 | ` | Execute_Immediate Reference_Lex_1,0x60 01a3 1d64 | d | Execute_Immediate Reference_Lex_1,0x64 01a4 1d63 | c | Execute_Immediate Reference_Lex_1,0x63 01a5 1d6a | j | Execute_Immediate Reference_Lex_1,0x6a 01a6 1d68 | h | Execute_Immediate Reference_Lex_1,0x68 01a7 1d69 | i | Execute_Immediate Reference_Lex_1,0x69 01a8 1d6b | k | Execute_Immediate Reference_Lex_1,0x6b 01a9 1d6c | l | Execute_Immediate Reference_Lex_1,0x6c 01aa 1d6d | m | Execute_Immediate Reference_Lex_1,0x6d 01ab 1d7f | | Execute_Immediate Reference_Lex_1,0x7f 01ac 1d80 | | Execute_Immediate Reference_Lex_1,0x80 01ad 1d81 | | Execute_Immediate Reference_Lex_1,0x81 01ae 1d6e | n | Execute_Immediate Reference_Lex_1,0x6e 01af 1d6f | o | Execute_Immediate Reference_Lex_1,0x6f 01b0 1d70 | p | Execute_Immediate Reference_Lex_1,0x70 01b1 1d71 | q | Execute_Immediate Reference_Lex_1,0x71 01b2 1d72 | r | Execute_Immediate Reference_Lex_1,0x72 01b3 1d73 | s | Execute_Immediate Reference_Lex_1,0x73 01b4 1d74 | t | Execute_Immediate Reference_Lex_1,0x74 01b5 1d75 | u | Execute_Immediate Reference_Lex_1,0x75 01b6 1d61 | a | Execute_Immediate Reference_Lex_1,0x61 01b7 1d62 | b | Execute_Immediate Reference_Lex_1,0x62 01b8 1d76 | v | Execute_Immediate Reference_Lex_1,0x76 01b9 1d82 | | Execute_Immediate Reference_Lex_1,0x82 01ba 1d77 | w | Execute_Immediate Reference_Lex_1,0x77 01bb 1d78 | x | Execute_Immediate Reference_Lex_1,0x78 01bc 1d7a | z | Execute_Immediate Reference_Lex_1,0x7a 01bd 1d79 | y | Execute_Immediate Reference_Lex_1,0x79 01be 1d7b | { | Execute_Immediate Reference_Lex_1,0x7b 01bf 1d7d | } | Execute_Immediate Reference_Lex_1,0x7d 01c0 1d7c | | | Execute_Immediate Reference_Lex_1,0x7c 01c1 e010 | | Load 0x0,0x10 01c2 1b17 | | Execute Package,Field_Read,Field_Number 0x17 01c3 0387 | | Declare_Variable Package 01c4 00d8 | | Load_Top At_Offset_0 01c5 020f | | Execute Module,Activate 01c6 BODY_0008: 01c6 e011 | | Load 0x0,0x11 01c7 180d | | Execute Package,Field_Execute,Field_Number 0xd 01c8 00d9 | | Load_Top At_Offset_1 01c9 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 01ca e010 | | Load 0x0,0x10 01cb 1818 | | Execute Package,Field_Execute,Field_Number 0x18 01cc 8012 | | Call 0x0,0x12 01cd 00bc | | Action Signal_Activated 01ce 00bb | | Action Signal_Completion 01cf 0000 | | .XXX[0x1] 01d0 ; -------------------------------------------------------------------------------------- 01d0 ; SUBPROGRAM 01d0 ; -------------------------------------------------------------------------------------- 01d0 01d3 | | .CONST 0x01d3 ; Address of begin 01d1 0004 | | .CONST 0x0004 ; Address of exception handler 01d2 0001 | | .CONST 0x0001 ; Number of locals 01d3 BODY_01d0: 01d3 INIT_01d0: 01d3 e23c | < | Load 0x1,0x3c 01d4 00ca | | Action Exit_Nullary_Function 01d5 0000 0000 | | .XXX[0x3] 01d7 0000 | | 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 00da | | Load_Top At_Offset_2 01dc e001 | | Load 0x0,0x1 01dd 1b6b | k | Execute Package,Field_Read,Field_Number 0x6b 01de 1812 | | Execute Package,Field_Execute,Field_Number 0x12 01df e245 | E | Load 0x1,0x45 01e0 1813 | | Execute Package,Field_Execute,Field_Number 0x13 01e1 0217 | | Execute Heap_Access,All_Reference 01e2 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 01e3 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01e4 0000 0000 | | .BLANK 0000[0x4] 01e8 ; -------------------------------------------------------------------------------------- 01e8 ; SUBPROGRAM 01e8 ; -------------------------------------------------------------------------------------- 01e8 01eb | | .CONST 0x01eb ; Address of begin 01e9 0004 | | .CONST 0x0004 ; Address of exception handler 01ea 0001 | | .CONST 0x0001 ; Number of locals 01eb BODY_01e8: 01eb INIT_01e8: 01eb 00da | | Load_Top At_Offset_2 01ec e001 | | Load 0x0,0x1 01ed 1b6c | l | Execute Package,Field_Read,Field_Number 0x6c 01ee 1819 | | Execute Package,Field_Execute,Field_Number 0x19 01ef 6804 |h | Jump_Zero 0x1f4 01f0 e001 | | Load 0x0,0x1 01f1 1b6c | l | Execute Package,Field_Read,Field_Number 0x6c 01f2 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01f3 0257 | W | Execute Discrete,Raise 01f4 00da | | Load_Top At_Offset_2 01f5 e001 | | Load 0x0,0x1 01f6 1b6c | l | Execute Package,Field_Read,Field_Number 0x6c 01f7 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36 01f8 e245 | E | Load 0x1,0x45 01f9 1815 | | Execute Package,Field_Execute,Field_Number 0x15 01fa 0217 | | Execute Heap_Access,All_Reference 01fb 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 01fc 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 01fd 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 01fe 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01ff 0000 | | .XXX[0x1] 0200 ; -------------------------------------------------------------------------------------- 0200 ; SUBPROGRAM 0200 ; -------------------------------------------------------------------------------------- 0200 0203 | | .CONST 0x0203 ; Address of begin 0201 0004 | | .CONST 0x0004 ; Address of exception handler 0202 0001 | | .CONST 0x0001 ; Number of locals 0203 BODY_0200: 0203 INIT_0200: 0203 00da | | Load_Top At_Offset_2 0204 e001 | | Load 0x0,0x1 0205 1b6c | l | Execute Package,Field_Read,Field_Number 0x6c 0206 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0207 6804 |h | Jump_Zero 0x20c 0208 e001 | | Load 0x0,0x1 0209 1b6c | l | Execute Package,Field_Read,Field_Number 0x6c 020a 1b0d | | Execute Package,Field_Read,Field_Number 0xd 020b 0257 | W | Execute Discrete,Raise 020c 00da | | Load_Top At_Offset_2 020d e001 | | Load 0x0,0x1 020e 1b6c | l | Execute Package,Field_Read,Field_Number 0x6c 020f 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36 0210 e245 | E | Load 0x1,0x45 0211 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0212 0217 | | Execute Heap_Access,All_Reference 0213 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0214 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0215 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0216 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0217 0000 | | .XXX[0x1] 0218 ; -------------------------------------------------------------------------------------- 0218 ; SUBPROGRAM 0218 ; -------------------------------------------------------------------------------------- 0218 0227 | ' | .CONST 0x0227 ; Address of begin 0219 0004 | | .CONST 0x0004 ; Address of exception handler 021a 0005 | | .CONST 0x0005 ; Number of locals 021b INIT_0218: 021b e22d | - | Load 0x1,0x2d 021c 0007 | | Action Break_Optional 021d e5fe | | Load 0x2,-0x2 021e 8248 | H | Call 0x1,0x48 021f 00d8 | | Load_Top At_Offset_0 0220 0217 | | Execute Heap_Access,All_Reference 0221 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0222 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0223 e22f | / | Load 0x1,0x2f 0224 0216 | | Execute Heap_Access,Convert 0225 029f 07e3 | | Declare_Subprogram INIT_07e0,For_Call 0227 BODY_0218: 0227 e22d | - | Load 0x1,0x2d 0228 e5fd | | Load 0x2,-0x3 0229 8258 | X | Call 0x1,0x58 022a c402 | | Store 0x2,0x2 022b e5ff | | Load 0x2,-0x1 022c e402 | | Load 0x2,0x2 022d 0217 | | Execute Heap_Access,All_Reference 022e 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 022f e22f | / | Load 0x1,0x2f 0230 e402 | | Load 0x2,0x2 0231 0217 | | Execute Heap_Access,All_Reference 0232 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0233 00db | | Load_Top At_Offset_3 0234 8405 | | Call 0x2,0x5 0235 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0236 0000 0000 | | .XXX[0x2] 0238 ; -------------------------------------------------------------------------------------- 0238 ; SUBPROGRAM 0238 ; -------------------------------------------------------------------------------------- 0238 023b | ; | .CONST 0x023b ; Address of begin 0239 0004 | | .CONST 0x0004 ; Address of exception handler 023a 0001 | | .CONST 0x0001 ; Number of locals 023b BODY_0238: 023b INIT_0238: 023b 0833 | 3 | Execute_Immediate Raise,0x33 023c 0000 0000 | | .BLANK 0000[0x4] 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 00da | | Load_Top At_Offset_2 0244 e001 | | Load 0x0,0x1 0245 1b6c | l | Execute Package,Field_Read,Field_Number 0x6c 0246 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0247 6804 |h | Jump_Zero 0x24c 0248 e001 | | Load 0x0,0x1 0249 1b6c | l | Execute Package,Field_Read,Field_Number 0x6c 024a 1b0d | | Execute Package,Field_Read,Field_Number 0xd 024b 0257 | W | Execute Discrete,Raise 024c 00da | | Load_Top At_Offset_2 024d e001 | | Load 0x0,0x1 024e 1b6c | l | Execute Package,Field_Read,Field_Number 0x6c 024f 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36 0250 e245 | E | Load 0x1,0x45 0251 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0252 0217 | | Execute Heap_Access,All_Reference 0253 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0254 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0255 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0256 0000 0000 | | .XXX[0x2] 0258 ; -------------------------------------------------------------------------------------- 0258 ; SUBPROGRAM 0258 ; -------------------------------------------------------------------------------------- 0258 025d | ] | .CONST 0x025d ; Address of begin 0259 0004 | | .CONST 0x0004 ; Address of exception handler 025a 0002 | | .CONST 0x0002 ; Number of locals 025b INIT_0258: 025b 029f 080b | | Declare_Subprogram INIT_0808,For_Call 025d BODY_0258: 025d 00db | | Load_Top At_Offset_3 025e e001 | | Load 0x0,0x1 025f 1b6c | l | Execute Package,Field_Read,Field_Number 0x6c 0260 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0261 6804 |h | Jump_Zero 0x266 0262 e001 | | Load 0x0,0x1 0263 1b6c | l | Execute Package,Field_Read,Field_Number 0x6c 0264 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0265 0257 | W | Execute Discrete,Raise 0266 8402 | | Call 0x2,0x2 0267 0831 | 1 | Execute_Immediate Raise,0x31 0268 ; -------------------------------------------------------------------------------------- 0268 ; SUBPROGRAM 0268 ; -------------------------------------------------------------------------------------- 0268 0287 | | .CONST 0x0287 ; Address of begin 0269 0004 | | .CONST 0x0004 ; Address of exception handler 026a 000b | | .CONST 0x000b ; Number of locals 026b INIT_0268: 026b 00ed | | Load_Encached Diana_Symbol_Rep_Cache 026c 02c7 | | Declare_Variable Any 026d 00d8 | | Load_Top At_Offset_0 026e 1c00 | | Execute_Immediate Run_Utility,0x0 026f 00eb | | Load_Encached Diana_Cache 0270 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0271 00ec | | Load_Encached Diana_Tree_Cache 0272 02c7 | | Declare_Variable Any 0273 00d8 | | Load_Top At_Offset_0 0274 1c00 | | Execute_Immediate Run_Utility,0x0 0275 00e3 | | Load_Encached Natural_Cache 0276 00e1 | | Load_Encached Boolean_Cache 0277 00e1 | | Load_Encached Boolean_Cache 0278 e013 | | Load 0x0,0x13 0279 1b14 | | Execute Package,Field_Read,Field_Number 0x14 027a 02ff | | Declare_Variable Variant_Record 027b 00d8 | | Load_Top At_Offset_0 027c 1c00 | | Execute_Immediate Run_Utility,0x0 027d e014 | | Load 0x0,0x14 027e 1b10 | | Execute Package,Field_Read,Field_Number 0x10 027f e5fe | | Load 0x2,-0x2 0280 e014 | | Load 0x0,0x14 0281 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0282 e014 | | Load 0x0,0x14 0283 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0284 03f1 | | Declare_Variable Discrete,With_Value 0285 e5ff | | Load 0x2,-0x1 0286 8248 | H | Call 0x1,0x48 0287 BODY_0268: 0287 00d8 | | Load_Top At_Offset_0 0288 0217 | | Execute Heap_Access,All_Reference 0289 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 028a 680c |h | Jump_Zero 0x297 028b 00d8 | | Load_Top At_Offset_0 028c 0219 | | Execute Heap_Access,All_Read 028d 00d8 | | Load_Top At_Offset_0 028e 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 028f e5ff | | Load 0x2,-0x1 0290 e001 | | Load 0x0,0x1 0291 1b6c | l | Execute Package,Field_Read,Field_Number 0x6c 0292 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0293 825b | [ | Call 0x1,0x5b 0294 00d9 | | Load_Top At_Offset_1 0295 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0296 00d1 | | Pop_Control Pop_Count_1 0297 00d8 | | Load_Top At_Offset_0 0298 0219 | | Execute Heap_Access,All_Read 0299 e241 | A | Load 0x1,0x41 029a 00db | | Load_Top At_Offset_3 029b 4801 |H | Short_Literal 0x1 029c e5ff | | Load 0x2,-0x1 029d e001 | | Load 0x0,0x1 029e 1b6c | l | Execute Package,Field_Read,Field_Number 0x6c 029f 1818 | | Execute Package,Field_Execute,Field_Number 0x18 02a0 825a | Z | Call 0x1,0x5a 02a1 00d9 | | Load_Top At_Offset_1 02a2 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 02a3 00d1 | | Pop_Control Pop_Count_1 02a4 00cf | | Action Mark_Auxiliary 02a5 00da | | Load_Top At_Offset_2 02a6 4801 |H | Short_Literal 0x1 02a7 0263 | c | Execute Discrete,Above_Bound 02a8 7029 |p) | Jump_Nonzero 0x2d2 02a9 e014 | | Load 0x0,0x14 02aa 1b10 | | Execute Package,Field_Read,Field_Number 0x10 02ab e408 | | Load 0x2,0x8 02ac 00e1 | | Load_Encached Boolean_Cache 02ad 00e1 | | Load_Encached Boolean_Cache 02ae 00e3 | | Load_Encached Natural_Cache 02af e404 | | Load 0x2,0x4 02b0 0120 | | Execute Any,Is_Value 02b1 6802 |h | Jump_Zero 0x2b4 02b2 00ec | | Load_Encached Diana_Tree_Cache 02b3 7801 |x | Jump 0x2b5 02b4 e404 | | Load 0x2,0x4 02b5 00eb | | Load_Encached Diana_Cache 02b6 1b0e | | Execute Package,Field_Read,Field_Number 0xe 02b7 e402 | | Load 0x2,0x2 02b8 0120 | | Execute Any,Is_Value 02b9 6802 |h | Jump_Zero 0x2bc 02ba 00ed | | Load_Encached Diana_Symbol_Rep_Cache 02bb 7801 |x | Jump 0x2bd 02bc e402 | | Load 0x2,0x2 02bd e40e | | Load 0x2,0xe 02be e5fe | | Load 0x2,-0x2 02bf e014 | | Load 0x0,0x14 02c0 1815 | | Execute Package,Field_Execute,Field_Number 0x15 02c1 c402 | | Store 0x2,0x2 02c2 c403 | | Store 0x2,0x3 02c3 c404 | | Store 0x2,0x4 02c4 c405 | | Store 0x2,0x5 02c5 c406 | | Store 0x2,0x6 02c6 c407 | | Store 0x2,0x7 02c7 00d1 | | Pop_Control Pop_Count_1 02c8 c409 | | Store 0x2,0x9 02c9 e404 | | Load 0x2,0x4 02ca 00d9 | | Load_Top At_Offset_1 02cb e40b | | Load 0x2,0xb 02cc 0217 | | Execute Heap_Access,All_Reference 02cd 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 02ce 0217 | | Execute Heap_Access,All_Reference 02cf 01d6 | | Execute Vector,Field_Write 02d0 00c8 | | Action Pop_Auxiliary_Range 02d1 3fd7 |? | Loop_Increasing 0x2a9 02d2 4503 |E | Exit_Suprogram New_Top_Offset 0x3 02d3 0000 0000 | | .BLANK 0000[0x5] 02d8 ; -------------------------------------------------------------------------------------- 02d8 ; SUBPROGRAM 02d8 ; -------------------------------------------------------------------------------------- 02d8 02db | | .CONST 0x02db ; Address of begin 02d9 0004 | | .CONST 0x0004 ; Address of exception handler 02da 0001 | | .CONST 0x0001 ; Number of locals 02db BODY_02d8: 02db INIT_02d8: 02db 4608 |F | Jump_Case 0x9 02dc 7808 |x | Jump 0x2e5 ; case 0x0 02dd 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 02de 7825 |x% | Jump 0x304 ; case 0x2 02df 7824 |x$ | Jump 0x304 ; case 0x3 02e0 7823 |x# | Jump 0x304 ; case 0x4 02e1 7822 |x" | Jump 0x304 ; case 0x5 02e2 7821 |x! | Jump 0x304 ; case 0x6 02e3 7820 |x | Jump 0x304 ; case 0x7 02e4 781f |x | Jump 0x304 ; case 0x8 02e5 00da | | Load_Top At_Offset_2 02e6 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 02e7 0125 | % | Execute Any,Set_Constraint 02e8 00da | | Load_Top At_Offset_2 02e9 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 02ea 1c00 | | Execute_Immediate Run_Utility,0x0 02eb 00da | | Load_Top At_Offset_2 02ec 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 02ed 0125 | % | Execute Any,Set_Constraint 02ee 00da | | Load_Top At_Offset_2 02ef 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 02f0 1c00 | | Execute_Immediate Run_Utility,0x0 02f1 00da | | Load_Top At_Offset_2 02f2 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3 02f3 0125 | % | Execute Any,Set_Constraint 02f4 00da | | Load_Top At_Offset_2 02f5 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3 02f6 1c00 | | Execute_Immediate Run_Utility,0x0 02f7 00da | | Load_Top At_Offset_2 02f8 3404 |4 | Execute Record,Field_Reference,Field_Number 0x4 02f9 0125 | % | Execute Any,Set_Constraint 02fa 00da | | Load_Top At_Offset_2 02fb 3404 |4 | Execute Record,Field_Reference,Field_Number 0x4 02fc 1c00 | | Execute_Immediate Run_Utility,0x0 02fd 00da | | Load_Top At_Offset_2 02fe 3405 |4 | Execute Record,Field_Reference,Field_Number 0x5 02ff 0125 | % | Execute Any,Set_Constraint 0300 00da | | Load_Top At_Offset_2 0301 3405 |4 | Execute Record,Field_Reference,Field_Number 0x5 0302 1c00 | | Execute_Immediate Run_Utility,0x0 0303 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0304 0869 | i | Execute_Immediate Raise,0x69 0305 0000 0000 | | .XXX[0x3] 0307 0000 | | 0308 ; -------------------------------------------------------------------------------------- 0308 ; SUBPROGRAM 0308 ; -------------------------------------------------------------------------------------- 0308 030b | | .CONST 0x030b ; Address of begin 0309 0004 | | .CONST 0x0004 ; Address of exception handler 030a 0001 | | .CONST 0x0001 ; Number of locals 030b BODY_0308: 030b INIT_0308: 030b 4607 |F | Jump_Case 0x8 030c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 030d 7806 |x | Jump 0x314 ; case 0x1 030e 7809 |x | Jump 0x318 ; case 0x2 030f 780d |x | Jump 0x31d ; case 0x3 0310 7810 |x | Jump 0x321 ; case 0x4 0311 7811 |x | Jump 0x323 ; case 0x5 0312 7812 |x | Jump 0x325 ; case 0x6 0313 7815 |x | Jump 0x329 ; case 0x7 0314 00da | | Load_Top At_Offset_2 0315 0091 0c35 | 5| Action Push_String_Extended_Indexed,0xc35 ; "UNIT_INSTALL" 0317 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0318 00db | | Load_Top At_Offset_3 0319 00db | | Load_Top At_Offset_3 031a 00e0 | | Load_Encached Standard_Cache 031b 181b | | Execute Package,Field_Execute,Field_Number 0x1b 031c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 031d 00da | | Load_Top At_Offset_2 031e 00e0 | | Load_Encached Standard_Cache 031f 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0320 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0321 00db | | Load_Top At_Offset_3 0322 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0323 00db | | Load_Top At_Offset_3 0324 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0325 e244 | D | Load 0x1,0x44 0326 00dc | | Load_Top At_Offset_4 0327 0267 | g | Execute Discrete,Predecessor 0328 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0329 e244 | D | Load 0x1,0x44 032a 00dc | | Load_Top At_Offset_4 032b 0268 | h | Execute Discrete,Successor 032c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 032d 0000 0000 | | .XXX[0x3] 032f 0000 | | 0330 ; -------------------------------------------------------------------------------------- 0330 ; SUBPROGRAM 0330 ; -------------------------------------------------------------------------------------- 0330 0333 | 3 | .CONST 0x0333 ; Address of begin 0331 0004 | | .CONST 0x0004 ; Address of exception handler 0332 0001 | | .CONST 0x0001 ; Number of locals 0333 BODY_0330: 0333 INIT_0330: 0333 00da | | Load_Top At_Offset_2 0334 e001 | | Load 0x0,0x1 0335 1b6b | k | Execute Package,Field_Read,Field_Number 0x6b 0336 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0337 e245 | E | Load 0x1,0x45 0338 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0339 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 033a 0000 0000 | | .BLANK 0000[0x6] 0340 ; -------------------------------------------------------------------------------------- 0340 ; SUBPROGRAM 0340 ; -------------------------------------------------------------------------------------- 0340 0343 | C | .CONST 0x0343 ; Address of begin 0341 0004 | | .CONST 0x0004 ; Address of exception handler 0342 0001 | | .CONST 0x0001 ; Number of locals 0343 BODY_0340: 0343 INIT_0340: 0343 00db | | Load_Top At_Offset_3 0344 e245 | E | Load 0x1,0x45 0345 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0346 00db | | Load_Top At_Offset_3 0347 e001 | | Load 0x0,0x1 0348 1b6b | k | Execute Package,Field_Read,Field_Number 0x6b 0349 1813 | | Execute Package,Field_Execute,Field_Number 0x13 034a 4503 |E | Exit_Suprogram New_Top_Offset 0x3 034b 0000 0000 | | .BLANK 0000[0x5] 0350 ; -------------------------------------------------------------------------------------- 0350 ; SUBPROGRAM 0350 ; -------------------------------------------------------------------------------------- 0350 0353 | S | .CONST 0x0353 ; Address of begin 0351 0004 | | .CONST 0x0004 ; Address of exception handler 0352 0001 | | .CONST 0x0001 ; Number of locals 0353 BODY_0350: 0353 INIT_0350: 0353 00da | | Load_Top At_Offset_2 0354 e001 | | Load 0x0,0x1 0355 1b6c | l | Execute Package,Field_Read,Field_Number 0x6c 0356 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36 0357 e245 | E | Load 0x1,0x45 0358 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0359 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 035a 0000 0000 | | .BLANK 0000[0x6] 0360 ; -------------------------------------------------------------------------------------- 0360 ; SUBPROGRAM 0360 ; -------------------------------------------------------------------------------------- 0360 0363 | c | .CONST 0x0363 ; Address of begin 0361 0004 | | .CONST 0x0004 ; Address of exception handler 0362 0001 | | .CONST 0x0001 ; Number of locals 0363 BODY_0360: 0363 INIT_0360: 0363 00db | | Load_Top At_Offset_3 0364 e245 | E | Load 0x1,0x45 0365 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0366 00db | | Load_Top At_Offset_3 0367 e001 | | Load 0x0,0x1 0368 1b6c | l | Execute Package,Field_Read,Field_Number 0x6c 0369 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37 036a 4503 |E | Exit_Suprogram New_Top_Offset 0x3 036b 0000 0000 | | .BLANK 0000[0x5] 0370 ; -------------------------------------------------------------------------------------- 0370 ; SUBPROGRAM 0370 ; -------------------------------------------------------------------------------------- 0370 0373 | s | .CONST 0x0373 ; Address of begin 0371 0004 | | .CONST 0x0004 ; Address of exception handler 0372 0001 | | .CONST 0x0001 ; Number of locals 0373 BODY_0370: 0373 INIT_0370: 0373 00da | | Load_Top At_Offset_2 0374 8246 | F | Call 0x1,0x46 0375 0219 | | Execute Heap_Access,All_Read 0376 e24a | J | Load 0x1,0x4a 0377 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0378 00d9 | | Load_Top At_Offset_1 0379 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 037a e5ff | | Load 0x2,-0x1 037b e24a | J | Load 0x1,0x4a 037c 1811 | | Execute Package,Field_Execute,Field_Number 0x11 037d 00da | | Load_Top At_Offset_2 037e 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 037f c5fe | | Store 0x2,-0x2 0380 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0381 0000 0000 | | .BLANK 0000[0x7] 0388 ; -------------------------------------------------------------------------------------- 0388 ; SUBPROGRAM 0388 ; -------------------------------------------------------------------------------------- 0388 038b | | .CONST 0x038b ; Address of begin 0389 0004 | | .CONST 0x0004 ; Address of exception handler 038a 0001 | | .CONST 0x0001 ; Number of locals 038b BODY_0388: 038b INIT_0388: 038b 00da | | Load_Top At_Offset_2 038c 8246 | F | Call 0x1,0x46 038d 0219 | | Execute Heap_Access,All_Read 038e e5fe | | Load 0x2,-0x2 038f 00d9 | | Load_Top At_Offset_1 0390 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0391 e5ff | | Load 0x2,-0x1 0392 e24a | J | Load 0x1,0x4a 0393 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0394 00da | | Load_Top At_Offset_2 0395 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0396 c5fe | | Store 0x2,-0x2 0397 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0398 ; -------------------------------------------------------------------------------------- 0398 ; SUBPROGRAM 0398 ; -------------------------------------------------------------------------------------- 0398 039b | | .CONST 0x039b ; Address of begin 0399 0004 | | .CONST 0x0004 ; Address of exception handler 039a 0001 | | .CONST 0x0001 ; Number of locals 039b BODY_0398: 039b INIT_0398: 039b 00db | | Load_Top At_Offset_3 039c e5fd | | Load 0x2,-0x3 039d e241 | A | Load 0x1,0x41 039e e5ff | | Load 0x2,-0x1 039f 039a | | Declare_Variable Heap_Access,By_Allocation,With_Constraint 03a0 00d8 | | Load_Top At_Offset_0 03a1 0217 | | Execute Heap_Access,All_Reference 03a2 1c00 | | Execute_Immediate Run_Utility,0x0 03a3 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 03a4 0000 0000 | | .BLANK 0000[0x4] 03a8 ; -------------------------------------------------------------------------------------- 03a8 ; SUBPROGRAM 03a8 ; -------------------------------------------------------------------------------------- 03a8 03ab | | .CONST 0x03ab ; Address of begin 03a9 0004 | | .CONST 0x0004 ; Address of exception handler 03aa 0001 | | .CONST 0x0001 ; Number of locals 03ab BODY_03a8: 03ab INIT_03a8: 03ab 00da | | Load_Top At_Offset_2 03ac 0217 | | Execute Heap_Access,All_Reference 03ad 01dd | | Execute Vector,First 03ae 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 03af 0000 | | .XXX[0x1] 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 01dc | | Execute Vector,Last 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 8246 | F | Call 0x1,0x46 03bd 0219 | | Execute Heap_Access,All_Read 03be e24d | M | Load 0x1,0x4d 03bf 1b10 | | Execute Package,Field_Read,Field_Number 0x10 03c0 00d9 | | Load_Top At_Offset_1 03c1 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 03c2 e5ff | | Load 0x2,-0x1 03c3 e24d | M | Load 0x1,0x4d 03c4 1811 | | Execute Package,Field_Execute,Field_Number 0x11 03c5 00da | | Load_Top At_Offset_2 03c6 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 03c7 c5fe | | Store 0x2,-0x2 03c8 4502 |E | Exit_Suprogram New_Top_Offset 0x2 03c9 0000 0000 | | .BLANK 0000[0x7] 03d0 ; -------------------------------------------------------------------------------------- 03d0 ; SUBPROGRAM 03d0 ; -------------------------------------------------------------------------------------- 03d0 03d3 | | .CONST 0x03d3 ; Address of begin 03d1 0004 | | .CONST 0x0004 ; Address of exception handler 03d2 0001 | | .CONST 0x0001 ; Number of locals 03d3 BODY_03d0: 03d3 INIT_03d0: 03d3 00da | | Load_Top At_Offset_2 03d4 8246 | F | Call 0x1,0x46 03d5 0219 | | Execute Heap_Access,All_Read 03d6 e5fe | | Load 0x2,-0x2 03d7 00d9 | | Load_Top At_Offset_1 03d8 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 03d9 e5ff | | Load 0x2,-0x1 03da e24d | M | Load 0x1,0x4d 03db 1812 | | Execute Package,Field_Execute,Field_Number 0x12 03dc 00da | | Load_Top At_Offset_2 03dd 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 03de c5fe | | Store 0x2,-0x2 03df 4502 |E | Exit_Suprogram New_Top_Offset 0x2 03e0 ; -------------------------------------------------------------------------------------- 03e0 ; SUBPROGRAM 03e0 ; -------------------------------------------------------------------------------------- 03e0 03e3 | | .CONST 0x03e3 ; Address of begin 03e1 0004 | | .CONST 0x0004 ; Address of exception handler 03e2 0001 | | .CONST 0x0001 ; Number of locals 03e3 BODY_03e0: 03e3 INIT_03e0: 03e3 00da | | Load_Top At_Offset_2 03e4 8246 | F | Call 0x1,0x46 03e5 0219 | | Execute Heap_Access,All_Read 03e6 e24e | N | Load 0x1,0x4e 03e7 1b10 | | Execute Package,Field_Read,Field_Number 0x10 03e8 00d9 | | Load_Top At_Offset_1 03e9 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 03ea e5ff | | Load 0x2,-0x1 03eb e24e | N | Load 0x1,0x4e 03ec 1811 | | Execute Package,Field_Execute,Field_Number 0x11 03ed 00da | | Load_Top At_Offset_2 03ee 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 03ef c5fe | | Store 0x2,-0x2 03f0 4502 |E | Exit_Suprogram New_Top_Offset 0x2 03f1 0000 0000 | | .BLANK 0000[0x7] 03f8 ; -------------------------------------------------------------------------------------- 03f8 ; SUBPROGRAM 03f8 ; -------------------------------------------------------------------------------------- 03f8 03fb | | .CONST 0x03fb ; Address of begin 03f9 0004 | | .CONST 0x0004 ; Address of exception handler 03fa 0001 | | .CONST 0x0001 ; Number of locals 03fb BODY_03f8: 03fb INIT_03f8: 03fb 00da | | Load_Top At_Offset_2 03fc 8246 | F | Call 0x1,0x46 03fd 0219 | | Execute Heap_Access,All_Read 03fe e5fe | | Load 0x2,-0x2 03ff 00d9 | | Load_Top At_Offset_1 0400 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0401 e5ff | | Load 0x2,-0x1 0402 e24e | N | Load 0x1,0x4e 0403 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0404 00da | | Load_Top At_Offset_2 0405 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 0406 c5fe | | Store 0x2,-0x2 0407 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0408 ; -------------------------------------------------------------------------------------- 0408 ; SUBPROGRAM 0408 ; -------------------------------------------------------------------------------------- 0408 040b | | .CONST 0x040b ; Address of begin 0409 0004 | | .CONST 0x0004 ; Address of exception handler 040a 0001 | | .CONST 0x0001 ; Number of locals 040b BODY_0408: 040b INIT_0408: 040b 00da | | Load_Top At_Offset_2 040c 8246 | F | Call 0x1,0x46 040d 0219 | | Execute Heap_Access,All_Read 040e e24f | O | Load 0x1,0x4f 040f 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0410 00d9 | | Load_Top At_Offset_1 0411 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 0412 e5ff | | Load 0x2,-0x1 0413 e24f | O | Load 0x1,0x4f 0414 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0415 00da | | Load_Top At_Offset_2 0416 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 0417 c5fe | | Store 0x2,-0x2 0418 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0419 0000 0000 | | .BLANK 0000[0x7] 0420 ; -------------------------------------------------------------------------------------- 0420 ; SUBPROGRAM 0420 ; -------------------------------------------------------------------------------------- 0420 0423 | # | .CONST 0x0423 ; Address of begin 0421 0004 | | .CONST 0x0004 ; Address of exception handler 0422 0001 | | .CONST 0x0001 ; Number of locals 0423 BODY_0420: 0423 INIT_0420: 0423 00da | | Load_Top At_Offset_2 0424 8246 | F | Call 0x1,0x46 0425 0219 | | Execute Heap_Access,All_Read 0426 e5fe | | Load 0x2,-0x2 0427 00d9 | | Load_Top At_Offset_1 0428 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 0429 e5ff | | Load 0x2,-0x1 042a e24f | O | Load 0x1,0x4f 042b 1812 | | Execute Package,Field_Execute,Field_Number 0x12 042c 00da | | Load_Top At_Offset_2 042d 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 042e c5fe | | Store 0x2,-0x2 042f 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0430 ; -------------------------------------------------------------------------------------- 0430 ; SUBPROGRAM 0430 ; -------------------------------------------------------------------------------------- 0430 0433 | 3 | .CONST 0x0433 ; Address of begin 0431 0004 | | .CONST 0x0004 ; Address of exception handler 0432 0001 | | .CONST 0x0001 ; Number of locals 0433 BODY_0430: 0433 INIT_0430: 0433 00da | | Load_Top At_Offset_2 0434 8246 | F | Call 0x1,0x46 0435 0219 | | Execute Heap_Access,All_Read 0436 e253 | S | Load 0x1,0x53 0437 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0438 00d9 | | Load_Top At_Offset_1 0439 3c05 |< | Execute Record,Field_Read,Field_Number 0x5 043a e5fd | | Load 0x2,-0x3 043b e5fe | | Load 0x2,-0x2 043c e5ff | | Load 0x2,-0x1 043d e253 | S | Load 0x1,0x53 043e 1814 | | Execute Package,Field_Execute,Field_Number 0x14 043f 00da | | Load_Top At_Offset_2 0440 3805 |8 | Execute Record,Field_Write,Field_Number 0x5 0441 c5fc | | Store 0x2,-0x4 0442 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0443 0000 0000 | | .BLANK 0000[0x5] 0448 ; -------------------------------------------------------------------------------------- 0448 ; SUBPROGRAM 0448 ; -------------------------------------------------------------------------------------- 0448 044b | K | .CONST 0x044b ; Address of begin 0449 0004 | | .CONST 0x0004 ; Address of exception handler 044a 0001 | | .CONST 0x0001 ; Number of locals 044b BODY_0448: 044b INIT_0448: 044b 00da | | Load_Top At_Offset_2 044c 8246 | F | Call 0x1,0x46 044d 0219 | | Execute Heap_Access,All_Read 044e e5fe | | Load 0x2,-0x2 044f 00d9 | | Load_Top At_Offset_1 0450 3c05 |< | Execute Record,Field_Read,Field_Number 0x5 0451 e5ff | | Load 0x2,-0x1 0452 e253 | S | Load 0x1,0x53 0453 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0454 00da | | Load_Top At_Offset_2 0455 3805 |8 | Execute Record,Field_Write,Field_Number 0x5 0456 c5fe | | Store 0x2,-0x2 0457 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0458 ; -------------------------------------------------------------------------------------- 0458 ; SUBPROGRAM 0458 ; -------------------------------------------------------------------------------------- 0458 0477 | w | .CONST 0x0477 ; Address of begin 0459 0004 | | .CONST 0x0004 ; Address of exception handler 045a 0008 | | .CONST 0x0008 ; Number of locals 045b INIT_0458: 045b e5fd | | Load 0x2,-0x3 045c 8248 | H | Call 0x1,0x48 045d 00d8 | | Load_Top At_Offset_0 045e 0217 | | Execute Heap_Access,All_Reference 045f 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0460 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0461 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0462 0007 | | Action Break_Optional 0463 e216 | | Load 0x1,0x16 0464 0007 | | Action Break_Optional 0465 00da | | Load_Top At_Offset_2 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 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 046a 0007 | | Action Break_Optional 046b e213 | | Load 0x1,0x13 046c 0007 | | Action Break_Optional 046d e241 | A | Load 0x1,0x41 046e e402 | | Load 0x2,0x2 046f 0217 | | Execute Heap_Access,All_Reference 0470 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0471 0031 | 1 | Store_Top Heap_Access,At_Offset_1 0472 e001 | | Load 0x0,0x1 0473 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0474 02c7 | | Declare_Variable Any 0475 00d8 | | Load_Top At_Offset_0 0476 1c00 | | Execute_Immediate Run_Utility,0x0 0477 BODY_0458: 0477 00cf | | Action Mark_Auxiliary 0478 7820 |x | Jump 0x499 0479 e403 | | Load 0x2,0x3 047a 0217 | | Execute Heap_Access,All_Reference 047b 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 047c e216 | | Load 0x1,0x16 047d 0216 | | Execute Heap_Access,Convert 047e a404 | | Store_Unchecked 0x2,0x4 047f e403 | | Load 0x2,0x3 0480 0217 | | Execute Heap_Access,All_Reference 0481 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0482 e001 | | Load 0x0,0x1 0483 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0484 c408 | | Store 0x2,0x8 0485 00d9 | | Load_Top At_Offset_1 0486 e001 | | Load 0x0,0x1 0487 1b6c | l | Execute Package,Field_Read,Field_Number 0x6c 0488 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0489 6806 |h | Jump_Zero 0x490 048a 00d9 | | Load_Top At_Offset_1 048b e5ff | | Load 0x2,-0x1 048c e001 | | Load 0x0,0x1 048d 1b6a | j | Execute Package,Field_Read,Field_Number 0x6a 048e 1820 | | Execute Package,Field_Execute,Field_Number 0x20 048f c408 | | Store 0x2,0x8 0490 e403 | | Load 0x2,0x3 0491 e215 | | Load 0x1,0x15 0492 0216 | | Execute Heap_Access,Convert 0493 e5fe | | Load 0x2,-0x2 0494 8255 | U | Call 0x1,0x55 0495 c403 | | Store 0x2,0x3 0496 e404 | | Load 0x2,0x4 0497 a403 | | Store_Unchecked 0x2,0x3 0498 00c9 | | Action Pop_Auxiliary_Loop 0499 e403 | | Load 0x2,0x3 049a 77de |w | Jump_Nonzero 0x479 049b 00ce | | Action Pop_Auxiliary 049c e216 | | Load 0x1,0x16 049d e402 | | Load 0x2,0x2 049e 0217 | | Execute Heap_Access,All_Reference 049f 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 04a0 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 04a1 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 04a2 00cf | | Action Mark_Auxiliary 04a3 780f |x | Jump 0x4b3 04a4 e405 | | Load 0x2,0x5 04a5 0217 | | Execute Heap_Access,All_Reference 04a6 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 04a7 e213 | | Load 0x1,0x13 04a8 0216 | | Execute Heap_Access,Convert 04a9 a406 | | Store_Unchecked 0x2,0x6 04aa e405 | | Load 0x2,0x5 04ab e212 | | Load 0x1,0x12 04ac 0216 | | Execute Heap_Access,Convert 04ad e5fe | | Load 0x2,-0x2 04ae 8257 | W | Call 0x1,0x57 04af c405 | | Store 0x2,0x5 04b0 00db | | Load_Top At_Offset_3 04b1 a405 | | Store_Unchecked 0x2,0x5 04b2 00c9 | | Action Pop_Auxiliary_Loop 04b3 e405 | | Load 0x2,0x5 04b4 77ef |w | Jump_Nonzero 0x4a4 04b5 00ce | | Action Pop_Auxiliary 04b6 e213 | | Load 0x1,0x13 04b7 e402 | | Load 0x2,0x2 04b8 0217 | | Execute Heap_Access,All_Reference 04b9 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 04ba 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 04bb 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 04bc 00d9 | | Load_Top At_Offset_1 04bd 680d |h | Jump_Zero 0x4cb 04be 00cf | | Action Mark_Auxiliary 04bf 00da | | Load_Top At_Offset_2 04c0 0217 | | Execute Heap_Access,All_Reference 04c1 01d9 | | Execute Vector,Reverse_Bounds 04c2 0263 | c | Execute Discrete,Above_Bound 04c3 7006 |p | Jump_Nonzero 0x4ca 04c4 e407 | | Load 0x2,0x7 04c5 e5fe | | Load 0x2,-0x2 04c6 825b | [ | Call 0x1,0x5b 04c7 c407 | | Store 0x2,0x7 04c8 00c8 | | Action Pop_Auxiliary_Range 04c9 3ffa |? | Loop_Increasing 0x4c4 04ca 00ce | | Action Pop_Auxiliary 04cb 4504 |E | Exit_Suprogram New_Top_Offset 0x4 04cc 0000 0000 | | .BLANK 0000[0x4] 04d0 ; -------------------------------------------------------------------------------------- 04d0 ; SUBPROGRAM 04d0 ; -------------------------------------------------------------------------------------- 04d0 04d5 | | .CONST 0x04d5 ; Address of begin 04d1 0004 | | .CONST 0x0004 ; Address of exception handler 04d2 0002 | | .CONST 0x0002 ; Number of locals 04d3 INIT_04d0: 04d3 e23e | > | Load 0x1,0x3e 04d4 0007 | | Action Break_Optional 04d5 BODY_04d0: 04d5 e23e | > | Load 0x1,0x3e 04d6 e5fe | | Load 0x2,-0x2 04d7 e001 | | Load 0x0,0x1 04d8 1811 | | Execute Package,Field_Execute,Field_Number 0x11 04d9 039c | | Declare_Variable Heap_Access,By_Allocation 04da 00d8 | | Load_Top At_Offset_0 04db 0217 | | Execute Heap_Access,All_Reference 04dc 1c00 | | Execute_Immediate Run_Utility,0x0 04dd 0031 | 1 | Store_Top Heap_Access,At_Offset_1 04de e001 | | Load 0x0,0x1 04df 1b31 | 1 | Execute Package,Field_Read,Field_Number 0x31 04e0 00d9 | | Load_Top At_Offset_1 04e1 0217 | | Execute Heap_Access,All_Reference 04e2 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 04e3 e23c | < | Load 0x1,0x3c 04e4 00d9 | | Load_Top At_Offset_1 04e5 0217 | | Execute Heap_Access,All_Reference 04e6 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 04e7 00d8 | | Load_Top At_Offset_0 04e8 e5fe | | Load 0x2,-0x2 04e9 8247 | G | Call 0x1,0x47 04ea 4503 |E | Exit_Suprogram New_Top_Offset 0x3 04eb 0000 0000 | | .BLANK 0000[0x5] 04f0 ; -------------------------------------------------------------------------------------- 04f0 ; SUBPROGRAM 04f0 ; -------------------------------------------------------------------------------------- 04f0 04f3 | | .CONST 0x04f3 ; Address of begin 04f1 0004 | | .CONST 0x0004 ; Address of exception handler 04f2 0001 | | .CONST 0x0001 ; Number of locals 04f3 BODY_04f0: 04f3 INIT_04f0: 04f3 4503 |E | Exit_Suprogram New_Top_Offset 0x3 04f4 0000 0000 | | .BLANK 0000[0x4] 04f8 ; -------------------------------------------------------------------------------------- 04f8 ; SUBPROGRAM 04f8 ; -------------------------------------------------------------------------------------- 04f8 0549 | I | .CONST 0x0549 ; Address of begin 04f9 0004 | | .CONST 0x0004 ; Address of exception handler 04fa 0021 | ! | .CONST 0x0021 ; Number of locals 04fb INIT_04f8: 04fb 00db | | Load_Top At_Offset_3 04fc 8246 | F | Call 0x1,0x46 04fd 00e1 | | Load_Encached Boolean_Cache 04fe 029f 0823 | #| Declare_Subprogram INIT_0820,For_Call 0500 e001 | | Load 0x0,0x1 0501 1b73 | s | Execute Package,Field_Read,Field_Number 0x73 0502 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0503 1911 | | Execute Package,Field_Reference,Field_Number 0x11 0504 00c6 | | Action Check_Subprogram_Elaborated 0505 e5ff | | Load 0x2,-0x1 0506 00d8 | | Load_Top At_Offset_0 0507 0120 | | Execute Any,Is_Value 0508 7002 |p | Jump_Nonzero 0x50b 0509 00d8 | | Load_Top At_Offset_0 050a 011e | | Execute Any,Convert 050b e242 | B | Load 0x1,0x42 050c e243 | C | Load 0x1,0x43 050d 0092 0c37 | 7| Action Push_String_Extended,0xc37 ; "target-dependent unit" 050f 4804 |H | Short_Literal 0x4 0510 4802 |H | Short_Literal 0x2 0511 0099 | | Action Reference_Dynamic 0512 4800 |H | Short_Literal 0x0 0513 e015 | | Load 0x0,0x15 0514 e016 | | Load 0x0,0x16 0515 480d |H | Short_Literal 0xd 0516 0007 | | Action Break_Optional 0517 029f 084b | K| Declare_Subprogram INIT_0848,For_Call 0519 e001 | | Load 0x0,0x1 051a 1b73 | s | Execute Package,Field_Read,Field_Number 0x73 051b 1b0f | | Execute Package,Field_Read,Field_Number 0xf 051c 1911 | | Execute Package,Field_Reference,Field_Number 0x11 051d 00c6 | | Action Check_Subprogram_Elaborated 051e e5ff | | Load 0x2,-0x1 051f 00d8 | | Load_Top At_Offset_0 0520 0120 | | Execute Any,Is_Value 0521 7002 |p | Jump_Nonzero 0x524 0522 00d8 | | Load_Top At_Offset_0 0523 011e | | Execute Any,Convert 0524 e23b | ; | Load 0x1,0x3b 0525 e215 | | Load 0x1,0x15 0526 0092 0c38 | 8| Action Push_String_Extended,0xc38 ; "call" 0528 480e |H | Short_Literal 0xe 0529 4802 |H | Short_Literal 0x2 052a 0099 | | Action Reference_Dynamic 052b 4800 |H | Short_Literal 0x0 052c e017 | | Load 0x0,0x17 052d e018 | | Load 0x0,0x18 052e 4817 |H | Short_Literal 0x17 052f 0007 | | Action Break_Optional 0530 029f 0863 | c| Declare_Subprogram INIT_0860,For_Call 0532 e001 | | Load 0x0,0x1 0533 1b73 | s | Execute Package,Field_Read,Field_Number 0x73 0534 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0535 1911 | | Execute Package,Field_Reference,Field_Number 0x11 0536 00c6 | | Action Check_Subprogram_Elaborated 0537 e5ff | | Load 0x2,-0x1 0538 00d8 | | Load_Top At_Offset_0 0539 0120 | | Execute Any,Is_Value 053a 7002 |p | Jump_Nonzero 0x53d 053b 00d8 | | Load_Top At_Offset_0 053c 011e | | Execute Any,Convert 053d e239 | 9 | Load 0x1,0x39 053e e212 | | Load 0x1,0x12 053f 0092 0c39 | 9| Action Push_String_Extended,0xc39 ; "defn" 0541 4818 |H | Short_Literal 0x18 0542 4802 |H | Short_Literal 0x2 0543 0099 | | Action Reference_Dynamic 0544 4800 |H | Short_Literal 0x0 0545 e019 | | Load 0x0,0x19 0546 e01a | | Load 0x0,0x1a 0547 4821 |H! | Short_Literal 0x21 0548 0007 | | Action Break_Optional 0549 BODY_04f8: 0549 e402 | | Load 0x2,0x2 054a 700c |p | Jump_Nonzero 0x557 054b 4802 |H | Short_Literal 0x2 054c 0092 0c3a | :| Action Push_String_Extended,0xc3a ; "Null target-dependent header" 054e e5ff | | Load 0x2,-0x1 054f e001 | | Load 0x0,0x1 0550 1b73 | s | Execute Package,Field_Read,Field_Number 0x73 0551 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0552 180f | | Execute Package,Field_Execute,Field_Number 0xf 0553 e001 | | Load 0x0,0x1 0554 1b1c | | Execute Package,Field_Read,Field_Number 0x1c 0555 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0556 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0557 e402 | | Load 0x2,0x2 0558 0217 | | Execute Heap_Access,All_Reference 0559 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 055a e405 | | Load 0x2,0x5 055b e406 | | Load 0x2,0x6 055c e407 | | Load 0x2,0x7 055d e408 | | Load 0x2,0x8 055e 4809 |H | Short_Literal 0x9 055f 4802 |H | Short_Literal 0x2 0560 0099 | | Action Reference_Dynamic 0561 e40a | | Load 0x2,0xa 0562 480b |H | Short_Literal 0xb 0563 4802 |H | Short_Literal 0x2 0564 0099 | | Action Reference_Dynamic 0565 e001 | | Load 0x0,0x1 0566 1b73 | s | Execute Package,Field_Read,Field_Number 0x73 0567 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0568 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0569 e402 | | Load 0x2,0x2 056a 0217 | | Execute Heap_Access,All_Reference 056b 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 056c e40f | | Load 0x2,0xf 056d e410 | | Load 0x2,0x10 056e e411 | | Load 0x2,0x11 056f e412 | | Load 0x2,0x12 0570 4813 |H | Short_Literal 0x13 0571 4802 |H | Short_Literal 0x2 0572 0099 | | Action Reference_Dynamic 0573 e414 | | Load 0x2,0x14 0574 4815 |H | Short_Literal 0x15 0575 4802 |H | Short_Literal 0x2 0576 0099 | | Action Reference_Dynamic 0577 e001 | | Load 0x0,0x1 0578 1b73 | s | Execute Package,Field_Read,Field_Number 0x73 0579 1b0f | | Execute Package,Field_Read,Field_Number 0xf 057a 1811 | | Execute Package,Field_Execute,Field_Number 0x11 057b e402 | | Load 0x2,0x2 057c 0217 | | Execute Heap_Access,All_Reference 057d 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 057e e419 | | Load 0x2,0x19 057f e41a | | Load 0x2,0x1a 0580 e41b | | Load 0x2,0x1b 0581 e41c | | Load 0x2,0x1c 0582 481d |H | Short_Literal 0x1d 0583 4802 |H | Short_Literal 0x2 0584 0099 | | Action Reference_Dynamic 0585 e41e | | Load 0x2,0x1e 0586 481f |H | Short_Literal 0x1f 0587 4802 |H | Short_Literal 0x2 0588 0099 | | Action Reference_Dynamic 0589 e001 | | Load 0x0,0x1 058a 1b73 | s | Execute Package,Field_Read,Field_Number 0x73 058b 1b0f | | Execute Package,Field_Read,Field_Number 0xf 058c 1811 | | Execute Package,Field_Execute,Field_Number 0x11 058d 4503 |E | Exit_Suprogram New_Top_Offset 0x3 058e 0000 0000 | | .XXX[0x2] 0590 ; -------------------------------------------------------------------------------------- 0590 ; SUBPROGRAM 0590 ; -------------------------------------------------------------------------------------- 0590 0593 | | .CONST 0x0593 ; Address of begin 0591 0004 | | .CONST 0x0004 ; Address of exception handler 0592 0001 | | .CONST 0x0001 ; Number of locals 0593 BODY_0590: 0593 INIT_0590: 0593 e01b | | Load 0x0,0x1b 0594 0257 | W | Execute Discrete,Raise 0595 0000 0000 | | .XXX[0x3] 0597 0000 | | 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 4505 |E | Exit_Suprogram New_Top_Offset 0x5 059c 0000 0000 | | .BLANK 0000[0x4] 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 4504 |E | Exit_Suprogram New_Top_Offset 0x4 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 e01b | | Load 0x0,0x1b 05ac 0257 | W | Execute Discrete,Raise 05ad 0000 0000 | | .XXX[0x3] 05af 0000 | | 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 0833 | 3 | Execute_Immediate Raise,0x33 05b4 0000 0000 | | .BLANK 0000[0x4] 05b8 ; -------------------------------------------------------------------------------------- 05b8 ; SUBPROGRAM 05b8 ; -------------------------------------------------------------------------------------- 05b8 05bb | | .CONST 0x05bb ; Address of begin 05b9 0004 | | .CONST 0x0004 ; Address of exception handler 05ba 0001 | | .CONST 0x0001 ; Number of locals 05bb BODY_05b8: 05bb INIT_05b8: 05bb 00da | | Load_Top At_Offset_2 05bc e01c | | Load 0x0,0x1c 05bd 189e | | Execute Package,Field_Execute,Field_Number 0x9e 05be 6804 |h | Jump_Zero 0x5c3 05bf 00da | | Load_Top At_Offset_2 05c0 e01c | | Load 0x0,0x1c 05c1 189d | | Execute Package,Field_Execute,Field_Number 0x9d 05c2 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 05c3 00da | | Load_Top At_Offset_2 05c4 0148 | H | Execute Heap_Access,Get_Offset 05c5 00d8 | | Load_Top At_Offset_0 05c6 49a2 |I | Short_Literal 0x1a2 05c7 00eb | | Load_Encached Diana_Cache 05c8 0098 | | Execute Package,Field_Read_Dynamic 05c9 0260 | ` | Execute Discrete,In_Type 05ca 7001 |p | Jump_Nonzero 0x5cc 05cb 0801 | | Execute_Immediate Raise,0x1 05cc 0275 | u | Execute Discrete,Unary_Minus 05cd 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 05ce 0000 0000 | | .XXX[0x2] 05d0 ; -------------------------------------------------------------------------------------- 05d0 ; SUBPROGRAM 05d0 ; -------------------------------------------------------------------------------------- 05d0 05d5 | | .CONST 0x05d5 ; Address of begin 05d1 0004 | | .CONST 0x0004 ; Address of exception handler 05d2 0002 | | .CONST 0x0002 ; Number of locals 05d3 INIT_05d0: 05d3 029f 087b | {| Declare_Subprogram INIT_0878,For_Call 05d5 BODY_05d0: 05d5 e5fc | | Load 0x2,-0x4 05d6 8402 | | Call 0x2,0x2 05d7 4508 |E | Exit_Suprogram New_Top_Offset 0x8 05d8 ; -------------------------------------------------------------------------------------- 05d8 ; SUBPROGRAM 05d8 ; -------------------------------------------------------------------------------------- 05d8 05fb | | .CONST 0x05fb ; Address of begin 05d9 0004 | | .CONST 0x0004 ; Address of exception handler 05da 0009 | | .CONST 0x0009 ; Number of locals 05db INIT_05d8: 05db e215 | | Load 0x1,0x15 05dc 0007 | | Action Break_Optional 05dd 00ec | | Load_Encached Diana_Tree_Cache 05de 02c7 | | Declare_Variable Any 05df e5ff | | Load 0x2,-0x1 05e0 4974 |It | Short_Literal 0x174 05e1 00eb | | Load_Encached Diana_Cache 05e2 0098 | | Execute Package,Field_Read_Dynamic 05e3 181a | | Execute Package,Field_Execute,Field_Number 0x1a 05e4 a403 | | Store_Unchecked 0x2,0x3 05e5 e001 | | Load 0x0,0x1 05e6 1b13 | | Execute Package,Field_Read,Field_Number 0x13 05e7 02c7 | | Declare_Variable Any 05e8 00d8 | | Load_Top At_Offset_0 05e9 1c00 | | Execute_Immediate Run_Utility,0x0 05ea e5fe | | Load 0x2,-0x2 05eb 0217 | | Execute Heap_Access,All_Reference 05ec 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 05ed 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 05ee 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 05ef e21e | | Load 0x1,0x1e 05f0 0216 | | Execute Heap_Access,Convert 05f1 e5ff | | Load 0x2,-0x1 05f2 8265 | e | Call 0x1,0x65 05f3 e23a | : | Load 0x1,0x3a 05f4 03f1 | | Declare_Variable Discrete,With_Value 05f5 029f 0923 | #| Declare_Subprogram INIT_0920,For_Call 05f7 029f 0943 | C| Declare_Subprogram INIT_0940,For_Call 05f9 029f 096b | k| Declare_Subprogram INIT_0968,For_Call 05fb BODY_05d8: 05fb e403 | | Load 0x2,0x3 05fc e01c | | Load 0x0,0x1c 05fd 180d | | Execute Package,Field_Execute,Field_Number 0xd 05fe 6801 |h | Jump_Zero 0x600 05ff 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0600 e403 | | Load 0x2,0x3 0601 e5fc | | Load 0x2,-0x4 0602 e001 | | Load 0x0,0x1 0603 1b6a | j | Execute Package,Field_Read,Field_Number 0x6a 0604 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0605 c404 | | Store 0x2,0x4 0606 8409 | | Call 0x2,0x9 0607 6808 |h | Jump_Zero 0x610 0608 e215 | | Load 0x1,0x15 0609 e5fd | | Load 0x2,-0x3 060a 8254 | T | Call 0x1,0x54 060b c402 | | Store 0x2,0x2 060c e402 | | Load 0x2,0x2 060d 8407 | | Call 0x2,0x7 060e e402 | | Load 0x2,0x2 060f 8408 | | Call 0x2,0x8 0610 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0611 0000 0000 | | .BLANK 0000[0x7] 0618 ; -------------------------------------------------------------------------------------- 0618 ; SUBPROGRAM 0618 ; -------------------------------------------------------------------------------------- 0618 0626 | & | .CONST 0x0626 ; Address of begin 0619 0004 | | .CONST 0x0004 ; Address of exception handler 061a 0007 | | .CONST 0x0007 ; Number of locals 061b INIT_0618: 061b e243 | C | Load 0x1,0x43 061c 0007 | | Action Break_Optional 061d 1d66 | f | Execute_Immediate Reference_Lex_1,0x66 061e 00c6 | | Action Check_Subprogram_Elaborated 061f 1d67 | g | Execute_Immediate Reference_Lex_1,0x67 0620 e01d | | Load 0x0,0x1d 0621 e01e | | Load 0x0,0x1e 0622 4806 |H | Short_Literal 0x6 0623 0007 | | Action Break_Optional 0624 029f 0993 | | Declare_Subprogram INIT_0990,For_Call 0626 BODY_0618: 0626 e5fc | | Load 0x2,-0x4 0627 8248 | H | Call 0x1,0x48 0628 a402 | | Store_Unchecked 0x2,0x2 0629 e243 | C | Load 0x1,0x43 062a e5fd | | Load 0x2,-0x3 062b 824b | K | Call 0x1,0x4b 062c c402 | | Store 0x2,0x2 062d e5fd | | Load 0x2,-0x3 062e e5ff | | Load 0x2,-0x1 062f e402 | | Load 0x2,0x2 0630 e5fe | | Load 0x2,-0x2 0631 4800 |H | Short_Literal 0x0 0632 4803 |H | Short_Literal 0x3 0633 4802 |H | Short_Literal 0x2 0634 0099 | | Action Reference_Dynamic 0635 4804 |H | Short_Literal 0x4 0636 4802 |H | Short_Literal 0x2 0637 0099 | | Action Reference_Dynamic 0638 8266 | f | Call 0x1,0x66 0639 e402 | | Load 0x2,0x2 063a e5fc | | Load 0x2,-0x4 063b 8249 | I | Call 0x1,0x49 063c e5ff | | Load 0x2,-0x1 063d e001 | | Load 0x0,0x1 063e 1b1c | | Execute Package,Field_Read,Field_Number 0x1c 063f 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0640 7002 |p | Jump_Nonzero 0x643 0641 e5fe | | Load 0x2,-0x2 0642 8407 | | Call 0x2,0x7 0643 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0644 0000 0000 | | .BLANK 0000[0x4] 0648 ; -------------------------------------------------------------------------------------- 0648 ; SUBPROGRAM 0648 ; -------------------------------------------------------------------------------------- 0648 064b | K | .CONST 0x064b ; Address of begin 0649 0004 | | .CONST 0x0004 ; Address of exception handler 064a 0001 | | .CONST 0x0001 ; Number of locals 064b BODY_0648: 064b INIT_0648: 064b 4504 |E | Exit_Suprogram New_Top_Offset 0x4 064c 0000 0000 | | .BLANK 0000[0x4] 0650 ; -------------------------------------------------------------------------------------- 0650 ; SUBPROGRAM 0650 ; -------------------------------------------------------------------------------------- 0650 0653 | S | .CONST 0x0653 ; Address of begin 0651 0004 | | .CONST 0x0004 ; Address of exception handler 0652 0001 | | .CONST 0x0001 ; Number of locals 0653 BODY_0650: 0653 INIT_0650: 0653 e01b | | Load 0x0,0x1b 0654 0257 | W | Execute Discrete,Raise 0655 0000 0000 | | .XXX[0x3] 0657 0000 | | 0658 ; -------------------------------------------------------------------------------------- 0658 ; SUBPROGRAM 0658 ; -------------------------------------------------------------------------------------- 0658 0663 | c | .CONST 0x0663 ; Address of begin 0659 0004 | | .CONST 0x0004 ; Address of exception handler 065a 0003 | | .CONST 0x0003 ; Number of locals 065b INIT_0658: 065b e013 | | Load 0x0,0x13 065c 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 065d 1b0e | | Execute Package,Field_Read,Field_Number 0xe 065e 02c7 | | Declare_Variable Any 065f 00d8 | | Load_Top At_Offset_0 0660 1c00 | | Execute_Immediate Run_Utility,0x0 0661 e013 | | Load 0x0,0x13 0662 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0663 BODY_0658: 0663 e013 | | Load 0x0,0x13 0664 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0665 00da | | Load_Top At_Offset_2 0666 0120 | | Execute Any,Is_Value 0667 6804 |h | Jump_Zero 0x66c 0668 e013 | | Load 0x0,0x13 0669 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 066a 1b0e | | Execute Package,Field_Read,Field_Number 0xe 066b 7801 |x | Jump 0x66d 066c 00da | | Load_Top At_Offset_2 066d e5fe | | Load 0x2,-0x2 066e e01f | | Load 0x0,0x1f 066f 180d | | Execute Package,Field_Execute,Field_Number 0xd 0670 e013 | | Load 0x0,0x13 0671 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 0672 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0673 c402 | | Store 0x2,0x2 0674 0059 | Y | Store_Top Discrete,At_Offset_1 0675 00d9 | | Load_Top At_Offset_1 0676 e013 | | Load 0x0,0x13 0677 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 0678 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0679 e020 | | Load 0x0,0x20 067a 1814 | | Execute Package,Field_Execute,Field_Number 0x14 067b 0f00 | | Execute_Immediate Equal,0x0 067c 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 067d 0000 0000 | | .XXX[0x3] 067f 0000 | | 0680 ; -------------------------------------------------------------------------------------- 0680 ; SUBPROGRAM 0680 ; -------------------------------------------------------------------------------------- 0680 0683 | | .CONST 0x0683 ; Address of begin 0681 0004 | | .CONST 0x0004 ; Address of exception handler 0682 0001 | | .CONST 0x0001 ; Number of locals 0683 BODY_0680: 0683 INIT_0680: 0683 e01b | | Load 0x0,0x1b 0684 0257 | W | Execute Discrete,Raise 0685 0000 0000 | | .XXX[0x3] 0687 0000 | | 0688 ; -------------------------------------------------------------------------------------- 0688 ; SUBPROGRAM 0688 ; -------------------------------------------------------------------------------------- 0688 068d | | .CONST 0x068d ; Address of begin 0689 0004 | | .CONST 0x0004 ; Address of exception handler 068a 0002 | | .CONST 0x0002 ; Number of locals 068b INIT_0688: 068b e243 | C | Load 0x1,0x43 068c 0007 | | Action Break_Optional 068d BODY_0688: 068d e021 | ! | Load 0x0,0x21 068e 180e | | Execute Package,Field_Execute,Field_Number 0xe 068f e022 | " | Load 0x0,0x22 0690 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0691 e5fc | | Load 0x2,-0x4 0692 8248 | H | Call 0x1,0x48 0693 0031 | 1 | Store_Top Heap_Access,At_Offset_1 0694 e5fc | | Load 0x2,-0x4 0695 e5fd | | Load 0x2,-0x3 0696 e5ff | | Load 0x2,-0x1 0697 825c | \ | Call 0x1,0x5c 0698 00d8 | | Load_Top At_Offset_0 0699 e5fd | | Load 0x2,-0x3 069a 824c | L | Call 0x1,0x4c 069b 0031 | 1 | Store_Top Heap_Access,At_Offset_1 069c e243 | C | Load 0x1,0x43 069d e5fc | | Load 0x2,-0x4 069e 8249 | I | Call 0x1,0x49 069f 4505 |E | Exit_Suprogram New_Top_Offset 0x5 06a0 ; -------------------------------------------------------------------------------------- 06a0 ; SUBPROGRAM 06a0 ; -------------------------------------------------------------------------------------- 06a0 06af | | .CONST 0x06af ; Address of begin 06a1 0004 | | .CONST 0x0004 ; Address of exception handler 06a2 0007 | | .CONST 0x0007 ; Number of locals 06a3 INIT_06a0: 06a3 e5fb | | Load 0x2,-0x5 06a4 8248 | H | Call 0x1,0x48 06a5 00f1 | | Load_Encached Diana_Temp_Seq 06a6 02c7 | | Declare_Variable Any 06a7 e5fe | | Load 0x2,-0x2 06a8 a403 | | Store_Unchecked 0x2,0x3 06a9 1d66 | f | Execute_Immediate Reference_Lex_1,0x66 06aa 00c6 | | Action Check_Subprogram_Elaborated 06ab 1d67 | g | Execute_Immediate Reference_Lex_1,0x67 06ac e023 | # | Load 0x0,0x23 06ad e024 | $ | Load 0x0,0x24 06ae 4807 |H | Short_Literal 0x7 06af BODY_06a0: 06af 00cf | | Action Mark_Auxiliary 06b0 7813 |x | Jump 0x6c4 06b1 e5fc | | Load 0x2,-0x4 06b2 e5ff | | Load 0x2,-0x1 06b3 e402 | | Load 0x2,0x2 06b4 e403 | | Load 0x2,0x3 06b5 0217 | | Execute Heap_Access,All_Reference 06b6 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 06b7 4801 |H | Short_Literal 0x1 06b8 4804 |H | Short_Literal 0x4 06b9 4802 |H | Short_Literal 0x2 06ba 0099 | | Action Reference_Dynamic 06bb 4805 |H | Short_Literal 0x5 06bc 4802 |H | Short_Literal 0x2 06bd 0099 | | Action Reference_Dynamic 06be 8266 | f | Call 0x1,0x66 06bf e403 | | Load 0x2,0x3 06c0 0217 | | Execute Heap_Access,All_Reference 06c1 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 06c2 c403 | | Store 0x2,0x3 06c3 00c9 | | Action Pop_Auxiliary_Loop 06c4 e403 | | Load 0x2,0x3 06c5 77eb |w | Jump_Nonzero 0x6b1 06c6 4506 |E | Exit_Suprogram New_Top_Offset 0x6 06c7 0000 | | .XXX[0x1] 06c8 ; -------------------------------------------------------------------------------------- 06c8 ; SUBPROGRAM 06c8 ; -------------------------------------------------------------------------------------- 06c8 06dc | | .CONST 0x06dc ; Address of begin 06c9 0004 | | .CONST 0x0004 ; Address of exception handler 06ca 0008 | | .CONST 0x0008 ; Number of locals 06cb INIT_06c8: 06cb e5fb | | Load 0x2,-0x5 06cc 8248 | H | Call 0x1,0x48 06cd 00f1 | | Load_Encached Diana_Temp_Seq 06ce 02c7 | | Declare_Variable Any 06cf e5fe | | Load 0x2,-0x2 06d0 a403 | | Store_Unchecked 0x2,0x3 06d1 029f 0a7b | {| Declare_Subprogram INIT_0a78,For_Call 06d3 1d66 | f | Execute_Immediate Reference_Lex_1,0x66 06d4 00c6 | | Action Check_Subprogram_Elaborated 06d5 4804 |H | Short_Literal 0x4 06d6 4802 |H | Short_Literal 0x2 06d7 0099 | | Action Reference_Dynamic 06d8 e025 | % | Load 0x0,0x25 06d9 e026 | & | Load 0x0,0x26 06da 4808 |H | Short_Literal 0x8 06db 0007 | | Action Break_Optional 06dc BODY_06c8: 06dc e021 | ! | Load 0x0,0x21 06dd 180e | | Execute Package,Field_Execute,Field_Number 0xe 06de e022 | " | Load 0x0,0x22 06df 1819 | | Execute Package,Field_Execute,Field_Number 0x19 06e0 00cf | | Action Mark_Auxiliary 06e1 7813 |x | Jump 0x6f5 06e2 e5fc | | Load 0x2,-0x4 06e3 e5ff | | Load 0x2,-0x1 06e4 e402 | | Load 0x2,0x2 06e5 e403 | | Load 0x2,0x3 06e6 0217 | | Execute Heap_Access,All_Reference 06e7 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 06e8 4801 |H | Short_Literal 0x1 06e9 4805 |H | Short_Literal 0x5 06ea 4802 |H | Short_Literal 0x2 06eb 0099 | | Action Reference_Dynamic 06ec 4806 |H | Short_Literal 0x6 06ed 4802 |H | Short_Literal 0x2 06ee 0099 | | Action Reference_Dynamic 06ef 8266 | f | Call 0x1,0x66 06f0 e403 | | Load 0x2,0x3 06f1 0217 | | Execute Heap_Access,All_Reference 06f2 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 06f3 c403 | | Store 0x2,0x3 06f4 00c9 | | Action Pop_Auxiliary_Loop 06f5 e403 | | Load 0x2,0x3 06f6 77eb |w | Jump_Nonzero 0x6e2 06f7 4506 |E | Exit_Suprogram New_Top_Offset 0x6 06f8 ; -------------------------------------------------------------------------------------- 06f8 ; SUBPROGRAM 06f8 ; -------------------------------------------------------------------------------------- 06f8 06fb | | .CONST 0x06fb ; Address of begin 06f9 0004 | | .CONST 0x0004 ; Address of exception handler 06fa 0001 | | .CONST 0x0001 ; Number of locals 06fb BODY_06f8: 06fb INIT_06f8: 06fb 4507 |E | Exit_Suprogram New_Top_Offset 0x7 06fc 0000 0000 | | .BLANK 0000[0x4] 0700 ; -------------------------------------------------------------------------------------- 0700 ; SUBPROGRAM 0700 ; -------------------------------------------------------------------------------------- 0700 0703 | | .CONST 0x0703 ; Address of begin 0701 0004 | | .CONST 0x0004 ; Address of exception handler 0702 0001 | | .CONST 0x0001 ; Number of locals 0703 BODY_0700: 0703 INIT_0700: 0703 e021 | ! | Load 0x0,0x21 0704 180e | | Execute Package,Field_Execute,Field_Number 0xe 0705 e022 | " | Load 0x0,0x22 0706 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0707 4507 |E | Exit_Suprogram New_Top_Offset 0x7 0708 ; -------------------------------------------------------------------------------------- 0708 ; SUBPROGRAM 0708 ; -------------------------------------------------------------------------------------- 0708 070b | | .CONST 0x070b ; Address of begin 0709 0004 | | .CONST 0x0004 ; Address of exception handler 070a 0001 | | .CONST 0x0001 ; Number of locals 070b BODY_0708: 070b INIT_0708: 070b e01b | | Load 0x0,0x1b 070c 0257 | W | Execute Discrete,Raise 070d 0000 0000 | | .XXX[0x3] 070f 0000 | | 0710 ; -------------------------------------------------------------------------------------- 0710 ; SUBPROGRAM 0710 ; -------------------------------------------------------------------------------------- 0710 0713 | | .CONST 0x0713 ; Address of begin 0711 0004 | | .CONST 0x0004 ; Address of exception handler 0712 0001 | | .CONST 0x0001 ; Number of locals 0713 BODY_0710: 0713 INIT_0710: 0713 4502 |E | Exit_Suprogram New_Top_Offset 0x2 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 4801 |H | Short_Literal 0x1 071c 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 071d 0000 0000 | | .XXX[0x3] 071f 0000 | | 0720 ; -------------------------------------------------------------------------------------- 0720 ; SUBPROGRAM 0720 ; -------------------------------------------------------------------------------------- 0720 0723 | # | .CONST 0x0723 ; Address of begin 0721 0004 | | .CONST 0x0004 ; Address of exception handler 0722 0001 | | .CONST 0x0001 ; Number of locals 0723 BODY_0720: 0723 INIT_0720: 0723 4800 |H | Short_Literal 0x0 0724 a5fc | | Store_Unchecked 0x2,-0x4 0725 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0726 0000 0000 | | .XXX[0x2] 0728 ; -------------------------------------------------------------------------------------- 0728 ; SUBPROGRAM 0728 ; -------------------------------------------------------------------------------------- 0728 072b | + | .CONST 0x072b ; Address of begin 0729 0004 | | .CONST 0x0004 ; Address of exception handler 072a 0001 | | .CONST 0x0001 ; Number of locals 072b BODY_0728: 072b INIT_0728: 072b 4505 |E | Exit_Suprogram New_Top_Offset 0x5 072c 0000 0000 | | .BLANK 0000[0x4] 0730 ; -------------------------------------------------------------------------------------- 0730 ; SUBPROGRAM 0730 ; -------------------------------------------------------------------------------------- 0730 0733 | 3 | .CONST 0x0733 ; Address of begin 0731 0004 | | .CONST 0x0004 ; Address of exception handler 0732 0001 | | .CONST 0x0001 ; Number of locals 0733 BODY_0730: 0733 INIT_0730: 0733 0833 | 3 | Execute_Immediate Raise,0x33 0734 0000 0000 | | .BLANK 0000[0x4] 0738 ; -------------------------------------------------------------------------------------- 0738 ; SUBPROGRAM 0738 ; -------------------------------------------------------------------------------------- 0738 0741 | A | .CONST 0x0741 ; Address of begin 0739 0004 | | .CONST 0x0004 ; Address of exception handler 073a 0002 | | .CONST 0x0002 ; Number of locals 073b INIT_0738: 073b 4801 |H | Short_Literal 0x1 073c 4800 |H | Short_Literal 0x0 073d e027 | ' | Load 0x0,0x27 073e 1b12 | | Execute Package,Field_Read,Field_Number 0x12 073f 035b | [ | Declare_Type Array,Constrained 0740 0337 | 7 | Declare_Variable Array 0741 BODY_0738: 0741 e01b | | Load 0x0,0x1b 0742 0257 | W | Execute Discrete,Raise 0743 0000 0000 | | .BLANK 0000[0x5] 0748 ; -------------------------------------------------------------------------------------- 0748 ; SUBPROGRAM 0748 ; -------------------------------------------------------------------------------------- 0748 0751 | Q | .CONST 0x0751 ; Address of begin 0749 0004 | | .CONST 0x0004 ; Address of exception handler 074a 0002 | | .CONST 0x0002 ; Number of locals 074b INIT_0748: 074b 4801 |H | Short_Literal 0x1 074c 4800 |H | Short_Literal 0x0 074d e027 | ' | Load 0x0,0x27 074e 1b12 | | Execute Package,Field_Read,Field_Number 0x12 074f 035b | [ | Declare_Type Array,Constrained 0750 0337 | 7 | Declare_Variable Array 0751 BODY_0748: 0751 e01b | | Load 0x0,0x1b 0752 0257 | W | Execute Discrete,Raise 0753 0000 0000 | | .BLANK 0000[0x5] 0758 ; -------------------------------------------------------------------------------------- 0758 ; SUBPROGRAM 0758 ; -------------------------------------------------------------------------------------- 0758 075b | [ | .CONST 0x075b ; Address of begin 0759 0004 | | .CONST 0x0004 ; Address of exception handler 075a 0001 | | .CONST 0x0001 ; Number of locals 075b BODY_0758: 075b INIT_0758: 075b e01b | | Load 0x0,0x1b 075c 0257 | W | Execute Discrete,Raise 075d 0000 0000 | | .XXX[0x3] 075f 0000 | | 0760 ; -------------------------------------------------------------------------------------- 0760 ; SUBPROGRAM 0760 ; -------------------------------------------------------------------------------------- 0760 0763 | c | .CONST 0x0763 ; Address of begin 0761 0004 | | .CONST 0x0004 ; Address of exception handler 0762 0001 | | .CONST 0x0001 ; Number of locals 0763 BODY_0760: 0763 INIT_0760: 0763 e01b | | Load 0x0,0x1b 0764 0257 | W | Execute Discrete,Raise 0765 0000 0000 | | .XXX[0x3] 0767 0000 | | 0768 ; -------------------------------------------------------------------------------------- 0768 ; SUBPROGRAM 0768 ; -------------------------------------------------------------------------------------- 0768 076b | k | .CONST 0x076b ; Address of begin 0769 0004 | | .CONST 0x0004 ; Address of exception handler 076a 0001 | | .CONST 0x0001 ; Number of locals 076b BODY_0768: 076b INIT_0768: 076b e01b | | Load 0x0,0x1b 076c 0257 | W | Execute Discrete,Raise 076d 0000 0000 | | .XXX[0x3] 076f 0000 | | 0770 ; -------------------------------------------------------------------------------------- 0770 ; SUBPROGRAM 0770 ; -------------------------------------------------------------------------------------- 0770 0773 | s | .CONST 0x0773 ; Address of begin 0771 0004 | | .CONST 0x0004 ; Address of exception handler 0772 0001 | | .CONST 0x0001 ; Number of locals 0773 BODY_0770: 0773 INIT_0770: 0773 e01b | | Load 0x0,0x1b 0774 0257 | W | Execute Discrete,Raise 0775 0000 0000 | | .XXX[0x3] 0777 0000 | | 0778 ; -------------------------------------------------------------------------------------- 0778 ; SUBPROGRAM 0778 ; -------------------------------------------------------------------------------------- 0778 077b | { | .CONST 0x077b ; Address of begin 0779 0004 | | .CONST 0x0004 ; Address of exception handler 077a 0001 | | .CONST 0x0001 ; Number of locals 077b BODY_0778: 077b INIT_0778: 077b 00da | | Load_Top At_Offset_2 077c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 077d 0000 0000 | | .XXX[0x3] 077f 0000 | | 0780 ; -------------------------------------------------------------------------------------- 0780 ; SUBPROGRAM 0780 ; -------------------------------------------------------------------------------------- 0780 0792 | | .CONST 0x0792 ; Address of begin 0781 0004 | | .CONST 0x0004 ; Address of exception handler 0782 0005 | | .CONST 0x0005 ; Number of locals 0783 INIT_0780: 0783 e013 | | Load 0x0,0x13 0784 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0785 02ff | | Declare_Variable Variant_Record 0786 00d8 | | Load_Top At_Offset_0 0787 1c00 | | Execute_Immediate Run_Utility,0x0 0788 e028 | ( | Load 0x0,0x28 0789 1b14 | | Execute Package,Field_Read,Field_Number 0x14 078a 1b10 | | Execute Package,Field_Read,Field_Number 0x10 078b 02c7 | | Declare_Variable Any 078c 00d8 | | Load_Top At_Offset_0 078d 1c00 | | Execute_Immediate Run_Utility,0x0 078e e013 | | Load 0x0,0x13 078f 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0790 e029 | ) | Load 0x0,0x29 0791 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0792 BODY_0780: 0792 e5ff | | Load 0x2,-0x1 0793 e001 | | Load 0x0,0x1 0794 1b1c | | Execute Package,Field_Read,Field_Number 0x1c 0795 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0796 680e |h | Jump_Zero 0x7a5 0797 e5ff | | Load 0x2,-0x1 0798 00d8 | | Load_Top At_Offset_0 0799 e001 | | Load 0x0,0x1 079a 1b1c | | Execute Package,Field_Read,Field_Number 0x1c 079b 1816 | | Execute Package,Field_Execute,Field_Number 0x16 079c e02a | * | Load 0x0,0x2a 079d 1811 | | Execute Package,Field_Execute,Field_Number 0x11 079e e02b | + | Load 0x0,0x2b 079f 1811 | | Execute Package,Field_Execute,Field_Number 0x11 07a0 e5fe | | Load 0x2,-0x2 07a1 e02c | , | Load 0x0,0x2c 07a2 1b0e | | Execute Package,Field_Read,Field_Number 0xe 07a3 1812 | | Execute Package,Field_Execute,Field_Number 0x12 07a4 c403 | | Store 0x2,0x3 07a5 4507 |E | Exit_Suprogram New_Top_Offset 0x7 07a6 0000 0000 | | .XXX[0x2] 07a8 ; -------------------------------------------------------------------------------------- 07a8 ; SUBPROGRAM 07a8 ; -------------------------------------------------------------------------------------- 07a8 07b3 | | .CONST 0x07b3 ; Address of begin 07a9 0004 | | .CONST 0x0004 ; Address of exception handler 07aa 0004 | | .CONST 0x0004 ; Number of locals 07ab INIT_07a8: 07ab e5fc | | Load 0x2,-0x4 07ac 8248 | H | Call 0x1,0x48 07ad 00d8 | | Load_Top At_Offset_0 07ae 0217 | | Execute Heap_Access,All_Reference 07af 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 07b0 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 07b1 0007 | | Action Break_Optional 07b2 e22e | . | Load 0x1,0x2e 07b3 BODY_07a8: 07b3 00cf | | Action Mark_Auxiliary 07b4 780f |x | Jump 0x7c4 07b5 00da | | Load_Top At_Offset_2 07b6 0217 | | Execute Heap_Access,All_Reference 07b7 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 07b8 e22e | . | Load 0x1,0x2e 07b9 0216 | | Execute Heap_Access,Convert 07ba 0032 | 2 | Store_Top Heap_Access,At_Offset_2 07bb 00da | | Load_Top At_Offset_2 07bc e22d | - | Load 0x1,0x2d 07bd 0216 | | Execute Heap_Access,Convert 07be e5fd | | Load 0x2,-0x3 07bf 8259 | Y | Call 0x1,0x59 07c0 0033 | 3 | Store_Top Heap_Access,At_Offset_3 07c1 00d9 | | Load_Top At_Offset_1 07c2 0033 | 3 | Store_Top Heap_Access,At_Offset_3 07c3 00c9 | | Action Pop_Auxiliary_Loop 07c4 00da | | Load_Top At_Offset_2 07c5 77ef |w | Jump_Nonzero 0x7b5 07c6 00ce | | Action Pop_Auxiliary 07c7 e22e | . | Load 0x1,0x2e 07c8 00db | | Load_Top At_Offset_3 07c9 0217 | | Execute Heap_Access,All_Reference 07ca 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 07cb 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 07cc 4505 |E | Exit_Suprogram New_Top_Offset 0x5 07cd 0000 0000 | | .XXX[0x3] 07cf 0000 | | 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 4507 |E | Exit_Suprogram New_Top_Offset 0x7 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 450c |E | Exit_Suprogram New_Top_Offset 0xc 07dc 0000 0000 | | .BLANK 0000[0x4] 07e0 ; -------------------------------------------------------------------------------------- 07e0 ; SUBPROGRAM 07e0 ; -------------------------------------------------------------------------------------- 07e0 07e5 | | .CONST 0x07e5 ; Address of begin 07e1 0004 | | .CONST 0x0004 ; Address of exception handler 07e2 0002 | | .CONST 0x0002 ; Number of locals 07e3 INIT_07e0: 07e3 e22f | / | Load 0x1,0x2f 07e4 0007 | | Action Break_Optional 07e5 BODY_07e0: 07e5 e404 | | Load 0x2,0x4 07e6 7006 |p | Jump_Nonzero 0x7ed 07e7 00db | | Load_Top At_Offset_3 07e8 e403 | | Load 0x2,0x3 07e9 0217 | | Execute Heap_Access,All_Reference 07ea 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 07eb 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 07ec 4502 |E | Exit_Suprogram New_Top_Offset 0x2 07ed e404 | | Load 0x2,0x4 07ee 0217 | | Execute Heap_Access,All_Reference 07ef 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 07f0 0031 | 1 | Store_Top Heap_Access,At_Offset_1 07f1 00cf | | Action Mark_Auxiliary 07f2 7807 |x | Jump 0x7fa 07f3 00d9 | | Load_Top At_Offset_1 07f4 a404 | | Store_Unchecked 0x2,0x4 07f5 00d9 | | Load_Top At_Offset_1 07f6 0217 | | Execute Heap_Access,All_Reference 07f7 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 07f8 0032 | 2 | Store_Top Heap_Access,At_Offset_2 07f9 00c9 | | Action Pop_Auxiliary_Loop 07fa 00d9 | | Load_Top At_Offset_1 07fb 77f7 |w | Jump_Nonzero 0x7f3 07fc 00ce | | Action Pop_Auxiliary 07fd 00db | | Load_Top At_Offset_3 07fe e22f | / | Load 0x1,0x2f 07ff 0216 | | Execute Heap_Access,Convert 0800 e404 | | Load 0x2,0x4 0801 0217 | | Execute Heap_Access,All_Reference 0802 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0803 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0804 0000 0000 | | .BLANK 0000[0x4] 0808 ; -------------------------------------------------------------------------------------- 0808 ; SUBPROGRAM 0808 ; -------------------------------------------------------------------------------------- 0808 0811 | | .CONST 0x0811 ; Address of begin 0809 0004 | | .CONST 0x0004 ; Address of exception handler 080a 0002 | | .CONST 0x0002 ; Number of locals 080b INIT_0808: 080b e241 | A | Load 0x1,0x41 080c e5ff | | Load 0x2,-0x1 080d 8248 | H | Call 0x1,0x48 080e 0217 | | Execute Heap_Access,All_Reference 080f 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0810 0031 | 1 | Store_Top Heap_Access,At_Offset_1 0811 BODY_0808: 0811 00d8 | | Load_Top At_Offset_0 0812 7003 |p | Jump_Nonzero 0x816 0813 e237 | 7 | Load 0x1,0x37 0814 00cb | | Action Pop_Block_With_Result 0815 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0816 00d8 | | Load_Top At_Offset_0 0817 0217 | | Execute Heap_Access,All_Reference 0818 0335 | 5 | Declare_Variable Array,Duplicate 0819 00cd | | Action Spare6_Action 081a 00cb | | Action Pop_Block_With_Result 081b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 081c 0000 0000 | | .BLANK 0000[0x4] 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 00da | | Load_Top At_Offset_2 0824 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0825 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0826 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0827 680b |h | Jump_Zero 0x833 0828 4802 |H | Short_Literal 0x2 0829 0092 0c3b | ;| Action Push_String_Extended,0xc3b ; "Item on target-dependent unit free list has a non-null list of calls" 082b e5ff | | Load 0x2,-0x1 082c e001 | | Load 0x0,0x1 082d 1b73 | s | Execute Package,Field_Read,Field_Number 0x73 082e 1b0f | | Execute Package,Field_Read,Field_Number 0xf 082f 180f | | Execute Package,Field_Execute,Field_Number 0xf 0830 e001 | | Load 0x0,0x1 0831 1b1c | | Execute Package,Field_Read,Field_Number 0x1c 0832 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0833 00da | | Load_Top At_Offset_2 0834 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0835 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0836 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0837 680b |h | Jump_Zero 0x843 0838 4802 |H | Short_Literal 0x2 0839 0092 0c3c | <| Action Push_String_Extended,0xc3c ; "Item on target-dependent unit free list has a non-null list of defns" 083b e5ff | | Load 0x2,-0x1 083c e001 | | Load 0x0,0x1 083d 1b73 | s | Execute Package,Field_Read,Field_Number 0x73 083e 1b0f | | Execute Package,Field_Read,Field_Number 0xf 083f 180f | | Execute Package,Field_Execute,Field_Number 0xf 0840 e001 | | Load 0x0,0x1 0841 1b1c | | Execute Package,Field_Read,Field_Number 0x1c 0842 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0843 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0844 0000 0000 | | .BLANK 0000[0x4] 0848 ; -------------------------------------------------------------------------------------- 0848 ; SUBPROGRAM 0848 ; -------------------------------------------------------------------------------------- 0848 084b | K | .CONST 0x084b ; Address of begin 0849 0004 | | .CONST 0x0004 ; Address of exception handler 084a 0001 | | .CONST 0x0001 ; Number of locals 084b BODY_0848: 084b INIT_0848: 084b 00da | | Load_Top At_Offset_2 084c 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 084d 680b |h | Jump_Zero 0x859 084e 4802 |H | Short_Literal 0x2 084f 0092 0c3d | =| Action Push_String_Extended,0xc3d ; "A calls node on the free list has a non-null link" 0851 e5ff | | Load 0x2,-0x1 0852 e001 | | Load 0x0,0x1 0853 1b73 | s | Execute Package,Field_Read,Field_Number 0x73 0854 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0855 180f | | Execute Package,Field_Execute,Field_Number 0xf 0856 e001 | | Load 0x0,0x1 0857 1b1c | | Execute Package,Field_Read,Field_Number 0x1c 0858 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0859 4502 |E | Exit_Suprogram New_Top_Offset 0x2 085a 0000 0000 | | .BLANK 0000[0x6] 0860 ; -------------------------------------------------------------------------------------- 0860 ; SUBPROGRAM 0860 ; -------------------------------------------------------------------------------------- 0860 0863 | c | .CONST 0x0863 ; Address of begin 0861 0004 | | .CONST 0x0004 ; Address of exception handler 0862 0001 | | .CONST 0x0001 ; Number of locals 0863 BODY_0860: 0863 INIT_0860: 0863 00da | | Load_Top At_Offset_2 0864 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0865 680b |h | Jump_Zero 0x871 0866 4802 |H | Short_Literal 0x2 0867 0092 0c3e | >| Action Push_String_Extended,0xc3e ; "A defns node on the free list has a non-null link" 0869 e5ff | | Load 0x2,-0x1 086a e001 | | Load 0x0,0x1 086b 1b73 | s | Execute Package,Field_Read,Field_Number 0x73 086c 1b0f | | Execute Package,Field_Read,Field_Number 0xf 086d 180f | | Execute Package,Field_Execute,Field_Number 0xf 086e e001 | | Load 0x0,0x1 086f 1b1c | | Execute Package,Field_Read,Field_Number 0x1c 0870 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0871 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0872 0000 0000 | | .BLANK 0000[0x6] 0878 ; -------------------------------------------------------------------------------------- 0878 ; SUBPROGRAM 0878 ; -------------------------------------------------------------------------------------- 0878 0895 | | .CONST 0x0895 ; Address of begin 0879 0004 | | .CONST 0x0004 ; Address of exception handler 087a 0009 | | .CONST 0x0009 ; Number of locals 087b INIT_0878: 087b 00da | | Load_Top At_Offset_2 087c 0145 | E | Execute Heap_Access,Diana_Tree_Kind 087d 008e | | Action Discrete,Diana_Arity_For_Kind 087e 00eb | | Load_Encached Diana_Cache 087f 1b82 | | Execute Package,Field_Read,Field_Number 0x82 0880 03f1 | | Declare_Variable Discrete,With_Value 0881 00ee | | Load_Encached Diana_Seq_Type_Cache 0882 02c7 | | Declare_Variable Any 0883 00d8 | | Load_Top At_Offset_0 0884 1c00 | | Execute_Immediate Run_Utility,0x0 0885 00ec | | Load_Encached Diana_Tree_Cache 0886 02c7 | | Declare_Variable Any 0887 00d8 | | Load_Top At_Offset_0 0888 1c00 | | Execute_Immediate Run_Utility,0x0 0889 00ec | | Load_Encached Diana_Tree_Cache 088a 02c7 | | Declare_Variable Any 088b 00d8 | | Load_Top At_Offset_0 088c 1c00 | | Execute_Immediate Run_Utility,0x0 088d 029f 0af3 | | Declare_Subprogram INIT_0af0,For_Call 088f 029f 0b2b | +| Declare_Subprogram INIT_0b28,For_Call 0891 029f 0b3b | ;| Declare_Subprogram INIT_0b38,For_Call 0893 029f 0b53 | S| Declare_Subprogram INIT_0b50,For_Call 0895 BODY_0878: 0895 e602 | | Load 0x3,0x2 0896 4604 |F | Jump_Case 0x5 0897 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x0 0898 7815 |x | Jump 0x8ae ; case 0x1 0899 7819 |x | Jump 0x8b3 ; case 0x2 089a 785e |x^ | Jump 0x8f9 ; case 0x3 089b 7800 |x | Jump 0x89c ; case 0x4 089c e7ff | | Load 0x3,-0x1 089d 00eb | | Load_Encached Diana_Cache 089e 1889 | | Execute Package,Field_Execute,Field_Number 0x89 089f c603 | | Store 0x3,0x3 08a0 00cf | | Action Mark_Auxiliary 08a1 7808 |x | Jump 0x8aa 08a2 e603 | | Load 0x3,0x3 08a3 008b | | Action Heap_Access,Diana_Seq_Type_Get_Head 08a4 8402 | | Call 0x2,0x2 08a5 e603 | | Load 0x3,0x3 08a6 0217 | | Execute Heap_Access,All_Reference 08a7 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 08a8 c603 | | Store 0x3,0x3 08a9 00c9 | | Action Pop_Auxiliary_Loop 08aa e603 | | Load 0x3,0x3 08ab 77f6 |w | Jump_Nonzero 0x8a2 08ac 00ce | | Action Pop_Auxiliary 08ad 4502 |E | Exit_Suprogram New_Top_Offset 0x2 08ae e7ff | | Load 0x3,-0x1 08af 00eb | | Load_Encached Diana_Cache 08b0 188a | | Execute Package,Field_Execute,Field_Number 0x8a 08b1 8402 | | Call 0x2,0x2 08b2 4502 |E | Exit_Suprogram New_Top_Offset 0x2 08b3 e7ff | | Load 0x3,-0x1 08b4 0145 | E | Execute Heap_Access,Diana_Tree_Kind 08b5 0f10 | | Execute_Immediate Equal,0x10 08b6 e7ff | | Load 0x3,-0x1 08b7 0145 | E | Execute Heap_Access,Diana_Tree_Kind 08b8 0f5b | [ | Execute_Immediate Equal,0x5b 08b9 0278 | x | Execute Discrete,Or 08ba 6819 |h | Jump_Zero 0x8d4 08bb e7ff | | Load 0x3,-0x1 08bc 00eb | | Load_Encached Diana_Cache 08bd 18d4 | | Execute Package,Field_Execute,Field_Number 0xd4 08be 4976 |Iv | Short_Literal 0x176 08bf 00eb | | Load_Encached Diana_Cache 08c0 0098 | | Execute Package,Field_Read_Dynamic 08c1 1813 | | Execute Package,Field_Execute,Field_Number 0x13 08c2 c604 | | Store 0x3,0x4 08c3 e604 | | Load 0x3,0x4 08c4 8607 | | Call 0x3,0x7 08c5 682a |h* | Jump_Zero 0x8f0 08c6 e604 | | Load 0x3,0x4 08c7 8606 | | Call 0x3,0x6 08c8 6827 |h' | Jump_Zero 0x8f0 08c9 e7ff | | Load 0x3,-0x1 08ca 490c |I | Short_Literal 0x10c 08cb 00eb | | Load_Encached Diana_Cache 08cc 0096 | | Execute Package,Entry 08cd 8609 | | Call 0x3,0x9 08ce e5fa | | Load 0x2,-0x6 08cf e5f9 | | Load 0x2,-0x7 08d0 e5fb | | Load 0x2,-0x5 08d1 e604 | | Load 0x3,0x4 08d2 85fe | | Call 0x2,-0x2 08d3 781c |x | Jump 0x8f0 08d4 e7ff | | Load 0x3,-0x1 08d5 0145 | E | Execute Heap_Access,Diana_Tree_Kind 08d6 0f40 | @ | Execute_Immediate Equal,0x40 08d7 6818 |h | Jump_Zero 0x8f0 08d8 e5fd | | Load 0x2,-0x3 08d9 0f01 | | Execute_Immediate Equal,0x1 08da 6815 |h | Jump_Zero 0x8f0 08db 4801 |H | Short_Literal 0x1 08dc 0092 0c3f | ?| Action Push_String_Extended,0xc3f ; "INLINE" 08de e7ff | | Load 0x3,-0x1 08df 00eb | | Load_Encached Diana_Cache 08e0 18cf | | Execute Package,Field_Execute,Field_Number 0xcf 08e1 00eb | | Load_Encached Diana_Cache 08e2 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 08e3 00eb | | Load_Encached Diana_Cache 08e4 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 08e5 e02d | - | Load 0x0,0x2d 08e6 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 08e7 6808 |h | Jump_Zero 0x8f0 08e8 4802 |H | Short_Literal 0x2 08e9 0092 0c40 | @| Action Push_String_Extended,0xc40 ; "Incremental insertion and removal of pragma Inline with RCI is disallowed" 08eb e5fa | | Load 0x2,-0x6 08ec e001 | | Load 0x0,0x1 08ed 1b1c | | Execute Package,Field_Read,Field_Number 0x1c 08ee 1819 | | Execute Package,Field_Execute,Field_Number 0x19 08ef 4502 |E | Exit_Suprogram New_Top_Offset 0x2 08f0 e7ff | | Load 0x3,-0x1 08f1 00eb | | Load_Encached Diana_Cache 08f2 188a | | Execute Package,Field_Execute,Field_Number 0x8a 08f3 8402 | | Call 0x2,0x2 08f4 e7ff | | Load 0x3,-0x1 08f5 00eb | | Load_Encached Diana_Cache 08f6 188b | | Execute Package,Field_Execute,Field_Number 0x8b 08f7 8402 | | Call 0x2,0x2 08f8 4502 |E | Exit_Suprogram New_Top_Offset 0x2 08f9 e5fd | | Load 0x2,-0x3 08fa 7011 |p | Jump_Nonzero 0x90c 08fb e7ff | | Load 0x3,-0x1 08fc 0145 | E | Execute Heap_Access,Diana_Tree_Kind 08fd 0f48 | H | Execute_Immediate Equal,0x48 08fe 680d |h | Jump_Zero 0x90c 08ff e7ff | | Load 0x3,-0x1 0900 00eb | | Load_Encached Diana_Cache 0901 18bf | | Execute Package,Field_Execute,Field_Number 0xbf 0902 4976 |Iv | Short_Literal 0x176 0903 00eb | | Load_Encached Diana_Cache 0904 0098 | | Execute Package,Field_Read_Dynamic 0905 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0906 c605 | | Store 0x3,0x5 0907 e605 | | Load 0x3,0x5 0908 8606 | | Call 0x3,0x6 0909 6802 |h | Jump_Zero 0x90c 090a e605 | | Load 0x3,0x5 090b 8608 | | Call 0x3,0x8 090c e7ff | | Load 0x3,-0x1 090d 00eb | | Load_Encached Diana_Cache 090e 188a | | Execute Package,Field_Execute,Field_Number 0x8a 090f 8402 | | Call 0x2,0x2 0910 e7ff | | Load 0x3,-0x1 0911 00eb | | Load_Encached Diana_Cache 0912 188b | | Execute Package,Field_Execute,Field_Number 0x8b 0913 8402 | | Call 0x2,0x2 0914 e7ff | | Load 0x3,-0x1 0915 00eb | | Load_Encached Diana_Cache 0916 188c | | Execute Package,Field_Execute,Field_Number 0x8c 0917 8402 | | Call 0x2,0x2 0918 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0919 0000 0000 | | .BLANK 0000[0x7] 0920 ; -------------------------------------------------------------------------------------- 0920 ; SUBPROGRAM 0920 ; -------------------------------------------------------------------------------------- 0920 0927 | ' | .CONST 0x0927 ; Address of begin 0921 0004 | | .CONST 0x0004 ; Address of exception handler 0922 0003 | | .CONST 0x0003 ; Number of locals 0923 INIT_0920: 0923 029f 0b8b | | Declare_Subprogram INIT_0b88,For_Call 0925 029f 0b9b | | Declare_Subprogram INIT_0b98,For_Call 0927 BODY_0920: 0927 e404 | | Load 0x2,0x4 0928 8602 | | Call 0x3,0x2 0929 6802 |h | Jump_Zero 0x92c 092a 8603 | | Call 0x3,0x3 092b 7806 |x | Jump 0x932 092c e404 | | Load 0x2,0x4 092d e001 | | Load 0x0,0x1 092e 1819 | | Execute Package,Field_Execute,Field_Number 0x19 092f e7ff | | Load 0x3,-0x1 0930 0217 | | Execute Heap_Access,All_Reference 0931 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0932 e21e | | Load 0x1,0x1e 0933 e7ff | | Load 0x3,-0x1 0934 0217 | | Execute Heap_Access,All_Reference 0935 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 0936 e406 | | Load 0x2,0x6 0937 e7ff | | Load 0x3,-0x1 0938 0217 | | Execute Heap_Access,All_Reference 0939 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 093a 4502 |E | Exit_Suprogram New_Top_Offset 0x2 093b 0000 0000 | | .BLANK 0000[0x5] 0940 ; -------------------------------------------------------------------------------------- 0940 ; SUBPROGRAM 0940 ; -------------------------------------------------------------------------------------- 0940 0945 | E | .CONST 0x0945 ; Address of begin 0941 0004 | | .CONST 0x0004 ; Address of exception handler 0942 0002 | | .CONST 0x0002 ; Number of locals 0943 INIT_0940: 0943 e21e | | Load 0x1,0x1e 0944 0007 | | Action Break_Optional 0945 BODY_0940: 0945 e405 | | Load 0x2,0x5 0946 7007 |p | Jump_Nonzero 0x94e 0947 00db | | Load_Top At_Offset_3 0948 e5fe | | Load 0x2,-0x2 0949 0217 | | Execute Heap_Access,All_Reference 094a 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 094b 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 094c 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 094d 4502 |E | Exit_Suprogram New_Top_Offset 0x2 094e e405 | | Load 0x2,0x5 094f 0217 | | Execute Heap_Access,All_Reference 0950 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 0951 0031 | 1 | Store_Top Heap_Access,At_Offset_1 0952 00cf | | Action Mark_Auxiliary 0953 7807 |x | Jump 0x95b 0954 00d9 | | Load_Top At_Offset_1 0955 a405 | | Store_Unchecked 0x2,0x5 0956 00d9 | | Load_Top At_Offset_1 0957 0217 | | Execute Heap_Access,All_Reference 0958 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 0959 0032 | 2 | Store_Top Heap_Access,At_Offset_2 095a 00c9 | | Action Pop_Auxiliary_Loop 095b 00d9 | | Load_Top At_Offset_1 095c 77f7 |w | Jump_Nonzero 0x954 095d 00ce | | Action Pop_Auxiliary 095e 00db | | Load_Top At_Offset_3 095f e21e | | Load 0x1,0x1e 0960 0216 | | Execute Heap_Access,Convert 0961 e405 | | Load 0x2,0x5 0962 0217 | | Execute Heap_Access,All_Reference 0963 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 0964 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0965 0000 0000 | | .XXX[0x3] 0967 0000 | | 0968 ; -------------------------------------------------------------------------------------- 0968 ; SUBPROGRAM 0968 ; -------------------------------------------------------------------------------------- 0968 096b | k | .CONST 0x096b ; Address of begin 0969 0004 | | .CONST 0x0004 ; Address of exception handler 096a 0001 | | .CONST 0x0001 ; Number of locals 096b BODY_0968: 096b INIT_0968: 096b 00cf | | Action Mark_Auxiliary 096c 781c |x | Jump 0x989 096d e405 | | Load 0x2,0x5 096e 0217 | | Execute Heap_Access,All_Reference 096f 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0970 e406 | | Load 0x2,0x6 0971 027f | | Execute Discrete,Equal 0972 6811 |h | Jump_Zero 0x984 0973 e405 | | Load 0x2,0x5 0974 0217 | | Execute Heap_Access,All_Reference 0975 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0976 e404 | | Load 0x2,0x4 0977 e001 | | Load 0x0,0x1 0978 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0979 012f | / | Execute Any,Equal 097a 6809 |h | Jump_Zero 0x984 097b e405 | | Load 0x2,0x5 097c 0217 | | Execute Heap_Access,All_Reference 097d 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 097e 0a01 | | Execute_Immediate Plus,0x1 097f e405 | | Load 0x2,0x5 0980 0217 | | Execute Heap_Access,All_Reference 0981 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 0982 4800 |H | Short_Literal 0x0 0983 00ca | | Action Exit_Nullary_Function 0984 e405 | | Load 0x2,0x5 0985 0217 | | Execute Heap_Access,All_Reference 0986 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 0987 a405 | | Store_Unchecked 0x2,0x5 0988 00c9 | | Action Pop_Auxiliary_Loop 0989 e405 | | Load 0x2,0x5 098a 77e2 |w | Jump_Nonzero 0x96d 098b 00ce | | Action Pop_Auxiliary 098c 4801 |H | Short_Literal 0x1 098d 00ca | | Action Exit_Nullary_Function 098e 0000 0000 | | .XXX[0x2] 0990 ; -------------------------------------------------------------------------------------- 0990 ; SUBPROGRAM 0990 ; -------------------------------------------------------------------------------------- 0990 09b3 | | .CONST 0x09b3 ; Address of begin 0991 0a59 | Y | .CONST 0x0a59 ; Address of exception handler 0992 0008 | | .CONST 0x0008 ; Number of locals 0993 INIT_0990: 0993 e02e | . | Load 0x0,0x2e 0994 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0995 02c7 | | Declare_Variable Any 0996 00d8 | | Load_Top At_Offset_0 0997 1c00 | | Execute_Immediate Run_Utility,0x0 0998 e013 | | Load 0x0,0x13 0999 1b0d | | Execute Package,Field_Read,Field_Number 0xd 099a e029 | ) | Load 0x0,0x29 099b 1b0d | | Execute Package,Field_Read,Field_Number 0xd 099c 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 099d e013 | | Load 0x0,0x13 099e 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 099f 1b0e | | Execute Package,Field_Read,Field_Number 0xe 09a0 02c7 | | Declare_Variable Any 09a1 00d8 | | Load_Top At_Offset_0 09a2 1c00 | | Execute_Immediate Run_Utility,0x0 09a3 e013 | | Load 0x0,0x13 09a4 1b0f | | Execute Package,Field_Read,Field_Number 0xf 09a5 02c7 | | Declare_Variable Any 09a6 00d8 | | Load_Top At_Offset_0 09a7 1c00 | | Execute_Immediate Run_Utility,0x0 09a8 e013 | | Load 0x0,0x13 09a9 1b3d | = | Execute Package,Field_Read,Field_Number 0x3d 09aa 1b0d | | Execute Package,Field_Read,Field_Number 0xd 09ab 02c7 | | Declare_Variable Any 09ac 00d8 | | Load_Top At_Offset_0 09ad 1c00 | | Execute_Immediate Run_Utility,0x0 09ae e013 | | Load 0x0,0x13 09af 1b0f | | Execute Package,Field_Read,Field_Number 0xf 09b0 02c7 | | Declare_Variable Any 09b1 00d8 | | Load_Top At_Offset_0 09b2 1c00 | | Execute_Immediate Run_Utility,0x0 09b3 BODY_0990: 09b3 e013 | | Load 0x0,0x13 09b4 1b0d | | Execute Package,Field_Read,Field_Number 0xd 09b5 e605 | | Load 0x3,0x5 09b6 0120 | | Execute Any,Is_Value 09b7 6804 |h | Jump_Zero 0x9bc 09b8 e013 | | Load 0x0,0x13 09b9 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 09ba 1b0e | | Execute Package,Field_Read,Field_Number 0xe 09bb 7801 |x | Jump 0x9bd 09bc e605 | | Load 0x3,0x5 09bd e7ff | | Load 0x3,-0x1 09be e013 | | Load 0x0,0x13 09bf 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 09c0 181c | | Execute Package,Field_Execute,Field_Number 0x1c 09c1 c605 | | Store 0x3,0x5 09c2 c603 | | Store 0x3,0x3 09c3 e603 | | Load 0x3,0x3 09c4 681e |h | Jump_Zero 0x9e3 09c5 00ec | | Load_Encached Diana_Tree_Cache 09c6 00ec | | Load_Encached Diana_Tree_Cache 09c7 e02a | * | Load 0x0,0x2a 09c8 1811 | | Execute Package,Field_Execute,Field_Number 0x11 09c9 e02b | + | Load 0x0,0x2b 09ca 1811 | | Execute Package,Field_Execute,Field_Number 0x11 09cb 00ec | | Load_Encached Diana_Tree_Cache 09cc 0092 0c41 | A| Action Push_String_Extended,0xc41 ; "Error while obtaining object for " 09ce e7ff | | Load 0x3,-0x1 09cf e013 | | Load 0x0,0x13 09d0 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 09d1 183d | = | Execute Package,Field_Execute,Field_Number 0x3d 09d2 01cc | | Execute Vector,Catenate 09d3 0092 0c42 | B| Action Push_String_Extended,0xc42 ; ": " 09d5 01cc | | Execute Vector,Catenate 09d6 e603 | | Load 0x3,0x3 09d7 e013 | | Load 0x0,0x13 09d8 1b0d | | Execute Package,Field_Read,Field_Number 0xd 09d9 011c | | Execute Any,Convert_Unchecked 09da 1c01 | | Execute_Immediate Run_Utility,0x1 09db 01cc | | Execute Vector,Catenate 09dc 00ec | | Load_Encached Diana_Tree_Cache 09dd 4802 |H | Short_Literal 0x2 09de e602 | | Load 0x3,0x2 09df e02e | . | Load 0x0,0x2e 09e0 1812 | | Execute Package,Field_Execute,Field_Number 0x12 09e1 c602 | | Store 0x3,0x2 09e2 4502 |E | Exit_Suprogram New_Top_Offset 0x2 09e3 00db | | Load_Top At_Offset_3 09e4 e013 | | Load 0x0,0x13 09e5 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 09e6 1812 | | Execute Package,Field_Execute,Field_Number 0x12 09e7 c606 | | Store 0x3,0x6 09e8 e013 | | Load 0x0,0x13 09e9 1b0d | | Execute Package,Field_Read,Field_Number 0xd 09ea 00da | | Load_Top At_Offset_2 09eb 0120 | | Execute Any,Is_Value 09ec 6804 |h | Jump_Zero 0x9f1 09ed e013 | | Load 0x0,0x13 09ee 1b3d | = | Execute Package,Field_Read,Field_Number 0x3d 09ef 1b0d | | Execute Package,Field_Read,Field_Number 0xd 09f0 7801 |x | Jump 0x9f2 09f1 00da | | Load_Top At_Offset_2 09f2 e606 | | Load 0x3,0x6 09f3 e013 | | Load 0x0,0x13 09f4 1b3d | = | Execute Package,Field_Read,Field_Number 0x3d 09f5 181c | | Execute Package,Field_Execute,Field_Number 0x1c 09f6 c607 | | Store 0x3,0x7 09f7 c603 | | Store 0x3,0x3 09f8 e603 | | Load 0x3,0x3 09f9 681d |h | Jump_Zero 0xa17 09fa 00ec | | Load_Encached Diana_Tree_Cache 09fb 00ec | | Load_Encached Diana_Tree_Cache 09fc e02a | * | Load 0x0,0x2a 09fd 1811 | | Execute Package,Field_Execute,Field_Number 0x11 09fe e02b | + | Load 0x0,0x2b 09ff 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0a00 00ec | | Load_Encached Diana_Tree_Cache 0a01 0092 0c43 | C| Action Push_String_Extended,0xc43 ; "Error while obtaining enclosing world for " 0a03 e606 | | Load 0x3,0x6 0a04 e013 | | Load 0x0,0x13 0a05 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0a06 183e | > | Execute Package,Field_Execute,Field_Number 0x3e 0a07 01cc | | Execute Vector,Catenate 0a08 0092 0c42 | B| Action Push_String_Extended,0xc42 ; ": " 0a0a 01cc | | Execute Vector,Catenate 0a0b e603 | | Load 0x3,0x3 0a0c e013 | | Load 0x0,0x13 0a0d 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0a0e 011c | | Execute Any,Convert_Unchecked 0a0f 1c01 | | Execute_Immediate Run_Utility,0x1 0a10 01cc | | Execute Vector,Catenate 0a11 00ec | | Load_Encached Diana_Tree_Cache 0a12 4802 |H | Short_Literal 0x2 0a13 e602 | | Load 0x3,0x2 0a14 e02e | . | Load 0x0,0x2e 0a15 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0a16 c602 | | Store 0x3,0x2 0a17 00d9 | | Load_Top At_Offset_1 0a18 e013 | | Load 0x0,0x13 0a19 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 0a1a 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0a1b c608 | | Store 0x3,0x8 0a1c 00d8 | | Load_Top At_Offset_0 0a1d e013 | | Load 0x0,0x13 0a1e 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 0a1f e02f | / | Load 0x0,0x2f 0a20 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0a21 027e | ~ | Execute Discrete,Not_Equal 0a22 6818 |h | Jump_Zero 0xa3b 0a23 00d8 | | Load_Top At_Offset_0 0a24 e020 | | Load 0x0,0x20 0a25 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0a26 7014 |p | Jump_Nonzero 0xa3b 0a27 00ec | | Load_Encached Diana_Tree_Cache 0a28 00ec | | Load_Encached Diana_Tree_Cache 0a29 e02a | * | Load 0x0,0x2a 0a2a 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0a2b e02b | + | Load 0x0,0x2b 0a2c 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0a2d 00ec | | Load_Encached Diana_Tree_Cache 0a2e e608 | | Load 0x3,0x8 0a2f e013 | | Load 0x0,0x13 0a30 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0a31 183e | > | Execute Package,Field_Execute,Field_Number 0x3e 0a32 0092 0c44 | D| Action Push_String_Extended,0xc44 ; " is not a combined view" 0a34 01cc | | Execute Vector,Catenate 0a35 00ec | | Load_Encached Diana_Tree_Cache 0a36 4802 |H | Short_Literal 0x2 0a37 e602 | | Load 0x3,0x2 0a38 e02e | . | Load 0x0,0x2e 0a39 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0a3a c602 | | Store 0x3,0x2 0a3b 00d8 | | Load_Top At_Offset_0 0a3c e020 | | Load 0x0,0x20 0a3d 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0a3e 700e |p | Jump_Nonzero 0xa4d 0a3f e029 | ) | Load 0x0,0x29 0a40 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0a41 e021 | ! | Load 0x0,0x21 0a42 180e | | Execute Package,Field_Execute,Field_Number 0xe 0a43 e021 | ! | Load 0x0,0x21 0a44 180e | | Execute Package,Field_Execute,Field_Number 0xe 0a45 00db | | Load_Top At_Offset_3 0a46 e020 | | Load 0x0,0x20 0a47 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0a48 00db | | Load_Top At_Offset_3 0a49 e606 | | Load 0x3,0x6 0a4a e030 | 0 | Load 0x0,0x30 0a4b 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 0a4c c604 | | Store 0x3,0x4 0a4d 4800 |H | Short_Literal 0x0 0a4e e604 | | Load 0x3,0x4 0a4f e029 | ) | Load 0x0,0x29 0a50 1847 | G | Execute Package,Field_Execute,Field_Number 0x47 0a51 7006 |p | Jump_Nonzero 0xa58 0a52 e602 | | Load 0x3,0x2 0a53 e604 | | Load 0x3,0x4 0a54 e031 | 1 | Load 0x0,0x31 0a55 180e | | Execute Package,Field_Execute,Field_Number 0xe 0a56 c602 | | Store 0x3,0x2 0a57 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0a58 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0a59 TRAP_0990: 0a59 0007 | | Action Break_Optional 0a5a 00ec | | Load_Encached Diana_Tree_Cache 0a5b 00ec | | Load_Encached Diana_Tree_Cache 0a5c e02a | * | Load 0x0,0x2a 0a5d 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0a5e e02b | + | Load 0x0,0x2b 0a5f 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0a60 00ec | | Load_Encached Diana_Tree_Cache 0a61 0092 0c45 | E| Action Push_String_Extended,0xc45 ; "Unhandled exception: " 0a63 4800 |H | Short_Literal 0x0 0a64 4801 |H | Short_Literal 0x1 0a65 e032 | 2 | Load 0x0,0x32 0a66 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0a67 01cc | | Execute Vector,Catenate 0a68 0092 0c46 | F| Action Push_String_Extended,0xc46 ; " encountered while installing " 0a6a 01cc | | Execute Vector,Catenate 0a6b e7ff | | Load 0x3,-0x1 0a6c e013 | | Load 0x0,0x13 0a6d 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0a6e 183d | = | Execute Package,Field_Execute,Field_Number 0x3d 0a6f 01cc | | Execute Vector,Catenate 0a70 00ec | | Load_Encached Diana_Tree_Cache 0a71 4802 |H | Short_Literal 0x2 0a72 e602 | | Load 0x3,0x2 0a73 e02e | . | Load 0x0,0x2e 0a74 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0a75 c602 | | Store 0x3,0x2 0a76 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0a77 0000 | | .XXX[0x1] 0a78 ; -------------------------------------------------------------------------------------- 0a78 ; SUBPROGRAM 0a78 ; -------------------------------------------------------------------------------------- 0a78 0a97 | | .CONST 0x0a97 ; Address of begin 0a79 0004 | | .CONST 0x0004 ; Address of exception handler 0a7a 0007 | | .CONST 0x0007 ; Number of locals 0a7b INIT_0a78: 0a7b 00db | | Load_Top At_Offset_3 0a7c 0217 | | Execute Heap_Access,All_Reference 0a7d 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0a7e 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0a7f 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0a80 e21e | | Load 0x1,0x1e 0a81 0216 | | Execute Heap_Access,Convert 0a82 00d8 | | Load_Top At_Offset_0 0a83 0007 | | Action Break_Optional 0a84 00d9 | | Load_Top At_Offset_1 0a85 0007 | | Action Break_Optional 0a86 e7ff | | Load 0x3,-0x1 0a87 8265 | e | Call 0x1,0x65 0a88 e23a | : | Load 0x1,0x3a 0a89 03f1 | | Declare_Variable Discrete,With_Value 0a8a 00ec | | Load_Encached Diana_Tree_Cache 0a8b 02c7 | | Declare_Variable Any 0a8c e7ff | | Load 0x3,-0x1 0a8d 4974 |It | Short_Literal 0x174 0a8e 00eb | | Load_Encached Diana_Cache 0a8f 0098 | | Execute Package,Field_Read_Dynamic 0a90 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0a91 a606 | | Store_Unchecked 0x3,0x6 0a92 e001 | | Load 0x0,0x1 0a93 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0a94 02c7 | | Declare_Variable Any 0a95 00d8 | | Load_Top At_Offset_0 0a96 1c00 | | Execute_Immediate Run_Utility,0x0 0a97 BODY_0a78: 0a97 00d9 | | Load_Top At_Offset_1 0a98 e01c | | Load 0x0,0x1c 0a99 180d | | Execute Package,Field_Execute,Field_Number 0xd 0a9a 6801 |h | Jump_Zero 0xa9c 0a9b 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0a9c 00d9 | | Load_Top At_Offset_1 0a9d e7fc | | Load 0x3,-0x4 0a9e e001 | | Load 0x0,0x1 0a9f 1b6a | j | Execute Package,Field_Read,Field_Number 0x6a 0aa0 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0aa1 e001 | | Load 0x0,0x1 0aa2 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0aa3 c607 | | Store 0x3,0x7 0aa4 00cf | | Action Mark_Auxiliary 0aa5 7840 |x@ | Jump 0xae6 0aa6 e602 | | Load 0x3,0x2 0aa7 0217 | | Execute Heap_Access,All_Reference 0aa8 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0aa9 e605 | | Load 0x3,0x5 0aaa 027f | | Execute Discrete,Equal 0aab e602 | | Load 0x3,0x2 0aac 0217 | | Execute Heap_Access,All_Reference 0aad 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0aae 00db | | Load_Top At_Offset_3 0aaf 012f | / | Execute Any,Equal 0ab0 0279 | y | Execute Discrete,And 0ab1 682d |h- | Jump_Zero 0xadf 0ab2 e602 | | Load 0x3,0x2 0ab3 0217 | | Execute Heap_Access,All_Reference 0ab4 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0ab5 0f01 | | Execute_Immediate Equal,0x1 0ab6 6820 |h | Jump_Zero 0xad7 0ab7 e602 | | Load 0x3,0x2 0ab8 e603 | | Load 0x3,0x3 0ab9 021f | | Execute Heap_Access,Equal 0aba 680b |h | Jump_Zero 0xac6 0abb e602 | | Load 0x3,0x2 0abc 0217 | | Execute Heap_Access,All_Reference 0abd 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 0abe e216 | | Load 0x1,0x16 0abf 0216 | | Execute Heap_Access,Convert 0ac0 e7fe | | Load 0x3,-0x2 0ac1 0217 | | Execute Heap_Access,All_Reference 0ac2 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0ac3 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0ac4 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0ac5 7806 |x | Jump 0xacc 0ac6 e602 | | Load 0x3,0x2 0ac7 0217 | | Execute Heap_Access,All_Reference 0ac8 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 0ac9 e604 | | Load 0x3,0x4 0aca 0217 | | Execute Heap_Access,All_Reference 0acb 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 0acc e602 | | Load 0x3,0x2 0acd e215 | | Load 0x1,0x15 0ace 0216 | | Execute Heap_Access,Convert 0acf e215 | | Load 0x1,0x15 0ad0 0216 | | Execute Heap_Access,Convert 0ad1 e7fd | | Load 0x3,-0x3 0ad2 8255 | U | Call 0x1,0x55 0ad3 e21e | | Load 0x1,0x1e 0ad4 0216 | | Execute Heap_Access,Convert 0ad5 c602 | | Store 0x3,0x2 0ad6 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0ad7 e602 | | Load 0x3,0x2 0ad8 0217 | | Execute Heap_Access,All_Reference 0ad9 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0ada 0aff | | Execute_Immediate Plus,-0x1 0adb e602 | | Load 0x3,0x2 0adc 0217 | | Execute Heap_Access,All_Reference 0add 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 0ade 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0adf e602 | | Load 0x3,0x2 0ae0 a604 | | Store_Unchecked 0x3,0x4 0ae1 e602 | | Load 0x3,0x2 0ae2 0217 | | Execute Heap_Access,All_Reference 0ae3 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 0ae4 a602 | | Store_Unchecked 0x3,0x2 0ae5 00c9 | | Action Pop_Auxiliary_Loop 0ae6 e602 | | Load 0x3,0x2 0ae7 77be |w | Jump_Nonzero 0xaa6 0ae8 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0ae9 0000 0000 | | .BLANK 0000[0x7] 0af0 ; -------------------------------------------------------------------------------------- 0af0 ; SUBPROGRAM 0af0 ; -------------------------------------------------------------------------------------- 0af0 0afb | | .CONST 0x0afb ; Address of begin 0af1 0004 | | .CONST 0x0004 ; Address of exception handler 0af2 0003 | | .CONST 0x0003 ; Number of locals 0af3 INIT_0af0: 0af3 00ef | | Load_Encached Diana_Sequence_Cache 0af4 02c7 | | Declare_Variable Any 0af5 00d8 | | Load_Top At_Offset_0 0af6 1c00 | | Execute_Immediate Run_Utility,0x0 0af7 00ec | | Load_Encached Diana_Tree_Cache 0af8 02c7 | | Declare_Variable Any 0af9 00d8 | | Load_Top At_Offset_0 0afa 1c00 | | Execute_Immediate Run_Utility,0x0 0afb BODY_0af0: 0afb e9ff | | Load 0x4,-0x1 0afc e01c | | Load 0x0,0x1c 0afd 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0afe 6821 |h! | Jump_Zero 0xb20 0aff e9ff | | Load 0x4,-0x1 0b00 e01c | | Load 0x0,0x1c 0b01 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0b02 c802 | | Store 0x4,0x2 0b03 00cf | | Action Mark_Auxiliary 0b04 7818 |x | Jump 0xb1d 0b05 00da | | Load_Top At_Offset_2 0b06 00eb | | Load_Encached Diana_Cache 0b07 1865 | e | Execute Package,Field_Execute,Field_Number 0x65 0b08 c803 | | Store 0x4,0x3 0b09 4801 |H | Short_Literal 0x1 0b0a 0092 0c47 | G| Action Push_String_Extended,0xc47 ; "inline" 0b0c 00db | | Load_Top At_Offset_3 0b0d 00eb | | Load_Encached Diana_Cache 0b0e 18cf | | Execute Package,Field_Execute,Field_Number 0xcf 0b0f 00eb | | Load_Encached Diana_Cache 0b10 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 0b11 00eb | | Load_Encached Diana_Cache 0b12 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 0b13 e02d | - | Load 0x0,0x2d 0b14 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0b15 6802 |h | Jump_Zero 0xb18 0b16 4801 |H | Short_Literal 0x1 0b17 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0b18 00da | | Load_Top At_Offset_2 0b19 0217 | | Execute Heap_Access,All_Reference 0b1a 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0b1b c802 | | Store 0x4,0x2 0b1c 00c9 | | Action Pop_Auxiliary_Loop 0b1d 00da | | Load_Top At_Offset_2 0b1e 77e6 |w | Jump_Nonzero 0xb05 0b1f 00ce | | Action Pop_Auxiliary 0b20 4800 |H | Short_Literal 0x0 0b21 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0b22 0000 0000 | | .BLANK 0000[0x6] 0b28 ; -------------------------------------------------------------------------------------- 0b28 ; SUBPROGRAM 0b28 ; -------------------------------------------------------------------------------------- 0b28 0b2b | + | .CONST 0x0b2b ; Address of begin 0b29 0004 | | .CONST 0x0004 ; Address of exception handler 0b2a 0001 | | .CONST 0x0001 ; Number of locals 0b2b BODY_0b28: 0b2b INIT_0b28: 0b2b 00da | | Load_Top At_Offset_2 0b2c 4974 |It | Short_Literal 0x174 0b2d 00eb | | Load_Encached Diana_Cache 0b2e 0098 | | Execute Package,Field_Read_Dynamic 0b2f 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0b30 e5fc | | Load 0x2,-0x4 0b31 012f | / | Execute Any,Equal 0b32 0f00 | | Execute_Immediate Equal,0x0 0b33 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0b34 0000 0000 | | .BLANK 0000[0x4] 0b38 ; -------------------------------------------------------------------------------------- 0b38 ; SUBPROGRAM 0b38 ; -------------------------------------------------------------------------------------- 0b38 0b41 | A | .CONST 0x0b41 ; Address of begin 0b39 0004 | | .CONST 0x0004 ; Address of exception handler 0b3a 0004 | | .CONST 0x0004 ; Number of locals 0b3b INIT_0b38: 0b3b e212 | | Load 0x1,0x12 0b3c 0007 | | Action Break_Optional 0b3d 029f 0bbb | | Declare_Subprogram INIT_0bb8,For_Call 0b3f 029f 0bcb | | Declare_Subprogram INIT_0bc8,For_Call 0b41 BODY_0b38: 0b41 e212 | | Load 0x1,0x12 0b42 e5f9 | | Load 0x2,-0x7 0b43 8256 | V | Call 0x1,0x56 0b44 0033 | 3 | Store_Top Heap_Access,At_Offset_3 0b45 00da | | Load_Top At_Offset_2 0b46 8803 | | Call 0x4,0x3 0b47 00da | | Load_Top At_Offset_2 0b48 8804 | | Call 0x4,0x4 0b49 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0b4a 0000 0000 | | .BLANK 0000[0x6] 0b50 ; -------------------------------------------------------------------------------------- 0b50 ; SUBPROGRAM 0b50 ; -------------------------------------------------------------------------------------- 0b50 0b61 | a | .CONST 0x0b61 ; Address of begin 0b51 0004 | | .CONST 0x0004 ; Address of exception handler 0b52 0004 | | .CONST 0x0004 ; Number of locals 0b53 INIT_0b50: 0b53 00ef | | Load_Encached Diana_Sequence_Cache 0b54 02c7 | | Declare_Variable Any 0b55 00db | | Load_Top At_Offset_3 0b56 00eb | | Load_Encached Diana_Cache 0b57 18ed | | Execute Package,Field_Execute,Field_Number 0xed 0b58 a802 | | Store_Unchecked 0x4,0x2 0b59 00ec | | Load_Encached Diana_Tree_Cache 0b5a 02c7 | | Declare_Variable Any 0b5b 00d8 | | Load_Top At_Offset_0 0b5c 1c00 | | Execute_Immediate Run_Utility,0x0 0b5d 00ec | | Load_Encached Diana_Tree_Cache 0b5e 02c7 | | Declare_Variable Any 0b5f 00d8 | | Load_Top At_Offset_0 0b60 1c00 | | Execute_Immediate Run_Utility,0x0 0b61 BODY_0b50: 0b61 00cf | | Action Mark_Auxiliary 0b62 7820 |x | Jump 0xb83 0b63 00db | | Load_Top At_Offset_3 0b64 00eb | | Load_Encached Diana_Cache 0b65 1865 | e | Execute Package,Field_Execute,Field_Number 0x65 0b66 c803 | | Store 0x4,0x3 0b67 00da | | Load_Top At_Offset_2 0b68 0145 | E | Execute Heap_Access,Diana_Tree_Kind 0b69 0f10 | | Execute_Immediate Equal,0x10 0b6a 6813 |h | Jump_Zero 0xb7e 0b6b 00da | | Load_Top At_Offset_2 0b6c 00eb | | Load_Encached Diana_Cache 0b6d 18d4 | | Execute Package,Field_Execute,Field_Number 0xd4 0b6e 4976 |Iv | Short_Literal 0x176 0b6f 00eb | | Load_Encached Diana_Cache 0b70 0098 | | Execute Package,Field_Read_Dynamic 0b71 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0b72 c804 | | Store 0x4,0x4 0b73 00d9 | | Load_Top At_Offset_1 0b74 8607 | | Call 0x3,0x7 0b75 6808 |h | Jump_Zero 0xb7e 0b76 00d9 | | Load_Top At_Offset_1 0b77 8606 | | Call 0x3,0x6 0b78 6805 |h | Jump_Zero 0xb7e 0b79 e5fa | | Load 0x2,-0x6 0b7a e5f9 | | Load 0x2,-0x7 0b7b e5fb | | Load 0x2,-0x5 0b7c e804 | | Load 0x4,0x4 0b7d 85fe | | Call 0x2,-0x2 0b7e 00db | | Load_Top At_Offset_3 0b7f 0217 | | Execute Heap_Access,All_Reference 0b80 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0b81 c802 | | Store 0x4,0x2 0b82 00c9 | | Action Pop_Auxiliary_Loop 0b83 00db | | Load_Top At_Offset_3 0b84 77de |w | Jump_Nonzero 0xb63 0b85 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0b86 0000 0000 | | .XXX[0x2] 0b88 ; -------------------------------------------------------------------------------------- 0b88 ; SUBPROGRAM 0b88 ; -------------------------------------------------------------------------------------- 0b88 0b8b | | .CONST 0x0b8b ; Address of begin 0b89 0004 | | .CONST 0x0004 ; Address of exception handler 0b8a 0001 | | .CONST 0x0001 ; Number of locals 0b8b BODY_0b88: 0b8b INIT_0b88: 0b8b 00da | | Load_Top At_Offset_2 0b8c e001 | | Load 0x0,0x1 0b8d 1b6c | l | Execute Package,Field_Read,Field_Number 0x6c 0b8e 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0b8f e5fd | | Load 0x2,-0x3 0b90 012e | . | Execute Any,Not_Equal 0b91 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0b92 0000 0000 | | .BLANK 0000[0x6] 0b98 ; -------------------------------------------------------------------------------------- 0b98 ; SUBPROGRAM 0b98 ; -------------------------------------------------------------------------------------- 0b98 0ba0 | | .CONST 0x0ba0 ; Address of begin 0b99 0004 | | .CONST 0x0004 ; Address of exception handler 0b9a 0002 | | .CONST 0x0002 ; Number of locals 0b9b INIT_0b98: 0b9b e001 | | Load 0x0,0x1 0b9c 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0b9d 02c7 | | Declare_Variable Any 0b9e 00d8 | | Load_Top At_Offset_0 0b9f 1c00 | | Execute_Immediate Run_Utility,0x0 0ba0 BODY_0b98: 0ba0 00d8 | | Load_Top At_Offset_0 0ba1 0120 | | Execute Any,Is_Value 0ba2 6803 |h | Jump_Zero 0xba6 0ba3 e001 | | Load 0x0,0x1 0ba4 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0ba5 7801 |x | Jump 0xba7 0ba6 00d8 | | Load_Top At_Offset_0 0ba7 4801 |H | Short_Literal 0x1 0ba8 e404 | | Load 0x2,0x4 0ba9 e5fd | | Load 0x2,-0x3 0baa e5fc | | Load 0x2,-0x4 0bab e001 | | Load 0x0,0x1 0bac 1b6a | j | Execute Package,Field_Read,Field_Number 0x6a 0bad 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0bae c802 | | Store 0x4,0x2 0baf 00d8 | | Load_Top At_Offset_0 0bb0 e001 | | Load 0x0,0x1 0bb1 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0bb2 e7ff | | Load 0x3,-0x1 0bb3 0217 | | Execute Heap_Access,All_Reference 0bb4 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0bb5 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0bb6 0000 0000 | | .XXX[0x2] 0bb8 ; -------------------------------------------------------------------------------------- 0bb8 ; SUBPROGRAM 0bb8 ; -------------------------------------------------------------------------------------- 0bb8 0bbb | | .CONST 0x0bbb ; Address of begin 0bb9 0004 | | .CONST 0x0004 ; Address of exception handler 0bba 0001 | | .CONST 0x0001 ; Number of locals 0bbb BODY_0bb8: 0bbb INIT_0bb8: 0bbb e21c | | Load 0x1,0x1c 0bbc 00db | | Load_Top At_Offset_3 0bbd 0217 | | Execute Heap_Access,All_Reference 0bbe 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0bbf e9ff | | Load 0x4,-0x1 0bc0 8265 | e | Call 0x1,0x65 0bc1 00db | | Load_Top At_Offset_3 0bc2 0217 | | Execute Heap_Access,All_Reference 0bc3 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0bc4 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0bc5 0000 0000 | | .XXX[0x3] 0bc7 0000 | | 0bc8 ; -------------------------------------------------------------------------------------- 0bc8 ; SUBPROGRAM 0bc8 ; -------------------------------------------------------------------------------------- 0bc8 0bd4 | | .CONST 0x0bd4 ; Address of begin 0bc9 0004 | | .CONST 0x0004 ; Address of exception handler 0bca 0003 | | .CONST 0x0003 ; Number of locals 0bcb INIT_0bc8: 0bcb e5fb | | Load 0x2,-0x5 0bcc 0217 | | Execute Heap_Access,All_Reference 0bcd 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0bce 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0bcf 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0bd0 e21c | | Load 0x1,0x1c 0bd1 0216 | | Execute Heap_Access,Convert 0bd2 e21c | | Load 0x1,0x1c 0bd3 0007 | | Action Break_Optional 0bd4 BODY_0bc8: 0bd4 00d9 | | Load_Top At_Offset_1 0bd5 7007 |p | Jump_Nonzero 0xbdd 0bd6 ebff | | Load 0x5,-0x1 0bd7 e5fb | | Load 0x2,-0x5 0bd8 0217 | | Execute Heap_Access,All_Reference 0bd9 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0bda 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0bdb 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0bdc 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0bdd 00d9 | | Load_Top At_Offset_1 0bde 0217 | | Execute Heap_Access,All_Reference 0bdf 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0be0 0031 | 1 | Store_Top Heap_Access,At_Offset_1 0be1 00cf | | Action Mark_Auxiliary 0be2 7807 |x | Jump 0xbea 0be3 00d9 | | Load_Top At_Offset_1 0be4 0033 | 3 | Store_Top Heap_Access,At_Offset_3 0be5 00d9 | | Load_Top At_Offset_1 0be6 0217 | | Execute Heap_Access,All_Reference 0be7 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0be8 0032 | 2 | Store_Top Heap_Access,At_Offset_2 0be9 00c9 | | Action Pop_Auxiliary_Loop 0bea 00d9 | | Load_Top At_Offset_1 0beb 77f7 |w | Jump_Nonzero 0xbe3 0bec 00ce | | Action Pop_Auxiliary 0bed ebff | | Load 0x5,-0x1 0bee e21c | | Load 0x1,0x1c 0bef 0216 | | Execute Heap_Access,Convert 0bf0 00da | | Load_Top At_Offset_2 0bf1 0217 | | Execute Heap_Access,All_Reference 0bf2 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0bf3 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0bf4 0000 0000 | | .BLANK 0000[0x4] 0bf8 ; -------------------------------------------------------------------------------------- 0bf8 ; SUBPROGRAM 0bf8 ; -------------------------------------------------------------------------------------- 0bf8 0bfb | | .CONST 0x0bfb ; Address of begin 0bf9 0004 | | .CONST 0x0004 ; Address of exception handler 0bfa 0001 | | .CONST 0x0001 ; Number of locals 0bfb BODY_0bf8: 0bfb INIT_0bf8: 0bfb 4608 |F | Jump_Case 0x9 0bfc 7808 |x | Jump 0xc05 ; case 0x0 0bfd 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 0bfe 781b |x | Jump 0xc1a ; case 0x2 0bff 781a |x | Jump 0xc1a ; case 0x3 0c00 7819 |x | Jump 0xc1a ; case 0x4 0c01 7818 |x | Jump 0xc1a ; case 0x5 0c02 7817 |x | Jump 0xc1a ; case 0x6 0c03 7816 |x | Jump 0xc1a ; case 0x7 0c04 7815 |x | Jump 0xc1a ; case 0x8 0c05 00da | | Load_Top At_Offset_2 0c06 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0c07 0125 | % | Execute Any,Set_Constraint 0c08 00da | | Load_Top At_Offset_2 0c09 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0c0a 1c00 | | Execute_Immediate Run_Utility,0x0 0c0b 00da | | Load_Top At_Offset_2 0c0c 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 0c0d 0125 | % | Execute Any,Set_Constraint 0c0e 00ec | | Load_Encached Diana_Tree_Cache 0c0f 00db | | Load_Top At_Offset_3 0c10 00d9 | | Load_Top At_Offset_1 0c11 00d9 | | Load_Top At_Offset_1 0c12 3001 |0 | Execute Record,Field_Type,Field_Number 0x1 0c13 0119 | | Execute Any,Check_In_Formal_Type 0c14 00d1 | | Pop_Control Pop_Count_1 0c15 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0c16 4800 |H | Short_Literal 0x0 0c17 00db | | Load_Top At_Offset_3 0c18 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 0c19 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0c1a 0869 | i | Execute_Immediate Raise,0x69 0c1b 0000 0000 | | .BLANK 0000[0x5] 0c20 ; -------------------------------------------------------------------------------------- 0c20 ; SUBPROGRAM 0c20 ; -------------------------------------------------------------------------------------- 0c20 0c23 | # | .CONST 0x0c23 ; Address of begin 0c21 0004 | | .CONST 0x0004 ; Address of exception handler 0c22 0001 | | .CONST 0x0001 ; Number of locals 0c23 BODY_0c20: 0c23 INIT_0c20: 0c23 4608 |F | Jump_Case 0x9 0c24 7808 |x | Jump 0xc2d ; case 0x0 0c25 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 0c26 780d |x | Jump 0xc34 ; case 0x2 0c27 780c |x | Jump 0xc34 ; case 0x3 0c28 780b |x | Jump 0xc34 ; case 0x4 0c29 780a |x | Jump 0xc34 ; case 0x5 0c2a 7809 |x | Jump 0xc34 ; case 0x6 0c2b 7808 |x | Jump 0xc34 ; case 0x7 0c2c 7807 |x | Jump 0xc34 ; case 0x8 0c2d 00da | | Load_Top At_Offset_2 0c2e 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0c2f 0125 | % | Execute Any,Set_Constraint 0c30 00da | | Load_Top At_Offset_2 0c31 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0c32 1c00 | | Execute_Immediate Run_Utility,0x0 0c33 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0c34 0869 | i | Execute_Immediate Raise,0x69 0c35 ; -------------------------------------------------------------------------------------- 0c35 ; STRING TABLE 0c35 ; -------------------------------------------------------------------------------------- 0c35 0028 | ( | .STRTAB 0x0028->0x0c49 ; "UNIT_INSTALL" 0c36 0032 | 2 | .STRTAB 0x0032->0x0c4f ; "ITEM_INSTALL" 0c37 003c | < | .STRTAB 0x003c->0x0c55 ; "target-dependent unit" 0c38 004f | O | .STRTAB 0x004f->0x0c5f ; "call" 0c39 0051 | Q | .STRTAB 0x0051->0x0c61 ; "defn" 0c3a 0053 | S | .STRTAB 0x0053->0x0c63 ; "Null target-dependent header" 0c3b 006d | m | .STRTAB 0x006d->0x0c71 ; "Item on target-dependent unit free list has a non-null list of calls" 0c3c 00b0 | | .STRTAB 0x00b0->0x0c94 ; "Item on target-dependent unit free list has a non-null list of defns" 0c3d 00f2 | | .STRTAB 0x00f2->0x0cb6 ; "A calls node on the free list has a non-null link" 0c3e 0121 | ! | .STRTAB 0x0121->0x0cce ; "A defns node on the free list has a non-null link" 0c3f 0150 | P | .STRTAB 0x0150->0x0ce7 ; "INLINE" 0c40 0154 | T | .STRTAB 0x0154->0x0cea ; "Incremental insertion and removal of pragma Inline with RCI is disallowed" 0c41 019b | | .STRTAB 0x019b->0x0d0e ; "Error while obtaining object for " 0c42 01ba | | .STRTAB 0x01ba->0x0d1f ; ": " 0c43 01ba | | .STRTAB 0x01ba->0x0d20 ; "Error while obtaining enclosing world for " 0c44 01e2 | | .STRTAB 0x01e2->0x0d35 ; " is not a combined view" 0c45 01f7 | | .STRTAB 0x01f7->0x0d40 ; "Unhandled exception: " 0c46 020a | | .STRTAB 0x020a->0x0d4b ; " encountered while installing " 0c47 0226 | & | .STRTAB 0x0226->0x0d5a ; "inline" 0c48 022a | * | .STREND 0x022a->0x0d5d 0c49 554e 4954 |UNIT| .STRTAB_STRINGS 0d5d 0000 0000 | | .XXX[0x3] 0d5f 0000 | | 0d60 ; -------------------------------------------------------------------------------------- 0d60 ; Debug Table 0d60 ; -------------------------------------------------------------------------------------- 0d60 0004 000d | | .DEBUG4 0x0004,0x000d,0xae3b,0x0000,0x0001,0x0000 0d66 0000 0000 | | .BLANK 0000[0x9a]