|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 9216 (0x2400) Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_0440fe
└─⟦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 1188 | | .CONST 0x1188 ; 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 800b | | .CONST 0x800b ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 016b | k | .CONST 0x016b ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0052 | R | .CONST 0x0052 ; Number of locals 000b INIT_0008: 000b 0007 | | Action Break_Optional 000c 00e3 | | Load_Encached Natural_Cache 000d 0129 | ) | Execute Any,Make_Visible 000e 029a 017b | {| Declare_Subprogram INIT_0178,For_Outer_Call,Visible,Unelaborated 0010 029a 0183 | | Declare_Subprogram INIT_0180,For_Outer_Call,Visible,Unelaborated 0012 4800 |H | Short_Literal 0x0 0013 4802 |H | Short_Literal 0x2 0014 029f 018b | | Declare_Subprogram INIT_0188,For_Call 0016 03fe | | Declare_Type Discrete,Defined,Visible 0017 4800 |H | Short_Literal 0x0 0018 4806 |H | Short_Literal 0x6 0019 029f 01a3 | | Declare_Subprogram INIT_01a0,For_Call 001b 03fe | | Declare_Type Discrete,Defined,Visible 001c 4802 |H | Short_Literal 0x2 001d 032b | + | Declare_Type Record,Incomplete,Visible 001e 029a 01bb | | Declare_Subprogram INIT_01b8,For_Outer_Call,Visible,Unelaborated 0020 029a 01cb | | Declare_Subprogram INIT_01c8,For_Outer_Call,Visible,Unelaborated 0022 4800 |H | Short_Literal 0x0 0023 481a |H | Short_Literal 0x1a 0024 029f 01db | | Declare_Subprogram INIT_01d8,For_Call 0026 03fe | | Declare_Type Discrete,Defined,Visible 0027 4800 |H | Short_Literal 0x0 0028 480f |H | Short_Literal 0xf 0029 029f 01f3 | | Declare_Subprogram INIT_01f0,For_Call 002b 03fe | | Declare_Type Discrete,Defined,Visible 002c 4800 |H | Short_Literal 0x0 002d 4806 |H | Short_Literal 0x6 002e 029f 020b | | Declare_Subprogram INIT_0208,For_Call 0030 03fe | | Declare_Type Discrete,Defined,Visible 0031 029a 0223 | #| Declare_Subprogram INIT_0220,For_Outer_Call,Visible,Unelaborated 0033 029a 0263 | c| Declare_Subprogram INIT_0260,For_Outer_Call,Visible,Unelaborated 0035 029a 039b | | Declare_Subprogram INIT_0398,For_Outer_Call,Visible,Unelaborated 0037 029a 03fb | | Declare_Subprogram INIT_03f8,For_Outer_Call,Visible,Unelaborated 0039 4800 |H | Short_Literal 0x0 003a 4804 |H | Short_Literal 0x4 003b 029f 041b | | Declare_Subprogram INIT_0418,For_Call 003d 03fe | | Declare_Type Discrete,Defined,Visible 003e 029a 0433 | 3| Declare_Subprogram INIT_0430,For_Outer_Call,Visible,Unelaborated 0040 029a 0463 | c| Declare_Subprogram INIT_0460,For_Outer_Call,Visible,Unelaborated 0042 029a 0483 | | Declare_Subprogram INIT_0480,For_Outer_Call,Visible,Unelaborated 0044 029a 04bb | | Declare_Subprogram INIT_04b8,For_Outer_Call,Visible,Unelaborated 0046 029a 04f3 | | Declare_Subprogram INIT_04f0,For_Outer_Call,Visible,Unelaborated 0048 029a 04fb | | Declare_Subprogram INIT_04f8,For_Outer_Call,Visible,Unelaborated 004a 029a 050b | | Declare_Subprogram INIT_0508,For_Outer_Call,Visible,Unelaborated 004c 029a 052b | +| Declare_Subprogram INIT_0528,For_Outer_Call,Visible,Unelaborated 004e 029a 053b | ;| Declare_Subprogram INIT_0538,For_Outer_Call,Visible,Unelaborated 0050 029a 054b | K| Declare_Subprogram INIT_0548,For_Outer_Call,Visible,Unelaborated 0052 029a 0573 | s| Declare_Subprogram INIT_0570,For_Outer_Call,Visible,Unelaborated 0054 029a 0583 | | Declare_Subprogram INIT_0580,For_Outer_Call,Visible,Unelaborated 0056 029a 05a3 | | Declare_Subprogram INIT_05a0,For_Outer_Call,Visible,Unelaborated 0058 029a 05b3 | | Declare_Subprogram INIT_05b0,For_Outer_Call,Visible,Unelaborated 005a 029a 05cb | | Declare_Subprogram INIT_05c8,For_Outer_Call,Visible,Unelaborated 005c 029a 05e3 | | Declare_Subprogram INIT_05e0,For_Outer_Call,Visible,Unelaborated 005e 029a 05f3 | | Declare_Subprogram INIT_05f0,For_Outer_Call,Visible,Unelaborated 0060 029a 0603 | | Declare_Subprogram INIT_0600,For_Outer_Call,Visible,Unelaborated 0062 029a 0613 | | Declare_Subprogram INIT_0610,For_Outer_Call,Visible,Unelaborated 0064 029a 064b | K| Declare_Subprogram INIT_0648,For_Outer_Call,Visible,Unelaborated 0066 029a 065b | [| Declare_Subprogram INIT_0658,For_Outer_Call,Visible,Unelaborated 0068 029a 066b | k| Declare_Subprogram INIT_0668,For_Outer_Call,Visible,Unelaborated 006a 029a 067b | {| Declare_Subprogram INIT_0678,For_Outer_Call,Visible,Unelaborated 006c 480c |H | Short_Literal 0xc 006d 0093 0ce3 | | push_full_address INIT_0ce0 006f 02a0 | | Declare_Subprogram Null_Subprogram 0070 038d | | Declare_Type Package,Defined,Visible,Not_Elaborated 0071 4800 |H | Short_Literal 0x0 0072 4801 |H | Short_Literal 0x1 0073 029f 068b | | Declare_Subprogram INIT_0688,For_Call 0075 03fe | | Declare_Type Discrete,Defined,Visible 0076 029a 06a3 | | Declare_Subprogram INIT_06a0,For_Outer_Call,Visible,Unelaborated 0078 029a 06cb | | Declare_Subprogram INIT_06c8,For_Outer_Call,Visible,Unelaborated 007a 00e3 | | Load_Encached Natural_Cache 007b 0129 | ) | Execute Any,Make_Visible 007c 029a 072b | +| Declare_Subprogram INIT_0728,For_Outer_Call,Visible,Unelaborated 007e 029a 0733 | 3| Declare_Subprogram INIT_0730,For_Outer_Call,Visible,Unelaborated 0080 029a 073b | ;| Declare_Subprogram INIT_0738,For_Outer_Call,Visible,Unelaborated 0082 029a 0743 | C| Declare_Subprogram INIT_0740,For_Outer_Call,Visible,Unelaborated 0084 0007 | | Action Break_Optional 0085 4806 |H | Short_Literal 0x6 0086 032a | * | Declare_Type Record,Incomplete 0087 00d8 | | Load_Top At_Offset_0 0088 02a0 | | Declare_Subprogram Null_Subprogram 0089 03ad | | Declare_Type Heap_Access,Defined 008a 0007 | | Action Break_Optional 008b 00d8 | | Load_Top At_Offset_0 008c 00e3 | | Load_Encached Natural_Cache 008d 02a0 | | Declare_Subprogram Null_Subprogram 008e e215 | | Load 0x1,0x15 008f 0326 | & | Complete_Type Record,By_Defining 0090 00bf | | Action Accept_Activation 0091 0007 | | Action Break_Optional 0092 0007 | | Action Break_Optional 0093 0007 | | Action Break_Optional 0094 0007 | | Action Break_Optional 0095 0007 | | Action Break_Optional 0096 0007 | | Action Break_Optional 0097 0007 | | Action Break_Optional 0098 0007 | | Action Break_Optional 0099 0007 | | Action Break_Optional 009a 00e3 | | Load_Encached Natural_Cache 009b 00e3 | | Load_Encached Natural_Cache 009c 00ec | | Load_Encached Diana_Tree_Cache 009d e214 | | Load 0x1,0x14 009e 02a0 | | Declare_Subprogram Null_Subprogram 009f 4804 |H | Short_Literal 0x4 00a0 032d | - | Declare_Type Record,Defined 00a1 00d8 | | Load_Top At_Offset_0 00a2 02a0 | | Declare_Subprogram Null_Subprogram 00a3 03ad | | Declare_Type Heap_Access,Defined 00a4 0007 | | Action Break_Optional 00a5 e210 | | Load 0x1,0x10 00a6 00e2 | | Load_Encached Integer_Cache 00a7 00e2 | | Load_Encached Integer_Cache 00a8 02a0 | | Declare_Subprogram Null_Subprogram 00a9 4803 |H | Short_Literal 0x3 00aa 032d | - | Declare_Type Record,Defined 00ab 4800 |H | Short_Literal 0x0 00ac 49ff |I | Short_Literal 0x1ff 00ad 00e3 | | Load_Encached Natural_Cache 00ae 03f8 | | Declare_Type Discrete,Constrained 00af e001 | | Load 0x0,0x1 00b0 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00b1 e245 | E | Load 0x1,0x45 00b2 e218 | | Load 0x1,0x18 00b3 00ec | | Load_Encached Diana_Tree_Cache 00b4 00e1 | | Load_Encached Boolean_Cache 00b5 e21a | | Load 0x1,0x1a 00b6 029f 074b | K| Declare_Subprogram INIT_0748,For_Call 00b8 e240 | @ | Load 0x1,0x40 00b9 0326 | & | Complete_Type Record,By_Defining 00ba 00e4 | | Load_Encached Positive_Cache 00bb 0266 | f | Execute Discrete,Bounds 00bc e002 | | Load 0x0,0x2 00bd 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 00be 02a0 | | Declare_Subprogram Null_Subprogram 00bf 4801 |H | Short_Literal 0x1 00c0 0350 | P | Declare_Type Array,Defined,Bounds_With_Object 00c1 00d8 | | Load_Top At_Offset_0 00c2 02a0 | | Declare_Subprogram Null_Subprogram 00c3 4818 |H | Short_Literal 0x18 00c4 03d3 | | Declare_Type Access,Defined,Accesses_Protected 00c5 0007 | | Action Break_Optional 00c6 0007 | | Action Break_Optional 00c7 e003 | | Load 0x0,0x3 00c8 e004 | | Load 0x0,0x4 00c9 e240 | @ | Load 0x1,0x40 00ca e241 | A | Load 0x1,0x41 00cb 00e3 | | Load_Encached Natural_Cache 00cc e005 | | Load 0x0,0x5 00cd 1811 | | Execute Package,Field_Execute,Field_Number 0x11 00ce e006 | | Load 0x0,0x6 00cf 1811 | | Execute Package,Field_Execute,Field_Number 0x11 00d0 e007 | | Load 0x0,0x7 00d1 0387 | | Declare_Variable Package 00d2 00d8 | | Load_Top At_Offset_0 00d3 020f | | Execute Module,Activate 00d4 e008 | | Load 0x0,0x8 00d5 e009 | | Load 0x0,0x9 00d6 e240 | @ | Load 0x1,0x40 00d7 e241 | A | Load 0x1,0x41 00d8 00e3 | | Load_Encached Natural_Cache 00d9 e005 | | Load 0x0,0x5 00da 1811 | | Execute Package,Field_Execute,Field_Number 0x11 00db e006 | | Load 0x0,0x6 00dc 1811 | | Execute Package,Field_Execute,Field_Number 0x11 00dd e007 | | Load 0x0,0x7 00de 0387 | | Declare_Variable Package 00df 00d8 | | Load_Top At_Offset_0 00e0 020f | | Execute Module,Activate 00e1 e00a | | Load 0x0,0xa 00e2 e00b | | Load 0x0,0xb 00e3 e242 | B | Load 0x1,0x42 00e4 e243 | C | Load 0x1,0x43 00e5 e210 | | Load 0x1,0x10 00e6 e005 | | Load 0x0,0x5 00e7 1811 | | Execute Package,Field_Execute,Field_Number 0x11 00e8 e006 | | Load 0x0,0x6 00e9 1811 | | Execute Package,Field_Execute,Field_Number 0x11 00ea e007 | | Load 0x0,0x7 00eb 0387 | | Declare_Variable Package 00ec 00d8 | | Load_Top At_Offset_0 00ed 020f | | Execute Module,Activate 00ee e00c | | Load 0x0,0xc 00ef e00d | | Load 0x0,0xd 00f0 e002 | | Load 0x0,0x2 00f1 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 00f2 e00e | | Load 0x0,0xe 00f3 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00f4 00e5 | | Load_Encached Long_Integer_Cache 00f5 e00f | | Load 0x0,0xf 00f6 1910 | | Execute Package,Field_Reference,Field_Number 0x10 00f7 e010 | | Load 0x0,0x10 00f8 0387 | | Declare_Variable Package 00f9 00d8 | | Load_Top At_Offset_0 00fa 020f | | Execute Module,Activate 00fb e001 | | Load 0x0,0x1 00fc 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00fd 6292 |b | Indirect_Literal Discrete,0x390,{0x00000000, 0x00000ffd} 00fe e001 | | Load 0x0,0x1 00ff 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0100 c24c | L | Store 0x1,0x4c 0101 e24b | K | Load 0x1,0x4b 0102 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0103 e248 | H | Load 0x1,0x48 0104 1913 | | Execute Package,Field_Reference,Field_Number 0x13 0105 0007 | | Action Break_Optional 0106 e249 | I | Load 0x1,0x49 0107 1913 | | Execute Package,Field_Reference,Field_Number 0x13 0108 0007 | | Action Break_Optional 0109 e24a | J | Load 0x1,0x4a 010a 1913 | | Execute Package,Field_Reference,Field_Number 0x13 010b 0007 | | Action Break_Optional 010c e244 | D | Load 0x1,0x44 010d 0322 | " | Declare_Variable Record 010e 4800 |H | Short_Literal 0x0 010f e251 | Q | Load 0x1,0x51 0110 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0111 4800 |H | Short_Literal 0x0 0112 e251 | Q | Load 0x1,0x51 0113 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0114 4800 |H | Short_Literal 0x0 0115 e251 | Q | Load 0x1,0x51 0116 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0117 1d2e | . | Execute_Immediate Reference_Lex_1,0x2e 0118 00c7 | | Action Elaborate_Subprogram 0119 1d2d | - | Execute_Immediate Reference_Lex_1,0x2d 011a 00c7 | | Action Elaborate_Subprogram 011b 1d11 | | Execute_Immediate Reference_Lex_1,0x11 011c 00c7 | | Action Elaborate_Subprogram 011d 1d12 | | Execute_Immediate Reference_Lex_1,0x12 011e 00c7 | | Action Elaborate_Subprogram 011f 1d16 | | Execute_Immediate Reference_Lex_1,0x16 0120 00c7 | | Action Elaborate_Subprogram 0121 1d17 | | Execute_Immediate Reference_Lex_1,0x17 0122 00c7 | | Action Elaborate_Subprogram 0123 1d1b | | Execute_Immediate Reference_Lex_1,0x1b 0124 00c7 | | Action Elaborate_Subprogram 0125 1d1d | | Execute_Immediate Reference_Lex_1,0x1d 0126 00c7 | | Action Elaborate_Subprogram 0127 1d1c | | Execute_Immediate Reference_Lex_1,0x1c 0128 00c7 | | Action Elaborate_Subprogram 0129 1d1e | | Execute_Immediate Reference_Lex_1,0x1e 012a 00c7 | | Action Elaborate_Subprogram 012b 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24 012c 00c7 | | Action Elaborate_Subprogram 012d 1d20 | | Execute_Immediate Reference_Lex_1,0x20 012e 00c7 | | Action Elaborate_Subprogram 012f 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21 0130 00c7 | | Action Elaborate_Subprogram 0131 1d22 | " | Execute_Immediate Reference_Lex_1,0x22 0132 00c7 | | Action Elaborate_Subprogram 0133 1d23 | # | Execute_Immediate Reference_Lex_1,0x23 0134 00c7 | | Action Elaborate_Subprogram 0135 1d25 | % | Execute_Immediate Reference_Lex_1,0x25 0136 00c7 | | Action Elaborate_Subprogram 0137 1d26 | & | Execute_Immediate Reference_Lex_1,0x26 0138 00c7 | | Action Elaborate_Subprogram 0139 1d27 | ' | Execute_Immediate Reference_Lex_1,0x27 013a 00c7 | | Action Elaborate_Subprogram 013b 1d28 | ( | Execute_Immediate Reference_Lex_1,0x28 013c 00c7 | | Action Elaborate_Subprogram 013d 1d29 | ) | Execute_Immediate Reference_Lex_1,0x29 013e 00c7 | | Action Elaborate_Subprogram 013f 1d2a | * | Execute_Immediate Reference_Lex_1,0x2a 0140 00c7 | | Action Elaborate_Subprogram 0141 1d2b | + | Execute_Immediate Reference_Lex_1,0x2b 0142 00c7 | | Action Elaborate_Subprogram 0143 1d2c | , | Execute_Immediate Reference_Lex_1,0x2c 0144 00c7 | | Action Elaborate_Subprogram 0145 1d30 | 0 | Execute_Immediate Reference_Lex_1,0x30 0146 00c7 | | Action Elaborate_Subprogram 0147 1d2f | / | Execute_Immediate Reference_Lex_1,0x2f 0148 00c7 | | Action Elaborate_Subprogram 0149 1d31 | 1 | Execute_Immediate Reference_Lex_1,0x31 014a 00c7 | | Action Elaborate_Subprogram 014b 1d32 | 2 | Execute_Immediate Reference_Lex_1,0x32 014c 00c7 | | Action Elaborate_Subprogram 014d 029d 076b | k| Declare_Subprogram INIT_0768,For_Outer_Call 014f 1d33 | 3 | Execute_Immediate Reference_Lex_1,0x33 0150 00c7 | | Action Elaborate_Subprogram 0151 1d34 | 4 | Execute_Immediate Reference_Lex_1,0x34 0152 00c7 | | Action Elaborate_Subprogram 0153 1d35 | 5 | Execute_Immediate Reference_Lex_1,0x35 0154 00c7 | | Action Elaborate_Subprogram 0155 1d36 | 6 | Execute_Immediate Reference_Lex_1,0x36 0156 00c7 | | Action Elaborate_Subprogram 0157 00b6 | | Action Make_Scope 0158 1d52 | R | Execute_Immediate Reference_Lex_1,0x52 0159 4802 |H | Short_Literal 0x2 015a e237 | 7 | Load 0x1,0x37 015b 020e | | Execute Module,Augment_Imports 015c e237 | 7 | Load 0x1,0x37 015d 020d | | Execute Module,Elaborate 015e 0007 | | Action Break_Optional 015f 1d39 | 9 | Execute_Immediate Reference_Lex_1,0x39 0160 00c7 | | Action Elaborate_Subprogram 0161 1d3a | : | Execute_Immediate Reference_Lex_1,0x3a 0162 00c7 | | Action Elaborate_Subprogram 0163 1d3c | < | Execute_Immediate Reference_Lex_1,0x3c 0164 00c7 | | Action Elaborate_Subprogram 0165 1d3d | = | Execute_Immediate Reference_Lex_1,0x3d 0166 00c7 | | Action Elaborate_Subprogram 0167 1d3e | > | Execute_Immediate Reference_Lex_1,0x3e 0168 00c7 | | Action Elaborate_Subprogram 0169 1d3f | ? | Execute_Immediate Reference_Lex_1,0x3f 016a 00c7 | | Action Elaborate_Subprogram 016b BODY_0008: 016b e24b | K | Load 0x1,0x4b 016c 1b13 | | Execute Package,Field_Read,Field_Number 0x13 016d e005 | | Load 0x0,0x5 016e 1811 | | Execute Package,Field_Execute,Field_Number 0x11 016f e006 | | Load 0x0,0x6 0170 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0171 e24b | K | Load 0x1,0x4b 0172 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0173 c24d | M | Store 0x1,0x4d 0174 00bc | | Action Signal_Activated 0175 00bb | | Action Signal_Completion 0176 0000 0000 | | .XXX[0x2] 0178 ; -------------------------------------------------------------------------------------- 0178 ; SUBPROGRAM 0178 ; -------------------------------------------------------------------------------------- 0178 017b | { | .CONST 0x017b ; Address of begin 0179 0004 | | .CONST 0x0004 ; Address of exception handler 017a 0001 | | .CONST 0x0001 ; Number of locals 017b BODY_0178: 017b INIT_0178: 017b 4800 |H | Short_Literal 0x0 017c 00ca | | Action Exit_Nullary_Function 017d 0000 0000 | | .XXX[0x3] 017f 0000 | | 0180 ; -------------------------------------------------------------------------------------- 0180 ; SUBPROGRAM 0180 ; -------------------------------------------------------------------------------------- 0180 0183 | | .CONST 0x0183 ; Address of begin 0181 0004 | | .CONST 0x0004 ; Address of exception handler 0182 0001 | | .CONST 0x0001 ; Number of locals 0183 BODY_0180: 0183 INIT_0180: 0183 e5ff | | Load 0x2,-0x1 0184 0f00 | | Execute_Immediate Equal,0x0 0185 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0186 0000 0000 | | .XXX[0x2] 0188 ; -------------------------------------------------------------------------------------- 0188 ; SUBPROGRAM 0188 ; -------------------------------------------------------------------------------------- 0188 018b | | .CONST 0x018b ; Address of begin 0189 0004 | | .CONST 0x0004 ; Address of exception handler 018a 0001 | | .CONST 0x0001 ; Number of locals 018b BODY_0188: 018b INIT_0188: 018b 4603 |F | Jump_Case 0x4 018c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 018d 7802 |x | Jump 0x190 ; case 0x1 018e 7805 |x | Jump 0x194 ; case 0x2 018f 7809 |x | Jump 0x199 ; case 0x3 0190 e5ff | | Load 0x2,-0x1 0191 0091 0ef5 | | Action Push_String_Extended_Indexed,0xef5 ; "REFERRED_TO_ITEM" 0193 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0194 e5fe | | Load 0x2,-0x2 0195 e5ff | | Load 0x2,-0x1 0196 00e0 | | Load_Encached Standard_Cache 0197 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0198 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0199 e5ff | | Load 0x2,-0x1 019a 00e0 | | Load_Encached Standard_Cache 019b 181c | | Execute Package,Field_Execute,Field_Number 0x1c 019c 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 019d 0000 0000 | | .XXX[0x3] 019f 0000 | | 01a0 ; -------------------------------------------------------------------------------------- 01a0 ; SUBPROGRAM 01a0 ; -------------------------------------------------------------------------------------- 01a0 01a3 | | .CONST 0x01a3 ; Address of begin 01a1 0004 | | .CONST 0x0004 ; Address of exception handler 01a2 0001 | | .CONST 0x0001 ; Number of locals 01a3 BODY_01a0: 01a3 INIT_01a0: 01a3 4603 |F | Jump_Case 0x4 01a4 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 01a5 7802 |x | Jump 0x1a8 ; case 0x1 01a6 7805 |x | Jump 0x1ac ; case 0x2 01a7 7809 |x | Jump 0x1b1 ; case 0x3 01a8 e5ff | | Load 0x2,-0x1 01a9 0091 0ef8 | | Action Push_String_Extended_Indexed,0xef8 ; "NONE" 01ab 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 01ac e5fe | | Load 0x2,-0x2 01ad e5ff | | Load 0x2,-0x1 01ae 00e0 | | Load_Encached Standard_Cache 01af 181b | | Execute Package,Field_Execute,Field_Number 0x1b 01b0 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 01b1 e5ff | | Load 0x2,-0x1 01b2 00e0 | | Load_Encached Standard_Cache 01b3 181c | | Execute Package,Field_Execute,Field_Number 0x1c 01b4 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 01b5 0000 0000 | | .XXX[0x3] 01b7 0000 | | 01b8 ; -------------------------------------------------------------------------------------- 01b8 ; SUBPROGRAM 01b8 ; -------------------------------------------------------------------------------------- 01b8 01bb | | .CONST 0x01bb ; Address of begin 01b9 0004 | | .CONST 0x0004 ; Address of exception handler 01ba 0001 | | .CONST 0x0001 ; Number of locals 01bb BODY_01b8: 01bb INIT_01b8: 01bb e215 | | Load 0x1,0x15 01bc 0322 | " | Declare_Variable Record 01bd e241 | A | Load 0x1,0x41 01be e402 | | Load 0x2,0x2 01bf 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 01c0 4800 |H | Short_Literal 0x0 01c1 e402 | | Load 0x2,0x2 01c2 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 01c3 00ca | | Action Exit_Nullary_Function 01c4 0000 0000 | | .BLANK 0000[0x4] 01c8 ; -------------------------------------------------------------------------------------- 01c8 ; SUBPROGRAM 01c8 ; -------------------------------------------------------------------------------------- 01c8 01cb | | .CONST 0x01cb ; Address of begin 01c9 0004 | | .CONST 0x0004 ; Address of exception handler 01ca 0001 | | .CONST 0x0001 ; Number of locals 01cb BODY_01c8: 01cb INIT_01c8: 01cb e5ff | | Load 0x2,-0x1 01cc 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 01cd 7002 |p | Jump_Nonzero 0x1d0 01ce 4801 |H | Short_Literal 0x1 01cf 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01d0 4800 |H | Short_Literal 0x0 01d1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01d2 0000 0000 | | .BLANK 0000[0x6] 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 4603 |F | Jump_Case 0x4 01dc 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 01dd 7802 |x | Jump 0x1e0 ; case 0x1 01de 7805 |x | Jump 0x1e4 ; case 0x2 01df 7809 |x | Jump 0x1e9 ; case 0x3 01e0 e5ff | | Load 0x2,-0x1 01e1 0091 0eff | | Action Push_String_Extended_Indexed,0xeff ; "ATTRIBUTE_ID" 01e3 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 01e4 e5fe | | Load 0x2,-0x2 01e5 e5ff | | Load 0x2,-0x1 01e6 00e0 | | Load_Encached Standard_Cache 01e7 181b | | Execute Package,Field_Execute,Field_Number 0x1b 01e8 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 01e9 e5ff | | Load 0x2,-0x1 01ea 00e0 | | Load_Encached Standard_Cache 01eb 181c | | Execute Package,Field_Execute,Field_Number 0x1c 01ec 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 01ed 0000 0000 | | .XXX[0x3] 01ef 0000 | | 01f0 ; -------------------------------------------------------------------------------------- 01f0 ; SUBPROGRAM 01f0 ; -------------------------------------------------------------------------------------- 01f0 01f3 | | .CONST 0x01f3 ; Address of begin 01f1 0004 | | .CONST 0x0004 ; Address of exception handler 01f2 0001 | | .CONST 0x0001 ; Number of locals 01f3 BODY_01f0: 01f3 INIT_01f0: 01f3 4603 |F | Jump_Case 0x4 01f4 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 01f5 7802 |x | Jump 0x1f8 ; case 0x1 01f6 7805 |x | Jump 0x1fc ; case 0x2 01f7 7809 |x | Jump 0x201 ; case 0x3 01f8 e5ff | | Load 0x2,-0x1 01f9 0091 0f1a | | Action Push_String_Extended_Indexed,0xf1a ; "ATTRIBUTE_TYPE" 01fb 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 01fc e5fe | | Load 0x2,-0x2 01fd e5ff | | Load 0x2,-0x1 01fe 00e0 | | Load_Encached Standard_Cache 01ff 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0200 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0201 e5ff | | Load 0x2,-0x1 0202 00e0 | | Load_Encached Standard_Cache 0203 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0204 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0205 0000 0000 | | .XXX[0x3] 0207 0000 | | 0208 ; -------------------------------------------------------------------------------------- 0208 ; SUBPROGRAM 0208 ; -------------------------------------------------------------------------------------- 0208 020b | | .CONST 0x020b ; Address of begin 0209 0004 | | .CONST 0x0004 ; Address of exception handler 020a 0001 | | .CONST 0x0001 ; Number of locals 020b BODY_0208: 020b INIT_0208: 020b 4603 |F | Jump_Case 0x4 020c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 020d 7802 |x | Jump 0x210 ; case 0x1 020e 7805 |x | Jump 0x214 ; case 0x2 020f 7809 |x | Jump 0x219 ; case 0x3 0210 e5ff | | Load 0x2,-0x1 0211 0091 0f2a | *| Action Push_String_Extended_Indexed,0xf2a ; "IN_VISIBLE_SUBPROGRAM_SPEC_PART" 0213 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0214 e5fe | | Load 0x2,-0x2 0215 e5ff | | Load 0x2,-0x1 0216 00e0 | | Load_Encached Standard_Cache 0217 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0218 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0219 e5ff | | Load 0x2,-0x1 021a 00e0 | | Load_Encached Standard_Cache 021b 181c | | Execute Package,Field_Execute,Field_Number 0x1c 021c 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 021d 0000 0000 | | .XXX[0x3] 021f 0000 | | 0220 ; -------------------------------------------------------------------------------------- 0220 ; SUBPROGRAM 0220 ; -------------------------------------------------------------------------------------- 0220 0223 | # | .CONST 0x0223 ; Address of begin 0221 0004 | | .CONST 0x0004 ; Address of exception handler 0222 0001 | | .CONST 0x0001 ; Number of locals 0223 BODY_0220: 0223 INIT_0220: 0223 e5ff | | Load 0x2,-0x1 0224 461a |F | Jump_Case 0x1b 0225 781a |x | Jump 0x240 ; case 0x0 0226 781d |x | Jump 0x244 ; case 0x1 0227 781a |x | Jump 0x242 ; case 0x2 0228 781d |x | Jump 0x246 ; case 0x3 0229 781a |x | Jump 0x244 ; case 0x4 022a 781d |x | Jump 0x248 ; case 0x5 022b 781e |x | Jump 0x24a ; case 0x6 022c 781f |x | Jump 0x24c ; case 0x7 022d 7824 |x$ | Jump 0x252 ; case 0x8 022e 7823 |x# | Jump 0x252 ; case 0x9 022f 7814 |x | Jump 0x244 ; case 0xa 0230 781d |x | Jump 0x24e ; case 0xb 0231 7828 |x( | Jump 0x25a ; case 0xc 0232 781b |x | Jump 0x24e ; case 0xd 0233 7810 |x | Jump 0x244 ; case 0xe 0234 781d |x | Jump 0x252 ; case 0xf 0235 781a |x | Jump 0x250 ; case 0x10 0236 781d |x | Jump 0x254 ; case 0x11 0237 781c |x | Jump 0x254 ; case 0x12 0238 7821 |x! | Jump 0x25a ; case 0x13 0239 781c |x | Jump 0x256 ; case 0x14 023a 7807 |x | Jump 0x242 ; case 0x15 023b 781e |x | Jump 0x25a ; case 0x16 023c 781b |x | Jump 0x258 ; case 0x17 023d 781c |x | Jump 0x25a ; case 0x18 023e 781d |x | Jump 0x25c ; case 0x19 023f 781e |x | Jump 0x25e ; case 0x1a 0240 4800 |H | Short_Literal 0x0 0241 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0242 4801 |H | Short_Literal 0x1 0243 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0244 4802 |H | Short_Literal 0x2 0245 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0246 4803 |H | Short_Literal 0x3 0247 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0248 4804 |H | Short_Literal 0x4 0249 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 024a 4805 |H | Short_Literal 0x5 024b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 024c 4806 |H | Short_Literal 0x6 024d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 024e 4807 |H | Short_Literal 0x7 024f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0250 4808 |H | Short_Literal 0x8 0251 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0252 4809 |H | Short_Literal 0x9 0253 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0254 480a |H | Short_Literal 0xa 0255 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0256 480b |H | Short_Literal 0xb 0257 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0258 480c |H | Short_Literal 0xc 0259 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 025a 480d |H | Short_Literal 0xd 025b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 025c 480e |H | Short_Literal 0xe 025d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 025e 480f |H | Short_Literal 0xf 025f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0260 ; -------------------------------------------------------------------------------------- 0260 ; SUBPROGRAM 0260 ; -------------------------------------------------------------------------------------- 0260 02ce | | .CONST 0x02ce ; Address of begin 0261 0004 | | .CONST 0x0004 ; Address of exception handler 0262 001e | | .CONST 0x001e ; Number of locals 0263 INIT_0260: 0263 e011 | | Load 0x0,0x11 0264 e012 | | Load 0x0,0x12 0265 612a |a* | Indirect_Literal Discrete,0x390,{0x00000000, 0x00000ffd} 0266 00ec | | Load_Encached Diana_Tree_Cache 0267 00e3 | | Load_Encached Natural_Cache 0268 00eb | | Load_Encached Diana_Cache 0269 1917 | | Execute Package,Field_Reference,Field_Number 0x17 026a e013 | | Load 0x0,0x13 026b 0387 | | Declare_Variable Package 026c 00d8 | | Load_Top At_Offset_0 026d 020f | | Execute Module,Activate 026e e001 | | Load 0x0,0x1 026f 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0270 4801 |H | Short_Literal 0x1 0271 e24c | L | Load 0x1,0x4c 0272 00ea | | Load_Encached Null_String_Cache 0273 e001 | | Load 0x0,0x1 0274 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0275 c403 | | Store 0x2,0x3 0276 e001 | | Load 0x0,0x1 0277 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0278 4801 |H | Short_Literal 0x1 0279 e24c | L | Load 0x1,0x4c 027a 0092 0f38 | 8| Action Push_String_Extended,0xf38 ; "'1" 027c e001 | | Load 0x0,0x1 027d 1812 | | Execute Package,Field_Execute,Field_Number 0x12 027e c404 | | Store 0x2,0x4 027f 00ec | | Load_Encached Diana_Tree_Cache 0280 e014 | | Load 0x0,0x14 0281 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 0282 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0283 02c7 | | Declare_Variable Any 0284 00d8 | | Load_Top At_Offset_0 0285 1c00 | | Execute_Immediate Run_Utility,0x0 0286 e014 | | Load 0x0,0x14 0287 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0288 02c7 | | Declare_Variable Any 0289 00d8 | | Load_Top At_Offset_0 028a 1c00 | | Execute_Immediate Run_Utility,0x0 028b e014 | | Load 0x0,0x14 028c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 028d e015 | | Load 0x0,0x15 028e 1b0d | | Execute Package,Field_Read,Field_Number 0xd 028f 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 0290 02c7 | | Declare_Variable Any 0291 00d8 | | Load_Top At_Offset_0 0292 1c00 | | Execute_Immediate Run_Utility,0x0 0293 e015 | | Load 0x0,0x15 0294 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0295 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 0296 02c7 | | Declare_Variable Any 0297 00d8 | | Load_Top At_Offset_0 0298 1c00 | | Execute_Immediate Run_Utility,0x0 0299 e015 | | Load 0x0,0x15 029a 1b0d | | Execute Package,Field_Read,Field_Number 0xd 029b 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 029c 02c7 | | Declare_Variable Any 029d 00d8 | | Load_Top At_Offset_0 029e 1c00 | | Execute_Immediate Run_Utility,0x0 029f e015 | | Load 0x0,0x15 02a0 1b0d | | Execute Package,Field_Read,Field_Number 0xd 02a1 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 02a2 02c7 | | Declare_Variable Any 02a3 00d8 | | Load_Top At_Offset_0 02a4 1c00 | | Execute_Immediate Run_Utility,0x0 02a5 e015 | | Load 0x0,0x15 02a6 1b0d | | Execute Package,Field_Read,Field_Number 0xd 02a7 1b0d | | Execute Package,Field_Read,Field_Number 0xd 02a8 02c7 | | Declare_Variable Any 02a9 00d8 | | Load_Top At_Offset_0 02aa 1c00 | | Execute_Immediate Run_Utility,0x0 02ab e015 | | Load 0x0,0x15 02ac 1b0d | | Execute Package,Field_Read,Field_Number 0xd 02ad 1b30 | 0 | Execute Package,Field_Read,Field_Number 0x30 02ae 02c7 | | Declare_Variable Any 02af 00d8 | | Load_Top At_Offset_0 02b0 1c00 | | Execute_Immediate Run_Utility,0x0 02b1 00e1 | | Load_Encached Boolean_Cache 02b2 e402 | | Load 0x2,0x2 02b3 1b13 | | Execute Package,Field_Read,Field_Number 0x13 02b4 e247 | G | Load 0x1,0x47 02b5 0007 | | Action Break_Optional 02b6 e247 | G | Load 0x1,0x47 02b7 0007 | | Action Break_Optional 02b8 a016 | | Store_Unchecked 0x0,0x16 02b9 00c6 | | Action Check_Subprogram_Elaborated 02ba e210 | | Load 0x1,0x10 02bb 1d1d | | Execute_Immediate Reference_Lex_1,0x1d 02bc e24a | J | Load 0x1,0x4a 02bd 1914 | | Execute Package,Field_Reference,Field_Number 0x14 02be e017 | | Load 0x0,0x17 02bf e018 | | Load 0x0,0x18 02c0 4818 |H | Short_Literal 0x18 02c1 0007 | | Action Break_Optional 02c2 029f 07b3 | | Declare_Subprogram INIT_07b0,For_Call 02c4 029f 082b | +| Declare_Subprogram INIT_0828,For_Call 02c6 029f 08e3 | | Declare_Subprogram INIT_08e0,For_Call 02c8 029f 095b | [| Declare_Subprogram INIT_0958,For_Call 02ca 029f 09b3 | | Declare_Subprogram INIT_09b0,For_Call 02cc 029f 0bdb | | Declare_Subprogram INIT_0bd8,For_Call 02ce BODY_0260: 02ce e244 | D | Load 0x1,0x44 02cf 0322 | " | Declare_Variable Record 02d0 4800 |H | Short_Literal 0x0 02d1 e41f | | Load 0x2,0x1f 02d2 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 02d3 4800 |H | Short_Literal 0x0 02d4 e41f | | Load 0x2,0x1f 02d5 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 02d6 4800 |H | Short_Literal 0x0 02d7 e41f | | Load 0x2,0x1f 02d8 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 02d9 e251 | Q | Load 0x1,0x51 02da 017d | } | Execute Record,Structure_Write 02db e402 | | Load 0x2,0x2 02dc 1b13 | | Execute Package,Field_Read,Field_Number 0x13 02dd e402 | | Load 0x2,0x2 02de 181a | | Execute Package,Field_Execute,Field_Number 0x1a 02df c410 | | Store 0x2,0x10 02e0 e40b | | Load 0x2,0xb 02e1 0120 | | Execute Any,Is_Value 02e2 6804 |h | Jump_Zero 0x2e7 02e3 e015 | | Load 0x0,0x15 02e4 1b0d | | Execute Package,Field_Read,Field_Number 0xd 02e5 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 02e6 7801 |x | Jump 0x2e8 02e7 e40b | | Load 0x2,0xb 02e8 e40a | | Load 0x2,0xa 02e9 0120 | | Execute Any,Is_Value 02ea 6804 |h | Jump_Zero 0x2ef 02eb e015 | | Load 0x0,0x15 02ec 1b0d | | Execute Package,Field_Read,Field_Number 0xd 02ed 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 02ee 7801 |x | Jump 0x2f0 02ef e40a | | Load 0x2,0xa 02f0 e409 | | Load 0x2,0x9 02f1 0120 | | Execute Any,Is_Value 02f2 6804 |h | Jump_Zero 0x2f7 02f3 e015 | | Load 0x0,0x15 02f4 1b0d | | Execute Package,Field_Read,Field_Number 0xd 02f5 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 02f6 7801 |x | Jump 0x2f8 02f7 e409 | | Load 0x2,0x9 02f8 e5fd | | Load 0x2,-0x3 02f9 85fe | | Call 0x2,-0x2 02fa c5fd | | Store 0x2,-0x3 02fb c409 | | Store 0x2,0x9 02fc c40a | | Store 0x2,0xa 02fd c40b | | Store 0x2,0xb 02fe e247 | G | Load 0x1,0x47 02ff e40a | | Load 0x2,0xa 0300 841b | | Call 0x2,0x1b 0301 c40a | | Store 0x2,0xa 0302 c411 | | Store 0x2,0x11 0303 e247 | G | Load 0x1,0x47 0304 e40b | | Load 0x2,0xb 0305 841b | | Call 0x2,0x1b 0306 c40b | | Store 0x2,0xb 0307 c412 | | Store 0x2,0x12 0308 e411 | | Load 0x2,0x11 0309 022c | , | Execute Access,Not_Null 030a e412 | | Load 0x2,0x12 030b 022c | , | Execute Access,Not_Null 030c 0279 | y | Execute Discrete,And 030d 6801 |h | Jump_Zero 0x30f 030e 4503 |E | Exit_Suprogram New_Top_Offset 0x3 030f 4800 |H | Short_Literal 0x0 0310 0092 0f39 | 9| Action Push_String_Extended,0xf39 ; "?" 0312 e015 | | Load 0x0,0x15 0313 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0314 180e | | Execute Package,Field_Execute,Field_Number 0xe 0315 e015 | | Load 0x0,0x15 0316 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0317 1854 | T | Execute Package,Field_Execute,Field_Number 0x54 0318 e015 | | Load 0x0,0x15 0319 1b0d | | Execute Package,Field_Read,Field_Number 0xd 031a 1b56 | V | Execute Package,Field_Read,Field_Number 0x56 031b 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28 031c c40c | | Store 0x2,0xc 031d 00cf | | Action Mark_Auxiliary 031e 786a |xj | Jump 0x389 031f e409 | | Load 0x2,0x9 0320 e015 | | Load 0x0,0x15 0321 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0322 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 0323 c40d | | Store 0x2,0xd 0324 e40d | | Load 0x2,0xd 0325 e40c | | Load 0x2,0xc 0326 e015 | | Load 0x0,0x15 0327 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0328 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 0329 6801 |h | Jump_Zero 0x32b 032a 7858 |xX | Jump 0x383 032b e40d | | Load 0x2,0xd 032c e015 | | Load 0x0,0x15 032d 1b11 | | Execute Package,Field_Read,Field_Number 0x11 032e 1815 | | Execute Package,Field_Execute,Field_Number 0x15 032f 700d |p | Jump_Nonzero 0x33d 0330 e019 | | Load 0x0,0x19 0331 180e | | Execute Package,Field_Execute,Field_Number 0xe 0332 4807 |H | Short_Literal 0x7 0333 e40d | | Load 0x2,0xd 0334 e015 | | Load 0x0,0x15 0335 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0336 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0337 0092 0f3a | :| Action Push_String_Extended,0xf3a ; " is not an ada object" 0339 01cc | | Execute Vector,Catenate 033a e01a | | Load 0x0,0x1a 033b 1813 | | Execute Package,Field_Execute,Field_Number 0x13 033c 7846 |xF | Jump 0x383 033d e40d | | Load 0x2,0xd 033e e015 | | Load 0x0,0x15 033f 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0340 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0341 700d |p | Jump_Nonzero 0x34f 0342 e019 | | Load 0x0,0x19 0343 180e | | Execute Package,Field_Execute,Field_Number 0xe 0344 4807 |H | Short_Literal 0x7 0345 e40d | | Load 0x2,0xd 0346 e015 | | Load 0x0,0x15 0347 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0348 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0349 0092 0f3b | ;| Action Push_String_Extended,0xf3b ; " isn't installed or higher" 034b 01cc | | Execute Vector,Catenate 034c e01a | | Load 0x0,0x1a 034d 1813 | | Execute Package,Field_Execute,Field_Number 0x13 034e 7834 |x4 | Jump 0x383 034f e40e | | Load 0x2,0xe 0350 0120 | | Execute Any,Is_Value 0351 6804 |h | Jump_Zero 0x356 0352 e015 | | Load 0x0,0x15 0353 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0354 1b30 | 0 | Execute Package,Field_Read,Field_Number 0x30 0355 7801 |x | Jump 0x357 0356 e40e | | Load 0x2,0xe 0357 e015 | | Load 0x0,0x15 0358 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0359 1b0d | | Execute Package,Field_Read,Field_Number 0xd 035a 4801 |H | Short_Literal 0x1 035b e40d | | Load 0x2,0xd 035c e015 | | Load 0x0,0x15 035d 1b13 | | Execute Package,Field_Read,Field_Number 0x13 035e 1813 | | Execute Package,Field_Execute,Field_Number 0x13 035f c405 | | Store 0x2,0x5 0360 c40e | | Store 0x2,0xe 0361 e40e | | Load 0x2,0xe 0362 e015 | | Load 0x0,0x15 0363 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0364 1833 | 3 | Execute Package,Field_Execute,Field_Number 0x33 0365 6807 |h | Jump_Zero 0x36d 0366 e019 | | Load 0x0,0x19 0367 180e | | Execute Package,Field_Execute,Field_Number 0xe 0368 e40e | | Load 0x2,0xe 0369 e015 | | Load 0x0,0x15 036a 1b0d | | Execute Package,Field_Read,Field_Number 0xd 036b 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f 036c 7816 |x | Jump 0x383 036d e251 | Q | Load 0x1,0x51 036e 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 036f 0a01 | | Execute_Immediate Plus,0x1 0370 e251 | Q | Load 0x1,0x51 0371 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0372 e014 | | Load 0x0,0x14 0373 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0374 e406 | | Load 0x2,0x6 0375 0120 | | Execute Any,Is_Value 0376 6804 |h | Jump_Zero 0x37b 0377 e014 | | Load 0x0,0x14 0378 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 0379 1b0e | | Execute Package,Field_Read,Field_Number 0xe 037a 7801 |x | Jump 0x37c 037b e406 | | Load 0x2,0x6 037c e405 | | Load 0x2,0x5 037d e014 | | Load 0x0,0x14 037e 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 037f 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0380 c406 | | Store 0x2,0x6 0381 c408 | | Store 0x2,0x8 0382 841e | | Call 0x2,0x1e 0383 e409 | | Load 0x2,0x9 0384 e015 | | Load 0x0,0x15 0385 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0386 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 0387 c409 | | Store 0x2,0x9 0388 00c9 | | Action Pop_Auxiliary_Loop 0389 e409 | | Load 0x2,0x9 038a e015 | | Load 0x0,0x15 038b 1b0d | | Execute Package,Field_Read,Field_Number 0xd 038c 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 038d 6f91 |o | Jump_Zero 0x31f 038e 4503 |E | Exit_Suprogram New_Top_Offset 0x3 038f 0000 | | .XXX[0x1] 0390 0000 0000 | | .LITERAL {0x00000000, 0x00000ffd} 0394 0000 0000 | | .BLANK 0000[0x4] 0398 ; -------------------------------------------------------------------------------------- 0398 ; SUBPROGRAM 0398 ; -------------------------------------------------------------------------------------- 0398 03b5 | | .CONST 0x03b5 ; Address of begin 0399 0004 | | .CONST 0x0004 ; Address of exception handler 039a 0005 | | .CONST 0x0005 ; Number of locals 039b INIT_0398: 039b e243 | C | Load 0x1,0x43 039c e5ff | | Load 0x2,-0x1 039d 8250 | P | Call 0x1,0x50 039e c402 | | Store 0x2,0x2 039f e243 | C | Load 0x1,0x43 03a0 e5fe | | Load 0x2,-0x2 03a1 8250 | P | Call 0x1,0x50 03a2 c403 | | Store 0x2,0x3 03a3 e402 | | Load 0x2,0x2 03a4 0217 | | Execute Heap_Access,All_Reference 03a5 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 03a6 824e | N | Call 0x1,0x4e 03a7 0217 | | Execute Heap_Access,All_Reference 03a8 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 03a9 e001 | | Load 0x0,0x1 03aa 1818 | | Execute Package,Field_Execute,Field_Number 0x18 03ab 822e | . | Call 0x1,0x2e 03ac e403 | | Load 0x2,0x3 03ad 0217 | | Execute Heap_Access,All_Reference 03ae 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 03af 824e | N | Call 0x1,0x4e 03b0 0217 | | Execute Heap_Access,All_Reference 03b1 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 03b2 e001 | | Load 0x0,0x1 03b3 1818 | | Execute Package,Field_Execute,Field_Number 0x18 03b4 822e | . | Call 0x1,0x2e 03b5 BODY_0398: 03b5 4800 |H | Short_Literal 0x0 03b6 e405 | | Load 0x2,0x5 03b7 e404 | | Load 0x2,0x4 03b8 e01b | | Load 0x0,0x1b 03b9 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 03ba 6802 |h | Jump_Zero 0x3bd 03bb 4801 |H | Short_Literal 0x1 03bc 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 03bd 4800 |H | Short_Literal 0x0 03be e405 | | Load 0x2,0x5 03bf e404 | | Load 0x2,0x4 03c0 e01b | | Load 0x0,0x1b 03c1 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 03c2 682e |h. | Jump_Zero 0x3f1 03c3 e402 | | Load 0x2,0x2 03c4 0217 | | Execute Heap_Access,All_Reference 03c5 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 03c6 e403 | | Load 0x2,0x3 03c7 0217 | | Execute Heap_Access,All_Reference 03c8 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 03c9 027c | | | Execute Discrete,Less 03ca 6802 |h | Jump_Zero 0x3cd 03cb 4801 |H | Short_Literal 0x1 03cc 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 03cd e402 | | Load 0x2,0x2 03ce 0217 | | Execute Heap_Access,All_Reference 03cf 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 03d0 e403 | | Load 0x2,0x3 03d1 0217 | | Execute Heap_Access,All_Reference 03d2 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 03d3 027f | | Execute Discrete,Equal 03d4 681c |h | Jump_Zero 0x3f1 03d5 e402 | | Load 0x2,0x2 03d6 0217 | | Execute Heap_Access,All_Reference 03d7 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 03d8 e403 | | Load 0x2,0x3 03d9 0217 | | Execute Heap_Access,All_Reference 03da 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 03db 027c | | | Execute Discrete,Less 03dc 6802 |h | Jump_Zero 0x3df 03dd 4801 |H | Short_Literal 0x1 03de 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 03df e402 | | Load 0x2,0x2 03e0 0217 | | Execute Heap_Access,All_Reference 03e1 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 03e2 e403 | | Load 0x2,0x3 03e3 0217 | | Execute Heap_Access,All_Reference 03e4 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 03e5 027f | | Execute Discrete,Equal 03e6 680a |h | Jump_Zero 0x3f1 03e7 e402 | | Load 0x2,0x2 03e8 0217 | | Execute Heap_Access,All_Reference 03e9 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 03ea e403 | | Load 0x2,0x3 03eb 0217 | | Execute Heap_Access,All_Reference 03ec 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 03ed 027c | | | Execute Discrete,Less 03ee 6802 |h | Jump_Zero 0x3f1 03ef 4801 |H | Short_Literal 0x1 03f0 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 03f1 4800 |H | Short_Literal 0x0 03f2 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 03f3 0000 0000 | | .BLANK 0000[0x5] 03f8 ; -------------------------------------------------------------------------------------- 03f8 ; SUBPROGRAM 03f8 ; -------------------------------------------------------------------------------------- 03f8 0407 | | .CONST 0x0407 ; Address of begin 03f9 0004 | | .CONST 0x0004 ; Address of exception handler 03fa 0007 | | .CONST 0x0007 ; Number of locals 03fb INIT_03f8: 03fb a016 | | Store_Unchecked 0x0,0x16 03fc 00c6 | | Action Check_Subprogram_Elaborated 03fd e210 | | Load 0x1,0x10 03fe 4ffe |O | Short_Literal -0x2 03ff 4802 |H | Short_Literal 0x2 0400 0099 | | Action Reference_Dynamic 0401 e24a | J | Load 0x1,0x4a 0402 1914 | | Execute Package,Field_Reference,Field_Number 0x14 0403 e01c | | Load 0x0,0x1c 0404 e01d | | Load 0x0,0x1d 0405 4807 |H | Short_Literal 0x7 0406 0007 | | Action Break_Optional 0407 BODY_03f8: 0407 e251 | Q | Load 0x1,0x51 0408 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0409 4801 |H | Short_Literal 0x1 040a e402 | | Load 0x2,0x2 040b 4803 |H | Short_Literal 0x3 040c 4802 |H | Short_Literal 0x2 040d 0099 | | Action Reference_Dynamic 040e 4804 |H | Short_Literal 0x4 040f 4802 |H | Short_Literal 0x2 0410 0099 | | Action Reference_Dynamic 0411 4805 |H | Short_Literal 0x5 0412 4802 |H | Short_Literal 0x2 0413 0099 | | Action Reference_Dynamic 0414 8016 | | Call 0x0,0x16 0415 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0416 0000 0000 | | .XXX[0x2] 0418 ; -------------------------------------------------------------------------------------- 0418 ; SUBPROGRAM 0418 ; -------------------------------------------------------------------------------------- 0418 041b | | .CONST 0x041b ; Address of begin 0419 0004 | | .CONST 0x0004 ; Address of exception handler 041a 0001 | | .CONST 0x0001 ; Number of locals 041b BODY_0418: 041b INIT_0418: 041b 4603 |F | Jump_Case 0x4 041c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 041d 7802 |x | Jump 0x420 ; case 0x1 041e 7805 |x | Jump 0x424 ; case 0x2 041f 7809 |x | Jump 0x429 ; case 0x3 0420 e5ff | | Load 0x2,-0x1 0421 0091 0f31 | 1| Action Push_String_Extended_Indexed,0xf31 ; "SUCCESSFUL" 0423 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0424 e5fe | | Load 0x2,-0x2 0425 e5ff | | Load 0x2,-0x1 0426 00e0 | | Load_Encached Standard_Cache 0427 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0428 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0429 e5ff | | Load 0x2,-0x1 042a 00e0 | | Load_Encached Standard_Cache 042b 181c | | Execute Package,Field_Execute,Field_Number 0x1c 042c 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 042d 0000 0000 | | .XXX[0x3] 042f 0000 | | 0430 ; -------------------------------------------------------------------------------------- 0430 ; SUBPROGRAM 0430 ; -------------------------------------------------------------------------------------- 0430 0433 | 3 | .CONST 0x0433 ; Address of begin 0431 044d | M | .CONST 0x044d ; Address of exception handler 0432 0001 | | .CONST 0x0001 ; Number of locals 0433 BODY_0430: 0433 INIT_0430: 0433 e5fe | | Load 0x2,-0x2 0434 0f01 | | Execute_Immediate Equal,0x1 0435 6807 |h | Jump_Zero 0x43d 0436 e5ff | | Load 0x2,-0x1 0437 8250 | P | Call 0x1,0x50 0438 0217 | | Execute Heap_Access,All_Reference 0439 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 043a e01e | | Load 0x0,0x1e 043b 1811 | | Execute Package,Field_Execute,Field_Number 0x11 043c 780e |x | Jump 0x44b 043d e5fe | | Load 0x2,-0x2 043e 700a |p | Jump_Nonzero 0x449 043f e5ff | | Load 0x2,-0x1 0440 8250 | P | Call 0x1,0x50 0441 0217 | | Execute Heap_Access,All_Reference 0442 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0443 824e | N | Call 0x1,0x4e 0444 0217 | | Execute Heap_Access,All_Reference 0445 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0446 e01e | | Load 0x0,0x1e 0447 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0448 7802 |x | Jump 0x44b 0449 4803 |H | Short_Literal 0x3 044a 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 044b 4800 |H | Short_Literal 0x0 044c 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 044d TRAP_0430: 044d e01e | | Load 0x0,0x1e 044e 1b0d | | Execute Package,Field_Read,Field_Number 0xd 044f 010f | | Execute Exception,Equal 0450 6802 |h | Jump_Zero 0x453 0451 4801 |H | Short_Literal 0x1 0452 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0453 e01e | | Load 0x0,0x1e 0454 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0455 010f | | Execute Exception,Equal 0456 6802 |h | Jump_Zero 0x459 0457 4802 |H | Short_Literal 0x2 0458 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0459 4804 |H | Short_Literal 0x4 045a 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 045b 0000 0000 | | .BLANK 0000[0x5] 0460 ; -------------------------------------------------------------------------------------- 0460 ; SUBPROGRAM 0460 ; -------------------------------------------------------------------------------------- 0460 0463 | c | .CONST 0x0463 ; Address of begin 0461 0004 | | .CONST 0x0004 ; Address of exception handler 0462 0001 | | .CONST 0x0001 ; Number of locals 0463 BODY_0460: 0463 INIT_0460: 0463 e5ff | | Load 0x2,-0x1 0464 8212 | | Call 0x1,0x12 0465 6803 |h | Jump_Zero 0x469 0466 00eb | | Load_Encached Diana_Cache 0467 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0468 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0469 e5fe | | Load 0x2,-0x2 046a 4602 |F | Jump_Case 0x3 046b 7802 |x | Jump 0x46e ; case 0x0 046c 7809 |x | Jump 0x476 ; case 0x1 046d 780d |x | Jump 0x47b ; case 0x2 046e e5ff | | Load 0x2,-0x1 046f 8250 | P | Call 0x1,0x50 0470 0217 | | Execute Heap_Access,All_Reference 0471 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0472 824e | N | Call 0x1,0x4e 0473 0217 | | Execute Heap_Access,All_Reference 0474 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0475 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0476 e5ff | | Load 0x2,-0x1 0477 8250 | P | Call 0x1,0x50 0478 0217 | | Execute Heap_Access,All_Reference 0479 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 047a 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 047b 00eb | | Load_Encached Diana_Cache 047c 1812 | | Execute Package,Field_Execute,Field_Number 0x12 047d 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 047e 0000 0000 | | .XXX[0x2] 0480 ; -------------------------------------------------------------------------------------- 0480 ; SUBPROGRAM 0480 ; -------------------------------------------------------------------------------------- 0480 048a | | .CONST 0x048a ; Address of begin 0481 0004 | | .CONST 0x0004 ; Address of exception handler 0482 0003 | | .CONST 0x0003 ; Number of locals 0483 INIT_0480: 0483 e014 | | Load 0x0,0x14 0484 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0485 02ff | | Declare_Variable Variant_Record 0486 00d8 | | Load_Top At_Offset_0 0487 1c00 | | Execute_Immediate Run_Utility,0x0 0488 e014 | | Load 0x0,0x14 0489 1b0d | | Execute Package,Field_Read,Field_Number 0xd 048a BODY_0480: 048a e014 | | Load 0x0,0x14 048b 1b0d | | Execute Package,Field_Read,Field_Number 0xd 048c e402 | | Load 0x2,0x2 048d e5ff | | Load 0x2,-0x1 048e 8250 | P | Call 0x1,0x50 048f 0217 | | Execute Heap_Access,All_Reference 0490 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0491 824e | N | Call 0x1,0x4e 0492 0217 | | Execute Heap_Access,All_Reference 0493 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0494 e014 | | Load 0x0,0x14 0495 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 0496 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0497 00d1 | | Pop_Control Pop_Count_1 0498 c403 | | Store 0x2,0x3 0499 00d8 | | Load_Top At_Offset_0 049a 6804 |h | Jump_Zero 0x49f 049b e015 | | Load 0x0,0x15 049c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 049d 180e | | Execute Package,Field_Execute,Field_Number 0xe 049e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 049f e015 | | Load 0x0,0x15 04a0 1b0d | | Execute Package,Field_Read,Field_Number 0xd 04a1 1b56 | V | Execute Package,Field_Read,Field_Number 0x56 04a2 180e | | Execute Package,Field_Execute,Field_Number 0xe 04a3 00eb | | Load_Encached Diana_Cache 04a4 1812 | | Execute Package,Field_Execute,Field_Number 0x12 04a5 00eb | | Load_Encached Diana_Cache 04a6 1812 | | Execute Package,Field_Execute,Field_Number 0x12 04a7 e014 | | Load 0x0,0x14 04a8 181e | | Execute Package,Field_Execute,Field_Number 0x1e 04a9 e402 | | Load 0x2,0x2 04aa e014 | | Load 0x0,0x14 04ab 1810 | | Execute Package,Field_Execute,Field_Number 0x10 04ac e402 | | Load 0x2,0x2 04ad e014 | | Load 0x0,0x14 04ae 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 04af 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f 04b0 e015 | | Load 0x0,0x15 04b1 1b0d | | Execute Package,Field_Read,Field_Number 0xd 04b2 1854 | T | Execute Package,Field_Execute,Field_Number 0x54 04b3 e015 | | Load 0x0,0x15 04b4 1b0d | | Execute Package,Field_Read,Field_Number 0xd 04b5 1b56 | V | Execute Package,Field_Read,Field_Number 0x56 04b6 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 04b7 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 04b8 ; -------------------------------------------------------------------------------------- 04b8 ; SUBPROGRAM 04b8 ; -------------------------------------------------------------------------------------- 04b8 04c2 | | .CONST 0x04c2 ; Address of begin 04b9 0004 | | .CONST 0x0004 ; Address of exception handler 04ba 0003 | | .CONST 0x0003 ; Number of locals 04bb INIT_04b8: 04bb e014 | | Load 0x0,0x14 04bc 1b14 | | Execute Package,Field_Read,Field_Number 0x14 04bd 02ff | | Declare_Variable Variant_Record 04be 00d8 | | Load_Top At_Offset_0 04bf 1c00 | | Execute_Immediate Run_Utility,0x0 04c0 e014 | | Load 0x0,0x14 04c1 1b0d | | Execute Package,Field_Read,Field_Number 0xd 04c2 BODY_04b8: 04c2 e014 | | Load 0x0,0x14 04c3 1b0d | | Execute Package,Field_Read,Field_Number 0xd 04c4 e402 | | Load 0x2,0x2 04c5 e5ff | | Load 0x2,-0x1 04c6 8250 | P | Call 0x1,0x50 04c7 0217 | | Execute Heap_Access,All_Reference 04c8 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 04c9 824f | O | Call 0x1,0x4f 04ca 0217 | | Execute Heap_Access,All_Reference 04cb 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 04cc e014 | | Load 0x0,0x14 04cd 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 04ce 181b | | Execute Package,Field_Execute,Field_Number 0x1b 04cf 00d1 | | Pop_Control Pop_Count_1 04d0 c403 | | Store 0x2,0x3 04d1 00d8 | | Load_Top At_Offset_0 04d2 6804 |h | Jump_Zero 0x4d7 04d3 e015 | | Load 0x0,0x15 04d4 1b0d | | Execute Package,Field_Read,Field_Number 0xd 04d5 180e | | Execute Package,Field_Execute,Field_Number 0xe 04d6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 04d7 e015 | | Load 0x0,0x15 04d8 1b0d | | Execute Package,Field_Read,Field_Number 0xd 04d9 1b56 | V | Execute Package,Field_Read,Field_Number 0x56 04da 180e | | Execute Package,Field_Execute,Field_Number 0xe 04db 00eb | | Load_Encached Diana_Cache 04dc 1812 | | Execute Package,Field_Execute,Field_Number 0x12 04dd 00eb | | Load_Encached Diana_Cache 04de 1812 | | Execute Package,Field_Execute,Field_Number 0x12 04df e014 | | Load 0x0,0x14 04e0 181e | | Execute Package,Field_Execute,Field_Number 0x1e 04e1 e402 | | Load 0x2,0x2 04e2 e014 | | Load 0x0,0x14 04e3 1810 | | Execute Package,Field_Execute,Field_Number 0x10 04e4 e402 | | Load 0x2,0x2 04e5 e014 | | Load 0x0,0x14 04e6 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 04e7 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f 04e8 e015 | | Load 0x0,0x15 04e9 1b0d | | Execute Package,Field_Read,Field_Number 0xd 04ea 1854 | T | Execute Package,Field_Execute,Field_Number 0x54 04eb e015 | | Load 0x0,0x15 04ec 1b0d | | Execute Package,Field_Read,Field_Number 0xd 04ed 1b56 | V | Execute Package,Field_Read,Field_Number 0x56 04ee 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 04ef 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 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 e251 | Q | Load 0x1,0x51 04f4 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 04f5 00ca | | Action Exit_Nullary_Function 04f6 0000 0000 | | .XXX[0x2] 04f8 ; -------------------------------------------------------------------------------------- 04f8 ; SUBPROGRAM 04f8 ; -------------------------------------------------------------------------------------- 04f8 04fb | | .CONST 0x04fb ; Address of begin 04f9 0004 | | .CONST 0x0004 ; Address of exception handler 04fa 0001 | | .CONST 0x0001 ; Number of locals 04fb BODY_04f8: 04fb INIT_04f8: 04fb e5ff | | Load 0x2,-0x1 04fc 8212 | | Call 0x1,0x12 04fd 6802 |h | Jump_Zero 0x500 04fe 4806 |H | Short_Literal 0x6 04ff 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0500 e5ff | | Load 0x2,-0x1 0501 8250 | P | Call 0x1,0x50 0502 0217 | | Execute Heap_Access,All_Reference 0503 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0504 824e | N | Call 0x1,0x4e 0505 0217 | | Execute Heap_Access,All_Reference 0506 3c05 |< | Execute Record,Field_Read,Field_Number 0x5 0507 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0508 ; -------------------------------------------------------------------------------------- 0508 ; SUBPROGRAM 0508 ; -------------------------------------------------------------------------------------- 0508 050b | | .CONST 0x050b ; Address of begin 0509 0004 | | .CONST 0x0004 ; Address of exception handler 050a 0001 | | .CONST 0x0001 ; Number of locals 050b BODY_0508: 050b INIT_0508: 050b e5ff | | Load 0x2,-0x1 050c 8212 | | Call 0x1,0x12 050d 6802 |h | Jump_Zero 0x510 050e 4800 |H | Short_Literal 0x0 050f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0510 e5ff | | Load 0x2,-0x1 0511 8250 | P | Call 0x1,0x50 0512 0217 | | Execute Heap_Access,All_Reference 0513 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0514 824e | N | Call 0x1,0x4e 0515 0217 | | Execute Heap_Access,All_Reference 0516 3c05 |< | Execute Record,Field_Read,Field_Number 0x5 0517 4606 |F | Jump_Case 0x7 0518 7806 |x | Jump 0x51f ; case 0x0 0519 7805 |x | Jump 0x51f ; case 0x1 051a 7806 |x | Jump 0x521 ; case 0x2 051b 7805 |x | Jump 0x521 ; case 0x3 051c 7804 |x | Jump 0x521 ; case 0x4 051d 7803 |x | Jump 0x521 ; case 0x5 051e 7802 |x | Jump 0x521 ; case 0x6 051f 4801 |H | Short_Literal 0x1 0520 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0521 4800 |H | Short_Literal 0x0 0522 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0523 0000 0000 | | .BLANK 0000[0x5] 0528 ; -------------------------------------------------------------------------------------- 0528 ; SUBPROGRAM 0528 ; -------------------------------------------------------------------------------------- 0528 052b | + | .CONST 0x052b ; Address of begin 0529 0004 | | .CONST 0x0004 ; Address of exception handler 052a 0001 | | .CONST 0x0001 ; Number of locals 052b BODY_0528: 052b INIT_0528: 052b e5ff | | Load 0x2,-0x1 052c 8212 | | Call 0x1,0x12 052d 6802 |h | Jump_Zero 0x530 052e 4800 |H | Short_Literal 0x0 052f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0530 e5ff | | Load 0x2,-0x1 0531 8250 | P | Call 0x1,0x50 0532 0217 | | Execute Heap_Access,All_Reference 0533 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0534 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0535 0000 0000 | | .XXX[0x3] 0537 0000 | | 0538 ; -------------------------------------------------------------------------------------- 0538 ; SUBPROGRAM 0538 ; -------------------------------------------------------------------------------------- 0538 053b | ; | .CONST 0x053b ; Address of begin 0539 0004 | | .CONST 0x0004 ; Address of exception handler 053a 0001 | | .CONST 0x0001 ; Number of locals 053b BODY_0538: 053b INIT_0538: 053b e5ff | | Load 0x2,-0x1 053c 8212 | | Call 0x1,0x12 053d 6802 |h | Jump_Zero 0x540 053e 481a |H | Short_Literal 0x1a 053f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0540 e5ff | | Load 0x2,-0x1 0541 8250 | P | Call 0x1,0x50 0542 0217 | | Execute Heap_Access,All_Reference 0543 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0544 824e | N | Call 0x1,0x4e 0545 0217 | | Execute Heap_Access,All_Reference 0546 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0547 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0548 ; -------------------------------------------------------------------------------------- 0548 ; SUBPROGRAM 0548 ; -------------------------------------------------------------------------------------- 0548 054b | K | .CONST 0x054b ; Address of begin 0549 0004 | | .CONST 0x0004 ; Address of exception handler 054a 0001 | | .CONST 0x0001 ; Number of locals 054b BODY_0548: 054b INIT_0548: 054b e5ff | | Load 0x2,-0x1 054c 8212 | | Call 0x1,0x12 054d 6801 |h | Jump_Zero 0x54f 054e 4504 |E | Exit_Suprogram New_Top_Offset 0x4 054f e5fe | | Load 0x2,-0x2 0550 0f00 | | Execute_Immediate Equal,0x0 0551 e5fe | | Load 0x2,-0x2 0552 0f02 | | Execute_Immediate Equal,0x2 0553 0278 | x | Execute Discrete,Or 0554 6808 |h | Jump_Zero 0x55d 0555 e5fd | | Load 0x2,-0x3 0556 e5ff | | Load 0x2,-0x1 0557 8250 | P | Call 0x1,0x50 0558 0217 | | Execute Heap_Access,All_Reference 0559 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 055a 824e | N | Call 0x1,0x4e 055b 0217 | | Execute Heap_Access,All_Reference 055c 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 055d e5fe | | Load 0x2,-0x2 055e 0f01 | | Execute_Immediate Equal,0x1 055f e5fe | | Load 0x2,-0x2 0560 0f02 | | Execute_Immediate Equal,0x2 0561 0278 | x | Execute Discrete,Or 0562 6808 |h | Jump_Zero 0x56b 0563 e5fd | | Load 0x2,-0x3 0564 e5ff | | Load 0x2,-0x1 0565 8250 | P | Call 0x1,0x50 0566 0217 | | Execute Heap_Access,All_Reference 0567 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0568 824f | O | Call 0x1,0x4f 0569 0217 | | Execute Heap_Access,All_Reference 056a 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 056b 4504 |E | Exit_Suprogram New_Top_Offset 0x4 056c 0000 0000 | | .BLANK 0000[0x4] 0570 ; -------------------------------------------------------------------------------------- 0570 ; SUBPROGRAM 0570 ; -------------------------------------------------------------------------------------- 0570 0573 | s | .CONST 0x0573 ; Address of begin 0571 0004 | | .CONST 0x0004 ; Address of exception handler 0572 0001 | | .CONST 0x0001 ; Number of locals 0573 BODY_0570: 0573 INIT_0570: 0573 e5ff | | Load 0x2,-0x1 0574 8217 | | Call 0x1,0x17 0575 6801 |h | Jump_Zero 0x577 0576 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0577 e5fe | | Load 0x2,-0x2 0578 e5ff | | Load 0x2,-0x1 0579 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 057a 0217 | | Execute Heap_Access,All_Reference 057b 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 057c 4503 |E | Exit_Suprogram New_Top_Offset 0x3 057d 0000 0000 | | .XXX[0x3] 057f 0000 | | 0580 ; -------------------------------------------------------------------------------------- 0580 ; SUBPROGRAM 0580 ; -------------------------------------------------------------------------------------- 0580 0583 | | .CONST 0x0583 ; Address of begin 0581 0004 | | .CONST 0x0004 ; Address of exception handler 0582 0001 | | .CONST 0x0001 ; Number of locals 0583 BODY_0580: 0583 INIT_0580: 0583 e5ff | | Load 0x2,-0x1 0584 8212 | | Call 0x1,0x12 0585 6802 |h | Jump_Zero 0x588 0586 4800 |H | Short_Literal 0x0 0587 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0588 e5fe | | Load 0x2,-0x2 0589 7008 |p | Jump_Nonzero 0x592 058a e5ff | | Load 0x2,-0x1 058b 8250 | P | Call 0x1,0x50 058c 0217 | | Execute Heap_Access,All_Reference 058d 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 058e 824e | N | Call 0x1,0x4e 058f 0217 | | Execute Heap_Access,All_Reference 0590 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 0591 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0592 e5fe | | Load 0x2,-0x2 0593 0f01 | | Execute_Immediate Equal,0x1 0594 6808 |h | Jump_Zero 0x59d 0595 e5ff | | Load 0x2,-0x1 0596 8250 | P | Call 0x1,0x50 0597 0217 | | Execute Heap_Access,All_Reference 0598 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0599 824f | O | Call 0x1,0x4f 059a 0217 | | Execute Heap_Access,All_Reference 059b 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 059c 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 059d 4800 |H | Short_Literal 0x0 059e 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 059f 0000 | | .XXX[0x1] 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 e5ff | | Load 0x2,-0x1 05a4 8217 | | Call 0x1,0x17 05a5 6802 |h | Jump_Zero 0x5a8 05a6 4800 |H | Short_Literal 0x0 05a7 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 05a8 e5ff | | Load 0x2,-0x1 05a9 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 05aa 0217 | | Execute Heap_Access,All_Reference 05ab 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 05ac 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 05ad 0000 0000 | | .XXX[0x3] 05af 0000 | | 05b0 ; -------------------------------------------------------------------------------------- 05b0 ; SUBPROGRAM 05b0 ; -------------------------------------------------------------------------------------- 05b0 05b4 | | .CONST 0x05b4 ; Address of begin 05b1 0004 | | .CONST 0x0004 ; Address of exception handler 05b2 0002 | | .CONST 0x0002 ; Number of locals 05b3 INIT_05b0: 05b3 00e3 | | Load_Encached Natural_Cache 05b4 BODY_05b0: 05b4 4800 |H | Short_Literal 0x0 05b5 e5ff | | Load 0x2,-0x1 05b6 482e |H. | Short_Literal 0x2e 05b7 e01b | | Load 0x0,0x1b 05b8 1820 | | Execute Package,Field_Execute,Field_Number 0x20 05b9 a402 | | Store_Unchecked 0x2,0x2 05ba 00d8 | | Load_Top At_Offset_0 05bb 6809 |h | Jump_Zero 0x5c5 05bc e5ff | | Load 0x2,-0x1 05bd 01dd | | Execute Vector,First 05be e402 | | Load 0x2,0x2 05bf 0aff | | Execute_Immediate Plus,-0x1 05c0 0248 | H | Execute Discrete,Check_In_Integer 05c1 e5ff | | Load 0x2,-0x1 05c2 01cf | | Execute Vector,Slice_Read 05c3 0335 | 5 | Declare_Variable Array,Duplicate 05c4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 05c5 00ea | | Load_Encached Null_String_Cache 05c6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 05c7 0000 | | .XXX[0x1] 05c8 ; -------------------------------------------------------------------------------------- 05c8 ; SUBPROGRAM 05c8 ; -------------------------------------------------------------------------------------- 05c8 05cc | | .CONST 0x05cc ; Address of begin 05c9 0004 | | .CONST 0x0004 ; Address of exception handler 05ca 0002 | | .CONST 0x0002 ; Number of locals 05cb INIT_05c8: 05cb 00e3 | | Load_Encached Natural_Cache 05cc BODY_05c8: 05cc 4800 |H | Short_Literal 0x0 05cd e5ff | | Load 0x2,-0x1 05ce 482e |H. | Short_Literal 0x2e 05cf e01b | | Load 0x0,0x1b 05d0 1820 | | Execute Package,Field_Execute,Field_Number 0x20 05d1 a402 | | Store_Unchecked 0x2,0x2 05d2 00d8 | | Load_Top At_Offset_0 05d3 6809 |h | Jump_Zero 0x5dd 05d4 00d8 | | Load_Top At_Offset_0 05d5 0a01 | | Execute_Immediate Plus,0x1 05d6 0248 | H | Execute Discrete,Check_In_Integer 05d7 e5ff | | Load 0x2,-0x1 05d8 01dc | | Execute Vector,Last 05d9 e5ff | | Load 0x2,-0x1 05da 01cf | | Execute Vector,Slice_Read 05db 0335 | 5 | Declare_Variable Array,Duplicate 05dc 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 05dd e5ff | | Load 0x2,-0x1 05de 0335 | 5 | Declare_Variable Array,Duplicate 05df 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 05e0 ; -------------------------------------------------------------------------------------- 05e0 ; SUBPROGRAM 05e0 ; -------------------------------------------------------------------------------------- 05e0 05e3 | | .CONST 0x05e3 ; Address of begin 05e1 0004 | | .CONST 0x0004 ; Address of exception handler 05e2 0001 | | .CONST 0x0001 ; Number of locals 05e3 BODY_05e0: 05e3 INIT_05e0: 05e3 e5ff | | Load 0x2,-0x1 05e4 8217 | | Call 0x1,0x17 05e5 6802 |h | Jump_Zero 0x5e8 05e6 00ea | | Load_Encached Null_String_Cache 05e7 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 05e8 e5ff | | Load 0x2,-0x1 05e9 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 05ea 0217 | | Execute Heap_Access,All_Reference 05eb 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 05ec e001 | | Load 0x0,0x1 05ed 1818 | | Execute Package,Field_Execute,Field_Number 0x18 05ee 822e | . | Call 0x1,0x2e 05ef 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 05f0 ; -------------------------------------------------------------------------------------- 05f0 ; SUBPROGRAM 05f0 ; -------------------------------------------------------------------------------------- 05f0 05f3 | | .CONST 0x05f3 ; Address of begin 05f1 0004 | | .CONST 0x0004 ; Address of exception handler 05f2 0001 | | .CONST 0x0001 ; Number of locals 05f3 BODY_05f0: 05f3 INIT_05f0: 05f3 e5ff | | Load 0x2,-0x1 05f4 8217 | | Call 0x1,0x17 05f5 6802 |h | Jump_Zero 0x5f8 05f6 00ea | | Load_Encached Null_String_Cache 05f7 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 05f8 e5ff | | Load 0x2,-0x1 05f9 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 05fa 0217 | | Execute Heap_Access,All_Reference 05fb 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 05fc e001 | | Load 0x0,0x1 05fd 1818 | | Execute Package,Field_Execute,Field_Number 0x18 05fe 822d | - | Call 0x1,0x2d 05ff 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0600 ; -------------------------------------------------------------------------------------- 0600 ; SUBPROGRAM 0600 ; -------------------------------------------------------------------------------------- 0600 0603 | | .CONST 0x0603 ; Address of begin 0601 0004 | | .CONST 0x0004 ; Address of exception handler 0602 0001 | | .CONST 0x0001 ; Number of locals 0603 BODY_0600: 0603 INIT_0600: 0603 e5ff | | Load 0x2,-0x1 0604 8217 | | Call 0x1,0x17 0605 6802 |h | Jump_Zero 0x608 0606 4800 |H | Short_Literal 0x0 0607 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0608 e5ff | | Load 0x2,-0x1 0609 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 060a 0217 | | Execute Heap_Access,All_Reference 060b 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 060c e001 | | Load 0x0,0x1 060d 1819 | | Execute Package,Field_Execute,Field_Number 0x19 060e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 060f 0000 | | .XXX[0x1] 0610 ; -------------------------------------------------------------------------------------- 0610 ; SUBPROGRAM 0610 ; -------------------------------------------------------------------------------------- 0610 0615 | | .CONST 0x0615 ; Address of begin 0611 0004 | | .CONST 0x0004 ; Address of exception handler 0612 0002 | | .CONST 0x0002 ; Number of locals 0613 INIT_0610: 0613 e215 | | Load 0x1,0x15 0614 0322 | " | Declare_Variable Record 0615 BODY_0610: 0615 e5ff | | Load 0x2,-0x1 0616 8212 | | Call 0x1,0x12 0617 6802 |h | Jump_Zero 0x61a 0618 8216 | | Call 0x1,0x16 0619 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 061a e5fe | | Load 0x2,-0x2 061b 7010 |p | Jump_Nonzero 0x62c 061c e215 | | Load 0x1,0x15 061d 0322 | " | Declare_Variable Record 061e e5ff | | Load 0x2,-0x1 061f 8250 | P | Call 0x1,0x50 0620 0217 | | Execute Heap_Access,All_Reference 0621 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0622 824e | N | Call 0x1,0x4e 0623 e403 | | Load 0x2,0x3 0624 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0625 e5ff | | Load 0x2,-0x1 0626 8250 | P | Call 0x1,0x50 0627 0217 | | Execute Heap_Access,All_Reference 0628 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0629 e403 | | Load 0x2,0x3 062a 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 062b 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 062c e5fe | | Load 0x2,-0x2 062d 0f01 | | Execute_Immediate Equal,0x1 062e 6810 |h | Jump_Zero 0x63f 062f e215 | | Load 0x1,0x15 0630 0322 | " | Declare_Variable Record 0631 e5ff | | Load 0x2,-0x1 0632 8250 | P | Call 0x1,0x50 0633 0217 | | Execute Heap_Access,All_Reference 0634 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0635 824f | O | Call 0x1,0x4f 0636 e403 | | Load 0x2,0x3 0637 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0638 e5ff | | Load 0x2,-0x1 0639 8250 | P | Call 0x1,0x50 063a 0217 | | Execute Heap_Access,All_Reference 063b 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 063c e403 | | Load 0x2,0x3 063d 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 063e 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 063f 8216 | | Call 0x1,0x16 0640 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0641 0000 0000 | | .BLANK 0000[0x7] 0648 ; -------------------------------------------------------------------------------------- 0648 ; SUBPROGRAM 0648 ; -------------------------------------------------------------------------------------- 0648 064d | M | .CONST 0x064d ; Address of begin 0649 0004 | | .CONST 0x0004 ; Address of exception handler 064a 0002 | | .CONST 0x0002 ; Number of locals 064b INIT_0648: 064b 029f 0c2b | +| Declare_Subprogram INIT_0c28,For_Call 064d BODY_0648: 064d e5ff | | Load 0x2,-0x1 064e 8217 | | Call 0x1,0x17 064f 6802 |h | Jump_Zero 0x652 0650 00ea | | Load_Encached Null_String_Cache 0651 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0652 8402 | | Call 0x2,0x2 0653 4831 |H1 | Short_Literal 0x31 0654 0257 | W | Execute Discrete,Raise 0655 0000 0000 | | .XXX[0x3] 0657 0000 | | 0658 ; -------------------------------------------------------------------------------------- 0658 ; SUBPROGRAM 0658 ; -------------------------------------------------------------------------------------- 0658 065b | [ | .CONST 0x065b ; Address of begin 0659 0004 | | .CONST 0x0004 ; Address of exception handler 065a 0001 | | .CONST 0x0001 ; Number of locals 065b BODY_0658: 065b INIT_0658: 065b e5ff | | Load 0x2,-0x1 065c 8217 | | Call 0x1,0x17 065d 6802 |h | Jump_Zero 0x660 065e 00ea | | Load_Encached Null_String_Cache 065f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0660 e5ff | | Load 0x2,-0x1 0661 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0662 0217 | | Execute Heap_Access,All_Reference 0663 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0664 e001 | | Load 0x0,0x1 0665 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0666 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0667 0000 | | .XXX[0x1] 0668 ; -------------------------------------------------------------------------------------- 0668 ; SUBPROGRAM 0668 ; -------------------------------------------------------------------------------------- 0668 066b | k | .CONST 0x066b ; Address of begin 0669 0004 | | .CONST 0x0004 ; Address of exception handler 066a 0001 | | .CONST 0x0001 ; Number of locals 066b BODY_0668: 066b INIT_0668: 066b e5ff | | Load 0x2,-0x1 066c 8217 | | Call 0x1,0x17 066d 6802 |h | Jump_Zero 0x670 066e 6269 |bi | Indirect_Literal Discrete,0x8d8,{0x00000000, 0x7fffffff} 066f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0670 e5ff | | Load 0x2,-0x1 0671 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0672 00e4 | | Load_Encached Positive_Cache 0673 025b | [ | Execute Discrete,Check_In_Type 0674 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0675 0000 0000 | | .XXX[0x3] 0677 0000 | | 0678 ; -------------------------------------------------------------------------------------- 0678 ; SUBPROGRAM 0678 ; -------------------------------------------------------------------------------------- 0678 067b | { | .CONST 0x067b ; Address of begin 0679 0004 | | .CONST 0x0004 ; Address of exception handler 067a 0001 | | .CONST 0x0001 ; Number of locals 067b BODY_0678: 067b INIT_0678: 067b e5ff | | Load 0x2,-0x1 067c 8217 | | Call 0x1,0x17 067d 6802 |h | Jump_Zero 0x680 067e 00ea | | Load_Encached Null_String_Cache 067f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0680 e5ff | | Load 0x2,-0x1 0681 8230 | 0 | Call 0x1,0x30 0682 822e | . | Call 0x1,0x2e 0683 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0684 0000 0000 | | .BLANK 0000[0x4] 0688 ; -------------------------------------------------------------------------------------- 0688 ; SUBPROGRAM 0688 ; -------------------------------------------------------------------------------------- 0688 068b | | .CONST 0x068b ; Address of begin 0689 0004 | | .CONST 0x0004 ; Address of exception handler 068a 0001 | | .CONST 0x0001 ; Number of locals 068b BODY_0688: 068b INIT_0688: 068b 4603 |F | Jump_Case 0x4 068c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 068d 7802 |x | Jump 0x690 ; case 0x1 068e 7805 |x | Jump 0x694 ; case 0x2 068f 7809 |x | Jump 0x699 ; case 0x3 0690 e5ff | | Load 0x2,-0x1 0691 0091 0f36 | 6| Action Push_String_Extended_Indexed,0xf36 ; "START" 0693 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0694 e5fe | | Load 0x2,-0x2 0695 e5ff | | Load 0x2,-0x1 0696 00e0 | | Load_Encached Standard_Cache 0697 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0698 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0699 e5ff | | Load 0x2,-0x1 069a 00e0 | | Load_Encached Standard_Cache 069b 181c | | Execute Package,Field_Execute,Field_Number 0x1c 069c 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 069d 0000 0000 | | .XXX[0x3] 069f 0000 | | 06a0 ; -------------------------------------------------------------------------------------- 06a0 ; SUBPROGRAM 06a0 ; -------------------------------------------------------------------------------------- 06a0 06a4 | | .CONST 0x06a4 ; Address of begin 06a1 0004 | | .CONST 0x0004 ; Address of exception handler 06a2 0002 | | .CONST 0x0002 ; Number of locals 06a3 INIT_06a0: 06a3 00e1 | | Load_Encached Boolean_Cache 06a4 BODY_06a0: 06a4 e5fb | | Load 0x2,-0x5 06a5 4800 |H | Short_Literal 0x0 06a6 85fc | | Call 0x2,-0x4 06a7 c5fb | | Store 0x2,-0x5 06a8 00cf | | Action Mark_Auxiliary 06a9 e251 | Q | Load 0x1,0x51 06aa 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 06ab 4801 |H | Short_Literal 0x1 06ac 0263 | c | Execute Discrete,Above_Bound 06ad 700e |p | Jump_Nonzero 0x6bc 06ae 00e1 | | Load_Encached Boolean_Cache 06af e5fb | | Load 0x2,-0x5 06b0 e405 | | Load 0x2,0x5 06b1 85fd | | Call 0x2,-0x3 06b2 c5fb | | Store 0x2,-0x5 06b3 c402 | | Store 0x2,0x2 06b4 e402 | | Load 0x2,0x2 06b5 6804 |h | Jump_Zero 0x6ba 06b6 e5fb | | Load 0x2,-0x5 06b7 e405 | | Load 0x2,0x5 06b8 85fe | | Call 0x2,-0x2 06b9 c5fb | | Store 0x2,-0x5 06ba 00c8 | | Action Pop_Auxiliary_Range 06bb 3ff2 |? | Loop_Increasing 0x6ae 06bc 00ce | | Action Pop_Auxiliary 06bd e5fb | | Load 0x2,-0x5 06be 4801 |H | Short_Literal 0x1 06bf 85fc | | Call 0x2,-0x4 06c0 c5fb | | Store 0x2,-0x5 06c1 4505 |E | Exit_Suprogram New_Top_Offset 0x5 06c2 0000 0000 | | .BLANK 0000[0x6] 06c8 ; -------------------------------------------------------------------------------------- 06c8 ; SUBPROGRAM 06c8 ; -------------------------------------------------------------------------------------- 06c8 06cc | | .CONST 0x06cc ; Address of begin 06c9 0004 | | .CONST 0x0004 ; Address of exception handler 06ca 0002 | | .CONST 0x0002 ; Number of locals 06cb INIT_06c8: 06cb 00e1 | | Load_Encached Boolean_Cache 06cc BODY_06c8: 06cc e5fa | | Load 0x2,-0x6 06cd 4800 |H | Short_Literal 0x0 06ce 85fc | | Call 0x2,-0x4 06cf c5fa | | Store 0x2,-0x6 06d0 e5fb | | Load 0x2,-0x5 06d1 0f01 | | Execute_Immediate Equal,0x1 06d2 6826 |h& | Jump_Zero 0x6f9 06d3 00cf | | Action Mark_Auxiliary 06d4 e251 | Q | Load 0x1,0x51 06d5 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 06d6 4801 |H | Short_Literal 0x1 06d7 0263 | c | Execute Discrete,Above_Bound 06d8 701e |p | Jump_Nonzero 0x6f7 06d9 00e1 | | Load_Encached Boolean_Cache 06da e5fa | | Load 0x2,-0x6 06db e215 | | Load 0x1,0x15 06dc 0322 | " | Declare_Variable Record 06dd e405 | | Load 0x2,0x5 06de 824f | O | Call 0x1,0x4f 06df e408 | | Load 0x2,0x8 06e0 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 06e1 e405 | | Load 0x2,0x5 06e2 e408 | | Load 0x2,0x8 06e3 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 06e4 85fd | | Call 0x2,-0x3 06e5 c5fa | | Store 0x2,-0x6 06e6 c402 | | Store 0x2,0x2 06e7 e402 | | Load 0x2,0x2 06e8 680c |h | Jump_Zero 0x6f5 06e9 e5fa | | Load 0x2,-0x6 06ea e215 | | Load 0x1,0x15 06eb 0322 | " | Declare_Variable Record 06ec e405 | | Load 0x2,0x5 06ed 824f | O | Call 0x1,0x4f 06ee e407 | | Load 0x2,0x7 06ef 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 06f0 e405 | | Load 0x2,0x5 06f1 e407 | | Load 0x2,0x7 06f2 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 06f3 85fe | | Call 0x2,-0x2 06f4 c5fa | | Store 0x2,-0x6 06f5 00c8 | | Action Pop_Auxiliary_Range 06f6 3fe2 |? | Loop_Increasing 0x6d9 06f7 00ce | | Action Pop_Auxiliary 06f8 7827 |x' | Jump 0x720 06f9 e5fb | | Load 0x2,-0x5 06fa 7025 |p% | Jump_Nonzero 0x720 06fb 00cf | | Action Mark_Auxiliary 06fc e251 | Q | Load 0x1,0x51 06fd 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 06fe 4801 |H | Short_Literal 0x1 06ff 0263 | c | Execute Discrete,Above_Bound 0700 701e |p | Jump_Nonzero 0x71f 0701 00e1 | | Load_Encached Boolean_Cache 0702 e5fa | | Load 0x2,-0x6 0703 e215 | | Load 0x1,0x15 0704 0322 | " | Declare_Variable Record 0705 e405 | | Load 0x2,0x5 0706 824e | N | Call 0x1,0x4e 0707 e408 | | Load 0x2,0x8 0708 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0709 e405 | | Load 0x2,0x5 070a e408 | | Load 0x2,0x8 070b 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 070c 85fd | | Call 0x2,-0x3 070d c5fa | | Store 0x2,-0x6 070e c402 | | Store 0x2,0x2 070f e402 | | Load 0x2,0x2 0710 680c |h | Jump_Zero 0x71d 0711 e5fa | | Load 0x2,-0x6 0712 e215 | | Load 0x1,0x15 0713 0322 | " | Declare_Variable Record 0714 e405 | | Load 0x2,0x5 0715 824e | N | Call 0x1,0x4e 0716 e407 | | Load 0x2,0x7 0717 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0718 e405 | | Load 0x2,0x5 0719 e407 | | Load 0x2,0x7 071a 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 071b 85fe | | Call 0x2,-0x2 071c c5fa | | Store 0x2,-0x6 071d 00c8 | | Action Pop_Auxiliary_Range 071e 3fe2 |? | Loop_Increasing 0x701 071f 00ce | | Action Pop_Auxiliary 0720 e5fa | | Load 0x2,-0x6 0721 4801 |H | Short_Literal 0x1 0722 85fc | | Call 0x2,-0x4 0723 c5fa | | Store 0x2,-0x6 0724 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0725 0000 0000 | | .XXX[0x3] 0727 0000 | | 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 4801 |H | Short_Literal 0x1 072c a5ff | | Store_Unchecked 0x2,-0x1 072d 4501 |E | Exit_Suprogram New_Top_Offset 0x1 072e 0000 0000 | | .XXX[0x2] 0730 ; -------------------------------------------------------------------------------------- 0730 ; SUBPROGRAM 0730 ; -------------------------------------------------------------------------------------- 0730 0733 | 3 | .CONST 0x0733 ; Address of begin 0731 0004 | | .CONST 0x0004 ; Address of exception handler 0732 0001 | | .CONST 0x0001 ; Number of locals 0733 BODY_0730: 0733 INIT_0730: 0733 e5ff | | Load 0x2,-0x1 0734 0a01 | | Execute_Immediate Plus,0x1 0735 c5ff | | Store 0x2,-0x1 0736 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0737 0000 | | .XXX[0x1] 0738 ; -------------------------------------------------------------------------------------- 0738 ; SUBPROGRAM 0738 ; -------------------------------------------------------------------------------------- 0738 073b | ; | .CONST 0x073b ; Address of begin 0739 0004 | | .CONST 0x0004 ; Address of exception handler 073a 0001 | | .CONST 0x0001 ; Number of locals 073b BODY_0738: 073b INIT_0738: 073b e5ff | | Load 0x2,-0x1 073c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 073d 0000 0000 | | .XXX[0x3] 073f 0000 | | 0740 ; -------------------------------------------------------------------------------------- 0740 ; SUBPROGRAM 0740 ; -------------------------------------------------------------------------------------- 0740 0743 | C | .CONST 0x0743 ; Address of begin 0741 0004 | | .CONST 0x0004 ; Address of exception handler 0742 0001 | | .CONST 0x0001 ; Number of locals 0743 BODY_0740: 0743 INIT_0740: 0743 e5ff | | Load 0x2,-0x1 0744 e251 | Q | Load 0x1,0x51 0745 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0746 027d | } | Execute Discrete,Greater 0747 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0748 ; -------------------------------------------------------------------------------------- 0748 ; SUBPROGRAM 0748 ; -------------------------------------------------------------------------------------- 0748 074b | K | .CONST 0x074b ; Address of begin 0749 0004 | | .CONST 0x0004 ; Address of exception handler 074a 0001 | | .CONST 0x0001 ; Number of locals 074b BODY_0748: 074b INIT_0748: 074b 4608 |F | Jump_Case 0x9 074c 7808 |x | Jump 0x755 ; case 0x0 074d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 074e 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x2 074f 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x3 0750 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x4 0751 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x5 0752 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x6 0753 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x7 0754 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x8 0755 4800 |H | Short_Literal 0x0 0756 e5ff | | Load 0x2,-0x1 0757 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0758 481a |H | Short_Literal 0x1a 0759 e5ff | | Load 0x2,-0x1 075a 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 075b 00eb | | Load_Encached Diana_Cache 075c 1812 | | Execute Package,Field_Execute,Field_Number 0x12 075d e5ff | | Load 0x2,-0x1 075e 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 075f 4800 |H | Short_Literal 0x0 0760 e5ff | | Load 0x2,-0x1 0761 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 0762 4806 |H | Short_Literal 0x6 0763 e5ff | | Load 0x2,-0x1 0764 3805 |8 | Execute Record,Field_Write,Field_Number 0x5 0765 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0766 0000 0000 | | .XXX[0x2] 0768 ; -------------------------------------------------------------------------------------- 0768 ; SUBPROGRAM 0768 ; -------------------------------------------------------------------------------------- 0768 0776 | v | .CONST 0x0776 ; Address of begin 0769 07ac | | .CONST 0x07ac ; Address of exception handler 076a 0006 | | .CONST 0x0006 ; Number of locals 076b INIT_0768: 076b 00ec | | Load_Encached Diana_Tree_Cache 076c e002 | | Load 0x0,0x2 076d 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 076e e00e | | Load 0x0,0xe 076f 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0770 02c7 | | Declare_Variable Any 0771 00d8 | | Load_Top At_Offset_0 0772 1c00 | | Execute_Immediate Run_Utility,0x0 0773 00e1 | | Load_Encached Boolean_Cache 0774 029f 0c43 | C| Declare_Subprogram INIT_0c40,For_Call 0776 BODY_0768: 0776 e5ff | | Load 0x2,-0x1 0777 8212 | | Call 0x1,0x12 0778 6802 |h | Jump_Zero 0x77b 0779 4800 |H | Short_Literal 0x0 077a 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 077b e5fe | | Load 0x2,-0x2 077c 7009 |p | Jump_Nonzero 0x786 077d e5ff | | Load 0x2,-0x1 077e 8250 | P | Call 0x1,0x50 077f 0217 | | Execute Heap_Access,All_Reference 0780 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0781 824e | N | Call 0x1,0x4e 0782 0217 | | Execute Heap_Access,All_Reference 0783 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0784 a402 | | Store_Unchecked 0x2,0x2 0785 780b |x | Jump 0x791 0786 e5fe | | Load 0x2,-0x2 0787 0f01 | | Execute_Immediate Equal,0x1 0788 6806 |h | Jump_Zero 0x78f 0789 e5ff | | Load 0x2,-0x1 078a 8250 | P | Call 0x1,0x50 078b 0217 | | Execute Heap_Access,All_Reference 078c 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 078d a402 | | Store_Unchecked 0x2,0x2 078e 7802 |x | Jump 0x791 078f 4800 |H | Short_Literal 0x0 0790 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0791 e402 | | Load 0x2,0x2 0792 00eb | | Load_Encached Diana_Cache 0793 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0794 021f | | Execute Heap_Access,Equal 0795 7014 |p | Jump_Nonzero 0x7aa 0796 e402 | | Load 0x2,0x2 0797 00eb | | Load_Encached Diana_Cache 0798 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0799 a403 | | Store_Unchecked 0x2,0x3 079a 00e1 | | Load_Encached Boolean_Cache 079b e404 | | Load 0x2,0x4 079c e403 | | Load 0x2,0x3 079d e24d | M | Load 0x1,0x4d 079e e24b | K | Load 0x1,0x4b 079f 1817 | | Execute Package,Field_Execute,Field_Number 0x17 07a0 c404 | | Store 0x2,0x4 07a1 c405 | | Store 0x2,0x5 07a2 e405 | | Load 0x2,0x5 07a3 7001 |p | Jump_Nonzero 0x7a5 07a4 8406 | | Call 0x2,0x6 07a5 e404 | | Load 0x2,0x4 07a6 e402 | | Load 0x2,0x2 07a7 e00e | | Load 0x0,0xe 07a8 181a | | Execute Package,Field_Execute,Field_Number 0x1a 07a9 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 07aa 4800 |H | Short_Literal 0x0 07ab 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 07ac TRAP_0768: 07ac 0007 | | Action Break_Optional 07ad 4800 |H | Short_Literal 0x0 07ae 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 07af 0000 | | .XXX[0x1] 07b0 ; -------------------------------------------------------------------------------------- 07b0 ; SUBPROGRAM 07b0 ; -------------------------------------------------------------------------------------- 07b0 07b3 | | .CONST 0x07b3 ; Address of begin 07b1 0004 | | .CONST 0x0004 ; Address of exception handler 07b2 0001 | | .CONST 0x0001 ; Number of locals 07b3 BODY_07b0: 07b3 INIT_07b0: 07b3 e7ff | | Load 0x3,-0x1 07b4 0b19 | | Execute_Immediate Case_Compare,0x19 07b5 7036 |p6 | Jump_Nonzero 0x7ec 07b6 0b1d | | Execute_Immediate Case_Compare,0x1d 07b7 7036 |p6 | Jump_Nonzero 0x7ee 07b8 0b33 | 3 | Execute_Immediate Case_Compare,0x33 07b9 7036 |p6 | Jump_Nonzero 0x7f0 07ba 0b1e | | Execute_Immediate Case_Compare,0x1e 07bb 7036 |p6 | Jump_Nonzero 0x7f2 07bc 0b1f | | Execute_Immediate Case_Compare,0x1f 07bd 7036 |p6 | Jump_Nonzero 0x7f4 07be 0b31 | 1 | Execute_Immediate Case_Compare,0x31 07bf 7036 |p6 | Jump_Nonzero 0x7f6 07c0 0b20 | | Execute_Immediate Case_Compare,0x20 07c1 7036 |p6 | Jump_Nonzero 0x7f8 07c2 0b21 | ! | Execute_Immediate Case_Compare,0x21 07c3 7036 |p6 | Jump_Nonzero 0x7fa 07c4 0b22 | " | Execute_Immediate Case_Compare,0x22 07c5 7036 |p6 | Jump_Nonzero 0x7fc 07c6 0b23 | # | Execute_Immediate Case_Compare,0x23 07c7 7036 |p6 | Jump_Nonzero 0x7fe 07c8 0b24 | $ | Execute_Immediate Case_Compare,0x24 07c9 7036 |p6 | Jump_Nonzero 0x800 07ca 0b26 | & | Execute_Immediate Case_Compare,0x26 07cb 7036 |p6 | Jump_Nonzero 0x802 07cc 0b27 | ' | Execute_Immediate Case_Compare,0x27 07cd 7036 |p6 | Jump_Nonzero 0x804 07ce 0b2b | + | Execute_Immediate Case_Compare,0x2b 07cf 7036 |p6 | Jump_Nonzero 0x806 07d0 0b59 | Y | Execute_Immediate Case_Compare,0x59 07d1 7036 |p6 | Jump_Nonzero 0x808 07d2 0b28 | ( | Execute_Immediate Case_Compare,0x28 07d3 7036 |p6 | Jump_Nonzero 0x80a 07d4 0b25 | % | Execute_Immediate Case_Compare,0x25 07d5 7036 |p6 | Jump_Nonzero 0x80c 07d6 0b29 | ) | Execute_Immediate Case_Compare,0x29 07d7 7036 |p6 | Jump_Nonzero 0x80e 07d8 0b1a | | Execute_Immediate Case_Compare,0x1a 07d9 7036 |p6 | Jump_Nonzero 0x810 07da 0b1b | | Execute_Immediate Case_Compare,0x1b 07db 7036 |p6 | Jump_Nonzero 0x812 07dc 0b2a | * | Execute_Immediate Case_Compare,0x2a 07dd 7036 |p6 | Jump_Nonzero 0x814 07de 0b2c | , | Execute_Immediate Case_Compare,0x2c 07df 7036 |p6 | Jump_Nonzero 0x816 07e0 0b1c | | Execute_Immediate Case_Compare,0x1c 07e1 7036 |p6 | Jump_Nonzero 0x818 07e2 0b2d | - | Execute_Immediate Case_Compare,0x2d 07e3 7036 |p6 | Jump_Nonzero 0x81a 07e4 0b2e | . | Execute_Immediate Case_Compare,0x2e 07e5 7036 |p6 | Jump_Nonzero 0x81c 07e6 0b2f | / | Execute_Immediate Case_Compare,0x2f 07e7 7036 |p6 | Jump_Nonzero 0x81e 07e8 0b30 | 0 | Execute_Immediate Case_Compare,0x30 07e9 7036 |p6 | Jump_Nonzero 0x820 07ea 481a |H | Short_Literal 0x1a 07eb 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 07ec 4800 |H | Short_Literal 0x0 07ed 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 07ee 4801 |H | Short_Literal 0x1 07ef 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 07f0 4806 |H | Short_Literal 0x6 07f1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 07f2 4802 |H | Short_Literal 0x2 07f3 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 07f4 4803 |H | Short_Literal 0x3 07f5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 07f6 4804 |H | Short_Literal 0x4 07f7 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 07f8 4805 |H | Short_Literal 0x5 07f9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 07fa 4806 |H | Short_Literal 0x6 07fb 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 07fc 4807 |H | Short_Literal 0x7 07fd 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 07fe 4808 |H | Short_Literal 0x8 07ff 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0800 4809 |H | Short_Literal 0x9 0801 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0802 480a |H | Short_Literal 0xa 0803 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0804 480b |H | Short_Literal 0xb 0805 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0806 480c |H | Short_Literal 0xc 0807 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0808 480d |H | Short_Literal 0xd 0809 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 080a 480e |H | Short_Literal 0xe 080b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 080c 480f |H | Short_Literal 0xf 080d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 080e 4810 |H | Short_Literal 0x10 080f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0810 4811 |H | Short_Literal 0x11 0811 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0812 4812 |H | Short_Literal 0x12 0813 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0814 4813 |H | Short_Literal 0x13 0815 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0816 4814 |H | Short_Literal 0x14 0817 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0818 4815 |H | Short_Literal 0x15 0819 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 081a 4816 |H | Short_Literal 0x16 081b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 081c 4817 |H | Short_Literal 0x17 081d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 081e 4818 |H | Short_Literal 0x18 081f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0820 4819 |H | Short_Literal 0x19 0821 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0822 0000 0000 | | .BLANK 0000[0x6] 0828 ; -------------------------------------------------------------------------------------- 0828 ; SUBPROGRAM 0828 ; -------------------------------------------------------------------------------------- 0828 0833 | 3 | .CONST 0x0833 ; Address of begin 0829 0004 | | .CONST 0x0004 ; Address of exception handler 082a 0006 | | .CONST 0x0006 ; Number of locals 082b INIT_0828: 082b 00ec | | Load_Encached Diana_Tree_Cache 082c e7ff | | Load 0x3,-0x1 082d c602 | | Store 0x3,0x2 082e 00ec | | Load_Encached Diana_Tree_Cache 082f 00ec | | Load_Encached Diana_Tree_Cache 0830 00e1 | | Load_Encached Boolean_Cache 0831 e014 | | Load 0x0,0x14 0832 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0833 BODY_0828: 0833 e014 | | Load 0x0,0x14 0834 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0835 e014 | | Load 0x0,0x14 0836 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 0837 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0838 e7ff | | Load 0x3,-0x1 0839 e014 | | Load 0x0,0x14 083a 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 083b 181a | | Execute Package,Field_Execute,Field_Number 0x1a 083c c603 | | Store 0x3,0x3 083d c606 | | Store 0x3,0x6 083e 00d8 | | Load_Top At_Offset_0 083f 6802 |h | Jump_Zero 0x842 0840 4806 |H | Short_Literal 0x6 0841 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0842 e603 | | Load 0x3,0x3 0843 00eb | | Load_Encached Diana_Cache 0844 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0845 0fa8 | | Execute_Immediate Equal,-0x58 0846 6821 |h! | Jump_Zero 0x868 0847 e603 | | Load 0x3,0x3 0848 00eb | | Load_Encached Diana_Cache 0849 18e9 | | Execute Package,Field_Execute,Field_Number 0xe9 084a 00eb | | Load_Encached Diana_Cache 084b 1814 | | Execute Package,Field_Execute,Field_Number 0x14 084c 0b3d | = | Execute_Immediate Case_Compare,0x3d 084d 700e |p | Jump_Nonzero 0x85c 084e 0b3e | > | Execute_Immediate Case_Compare,0x3e 084f 700e |p | Jump_Nonzero 0x85e 0850 0b41 | A | Execute_Immediate Case_Compare,0x41 0851 700c |p | Jump_Nonzero 0x85e 0852 0b47 | G | Execute_Immediate Case_Compare,0x47 0853 700d |p | Jump_Nonzero 0x861 0854 0b48 | H | Execute_Immediate Case_Compare,0x48 0855 700b |p | Jump_Nonzero 0x861 0856 0b49 | I | Execute_Immediate Case_Compare,0x49 0857 7009 |p | Jump_Nonzero 0x861 0858 0b00 | | Execute_Immediate Case_Compare,0x0 0859 700a |p | Jump_Nonzero 0x864 085a 48e2 |H | Short_Literal 0xe2 085b 0257 | W | Execute Discrete,Raise 085c 4800 |H | Short_Literal 0x0 085d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 085e 4801 |H | Short_Literal 0x1 085f a605 | | Store_Unchecked 0x3,0x5 0860 7805 |x | Jump 0x866 0861 4800 |H | Short_Literal 0x0 0862 a605 | | Store_Unchecked 0x3,0x5 0863 7802 |x | Jump 0x866 0864 4806 |H | Short_Literal 0x6 0865 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0866 00d1 | | Pop_Control Pop_Count_1 0867 7802 |x | Jump 0x86a 0868 4800 |H | Short_Literal 0x0 0869 a605 | | Store_Unchecked 0x3,0x5 086a 00cf | | Action Mark_Auxiliary 086b 0007 | | Action Break_Optional 086c e602 | | Load 0x3,0x2 086d a604 | | Store_Unchecked 0x3,0x4 086e e602 | | Load 0x3,0x2 086f 00eb | | Load_Encached Diana_Cache 0870 18ec | | Execute Package,Field_Execute,Field_Number 0xec 0871 a602 | | Store_Unchecked 0x3,0x2 0872 e602 | | Load 0x3,0x2 0873 00eb | | Load_Encached Diana_Cache 0874 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0875 0b3e | > | Execute_Immediate Case_Compare,0x3e 0876 700f |p | Jump_Nonzero 0x886 0877 0b7c | | | Execute_Immediate Case_Compare,0x7c 0878 7013 |p | Jump_Nonzero 0x88c 0879 0b47 | G | Execute_Immediate Case_Compare,0x47 087a 7023 |p# | Jump_Nonzero 0x89e 087b 0b48 | H | Execute_Immediate Case_Compare,0x48 087c 7023 |p# | Jump_Nonzero 0x8a0 087d 0b00 | | Execute_Immediate Case_Compare,0x0 087e 7023 |p# | Jump_Nonzero 0x8a2 087f 0b7b | { | Execute_Immediate Case_Compare,0x7b 0880 7027 |p' | Jump_Nonzero 0x8a8 0881 0b7a | z | Execute_Immediate Case_Compare,0x7a 0882 7025 |p% | Jump_Nonzero 0x8a8 0883 0b41 | A | Execute_Immediate Case_Compare,0x41 0884 7025 |p% | Jump_Nonzero 0x8aa 0885 784e |xN | Jump 0x8d4 0886 e605 | | Load 0x3,0x5 0887 6802 |h | Jump_Zero 0x88a 0888 4801 |H | Short_Literal 0x1 0889 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 088a 4803 |H | Short_Literal 0x3 088b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 088c e602 | | Load 0x3,0x2 088d 00eb | | Load_Encached Diana_Cache 088e 18bd | | Execute Package,Field_Execute,Field_Number 0xbd 088f e604 | | Load 0x3,0x4 0890 021f | | Execute Heap_Access,Equal 0891 6806 |h | Jump_Zero 0x898 0892 e605 | | Load 0x3,0x5 0893 6802 |h | Jump_Zero 0x896 0894 4801 |H | Short_Literal 0x1 0895 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0896 4803 |H | Short_Literal 0x3 0897 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0898 e605 | | Load 0x3,0x5 0899 6802 |h | Jump_Zero 0x89c 089a 4802 |H | Short_Literal 0x2 089b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 089c 4804 |H | Short_Literal 0x4 089d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 089e 4805 |H | Short_Literal 0x5 089f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 08a0 4806 |H | Short_Literal 0x6 08a1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 08a2 e605 | | Load 0x3,0x5 08a3 6802 |h | Jump_Zero 0x8a6 08a4 4800 |H | Short_Literal 0x0 08a5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 08a6 4806 |H | Short_Literal 0x6 08a7 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 08a8 4806 |H | Short_Literal 0x6 08a9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 08aa e604 | | Load 0x3,0x4 08ab 00eb | | Load_Encached Diana_Cache 08ac 1814 | | Execute Package,Field_Execute,Field_Number 0x14 08ad 0b22 | " | Execute_Immediate Case_Compare,0x22 08ae 7008 |p | Jump_Nonzero 0x8b7 08af 0b7c | | | Execute_Immediate Case_Compare,0x7c 08b0 701b |p | Jump_Nonzero 0x8cc 08b1 0b7b | { | Execute_Immediate Case_Compare,0x7b 08b2 701f |p | Jump_Nonzero 0x8d2 08b3 0b7a | z | Execute_Immediate Case_Compare,0x7a 08b4 701d |p | Jump_Nonzero 0x8d2 08b5 4806 |H | Short_Literal 0x6 08b6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 08b7 e602 | | Load 0x3,0x2 08b8 00eb | | Load_Encached Diana_Cache 08b9 18cc | | Execute Package,Field_Execute,Field_Number 0xcc 08ba 00eb | | Load_Encached Diana_Cache 08bb 1814 | | Execute Package,Field_Execute,Field_Number 0x14 08bc 0b7c | | | Execute_Immediate Case_Compare,0x7c 08bd 7006 |p | Jump_Nonzero 0x8c4 08be 0b7b | { | Execute_Immediate Case_Compare,0x7b 08bf 7006 |p | Jump_Nonzero 0x8c6 08c0 0b7a | z | Execute_Immediate Case_Compare,0x7a 08c1 7004 |p | Jump_Nonzero 0x8c6 08c2 48e2 |H | Short_Literal 0xe2 08c3 0257 | W | Execute Discrete,Raise 08c4 4801 |H | Short_Literal 0x1 08c5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 08c6 e605 | | Load 0x3,0x5 08c7 6802 |h | Jump_Zero 0x8ca 08c8 4800 |H | Short_Literal 0x0 08c9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 08ca 4806 |H | Short_Literal 0x6 08cb 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 08cc e605 | | Load 0x3,0x5 08cd 6802 |h | Jump_Zero 0x8d0 08ce 4801 |H | Short_Literal 0x1 08cf 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 08d0 4803 |H | Short_Literal 0x3 08d1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 08d2 4806 |H | Short_Literal 0x6 08d3 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 08d4 00d1 | | Pop_Control Pop_Count_1 08d5 00c9 | | Action Pop_Auxiliary_Loop 08d6 7f95 | | Jump 0x86c 08d7 0000 | | .XXX[0x1] 08d8 0000 0000 | | .LITERAL {0x00000000, 0x7fffffff} 08dc 0000 0000 | | .BLANK 0000[0x4] 08e0 ; -------------------------------------------------------------------------------------- 08e0 ; SUBPROGRAM 08e0 ; -------------------------------------------------------------------------------------- 08e0 08e9 | | .CONST 0x08e9 ; Address of begin 08e1 0004 | | .CONST 0x0004 ; Address of exception handler 08e2 0005 | | .CONST 0x0005 ; Number of locals 08e3 INIT_08e0: 08e3 00e3 | | Load_Encached Natural_Cache 08e4 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 08e5 e014 | | Load 0x0,0x14 08e6 1b0d | | Execute Package,Field_Read,Field_Number 0xd 08e7 00ec | | Load_Encached Diana_Tree_Cache 08e8 e247 | G | Load 0x1,0x47 08e9 BODY_08e0: 08e9 00cf | | Action Mark_Auxiliary 08ea 7809 |x | Jump 0x8f4 08eb e602 | | Load 0x3,0x2 08ec 0a01 | | Execute_Immediate Plus,0x1 08ed c602 | | Store 0x3,0x2 08ee e7ff | | Load 0x3,-0x1 08ef e015 | | Load 0x0,0x15 08f0 1b0d | | Execute Package,Field_Read,Field_Number 0xd 08f1 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 08f2 c7ff | | Store 0x3,-0x1 08f3 00c9 | | Action Pop_Auxiliary_Loop 08f4 e7ff | | Load 0x3,-0x1 08f5 e015 | | Load 0x0,0x15 08f6 1b0d | | Execute Package,Field_Read,Field_Number 0xd 08f7 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 08f8 6ff2 |o | Jump_Zero 0x8eb 08f9 00ce | | Action Pop_Auxiliary 08fa e602 | | Load 0x3,0x2 08fb 7003 |p | Jump_Nonzero 0x8ff 08fc e247 | G | Load 0x1,0x47 08fd a7fe | | Store_Unchecked 0x3,-0x2 08fe 4501 |E | Exit_Suprogram New_Top_Offset 0x1 08ff e7ff | | Load 0x3,-0x1 0900 e015 | | Load 0x0,0x15 0901 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0902 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 0903 4801 |H | Short_Literal 0x1 0904 e602 | | Load 0x3,0x2 0905 e247 | G | Load 0x1,0x47 0906 03ba | | Declare_Variable Access,By_Allocation,With_Constraint 0907 a605 | | Store_Unchecked 0x3,0x5 0908 4800 |H | Short_Literal 0x0 0909 a602 | | Store_Unchecked 0x3,0x2 090a 00cf | | Action Mark_Auxiliary 090b 783c |x< | Jump 0x948 090c e602 | | Load 0x3,0x2 090d 0a01 | | Execute_Immediate Plus,0x1 090e c602 | | Store 0x3,0x2 090f e014 | | Load 0x0,0x14 0910 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0911 00ec | | Load_Encached Diana_Tree_Cache 0912 62bd |b | Indirect_Literal Discrete,0xbd0,{0x00000000, 0x00004000} 0913 e01f | | Load 0x0,0x1f 0914 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0915 e7ff | | Load 0x3,-0x1 0916 e015 | | Load 0x0,0x15 0917 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0918 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 0919 e015 | | Load 0x0,0x15 091a 1b0d | | Execute Package,Field_Read,Field_Number 0xd 091b 1b56 | V | Execute Package,Field_Read,Field_Number 0x56 091c 1812 | | Execute Package,Field_Execute,Field_Number 0x12 091d c604 | | Store 0x3,0x4 091e c603 | | Store 0x3,0x3 091f e603 | | Load 0x3,0x3 0920 6811 |h | Jump_Zero 0x932 0921 e014 | | Load 0x0,0x14 0922 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0923 e014 | | Load 0x0,0x14 0924 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0925 62aa |b | Indirect_Literal Discrete,0xbd0,{0x00000000, 0x00004000} 0926 e01f | | Load 0x0,0x1f 0927 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0928 e7ff | | Load 0x3,-0x1 0929 e015 | | Load 0x0,0x15 092a 1b0d | | Execute Package,Field_Read,Field_Number 0xd 092b 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 092c e015 | | Load 0x0,0x15 092d 1b0d | | Execute Package,Field_Read,Field_Number 0xd 092e 1b56 | V | Execute Package,Field_Read,Field_Number 0x56 092f 180f | | Execute Package,Field_Execute,Field_Number 0xf 0930 c604 | | Store 0x3,0x4 0931 c603 | | Store 0x3,0x3 0932 e603 | | Load 0x3,0x3 0933 7008 |p | Jump_Nonzero 0x93c 0934 e604 | | Load 0x3,0x4 0935 00eb | | Load_Encached Diana_Cache 0936 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0937 e602 | | Load 0x3,0x2 0938 e605 | | Load 0x3,0x5 0939 0227 | ' | Execute Access,All_Reference 093a 01d6 | | Execute Vector,Field_Write 093b 7806 |x | Jump 0x942 093c e002 | | Load 0x0,0x2 093d 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 093e e602 | | Load 0x3,0x2 093f e605 | | Load 0x3,0x5 0940 0227 | ' | Execute Access,All_Reference 0941 01d6 | | Execute Vector,Field_Write 0942 e7ff | | Load 0x3,-0x1 0943 e015 | | Load 0x0,0x15 0944 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0945 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 0946 c7ff | | Store 0x3,-0x1 0947 00c9 | | Action Pop_Auxiliary_Loop 0948 e7ff | | Load 0x3,-0x1 0949 e015 | | Load 0x0,0x15 094a 1b0d | | Execute Package,Field_Read,Field_Number 0xd 094b 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 094c 6fbf |o | Jump_Zero 0x90c 094d 00ce | | Action Pop_Auxiliary 094e 00d8 | | Load_Top At_Offset_0 094f a7fe | | Store_Unchecked 0x3,-0x2 0950 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0951 0000 0000 | | .BLANK 0000[0x7] 0958 ; -------------------------------------------------------------------------------------- 0958 ; SUBPROGRAM 0958 ; -------------------------------------------------------------------------------------- 0958 0963 | c | .CONST 0x0963 ; Address of begin 0959 0004 | | .CONST 0x0004 ; Address of exception handler 095a 0003 | | .CONST 0x0003 ; Number of locals 095b INIT_0958: 095b e002 | | Load 0x0,0x2 095c 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 095d e7ff | | Load 0x3,-0x1 095e 00eb | | Load_Encached Diana_Cache 095f 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0960 c602 | | Store 0x3,0x2 0961 00e1 | | Load_Encached Boolean_Cache 0962 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 0963 BODY_0958: 0963 e411 | | Load 0x2,0x11 0964 681f |h | Jump_Zero 0x984 0965 00cf | | Action Mark_Auxiliary 0966 e411 | | Load 0x2,0x11 0967 0227 | ' | Execute Access,All_Reference 0968 01dc | | Execute Vector,Last 0969 4801 |H | Short_Literal 0x1 096a 0263 | c | Execute Discrete,Above_Bound 096b 7015 |p | Jump_Nonzero 0x981 096c 00d8 | | Load_Top At_Offset_0 096d e411 | | Load 0x2,0x11 096e 0227 | ' | Execute Access,All_Reference 096f 01d7 | | Execute Vector,Field_Read 0970 e002 | | Load 0x0,0x2 0971 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 0972 021e | | Execute Heap_Access,Maximum 0973 680b |h | Jump_Zero 0x97f 0974 4800 |H | Short_Literal 0x0 0975 a603 | | Store_Unchecked 0x3,0x3 0976 00d8 | | Load_Top At_Offset_0 0977 e411 | | Load 0x2,0x11 0978 0227 | ' | Execute Access,All_Reference 0979 01d7 | | Execute Vector,Field_Read 097a e602 | | Load 0x3,0x2 097b 021f | | Execute Heap_Access,Equal 097c 6802 |h | Jump_Zero 0x97f 097d 4801 |H | Short_Literal 0x1 097e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 097f 00c8 | | Action Pop_Auxiliary_Range 0980 3feb |? | Loop_Increasing 0x96c 0981 00ce | | Action Pop_Auxiliary 0982 00d8 | | Load_Top At_Offset_0 0983 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0984 e412 | | Load 0x2,0x12 0985 681f |h | Jump_Zero 0x9a5 0986 00cf | | Action Mark_Auxiliary 0987 e412 | | Load 0x2,0x12 0988 0227 | ' | Execute Access,All_Reference 0989 01dc | | Execute Vector,Last 098a 4801 |H | Short_Literal 0x1 098b 0263 | c | Execute Discrete,Above_Bound 098c 7016 |p | Jump_Nonzero 0x9a3 098d 00d8 | | Load_Top At_Offset_0 098e e411 | | Load 0x2,0x11 098f 0227 | ' | Execute Access,All_Reference 0990 01d7 | | Execute Vector,Field_Read 0991 e002 | | Load 0x0,0x2 0992 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 0993 021e | | Execute Heap_Access,Maximum 0994 680b |h | Jump_Zero 0x9a0 0995 4800 |H | Short_Literal 0x0 0996 a603 | | Store_Unchecked 0x3,0x3 0997 00d8 | | Load_Top At_Offset_0 0998 e412 | | Load 0x2,0x12 0999 0227 | ' | Execute Access,All_Reference 099a 01d7 | | Execute Vector,Field_Read 099b e602 | | Load 0x3,0x2 099c 021f | | Execute Heap_Access,Equal 099d 6802 |h | Jump_Zero 0x9a0 099e 4800 |H | Short_Literal 0x0 099f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 09a0 e603 | | Load 0x3,0x3 09a1 0f00 | | Execute_Immediate Equal,0x0 09a2 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 09a3 00ce | | Action Pop_Auxiliary 09a4 7802 |x | Jump 0x9a7 09a5 4801 |H | Short_Literal 0x1 09a6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 09a7 4831 |H1 | Short_Literal 0x31 09a8 0257 | W | Execute Discrete,Raise 09a9 0000 0000 | | .BLANK 0000[0x7] 09b0 ; -------------------------------------------------------------------------------------- 09b0 ; SUBPROGRAM 09b0 ; -------------------------------------------------------------------------------------- 09b0 09d3 | | .CONST 0x09d3 ; Address of begin 09b1 0004 | | .CONST 0x0004 ; Address of exception handler 09b2 0011 | | .CONST 0x0011 ; Number of locals 09b3 INIT_09b0: 09b3 00eb | | Load_Encached Diana_Cache 09b4 1b82 | | Execute Package,Field_Read,Field_Number 0x82 09b5 00eb | | Load_Encached Diana_Cache 09b6 1b0e | | Execute Package,Field_Read,Field_Number 0xe 09b7 00ee | | Load_Encached Diana_Seq_Type_Cache 09b8 00ec | | Load_Encached Diana_Tree_Cache 09b9 e7fe | | Load 0x3,-0x2 09ba 00e3 | | Load_Encached Natural_Cache 09bb 03f1 | | Declare_Variable Discrete,With_Value 09bc 00e1 | | Load_Encached Boolean_Cache 09bd e001 | | Load 0x0,0x1 09be 1b0d | | Execute Package,Field_Read,Field_Number 0xd 09bf e001 | | Load 0x0,0x1 09c0 1b0d | | Execute Package,Field_Read,Field_Number 0xd 09c1 00e3 | | Load_Encached Natural_Cache 09c2 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 09c3 e015 | | Load 0x0,0x15 09c4 1b0d | | Execute Package,Field_Read,Field_Number 0xd 09c5 1b0d | | Execute Package,Field_Read,Field_Number 0xd 09c6 02c7 | | Declare_Variable Any 09c7 00d8 | | Load_Top At_Offset_0 09c8 1c00 | | Execute_Immediate Run_Utility,0x0 09c9 e7fc | | Load 0x3,-0x4 09ca e214 | | Load 0x1,0x14 09cb 03f1 | | Declare_Variable Discrete,With_Value 09cc 00ef | | Load_Encached Diana_Sequence_Cache 09cd 00ef | | Load_Encached Diana_Sequence_Cache 09ce 00e3 | | Load_Encached Natural_Cache 09cf 029f 0c83 | | Declare_Subprogram INIT_0c80,For_Call 09d1 029f 0ca3 | | Declare_Subprogram INIT_0ca0,For_Call 09d3 BODY_09b0: 09d3 e7ff | | Load 0x3,-0x1 09d4 00eb | | Load_Encached Diana_Cache 09d5 1813 | | Execute Package,Field_Execute,Field_Number 0x13 09d6 6801 |h | Jump_Zero 0x9d8 09d7 4505 |E | Exit_Suprogram New_Top_Offset 0x5 09d8 e7ff | | Load 0x3,-0x1 09d9 00eb | | Load_Encached Diana_Cache 09da 1883 | | Execute Package,Field_Execute,Field_Number 0x83 09db a602 | | Store_Unchecked 0x3,0x2 09dc e7ff | | Load 0x3,-0x1 09dd 00eb | | Load_Encached Diana_Cache 09de 1814 | | Execute Package,Field_Execute,Field_Number 0x14 09df a603 | | Store_Unchecked 0x3,0x3 09e0 4800 |H | Short_Literal 0x0 09e1 a607 | | Store_Unchecked 0x3,0x7 09e2 e7ff | | Load 0x3,-0x1 09e3 00eb | | Load_Encached Diana_Cache 09e4 1814 | | Execute Package,Field_Execute,Field_Number 0x14 09e5 0b77 | w | Execute_Immediate Case_Compare,0x77 09e6 700b |p | Jump_Nonzero 0x9f2 09e7 0b48 | H | Execute_Immediate Case_Compare,0x48 09e8 702c |p, | Jump_Nonzero 0xa15 09e9 0b3d | = | Execute_Immediate Case_Compare,0x3d 09ea 702a |p* | Jump_Nonzero 0xa15 09eb 0b3e | > | Execute_Immediate Case_Compare,0x3e 09ec 702f |p/ | Jump_Nonzero 0xa1c 09ed 0b41 | A | Execute_Immediate Case_Compare,0x41 09ee 702d |p- | Jump_Nonzero 0xa1c 09ef 0b47 | G | Execute_Immediate Case_Compare,0x47 09f0 702b |p+ | Jump_Nonzero 0xa1c 09f1 7830 |x0 | Jump 0xa22 09f2 e7ff | | Load 0x3,-0x1 09f3 00eb | | Load_Encached Diana_Cache 09f4 18ec | | Execute Package,Field_Execute,Field_Number 0xec 09f5 4976 |Iv | Short_Literal 0x176 09f6 00eb | | Load_Encached Diana_Cache 09f7 0098 | | Execute Package,Field_Read_Dynamic 09f8 1810 | | Execute Package,Field_Execute,Field_Number 0x10 09f9 a605 | | Store_Unchecked 0x3,0x5 09fa 4801 |H | Short_Literal 0x1 09fb e40d | | Load 0x2,0xd 09fc e605 | | Load 0x3,0x5 09fd 00eb | | Load_Encached Diana_Cache 09fe 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 09ff 00eb | | Load_Encached Diana_Cache 0a00 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 0a01 e015 | | Load 0x0,0x15 0a02 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0a03 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 0a04 c60b | | Store 0x3,0xb 0a05 e60b | | Load 0x3,0xb 0a06 e015 | | Load 0x0,0x15 0a07 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0a08 1834 | 4 | Execute Package,Field_Execute,Field_Number 0x34 0a09 7018 |p | Jump_Nonzero 0xa22 0a0a 00e1 | | Load_Encached Boolean_Cache 0a0b e015 | | Load 0x0,0x15 0a0c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0a0d 180e | | Execute Package,Field_Execute,Field_Number 0xe 0a0e e40d | | Load 0x2,0xd 0a0f e409 | | Load 0x2,0x9 0a10 e015 | | Load 0x0,0x15 0a11 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0a12 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 0a13 c40f | | Store 0x2,0xf 0a14 780d |x | Jump 0xa22 0a15 4801 |H | Short_Literal 0x1 0a16 a607 | | Store_Unchecked 0x3,0x7 0a17 e7ff | | Load 0x3,-0x1 0a18 00eb | | Load_Encached Diana_Cache 0a19 18bf | | Execute Package,Field_Execute,Field_Number 0xbf 0a1a a605 | | Store_Unchecked 0x3,0x5 0a1b 7806 |x | Jump 0xa22 0a1c 4801 |H | Short_Literal 0x1 0a1d a607 | | Store_Unchecked 0x3,0x7 0a1e e7ff | | Load 0x3,-0x1 0a1f 00eb | | Load_Encached Diana_Cache 0a20 18cf | | Execute Package,Field_Execute,Field_Number 0xcf 0a21 a605 | | Store_Unchecked 0x3,0x5 0a22 00d1 | | Pop_Control Pop_Count_1 0a23 e607 | | Load 0x3,0x7 0a24 6843 |hC | Jump_Zero 0xa68 0a25 4801 |H | Short_Literal 0x1 0a26 e24c | L | Load 0x1,0x4c 0a27 0092 0f3c | <| Action Push_String_Extended,0xf3c ; "'" 0a29 e605 | | Load 0x3,0x5 0a2a e014 | | Load 0x0,0x14 0a2b 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0a2c 1848 | H | Execute Package,Field_Execute,Field_Number 0x48 0a2d 01cc | | Execute Vector,Catenate 0a2e e001 | | Load 0x0,0x1 0a2f 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0a30 a608 | | Store_Unchecked 0x3,0x8 0a31 e608 | | Load 0x3,0x8 0a32 e404 | | Load 0x2,0x4 0a33 e001 | | Load 0x0,0x1 0a34 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0a35 6802 |h | Jump_Zero 0xa38 0a36 e403 | | Load 0x2,0x3 0a37 a608 | | Store_Unchecked 0x3,0x8 0a38 e251 | Q | Load 0x1,0x51 0a39 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0a3a 0a01 | | Execute_Immediate Plus,0x1 0a3b e251 | Q | Load 0x1,0x51 0a3c 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0a3d e240 | @ | Load 0x1,0x40 0a3e 0322 | " | Declare_Variable Record 0a3f 4801 |H | Short_Literal 0x1 0a40 e24c | L | Load 0x1,0x4c 0a41 e605 | | Load 0x3,0x5 0a42 e014 | | Load 0x0,0x14 0a43 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0a44 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37 0a45 e608 | | Load 0x3,0x8 0a46 e001 | | Load 0x0,0x1 0a47 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0a48 01cc | | Execute Vector,Catenate 0a49 e001 | | Load 0x0,0x1 0a4a 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0a4b e612 | | Load 0x3,0x12 0a4c 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0a4d e7fd | | Load 0x3,-0x3 0a4e e612 | | Load 0x3,0x12 0a4f 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0a50 e605 | | Load 0x3,0x5 0a51 00eb | | Load_Encached Diana_Cache 0a52 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0a53 8419 | | Call 0x2,0x19 0a54 e612 | | Load 0x3,0x12 0a55 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0a56 e605 | | Load 0x3,0x5 0a57 e612 | | Load 0x3,0x12 0a58 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 0a59 4800 |H | Short_Literal 0x0 0a5a e612 | | Load 0x3,0x12 0a5b 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 0a5c 4806 |H | Short_Literal 0x6 0a5d e612 | | Load 0x3,0x12 0a5e 3805 |8 | Execute Record,Field_Write,Field_Number 0x5 0a5f e251 | Q | Load 0x1,0x51 0a60 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0a61 00e3 | | Load_Encached Natural_Cache 0a62 025b | [ | Execute Discrete,Check_In_Type 0a63 824f | O | Call 0x1,0x4f 0a64 0218 | | Execute Heap_Access,All_Write 0a65 e251 | Q | Load 0x1,0x51 0a66 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0a67 c606 | | Store 0x3,0x6 0a68 e7ff | | Load 0x3,-0x1 0a69 00eb | | Load_Encached Diana_Cache 0a6a 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0a6b 0b17 | | Execute_Immediate Case_Compare,0x17 0a6c 7058 |pX | Jump_Nonzero 0xac5 0a6d 0b16 | | Execute_Immediate Case_Compare,0x16 0a6e 7056 |pV | Jump_Nonzero 0xac5 0a6f 0b14 | | Execute_Immediate Case_Compare,0x14 0a70 7054 |pT | Jump_Nonzero 0xac5 0a71 0b5b | [ | Execute_Immediate Case_Compare,0x5b 0a72 70ca |p | Jump_Nonzero 0xb3d 0a73 0b10 | | Execute_Immediate Case_Compare,0x10 0a74 70c8 |p | Jump_Nonzero 0xb3d 0a75 0b0d | | Execute_Immediate Case_Compare,0xd 0a76 7131 |q1 | Jump_Nonzero 0xba8 0a77 0b4d | M | Execute_Immediate Case_Compare,0x4d 0a78 7148 |qH | Jump_Nonzero 0xbc1 0a79 e602 | | Load 0x3,0x2 0a7a 4604 |F | Jump_Case 0x5 0a7b 4505 |E | Exit_Suprogram New_Top_Offset 0x5 ; case 0x0 0a7c 7803 |x | Jump 0xa80 ; case 0x1 0a7d 780a |x | Jump 0xa88 ; case 0x2 0a7e 7818 |x | Jump 0xa97 ; case 0x3 0a7f 782d |x- | Jump 0xaad ; case 0x4 0a80 e60c | | Load 0x3,0xc 0a81 e7fd | | Load 0x3,-0x3 0a82 e606 | | Load 0x3,0x6 0a83 e7ff | | Load 0x3,-0x1 0a84 00eb | | Load_Encached Diana_Cache 0a85 1885 | | Execute Package,Field_Execute,Field_Number 0x85 0a86 841d | | Call 0x2,0x1d 0a87 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0a88 e60c | | Load 0x3,0xc 0a89 e7fd | | Load 0x3,-0x3 0a8a e606 | | Load 0x3,0x6 0a8b e7ff | | Load 0x3,-0x1 0a8c 00eb | | Load_Encached Diana_Cache 0a8d 1885 | | Execute Package,Field_Execute,Field_Number 0x85 0a8e 841d | | Call 0x2,0x1d 0a8f e60c | | Load 0x3,0xc 0a90 e7fd | | Load 0x3,-0x3 0a91 e606 | | Load 0x3,0x6 0a92 e7ff | | Load 0x3,-0x1 0a93 00eb | | Load_Encached Diana_Cache 0a94 1886 | | Execute Package,Field_Execute,Field_Number 0x86 0a95 841d | | Call 0x2,0x1d 0a96 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0a97 e60c | | Load 0x3,0xc 0a98 e7fd | | Load 0x3,-0x3 0a99 e606 | | Load 0x3,0x6 0a9a e7ff | | Load 0x3,-0x1 0a9b 00eb | | Load_Encached Diana_Cache 0a9c 1885 | | Execute Package,Field_Execute,Field_Number 0x85 0a9d 841d | | Call 0x2,0x1d 0a9e e60c | | Load 0x3,0xc 0a9f e7fd | | Load 0x3,-0x3 0aa0 e606 | | Load 0x3,0x6 0aa1 e7ff | | Load 0x3,-0x1 0aa2 00eb | | Load_Encached Diana_Cache 0aa3 1886 | | Execute Package,Field_Execute,Field_Number 0x86 0aa4 841d | | Call 0x2,0x1d 0aa5 e60c | | Load 0x3,0xc 0aa6 e7fd | | Load 0x3,-0x3 0aa7 e606 | | Load 0x3,0x6 0aa8 e7ff | | Load 0x3,-0x1 0aa9 00eb | | Load_Encached Diana_Cache 0aaa 1887 | | Execute Package,Field_Execute,Field_Number 0x87 0aab 841d | | Call 0x2,0x1d 0aac 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0aad e7ff | | Load 0x3,-0x1 0aae 00eb | | Load_Encached Diana_Cache 0aaf 1888 | | Execute Package,Field_Execute,Field_Number 0x88 0ab0 a604 | | Store_Unchecked 0x3,0x4 0ab1 00cf | | Action Mark_Auxiliary 0ab2 780c |x | Jump 0xabf 0ab3 e60c | | Load 0x3,0xc 0ab4 e7fd | | Load 0x3,-0x3 0ab5 e606 | | Load 0x3,0x6 0ab6 e604 | | Load 0x3,0x4 0ab7 00eb | | Load_Encached Diana_Cache 0ab8 1859 | Y | Execute Package,Field_Execute,Field_Number 0x59 0ab9 841d | | Call 0x2,0x1d 0aba e604 | | Load 0x3,0x4 0abb 00eb | | Load_Encached Diana_Cache 0abc 185a | Z | Execute Package,Field_Execute,Field_Number 0x5a 0abd a604 | | Store_Unchecked 0x3,0x4 0abe 00c9 | | Action Pop_Auxiliary_Loop 0abf e604 | | Load 0x3,0x4 0ac0 00eb | | Load_Encached Diana_Cache 0ac1 1858 | X | Execute Package,Field_Execute,Field_Number 0x58 0ac2 6ff0 |o | Jump_Zero 0xab3 0ac3 00ce | | Action Pop_Auxiliary 0ac4 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0ac5 e7ff | | Load 0x3,-0x1 0ac6 00eb | | Load_Encached Diana_Cache 0ac7 18fa | | Execute Package,Field_Execute,Field_Number 0xfa 0ac8 a605 | | Store_Unchecked 0x3,0x5 0ac9 e605 | | Load 0x3,0x5 0aca 00eb | | Load_Encached Diana_Cache 0acb 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0acc 706f |po | Jump_Nonzero 0xb3c 0acd e605 | | Load 0x3,0x5 0ace 841c | | Call 0x2,0x1c 0acf 686c |hl | Jump_Zero 0xb3c 0ad0 00e1 | | Load_Encached Boolean_Cache 0ad1 e60a | | Load 0x3,0xa 0ad2 e605 | | Load 0x3,0x5 0ad3 e410 | | Load 0x2,0x10 0ad4 e402 | | Load 0x2,0x2 0ad5 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0ad6 c60a | | Store 0x3,0xa 0ad7 c607 | | Store 0x3,0x7 0ad8 e607 | | Load 0x3,0x7 0ad9 704b |pK | Jump_Nonzero 0xb25 0ada 4801 |H | Short_Literal 0x1 0adb e24c | L | Load 0x1,0x4c 0adc 0092 0f3c | <| Action Push_String_Extended,0xf3c ; "'" 0ade e605 | | Load 0x3,0x5 0adf e014 | | Load 0x0,0x14 0ae0 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0ae1 1848 | H | Execute Package,Field_Execute,Field_Number 0x48 0ae2 01cc | | Execute Vector,Catenate 0ae3 e001 | | Load 0x0,0x1 0ae4 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0ae5 a608 | | Store_Unchecked 0x3,0x8 0ae6 e608 | | Load 0x3,0x8 0ae7 e404 | | Load 0x2,0x4 0ae8 e001 | | Load 0x0,0x1 0ae9 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0aea 6802 |h | Jump_Zero 0xaed 0aeb e403 | | Load 0x2,0x3 0aec a608 | | Store_Unchecked 0x3,0x8 0aed e251 | Q | Load 0x1,0x51 0aee 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0aef 0a01 | | Execute_Immediate Plus,0x1 0af0 e251 | Q | Load 0x1,0x51 0af1 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0af2 4801 |H | Short_Literal 0x1 0af3 e24c | L | Load 0x1,0x4c 0af4 e605 | | Load 0x3,0x5 0af5 8610 | | Call 0x3,0x10 0af6 e608 | | Load 0x3,0x8 0af7 e001 | | Load 0x0,0x1 0af8 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0af9 01cc | | Execute Vector,Catenate 0afa e001 | | Load 0x0,0x1 0afb 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0afc a609 | | Store_Unchecked 0x3,0x9 0afd e240 | @ | Load 0x1,0x40 0afe 0322 | " | Declare_Variable Record 0aff e609 | | Load 0x3,0x9 0b00 e613 | | Load 0x3,0x13 0b01 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0b02 e60f | | Load 0x3,0xf 0b03 e613 | | Load 0x3,0x13 0b04 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0b05 e605 | | Load 0x3,0x5 0b06 00eb | | Load_Encached Diana_Cache 0b07 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0b08 8419 | | Call 0x2,0x19 0b09 e613 | | Load 0x3,0x13 0b0a 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0b0b e605 | | Load 0x3,0x5 0b0c e613 | | Load 0x3,0x13 0b0d 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 0b0e 4800 |H | Short_Literal 0x0 0b0f e613 | | Load 0x3,0x13 0b10 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 0b11 e605 | | Load 0x3,0x5 0b12 841a | | Call 0x2,0x1a 0b13 e613 | | Load 0x3,0x13 0b14 3805 |8 | Execute Record,Field_Write,Field_Number 0x5 0b15 e251 | Q | Load 0x1,0x51 0b16 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0b17 00e3 | | Load_Encached Natural_Cache 0b18 025b | [ | Execute Discrete,Check_In_Type 0b19 824e | N | Call 0x1,0x4e 0b1a 0218 | | Execute Heap_Access,All_Write 0b1b e251 | Q | Load 0x1,0x51 0b1c 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0b1d c60a | | Store 0x3,0xa 0b1e e410 | | Load 0x2,0x10 0b1f 4800 |H | Short_Literal 0x0 0b20 e60a | | Load 0x3,0xa 0b21 e605 | | Load 0x3,0x5 0b22 e402 | | Load 0x2,0x2 0b23 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0b24 c410 | | Store 0x2,0x10 0b25 e251 | Q | Load 0x1,0x51 0b26 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0b27 0a01 | | Execute_Immediate Plus,0x1 0b28 e251 | Q | Load 0x1,0x51 0b29 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0b2a e242 | B | Load 0x1,0x42 0b2b 0322 | " | Declare_Variable Record 0b2c e60a | | Load 0x3,0xa 0b2d e613 | | Load 0x3,0x13 0b2e 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0b2f e606 | | Load 0x3,0x6 0b30 e613 | | Load 0x3,0x13 0b31 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0b32 e7ff | | Load 0x3,-0x1 0b33 e613 | | Load 0x3,0x13 0b34 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0b35 e60c | | Load 0x3,0xc 0b36 e613 | | Load 0x3,0x13 0b37 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 0b38 e251 | Q | Load 0x1,0x51 0b39 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0b3a 8250 | P | Call 0x1,0x50 0b3b 0218 | | Execute Heap_Access,All_Write 0b3c 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0b3d 4801 |H | Short_Literal 0x1 0b3e e7fd | | Load 0x3,-0x3 0b3f e606 | | Load 0x3,0x6 0b40 e7ff | | Load 0x3,-0x1 0b41 00eb | | Load_Encached Diana_Cache 0b42 18d4 | | Execute Package,Field_Execute,Field_Number 0xd4 0b43 841d | | Call 0x2,0x1d 0b44 e7ff | | Load 0x3,-0x1 0b45 00eb | | Load_Encached Diana_Cache 0b46 18d4 | | Execute Package,Field_Execute,Field_Number 0xd4 0b47 8611 | | Call 0x3,0x11 0b48 a605 | | Store_Unchecked 0x3,0x5 0b49 e605 | | Load 0x3,0x5 0b4a 00eb | | Load_Encached Diana_Cache 0b4b 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0b4c 6808 |h | Jump_Zero 0xb55 0b4d 4801 |H | Short_Literal 0x1 0b4e e7fd | | Load 0x3,-0x3 0b4f e606 | | Load 0x3,0x6 0b50 e7ff | | Load 0x3,-0x1 0b51 00eb | | Load_Encached Diana_Cache 0b52 18d9 | | Execute Package,Field_Execute,Field_Number 0xd9 0b53 841d | | Call 0x2,0x1d 0b54 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0b55 e605 | | Load 0x3,0x5 0b56 4976 |Iv | Short_Literal 0x176 0b57 00eb | | Load_Encached Diana_Cache 0b58 0098 | | Execute Package,Field_Read_Dynamic 0b59 181f | | Execute Package,Field_Execute,Field_Number 0x1f 0b5a a60e | | Store_Unchecked 0x3,0xe 0b5b e7ff | | Load 0x3,-0x1 0b5c 490c |I | Short_Literal 0x10c 0b5d 00eb | | Load_Encached Diana_Cache 0b5e 0096 | | Execute Package,Entry 0b5f 00eb | | Load_Encached Diana_Cache 0b60 18ed | | Execute Package,Field_Execute,Field_Number 0xed 0b61 a60d | | Store_Unchecked 0x3,0xd 0b62 00cf | | Action Mark_Auxiliary 0b63 783e |x> | Jump 0xba2 0b64 e60e | | Load 0x3,0xe 0b65 00eb | | Load_Encached Diana_Cache 0b66 1865 | e | Execute Package,Field_Execute,Field_Number 0x65 0b67 a605 | | Store_Unchecked 0x3,0x5 0b68 e605 | | Load 0x3,0x5 0b69 00eb | | Load_Encached Diana_Cache 0b6a 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0b6b 0b23 | # | Execute_Immediate Case_Compare,0x23 0b6c 7014 |p | Jump_Nonzero 0xb81 0b6d 0b24 | $ | Execute_Immediate Case_Compare,0x24 0b6e 701a |p | Jump_Nonzero 0xb89 0b6f 0b25 | % | Execute_Immediate Case_Compare,0x25 0b70 7020 |p | Jump_Nonzero 0xb91 0b71 e019 | | Load 0x0,0x19 0b72 180e | | Execute Package,Field_Execute,Field_Number 0xe 0b73 4807 |H | Short_Literal 0x7 0b74 0092 0f3d | =| Action Push_String_Extended,0xf3d ; "Formals contained unexpected node " 0b76 e605 | | Load 0x3,0x5 0b77 00eb | | Load_Encached Diana_Cache 0b78 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0b79 00eb | | Load_Encached Diana_Cache 0b7a 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0b7b 025e | ^ | Execute Discrete,Convert 0b7c 1c01 | | Execute_Immediate Run_Utility,0x1 0b7d 01cc | | Execute Vector,Catenate 0b7e e01a | | Load 0x0,0x1a 0b7f 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0b80 7817 |x | Jump 0xb98 0b81 4801 |H | Short_Literal 0x1 0b82 e7fd | | Load 0x3,-0x3 0b83 e606 | | Load 0x3,0x6 0b84 e60d | | Load 0x3,0xd 0b85 00eb | | Load_Encached Diana_Cache 0b86 1865 | e | Execute Package,Field_Execute,Field_Number 0x65 0b87 841d | | Call 0x2,0x1d 0b88 780f |x | Jump 0xb98 0b89 4803 |H | Short_Literal 0x3 0b8a e7fd | | Load 0x3,-0x3 0b8b e606 | | Load 0x3,0x6 0b8c e60d | | Load 0x3,0xd 0b8d 00eb | | Load_Encached Diana_Cache 0b8e 1865 | e | Execute Package,Field_Execute,Field_Number 0x65 0b8f 841d | | Call 0x2,0x1d 0b90 7807 |x | Jump 0xb98 0b91 4802 |H | Short_Literal 0x2 0b92 e7fd | | Load 0x3,-0x3 0b93 e606 | | Load 0x3,0x6 0b94 e60d | | Load 0x3,0xd 0b95 00eb | | Load_Encached Diana_Cache 0b96 1865 | e | Execute Package,Field_Execute,Field_Number 0x65 0b97 841d | | Call 0x2,0x1d 0b98 00d1 | | Pop_Control Pop_Count_1 0b99 e60d | | Load 0x3,0xd 0b9a 00eb | | Load_Encached Diana_Cache 0b9b 1866 | f | Execute Package,Field_Execute,Field_Number 0x66 0b9c a60d | | Store_Unchecked 0x3,0xd 0b9d e60e | | Load 0x3,0xe 0b9e 00eb | | Load_Encached Diana_Cache 0b9f 1866 | f | Execute Package,Field_Execute,Field_Number 0x66 0ba0 a60e | | Store_Unchecked 0x3,0xe 0ba1 00c9 | | Action Pop_Auxiliary_Loop 0ba2 e60e | | Load 0x3,0xe 0ba3 00eb | | Load_Encached Diana_Cache 0ba4 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 0ba5 6fbe |o | Jump_Zero 0xb64 0ba6 00ce | | Action Pop_Auxiliary 0ba7 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0ba8 e60c | | Load 0x3,0xc 0ba9 4606 |F | Jump_Case 0x7 0baa 780e |x | Jump 0xbb9 ; case 0x0 0bab 7805 |x | Jump 0xbb1 ; case 0x1 0bac 7807 |x | Jump 0xbb4 ; case 0x2 0bad 7809 |x | Jump 0xbb7 ; case 0x3 0bae 780a |x | Jump 0xbb9 ; case 0x4 0baf 7809 |x | Jump 0xbb9 ; case 0x5 0bb0 7808 |x | Jump 0xbb9 ; case 0x6 0bb1 4804 |H | Short_Literal 0x4 0bb2 a60c | | Store_Unchecked 0x3,0xc 0bb3 7805 |x | Jump 0xbb9 0bb4 4805 |H | Short_Literal 0x5 0bb5 a60c | | Store_Unchecked 0x3,0xc 0bb6 7802 |x | Jump 0xbb9 0bb7 4806 |H | Short_Literal 0x6 0bb8 a60c | | Store_Unchecked 0x3,0xc 0bb9 e60c | | Load 0x3,0xc 0bba e7fd | | Load 0x3,-0x3 0bbb e606 | | Load 0x3,0x6 0bbc e7ff | | Load 0x3,-0x1 0bbd 00eb | | Load_Encached Diana_Cache 0bbe 18d4 | | Execute Package,Field_Execute,Field_Number 0xd4 0bbf 841d | | Call 0x2,0x1d 0bc0 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0bc1 4802 |H | Short_Literal 0x2 0bc2 e7fd | | Load 0x3,-0x3 0bc3 e606 | | Load 0x3,0x6 0bc4 e7ff | | Load 0x3,-0x1 0bc5 00eb | | Load_Encached Diana_Cache 0bc6 18d4 | | Execute Package,Field_Execute,Field_Number 0xd4 0bc7 841d | | Call 0x2,0x1d 0bc8 4801 |H | Short_Literal 0x1 0bc9 e7fd | | Load 0x3,-0x3 0bca e606 | | Load 0x3,0x6 0bcb e7ff | | Load 0x3,-0x1 0bcc 00eb | | Load_Encached Diana_Cache 0bcd 18c5 | | Execute Package,Field_Execute,Field_Number 0xc5 0bce 841d | | Call 0x2,0x1d 0bcf 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0bd0 0000 0000 | | .LITERAL {0x00000000, 0x00004000} 0bd4 0000 0000 | | .BLANK 0000[0x4] 0bd8 ; -------------------------------------------------------------------------------------- 0bd8 ; SUBPROGRAM 0bd8 ; -------------------------------------------------------------------------------------- 0bd8 0be2 | | .CONST 0x0be2 ; Address of begin 0bd9 0004 | | .CONST 0x0004 ; Address of exception handler 0bda 0002 | | .CONST 0x0002 ; Number of locals 0bdb INIT_0bd8: 0bdb e406 | | Load 0x2,0x6 0bdc e014 | | Load 0x0,0x14 0bdd 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 0bde 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0bdf e014 | | Load 0x0,0x14 0be0 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0be1 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 0be2 BODY_0bd8: 0be2 4801 |H | Short_Literal 0x1 0be3 e24c | L | Load 0x1,0x4c 0be4 e602 | | Load 0x3,0x2 0be5 0092 0f3e | >| Action Push_String_Extended,0xf3e ; ".#WITH#" 0be7 01cc | | Execute Vector,Catenate 0be8 e001 | | Load 0x0,0x1 0be9 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0bea e251 | Q | Load 0x1,0x51 0beb 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0bec 00e3 | | Load_Encached Natural_Cache 0bed 025b | [ | Execute Discrete,Check_In_Type 0bee 824f | O | Call 0x1,0x4f 0bef 0217 | | Execute Heap_Access,All_Reference 0bf0 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0bf1 00d8 | | Load_Top At_Offset_0 0bf2 01db | | Execute Vector,Length 0bf3 e251 | Q | Load 0x1,0x51 0bf4 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0bf5 00e3 | | Load_Encached Natural_Cache 0bf6 025b | [ | Execute Discrete,Check_In_Type 0bf7 824f | O | Call 0x1,0x4f 0bf8 0217 | | Execute Heap_Access,All_Reference 0bf9 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0bfa 4801 |H | Short_Literal 0x1 0bfb e602 | | Load 0x3,0x2 0bfc 01db | | Execute Vector,Length 0bfd 00e3 | | Load_Encached Natural_Cache 0bfe 025b | [ | Execute Discrete,Check_In_Type 0bff e251 | Q | Load 0x1,0x51 0c00 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0c01 00e3 | | Load_Encached Natural_Cache 0c02 025b | [ | Execute Discrete,Check_In_Type 0c03 e405 | | Load 0x2,0x5 0c04 841d | | Call 0x2,0x1d 0c05 00e1 | | Load_Encached Boolean_Cache 0c06 e015 | | Load 0x0,0x15 0c07 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0c08 180e | | Execute Package,Field_Execute,Field_Number 0xe 0c09 e40d | | Load 0x2,0xd 0c0a e40c | | Load 0x2,0xc 0c0b e015 | | Load 0x0,0x15 0c0c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0c0d 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 0c0e c40f | | Store 0x2,0xf 0c0f e40e | | Load 0x2,0xe 0c10 0120 | | Execute Any,Is_Value 0c11 6804 |h | Jump_Zero 0xc16 0c12 e015 | | Load 0x0,0x15 0c13 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0c14 1b30 | 0 | Execute Package,Field_Read,Field_Number 0x30 0c15 7801 |x | Jump 0xc17 0c16 e40e | | Load 0x2,0xe 0c17 e40d | | Load 0x2,0xd 0c18 e015 | | Load 0x0,0x15 0c19 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0c1a 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0c1b c40e | | Store 0x2,0xe 0c1c e019 | | Load 0x0,0x19 0c1d 180e | | Execute Package,Field_Execute,Field_Number 0xe 0c1e e40e | | Load 0x2,0xe 0c1f e015 | | Load 0x0,0x15 0c20 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0c21 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f 0c22 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0c23 0000 0000 | | .BLANK 0000[0x5] 0c28 ; -------------------------------------------------------------------------------------- 0c28 ; SUBPROGRAM 0c28 ; -------------------------------------------------------------------------------------- 0c28 0c31 | 1 | .CONST 0x0c31 ; Address of begin 0c29 0004 | | .CONST 0x0004 ; Address of exception handler 0c2a 0002 | | .CONST 0x0002 ; Number of locals 0c2b INIT_0c28: 0c2b e5ff | | Load 0x2,-0x1 0c2c 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0c2d 0217 | | Execute Heap_Access,All_Reference 0c2e 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0c2f e001 | | Load 0x0,0x1 0c30 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0c31 BODY_0c28: 0c31 00d8 | | Load_Top At_Offset_0 0c32 01dd | | Execute Vector,First 0c33 e602 | | Load 0x3,0x2 0c34 01dd | | Execute Vector,First 0c35 e5ff | | Load 0x2,-0x1 0c36 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0c37 0217 | | Execute Heap_Access,All_Reference 0c38 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0c39 0273 | s | Execute Discrete,Plus 0c3a 0aff | | Execute_Immediate Plus,-0x1 0c3b 0248 | H | Execute Discrete,Check_In_Integer 0c3c e602 | | Load 0x3,0x2 0c3d 01cf | | Execute Vector,Slice_Read 0c3e 00cb | | Action Pop_Block_With_Result 0c3f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0c40 ; -------------------------------------------------------------------------------------- 0c40 ; SUBPROGRAM 0c40 ; -------------------------------------------------------------------------------------- 0c40 0c4f | O | .CONST 0x0c4f ; Address of begin 0c41 0004 | | .CONST 0x0004 ; Address of exception handler 0c42 0003 | | .CONST 0x0003 ; Number of locals 0c43 INIT_0c40: 0c43 e015 | | Load 0x0,0x15 0c44 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0c45 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0c46 02c7 | | Declare_Variable Any 0c47 00d8 | | Load_Top At_Offset_0 0c48 1c00 | | Execute_Immediate Run_Utility,0x0 0c49 e015 | | Load 0x0,0x15 0c4a 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0c4b 1b30 | 0 | Execute Package,Field_Read,Field_Number 0x30 0c4c 02c7 | | Declare_Variable Any 0c4d 00d8 | | Load_Top At_Offset_0 0c4e 1c00 | | Execute_Immediate Run_Utility,0x0 0c4f BODY_0c40: 0c4f 00d8 | | Load_Top At_Offset_0 0c50 0120 | | Execute Any,Is_Value 0c51 6804 |h | Jump_Zero 0xc56 0c52 e015 | | Load 0x0,0x15 0c53 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0c54 1b30 | 0 | Execute Package,Field_Read,Field_Number 0x30 0c55 7801 |x | Jump 0xc57 0c56 00d8 | | Load_Top At_Offset_0 0c57 e602 | | Load 0x3,0x2 0c58 0120 | | Execute Any,Is_Value 0c59 6804 |h | Jump_Zero 0xc5e 0c5a e015 | | Load 0x0,0x15 0c5b 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0c5c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0c5d 7801 |x | Jump 0xc5f 0c5e e602 | | Load 0x3,0x2 0c5f e402 | | Load 0x2,0x2 0c60 e015 | | Load 0x0,0x15 0c61 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0c62 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0c63 c602 | | Store 0x3,0x2 0c64 c603 | | Store 0x3,0x3 0c65 00d8 | | Load_Top At_Offset_0 0c66 0120 | | Execute Any,Is_Value 0c67 6804 |h | Jump_Zero 0xc6c 0c68 e015 | | Load 0x0,0x15 0c69 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0c6a 1b30 | 0 | Execute Package,Field_Read,Field_Number 0x30 0c6b 7801 |x | Jump 0xc6d 0c6c 00d8 | | Load_Top At_Offset_0 0c6d e404 | | Load 0x2,0x4 0c6e 0120 | | Execute Any,Is_Value 0c6f 6803 |h | Jump_Zero 0xc73 0c70 e00e | | Load 0x0,0xe 0c71 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0c72 7801 |x | Jump 0xc74 0c73 e404 | | Load 0x2,0x4 0c74 e602 | | Load 0x3,0x2 0c75 e00e | | Load 0x0,0xe 0c76 180f | | Execute Package,Field_Execute,Field_Number 0xf 0c77 c404 | | Store 0x2,0x4 0c78 c603 | | Store 0x3,0x3 0c79 4801 |H | Short_Literal 0x1 0c7a e404 | | Load 0x2,0x4 0c7b e403 | | Load 0x2,0x3 0c7c e24d | M | Load 0x1,0x4d 0c7d e24b | K | Load 0x1,0x4b 0c7e 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0c7f 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0c80 ; -------------------------------------------------------------------------------------- 0c80 ; SUBPROGRAM 0c80 ; -------------------------------------------------------------------------------------- 0c80 0c85 | | .CONST 0x0c85 ; Address of begin 0c81 0004 | | .CONST 0x0004 ; Address of exception handler 0c82 0002 | | .CONST 0x0002 ; Number of locals 0c83 INIT_0c80: 0c83 029f 0cd3 | | Declare_Subprogram INIT_0cd0,For_Call 0c85 BODY_0c80: 0c85 e9ff | | Load 0x4,-0x1 0c86 00eb | | Load_Encached Diana_Cache 0c87 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0c88 6802 |h | Jump_Zero 0xc8b 0c89 00ea | | Load_Encached Null_String_Cache 0c8a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0c8b e9ff | | Load 0x4,-0x1 0c8c e020 | | Load 0x0,0x20 0c8d 1849 | I | Execute Package,Field_Execute,Field_Number 0x49 0c8e 7001 |p | Jump_Nonzero 0xc90 0c8f 8802 | | Call 0x4,0x2 0c90 e9ff | | Load 0x4,-0x1 0c91 e020 | | Load 0x0,0x20 0c92 1848 | H | Execute Package,Field_Execute,Field_Number 0x48 0c93 8610 | | Call 0x3,0x10 0c94 0092 0f3f | ?| Action Push_String_Extended,0xf3f ; "." 0c96 01cc | | Execute Vector,Catenate 0c97 e9ff | | Load 0x4,-0x1 0c98 00eb | | Load_Encached Diana_Cache 0c99 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 0c9a 00eb | | Load_Encached Diana_Cache 0c9b 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 0c9c 01cc | | Execute Vector,Catenate 0c9d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0c9e 0000 0000 | | .XXX[0x2] 0ca0 ; -------------------------------------------------------------------------------------- 0ca0 ; SUBPROGRAM 0ca0 ; -------------------------------------------------------------------------------------- 0ca0 0ca4 | | .CONST 0x0ca4 ; Address of begin 0ca1 0004 | | .CONST 0x0004 ; Address of exception handler 0ca2 0002 | | .CONST 0x0002 ; Number of locals 0ca3 INIT_0ca0: 0ca3 00ec | | Load_Encached Diana_Tree_Cache 0ca4 BODY_0ca0: 0ca4 e9ff | | Load 0x4,-0x1 0ca5 00eb | | Load_Encached Diana_Cache 0ca6 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0ca7 0b12 | | Execute_Immediate Case_Compare,0x12 0ca8 7005 |p | Jump_Nonzero 0xcae 0ca9 0b17 | | Execute_Immediate Case_Compare,0x17 0caa 7008 |p | Jump_Nonzero 0xcb3 0cab 00eb | | Load_Encached Diana_Cache 0cac 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0cad 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0cae e9ff | | Load 0x4,-0x1 0caf 00eb | | Load_Encached Diana_Cache 0cb0 18c0 | | Execute Package,Field_Execute,Field_Number 0xc0 0cb1 8611 | | Call 0x3,0x11 0cb2 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0cb3 e9ff | | Load 0x4,-0x1 0cb4 00eb | | Load_Encached Diana_Cache 0cb5 18fa | | Execute Package,Field_Execute,Field_Number 0xfa 0cb6 a802 | | Store_Unchecked 0x4,0x2 0cb7 e802 | | Load 0x4,0x2 0cb8 00eb | | Load_Encached Diana_Cache 0cb9 18ec | | Execute Package,Field_Execute,Field_Number 0xec 0cba a802 | | Store_Unchecked 0x4,0x2 0cbb e802 | | Load 0x4,0x2 0cbc 00eb | | Load_Encached Diana_Cache 0cbd 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0cbe 0f41 | A | Execute_Immediate Equal,0x41 0cbf 6805 |h | Jump_Zero 0xcc5 0cc0 e802 | | Load 0x4,0x2 0cc1 00eb | | Load_Encached Diana_Cache 0cc2 18cc | | Execute Package,Field_Execute,Field_Number 0xcc 0cc3 a802 | | Store_Unchecked 0x4,0x2 0cc4 7804 |x | Jump 0xcc9 0cc5 e802 | | Load 0x4,0x2 0cc6 00eb | | Load_Encached Diana_Cache 0cc7 18ce | | Execute Package,Field_Execute,Field_Number 0xce 0cc8 a802 | | Store_Unchecked 0x4,0x2 0cc9 e802 | | Load 0x4,0x2 0cca 00eb | | Load_Encached Diana_Cache 0ccb 18da | | Execute Package,Field_Execute,Field_Number 0xda 0ccc a802 | | Store_Unchecked 0x4,0x2 0ccd e802 | | Load 0x4,0x2 0cce 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0ccf 0000 | | .XXX[0x1] 0cd0 ; -------------------------------------------------------------------------------------- 0cd0 ; SUBPROGRAM 0cd0 ; -------------------------------------------------------------------------------------- 0cd0 0cd7 | | .CONST 0x0cd7 ; Address of begin 0cd1 0004 | | .CONST 0x0004 ; Address of exception handler 0cd2 0002 | | .CONST 0x0002 ; Number of locals 0cd3 INIT_0cd0: 0cd3 e9ff | | Load 0x4,-0x1 0cd4 e014 | | Load 0x0,0x14 0cd5 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0cd6 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37 0cd7 BODY_0cd0: 0cd7 00d8 | | Load_Top At_Offset_0 0cd8 01db | | Execute Vector,Length 0cd9 c60f | | Store 0x3,0xf 0cda 00d8 | | Load_Top At_Offset_0 0cdb 00cb | | Action Pop_Block_With_Result 0cdc 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0cdd 0000 0000 | | .XXX[0x3] 0cdf 0000 | | 0ce0 ; -------------------------------------------------------------------------------------- 0ce0 ; SUBPROGRAM 0ce0 ; -------------------------------------------------------------------------------------- 0ce0 0d03 | | .CONST 0x0d03 ; Address of begin 0ce1 0004 | | .CONST 0x0004 ; Address of exception handler 0ce2 0024 | $ | .CONST 0x0024 ; Number of locals 0ce3 INIT_0ce0: 0ce3 029a 0d13 | | Declare_Subprogram INIT_0d10,For_Outer_Call,Visible,Unelaborated 0ce5 029a 0df3 | | Declare_Subprogram INIT_0df0,For_Outer_Call,Visible,Unelaborated 0ce7 029a 0e13 | | Declare_Subprogram INIT_0e10,For_Outer_Call,Visible,Unelaborated 0ce9 029a 0e43 | C| Declare_Subprogram INIT_0e40,For_Outer_Call,Visible,Unelaborated 0ceb 029a 0e5b | [| Declare_Subprogram INIT_0e58,For_Outer_Call,Visible,Unelaborated 0ced 00bf | | Action Accept_Activation 0cee 00e4 | | Load_Encached Positive_Cache 0cef 00e2 | | Load_Encached Integer_Cache 0cf0 00e3 | | Load_Encached Natural_Cache 0cf1 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0cf2 00e3 | | Load_Encached Natural_Cache 0cf3 029d 0e73 | s| Declare_Subprogram INIT_0e70,For_Outer_Call 0cf5 029d 0e83 | | Declare_Subprogram INIT_0e80,For_Outer_Call 0cf7 029d 0e93 | | Declare_Subprogram INIT_0e90,For_Outer_Call 0cf9 1d19 | | Execute_Immediate Reference_Lex_1,0x19 0cfa 00c7 | | Action Elaborate_Subprogram 0cfb 1d1a | | Execute_Immediate Reference_Lex_1,0x1a 0cfc 00c7 | | Action Elaborate_Subprogram 0cfd 1d1b | | Execute_Immediate Reference_Lex_1,0x1b 0cfe 00c7 | | Action Elaborate_Subprogram 0cff 1d1c | | Execute_Immediate Reference_Lex_1,0x1c 0d00 00c7 | | Action Elaborate_Subprogram 0d01 1d1d | | Execute_Immediate Reference_Lex_1,0x1d 0d02 00c7 | | Action Elaborate_Subprogram 0d03 BODY_0ce0: 0d03 e215 | | Load 0x1,0x15 0d04 e217 | | Load 0x1,0x17 0d05 8222 | " | Call 0x1,0x22 0d06 0273 | s | Execute Discrete,Plus 0d07 0248 | H | Execute Discrete,Check_In_Integer 0d08 0272 | r | Execute Discrete,Minus 0d09 c21e | | Store 0x1,0x1e 0d0a e215 | | Load 0x1,0x15 0d0b 0af6 | | Execute_Immediate Plus,-0xa 0d0c 0248 | H | Execute Discrete,Check_In_Integer 0d0d a21f | | Store_Unchecked 0x1,0x1f 0d0e 00bc | | Action Signal_Activated 0d0f 00bb | | Action Signal_Completion 0d10 ; -------------------------------------------------------------------------------------- 0d10 ; SUBPROGRAM 0d10 ; -------------------------------------------------------------------------------------- 0d10 0d1e | | .CONST 0x0d1e ; Address of begin 0d11 0004 | | .CONST 0x0004 ; Address of exception handler 0d12 0006 | | .CONST 0x0006 ; Number of locals 0d13 INIT_0d10: 0d13 e001 | | Load 0x0,0x1 0d14 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0d15 0322 | " | Declare_Variable Record 0d16 e001 | | Load 0x0,0x1 0d17 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0d18 0322 | " | Declare_Variable Record 0d19 00e1 | | Load_Encached Boolean_Cache 0d1a 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0d1b 00e3 | | Load_Encached Natural_Cache 0d1c 029f 0ea3 | | Declare_Subprogram INIT_0ea0,For_Call 0d1e BODY_0d10: 0d1e 4800 |H | Short_Literal 0x0 0d1f e5ff | | Load 0x2,-0x1 0d20 e001 | | Load 0x0,0x1 0d21 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32 0d22 e402 | | Load 0x2,0x2 0d23 017d | } | Execute Record,Structure_Write 0d24 4800 |H | Short_Literal 0x0 0d25 e5fc | | Load 0x2,-0x4 0d26 e001 | | Load 0x0,0x1 0d27 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32 0d28 e403 | | Load 0x2,0x3 0d29 017d | } | Execute Record,Structure_Write 0d2a e403 | | Load 0x2,0x3 0d2b e001 | | Load 0x0,0x1 0d2c 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35 0d2d e402 | | Load 0x2,0x2 0d2e e001 | | Load 0x0,0x1 0d2f 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35 0d30 027e | ~ | Execute Discrete,Not_Equal 0d31 681b |h | Jump_Zero 0xd4d 0d32 e5fd | | Load 0x2,-0x3 0d33 e5ff | | Load 0x2,-0x1 0d34 8211 | | Call 0x1,0x11 0d35 c5fd | | Store 0x2,-0x3 0d36 e402 | | Load 0x2,0x2 0d37 8212 | | Call 0x1,0x12 0d38 820f | | Call 0x1,0xf 0d39 0092 0f40 | @| Action Push_String_Extended,0xf40 ; " " 0d3b 820f | | Call 0x1,0xf 0d3c e216 | | Load 0x1,0x16 0d3d 8210 | | Call 0x1,0x10 0d3e e402 | | Load 0x2,0x2 0d3f 8213 | | Call 0x1,0x13 0d40 820f | | Call 0x1,0xf 0d41 e402 | | Load 0x2,0x2 0d42 e001 | | Load 0x0,0x1 0d43 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35 0d44 8224 | $ | Call 0x1,0x24 0d45 4800 |H | Short_Literal 0x0 0d46 e5ff | | Load 0x2,-0x1 0d47 8002 | | Call 0x0,0x2 0d48 00e0 | | Load_Encached Standard_Cache 0d49 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0d4a 820f | | Call 0x1,0xf 0d4b 4801 |H | Short_Literal 0x1 0d4c a404 | | Store_Unchecked 0x2,0x4 0d4d 4801 |H | Short_Literal 0x1 0d4e e5ff | | Load 0x2,-0x1 0d4f e001 | | Load 0x0,0x1 0d50 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32 0d51 e402 | | Load 0x2,0x2 0d52 017d | } | Execute Record,Structure_Write 0d53 4801 |H | Short_Literal 0x1 0d54 e5fc | | Load 0x2,-0x4 0d55 e001 | | Load 0x0,0x1 0d56 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32 0d57 e403 | | Load 0x2,0x3 0d58 017d | } | Execute Record,Structure_Write 0d59 e403 | | Load 0x2,0x3 0d5a e001 | | Load 0x0,0x1 0d5b 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35 0d5c e402 | | Load 0x2,0x2 0d5d e001 | | Load 0x0,0x1 0d5e 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35 0d5f 027e | ~ | Execute Discrete,Not_Equal 0d60 e5fc | | Load 0x2,-0x4 0d61 e001 | | Load 0x0,0x1 0d62 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 0d63 e5ff | | Load 0x2,-0x1 0d64 e001 | | Load 0x0,0x1 0d65 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 0d66 027e | ~ | Execute Discrete,Not_Equal 0d67 e404 | | Load 0x2,0x4 0d68 e5fe | | Load 0x2,-0x2 0d69 0278 | x | Execute Discrete,Or 0d6a 0278 | x | Execute Discrete,Or 0d6b 0278 | x | Execute Discrete,Or 0d6c 6855 |hU | Jump_Zero 0xdc2 0d6d e404 | | Load 0x2,0x4 0d6e 7004 |p | Jump_Nonzero 0xd73 0d6f e5fd | | Load 0x2,-0x3 0d70 e5ff | | Load 0x2,-0x1 0d71 8211 | | Call 0x1,0x11 0d72 c5fd | | Store 0x2,-0x3 0d73 4800 |H | Short_Literal 0x0 0d74 a220 | | Store_Unchecked 0x1,0x20 0d75 8406 | | Call 0x2,0x6 0d76 e5ff | | Load 0x2,-0x1 0d77 e001 | | Load 0x0,0x1 0d78 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 0d79 4606 |F | Jump_Case 0x7 0d7a 7806 |x | Jump 0xd81 ; case 0x0 0d7b 780c |x | Jump 0xd88 ; case 0x1 0d7c 7812 |x | Jump 0xd8f ; case 0x2 0d7d 7818 |x | Jump 0xd96 ; case 0x3 0d7e 781e |x | Jump 0xd9d ; case 0x4 0d7f 7824 |x$ | Jump 0xda4 ; case 0x5 0d80 782a |x* | Jump 0xdab ; case 0x6 0d81 0092 0f41 | A| Action Push_String_Extended,0xf41 ; "(?)" 0d83 820f | | Call 0x1,0xf 0d84 e221 | ! | Load 0x1,0x21 0d85 0a03 | | Execute_Immediate Plus,0x3 0d86 c221 | ! | Store 0x1,0x21 0d87 7829 |x) | Jump 0xdb1 0d88 0092 0f42 | B| Action Push_String_Extended,0xf42 ; "(U)" 0d8a 820f | | Call 0x1,0xf 0d8b e221 | ! | Load 0x1,0x21 0d8c 0a03 | | Execute_Immediate Plus,0x3 0d8d c221 | ! | Store 0x1,0x21 0d8e 7822 |x" | Jump 0xdb1 0d8f 0092 0f43 | C| Action Push_String_Extended,0xf43 ; "(S)" 0d91 820f | | Call 0x1,0xf 0d92 e221 | ! | Load 0x1,0x21 0d93 0a03 | | Execute_Immediate Plus,0x3 0d94 c221 | ! | Store 0x1,0x21 0d95 781b |x | Jump 0xdb1 0d96 0092 0f44 | D| Action Push_String_Extended,0xf44 ; "(B)" 0d98 820f | | Call 0x1,0xf 0d99 e221 | ! | Load 0x1,0x21 0d9a 0a03 | | Execute_Immediate Plus,0x3 0d9b c221 | ! | Store 0x1,0x21 0d9c 7814 |x | Jump 0xdb1 0d9d 0092 0f45 | E| Action Push_String_Extended,0xf45 ; "(UT)" 0d9f 820f | | Call 0x1,0xf 0da0 e221 | ! | Load 0x1,0x21 0da1 0a04 | | Execute_Immediate Plus,0x4 0da2 c221 | ! | Store 0x1,0x21 0da3 780d |x | Jump 0xdb1 0da4 0092 0f46 | F| Action Push_String_Extended,0xf46 ; "(ST)" 0da6 820f | | Call 0x1,0xf 0da7 e221 | ! | Load 0x1,0x21 0da8 0a04 | | Execute_Immediate Plus,0x4 0da9 c221 | ! | Store 0x1,0x21 0daa 7806 |x | Jump 0xdb1 0dab 0092 0f47 | G| Action Push_String_Extended,0xf47 ; "(BT)" 0dad 820f | | Call 0x1,0xf 0dae e221 | ! | Load 0x1,0x21 0daf 0a04 | | Execute_Immediate Plus,0x4 0db0 c221 | ! | Store 0x1,0x21 0db1 e402 | | Load 0x2,0x2 0db2 e001 | | Load 0x0,0x1 0db3 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35 0db4 8224 | $ | Call 0x1,0x24 0db5 e221 | ! | Load 0x1,0x21 0db6 e402 | | Load 0x2,0x2 0db7 e001 | | Load 0x0,0x1 0db8 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35 0db9 00e0 | | Load_Encached Standard_Cache 0dba 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0dbb 01db | | Execute Vector,Length 0dbc 0273 | s | Execute Discrete,Plus 0dbd 0248 | H | Execute Discrete,Check_In_Integer 0dbe 0a01 | | Execute_Immediate Plus,0x1 0dbf c221 | ! | Store 0x1,0x21 0dc0 e5ff | | Load 0x2,-0x1 0dc1 a5fc | | Store_Unchecked 0x2,-0x4 0dc2 4801 |H | Short_Literal 0x1 0dc3 e5ff | | Load 0x2,-0x1 0dc4 8002 | | Call 0x0,0x2 0dc5 a405 | | Store_Unchecked 0x2,0x5 0dc6 e405 | | Load 0x2,0x5 0dc7 e220 | | Load 0x1,0x20 0dc8 027e | ~ | Execute Discrete,Not_Equal 0dc9 681e |h | Jump_Zero 0xde8 0dca e405 | | Load 0x2,0x5 0dcb 00e0 | | Load_Encached Standard_Cache 0dcc 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0dcd 01db | | Execute Vector,Length 0dce e221 | ! | Load 0x1,0x21 0dcf 0273 | s | Execute Discrete,Plus 0dd0 e215 | | Load 0x1,0x15 0dd1 027d | } | Execute Discrete,Greater 0dd2 6808 |h | Jump_Zero 0xddb 0dd3 e5fd | | Load 0x2,-0x3 0dd4 e5ff | | Load 0x2,-0x1 0dd5 8211 | | Call 0x1,0x11 0dd6 c5fd | | Store 0x2,-0x3 0dd7 e217 | | Load 0x1,0x17 0dd8 8210 | | Call 0x1,0x10 0dd9 e217 | | Load 0x1,0x17 0dda a221 | ! | Store_Unchecked 0x1,0x21 0ddb e405 | | Load 0x2,0x5 0ddc 00e0 | | Load_Encached Standard_Cache 0ddd 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0dde 820f | | Call 0x1,0xf 0ddf e405 | | Load 0x2,0x5 0de0 a220 | | Store_Unchecked 0x1,0x20 0de1 e221 | ! | Load 0x1,0x21 0de2 e405 | | Load 0x2,0x5 0de3 00e0 | | Load_Encached Standard_Cache 0de4 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0de5 01db | | Execute Vector,Length 0de6 0273 | s | Execute Discrete,Plus 0de7 c221 | ! | Store 0x1,0x21 0de8 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0de9 0000 0000 | | .BLANK 0000[0x7] 0df0 ; -------------------------------------------------------------------------------------- 0df0 ; SUBPROGRAM 0df0 ; -------------------------------------------------------------------------------------- 0df0 0df3 | | .CONST 0x0df3 ; Address of begin 0df1 0004 | | .CONST 0x0004 ; Address of exception handler 0df2 0001 | | .CONST 0x0001 ; Number of locals 0df3 BODY_0df0: 0df3 INIT_0df0: 0df3 0092 0f48 | H| Action Push_String_Extended,0xf48 ; "ITEM" 0df5 820f | | Call 0x1,0xf 0df6 e216 | | Load 0x1,0x16 0df7 8210 | | Call 0x1,0x10 0df8 0092 0f49 | I| Action Push_String_Extended,0xf49 ; "DEFINED IN" 0dfa 820f | | Call 0x1,0xf 0dfb e217 | | Load 0x1,0x17 0dfc 8210 | | Call 0x1,0x10 0dfd 0092 0f4a | J| Action Push_String_Extended,0xf4a ; "IS REFERRED TO BY" 0dff 820f | | Call 0x1,0xf 0e00 e5ff | | Load 0x2,-0x1 0e01 e001 | | Load 0x0,0x1 0e02 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0e03 8211 | | Call 0x1,0x11 0e04 c5ff | | Store 0x2,-0x1 0e05 e001 | | Load 0x0,0x1 0e06 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0e07 a5fe | | Store_Unchecked 0x2,-0x2 0e08 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0e09 0000 0000 | | .BLANK 0000[0x7] 0e10 ; -------------------------------------------------------------------------------------- 0e10 ; SUBPROGRAM 0e10 ; -------------------------------------------------------------------------------------- 0e10 0e16 | | .CONST 0x0e16 ; Address of begin 0e11 0004 | | .CONST 0x0004 ; Address of exception handler 0e12 0002 | | .CONST 0x0002 ; Number of locals 0e13 INIT_0e10: 0e13 e5ff | | Load 0x2,-0x1 0e14 e001 | | Load 0x0,0x1 0e15 1834 | 4 | Execute Package,Field_Execute,Field_Number 0x34 0e16 BODY_0e10: 0e16 e5ff | | Load 0x2,-0x1 0e17 e001 | | Load 0x0,0x1 0e18 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35 0e19 8223 | # | Call 0x1,0x23 0e1a 820f | | Call 0x1,0xf 0e1b 480a |H | Short_Literal 0xa 0e1c 8210 | | Call 0x1,0x10 0e1d 00d8 | | Load_Top At_Offset_0 0e1e 01db | | Execute Vector,Length 0e1f e21f | | Load 0x1,0x1f 0e20 027d | } | Execute Discrete,Greater 0e21 6810 |h | Jump_Zero 0xe32 0e22 00d8 | | Load_Top At_Offset_0 0e23 01dc | | Execute Vector,Last 0e24 e21f | | Load 0x1,0x1f 0e25 0272 | r | Execute Discrete,Minus 0e26 0248 | H | Execute Discrete,Check_In_Integer 0e27 e402 | | Load 0x2,0x2 0e28 01dc | | Execute Vector,Last 0e29 e402 | | Load 0x2,0x2 0e2a 01cf | | Execute Vector,Slice_Read 0e2b 820f | | Call 0x1,0xf 0e2c e5fe | | Load 0x2,-0x2 0e2d e001 | | Load 0x0,0x1 0e2e 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0e2f 8211 | | Call 0x1,0x11 0e30 c5fe | | Store 0x2,-0x2 0e31 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0e32 00d8 | | Load_Top At_Offset_0 0e33 820f | | Call 0x1,0xf 0e34 e5fe | | Load 0x2,-0x2 0e35 e001 | | Load 0x0,0x1 0e36 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0e37 8211 | | Call 0x1,0x11 0e38 c5fe | | Store 0x2,-0x2 0e39 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0e3a 0000 0000 | | .BLANK 0000[0x6] 0e40 ; -------------------------------------------------------------------------------------- 0e40 ; SUBPROGRAM 0e40 ; -------------------------------------------------------------------------------------- 0e40 0e43 | C | .CONST 0x0e43 ; Address of begin 0e41 0004 | | .CONST 0x0004 ; Address of exception handler 0e42 0001 | | .CONST 0x0001 ; Number of locals 0e43 BODY_0e40: 0e43 INIT_0e40: 0e43 0092 0f4b | K| Action Push_String_Extended,0xf4b ; " FULL NAMES OF \x22IS REFERRED TO BY\x22 UNITS" 0e45 820f | | Call 0x1,0xf 0e46 e5ff | | Load 0x2,-0x1 0e47 e001 | | Load 0x0,0x1 0e48 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0e49 8211 | | Call 0x1,0x11 0e4a c5ff | | Store 0x2,-0x1 0e4b e5ff | | Load 0x2,-0x1 0e4c e001 | | Load 0x0,0x1 0e4d 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0e4e 8211 | | Call 0x1,0x11 0e4f c5ff | | Store 0x2,-0x1 0e50 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0e51 0000 0000 | | .BLANK 0000[0x7] 0e58 ; -------------------------------------------------------------------------------------- 0e58 ; SUBPROGRAM 0e58 ; -------------------------------------------------------------------------------------- 0e58 0e5b | [ | .CONST 0x0e5b ; Address of begin 0e59 0004 | | .CONST 0x0004 ; Address of exception handler 0e5a 0001 | | .CONST 0x0001 ; Number of locals 0e5b BODY_0e58: 0e5b INIT_0e58: 0e5b 0092 0f4c | L| Action Push_String_Extended,0xf4c ; " FULL NAMES OF \x22DEFINED IN\x22 UNITS " 0e5d 820f | | Call 0x1,0xf 0e5e e5ff | | Load 0x2,-0x1 0e5f e001 | | Load 0x0,0x1 0e60 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0e61 8211 | | Call 0x1,0x11 0e62 c5ff | | Store 0x2,-0x1 0e63 e5ff | | Load 0x2,-0x1 0e64 e001 | | Load 0x0,0x1 0e65 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0e66 8211 | | Call 0x1,0x11 0e67 c5ff | | Store 0x2,-0x1 0e68 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0e69 0000 0000 | | .BLANK 0000[0x7] 0e70 ; -------------------------------------------------------------------------------------- 0e70 ; SUBPROGRAM 0e70 ; -------------------------------------------------------------------------------------- 0e70 0e73 | s | .CONST 0x0e73 ; Address of begin 0e71 0004 | | .CONST 0x0004 ; Address of exception handler 0e72 0001 | | .CONST 0x0001 ; Number of locals 0e73 BODY_0e70: 0e73 INIT_0e70: 0e73 e218 | | Load 0x1,0x18 0e74 6802 |h | Jump_Zero 0xe77 0e75 4809 |H | Short_Literal 0x9 0e76 00ca | | Action Exit_Nullary_Function 0e77 4804 |H | Short_Literal 0x4 0e78 00ca | | Action Exit_Nullary_Function 0e79 0000 0000 | | .BLANK 0000[0x7] 0e80 ; -------------------------------------------------------------------------------------- 0e80 ; SUBPROGRAM 0e80 ; -------------------------------------------------------------------------------------- 0e80 0e86 | | .CONST 0x0e86 ; Address of begin 0e81 0004 | | .CONST 0x0004 ; Address of exception handler 0e82 0002 | | .CONST 0x0002 ; Number of locals 0e83 INIT_0e80: 0e83 e5ff | | Load 0x2,-0x1 0e84 00e0 | | Load_Encached Standard_Cache 0e85 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0e86 BODY_0e80: 0e86 00d8 | | Load_Top At_Offset_0 0e87 01dd | | Execute Vector,First 0e88 0a01 | | Execute_Immediate Plus,0x1 0e89 0248 | H | Execute Discrete,Check_In_Integer 0e8a e402 | | Load 0x2,0x2 0e8b 01dc | | Execute Vector,Last 0e8c e402 | | Load 0x2,0x2 0e8d 01cf | | Execute Vector,Slice_Read 0e8e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0e8f 0000 | | .XXX[0x1] 0e90 ; -------------------------------------------------------------------------------------- 0e90 ; SUBPROGRAM 0e90 ; -------------------------------------------------------------------------------------- 0e90 0e93 | | .CONST 0x0e93 ; Address of begin 0e91 0004 | | .CONST 0x0004 ; Address of exception handler 0e92 0001 | | .CONST 0x0001 ; Number of locals 0e93 BODY_0e90: 0e93 INIT_0e90: 0e93 e218 | | Load 0x1,0x18 0e94 6809 |h | Jump_Zero 0xe9e 0e95 0092 0f4d | M| Action Push_String_Extended,0xf4d ; "[" 0e97 e5ff | | Load 0x2,-0x1 0e98 8223 | # | Call 0x1,0x23 0e99 01cc | | Execute Vector,Catenate 0e9a 0092 0f4e | N| Action Push_String_Extended,0xf4e ; "]" 0e9c 01cc | | Execute Vector,Catenate 0e9d 820f | | Call 0x1,0xf 0e9e 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0e9f 0000 | | .XXX[0x1] 0ea0 ; -------------------------------------------------------------------------------------- 0ea0 ; SUBPROGRAM 0ea0 ; -------------------------------------------------------------------------------------- 0ea0 0ea9 | | .CONST 0x0ea9 ; Address of begin 0ea1 0004 | | .CONST 0x0004 ; Address of exception handler 0ea2 0006 | | .CONST 0x0006 ; Number of locals 0ea3 INIT_0ea0: 0ea3 00e2 | | Load_Encached Integer_Cache 0ea4 03e9 | | Declare_Variable Discrete,Duplicate 0ea5 03e9 | | Declare_Variable Discrete,Duplicate 0ea6 e402 | | Load 0x2,0x2 0ea7 8214 | | Call 0x1,0x14 0ea8 00e1 | | Load_Encached Boolean_Cache 0ea9 BODY_0ea0: 0ea9 e217 | | Load 0x1,0x17 0eaa 8210 | | Call 0x1,0x10 0eab e605 | | Load 0x3,0x5 0eac 01db | | Execute Vector,Length 0ead a602 | | Store_Unchecked 0x3,0x2 0eae e602 | | Load 0x3,0x2 0eaf e605 | | Load 0x3,0x5 0eb0 01dd | | Execute Vector,First 0eb1 0273 | s | Execute Discrete,Plus 0eb2 0aff | | Execute_Immediate Plus,-0x1 0eb3 0248 | H | Execute Discrete,Check_In_Integer 0eb4 a604 | | Store_Unchecked 0x3,0x4 0eb5 e602 | | Load 0x3,0x2 0eb6 e21e | | Load 0x1,0x1e 0eb7 027a | z | Execute Discrete,Less_Equal 0eb8 6809 |h | Jump_Zero 0xec2 0eb9 e605 | | Load 0x3,0x5 0eba 820f | | Call 0x1,0xf 0ebb e217 | | Load 0x1,0x17 0ebc e602 | | Load 0x3,0x2 0ebd 0273 | s | Execute Discrete,Plus 0ebe 0248 | H | Execute Discrete,Check_In_Integer 0ebf 0a01 | | Execute_Immediate Plus,0x1 0ec0 c221 | ! | Store 0x1,0x21 0ec1 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0ec2 4800 |H | Short_Literal 0x0 0ec3 a606 | | Store_Unchecked 0x3,0x6 0ec4 00cf | | Action Mark_Auxiliary 0ec5 e604 | | Load 0x3,0x4 0ec6 e604 | | Load 0x3,0x4 0ec7 e21e | | Load 0x1,0x1e 0ec8 0272 | r | Execute Discrete,Minus 0ec9 0248 | H | Execute Discrete,Check_In_Integer 0eca 0263 | c | Execute Discrete,Above_Bound 0ecb 7017 |p | Jump_Nonzero 0xee3 0ecc 00d8 | | Load_Top At_Offset_0 0ecd e605 | | Load 0x3,0x5 0ece 01d7 | | Execute Vector,Field_Read 0ecf 0f2e | . | Execute_Immediate Equal,0x2e 0ed0 6810 |h | Jump_Zero 0xee1 0ed1 00d8 | | Load_Top At_Offset_0 0ed2 e604 | | Load 0x3,0x4 0ed3 e605 | | Load 0x3,0x5 0ed4 01cf | | Execute Vector,Slice_Read 0ed5 820f | | Call 0x1,0xf 0ed6 4801 |H | Short_Literal 0x1 0ed7 a606 | | Store_Unchecked 0x3,0x6 0ed8 e217 | | Load 0x1,0x17 0ed9 e609 | | Load 0x3,0x9 0eda e604 | | Load 0x3,0x4 0edb 0272 | r | Execute Discrete,Minus 0edc 0248 | H | Execute Discrete,Check_In_Integer 0edd 0273 | s | Execute Discrete,Plus 0ede c221 | ! | Store 0x1,0x21 0edf 00d2 | | Pop_Control Pop_Count_2 0ee0 7802 |x | Jump 0xee3 0ee1 00c8 | | Action Pop_Auxiliary_Range 0ee2 3fe9 |? | Loop_Increasing 0xecc 0ee3 00ce | | Action Pop_Auxiliary 0ee4 00d8 | | Load_Top At_Offset_0 0ee5 700e |p | Jump_Nonzero 0xef4 0ee6 0092 0f4f | O| Action Push_String_Extended,0xf4f ; "...." 0ee8 e604 | | Load 0x3,0x4 0ee9 e21e | | Load 0x1,0x1e 0eea 0272 | r | Execute Discrete,Minus 0eeb 0248 | H | Execute Discrete,Check_In_Integer 0eec e604 | | Load 0x3,0x4 0eed e605 | | Load 0x3,0x5 0eee 01cf | | Execute Vector,Slice_Read 0eef 01cc | | Execute Vector,Catenate 0ef0 820f | | Call 0x1,0xf 0ef1 e21e | | Load 0x1,0x1e 0ef2 0a01 | | Execute_Immediate Plus,0x1 0ef3 c221 | ! | Store 0x1,0x21 0ef4 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0ef5 ; -------------------------------------------------------------------------------------- 0ef5 ; STRING TABLE 0ef5 ; -------------------------------------------------------------------------------------- 0ef5 00b8 | | .STRTAB 0x00b8->0x0f51 ; "REFERRED_TO_ITEM" 0ef6 00c6 | | .STRTAB 0x00c6->0x0f59 ; "REFERRING_TO_ITEM" 0ef7 00d5 | | .STRTAB 0x00d5->0x0f61 ; "BOTH" 0ef8 00d7 | | .STRTAB 0x00d7->0x0f63 ; "NONE" 0ef9 00d9 | | .STRTAB 0x00d9->0x0f65 ; "USED" 0efa 00db | | .STRTAB 0x00db->0x0f67 ; "SET" 0efb 00dc | | .STRTAB 0x00dc->0x0f69 ; "BOTH_USED_AND_SET" 0efc 00eb | | .STRTAB 0x00eb->0x0f71 ; "USED_THROUGH" 0efd 00f5 | | .STRTAB 0x00f5->0x0f77 ; "SET_THROUGH" 0efe 00fe | | .STRTAB 0x00fe->0x0f7d ; "BOTH_USED_AND_SET_THROUGH" 0eff 0115 | | .STRTAB 0x0115->0x0f89 ; "ATTRIBUTE_ID" 0f00 011f | | .STRTAB 0x011f->0x0f8f ; "CONSTANT_ID" 0f01 0128 | ( | .STRTAB 0x0128->0x0f95 ; "DISCRIMINANT_ID" 0f02 0135 | 5 | .STRTAB 0x0135->0x0f9c ; "ENTRY_ID" 0f03 013b | ; | .STRTAB 0x013b->0x0fa0 ; "ENUMERATION_ID" 0f04 0147 | G | .STRTAB 0x0147->0x0fa7 ; "EXCEPTION_ID" 0f05 0151 | Q | .STRTAB 0x0151->0x0fad ; "FUNCTION_ID" 0f06 015a | Z | .STRTAB 0x015a->0x0fb3 ; "GENERIC_ID" 0f07 0162 | b | .STRTAB 0x0162->0x0fb8 ; "IN_ID" 0f08 0165 | e | .STRTAB 0x0165->0x0fba ; "IN_OUT_ID" 0f09 016c | l | .STRTAB 0x016c->0x0fbf ; "ITERATION_ID" 0f0a 0176 | v | .STRTAB 0x0176->0x0fc5 ; "LABEL_ID" 0f0b 017c | | | .STRTAB 0x017c->0x0fc9 ; "LIMITED_PRIVATE_TYPE_ID" 0f0c 0191 | | .STRTAB 0x0191->0x0fd4 ; "NAMED_STATEMENT_ID" 0f0d 01a1 | | .STRTAB 0x01a1->0x0fdd ; "NUMBER_ID" 0f0e 01a8 | | .STRTAB 0x01a8->0x0fe2 ; "OUT_ID" 0f0f 01ac | | .STRTAB 0x01ac->0x0fe5 ; "PACKAGE_ID" 0f10 01b4 | | .STRTAB 0x01b4->0x0fea ; "PRAGMA_ID" 0f11 01bb | | .STRTAB 0x01bb->0x0fee ; "PRAGMA_ARGUMENT_ID" 0f12 01cb | | .STRTAB 0x01cb->0x0ff7 ; "PRIVATE_TYPE_ID" 0f13 01d8 | | .STRTAB 0x01d8->0x0fff ; "PROCEDURE_ID" 0f14 01e2 | | .STRTAB 0x01e2->0x1005 ; "RECORD_COMPONENT_ID" 0f15 01f3 | | .STRTAB 0x01f3->0x100e ; "SUBTYPE_ID" 0f16 01fb | | .STRTAB 0x01fb->0x1013 ; "TASK_BODY_ID" 0f17 0205 | | .STRTAB 0x0205->0x1019 ; "TYPE_ID" 0f18 020a | | .STRTAB 0x020a->0x101d ; "VARIABLE_ID" 0f19 0213 | | .STRTAB 0x0213->0x1022 ; "UNKNOWN_ID" 0f1a 021b | | .STRTAB 0x021b->0x1027 ; "ATTRIBUTE_TYPE" 0f1b 0227 | ' | .STRTAB 0x0227->0x102e ; "COMPONENT_TYPE" 0f1c 0233 | 3 | .STRTAB 0x0233->0x1035 ; "CONSTANT_TYPE" 0f1d 023e | > | .STRTAB 0x023e->0x103c ; "ENTRY_TYPE" 0f1e 0246 | F | .STRTAB 0x0246->0x1041 ; "EXCEPTION_TYPE" 0f1f 0252 | R | .STRTAB 0x0252->0x1048 ; "FUNCTION_TYPE" 0f20 025d | ] | .STRTAB 0x025d->0x104e ; "GENERIC_TYPE" 0f21 0267 | g | .STRTAB 0x0267->0x1054 ; "LABEL_TYPE" 0f22 026f | o | .STRTAB 0x026f->0x1059 ; "PACKAGE_TYPE" 0f23 0279 | y | .STRTAB 0x0279->0x105f ; "PARAMETER_TYPE" 0f24 0285 | | .STRTAB 0x0285->0x1066 ; "PRAGMA_TYPE" 0f25 028e | | .STRTAB 0x028e->0x106c ; "PROCEDURE_TYPE" 0f26 029a | | .STRTAB 0x029a->0x1073 ; "TASK_BODY_TYPE" 0f27 02a6 | | .STRTAB 0x02a6->0x107a ; "TYPE_TYPE" 0f28 02ad | | .STRTAB 0x02ad->0x107e ; "VARIABLE_TYPE" 0f29 02b8 | | .STRTAB 0x02b8->0x1085 ; "UNKNOWN_TYPE" 0f2a 02c2 | | .STRTAB 0x02c2->0x108b ; "IN_VISIBLE_SUBPROGRAM_SPEC_PART" 0f2b 02df | | .STRTAB 0x02df->0x109a ; "IN_VISIBLE_PACKAGE_SPEC_PART" 0f2c 02f9 | | .STRTAB 0x02f9->0x10a8 ; "IN_VISIBLE_PACKAGE_PRIVATE_PART" 0f2d 0316 | | .STRTAB 0x0316->0x10b8 ; "IN_PACKAGE_SPEC_PART" 0f2e 0328 | ( | .STRTAB 0x0328->0x10c2 ; "IN_PACKAGE_PRIVATE_PART" 0f2f 033d | = | .STRTAB 0x033d->0x10cd ; "IN_PACKAGE_BODY_PART" 0f30 034f | O | .STRTAB 0x034f->0x10d7 ; "IN_OTHER_PART" 0f31 035a | Z | .STRTAB 0x035a->0x10de ; "SUCCESSFUL" 0f32 0362 | b | .STRTAB 0x0362->0x10e3 ; "ITEM_LOCKED" 0f33 036b | k | .STRTAB 0x036b->0x10e8 ; "ITEM_DISAPPEARED" 0f34 0379 | y | .STRTAB 0x0379->0x10f0 ; "INVALID_WHICH" 0f35 0384 | | .STRTAB 0x0384->0x10f7 ; "OTHER_ERROR" 0f36 038d | | .STRTAB 0x038d->0x10fc ; "START" 0f37 0390 | | .STRTAB 0x0390->0x10ff ; "FINISH" 0f38 0394 | | .STRTAB 0x0394->0x1102 ; "'1" 0f39 0394 | | .STRTAB 0x0394->0x1103 ; "?" 0f3a 0393 | | .STRTAB 0x0393->0x1103 ; " is not an ada object" 0f3b 03a6 | | .STRTAB 0x03a6->0x110e ; " isn't installed or higher" 0f3c 03be | | .STRTAB 0x03be->0x111b ; "'" 0f3d 03bd | | .STRTAB 0x03bd->0x111b ; "Formals contained unexpected node " 0f3e 03dd | | .STRTAB 0x03dd->0x112c ; ".#WITH#" 0f3f 03e2 | | .STRTAB 0x03e2->0x1130 ; "." 0f40 03e1 | | .STRTAB 0x03e1->0x1130 ; " " 0f41 03e0 | | .STRTAB 0x03e0->0x1131 ; "(?)" 0f42 03e1 | | .STRTAB 0x03e1->0x1132 ; "(U)" 0f43 03e2 | | .STRTAB 0x03e2->0x1134 ; "(S)" 0f44 03e3 | | .STRTAB 0x03e3->0x1135 ; "(B)" 0f45 03e4 | | .STRTAB 0x03e4->0x1137 ; "(UT)" 0f46 03e6 | | .STRTAB 0x03e6->0x1139 ; "(ST)" 0f47 03e8 | | .STRTAB 0x03e8->0x113b ; "(BT)" 0f48 03ea | | .STRTAB 0x03ea->0x113d ; "ITEM" 0f49 03ec | | .STRTAB 0x03ec->0x113f ; "DEFINED IN" 0f4a 03f4 | | .STRTAB 0x03f4->0x1144 ; "IS REFERRED TO BY" 0f4b 0403 | | .STRTAB 0x0403->0x114c ; " FULL NAMES OF \x22IS REFERRED TO BY\x22 UNITS" 0f4c 0436 | 6 | .STRTAB 0x0436->0x1167 ; " FULL NAMES OF \x22DEFINED IN\x22 UNITS " 0f4d 0463 | c | .STRTAB 0x0463->0x117e ; "[" 0f4e 0462 | b | .STRTAB 0x0462->0x117f ; "]" 0f4f 0461 | a | .STRTAB 0x0461->0x117f ; "...." 0f50 0463 | c | .STREND 0x0463->0x1181 0f51 5245 4645 |REFE| .STRTAB_STRINGS 1182 0000 0000 | | .BLANK 0000[0x6] 1188 ; -------------------------------------------------------------------------------------- 1188 ; Debug Table 1188 ; -------------------------------------------------------------------------------------- 1188 0004 0003 | | .DEBUG4 0x0004,0x0003,0xe46a,0x0000,0x0001,0x0000 118e c000 9ed9 | | .XXX[0x72] 1190 234f c013 |#O | 1192 f300 0000 | | 1194 0001 3d47 | =G| 1196 004f 5da0 | O] | 1198 0000 0228 | (| 119a 4601 3d47 |F =G| 119c 0000 0000 | | 119e 2180 0007 |! | 11a0 1e20 0000 | | 11a2 0000 009e | | 11a4 6580 0140 |e @| 11a6 0000 0009 | | 11a8 e65a 1120 | Z | 11aa 013c 8100 | < | 11ac 0000 0013 | | 11ae d2cc ec5c | \| 11b0 0279 0200 | y | 11b2 0000 001e | | 11b4 0000 0e28 | (| 11b6 9000 0001 | | 11b8 1a7e 009f | ~ | 11ba 9800 0000 | | 11bc 0009 f42c | ,| 11be 027d 6a00 | }j | 11c0 9f78 5142 | xQB| 11c2 3009 f42c |0 ,| 11c4 0000 0001 | | 11c6 2c00 003e |, >| 11c8 88c0 27de | ' | 11ca 1000 04f8 | | 11cc 2600 0600 |& | 11ce 0000 004f | O| 11d0 8270 8900 | p | 11d2 09ed fc00 | | 11d4 0000 009f | | 11d6 35a7 62e0 |5 b | 11d8 13db f800 | | 11da 0000 0134 | 4| 11dc 0000 7ca3 | | | 11de cb82 0027 | '| 11e0 b7f0 0000 | | 11e2 0003 e814 | | 11e4 053e dafb | > | 11e6 864a 004f | J O| 11e8 1100 0000 | | 11ea 0004 f1ce | | 11ec 0004 fde0 | | 11ee 0000 0000 | | 11f0 0002 0002 | | 11f2 7f30 0000 | 0 | 11f4 0000 0000 | | 11f6 0003 0000 | | 11f8 0000 0002 | | 11fa 7fd0 0000 | | 11fc 0000 0002 | | 11fe 806d 0000 | m |