|
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_779ce4
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000 └─ ⟦cfc2e13cd⟧ »Space Info Vol 2« └─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code 0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 1080 | | .CONST 0x1080 ; 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 800a | | .CONST 0x800a ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 0280 | | .CONST 0x0280 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 005a | Z | .CONST 0x005a ; Number of locals 000b INIT_0008: 000b 4800 |H | Short_Literal 0x0 000c 480f |H | Short_Literal 0xf 000d 029f 028b | | Declare_Subprogram INIT_0288,For_Call 000f 03fe | | Declare_Type Discrete,Defined,Visible 0010 00c4 | | Action Make_Default 0011 029a 02b3 | | Declare_Subprogram INIT_02b0,For_Outer_Call,Visible,Unelaborated 0013 029a 02bb | | Declare_Subprogram INIT_02b8,For_Outer_Call,Visible,Unelaborated 0015 029a 02c3 | | Declare_Subprogram INIT_02c0,For_Outer_Call,Visible,Unelaborated 0017 029a 03bb | | Declare_Subprogram INIT_03b8,For_Outer_Call,Visible,Unelaborated 0019 029a 03cb | | Declare_Subprogram INIT_03c8,For_Outer_Call,Visible,Unelaborated 001b 029a 03d3 | | Declare_Subprogram INIT_03d0,For_Outer_Call,Visible,Unelaborated 001d 029a 03e3 | | Declare_Subprogram INIT_03e0,For_Outer_Call,Visible,Unelaborated 001f 029a 03eb | | Declare_Subprogram INIT_03e8,For_Outer_Call,Visible,Unelaborated 0021 029a 03f3 | | Declare_Subprogram INIT_03f0,For_Outer_Call,Visible,Unelaborated 0023 029a 042b | +| Declare_Subprogram INIT_0428,For_Outer_Call,Visible,Unelaborated 0025 029a 0493 | | Declare_Subprogram INIT_0490,For_Outer_Call,Visible,Unelaborated 0027 029a 049b | | Declare_Subprogram INIT_0498,For_Outer_Call,Visible,Unelaborated 0029 029a 04f3 | | Declare_Subprogram INIT_04f0,For_Outer_Call,Visible,Unelaborated 002b 029a 055b | [| Declare_Subprogram INIT_0558,For_Outer_Call,Visible,Unelaborated 002d 029a 05a3 | | Declare_Subprogram INIT_05a0,For_Outer_Call,Visible,Unelaborated 002f 029a 05e3 | | Declare_Subprogram INIT_05e0,For_Outer_Call,Visible,Unelaborated 0031 e20d | | Load 0x1,0xd 0032 4808 |H | Short_Literal 0x8 0033 4800 |H | Short_Literal 0x0 0034 4801 |H | Short_Literal 0x1 0035 4815 |H | Short_Literal 0x15 0036 0319 | | Declare_Type Variant_Record,Incomplete,Visible 0037 029f 05eb | | Declare_Subprogram INIT_05e8,For_Call 0039 00d9 | | Load_Top At_Offset_1 003a 012a | * | Execute Any,Change_Utility 003b 0007 | | Action Break_Optional 003c 00d8 | | Load_Top At_Offset_0 003d 02a0 | | Declare_Subprogram Null_Subprogram 003e 03ae | | Declare_Type Heap_Access,Defined,Visible 003f 00d8 | | Load_Top At_Offset_0 0040 0129 | ) | Execute Any,Make_Visible 0041 c20e | | Store 0x1,0xe 0042 e20d | | Load 0x1,0xd 0043 4808 |H | Short_Literal 0x8 0044 4800 |H | Short_Literal 0x0 0045 4801 |H | Short_Literal 0x1 0046 480b |H | Short_Literal 0xb 0047 0319 | | Declare_Type Variant_Record,Incomplete,Visible 0048 029f 06c3 | | Declare_Subprogram INIT_06c0,For_Call 004a 00d9 | | Load_Top At_Offset_1 004b 012a | * | Execute Any,Change_Utility 004c 0007 | | Action Break_Optional 004d 00d8 | | Load_Top At_Offset_0 004e 02a0 | | Declare_Subprogram Null_Subprogram 004f 03ae | | Declare_Type Heap_Access,Defined,Visible 0050 00bf | | Action Accept_Activation 0051 8002 | | Call 0x0,0x2 0052 00e2 | | Load_Encached Integer_Cache 0053 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0054 e003 | | Load 0x0,0x3 0055 e004 | | Load 0x0,0x4 0056 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0057 02a0 | | Declare_Subprogram Null_Subprogram 0058 4802 |H | Short_Literal 0x2 0059 032d | - | Declare_Type Record,Defined 005a e005 | | Load 0x0,0x5 005b 00d9 | | Load_Top At_Offset_1 005c 00e1 | | Load_Encached Boolean_Cache 005d 00e1 | | Load_Encached Boolean_Cache 005e 029f 078b | | Declare_Subprogram INIT_0788,For_Call 0060 4804 |H | Short_Literal 0x4 0061 032d | - | Declare_Type Record,Defined 0062 03a8 | | Declare_Type Heap_Access,Indirect_Literal 0063 e220 | | Load 0x1,0x20 0064 00e2 | | Load_Encached Integer_Cache 0065 029f 079b | | Declare_Subprogram INIT_0798,For_Call 0067 4802 |H | Short_Literal 0x2 0068 032d | - | Declare_Type Record,Defined 0069 00d8 | | Load_Top At_Offset_0 006a 02a0 | | Declare_Subprogram Null_Subprogram 006b 00db | | Load_Top At_Offset_3 006c 03a3 | | Complete_Type Heap_Access,By_Defining 006d 4809 |H | Short_Literal 0x9 006e 480b |H | Short_Literal 0xb 006f e20d | | Load 0x1,0xd 0070 03f8 | | Declare_Type Discrete,Constrained 0071 4800 |H | Short_Literal 0x0 0072 4808 |H | Short_Literal 0x8 0073 e001 | | Load 0x0,0x1 0074 01d7 | | Execute Vector,Field_Read 0075 02a0 | | Declare_Subprogram Null_Subprogram 0076 038e | | Declare_Type Package,Defined 0077 e001 | | Load 0x0,0x1 0078 4807 |H | Short_Literal 0x7 0079 e001 | | Load 0x0,0x1 007a 01d7 | | Execute Vector,Field_Read 007b e226 | & | Load 0x1,0x26 007c 4803 |H | Short_Literal 0x3 007d e22a | * | Load 0x1,0x2a 007e 020e | | Execute Module,Augment_Imports 007f 0387 | | Declare_Variable Package 0080 4800 |H | Short_Literal 0x0 0081 480c |H | Short_Literal 0xc 0082 e001 | | Load 0x0,0x1 0083 01d7 | | Execute Vector,Field_Read 0084 02a0 | | Declare_Subprogram Null_Subprogram 0085 038e | | Declare_Type Package,Defined 0086 e001 | | Load 0x0,0x1 0087 480b |H | Short_Literal 0xb 0088 e001 | | Load 0x0,0x1 0089 01d7 | | Execute Vector,Field_Read 008a e226 | & | Load 0x1,0x26 008b e004 | | Load 0x0,0x4 008c e227 | ' | Load 0x1,0x27 008d 4805 |H | Short_Literal 0x5 008e e22b | + | Load 0x1,0x2b 008f 020e | | Execute Module,Augment_Imports 0090 0387 | | Declare_Variable Package 0091 4800 |H | Short_Literal 0x0 0092 480e |H | Short_Literal 0xe 0093 e001 | | Load 0x0,0x1 0094 01d7 | | Execute Vector,Field_Read 0095 02a0 | | Declare_Subprogram Null_Subprogram 0096 038e | | Declare_Type Package,Defined 0097 e001 | | Load 0x0,0x1 0098 480d |H | Short_Literal 0xd 0099 e001 | | Load 0x0,0x1 009a 01d7 | | Execute Vector,Field_Read 009b e226 | & | Load 0x1,0x26 009c 4803 |H | Short_Literal 0x3 009d e22c | , | Load 0x1,0x2c 009e 020e | | Execute Module,Augment_Imports 009f 0387 | | Declare_Variable Package 00a0 4800 |H | Short_Literal 0x0 00a1 4810 |H | Short_Literal 0x10 00a2 e001 | | Load 0x0,0x1 00a3 01d7 | | Execute Vector,Field_Read 00a4 02a0 | | Declare_Subprogram Null_Subprogram 00a5 038e | | Declare_Type Package,Defined 00a6 e001 | | Load 0x0,0x1 00a7 480f |H | Short_Literal 0xf 00a8 e001 | | Load 0x0,0x1 00a9 01d7 | | Execute Vector,Field_Read 00aa 4802 |H | Short_Literal 0x2 00ab 00db | | Load_Top At_Offset_3 00ac 020e | | Execute Module,Augment_Imports 00ad 0387 | | Declare_Variable Package 00ae 4800 |H | Short_Literal 0x0 00af 4802 |H | Short_Literal 0x2 00b0 e001 | | Load 0x0,0x1 00b1 01d7 | | Execute Vector,Field_Read 00b2 02a0 | | Declare_Subprogram Null_Subprogram 00b3 038e | | Declare_Type Package,Defined 00b4 e001 | | Load 0x0,0x1 00b5 4801 |H | Short_Literal 0x1 00b6 e001 | | Load 0x0,0x1 00b7 01d7 | | Execute Vector,Field_Read 00b8 e226 | & | Load 0x1,0x26 00b9 4803 |H | Short_Literal 0x3 00ba e22e | . | Load 0x1,0x2e 00bb 020e | | Execute Module,Augment_Imports 00bc 0387 | | Declare_Variable Package 00bd 4800 |H | Short_Literal 0x0 00be 4804 |H | Short_Literal 0x4 00bf e001 | | Load 0x0,0x1 00c0 01d7 | | Execute Vector,Field_Read 00c1 02a0 | | Declare_Subprogram Null_Subprogram 00c2 038e | | Declare_Type Package,Defined 00c3 e001 | | Load 0x0,0x1 00c4 4803 |H | Short_Literal 0x3 00c5 e001 | | Load 0x0,0x1 00c6 01d7 | | Execute Vector,Field_Read 00c7 4802 |H | Short_Literal 0x2 00c8 00db | | Load_Top At_Offset_3 00c9 020e | | Execute Module,Augment_Imports 00ca 0387 | | Declare_Variable Package 00cb 4800 |H | Short_Literal 0x0 00cc 480a |H | Short_Literal 0xa 00cd e001 | | Load 0x0,0x1 00ce 01d7 | | Execute Vector,Field_Read 00cf 02a0 | | Declare_Subprogram Null_Subprogram 00d0 038e | | Declare_Type Package,Defined 00d1 e001 | | Load 0x0,0x1 00d2 4809 |H | Short_Literal 0x9 00d3 e001 | | Load 0x0,0x1 00d4 01d7 | | Execute Vector,Field_Read 00d5 4802 |H | Short_Literal 0x2 00d6 00db | | Load_Top At_Offset_3 00d7 020e | | Execute Module,Augment_Imports 00d8 0387 | | Declare_Variable Package 00d9 4800 |H | Short_Literal 0x0 00da 4806 |H | Short_Literal 0x6 00db e001 | | Load 0x0,0x1 00dc 01d7 | | Execute Vector,Field_Read 00dd 02a0 | | Declare_Subprogram Null_Subprogram 00de 038e | | Declare_Type Package,Defined 00df e001 | | Load 0x0,0x1 00e0 4805 |H | Short_Literal 0x5 00e1 e001 | | Load 0x0,0x1 00e2 01d7 | | Execute Vector,Field_Read 00e3 e220 | | Load 0x1,0x20 00e4 4803 |H | Short_Literal 0x3 00e5 e231 | 1 | Load 0x1,0x31 00e6 020e | | Execute Module,Augment_Imports 00e7 0387 | | Declare_Variable Package 00e8 e003 | | Load 0x0,0x3 00e9 e220 | | Load 0x1,0x20 00ea 00d8 | | Load_Top At_Offset_0 00eb e220 | | Load 0x1,0x20 00ec 00d8 | | Load_Top At_Offset_0 00ed 00e1 | | Load_Encached Boolean_Cache 00ee e004 | | Load 0x0,0x4 00ef 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00f0 e227 | ' | Load 0x1,0x27 00f1 00d8 | | Load_Top At_Offset_0 00f2 00e1 | | Load_Encached Boolean_Cache 00f3 00e1 | | Load_Encached Boolean_Cache 00f4 00e1 | | Load_Encached Boolean_Cache 00f5 4801 |H | Short_Literal 0x1 00f6 e22c | , | Load 0x1,0x2c 00f7 1b18 | | Execute Package,Field_Read,Field_Number 0x18 00f8 4801 |H | Short_Literal 0x1 00f9 e231 | 1 | Load 0x1,0x31 00fa 1b18 | | Execute Package,Field_Read,Field_Number 0x18 00fb 4801 |H | Short_Literal 0x1 00fc e230 | 0 | Load 0x1,0x30 00fd 1b19 | | Execute Package,Field_Read,Field_Number 0x19 00fe 4801 |H | Short_Literal 0x1 00ff e22d | - | Load 0x1,0x2d 0100 1b19 | | Execute Package,Field_Read,Field_Number 0x19 0101 4801 |H | Short_Literal 0x1 0102 e22e | . | Load 0x1,0x2e 0103 1b18 | | Execute Package,Field_Read,Field_Number 0x18 0104 4801 |H | Short_Literal 0x1 0105 e22f | / | Load 0x1,0x2f 0106 1b19 | | Execute Package,Field_Read,Field_Number 0x19 0107 4801 |H | Short_Literal 0x1 0108 e22b | + | Load 0x1,0x2b 0109 1b18 | | Execute Package,Field_Read,Field_Number 0x18 010a 4801 |H | Short_Literal 0x1 010b e22a | * | Load 0x1,0x2a 010c 1b18 | | Execute Package,Field_Read,Field_Number 0x18 010d 029f 05eb | | Declare_Subprogram INIT_05e8,For_Call 010f 4808 |H | Short_Literal 0x8 0110 480c |H | Short_Literal 0xc 0111 e21f | | Load 0x1,0x1f 0112 0307 | | Complete_Type Variant_Record,By_Defining 0113 e220 | | Load 0x1,0x20 0114 03a0 | | Complete_Type Heap_Access,By_Component_Completion 0115 00e1 | | Load_Encached Boolean_Cache 0116 e220 | | Load 0x1,0x20 0117 4801 |H | Short_Literal 0x1 0118 00db | | Load_Top At_Offset_3 0119 1b19 | | Execute Package,Field_Read,Field_Number 0x19 011a 4801 |H | Short_Literal 0x1 011b e230 | 0 | Load 0x1,0x30 011c 1b1a | | Execute Package,Field_Read,Field_Number 0x1a 011d 4801 |H | Short_Literal 0x1 011e e22d | - | Load 0x1,0x2d 011f 1b1a | | Execute Package,Field_Read,Field_Number 0x1a 0120 4801 |H | Short_Literal 0x1 0121 e22e | . | Load 0x1,0x2e 0122 1b19 | | Execute Package,Field_Read,Field_Number 0x19 0123 4801 |H | Short_Literal 0x1 0124 e22f | / | Load 0x1,0x2f 0125 1b1a | | Execute Package,Field_Read,Field_Number 0x1a 0126 4801 |H | Short_Literal 0x1 0127 e22b | + | Load 0x1,0x2b 0128 1b19 | | Execute Package,Field_Read,Field_Number 0x19 0129 4801 |H | Short_Literal 0x1 012a e22c | , | Load 0x1,0x2c 012b 1b19 | | Execute Package,Field_Read,Field_Number 0x19 012c 4801 |H | Short_Literal 0x1 012d e22a | * | Load 0x1,0x2a 012e 1b19 | | Execute Package,Field_Read,Field_Number 0x19 012f 029f 06c3 | | Declare_Subprogram INIT_06c0,For_Call 0131 4808 |H | Short_Literal 0x8 0132 4802 |H | Short_Literal 0x2 0133 e221 | ! | Load 0x1,0x21 0134 0307 | | Complete_Type Variant_Record,By_Defining 0135 e222 | " | Load 0x1,0x22 0136 03a0 | | Complete_Type Heap_Access,By_Component_Completion 0137 029d 07ab | | Declare_Subprogram INIT_07a8,For_Outer_Call 0139 029d 07bb | | Declare_Subprogram INIT_07b8,For_Outer_Call 013b 029d 07fb | | Declare_Subprogram INIT_07f8,For_Outer_Call 013d 029d 0813 | | Declare_Subprogram INIT_0810,For_Outer_Call 013f 1d0f | | Execute_Immediate Reference_Lex_1,0xf 0140 00c7 | | Action Elaborate_Subprogram 0141 1d10 | | Execute_Immediate Reference_Lex_1,0x10 0142 00c7 | | Action Elaborate_Subprogram 0143 029d 081b | | Declare_Subprogram INIT_0818,For_Outer_Call 0145 029d 0823 | #| Declare_Subprogram INIT_0820,For_Outer_Call 0147 029d 083b | ;| Declare_Subprogram INIT_0838,For_Outer_Call 0149 029d 0853 | S| Declare_Subprogram INIT_0850,For_Outer_Call 014b 029d 0873 | s| Declare_Subprogram INIT_0870,For_Outer_Call 014d 029d 0883 | | Declare_Subprogram INIT_0880,For_Outer_Call 014f 029d 08b3 | | Declare_Subprogram INIT_08b0,For_Outer_Call 0151 029d 08e3 | | Declare_Subprogram INIT_08e0,For_Outer_Call 0153 029d 090b | | Declare_Subprogram INIT_0908,For_Outer_Call 0155 029d 092b | +| Declare_Subprogram INIT_0928,For_Outer_Call 0157 029d 094b | K| Declare_Subprogram INIT_0948,For_Outer_Call 0159 029d 0973 | s| Declare_Subprogram INIT_0970,For_Outer_Call 015b 029d 0993 | | Declare_Subprogram INIT_0990,For_Outer_Call 015d 029d 09a3 | | Declare_Subprogram INIT_09a0,For_Outer_Call 015f 029d 0a13 | | Declare_Subprogram INIT_0a10,For_Outer_Call 0161 029d 0a2b | +| Declare_Subprogram INIT_0a28,For_Outer_Call 0163 029d 0a8b | | Declare_Subprogram INIT_0a88,For_Outer_Call 0165 029d 0a93 | | Declare_Subprogram INIT_0a90,For_Outer_Call 0167 029d 0acb | | Declare_Subprogram INIT_0ac8,For_Outer_Call 0169 029d 0adb | | Declare_Subprogram INIT_0ad8,For_Outer_Call 016b 029d 0afb | | Declare_Subprogram INIT_0af8,For_Outer_Call 016d 029d 0b23 | #| Declare_Subprogram INIT_0b20,For_Outer_Call 016f 1d11 | | Execute_Immediate Reference_Lex_1,0x11 0170 00c7 | | Action Elaborate_Subprogram 0171 1d12 | | Execute_Immediate Reference_Lex_1,0x12 0172 00c7 | | Action Elaborate_Subprogram 0173 1d13 | | Execute_Immediate Reference_Lex_1,0x13 0174 00c7 | | Action Elaborate_Subprogram 0175 1d14 | | Execute_Immediate Reference_Lex_1,0x14 0176 00c7 | | Action Elaborate_Subprogram 0177 1d15 | | Execute_Immediate Reference_Lex_1,0x15 0178 00c7 | | Action Elaborate_Subprogram 0179 1d16 | | Execute_Immediate Reference_Lex_1,0x16 017a 00c7 | | Action Elaborate_Subprogram 017b 1d17 | | Execute_Immediate Reference_Lex_1,0x17 017c 00c7 | | Action Elaborate_Subprogram 017d 1d18 | | Execute_Immediate Reference_Lex_1,0x18 017e 00c7 | | Action Elaborate_Subprogram 017f 1d19 | | Execute_Immediate Reference_Lex_1,0x19 0180 00c7 | | Action Elaborate_Subprogram 0181 1d1a | | Execute_Immediate Reference_Lex_1,0x1a 0182 00c7 | | Action Elaborate_Subprogram 0183 1d1b | | Execute_Immediate Reference_Lex_1,0x1b 0184 00c7 | | Action Elaborate_Subprogram 0185 1d1c | | Execute_Immediate Reference_Lex_1,0x1c 0186 00c7 | | Action Elaborate_Subprogram 0187 1d1d | | Execute_Immediate Reference_Lex_1,0x1d 0188 00c7 | | Action Elaborate_Subprogram 0189 1d1e | | Execute_Immediate Reference_Lex_1,0x1e 018a 00c7 | | Action Elaborate_Subprogram 018b 029d 0b53 | S| Declare_Subprogram INIT_0b50,For_Outer_Call 018d 029d 0b6b | k| Declare_Subprogram INIT_0b68,For_Outer_Call 018f 029d 0b7b | {| Declare_Subprogram INIT_0b78,For_Outer_Call 0191 029b 0b8b | | Declare_Subprogram INIT_0b88,For_Outer_Call,Unelaborated 0193 029d 0ba3 | | Declare_Subprogram INIT_0ba0,For_Outer_Call 0195 029d 0bbb | | Declare_Subprogram INIT_0bb8,For_Outer_Call 0197 029d 0bd3 | | Declare_Subprogram INIT_0bd0,For_Outer_Call 0199 029d 0be3 | | Declare_Subprogram INIT_0be0,For_Outer_Call 019b 029d 0c03 | | Declare_Subprogram INIT_0c00,For_Outer_Call 019d 029d 0c2b | +| Declare_Subprogram INIT_0c28,For_Outer_Call 019f 029d 0ca3 | | Declare_Subprogram INIT_0ca0,For_Outer_Call 01a1 029d 0ce3 | | Declare_Subprogram INIT_0ce0,For_Outer_Call 01a3 029d 0cf3 | | Declare_Subprogram INIT_0cf0,For_Outer_Call 01a5 1d4f | O | Execute_Immediate Reference_Lex_1,0x4f 01a6 00c7 | | Action Elaborate_Subprogram 01a7 029d 0d13 | | Declare_Subprogram INIT_0d10,For_Outer_Call 01a9 029d 0d43 | C| Declare_Subprogram INIT_0d40,For_Outer_Call 01ab e006 | | Load 0x0,0x6 01ac 1d48 | H | Execute_Immediate Reference_Lex_1,0x48 01ad 1d43 | C | Execute_Immediate Reference_Lex_1,0x43 01ae 1d0f | | Execute_Immediate Reference_Lex_1,0xf 01af a007 | | Store_Unchecked 0x0,0x7 01b0 1d41 | A | Execute_Immediate Reference_Lex_1,0x41 01b1 1d4c | L | Execute_Immediate Reference_Lex_1,0x4c 01b2 1d52 | R | Execute_Immediate Reference_Lex_1,0x52 01b3 e227 | ' | Load 0x1,0x27 01b4 1d50 | P | Execute_Immediate Reference_Lex_1,0x50 01b5 1d51 | Q | Execute_Immediate Reference_Lex_1,0x51 01b6 a008 | | Store_Unchecked 0x0,0x8 01b7 a009 | | Store_Unchecked 0x0,0x9 01b8 1d46 | F | Execute_Immediate Reference_Lex_1,0x46 01b9 1d37 | 7 | Execute_Immediate Reference_Lex_1,0x37 01ba e00a | | Load 0x0,0xa 01bb e00b | | Load 0x0,0xb 01bc e004 | | Load 0x0,0x4 01bd e003 | | Load 0x0,0x3 01be 1d54 | T | Execute_Immediate Reference_Lex_1,0x54 01bf 4814 |H | Short_Literal 0x14 01c0 e22c | , | Load 0x1,0x2c 01c1 020e | | Execute Module,Augment_Imports 01c2 e22c | , | Load 0x1,0x2c 01c3 020f | | Execute Module,Activate 01c4 a00c | | Store_Unchecked 0x0,0xc 01c5 e220 | | Load 0x1,0x20 01c6 a00d | | Store_Unchecked 0x0,0xd 01c7 1d42 | B | Execute_Immediate Reference_Lex_1,0x42 01c8 a00e | | Store_Unchecked 0x0,0xe 01c9 a00f | | Store_Unchecked 0x0,0xf 01ca e010 | | Load 0x0,0x10 01cb e011 | | Load 0x0,0x11 01cc 1d50 | P | Execute_Immediate Reference_Lex_1,0x50 01cd 1d59 | Y | Execute_Immediate Reference_Lex_1,0x59 01ce 1d52 | R | Execute_Immediate Reference_Lex_1,0x52 01cf 1d51 | Q | Execute_Immediate Reference_Lex_1,0x51 01d0 a008 | | Store_Unchecked 0x0,0x8 01d1 a009 | | Store_Unchecked 0x0,0x9 01d2 1d44 | D | Execute_Immediate Reference_Lex_1,0x44 01d3 1d46 | F | Execute_Immediate Reference_Lex_1,0x46 01d4 e003 | | Load 0x0,0x3 01d5 1d56 | V | Execute_Immediate Reference_Lex_1,0x56 01d6 a012 | | Store_Unchecked 0x0,0x12 01d7 a013 | | Store_Unchecked 0x0,0x13 01d8 a007 | | Store_Unchecked 0x0,0x7 01d9 1d5a | Z | Execute_Immediate Reference_Lex_1,0x5a 01da 4816 |H | Short_Literal 0x16 01db e22a | * | Load 0x1,0x2a 01dc 020e | | Execute Module,Augment_Imports 01dd e22a | * | Load 0x1,0x2a 01de 020f | | Execute Module,Activate 01df a00d | | Store_Unchecked 0x0,0xd 01e0 e220 | | Load 0x1,0x20 01e1 1d42 | B | Execute_Immediate Reference_Lex_1,0x42 01e2 a014 | | Store_Unchecked 0x0,0x14 01e3 1d50 | P | Execute_Immediate Reference_Lex_1,0x50 01e4 1d59 | Y | Execute_Immediate Reference_Lex_1,0x59 01e5 1d52 | R | Execute_Immediate Reference_Lex_1,0x52 01e6 1d51 | Q | Execute_Immediate Reference_Lex_1,0x51 01e7 e010 | | Load 0x0,0x10 01e8 e011 | | Load 0x0,0x11 01e9 a008 | | Store_Unchecked 0x0,0x8 01ea a009 | | Store_Unchecked 0x0,0x9 01eb 1d44 | D | Execute_Immediate Reference_Lex_1,0x44 01ec a015 | | Store_Unchecked 0x0,0x15 01ed 1d35 | 5 | Execute_Immediate Reference_Lex_1,0x35 01ee 1d34 | 4 | Execute_Immediate Reference_Lex_1,0x34 01ef 1d46 | F | Execute_Immediate Reference_Lex_1,0x46 01f0 a016 | | Store_Unchecked 0x0,0x16 01f1 e017 | | Load 0x0,0x17 01f2 a018 | | Store_Unchecked 0x0,0x18 01f3 a013 | | Store_Unchecked 0x0,0x13 01f4 e019 | | Load 0x0,0x19 01f5 1d55 | U | Execute_Immediate Reference_Lex_1,0x55 01f6 1d56 | V | Execute_Immediate Reference_Lex_1,0x56 01f7 1d4e | N | Execute_Immediate Reference_Lex_1,0x4e 01f8 1d5a | Z | Execute_Immediate Reference_Lex_1,0x5a 01f9 e034 | 4 | Load 0x0,0x34 01fa a021 | ! | Store_Unchecked 0x0,0x21 01fb e031 | 1 | Load 0x0,0x31 01fc a032 | 2 | Store_Unchecked 0x0,0x32 01fd e04e | N | Load 0x0,0x4e 01fe a04f | O | Store_Unchecked 0x0,0x4f 01ff a050 | P | Store_Unchecked 0x0,0x50 0200 a051 | Q | Store_Unchecked 0x0,0x51 0201 e223 | # | Load 0x1,0x23 0202 1d32 | 2 | Execute_Immediate Reference_Lex_1,0x32 0203 a052 | R | Store_Unchecked 0x0,0x52 0204 1d33 | 3 | Execute_Immediate Reference_Lex_1,0x33 0205 a007 | | Store_Unchecked 0x0,0x7 0206 4827 |H' | Short_Literal 0x27 0207 e22b | + | Load 0x1,0x2b 0208 020e | | Execute Module,Augment_Imports 0209 e22b | + | Load 0x1,0x2b 020a 020f | | Execute Module,Activate 020b e226 | & | Load 0x1,0x26 020c e017 | | Load 0x0,0x17 020d a01a | | Store_Unchecked 0x0,0x1a 020e a00d | | Store_Unchecked 0x0,0xd 020f a01b | | Store_Unchecked 0x0,0x1b 0210 a012 | | Store_Unchecked 0x0,0x12 0211 a013 | | Store_Unchecked 0x0,0x13 0212 a01c | | Store_Unchecked 0x0,0x1c 0213 e220 | | Load 0x1,0x20 0214 1d42 | B | Execute_Immediate Reference_Lex_1,0x42 0215 1d56 | V | Execute_Immediate Reference_Lex_1,0x56 0216 1d50 | P | Execute_Immediate Reference_Lex_1,0x50 0217 1d59 | Y | Execute_Immediate Reference_Lex_1,0x59 0218 1d52 | R | Execute_Immediate Reference_Lex_1,0x52 0219 1d51 | Q | Execute_Immediate Reference_Lex_1,0x51 021a e010 | | Load 0x0,0x10 021b e011 | | Load 0x0,0x11 021c a008 | | Store_Unchecked 0x0,0x8 021d a009 | | Store_Unchecked 0x0,0x9 021e a016 | | Store_Unchecked 0x0,0x16 021f 1d44 | D | Execute_Immediate Reference_Lex_1,0x44 0220 1d46 | F | Execute_Immediate Reference_Lex_1,0x46 0221 e005 | | Load 0x0,0x5 0222 a01d | | Store_Unchecked 0x0,0x1d 0223 1d55 | U | Execute_Immediate Reference_Lex_1,0x55 0224 a01e | | Store_Unchecked 0x0,0x1e 0225 1d4e | N | Execute_Immediate Reference_Lex_1,0x4e 0226 1d5a | Z | Execute_Immediate Reference_Lex_1,0x5a 0227 481c |H | Short_Literal 0x1c 0228 e230 | 0 | Load 0x1,0x30 0229 020e | | Execute Module,Augment_Imports 022a e230 | 0 | Load 0x1,0x30 022b 020f | | Execute Module,Activate 022c e226 | & | Load 0x1,0x26 022d e017 | | Load 0x0,0x17 022e a01f | | Store_Unchecked 0x0,0x1f 022f a01b | | Store_Unchecked 0x0,0x1b 0230 a020 | | Store_Unchecked 0x0,0x20 0231 a012 | | Store_Unchecked 0x0,0x12 0232 a013 | | Store_Unchecked 0x0,0x13 0233 a01c | | Store_Unchecked 0x0,0x1c 0234 1d55 | U | Execute_Immediate Reference_Lex_1,0x55 0235 1d50 | P | Execute_Immediate Reference_Lex_1,0x50 0236 1d51 | Q | Execute_Immediate Reference_Lex_1,0x51 0237 1d52 | R | Execute_Immediate Reference_Lex_1,0x52 0238 a008 | | Store_Unchecked 0x0,0x8 0239 a009 | | Store_Unchecked 0x0,0x9 023a 1d42 | B | Execute_Immediate Reference_Lex_1,0x42 023b 1d44 | D | Execute_Immediate Reference_Lex_1,0x44 023c 1d46 | F | Execute_Immediate Reference_Lex_1,0x46 023d a021 | ! | Store_Unchecked 0x0,0x21 023e e006 | | Load 0x0,0x6 023f a022 | " | Store_Unchecked 0x0,0x22 0240 a023 | # | Store_Unchecked 0x0,0x23 0241 1d4e | N | Execute_Immediate Reference_Lex_1,0x4e 0242 4816 |H | Short_Literal 0x16 0243 e22d | - | Load 0x1,0x2d 0244 020e | | Execute Module,Augment_Imports 0245 e22d | - | Load 0x1,0x2d 0246 020f | | Execute Module,Activate 0247 e017 | | Load 0x0,0x17 0248 a024 | $ | Store_Unchecked 0x0,0x24 0249 e220 | | Load 0x1,0x20 024a e00b | | Load 0x0,0xb 024b a013 | | Store_Unchecked 0x0,0x13 024c 1d55 | U | Execute_Immediate Reference_Lex_1,0x55 024d a007 | | Store_Unchecked 0x0,0x7 024e e010 | | Load 0x0,0x10 024f 1d33 | 3 | Execute_Immediate Reference_Lex_1,0x33 0250 e011 | | Load 0x0,0x11 0251 1d50 | P | Execute_Immediate Reference_Lex_1,0x50 0252 e227 | ' | Load 0x1,0x27 0253 1d51 | Q | Execute_Immediate Reference_Lex_1,0x51 0254 a008 | | Store_Unchecked 0x0,0x8 0255 a009 | | Store_Unchecked 0x0,0x9 0256 1d46 | F | Execute_Immediate Reference_Lex_1,0x46 0257 1d4e | N | Execute_Immediate Reference_Lex_1,0x4e 0258 4811 |H | Short_Literal 0x11 0259 e22e | . | Load 0x1,0x2e 025a 020e | | Execute Module,Augment_Imports 025b e22e | . | Load 0x1,0x2e 025c 020f | | Execute Module,Activate 025d e226 | & | Load 0x1,0x26 025e e017 | | Load 0x0,0x17 025f a025 | % | Store_Unchecked 0x0,0x25 0260 a01b | | Store_Unchecked 0x0,0x1b 0261 a012 | | Store_Unchecked 0x0,0x12 0262 a013 | | Store_Unchecked 0x0,0x13 0263 a01c | | Store_Unchecked 0x0,0x1c 0264 1d50 | P | Execute_Immediate Reference_Lex_1,0x50 0265 1d51 | Q | Execute_Immediate Reference_Lex_1,0x51 0266 1d52 | R | Execute_Immediate Reference_Lex_1,0x52 0267 a008 | | Store_Unchecked 0x0,0x8 0268 a009 | | Store_Unchecked 0x0,0x9 0269 1d42 | B | Execute_Immediate Reference_Lex_1,0x42 026a 1d44 | D | Execute_Immediate Reference_Lex_1,0x44 026b 1d46 | F | Execute_Immediate Reference_Lex_1,0x46 026c a026 | & | Store_Unchecked 0x0,0x26 026d 1d55 | U | Execute_Immediate Reference_Lex_1,0x55 026e 1d4e | N | Execute_Immediate Reference_Lex_1,0x4e 026f 4812 |H | Short_Literal 0x12 0270 e22f | / | Load 0x1,0x2f 0271 020e | | Execute Module,Augment_Imports 0272 e22f | / | Load 0x1,0x2f 0273 020f | | Execute Module,Activate 0274 a027 | ' | Store_Unchecked 0x0,0x27 0275 1d43 | C | Execute_Immediate Reference_Lex_1,0x43 0276 1d45 | E | Execute_Immediate Reference_Lex_1,0x45 0277 e005 | | Load 0x0,0x5 0278 a028 | ( | Store_Unchecked 0x0,0x28 0279 e029 | ) | Load 0x0,0x29 027a a02a | * | Store_Unchecked 0x0,0x2a 027b 4807 |H | Short_Literal 0x7 027c e231 | 1 | Load 0x1,0x31 027d 020e | | Execute Module,Augment_Imports 027e e231 | 1 | Load 0x1,0x31 027f 020f | | Execute Module,Activate 0280 BODY_0008: 0280 00bc | | Action Signal_Activated 0281 00bb | | Action Signal_Completion 0282 0000 0000 | | .BLANK 0000[0x6] 0288 ; -------------------------------------------------------------------------------------- 0288 ; SUBPROGRAM 0288 ; -------------------------------------------------------------------------------------- 0288 028b | | .CONST 0x028b ; Address of begin 0289 0004 | | .CONST 0x0004 ; Address of exception handler 028a 0001 | | .CONST 0x0001 ; Number of locals 028b BODY_0288: 028b INIT_0288: 028b 4607 |F | Jump_Case 0x8 028c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 028d 7807 |x | Jump 0x295 ; case 0x1 028e 780a |x | Jump 0x299 ; case 0x2 028f 780e |x | Jump 0x29e ; case 0x3 0290 7811 |x | Jump 0x2a2 ; case 0x4 0291 7812 |x | Jump 0x2a4 ; case 0x5 0292 7813 |x | Jump 0x2a6 ; case 0x6 0293 7816 |x | Jump 0x2aa ; case 0x7 0294 4302 |C | .XXX[0x1] 0295 00da | | Load_Top At_Offset_2 0296 0091 0ee7 | | Action Push_String_Extended_Indexed,0xee7 ; "NONE" 0298 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0299 00db | | Load_Top At_Offset_3 029a 00db | | Load_Top At_Offset_3 029b 00e0 | | Load_Encached Standard_Cache 029c 181b | | Execute Package,Field_Execute,Field_Number 0x1b 029d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 029e 00da | | Load_Top At_Offset_2 029f 00e0 | | Load_Encached Standard_Cache 02a0 181c | | Execute Package,Field_Execute,Field_Number 0x1c 02a1 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 02a2 00db | | Load_Top At_Offset_3 02a3 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 02a4 00db | | Load_Top At_Offset_3 02a5 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 02a6 e20d | | Load 0x1,0xd 02a7 00dc | | Load_Top At_Offset_4 02a8 0267 | g | Execute Discrete,Predecessor 02a9 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 02aa e20d | | Load 0x1,0xd 02ab 00dc | | Load_Top At_Offset_4 02ac 0268 | h | Execute Discrete,Successor 02ad 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 02ae 0000 0000 | | .XXX[0x2] 02b0 ; -------------------------------------------------------------------------------------- 02b0 ; SUBPROGRAM 02b0 ; -------------------------------------------------------------------------------------- 02b0 02b3 | | .CONST 0x02b3 ; Address of begin 02b1 0004 | | .CONST 0x0004 ; Address of exception handler 02b2 0001 | | .CONST 0x0001 ; Number of locals 02b3 BODY_02b0: 02b3 INIT_02b0: 02b3 00da | | Load_Top At_Offset_2 02b4 021d | | Execute Heap_Access,Is_Null 02b5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 02b6 0000 0000 | | .XXX[0x2] 02b8 ; -------------------------------------------------------------------------------------- 02b8 ; SUBPROGRAM 02b8 ; -------------------------------------------------------------------------------------- 02b8 02bb | | .CONST 0x02bb ; Address of begin 02b9 0004 | | .CONST 0x0004 ; Address of exception handler 02ba 0001 | | .CONST 0x0001 ; Number of locals 02bb BODY_02b8: 02bb INIT_02b8: 02bb 00da | | Load_Top At_Offset_2 02bc 0217 | | Execute Heap_Access,All_Reference 02bd 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 02be 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 02bf 0000 | | .XXX[0x1] 02c0 ; -------------------------------------------------------------------------------------- 02c0 ; SUBPROGRAM 02c0 ; -------------------------------------------------------------------------------------- 02c0 02dc | | .CONST 0x02dc ; Address of begin 02c1 0004 | | .CONST 0x0004 ; Address of exception handler 02c2 0007 | | .CONST 0x0007 ; Number of locals 02c3 INIT_02c0: 02c3 00da | | Load_Top At_Offset_2 02c4 8248 | H | Call 0x1,0x48 02c5 e20d | | Load 0x1,0xd 02c6 03f1 | | Declare_Variable Discrete,With_Value 02c7 00d8 | | Load_Top At_Offset_0 02c8 00d8 | | Load_Top At_Offset_0 02c9 e21f | | Load 0x1,0x1f 02ca 1c06 | | Execute_Immediate Run_Utility,0x6 02cb e220 | | Load 0x1,0x20 02cc e5fc | | Load 0x2,-0x4 02cd 039a | | Declare_Variable Heap_Access,By_Allocation,With_Constraint 02ce 00d8 | | Load_Top At_Offset_0 02cf 0217 | | Execute Heap_Access,All_Reference 02d0 1c00 | | Execute_Immediate Run_Utility,0x0 02d1 e017 | | Load 0x0,0x17 02d2 0322 | " | Declare_Variable Record 02d3 e5fe | | Load 0x2,-0x2 02d4 00d9 | | Load_Top At_Offset_1 02d5 017d | } | Execute Record,Structure_Write 02d6 e003 | | Load 0x0,0x3 02d7 0007 | | Action Break_Optional 02d8 e220 | | Load 0x1,0x20 02d9 0007 | | Action Break_Optional 02da e003 | | Load 0x0,0x3 02db 0007 | | Action Break_Optional 02dc BODY_02c0: 02dc e5ff | | Load 0x2,-0x1 02dd e403 | | Load 0x2,0x3 02de 0217 | | Execute Heap_Access,All_Reference 02df 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 02e0 e5fd | | Load 0x2,-0x3 02e1 e403 | | Load 0x2,0x3 02e2 0217 | | Execute Heap_Access,All_Reference 02e3 2804 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x4 02e4 00db | | Load_Top At_Offset_3 02e5 e003 | | Load 0x0,0x3 02e6 e403 | | Load 0x2,0x3 02e7 0217 | | Execute Heap_Access,All_Reference 02e8 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 02e9 0e0e | | Execute_Immediate Not_Equal,0xe 02ea 823d | = | Call 0x1,0x3d 02eb 0032 | 2 | Store_Top Heap_Access,At_Offset_2 02ec 00d1 | | Pop_Control Pop_Count_1 02ed 00d8 | | Load_Top At_Offset_0 02ee 802b | + | Call 0x0,0x2b 02ef 7012 |p | Jump_Nonzero 0x302 02f0 e220 | | Load 0x1,0x20 02f1 e402 | | Load 0x2,0x2 02f2 e5fb | | Load 0x2,-0x5 02f3 e5fc | | Load 0x2,-0x4 02f4 e5fd | | Load 0x2,-0x3 02f5 e404 | | Load 0x2,0x4 02f6 e407 | | Load 0x2,0x7 02f7 824a | J | Call 0x1,0x4a 02f8 0032 | 2 | Store_Top Heap_Access,At_Offset_2 02f9 00d9 | | Load_Top At_Offset_1 02fa e403 | | Load 0x2,0x3 02fb 0217 | | Execute Heap_Access,All_Reference 02fc 2805 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x5 02fd 00d9 | | Load_Top At_Offset_1 02fe e403 | | Load 0x2,0x3 02ff 0217 | | Execute Heap_Access,All_Reference 0300 2806 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x6 0301 7823 |x# | Jump 0x325 0302 e5fd | | Load 0x2,-0x3 0303 820f | | Call 0x1,0xf 0304 6805 |h | Jump_Zero 0x30a 0305 e220 | | Load 0x1,0x20 0306 e403 | | Load 0x2,0x3 0307 0217 | | Execute Heap_Access,All_Reference 0308 2806 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x6 0309 781b |x | Jump 0x325 030a e5fd | | Load 0x2,-0x3 030b 0217 | | Execute Heap_Access,All_Reference 030c 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 030d e229 | ) | Load 0x1,0x29 030e 0260 | ` | Execute Discrete,In_Type 030f 6809 |h | Jump_Zero 0x319 0310 e5fd | | Load 0x2,-0x3 0311 e403 | | Load 0x2,0x3 0312 0217 | | Execute Heap_Access,All_Reference 0313 2806 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x6 0314 4801 |H | Short_Literal 0x1 0315 e403 | | Load 0x2,0x3 0316 0217 | | Execute Heap_Access,All_Reference 0317 2807 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x7 0318 780c |x | Jump 0x325 0319 e5fd | | Load 0x2,-0x3 031a 0217 | | Execute Heap_Access,All_Reference 031b 2c06 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x6 031c e403 | | Load 0x2,0x3 031d 0217 | | Execute Heap_Access,All_Reference 031e 2806 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x6 031f e5fd | | Load 0x2,-0x3 0320 0217 | | Execute Heap_Access,All_Reference 0321 2c07 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x7 0322 e403 | | Load 0x2,0x3 0323 0217 | | Execute Heap_Access,All_Reference 0324 2807 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x7 0325 e027 | ' | Load 0x0,0x27 0326 e403 | | Load 0x2,0x3 0327 0217 | | Execute Heap_Access,All_Reference 0328 2803 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3 0329 4800 |H | Short_Literal 0x0 032a e403 | | Load 0x2,0x3 032b 0217 | | Execute Heap_Access,All_Reference 032c 280b |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0xb 032d e402 | | Load 0x2,0x2 032e 460f |F | Jump_Case 0x10 032f 780f |x | Jump 0x33f ; case 0x0 0330 7814 |x | Jump 0x345 ; case 0x1 0331 7813 |x | Jump 0x345 ; case 0x2 0332 780c |x | Jump 0x33f ; case 0x3 0333 780b |x | Jump 0x33f ; case 0x4 0334 780a |x | Jump 0x33f ; case 0x5 0335 7809 |x | Jump 0x33f ; case 0x6 0336 7808 |x | Jump 0x33f ; case 0x7 0337 7807 |x | Jump 0x33f ; case 0x8 0338 7806 |x | Jump 0x33f ; case 0x9 0339 7805 |x | Jump 0x33f ; case 0xa 033a 7804 |x | Jump 0x33f ; case 0xb 033b 7803 |x | Jump 0x33f ; case 0xc 033c 7808 |x | Jump 0x345 ; case 0xd 033d 7801 |x | Jump 0x33f ; case 0xe 033e 7800 |x | Jump 0x33f ; case 0xf 033f e00e | | Load 0x0,0xe 0340 4800 |H | Short_Literal 0x0 0341 e403 | | Load 0x2,0x3 0342 e5ff | | Load 0x2,-0x1 0343 802c | , | Call 0x0,0x2c 0344 c00e | | Store 0x0,0xe 0345 e402 | | Load 0x2,0x2 0346 460f |F | Jump_Case 0x10 0347 780f |x | Jump 0x357 ; case 0x0 0348 781b |x | Jump 0x364 ; case 0x1 0349 781a |x | Jump 0x364 ; case 0x2 034a 7823 |x# | Jump 0x36e ; case 0x3 034b 7822 |x" | Jump 0x36e ; case 0x4 034c 782b |x+ | Jump 0x378 ; case 0x5 034d 7852 |xR | Jump 0x3a0 ; case 0x6 034e 7847 |xG | Jump 0x396 ; case 0x7 034f 7807 |x | Jump 0x357 ; case 0x8 0350 7831 |x1 | Jump 0x382 ; case 0x9 0351 7830 |x0 | Jump 0x382 ; case 0xa 0352 782f |x/ | Jump 0x382 ; case 0xb 0353 7838 |x8 | Jump 0x38c ; case 0xc 0354 780f |x | Jump 0x364 ; case 0xd 0355 7802 |x | Jump 0x358 ; case 0xe 0356 7800 |x | Jump 0x357 ; case 0xf 0357 0833 | 3 | Execute_Immediate Raise,0x33 0358 e403 | | Load 0x2,0x3 0359 e5f9 | | Load 0x2,-0x7 035a 4800 |H | Short_Literal 0x0 035b e5fb | | Load 0x2,-0x5 035c e5fc | | Load 0x2,-0x4 035d e5fd | | Load 0x2,-0x3 035e e5fe | | Load 0x2,-0x2 035f e5ff | | Load 0x2,-0x1 0360 e22c | , | Load 0x1,0x2c 0361 180d | | Execute Package,Field_Execute,Field_Number 0xd 0362 c403 | | Store 0x2,0x3 0363 7846 |xF | Jump 0x3aa 0364 e403 | | Load 0x2,0x3 0365 e5fb | | Load 0x2,-0x5 0366 e5fc | | Load 0x2,-0x4 0367 e5fd | | Load 0x2,-0x3 0368 e5fe | | Load 0x2,-0x2 0369 e5ff | | Load 0x2,-0x1 036a e231 | 1 | Load 0x1,0x31 036b 180d | | Execute Package,Field_Execute,Field_Number 0xd 036c c403 | | Store 0x2,0x3 036d 783c |x< | Jump 0x3aa 036e e403 | | Load 0x2,0x3 036f e5fb | | Load 0x2,-0x5 0370 e5fc | | Load 0x2,-0x4 0371 e5fd | | Load 0x2,-0x3 0372 e5fe | | Load 0x2,-0x2 0373 e5ff | | Load 0x2,-0x1 0374 e230 | 0 | Load 0x1,0x30 0375 180d | | Execute Package,Field_Execute,Field_Number 0xd 0376 c403 | | Store 0x2,0x3 0377 7832 |x2 | Jump 0x3aa 0378 e403 | | Load 0x2,0x3 0379 e5fb | | Load 0x2,-0x5 037a e5fc | | Load 0x2,-0x4 037b e5fd | | Load 0x2,-0x3 037c e5fe | | Load 0x2,-0x2 037d e5ff | | Load 0x2,-0x1 037e e22f | / | Load 0x1,0x2f 037f 180d | | Execute Package,Field_Execute,Field_Number 0xd 0380 c403 | | Store 0x2,0x3 0381 7828 |x( | Jump 0x3aa 0382 e403 | | Load 0x2,0x3 0383 e5fb | | Load 0x2,-0x5 0384 e5fc | | Load 0x2,-0x4 0385 e5fd | | Load 0x2,-0x3 0386 e5fe | | Load 0x2,-0x2 0387 e5ff | | Load 0x2,-0x1 0388 e22b | + | Load 0x1,0x2b 0389 180d | | Execute Package,Field_Execute,Field_Number 0xd 038a c403 | | Store 0x2,0x3 038b 781e |x | Jump 0x3aa 038c e403 | | Load 0x2,0x3 038d e5fb | | Load 0x2,-0x5 038e e5fc | | Load 0x2,-0x4 038f e5fd | | Load 0x2,-0x3 0390 e5fe | | Load 0x2,-0x2 0391 e5ff | | Load 0x2,-0x1 0392 e22a | * | Load 0x1,0x2a 0393 180d | | Execute Package,Field_Execute,Field_Number 0xd 0394 c403 | | Store 0x2,0x3 0395 7814 |x | Jump 0x3aa 0396 e403 | | Load 0x2,0x3 0397 e5fb | | Load 0x2,-0x5 0398 e5fc | | Load 0x2,-0x4 0399 e5fd | | Load 0x2,-0x3 039a e5fe | | Load 0x2,-0x2 039b e5ff | | Load 0x2,-0x1 039c e22d | - | Load 0x1,0x2d 039d 180d | | Execute Package,Field_Execute,Field_Number 0xd 039e c403 | | Store 0x2,0x3 039f 780a |x | Jump 0x3aa 03a0 e403 | | Load 0x2,0x3 03a1 4800 |H | Short_Literal 0x0 03a2 e5fb | | Load 0x2,-0x5 03a3 e5fc | | Load 0x2,-0x4 03a4 e5fd | | Load 0x2,-0x3 03a5 e5fe | | Load 0x2,-0x2 03a6 e5ff | | Load 0x2,-0x1 03a7 e22e | . | Load 0x1,0x2e 03a8 180d | | Execute Package,Field_Execute,Field_Number 0xd 03a9 c403 | | Store 0x2,0x3 03aa e5fa | | Load 0x2,-0x6 03ab 680a |h | Jump_Zero 0x3b6 03ac e402 | | Load 0x2,0x2 03ad 8249 | I | Call 0x1,0x49 03ae 6807 |h | Jump_Zero 0x3b6 03af e5fb | | Load 0x2,-0x5 03b0 e5fc | | Load 0x2,-0x4 03b1 e5fd | | Load 0x2,-0x3 03b2 e403 | | Load 0x2,0x3 03b3 e5ff | | Load 0x2,-0x1 03b4 824b | K | Call 0x1,0x4b 03b5 4407 |D | Exit_Subprogram With_Value,New_Top_Offset 0x7 03b6 e403 | | Load 0x2,0x3 03b7 4407 |D | Exit_Subprogram With_Value,New_Top_Offset 0x7 03b8 ; -------------------------------------------------------------------------------------- 03b8 ; SUBPROGRAM 03b8 ; -------------------------------------------------------------------------------------- 03b8 03bb | | .CONST 0x03bb ; Address of begin 03b9 0004 | | .CONST 0x0004 ; Address of exception handler 03ba 0001 | | .CONST 0x0001 ; Number of locals 03bb BODY_03b8: 03bb INIT_03b8: 03bb 4800 |H | Short_Literal 0x0 03bc 00d8 | | Load_Top At_Offset_0 03bd e21f | | Load 0x1,0x1f 03be 1c06 | | Execute_Immediate Run_Utility,0x6 03bf e220 | | Load 0x1,0x20 03c0 e5ff | | Load 0x2,-0x1 03c1 039a | | Declare_Variable Heap_Access,By_Allocation,With_Constraint 03c2 00d8 | | Load_Top At_Offset_0 03c3 0217 | | Execute Heap_Access,All_Reference 03c4 1c00 | | Execute_Immediate Run_Utility,0x0 03c5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 03c6 0000 0000 | | .XXX[0x2] 03c8 ; -------------------------------------------------------------------------------------- 03c8 ; SUBPROGRAM 03c8 ; -------------------------------------------------------------------------------------- 03c8 03cb | | .CONST 0x03cb ; Address of begin 03c9 0004 | | .CONST 0x0004 ; Address of exception handler 03ca 0001 | | .CONST 0x0001 ; Number of locals 03cb BODY_03c8: 03cb INIT_03c8: 03cb 4501 |E | Exit_Suprogram New_Top_Offset 0x1 03cc 0000 0000 | | .BLANK 0000[0x4] 03d0 ; -------------------------------------------------------------------------------------- 03d0 ; SUBPROGRAM 03d0 ; -------------------------------------------------------------------------------------- 03d0 03d3 | | .CONST 0x03d3 ; Address of begin 03d1 0004 | | .CONST 0x0004 ; Address of exception handler 03d2 0001 | | .CONST 0x0001 ; Number of locals 03d3 BODY_03d0: 03d3 INIT_03d0: 03d3 e5fd | | Load 0x2,-0x3 03d4 8213 | | Call 0x1,0x13 03d5 c5fd | | Store 0x2,-0x3 03d6 00db | | Load_Top At_Offset_3 03d7 8212 | | Call 0x1,0x12 03d8 a5fd | | Store_Unchecked 0x2,-0x3 03d9 00da | | Load_Top At_Offset_2 03da a5fd | | Store_Unchecked 0x2,-0x3 03db 4503 |E | Exit_Suprogram New_Top_Offset 0x3 03dc 0000 0000 | | .BLANK 0000[0x4] 03e0 ; -------------------------------------------------------------------------------------- 03e0 ; SUBPROGRAM 03e0 ; -------------------------------------------------------------------------------------- 03e0 03e3 | | .CONST 0x03e3 ; Address of begin 03e1 0004 | | .CONST 0x0004 ; Address of exception handler 03e2 0001 | | .CONST 0x0001 ; Number of locals 03e3 BODY_03e0: 03e3 INIT_03e0: 03e3 00da | | Load_Top At_Offset_2 03e4 e5fe | | Load 0x2,-0x2 03e5 021f | | Execute Heap_Access,Equal 03e6 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 03e7 0000 | | .XXX[0x1] 03e8 ; -------------------------------------------------------------------------------------- 03e8 ; SUBPROGRAM 03e8 ; -------------------------------------------------------------------------------------- 03e8 03eb | | .CONST 0x03eb ; Address of begin 03e9 0004 | | .CONST 0x0004 ; Address of exception handler 03ea 0001 | | .CONST 0x0001 ; Number of locals 03eb BODY_03e8: 03eb INIT_03e8: 03eb 00da | | Load_Top At_Offset_2 03ec 0217 | | Execute Heap_Access,All_Reference 03ed 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 03ee 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 03ef 0000 | | .XXX[0x1] 03f0 ; -------------------------------------------------------------------------------------- 03f0 ; SUBPROGRAM 03f0 ; -------------------------------------------------------------------------------------- 03f0 03f3 | | .CONST 0x03f3 ; Address of begin 03f1 0004 | | .CONST 0x0004 ; Address of exception handler 03f2 0001 | | .CONST 0x0001 ; Number of locals 03f3 BODY_03f0: 03f3 INIT_03f0: 03f3 00da | | Load_Top At_Offset_2 03f4 0217 | | Execute Heap_Access,All_Reference 03f5 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 03f6 460f |F | Jump_Case 0x10 03f7 780f |x | Jump 0x407 ; case 0x0 03f8 7813 |x | Jump 0x40c ; case 0x1 03f9 7812 |x | Jump 0x40c ; case 0x2 03fa 7815 |x | Jump 0x410 ; case 0x3 03fb 7814 |x | Jump 0x410 ; case 0x4 03fc 7817 |x | Jump 0x414 ; case 0x5 03fd 781e |x | Jump 0x41c ; case 0x6 03fe 7819 |x | Jump 0x418 ; case 0x7 03ff 7807 |x | Jump 0x407 ; case 0x8 0400 781f |x | Jump 0x420 ; case 0x9 0401 781e |x | Jump 0x420 ; case 0xa 0402 781d |x | Jump 0x420 ; case 0xb 0403 7820 |x | Jump 0x424 ; case 0xc 0404 7807 |x | Jump 0x40c ; case 0xd 0405 7802 |x | Jump 0x408 ; case 0xe 0406 7800 |x | Jump 0x407 ; case 0xf 0407 0833 | 3 | Execute_Immediate Raise,0x33 0408 00da | | Load_Top At_Offset_2 0409 e22c | , | Load 0x1,0x2c 040a 1810 | | Execute Package,Field_Execute,Field_Number 0x10 040b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 040c 00da | | Load_Top At_Offset_2 040d e231 | 1 | Load 0x1,0x31 040e 1810 | | Execute Package,Field_Execute,Field_Number 0x10 040f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0410 00da | | Load_Top At_Offset_2 0411 e230 | 0 | Load 0x1,0x30 0412 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0413 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0414 00da | | Load_Top At_Offset_2 0415 e22f | / | Load 0x1,0x2f 0416 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0417 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0418 00da | | Load_Top At_Offset_2 0419 e22d | - | Load 0x1,0x2d 041a 1810 | | Execute Package,Field_Execute,Field_Number 0x10 041b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 041c 00da | | Load_Top At_Offset_2 041d e22e | . | Load 0x1,0x2e 041e 1810 | | Execute Package,Field_Execute,Field_Number 0x10 041f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0420 00da | | Load_Top At_Offset_2 0421 e22b | + | Load 0x1,0x2b 0422 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0423 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0424 00da | | Load_Top At_Offset_2 0425 e22a | * | Load 0x1,0x2a 0426 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0427 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0428 ; -------------------------------------------------------------------------------------- 0428 ; SUBPROGRAM 0428 ; -------------------------------------------------------------------------------------- 0428 042b | + | .CONST 0x042b ; Address of begin 0429 048b | | .CONST 0x048b ; Address of exception handler 042a 0001 | | .CONST 0x0001 ; Number of locals 042b BODY_0428: 042b INIT_0428: 042b e223 | # | Load 0x1,0x23 042c 6811 |h | Jump_Zero 0x43e 042d 0092 0ef7 | | Action Push_String_Extended,0xef7 ; "Encounter_Bkpt_Event " 042f 00db | | Load_Top At_Offset_3 0430 0217 | | Execute Heap_Access,All_Reference 0431 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 0432 e20d | | Load 0x1,0xd 0433 011c | | Execute Any,Convert_Unchecked 0434 1c01 | | Execute_Immediate Run_Utility,0x1 0435 01cc | | Execute Vector,Catenate 0436 0092 0ef8 | | Action Push_String_Extended,0xef8 ; " with ID" 0438 01cc | | Execute Vector,Catenate 0439 e5fe | | Load 0x2,-0x2 043a 00e0 | | Load_Encached Standard_Cache 043b 1818 | | Execute Package,Field_Execute,Field_Number 0x18 043c 01cc | | Execute Vector,Catenate 043d 8232 | 2 | Call 0x1,0x32 043e 00da | | Load_Top At_Offset_2 043f 0217 | | Execute Heap_Access,All_Reference 0440 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 0441 460f |F | Jump_Case 0x10 0442 780f |x | Jump 0x452 ; case 0x0 0443 7816 |x | Jump 0x45a ; case 0x1 0444 7815 |x | Jump 0x45a ; case 0x2 0445 781b |x | Jump 0x461 ; case 0x3 0446 781a |x | Jump 0x461 ; case 0x4 0447 7820 |x | Jump 0x468 ; case 0x5 0448 782d |x- | Jump 0x476 ; case 0x6 0449 7825 |x% | Jump 0x46f ; case 0x7 044a 7807 |x | Jump 0x452 ; case 0x8 044b 7831 |x1 | Jump 0x47d ; case 0x9 044c 7830 |x0 | Jump 0x47d ; case 0xa 044d 782f |x/ | Jump 0x47d ; case 0xb 044e 7835 |x5 | Jump 0x484 ; case 0xc 044f 780a |x | Jump 0x45a ; case 0xd 0450 7802 |x | Jump 0x453 ; case 0xe 0451 7800 |x | Jump 0x452 ; case 0xf 0452 0833 | 3 | Execute_Immediate Raise,0x33 0453 e5fc | | Load 0x2,-0x4 0454 e5fd | | Load 0x2,-0x3 0455 e5fe | | Load 0x2,-0x2 0456 e5ff | | Load 0x2,-0x1 0457 e22c | , | Load 0x1,0x2c 0458 180e | | Execute Package,Field_Execute,Field_Number 0xe 0459 4505 |E | Exit_Suprogram New_Top_Offset 0x5 045a e5fc | | Load 0x2,-0x4 045b e5fd | | Load 0x2,-0x3 045c e5fe | | Load 0x2,-0x2 045d e5ff | | Load 0x2,-0x1 045e e231 | 1 | Load 0x1,0x31 045f 180e | | Execute Package,Field_Execute,Field_Number 0xe 0460 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0461 e5fc | | Load 0x2,-0x4 0462 e5fd | | Load 0x2,-0x3 0463 e5fe | | Load 0x2,-0x2 0464 e5ff | | Load 0x2,-0x1 0465 e230 | 0 | Load 0x1,0x30 0466 180e | | Execute Package,Field_Execute,Field_Number 0xe 0467 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0468 e5fc | | Load 0x2,-0x4 0469 e5fd | | Load 0x2,-0x3 046a e5fe | | Load 0x2,-0x2 046b e5ff | | Load 0x2,-0x1 046c e22f | / | Load 0x1,0x2f 046d 180e | | Execute Package,Field_Execute,Field_Number 0xe 046e 4505 |E | Exit_Suprogram New_Top_Offset 0x5 046f e5fc | | Load 0x2,-0x4 0470 e5fd | | Load 0x2,-0x3 0471 e5fe | | Load 0x2,-0x2 0472 e5ff | | Load 0x2,-0x1 0473 e22d | - | Load 0x1,0x2d 0474 180e | | Execute Package,Field_Execute,Field_Number 0xe 0475 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0476 e5fc | | Load 0x2,-0x4 0477 e5fd | | Load 0x2,-0x3 0478 e5fe | | Load 0x2,-0x2 0479 e5ff | | Load 0x2,-0x1 047a e22e | . | Load 0x1,0x2e 047b 180e | | Execute Package,Field_Execute,Field_Number 0xe 047c 4505 |E | Exit_Suprogram New_Top_Offset 0x5 047d e5fc | | Load 0x2,-0x4 047e e5fd | | Load 0x2,-0x3 047f e5fe | | Load 0x2,-0x2 0480 e5ff | | Load 0x2,-0x1 0481 e22b | + | Load 0x1,0x2b 0482 180e | | Execute Package,Field_Execute,Field_Number 0xe 0483 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0484 e5fc | | Load 0x2,-0x4 0485 e5fd | | Load 0x2,-0x3 0486 e5fe | | Load 0x2,-0x2 0487 e5ff | | Load 0x2,-0x1 0488 e22a | * | Load 0x1,0x2a 0489 180e | | Execute Package,Field_Execute,Field_Number 0xe 048a 4505 |E | Exit_Suprogram New_Top_Offset 0x5 048b TRAP_0428: 048b 0007 | | Action Break_Optional 048c 4505 |E | Exit_Suprogram New_Top_Offset 0x5 048d 0000 0000 | | .XXX[0x3] 048f 0000 | | 0490 ; -------------------------------------------------------------------------------------- 0490 ; SUBPROGRAM 0490 ; -------------------------------------------------------------------------------------- 0490 0493 | | .CONST 0x0493 ; Address of begin 0491 0004 | | .CONST 0x0004 ; Address of exception handler 0492 0001 | | .CONST 0x0001 ; Number of locals 0493 BODY_0490: 0493 INIT_0490: 0493 00da | | Load_Top At_Offset_2 0494 0217 | | Execute Heap_Access,All_Reference 0495 2c0c |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0xc 0496 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0497 0000 | | .XXX[0x1] 0498 ; -------------------------------------------------------------------------------------- 0498 ; SUBPROGRAM 0498 ; -------------------------------------------------------------------------------------- 0498 049f | | .CONST 0x049f ; Address of begin 0499 0004 | | .CONST 0x0004 ; Address of exception handler 049a 0003 | | .CONST 0x0003 ; Number of locals 049b INIT_0498: 049b e220 | | Load 0x1,0x20 049c 0007 | | Action Break_Optional 049d 00e1 | | Load_Encached Boolean_Cache 049e 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 049f BODY_0498: 049f 00e1 | | Load_Encached Boolean_Cache 04a0 00da | | Load_Top At_Offset_2 04a1 e5ff | | Load 0x2,-0x1 04a2 e00e | | Load 0x0,0xe 04a3 800f | | Call 0x0,0xf 04a4 0033 | 3 | Store_Top Heap_Access,At_Offset_3 04a5 0059 | Y | Store_Top Discrete,At_Offset_1 04a6 00d8 | | Load_Top At_Offset_0 04a7 700b |p | Jump_Nonzero 0x4b3 04a8 e010 | | Load 0x0,0x10 04a9 180e | | Execute Package,Field_Execute,Field_Number 0xe 04aa 4807 |H | Short_Literal 0x7 04ab 0092 0ef9 | | Action Push_String_Extended,0xef9 ; "Attempt to mark coverage on invalid element " 04ad e5ff | | Load 0x2,-0x1 04ae 802d | - | Call 0x0,0x2d 04af 01cc | | Execute Vector,Catenate 04b0 e011 | | Load 0x0,0x11 04b1 1813 | | Execute Package,Field_Execute,Field_Number 0x13 04b2 4503 |E | Exit_Suprogram New_Top_Offset 0x3 04b3 00d9 | | Load_Top At_Offset_1 04b4 0217 | | Execute Heap_Access,All_Reference 04b5 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 04b6 460f |F | Jump_Case 0x10 04b7 780f |x | Jump 0x4c7 ; case 0x0 04b8 7814 |x | Jump 0x4cd ; case 0x1 04b9 7813 |x | Jump 0x4cd ; case 0x2 04ba 7817 |x | Jump 0x4d2 ; case 0x3 04bb 7816 |x | Jump 0x4d2 ; case 0x4 04bc 781a |x | Jump 0x4d7 ; case 0x5 04bd 7823 |x# | Jump 0x4e1 ; case 0x6 04be 781d |x | Jump 0x4dc ; case 0x7 04bf 7807 |x | Jump 0x4c7 ; case 0x8 04c0 7825 |x% | Jump 0x4e6 ; case 0x9 04c1 7824 |x$ | Jump 0x4e6 ; case 0xa 04c2 7823 |x# | Jump 0x4e6 ; case 0xb 04c3 7827 |x' | Jump 0x4eb ; case 0xc 04c4 7808 |x | Jump 0x4cd ; case 0xd 04c5 7802 |x | Jump 0x4c8 ; case 0xe 04c6 7800 |x | Jump 0x4c7 ; case 0xf 04c7 0833 | 3 | Execute_Immediate Raise,0x33 04c8 e5fe | | Load 0x2,-0x2 04c9 00da | | Load_Top At_Offset_2 04ca e22c | , | Load 0x1,0x2c 04cb 180f | | Execute Package,Field_Execute,Field_Number 0xf 04cc 4503 |E | Exit_Suprogram New_Top_Offset 0x3 04cd e5fe | | Load 0x2,-0x2 04ce 00da | | Load_Top At_Offset_2 04cf e231 | 1 | Load 0x1,0x31 04d0 180f | | Execute Package,Field_Execute,Field_Number 0xf 04d1 4503 |E | Exit_Suprogram New_Top_Offset 0x3 04d2 e5fe | | Load 0x2,-0x2 04d3 00da | | Load_Top At_Offset_2 04d4 e230 | 0 | Load 0x1,0x30 04d5 180f | | Execute Package,Field_Execute,Field_Number 0xf 04d6 4503 |E | Exit_Suprogram New_Top_Offset 0x3 04d7 e5fe | | Load 0x2,-0x2 04d8 00da | | Load_Top At_Offset_2 04d9 e22f | / | Load 0x1,0x2f 04da 180f | | Execute Package,Field_Execute,Field_Number 0xf 04db 4503 |E | Exit_Suprogram New_Top_Offset 0x3 04dc e5fe | | Load 0x2,-0x2 04dd 00da | | Load_Top At_Offset_2 04de e22d | - | Load 0x1,0x2d 04df 180f | | Execute Package,Field_Execute,Field_Number 0xf 04e0 4503 |E | Exit_Suprogram New_Top_Offset 0x3 04e1 e5fe | | Load 0x2,-0x2 04e2 00da | | Load_Top At_Offset_2 04e3 e22e | . | Load 0x1,0x2e 04e4 180f | | Execute Package,Field_Execute,Field_Number 0xf 04e5 4503 |E | Exit_Suprogram New_Top_Offset 0x3 04e6 e5fe | | Load 0x2,-0x2 04e7 00da | | Load_Top At_Offset_2 04e8 e22b | + | Load 0x1,0x2b 04e9 180f | | Execute Package,Field_Execute,Field_Number 0xf 04ea 4503 |E | Exit_Suprogram New_Top_Offset 0x3 04eb e5fe | | Load 0x2,-0x2 04ec 00da | | Load_Top At_Offset_2 04ed e22a | * | Load 0x1,0x2a 04ee 180f | | Execute Package,Field_Execute,Field_Number 0xf 04ef 4503 |E | Exit_Suprogram New_Top_Offset 0x3 04f0 ; -------------------------------------------------------------------------------------- 04f0 ; SUBPROGRAM 04f0 ; -------------------------------------------------------------------------------------- 04f0 04ff | | .CONST 0x04ff ; Address of begin 04f1 0004 | | .CONST 0x0004 ; Address of exception handler 04f2 0002 | | .CONST 0x0002 ; Number of locals 04f3 INIT_04f0: 04f3 00da | | Load_Top At_Offset_2 04f4 0217 | | Execute Heap_Access,All_Reference 04f5 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 04f6 00d8 | | Load_Top At_Offset_0 04f7 e221 | ! | Load 0x1,0x21 04f8 1c06 | | Execute_Immediate Run_Utility,0x6 04f9 e222 | " | Load 0x1,0x22 04fa e5fe | | Load 0x2,-0x2 04fb 039a | | Declare_Variable Heap_Access,By_Allocation,With_Constraint 04fc 00d8 | | Load_Top At_Offset_0 04fd 0217 | | Execute Heap_Access,All_Reference 04fe 1c00 | | Execute_Immediate Run_Utility,0x0 04ff BODY_04f0: 04ff 00db | | Load_Top At_Offset_3 0500 00d9 | | Load_Top At_Offset_1 0501 0217 | | Execute Heap_Access,All_Reference 0502 2803 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3 0503 4800 |H | Short_Literal 0x0 0504 00d9 | | Load_Top At_Offset_1 0505 0217 | | Execute Heap_Access,All_Reference 0506 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 0507 00d8 | | Load_Top At_Offset_0 0508 0217 | | Execute Heap_Access,All_Reference 0509 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 050a 460f |F | Jump_Case 0x10 050b 780f |x | Jump 0x51b ; case 0x0 050c 780f |x | Jump 0x51c ; case 0x1 050d 780e |x | Jump 0x51c ; case 0x2 050e 781b |x | Jump 0x52a ; case 0x3 050f 781a |x | Jump 0x52a ; case 0x4 0510 7820 |x | Jump 0x531 ; case 0x5 0511 782d |x- | Jump 0x53f ; case 0x6 0512 7825 |x% | Jump 0x538 ; case 0x7 0513 7807 |x | Jump 0x51b ; case 0x8 0514 7831 |x1 | Jump 0x546 ; case 0x9 0515 7830 |x0 | Jump 0x546 ; case 0xa 0516 782f |x/ | Jump 0x546 ; case 0xb 0517 7835 |x5 | Jump 0x54d ; case 0xc 0518 7803 |x | Jump 0x51c ; case 0xd 0519 7809 |x | Jump 0x523 ; case 0xe 051a 7800 |x | Jump 0x51b ; case 0xf 051b 0833 | 3 | Execute_Immediate Raise,0x33 051c 00d8 | | Load_Top At_Offset_0 051d e5fe | | Load 0x2,-0x2 051e e5ff | | Load 0x2,-0x1 051f e231 | 1 | Load 0x1,0x31 0520 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0521 0031 | 1 | Store_Top Heap_Access,At_Offset_1 0522 7830 |x0 | Jump 0x553 0523 00d8 | | Load_Top At_Offset_0 0524 e5fe | | Load 0x2,-0x2 0525 e5ff | | Load 0x2,-0x1 0526 e22c | , | Load 0x1,0x2c 0527 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0528 0031 | 1 | Store_Top Heap_Access,At_Offset_1 0529 7829 |x) | Jump 0x553 052a 00d8 | | Load_Top At_Offset_0 052b e5fe | | Load 0x2,-0x2 052c e5ff | | Load 0x2,-0x1 052d e230 | 0 | Load 0x1,0x30 052e 1814 | | Execute Package,Field_Execute,Field_Number 0x14 052f 0031 | 1 | Store_Top Heap_Access,At_Offset_1 0530 7822 |x" | Jump 0x553 0531 00d8 | | Load_Top At_Offset_0 0532 e5fe | | Load 0x2,-0x2 0533 e5ff | | Load 0x2,-0x1 0534 e22f | / | Load 0x1,0x2f 0535 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0536 0031 | 1 | Store_Top Heap_Access,At_Offset_1 0537 781b |x | Jump 0x553 0538 00d8 | | Load_Top At_Offset_0 0539 e5fe | | Load 0x2,-0x2 053a e5ff | | Load 0x2,-0x1 053b e22d | - | Load 0x1,0x2d 053c 1814 | | Execute Package,Field_Execute,Field_Number 0x14 053d 0031 | 1 | Store_Top Heap_Access,At_Offset_1 053e 7814 |x | Jump 0x553 053f 00d8 | | Load_Top At_Offset_0 0540 e5fe | | Load 0x2,-0x2 0541 e5ff | | Load 0x2,-0x1 0542 e22e | . | Load 0x1,0x2e 0543 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0544 0031 | 1 | Store_Top Heap_Access,At_Offset_1 0545 780d |x | Jump 0x553 0546 00d8 | | Load_Top At_Offset_0 0547 e5fe | | Load 0x2,-0x2 0548 e5ff | | Load 0x2,-0x1 0549 e22b | + | Load 0x1,0x2b 054a 1814 | | Execute Package,Field_Execute,Field_Number 0x14 054b 0031 | 1 | Store_Top Heap_Access,At_Offset_1 054c 7806 |x | Jump 0x553 054d 00d8 | | Load_Top At_Offset_0 054e e5fe | | Load 0x2,-0x2 054f e5ff | | Load 0x2,-0x1 0550 e22a | * | Load 0x1,0x2a 0551 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0552 0031 | 1 | Store_Top Heap_Access,At_Offset_1 0553 00d8 | | Load_Top At_Offset_0 0554 a5fd | | Store_Unchecked 0x2,-0x3 0555 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0556 0000 0000 | | .XXX[0x2] 0558 ; -------------------------------------------------------------------------------------- 0558 ; SUBPROGRAM 0558 ; -------------------------------------------------------------------------------------- 0558 055b | [ | .CONST 0x055b ; Address of begin 0559 0004 | | .CONST 0x0004 ; Address of exception handler 055a 0001 | | .CONST 0x0001 ; Number of locals 055b BODY_0558: 055b INIT_0558: 055b 00da | | Load_Top At_Offset_2 055c 0217 | | Execute Heap_Access,All_Reference 055d 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 055e 703c |p< | Jump_Nonzero 0x59b 055f 00da | | Load_Top At_Offset_2 0560 0217 | | Execute Heap_Access,All_Reference 0561 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 0562 460f |F | Jump_Case 0x10 0563 780f |x | Jump 0x573 ; case 0x0 0564 7814 |x | Jump 0x579 ; case 0x1 0565 7813 |x | Jump 0x579 ; case 0x2 0566 7817 |x | Jump 0x57e ; case 0x3 0567 7816 |x | Jump 0x57e ; case 0x4 0568 781a |x | Jump 0x583 ; case 0x5 0569 7823 |x# | Jump 0x58d ; case 0x6 056a 781d |x | Jump 0x588 ; case 0x7 056b 7807 |x | Jump 0x573 ; case 0x8 056c 7825 |x% | Jump 0x592 ; case 0x9 056d 7824 |x$ | Jump 0x592 ; case 0xa 056e 7823 |x# | Jump 0x592 ; case 0xb 056f 7827 |x' | Jump 0x597 ; case 0xc 0570 7808 |x | Jump 0x579 ; case 0xd 0571 7802 |x | Jump 0x574 ; case 0xe 0572 7800 |x | Jump 0x573 ; case 0xf 0573 0833 | 3 | Execute_Immediate Raise,0x33 0574 00da | | Load_Top At_Offset_2 0575 e22c | , | Load 0x1,0x2c 0576 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0577 0033 | 3 | Store_Top Heap_Access,At_Offset_3 0578 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0579 00da | | Load_Top At_Offset_2 057a e231 | 1 | Load 0x1,0x31 057b 1815 | | Execute Package,Field_Execute,Field_Number 0x15 057c 0033 | 3 | Store_Top Heap_Access,At_Offset_3 057d 4501 |E | Exit_Suprogram New_Top_Offset 0x1 057e 00da | | Load_Top At_Offset_2 057f e230 | 0 | Load 0x1,0x30 0580 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0581 0033 | 3 | Store_Top Heap_Access,At_Offset_3 0582 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0583 00da | | Load_Top At_Offset_2 0584 e22f | / | Load 0x1,0x2f 0585 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0586 0033 | 3 | Store_Top Heap_Access,At_Offset_3 0587 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0588 00da | | Load_Top At_Offset_2 0589 e22d | - | Load 0x1,0x2d 058a 1815 | | Execute Package,Field_Execute,Field_Number 0x15 058b 0033 | 3 | Store_Top Heap_Access,At_Offset_3 058c 4501 |E | Exit_Suprogram New_Top_Offset 0x1 058d 00da | | Load_Top At_Offset_2 058e e22e | . | Load 0x1,0x2e 058f 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0590 0033 | 3 | Store_Top Heap_Access,At_Offset_3 0591 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0592 00da | | Load_Top At_Offset_2 0593 e22b | + | Load 0x1,0x2b 0594 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0595 0033 | 3 | Store_Top Heap_Access,At_Offset_3 0596 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0597 00da | | Load_Top At_Offset_2 0598 e22a | * | Load 0x1,0x2a 0599 1815 | | Execute Package,Field_Execute,Field_Number 0x15 059a 0033 | 3 | Store_Top Heap_Access,At_Offset_3 059b 4501 |E | Exit_Suprogram New_Top_Offset 0x1 059c 0000 0000 | | .BLANK 0000[0x4] 05a0 ; -------------------------------------------------------------------------------------- 05a0 ; SUBPROGRAM 05a0 ; -------------------------------------------------------------------------------------- 05a0 05a3 | | .CONST 0x05a3 ; Address of begin 05a1 0004 | | .CONST 0x0004 ; Address of exception handler 05a2 0001 | | .CONST 0x0001 ; Number of locals 05a3 BODY_05a0: 05a3 INIT_05a0: 05a3 00da | | Load_Top At_Offset_2 05a4 0217 | | Execute Heap_Access,All_Reference 05a5 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 05a6 6802 |h | Jump_Zero 0x5a9 05a7 e005 | | Load 0x0,0x5 05a8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 05a9 00da | | Load_Top At_Offset_2 05aa 0217 | | Execute Heap_Access,All_Reference 05ab 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 05ac 460f |F | Jump_Case 0x10 05ad 780f |x | Jump 0x5bd ; case 0x0 05ae 7813 |x | Jump 0x5c2 ; case 0x1 05af 7812 |x | Jump 0x5c2 ; case 0x2 05b0 7815 |x | Jump 0x5c6 ; case 0x3 05b1 7814 |x | Jump 0x5c6 ; case 0x4 05b2 7817 |x | Jump 0x5ca ; case 0x5 05b3 781e |x | Jump 0x5d2 ; case 0x6 05b4 7819 |x | Jump 0x5ce ; case 0x7 05b5 7807 |x | Jump 0x5bd ; case 0x8 05b6 781f |x | Jump 0x5d6 ; case 0x9 05b7 781e |x | Jump 0x5d6 ; case 0xa 05b8 781d |x | Jump 0x5d6 ; case 0xb 05b9 7820 |x | Jump 0x5da ; case 0xc 05ba 7807 |x | Jump 0x5c2 ; case 0xd 05bb 7802 |x | Jump 0x5be ; case 0xe 05bc 7800 |x | Jump 0x5bd ; case 0xf 05bd 0833 | 3 | Execute_Immediate Raise,0x33 05be 00da | | Load_Top At_Offset_2 05bf e22c | , | Load 0x1,0x2c 05c0 1816 | | Execute Package,Field_Execute,Field_Number 0x16 05c1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 05c2 00da | | Load_Top At_Offset_2 05c3 e231 | 1 | Load 0x1,0x31 05c4 1816 | | Execute Package,Field_Execute,Field_Number 0x16 05c5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 05c6 00da | | Load_Top At_Offset_2 05c7 e230 | 0 | Load 0x1,0x30 05c8 1816 | | Execute Package,Field_Execute,Field_Number 0x16 05c9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 05ca 00da | | Load_Top At_Offset_2 05cb e22f | / | Load 0x1,0x2f 05cc 1816 | | Execute Package,Field_Execute,Field_Number 0x16 05cd 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 05ce 00da | | Load_Top At_Offset_2 05cf e22d | - | Load 0x1,0x2d 05d0 1816 | | Execute Package,Field_Execute,Field_Number 0x16 05d1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 05d2 00da | | Load_Top At_Offset_2 05d3 e22e | . | Load 0x1,0x2e 05d4 1816 | | Execute Package,Field_Execute,Field_Number 0x16 05d5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 05d6 00da | | Load_Top At_Offset_2 05d7 e22b | + | Load 0x1,0x2b 05d8 1816 | | Execute Package,Field_Execute,Field_Number 0x16 05d9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 05da 00da | | Load_Top At_Offset_2 05db e22a | * | Load 0x1,0x2a 05dc 1816 | | Execute Package,Field_Execute,Field_Number 0x16 05dd 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 05de 0000 0000 | | .XXX[0x2] 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 00da | | Load_Top At_Offset_2 05e4 0217 | | Execute Heap_Access,All_Reference 05e5 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 05e6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 05e7 0000 | | .XXX[0x1] 05e8 ; -------------------------------------------------------------------------------------- 05e8 ; SUBPROGRAM 05e8 ; SUBPROGRAM 05e8 ; -------------------------------------------------------------------------------------- 05e8 05eb | | .CONST 0x05eb ; Address of begin 05e9 0004 | | .CONST 0x0004 ; Address of exception handler 05ea 0001 | | .CONST 0x0001 ; Number of locals 05eb BODY_05e8: 05eb BODY_05e8: 05eb INIT_05e8: 05eb INIT_05e8: 05eb 4609 |F | Jump_Case 0xa 05ec 7809 |x | Jump 0x5f6 ; case 0x0 05ed 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 05ee 784a |xJ | Jump 0x639 ; case 0x2 05ef 784d |xM | Jump 0x63d ; case 0x3 05f0 7852 |xR | Jump 0x643 ; case 0x4 05f1 785c |x\ | Jump 0x64e ; case 0x5 05f2 7872 |xr | Jump 0x665 ; case 0x6 05f3 7895 |x | Jump 0x689 ; case 0x7 05f4 78bb |x | Jump 0x6b0 ; case 0x8 05f5 78c1 |x | Jump 0x6b7 ; case 0x9 05f6 00da | | Load_Top At_Offset_2 05f7 016c | l | Execute Variant_Record,Is_Constrained 05f8 7009 |p | Jump_Nonzero 0x602 05f9 00cf | | Action Mark_Auxiliary 05fa 4800 |H | Short_Literal 0x0 05fb e5ff | | Load 0x2,-0x1 05fc 1c08 | | Execute_Immediate Run_Utility,0x8 05fd 00d8 | | Load_Top At_Offset_0 05fe 1c00 | | Execute_Immediate Run_Utility,0x0 05ff c5ff | | Store 0x2,-0x1 0600 00ce | | Action Pop_Auxiliary 0601 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0602 4800 |H | Short_Literal 0x0 0603 00db | | Load_Top At_Offset_3 0604 2807 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x7 0605 4800 |H | Short_Literal 0x0 0606 00db | | Load_Top At_Offset_3 0607 2808 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x8 0608 4800 |H | Short_Literal 0x0 0609 00db | | Load_Top At_Offset_3 060a 280b |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0xb 060b 4800 |H | Short_Literal 0x0 060c 00db | | Load_Top At_Offset_3 060d 280c |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0xc 060e 4800 |H | Short_Literal 0x0 060f 00db | | Load_Top At_Offset_3 0610 280d |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0xd 0611 00da | | Load_Top At_Offset_2 0612 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 0613 460f |F | Jump_Case 0x10 0614 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 0615 7813 |x | Jump 0x629 ; case 0x1 0616 7812 |x | Jump 0x629 ; case 0x2 0617 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x3 0618 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x4 0619 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x5 061a 7812 |x | Jump 0x62d ; case 0x6 061b 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x7 061c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x8 061d 7813 |x | Jump 0x631 ; case 0x9 061e 7812 |x | Jump 0x631 ; case 0xa 061f 7811 |x | Jump 0x631 ; case 0xb 0620 7814 |x | Jump 0x635 ; case 0xc 0621 7807 |x | Jump 0x629 ; case 0xd 0622 7802 |x | Jump 0x625 ; case 0xe 0623 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0xf 0624 4302 |C | .XXX[0x1] 0625 00da | | Load_Top At_Offset_2 0626 260e |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0xe 0627 1c00 | | Execute_Immediate Run_Utility,0x0 0628 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0629 00da | | Load_Top At_Offset_2 062a 260f |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0xf 062b 1c00 | | Execute_Immediate Run_Utility,0x0 062c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 062d 00da | | Load_Top At_Offset_2 062e 2612 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x12 062f 1c00 | | Execute_Immediate Run_Utility,0x0 0630 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0631 00da | | Load_Top At_Offset_2 0632 2614 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x14 0633 1c00 | | Execute_Immediate Run_Utility,0x0 0634 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0635 00da | | Load_Top At_Offset_2 0636 2615 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x15 0637 1c00 | | Execute_Immediate Run_Utility,0x0 0638 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0639 4801 |H | Short_Literal 0x1 063a 4815 |H | Short_Literal 0x15 063b 0311 | | Declare_Type Variant_Record,Constrained_Incomplete 063c 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 063d e5fd | | Load 0x2,-0x3 063e 00db | | Load_Top At_Offset_3 063f 1c07 | | Execute_Immediate Run_Utility,0x7 0640 e5fe | | Load 0x2,-0x2 0641 0306 | | Complete_Type Variant_Record,By_Renaming 0642 4304 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x4 0643 4801 |H | Short_Literal 0x1 0644 4815 |H | Short_Literal 0x15 0645 0311 | | Declare_Type Variant_Record,Constrained_Incomplete 0646 e5fe | | Load 0x2,-0x2 0647 00d8 | | Load_Top At_Offset_0 0648 e5ff | | Load 0x2,-0x1 0649 1c06 | | Execute_Immediate Run_Utility,0x6 064a e5ff | | Load 0x2,-0x1 064b 00db | | Load_Top At_Offset_3 064c 0305 | | Complete_Type Variant_Record,By_Constraining_Incomplete 064d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 064e 4801 |H | Short_Literal 0x1 064f 00db | | Load_Top At_Offset_3 0650 0169 | i | Execute Variant_Record,Read_Discriminant_Constraint 0651 460f |F | Jump_Case 0x10 0652 780f |x | Jump 0x662 ; case 0x0 0653 780e |x | Jump 0x662 ; case 0x1 0654 780d |x | Jump 0x662 ; case 0x2 0655 780c |x | Jump 0x662 ; case 0x3 0656 780b |x | Jump 0x662 ; case 0x4 0657 780a |x | Jump 0x662 ; case 0x5 0658 7809 |x | Jump 0x662 ; case 0x6 0659 7808 |x | Jump 0x662 ; case 0x7 065a 7807 |x | Jump 0x662 ; case 0x8 065b 7806 |x | Jump 0x662 ; case 0x9 065c 7805 |x | Jump 0x662 ; case 0xa 065d 7804 |x | Jump 0x662 ; case 0xb 065e 7803 |x | Jump 0x662 ; case 0xc 065f 7802 |x | Jump 0x662 ; case 0xd 0660 7801 |x | Jump 0x662 ; case 0xe 0661 7800 |x | Jump 0x662 ; case 0xf 0662 e5ff | | Load 0x2,-0x1 0663 0304 | | Complete_Type Variant_Record,By_Completing_Constraint 0664 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0665 00db | | Load_Top At_Offset_3 0666 460f |F | Jump_Case 0x10 0667 780f |x | Jump 0x677 ; case 0x0 0668 7812 |x | Jump 0x67b ; case 0x1 0669 7811 |x | Jump 0x67b ; case 0x2 066a 7812 |x | Jump 0x67d ; case 0x3 066b 7811 |x | Jump 0x67d ; case 0x4 066c 7816 |x | Jump 0x683 ; case 0x5 066d 7813 |x | Jump 0x681 ; case 0x6 066e 7810 |x | Jump 0x67f ; case 0x7 066f 7807 |x | Jump 0x677 ; case 0x8 0670 7814 |x | Jump 0x685 ; case 0x9 0671 7813 |x | Jump 0x685 ; case 0xa 0672 7812 |x | Jump 0x685 ; case 0xb 0673 7813 |x | Jump 0x687 ; case 0xc 0674 7806 |x | Jump 0x67b ; case 0xd 0675 7803 |x | Jump 0x679 ; case 0xe 0676 7800 |x | Jump 0x677 ; case 0xf 0677 48ff |H | Short_Literal 0xff 0678 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0679 4801 |H | Short_Literal 0x1 067a 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 067b 4802 |H | Short_Literal 0x2 067c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 067d 4803 |H | Short_Literal 0x3 067e 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 067f 4804 |H | Short_Literal 0x4 0680 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0681 4805 |H | Short_Literal 0x5 0682 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0683 4806 |H | Short_Literal 0x6 0684 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0685 4807 |H | Short_Literal 0x7 0686 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0687 4808 |H | Short_Literal 0x8 0688 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0689 00db | | Load_Top At_Offset_3 068a e5fe | | Load 0x2,-0x2 068b 460f |F | Jump_Case 0x10 068c 780f |x | Jump 0x69c ; case 0x0 068d 7812 |x | Jump 0x6a0 ; case 0x1 068e 7811 |x | Jump 0x6a0 ; case 0x2 068f 7812 |x | Jump 0x6a2 ; case 0x3 0690 7811 |x | Jump 0x6a2 ; case 0x4 0691 7816 |x | Jump 0x6a8 ; case 0x5 0692 7813 |x | Jump 0x6a6 ; case 0x6 0693 7810 |x | Jump 0x6a4 ; case 0x7 0694 7807 |x | Jump 0x69c ; case 0x8 0695 7814 |x | Jump 0x6aa ; case 0x9 0696 7813 |x | Jump 0x6aa ; case 0xa 0697 7812 |x | Jump 0x6aa ; case 0xb 0698 7813 |x | Jump 0x6ac ; case 0xc 0699 7806 |x | Jump 0x6a0 ; case 0xd 069a 7803 |x | Jump 0x69e ; case 0xe 069b 7800 |x | Jump 0x69c ; case 0xf 069c 48ff |H | Short_Literal 0xff 069d 780f |x | Jump 0x6ad 069e 4801 |H | Short_Literal 0x1 069f 780d |x | Jump 0x6ad 06a0 4802 |H | Short_Literal 0x2 06a1 780b |x | Jump 0x6ad 06a2 4803 |H | Short_Literal 0x3 06a3 7809 |x | Jump 0x6ad 06a4 4804 |H | Short_Literal 0x4 06a5 7807 |x | Jump 0x6ad 06a6 4805 |H | Short_Literal 0x5 06a7 7805 |x | Jump 0x6ad 06a8 4806 |H | Short_Literal 0x6 06a9 7803 |x | Jump 0x6ad 06aa 4807 |H | Short_Literal 0x7 06ab 7801 |x | Jump 0x6ad 06ac 4808 |H | Short_Literal 0x8 06ad e5ff | | Load 0x2,-0x1 06ae 031b | | Declare_Type Variant_Record,Constrained 06af 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 06b0 00db | | Load_Top At_Offset_3 06b1 e5fe | | Load 0x2,-0x2 06b2 e5ff | | Load 0x2,-0x1 06b3 1c06 | | Execute_Immediate Run_Utility,0x6 06b4 e5ff | | Load 0x2,-0x1 06b5 02fc | | Declare_Variable Variant_Record,With_Constraint 06b6 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 06b7 4800 |H | Short_Literal 0x0 06b8 00db | | Load_Top At_Offset_3 06b9 1c07 | | Execute_Immediate Run_Utility,0x7 06ba 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 06bb 0000 0000 | | .BLANK 0000[0x5] 06c0 ; -------------------------------------------------------------------------------------- 06c0 ; SUBPROGRAM 06c0 ; SUBPROGRAM 06c0 ; -------------------------------------------------------------------------------------- 06c0 06c3 | | .CONST 0x06c3 ; Address of begin 06c1 0004 | | .CONST 0x0004 ; Address of exception handler 06c2 0001 | | .CONST 0x0001 ; Number of locals 06c3 BODY_06c0: 06c3 BODY_06c0: 06c3 INIT_06c0: 06c3 INIT_06c0: 06c3 4609 |F | Jump_Case 0xa 06c4 7809 |x | Jump 0x6ce ; case 0x0 06c5 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 06c6 783e |x> | Jump 0x705 ; case 0x2 06c7 7841 |xA | Jump 0x709 ; case 0x3 06c8 7846 |xF | Jump 0x70f ; case 0x4 06c9 7850 |xP | Jump 0x71a ; case 0x5 06ca 7866 |xf | Jump 0x731 ; case 0x6 06cb 7889 |x | Jump 0x755 ; case 0x7 06cc 78af |x | Jump 0x77c ; case 0x8 06cd 78b5 |x | Jump 0x783 ; case 0x9 06ce 00da | | Load_Top At_Offset_2 06cf 016c | l | Execute Variant_Record,Is_Constrained 06d0 7009 |p | Jump_Nonzero 0x6da 06d1 00cf | | Action Mark_Auxiliary 06d2 4800 |H | Short_Literal 0x0 06d3 e5ff | | Load 0x2,-0x1 06d4 1c08 | | Execute_Immediate Run_Utility,0x8 06d5 00d8 | | Load_Top At_Offset_0 06d6 1c00 | | Execute_Immediate Run_Utility,0x0 06d7 c5ff | | Store 0x2,-0x1 06d8 00ce | | Action Pop_Auxiliary 06d9 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 06da 4800 |H | Short_Literal 0x0 06db 00db | | Load_Top At_Offset_3 06dc 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 06dd 00da | | Load_Top At_Offset_2 06de 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 06df 460f |F | Jump_Case 0x10 06e0 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 06e1 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 06e2 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x2 06e3 780d |x | Jump 0x6f1 ; case 0x3 06e4 780c |x | Jump 0x6f1 ; case 0x4 06e5 7813 |x | Jump 0x6f9 ; case 0x5 06e6 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x6 06e7 780d |x | Jump 0x6f5 ; case 0x7 06e8 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x8 06e9 7813 |x | Jump 0x6fd ; case 0x9 06ea 7812 |x | Jump 0x6fd ; case 0xa 06eb 7811 |x | Jump 0x6fd ; case 0xb 06ec 7814 |x | Jump 0x701 ; case 0xc 06ed 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0xd 06ee 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0xe 06ef 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0xf 06f0 4302 |C | .XXX[0x1] 06f1 00da | | Load_Top At_Offset_2 06f2 2605 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x5 06f3 1c00 | | Execute_Immediate Run_Utility,0x0 06f4 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 06f5 00da | | Load_Top At_Offset_2 06f6 2606 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x6 06f7 1c00 | | Execute_Immediate Run_Utility,0x0 06f8 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 06f9 00da | | Load_Top At_Offset_2 06fa 2608 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x8 06fb 1c00 | | Execute_Immediate Run_Utility,0x0 06fc 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 06fd 00da | | Load_Top At_Offset_2 06fe 2609 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x9 06ff 1c00 | | Execute_Immediate Run_Utility,0x0 0700 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0701 00da | | Load_Top At_Offset_2 0702 260b |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0xb 0703 1c00 | | Execute_Immediate Run_Utility,0x0 0704 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0705 4801 |H | Short_Literal 0x1 0706 480b |H | Short_Literal 0xb 0707 0311 | | Declare_Type Variant_Record,Constrained_Incomplete 0708 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0709 e5fd | | Load 0x2,-0x3 070a 00db | | Load_Top At_Offset_3 070b 1c07 | | Execute_Immediate Run_Utility,0x7 070c e5fe | | Load 0x2,-0x2 070d 0306 | | Complete_Type Variant_Record,By_Renaming 070e 4304 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x4 070f 4801 |H | Short_Literal 0x1 0710 480b |H | Short_Literal 0xb 0711 0311 | | Declare_Type Variant_Record,Constrained_Incomplete 0712 e5fe | | Load 0x2,-0x2 0713 00d8 | | Load_Top At_Offset_0 0714 e5ff | | Load 0x2,-0x1 0715 1c06 | | Execute_Immediate Run_Utility,0x6 0716 e5ff | | Load 0x2,-0x1 0717 00db | | Load_Top At_Offset_3 0718 0305 | | Complete_Type Variant_Record,By_Constraining_Incomplete 0719 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 071a 4801 |H | Short_Literal 0x1 071b 00db | | Load_Top At_Offset_3 071c 0169 | i | Execute Variant_Record,Read_Discriminant_Constraint 071d 460f |F | Jump_Case 0x10 071e 780f |x | Jump 0x72e ; case 0x0 071f 780e |x | Jump 0x72e ; case 0x1 0720 780d |x | Jump 0x72e ; case 0x2 0721 780c |x | Jump 0x72e ; case 0x3 0722 780b |x | Jump 0x72e ; case 0x4 0723 780a |x | Jump 0x72e ; case 0x5 0724 7809 |x | Jump 0x72e ; case 0x6 0725 7808 |x | Jump 0x72e ; case 0x7 0726 7807 |x | Jump 0x72e ; case 0x8 0727 7806 |x | Jump 0x72e ; case 0x9 0728 7805 |x | Jump 0x72e ; case 0xa 0729 7804 |x | Jump 0x72e ; case 0xb 072a 7803 |x | Jump 0x72e ; case 0xc 072b 7802 |x | Jump 0x72e ; case 0xd 072c 7801 |x | Jump 0x72e ; case 0xe 072d 7800 |x | Jump 0x72e ; case 0xf 072e e5ff | | Load 0x2,-0x1 072f 0304 | | Complete_Type Variant_Record,By_Completing_Constraint 0730 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0731 00db | | Load_Top At_Offset_3 0732 460f |F | Jump_Case 0x10 0733 780f |x | Jump 0x743 ; case 0x0 0734 7810 |x | Jump 0x745 ; case 0x1 0735 780f |x | Jump 0x745 ; case 0x2 0736 7810 |x | Jump 0x747 ; case 0x3 0737 780f |x | Jump 0x747 ; case 0x4 0738 7814 |x | Jump 0x74d ; case 0x5 0739 7811 |x | Jump 0x74b ; case 0x6 073a 780e |x | Jump 0x749 ; case 0x7 073b 7807 |x | Jump 0x743 ; case 0x8 073c 7812 |x | Jump 0x74f ; case 0x9 073d 7811 |x | Jump 0x74f ; case 0xa 073e 7810 |x | Jump 0x74f ; case 0xb 073f 7813 |x | Jump 0x753 ; case 0xc 0740 7804 |x | Jump 0x745 ; case 0xd 0741 780f |x | Jump 0x751 ; case 0xe 0742 7800 |x | Jump 0x743 ; case 0xf 0743 48ff |H | Short_Literal 0xff 0744 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0745 4801 |H | Short_Literal 0x1 0746 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0747 4802 |H | Short_Literal 0x2 0748 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0749 4803 |H | Short_Literal 0x3 074a 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 074b 4804 |H | Short_Literal 0x4 074c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 074d 4805 |H | Short_Literal 0x5 074e 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 074f 4806 |H | Short_Literal 0x6 0750 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0751 4807 |H | Short_Literal 0x7 0752 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0753 4808 |H | Short_Literal 0x8 0754 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0755 00db | | Load_Top At_Offset_3 0756 e5fe | | Load 0x2,-0x2 0757 460f |F | Jump_Case 0x10 0758 780f |x | Jump 0x768 ; case 0x0 0759 7810 |x | Jump 0x76a ; case 0x1 075a 780f |x | Jump 0x76a ; case 0x2 075b 7810 |x | Jump 0x76c ; case 0x3 075c 780f |x | Jump 0x76c ; case 0x4 075d 7814 |x | Jump 0x772 ; case 0x5 075e 7811 |x | Jump 0x770 ; case 0x6 075f 780e |x | Jump 0x76e ; case 0x7 0760 7807 |x | Jump 0x768 ; case 0x8 0761 7812 |x | Jump 0x774 ; case 0x9 0762 7811 |x | Jump 0x774 ; case 0xa 0763 7810 |x | Jump 0x774 ; case 0xb 0764 7813 |x | Jump 0x778 ; case 0xc 0765 7804 |x | Jump 0x76a ; case 0xd 0766 780f |x | Jump 0x776 ; case 0xe 0767 7800 |x | Jump 0x768 ; case 0xf 0768 48ff |H | Short_Literal 0xff 0769 780f |x | Jump 0x779 076a 4801 |H | Short_Literal 0x1 076b 780d |x | Jump 0x779 076c 4802 |H | Short_Literal 0x2 076d 780b |x | Jump 0x779 076e 4803 |H | Short_Literal 0x3 076f 7809 |x | Jump 0x779 0770 4804 |H | Short_Literal 0x4 0771 7807 |x | Jump 0x779 0772 4805 |H | Short_Literal 0x5 0773 7805 |x | Jump 0x779 0774 4806 |H | Short_Literal 0x6 0775 7803 |x | Jump 0x779 0776 4807 |H | Short_Literal 0x7 0777 7801 |x | Jump 0x779 0778 4808 |H | Short_Literal 0x8 0779 e5ff | | Load 0x2,-0x1 077a 031b | | Declare_Type Variant_Record,Constrained 077b 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 077c 00db | | Load_Top At_Offset_3 077d e5fe | | Load 0x2,-0x2 077e e5ff | | Load 0x2,-0x1 077f 1c06 | | Execute_Immediate Run_Utility,0x6 0780 e5ff | | Load 0x2,-0x1 0781 02fc | | Declare_Variable Variant_Record,With_Constraint 0782 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0783 4800 |H | Short_Literal 0x0 0784 00db | | Load_Top At_Offset_3 0785 1c07 | | Execute_Immediate Run_Utility,0x7 0786 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0787 0000 | | .XXX[0x1] 0788 ; -------------------------------------------------------------------------------------- 0788 ; SUBPROGRAM 0788 ; -------------------------------------------------------------------------------------- 0788 078b | | .CONST 0x078b ; Address of begin 0789 0004 | | .CONST 0x0004 ; Address of exception handler 078a 0001 | | .CONST 0x0001 ; Number of locals 078b BODY_0788: 078b INIT_0788: 078b 4601 |F | Jump_Case 0x2 078c 7801 |x | Jump 0x78e ; case 0x0 078d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 078e 4800 |H | Short_Literal 0x0 078f 00db | | Load_Top At_Offset_3 0790 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0791 4800 |H | Short_Literal 0x0 0792 00db | | Load_Top At_Offset_3 0793 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 0794 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0795 0000 0000 | | .XXX[0x3] 0797 0000 | | 0798 ; -------------------------------------------------------------------------------------- 0798 ; SUBPROGRAM 0798 ; -------------------------------------------------------------------------------------- 0798 079b | | .CONST 0x079b ; Address of begin 0799 0004 | | .CONST 0x0004 ; Address of exception handler 079a 0001 | | .CONST 0x0001 ; Number of locals 079b BODY_0798: 079b INIT_0798: 079b 4601 |F | Jump_Case 0x2 079c 7801 |x | Jump 0x79e ; case 0x0 079d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 079e 4800 |H | Short_Literal 0x0 079f 00db | | Load_Top At_Offset_3 07a0 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 07a1 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 07a2 0000 0000 | | .BLANK 0000[0x6] 07a8 ; -------------------------------------------------------------------------------------- 07a8 ; SUBPROGRAM 07a8 ; -------------------------------------------------------------------------------------- 07a8 07ab | | .CONST 0x07ab ; Address of begin 07a9 0004 | | .CONST 0x0004 ; Address of exception handler 07aa 0001 | | .CONST 0x0001 ; Number of locals 07ab BODY_07a8: 07ab INIT_07a8: 07ab e223 | # | Load 0x1,0x23 07ac 6803 |h | Jump_Zero 0x7b0 07ad 00da | | Load_Top At_Offset_2 07ae e02e | . | Load 0x0,0x2e 07af 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 07b0 4502 |E | Exit_Suprogram New_Top_Offset 0x2 07b1 0000 0000 | | .BLANK 0000[0x7] 07b8 ; -------------------------------------------------------------------------------------- 07b8 ; SUBPROGRAM 07b8 ; -------------------------------------------------------------------------------------- 07b8 07cc | | .CONST 0x07cc ; Address of begin 07b9 0004 | | .CONST 0x0004 ; Address of exception handler 07ba 0006 | | .CONST 0x0006 ; Number of locals 07bb INIT_07b8: 07bb 4801 |H | Short_Literal 0x1 07bc 00ea | | Load_Encached Null_String_Cache 07bd 4800 |H | Short_Literal 0x0 07be e5ff | | Load 0x2,-0x1 07bf 802f | / | Call 0x0,0x2f 07c0 00d8 | | Load_Top At_Offset_0 07c1 01dd | | Execute Vector,First 07c2 00e3 | | Load_Encached Natural_Cache 07c3 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 07c4 00d9 | | Load_Top At_Offset_1 07c5 01dd | | Execute Vector,First 07c6 00e3 | | Load_Encached Natural_Cache 07c7 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 07c8 029f 0d5b | [| Declare_Subprogram INIT_0d58,For_Call 07ca 029f 0d9b | | Declare_Subprogram INIT_0d98,For_Call 07cc BODY_07b8: 07cc 00cf | | Action Mark_Auxiliary 07cd 7804 |x | Jump 0x7d2 07ce e403 | | Load 0x2,0x3 07cf 0a01 | | Execute_Immediate Plus,0x1 07d0 c403 | | Store 0x2,0x3 07d1 00c9 | | Action Pop_Auxiliary_Loop 07d2 e403 | | Load 0x2,0x3 07d3 e402 | | Load 0x2,0x2 07d4 01d7 | | Execute Vector,Field_Read 07d5 0f20 | | Execute_Immediate Equal,0x20 07d6 77f7 |w | Jump_Nonzero 0x7ce 07d7 00c9 | | Action Pop_Auxiliary_Loop 07d8 7804 |x | Jump 0x7dd 07d9 00db | | Load_Top At_Offset_3 07da 0a01 | | Execute_Immediate Plus,0x1 07db c404 | | Store 0x2,0x4 07dc 00c9 | | Action Pop_Auxiliary_Loop 07dd 00db | | Load_Top At_Offset_3 07de 8405 | | Call 0x2,0x5 07df 6ff9 |o | Jump_Zero 0x7d9 07e0 00ce | | Action Pop_Auxiliary 07e1 0092 0efa | | Action Push_String_Extended,0xefa ; "\x22" 07e3 e403 | | Load 0x2,0x3 07e4 e404 | | Load 0x2,0x4 07e5 e402 | | Load 0x2,0x2 07e6 01cf | | Execute Vector,Slice_Read 07e7 01cc | | Execute Vector,Catenate 07e8 0092 0efa | | Action Push_String_Extended,0xefa ; "\x22" 07ea 01cc | | Execute Vector,Catenate 07eb 0092 0efb | | Action Push_String_Extended,0xefb ; " in " 07ed 01cc | | Execute Vector,Catenate 07ee e5ff | | Load 0x2,-0x1 07ef 8406 | | Call 0x2,0x6 07f0 01cc | | Execute Vector,Catenate 07f1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 07f2 0000 0000 | | .BLANK 0000[0x6] 07f8 ; -------------------------------------------------------------------------------------- 07f8 ; SUBPROGRAM 07f8 ; -------------------------------------------------------------------------------------- 07f8 0801 | | .CONST 0x0801 ; Address of begin 07f9 0004 | | .CONST 0x0004 ; Address of exception handler 07fa 0002 | | .CONST 0x0002 ; Number of locals 07fb INIT_07f8: 07fb e227 | ' | Load 0x1,0x27 07fc e5fd | | Load 0x2,-0x3 07fd 039c | | Declare_Variable Heap_Access,By_Allocation 07fe 00d8 | | Load_Top At_Offset_0 07ff 0217 | | Execute Heap_Access,All_Reference 0800 1c00 | | Execute_Immediate Run_Utility,0x0 0801 BODY_07f8: 0801 00db | | Load_Top At_Offset_3 0802 00d9 | | Load_Top At_Offset_1 0803 0217 | | Execute Heap_Access,All_Reference 0804 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0805 e5fe | | Load 0x2,-0x2 0806 00d9 | | Load_Top At_Offset_1 0807 0217 | | Execute Heap_Access,All_Reference 0808 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0809 00d8 | | Load_Top At_Offset_0 080a 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 080b 0000 0000 | | .BLANK 0000[0x5] 0810 ; -------------------------------------------------------------------------------------- 0810 ; SUBPROGRAM 0810 ; -------------------------------------------------------------------------------------- 0810 0813 | | .CONST 0x0813 ; Address of begin 0811 0004 | | .CONST 0x0004 ; Address of exception handler 0812 0001 | | .CONST 0x0001 ; Number of locals 0813 BODY_0810: 0813 INIT_0810: 0813 00da | | Load_Top At_Offset_2 0814 a5fd | | Store_Unchecked 0x2,-0x3 0815 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0816 0000 0000 | | .XXX[0x2] 0818 ; -------------------------------------------------------------------------------------- 0818 ; SUBPROGRAM 0818 ; -------------------------------------------------------------------------------------- 0818 081b | | .CONST 0x081b ; Address of begin 0819 0004 | | .CONST 0x0004 ; Address of exception handler 081a 0001 | | .CONST 0x0001 ; Number of locals 081b BODY_0818: 081b INIT_0818: 081b 00da | | Load_Top At_Offset_2 081c e030 | 0 | Load 0x0,0x30 081d e004 | | Load 0x0,0x4 081e 1818 | | Execute Package,Field_Execute,Field_Number 0x18 081f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0820 ; -------------------------------------------------------------------------------------- 0820 ; SUBPROGRAM 0820 ; -------------------------------------------------------------------------------------- 0820 082e | . | .CONST 0x082e ; Address of begin 0821 0004 | | .CONST 0x0004 ; Address of exception handler 0822 0003 | | .CONST 0x0003 ; Number of locals 0823 INIT_0820: 0823 e031 | 1 | Load 0x0,0x31 0824 0322 | " | Declare_Variable Record 0825 00db | | Load_Top At_Offset_3 0826 8021 | ! | Call 0x0,0x21 0827 8032 | 2 | Call 0x0,0x32 0828 00d9 | | Load_Top At_Offset_1 0829 017d | } | Execute Record,Structure_Write 082a 00d8 | | Load_Top At_Offset_0 082b 8033 | 3 | Call 0x0,0x33 082c e034 | 4 | Load 0x0,0x34 082d 03f1 | | Declare_Variable Discrete,With_Value 082e BODY_0820: 082e 00d8 | | Load_Top At_Offset_0 082f 8236 | 6 | Call 0x1,0x36 0830 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0831 0000 0000 | | .BLANK 0000[0x7] 0838 ; -------------------------------------------------------------------------------------- 0838 ; SUBPROGRAM 0838 ; -------------------------------------------------------------------------------------- 0838 083f | ? | .CONST 0x083f ; Address of begin 0839 0846 | F | .CONST 0x0846 ; Address of exception handler 083a 0002 | | .CONST 0x0002 ; Number of locals 083b INIT_0838: 083b e031 | 1 | Load 0x0,0x31 083c 0322 | " | Declare_Variable Record 083d 00d8 | | Load_Top At_Offset_0 083e 1c00 | | Execute_Immediate Run_Utility,0x0 083f BODY_0838: 083f 00db | | Load_Top At_Offset_3 0840 8021 | ! | Call 0x0,0x21 0841 8032 | 2 | Call 0x0,0x32 0842 00d9 | | Load_Top At_Offset_1 0843 017d | } | Execute Record,Structure_Write 0844 4801 |H | Short_Literal 0x1 0845 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0846 TRAP_0838: 0846 0007 | | Action Break_Optional 0847 4800 |H | Short_Literal 0x0 0848 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0849 0000 0000 | | .BLANK 0000[0x7] 0850 ; -------------------------------------------------------------------------------------- 0850 ; SUBPROGRAM 0850 ; -------------------------------------------------------------------------------------- 0850 0859 | Y | .CONST 0x0859 ; Address of begin 0851 0004 | | .CONST 0x0004 ; Address of exception handler 0852 0002 | | .CONST 0x0002 ; Number of locals 0853 INIT_0850: 0853 e017 | | Load 0x0,0x17 0854 0322 | " | Declare_Variable Record 0855 00db | | Load_Top At_Offset_3 0856 801a | | Call 0x0,0x1a 0857 00d9 | | Load_Top At_Offset_1 0858 017d | } | Execute Record,Structure_Write 0859 BODY_0850: 0859 00cf | | Action Mark_Auxiliary 085a 780a |x | Jump 0x865 085b 00d9 | | Load_Top At_Offset_1 085c 8013 | | Call 0x0,0x13 085d 801e | | Call 0x0,0x1e 085e 6802 |h | Jump_Zero 0x861 085f 4804 |H | Short_Literal 0x4 0860 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0861 00d9 | | Load_Top At_Offset_1 0862 801c | | Call 0x0,0x1c 0863 00d1 | | Pop_Control Pop_Count_1 0864 00c9 | | Action Pop_Auxiliary_Loop 0865 00d9 | | Load_Top At_Offset_1 0866 8012 | | Call 0x0,0x12 0867 6ff3 |o | Jump_Zero 0x85b 0868 00ce | | Action Pop_Auxiliary 0869 4803 |H | Short_Literal 0x3 086a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 086b 0000 0000 | | .BLANK 0000[0x5] 0870 ; -------------------------------------------------------------------------------------- 0870 ; SUBPROGRAM 0870 ; -------------------------------------------------------------------------------------- 0870 0873 | s | .CONST 0x0873 ; Address of begin 0871 0004 | | .CONST 0x0004 ; Address of exception handler 0872 0001 | | .CONST 0x0001 ; Number of locals 0873 BODY_0870: 0873 INIT_0870: 0873 00da | | Load_Top At_Offset_2 0874 8035 | 5 | Call 0x0,0x35 0875 4602 |F | Jump_Case 0x3 0876 7804 |x | Jump 0x87b ; case 0x0 0877 7805 |x | Jump 0x87d ; case 0x1 0878 7800 |x | Jump 0x879 ; case 0x2 0879 480b |H | Short_Literal 0xb 087a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 087b 4809 |H | Short_Literal 0x9 087c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 087d 480a |H | Short_Literal 0xa 087e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 087f 0000 | | .XXX[0x1] 0880 ; -------------------------------------------------------------------------------------- 0880 ; SUBPROGRAM 0880 ; -------------------------------------------------------------------------------------- 0880 0883 | | .CONST 0x0883 ; Address of begin 0881 0004 | | .CONST 0x0004 ; Address of exception handler 0882 0001 | | .CONST 0x0001 ; Number of locals 0883 BODY_0880: 0883 INIT_0880: 0883 00da | | Load_Top At_Offset_2 0884 8036 | 6 | Call 0x0,0x36 0885 4613 |F | Jump_Case 0x14 0886 7813 |x | Jump 0x89a ; case 0x0 0887 7812 |x | Jump 0x89a ; case 0x1 0888 7811 |x | Jump 0x89a ; case 0x2 0889 7812 |x | Jump 0x89c ; case 0x3 088a 780f |x | Jump 0x89a ; case 0x4 088b 780e |x | Jump 0x89a ; case 0x5 088c 780d |x | Jump 0x89a ; case 0x6 088d 780c |x | Jump 0x89a ; case 0x7 088e 780b |x | Jump 0x89a ; case 0x8 088f 780a |x | Jump 0x89a ; case 0x9 0890 7809 |x | Jump 0x89a ; case 0xa 0891 780c |x | Jump 0x89e ; case 0xb 0892 780e |x | Jump 0x8a1 ; case 0xc 0893 780f |x | Jump 0x8a3 ; case 0xd 0894 7811 |x | Jump 0x8a6 ; case 0xe 0895 7814 |x | Jump 0x8aa ; case 0xf 0896 7811 |x | Jump 0x8a8 ; case 0x10 0897 7802 |x | Jump 0x89a ; case 0x11 0898 7801 |x | Jump 0x89a ; case 0x12 0899 7800 |x | Jump 0x89a ; case 0x13 089a 480e |H | Short_Literal 0xe 089b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 089c 480c |H | Short_Literal 0xc 089d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 089e 00da | | Load_Top At_Offset_2 089f 8239 | 9 | Call 0x1,0x39 08a0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 08a1 4805 |H | Short_Literal 0x5 08a2 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 08a3 00da | | Load_Top At_Offset_2 08a4 823a | : | Call 0x1,0x3a 08a5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 08a6 480d |H | Short_Literal 0xd 08a7 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 08a8 4807 |H | Short_Literal 0x7 08a9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 08aa 4806 |H | Short_Literal 0x6 08ab 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 08ac 0000 0000 | | .BLANK 0000[0x4] 08b0 ; -------------------------------------------------------------------------------------- 08b0 ; SUBPROGRAM 08b0 ; -------------------------------------------------------------------------------------- 08b0 08b3 | | .CONST 0x08b3 ; Address of begin 08b1 0004 | | .CONST 0x0004 ; Address of exception handler 08b2 0001 | | .CONST 0x0001 ; Number of locals 08b3 BODY_08b0: 08b3 INIT_08b0: 08b3 00da | | Load_Top At_Offset_2 08b4 8028 | ( | Call 0x0,0x28 08b5 00d8 | | Load_Top At_Offset_0 08b6 0c1b | | Execute_Immediate Greater_Equal,0x1b 08b7 701e |p | Jump_Nonzero 0x8d6 08b8 461a |F | Jump_Case 0x1b 08b9 781d |x | Jump 0x8d7 ; case 0x0 08ba 781c |x | Jump 0x8d7 ; case 0x1 08bb 781b |x | Jump 0x8d7 ; case 0x2 08bc 781a |x | Jump 0x8d7 ; case 0x3 08bd 7819 |x | Jump 0x8d7 ; case 0x4 08be 7818 |x | Jump 0x8d7 ; case 0x5 08bf 7817 |x | Jump 0x8d7 ; case 0x6 08c0 7816 |x | Jump 0x8d7 ; case 0x7 08c1 7815 |x | Jump 0x8d7 ; case 0x8 08c2 7814 |x | Jump 0x8d7 ; case 0x9 08c3 7813 |x | Jump 0x8d7 ; case 0xa 08c4 7814 |x | Jump 0x8d9 ; case 0xb 08c5 7811 |x | Jump 0x8d7 ; case 0xc 08c6 7812 |x | Jump 0x8d9 ; case 0xd 08c7 780f |x | Jump 0x8d7 ; case 0xe 08c8 780e |x | Jump 0x8d7 ; case 0xf 08c9 780d |x | Jump 0x8d7 ; case 0x10 08ca 780c |x | Jump 0x8d7 ; case 0x11 08cb 780b |x | Jump 0x8d7 ; case 0x12 08cc 780a |x | Jump 0x8d7 ; case 0x13 08cd 7809 |x | Jump 0x8d7 ; case 0x14 08ce 7808 |x | Jump 0x8d7 ; case 0x15 08cf 7807 |x | Jump 0x8d7 ; case 0x16 08d0 7806 |x | Jump 0x8d7 ; case 0x17 08d1 7805 |x | Jump 0x8d7 ; case 0x18 08d2 7804 |x | Jump 0x8d7 ; case 0x19 08d3 7800 |x | Jump 0x8d4 ; case 0x1a 08d4 4802 |H | Short_Literal 0x2 08d5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 08d6 00d1 | | Pop_Control Pop_Count_1 08d7 480e |H | Short_Literal 0xe 08d8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 08d9 4801 |H | Short_Literal 0x1 08da 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 08db 0000 0000 | | .BLANK 0000[0x5] 08e0 ; -------------------------------------------------------------------------------------- 08e0 ; SUBPROGRAM 08e0 ; -------------------------------------------------------------------------------------- 08e0 08e5 | | .CONST 0x08e5 ; Address of begin 08e1 0004 | | .CONST 0x0004 ; Address of exception handler 08e2 0002 | | .CONST 0x0002 ; Number of locals 08e3 INIT_08e0: 08e3 e003 | | Load 0x0,0x3 08e4 0007 | | Action Break_Optional 08e5 BODY_08e0: 08e5 e5fd | | Load 0x2,-0x3 08e6 8012 | | Call 0x0,0x12 08e7 7016 |p | Jump_Nonzero 0x8fe 08e8 00cf | | Action Mark_Auxiliary 08e9 e5fd | | Load 0x2,-0x3 08ea 8013 | | Call 0x0,0x13 08eb 0032 | 2 | Store_Top Heap_Access,At_Offset_2 08ec e5fd | | Load 0x2,-0x3 08ed 801c | | Call 0x0,0x1c 08ee 00d1 | | Pop_Control Pop_Count_1 08ef e5ff | | Load 0x2,-0x1 08f0 7004 |p | Jump_Nonzero 0x8f5 08f1 00d9 | | Load_Top At_Offset_1 08f2 823b | ; | Call 0x1,0x3b 08f3 0e0e | | Execute_Immediate Not_Equal,0xe 08f4 6803 |h | Jump_Zero 0x8f8 08f5 00d9 | | Load_Top At_Offset_1 08f6 a5fe | | Store_Unchecked 0x2,-0x2 08f7 4502 |E | Exit_Suprogram New_Top_Offset 0x2 08f8 e5fd | | Load 0x2,-0x3 08f9 8012 | | Call 0x0,0x12 08fa 7002 |p | Jump_Nonzero 0x8fd 08fb 00c9 | | Action Pop_Auxiliary_Loop 08fc 7fec | | Jump 0x8e9 08fd 00ce | | Action Pop_Auxiliary 08fe e006 | | Load 0x0,0x6 08ff a5fe | | Store_Unchecked 0x2,-0x2 0900 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0901 0000 0000 | | .BLANK 0000[0x7] 0908 ; -------------------------------------------------------------------------------------- 0908 ; SUBPROGRAM 0908 ; -------------------------------------------------------------------------------------- 0908 090f | | .CONST 0x090f ; Address of begin 0909 0004 | | .CONST 0x0004 ; Address of exception handler 090a 0003 | | .CONST 0x0003 ; Number of locals 090b INIT_0908: 090b e003 | | Load 0x0,0x3 090c 0007 | | Action Break_Optional 090d 00d8 | | Load_Top At_Offset_0 090e 0007 | | Action Break_Optional 090f BODY_0908: 090f e5fc | | Load 0x2,-0x4 0910 8012 | | Call 0x0,0x12 0911 7003 |p | Jump_Nonzero 0x915 0912 e5fc | | Load 0x2,-0x4 0913 8013 | | Call 0x0,0x13 0914 0032 | 2 | Store_Top Heap_Access,At_Offset_2 0915 e5fc | | Load 0x2,-0x4 0916 e003 | | Load 0x0,0x3 0917 e5ff | | Load 0x2,-0x1 0918 823d | = | Call 0x1,0x3d 0919 0032 | 2 | Store_Top Heap_Access,At_Offset_2 091a 00d1 | | Pop_Control Pop_Count_1 091b 00d8 | | Load_Top At_Offset_0 091c a5fe | | Store_Unchecked 0x2,-0x2 091d 00d9 | | Load_Top At_Offset_1 091e 00d9 | | Load_Top At_Offset_1 091f 021f | | Execute Heap_Access,Equal 0920 a5fd | | Store_Unchecked 0x2,-0x3 0921 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0922 0000 0000 | | .BLANK 0000[0x6] 0928 ; -------------------------------------------------------------------------------------- 0928 ; SUBPROGRAM 0928 ; -------------------------------------------------------------------------------------- 0928 0932 | 2 | .CONST 0x0932 ; Address of begin 0929 0004 | | .CONST 0x0004 ; Address of exception handler 092a 0003 | | .CONST 0x0003 ; Number of locals 092b INIT_0928: 092b 00da | | Load_Top At_Offset_2 092c 8021 | ! | Call 0x0,0x21 092d 00d8 | | Load_Top At_Offset_0 092e 0145 | E | Execute Heap_Access,Diana_Tree_Kind 092f 00eb | | Load_Encached Diana_Cache 0930 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0931 03f1 | | Declare_Variable Discrete,With_Value 0932 BODY_0928: 0932 00cf | | Action Mark_Auxiliary 0933 00d9 | | Load_Top At_Offset_1 0934 4857 |HW | Short_Literal 0x57 0935 4858 |HX | Short_Literal 0x58 0936 0262 | b | Execute Discrete,In_Range 0937 7003 |p | Jump_Nonzero 0x93b 0938 00da | | Load_Top At_Offset_2 0939 8022 | " | Call 0x0,0x22 093a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 093b 00da | | Load_Top At_Offset_2 093c 00eb | | Load_Encached Diana_Cache 093d 18e0 | | Execute Package,Field_Execute,Field_Number 0xe0 093e 0033 | 3 | Store_Top Heap_Access,At_Offset_3 093f 00da | | Load_Top At_Offset_2 0940 0145 | E | Execute Heap_Access,Diana_Tree_Kind 0941 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 0942 00c9 | | Action Pop_Auxiliary_Loop 0943 7fef | | Jump 0x933 0944 0000 0000 | | .BLANK 0000[0x4] 0948 ; -------------------------------------------------------------------------------------- 0948 ; SUBPROGRAM 0948 ; -------------------------------------------------------------------------------------- 0948 094d | M | .CONST 0x094d ; Address of begin 0949 0004 | | .CONST 0x0004 ; Address of exception handler 094a 0003 | | .CONST 0x0003 ; Number of locals 094b INIT_0948: 094b 00ec | | Load_Encached Diana_Tree_Cache 094c 039d | | Declare_Variable Heap_Access,Duplicate 094d BODY_0948: 094d e5ff | | Load 0x2,-0x1 094e 8021 | ! | Call 0x0,0x21 094f 0031 | 1 | Store_Top Heap_Access,At_Offset_1 0950 00cf | | Action Mark_Auxiliary 0951 00d9 | | Load_Top At_Offset_1 0952 00eb | | Load_Encached Diana_Cache 0953 18ec | | Execute Package,Field_Execute,Field_Number 0xec 0954 0033 | 3 | Store_Top Heap_Access,At_Offset_3 0955 00da | | Load_Top At_Offset_2 0956 0145 | E | Execute Heap_Access,Diana_Tree_Kind 0957 0f9f | | Execute_Immediate Equal,-0x61 0958 700a |p | Jump_Nonzero 0x963 0959 00da | | Load_Top At_Offset_2 095a 0145 | E | Execute Heap_Access,Diana_Tree_Kind 095b 0f9e | | Execute_Immediate Equal,-0x62 095c 7006 |p | Jump_Nonzero 0x963 095d 00da | | Load_Top At_Offset_2 095e 6804 |h | Jump_Zero 0x963 095f 00da | | Load_Top At_Offset_2 0960 0032 | 2 | Store_Top Heap_Access,At_Offset_2 0961 00c9 | | Action Pop_Auxiliary_Loop 0962 7fee | | Jump 0x951 0963 00ce | | Action Pop_Auxiliary 0964 00d9 | | Load_Top At_Offset_1 0965 6803 |h | Jump_Zero 0x969 0966 00d9 | | Load_Top At_Offset_1 0967 8022 | " | Call 0x0,0x22 0968 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0969 e006 | | Load 0x0,0x6 096a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 096b 0000 0000 | | .BLANK 0000[0x5] 0970 ; -------------------------------------------------------------------------------------- 0970 ; SUBPROGRAM 0970 ; -------------------------------------------------------------------------------------- 0970 0973 | s | .CONST 0x0973 ; Address of begin 0971 097e | ~ | .CONST 0x097e ; Address of exception handler 0972 0001 | | .CONST 0x0001 ; Number of locals 0973 BODY_0970: 0973 INIT_0970: 0973 e5fc | | Load 0x2,-0x4 0974 0f00 | | Execute_Immediate Equal,0x0 0975 6803 |h | Jump_Zero 0x979 0976 00da | | Load_Top At_Offset_2 0977 8237 | 7 | Call 0x1,0x37 0978 a5fc | | Store_Unchecked 0x2,-0x4 0979 00db | | Load_Top At_Offset_3 097a e5fd | | Load 0x2,-0x3 097b e5fc | | Load 0x2,-0x4 097c 8014 | | Call 0x0,0x14 097d 4504 |E | Exit_Suprogram New_Top_Offset 0x4 097e TRAP_0970: 097e e00a | | Load 0x0,0xa 097f 010f | | Execute Exception,Equal 0980 680b |h | Jump_Zero 0x98c 0981 e010 | | Load 0x0,0x10 0982 180e | | Execute Package,Field_Execute,Field_Number 0xe 0983 4806 |H | Short_Literal 0x6 0984 0092 0efc | | Action Push_String_Extended,0xefc ; "No code generated for " 0986 e5ff | | Load 0x2,-0x1 0987 8233 | 3 | Call 0x1,0x33 0988 01cc | | Execute Vector,Catenate 0989 e011 | | Load 0x0,0x11 098a 1813 | | Execute Package,Field_Execute,Field_Number 0x13 098b 4504 |E | Exit_Suprogram New_Top_Offset 0x4 098c 0100 | | Execute Exception,Raise 098d 0000 0000 | | .XXX[0x3] 098f 0000 | | 0990 ; -------------------------------------------------------------------------------------- 0990 ; SUBPROGRAM 0990 ; -------------------------------------------------------------------------------------- 0990 0993 | | .CONST 0x0993 ; Address of begin 0991 0004 | | .CONST 0x0004 ; Address of exception handler 0992 0001 | | .CONST 0x0001 ; Number of locals 0993 BODY_0990: 0993 INIT_0990: 0993 00da | | Load_Top At_Offset_2 0994 0219 | | Execute Heap_Access,All_Read 0995 00d8 | | Load_Top At_Offset_0 0996 2c08 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x8 0997 e5ff | | Load 0x2,-0x1 0998 4800 |H | Short_Literal 0x0 0999 e5ff | | Load 0x2,-0x1 099a 0217 | | Execute Heap_Access,All_Reference 099b 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 099c 8241 | A | Call 0x1,0x41 099d 00d9 | | Load_Top At_Offset_1 099e 2808 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x8 099f 4504 |E | Exit_Suprogram New_Top_Offset 0x4 09a0 ; -------------------------------------------------------------------------------------- 09a0 ; SUBPROGRAM 09a0 ; -------------------------------------------------------------------------------------- 09a0 09a3 | | .CONST 0x09a3 ; Address of begin 09a1 0004 | | .CONST 0x0004 ; Address of exception handler 09a2 0001 | | .CONST 0x0001 ; Number of locals 09a3 BODY_09a0: 09a3 INIT_09a0: 09a3 00da | | Load_Top At_Offset_2 09a4 0217 | | Execute Heap_Access,All_Reference 09a5 2c0d |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0xd 09a6 680c |h | Jump_Zero 0x9b3 09a7 00da | | Load_Top At_Offset_2 09a8 0217 | | Execute Heap_Access,All_Reference 09a9 2c06 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x6 09aa 820f | | Call 0x1,0xf 09ab 7007 |p | Jump_Nonzero 0x9b3 09ac e5fd | | Load 0x2,-0x3 09ad e5fe | | Load 0x2,-0x2 09ae e5ff | | Load 0x2,-0x1 09af 0217 | | Execute Heap_Access,All_Reference 09b0 2c06 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x6 09b1 8243 | C | Call 0x1,0x43 09b2 4504 |E | Exit_Suprogram New_Top_Offset 0x4 09b3 00db | | Load_Top At_Offset_3 09b4 0219 | | Execute Heap_Access,All_Read 09b5 00d8 | | Load_Top At_Offset_0 09b6 2c09 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x9 09b7 e015 | | Load 0x0,0x15 09b8 e5ff | | Load 0x2,-0x1 09b9 0217 | | Execute Heap_Access,All_Reference 09ba 2c09 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x9 09bb 8235 | 5 | Call 0x1,0x35 09bc 00d9 | | Load_Top At_Offset_1 09bd 2809 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x9 09be 00d1 | | Pop_Control Pop_Count_1 09bf e015 | | Load 0x0,0x15 09c0 e5fd | | Load 0x2,-0x3 09c1 e5fe | | Load 0x2,-0x2 09c2 8234 | 4 | Call 0x1,0x34 09c3 00db | | Load_Top At_Offset_3 09c4 0217 | | Execute Heap_Access,All_Reference 09c5 2809 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x9 09c6 00da | | Load_Top At_Offset_2 09c7 0217 | | Execute Heap_Access,All_Reference 09c8 2c08 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x8 09c9 0f00 | | Execute_Immediate Equal,0x0 09ca 6844 |hD | Jump_Zero 0xa0f 09cb 00da | | Load_Top At_Offset_2 09cc 0217 | | Execute Heap_Access,All_Reference 09cd 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 09ce 460f |F | Jump_Case 0x10 09cf 780f |x | Jump 0x9df ; case 0x0 09d0 7815 |x | Jump 0x9e6 ; case 0x1 09d1 7814 |x | Jump 0x9e6 ; case 0x2 09d2 7819 |x | Jump 0x9ec ; case 0x3 09d3 7818 |x | Jump 0x9ec ; case 0x4 09d4 781d |x | Jump 0x9f2 ; case 0x5 09d5 7834 |x4 | Jump 0xa0a ; case 0x6 09d6 782d |x- | Jump 0xa04 ; case 0x7 09d7 7807 |x | Jump 0x9df ; case 0x8 09d8 781f |x | Jump 0x9f8 ; case 0x9 09d9 781e |x | Jump 0x9f8 ; case 0xa 09da 781d |x | Jump 0x9f8 ; case 0xb 09db 7822 |x" | Jump 0x9fe ; case 0xc 09dc 7809 |x | Jump 0x9e6 ; case 0xd 09dd 7802 |x | Jump 0x9e0 ; case 0xe 09de 7800 |x | Jump 0x9df ; case 0xf 09df 0833 | 3 | Execute_Immediate Raise,0x33 09e0 e5fd | | Load 0x2,-0x3 09e1 e5fe | | Load 0x2,-0x2 09e2 e5ff | | Load 0x2,-0x1 09e3 e22c | , | Load 0x1,0x2c 09e4 1811 | | Execute Package,Field_Execute,Field_Number 0x11 09e5 4504 |E | Exit_Suprogram New_Top_Offset 0x4 09e6 e5fd | | Load 0x2,-0x3 09e7 e5fe | | Load 0x2,-0x2 09e8 e5ff | | Load 0x2,-0x1 09e9 e231 | 1 | Load 0x1,0x31 09ea 1811 | | Execute Package,Field_Execute,Field_Number 0x11 09eb 4504 |E | Exit_Suprogram New_Top_Offset 0x4 09ec e5fd | | Load 0x2,-0x3 09ed e5fe | | Load 0x2,-0x2 09ee e5ff | | Load 0x2,-0x1 09ef e230 | 0 | Load 0x1,0x30 09f0 1811 | | Execute Package,Field_Execute,Field_Number 0x11 09f1 4504 |E | Exit_Suprogram New_Top_Offset 0x4 09f2 e5fd | | Load 0x2,-0x3 09f3 e5fe | | Load 0x2,-0x2 09f4 e5ff | | Load 0x2,-0x1 09f5 e22f | / | Load 0x1,0x2f 09f6 1811 | | Execute Package,Field_Execute,Field_Number 0x11 09f7 4504 |E | Exit_Suprogram New_Top_Offset 0x4 09f8 e5fd | | Load 0x2,-0x3 09f9 e5fe | | Load 0x2,-0x2 09fa e5ff | | Load 0x2,-0x1 09fb e22b | + | Load 0x1,0x2b 09fc 1811 | | Execute Package,Field_Execute,Field_Number 0x11 09fd 4504 |E | Exit_Suprogram New_Top_Offset 0x4 09fe e5fd | | Load 0x2,-0x3 09ff e5fe | | Load 0x2,-0x2 0a00 e5ff | | Load 0x2,-0x1 0a01 e22a | * | Load 0x1,0x2a 0a02 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0a03 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0a04 e5fd | | Load 0x2,-0x3 0a05 e5fe | | Load 0x2,-0x2 0a06 e5ff | | Load 0x2,-0x1 0a07 e22d | - | Load 0x1,0x2d 0a08 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0a09 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0a0a e5fd | | Load 0x2,-0x3 0a0b e5fe | | Load 0x2,-0x2 0a0c e5ff | | Load 0x2,-0x1 0a0d e22e | . | Load 0x1,0x2e 0a0e 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0a0f 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0a10 ; -------------------------------------------------------------------------------------- 0a10 ; SUBPROGRAM 0a10 ; -------------------------------------------------------------------------------------- 0a10 0a13 | | .CONST 0x0a13 ; Address of begin 0a11 0004 | | .CONST 0x0004 ; Address of exception handler 0a12 0001 | | .CONST 0x0001 ; Number of locals 0a13 BODY_0a10: 0a13 INIT_0a10: 0a13 00da | | Load_Top At_Offset_2 0a14 0217 | | Execute Heap_Access,All_Reference 0a15 2c08 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x8 0a16 0f00 | | Execute_Immediate Equal,0x0 0a17 680d |h | Jump_Zero 0xa25 0a18 00da | | Load_Top At_Offset_2 0a19 0219 | | Execute Heap_Access,All_Read 0a1a 00d8 | | Load_Top At_Offset_0 0a1b 2c08 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x8 0a1c e5ff | | Load 0x2,-0x1 0a1d 4800 |H | Short_Literal 0x0 0a1e e5ff | | Load 0x2,-0x1 0a1f 0217 | | Execute Heap_Access,All_Reference 0a20 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0a21 8241 | A | Call 0x1,0x41 0a22 00d9 | | Load_Top At_Offset_1 0a23 2808 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x8 0a24 00d1 | | Pop_Control Pop_Count_1 0a25 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0a26 0000 0000 | | .XXX[0x2] 0a28 ; -------------------------------------------------------------------------------------- 0a28 ; SUBPROGRAM 0a28 ; -------------------------------------------------------------------------------------- 0a28 0a2b | + | .CONST 0x0a2b ; Address of begin 0a29 0004 | | .CONST 0x0004 ; Address of exception handler 0a2a 0001 | | .CONST 0x0001 ; Number of locals 0a2b BODY_0a28: 0a2b INIT_0a28: 0a2b 00da | | Load_Top At_Offset_2 0a2c 0217 | | Execute Heap_Access,All_Reference 0a2d 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 0a2e 0e09 | | Execute_Immediate Not_Equal,0x9 0a2f 6813 |h | Jump_Zero 0xa43 0a30 00db | | Load_Top At_Offset_3 0a31 0219 | | Execute Heap_Access,All_Read 0a32 00d8 | | Load_Top At_Offset_0 0a33 2c0a |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0xa 0a34 e015 | | Load 0x0,0x15 0a35 e5ff | | Load 0x2,-0x1 0a36 0217 | | Execute Heap_Access,All_Reference 0a37 2c0a |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0xa 0a38 8235 | 5 | Call 0x1,0x35 0a39 00d9 | | Load_Top At_Offset_1 0a3a 280a |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0xa 0a3b 00d1 | | Pop_Control Pop_Count_1 0a3c e015 | | Load 0x0,0x15 0a3d e5fd | | Load 0x2,-0x3 0a3e e5fe | | Load 0x2,-0x2 0a3f 8234 | 4 | Call 0x1,0x34 0a40 00db | | Load_Top At_Offset_3 0a41 0217 | | Execute Heap_Access,All_Reference 0a42 280a |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0xa 0a43 00da | | Load_Top At_Offset_2 0a44 0217 | | Execute Heap_Access,All_Reference 0a45 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 0a46 460f |F | Jump_Case 0x10 0a47 780f |x | Jump 0xa57 ; case 0x0 0a48 7815 |x | Jump 0xa5e ; case 0x1 0a49 7814 |x | Jump 0xa5e ; case 0x2 0a4a 7819 |x | Jump 0xa64 ; case 0x3 0a4b 7818 |x | Jump 0xa64 ; case 0x4 0a4c 781d |x | Jump 0xa6a ; case 0x5 0a4d 7834 |x4 | Jump 0xa82 ; case 0x6 0a4e 782d |x- | Jump 0xa7c ; case 0x7 0a4f 7807 |x | Jump 0xa57 ; case 0x8 0a50 781f |x | Jump 0xa70 ; case 0x9 0a51 781e |x | Jump 0xa70 ; case 0xa 0a52 781d |x | Jump 0xa70 ; case 0xb 0a53 7822 |x" | Jump 0xa76 ; case 0xc 0a54 7809 |x | Jump 0xa5e ; case 0xd 0a55 7802 |x | Jump 0xa58 ; case 0xe 0a56 7800 |x | Jump 0xa57 ; case 0xf 0a57 0833 | 3 | Execute_Immediate Raise,0x33 0a58 e5fd | | Load 0x2,-0x3 0a59 e5fe | | Load 0x2,-0x2 0a5a e5ff | | Load 0x2,-0x1 0a5b e22c | , | Load 0x1,0x2c 0a5c 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0a5d 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0a5e e5fd | | Load 0x2,-0x3 0a5f e5fe | | Load 0x2,-0x2 0a60 e5ff | | Load 0x2,-0x1 0a61 e231 | 1 | Load 0x1,0x31 0a62 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0a63 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0a64 e5fd | | Load 0x2,-0x3 0a65 e5fe | | Load 0x2,-0x2 0a66 e5ff | | Load 0x2,-0x1 0a67 e230 | 0 | Load 0x1,0x30 0a68 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0a69 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0a6a e5fd | | Load 0x2,-0x3 0a6b e5fe | | Load 0x2,-0x2 0a6c e5ff | | Load 0x2,-0x1 0a6d e22f | / | Load 0x1,0x2f 0a6e 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0a6f 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0a70 e5fd | | Load 0x2,-0x3 0a71 e5fe | | Load 0x2,-0x2 0a72 e5ff | | Load 0x2,-0x1 0a73 e22b | + | Load 0x1,0x2b 0a74 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0a75 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0a76 e5fd | | Load 0x2,-0x3 0a77 e5fe | | Load 0x2,-0x2 0a78 e5ff | | Load 0x2,-0x1 0a79 e22a | * | Load 0x1,0x2a 0a7a 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0a7b 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0a7c e5fd | | Load 0x2,-0x3 0a7d e5fe | | Load 0x2,-0x2 0a7e e5ff | | Load 0x2,-0x1 0a7f e22d | - | Load 0x1,0x2d 0a80 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0a81 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0a82 e5fd | | Load 0x2,-0x3 0a83 e5fe | | Load 0x2,-0x2 0a84 e5ff | | Load 0x2,-0x1 0a85 e22e | . | Load 0x1,0x2e 0a86 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0a87 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0a88 ; -------------------------------------------------------------------------------------- 0a88 ; SUBPROGRAM 0a88 ; -------------------------------------------------------------------------------------- 0a88 0a8b | | .CONST 0x0a8b ; Address of begin 0a89 0004 | | .CONST 0x0004 ; Address of exception handler 0a8a 0001 | | .CONST 0x0001 ; Number of locals 0a8b BODY_0a88: 0a8b INIT_0a88: 0a8b 0833 | 3 | Execute_Immediate Raise,0x33 0a8c 0000 0000 | | .BLANK 0000[0x4] 0a90 ; -------------------------------------------------------------------------------------- 0a90 ; SUBPROGRAM 0a90 ; -------------------------------------------------------------------------------------- 0a90 0a93 | | .CONST 0x0a93 ; Address of begin 0a91 0004 | | .CONST 0x0004 ; Address of exception handler 0a92 0001 | | .CONST 0x0001 ; Number of locals 0a93 BODY_0a90: 0a93 INIT_0a90: 0a93 00da | | Load_Top At_Offset_2 0a94 0217 | | Execute Heap_Access,All_Reference 0a95 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 0a96 460f |F | Jump_Case 0x10 0a97 780f |x | Jump 0xaa7 ; case 0x0 0a98 7813 |x | Jump 0xaac ; case 0x1 0a99 7812 |x | Jump 0xaac ; case 0x2 0a9a 7815 |x | Jump 0xab0 ; case 0x3 0a9b 7814 |x | Jump 0xab0 ; case 0x4 0a9c 7817 |x | Jump 0xab4 ; case 0x5 0a9d 7826 |x& | Jump 0xac4 ; case 0x6 0a9e 7821 |x! | Jump 0xac0 ; case 0x7 0a9f 7807 |x | Jump 0xaa7 ; case 0x8 0aa0 7817 |x | Jump 0xab8 ; case 0x9 0aa1 7816 |x | Jump 0xab8 ; case 0xa 0aa2 7815 |x | Jump 0xab8 ; case 0xb 0aa3 7818 |x | Jump 0xabc ; case 0xc 0aa4 7807 |x | Jump 0xaac ; case 0xd 0aa5 7802 |x | Jump 0xaa8 ; case 0xe 0aa6 7800 |x | Jump 0xaa7 ; case 0xf 0aa7 0833 | 3 | Execute_Immediate Raise,0x33 0aa8 00da | | Load_Top At_Offset_2 0aa9 e22c | , | Load 0x1,0x2c 0aaa 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0aab 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0aac 00da | | Load_Top At_Offset_2 0aad e231 | 1 | Load 0x1,0x31 0aae 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0aaf 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0ab0 00da | | Load_Top At_Offset_2 0ab1 e230 | 0 | Load 0x1,0x30 0ab2 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0ab3 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0ab4 00da | | Load_Top At_Offset_2 0ab5 e22f | / | Load 0x1,0x2f 0ab6 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0ab7 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0ab8 00da | | Load_Top At_Offset_2 0ab9 e22b | + | Load 0x1,0x2b 0aba 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0abb 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0abc 00da | | Load_Top At_Offset_2 0abd e22a | * | Load 0x1,0x2a 0abe 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0abf 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0ac0 00da | | Load_Top At_Offset_2 0ac1 e22d | - | Load 0x1,0x2d 0ac2 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0ac3 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0ac4 00da | | Load_Top At_Offset_2 0ac5 e22e | . | Load 0x1,0x2e 0ac6 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0ac7 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0ac8 ; -------------------------------------------------------------------------------------- 0ac8 ; SUBPROGRAM 0ac8 ; -------------------------------------------------------------------------------------- 0ac8 0acb | | .CONST 0x0acb ; Address of begin 0ac9 0004 | | .CONST 0x0004 ; Address of exception handler 0aca 0001 | | .CONST 0x0001 ; Number of locals 0acb BODY_0ac8: 0acb INIT_0ac8: 0acb 00da | | Load_Top At_Offset_2 0acc 8037 | 7 | Call 0x0,0x37 0acd 0f02 | | Execute_Immediate Equal,0x2 0ace 6803 |h | Jump_Zero 0xad2 0acf 00da | | Load_Top At_Offset_2 0ad0 823c | < | Call 0x1,0x3c 0ad1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0ad2 00da | | Load_Top At_Offset_2 0ad3 823b | ; | Call 0x1,0x3b 0ad4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0ad5 0000 0000 | | .XXX[0x3] 0ad7 0000 | | 0ad8 ; -------------------------------------------------------------------------------------- 0ad8 ; SUBPROGRAM 0ad8 ; -------------------------------------------------------------------------------------- 0ad8 0adb | | .CONST 0x0adb ; Address of begin 0ad9 0004 | | .CONST 0x0004 ; Address of exception handler 0ada 0001 | | .CONST 0x0001 ; Number of locals 0adb BODY_0ad8: 0adb INIT_0ad8: 0adb 00da | | Load_Top At_Offset_2 0adc 460f |F | Jump_Case 0x10 0add 780f |x | Jump 0xaed ; case 0x0 0ade 780e |x | Jump 0xaed ; case 0x1 0adf 780d |x | Jump 0xaed ; case 0x2 0ae0 780e |x | Jump 0xaef ; case 0x3 0ae1 780d |x | Jump 0xaef ; case 0x4 0ae2 780c |x | Jump 0xaef ; case 0x5 0ae3 7809 |x | Jump 0xaed ; case 0x6 0ae4 780a |x | Jump 0xaef ; case 0x7 0ae5 7807 |x | Jump 0xaed ; case 0x8 0ae6 7808 |x | Jump 0xaef ; case 0x9 0ae7 7807 |x | Jump 0xaef ; case 0xa 0ae8 7806 |x | Jump 0xaef ; case 0xb 0ae9 7805 |x | Jump 0xaef ; case 0xc 0aea 7802 |x | Jump 0xaed ; case 0xd 0aeb 7801 |x | Jump 0xaed ; case 0xe 0aec 7800 |x | Jump 0xaed ; case 0xf 0aed 4800 |H | Short_Literal 0x0 0aee 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0aef 4801 |H | Short_Literal 0x1 0af0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0af1 0000 0000 | | .BLANK 0000[0x7] 0af8 ; -------------------------------------------------------------------------------------- 0af8 ; SUBPROGRAM 0af8 ; -------------------------------------------------------------------------------------- 0af8 0b04 | | .CONST 0x0b04 ; Address of begin 0af9 0004 | | .CONST 0x0004 ; Address of exception handler 0afa 0006 | | .CONST 0x0006 ; Number of locals 0afb INIT_0af8: 0afb 00e1 | | Load_Encached Boolean_Cache 0afc e220 | | Load 0x1,0x20 0afd 0007 | | Action Break_Optional 0afe e5ff | | Load 0x2,-0x1 0aff 823f | ? | Call 0x1,0x3f 0b00 e220 | | Load 0x1,0x20 0b01 0007 | | Action Break_Optional 0b02 e20d | | Load 0x1,0xd 0b03 0007 | | Action Break_Optional 0b04 BODY_0af8: 0b04 00e1 | | Load_Encached Boolean_Cache 0b05 e403 | | Load 0x2,0x3 0b06 e404 | | Load 0x2,0x4 0b07 e00e | | Load 0x0,0xe 0b08 800f | | Call 0x0,0xf 0b09 c403 | | Store 0x2,0x3 0b0a c402 | | Store 0x2,0x2 0b0b e402 | | Load 0x2,0x2 0b0c 6803 |h | Jump_Zero 0xb10 0b0d 00db | | Load_Top At_Offset_3 0b0e a5f9 | | Store_Unchecked 0x2,-0x7 0b0f 4507 |E | Exit_Suprogram New_Top_Offset 0x7 0b10 e006 | | Load 0x0,0x6 0b11 e5fa | | Load 0x2,-0x6 0b12 8249 | I | Call 0x1,0x49 0b13 e5fb | | Load 0x2,-0x5 0b14 e5fc | | Load 0x2,-0x4 0b15 e5fd | | Load 0x2,-0x3 0b16 e5fe | | Load 0x2,-0x2 0b17 e404 | | Load 0x2,0x4 0b18 8211 | | Call 0x1,0x11 0b19 a5f9 | | Store_Unchecked 0x2,-0x7 0b1a 4507 |E | Exit_Suprogram New_Top_Offset 0x7 0b1b 0000 0000 | | .BLANK 0000[0x5] 0b20 ; -------------------------------------------------------------------------------------- 0b20 ; SUBPROGRAM 0b20 ; -------------------------------------------------------------------------------------- 0b20 0b2b | + | .CONST 0x0b2b ; Address of begin 0b21 0004 | | .CONST 0x0004 ; Address of exception handler 0b22 0002 | | .CONST 0x0002 ; Number of locals 0b23 INIT_0b20: 0b23 480e |H | Short_Literal 0xe 0b24 4801 |H | Short_Literal 0x1 0b25 e220 | | Load 0x1,0x20 0b26 e5fc | | Load 0x2,-0x4 0b27 039a | | Declare_Variable Heap_Access,By_Allocation,With_Constraint 0b28 00d8 | | Load_Top At_Offset_0 0b29 0217 | | Execute Heap_Access,All_Reference 0b2a 1c00 | | Execute_Immediate Run_Utility,0x0 0b2b BODY_0b20: 0b2b 00db | | Load_Top At_Offset_3 0b2c 00d9 | | Load_Top At_Offset_1 0b2d 0217 | | Execute Heap_Access,All_Reference 0b2e 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 0b2f e5fd | | Load 0x2,-0x3 0b30 00d9 | | Load_Top At_Offset_1 0b31 0217 | | Execute Heap_Access,All_Reference 0b32 2804 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x4 0b33 e5fe | | Load 0x2,-0x2 0b34 00d9 | | Load_Top At_Offset_1 0b35 0217 | | Execute Heap_Access,All_Reference 0b36 2805 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x5 0b37 e5fe | | Load 0x2,-0x2 0b38 00d9 | | Load_Top At_Offset_1 0b39 0217 | | Execute Heap_Access,All_Reference 0b3a 2806 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x6 0b3b e027 | ' | Load 0x0,0x27 0b3c 00d9 | | Load_Top At_Offset_1 0b3d 0217 | | Execute Heap_Access,All_Reference 0b3e 2803 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3 0b3f 00d8 | | Load_Top At_Offset_0 0b40 e006 | | Load 0x0,0x6 0b41 4801 |H | Short_Literal 0x1 0b42 e5fb | | Load 0x2,-0x5 0b43 e5fc | | Load 0x2,-0x4 0b44 e5fd | | Load 0x2,-0x3 0b45 e00b | | Load 0x0,0xb 0b46 e5ff | | Load 0x2,-0x1 0b47 e22c | , | Load 0x1,0x2c 0b48 180d | | Execute Package,Field_Execute,Field_Number 0xd 0b49 0031 | 1 | Store_Top Heap_Access,At_Offset_1 0b4a e038 | 8 | Load 0x0,0x38 0b4b 00d9 | | Load_Top At_Offset_1 0b4c 8039 | 9 | Call 0x0,0x39 0b4d 00d1 | | Pop_Control Pop_Count_1 0b4e 00d8 | | Load_Top At_Offset_0 0b4f 4405 |D | Exit_Subprogram With_Value,New_Top_Offset 0x5 0b50 ; -------------------------------------------------------------------------------------- 0b50 ; SUBPROGRAM 0b50 ; -------------------------------------------------------------------------------------- 0b50 0b53 | S | .CONST 0x0b53 ; Address of begin 0b51 0004 | | .CONST 0x0004 ; Address of exception handler 0b52 0001 | | .CONST 0x0001 ; Number of locals 0b53 BODY_0b50: 0b53 INIT_0b50: 0b53 e223 | # | Load 0x1,0x23 0b54 6807 |h | Jump_Zero 0xb5c 0b55 0092 0efd | | Action Push_String_Extended,0xefd ; " Mark_Covered" 0b57 e5fe | | Load 0x2,-0x2 0b58 00e0 | | Load_Encached Standard_Cache 0b59 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0b5a 01cc | | Execute Vector,Catenate 0b5b 8232 | 2 | Call 0x1,0x32 0b5c e008 | | Load 0x0,0x8 0b5d 00db | | Load_Top At_Offset_3 0b5e 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0b5f 8009 | | Call 0x0,0x9 0b60 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0b61 0000 0000 | | .BLANK 0000[0x7] 0b68 ; -------------------------------------------------------------------------------------- 0b68 ; SUBPROGRAM 0b68 ; -------------------------------------------------------------------------------------- 0b68 0b6d | m | .CONST 0x0b6d ; Address of begin 0b69 0004 | | .CONST 0x0004 ; Address of exception handler 0b6a 0002 | | .CONST 0x0002 ; Number of locals 0b6b INIT_0b68: 0b6b 029f 0dcb | | Declare_Subprogram INIT_0dc8,For_Call 0b6d BODY_0b68: 0b6d e00d | | Load 0x0,0xd 0b6e 6803 |h | Jump_Zero 0xb72 0b6f 00db | | Load_Top At_Offset_3 0b70 8402 | | Call 0x2,0x2 0b71 6802 |h | Jump_Zero 0xb74 0b72 e5fe | | Load 0x2,-0x2 0b73 803a | : | Call 0x0,0x3a 0b74 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0b75 0000 0000 | | .XXX[0x3] 0b77 0000 | | 0b78 ; -------------------------------------------------------------------------------------- 0b78 ; SUBPROGRAM 0b78 ; -------------------------------------------------------------------------------------- 0b78 0b7b | { | .CONST 0x0b7b ; Address of begin 0b79 0004 | | .CONST 0x0004 ; Address of exception handler 0b7a 0001 | | .CONST 0x0001 ; Number of locals 0b7b BODY_0b78: 0b7b INIT_0b78: 0b7b e5fc | | Load 0x2,-0x4 0b7c e5fe | | Load 0x2,-0x2 0b7d 824c | L | Call 0x1,0x4c 0b7e 00db | | Load_Top At_Offset_3 0b7f 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0b80 6803 |h | Jump_Zero 0xb84 0b81 e5fd | | Load 0x2,-0x3 0b82 00db | | Load_Top At_Offset_3 0b83 824d | M | Call 0x1,0x4d 0b84 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0b85 0000 0000 | | .XXX[0x3] 0b87 0000 | | 0b88 ; -------------------------------------------------------------------------------------- 0b88 ; SUBPROGRAM 0b88 ; -------------------------------------------------------------------------------------- 0b88 0b93 | | .CONST 0x0b93 ; Address of begin 0b89 0004 | | .CONST 0x0004 ; Address of exception handler 0b8a 0004 | | .CONST 0x0004 ; Number of locals 0b8b INIT_0b88: 0b8b 00da | | Load_Top At_Offset_2 0b8c 8258 | X | Call 0x1,0x58 0b8d 0093 0000 | | push_full_address 0x0 0b8f 6008 |` | Indirect_Literal Discrete,0xb98,{0x80000000, 0x00010000} 0b90 0273 | s | Execute Discrete,Plus 0b91 029f 0dd3 | | Declare_Subprogram INIT_0dd0,For_Call 0b93 BODY_0b88: 0b93 00da | | Load_Top At_Offset_2 0b94 803b | ; | Call 0x0,0x3b 0b95 7001 |p | Jump_Nonzero 0xb97 0b96 8404 | | Call 0x2,0x4 0b97 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0b98 8000 0000 | | .LITERAL {0x80000000, 0x00010000} 0b9c 0000 0000 | | .BLANK 0000[0x4] 0ba0 ; -------------------------------------------------------------------------------------- 0ba0 ; SUBPROGRAM 0ba0 ; -------------------------------------------------------------------------------------- 0ba0 0ba3 | | .CONST 0x0ba3 ; Address of begin 0ba1 0004 | | .CONST 0x0004 ; Address of exception handler 0ba2 0001 | | .CONST 0x0001 ; Number of locals 0ba3 BODY_0ba0: 0ba3 INIT_0ba0: 0ba3 00da | | Load_Top At_Offset_2 0ba4 6811 |h | Jump_Zero 0xbb6 0ba5 e5fd | | Load 0x2,-0x3 0ba6 e5fe | | Load 0x2,-0x2 0ba7 e5ff | | Load 0x2,-0x1 0ba8 0217 | | Execute Heap_Access,All_Reference 0ba9 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0baa e5ff | | Load 0x2,-0x1 0bab 0217 | | Execute Heap_Access,All_Reference 0bac 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0bad 8218 | | Call 0x1,0x18 0bae e010 | | Load 0x0,0x10 0baf 180e | | Execute Package,Field_Execute,Field_Number 0xe 0bb0 4801 |H | Short_Literal 0x1 0bb1 e010 | | Load 0x0,0x10 0bb2 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 0bb3 6802 |h | Jump_Zero 0xbb6 0bb4 e5fd | | Load 0x2,-0x3 0bb5 824f | O | Call 0x1,0x4f 0bb6 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0bb7 0000 | | .XXX[0x1] 0bb8 ; -------------------------------------------------------------------------------------- 0bb8 ; SUBPROGRAM 0bb8 ; -------------------------------------------------------------------------------------- 0bb8 0bbb | | .CONST 0x0bbb ; Address of begin 0bb9 0004 | | .CONST 0x0004 ; Address of exception handler 0bba 0001 | | .CONST 0x0001 ; Number of locals 0bbb BODY_0bb8: 0bbb INIT_0bb8: 0bbb 00da | | Load_Top At_Offset_2 0bbc 6811 |h | Jump_Zero 0xbce 0bbd e5fd | | Load 0x2,-0x3 0bbe e5fe | | Load 0x2,-0x2 0bbf e5ff | | Load 0x2,-0x1 0bc0 0217 | | Execute Heap_Access,All_Reference 0bc1 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0bc2 e5ff | | Load 0x2,-0x1 0bc3 0217 | | Execute Heap_Access,All_Reference 0bc4 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0bc5 8218 | | Call 0x1,0x18 0bc6 e010 | | Load 0x0,0x10 0bc7 180e | | Execute Package,Field_Execute,Field_Number 0xe 0bc8 4801 |H | Short_Literal 0x1 0bc9 e010 | | Load 0x0,0x10 0bca 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 0bcb 6802 |h | Jump_Zero 0xbce 0bcc e5fd | | Load 0x2,-0x3 0bcd 824f | O | Call 0x1,0x4f 0bce 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0bcf 0000 | | .XXX[0x1] 0bd0 ; -------------------------------------------------------------------------------------- 0bd0 ; SUBPROGRAM 0bd0 ; -------------------------------------------------------------------------------------- 0bd0 0bd5 | | .CONST 0x0bd5 ; Address of begin 0bd1 0004 | | .CONST 0x0004 ; Address of exception handler 0bd2 0002 | | .CONST 0x0002 ; Number of locals 0bd3 INIT_0bd0: 0bd3 029f 0e23 | #| Declare_Subprogram INIT_0e20,For_Call 0bd5 BODY_0bd0: 0bd5 e00d | | Load 0x0,0xd 0bd6 6803 |h | Jump_Zero 0xbda 0bd7 00db | | Load_Top At_Offset_3 0bd8 8402 | | Call 0x2,0x2 0bd9 6802 |h | Jump_Zero 0xbdc 0bda e5fe | | Load 0x2,-0x2 0bdb 803a | : | Call 0x0,0x3a 0bdc 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0bdd 0000 0000 | | .XXX[0x3] 0bdf 0000 | | 0be0 ; -------------------------------------------------------------------------------------- 0be0 ; SUBPROGRAM 0be0 ; -------------------------------------------------------------------------------------- 0be0 0be8 | | .CONST 0x0be8 ; Address of begin 0be1 0004 | | .CONST 0x0004 ; Address of exception handler 0be2 0002 | | .CONST 0x0002 ; Number of locals 0be3 INIT_0be0: 0be3 e017 | | Load 0x0,0x17 0be4 0322 | " | Declare_Variable Record 0be5 00db | | Load_Top At_Offset_3 0be6 00d9 | | Load_Top At_Offset_1 0be7 017d | } | Execute Record,Structure_Write 0be8 BODY_0be0: 0be8 00cf | | Action Mark_Auxiliary 0be9 00d9 | | Load_Top At_Offset_1 0bea 8012 | | Call 0x0,0x12 0beb 7009 |p | Jump_Nonzero 0xbf5 0bec 00d9 | | Load_Top At_Offset_1 0bed 8013 | | Call 0x0,0x13 0bee 8036 | 6 | Call 0x0,0x36 0bef 7005 |p | Jump_Nonzero 0xbf5 0bf0 00d9 | | Load_Top At_Offset_1 0bf1 801c | | Call 0x0,0x1c 0bf2 00d1 | | Pop_Control Pop_Count_1 0bf3 00c9 | | Action Pop_Auxiliary_Loop 0bf4 7ff4 | | Jump 0xbe9 0bf5 00ce | | Action Pop_Auxiliary 0bf6 00d8 | | Load_Top At_Offset_0 0bf7 8012 | | Call 0x0,0x12 0bf8 6802 |h | Jump_Zero 0xbfb 0bf9 e006 | | Load 0x0,0x6 0bfa 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0bfb 00d8 | | Load_Top At_Offset_0 0bfc 8013 | | Call 0x0,0x13 0bfd 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0bfe 0000 0000 | | .XXX[0x2] 0c00 ; -------------------------------------------------------------------------------------- 0c00 ; SUBPROGRAM 0c00 ; -------------------------------------------------------------------------------------- 0c00 0c0e | | .CONST 0x0c0e ; Address of begin 0c01 0004 | | .CONST 0x0004 ; Address of exception handler 0c02 0005 | | .CONST 0x0005 ; Number of locals 0c03 INIT_0c00: 0c03 e017 | | Load 0x0,0x17 0c04 0322 | " | Declare_Variable Record 0c05 00db | | Load_Top At_Offset_3 0c06 00d9 | | Load_Top At_Offset_1 0c07 017d | } | Execute Record,Structure_Write 0c08 e004 | | Load 0x0,0x4 0c09 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0c0a 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0c0b e003 | | Load 0x0,0x3 0c0c 029f 0e5b | [| Declare_Subprogram INIT_0e58,For_Call 0c0e BODY_0c00: 0c0e 00cf | | Action Mark_Auxiliary 0c0f e402 | | Load 0x2,0x2 0c10 8012 | | Call 0x0,0x12 0c11 7006 |p | Jump_Nonzero 0xc18 0c12 8405 | | Call 0x2,0x5 0c13 e402 | | Load 0x2,0x2 0c14 801c | | Call 0x0,0x1c 0c15 00d1 | | Pop_Control Pop_Count_1 0c16 00c9 | | Action Pop_Auxiliary_Loop 0c17 7ff7 | | Jump 0xc0f 0c18 00ce | | Action Pop_Auxiliary 0c19 00db | | Load_Top At_Offset_3 0c1a 8012 | | Call 0x0,0x12 0c1b 6805 |h | Jump_Zero 0xc21 0c1c e006 | | Load 0x0,0x6 0c1d a5fd | | Store_Unchecked 0x2,-0x3 0c1e 4800 |H | Short_Literal 0x0 0c1f a5fc | | Store_Unchecked 0x2,-0x4 0c20 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0c21 00d9 | | Load_Top At_Offset_1 0c22 a5fd | | Store_Unchecked 0x2,-0x3 0c23 00da | | Load_Top At_Offset_2 0c24 a5fc | | Store_Unchecked 0x2,-0x4 0c25 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0c26 0000 0000 | | .XXX[0x2] 0c28 ; -------------------------------------------------------------------------------------- 0c28 ; SUBPROGRAM 0c28 ; -------------------------------------------------------------------------------------- 0c28 0c34 | 4 | .CONST 0x0c34 ; Address of begin 0c29 0004 | | .CONST 0x0004 ; Address of exception handler 0c2a 0004 | | .CONST 0x0004 ; Number of locals 0c2b INIT_0c28: 0c2b e017 | | Load 0x0,0x17 0c2c 0322 | " | Declare_Variable Record 0c2d 00db | | Load_Top At_Offset_3 0c2e 00d9 | | Load_Top At_Offset_1 0c2f 017d | } | Execute Record,Structure_Write 0c30 e003 | | Load 0x0,0x3 0c31 0007 | | Action Break_Optional 0c32 e220 | | Load 0x1,0x20 0c33 0007 | | Action Break_Optional 0c34 BODY_0c28: 0c34 e5fb | | Load 0x2,-0x5 0c35 e5f8 | | Load 0x2,-0x8 0c36 e5fe | | Load 0x2,-0x2 0c37 8007 | | Call 0x0,0x7 0c38 e5f7 | | Load 0x2,-0x9 0c39 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0c3a 00da | | Load_Top At_Offset_2 0c3b e003 | | Load 0x0,0x3 0c3c 4800 |H | Short_Literal 0x0 0c3d 823d | = | Call 0x1,0x3d 0c3e 0033 | 3 | Store_Top Heap_Access,At_Offset_3 0c3f 00d1 | | Pop_Control Pop_Count_1 0c40 00d9 | | Load_Top At_Offset_1 0c41 802b | + | Call 0x0,0x2b 0c42 701b |p | Jump_Nonzero 0xc5e 0c43 e220 | | Load 0x1,0x20 0c44 4800 |H | Short_Literal 0x0 0c45 e5f9 | | Load 0x2,-0x7 0c46 e5fb | | Load 0x2,-0x5 0c47 e5fd | | Load 0x2,-0x3 0c48 e402 | | Load 0x2,0x2 0c49 e403 | | Load 0x2,0x3 0c4a 824a | J | Call 0x1,0x4a 0c4b 0031 | 1 | Store_Top Heap_Access,At_Offset_1 0c4c e5f7 | | Load 0x2,-0x9 0c4d 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0c4e e5f7 | | Load 0x2,-0x9 0c4f 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0c50 e004 | | Load 0x0,0x4 0c51 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0c52 e003 | | Load 0x0,0x3 0c53 e404 | | Load 0x2,0x4 0c54 0217 | | Execute Heap_Access,All_Reference 0c55 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0c56 e5ff | | Load 0x2,-0x1 0c57 8254 | T | Call 0x1,0x54 0c58 00da | | Load_Top At_Offset_2 0c59 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0c5a 00da | | Load_Top At_Offset_2 0c5b 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0c5c 00d2 | | Pop_Control Pop_Count_2 0c5d 780f |x | Jump 0xc6d 0c5e e5f7 | | Load 0x2,-0x9 0c5f 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0c60 e5f7 | | Load 0x2,-0x9 0c61 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0c62 e004 | | Load 0x0,0x4 0c63 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0c64 e003 | | Load 0x0,0x3 0c65 e006 | | Load 0x0,0x6 0c66 e5ff | | Load 0x2,-0x1 0c67 8254 | T | Call 0x1,0x54 0c68 00da | | Load_Top At_Offset_2 0c69 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0c6a 00da | | Load_Top At_Offset_2 0c6b 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0c6c 00d2 | | Pop_Control Pop_Count_2 0c6d e5f7 | | Load 0x2,-0x9 0c6e 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 0c6f 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0c70 802b | + | Call 0x0,0x2b 0c71 680f |h | Jump_Zero 0xc81 0c72 e5fb | | Load 0x2,-0x5 0c73 4800 |H | Short_Literal 0x0 0c74 e5fe | | Load 0x2,-0x2 0c75 8007 | | Call 0x0,0x7 0c76 e5f7 | | Load 0x2,-0x9 0c77 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0c78 e5fd | | Load 0x2,-0x3 0c79 0217 | | Execute Heap_Access,All_Reference 0c7a 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0c7b 8238 | 8 | Call 0x1,0x38 0c7c 0f00 | | Execute_Immediate Equal,0x0 0c7d e5fd | | Load 0x2,-0x3 0c7e 0217 | | Execute Heap_Access,All_Reference 0c7f 280d |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0xd 0c80 4509 |E | Exit_Suprogram New_Top_Offset 0x9 0c81 e5f7 | | Load 0x2,-0x9 0c82 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 0c83 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0c84 00da | | Load_Top At_Offset_2 0c85 021f | | Execute Heap_Access,Equal 0c86 6808 |h | Jump_Zero 0xc8f 0c87 e5fa | | Load 0x2,-0x6 0c88 e5fd | | Load 0x2,-0x3 0c89 00da | | Load_Top At_Offset_2 0c8a 8243 | C | Call 0x1,0x43 0c8b 4800 |H | Short_Literal 0x0 0c8c e5f7 | | Load 0x2,-0x9 0c8d 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0c8e 4509 |E | Exit_Suprogram New_Top_Offset 0x9 0c8f e5f7 | | Load 0x2,-0x9 0c90 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0c91 00d8 | | Load_Top At_Offset_0 0c92 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0c93 e5fd | | Load 0x2,-0x3 0c94 e5fa | | Load 0x2,-0x6 0c95 e5f7 | | Load 0x2,-0x9 0c96 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 0c97 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0c98 8241 | A | Call 0x1,0x41 0c99 00d9 | | Load_Top At_Offset_1 0c9a 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0c9b 00d1 | | Pop_Control Pop_Count_1 0c9c 4801 |H | Short_Literal 0x1 0c9d e5f7 | | Load 0x2,-0x9 0c9e 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0c9f 4509 |E | Exit_Suprogram New_Top_Offset 0x9 0ca0 ; -------------------------------------------------------------------------------------- 0ca0 ; SUBPROGRAM 0ca0 ; -------------------------------------------------------------------------------------- 0ca0 0ca6 | | .CONST 0x0ca6 ; Address of begin 0ca1 0004 | | .CONST 0x0004 ; Address of exception handler 0ca2 0002 | | .CONST 0x0002 ; Number of locals 0ca3 INIT_0ca0: 0ca3 e220 | | Load 0x1,0x20 0ca4 00db | | Load_Top At_Offset_3 0ca5 0031 | 1 | Store_Top Heap_Access,At_Offset_1 0ca6 BODY_0ca0: 0ca6 e5fc | | Load 0x2,-0x4 0ca7 e220 | | Load 0x1,0x20 0ca8 021e | | Execute Heap_Access,Maximum 0ca9 6802 |h | Jump_Zero 0xcac 0caa e5fc | | Load 0x2,-0x4 0cab 0031 | 1 | Store_Top Heap_Access,At_Offset_1 0cac 4800 |H | Short_Literal 0x0 0cad e5fb | | Load 0x2,-0x5 0cae 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0caf 4800 |H | Short_Literal 0x0 0cb0 e5fb | | Load 0x2,-0x5 0cb1 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 0cb2 00db | | Load_Top At_Offset_3 0cb3 0217 | | Execute Heap_Access,All_Reference 0cb4 2c05 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x5 0cb5 820f | | Call 0x1,0xf 0cb6 7007 |p | Jump_Nonzero 0xcbe 0cb7 e5fe | | Load 0x2,-0x2 0cb8 00d9 | | Load_Top At_Offset_1 0cb9 e5ff | | Load 0x2,-0x1 0cba 0217 | | Execute Heap_Access,All_Reference 0cbb 2c05 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x5 0cbc 8245 | E | Call 0x1,0x45 0cbd 7813 |x | Jump 0xcd1 0cbe 00db | | Load_Top At_Offset_3 0cbf 0217 | | Execute Heap_Access,All_Reference 0cc0 2c06 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x6 0cc1 820f | | Call 0x1,0xf 0cc2 7007 |p | Jump_Nonzero 0xcca 0cc3 e5fe | | Load 0x2,-0x2 0cc4 00d9 | | Load_Top At_Offset_1 0cc5 e5ff | | Load 0x2,-0x1 0cc6 0217 | | Execute Heap_Access,All_Reference 0cc7 2c06 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x6 0cc8 8245 | E | Call 0x1,0x45 0cc9 7807 |x | Jump 0xcd1 0cca 4801 |H | Short_Literal 0x1 0ccb e5fb | | Load 0x2,-0x5 0ccc 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 0ccd 4801 |H | Short_Literal 0x1 0cce 00d9 | | Load_Top At_Offset_1 0ccf 0217 | | Execute Heap_Access,All_Reference 0cd0 280c |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0xc 0cd1 e5fd | | Load 0x2,-0x3 0cd2 4801 |H | Short_Literal 0x1 0cd3 00da | | Load_Top At_Offset_2 0cd4 0217 | | Execute Heap_Access,All_Reference 0cd5 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0cd6 8007 | | Call 0x0,0x7 0cd7 e5fb | | Load 0x2,-0x5 0cd8 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0cd9 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0cda 0000 0000 | | .BLANK 0000[0x6] 0ce0 ; -------------------------------------------------------------------------------------- 0ce0 ; SUBPROGRAM 0ce0 ; -------------------------------------------------------------------------------------- 0ce0 0ce3 | | .CONST 0x0ce3 ; Address of begin 0ce1 0004 | | .CONST 0x0004 ; Address of exception handler 0ce2 0001 | | .CONST 0x0001 ; Number of locals 0ce3 BODY_0ce0: 0ce3 INIT_0ce0: 0ce3 00da | | Load_Top At_Offset_2 0ce4 803c | < | Call 0x0,0x3c 0ce5 e004 | | Load 0x0,0x4 0ce6 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f 0ce7 e004 | | Load 0x0,0x4 0ce8 184c | L | Execute Package,Field_Execute,Field_Number 0x4c 0ce9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0cea 0000 0000 | | .BLANK 0000[0x6] 0cf0 ; -------------------------------------------------------------------------------------- 0cf0 ; SUBPROGRAM 0cf0 ; -------------------------------------------------------------------------------------- 0cf0 0cf6 | | .CONST 0x0cf6 ; Address of begin 0cf1 0004 | | .CONST 0x0004 ; Address of exception handler 0cf2 0003 | | .CONST 0x0003 ; Number of locals 0cf3 INIT_0cf0: 0cf3 00e1 | | Load_Encached Boolean_Cache 0cf4 e03d | = | Load 0x0,0x3d 0cf5 0007 | | Action Break_Optional 0cf6 BODY_0cf0: 0cf6 00e1 | | Load_Encached Boolean_Cache 0cf7 00d9 | | Load_Top At_Offset_1 0cf8 e5ff | | Load 0x2,-0x1 0cf9 e03e | > | Load 0x0,0x3e 0cfa 803f | ? | Call 0x0,0x3f 0cfb 0032 | 2 | Store_Top Heap_Access,At_Offset_2 0cfc 005a | Z | Store_Top Discrete,At_Offset_2 0cfd 00d9 | | Load_Top At_Offset_1 0cfe 7009 |p | Jump_Nonzero 0xd08 0cff e015 | | Load 0x0,0x15 0d00 8040 | @ | Call 0x0,0x40 0d01 0031 | 1 | Store_Top Heap_Access,At_Offset_1 0d02 e03e | > | Load 0x0,0x3e 0d03 4800 |H | Short_Literal 0x0 0d04 00da | | Load_Top At_Offset_2 0d05 e5ff | | Load 0x2,-0x1 0d06 8041 | A | Call 0x0,0x41 0d07 c03e | > | Store 0x0,0x3e 0d08 00d8 | | Load_Top At_Offset_0 0d09 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0d0a 0000 0000 | | .BLANK 0000[0x6] 0d10 ; -------------------------------------------------------------------------------------- 0d10 ; SUBPROGRAM 0d10 ; -------------------------------------------------------------------------------------- 0d10 0d1b | | .CONST 0x0d1b ; Address of begin 0d11 0004 | | .CONST 0x0004 ; Address of exception handler 0d12 0003 | | .CONST 0x0003 ; Number of locals 0d13 INIT_0d10: 0d13 e5fd | | Load 0x2,-0x3 0d14 8258 | X | Call 0x1,0x58 0d15 e015 | | Load 0x0,0x15 0d16 e5fd | | Load 0x2,-0x3 0d17 8257 | W | Call 0x1,0x57 0d18 e5fe | | Load 0x2,-0x2 0d19 e5ff | | Load 0x2,-0x1 0d1a 8042 | B | Call 0x0,0x42 0d1b BODY_0d10: 0d1b 0092 0efe | | Action Push_String_Extended,0xefe ; "ENTER Push_Decision_Point" 0d1d 8232 | 2 | Call 0x1,0x32 0d1e 00d9 | | Load_Top At_Offset_1 0d1f 00d9 | | Load_Top At_Offset_1 0d20 8043 | C | Call 0x0,0x43 0d21 0032 | 2 | Store_Top Heap_Access,At_Offset_2 0d22 e224 | $ | Load 0x1,0x24 0d23 0a01 | | Execute_Immediate Plus,0x1 0d24 c224 | $ | Store 0x1,0x24 0d25 e5ff | | Load 0x2,-0x1 0d26 0217 | | Execute Heap_Access,All_Reference 0d27 2c0c |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0xc 0d28 6807 |h | Jump_Zero 0xd30 0d29 4801 |H | Short_Literal 0x1 0d2a 00da | | Load_Top At_Offset_2 0d2b 8044 | D | Call 0x0,0x44 0d2c e5fd | | Load 0x2,-0x3 0d2d 8257 | W | Call 0x1,0x57 0d2e 00da | | Load_Top At_Offset_2 0d2f 8045 | E | Call 0x0,0x45 0d30 e223 | # | Load 0x1,0x23 0d31 6807 |h | Jump_Zero 0xd39 0d32 0092 0eff | | Action Push_String_Extended,0xeff ; " Task Element Stack Size =" 0d34 e224 | $ | Load 0x1,0x24 0d35 00e0 | | Load_Encached Standard_Cache 0d36 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0d37 01cc | | Execute Vector,Catenate 0d38 8232 | 2 | Call 0x1,0x32 0d39 0092 0f00 | | Action Push_String_Extended,0xf00 ; "EXIT Push_Decision_Point" 0d3b 8232 | 2 | Call 0x1,0x32 0d3c 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0d3d 0000 0000 | | .XXX[0x3] 0d3f 0000 | | 0d40 ; -------------------------------------------------------------------------------------- 0d40 ; SUBPROGRAM 0d40 ; -------------------------------------------------------------------------------------- 0d40 0d47 | G | .CONST 0x0d47 ; Address of begin 0d41 0004 | | .CONST 0x0004 ; Address of exception handler 0d42 0003 | | .CONST 0x0003 ; Number of locals 0d43 INIT_0d40: 0d43 e5fc | | Load 0x2,-0x4 0d44 8258 | X | Call 0x1,0x58 0d45 029f 0e7b | {| Declare_Subprogram INIT_0e78,For_Call 0d47 BODY_0d40: 0d47 0092 0f01 | | Action Push_String_Extended,0xf01 ; "ENTER Base_Class_Process_Decision_Arm_Bkpt" 0d49 8232 | 2 | Call 0x1,0x32 0d4a 00d9 | | Load_Top At_Offset_1 0d4b 803b | ; | Call 0x0,0x3b 0d4c 7004 |p | Jump_Nonzero 0xd51 0d4d 0092 0f02 | | Action Push_String_Extended,0xf02 ; " Stack not EMPTY" 0d4f 8232 | 2 | Call 0x1,0x32 0d50 8403 | | Call 0x2,0x3 0d51 0092 0f03 | | Action Push_String_Extended,0xf03 ; "EXIT Base_Class_Process_Decision_Arm_Bkpt" 0d53 8232 | 2 | Call 0x1,0x32 0d54 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0d55 0000 0000 | | .XXX[0x3] 0d57 0000 | | 0d58 ; -------------------------------------------------------------------------------------- 0d58 ; SUBPROGRAM 0d58 ; -------------------------------------------------------------------------------------- 0d58 0d5b | [ | .CONST 0x0d5b ; Address of begin 0d59 0004 | | .CONST 0x0004 ; Address of exception handler 0d5a 0001 | | .CONST 0x0001 ; Number of locals 0d5b BODY_0d58: 0d5b INIT_0d58: 0d5b 00da | | Load_Top At_Offset_2 0d5c e402 | | Load 0x2,0x2 0d5d 01d7 | | Execute Vector,Field_Read 0d5e 0f3b | ; | Execute_Immediate Equal,0x3b 0d5f 6802 |h | Jump_Zero 0xd62 0d60 4801 |H | Short_Literal 0x1 0d61 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0d62 00da | | Load_Top At_Offset_2 0d63 0a04 | | Execute_Immediate Plus,0x4 0d64 e402 | | Load 0x2,0x2 0d65 01dc | | Execute Vector,Last 0d66 027a | z | Execute Discrete,Less_Equal 0d67 6821 |h! | Jump_Zero 0xd89 0d68 00da | | Load_Top At_Offset_2 0d69 00db | | Load_Top At_Offset_3 0d6a 0a04 | | Execute_Immediate Plus,0x4 0d6b 00d8 | | Load_Top At_Offset_0 0d6c 00e2 | | Load_Encached Integer_Cache 0d6d 0260 | ` | Execute Discrete,In_Type 0d6e 7001 |p | Jump_Nonzero 0xd70 0d6f 0801 | | Execute_Immediate Raise,0x1 0d70 e402 | | Load 0x2,0x2 0d71 01cf | | Execute Vector,Slice_Read 0d72 0092 0f04 | | Action Push_String_Extended,0xf04 ; " loop" 0d74 01df | | Execute Vector,Equal 0d75 00db | | Load_Top At_Offset_3 0d76 e7ff | | Load 0x3,-0x1 0d77 0a04 | | Execute_Immediate Plus,0x4 0d78 00d8 | | Load_Top At_Offset_0 0d79 00e2 | | Load_Encached Integer_Cache 0d7a 0260 | ` | Execute Discrete,In_Type 0d7b 7001 |p | Jump_Nonzero 0xd7d 0d7c 0801 | | Execute_Immediate Raise,0x1 0d7d e402 | | Load 0x2,0x2 0d7e 01cf | | Execute Vector,Slice_Read 0d7f 0092 0f05 | | Action Push_String_Extended,0xf05 ; " then" 0d81 01df | | Execute Vector,Equal 0d82 0278 | x | Execute Discrete,Or 0d83 6805 |h | Jump_Zero 0xd89 0d84 e404 | | Load 0x2,0x4 0d85 0a04 | | Execute_Immediate Plus,0x4 0d86 c404 | | Store 0x2,0x4 0d87 4801 |H | Short_Literal 0x1 0d88 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0d89 00da | | Load_Top At_Offset_2 0d8a e402 | | Load 0x2,0x2 0d8b 01dc | | Execute Vector,Last 0d8c 027f | | Execute Discrete,Equal 0d8d 6802 |h | Jump_Zero 0xd90 0d8e 4801 |H | Short_Literal 0x1 0d8f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0d90 4800 |H | Short_Literal 0x0 0d91 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0d92 0000 0000 | | .BLANK 0000[0x6] 0d98 ; -------------------------------------------------------------------------------------- 0d98 ; SUBPROGRAM 0d98 ; -------------------------------------------------------------------------------------- 0d98 0da3 | | .CONST 0x0da3 ; Address of begin 0d99 0dbe | | .CONST 0x0dbe ; Address of exception handler 0d9a 0003 | | .CONST 0x0003 ; Number of locals 0d9b INIT_0d98: 0d9b 0092 0f06 | | Action Push_String_Extended,0xf06 ; "<FULL>" 0d9d 00db | | Load_Top At_Offset_3 0d9e 8046 | F | Call 0x0,0x46 0d9f 00d8 | | Load_Top At_Offset_0 0da0 01dc | | Execute Vector,Last 0da1 00e3 | | Load_Encached Natural_Cache 0da2 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 0da3 BODY_0d98: 0da3 00cf | | Action Mark_Auxiliary 0da4 7804 |x | Jump 0xda9 0da5 00d9 | | Load_Top At_Offset_1 0da6 0aff | | Execute_Immediate Plus,-0x1 0da7 005a | Z | Store_Top Discrete,At_Offset_2 0da8 00c9 | | Action Pop_Auxiliary_Loop 0da9 00d9 | | Load_Top At_Offset_1 0daa 00db | | Load_Top At_Offset_3 0dab 01d7 | | Execute Vector,Field_Read 0dac 0e3b | ; | Execute_Immediate Not_Equal,0x3b 0dad 77f7 |w | Jump_Nonzero 0xda5 0dae 00ce | | Action Pop_Auxiliary 0daf 00d8 | | Load_Top At_Offset_0 0db0 0aff | | Execute_Immediate Plus,-0x1 0db1 0059 | Y | Store_Top Discrete,At_Offset_1 0db2 00d9 | | Load_Top At_Offset_1 0db3 01dd | | Execute Vector,First 0db4 0a02 | | Execute_Immediate Plus,0x2 0db5 00d8 | | Load_Top At_Offset_0 0db6 00e2 | | Load_Encached Integer_Cache 0db7 0260 | ` | Execute Discrete,In_Type 0db8 7001 |p | Jump_Nonzero 0xdba 0db9 0801 | | Execute_Immediate Raise,0x1 0dba 00d9 | | Load_Top At_Offset_1 0dbb 00db | | Load_Top At_Offset_3 0dbc 01cf | | Execute Vector,Slice_Read 0dbd 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0dbe TRAP_0d98: 0dbe 0007 | | Action Break_Optional 0dbf 00da | | Load_Top At_Offset_2 0dc0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0dc1 0000 0000 | | .BLANK 0000[0x7] 0dc8 ; -------------------------------------------------------------------------------------- 0dc8 ; SUBPROGRAM 0dc8 ; -------------------------------------------------------------------------------------- 0dc8 0dcb | | .CONST 0x0dcb ; Address of begin 0dc9 0004 | | .CONST 0x0004 ; Address of exception handler 0dca 0001 | | .CONST 0x0001 ; Number of locals 0dcb BODY_0dc8: 0dcb INIT_0dc8: 0dcb 00da | | Load_Top At_Offset_2 0dcc 0217 | | Execute Heap_Access,All_Reference 0dcd 2c0b |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0xb 0dce 0f00 | | Execute_Immediate Equal,0x0 0dcf 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0dd0 ; -------------------------------------------------------------------------------------- 0dd0 ; SUBPROGRAM 0dd0 ; -------------------------------------------------------------------------------------- 0dd0 0ddd | | .CONST 0x0ddd ; Address of begin 0dd1 0004 | | .CONST 0x0004 ; Address of exception handler 0dd2 0004 | | .CONST 0x0004 ; Number of locals 0dd3 INIT_0dd0: 0dd3 e402 | | Load 0x2,0x2 0dd4 8047 | G | Call 0x0,0x47 0dd5 00d8 | | Load_Top At_Offset_0 0dd6 8048 | H | Call 0x0,0x48 0dd7 00e3 | | Load_Encached Natural_Cache 0dd8 03f1 | | Declare_Variable Discrete,With_Value 0dd9 e5ff | | Load 0x2,-0x1 0dda 8257 | W | Call 0x1,0x57 0ddb 00e3 | | Load_Encached Natural_Cache 0ddc 03f1 | | Declare_Variable Discrete,With_Value 0ddd BODY_0dd0: 0ddd 00d9 | | Load_Top At_Offset_1 0dde 00d9 | | Load_Top At_Offset_1 0ddf 027b | { | Execute Discrete,Greater_Equal 0de0 683e |h> | Jump_Zero 0xe1f 0de1 e010 | | Load 0x0,0x10 0de2 180e | | Execute Package,Field_Execute,Field_Number 0xe 0de3 4801 |H | Short_Literal 0x1 0de4 0092 0f07 | | Action Push_String_Extended,0xf07 ; "ERROR IN DECISION PROCESSING" 0de6 e011 | | Load 0x0,0x11 0de7 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0de8 e010 | | Load 0x0,0x10 0de9 180e | | Execute Package,Field_Execute,Field_Number 0xe 0dea 4801 |H | Short_Literal 0x1 0deb 0092 0f08 | | Action Push_String_Extended,0xf08 ; "Task Element Stack Size =" 0ded e224 | $ | Load 0x1,0x24 0dee 00e0 | | Load_Encached Standard_Cache 0def 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0df0 01cc | | Execute Vector,Catenate 0df1 e011 | | Load 0x0,0x11 0df2 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0df3 e010 | | Load 0x0,0x10 0df4 180e | | Execute Package,Field_Execute,Field_Number 0xe 0df5 4801 |H | Short_Literal 0x1 0df6 0092 0f09 | | Action Push_String_Extended,0xf09 ; "Return Bkpt Count =" 0df8 e049 | I | Load 0x0,0x49 0df9 00e0 | | Load_Encached Standard_Cache 0dfa 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0dfb 01cc | | Execute Vector,Catenate 0dfc 0092 0f0a | | Action Push_String_Extended,0xf0a ; "Exc Propagation =" 0dfe 01cc | | Execute Vector,Catenate 0dff e04a | J | Load 0x0,0x4a 0e00 00e0 | | Load_Encached Standard_Cache 0e01 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0e02 01cc | | Execute Vector,Catenate 0e03 e011 | | Load 0x0,0x11 0e04 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0e05 e010 | | Load 0x0,0x10 0e06 180e | | Execute Package,Field_Execute,Field_Number 0xe 0e07 4801 |H | Short_Literal 0x1 0e08 0092 0f0b | | Action Push_String_Extended,0xf0b ; "Top Depth =" 0e0a e602 | | Load 0x3,0x2 0e0b 8048 | H | Call 0x0,0x48 0e0c 00e0 | | Load_Encached Standard_Cache 0e0d 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0e0e 01cc | | Execute Vector,Catenate 0e0f e011 | | Load 0x0,0x11 0e10 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0e11 e010 | | Load 0x0,0x10 0e12 180e | | Execute Package,Field_Execute,Field_Number 0xe 0e13 4801 |H | Short_Literal 0x1 0e14 0092 0f0c | | Action Push_String_Extended,0xf0c ; "Top = " 0e16 e602 | | Load 0x3,0x2 0e17 804b | K | Call 0x0,0x4b 0e18 8216 | | Call 0x1,0x16 0e19 8233 | 3 | Call 0x1,0x33 0e1a 01cc | | Execute Vector,Catenate 0e1b e011 | | Load 0x0,0x11 0e1c 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0e1d e402 | | Load 0x2,0x2 0e1e 804c | L | Call 0x0,0x4c 0e1f 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0e20 ; -------------------------------------------------------------------------------------- 0e20 ; SUBPROGRAM 0e20 ; -------------------------------------------------------------------------------------- 0e20 0e34 | 4 | .CONST 0x0e34 ; Address of begin 0e21 0004 | | .CONST 0x0004 ; Address of exception handler 0e22 0004 | | .CONST 0x0004 ; Number of locals 0e23 INIT_0e20: 0e23 00da | | Load_Top At_Offset_2 0e24 0217 | | Execute Heap_Access,All_Reference 0e25 2c0b |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0xb 0e26 7006 |p | Jump_Nonzero 0xe2d 0e27 00da | | Load_Top At_Offset_2 0e28 0217 | | Execute Heap_Access,All_Reference 0e29 2c0a |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0xa 0e2a e227 | ' | Load 0x1,0x27 0e2b 021e | | Execute Heap_Access,Maximum 0e2c 7801 |x | Jump 0xe2e 0e2d 4801 |H | Short_Literal 0x1 0e2e 00e1 | | Load_Encached Boolean_Cache 0e2f 03f1 | | Declare_Variable Discrete,With_Value 0e30 e220 | | Load 0x1,0x20 0e31 0007 | | Action Break_Optional 0e32 029f 0edb | | Declare_Subprogram INIT_0ed8,For_Call 0e34 BODY_0e20: 0e34 00da | | Load_Top At_Offset_2 0e35 701b |p | Jump_Nonzero 0xe51 0e36 e7ff | | Load 0x3,-0x1 0e37 8604 | | Call 0x3,0x4 0e38 0032 | 2 | Store_Top Heap_Access,At_Offset_2 0e39 00cf | | Action Mark_Auxiliary 0e3a 7812 |x | Jump 0xe4d 0e3b 00da | | Load_Top At_Offset_2 0e3c 0217 | | Execute Heap_Access,All_Reference 0e3d 2c0b |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0xb 0e3e 7006 |p | Jump_Nonzero 0xe45 0e3f 00da | | Load_Top At_Offset_2 0e40 0217 | | Execute Heap_Access,All_Reference 0e41 2c0a |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0xa 0e42 e227 | ' | Load 0x1,0x27 0e43 021e | | Execute Heap_Access,Maximum 0e44 7801 |x | Jump 0xe46 0e45 4801 |H | Short_Literal 0x1 0e46 a602 | | Store_Unchecked 0x3,0x2 0e47 00db | | Load_Top At_Offset_3 0e48 7007 |p | Jump_Nonzero 0xe50 0e49 00da | | Load_Top At_Offset_2 0e4a 8604 | | Call 0x3,0x4 0e4b 0033 | 3 | Store_Top Heap_Access,At_Offset_3 0e4c 00c9 | | Action Pop_Auxiliary_Loop 0e4d 00da | | Load_Top At_Offset_2 0e4e 820f | | Call 0x1,0xf 0e4f 6feb |o | Jump_Zero 0xe3b 0e50 00ce | | Action Pop_Auxiliary 0e51 00da | | Load_Top At_Offset_2 0e52 0f00 | | Execute_Immediate Equal,0x0 0e53 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0e54 0000 0000 | | .BLANK 0000[0x4] 0e58 ; -------------------------------------------------------------------------------------- 0e58 ; SUBPROGRAM 0e58 ; -------------------------------------------------------------------------------------- 0e58 0e5b | [ | .CONST 0x0e5b ; Address of begin 0e59 0e6c | l | .CONST 0x0e6c ; Address of exception handler 0e5a 0001 | | .CONST 0x0001 ; Number of locals 0e5b BODY_0e58: 0e5b INIT_0e58: 0e5b e402 | | Load 0x2,0x2 0e5c 8013 | | Call 0x0,0x13 0e5d a404 | | Store_Unchecked 0x2,0x4 0e5e e404 | | Load 0x2,0x4 0e5f e5fe | | Load 0x2,-0x2 0e60 021f | | Execute Heap_Access,Equal 0e61 6802 |h | Jump_Zero 0xe64 0e62 00cc | | Action Pop_Block 0e63 7db4 |} | Jump 0xc18 0e64 e404 | | Load 0x2,0x4 0e65 8237 | 7 | Call 0x1,0x37 0e66 a403 | | Store_Unchecked 0x2,0x3 0e67 e403 | | Load 0x2,0x3 0e68 6802 |h | Jump_Zero 0xe6b 0e69 00cc | | Action Pop_Block 0e6a 7dad |} | Jump 0xc18 0e6b 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0e6c TRAP_0e58: 0e6c e00a | | Load 0x0,0xa 0e6d 010f | | Execute Exception,Equal 0e6e 6801 |h | Jump_Zero 0xe70 0e6f 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0e70 0100 | | Execute Exception,Raise 0e71 0000 0000 | | .BLANK 0000[0x7] 0e78 ; -------------------------------------------------------------------------------------- 0e78 ; SUBPROGRAM 0e78 ; -------------------------------------------------------------------------------------- 0e78 0e81 | | .CONST 0x0e81 ; Address of begin 0e79 0004 | | .CONST 0x0004 ; Address of exception handler 0e7a 0003 | | .CONST 0x0003 ; Number of locals 0e7b INIT_0e78: 0e7b e402 | | Load 0x2,0x2 0e7c 8047 | G | Call 0x0,0x47 0e7d e5fc | | Load 0x2,-0x4 0e7e 8257 | W | Call 0x1,0x57 0e7f 00e3 | | Load_Encached Natural_Cache 0e80 03f1 | | Declare_Variable Discrete,With_Value 0e81 BODY_0e78: 0e81 e223 | # | Load 0x1,0x23 0e82 6837 |h7 | Jump_Zero 0xeba 0e83 0092 0eff | | Action Push_String_Extended,0xeff ; " Task Element Stack Size =" 0e85 e224 | $ | Load 0x1,0x24 0e86 00e0 | | Load_Encached Standard_Cache 0e87 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0e88 01cc | | Execute Vector,Catenate 0e89 8232 | 2 | Call 0x1,0x32 0e8a 0092 0f0d | | Action Push_String_Extended,0xf0d ; " Return Bkpt Count =" 0e8c e049 | I | Load 0x0,0x49 0e8d 00e0 | | Load_Encached Standard_Cache 0e8e 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0e8f 01cc | | Execute Vector,Catenate 0e90 0092 0f0e | | Action Push_String_Extended,0xf0e ; " Exc Propagation =" 0e92 01cc | | Execute Vector,Catenate 0e93 e04a | J | Load 0x0,0x4a 0e94 00e0 | | Load_Encached Standard_Cache 0e95 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0e96 01cc | | Execute Vector,Catenate 0e97 8232 | 2 | Call 0x1,0x32 0e98 0092 0f0f | | Action Push_String_Extended,0xf0f ; " Task Depth =" 0e9a 00d9 | | Load_Top At_Offset_1 0e9b 00e0 | | Load_Encached Standard_Cache 0e9c 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0e9d 01cc | | Execute Vector,Catenate 0e9e 0092 0f10 | | Action Push_String_Extended,0xf10 ; " Top Depth =" 0ea0 01cc | | Execute Vector,Catenate 0ea1 00da | | Load_Top At_Offset_2 0ea2 8048 | H | Call 0x0,0x48 0ea3 00e0 | | Load_Encached Standard_Cache 0ea4 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0ea5 01cc | | Execute Vector,Catenate 0ea6 8232 | 2 | Call 0x1,0x32 0ea7 0092 0f11 | | Action Push_String_Extended,0xf11 ; " The_Fcp = " 0ea9 0092 0f06 | | Action Push_String_Extended,0xf06 ; "<FULL>" 0eab e5fe | | Load 0x2,-0x2 0eac 8216 | | Call 0x1,0x16 0ead 8046 | F | Call 0x0,0x46 0eae 01cc | | Execute Vector,Catenate 0eaf 8232 | 2 | Call 0x1,0x32 0eb0 0092 0f12 | | Action Push_String_Extended,0xf12 ; " Top = " 0eb2 0092 0f06 | | Action Push_String_Extended,0xf06 ; "<FULL>" 0eb4 00db | | Load_Top At_Offset_3 0eb5 804b | K | Call 0x0,0x4b 0eb6 8216 | | Call 0x1,0x16 0eb7 8046 | F | Call 0x0,0x46 0eb8 01cc | | Execute Vector,Catenate 0eb9 8232 | 2 | Call 0x1,0x32 0eba 00d9 | | Load_Top At_Offset_1 0ebb 804b | K | Call 0x0,0x4b 0ebc e5fe | | Load 0x2,-0x2 0ebd 021f | | Execute Heap_Access,Equal 0ebe 6817 |h | Jump_Zero 0xed6 0ebf 00d9 | | Load_Top At_Offset_1 0ec0 8048 | H | Call 0x0,0x48 0ec1 00d9 | | Load_Top At_Offset_1 0ec2 027b | { | Execute Discrete,Greater_Equal 0ec3 6812 |h | Jump_Zero 0xed6 0ec4 0092 0f13 | | Action Push_String_Extended,0xf13 ; " Mark Covered" 0ec6 8232 | 2 | Call 0x1,0x32 0ec7 e5fd | | Load 0x2,-0x3 0ec8 e5ff | | Load 0x2,-0x1 0ec9 824c | L | Call 0x1,0x4c 0eca e402 | | Load 0x2,0x2 0ecb 804c | L | Call 0x0,0x4c 0ecc e224 | $ | Load 0x1,0x24 0ecd 0aff | | Execute_Immediate Plus,-0x1 0ece c224 | $ | Store 0x1,0x24 0ecf e5fe | | Load 0x2,-0x2 0ed0 0217 | | Execute Heap_Access,All_Reference 0ed1 2c0c |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0xc 0ed2 6803 |h | Jump_Zero 0xed6 0ed3 4801 |H | Short_Literal 0x1 0ed4 e402 | | Load 0x2,0x2 0ed5 804d | M | Call 0x0,0x4d 0ed6 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0ed7 0000 | | .XXX[0x1] 0ed8 ; -------------------------------------------------------------------------------------- 0ed8 ; SUBPROGRAM 0ed8 ; -------------------------------------------------------------------------------------- 0ed8 0edb | | .CONST 0x0edb ; Address of begin 0ed9 0004 | | .CONST 0x0004 ; Address of exception handler 0eda 0001 | | .CONST 0x0001 ; Number of locals 0edb BODY_0ed8: 0edb INIT_0ed8: 0edb 00da | | Load_Top At_Offset_2 0edc 0217 | | Execute Heap_Access,All_Reference 0edd 2c09 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x9 0ede 6806 |h | Jump_Zero 0xee5 0edf 00da | | Load_Top At_Offset_2 0ee0 0217 | | Execute Heap_Access,All_Reference 0ee1 2c09 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x9 0ee2 0217 | | Execute Heap_Access,All_Reference 0ee3 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0ee4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0ee5 e220 | | Load 0x1,0x20 0ee6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0ee7 ; -------------------------------------------------------------------------------------- 0ee7 ; STRING TABLE 0ee7 ; -------------------------------------------------------------------------------------- 0ee7 005c | \ | .STRTAB 0x005c->0x0f15 ; "NONE" 0ee8 005e | ^ | .STRTAB 0x005e->0x0f17 ; "SUBP_ENTRY_POINT" 0ee9 006c | l | .STRTAB 0x006c->0x0f1f ; "TASK_ENTRY_POINT" 0eea 007a | z | .STRTAB 0x007a->0x0f27 ; "IF_POINT" 0eeb 0080 | | .STRTAB 0x0080->0x0f2b ; "IF_ELSE_POINT" 0eec 008b | | .STRTAB 0x008b->0x0f31 ; "CASE_POINT" 0eed 0093 | | .STRTAB 0x0093->0x0f36 ; "ACCEPT_POINT" 0eee 009d | | .STRTAB 0x009d->0x0f3c ; "SELECT_POINT" 0eef 00a7 | | .STRTAB 0x00a7->0x0f42 ; "EXCEPTION_POINT" 0ef0 00b4 | | .STRTAB 0x00b4->0x0f4a ; "FOR_LOOP_POINT" 0ef1 00c0 | | .STRTAB 0x00c0->0x0f51 ; "WHILE_LOOP_POINT" 0ef2 00ce | | .STRTAB 0x00ce->0x0f59 ; "LOOP_POINT" 0ef3 00d6 | | .STRTAB 0x00d6->0x0f5e ; "EXIT_LOOP_POINT" 0ef4 00e3 | | .STRTAB 0x00e3->0x0f65 ; "BLOCK_POINT" 0ef5 00ec | | .STRTAB 0x00ec->0x0f6b ; "SEGMENT_POINT" 0ef6 00f7 | | .STRTAB 0x00f7->0x0f71 ; "RETURN_POINT" 0ef7 0101 | | .STRTAB 0x0101->0x0f77 ; "Encounter_Bkpt_Event " 0ef8 0114 | | .STRTAB 0x0114->0x0f82 ; " with ID" 0ef9 011a | | .STRTAB 0x011a->0x0f86 ; "Attempt to mark coverage on invalid element " 0efa 0144 | D | .STRTAB 0x0144->0x0f9c ; "\x22" 0efb 0143 | C | .STRTAB 0x0143->0x0f9c ; " in " 0efc 0145 | E | .STRTAB 0x0145->0x0f9e ; "No code generated for " 0efd 0159 | Y | .STRTAB 0x0159->0x0fa9 ; " Mark_Covered" 0efe 0165 | e | .STRTAB 0x0165->0x0fb0 ; "ENTER Push_Decision_Point" 0eff 017c | | | .STRTAB 0x017c->0x0fbd ; " Task Element Stack Size =" 0f00 0195 | | .STRTAB 0x0195->0x0fca ; "EXIT Push_Decision_Point" 0f01 01ab | | .STRTAB 0x01ab->0x0fd6 ; "ENTER Base_Class_Process_Decision_Arm_Bkpt" 0f02 01d3 | | .STRTAB 0x01d3->0x0feb ; " Stack not EMPTY" 0f03 01e2 | | .STRTAB 0x01e2->0x0ff4 ; "EXIT Base_Class_Process_Decision_Arm_Bkpt" 0f04 0209 | | .STRTAB 0x0209->0x1008 ; " loop" 0f05 020c | | .STRTAB 0x020c->0x100b ; " then" 0f06 020f | | .STRTAB 0x020f->0x100d ; "<FULL>" 0f07 0213 | | .STRTAB 0x0213->0x1010 ; "ERROR IN DECISION PROCESSING" 0f08 022d | - | .STRTAB 0x022d->0x101e ; "Task Element Stack Size =" 0f09 0244 | D | .STRTAB 0x0244->0x102b ; "Return Bkpt Count =" 0f0a 0255 | U | .STRTAB 0x0255->0x1034 ; "Exc Propagation =" 0f0b 0264 | d | .STRTAB 0x0264->0x103d ; "Top Depth =" 0f0c 026d | m | .STRTAB 0x026d->0x1042 ; "Top = " 0f0d 0271 | q | .STRTAB 0x0271->0x1045 ; " Return Bkpt Count =" 0f0e 0284 | | .STRTAB 0x0284->0x1050 ; " Exc Propagation =" 0f0f 0295 | | .STRTAB 0x0295->0x1059 ; " Task Depth =" 0f10 02a1 | | .STRTAB 0x02a1->0x1060 ; " Top Depth =" 0f11 02ac | | .STRTAB 0x02ac->0x1067 ; " The_Fcp = " 0f12 02b6 | | .STRTAB 0x02b6->0x106d ; " Top = " 0f13 02c0 | | .STRTAB 0x02c0->0x1073 ; " Mark Covered" 0f14 02cc | | .STREND 0x02cc->0x107a 0f15 4e4f 4e45 |NONE| .STRTAB_STRINGS 107a 0000 0000 | | .BLANK 0000[0x6] 1080 ; -------------------------------------------------------------------------------------- 1080 ; Debug Table 1080 ; -------------------------------------------------------------------------------------- 1080 0004 000a | | .DEBUG4 0x0004,0x000a,0xa1a5,0x0000,0x0001,0x0000 1086 0000 0000 | | .BLANK 0000[0x17a]