|
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: 11264 (0x2c00) Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_06e8fd
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000 └─ ⟦5a81ac88f⟧ »Space Info Vol 1« └─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code 0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 1548 | H | .CONST 0x1548 ; 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 800d | | .CONST 0x800d ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 01ce | | .CONST 0x01ce ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0065 | e | .CONST 0x0065 ; Number of locals 000b INIT_0008: 000b 4800 |H | Short_Literal 0x0 000c 481b |H | Short_Literal 0x1b 000d 029f 01d3 | | Declare_Subprogram INIT_01d0,For_Call 000f 03fe | | Declare_Type Discrete,Defined,Visible 0010 029a 0203 | | Declare_Subprogram INIT_0200,For_Outer_Call,Visible,Unelaborated 0012 029a 0213 | | Declare_Subprogram INIT_0210,For_Outer_Call,Visible,Unelaborated 0014 029a 0223 | #| Declare_Subprogram INIT_0220,For_Outer_Call,Visible,Unelaborated 0016 029a 022b | +| Declare_Subprogram INIT_0228,For_Outer_Call,Visible,Unelaborated 0018 029a 023b | ;| Declare_Subprogram INIT_0238,For_Outer_Call,Visible,Unelaborated 001a 029a 0243 | C| Declare_Subprogram INIT_0240,For_Outer_Call,Visible,Unelaborated 001c 0093 0000 | | push_full_address 0x0 001e 61d9 |a | Indirect_Literal Discrete,0x1f8,{0x80000000, 0x00010000} 001f 0273 | s | Execute Discrete,Plus 0020 0129 | ) | Execute Any,Make_Visible 0021 029a 024b | K| Declare_Subprogram INIT_0248,For_Outer_Call,Visible,Unelaborated 0023 029a 026b | k| Declare_Subprogram INIT_0268,For_Outer_Call,Visible,Unelaborated 0025 029a 0283 | | Declare_Subprogram INIT_0280,For_Outer_Call,Visible,Unelaborated 0027 029a 029b | | Declare_Subprogram INIT_0298,For_Outer_Call,Visible,Unelaborated 0029 029a 02ab | | Declare_Subprogram INIT_02a8,For_Outer_Call,Visible,Unelaborated 002b 029a 02fb | | Declare_Subprogram INIT_02f8,For_Outer_Call,Visible,Unelaborated 002d 029a 034b | K| Declare_Subprogram INIT_0348,For_Outer_Call,Visible,Unelaborated 002f 029a 039b | | Declare_Subprogram INIT_0398,For_Outer_Call,Visible,Unelaborated 0031 029a 03eb | | Declare_Subprogram INIT_03e8,For_Outer_Call,Visible,Unelaborated 0033 029a 043b | ;| Declare_Subprogram INIT_0438,For_Outer_Call,Visible,Unelaborated 0035 029a 048b | | Declare_Subprogram INIT_0488,For_Outer_Call,Visible,Unelaborated 0037 029a 04db | | Declare_Subprogram INIT_04d8,For_Outer_Call,Visible,Unelaborated 0039 029a 052b | +| Declare_Subprogram INIT_0528,For_Outer_Call,Visible,Unelaborated 003b 029a 057b | {| Declare_Subprogram INIT_0578,For_Outer_Call,Visible,Unelaborated 003d 029a 05cb | | Declare_Subprogram INIT_05c8,For_Outer_Call,Visible,Unelaborated 003f 029a 061b | | Declare_Subprogram INIT_0618,For_Outer_Call,Visible,Unelaborated 0041 029a 066b | k| Declare_Subprogram INIT_0668,For_Outer_Call,Visible,Unelaborated 0043 029a 06bb | | Declare_Subprogram INIT_06b8,For_Outer_Call,Visible,Unelaborated 0045 029a 070b | | Declare_Subprogram INIT_0708,For_Outer_Call,Visible,Unelaborated 0047 029a 075b | [| Declare_Subprogram INIT_0758,For_Outer_Call,Visible,Unelaborated 0049 029a 07ab | | Declare_Subprogram INIT_07a8,For_Outer_Call,Visible,Unelaborated 004b 029a 07fb | | Declare_Subprogram INIT_07f8,For_Outer_Call,Visible,Unelaborated 004d 029a 08a3 | | Declare_Subprogram INIT_08a0,For_Outer_Call,Visible,Unelaborated 004f 029a 08f3 | | Declare_Subprogram INIT_08f0,For_Outer_Call,Visible,Unelaborated 0051 029a 0943 | C| Declare_Subprogram INIT_0940,For_Outer_Call,Visible,Unelaborated 0053 029a 0993 | | Declare_Subprogram INIT_0990,For_Outer_Call,Visible,Unelaborated 0055 029a 09e3 | | Declare_Subprogram INIT_09e0,For_Outer_Call,Visible,Unelaborated 0057 029a 0a33 | 3| Declare_Subprogram INIT_0a30,For_Outer_Call,Visible,Unelaborated 0059 029a 0a83 | | Declare_Subprogram INIT_0a80,For_Outer_Call,Visible,Unelaborated 005b 029a 0ad3 | | Declare_Subprogram INIT_0ad0,For_Outer_Call,Visible,Unelaborated 005d 029a 0b23 | #| Declare_Subprogram INIT_0b20,For_Outer_Call,Visible,Unelaborated 005f 029a 0b73 | s| Declare_Subprogram INIT_0b70,For_Outer_Call,Visible,Unelaborated 0061 029a 0b7b | {| Declare_Subprogram INIT_0b78,For_Outer_Call,Visible,Unelaborated 0063 029a 0b83 | | Declare_Subprogram INIT_0b80,For_Outer_Call,Visible,Unelaborated 0065 029a 0b93 | | Declare_Subprogram INIT_0b90,For_Outer_Call,Visible,Unelaborated 0067 029a 0b9b | | Declare_Subprogram INIT_0b98,For_Outer_Call,Visible,Unelaborated 0069 029a 0ba3 | | Declare_Subprogram INIT_0ba0,For_Outer_Call,Visible,Unelaborated 006b 029a 0bab | | Declare_Subprogram INIT_0ba8,For_Outer_Call,Visible,Unelaborated 006d 029a 0bb3 | | Declare_Subprogram INIT_0bb0,For_Outer_Call,Visible,Unelaborated 006f 029a 0bbb | | Declare_Subprogram INIT_0bb8,For_Outer_Call,Visible,Unelaborated 0071 029a 0bc3 | | Declare_Subprogram INIT_0bc0,For_Outer_Call,Visible,Unelaborated 0073 029a 0bcb | | Declare_Subprogram INIT_0bc8,For_Outer_Call,Visible,Unelaborated 0075 029a 0bd3 | | Declare_Subprogram INIT_0bd0,For_Outer_Call,Visible,Unelaborated 0077 029a 0bdb | | Declare_Subprogram INIT_0bd8,For_Outer_Call,Visible,Unelaborated 0079 029a 0be3 | | Declare_Subprogram INIT_0be0,For_Outer_Call,Visible,Unelaborated 007b 029a 0bf3 | | Declare_Subprogram INIT_0bf0,For_Outer_Call,Visible,Unelaborated 007d 029a 0bfb | | Declare_Subprogram INIT_0bf8,For_Outer_Call,Visible,Unelaborated 007f 029a 0c03 | | Declare_Subprogram INIT_0c00,For_Outer_Call,Visible,Unelaborated 0081 029a 0c13 | | Declare_Subprogram INIT_0c10,For_Outer_Call,Visible,Unelaborated 0083 029a 0c1b | | Declare_Subprogram INIT_0c18,For_Outer_Call,Visible,Unelaborated 0085 029a 0c2b | +| Declare_Subprogram INIT_0c28,For_Outer_Call,Visible,Unelaborated 0087 029a 0c33 | 3| Declare_Subprogram INIT_0c30,For_Outer_Call,Visible,Unelaborated 0089 029a 0c3b | ;| Declare_Subprogram INIT_0c38,For_Outer_Call,Visible,Unelaborated 008b 029a 0c43 | C| Declare_Subprogram INIT_0c40,For_Outer_Call,Visible,Unelaborated 008d 029a 0c4b | K| Declare_Subprogram INIT_0c48,For_Outer_Call,Visible,Unelaborated 008f 029a 0c53 | S| Declare_Subprogram INIT_0c50,For_Outer_Call,Visible,Unelaborated 0091 029a 0c5b | [| Declare_Subprogram INIT_0c58,For_Outer_Call,Visible,Unelaborated 0093 029a 0c73 | s| Declare_Subprogram INIT_0c70,For_Outer_Call,Visible,Unelaborated 0095 029a 0c7b | {| Declare_Subprogram INIT_0c78,For_Outer_Call,Visible,Unelaborated 0097 029a 0c83 | | Declare_Subprogram INIT_0c80,For_Outer_Call,Visible,Unelaborated 0099 029a 0c8b | | Declare_Subprogram INIT_0c88,For_Outer_Call,Visible,Unelaborated 009b 029a 0cb3 | | Declare_Subprogram INIT_0cb0,For_Outer_Call,Visible,Unelaborated 009d 029a 0cbb | | Declare_Subprogram INIT_0cb8,For_Outer_Call,Visible,Unelaborated 009f 029a 0cc3 | | Declare_Subprogram INIT_0cc0,For_Outer_Call,Visible,Unelaborated 00a1 029a 0d43 | C| Declare_Subprogram INIT_0d40,For_Outer_Call,Visible,Unelaborated 00a3 029a 0d93 | | Declare_Subprogram INIT_0d90,For_Outer_Call,Visible,Unelaborated 00a5 029a 0d9b | | Declare_Subprogram INIT_0d98,For_Outer_Call,Visible,Unelaborated 00a7 e20d | | Load 0x1,0xd 00a8 00e3 | | Load_Encached Natural_Cache 00a9 00e1 | | Load_Encached Boolean_Cache 00aa 00e1 | | Load_Encached Boolean_Cache 00ab 00e3 | | Load_Encached Natural_Cache 00ac e002 | | Load 0x0,0x2 00ad 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 00ae 00e3 | | Load_Encached Natural_Cache 00af e003 | | Load 0x0,0x3 00b0 00e3 | | Load_Encached Natural_Cache 00b1 00e1 | | Load_Encached Boolean_Cache 00b2 00e3 | | Load_Encached Natural_Cache 00b3 00e3 | | Load_Encached Natural_Cache 00b4 00e3 | | Load_Encached Natural_Cache 00b5 00e1 | | Load_Encached Boolean_Cache 00b6 e002 | | Load 0x0,0x2 00b7 1b15 | | Execute Package,Field_Read,Field_Number 0x15 00b8 00e3 | | Load_Encached Natural_Cache 00b9 00e2 | | Load_Encached Integer_Cache 00ba e004 | | Load 0x0,0x4 00bb 1b28 | ( | Execute Package,Field_Read,Field_Number 0x28 00bc e005 | | Load 0x0,0x5 00bd 00e3 | | Load_Encached Natural_Cache 00be 00e1 | | Load_Encached Boolean_Cache 00bf 00e1 | | Load_Encached Boolean_Cache 00c0 029f 13ab | | Declare_Subprogram INIT_13a8,For_Call 00c2 4816 |H | Short_Literal 0x16 00c3 032e | . | Declare_Type Record,Defined,Visible 00c4 00e4 | | Load_Encached Positive_Cache 00c5 0266 | f | Execute Discrete,Bounds 00c6 00da | | Load_Top At_Offset_2 00c7 029f 0da3 | | Declare_Subprogram INIT_0da0,For_Call 00c9 4801 |H | Short_Literal 0x1 00ca 0351 | Q | Declare_Type Array,Defined,Visible,Bounds_With_Object 00cb 00d9 | | Load_Top At_Offset_1 00cc 0322 | " | Declare_Variable Record 00cd 4800 |H | Short_Literal 0x0 00ce 00d9 | | Load_Top At_Offset_1 00cf 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 00d0 4800 |H | Short_Literal 0x0 00d1 00d9 | | Load_Top At_Offset_1 00d2 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 00d3 4800 |H | Short_Literal 0x0 00d4 00d9 | | Load_Top At_Offset_1 00d5 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 00d6 4800 |H | Short_Literal 0x0 00d7 00d9 | | Load_Top At_Offset_1 00d8 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 00d9 4800 |H | Short_Literal 0x0 00da 00d9 | | Load_Top At_Offset_1 00db 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 00dc e002 | | Load 0x0,0x2 00dd 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 00de 00d9 | | Load_Top At_Offset_1 00df 3805 |8 | Execute Record,Field_Write,Field_Number 0x5 00e0 4800 |H | Short_Literal 0x0 00e1 00d9 | | Load_Top At_Offset_1 00e2 3806 |8 | Execute Record,Field_Write,Field_Number 0x6 00e3 8006 | | Call 0x0,0x6 00e4 00d9 | | Load_Top At_Offset_1 00e5 3807 |8 | Execute Record,Field_Write,Field_Number 0x7 00e6 4800 |H | Short_Literal 0x0 00e7 00d9 | | Load_Top At_Offset_1 00e8 3808 |8 | Execute Record,Field_Write,Field_Number 0x8 00e9 4800 |H | Short_Literal 0x0 00ea 00d9 | | Load_Top At_Offset_1 00eb 3809 |8 | Execute Record,Field_Write,Field_Number 0x9 00ec 4800 |H | Short_Literal 0x0 00ed 00d9 | | Load_Top At_Offset_1 00ee 380a |8 | Execute Record,Field_Write,Field_Number 0xa 00ef 4800 |H | Short_Literal 0x0 00f0 00d9 | | Load_Top At_Offset_1 00f1 380b |8 | Execute Record,Field_Write,Field_Number 0xb 00f2 4800 |H | Short_Literal 0x0 00f3 00d9 | | Load_Top At_Offset_1 00f4 380c |8 | Execute Record,Field_Write,Field_Number 0xc 00f5 4800 |H | Short_Literal 0x0 00f6 00d9 | | Load_Top At_Offset_1 00f7 380d |8 | Execute Record,Field_Write,Field_Number 0xd 00f8 8007 | | Call 0x0,0x7 00f9 00d9 | | Load_Top At_Offset_1 00fa 380e |8 | Execute Record,Field_Write,Field_Number 0xe 00fb 4800 |H | Short_Literal 0x0 00fc 00d9 | | Load_Top At_Offset_1 00fd 380f |8 | Execute Record,Field_Write,Field_Number 0xf 00fe 8008 | | Call 0x0,0x8 00ff 00db | | Load_Top At_Offset_3 0100 3011 |0 | Execute Record,Field_Type,Field_Number 0x11 0101 0119 | | Execute Any,Check_In_Formal_Type 0102 00d9 | | Load_Top At_Offset_1 0103 3811 |8 | Execute Record,Field_Write,Field_Number 0x11 0104 e009 | | Load 0x0,0x9 0105 00d9 | | Load_Top At_Offset_1 0106 3812 |8 | Execute Record,Field_Write,Field_Number 0x12 0107 4800 |H | Short_Literal 0x0 0108 00d9 | | Load_Top At_Offset_1 0109 3810 |8 | Execute Record,Field_Write,Field_Number 0x10 010a 4800 |H | Short_Literal 0x0 010b 00d9 | | Load_Top At_Offset_1 010c 3813 |8 | Execute Record,Field_Write,Field_Number 0x13 010d 4800 |H | Short_Literal 0x0 010e 00d9 | | Load_Top At_Offset_1 010f 3814 |8 | Execute Record,Field_Write,Field_Number 0x14 0110 4800 |H | Short_Literal 0x0 0111 00d9 | | Load_Top At_Offset_1 0112 3815 |8 | Execute Record,Field_Write,Field_Number 0x15 0113 0129 | ) | Execute Any,Make_Visible 0114 e00a | | Load 0x0,0xa 0115 e00b | | Load 0x0,0xb 0116 e258 | X | Load 0x1,0x58 0117 e259 | Y | Load 0x1,0x59 0118 e25a | Z | Load 0x1,0x5a 0119 0320 | | Declare_Variable Record,Duplicate 011a 00cd | | Action Spare6_Action 011b 4880 |H | Short_Literal 0x80 011c e00c | | Load 0x0,0xc 011d 0386 | | Declare_Variable Package,Visible 011e 00d8 | | Load_Top At_Offset_0 011f 020f | | Execute Module,Activate 0120 4880 |H | Short_Literal 0x80 0121 00d9 | | Load_Top At_Offset_1 0122 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0123 1c07 | | Execute_Immediate Run_Utility,0x7 0124 0129 | ) | Execute Any,Make_Visible 0125 00bf | | Action Accept_Activation 0126 4801 |H | Short_Literal 0x1 0127 480a |H | Short_Literal 0xa 0128 00e4 | | Load_Encached Positive_Cache 0129 03f8 | | Declare_Type Discrete,Constrained 012a 1d0e | | Execute_Immediate Reference_Lex_1,0xe 012b 00c7 | | Action Elaborate_Subprogram 012c 1d0f | | Execute_Immediate Reference_Lex_1,0xf 012d 00c7 | | Action Elaborate_Subprogram 012e 1d10 | | Execute_Immediate Reference_Lex_1,0x10 012f 00c7 | | Action Elaborate_Subprogram 0130 1d11 | | Execute_Immediate Reference_Lex_1,0x11 0131 00c7 | | Action Elaborate_Subprogram 0132 1d12 | | Execute_Immediate Reference_Lex_1,0x12 0133 00c7 | | Action Elaborate_Subprogram 0134 1d13 | | Execute_Immediate Reference_Lex_1,0x13 0135 00c7 | | Action Elaborate_Subprogram 0136 1d15 | | Execute_Immediate Reference_Lex_1,0x15 0137 00c7 | | Action Elaborate_Subprogram 0138 1d16 | | Execute_Immediate Reference_Lex_1,0x16 0139 00c7 | | Action Elaborate_Subprogram 013a 1d17 | | Execute_Immediate Reference_Lex_1,0x17 013b 00c7 | | Action Elaborate_Subprogram 013c 1d18 | | Execute_Immediate Reference_Lex_1,0x18 013d 00c7 | | Action Elaborate_Subprogram 013e 1d19 | | Execute_Immediate Reference_Lex_1,0x19 013f 00c7 | | Action Elaborate_Subprogram 0140 1d1a | | Execute_Immediate Reference_Lex_1,0x1a 0141 00c7 | | Action Elaborate_Subprogram 0142 1d1c | | Execute_Immediate Reference_Lex_1,0x1c 0143 00c7 | | Action Elaborate_Subprogram 0144 1d1b | | Execute_Immediate Reference_Lex_1,0x1b 0145 00c7 | | Action Elaborate_Subprogram 0146 1d1d | | Execute_Immediate Reference_Lex_1,0x1d 0147 00c7 | | Action Elaborate_Subprogram 0148 1d1e | | Execute_Immediate Reference_Lex_1,0x1e 0149 00c7 | | Action Elaborate_Subprogram 014a 1d1f | | Execute_Immediate Reference_Lex_1,0x1f 014b 00c7 | | Action Elaborate_Subprogram 014c 1d20 | | Execute_Immediate Reference_Lex_1,0x20 014d 00c7 | | Action Elaborate_Subprogram 014e 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21 014f 00c7 | | Action Elaborate_Subprogram 0150 1d22 | " | Execute_Immediate Reference_Lex_1,0x22 0151 00c7 | | Action Elaborate_Subprogram 0152 1d23 | # | Execute_Immediate Reference_Lex_1,0x23 0153 00c7 | | Action Elaborate_Subprogram 0154 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24 0155 00c7 | | Action Elaborate_Subprogram 0156 1d25 | % | Execute_Immediate Reference_Lex_1,0x25 0157 00c7 | | Action Elaborate_Subprogram 0158 1d26 | & | Execute_Immediate Reference_Lex_1,0x26 0159 00c7 | | Action Elaborate_Subprogram 015a 1d27 | ' | Execute_Immediate Reference_Lex_1,0x27 015b 00c7 | | Action Elaborate_Subprogram 015c 1d28 | ( | Execute_Immediate Reference_Lex_1,0x28 015d 00c7 | | Action Elaborate_Subprogram 015e 1d29 | ) | Execute_Immediate Reference_Lex_1,0x29 015f 00c7 | | Action Elaborate_Subprogram 0160 1d2a | * | Execute_Immediate Reference_Lex_1,0x2a 0161 00c7 | | Action Elaborate_Subprogram 0162 1d2b | + | Execute_Immediate Reference_Lex_1,0x2b 0163 00c7 | | Action Elaborate_Subprogram 0164 1d2c | , | Execute_Immediate Reference_Lex_1,0x2c 0165 00c7 | | Action Elaborate_Subprogram 0166 1d2d | - | Execute_Immediate Reference_Lex_1,0x2d 0167 00c7 | | Action Elaborate_Subprogram 0168 1d2e | . | Execute_Immediate Reference_Lex_1,0x2e 0169 00c7 | | Action Elaborate_Subprogram 016a 1d2f | / | Execute_Immediate Reference_Lex_1,0x2f 016b 00c7 | | Action Elaborate_Subprogram 016c 1d30 | 0 | Execute_Immediate Reference_Lex_1,0x30 016d 00c7 | | Action Elaborate_Subprogram 016e 1d31 | 1 | Execute_Immediate Reference_Lex_1,0x31 016f 00c7 | | Action Elaborate_Subprogram 0170 1d32 | 2 | Execute_Immediate Reference_Lex_1,0x32 0171 00c7 | | Action Elaborate_Subprogram 0172 1d33 | 3 | Execute_Immediate Reference_Lex_1,0x33 0173 00c7 | | Action Elaborate_Subprogram 0174 1d34 | 4 | Execute_Immediate Reference_Lex_1,0x34 0175 00c7 | | Action Elaborate_Subprogram 0176 1d36 | 6 | Execute_Immediate Reference_Lex_1,0x36 0177 00c7 | | Action Elaborate_Subprogram 0178 1d35 | 5 | Execute_Immediate Reference_Lex_1,0x35 0179 00c7 | | Action Elaborate_Subprogram 017a 1d37 | 7 | Execute_Immediate Reference_Lex_1,0x37 017b 00c7 | | Action Elaborate_Subprogram 017c 1d38 | 8 | Execute_Immediate Reference_Lex_1,0x38 017d 00c7 | | Action Elaborate_Subprogram 017e 1d39 | 9 | Execute_Immediate Reference_Lex_1,0x39 017f 00c7 | | Action Elaborate_Subprogram 0180 1d3a | : | Execute_Immediate Reference_Lex_1,0x3a 0181 00c7 | | Action Elaborate_Subprogram 0182 1d3b | ; | Execute_Immediate Reference_Lex_1,0x3b 0183 00c7 | | Action Elaborate_Subprogram 0184 1d3c | < | Execute_Immediate Reference_Lex_1,0x3c 0185 00c7 | | Action Elaborate_Subprogram 0186 1d3d | = | Execute_Immediate Reference_Lex_1,0x3d 0187 00c7 | | Action Elaborate_Subprogram 0188 1d3e | > | Execute_Immediate Reference_Lex_1,0x3e 0189 00c7 | | Action Elaborate_Subprogram 018a 1d3f | ? | Execute_Immediate Reference_Lex_1,0x3f 018b 00c7 | | Action Elaborate_Subprogram 018c 1d40 | @ | Execute_Immediate Reference_Lex_1,0x40 018d 00c7 | | Action Elaborate_Subprogram 018e 1d41 | A | Execute_Immediate Reference_Lex_1,0x41 018f 00c7 | | Action Elaborate_Subprogram 0190 1d42 | B | Execute_Immediate Reference_Lex_1,0x42 0191 00c7 | | Action Elaborate_Subprogram 0192 1d43 | C | Execute_Immediate Reference_Lex_1,0x43 0193 00c7 | | Action Elaborate_Subprogram 0194 1d44 | D | Execute_Immediate Reference_Lex_1,0x44 0195 00c7 | | Action Elaborate_Subprogram 0196 1d45 | E | Execute_Immediate Reference_Lex_1,0x45 0197 00c7 | | Action Elaborate_Subprogram 0198 1d46 | F | Execute_Immediate Reference_Lex_1,0x46 0199 00c7 | | Action Elaborate_Subprogram 019a 1d47 | G | Execute_Immediate Reference_Lex_1,0x47 019b 00c7 | | Action Elaborate_Subprogram 019c 1d4e | N | Execute_Immediate Reference_Lex_1,0x4e 019d 00c7 | | Action Elaborate_Subprogram 019e 1d4f | O | Execute_Immediate Reference_Lex_1,0x4f 019f 00c7 | | Action Elaborate_Subprogram 01a0 1d50 | P | Execute_Immediate Reference_Lex_1,0x50 01a1 00c7 | | Action Elaborate_Subprogram 01a2 1d48 | H | Execute_Immediate Reference_Lex_1,0x48 01a3 00c7 | | Action Elaborate_Subprogram 01a4 1d49 | I | Execute_Immediate Reference_Lex_1,0x49 01a5 00c7 | | Action Elaborate_Subprogram 01a6 1d4a | J | Execute_Immediate Reference_Lex_1,0x4a 01a7 00c7 | | Action Elaborate_Subprogram 01a8 1d4b | K | Execute_Immediate Reference_Lex_1,0x4b 01a9 00c7 | | Action Elaborate_Subprogram 01aa 1d4c | L | Execute_Immediate Reference_Lex_1,0x4c 01ab 00c7 | | Action Elaborate_Subprogram 01ac 1d4d | M | Execute_Immediate Reference_Lex_1,0x4d 01ad 00c7 | | Action Elaborate_Subprogram 01ae 029d 0dbb | | Declare_Subprogram INIT_0db8,For_Outer_Call 01b0 029d 0ecb | | Declare_Subprogram INIT_0ec8,For_Outer_Call 01b2 029d 0ee3 | | Declare_Subprogram INIT_0ee0,For_Outer_Call 01b4 1d55 | U | Execute_Immediate Reference_Lex_1,0x55 01b5 00c7 | | Action Elaborate_Subprogram 01b6 029d 10d3 | | Declare_Subprogram INIT_10d0,For_Outer_Call 01b8 1d51 | Q | Execute_Immediate Reference_Lex_1,0x51 01b9 00c7 | | Action Elaborate_Subprogram 01ba 029b 10f3 | | Declare_Subprogram INIT_10f0,For_Outer_Call,Unelaborated 01bc 029d 12a3 | | Declare_Subprogram INIT_12a0,For_Outer_Call 01be 1d52 | R | Execute_Immediate Reference_Lex_1,0x52 01bf 00c7 | | Action Elaborate_Subprogram 01c0 029d 12db | | Declare_Subprogram INIT_12d8,For_Outer_Call 01c2 029d 135b | [| Declare_Subprogram INIT_1358,For_Outer_Call 01c4 1d62 | b | Execute_Immediate Reference_Lex_1,0x62 01c5 00c7 | | Action Elaborate_Subprogram 01c6 1d53 | S | Execute_Immediate Reference_Lex_1,0x53 01c7 00c7 | | Action Elaborate_Subprogram 01c8 1d54 | T | Execute_Immediate Reference_Lex_1,0x54 01c9 00c7 | | Action Elaborate_Subprogram 01ca 1d56 | V | Execute_Immediate Reference_Lex_1,0x56 01cb 00c7 | | Action Elaborate_Subprogram 01cc 1d57 | W | Execute_Immediate Reference_Lex_1,0x57 01cd 00c7 | | Action Elaborate_Subprogram 01ce BODY_0008: 01ce 00bc | | Action Signal_Activated 01cf 00bb | | Action Signal_Completion 01d0 ; -------------------------------------------------------------------------------------- 01d0 ; SUBPROGRAM 01d0 ; -------------------------------------------------------------------------------------- 01d0 01d3 | | .CONST 0x01d3 ; Address of begin 01d1 0004 | | .CONST 0x0004 ; Address of exception handler 01d2 0001 | | .CONST 0x0001 ; Number of locals 01d3 BODY_01d0: 01d3 INIT_01d0: 01d3 4607 |F | Jump_Case 0x8 01d4 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 01d5 7807 |x | Jump 0x1dd ; case 0x1 01d6 780a |x | Jump 0x1e1 ; case 0x2 01d7 780e |x | Jump 0x1e6 ; case 0x3 01d8 7811 |x | Jump 0x1ea ; case 0x4 01d9 7812 |x | Jump 0x1ec ; case 0x5 01da 7813 |x | Jump 0x1ee ; case 0x6 01db 7816 |x | Jump 0x1f2 ; case 0x7 01dc 4302 |C | .XXX[0x1] 01dd 00da | | Load_Top At_Offset_2 01de 0091 13b5 | | Action Push_String_Extended_Indexed,0x13b5 ; "NO_OP" 01e0 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 01e1 00db | | Load_Top At_Offset_3 01e2 00db | | Load_Top At_Offset_3 01e3 00e0 | | Load_Encached Standard_Cache 01e4 181b | | Execute Package,Field_Execute,Field_Number 0x1b 01e5 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 01e6 00da | | Load_Top At_Offset_2 01e7 00e0 | | Load_Encached Standard_Cache 01e8 181c | | Execute Package,Field_Execute,Field_Number 0x1c 01e9 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 01ea 00db | | Load_Top At_Offset_3 01eb 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 01ec 00db | | Load_Top At_Offset_3 01ed 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 01ee e20d | | Load 0x1,0xd 01ef 00dc | | Load_Top At_Offset_4 01f0 0267 | g | Execute Discrete,Predecessor 01f1 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 01f2 e20d | | Load 0x1,0xd 01f3 00dc | | Load_Top At_Offset_4 01f4 0268 | h | Execute Discrete,Successor 01f5 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 01f6 0000 0000 | | .XXX[0x2] 01f8 8000 0000 | | .LITERAL {0x80000000, 0x00010000} 01fc 0000 0000 | | .BLANK 0000[0x4] 0200 ; -------------------------------------------------------------------------------------- 0200 ; SUBPROGRAM 0200 ; -------------------------------------------------------------------------------------- 0200 0207 | | .CONST 0x0207 ; Address of begin 0201 0004 | | .CONST 0x0004 ; Address of exception handler 0202 0002 | | .CONST 0x0002 ; Number of locals 0203 INIT_0200: 0203 e25c | \ | Load 0x1,0x5c 0204 02ff | | Declare_Variable Variant_Record 0205 00d8 | | Load_Top At_Offset_0 0206 1c00 | | Execute_Immediate Run_Utility,0x0 0207 BODY_0200: 0207 00d8 | | Load_Top At_Offset_0 0208 e25b | [ | Load 0x1,0x5b 0209 1b11 | | Execute Package,Field_Read,Field_Number 0x11 020a 4800 |H | Short_Literal 0x0 020b e25b | [ | Load 0x1,0x5b 020c 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 020d 00d1 | | Pop_Control Pop_Count_1 020e 00d8 | | Load_Top At_Offset_0 020f 00ca | | Action Exit_Nullary_Function 0210 ; -------------------------------------------------------------------------------------- 0210 ; SUBPROGRAM 0210 ; -------------------------------------------------------------------------------------- 0210 0213 | | .CONST 0x0213 ; Address of begin 0211 0004 | | .CONST 0x0004 ; Address of exception handler 0212 0001 | | .CONST 0x0001 ; Number of locals 0213 BODY_0210: 0213 INIT_0210: 0213 00da | | Load_Top At_Offset_2 0214 e25b | [ | Load 0x1,0x5b 0215 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0216 4800 |H | Short_Literal 0x0 0217 e25b | [ | Load 0x1,0x5b 0218 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 0219 4501 |E | Exit_Suprogram New_Top_Offset 0x1 021a 0000 0000 | | .BLANK 0000[0x6] 0220 ; -------------------------------------------------------------------------------------- 0220 ; SUBPROGRAM 0220 ; -------------------------------------------------------------------------------------- 0220 0223 | # | .CONST 0x0223 ; Address of begin 0221 0004 | | .CONST 0x0004 ; Address of exception handler 0222 0001 | | .CONST 0x0001 ; Number of locals 0223 BODY_0220: 0223 INIT_0220: 0223 00da | | Load_Top At_Offset_2 0224 e25b | [ | Load 0x1,0x5b 0225 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0226 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0227 0000 | | .XXX[0x1] 0228 ; -------------------------------------------------------------------------------------- 0228 ; SUBPROGRAM 0228 ; -------------------------------------------------------------------------------------- 0228 022f | / | .CONST 0x022f ; Address of begin 0229 0004 | | .CONST 0x0004 ; Address of exception handler 022a 0002 | | .CONST 0x0002 ; Number of locals 022b INIT_0228: 022b e25c | \ | Load 0x1,0x5c 022c 02ff | | Declare_Variable Variant_Record 022d 00d8 | | Load_Top At_Offset_0 022e 1c00 | | Execute_Immediate Run_Utility,0x0 022f BODY_0228: 022f 00d8 | | Load_Top At_Offset_0 0230 e5ff | | Load 0x2,-0x1 0231 8212 | | Call 0x1,0x12 0232 00d1 | | Pop_Control Pop_Count_1 0233 00d8 | | Load_Top At_Offset_0 0234 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0235 0000 0000 | | .XXX[0x3] 0237 0000 | | 0238 ; -------------------------------------------------------------------------------------- 0238 ; SUBPROGRAM 0238 ; -------------------------------------------------------------------------------------- 0238 023b | ; | .CONST 0x023b ; Address of begin 0239 0004 | | .CONST 0x0004 ; Address of exception handler 023a 0001 | | .CONST 0x0001 ; Number of locals 023b BODY_0238: 023b INIT_0238: 023b 00db | | Load_Top At_Offset_3 023c 00db | | Load_Top At_Offset_3 023d e25b | [ | Load 0x1,0x5b 023e 1815 | | Execute Package,Field_Execute,Field_Number 0x15 023f 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0240 ; -------------------------------------------------------------------------------------- 0240 ; SUBPROGRAM 0240 ; -------------------------------------------------------------------------------------- 0240 0243 | C | .CONST 0x0243 ; Address of begin 0241 0004 | | .CONST 0x0004 ; Address of exception handler 0242 0001 | | .CONST 0x0001 ; Number of locals 0243 BODY_0240: 0243 INIT_0240: 0243 00db | | Load_Top At_Offset_3 0244 00db | | Load_Top At_Offset_3 0245 e25b | [ | Load 0x1,0x5b 0246 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 0247 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0248 ; -------------------------------------------------------------------------------------- 0248 ; SUBPROGRAM 0248 ; -------------------------------------------------------------------------------------- 0248 024b | K | .CONST 0x024b ; Address of begin 0249 0004 | | .CONST 0x0004 ; Address of exception handler 024a 0001 | | .CONST 0x0001 ; Number of locals 024b BODY_0248: 024b INIT_0248: 024b 00da | | Load_Top At_Offset_2 024c e5fd | | Load 0x2,-0x3 024d e25b | [ | Load 0x1,0x5b 024e 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 024f 027d | } | Execute Discrete,Greater 0250 680d |h | Jump_Zero 0x25e 0251 e5fd | | Load 0x2,-0x3 0252 e25b | [ | Load 0x1,0x5b 0253 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0254 0c80 | | Execute_Immediate Greater_Equal,-0x80 0255 6802 |h | Jump_Zero 0x258 0256 e214 | | Load 0x1,0x14 0257 0257 | W | Execute Discrete,Raise 0258 e5fd | | Load 0x2,-0x3 0259 e5fe | | Load 0x2,-0x2 025a e25b | [ | Load 0x1,0x5b 025b 181f | | Execute Package,Field_Execute,Field_Number 0x1f 025c 00d1 | | Pop_Control Pop_Count_1 025d 4503 |E | Exit_Suprogram New_Top_Offset 0x3 025e e5fd | | Load 0x2,-0x3 025f e5fe | | Load 0x2,-0x2 0260 e5ff | | Load 0x2,-0x1 0261 e25b | [ | Load 0x1,0x5b 0262 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 0263 00d1 | | Pop_Control Pop_Count_1 0264 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0265 0000 0000 | | .XXX[0x3] 0267 0000 | | 0268 ; -------------------------------------------------------------------------------------- 0268 ; SUBPROGRAM 0268 ; -------------------------------------------------------------------------------------- 0268 026b | k | .CONST 0x026b ; Address of begin 0269 0004 | | .CONST 0x0004 ; Address of exception handler 026a 0001 | | .CONST 0x0001 ; Number of locals 026b BODY_0268: 026b INIT_0268: 026b e5fd | | Load 0x2,-0x3 026c e25b | [ | Load 0x1,0x5b 026d 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 026e 0c80 | | Execute_Immediate Greater_Equal,-0x80 026f 6802 |h | Jump_Zero 0x272 0270 e214 | | Load 0x1,0x14 0271 0257 | W | Execute Discrete,Raise 0272 e5fd | | Load 0x2,-0x3 0273 e25b | [ | Load 0x1,0x5b 0274 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0275 0162 | b | Execute Variant_Record,Check_In_Type 0276 e5fe | | Load 0x2,-0x2 0277 e5ff | | Load 0x2,-0x1 0278 e25b | [ | Load 0x1,0x5b 0279 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 027a 00d1 | | Pop_Control Pop_Count_1 027b 4503 |E | Exit_Suprogram New_Top_Offset 0x3 027c 0000 0000 | | .BLANK 0000[0x4] 0280 ; -------------------------------------------------------------------------------------- 0280 ; SUBPROGRAM 0280 ; -------------------------------------------------------------------------------------- 0280 0283 | | .CONST 0x0283 ; Address of begin 0281 0004 | | .CONST 0x0004 ; Address of exception handler 0282 0001 | | .CONST 0x0001 ; Number of locals 0283 BODY_0280: 0283 INIT_0280: 0283 00db | | Load_Top At_Offset_3 0284 e25b | [ | Load 0x1,0x5b 0285 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0286 0c80 | | Execute_Immediate Greater_Equal,-0x80 0287 6802 |h | Jump_Zero 0x28a 0288 e214 | | Load 0x1,0x14 0289 0257 | W | Execute Discrete,Raise 028a 00db | | Load_Top At_Offset_3 028b e25b | [ | Load 0x1,0x5b 028c 1b14 | | Execute Package,Field_Read,Field_Number 0x14 028d 0162 | b | Execute Variant_Record,Check_In_Type 028e 00db | | Load_Top At_Offset_3 028f e25b | [ | Load 0x1,0x5b 0290 181f | | Execute Package,Field_Execute,Field_Number 0x1f 0291 00d1 | | Pop_Control Pop_Count_1 0292 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0293 0000 0000 | | .BLANK 0000[0x5] 0298 ; -------------------------------------------------------------------------------------- 0298 ; SUBPROGRAM 0298 ; -------------------------------------------------------------------------------------- 0298 029b | | .CONST 0x029b ; Address of begin 0299 0004 | | .CONST 0x0004 ; Address of exception handler 029a 0001 | | .CONST 0x0001 ; Number of locals 029b BODY_0298: 029b INIT_0298: 029b 00db | | Load_Top At_Offset_3 029c e25b | [ | Load 0x1,0x5b 029d 1b14 | | Execute Package,Field_Read,Field_Number 0x14 029e 0162 | b | Execute Variant_Record,Check_In_Type 029f 4801 |H | Short_Literal 0x1 02a0 e5ff | | Load 0x2,-0x1 02a1 e25b | [ | Load 0x1,0x5b 02a2 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 02a3 4502 |E | Exit_Suprogram New_Top_Offset 0x2 02a4 0000 0000 | | .BLANK 0000[0x4] 02a8 ; -------------------------------------------------------------------------------------- 02a8 ; SUBPROGRAM 02a8 ; -------------------------------------------------------------------------------------- 02a8 02ab | | .CONST 0x02ab ; Address of begin 02a9 0004 | | .CONST 0x0004 ; Address of exception handler 02aa 0001 | | .CONST 0x0001 ; Number of locals 02ab BODY_02a8: 02ab INIT_02a8: 02ab e258 | X | Load 0x1,0x58 02ac 0322 | " | Declare_Variable Record 02ad 4800 |H | Short_Literal 0x0 02ae 00d9 | | Load_Top At_Offset_1 02af 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 02b0 00db | | Load_Top At_Offset_3 02b1 00d9 | | Load_Top At_Offset_1 02b2 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 02b3 e5fe | | Load 0x2,-0x2 02b4 00d9 | | Load_Top At_Offset_1 02b5 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 02b6 4800 |H | Short_Literal 0x0 02b7 00d9 | | Load_Top At_Offset_1 02b8 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 02b9 4800 |H | Short_Literal 0x0 02ba 00d9 | | Load_Top At_Offset_1 02bb 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 02bc e002 | | Load 0x0,0x2 02bd 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 02be 00d9 | | Load_Top At_Offset_1 02bf 3805 |8 | Execute Record,Field_Write,Field_Number 0x5 02c0 4800 |H | Short_Literal 0x0 02c1 00d9 | | Load_Top At_Offset_1 02c2 3806 |8 | Execute Record,Field_Write,Field_Number 0x6 02c3 8006 | | Call 0x0,0x6 02c4 00d9 | | Load_Top At_Offset_1 02c5 3807 |8 | Execute Record,Field_Write,Field_Number 0x7 02c6 4800 |H | Short_Literal 0x0 02c7 00d9 | | Load_Top At_Offset_1 02c8 3808 |8 | Execute Record,Field_Write,Field_Number 0x8 02c9 4800 |H | Short_Literal 0x0 02ca 00d9 | | Load_Top At_Offset_1 02cb 3809 |8 | Execute Record,Field_Write,Field_Number 0x9 02cc 4800 |H | Short_Literal 0x0 02cd 00d9 | | Load_Top At_Offset_1 02ce 380a |8 | Execute Record,Field_Write,Field_Number 0xa 02cf 4800 |H | Short_Literal 0x0 02d0 00d9 | | Load_Top At_Offset_1 02d1 380b |8 | Execute Record,Field_Write,Field_Number 0xb 02d2 4800 |H | Short_Literal 0x0 02d3 00d9 | | Load_Top At_Offset_1 02d4 380c |8 | Execute Record,Field_Write,Field_Number 0xc 02d5 4800 |H | Short_Literal 0x0 02d6 00d9 | | Load_Top At_Offset_1 02d7 380d |8 | Execute Record,Field_Write,Field_Number 0xd 02d8 8007 | | Call 0x0,0x7 02d9 00d9 | | Load_Top At_Offset_1 02da 380e |8 | Execute Record,Field_Write,Field_Number 0xe 02db 4800 |H | Short_Literal 0x0 02dc 00d9 | | Load_Top At_Offset_1 02dd 380f |8 | Execute Record,Field_Write,Field_Number 0xf 02de 8008 | | Call 0x0,0x8 02df e258 | X | Load 0x1,0x58 02e0 3011 |0 | Execute Record,Field_Type,Field_Number 0x11 02e1 0119 | | Execute Any,Check_In_Formal_Type 02e2 00d9 | | Load_Top At_Offset_1 02e3 3811 |8 | Execute Record,Field_Write,Field_Number 0x11 02e4 e009 | | Load 0x0,0x9 02e5 00d9 | | Load_Top At_Offset_1 02e6 3812 |8 | Execute Record,Field_Write,Field_Number 0x12 02e7 4800 |H | Short_Literal 0x0 02e8 00d9 | | Load_Top At_Offset_1 02e9 3810 |8 | Execute Record,Field_Write,Field_Number 0x10 02ea 4800 |H | Short_Literal 0x0 02eb 00d9 | | Load_Top At_Offset_1 02ec 3813 |8 | Execute Record,Field_Write,Field_Number 0x13 02ed 4800 |H | Short_Literal 0x0 02ee 00d9 | | Load_Top At_Offset_1 02ef 3814 |8 | Execute Record,Field_Write,Field_Number 0x14 02f0 4800 |H | Short_Literal 0x0 02f1 00d9 | | Load_Top At_Offset_1 02f2 3815 |8 | Execute Record,Field_Write,Field_Number 0x15 02f3 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 02f4 0000 0000 | | .BLANK 0000[0x4] 02f8 ; -------------------------------------------------------------------------------------- 02f8 ; SUBPROGRAM 02f8 ; -------------------------------------------------------------------------------------- 02f8 02fb | | .CONST 0x02fb ; Address of begin 02f9 0004 | | .CONST 0x0004 ; Address of exception handler 02fa 0001 | | .CONST 0x0001 ; Number of locals 02fb BODY_02f8: 02fb INIT_02f8: 02fb e258 | X | Load 0x1,0x58 02fc 0322 | " | Declare_Variable Record 02fd 4801 |H | Short_Literal 0x1 02fe 00d9 | | Load_Top At_Offset_1 02ff 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0300 00db | | Load_Top At_Offset_3 0301 00d9 | | Load_Top At_Offset_1 0302 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0303 4800 |H | Short_Literal 0x0 0304 00d9 | | Load_Top At_Offset_1 0305 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0306 4800 |H | Short_Literal 0x0 0307 00d9 | | Load_Top At_Offset_1 0308 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 0309 4800 |H | Short_Literal 0x0 030a 00d9 | | Load_Top At_Offset_1 030b 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 030c e002 | | Load 0x0,0x2 030d 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 030e 00d9 | | Load_Top At_Offset_1 030f 3805 |8 | Execute Record,Field_Write,Field_Number 0x5 0310 4800 |H | Short_Literal 0x0 0311 00d9 | | Load_Top At_Offset_1 0312 3806 |8 | Execute Record,Field_Write,Field_Number 0x6 0313 8006 | | Call 0x0,0x6 0314 00d9 | | Load_Top At_Offset_1 0315 3807 |8 | Execute Record,Field_Write,Field_Number 0x7 0316 4800 |H | Short_Literal 0x0 0317 00d9 | | Load_Top At_Offset_1 0318 3808 |8 | Execute Record,Field_Write,Field_Number 0x8 0319 4800 |H | Short_Literal 0x0 031a 00d9 | | Load_Top At_Offset_1 031b 3809 |8 | Execute Record,Field_Write,Field_Number 0x9 031c 4800 |H | Short_Literal 0x0 031d 00d9 | | Load_Top At_Offset_1 031e 380a |8 | Execute Record,Field_Write,Field_Number 0xa 031f 4800 |H | Short_Literal 0x0 0320 00d9 | | Load_Top At_Offset_1 0321 380b |8 | Execute Record,Field_Write,Field_Number 0xb 0322 4800 |H | Short_Literal 0x0 0323 00d9 | | Load_Top At_Offset_1 0324 380c |8 | Execute Record,Field_Write,Field_Number 0xc 0325 4800 |H | Short_Literal 0x0 0326 00d9 | | Load_Top At_Offset_1 0327 380d |8 | Execute Record,Field_Write,Field_Number 0xd 0328 8007 | | Call 0x0,0x7 0329 00d9 | | Load_Top At_Offset_1 032a 380e |8 | Execute Record,Field_Write,Field_Number 0xe 032b 4800 |H | Short_Literal 0x0 032c 00d9 | | Load_Top At_Offset_1 032d 380f |8 | Execute Record,Field_Write,Field_Number 0xf 032e 8008 | | Call 0x0,0x8 032f e258 | X | Load 0x1,0x58 0330 3011 |0 | Execute Record,Field_Type,Field_Number 0x11 0331 0119 | | Execute Any,Check_In_Formal_Type 0332 00d9 | | Load_Top At_Offset_1 0333 3811 |8 | Execute Record,Field_Write,Field_Number 0x11 0334 e009 | | Load 0x0,0x9 0335 00d9 | | Load_Top At_Offset_1 0336 3812 |8 | Execute Record,Field_Write,Field_Number 0x12 0337 4800 |H | Short_Literal 0x0 0338 00d9 | | Load_Top At_Offset_1 0339 3810 |8 | Execute Record,Field_Write,Field_Number 0x10 033a 4800 |H | Short_Literal 0x0 033b 00d9 | | Load_Top At_Offset_1 033c 3813 |8 | Execute Record,Field_Write,Field_Number 0x13 033d 4800 |H | Short_Literal 0x0 033e 00d9 | | Load_Top At_Offset_1 033f 3814 |8 | Execute Record,Field_Write,Field_Number 0x14 0340 4800 |H | Short_Literal 0x0 0341 00d9 | | Load_Top At_Offset_1 0342 3815 |8 | Execute Record,Field_Write,Field_Number 0x15 0343 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0344 0000 0000 | | .BLANK 0000[0x4] 0348 ; -------------------------------------------------------------------------------------- 0348 ; SUBPROGRAM 0348 ; -------------------------------------------------------------------------------------- 0348 034b | K | .CONST 0x034b ; Address of begin 0349 0004 | | .CONST 0x0004 ; Address of exception handler 034a 0001 | | .CONST 0x0001 ; Number of locals 034b BODY_0348: 034b INIT_0348: 034b e258 | X | Load 0x1,0x58 034c 0322 | " | Declare_Variable Record 034d 4803 |H | Short_Literal 0x3 034e 00d9 | | Load_Top At_Offset_1 034f 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0350 e5f9 | | Load 0x2,-0x7 0351 00d9 | | Load_Top At_Offset_1 0352 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0353 e5fa | | Load 0x2,-0x6 0354 00d9 | | Load_Top At_Offset_1 0355 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 0356 00db | | Load_Top At_Offset_3 0357 00d9 | | Load_Top At_Offset_1 0358 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0359 e5fb | | Load 0x2,-0x5 035a 00d9 | | Load_Top At_Offset_1 035b 380d |8 | Execute Record,Field_Write,Field_Number 0xd 035c e5fe | | Load 0x2,-0x2 035d 00d9 | | Load_Top At_Offset_1 035e 380e |8 | Execute Record,Field_Write,Field_Number 0xe 035f e5fd | | Load 0x2,-0x3 0360 00d9 | | Load_Top At_Offset_1 0361 380f |8 | Execute Record,Field_Write,Field_Number 0xf 0362 e5fc | | Load 0x2,-0x4 0363 00d9 | | Load_Top At_Offset_1 0364 3810 |8 | Execute Record,Field_Write,Field_Number 0x10 0365 e5f8 | | Load 0x2,-0x8 0366 e258 | X | Load 0x1,0x58 0367 3011 |0 | Execute Record,Field_Type,Field_Number 0x11 0368 0119 | | Execute Any,Check_In_Formal_Type 0369 00d9 | | Load_Top At_Offset_1 036a 3811 |8 | Execute Record,Field_Write,Field_Number 0x11 036b e5f7 | | Load 0x2,-0x9 036c 00d9 | | Load_Top At_Offset_1 036d 3812 |8 | Execute Record,Field_Write,Field_Number 0x12 036e 4800 |H | Short_Literal 0x0 036f 00d9 | | Load_Top At_Offset_1 0370 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 0371 e002 | | Load 0x0,0x2 0372 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 0373 00d9 | | Load_Top At_Offset_1 0374 3805 |8 | Execute Record,Field_Write,Field_Number 0x5 0375 4800 |H | Short_Literal 0x0 0376 00d9 | | Load_Top At_Offset_1 0377 3806 |8 | Execute Record,Field_Write,Field_Number 0x6 0378 8006 | | Call 0x0,0x6 0379 00d9 | | Load_Top At_Offset_1 037a 3807 |8 | Execute Record,Field_Write,Field_Number 0x7 037b 4800 |H | Short_Literal 0x0 037c 00d9 | | Load_Top At_Offset_1 037d 3808 |8 | Execute Record,Field_Write,Field_Number 0x8 037e 4800 |H | Short_Literal 0x0 037f 00d9 | | Load_Top At_Offset_1 0380 3809 |8 | Execute Record,Field_Write,Field_Number 0x9 0381 4800 |H | Short_Literal 0x0 0382 00d9 | | Load_Top At_Offset_1 0383 380a |8 | Execute Record,Field_Write,Field_Number 0xa 0384 4800 |H | Short_Literal 0x0 0385 00d9 | | Load_Top At_Offset_1 0386 380b |8 | Execute Record,Field_Write,Field_Number 0xb 0387 4800 |H | Short_Literal 0x0 0388 00d9 | | Load_Top At_Offset_1 0389 380c |8 | Execute Record,Field_Write,Field_Number 0xc 038a 4800 |H | Short_Literal 0x0 038b 00d9 | | Load_Top At_Offset_1 038c 3813 |8 | Execute Record,Field_Write,Field_Number 0x13 038d 4800 |H | Short_Literal 0x0 038e 00d9 | | Load_Top At_Offset_1 038f 3814 |8 | Execute Record,Field_Write,Field_Number 0x14 0390 4800 |H | Short_Literal 0x0 0391 00d9 | | Load_Top At_Offset_1 0392 3815 |8 | Execute Record,Field_Write,Field_Number 0x15 0393 4409 |D | Exit_Subprogram With_Value,New_Top_Offset 0x9 0394 0000 0000 | | .BLANK 0000[0x4] 0398 ; -------------------------------------------------------------------------------------- 0398 ; SUBPROGRAM 0398 ; -------------------------------------------------------------------------------------- 0398 039b | | .CONST 0x039b ; Address of begin 0399 0004 | | .CONST 0x0004 ; Address of exception handler 039a 0001 | | .CONST 0x0001 ; Number of locals 039b BODY_0398: 039b INIT_0398: 039b e258 | X | Load 0x1,0x58 039c 0322 | " | Declare_Variable Record 039d 4802 |H | Short_Literal 0x2 039e 00d9 | | Load_Top At_Offset_1 039f 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 03a0 e5fd | | Load 0x2,-0x3 03a1 00d9 | | Load_Top At_Offset_1 03a2 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 03a3 4800 |H | Short_Literal 0x0 03a4 00d9 | | Load_Top At_Offset_1 03a5 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 03a6 00db | | Load_Top At_Offset_3 03a7 00d9 | | Load_Top At_Offset_1 03a8 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 03a9 4800 |H | Short_Literal 0x0 03aa 00d9 | | Load_Top At_Offset_1 03ab 380d |8 | Execute Record,Field_Write,Field_Number 0xd 03ac e5fe | | Load 0x2,-0x2 03ad 00d9 | | Load_Top At_Offset_1 03ae 380e |8 | Execute Record,Field_Write,Field_Number 0xe 03af 4800 |H | Short_Literal 0x0 03b0 00d9 | | Load_Top At_Offset_1 03b1 380f |8 | Execute Record,Field_Write,Field_Number 0xf 03b2 8008 | | Call 0x0,0x8 03b3 e258 | X | Load 0x1,0x58 03b4 3011 |0 | Execute Record,Field_Type,Field_Number 0x11 03b5 0119 | | Execute Any,Check_In_Formal_Type 03b6 00d9 | | Load_Top At_Offset_1 03b7 3811 |8 | Execute Record,Field_Write,Field_Number 0x11 03b8 e009 | | Load 0x0,0x9 03b9 00d9 | | Load_Top At_Offset_1 03ba 3812 |8 | Execute Record,Field_Write,Field_Number 0x12 03bb 4800 |H | Short_Literal 0x0 03bc 00d9 | | Load_Top At_Offset_1 03bd 3810 |8 | Execute Record,Field_Write,Field_Number 0x10 03be 4800 |H | Short_Literal 0x0 03bf 00d9 | | Load_Top At_Offset_1 03c0 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 03c1 e002 | | Load 0x0,0x2 03c2 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 03c3 00d9 | | Load_Top At_Offset_1 03c4 3805 |8 | Execute Record,Field_Write,Field_Number 0x5 03c5 4800 |H | Short_Literal 0x0 03c6 00d9 | | Load_Top At_Offset_1 03c7 3806 |8 | Execute Record,Field_Write,Field_Number 0x6 03c8 8006 | | Call 0x0,0x6 03c9 00d9 | | Load_Top At_Offset_1 03ca 3807 |8 | Execute Record,Field_Write,Field_Number 0x7 03cb 4800 |H | Short_Literal 0x0 03cc 00d9 | | Load_Top At_Offset_1 03cd 3808 |8 | Execute Record,Field_Write,Field_Number 0x8 03ce 4800 |H | Short_Literal 0x0 03cf 00d9 | | Load_Top At_Offset_1 03d0 3809 |8 | Execute Record,Field_Write,Field_Number 0x9 03d1 4800 |H | Short_Literal 0x0 03d2 00d9 | | Load_Top At_Offset_1 03d3 380a |8 | Execute Record,Field_Write,Field_Number 0xa 03d4 4800 |H | Short_Literal 0x0 03d5 00d9 | | Load_Top At_Offset_1 03d6 380b |8 | Execute Record,Field_Write,Field_Number 0xb 03d7 4800 |H | Short_Literal 0x0 03d8 00d9 | | Load_Top At_Offset_1 03d9 380c |8 | Execute Record,Field_Write,Field_Number 0xc 03da 4800 |H | Short_Literal 0x0 03db 00d9 | | Load_Top At_Offset_1 03dc 3813 |8 | Execute Record,Field_Write,Field_Number 0x13 03dd 4800 |H | Short_Literal 0x0 03de 00d9 | | Load_Top At_Offset_1 03df 3814 |8 | Execute Record,Field_Write,Field_Number 0x14 03e0 4800 |H | Short_Literal 0x0 03e1 00d9 | | Load_Top At_Offset_1 03e2 3815 |8 | Execute Record,Field_Write,Field_Number 0x15 03e3 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 03e4 0000 0000 | | .BLANK 0000[0x4] 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 e258 | X | Load 0x1,0x58 03ec 0322 | " | Declare_Variable Record 03ed 4804 |H | Short_Literal 0x4 03ee 00d9 | | Load_Top At_Offset_1 03ef 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 03f0 00db | | Load_Top At_Offset_3 03f1 00d9 | | Load_Top At_Offset_1 03f2 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 03f3 e5fc | | Load 0x2,-0x4 03f4 00d9 | | Load_Top At_Offset_1 03f5 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 03f6 e5fd | | Load 0x2,-0x3 03f7 00d9 | | Load_Top At_Offset_1 03f8 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 03f9 e5fe | | Load 0x2,-0x2 03fa 00d9 | | Load_Top At_Offset_1 03fb 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 03fc e002 | | Load 0x0,0x2 03fd 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 03fe 00d9 | | Load_Top At_Offset_1 03ff 3805 |8 | Execute Record,Field_Write,Field_Number 0x5 0400 4800 |H | Short_Literal 0x0 0401 00d9 | | Load_Top At_Offset_1 0402 3806 |8 | Execute Record,Field_Write,Field_Number 0x6 0403 8006 | | Call 0x0,0x6 0404 00d9 | | Load_Top At_Offset_1 0405 3807 |8 | Execute Record,Field_Write,Field_Number 0x7 0406 4800 |H | Short_Literal 0x0 0407 00d9 | | Load_Top At_Offset_1 0408 3808 |8 | Execute Record,Field_Write,Field_Number 0x8 0409 4800 |H | Short_Literal 0x0 040a 00d9 | | Load_Top At_Offset_1 040b 3809 |8 | Execute Record,Field_Write,Field_Number 0x9 040c 4800 |H | Short_Literal 0x0 040d 00d9 | | Load_Top At_Offset_1 040e 380a |8 | Execute Record,Field_Write,Field_Number 0xa 040f 4800 |H | Short_Literal 0x0 0410 00d9 | | Load_Top At_Offset_1 0411 380b |8 | Execute Record,Field_Write,Field_Number 0xb 0412 4800 |H | Short_Literal 0x0 0413 00d9 | | Load_Top At_Offset_1 0414 380c |8 | Execute Record,Field_Write,Field_Number 0xc 0415 4800 |H | Short_Literal 0x0 0416 00d9 | | Load_Top At_Offset_1 0417 380d |8 | Execute Record,Field_Write,Field_Number 0xd 0418 8007 | | Call 0x0,0x7 0419 00d9 | | Load_Top At_Offset_1 041a 380e |8 | Execute Record,Field_Write,Field_Number 0xe 041b 4800 |H | Short_Literal 0x0 041c 00d9 | | Load_Top At_Offset_1 041d 380f |8 | Execute Record,Field_Write,Field_Number 0xf 041e 8008 | | Call 0x0,0x8 041f e258 | X | Load 0x1,0x58 0420 3011 |0 | Execute Record,Field_Type,Field_Number 0x11 0421 0119 | | Execute Any,Check_In_Formal_Type 0422 00d9 | | Load_Top At_Offset_1 0423 3811 |8 | Execute Record,Field_Write,Field_Number 0x11 0424 e009 | | Load 0x0,0x9 0425 00d9 | | Load_Top At_Offset_1 0426 3812 |8 | Execute Record,Field_Write,Field_Number 0x12 0427 4800 |H | Short_Literal 0x0 0428 00d9 | | Load_Top At_Offset_1 0429 3810 |8 | Execute Record,Field_Write,Field_Number 0x10 042a 4800 |H | Short_Literal 0x0 042b 00d9 | | Load_Top At_Offset_1 042c 3813 |8 | Execute Record,Field_Write,Field_Number 0x13 042d 4800 |H | Short_Literal 0x0 042e 00d9 | | Load_Top At_Offset_1 042f 3814 |8 | Execute Record,Field_Write,Field_Number 0x14 0430 4800 |H | Short_Literal 0x0 0431 00d9 | | Load_Top At_Offset_1 0432 3815 |8 | Execute Record,Field_Write,Field_Number 0x15 0433 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 0434 0000 0000 | | .BLANK 0000[0x4] 0438 ; -------------------------------------------------------------------------------------- 0438 ; SUBPROGRAM 0438 ; -------------------------------------------------------------------------------------- 0438 043b | ; | .CONST 0x043b ; Address of begin 0439 0004 | | .CONST 0x0004 ; Address of exception handler 043a 0001 | | .CONST 0x0001 ; Number of locals 043b BODY_0438: 043b INIT_0438: 043b e258 | X | Load 0x1,0x58 043c 0322 | " | Declare_Variable Record 043d 4805 |H | Short_Literal 0x5 043e 00d9 | | Load_Top At_Offset_1 043f 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0440 00db | | Load_Top At_Offset_3 0441 00d9 | | Load_Top At_Offset_1 0442 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0443 e5fa | | Load 0x2,-0x6 0444 00d9 | | Load_Top At_Offset_1 0445 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0446 e5fb | | Load 0x2,-0x5 0447 00d9 | | Load_Top At_Offset_1 0448 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 0449 e5fc | | Load 0x2,-0x4 044a 00d9 | | Load_Top At_Offset_1 044b 380d |8 | Execute Record,Field_Write,Field_Number 0xd 044c e5fe | | Load 0x2,-0x2 044d 00d9 | | Load_Top At_Offset_1 044e 3814 |8 | Execute Record,Field_Write,Field_Number 0x14 044f e5fd | | Load 0x2,-0x3 0450 00d9 | | Load_Top At_Offset_1 0451 3815 |8 | Execute Record,Field_Write,Field_Number 0x15 0452 4800 |H | Short_Literal 0x0 0453 00d9 | | Load_Top At_Offset_1 0454 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 0455 e002 | | Load 0x0,0x2 0456 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 0457 00d9 | | Load_Top At_Offset_1 0458 3805 |8 | Execute Record,Field_Write,Field_Number 0x5 0459 4800 |H | Short_Literal 0x0 045a 00d9 | | Load_Top At_Offset_1 045b 3806 |8 | Execute Record,Field_Write,Field_Number 0x6 045c 8006 | | Call 0x0,0x6 045d 00d9 | | Load_Top At_Offset_1 045e 3807 |8 | Execute Record,Field_Write,Field_Number 0x7 045f 4800 |H | Short_Literal 0x0 0460 00d9 | | Load_Top At_Offset_1 0461 3808 |8 | Execute Record,Field_Write,Field_Number 0x8 0462 4800 |H | Short_Literal 0x0 0463 00d9 | | Load_Top At_Offset_1 0464 3809 |8 | Execute Record,Field_Write,Field_Number 0x9 0465 4800 |H | Short_Literal 0x0 0466 00d9 | | Load_Top At_Offset_1 0467 380a |8 | Execute Record,Field_Write,Field_Number 0xa 0468 4800 |H | Short_Literal 0x0 0469 00d9 | | Load_Top At_Offset_1 046a 380b |8 | Execute Record,Field_Write,Field_Number 0xb 046b 4800 |H | Short_Literal 0x0 046c 00d9 | | Load_Top At_Offset_1 046d 380c |8 | Execute Record,Field_Write,Field_Number 0xc 046e 8007 | | Call 0x0,0x7 046f 00d9 | | Load_Top At_Offset_1 0470 380e |8 | Execute Record,Field_Write,Field_Number 0xe 0471 4800 |H | Short_Literal 0x0 0472 00d9 | | Load_Top At_Offset_1 0473 380f |8 | Execute Record,Field_Write,Field_Number 0xf 0474 8008 | | Call 0x0,0x8 0475 e258 | X | Load 0x1,0x58 0476 3011 |0 | Execute Record,Field_Type,Field_Number 0x11 0477 0119 | | Execute Any,Check_In_Formal_Type 0478 00d9 | | Load_Top At_Offset_1 0479 3811 |8 | Execute Record,Field_Write,Field_Number 0x11 047a e009 | | Load 0x0,0x9 047b 00d9 | | Load_Top At_Offset_1 047c 3812 |8 | Execute Record,Field_Write,Field_Number 0x12 047d 4800 |H | Short_Literal 0x0 047e 00d9 | | Load_Top At_Offset_1 047f 3810 |8 | Execute Record,Field_Write,Field_Number 0x10 0480 4800 |H | Short_Literal 0x0 0481 00d9 | | Load_Top At_Offset_1 0482 3813 |8 | Execute Record,Field_Write,Field_Number 0x13 0483 4406 |D | Exit_Subprogram With_Value,New_Top_Offset 0x6 0484 0000 0000 | | .BLANK 0000[0x4] 0488 ; -------------------------------------------------------------------------------------- 0488 ; SUBPROGRAM 0488 ; -------------------------------------------------------------------------------------- 0488 048b | | .CONST 0x048b ; Address of begin 0489 0004 | | .CONST 0x0004 ; Address of exception handler 048a 0001 | | .CONST 0x0001 ; Number of locals 048b BODY_0488: 048b INIT_0488: 048b e258 | X | Load 0x1,0x58 048c 0322 | " | Declare_Variable Record 048d 4806 |H | Short_Literal 0x6 048e 00d9 | | Load_Top At_Offset_1 048f 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0490 4800 |H | Short_Literal 0x0 0491 00d9 | | Load_Top At_Offset_1 0492 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0493 e5fe | | Load 0x2,-0x2 0494 00d9 | | Load_Top At_Offset_1 0495 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 0496 00db | | Load_Top At_Offset_3 0497 00d9 | | Load_Top At_Offset_1 0498 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0499 4800 |H | Short_Literal 0x0 049a 00d9 | | Load_Top At_Offset_1 049b 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 049c e002 | | Load 0x0,0x2 049d 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 049e 00d9 | | Load_Top At_Offset_1 049f 3805 |8 | Execute Record,Field_Write,Field_Number 0x5 04a0 4800 |H | Short_Literal 0x0 04a1 00d9 | | Load_Top At_Offset_1 04a2 3806 |8 | Execute Record,Field_Write,Field_Number 0x6 04a3 8006 | | Call 0x0,0x6 04a4 00d9 | | Load_Top At_Offset_1 04a5 3807 |8 | Execute Record,Field_Write,Field_Number 0x7 04a6 4800 |H | Short_Literal 0x0 04a7 00d9 | | Load_Top At_Offset_1 04a8 3808 |8 | Execute Record,Field_Write,Field_Number 0x8 04a9 4800 |H | Short_Literal 0x0 04aa 00d9 | | Load_Top At_Offset_1 04ab 3809 |8 | Execute Record,Field_Write,Field_Number 0x9 04ac 4800 |H | Short_Literal 0x0 04ad 00d9 | | Load_Top At_Offset_1 04ae 380a |8 | Execute Record,Field_Write,Field_Number 0xa 04af 4800 |H | Short_Literal 0x0 04b0 00d9 | | Load_Top At_Offset_1 04b1 380b |8 | Execute Record,Field_Write,Field_Number 0xb 04b2 4800 |H | Short_Literal 0x0 04b3 00d9 | | Load_Top At_Offset_1 04b4 380c |8 | Execute Record,Field_Write,Field_Number 0xc 04b5 4800 |H | Short_Literal 0x0 04b6 00d9 | | Load_Top At_Offset_1 04b7 380d |8 | Execute Record,Field_Write,Field_Number 0xd 04b8 8007 | | Call 0x0,0x7 04b9 00d9 | | Load_Top At_Offset_1 04ba 380e |8 | Execute Record,Field_Write,Field_Number 0xe 04bb 4800 |H | Short_Literal 0x0 04bc 00d9 | | Load_Top At_Offset_1 04bd 380f |8 | Execute Record,Field_Write,Field_Number 0xf 04be 8008 | | Call 0x0,0x8 04bf e258 | X | Load 0x1,0x58 04c0 3011 |0 | Execute Record,Field_Type,Field_Number 0x11 04c1 0119 | | Execute Any,Check_In_Formal_Type 04c2 00d9 | | Load_Top At_Offset_1 04c3 3811 |8 | Execute Record,Field_Write,Field_Number 0x11 04c4 e009 | | Load 0x0,0x9 04c5 00d9 | | Load_Top At_Offset_1 04c6 3812 |8 | Execute Record,Field_Write,Field_Number 0x12 04c7 4800 |H | Short_Literal 0x0 04c8 00d9 | | Load_Top At_Offset_1 04c9 3810 |8 | Execute Record,Field_Write,Field_Number 0x10 04ca 4800 |H | Short_Literal 0x0 04cb 00d9 | | Load_Top At_Offset_1 04cc 3813 |8 | Execute Record,Field_Write,Field_Number 0x13 04cd 4800 |H | Short_Literal 0x0 04ce 00d9 | | Load_Top At_Offset_1 04cf 3814 |8 | Execute Record,Field_Write,Field_Number 0x14 04d0 4800 |H | Short_Literal 0x0 04d1 00d9 | | Load_Top At_Offset_1 04d2 3815 |8 | Execute Record,Field_Write,Field_Number 0x15 04d3 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 04d4 0000 0000 | | .BLANK 0000[0x4] 04d8 ; -------------------------------------------------------------------------------------- 04d8 ; SUBPROGRAM 04d8 ; -------------------------------------------------------------------------------------- 04d8 04db | | .CONST 0x04db ; Address of begin 04d9 0004 | | .CONST 0x0004 ; Address of exception handler 04da 0001 | | .CONST 0x0001 ; Number of locals 04db BODY_04d8: 04db INIT_04d8: 04db e258 | X | Load 0x1,0x58 04dc 0322 | " | Declare_Variable Record 04dd 4807 |H | Short_Literal 0x7 04de 00d9 | | Load_Top At_Offset_1 04df 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 04e0 00db | | Load_Top At_Offset_3 04e1 00d9 | | Load_Top At_Offset_1 04e2 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 04e3 e5fd | | Load 0x2,-0x3 04e4 00d9 | | Load_Top At_Offset_1 04e5 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 04e6 e5fe | | Load 0x2,-0x2 04e7 00d9 | | Load_Top At_Offset_1 04e8 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 04e9 4800 |H | Short_Literal 0x0 04ea 00d9 | | Load_Top At_Offset_1 04eb 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 04ec e002 | | Load 0x0,0x2 04ed 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 04ee 00d9 | | Load_Top At_Offset_1 04ef 3805 |8 | Execute Record,Field_Write,Field_Number 0x5 04f0 4800 |H | Short_Literal 0x0 04f1 00d9 | | Load_Top At_Offset_1 04f2 3806 |8 | Execute Record,Field_Write,Field_Number 0x6 04f3 8006 | | Call 0x0,0x6 04f4 00d9 | | Load_Top At_Offset_1 04f5 3807 |8 | Execute Record,Field_Write,Field_Number 0x7 04f6 4800 |H | Short_Literal 0x0 04f7 00d9 | | Load_Top At_Offset_1 04f8 3808 |8 | Execute Record,Field_Write,Field_Number 0x8 04f9 4800 |H | Short_Literal 0x0 04fa 00d9 | | Load_Top At_Offset_1 04fb 3809 |8 | Execute Record,Field_Write,Field_Number 0x9 04fc 4800 |H | Short_Literal 0x0 04fd 00d9 | | Load_Top At_Offset_1 04fe 380a |8 | Execute Record,Field_Write,Field_Number 0xa 04ff 4800 |H | Short_Literal 0x0 0500 00d9 | | Load_Top At_Offset_1 0501 380b |8 | Execute Record,Field_Write,Field_Number 0xb 0502 4800 |H | Short_Literal 0x0 0503 00d9 | | Load_Top At_Offset_1 0504 380c |8 | Execute Record,Field_Write,Field_Number 0xc 0505 4800 |H | Short_Literal 0x0 0506 00d9 | | Load_Top At_Offset_1 0507 380d |8 | Execute Record,Field_Write,Field_Number 0xd 0508 8007 | | Call 0x0,0x7 0509 00d9 | | Load_Top At_Offset_1 050a 380e |8 | Execute Record,Field_Write,Field_Number 0xe 050b 4800 |H | Short_Literal 0x0 050c 00d9 | | Load_Top At_Offset_1 050d 380f |8 | Execute Record,Field_Write,Field_Number 0xf 050e 8008 | | Call 0x0,0x8 050f e258 | X | Load 0x1,0x58 0510 3011 |0 | Execute Record,Field_Type,Field_Number 0x11 0511 0119 | | Execute Any,Check_In_Formal_Type 0512 00d9 | | Load_Top At_Offset_1 0513 3811 |8 | Execute Record,Field_Write,Field_Number 0x11 0514 e009 | | Load 0x0,0x9 0515 00d9 | | Load_Top At_Offset_1 0516 3812 |8 | Execute Record,Field_Write,Field_Number 0x12 0517 4800 |H | Short_Literal 0x0 0518 00d9 | | Load_Top At_Offset_1 0519 3810 |8 | Execute Record,Field_Write,Field_Number 0x10 051a 4800 |H | Short_Literal 0x0 051b 00d9 | | Load_Top At_Offset_1 051c 3813 |8 | Execute Record,Field_Write,Field_Number 0x13 051d 4800 |H | Short_Literal 0x0 051e 00d9 | | Load_Top At_Offset_1 051f 3814 |8 | Execute Record,Field_Write,Field_Number 0x14 0520 4800 |H | Short_Literal 0x0 0521 00d9 | | Load_Top At_Offset_1 0522 3815 |8 | Execute Record,Field_Write,Field_Number 0x15 0523 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0524 0000 0000 | | .BLANK 0000[0x4] 0528 ; -------------------------------------------------------------------------------------- 0528 ; SUBPROGRAM 0528 ; -------------------------------------------------------------------------------------- 0528 052b | + | .CONST 0x052b ; Address of begin 0529 0004 | | .CONST 0x0004 ; Address of exception handler 052a 0001 | | .CONST 0x0001 ; Number of locals 052b BODY_0528: 052b INIT_0528: 052b e258 | X | Load 0x1,0x58 052c 0322 | " | Declare_Variable Record 052d 4808 |H | Short_Literal 0x8 052e 00d9 | | Load_Top At_Offset_1 052f 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0530 00db | | Load_Top At_Offset_3 0531 00d9 | | Load_Top At_Offset_1 0532 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0533 e5fd | | Load 0x2,-0x3 0534 00d9 | | Load_Top At_Offset_1 0535 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0536 e5fe | | Load 0x2,-0x2 0537 00d9 | | Load_Top At_Offset_1 0538 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 0539 4800 |H | Short_Literal 0x0 053a 00d9 | | Load_Top At_Offset_1 053b 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 053c e002 | | Load 0x0,0x2 053d 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 053e 00d9 | | Load_Top At_Offset_1 053f 3805 |8 | Execute Record,Field_Write,Field_Number 0x5 0540 4800 |H | Short_Literal 0x0 0541 00d9 | | Load_Top At_Offset_1 0542 3806 |8 | Execute Record,Field_Write,Field_Number 0x6 0543 8006 | | Call 0x0,0x6 0544 00d9 | | Load_Top At_Offset_1 0545 3807 |8 | Execute Record,Field_Write,Field_Number 0x7 0546 4800 |H | Short_Literal 0x0 0547 00d9 | | Load_Top At_Offset_1 0548 3808 |8 | Execute Record,Field_Write,Field_Number 0x8 0549 4800 |H | Short_Literal 0x0 054a 00d9 | | Load_Top At_Offset_1 054b 3809 |8 | Execute Record,Field_Write,Field_Number 0x9 054c 4800 |H | Short_Literal 0x0 054d 00d9 | | Load_Top At_Offset_1 054e 380a |8 | Execute Record,Field_Write,Field_Number 0xa 054f 4800 |H | Short_Literal 0x0 0550 00d9 | | Load_Top At_Offset_1 0551 380b |8 | Execute Record,Field_Write,Field_Number 0xb 0552 4800 |H | Short_Literal 0x0 0553 00d9 | | Load_Top At_Offset_1 0554 380c |8 | Execute Record,Field_Write,Field_Number 0xc 0555 4800 |H | Short_Literal 0x0 0556 00d9 | | Load_Top At_Offset_1 0557 380d |8 | Execute Record,Field_Write,Field_Number 0xd 0558 8007 | | Call 0x0,0x7 0559 00d9 | | Load_Top At_Offset_1 055a 380e |8 | Execute Record,Field_Write,Field_Number 0xe 055b 4800 |H | Short_Literal 0x0 055c 00d9 | | Load_Top At_Offset_1 055d 380f |8 | Execute Record,Field_Write,Field_Number 0xf 055e 8008 | | Call 0x0,0x8 055f e258 | X | Load 0x1,0x58 0560 3011 |0 | Execute Record,Field_Type,Field_Number 0x11 0561 0119 | | Execute Any,Check_In_Formal_Type 0562 00d9 | | Load_Top At_Offset_1 0563 3811 |8 | Execute Record,Field_Write,Field_Number 0x11 0564 e009 | | Load 0x0,0x9 0565 00d9 | | Load_Top At_Offset_1 0566 3812 |8 | Execute Record,Field_Write,Field_Number 0x12 0567 4800 |H | Short_Literal 0x0 0568 00d9 | | Load_Top At_Offset_1 0569 3810 |8 | Execute Record,Field_Write,Field_Number 0x10 056a 4800 |H | Short_Literal 0x0 056b 00d9 | | Load_Top At_Offset_1 056c 3813 |8 | Execute Record,Field_Write,Field_Number 0x13 056d 4800 |H | Short_Literal 0x0 056e 00d9 | | Load_Top At_Offset_1 056f 3814 |8 | Execute Record,Field_Write,Field_Number 0x14 0570 4800 |H | Short_Literal 0x0 0571 00d9 | | Load_Top At_Offset_1 0572 3815 |8 | Execute Record,Field_Write,Field_Number 0x15 0573 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0574 0000 0000 | | .BLANK 0000[0x4] 0578 ; -------------------------------------------------------------------------------------- 0578 ; SUBPROGRAM 0578 ; -------------------------------------------------------------------------------------- 0578 057b | { | .CONST 0x057b ; Address of begin 0579 0004 | | .CONST 0x0004 ; Address of exception handler 057a 0001 | | .CONST 0x0001 ; Number of locals 057b BODY_0578: 057b INIT_0578: 057b e258 | X | Load 0x1,0x58 057c 0322 | " | Declare_Variable Record 057d 4809 |H | Short_Literal 0x9 057e 00d9 | | Load_Top At_Offset_1 057f 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0580 00db | | Load_Top At_Offset_3 0581 00d9 | | Load_Top At_Offset_1 0582 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0583 e5fe | | Load 0x2,-0x2 0584 00d9 | | Load_Top At_Offset_1 0585 380d |8 | Execute Record,Field_Write,Field_Number 0xd 0586 e5fc | | Load 0x2,-0x4 0587 00d9 | | Load_Top At_Offset_1 0588 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0589 e5fd | | Load 0x2,-0x3 058a 00d9 | | Load_Top At_Offset_1 058b 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 058c 4800 |H | Short_Literal 0x0 058d 00d9 | | Load_Top At_Offset_1 058e 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 058f e002 | | Load 0x0,0x2 0590 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 0591 00d9 | | Load_Top At_Offset_1 0592 3805 |8 | Execute Record,Field_Write,Field_Number 0x5 0593 4800 |H | Short_Literal 0x0 0594 00d9 | | Load_Top At_Offset_1 0595 3806 |8 | Execute Record,Field_Write,Field_Number 0x6 0596 8006 | | Call 0x0,0x6 0597 00d9 | | Load_Top At_Offset_1 0598 3807 |8 | Execute Record,Field_Write,Field_Number 0x7 0599 4800 |H | Short_Literal 0x0 059a 00d9 | | Load_Top At_Offset_1 059b 3808 |8 | Execute Record,Field_Write,Field_Number 0x8 059c 4800 |H | Short_Literal 0x0 059d 00d9 | | Load_Top At_Offset_1 059e 3809 |8 | Execute Record,Field_Write,Field_Number 0x9 059f 4800 |H | Short_Literal 0x0 05a0 00d9 | | Load_Top At_Offset_1 05a1 380a |8 | Execute Record,Field_Write,Field_Number 0xa 05a2 4800 |H | Short_Literal 0x0 05a3 00d9 | | Load_Top At_Offset_1 05a4 380b |8 | Execute Record,Field_Write,Field_Number 0xb 05a5 4800 |H | Short_Literal 0x0 05a6 00d9 | | Load_Top At_Offset_1 05a7 380c |8 | Execute Record,Field_Write,Field_Number 0xc 05a8 8007 | | Call 0x0,0x7 05a9 00d9 | | Load_Top At_Offset_1 05aa 380e |8 | Execute Record,Field_Write,Field_Number 0xe 05ab 4800 |H | Short_Literal 0x0 05ac 00d9 | | Load_Top At_Offset_1 05ad 380f |8 | Execute Record,Field_Write,Field_Number 0xf 05ae 8008 | | Call 0x0,0x8 05af e258 | X | Load 0x1,0x58 05b0 3011 |0 | Execute Record,Field_Type,Field_Number 0x11 05b1 0119 | | Execute Any,Check_In_Formal_Type 05b2 00d9 | | Load_Top At_Offset_1 05b3 3811 |8 | Execute Record,Field_Write,Field_Number 0x11 05b4 e009 | | Load 0x0,0x9 05b5 00d9 | | Load_Top At_Offset_1 05b6 3812 |8 | Execute Record,Field_Write,Field_Number 0x12 05b7 4800 |H | Short_Literal 0x0 05b8 00d9 | | Load_Top At_Offset_1 05b9 3810 |8 | Execute Record,Field_Write,Field_Number 0x10 05ba 4800 |H | Short_Literal 0x0 05bb 00d9 | | Load_Top At_Offset_1 05bc 3813 |8 | Execute Record,Field_Write,Field_Number 0x13 05bd 4800 |H | Short_Literal 0x0 05be 00d9 | | Load_Top At_Offset_1 05bf 3814 |8 | Execute Record,Field_Write,Field_Number 0x14 05c0 4800 |H | Short_Literal 0x0 05c1 00d9 | | Load_Top At_Offset_1 05c2 3815 |8 | Execute Record,Field_Write,Field_Number 0x15 05c3 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 05c4 0000 0000 | | .BLANK 0000[0x4] 05c8 ; -------------------------------------------------------------------------------------- 05c8 ; SUBPROGRAM 05c8 ; -------------------------------------------------------------------------------------- 05c8 05cb | | .CONST 0x05cb ; Address of begin 05c9 0004 | | .CONST 0x0004 ; Address of exception handler 05ca 0001 | | .CONST 0x0001 ; Number of locals 05cb BODY_05c8: 05cb INIT_05c8: 05cb e258 | X | Load 0x1,0x58 05cc 0322 | " | Declare_Variable Record 05cd 480a |H | Short_Literal 0xa 05ce 00d9 | | Load_Top At_Offset_1 05cf 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 05d0 00db | | Load_Top At_Offset_3 05d1 00d9 | | Load_Top At_Offset_1 05d2 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 05d3 e5fb | | Load 0x2,-0x5 05d4 00d9 | | Load_Top At_Offset_1 05d5 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 05d6 e5fc | | Load 0x2,-0x4 05d7 00d9 | | Load_Top At_Offset_1 05d8 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 05d9 e5fd | | Load 0x2,-0x3 05da 00d9 | | Load_Top At_Offset_1 05db 380d |8 | Execute Record,Field_Write,Field_Number 0xd 05dc e5fe | | Load 0x2,-0x2 05dd 00d9 | | Load_Top At_Offset_1 05de 3813 |8 | Execute Record,Field_Write,Field_Number 0x13 05df 4800 |H | Short_Literal 0x0 05e0 00d9 | | Load_Top At_Offset_1 05e1 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 05e2 e002 | | Load 0x0,0x2 05e3 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 05e4 00d9 | | Load_Top At_Offset_1 05e5 3805 |8 | Execute Record,Field_Write,Field_Number 0x5 05e6 4800 |H | Short_Literal 0x0 05e7 00d9 | | Load_Top At_Offset_1 05e8 3806 |8 | Execute Record,Field_Write,Field_Number 0x6 05e9 8006 | | Call 0x0,0x6 05ea 00d9 | | Load_Top At_Offset_1 05eb 3807 |8 | Execute Record,Field_Write,Field_Number 0x7 05ec 4800 |H | Short_Literal 0x0 05ed 00d9 | | Load_Top At_Offset_1 05ee 3808 |8 | Execute Record,Field_Write,Field_Number 0x8 05ef 4800 |H | Short_Literal 0x0 05f0 00d9 | | Load_Top At_Offset_1 05f1 3809 |8 | Execute Record,Field_Write,Field_Number 0x9 05f2 4800 |H | Short_Literal 0x0 05f3 00d9 | | Load_Top At_Offset_1 05f4 380a |8 | Execute Record,Field_Write,Field_Number 0xa 05f5 4800 |H | Short_Literal 0x0 05f6 00d9 | | Load_Top At_Offset_1 05f7 380b |8 | Execute Record,Field_Write,Field_Number 0xb 05f8 4800 |H | Short_Literal 0x0 05f9 00d9 | | Load_Top At_Offset_1 05fa 380c |8 | Execute Record,Field_Write,Field_Number 0xc 05fb 8007 | | Call 0x0,0x7 05fc 00d9 | | Load_Top At_Offset_1 05fd 380e |8 | Execute Record,Field_Write,Field_Number 0xe 05fe 4800 |H | Short_Literal 0x0 05ff 00d9 | | Load_Top At_Offset_1 0600 380f |8 | Execute Record,Field_Write,Field_Number 0xf 0601 8008 | | Call 0x0,0x8 0602 e258 | X | Load 0x1,0x58 0603 3011 |0 | Execute Record,Field_Type,Field_Number 0x11 0604 0119 | | Execute Any,Check_In_Formal_Type 0605 00d9 | | Load_Top At_Offset_1 0606 3811 |8 | Execute Record,Field_Write,Field_Number 0x11 0607 e009 | | Load 0x0,0x9 0608 00d9 | | Load_Top At_Offset_1 0609 3812 |8 | Execute Record,Field_Write,Field_Number 0x12 060a 4800 |H | Short_Literal 0x0 060b 00d9 | | Load_Top At_Offset_1 060c 3810 |8 | Execute Record,Field_Write,Field_Number 0x10 060d 4800 |H | Short_Literal 0x0 060e 00d9 | | Load_Top At_Offset_1 060f 3814 |8 | Execute Record,Field_Write,Field_Number 0x14 0610 4800 |H | Short_Literal 0x0 0611 00d9 | | Load_Top At_Offset_1 0612 3815 |8 | Execute Record,Field_Write,Field_Number 0x15 0613 4405 |D | Exit_Subprogram With_Value,New_Top_Offset 0x5 0614 0000 0000 | | .BLANK 0000[0x4] 0618 ; -------------------------------------------------------------------------------------- 0618 ; SUBPROGRAM 0618 ; -------------------------------------------------------------------------------------- 0618 061b | | .CONST 0x061b ; Address of begin 0619 0004 | | .CONST 0x0004 ; Address of exception handler 061a 0001 | | .CONST 0x0001 ; Number of locals 061b BODY_0618: 061b INIT_0618: 061b e258 | X | Load 0x1,0x58 061c 0322 | " | Declare_Variable Record 061d 480b |H | Short_Literal 0xb 061e 00d9 | | Load_Top At_Offset_1 061f 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0620 00db | | Load_Top At_Offset_3 0621 00d9 | | Load_Top At_Offset_1 0622 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0623 e5fb | | Load 0x2,-0x5 0624 00d9 | | Load_Top At_Offset_1 0625 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0626 e5fc | | Load 0x2,-0x4 0627 00d9 | | Load_Top At_Offset_1 0628 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 0629 e5fd | | Load 0x2,-0x3 062a 00d9 | | Load_Top At_Offset_1 062b 380d |8 | Execute Record,Field_Write,Field_Number 0xd 062c e5fe | | Load 0x2,-0x2 062d 00d9 | | Load_Top At_Offset_1 062e 3813 |8 | Execute Record,Field_Write,Field_Number 0x13 062f 4800 |H | Short_Literal 0x0 0630 00d9 | | Load_Top At_Offset_1 0631 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 0632 e002 | | Load 0x0,0x2 0633 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 0634 00d9 | | Load_Top At_Offset_1 0635 3805 |8 | Execute Record,Field_Write,Field_Number 0x5 0636 4800 |H | Short_Literal 0x0 0637 00d9 | | Load_Top At_Offset_1 0638 3806 |8 | Execute Record,Field_Write,Field_Number 0x6 0639 8006 | | Call 0x0,0x6 063a 00d9 | | Load_Top At_Offset_1 063b 3807 |8 | Execute Record,Field_Write,Field_Number 0x7 063c 4800 |H | Short_Literal 0x0 063d 00d9 | | Load_Top At_Offset_1 063e 3808 |8 | Execute Record,Field_Write,Field_Number 0x8 063f 4800 |H | Short_Literal 0x0 0640 00d9 | | Load_Top At_Offset_1 0641 3809 |8 | Execute Record,Field_Write,Field_Number 0x9 0642 4800 |H | Short_Literal 0x0 0643 00d9 | | Load_Top At_Offset_1 0644 380a |8 | Execute Record,Field_Write,Field_Number 0xa 0645 4800 |H | Short_Literal 0x0 0646 00d9 | | Load_Top At_Offset_1 0647 380b |8 | Execute Record,Field_Write,Field_Number 0xb 0648 4800 |H | Short_Literal 0x0 0649 00d9 | | Load_Top At_Offset_1 064a 380c |8 | Execute Record,Field_Write,Field_Number 0xc 064b 8007 | | Call 0x0,0x7 064c 00d9 | | Load_Top At_Offset_1 064d 380e |8 | Execute Record,Field_Write,Field_Number 0xe 064e 4800 |H | Short_Literal 0x0 064f 00d9 | | Load_Top At_Offset_1 0650 3810 |8 | Execute Record,Field_Write,Field_Number 0x10 0651 4800 |H | Short_Literal 0x0 0652 00d9 | | Load_Top At_Offset_1 0653 380f |8 | Execute Record,Field_Write,Field_Number 0xf 0654 8008 | | Call 0x0,0x8 0655 e258 | X | Load 0x1,0x58 0656 3011 |0 | Execute Record,Field_Type,Field_Number 0x11 0657 0119 | | Execute Any,Check_In_Formal_Type 0658 00d9 | | Load_Top At_Offset_1 0659 3811 |8 | Execute Record,Field_Write,Field_Number 0x11 065a e009 | | Load 0x0,0x9 065b 00d9 | | Load_Top At_Offset_1 065c 3812 |8 | Execute Record,Field_Write,Field_Number 0x12 065d 4800 |H | Short_Literal 0x0 065e 00d9 | | Load_Top At_Offset_1 065f 3814 |8 | Execute Record,Field_Write,Field_Number 0x14 0660 4800 |H | Short_Literal 0x0 0661 00d9 | | Load_Top At_Offset_1 0662 3815 |8 | Execute Record,Field_Write,Field_Number 0x15 0663 4405 |D | Exit_Subprogram With_Value,New_Top_Offset 0x5 0664 0000 0000 | | .BLANK 0000[0x4] 0668 ; -------------------------------------------------------------------------------------- 0668 ; SUBPROGRAM 0668 ; -------------------------------------------------------------------------------------- 0668 066b | k | .CONST 0x066b ; Address of begin 0669 0004 | | .CONST 0x0004 ; Address of exception handler 066a 0001 | | .CONST 0x0001 ; Number of locals 066b BODY_0668: 066b INIT_0668: 066b e258 | X | Load 0x1,0x58 066c 0322 | " | Declare_Variable Record 066d 480c |H | Short_Literal 0xc 066e 00d9 | | Load_Top At_Offset_1 066f 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0670 00db | | Load_Top At_Offset_3 0671 00d9 | | Load_Top At_Offset_1 0672 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0673 e5fc | | Load 0x2,-0x4 0674 00d9 | | Load_Top At_Offset_1 0675 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0676 e5fd | | Load 0x2,-0x3 0677 00d9 | | Load_Top At_Offset_1 0678 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 0679 e5fe | | Load 0x2,-0x2 067a 00d9 | | Load_Top At_Offset_1 067b 380d |8 | Execute Record,Field_Write,Field_Number 0xd 067c 4800 |H | Short_Literal 0x0 067d 00d9 | | Load_Top At_Offset_1 067e 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 067f e002 | | Load 0x0,0x2 0680 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 0681 00d9 | | Load_Top At_Offset_1 0682 3805 |8 | Execute Record,Field_Write,Field_Number 0x5 0683 4800 |H | Short_Literal 0x0 0684 00d9 | | Load_Top At_Offset_1 0685 3806 |8 | Execute Record,Field_Write,Field_Number 0x6 0686 8006 | | Call 0x0,0x6 0687 00d9 | | Load_Top At_Offset_1 0688 3807 |8 | Execute Record,Field_Write,Field_Number 0x7 0689 4800 |H | Short_Literal 0x0 068a 00d9 | | Load_Top At_Offset_1 068b 3808 |8 | Execute Record,Field_Write,Field_Number 0x8 068c 4800 |H | Short_Literal 0x0 068d 00d9 | | Load_Top At_Offset_1 068e 3809 |8 | Execute Record,Field_Write,Field_Number 0x9 068f 4800 |H | Short_Literal 0x0 0690 00d9 | | Load_Top At_Offset_1 0691 380a |8 | Execute Record,Field_Write,Field_Number 0xa 0692 4800 |H | Short_Literal 0x0 0693 00d9 | | Load_Top At_Offset_1 0694 380b |8 | Execute Record,Field_Write,Field_Number 0xb 0695 4800 |H | Short_Literal 0x0 0696 00d9 | | Load_Top At_Offset_1 0697 380c |8 | Execute Record,Field_Write,Field_Number 0xc 0698 8007 | | Call 0x0,0x7 0699 00d9 | | Load_Top At_Offset_1 069a 380e |8 | Execute Record,Field_Write,Field_Number 0xe 069b 4800 |H | Short_Literal 0x0 069c 00d9 | | Load_Top At_Offset_1 069d 380f |8 | Execute Record,Field_Write,Field_Number 0xf 069e 8008 | | Call 0x0,0x8 069f e258 | X | Load 0x1,0x58 06a0 3011 |0 | Execute Record,Field_Type,Field_Number 0x11 06a1 0119 | | Execute Any,Check_In_Formal_Type 06a2 00d9 | | Load_Top At_Offset_1 06a3 3811 |8 | Execute Record,Field_Write,Field_Number 0x11 06a4 e009 | | Load 0x0,0x9 06a5 00d9 | | Load_Top At_Offset_1 06a6 3812 |8 | Execute Record,Field_Write,Field_Number 0x12 06a7 4800 |H | Short_Literal 0x0 06a8 00d9 | | Load_Top At_Offset_1 06a9 3810 |8 | Execute Record,Field_Write,Field_Number 0x10 06aa 4800 |H | Short_Literal 0x0 06ab 00d9 | | Load_Top At_Offset_1 06ac 3813 |8 | Execute Record,Field_Write,Field_Number 0x13 06ad 4800 |H | Short_Literal 0x0 06ae 00d9 | | Load_Top At_Offset_1 06af 3814 |8 | Execute Record,Field_Write,Field_Number 0x14 06b0 4800 |H | Short_Literal 0x0 06b1 00d9 | | Load_Top At_Offset_1 06b2 3815 |8 | Execute Record,Field_Write,Field_Number 0x15 06b3 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 06b4 0000 0000 | | .BLANK 0000[0x4] 06b8 ; -------------------------------------------------------------------------------------- 06b8 ; SUBPROGRAM 06b8 ; -------------------------------------------------------------------------------------- 06b8 06bb | | .CONST 0x06bb ; Address of begin 06b9 0004 | | .CONST 0x0004 ; Address of exception handler 06ba 0001 | | .CONST 0x0001 ; Number of locals 06bb BODY_06b8: 06bb INIT_06b8: 06bb e258 | X | Load 0x1,0x58 06bc 0322 | " | Declare_Variable Record 06bd 480d |H | Short_Literal 0xd 06be 00d9 | | Load_Top At_Offset_1 06bf 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 06c0 00db | | Load_Top At_Offset_3 06c1 00d9 | | Load_Top At_Offset_1 06c2 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 06c3 e5fc | | Load 0x2,-0x4 06c4 00d9 | | Load_Top At_Offset_1 06c5 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 06c6 e5fd | | Load 0x2,-0x3 06c7 00d9 | | Load_Top At_Offset_1 06c8 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 06c9 e5fe | | Load 0x2,-0x2 06ca 00d9 | | Load_Top At_Offset_1 06cb 380d |8 | Execute Record,Field_Write,Field_Number 0xd 06cc 4800 |H | Short_Literal 0x0 06cd 00d9 | | Load_Top At_Offset_1 06ce 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 06cf e002 | | Load 0x0,0x2 06d0 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 06d1 00d9 | | Load_Top At_Offset_1 06d2 3805 |8 | Execute Record,Field_Write,Field_Number 0x5 06d3 4800 |H | Short_Literal 0x0 06d4 00d9 | | Load_Top At_Offset_1 06d5 3806 |8 | Execute Record,Field_Write,Field_Number 0x6 06d6 8006 | | Call 0x0,0x6 06d7 00d9 | | Load_Top At_Offset_1 06d8 3807 |8 | Execute Record,Field_Write,Field_Number 0x7 06d9 4800 |H | Short_Literal 0x0 06da 00d9 | | Load_Top At_Offset_1 06db 3808 |8 | Execute Record,Field_Write,Field_Number 0x8 06dc 4800 |H | Short_Literal 0x0 06dd 00d9 | | Load_Top At_Offset_1 06de 3809 |8 | Execute Record,Field_Write,Field_Number 0x9 06df 4800 |H | Short_Literal 0x0 06e0 00d9 | | Load_Top At_Offset_1 06e1 380a |8 | Execute Record,Field_Write,Field_Number 0xa 06e2 4800 |H | Short_Literal 0x0 06e3 00d9 | | Load_Top At_Offset_1 06e4 380b |8 | Execute Record,Field_Write,Field_Number 0xb 06e5 4800 |H | Short_Literal 0x0 06e6 00d9 | | Load_Top At_Offset_1 06e7 380c |8 | Execute Record,Field_Write,Field_Number 0xc 06e8 8007 | | Call 0x0,0x7 06e9 00d9 | | Load_Top At_Offset_1 06ea 380e |8 | Execute Record,Field_Write,Field_Number 0xe 06eb 4800 |H | Short_Literal 0x0 06ec 00d9 | | Load_Top At_Offset_1 06ed 380f |8 | Execute Record,Field_Write,Field_Number 0xf 06ee 8008 | | Call 0x0,0x8 06ef e258 | X | Load 0x1,0x58 06f0 3011 |0 | Execute Record,Field_Type,Field_Number 0x11 06f1 0119 | | Execute Any,Check_In_Formal_Type 06f2 00d9 | | Load_Top At_Offset_1 06f3 3811 |8 | Execute Record,Field_Write,Field_Number 0x11 06f4 e009 | | Load 0x0,0x9 06f5 00d9 | | Load_Top At_Offset_1 06f6 3812 |8 | Execute Record,Field_Write,Field_Number 0x12 06f7 4800 |H | Short_Literal 0x0 06f8 00d9 | | Load_Top At_Offset_1 06f9 3810 |8 | Execute Record,Field_Write,Field_Number 0x10 06fa 4800 |H | Short_Literal 0x0 06fb 00d9 | | Load_Top At_Offset_1 06fc 3813 |8 | Execute Record,Field_Write,Field_Number 0x13 06fd 4800 |H | Short_Literal 0x0 06fe 00d9 | | Load_Top At_Offset_1 06ff 3814 |8 | Execute Record,Field_Write,Field_Number 0x14 0700 4800 |H | Short_Literal 0x0 0701 00d9 | | Load_Top At_Offset_1 0702 3815 |8 | Execute Record,Field_Write,Field_Number 0x15 0703 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 0704 0000 0000 | | .BLANK 0000[0x4] 0708 ; -------------------------------------------------------------------------------------- 0708 ; SUBPROGRAM 0708 ; -------------------------------------------------------------------------------------- 0708 070b | | .CONST 0x070b ; Address of begin 0709 0004 | | .CONST 0x0004 ; Address of exception handler 070a 0001 | | .CONST 0x0001 ; Number of locals 070b BODY_0708: 070b INIT_0708: 070b e258 | X | Load 0x1,0x58 070c 0322 | " | Declare_Variable Record 070d 480e |H | Short_Literal 0xe 070e 00d9 | | Load_Top At_Offset_1 070f 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0710 00db | | Load_Top At_Offset_3 0711 00d9 | | Load_Top At_Offset_1 0712 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0713 e5fc | | Load 0x2,-0x4 0714 00d9 | | Load_Top At_Offset_1 0715 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0716 e5fd | | Load 0x2,-0x3 0717 00d9 | | Load_Top At_Offset_1 0718 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 0719 e5fe | | Load 0x2,-0x2 071a 00d9 | | Load_Top At_Offset_1 071b 380d |8 | Execute Record,Field_Write,Field_Number 0xd 071c 4800 |H | Short_Literal 0x0 071d 00d9 | | Load_Top At_Offset_1 071e 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 071f e002 | | Load 0x0,0x2 0720 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 0721 00d9 | | Load_Top At_Offset_1 0722 3805 |8 | Execute Record,Field_Write,Field_Number 0x5 0723 4800 |H | Short_Literal 0x0 0724 00d9 | | Load_Top At_Offset_1 0725 3806 |8 | Execute Record,Field_Write,Field_Number 0x6 0726 8006 | | Call 0x0,0x6 0727 00d9 | | Load_Top At_Offset_1 0728 3807 |8 | Execute Record,Field_Write,Field_Number 0x7 0729 4800 |H | Short_Literal 0x0 072a 00d9 | | Load_Top At_Offset_1 072b 3808 |8 | Execute Record,Field_Write,Field_Number 0x8 072c 4800 |H | Short_Literal 0x0 072d 00d9 | | Load_Top At_Offset_1 072e 3809 |8 | Execute Record,Field_Write,Field_Number 0x9 072f 4800 |H | Short_Literal 0x0 0730 00d9 | | Load_Top At_Offset_1 0731 380a |8 | Execute Record,Field_Write,Field_Number 0xa 0732 4800 |H | Short_Literal 0x0 0733 00d9 | | Load_Top At_Offset_1 0734 380b |8 | Execute Record,Field_Write,Field_Number 0xb 0735 4800 |H | Short_Literal 0x0 0736 00d9 | | Load_Top At_Offset_1 0737 380c |8 | Execute Record,Field_Write,Field_Number 0xc 0738 8007 | | Call 0x0,0x7 0739 00d9 | | Load_Top At_Offset_1 073a 380e |8 | Execute Record,Field_Write,Field_Number 0xe 073b 4800 |H | Short_Literal 0x0 073c 00d9 | | Load_Top At_Offset_1 073d 380f |8 | Execute Record,Field_Write,Field_Number 0xf 073e 8008 | | Call 0x0,0x8 073f e258 | X | Load 0x1,0x58 0740 3011 |0 | Execute Record,Field_Type,Field_Number 0x11 0741 0119 | | Execute Any,Check_In_Formal_Type 0742 00d9 | | Load_Top At_Offset_1 0743 3811 |8 | Execute Record,Field_Write,Field_Number 0x11 0744 e009 | | Load 0x0,0x9 0745 00d9 | | Load_Top At_Offset_1 0746 3812 |8 | Execute Record,Field_Write,Field_Number 0x12 0747 4800 |H | Short_Literal 0x0 0748 00d9 | | Load_Top At_Offset_1 0749 3810 |8 | Execute Record,Field_Write,Field_Number 0x10 074a 4800 |H | Short_Literal 0x0 074b 00d9 | | Load_Top At_Offset_1 074c 3813 |8 | Execute Record,Field_Write,Field_Number 0x13 074d 4800 |H | Short_Literal 0x0 074e 00d9 | | Load_Top At_Offset_1 074f 3814 |8 | Execute Record,Field_Write,Field_Number 0x14 0750 4800 |H | Short_Literal 0x0 0751 00d9 | | Load_Top At_Offset_1 0752 3815 |8 | Execute Record,Field_Write,Field_Number 0x15 0753 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 0754 0000 0000 | | .BLANK 0000[0x4] 0758 ; -------------------------------------------------------------------------------------- 0758 ; SUBPROGRAM 0758 ; -------------------------------------------------------------------------------------- 0758 075b | [ | .CONST 0x075b ; Address of begin 0759 0004 | | .CONST 0x0004 ; Address of exception handler 075a 0001 | | .CONST 0x0001 ; Number of locals 075b BODY_0758: 075b INIT_0758: 075b e258 | X | Load 0x1,0x58 075c 0322 | " | Declare_Variable Record 075d 480f |H | Short_Literal 0xf 075e 00d9 | | Load_Top At_Offset_1 075f 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0760 00db | | Load_Top At_Offset_3 0761 00d9 | | Load_Top At_Offset_1 0762 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0763 e5fc | | Load 0x2,-0x4 0764 00d9 | | Load_Top At_Offset_1 0765 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0766 e5fd | | Load 0x2,-0x3 0767 00d9 | | Load_Top At_Offset_1 0768 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 0769 e5fe | | Load 0x2,-0x2 076a 00d9 | | Load_Top At_Offset_1 076b 380d |8 | Execute Record,Field_Write,Field_Number 0xd 076c 4800 |H | Short_Literal 0x0 076d 00d9 | | Load_Top At_Offset_1 076e 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 076f e002 | | Load 0x0,0x2 0770 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 0771 00d9 | | Load_Top At_Offset_1 0772 3805 |8 | Execute Record,Field_Write,Field_Number 0x5 0773 4800 |H | Short_Literal 0x0 0774 00d9 | | Load_Top At_Offset_1 0775 3806 |8 | Execute Record,Field_Write,Field_Number 0x6 0776 8006 | | Call 0x0,0x6 0777 00d9 | | Load_Top At_Offset_1 0778 3807 |8 | Execute Record,Field_Write,Field_Number 0x7 0779 4800 |H | Short_Literal 0x0 077a 00d9 | | Load_Top At_Offset_1 077b 3808 |8 | Execute Record,Field_Write,Field_Number 0x8 077c 4800 |H | Short_Literal 0x0 077d 00d9 | | Load_Top At_Offset_1 077e 3809 |8 | Execute Record,Field_Write,Field_Number 0x9 077f 4800 |H | Short_Literal 0x0 0780 00d9 | | Load_Top At_Offset_1 0781 380a |8 | Execute Record,Field_Write,Field_Number 0xa 0782 4800 |H | Short_Literal 0x0 0783 00d9 | | Load_Top At_Offset_1 0784 380b |8 | Execute Record,Field_Write,Field_Number 0xb 0785 4800 |H | Short_Literal 0x0 0786 00d9 | | Load_Top At_Offset_1 0787 380c |8 | Execute Record,Field_Write,Field_Number 0xc 0788 8007 | | Call 0x0,0x7 0789 00d9 | | Load_Top At_Offset_1 078a 380e |8 | Execute Record,Field_Write,Field_Number 0xe 078b 4800 |H | Short_Literal 0x0 078c 00d9 | | Load_Top At_Offset_1 078d 380f |8 | Execute Record,Field_Write,Field_Number 0xf 078e 8008 | | Call 0x0,0x8 078f e258 | X | Load 0x1,0x58 0790 3011 |0 | Execute Record,Field_Type,Field_Number 0x11 0791 0119 | | Execute Any,Check_In_Formal_Type 0792 00d9 | | Load_Top At_Offset_1 0793 3811 |8 | Execute Record,Field_Write,Field_Number 0x11 0794 e009 | | Load 0x0,0x9 0795 00d9 | | Load_Top At_Offset_1 0796 3812 |8 | Execute Record,Field_Write,Field_Number 0x12 0797 4800 |H | Short_Literal 0x0 0798 00d9 | | Load_Top At_Offset_1 0799 3810 |8 | Execute Record,Field_Write,Field_Number 0x10 079a 4800 |H | Short_Literal 0x0 079b 00d9 | | Load_Top At_Offset_1 079c 3813 |8 | Execute Record,Field_Write,Field_Number 0x13 079d 4800 |H | Short_Literal 0x0 079e 00d9 | | Load_Top At_Offset_1 079f 3814 |8 | Execute Record,Field_Write,Field_Number 0x14 07a0 4800 |H | Short_Literal 0x0 07a1 00d9 | | Load_Top At_Offset_1 07a2 3815 |8 | Execute Record,Field_Write,Field_Number 0x15 07a3 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 07a4 0000 0000 | | .BLANK 0000[0x4] 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 e258 | X | Load 0x1,0x58 07ac 0322 | " | Declare_Variable Record 07ad 4810 |H | Short_Literal 0x10 07ae 00d9 | | Load_Top At_Offset_1 07af 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 07b0 00db | | Load_Top At_Offset_3 07b1 00d9 | | Load_Top At_Offset_1 07b2 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 07b3 4800 |H | Short_Literal 0x0 07b4 00d9 | | Load_Top At_Offset_1 07b5 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 07b6 e5fd | | Load 0x2,-0x3 07b7 00d9 | | Load_Top At_Offset_1 07b8 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 07b9 e002 | | Load 0x0,0x2 07ba 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 07bb 00d9 | | Load_Top At_Offset_1 07bc 3805 |8 | Execute Record,Field_Write,Field_Number 0x5 07bd e5fe | | Load 0x2,-0x2 07be 00d9 | | Load_Top At_Offset_1 07bf 3806 |8 | Execute Record,Field_Write,Field_Number 0x6 07c0 4800 |H | Short_Literal 0x0 07c1 00d9 | | Load_Top At_Offset_1 07c2 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 07c3 8006 | | Call 0x0,0x6 07c4 00d9 | | Load_Top At_Offset_1 07c5 3807 |8 | Execute Record,Field_Write,Field_Number 0x7 07c6 4800 |H | Short_Literal 0x0 07c7 00d9 | | Load_Top At_Offset_1 07c8 3808 |8 | Execute Record,Field_Write,Field_Number 0x8 07c9 4800 |H | Short_Literal 0x0 07ca 00d9 | | Load_Top At_Offset_1 07cb 3809 |8 | Execute Record,Field_Write,Field_Number 0x9 07cc 4800 |H | Short_Literal 0x0 07cd 00d9 | | Load_Top At_Offset_1 07ce 380a |8 | Execute Record,Field_Write,Field_Number 0xa 07cf 4800 |H | Short_Literal 0x0 07d0 00d9 | | Load_Top At_Offset_1 07d1 380b |8 | Execute Record,Field_Write,Field_Number 0xb 07d2 4800 |H | Short_Literal 0x0 07d3 00d9 | | Load_Top At_Offset_1 07d4 380c |8 | Execute Record,Field_Write,Field_Number 0xc 07d5 4800 |H | Short_Literal 0x0 07d6 00d9 | | Load_Top At_Offset_1 07d7 380d |8 | Execute Record,Field_Write,Field_Number 0xd 07d8 8007 | | Call 0x0,0x7 07d9 00d9 | | Load_Top At_Offset_1 07da 380e |8 | Execute Record,Field_Write,Field_Number 0xe 07db 4800 |H | Short_Literal 0x0 07dc 00d9 | | Load_Top At_Offset_1 07dd 380f |8 | Execute Record,Field_Write,Field_Number 0xf 07de 8008 | | Call 0x0,0x8 07df e258 | X | Load 0x1,0x58 07e0 3011 |0 | Execute Record,Field_Type,Field_Number 0x11 07e1 0119 | | Execute Any,Check_In_Formal_Type 07e2 00d9 | | Load_Top At_Offset_1 07e3 3811 |8 | Execute Record,Field_Write,Field_Number 0x11 07e4 e009 | | Load 0x0,0x9 07e5 00d9 | | Load_Top At_Offset_1 07e6 3812 |8 | Execute Record,Field_Write,Field_Number 0x12 07e7 4800 |H | Short_Literal 0x0 07e8 00d9 | | Load_Top At_Offset_1 07e9 3810 |8 | Execute Record,Field_Write,Field_Number 0x10 07ea 4800 |H | Short_Literal 0x0 07eb 00d9 | | Load_Top At_Offset_1 07ec 3813 |8 | Execute Record,Field_Write,Field_Number 0x13 07ed 4800 |H | Short_Literal 0x0 07ee 00d9 | | Load_Top At_Offset_1 07ef 3814 |8 | Execute Record,Field_Write,Field_Number 0x14 07f0 4800 |H | Short_Literal 0x0 07f1 00d9 | | Load_Top At_Offset_1 07f2 3815 |8 | Execute Record,Field_Write,Field_Number 0x15 07f3 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 07f4 0000 0000 | | .BLANK 0000[0x4] 07f8 ; -------------------------------------------------------------------------------------- 07f8 ; SUBPROGRAM 07f8 ; -------------------------------------------------------------------------------------- 07f8 07fb | | .CONST 0x07fb ; Address of begin 07f9 0004 | | .CONST 0x0004 ; Address of exception handler 07fa 0001 | | .CONST 0x0001 ; Number of locals 07fb BODY_07f8: 07fb INIT_07f8: 07fb 00db | | Load_Top At_Offset_3 07fc 800d | | Call 0x0,0xd 07fd 4606 |F | Jump_Case 0x7 07fe 7807 |x | Jump 0x806 ; case 0x0 07ff 7806 |x | Jump 0x806 ; case 0x1 0800 784e |xN | Jump 0x84f ; case 0x2 0801 7804 |x | Jump 0x806 ; case 0x3 0802 7803 |x | Jump 0x806 ; case 0x4 0803 7894 |x | Jump 0x898 ; case 0x5 0804 7800 |x | Jump 0x805 ; case 0x6 0805 08e2 | | Execute_Immediate Raise,0xe2 0806 e258 | X | Load 0x1,0x58 0807 0322 | " | Declare_Variable Record 0808 4811 |H | Short_Literal 0x11 0809 00d9 | | Load_Top At_Offset_1 080a 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 080b 00db | | Load_Top At_Offset_3 080c 00d9 | | Load_Top At_Offset_1 080d 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 080e e5fd | | Load 0x2,-0x3 080f 00d9 | | Load_Top At_Offset_1 0810 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0811 4800 |H | Short_Literal 0x0 0812 00d9 | | Load_Top At_Offset_1 0813 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 0814 e5fe | | Load 0x2,-0x2 0815 00d9 | | Load_Top At_Offset_1 0816 3807 |8 | Execute Record,Field_Write,Field_Number 0x7 0817 4800 |H | Short_Literal 0x0 0818 00d9 | | Load_Top At_Offset_1 0819 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 081a e002 | | Load 0x0,0x2 081b 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 081c 00d9 | | Load_Top At_Offset_1 081d 3805 |8 | Execute Record,Field_Write,Field_Number 0x5 081e 4800 |H | Short_Literal 0x0 081f 00d9 | | Load_Top At_Offset_1 0820 3806 |8 | Execute Record,Field_Write,Field_Number 0x6 0821 4800 |H | Short_Literal 0x0 0822 00d9 | | Load_Top At_Offset_1 0823 3808 |8 | Execute Record,Field_Write,Field_Number 0x8 0824 4800 |H | Short_Literal 0x0 0825 00d9 | | Load_Top At_Offset_1 0826 3809 |8 | Execute Record,Field_Write,Field_Number 0x9 0827 4800 |H | Short_Literal 0x0 0828 00d9 | | Load_Top At_Offset_1 0829 380a |8 | Execute Record,Field_Write,Field_Number 0xa 082a 4800 |H | Short_Literal 0x0 082b 00d9 | | Load_Top At_Offset_1 082c 380b |8 | Execute Record,Field_Write,Field_Number 0xb 082d 4800 |H | Short_Literal 0x0 082e 00d9 | | Load_Top At_Offset_1 082f 380c |8 | Execute Record,Field_Write,Field_Number 0xc 0830 4800 |H | Short_Literal 0x0 0831 00d9 | | Load_Top At_Offset_1 0832 380d |8 | Execute Record,Field_Write,Field_Number 0xd 0833 8007 | | Call 0x0,0x7 0834 00d9 | | Load_Top At_Offset_1 0835 380e |8 | Execute Record,Field_Write,Field_Number 0xe 0836 4800 |H | Short_Literal 0x0 0837 00d9 | | Load_Top At_Offset_1 0838 380f |8 | Execute Record,Field_Write,Field_Number 0xf 0839 8008 | | Call 0x0,0x8 083a e258 | X | Load 0x1,0x58 083b 3011 |0 | Execute Record,Field_Type,Field_Number 0x11 083c 0119 | | Execute Any,Check_In_Formal_Type 083d 00d9 | | Load_Top At_Offset_1 083e 3811 |8 | Execute Record,Field_Write,Field_Number 0x11 083f e009 | | Load 0x0,0x9 0840 00d9 | | Load_Top At_Offset_1 0841 3812 |8 | Execute Record,Field_Write,Field_Number 0x12 0842 4800 |H | Short_Literal 0x0 0843 00d9 | | Load_Top At_Offset_1 0844 3810 |8 | Execute Record,Field_Write,Field_Number 0x10 0845 4800 |H | Short_Literal 0x0 0846 00d9 | | Load_Top At_Offset_1 0847 3813 |8 | Execute Record,Field_Write,Field_Number 0x13 0848 4800 |H | Short_Literal 0x0 0849 00d9 | | Load_Top At_Offset_1 084a 3814 |8 | Execute Record,Field_Write,Field_Number 0x14 084b 4800 |H | Short_Literal 0x0 084c 00d9 | | Load_Top At_Offset_1 084d 3815 |8 | Execute Record,Field_Write,Field_Number 0x15 084e 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 084f e258 | X | Load 0x1,0x58 0850 0322 | " | Declare_Variable Record 0851 4812 |H | Short_Literal 0x12 0852 00d9 | | Load_Top At_Offset_1 0853 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0854 00db | | Load_Top At_Offset_3 0855 00d9 | | Load_Top At_Offset_1 0856 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0857 e5fd | | Load 0x2,-0x3 0858 00d9 | | Load_Top At_Offset_1 0859 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 085a 4800 |H | Short_Literal 0x0 085b 00d9 | | Load_Top At_Offset_1 085c 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 085d e5fe | | Load 0x2,-0x2 085e 00d9 | | Load_Top At_Offset_1 085f 3807 |8 | Execute Record,Field_Write,Field_Number 0x7 0860 4800 |H | Short_Literal 0x0 0861 00d9 | | Load_Top At_Offset_1 0862 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 0863 e002 | | Load 0x0,0x2 0864 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 0865 00d9 | | Load_Top At_Offset_1 0866 3805 |8 | Execute Record,Field_Write,Field_Number 0x5 0867 4800 |H | Short_Literal 0x0 0868 00d9 | | Load_Top At_Offset_1 0869 3806 |8 | Execute Record,Field_Write,Field_Number 0x6 086a 4800 |H | Short_Literal 0x0 086b 00d9 | | Load_Top At_Offset_1 086c 3808 |8 | Execute Record,Field_Write,Field_Number 0x8 086d 4800 |H | Short_Literal 0x0 086e 00d9 | | Load_Top At_Offset_1 086f 3809 |8 | Execute Record,Field_Write,Field_Number 0x9 0870 4800 |H | Short_Literal 0x0 0871 00d9 | | Load_Top At_Offset_1 0872 380a |8 | Execute Record,Field_Write,Field_Number 0xa 0873 4800 |H | Short_Literal 0x0 0874 00d9 | | Load_Top At_Offset_1 0875 380b |8 | Execute Record,Field_Write,Field_Number 0xb 0876 4800 |H | Short_Literal 0x0 0877 00d9 | | Load_Top At_Offset_1 0878 380c |8 | Execute Record,Field_Write,Field_Number 0xc 0879 4800 |H | Short_Literal 0x0 087a 00d9 | | Load_Top At_Offset_1 087b 380d |8 | Execute Record,Field_Write,Field_Number 0xd 087c 8007 | | Call 0x0,0x7 087d 00d9 | | Load_Top At_Offset_1 087e 380e |8 | Execute Record,Field_Write,Field_Number 0xe 087f 4800 |H | Short_Literal 0x0 0880 00d9 | | Load_Top At_Offset_1 0881 380f |8 | Execute Record,Field_Write,Field_Number 0xf 0882 8008 | | Call 0x0,0x8 0883 e258 | X | Load 0x1,0x58 0884 3011 |0 | Execute Record,Field_Type,Field_Number 0x11 0885 0119 | | Execute Any,Check_In_Formal_Type 0886 00d9 | | Load_Top At_Offset_1 0887 3811 |8 | Execute Record,Field_Write,Field_Number 0x11 0888 e009 | | Load 0x0,0x9 0889 00d9 | | Load_Top At_Offset_1 088a 3812 |8 | Execute Record,Field_Write,Field_Number 0x12 088b 4800 |H | Short_Literal 0x0 088c 00d9 | | Load_Top At_Offset_1 088d 3810 |8 | Execute Record,Field_Write,Field_Number 0x10 088e 4800 |H | Short_Literal 0x0 088f 00d9 | | Load_Top At_Offset_1 0890 3813 |8 | Execute Record,Field_Write,Field_Number 0x13 0891 4800 |H | Short_Literal 0x0 0892 00d9 | | Load_Top At_Offset_1 0893 3814 |8 | Execute Record,Field_Write,Field_Number 0x14 0894 4800 |H | Short_Literal 0x0 0895 00d9 | | Load_Top At_Offset_1 0896 3815 |8 | Execute Record,Field_Write,Field_Number 0x15 0897 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0898 08e0 | | Execute_Immediate Raise,0xe0 0899 0000 0000 | | .BLANK 0000[0x7] 08a0 ; -------------------------------------------------------------------------------------- 08a0 ; SUBPROGRAM 08a0 ; -------------------------------------------------------------------------------------- 08a0 08a3 | | .CONST 0x08a3 ; Address of begin 08a1 0004 | | .CONST 0x0004 ; Address of exception handler 08a2 0001 | | .CONST 0x0001 ; Number of locals 08a3 BODY_08a0: 08a3 INIT_08a0: 08a3 e258 | X | Load 0x1,0x58 08a4 0322 | " | Declare_Variable Record 08a5 4814 |H | Short_Literal 0x14 08a6 00d9 | | Load_Top At_Offset_1 08a7 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 08a8 e5fe | | Load 0x2,-0x2 08a9 00d9 | | Load_Top At_Offset_1 08aa 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 08ab 4800 |H | Short_Literal 0x0 08ac 00d9 | | Load_Top At_Offset_1 08ad 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 08ae 00db | | Load_Top At_Offset_3 08af 00d9 | | Load_Top At_Offset_1 08b0 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 08b1 4800 |H | Short_Literal 0x0 08b2 00d9 | | Load_Top At_Offset_1 08b3 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 08b4 e002 | | Load 0x0,0x2 08b5 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 08b6 00d9 | | Load_Top At_Offset_1 08b7 3805 |8 | Execute Record,Field_Write,Field_Number 0x5 08b8 4800 |H | Short_Literal 0x0 08b9 00d9 | | Load_Top At_Offset_1 08ba 3806 |8 | Execute Record,Field_Write,Field_Number 0x6 08bb 8006 | | Call 0x0,0x6 08bc 00d9 | | Load_Top At_Offset_1 08bd 3807 |8 | Execute Record,Field_Write,Field_Number 0x7 08be 4800 |H | Short_Literal 0x0 08bf 00d9 | | Load_Top At_Offset_1 08c0 3808 |8 | Execute Record,Field_Write,Field_Number 0x8 08c1 4800 |H | Short_Literal 0x0 08c2 00d9 | | Load_Top At_Offset_1 08c3 3809 |8 | Execute Record,Field_Write,Field_Number 0x9 08c4 4800 |H | Short_Literal 0x0 08c5 00d9 | | Load_Top At_Offset_1 08c6 380a |8 | Execute Record,Field_Write,Field_Number 0xa 08c7 4800 |H | Short_Literal 0x0 08c8 00d9 | | Load_Top At_Offset_1 08c9 380b |8 | Execute Record,Field_Write,Field_Number 0xb 08ca 4800 |H | Short_Literal 0x0 08cb 00d9 | | Load_Top At_Offset_1 08cc 380c |8 | Execute Record,Field_Write,Field_Number 0xc 08cd 4800 |H | Short_Literal 0x0 08ce 00d9 | | Load_Top At_Offset_1 08cf 380d |8 | Execute Record,Field_Write,Field_Number 0xd 08d0 8007 | | Call 0x0,0x7 08d1 00d9 | | Load_Top At_Offset_1 08d2 380e |8 | Execute Record,Field_Write,Field_Number 0xe 08d3 4800 |H | Short_Literal 0x0 08d4 00d9 | | Load_Top At_Offset_1 08d5 380f |8 | Execute Record,Field_Write,Field_Number 0xf 08d6 8008 | | Call 0x0,0x8 08d7 e258 | X | Load 0x1,0x58 08d8 3011 |0 | Execute Record,Field_Type,Field_Number 0x11 08d9 0119 | | Execute Any,Check_In_Formal_Type 08da 00d9 | | Load_Top At_Offset_1 08db 3811 |8 | Execute Record,Field_Write,Field_Number 0x11 08dc e009 | | Load 0x0,0x9 08dd 00d9 | | Load_Top At_Offset_1 08de 3812 |8 | Execute Record,Field_Write,Field_Number 0x12 08df 4800 |H | Short_Literal 0x0 08e0 00d9 | | Load_Top At_Offset_1 08e1 3810 |8 | Execute Record,Field_Write,Field_Number 0x10 08e2 4800 |H | Short_Literal 0x0 08e3 00d9 | | Load_Top At_Offset_1 08e4 3813 |8 | Execute Record,Field_Write,Field_Number 0x13 08e5 4800 |H | Short_Literal 0x0 08e6 00d9 | | Load_Top At_Offset_1 08e7 3814 |8 | Execute Record,Field_Write,Field_Number 0x14 08e8 4800 |H | Short_Literal 0x0 08e9 00d9 | | Load_Top At_Offset_1 08ea 3815 |8 | Execute Record,Field_Write,Field_Number 0x15 08eb 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 08ec 0000 0000 | | .BLANK 0000[0x4] 08f0 ; -------------------------------------------------------------------------------------- 08f0 ; SUBPROGRAM 08f0 ; -------------------------------------------------------------------------------------- 08f0 08f3 | | .CONST 0x08f3 ; Address of begin 08f1 0004 | | .CONST 0x0004 ; Address of exception handler 08f2 0001 | | .CONST 0x0001 ; Number of locals 08f3 BODY_08f0: 08f3 INIT_08f0: 08f3 e258 | X | Load 0x1,0x58 08f4 0322 | " | Declare_Variable Record 08f5 4815 |H | Short_Literal 0x15 08f6 00d9 | | Load_Top At_Offset_1 08f7 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 08f8 00db | | Load_Top At_Offset_3 08f9 00d9 | | Load_Top At_Offset_1 08fa 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 08fb 4800 |H | Short_Literal 0x0 08fc 00d9 | | Load_Top At_Offset_1 08fd 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 08fe 4801 |H | Short_Literal 0x1 08ff 00d9 | | Load_Top At_Offset_1 0900 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 0901 e5fe | | Load 0x2,-0x2 0902 00d9 | | Load_Top At_Offset_1 0903 3809 |8 | Execute Record,Field_Write,Field_Number 0x9 0904 4800 |H | Short_Literal 0x0 0905 00d9 | | Load_Top At_Offset_1 0906 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 0907 e002 | | Load 0x0,0x2 0908 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 0909 00d9 | | Load_Top At_Offset_1 090a 3805 |8 | Execute Record,Field_Write,Field_Number 0x5 090b 4800 |H | Short_Literal 0x0 090c 00d9 | | Load_Top At_Offset_1 090d 3806 |8 | Execute Record,Field_Write,Field_Number 0x6 090e 8006 | | Call 0x0,0x6 090f 00d9 | | Load_Top At_Offset_1 0910 3807 |8 | Execute Record,Field_Write,Field_Number 0x7 0911 4800 |H | Short_Literal 0x0 0912 00d9 | | Load_Top At_Offset_1 0913 3808 |8 | Execute Record,Field_Write,Field_Number 0x8 0914 4800 |H | Short_Literal 0x0 0915 00d9 | | Load_Top At_Offset_1 0916 380a |8 | Execute Record,Field_Write,Field_Number 0xa 0917 4800 |H | Short_Literal 0x0 0918 00d9 | | Load_Top At_Offset_1 0919 380b |8 | Execute Record,Field_Write,Field_Number 0xb 091a 4800 |H | Short_Literal 0x0 091b 00d9 | | Load_Top At_Offset_1 091c 380c |8 | Execute Record,Field_Write,Field_Number 0xc 091d 4800 |H | Short_Literal 0x0 091e 00d9 | | Load_Top At_Offset_1 091f 380d |8 | Execute Record,Field_Write,Field_Number 0xd 0920 8007 | | Call 0x0,0x7 0921 00d9 | | Load_Top At_Offset_1 0922 380e |8 | Execute Record,Field_Write,Field_Number 0xe 0923 4800 |H | Short_Literal 0x0 0924 00d9 | | Load_Top At_Offset_1 0925 380f |8 | Execute Record,Field_Write,Field_Number 0xf 0926 8008 | | Call 0x0,0x8 0927 e258 | X | Load 0x1,0x58 0928 3011 |0 | Execute Record,Field_Type,Field_Number 0x11 0929 0119 | | Execute Any,Check_In_Formal_Type 092a 00d9 | | Load_Top At_Offset_1 092b 3811 |8 | Execute Record,Field_Write,Field_Number 0x11 092c e009 | | Load 0x0,0x9 092d 00d9 | | Load_Top At_Offset_1 092e 3812 |8 | Execute Record,Field_Write,Field_Number 0x12 092f 4800 |H | Short_Literal 0x0 0930 00d9 | | Load_Top At_Offset_1 0931 3810 |8 | Execute Record,Field_Write,Field_Number 0x10 0932 4800 |H | Short_Literal 0x0 0933 00d9 | | Load_Top At_Offset_1 0934 3813 |8 | Execute Record,Field_Write,Field_Number 0x13 0935 4800 |H | Short_Literal 0x0 0936 00d9 | | Load_Top At_Offset_1 0937 3814 |8 | Execute Record,Field_Write,Field_Number 0x14 0938 4800 |H | Short_Literal 0x0 0939 00d9 | | Load_Top At_Offset_1 093a 3815 |8 | Execute Record,Field_Write,Field_Number 0x15 093b 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 093c 0000 0000 | | .BLANK 0000[0x4] 0940 ; -------------------------------------------------------------------------------------- 0940 ; SUBPROGRAM 0940 ; -------------------------------------------------------------------------------------- 0940 0943 | C | .CONST 0x0943 ; Address of begin 0941 0004 | | .CONST 0x0004 ; Address of exception handler 0942 0001 | | .CONST 0x0001 ; Number of locals 0943 BODY_0940: 0943 INIT_0940: 0943 e258 | X | Load 0x1,0x58 0944 0322 | " | Declare_Variable Record 0945 4813 |H | Short_Literal 0x13 0946 00d9 | | Load_Top At_Offset_1 0947 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0948 00db | | Load_Top At_Offset_3 0949 00d9 | | Load_Top At_Offset_1 094a 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 094b 4800 |H | Short_Literal 0x0 094c 00d9 | | Load_Top At_Offset_1 094d 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 094e e5fe | | Load 0x2,-0x2 094f 00d9 | | Load_Top At_Offset_1 0950 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 0951 4800 |H | Short_Literal 0x0 0952 00d9 | | Load_Top At_Offset_1 0953 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 0954 e002 | | Load 0x0,0x2 0955 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 0956 00d9 | | Load_Top At_Offset_1 0957 3805 |8 | Execute Record,Field_Write,Field_Number 0x5 0958 4800 |H | Short_Literal 0x0 0959 00d9 | | Load_Top At_Offset_1 095a 3806 |8 | Execute Record,Field_Write,Field_Number 0x6 095b 8006 | | Call 0x0,0x6 095c 00d9 | | Load_Top At_Offset_1 095d 3807 |8 | Execute Record,Field_Write,Field_Number 0x7 095e 4800 |H | Short_Literal 0x0 095f 00d9 | | Load_Top At_Offset_1 0960 3808 |8 | Execute Record,Field_Write,Field_Number 0x8 0961 4800 |H | Short_Literal 0x0 0962 00d9 | | Load_Top At_Offset_1 0963 3809 |8 | Execute Record,Field_Write,Field_Number 0x9 0964 4800 |H | Short_Literal 0x0 0965 00d9 | | Load_Top At_Offset_1 0966 380a |8 | Execute Record,Field_Write,Field_Number 0xa 0967 4800 |H | Short_Literal 0x0 0968 00d9 | | Load_Top At_Offset_1 0969 380b |8 | Execute Record,Field_Write,Field_Number 0xb 096a 4800 |H | Short_Literal 0x0 096b 00d9 | | Load_Top At_Offset_1 096c 380c |8 | Execute Record,Field_Write,Field_Number 0xc 096d 4800 |H | Short_Literal 0x0 096e 00d9 | | Load_Top At_Offset_1 096f 380d |8 | Execute Record,Field_Write,Field_Number 0xd 0970 8007 | | Call 0x0,0x7 0971 00d9 | | Load_Top At_Offset_1 0972 380e |8 | Execute Record,Field_Write,Field_Number 0xe 0973 4800 |H | Short_Literal 0x0 0974 00d9 | | Load_Top At_Offset_1 0975 380f |8 | Execute Record,Field_Write,Field_Number 0xf 0976 8008 | | Call 0x0,0x8 0977 e258 | X | Load 0x1,0x58 0978 3011 |0 | Execute Record,Field_Type,Field_Number 0x11 0979 0119 | | Execute Any,Check_In_Formal_Type 097a 00d9 | | Load_Top At_Offset_1 097b 3811 |8 | Execute Record,Field_Write,Field_Number 0x11 097c e009 | | Load 0x0,0x9 097d 00d9 | | Load_Top At_Offset_1 097e 3812 |8 | Execute Record,Field_Write,Field_Number 0x12 097f 4800 |H | Short_Literal 0x0 0980 00d9 | | Load_Top At_Offset_1 0981 3810 |8 | Execute Record,Field_Write,Field_Number 0x10 0982 4800 |H | Short_Literal 0x0 0983 00d9 | | Load_Top At_Offset_1 0984 3813 |8 | Execute Record,Field_Write,Field_Number 0x13 0985 4800 |H | Short_Literal 0x0 0986 00d9 | | Load_Top At_Offset_1 0987 3814 |8 | Execute Record,Field_Write,Field_Number 0x14 0988 4800 |H | Short_Literal 0x0 0989 00d9 | | Load_Top At_Offset_1 098a 3815 |8 | Execute Record,Field_Write,Field_Number 0x15 098b 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 098c 0000 0000 | | .BLANK 0000[0x4] 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 e258 | X | Load 0x1,0x58 0994 0322 | " | Declare_Variable Record 0995 481b |H | Short_Literal 0x1b 0996 00d9 | | Load_Top At_Offset_1 0997 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0998 00db | | Load_Top At_Offset_3 0999 00d9 | | Load_Top At_Offset_1 099a 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 099b 4800 |H | Short_Literal 0x0 099c 00d9 | | Load_Top At_Offset_1 099d 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 099e 4800 |H | Short_Literal 0x0 099f 00d9 | | Load_Top At_Offset_1 09a0 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 09a1 4800 |H | Short_Literal 0x0 09a2 00d9 | | Load_Top At_Offset_1 09a3 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 09a4 e002 | | Load 0x0,0x2 09a5 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 09a6 00d9 | | Load_Top At_Offset_1 09a7 3805 |8 | Execute Record,Field_Write,Field_Number 0x5 09a8 4800 |H | Short_Literal 0x0 09a9 00d9 | | Load_Top At_Offset_1 09aa 3806 |8 | Execute Record,Field_Write,Field_Number 0x6 09ab 8006 | | Call 0x0,0x6 09ac 00d9 | | Load_Top At_Offset_1 09ad 3807 |8 | Execute Record,Field_Write,Field_Number 0x7 09ae 4800 |H | Short_Literal 0x0 09af 00d9 | | Load_Top At_Offset_1 09b0 3808 |8 | Execute Record,Field_Write,Field_Number 0x8 09b1 4800 |H | Short_Literal 0x0 09b2 00d9 | | Load_Top At_Offset_1 09b3 3809 |8 | Execute Record,Field_Write,Field_Number 0x9 09b4 4800 |H | Short_Literal 0x0 09b5 00d9 | | Load_Top At_Offset_1 09b6 380a |8 | Execute Record,Field_Write,Field_Number 0xa 09b7 4800 |H | Short_Literal 0x0 09b8 00d9 | | Load_Top At_Offset_1 09b9 380b |8 | Execute Record,Field_Write,Field_Number 0xb 09ba 4800 |H | Short_Literal 0x0 09bb 00d9 | | Load_Top At_Offset_1 09bc 380c |8 | Execute Record,Field_Write,Field_Number 0xc 09bd 4800 |H | Short_Literal 0x0 09be 00d9 | | Load_Top At_Offset_1 09bf 380d |8 | Execute Record,Field_Write,Field_Number 0xd 09c0 8007 | | Call 0x0,0x7 09c1 00d9 | | Load_Top At_Offset_1 09c2 380e |8 | Execute Record,Field_Write,Field_Number 0xe 09c3 4800 |H | Short_Literal 0x0 09c4 00d9 | | Load_Top At_Offset_1 09c5 380f |8 | Execute Record,Field_Write,Field_Number 0xf 09c6 8008 | | Call 0x0,0x8 09c7 e258 | X | Load 0x1,0x58 09c8 3011 |0 | Execute Record,Field_Type,Field_Number 0x11 09c9 0119 | | Execute Any,Check_In_Formal_Type 09ca 00d9 | | Load_Top At_Offset_1 09cb 3811 |8 | Execute Record,Field_Write,Field_Number 0x11 09cc e009 | | Load 0x0,0x9 09cd 00d9 | | Load_Top At_Offset_1 09ce 3812 |8 | Execute Record,Field_Write,Field_Number 0x12 09cf 4800 |H | Short_Literal 0x0 09d0 00d9 | | Load_Top At_Offset_1 09d1 3810 |8 | Execute Record,Field_Write,Field_Number 0x10 09d2 4800 |H | Short_Literal 0x0 09d3 00d9 | | Load_Top At_Offset_1 09d4 3813 |8 | Execute Record,Field_Write,Field_Number 0x13 09d5 4800 |H | Short_Literal 0x0 09d6 00d9 | | Load_Top At_Offset_1 09d7 3814 |8 | Execute Record,Field_Write,Field_Number 0x14 09d8 4800 |H | Short_Literal 0x0 09d9 00d9 | | Load_Top At_Offset_1 09da 3815 |8 | Execute Record,Field_Write,Field_Number 0x15 09db 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 09dc 0000 0000 | | .BLANK 0000[0x4] 09e0 ; -------------------------------------------------------------------------------------- 09e0 ; SUBPROGRAM 09e0 ; -------------------------------------------------------------------------------------- 09e0 09e3 | | .CONST 0x09e3 ; Address of begin 09e1 0004 | | .CONST 0x0004 ; Address of exception handler 09e2 0001 | | .CONST 0x0001 ; Number of locals 09e3 BODY_09e0: 09e3 INIT_09e0: 09e3 e258 | X | Load 0x1,0x58 09e4 0322 | " | Declare_Variable Record 09e5 4816 |H | Short_Literal 0x16 09e6 00d9 | | Load_Top At_Offset_1 09e7 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 09e8 00db | | Load_Top At_Offset_3 09e9 00d9 | | Load_Top At_Offset_1 09ea 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 09eb 4800 |H | Short_Literal 0x0 09ec 00d9 | | Load_Top At_Offset_1 09ed 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 09ee 4800 |H | Short_Literal 0x0 09ef 00d9 | | Load_Top At_Offset_1 09f0 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 09f1 4800 |H | Short_Literal 0x0 09f2 00d9 | | Load_Top At_Offset_1 09f3 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 09f4 e002 | | Load 0x0,0x2 09f5 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 09f6 00d9 | | Load_Top At_Offset_1 09f7 3805 |8 | Execute Record,Field_Write,Field_Number 0x5 09f8 4800 |H | Short_Literal 0x0 09f9 00d9 | | Load_Top At_Offset_1 09fa 3806 |8 | Execute Record,Field_Write,Field_Number 0x6 09fb 8006 | | Call 0x0,0x6 09fc 00d9 | | Load_Top At_Offset_1 09fd 3807 |8 | Execute Record,Field_Write,Field_Number 0x7 09fe 4800 |H | Short_Literal 0x0 09ff 00d9 | | Load_Top At_Offset_1 0a00 3808 |8 | Execute Record,Field_Write,Field_Number 0x8 0a01 4800 |H | Short_Literal 0x0 0a02 00d9 | | Load_Top At_Offset_1 0a03 3809 |8 | Execute Record,Field_Write,Field_Number 0x9 0a04 4800 |H | Short_Literal 0x0 0a05 00d9 | | Load_Top At_Offset_1 0a06 380a |8 | Execute Record,Field_Write,Field_Number 0xa 0a07 4800 |H | Short_Literal 0x0 0a08 00d9 | | Load_Top At_Offset_1 0a09 380b |8 | Execute Record,Field_Write,Field_Number 0xb 0a0a 4800 |H | Short_Literal 0x0 0a0b 00d9 | | Load_Top At_Offset_1 0a0c 380c |8 | Execute Record,Field_Write,Field_Number 0xc 0a0d 4800 |H | Short_Literal 0x0 0a0e 00d9 | | Load_Top At_Offset_1 0a0f 380d |8 | Execute Record,Field_Write,Field_Number 0xd 0a10 8007 | | Call 0x0,0x7 0a11 00d9 | | Load_Top At_Offset_1 0a12 380e |8 | Execute Record,Field_Write,Field_Number 0xe 0a13 4800 |H | Short_Literal 0x0 0a14 00d9 | | Load_Top At_Offset_1 0a15 380f |8 | Execute Record,Field_Write,Field_Number 0xf 0a16 8008 | | Call 0x0,0x8 0a17 e258 | X | Load 0x1,0x58 0a18 3011 |0 | Execute Record,Field_Type,Field_Number 0x11 0a19 0119 | | Execute Any,Check_In_Formal_Type 0a1a 00d9 | | Load_Top At_Offset_1 0a1b 3811 |8 | Execute Record,Field_Write,Field_Number 0x11 0a1c e009 | | Load 0x0,0x9 0a1d 00d9 | | Load_Top At_Offset_1 0a1e 3812 |8 | Execute Record,Field_Write,Field_Number 0x12 0a1f 4800 |H | Short_Literal 0x0 0a20 00d9 | | Load_Top At_Offset_1 0a21 3810 |8 | Execute Record,Field_Write,Field_Number 0x10 0a22 4800 |H | Short_Literal 0x0 0a23 00d9 | | Load_Top At_Offset_1 0a24 3813 |8 | Execute Record,Field_Write,Field_Number 0x13 0a25 4800 |H | Short_Literal 0x0 0a26 00d9 | | Load_Top At_Offset_1 0a27 3814 |8 | Execute Record,Field_Write,Field_Number 0x14 0a28 4800 |H | Short_Literal 0x0 0a29 00d9 | | Load_Top At_Offset_1 0a2a 3815 |8 | Execute Record,Field_Write,Field_Number 0x15 0a2b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0a2c 0000 0000 | | .BLANK 0000[0x4] 0a30 ; -------------------------------------------------------------------------------------- 0a30 ; SUBPROGRAM 0a30 ; -------------------------------------------------------------------------------------- 0a30 0a33 | 3 | .CONST 0x0a33 ; Address of begin 0a31 0004 | | .CONST 0x0004 ; Address of exception handler 0a32 0001 | | .CONST 0x0001 ; Number of locals 0a33 BODY_0a30: 0a33 INIT_0a30: 0a33 e258 | X | Load 0x1,0x58 0a34 0322 | " | Declare_Variable Record 0a35 4817 |H | Short_Literal 0x17 0a36 00d9 | | Load_Top At_Offset_1 0a37 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0a38 00db | | Load_Top At_Offset_3 0a39 00d9 | | Load_Top At_Offset_1 0a3a 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0a3b 4800 |H | Short_Literal 0x0 0a3c 00d9 | | Load_Top At_Offset_1 0a3d 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0a3e 4800 |H | Short_Literal 0x0 0a3f 00d9 | | Load_Top At_Offset_1 0a40 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 0a41 4800 |H | Short_Literal 0x0 0a42 00d9 | | Load_Top At_Offset_1 0a43 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 0a44 e002 | | Load 0x0,0x2 0a45 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 0a46 00d9 | | Load_Top At_Offset_1 0a47 3805 |8 | Execute Record,Field_Write,Field_Number 0x5 0a48 4800 |H | Short_Literal 0x0 0a49 00d9 | | Load_Top At_Offset_1 0a4a 3806 |8 | Execute Record,Field_Write,Field_Number 0x6 0a4b 8006 | | Call 0x0,0x6 0a4c 00d9 | | Load_Top At_Offset_1 0a4d 3807 |8 | Execute Record,Field_Write,Field_Number 0x7 0a4e 4800 |H | Short_Literal 0x0 0a4f 00d9 | | Load_Top At_Offset_1 0a50 3808 |8 | Execute Record,Field_Write,Field_Number 0x8 0a51 4800 |H | Short_Literal 0x0 0a52 00d9 | | Load_Top At_Offset_1 0a53 3809 |8 | Execute Record,Field_Write,Field_Number 0x9 0a54 4800 |H | Short_Literal 0x0 0a55 00d9 | | Load_Top At_Offset_1 0a56 380a |8 | Execute Record,Field_Write,Field_Number 0xa 0a57 4800 |H | Short_Literal 0x0 0a58 00d9 | | Load_Top At_Offset_1 0a59 380b |8 | Execute Record,Field_Write,Field_Number 0xb 0a5a 4800 |H | Short_Literal 0x0 0a5b 00d9 | | Load_Top At_Offset_1 0a5c 380c |8 | Execute Record,Field_Write,Field_Number 0xc 0a5d 4800 |H | Short_Literal 0x0 0a5e 00d9 | | Load_Top At_Offset_1 0a5f 380d |8 | Execute Record,Field_Write,Field_Number 0xd 0a60 8007 | | Call 0x0,0x7 0a61 00d9 | | Load_Top At_Offset_1 0a62 380e |8 | Execute Record,Field_Write,Field_Number 0xe 0a63 4800 |H | Short_Literal 0x0 0a64 00d9 | | Load_Top At_Offset_1 0a65 380f |8 | Execute Record,Field_Write,Field_Number 0xf 0a66 8008 | | Call 0x0,0x8 0a67 e258 | X | Load 0x1,0x58 0a68 3011 |0 | Execute Record,Field_Type,Field_Number 0x11 0a69 0119 | | Execute Any,Check_In_Formal_Type 0a6a 00d9 | | Load_Top At_Offset_1 0a6b 3811 |8 | Execute Record,Field_Write,Field_Number 0x11 0a6c e009 | | Load 0x0,0x9 0a6d 00d9 | | Load_Top At_Offset_1 0a6e 3812 |8 | Execute Record,Field_Write,Field_Number 0x12 0a6f 4800 |H | Short_Literal 0x0 0a70 00d9 | | Load_Top At_Offset_1 0a71 3810 |8 | Execute Record,Field_Write,Field_Number 0x10 0a72 4800 |H | Short_Literal 0x0 0a73 00d9 | | Load_Top At_Offset_1 0a74 3813 |8 | Execute Record,Field_Write,Field_Number 0x13 0a75 4800 |H | Short_Literal 0x0 0a76 00d9 | | Load_Top At_Offset_1 0a77 3814 |8 | Execute Record,Field_Write,Field_Number 0x14 0a78 4800 |H | Short_Literal 0x0 0a79 00d9 | | Load_Top At_Offset_1 0a7a 3815 |8 | Execute Record,Field_Write,Field_Number 0x15 0a7b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0a7c 0000 0000 | | .BLANK 0000[0x4] 0a80 ; -------------------------------------------------------------------------------------- 0a80 ; SUBPROGRAM 0a80 ; -------------------------------------------------------------------------------------- 0a80 0a83 | | .CONST 0x0a83 ; Address of begin 0a81 0004 | | .CONST 0x0004 ; Address of exception handler 0a82 0001 | | .CONST 0x0001 ; Number of locals 0a83 BODY_0a80: 0a83 INIT_0a80: 0a83 e258 | X | Load 0x1,0x58 0a84 0322 | " | Declare_Variable Record 0a85 4818 |H | Short_Literal 0x18 0a86 00d9 | | Load_Top At_Offset_1 0a87 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0a88 00db | | Load_Top At_Offset_3 0a89 00d9 | | Load_Top At_Offset_1 0a8a 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0a8b e5fb | | Load 0x2,-0x5 0a8c 00d9 | | Load_Top At_Offset_1 0a8d 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0a8e 4800 |H | Short_Literal 0x0 0a8f 00d9 | | Load_Top At_Offset_1 0a90 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 0a91 e5fe | | Load 0x2,-0x2 0a92 00d9 | | Load_Top At_Offset_1 0a93 380a |8 | Execute Record,Field_Write,Field_Number 0xa 0a94 e5fd | | Load 0x2,-0x3 0a95 00d9 | | Load_Top At_Offset_1 0a96 380b |8 | Execute Record,Field_Write,Field_Number 0xb 0a97 e5fc | | Load 0x2,-0x4 0a98 00d9 | | Load_Top At_Offset_1 0a99 380c |8 | Execute Record,Field_Write,Field_Number 0xc 0a9a 4800 |H | Short_Literal 0x0 0a9b 00d9 | | Load_Top At_Offset_1 0a9c 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 0a9d e002 | | Load 0x0,0x2 0a9e 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 0a9f 00d9 | | Load_Top At_Offset_1 0aa0 3805 |8 | Execute Record,Field_Write,Field_Number 0x5 0aa1 4800 |H | Short_Literal 0x0 0aa2 00d9 | | Load_Top At_Offset_1 0aa3 3806 |8 | Execute Record,Field_Write,Field_Number 0x6 0aa4 8006 | | Call 0x0,0x6 0aa5 00d9 | | Load_Top At_Offset_1 0aa6 3807 |8 | Execute Record,Field_Write,Field_Number 0x7 0aa7 4800 |H | Short_Literal 0x0 0aa8 00d9 | | Load_Top At_Offset_1 0aa9 3808 |8 | Execute Record,Field_Write,Field_Number 0x8 0aaa 4800 |H | Short_Literal 0x0 0aab 00d9 | | Load_Top At_Offset_1 0aac 3809 |8 | Execute Record,Field_Write,Field_Number 0x9 0aad 4800 |H | Short_Literal 0x0 0aae 00d9 | | Load_Top At_Offset_1 0aaf 380d |8 | Execute Record,Field_Write,Field_Number 0xd 0ab0 8007 | | Call 0x0,0x7 0ab1 00d9 | | Load_Top At_Offset_1 0ab2 380e |8 | Execute Record,Field_Write,Field_Number 0xe 0ab3 4800 |H | Short_Literal 0x0 0ab4 00d9 | | Load_Top At_Offset_1 0ab5 380f |8 | Execute Record,Field_Write,Field_Number 0xf 0ab6 8008 | | Call 0x0,0x8 0ab7 e258 | X | Load 0x1,0x58 0ab8 3011 |0 | Execute Record,Field_Type,Field_Number 0x11 0ab9 0119 | | Execute Any,Check_In_Formal_Type 0aba 00d9 | | Load_Top At_Offset_1 0abb 3811 |8 | Execute Record,Field_Write,Field_Number 0x11 0abc e009 | | Load 0x0,0x9 0abd 00d9 | | Load_Top At_Offset_1 0abe 3812 |8 | Execute Record,Field_Write,Field_Number 0x12 0abf 4800 |H | Short_Literal 0x0 0ac0 00d9 | | Load_Top At_Offset_1 0ac1 3810 |8 | Execute Record,Field_Write,Field_Number 0x10 0ac2 4800 |H | Short_Literal 0x0 0ac3 00d9 | | Load_Top At_Offset_1 0ac4 3813 |8 | Execute Record,Field_Write,Field_Number 0x13 0ac5 4800 |H | Short_Literal 0x0 0ac6 00d9 | | Load_Top At_Offset_1 0ac7 3814 |8 | Execute Record,Field_Write,Field_Number 0x14 0ac8 4800 |H | Short_Literal 0x0 0ac9 00d9 | | Load_Top At_Offset_1 0aca 3815 |8 | Execute Record,Field_Write,Field_Number 0x15 0acb 4405 |D | Exit_Subprogram With_Value,New_Top_Offset 0x5 0acc 0000 0000 | | .BLANK 0000[0x4] 0ad0 ; -------------------------------------------------------------------------------------- 0ad0 ; SUBPROGRAM 0ad0 ; -------------------------------------------------------------------------------------- 0ad0 0ad3 | | .CONST 0x0ad3 ; Address of begin 0ad1 0004 | | .CONST 0x0004 ; Address of exception handler 0ad2 0001 | | .CONST 0x0001 ; Number of locals 0ad3 BODY_0ad0: 0ad3 INIT_0ad0: 0ad3 e258 | X | Load 0x1,0x58 0ad4 0322 | " | Declare_Variable Record 0ad5 4819 |H | Short_Literal 0x19 0ad6 00d9 | | Load_Top At_Offset_1 0ad7 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0ad8 00db | | Load_Top At_Offset_3 0ad9 00d9 | | Load_Top At_Offset_1 0ada 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0adb e5fd | | Load 0x2,-0x3 0adc 00d9 | | Load_Top At_Offset_1 0add 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0ade e5fc | | Load 0x2,-0x4 0adf 00d9 | | Load_Top At_Offset_1 0ae0 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 0ae1 e5fe | | Load 0x2,-0x2 0ae2 00d9 | | Load_Top At_Offset_1 0ae3 3808 |8 | Execute Record,Field_Write,Field_Number 0x8 0ae4 4800 |H | Short_Literal 0x0 0ae5 00d9 | | Load_Top At_Offset_1 0ae6 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 0ae7 e002 | | Load 0x0,0x2 0ae8 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 0ae9 00d9 | | Load_Top At_Offset_1 0aea 3805 |8 | Execute Record,Field_Write,Field_Number 0x5 0aeb 4800 |H | Short_Literal 0x0 0aec 00d9 | | Load_Top At_Offset_1 0aed 3806 |8 | Execute Record,Field_Write,Field_Number 0x6 0aee 8006 | | Call 0x0,0x6 0aef 00d9 | | Load_Top At_Offset_1 0af0 3807 |8 | Execute Record,Field_Write,Field_Number 0x7 0af1 4800 |H | Short_Literal 0x0 0af2 00d9 | | Load_Top At_Offset_1 0af3 3809 |8 | Execute Record,Field_Write,Field_Number 0x9 0af4 4800 |H | Short_Literal 0x0 0af5 00d9 | | Load_Top At_Offset_1 0af6 380a |8 | Execute Record,Field_Write,Field_Number 0xa 0af7 4800 |H | Short_Literal 0x0 0af8 00d9 | | Load_Top At_Offset_1 0af9 380b |8 | Execute Record,Field_Write,Field_Number 0xb 0afa 4800 |H | Short_Literal 0x0 0afb 00d9 | | Load_Top At_Offset_1 0afc 380c |8 | Execute Record,Field_Write,Field_Number 0xc 0afd 4800 |H | Short_Literal 0x0 0afe 00d9 | | Load_Top At_Offset_1 0aff 380d |8 | Execute Record,Field_Write,Field_Number 0xd 0b00 8007 | | Call 0x0,0x7 0b01 00d9 | | Load_Top At_Offset_1 0b02 380e |8 | Execute Record,Field_Write,Field_Number 0xe 0b03 4800 |H | Short_Literal 0x0 0b04 00d9 | | Load_Top At_Offset_1 0b05 380f |8 | Execute Record,Field_Write,Field_Number 0xf 0b06 8008 | | Call 0x0,0x8 0b07 e258 | X | Load 0x1,0x58 0b08 3011 |0 | Execute Record,Field_Type,Field_Number 0x11 0b09 0119 | | Execute Any,Check_In_Formal_Type 0b0a 00d9 | | Load_Top At_Offset_1 0b0b 3811 |8 | Execute Record,Field_Write,Field_Number 0x11 0b0c e009 | | Load 0x0,0x9 0b0d 00d9 | | Load_Top At_Offset_1 0b0e 3812 |8 | Execute Record,Field_Write,Field_Number 0x12 0b0f 4800 |H | Short_Literal 0x0 0b10 00d9 | | Load_Top At_Offset_1 0b11 3810 |8 | Execute Record,Field_Write,Field_Number 0x10 0b12 4800 |H | Short_Literal 0x0 0b13 00d9 | | Load_Top At_Offset_1 0b14 3813 |8 | Execute Record,Field_Write,Field_Number 0x13 0b15 4800 |H | Short_Literal 0x0 0b16 00d9 | | Load_Top At_Offset_1 0b17 3814 |8 | Execute Record,Field_Write,Field_Number 0x14 0b18 4800 |H | Short_Literal 0x0 0b19 00d9 | | Load_Top At_Offset_1 0b1a 3815 |8 | Execute Record,Field_Write,Field_Number 0x15 0b1b 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 0b1c 0000 0000 | | .BLANK 0000[0x4] 0b20 ; -------------------------------------------------------------------------------------- 0b20 ; SUBPROGRAM 0b20 ; -------------------------------------------------------------------------------------- 0b20 0b23 | # | .CONST 0x0b23 ; Address of begin 0b21 0004 | | .CONST 0x0004 ; Address of exception handler 0b22 0001 | | .CONST 0x0001 ; Number of locals 0b23 BODY_0b20: 0b23 INIT_0b20: 0b23 e258 | X | Load 0x1,0x58 0b24 0322 | " | Declare_Variable Record 0b25 481a |H | Short_Literal 0x1a 0b26 00d9 | | Load_Top At_Offset_1 0b27 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0b28 00db | | Load_Top At_Offset_3 0b29 00d9 | | Load_Top At_Offset_1 0b2a 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0b2b 4800 |H | Short_Literal 0x0 0b2c 00d9 | | Load_Top At_Offset_1 0b2d 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0b2e 4801 |H | Short_Literal 0x1 0b2f 00d9 | | Load_Top At_Offset_1 0b30 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 0b31 e5fe | | Load 0x2,-0x2 0b32 00d9 | | Load_Top At_Offset_1 0b33 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 0b34 e5fd | | Load 0x2,-0x3 0b35 00d9 | | Load_Top At_Offset_1 0b36 3805 |8 | Execute Record,Field_Write,Field_Number 0x5 0b37 4800 |H | Short_Literal 0x0 0b38 00d9 | | Load_Top At_Offset_1 0b39 3806 |8 | Execute Record,Field_Write,Field_Number 0x6 0b3a 8006 | | Call 0x0,0x6 0b3b 00d9 | | Load_Top At_Offset_1 0b3c 3807 |8 | Execute Record,Field_Write,Field_Number 0x7 0b3d 4800 |H | Short_Literal 0x0 0b3e 00d9 | | Load_Top At_Offset_1 0b3f 3808 |8 | Execute Record,Field_Write,Field_Number 0x8 0b40 4800 |H | Short_Literal 0x0 0b41 00d9 | | Load_Top At_Offset_1 0b42 3809 |8 | Execute Record,Field_Write,Field_Number 0x9 0b43 4800 |H | Short_Literal 0x0 0b44 00d9 | | Load_Top At_Offset_1 0b45 380a |8 | Execute Record,Field_Write,Field_Number 0xa 0b46 e5fc | | Load 0x2,-0x4 0b47 00d9 | | Load_Top At_Offset_1 0b48 380b |8 | Execute Record,Field_Write,Field_Number 0xb 0b49 4800 |H | Short_Literal 0x0 0b4a 00d9 | | Load_Top At_Offset_1 0b4b 380c |8 | Execute Record,Field_Write,Field_Number 0xc 0b4c 4800 |H | Short_Literal 0x0 0b4d 00d9 | | Load_Top At_Offset_1 0b4e 380d |8 | Execute Record,Field_Write,Field_Number 0xd 0b4f 8007 | | Call 0x0,0x7 0b50 00d9 | | Load_Top At_Offset_1 0b51 380e |8 | Execute Record,Field_Write,Field_Number 0xe 0b52 4800 |H | Short_Literal 0x0 0b53 00d9 | | Load_Top At_Offset_1 0b54 380f |8 | Execute Record,Field_Write,Field_Number 0xf 0b55 8008 | | Call 0x0,0x8 0b56 e258 | X | Load 0x1,0x58 0b57 3011 |0 | Execute Record,Field_Type,Field_Number 0x11 0b58 0119 | | Execute Any,Check_In_Formal_Type 0b59 00d9 | | Load_Top At_Offset_1 0b5a 3811 |8 | Execute Record,Field_Write,Field_Number 0x11 0b5b e009 | | Load 0x0,0x9 0b5c 00d9 | | Load_Top At_Offset_1 0b5d 3812 |8 | Execute Record,Field_Write,Field_Number 0x12 0b5e 4800 |H | Short_Literal 0x0 0b5f 00d9 | | Load_Top At_Offset_1 0b60 3810 |8 | Execute Record,Field_Write,Field_Number 0x10 0b61 4800 |H | Short_Literal 0x0 0b62 00d9 | | Load_Top At_Offset_1 0b63 3813 |8 | Execute Record,Field_Write,Field_Number 0x13 0b64 e5fb | | Load 0x2,-0x5 0b65 00d9 | | Load_Top At_Offset_1 0b66 3814 |8 | Execute Record,Field_Write,Field_Number 0x14 0b67 4800 |H | Short_Literal 0x0 0b68 00d9 | | Load_Top At_Offset_1 0b69 3815 |8 | Execute Record,Field_Write,Field_Number 0x15 0b6a 4405 |D | Exit_Subprogram With_Value,New_Top_Offset 0x5 0b6b 0000 0000 | | .BLANK 0000[0x5] 0b70 ; -------------------------------------------------------------------------------------- 0b70 ; SUBPROGRAM 0b70 ; -------------------------------------------------------------------------------------- 0b70 0b73 | s | .CONST 0x0b73 ; Address of begin 0b71 0004 | | .CONST 0x0004 ; Address of exception handler 0b72 0001 | | .CONST 0x0001 ; Number of locals 0b73 BODY_0b70: 0b73 INIT_0b70: 0b73 00da | | Load_Top At_Offset_2 0b74 e5fe | | Load 0x2,-0x2 0b75 3810 |8 | Execute Record,Field_Write,Field_Number 0x10 0b76 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0b77 0000 | | .XXX[0x1] 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 4801 |H | Short_Literal 0x1 0b7c 00db | | Load_Top At_Offset_3 0b7d 380d |8 | Execute Record,Field_Write,Field_Number 0xd 0b7e 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0b7f 0000 | | .XXX[0x1] 0b80 ; -------------------------------------------------------------------------------------- 0b80 ; SUBPROGRAM 0b80 ; -------------------------------------------------------------------------------------- 0b80 0b83 | | .CONST 0x0b83 ; Address of begin 0b81 0004 | | .CONST 0x0004 ; Address of exception handler 0b82 0001 | | .CONST 0x0001 ; Number of locals 0b83 BODY_0b80: 0b83 INIT_0b80: 0b83 00da | | Load_Top At_Offset_2 0b84 e5fd | | Load 0x2,-0x3 0b85 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0b86 00db | | Load_Top At_Offset_3 0b87 e5fd | | Load 0x2,-0x3 0b88 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 0b89 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0b8a 0000 0000 | | .BLANK 0000[0x6] 0b90 ; -------------------------------------------------------------------------------------- 0b90 ; SUBPROGRAM 0b90 ; -------------------------------------------------------------------------------------- 0b90 0b93 | | .CONST 0x0b93 ; Address of begin 0b91 0004 | | .CONST 0x0004 ; Address of exception handler 0b92 0001 | | .CONST 0x0001 ; Number of locals 0b93 BODY_0b90: 0b93 INIT_0b90: 0b93 00da | | Load_Top At_Offset_2 0b94 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0b95 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0b96 0000 0000 | | .XXX[0x2] 0b98 ; -------------------------------------------------------------------------------------- 0b98 ; SUBPROGRAM 0b98 ; -------------------------------------------------------------------------------------- 0b98 0b9b | | .CONST 0x0b9b ; Address of begin 0b99 0004 | | .CONST 0x0004 ; Address of exception handler 0b9a 0001 | | .CONST 0x0001 ; Number of locals 0b9b BODY_0b98: 0b9b INIT_0b98: 0b9b 00da | | Load_Top At_Offset_2 0b9c 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0b9d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0b9e 0000 0000 | | .XXX[0x2] 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 3c0d |< | Execute Record,Field_Read,Field_Number 0xd 0ba5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0ba6 0000 0000 | | .XXX[0x2] 0ba8 ; -------------------------------------------------------------------------------------- 0ba8 ; SUBPROGRAM 0ba8 ; -------------------------------------------------------------------------------------- 0ba8 0bab | | .CONST 0x0bab ; Address of begin 0ba9 0004 | | .CONST 0x0004 ; Address of exception handler 0baa 0001 | | .CONST 0x0001 ; Number of locals 0bab BODY_0ba8: 0bab INIT_0ba8: 0bab 00da | | Load_Top At_Offset_2 0bac 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0bad 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0bae 0000 0000 | | .XXX[0x2] 0bb0 ; -------------------------------------------------------------------------------------- 0bb0 ; SUBPROGRAM 0bb0 ; -------------------------------------------------------------------------------------- 0bb0 0bb3 | | .CONST 0x0bb3 ; Address of begin 0bb1 0004 | | .CONST 0x0004 ; Address of exception handler 0bb2 0001 | | .CONST 0x0001 ; Number of locals 0bb3 BODY_0bb0: 0bb3 INIT_0bb0: 0bb3 00da | | Load_Top At_Offset_2 0bb4 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0bb5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0bb6 0000 0000 | | .XXX[0x2] 0bb8 ; -------------------------------------------------------------------------------------- 0bb8 ; SUBPROGRAM 0bb8 ; -------------------------------------------------------------------------------------- 0bb8 0bbb | | .CONST 0x0bbb ; Address of begin 0bb9 0004 | | .CONST 0x0004 ; Address of exception handler 0bba 0001 | | .CONST 0x0001 ; Number of locals 0bbb BODY_0bb8: 0bbb INIT_0bb8: 0bbb 00da | | Load_Top At_Offset_2 0bbc 3c09 |< | Execute Record,Field_Read,Field_Number 0x9 0bbd 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0bbe 0000 0000 | | .XXX[0x2] 0bc0 ; -------------------------------------------------------------------------------------- 0bc0 ; SUBPROGRAM 0bc0 ; -------------------------------------------------------------------------------------- 0bc0 0bc3 | | .CONST 0x0bc3 ; Address of begin 0bc1 0004 | | .CONST 0x0004 ; Address of exception handler 0bc2 0001 | | .CONST 0x0001 ; Number of locals 0bc3 BODY_0bc0: 0bc3 INIT_0bc0: 0bc3 00da | | Load_Top At_Offset_2 0bc4 3c13 |< | Execute Record,Field_Read,Field_Number 0x13 0bc5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0bc6 0000 0000 | | .XXX[0x2] 0bc8 ; -------------------------------------------------------------------------------------- 0bc8 ; SUBPROGRAM 0bc8 ; -------------------------------------------------------------------------------------- 0bc8 0bcb | | .CONST 0x0bcb ; Address of begin 0bc9 0004 | | .CONST 0x0004 ; Address of exception handler 0bca 0001 | | .CONST 0x0001 ; Number of locals 0bcb BODY_0bc8: 0bcb INIT_0bc8: 0bcb 00da | | Load_Top At_Offset_2 0bcc 3c06 |< | Execute Record,Field_Read,Field_Number 0x6 0bcd 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0bce 0000 0000 | | .XXX[0x2] 0bd0 ; -------------------------------------------------------------------------------------- 0bd0 ; SUBPROGRAM 0bd0 ; -------------------------------------------------------------------------------------- 0bd0 0bd3 | | .CONST 0x0bd3 ; Address of begin 0bd1 0004 | | .CONST 0x0004 ; Address of exception handler 0bd2 0001 | | .CONST 0x0001 ; Number of locals 0bd3 BODY_0bd0: 0bd3 INIT_0bd0: 0bd3 00da | | Load_Top At_Offset_2 0bd4 3407 |4 | Execute Record,Field_Reference,Field_Number 0x7 0bd5 0320 | | Declare_Variable Record,Duplicate 0bd6 00cd | | Action Spare6_Action 0bd7 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0bd8 ; -------------------------------------------------------------------------------------- 0bd8 ; SUBPROGRAM 0bd8 ; -------------------------------------------------------------------------------------- 0bd8 0bdb | | .CONST 0x0bdb ; Address of begin 0bd9 0004 | | .CONST 0x0004 ; Address of exception handler 0bda 0001 | | .CONST 0x0001 ; Number of locals 0bdb BODY_0bd8: 0bdb INIT_0bd8: 0bdb 00da | | Load_Top At_Offset_2 0bdc 3407 |4 | Execute Record,Field_Reference,Field_Number 0x7 0bdd 800e | | Call 0x0,0xe 0bde 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0bdf 0000 | | .XXX[0x1] 0be0 ; -------------------------------------------------------------------------------------- 0be0 ; SUBPROGRAM 0be0 ; -------------------------------------------------------------------------------------- 0be0 0be4 | | .CONST 0x0be4 ; Address of begin 0be1 0004 | | .CONST 0x0004 ; Address of exception handler 0be2 0002 | | .CONST 0x0002 ; Number of locals 0be3 INIT_0be0: 0be3 00e5 | | Load_Encached Long_Integer_Cache 0be4 BODY_0be0: 0be4 00db | | Load_Top At_Offset_3 0be5 3407 |4 | Execute Record,Field_Reference,Field_Number 0x7 0be6 800f | | Call 0x0,0xf 0be7 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 0be8 00d8 | | Load_Top At_Offset_0 0be9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0bea 0000 0000 | | .BLANK 0000[0x6] 0bf0 ; -------------------------------------------------------------------------------------- 0bf0 ; SUBPROGRAM 0bf0 ; -------------------------------------------------------------------------------------- 0bf0 0bf3 | | .CONST 0x0bf3 ; Address of begin 0bf1 0004 | | .CONST 0x0004 ; Address of exception handler 0bf2 0001 | | .CONST 0x0001 ; Number of locals 0bf3 BODY_0bf0: 0bf3 INIT_0bf0: 0bf3 00da | | Load_Top At_Offset_2 0bf4 3c0e |< | Execute Record,Field_Read,Field_Number 0xe 0bf5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0bf6 0000 0000 | | .XXX[0x2] 0bf8 ; -------------------------------------------------------------------------------------- 0bf8 ; SUBPROGRAM 0bf8 ; -------------------------------------------------------------------------------------- 0bf8 0bfb | | .CONST 0x0bfb ; Address of begin 0bf9 0004 | | .CONST 0x0004 ; Address of exception handler 0bfa 0001 | | .CONST 0x0001 ; Number of locals 0bfb BODY_0bf8: 0bfb INIT_0bf8: 0bfb 00da | | Load_Top At_Offset_2 0bfc 3c0f |< | Execute Record,Field_Read,Field_Number 0xf 0bfd 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0bfe 0000 0000 | | .XXX[0x2] 0c00 ; -------------------------------------------------------------------------------------- 0c00 ; SUBPROGRAM 0c00 ; -------------------------------------------------------------------------------------- 0c00 0c03 | | .CONST 0x0c03 ; Address of begin 0c01 0004 | | .CONST 0x0004 ; Address of exception handler 0c02 0001 | | .CONST 0x0001 ; Number of locals 0c03 BODY_0c00: 0c03 INIT_0c00: 0c03 00da | | Load_Top At_Offset_2 0c04 3c11 |< | Execute Record,Field_Read,Field_Number 0x11 0c05 00d8 | | Load_Top At_Offset_0 0c06 0120 | | Execute Any,Is_Value 0c07 7002 |p | Jump_Nonzero 0xc0a 0c08 00d8 | | Load_Top At_Offset_0 0c09 011e | | Execute Any,Convert 0c0a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0c0b 0000 0000 | | .BLANK 0000[0x5] 0c10 ; -------------------------------------------------------------------------------------- 0c10 ; SUBPROGRAM 0c10 ; -------------------------------------------------------------------------------------- 0c10 0c13 | | .CONST 0x0c13 ; Address of begin 0c11 0004 | | .CONST 0x0004 ; Address of exception handler 0c12 0001 | | .CONST 0x0001 ; Number of locals 0c13 BODY_0c10: 0c13 INIT_0c10: 0c13 00da | | Load_Top At_Offset_2 0c14 3412 |4 | Execute Record,Field_Reference,Field_Number 0x12 0c15 0320 | | Declare_Variable Record,Duplicate 0c16 00cd | | Action Spare6_Action 0c17 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0c18 ; -------------------------------------------------------------------------------------- 0c18 ; SUBPROGRAM 0c18 ; -------------------------------------------------------------------------------------- 0c18 0c1b | | .CONST 0x0c1b ; Address of begin 0c19 0004 | | .CONST 0x0004 ; Address of exception handler 0c1a 0001 | | .CONST 0x0001 ; Number of locals 0c1b BODY_0c18: 0c1b INIT_0c18: 0c1b 00da | | Load_Top At_Offset_2 0c1c 8237 | 7 | Call 0x1,0x37 0c1d 0f19 | | Execute_Immediate Equal,0x19 0c1e 6803 |h | Jump_Zero 0xc22 0c1f 00da | | Load_Top At_Offset_2 0c20 3c08 |< | Execute Record,Field_Read,Field_Number 0x8 0c21 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0c22 00da | | Load_Top At_Offset_2 0c23 3c10 |< | Execute Record,Field_Read,Field_Number 0x10 0c24 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0c25 0000 0000 | | .XXX[0x3] 0c27 0000 | | 0c28 ; -------------------------------------------------------------------------------------- 0c28 ; SUBPROGRAM 0c28 ; -------------------------------------------------------------------------------------- 0c28 0c2b | + | .CONST 0x0c2b ; Address of begin 0c29 0004 | | .CONST 0x0004 ; Address of exception handler 0c2a 0001 | | .CONST 0x0001 ; Number of locals 0c2b BODY_0c28: 0c2b INIT_0c28: 0c2b 00da | | Load_Top At_Offset_2 0c2c 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 0c2d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0c2e 0000 0000 | | .XXX[0x2] 0c30 ; -------------------------------------------------------------------------------------- 0c30 ; SUBPROGRAM 0c30 ; -------------------------------------------------------------------------------------- 0c30 0c33 | 3 | .CONST 0x0c33 ; Address of begin 0c31 0004 | | .CONST 0x0004 ; Address of exception handler 0c32 0001 | | .CONST 0x0001 ; Number of locals 0c33 BODY_0c30: 0c33 INIT_0c30: 0c33 00da | | Load_Top At_Offset_2 0c34 3c14 |< | Execute Record,Field_Read,Field_Number 0x14 0c35 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0c36 0000 0000 | | .XXX[0x2] 0c38 ; -------------------------------------------------------------------------------------- 0c38 ; SUBPROGRAM 0c38 ; -------------------------------------------------------------------------------------- 0c38 0c3b | ; | .CONST 0x0c3b ; Address of begin 0c39 0004 | | .CONST 0x0004 ; Address of exception handler 0c3a 0001 | | .CONST 0x0001 ; Number of locals 0c3b BODY_0c38: 0c3b INIT_0c38: 0c3b 00da | | Load_Top At_Offset_2 0c3c 3c15 |< | Execute Record,Field_Read,Field_Number 0x15 0c3d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0c3e 0000 0000 | | .XXX[0x2] 0c40 ; -------------------------------------------------------------------------------------- 0c40 ; SUBPROGRAM 0c40 ; -------------------------------------------------------------------------------------- 0c40 0c43 | C | .CONST 0x0c43 ; Address of begin 0c41 0004 | | .CONST 0x0004 ; Address of exception handler 0c42 0001 | | .CONST 0x0001 ; Number of locals 0c43 BODY_0c40: 0c43 INIT_0c40: 0c43 00da | | Load_Top At_Offset_2 0c44 3c0a |< | Execute Record,Field_Read,Field_Number 0xa 0c45 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0c46 0000 0000 | | .XXX[0x2] 0c48 ; -------------------------------------------------------------------------------------- 0c48 ; SUBPROGRAM 0c48 ; -------------------------------------------------------------------------------------- 0c48 0c4b | K | .CONST 0x0c4b ; Address of begin 0c49 0004 | | .CONST 0x0004 ; Address of exception handler 0c4a 0001 | | .CONST 0x0001 ; Number of locals 0c4b BODY_0c48: 0c4b INIT_0c48: 0c4b 00da | | Load_Top At_Offset_2 0c4c 3c0b |< | Execute Record,Field_Read,Field_Number 0xb 0c4d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0c4e 0000 0000 | | .XXX[0x2] 0c50 ; -------------------------------------------------------------------------------------- 0c50 ; SUBPROGRAM 0c50 ; -------------------------------------------------------------------------------------- 0c50 0c53 | S | .CONST 0x0c53 ; Address of begin 0c51 0004 | | .CONST 0x0004 ; Address of exception handler 0c52 0001 | | .CONST 0x0001 ; Number of locals 0c53 BODY_0c50: 0c53 INIT_0c50: 0c53 00da | | Load_Top At_Offset_2 0c54 3c0c |< | Execute Record,Field_Read,Field_Number 0xc 0c55 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0c56 0000 0000 | | .XXX[0x2] 0c58 ; -------------------------------------------------------------------------------------- 0c58 ; SUBPROGRAM 0c58 ; -------------------------------------------------------------------------------------- 0c58 0c5b | [ | .CONST 0x0c5b ; Address of begin 0c59 0004 | | .CONST 0x0004 ; Address of exception handler 0c5a 0001 | | .CONST 0x0001 ; Number of locals 0c5b BODY_0c58: 0c5b INIT_0c58: 0c5b 00da | | Load_Top At_Offset_2 0c5c 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0c5d 00d8 | | Load_Top At_Offset_0 0c5e 4814 |H | Short_Literal 0x14 0c5f 4817 |H | Short_Literal 0x17 0c60 0262 | b | Execute Discrete,In_Range 0c61 7004 |p | Jump_Nonzero 0xc66 0c62 0f1b | | Execute_Immediate Equal,0x1b 0c63 7003 |p | Jump_Nonzero 0xc67 0c64 4801 |H | Short_Literal 0x1 0c65 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0c66 00d1 | | Pop_Control Pop_Count_1 0c67 4800 |H | Short_Literal 0x0 0c68 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0c69 0000 0000 | | .BLANK 0000[0x7] 0c70 ; -------------------------------------------------------------------------------------- 0c70 ; SUBPROGRAM 0c70 ; -------------------------------------------------------------------------------------- 0c70 0c73 | s | .CONST 0x0c73 ; Address of begin 0c71 0004 | | .CONST 0x0004 ; Address of exception handler 0c72 0001 | | .CONST 0x0001 ; Number of locals 0c73 BODY_0c70: 0c73 INIT_0c70: 0c73 00da | | Load_Top At_Offset_2 0c74 3c05 |< | Execute Record,Field_Read,Field_Number 0x5 0c75 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0c76 0000 0000 | | .XXX[0x2] 0c78 ; -------------------------------------------------------------------------------------- 0c78 ; SUBPROGRAM 0c78 ; -------------------------------------------------------------------------------------- 0c78 0c7b | { | .CONST 0x0c7b ; Address of begin 0c79 0004 | | .CONST 0x0004 ; Address of exception handler 0c7a 0001 | | .CONST 0x0001 ; Number of locals 0c7b BODY_0c78: 0c7b INIT_0c78: 0c7b 00da | | Load_Top At_Offset_2 0c7c 3c0b |< | Execute Record,Field_Read,Field_Number 0xb 0c7d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0c7e 0000 0000 | | .XXX[0x2] 0c80 ; -------------------------------------------------------------------------------------- 0c80 ; SUBPROGRAM 0c80 ; -------------------------------------------------------------------------------------- 0c80 0c83 | | .CONST 0x0c83 ; Address of begin 0c81 0004 | | .CONST 0x0004 ; Address of exception handler 0c82 0001 | | .CONST 0x0001 ; Number of locals 0c83 BODY_0c80: 0c83 INIT_0c80: 0c83 00da | | Load_Top At_Offset_2 0c84 3c14 |< | Execute Record,Field_Read,Field_Number 0x14 0c85 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0c86 0000 0000 | | .XXX[0x2] 0c88 ; -------------------------------------------------------------------------------------- 0c88 ; SUBPROGRAM 0c88 ; -------------------------------------------------------------------------------------- 0c88 0c8d | | .CONST 0x0c8d ; Address of begin 0c89 0004 | | .CONST 0x0004 ; Address of exception handler 0c8a 0002 | | .CONST 0x0002 ; Number of locals 0c8b INIT_0c88: 0c8b 029f 136b | k| Declare_Subprogram INIT_1368,For_Call 0c8d BODY_0c88: 0c8d 00db | | Load_Top At_Offset_3 0c8e 800d | | Call 0x0,0xd 0c8f 4606 |F | Jump_Case 0x7 0c90 780e |x | Jump 0xc9f ; case 0x0 0c91 780d |x | Jump 0xc9f ; case 0x1 0c92 7818 |x | Jump 0xcab ; case 0x2 0c93 780b |x | Jump 0xc9f ; case 0x3 0c94 780a |x | Jump 0xc9f ; case 0x4 0c95 7809 |x | Jump 0xc9f ; case 0x5 0c96 7800 |x | Jump 0xc97 ; case 0x6 0c97 00db | | Load_Top At_Offset_3 0c98 800d | | Call 0x0,0xd 0c99 8261 | a | Call 0x1,0x61 0c9a e5ff | | Load 0x2,-0x1 0c9b 8010 | | Call 0x0,0x10 0c9c 0217 | | Execute Heap_Access,All_Reference 0c9d 01ca | | Execute Vector,Prepend 0c9e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0c9f 00db | | Load_Top At_Offset_3 0ca0 800d | | Call 0x0,0xd 0ca1 8261 | a | Call 0x1,0x61 0ca2 4820 |H | Short_Literal 0x20 0ca3 4800 |H | Short_Literal 0x0 0ca4 4810 |H | Short_Literal 0x10 0ca5 e5ff | | Load 0x2,-0x1 0ca6 800f | | Call 0x0,0xf 0ca7 e011 | | Load 0x0,0x11 0ca8 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0ca9 01ca | | Execute Vector,Prepend 0caa 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0cab 8402 | | Call 0x2,0x2 0cac 0831 | 1 | Execute_Immediate Raise,0x31 0cad 0000 0000 | | .XXX[0x3] 0caf 0000 | | 0cb0 ; -------------------------------------------------------------------------------------- 0cb0 ; SUBPROGRAM 0cb0 ; -------------------------------------------------------------------------------------- 0cb0 0cb3 | | .CONST 0x0cb3 ; Address of begin 0cb1 0004 | | .CONST 0x0004 ; Address of exception handler 0cb2 0001 | | .CONST 0x0001 ; Number of locals 0cb3 BODY_0cb0: 0cb3 INIT_0cb0: 0cb3 4800 |H | Short_Literal 0x0 0cb4 00db | | Load_Top At_Offset_3 0cb5 8263 | c | Call 0x1,0x63 0cb6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0cb7 0000 | | .XXX[0x1] 0cb8 ; -------------------------------------------------------------------------------------- 0cb8 ; SUBPROGRAM 0cb8 ; -------------------------------------------------------------------------------------- 0cb8 0cbb | | .CONST 0x0cbb ; Address of begin 0cb9 0004 | | .CONST 0x0004 ; Address of exception handler 0cba 0001 | | .CONST 0x0001 ; Number of locals 0cbb BODY_0cb8: 0cbb INIT_0cb8: 0cbb 4800 |H | Short_Literal 0x0 0cbc 00db | | Load_Top At_Offset_3 0cbd 8262 | b | Call 0x1,0x62 0cbe 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0cbf 0000 | | .XXX[0x1] 0cc0 ; -------------------------------------------------------------------------------------- 0cc0 ; SUBPROGRAM 0cc0 ; -------------------------------------------------------------------------------------- 0cc0 0ce1 | | .CONST 0x0ce1 ; Address of begin 0cc1 0004 | | .CONST 0x0004 ; Address of exception handler 0cc2 0002 | | .CONST 0x0002 ; Number of locals 0cc3 INIT_0cc0: 0cc3 4801 |H | Short_Literal 0x1 0cc4 00db | | Load_Top At_Offset_3 0cc5 01db | | Execute Vector,Length 0cc6 0aff | | Execute_Immediate Plus,-0x1 0cc7 00d8 | | Load_Top At_Offset_0 0cc8 00e2 | | Load_Encached Integer_Cache 0cc9 0260 | ` | Execute Discrete,In_Type 0cca 7001 |p | Jump_Nonzero 0xccc 0ccb 0801 | | Execute_Immediate Raise,0x1 0ccc 00e9 | | Load_Encached String_Cache 0ccd 035b | [ | Declare_Type Array,Constrained 0cce 0337 | 7 | Declare_Variable Array 0ccf 4801 |H | Short_Literal 0x1 0cd0 e5ff | | Load 0x2,-0x1 0cd1 01db | | Execute Vector,Length 0cd2 0aff | | Execute_Immediate Plus,-0x1 0cd3 00e9 | | Load_Encached String_Cache 0cd4 0334 | 4 | Declare_Variable Array,With_Constraint 0cd5 00d8 | | Load_Top At_Offset_0 0cd6 01dc | | Execute Vector,Last 0cd7 4801 |H | Short_Literal 0x1 0cd8 0263 | c | Execute Discrete,Above_Bound 0cd9 7005 |p | Jump_Nonzero 0xcdf 0cda 4820 |H | Short_Literal 0x20 0cdb 00d9 | | Load_Top At_Offset_1 0cdc e403 | | Load 0x2,0x3 0cdd 01d6 | | Execute Vector,Field_Write 0cde 3ffb |? | Loop_Increasing 0xcda 0cdf 00d9 | | Load_Top At_Offset_1 0ce0 01d4 | | Execute Vector,Structure_Write 0ce1 BODY_0cc0: 0ce1 00db | | Load_Top At_Offset_3 0ce2 01dd | | Execute Vector,First 0ce3 0a01 | | Execute_Immediate Plus,0x1 0ce4 00d8 | | Load_Top At_Offset_0 0ce5 00e2 | | Load_Encached Integer_Cache 0ce6 0260 | ` | Execute Discrete,In_Type 0ce7 7001 |p | Jump_Nonzero 0xce9 0ce8 0801 | | Execute_Immediate Raise,0x1 0ce9 e5ff | | Load 0x2,-0x1 0cea 01dc | | Execute Vector,Last 0ceb e5ff | | Load 0x2,-0x1 0cec 01cf | | Execute Vector,Slice_Read 0ced 4801 |H | Short_Literal 0x1 0cee e5ff | | Load 0x2,-0x1 0cef 01db | | Execute Vector,Length 0cf0 0aff | | Execute_Immediate Plus,-0x1 0cf1 00d8 | | Load_Top At_Offset_0 0cf2 00e2 | | Load_Encached Integer_Cache 0cf3 0260 | ` | Execute Discrete,In_Type 0cf4 7001 |p | Jump_Nonzero 0xcf6 0cf5 0801 | | Execute_Immediate Raise,0x1 0cf6 00db | | Load_Top At_Offset_3 0cf7 01ce | | Execute Vector,Slice_Write 0cf8 00db | | Load_Top At_Offset_3 0cf9 01dd | | Execute Vector,First 0cfa e5ff | | Load 0x2,-0x1 0cfb 01d7 | | Execute Vector,Field_Read 0cfc 00d8 | | Load_Top At_Offset_0 0cfd 4841 |HA | Short_Literal 0x41 0cfe 4858 |HX | Short_Literal 0x58 0cff 0262 | b | Execute Discrete,In_Range 0d00 6820 |h | Jump_Zero 0xd21 0d01 0abf | | Execute_Immediate Plus,-0x41 0d02 4617 |F | Jump_Case 0x18 0d03 782c |x, | Jump 0xd30 ; case 0x0 0d04 7837 |x7 | Jump 0xd3c ; case 0x1 0d05 7836 |x6 | Jump 0xd3c ; case 0x2 0d06 7835 |x5 | Jump 0xd3c ; case 0x3 0d07 782e |x. | Jump 0xd36 ; case 0x4 0d08 7833 |x3 | Jump 0xd3c ; case 0x5 0d09 7832 |x2 | Jump 0xd3c ; case 0x6 0d0a 7831 |x1 | Jump 0xd3c ; case 0x7 0d0b 7817 |x | Jump 0xd23 ; case 0x8 0d0c 782f |x/ | Jump 0xd3c ; case 0x9 0d0d 782e |x. | Jump 0xd3c ; case 0xa 0d0e 782d |x- | Jump 0xd3c ; case 0xb 0d0f 782c |x, | Jump 0xd3c ; case 0xc 0d10 782b |x+ | Jump 0xd3c ; case 0xd 0d11 782a |x* | Jump 0xd3c ; case 0xe 0d12 7829 |x) | Jump 0xd3c ; case 0xf 0d13 7828 |x( | Jump 0xd3c ; case 0x10 0d14 7827 |x' | Jump 0xd3c ; case 0x11 0d15 7826 |x& | Jump 0xd3c ; case 0x12 0d16 7812 |x | Jump 0xd29 ; case 0x13 0d17 7824 |x$ | Jump 0xd3c ; case 0x14 0d18 7823 |x# | Jump 0xd3c ; case 0x15 0d19 7822 |x" | Jump 0xd3c ; case 0x16 0d1a 7800 |x | Jump 0xd1b ; case 0x17 0d1b 00d8 | | Load_Top At_Offset_0 0d1c 00e5 | | Load_Encached Long_Integer_Cache 0d1d 00e0 | | Load_Encached Standard_Cache 0d1e 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0d1f 8012 | | Call 0x0,0x12 0d20 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0d21 00d1 | | Pop_Control Pop_Count_1 0d22 7819 |x | Jump 0xd3c 0d23 00d8 | | Load_Top At_Offset_0 0d24 00e2 | | Load_Encached Integer_Cache 0d25 00e0 | | Load_Encached Standard_Cache 0d26 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0d27 8013 | | Call 0x0,0x13 0d28 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0d29 00d8 | | Load_Top At_Offset_0 0d2a 8014 | | Call 0x0,0x14 0d2b 8015 | | Call 0x0,0x15 0d2c 8016 | | Call 0x0,0x16 0d2d e003 | | Load 0x0,0x3 0d2e 017b | { | Execute Record,Convert 0d2f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0d30 00d8 | | Load_Top At_Offset_0 0d31 00e5 | | Load_Encached Long_Integer_Cache 0d32 00e0 | | Load_Encached Standard_Cache 0d33 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0d34 8017 | | Call 0x0,0x17 0d35 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0d36 00d8 | | Load_Top At_Offset_0 0d37 00e2 | | Load_Encached Integer_Cache 0d38 00e0 | | Load_Encached Standard_Cache 0d39 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0d3a 8018 | | Call 0x0,0x18 0d3b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0d3c 0831 | 1 | Execute_Immediate Raise,0x31 0d3d 0000 0000 | | .XXX[0x3] 0d3f 0000 | | 0d40 ; -------------------------------------------------------------------------------------- 0d40 ; SUBPROGRAM 0d40 ; -------------------------------------------------------------------------------------- 0d40 0d56 | V | .CONST 0x0d56 ; Address of begin 0d41 0004 | | .CONST 0x0004 ; Address of exception handler 0d42 0006 | | .CONST 0x0006 ; Number of locals 0d43 INIT_0d40: 0d43 4878 |Hx | Short_Literal 0x78 0d44 e019 | | Load 0x0,0x19 0d45 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0d46 1c08 | | Execute_Immediate Run_Utility,0x8 0d47 00d8 | | Load_Top At_Offset_0 0d48 1c00 | | Execute_Immediate Run_Utility,0x0 0d49 00db | | Load_Top At_Offset_3 0d4a 01dc | | Execute Vector,Last 0d4b 00e3 | | Load_Encached Natural_Cache 0d4c 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 0d4d 00e8 | | Load_Encached Character_Cache 0d4e e5ff | | Load 0x2,-0x1 0d4f 01dd | | Execute Vector,First 0d50 00e3 | | Load_Encached Natural_Cache 0d51 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 0d52 e25c | \ | Load 0x1,0x5c 0d53 02ff | | Declare_Variable Variant_Record 0d54 00d8 | | Load_Top At_Offset_0 0d55 1c00 | | Execute_Immediate Run_Utility,0x0 0d56 BODY_0d40: 0d56 820e | | Call 0x1,0xe 0d57 00d9 | | Load_Top At_Offset_1 0d58 016d | m | Execute Variant_Record,Structure_Write 0d59 00cf | | Action Mark_Auxiliary 0d5a 7827 |x' | Jump 0xd82 0d5b e402 | | Load 0x2,0x2 0d5c 00ea | | Load_Encached Null_String_Cache 0d5d e019 | | Load 0x0,0x19 0d5e 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0d5f 00d1 | | Pop_Control Pop_Count_1 0d60 00cf | | Action Mark_Auxiliary 0d61 00db | | Load_Top At_Offset_3 0d62 e403 | | Load 0x2,0x3 0d63 027d | } | Execute Discrete,Greater 0d64 7011 |p | Jump_Nonzero 0xd76 0d65 00db | | Load_Top At_Offset_3 0d66 e5ff | | Load 0x2,-0x1 0d67 01d7 | | Execute Vector,Field_Read 0d68 a404 | | Store_Unchecked 0x2,0x4 0d69 00db | | Load_Top At_Offset_3 0d6a 0a01 | | Execute_Immediate Plus,0x1 0d6b c405 | | Store 0x2,0x5 0d6c e404 | | Load 0x2,0x4 0d6d 0f0d | | Execute_Immediate Equal,0xd 0d6e 7007 |p | Jump_Nonzero 0xd76 0d6f e402 | | Load 0x2,0x2 0d70 e404 | | Load 0x2,0x4 0d71 e019 | | Load 0x0,0x19 0d72 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0d73 00d1 | | Pop_Control Pop_Count_1 0d74 00c9 | | Action Pop_Auxiliary_Loop 0d75 7feb | | Jump 0xd61 0d76 00ce | | Action Pop_Auxiliary 0d77 00d9 | | Load_Top At_Offset_1 0d78 e402 | | Load 0x2,0x2 0d79 8260 | ` | Call 0x1,0x60 0d7a e25b | [ | Load 0x1,0x5b 0d7b 181f | | Execute Package,Field_Execute,Field_Number 0x1f 0d7c 00d1 | | Pop_Control Pop_Count_1 0d7d e402 | | Load 0x2,0x2 0d7e e019 | | Load 0x0,0x19 0d7f 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0d80 00d1 | | Pop_Control Pop_Count_1 0d81 00c9 | | Action Pop_Auxiliary_Loop 0d82 00da | | Load_Top At_Offset_2 0d83 e403 | | Load 0x2,0x3 0d84 027a | z | Execute Discrete,Less_Equal 0d85 77d5 |w | Jump_Nonzero 0xd5b 0d86 00ce | | Action Pop_Auxiliary 0d87 00d8 | | Load_Top At_Offset_0 0d88 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0d89 0000 0000 | | .BLANK 0000[0x7] 0d90 ; -------------------------------------------------------------------------------------- 0d90 ; SUBPROGRAM 0d90 ; -------------------------------------------------------------------------------------- 0d90 0d93 | | .CONST 0x0d93 ; Address of begin 0d91 0004 | | .CONST 0x0004 ; Address of exception handler 0d92 0001 | | .CONST 0x0001 ; Number of locals 0d93 BODY_0d90: 0d93 INIT_0d90: 0d93 4801 |H | Short_Literal 0x1 0d94 00db | | Load_Top At_Offset_3 0d95 8263 | c | Call 0x1,0x63 0d96 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0d97 0000 | | .XXX[0x1] 0d98 ; -------------------------------------------------------------------------------------- 0d98 ; SUBPROGRAM 0d98 ; -------------------------------------------------------------------------------------- 0d98 0d9b | | .CONST 0x0d9b ; Address of begin 0d99 0004 | | .CONST 0x0004 ; Address of exception handler 0d9a 0001 | | .CONST 0x0001 ; Number of locals 0d9b BODY_0d98: 0d9b INIT_0d98: 0d9b 4801 |H | Short_Literal 0x1 0d9c 00db | | Load_Top At_Offset_3 0d9d 8262 | b | Call 0x1,0x62 0d9e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0d9f 0000 | | .XXX[0x1] 0da0 ; -------------------------------------------------------------------------------------- 0da0 ; SUBPROGRAM 0da0 ; -------------------------------------------------------------------------------------- 0da0 0da3 | | .CONST 0x0da3 ; Address of begin 0da1 0004 | | .CONST 0x0004 ; Address of exception handler 0da2 0001 | | .CONST 0x0001 ; Number of locals 0da3 BODY_0da0: 0da3 INIT_0da0: 0da3 00d1 | | Pop_Control Pop_Count_1 0da4 00da | | Load_Top At_Offset_2 0da5 01dc | | Execute Vector,Last 0da6 00db | | Load_Top At_Offset_3 0da7 01dd | | Execute Vector,First 0da8 0263 | c | Execute Discrete,Above_Bound 0da9 7006 |p | Jump_Nonzero 0xdb0 0daa 00d8 | | Load_Top At_Offset_0 0dab e5ff | | Load 0x2,-0x1 0dac 01d5 | | Execute Vector,Field_Reference 0dad 1c00 | | Execute_Immediate Run_Utility,0x0 0dae 0a01 | | Execute_Immediate Plus,0x1 0daf 7ff8 | | Jump 0xda8 0db0 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0db1 0000 0000 | | .BLANK 0000[0x7] 0db8 ; -------------------------------------------------------------------------------------- 0db8 ; SUBPROGRAM 0db8 ; -------------------------------------------------------------------------------------- 0db8 0dbb | | .CONST 0x0dbb ; Address of begin 0db9 0004 | | .CONST 0x0004 ; Address of exception handler 0dba 0001 | | .CONST 0x0001 ; Number of locals 0dbb BODY_0db8: 0dbb INIT_0db8: 0dbb 00da | | Load_Top At_Offset_2 0dbc 01dd | | Execute Vector,First 0dbd 00db | | Load_Top At_Offset_3 0dbe 01d7 | | Execute Vector,Field_Read 0dbf 00d8 | | Load_Top At_Offset_0 0dc0 0d41 | A | Execute_Immediate Less,0x41 0dc1 7042 |pB | Jump_Nonzero 0xe04 0dc2 0abf | | Execute_Immediate Plus,-0x41 0dc3 463e |F> | Jump_Case 0x3f 0dc4 78e4 |x | Jump 0xea9 ; case 0x0 0dc5 78fa |x | Jump 0xec0 ; case 0x1 0dc6 787e |x~ | Jump 0xe45 ; case 0x2 0dc7 78f8 |x | Jump 0xec0 ; case 0x3 0dc8 78f7 |x | Jump 0xec0 ; case 0x4 0dc9 78ae |x | Jump 0xe78 ; case 0x5 0dca 789d |x | Jump 0xe68 ; case 0x6 0dcb 789e |x | Jump 0xe6a ; case 0x7 0dcc 78f3 |x | Jump 0xec0 ; case 0x8 0dcd 78f2 |x | Jump 0xec0 ; case 0x9 0dce 78f1 |x | Jump 0xec0 ; case 0xa 0dcf 7836 |x6 | Jump 0xe06 ; case 0xb 0dd0 78ef |x | Jump 0xec0 ; case 0xc 0dd1 78ec |x | Jump 0xebe ; case 0xd 0dd2 78ed |x | Jump 0xec0 ; case 0xe 0dd3 787f |x | Jump 0xe53 ; case 0xf 0dd4 78eb |x | Jump 0xec0 ; case 0x10 0dd5 78c5 |x | Jump 0xe9b ; case 0x11 0dd6 784b |xK | Jump 0xe22 ; case 0x12 0dd7 785f |x_ | Jump 0xe37 ; case 0x13 0dd8 78e7 |x | Jump 0xec0 ; case 0x14 0dd9 78ac |x | Jump 0xe86 ; case 0x15 0dda 78e5 |x | Jump 0xec0 ; case 0x16 0ddb 78e4 |x | Jump 0xec0 ; case 0x17 0ddc 78e3 |x | Jump 0xec0 ; case 0x18 0ddd 78e2 |x | Jump 0xec0 ; case 0x19 0dde 78e1 |x | Jump 0xec0 ; case 0x1a 0ddf 78e0 |x | Jump 0xec0 ; case 0x1b 0de0 78df |x | Jump 0xec0 ; case 0x1c 0de1 78de |x | Jump 0xec0 ; case 0x1d 0de2 78dd |x | Jump 0xec0 ; case 0x1e 0de3 78dc |x | Jump 0xec0 ; case 0x1f 0de4 78db |x | Jump 0xec0 ; case 0x20 0de5 78da |x | Jump 0xec0 ; case 0x21 0de6 78d9 |x | Jump 0xec0 ; case 0x22 0de7 78d8 |x | Jump 0xec0 ; case 0x23 0de8 78d7 |x | Jump 0xec0 ; case 0x24 0de9 78d6 |x | Jump 0xec0 ; case 0x25 0dea 78d5 |x | Jump 0xec0 ; case 0x26 0deb 78d4 |x | Jump 0xec0 ; case 0x27 0dec 78d3 |x | Jump 0xec0 ; case 0x28 0ded 78d2 |x | Jump 0xec0 ; case 0x29 0dee 78d1 |x | Jump 0xec0 ; case 0x2a 0def 78d0 |x | Jump 0xec0 ; case 0x2b 0df0 78cf |x | Jump 0xec0 ; case 0x2c 0df1 78ce |x | Jump 0xec0 ; case 0x2d 0df2 78cd |x | Jump 0xec0 ; case 0x2e 0df3 78cc |x | Jump 0xec0 ; case 0x2f 0df4 78cb |x | Jump 0xec0 ; case 0x30 0df5 78ca |x | Jump 0xec0 ; case 0x31 0df6 78c9 |x | Jump 0xec0 ; case 0x32 0df7 78c8 |x | Jump 0xec0 ; case 0x33 0df8 78c7 |x | Jump 0xec0 ; case 0x34 0df9 78c6 |x | Jump 0xec0 ; case 0x35 0dfa 78c5 |x | Jump 0xec0 ; case 0x36 0dfb 78c4 |x | Jump 0xec0 ; case 0x37 0dfc 78c3 |x | Jump 0xec0 ; case 0x38 0dfd 78c2 |x | Jump 0xec0 ; case 0x39 0dfe 78c1 |x | Jump 0xec0 ; case 0x3a 0dff 78c0 |x | Jump 0xec0 ; case 0x3b 0e00 78bf |x | Jump 0xec0 ; case 0x3c 0e01 78be |x | Jump 0xec0 ; case 0x3d 0e02 78bd |x | Jump 0xec0 ; case 0x3e 0e03 78bc |x | .XXX[0x1] 0e04 00d1 | | Pop_Control Pop_Count_1 0e05 78ba |x | Jump 0xec0 0e06 00da | | Load_Top At_Offset_2 0e07 0092 13ce | | Action Push_String_Extended,0x13ce ; "LOAD" 0e09 01df | | Execute Vector,Equal 0e0a 6802 |h | Jump_Zero 0xe0d 0e0b 4819 |H | Short_Literal 0x19 0e0c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0e0d 00da | | Load_Top At_Offset_2 0e0e 0092 13d1 | | Action Push_String_Extended,0x13d1 ; "LTI" 0e10 01df | | Execute Vector,Equal 0e11 6802 |h | Jump_Zero 0xe14 0e12 4813 |H | Short_Literal 0x13 0e13 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0e14 00da | | Load_Top At_Offset_2 0e15 0092 13d2 | | Action Push_String_Extended,0x13d2 ; "L" 0e17 01df | | Execute Vector,Equal 0e18 6802 |h | Jump_Zero 0xe1b 0e19 4811 |H | Short_Literal 0x11 0e1a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0e1b 00da | | Load_Top At_Offset_2 0e1c 0092 13d3 | | Action Push_String_Extended,0x13d3 ; "LFC" 0e1e 01df | | Execute Vector,Equal 0e1f 68a0 |h | Jump_Zero 0xec0 0e20 4812 |H | Short_Literal 0x12 0e21 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0e22 00da | | Load_Top At_Offset_2 0e23 0092 13d4 | | Action Push_String_Extended,0x13d4 ; "ST" 0e25 01df | | Execute Vector,Equal 0e26 6802 |h | Jump_Zero 0xe29 0e27 4801 |H | Short_Literal 0x1 0e28 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0e29 00da | | Load_Top At_Offset_2 0e2a 0092 13d5 | | Action Push_String_Extended,0x13d5 ; "SRV" 0e2c 01df | | Execute Vector,Equal 0e2d 6802 |h | Jump_Zero 0xe30 0e2e 4815 |H | Short_Literal 0x15 0e2f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0e30 00da | | Load_Top At_Offset_2 0e31 0092 13d6 | | Action Push_String_Extended,0x13d6 ; "SPDIS" 0e33 01df | | Execute Vector,Equal 0e34 688b |h | Jump_Zero 0xec0 0e35 481a |H | Short_Literal 0x1a 0e36 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0e37 00da | | Load_Top At_Offset_2 0e38 0092 13d7 | | Action Push_String_Extended,0x13d7 ; "TA" 0e3a 01df | | Execute Vector,Equal 0e3b 6802 |h | Jump_Zero 0xe3e 0e3c 4802 |H | Short_Literal 0x2 0e3d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0e3e 00da | | Load_Top At_Offset_2 0e3f 0092 13d8 | | Action Push_String_Extended,0x13d8 ; "TF" 0e41 01df | | Execute Vector,Equal 0e42 687d |h} | Jump_Zero 0xec0 0e43 480b |H | Short_Literal 0xb 0e44 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0e45 00da | | Load_Top At_Offset_2 0e46 0092 13d9 | | Action Push_String_Extended,0x13d9 ; "CTD" 0e48 01df | | Execute Vector,Equal 0e49 6802 |h | Jump_Zero 0xe4c 0e4a 4807 |H | Short_Literal 0x7 0e4b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0e4c 00da | | Load_Top At_Offset_2 0e4d 0092 13da | | Action Push_String_Extended,0x13da ; "CC" 0e4f 01df | | Execute Vector,Equal 0e50 686f |ho | Jump_Zero 0xec0 0e51 4816 |H | Short_Literal 0x16 0e52 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0e53 00da | | Load_Top At_Offset_2 0e54 0092 13db | | Action Push_String_Extended,0x13db ; "PF" 0e56 01df | | Execute Vector,Equal 0e57 6802 |h | Jump_Zero 0xe5a 0e58 480a |H | Short_Literal 0xa 0e59 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0e5a 00da | | Load_Top At_Offset_2 0e5b 0092 13dc | | Action Push_String_Extended,0x13dc ; "PO" 0e5d 01df | | Execute Vector,Equal 0e5e 6802 |h | Jump_Zero 0xe61 0e5f 4814 |H | Short_Literal 0x14 0e60 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0e61 00da | | Load_Top At_Offset_2 0e62 0092 13dd | | Action Push_String_Extended,0x13dd ; "P" 0e64 01df | | Execute Vector,Equal 0e65 685a |hZ | Jump_Zero 0xec0 0e66 4804 |H | Short_Literal 0x4 0e67 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0e68 4810 |H | Short_Literal 0x10 0e69 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0e6a 00da | | Load_Top At_Offset_2 0e6b 0092 13de | | Action Push_String_Extended,0x13de ; "HCT" 0e6d 01df | | Execute Vector,Equal 0e6e 6802 |h | Jump_Zero 0xe71 0e6f 4808 |H | Short_Literal 0x8 0e70 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0e71 00da | | Load_Top At_Offset_2 0e72 0092 13df | | Action Push_String_Extended,0x13df ; "HAA" 0e74 01df | | Execute Vector,Equal 0e75 684a |hJ | Jump_Zero 0xec0 0e76 480d |H | Short_Literal 0xd 0e77 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0e78 00da | | Load_Top At_Offset_2 0e79 0092 13e0 | | Action Push_String_Extended,0x13e0 ; "F" 0e7b 01df | | Execute Vector,Equal 0e7c 6802 |h | Jump_Zero 0xe7f 0e7d 481b |H | Short_Literal 0x1b 0e7e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0e7f 00da | | Load_Top At_Offset_2 0e80 0092 13e1 | | Action Push_String_Extended,0x13e1 ; "FA" 0e82 01df | | Execute Vector,Equal 0e83 683c |h< | Jump_Zero 0xec0 0e84 4803 |H | Short_Literal 0x3 0e85 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0e86 00da | | Load_Top At_Offset_2 0e87 0092 13e2 | | Action Push_String_Extended,0x13e2 ; "VA" 0e89 01df | | Execute Vector,Equal 0e8a 6802 |h | Jump_Zero 0xe8d 0e8b 480f |H | Short_Literal 0xf 0e8c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0e8d 00da | | Load_Top At_Offset_2 0e8e 0092 13e3 | | Action Push_String_Extended,0x13e3 ; "VRF" 0e90 01df | | Execute Vector,Equal 0e91 6802 |h | Jump_Zero 0xe94 0e92 4805 |H | Short_Literal 0x5 0e93 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0e94 00da | | Load_Top At_Offset_2 0e95 0092 13e4 | | Action Push_String_Extended,0x13e4 ; "VCI" 0e97 01df | | Execute Vector,Equal 0e98 6827 |h' | Jump_Zero 0xec0 0e99 4806 |H | Short_Literal 0x6 0e9a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0e9b 00da | | Load_Top At_Offset_2 0e9c 0092 13e5 | | Action Push_String_Extended,0x13e5 ; "RFA" 0e9e 01df | | Execute Vector,Equal 0e9f 6802 |h | Jump_Zero 0xea2 0ea0 4809 |H | Short_Literal 0x9 0ea1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0ea2 00da | | Load_Top At_Offset_2 0ea3 0092 13e6 | | Action Push_String_Extended,0x13e6 ; "RC" 0ea5 01df | | Execute Vector,Equal 0ea6 6819 |h | Jump_Zero 0xec0 0ea7 4817 |H | Short_Literal 0x17 0ea8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0ea9 00da | | Load_Top At_Offset_2 0eaa 0092 13e7 | | Action Push_String_Extended,0x13e7 ; "AA" 0eac 01df | | Execute Vector,Equal 0ead 6802 |h | Jump_Zero 0xeb0 0eae 480c |H | Short_Literal 0xc 0eaf 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0eb0 00da | | Load_Top At_Offset_2 0eb1 0092 13e8 | | Action Push_String_Extended,0x13e8 ; "AR" 0eb3 01df | | Execute Vector,Equal 0eb4 6802 |h | Jump_Zero 0xeb7 0eb5 480e |H | Short_Literal 0xe 0eb6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0eb7 00da | | Load_Top At_Offset_2 0eb8 0092 13e9 | | Action Push_String_Extended,0x13e9 ; "ABR" 0eba 01df | | Execute Vector,Equal 0ebb 6804 |h | Jump_Zero 0xec0 0ebc 4818 |H | Short_Literal 0x18 0ebd 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0ebe 4800 |H | Short_Literal 0x0 0ebf 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0ec0 0831 | 1 | Execute_Immediate Raise,0x31 0ec1 0000 0000 | | .BLANK 0000[0x7] 0ec8 ; -------------------------------------------------------------------------------------- 0ec8 ; SUBPROGRAM 0ec8 ; -------------------------------------------------------------------------------------- 0ec8 0ecb | | .CONST 0x0ecb ; Address of begin 0ec9 0004 | | .CONST 0x0004 ; Address of exception handler 0eca 0001 | | .CONST 0x0001 ; Number of locals 0ecb BODY_0ec8: 0ecb INIT_0ec8: 0ecb 00da | | Load_Top At_Offset_2 0ecc 01db | | Execute Vector,Length 0ecd 0c02 | | Execute_Immediate Greater_Equal,0x2 0ece 6801 |h | Jump_Zero 0xed0 0ecf 08e0 | | Execute_Immediate Raise,0xe0 0ed0 4801 |H | Short_Literal 0x1 0ed1 00db | | Load_Top At_Offset_3 0ed2 01d7 | | Execute Vector,Field_Read 0ed3 0b54 | T | Execute_Immediate Case_Compare,0x54 0ed4 7003 |p | Jump_Nonzero 0xed8 0ed5 0f46 | F | Execute_Immediate Equal,0x46 0ed6 7004 |p | Jump_Nonzero 0xedb 0ed7 08e0 | | Execute_Immediate Raise,0xe0 0ed8 00d1 | | Pop_Control Pop_Count_1 0ed9 4801 |H | Short_Literal 0x1 0eda 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0edb 4800 |H | Short_Literal 0x0 0edc 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0edd 0000 0000 | | .XXX[0x3] 0edf 0000 | | 0ee0 ; -------------------------------------------------------------------------------------- 0ee0 ; SUBPROGRAM 0ee0 ; -------------------------------------------------------------------------------------- 0ee0 0f10 | | .CONST 0x0f10 ; Address of begin 0ee1 0004 | | .CONST 0x0004 ; Address of exception handler 0ee2 001a | | .CONST 0x001a ; Number of locals 0ee3 INIT_0ee0: 0ee3 e258 | X | Load 0x1,0x58 0ee4 0322 | " | Declare_Variable Record 0ee5 00d8 | | Load_Top At_Offset_0 0ee6 1c00 | | Execute_Immediate Run_Utility,0x0 0ee7 e20d | | Load 0x1,0xd 0ee8 0007 | | Action Break_Optional 0ee9 00e3 | | Load_Encached Natural_Cache 0eea 00e1 | | Load_Encached Boolean_Cache 0eeb e25d | ] | Load 0x1,0x5d 0eec 0007 | | Action Break_Optional 0eed 00e1 | | Load_Encached Boolean_Cache 0eee 03e9 | | Declare_Variable Discrete,Duplicate 0eef e005 | | Load 0x0,0x5 0ef0 0322 | " | Declare_Variable Record 0ef1 00e3 | | Load_Encached Natural_Cache 0ef2 00e1 | | Load_Encached Boolean_Cache 0ef3 03e9 | | Declare_Variable Discrete,Duplicate 0ef4 00e3 | | Load_Encached Natural_Cache 0ef5 03e9 | | Declare_Variable Discrete,Duplicate 0ef6 03e9 | | Declare_Variable Discrete,Duplicate 0ef7 00e3 | | Load_Encached Natural_Cache 0ef8 00e3 | | Load_Encached Natural_Cache 0ef9 03e9 | | Declare_Variable Discrete,Duplicate 0efa 00e1 | | Load_Encached Boolean_Cache 0efb e002 | | Load 0x0,0x2 0efc 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 0efd e002 | | Load 0x0,0x2 0efe 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0eff 00e3 | | Load_Encached Natural_Cache 0f00 e004 | | Load 0x0,0x4 0f01 1b28 | ( | Execute Package,Field_Read,Field_Number 0x28 0f02 02c7 | | Declare_Variable Any 0f03 00d8 | | Load_Top At_Offset_0 0f04 1c00 | | Execute_Immediate Run_Utility,0x0 0f05 00e3 | | Load_Encached Natural_Cache 0f06 e5ff | | Load 0x2,-0x1 0f07 e019 | | Load 0x0,0x19 0f08 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 0f09 e01a | | Load 0x0,0x1a 0f0a 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0f0b 1c08 | | Execute_Immediate Run_Utility,0x8 0f0c 00d8 | | Load_Top At_Offset_0 0f0d 1c00 | | Execute_Immediate Run_Utility,0x0 0f0e 029f 1373 | s| Declare_Subprogram INIT_1370,For_Call 0f10 BODY_0ee0: 0f10 00d9 | | Load_Top At_Offset_1 0f11 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0f12 e5ff | | Load 0x2,-0x1 0f13 e019 | | Load 0x0,0x19 0f14 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0f15 e019 | | Load 0x0,0x19 0f16 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0f17 00d1 | | Pop_Control Pop_Count_1 0f18 4801 |H | Short_Literal 0x1 0f19 00da | | Load_Top At_Offset_2 0f1a 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 0f1b 841a | | Call 0x2,0x1a 0f1c 825e | ^ | Call 0x1,0x5e 0f1d a403 | | Store_Unchecked 0x2,0x3 0f1e 841a | | Call 0x2,0x1a 0f1f 00e2 | | Load_Encached Integer_Cache 0f20 00e0 | | Load_Encached Standard_Cache 0f21 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0f22 c404 | | Store 0x2,0x4 0f23 e403 | | Load 0x2,0x3 0f24 461b |F | Jump_Case 0x1c 0f25 7827 |x' | Jump 0xf4d ; case 0x0 0f26 782d |x- | Jump 0xf54 ; case 0x1 0f27 7831 |x1 | Jump 0xf59 ; case 0x2 0f28 790e |y | Jump 0x1037 ; case 0x3 0f29 78af |x | Jump 0xfd9 ; case 0x4 0f2a 790c |y | Jump 0x1037 ; case 0x5 0f2b 788c |x | Jump 0xfb8 ; case 0x6 0f2c 7892 |x | Jump 0xfbf ; case 0x7 0f2d 789e |x | Jump 0xfcc ; case 0x8 0f2e 7908 |y | Jump 0x1037 ; case 0x9 0f2f 7907 |y | Jump 0x1037 ; case 0xa 0f30 7906 |y | Jump 0x1037 ; case 0xb 0f31 7905 |y | Jump 0x1037 ; case 0xc 0f32 7904 |y | Jump 0x1037 ; case 0xd 0f33 7903 |y | Jump 0x1037 ; case 0xe 0f34 7902 |y | Jump 0x1037 ; case 0xf 0f35 78b9 |x | Jump 0xfef ; case 0x10 0f36 78cd |x | Jump 0x1004 ; case 0x11 0f37 78da |x | Jump 0x1012 ; case 0x12 0f38 780d |x | Jump 0xf46 ; case 0x13 0f39 78f3 |x | Jump 0x102d ; case 0x14 0f3a 78e5 |x | Jump 0x1020 ; case 0x15 0f3b 782d |x- | Jump 0xf69 ; case 0x16 0f3c 7831 |x1 | Jump 0xf6e ; case 0x17 0f3d 7835 |x5 | Jump 0xf73 ; case 0x18 0f3e 7852 |xR | Jump 0xf91 ; case 0x19 0f3f 7864 |xd | Jump 0xfa4 ; case 0x1a 0f40 7800 |x | Jump 0xf41 ; case 0x1b 0f41 e404 | | Load 0x2,0x4 0f42 822e | . | Call 0x1,0x2e 0f43 e402 | | Load 0x2,0x2 0f44 017d | } | Execute Record,Structure_Write 0f45 7986 |y | Jump 0x10cc 0f46 841a | | Call 0x2,0x1a 0f47 825f | _ | Call 0x1,0x5f 0f48 e404 | | Load 0x2,0x4 0f49 822d | - | Call 0x1,0x2d 0f4a e402 | | Load 0x2,0x2 0f4b 017d | } | Execute Record,Structure_Write 0f4c 797f |y | Jump 0x10cc 0f4d 841a | | Call 0x2,0x1a 0f4e 825f | _ | Call 0x1,0x5f 0f4f e404 | | Load 0x2,0x4 0f50 8219 | | Call 0x1,0x19 0f51 e402 | | Load 0x2,0x2 0f52 017d | } | Execute Record,Structure_Write 0f53 7978 |yx | Jump 0x10cc 0f54 e404 | | Load 0x2,0x4 0f55 821a | | Call 0x1,0x1a 0f56 e402 | | Load 0x2,0x2 0f57 017d | } | Execute Record,Structure_Write 0f58 7973 |ys | Jump 0x10cc 0f59 841a | | Call 0x2,0x1a 0f5a 825f | _ | Call 0x1,0x5f 0f5b a407 | | Store_Unchecked 0x2,0x7 0f5c 841a | | Call 0x2,0x1a 0f5d 825f | _ | Call 0x1,0x5f 0f5e a408 | | Store_Unchecked 0x2,0x8 0f5f 841a | | Call 0x2,0x1a 0f60 801b | | Call 0x0,0x1b 0f61 a415 | | Store_Unchecked 0x2,0x15 0f62 e408 | | Load 0x2,0x8 0f63 e415 | | Load 0x2,0x15 0f64 e404 | | Load 0x2,0x4 0f65 821c | | Call 0x1,0x1c 0f66 e402 | | Load 0x2,0x2 0f67 017d | } | Execute Record,Structure_Write 0f68 7963 |yc | Jump 0x10cc 0f69 e404 | | Load 0x2,0x4 0f6a 822f | / | Call 0x1,0x2f 0f6b e402 | | Load 0x2,0x2 0f6c 017d | } | Execute Record,Structure_Write 0f6d 795e |y^ | Jump 0x10cc 0f6e e404 | | Load 0x2,0x4 0f6f 8230 | 0 | Call 0x1,0x30 0f70 e402 | | Load 0x2,0x2 0f71 017d | } | Execute Record,Structure_Write 0f72 7959 |yY | Jump 0x10cc 0f73 841a | | Call 0x2,0x1a 0f74 825f | _ | Call 0x1,0x5f 0f75 a407 | | Store_Unchecked 0x2,0x7 0f76 841a | | Call 0x2,0x1a 0f77 825f | _ | Call 0x1,0x5f 0f78 a408 | | Store_Unchecked 0x2,0x8 0f79 841a | | Call 0x2,0x1a 0f7a 00e2 | | Load_Encached Integer_Cache 0f7b 00e0 | | Load_Encached Standard_Cache 0f7c 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0f7d c40d | | Store 0x2,0xd 0f7e 841a | | Call 0x2,0x1a 0f7f 00e2 | | Load_Encached Integer_Cache 0f80 00e0 | | Load_Encached Standard_Cache 0f81 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0f82 c40e | | Store 0x2,0xe 0f83 841a | | Call 0x2,0x1a 0f84 00e2 | | Load_Encached Integer_Cache 0f85 00e0 | | Load_Encached Standard_Cache 0f86 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0f87 c40f | | Store 0x2,0xf 0f88 e408 | | Load 0x2,0x8 0f89 e40f | | Load 0x2,0xf 0f8a e40e | | Load 0x2,0xe 0f8b e40d | | Load 0x2,0xd 0f8c e404 | | Load 0x2,0x4 0f8d 8231 | 1 | Call 0x1,0x31 0f8e e402 | | Load 0x2,0x2 0f8f 017d | } | Execute Record,Structure_Write 0f90 793b |y; | Jump 0x10cc 0f91 841a | | Call 0x2,0x1a 0f92 825f | _ | Call 0x1,0x5f 0f93 a407 | | Store_Unchecked 0x2,0x7 0f94 841a | | Call 0x2,0x1a 0f95 825f | _ | Call 0x1,0x5f 0f96 a408 | | Store_Unchecked 0x2,0x8 0f97 841a | | Call 0x2,0x1a 0f98 00e2 | | Load_Encached Integer_Cache 0f99 00e0 | | Load_Encached Standard_Cache 0f9a 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0f9b c410 | | Store 0x2,0x10 0f9c e407 | | Load 0x2,0x7 0f9d e408 | | Load 0x2,0x8 0f9e e410 | | Load 0x2,0x10 0f9f e404 | | Load 0x2,0x4 0fa0 8232 | 2 | Call 0x1,0x32 0fa1 e402 | | Load 0x2,0x2 0fa2 017d | } | Execute Record,Structure_Write 0fa3 7928 |y( | Jump 0x10cc 0fa4 841a | | Call 0x2,0x1a 0fa5 825f | _ | Call 0x1,0x5f 0fa6 a407 | | Store_Unchecked 0x2,0x7 0fa7 841a | | Call 0x2,0x1a 0fa8 825f | _ | Call 0x1,0x5f 0fa9 a408 | | Store_Unchecked 0x2,0x8 0faa 841a | | Call 0x2,0x1a 0fab 00e2 | | Load_Encached Integer_Cache 0fac 00e0 | | Load_Encached Standard_Cache 0fad 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0fae c411 | | Store 0x2,0x11 0faf e413 | | Load 0x2,0x13 0fb0 e412 | | Load 0x2,0x12 0fb1 e414 | | Load 0x2,0x14 0fb2 e411 | | Load 0x2,0x11 0fb3 e404 | | Load 0x2,0x4 0fb4 8233 | 3 | Call 0x1,0x33 0fb5 e402 | | Load 0x2,0x2 0fb6 017d | } | Execute Record,Structure_Write 0fb7 7914 |y | Jump 0x10cc 0fb8 841a | | Call 0x2,0x1a 0fb9 825f | _ | Call 0x1,0x5f 0fba e404 | | Load 0x2,0x4 0fbb 821f | | Call 0x1,0x1f 0fbc e402 | | Load 0x2,0x2 0fbd 017d | } | Execute Record,Structure_Write 0fbe 790d |y | Jump 0x10cc 0fbf 841a | | Call 0x2,0x1a 0fc0 825f | _ | Call 0x1,0x5f 0fc1 a407 | | Store_Unchecked 0x2,0x7 0fc2 841a | | Call 0x2,0x1a 0fc3 825f | _ | Call 0x1,0x5f 0fc4 a408 | | Store_Unchecked 0x2,0x8 0fc5 e408 | | Load 0x2,0x8 0fc6 e407 | | Load 0x2,0x7 0fc7 e404 | | Load 0x2,0x4 0fc8 8220 | | Call 0x1,0x20 0fc9 e402 | | Load 0x2,0x2 0fca 017d | } | Execute Record,Structure_Write 0fcb 7900 |y | Jump 0x10cc 0fcc 841a | | Call 0x2,0x1a 0fcd 825f | _ | Call 0x1,0x5f 0fce a407 | | Store_Unchecked 0x2,0x7 0fcf 841a | | Call 0x2,0x1a 0fd0 825f | _ | Call 0x1,0x5f 0fd1 a408 | | Store_Unchecked 0x2,0x8 0fd2 e408 | | Load 0x2,0x8 0fd3 e407 | | Load 0x2,0x7 0fd4 e404 | | Load 0x2,0x4 0fd5 8221 | ! | Call 0x1,0x21 0fd6 e402 | | Load 0x2,0x2 0fd7 017d | } | Execute Record,Structure_Write 0fd8 78f3 |x | Jump 0x10cc 0fd9 841a | | Call 0x2,0x1a 0fda 825f | _ | Call 0x1,0x5f 0fdb a407 | | Store_Unchecked 0x2,0x7 0fdc 841a | | Call 0x2,0x1a 0fdd 825f | _ | Call 0x1,0x5f 0fde a408 | | Store_Unchecked 0x2,0x8 0fdf e408 | | Load 0x2,0x8 0fe0 e407 | | Load 0x2,0x7 0fe1 841a | | Call 0x2,0x1a 0fe2 00e2 | | Load_Encached Integer_Cache 0fe3 00e0 | | Load_Encached Standard_Cache 0fe4 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0fe5 00d8 | | Load_Top At_Offset_0 0fe6 00e3 | | Load_Encached Natural_Cache 0fe7 0260 | ` | Execute Discrete,In_Type 0fe8 7001 |p | Jump_Nonzero 0xfea 0fe9 0801 | | Execute_Immediate Raise,0x1 0fea e404 | | Load 0x2,0x4 0feb 821d | | Call 0x1,0x1d 0fec e402 | | Load 0x2,0x2 0fed 017d | } | Execute Record,Structure_Write 0fee 78dd |x | Jump 0x10cc 0fef 841a | | Call 0x2,0x1a 0ff0 825f | _ | Call 0x1,0x5f 0ff1 a407 | | Store_Unchecked 0x2,0x7 0ff2 841a | | Call 0x2,0x1a 0ff3 825f | _ | Call 0x1,0x5f 0ff4 a408 | | Store_Unchecked 0x2,0x8 0ff5 e407 | | Load 0x2,0x7 0ff6 841a | | Call 0x2,0x1a 0ff7 00e2 | | Load_Encached Integer_Cache 0ff8 00e0 | | Load_Encached Standard_Cache 0ff9 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0ffa 00d8 | | Load_Top At_Offset_0 0ffb 00e3 | | Load_Encached Natural_Cache 0ffc 0260 | ` | Execute Discrete,In_Type 0ffd 7001 |p | Jump_Nonzero 0xfff 0ffe 0801 | | Execute_Immediate Raise,0x1 0fff e404 | | Load 0x2,0x4 1000 8229 | ) | Call 0x1,0x29 1001 e402 | | Load 0x2,0x2 1002 017d | } | Execute Record,Structure_Write 1003 78c8 |x | Jump 0x10cc 1004 841a | | Call 0x2,0x1a 1005 825f | _ | Call 0x1,0x5f 1006 a407 | | Store_Unchecked 0x2,0x7 1007 841a | | Call 0x2,0x1a 1008 825f | _ | Call 0x1,0x5f 1009 a408 | | Store_Unchecked 0x2,0x8 100a e408 | | Load 0x2,0x8 100b 841a | | Call 0x2,0x1a 100c 8254 | T | Call 0x1,0x54 100d e404 | | Load 0x2,0x4 100e 822a | * | Call 0x1,0x2a 100f e402 | | Load 0x2,0x2 1010 017d | } | Execute Record,Structure_Write 1011 78ba |x | Jump 0x10cc 1012 841a | | Call 0x2,0x1a 1013 825f | _ | Call 0x1,0x5f 1014 a407 | | Store_Unchecked 0x2,0x7 1015 841a | | Call 0x2,0x1a 1016 825f | _ | Call 0x1,0x5f 1017 a408 | | Store_Unchecked 0x2,0x8 1018 e408 | | Load 0x2,0x8 1019 841a | | Call 0x2,0x1a 101a 8254 | T | Call 0x1,0x54 101b e404 | | Load 0x2,0x4 101c 822a | * | Call 0x1,0x2a 101d e402 | | Load 0x2,0x2 101e 017d | } | Execute Record,Structure_Write 101f 78ac |x | Jump 0x10cc 1020 841a | | Call 0x2,0x1a 1021 825f | _ | Call 0x1,0x5f 1022 a407 | | Store_Unchecked 0x2,0x7 1023 841a | | Call 0x2,0x1a 1024 825f | _ | Call 0x1,0x5f 1025 a408 | | Store_Unchecked 0x2,0x8 1026 841a | | Call 0x2,0x1a 1027 825f | _ | Call 0x1,0x5f 1028 e404 | | Load 0x2,0x4 1029 822c | , | Call 0x1,0x2c 102a e402 | | Load 0x2,0x2 102b 017d | } | Execute Record,Structure_Write 102c 789f |x | Jump 0x10cc 102d 841a | | Call 0x2,0x1a 102e 825f | _ | Call 0x1,0x5f 102f a407 | | Store_Unchecked 0x2,0x7 1030 841a | | Call 0x2,0x1a 1031 825f | _ | Call 0x1,0x5f 1032 e404 | | Load 0x2,0x4 1033 822b | + | Call 0x1,0x2b 1034 e402 | | Load 0x2,0x2 1035 017d | } | Execute Record,Structure_Write 1036 7895 |x | Jump 0x10cc 1037 841a | | Call 0x2,0x1a 1038 825f | _ | Call 0x1,0x5f 1039 a407 | | Store_Unchecked 0x2,0x7 103a 841a | | Call 0x2,0x1a 103b 825f | _ | Call 0x1,0x5f 103c a408 | | Store_Unchecked 0x2,0x8 103d 841a | | Call 0x2,0x1a 103e 825f | _ | Call 0x1,0x5f 103f a405 | | Store_Unchecked 0x2,0x5 1040 e403 | | Load 0x2,0x3 1041 461b |F | Jump_Case 0x1c 1042 7889 |x | Jump 0x10cc ; case 0x0 1043 7888 |x | Jump 0x10cc ; case 0x1 1044 7887 |x | Jump 0x10cc ; case 0x2 1045 786d |xm | Jump 0x10b3 ; case 0x3 1046 7885 |x | Jump 0x10cc ; case 0x4 1047 783b |x; | Jump 0x1083 ; case 0x5 1048 7883 |x | Jump 0x10cc ; case 0x6 1049 7882 |x | Jump 0x10cc ; case 0x7 104a 7881 |x | Jump 0x10cc ; case 0x8 104b 782f |x/ | Jump 0x107b ; case 0x9 104c 7812 |x | Jump 0x105f ; case 0xa 104d 781f |x | Jump 0x106d ; case 0xb 104e 7854 |xT | Jump 0x10a3 ; case 0xc 104f 785b |x[ | Jump 0x10ab ; case 0xd 1050 784a |xJ | Jump 0x109b ; case 0xe 1051 7841 |xA | Jump 0x1093 ; case 0xf 1052 7879 |xy | Jump 0x10cc ; case 0x10 1053 7878 |xx | Jump 0x10cc ; case 0x11 1054 7877 |xw | Jump 0x10cc ; case 0x12 1055 7876 |xv | Jump 0x10cc ; case 0x13 1056 7875 |xu | Jump 0x10cc ; case 0x14 1057 7874 |xt | Jump 0x10cc ; case 0x15 1058 7873 |xs | Jump 0x10cc ; case 0x16 1059 7872 |xr | Jump 0x10cc ; case 0x17 105a 7871 |xq | Jump 0x10cc ; case 0x18 105b 7870 |xp | Jump 0x10cc ; case 0x19 105c 786f |xo | Jump 0x10cc ; case 0x1a 105d 786e |xn | Jump 0x10cc ; case 0x1b 105e 786d |xm | .XXX[0x1] 105f 841a | | Call 0x2,0x1a 1060 00e2 | | Load_Encached Integer_Cache 1061 00e0 | | Load_Encached Standard_Cache 1062 1819 | | Execute Package,Field_Execute,Field_Number 0x19 1063 c40a | | Store 0x2,0xa 1064 e408 | | Load 0x2,0x8 1065 e407 | | Load 0x2,0x7 1066 e405 | | Load 0x2,0x5 1067 e418 | | Load 0x2,0x18 1068 e404 | | Load 0x2,0x4 1069 8223 | # | Call 0x1,0x23 106a e402 | | Load 0x2,0x2 106b 017d | } | Execute Record,Structure_Write 106c 785f |x_ | Jump 0x10cc 106d 841a | | Call 0x2,0x1a 106e 00e2 | | Load_Encached Integer_Cache 106f 00e0 | | Load_Encached Standard_Cache 1070 1819 | | Execute Package,Field_Execute,Field_Number 0x19 1071 c40a | | Store 0x2,0xa 1072 e408 | | Load 0x2,0x8 1073 e407 | | Load 0x2,0x7 1074 e405 | | Load 0x2,0x5 1075 e418 | | Load 0x2,0x18 1076 e404 | | Load 0x2,0x4 1077 8224 | $ | Call 0x1,0x24 1078 e402 | | Load 0x2,0x2 1079 017d | } | Execute Record,Structure_Write 107a 7851 |xQ | Jump 0x10cc 107b e408 | | Load 0x2,0x8 107c e407 | | Load 0x2,0x7 107d e405 | | Load 0x2,0x5 107e e404 | | Load 0x2,0x4 107f 8222 | " | Call 0x1,0x22 1080 e402 | | Load 0x2,0x2 1081 017d | } | Execute Record,Structure_Write 1082 7849 |xI | Jump 0x10cc 1083 841a | | Call 0x2,0x1a 1084 825f | _ | Call 0x1,0x5f 1085 a40b | | Store_Unchecked 0x2,0xb 1086 841a | | Call 0x2,0x1a 1087 825f | _ | Call 0x1,0x5f 1088 a40c | | Store_Unchecked 0x2,0xc 1089 e408 | | Load 0x2,0x8 108a e407 | | Load 0x2,0x7 108b e405 | | Load 0x2,0x5 108c e40c | | Load 0x2,0xc 108d e40b | | Load 0x2,0xb 108e e404 | | Load 0x2,0x4 108f 821e | | Call 0x1,0x1e 1090 e402 | | Load 0x2,0x2 1091 017d | } | Execute Record,Structure_Write 1092 7839 |x9 | Jump 0x10cc 1093 e408 | | Load 0x2,0x8 1094 e407 | | Load 0x2,0x7 1095 e405 | | Load 0x2,0x5 1096 e404 | | Load 0x2,0x4 1097 8228 | ( | Call 0x1,0x28 1098 e402 | | Load 0x2,0x2 1099 017d | } | Execute Record,Structure_Write 109a 7831 |x1 | Jump 0x10cc 109b e408 | | Load 0x2,0x8 109c e407 | | Load 0x2,0x7 109d e405 | | Load 0x2,0x5 109e e404 | | Load 0x2,0x4 109f 8227 | ' | Call 0x1,0x27 10a0 e402 | | Load 0x2,0x2 10a1 017d | } | Execute Record,Structure_Write 10a2 7829 |x) | Jump 0x10cc 10a3 e408 | | Load 0x2,0x8 10a4 e407 | | Load 0x2,0x7 10a5 e405 | | Load 0x2,0x5 10a6 e404 | | Load 0x2,0x4 10a7 8225 | % | Call 0x1,0x25 10a8 e402 | | Load 0x2,0x2 10a9 017d | } | Execute Record,Structure_Write 10aa 7821 |x! | Jump 0x10cc 10ab e408 | | Load 0x2,0x8 10ac e407 | | Load 0x2,0x7 10ad e405 | | Load 0x2,0x5 10ae e404 | | Load 0x2,0x4 10af 8226 | & | Call 0x1,0x26 10b0 e402 | | Load 0x2,0x2 10b1 017d | } | Execute Record,Structure_Write 10b2 7819 |x | Jump 0x10cc 10b3 841a | | Call 0x2,0x1a 10b4 801b | | Call 0x0,0x1b 10b5 a415 | | Store_Unchecked 0x2,0x15 10b6 841a | | Call 0x2,0x1a 10b7 00e2 | | Load_Encached Integer_Cache 10b8 00e0 | | Load_Encached Standard_Cache 10b9 1819 | | Execute Package,Field_Execute,Field_Number 0x19 10ba c416 | | Store 0x2,0x16 10bb 841a | | Call 0x2,0x1a 10bc 00e2 | | Load_Encached Integer_Cache 10bd 00e0 | | Load_Encached Standard_Cache 10be 1819 | | Execute Package,Field_Execute,Field_Number 0x19 10bf c410 | | Store 0x2,0x10 10c0 e409 | | Load 0x2,0x9 10c1 e417 | | Load 0x2,0x17 10c2 e408 | | Load 0x2,0x8 10c3 e407 | | Load 0x2,0x7 10c4 e405 | | Load 0x2,0x5 10c5 e410 | | Load 0x2,0x10 10c6 e416 | | Load 0x2,0x16 10c7 e415 | | Load 0x2,0x15 10c8 e404 | | Load 0x2,0x4 10c9 821b | | Call 0x1,0x1b 10ca e402 | | Load 0x2,0x2 10cb 017d | } | Execute Record,Structure_Write 10cc e402 | | Load 0x2,0x2 10cd 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 10ce 0000 0000 | | .XXX[0x2] 10d0 ; -------------------------------------------------------------------------------------- 10d0 ; SUBPROGRAM 10d0 ; -------------------------------------------------------------------------------------- 10d0 10d3 | | .CONST 0x10d3 ; Address of begin 10d1 0004 | | .CONST 0x0004 ; Address of exception handler 10d2 0001 | | .CONST 0x0001 ; Number of locals 10d3 BODY_10d0: 10d3 INIT_10d0: 10d3 00da | | Load_Top At_Offset_2 10d4 4606 |F | Jump_Case 0x7 10d5 780a |x | Jump 0x10e0 ; case 0x0 10d6 7807 |x | Jump 0x10de ; case 0x1 10d7 7810 |x | Jump 0x10e8 ; case 0x2 10d8 780b |x | Jump 0x10e4 ; case 0x3 10d9 7808 |x | Jump 0x10e2 ; case 0x4 10da 780b |x | Jump 0x10e6 ; case 0x5 10db 7800 |x | Jump 0x10dc ; case 0x6 10dc 484f |HO | Short_Literal 0x4f 10dd 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 10de 4845 |HE | Short_Literal 0x45 10df 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 10e0 4849 |HI | Short_Literal 0x49 10e1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 10e2 4858 |HX | Short_Literal 0x58 10e3 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 10e4 4841 |HA | Short_Literal 0x41 10e5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 10e6 4854 |HT | Short_Literal 0x54 10e7 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 10e8 4846 |HF | Short_Literal 0x46 10e9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 10ea 0000 0000 | | .BLANK 0000[0x6] 10f0 ; -------------------------------------------------------------------------------------- 10f0 ; SUBPROGRAM 10f0 ; -------------------------------------------------------------------------------------- 10f0 10fb | | .CONST 0x10fb ; Address of begin 10f1 0004 | | .CONST 0x0004 ; Address of exception handler 10f2 0003 | | .CONST 0x0003 ; Number of locals 10f3 INIT_10f0: 10f3 4878 |Hx | Short_Literal 0x78 10f4 e019 | | Load 0x0,0x19 10f5 1b0e | | Execute Package,Field_Read,Field_Number 0xe 10f6 1c08 | | Execute_Immediate Run_Utility,0x8 10f7 00d8 | | Load_Top At_Offset_0 10f8 1c00 | | Execute_Immediate Run_Utility,0x0 10f9 029f 138b | | Declare_Subprogram INIT_1388,For_Call 10fb BODY_10f0: 10fb 00d9 | | Load_Top At_Offset_1 10fc 00ea | | Load_Encached Null_String_Cache 10fd e019 | | Load 0x0,0x19 10fe 1810 | | Execute Package,Field_Execute,Field_Number 0x10 10ff 00d1 | | Pop_Control Pop_Count_1 1100 00d9 | | Load_Top At_Offset_1 1101 e5fe | | Load 0x2,-0x2 1102 e5ff | | Load 0x2,-0x1 1103 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 1104 8264 | d | Call 0x1,0x64 1105 e019 | | Load 0x0,0x19 1106 1818 | | Execute Package,Field_Execute,Field_Number 0x18 1107 00d1 | | Pop_Control Pop_Count_1 1108 e5fe | | Load 0x2,-0x2 1109 680b |h | Jump_Zero 0x1115 110a 00d9 | | Load_Top At_Offset_1 110b e019 | | Load 0x0,0x19 110c 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 110d 0d18 | | Execute_Immediate Less,0x18 110e 6806 |h | Jump_Zero 0x1115 110f 00d9 | | Load_Top At_Offset_1 1110 4820 |H | Short_Literal 0x20 1111 4818 |H | Short_Literal 0x18 1112 e019 | | Load 0x0,0x19 1113 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 1114 00d1 | | Pop_Control Pop_Count_1 1115 0092 13ea | | Action Push_String_Extended,0x13ea ; "[" 1117 8403 | | Call 0x2,0x3 1118 00d9 | | Load_Top At_Offset_1 1119 e5ff | | Load 0x2,-0x1 111a 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 111b 00e0 | | Load_Encached Standard_Cache 111c 1818 | | Execute Package,Field_Execute,Field_Number 0x18 111d e019 | | Load 0x0,0x19 111e 1818 | | Execute Package,Field_Execute,Field_Number 0x18 111f 00d1 | | Pop_Control Pop_Count_1 1120 0092 13eb | | Action Push_String_Extended,0x13eb ; "]" 1122 8403 | | Call 0x2,0x3 1123 e5fe | | Load 0x2,-0x2 1124 680d |h | Jump_Zero 0x1132 1125 e5ff | | Load 0x2,-0x1 1126 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 1127 6803 |h | Jump_Zero 0x112b 1128 0092 13ec | | Action Push_String_Extended,0x13ec ; "Result" 112a 8403 | | Call 0x2,0x3 112b e5ff | | Load 0x2,-0x1 112c 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 112d 6812 |h | Jump_Zero 0x1140 112e 0092 13ed | | Action Push_String_Extended,0x13ed ; "Mark" 1130 8403 | | Call 0x2,0x3 1131 780e |x | Jump 0x1140 1132 00d9 | | Load_Top At_Offset_1 1133 e5ff | | Load 0x2,-0x1 1134 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 1135 8265 | e | Call 0x1,0x65 1136 e019 | | Load 0x0,0x19 1137 1818 | | Execute Package,Field_Execute,Field_Number 0x18 1138 00d1 | | Pop_Control Pop_Count_1 1139 00d9 | | Load_Top At_Offset_1 113a e5ff | | Load 0x2,-0x1 113b 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 113c 8265 | e | Call 0x1,0x65 113d e019 | | Load 0x0,0x19 113e 1818 | | Execute Package,Field_Execute,Field_Number 0x18 113f 00d1 | | Pop_Control Pop_Count_1 1140 e5ff | | Load 0x2,-0x1 1141 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 1142 461b |F | Jump_Case 0x1c 1143 7953 |yS | Jump 0x1297 ; case 0x0 1144 7952 |yR | Jump 0x1297 ; case 0x1 1145 7826 |x& | Jump 0x116c ; case 0x2 1146 789b |x | Jump 0x11e2 ; case 0x3 1147 7818 |x | Jump 0x1160 ; case 0x4 1148 7899 |x | Jump 0x11e2 ; case 0x5 1149 794d |yM | Jump 0x1297 ; case 0x6 114a 794c |yL | Jump 0x1297 ; case 0x7 114b 794b |yK | Jump 0x1297 ; case 0x8 114c 7895 |x | Jump 0x11e2 ; case 0x9 114d 7894 |x | Jump 0x11e2 ; case 0xa 114e 7893 |x | Jump 0x11e2 ; case 0xb 114f 7892 |x | Jump 0x11e2 ; case 0xc 1150 7891 |x | Jump 0x11e2 ; case 0xd 1151 7890 |x | Jump 0x11e2 ; case 0xe 1152 788f |x | Jump 0x11e2 ; case 0xf 1153 786e |xn | Jump 0x11c2 ; case 0x10 1154 7822 |x" | Jump 0x1177 ; case 0x11 1155 7821 |x! | Jump 0x1177 ; case 0x12 1156 7940 |y@ | Jump 0x1297 ; case 0x13 1157 793f |y? | Jump 0x1297 ; case 0x14 1158 7875 |xu | Jump 0x11ce ; case 0x15 1159 793d |y= | Jump 0x1297 ; case 0x16 115a 793c |y< | Jump 0x1297 ; case 0x17 115b 7835 |x5 | Jump 0x1191 ; case 0x18 115c 7828 |x( | Jump 0x1185 ; case 0x19 115d 7855 |xU | Jump 0x11b3 ; case 0x1a 115e 7938 |y8 | Jump 0x1297 ; case 0x1b 115f 7937 |y7 | .XXX[0x1] 1160 0092 13ee | | Action Push_String_Extended,0x13ee ; "Index:" 1162 8403 | | Call 0x2,0x3 1163 00d9 | | Load_Top At_Offset_1 1164 e5ff | | Load 0x2,-0x1 1165 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 1166 00e0 | | Load_Encached Standard_Cache 1167 1818 | | Execute Package,Field_Execute,Field_Number 0x18 1168 e019 | | Load 0x0,0x19 1169 1818 | | Execute Package,Field_Execute,Field_Number 0x18 116a 00d1 | | Pop_Control Pop_Count_1 116b 792b |y+ | Jump 0x1297 116c 0092 13ef | | Action Push_String_Extended,0x13ef ; "Task:" 116e 8403 | | Call 0x2,0x3 116f 00d9 | | Load_Top At_Offset_1 1170 e5ff | | Load 0x2,-0x1 1171 3c0e |< | Execute Record,Field_Read,Field_Number 0xe 1172 801c | | Call 0x0,0x1c 1173 e019 | | Load 0x0,0x19 1174 1818 | | Execute Package,Field_Execute,Field_Number 0x18 1175 00d1 | | Pop_Control Pop_Count_1 1176 7920 |y | Jump 0x1297 1177 00d9 | | Load_Top At_Offset_1 1178 0092 13f0 | | Action Push_String_Extended,0x13f0 ; " " 117a e019 | | Load 0x0,0x19 117b 1818 | | Execute Package,Field_Execute,Field_Number 0x18 117c 00d1 | | Pop_Control Pop_Count_1 117d 00d9 | | Load_Top At_Offset_1 117e e5ff | | Load 0x2,-0x1 117f 3407 |4 | Execute Record,Field_Reference,Field_Number 0x7 1180 801d | | Call 0x0,0x1d 1181 e019 | | Load 0x0,0x19 1182 1818 | | Execute Package,Field_Execute,Field_Number 0x18 1183 00d1 | | Pop_Control Pop_Count_1 1184 7912 |y | Jump 0x1297 1185 0092 13f1 | | Action Push_String_Extended,0x13f1 ; "Offset:" 1187 8403 | | Call 0x2,0x3 1188 00d9 | | Load_Top At_Offset_1 1189 e5ff | | Load 0x2,-0x1 118a 3c08 |< | Execute Record,Field_Read,Field_Number 0x8 118b 00e0 | | Load_Encached Standard_Cache 118c 1818 | | Execute Package,Field_Execute,Field_Number 0x18 118d e019 | | Load 0x0,0x19 118e 1818 | | Execute Package,Field_Execute,Field_Number 0x18 118f 00d1 | | Pop_Control Pop_Count_1 1190 7906 |y | Jump 0x1297 1191 0092 13f2 | | Action Push_String_Extended,0x13f2 ; "Start_Offset:" 1193 8403 | | Call 0x2,0x3 1194 00d9 | | Load_Top At_Offset_1 1195 e5ff | | Load 0x2,-0x1 1196 3c0a |< | Execute Record,Field_Read,Field_Number 0xa 1197 00e0 | | Load_Encached Standard_Cache 1198 1818 | | Execute Package,Field_Execute,Field_Number 0x18 1199 e019 | | Load 0x0,0x19 119a 1818 | | Execute Package,Field_Execute,Field_Number 0x18 119b 00d1 | | Pop_Control Pop_Count_1 119c 0092 13f3 | | Action Push_String_Extended,0x13f3 ; "Max_Elements:" 119e 8403 | | Call 0x2,0x3 119f 00d9 | | Load_Top At_Offset_1 11a0 e5ff | | Load 0x2,-0x1 11a1 3c0b |< | Execute Record,Field_Read,Field_Number 0xb 11a2 00e0 | | Load_Encached Standard_Cache 11a3 1818 | | Execute Package,Field_Execute,Field_Number 0x18 11a4 e019 | | Load 0x0,0x19 11a5 1818 | | Execute Package,Field_Execute,Field_Number 0x18 11a6 00d1 | | Pop_Control Pop_Count_1 11a7 0092 13f4 | | Action Push_String_Extended,0x13f4 ; "Instruction_Count:" 11a9 8403 | | Call 0x2,0x3 11aa 00d9 | | Load_Top At_Offset_1 11ab e5ff | | Load 0x2,-0x1 11ac 3c0c |< | Execute Record,Field_Read,Field_Number 0xc 11ad 00e0 | | Load_Encached Standard_Cache 11ae 1818 | | Execute Package,Field_Execute,Field_Number 0x18 11af e019 | | Load 0x0,0x19 11b0 1818 | | Execute Package,Field_Execute,Field_Number 0x18 11b1 00d1 | | Pop_Control Pop_Count_1 11b2 78e4 |x | Jump 0x1297 11b3 0092 13ee | | Action Push_String_Extended,0x13ee ; "Index:" 11b5 8403 | | Call 0x2,0x3 11b6 00d9 | | Load_Top At_Offset_1 11b7 e5ff | | Load 0x2,-0x1 11b8 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 11b9 00e0 | | Load_Encached Standard_Cache 11ba 1818 | | Execute Package,Field_Execute,Field_Number 0x18 11bb e019 | | Load 0x0,0x19 11bc 1818 | | Execute Package,Field_Execute,Field_Number 0x18 11bd 00d1 | | Pop_Control Pop_Count_1 11be 0092 13f5 | | Action Push_String_Extended,0x13f5 ; "Space: (skipped)" 11c0 8403 | | Call 0x2,0x3 11c1 78d5 |x | Jump 0x1297 11c2 0092 13ee | | Action Push_String_Extended,0x13ee ; "Index:" 11c4 8403 | | Call 0x2,0x3 11c5 00d9 | | Load_Top At_Offset_1 11c6 e5ff | | Load 0x2,-0x1 11c7 3c06 |< | Execute Record,Field_Read,Field_Number 0x6 11c8 00e0 | | Load_Encached Standard_Cache 11c9 1818 | | Execute Package,Field_Execute,Field_Number 0x18 11ca e019 | | Load 0x0,0x19 11cb 1818 | | Execute Package,Field_Execute,Field_Number 0x18 11cc 00d1 | | Pop_Control Pop_Count_1 11cd 78c9 |x | Jump 0x1297 11ce e5fe | | Load 0x2,-0x2 11cf 680a |h | Jump_Zero 0x11da 11d0 e5ff | | Load 0x2,-0x1 11d1 3c09 |< | Execute Record,Field_Read,Field_Number 0x9 11d2 68c4 |h | Jump_Zero 0x1297 11d3 00d9 | | Load_Top At_Offset_1 11d4 0092 13f6 | | Action Push_String_Extended,0x13f6 ; " Pop" 11d6 e019 | | Load 0x0,0x19 11d7 1818 | | Execute Package,Field_Execute,Field_Number 0x18 11d8 00d1 | | Pop_Control Pop_Count_1 11d9 78bd |x | Jump 0x1297 11da 00d9 | | Load_Top At_Offset_1 11db e5ff | | Load 0x2,-0x1 11dc 3c09 |< | Execute Record,Field_Read,Field_Number 0x9 11dd 8265 | e | Call 0x1,0x65 11de e019 | | Load 0x0,0x19 11df 1818 | | Execute Package,Field_Execute,Field_Number 0x18 11e0 00d1 | | Pop_Control Pop_Count_1 11e1 78b5 |x | Jump 0x1297 11e2 e5fe | | Load 0x2,-0x2 11e3 680a |h | Jump_Zero 0x11ee 11e4 e5ff | | Load 0x2,-0x1 11e5 3c0d |< | Execute Record,Field_Read,Field_Number 0xd 11e6 680e |h | Jump_Zero 0x11f5 11e7 00d9 | | Load_Top At_Offset_1 11e8 0092 13f7 | | Action Push_String_Extended,0x13f7 ; " Write" 11ea e019 | | Load 0x0,0x19 11eb 1818 | | Execute Package,Field_Execute,Field_Number 0x18 11ec 00d1 | | Pop_Control Pop_Count_1 11ed 7807 |x | Jump 0x11f5 11ee 00d9 | | Load_Top At_Offset_1 11ef e5ff | | Load 0x2,-0x1 11f0 3c0d |< | Execute Record,Field_Read,Field_Number 0xd 11f1 8265 | e | Call 0x1,0x65 11f2 e019 | | Load 0x0,0x19 11f3 1818 | | Execute Package,Field_Execute,Field_Number 0x18 11f4 00d1 | | Pop_Control Pop_Count_1 11f5 e5ff | | Load 0x2,-0x1 11f6 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 11f7 461b |F | Jump_Case 0x1c 11f8 789e |x | Jump 0x1297 ; case 0x0 11f9 789d |x | Jump 0x1297 ; case 0x1 11fa 789c |x | Jump 0x1297 ; case 0x2 11fb 7862 |xb | Jump 0x125e ; case 0x3 11fc 789a |x | Jump 0x1297 ; case 0x4 11fd 7817 |x | Jump 0x1215 ; case 0x5 11fe 7898 |x | Jump 0x1297 ; case 0x6 11ff 7897 |x | Jump 0x1297 ; case 0x7 1200 7896 |x | Jump 0x1297 ; case 0x8 1201 7813 |x | Jump 0x1215 ; case 0x9 1202 784f |xO | Jump 0x1252 ; case 0xa 1203 784e |xN | Jump 0x1252 ; case 0xb 1204 7892 |x | Jump 0x1297 ; case 0xc 1205 7891 |x | Jump 0x1297 ; case 0xd 1206 7890 |x | Jump 0x1297 ; case 0xe 1207 780d |x | Jump 0x1215 ; case 0xf 1208 788e |x | Jump 0x1297 ; case 0x10 1209 788d |x | Jump 0x1297 ; case 0x11 120a 788c |x | Jump 0x1297 ; case 0x12 120b 788b |x | Jump 0x1297 ; case 0x13 120c 788a |x | Jump 0x1297 ; case 0x14 120d 7889 |x | Jump 0x1297 ; case 0x15 120e 7888 |x | Jump 0x1297 ; case 0x16 120f 7887 |x | Jump 0x1297 ; case 0x17 1210 7886 |x | Jump 0x1297 ; case 0x18 1211 7885 |x | Jump 0x1297 ; case 0x19 1212 7884 |x | Jump 0x1297 ; case 0x1a 1213 7883 |x | Jump 0x1297 ; case 0x1b 1214 7882 |x | .XXX[0x1] 1215 00d9 | | Load_Top At_Offset_1 1216 0092 13f0 | | Action Push_String_Extended,0x13f0 ; " " 1218 e019 | | Load 0x0,0x19 1219 1818 | | Execute Package,Field_Execute,Field_Number 0x18 121a 00d1 | | Pop_Control Pop_Count_1 121b e5ff | | Load 0x2,-0x1 121c 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 121d 0f05 | | Execute_Immediate Equal,0x5 121e 7001 |p | Jump_Nonzero 0x1220 121f 7877 |xw | Jump 0x1297 1220 00d9 | | Load_Top At_Offset_1 1221 0092 13f0 | | Action Push_String_Extended,0x13f0 ; " " 1223 e019 | | Load 0x0,0x19 1224 1818 | | Execute Package,Field_Execute,Field_Number 0x18 1225 00d1 | | Pop_Control Pop_Count_1 1226 e5fe | | Load 0x2,-0x2 1227 6815 |h | Jump_Zero 0x123d 1228 e5ff | | Load 0x2,-0x1 1229 3c14 |< | Execute Record,Field_Read,Field_Number 0x14 122a 6804 |h | Jump_Zero 0x122f 122b 0092 13f8 | | Action Push_String_Extended,0x13f8 ; "Fixed" 122d 8403 | | Call 0x2,0x3 122e 7803 |x | Jump 0x1232 122f 0092 13f9 | | Action Push_String_Extended,0x13f9 ; "Variant" 1231 8403 | | Call 0x2,0x3 1232 e5ff | | Load 0x2,-0x1 1233 3c15 |< | Execute Record,Field_Read,Field_Number 0x15 1234 6804 |h | Jump_Zero 0x1239 1235 0092 13fa | | Action Push_String_Extended,0x13fa ; "Direct" 1237 8403 | | Call 0x2,0x3 1238 785e |x^ | Jump 0x1297 1239 0092 13fb | | Action Push_String_Extended,0x13fb ; "Indirect" 123b 8403 | | Call 0x2,0x3 123c 785a |xZ | Jump 0x1297 123d 00d9 | | Load_Top At_Offset_1 123e e5ff | | Load 0x2,-0x1 123f 3c14 |< | Execute Record,Field_Read,Field_Number 0x14 1240 8265 | e | Call 0x1,0x65 1241 e019 | | Load 0x0,0x19 1242 1818 | | Execute Package,Field_Execute,Field_Number 0x18 1243 00d1 | | Pop_Control Pop_Count_1 1244 00d9 | | Load_Top At_Offset_1 1245 0092 13f0 | | Action Push_String_Extended,0x13f0 ; " " 1247 e019 | | Load 0x0,0x19 1248 1818 | | Execute Package,Field_Execute,Field_Number 0x18 1249 00d1 | | Pop_Control Pop_Count_1 124a 00d9 | | Load_Top At_Offset_1 124b e5ff | | Load 0x2,-0x1 124c 3c15 |< | Execute Record,Field_Read,Field_Number 0x15 124d 8265 | e | Call 0x1,0x65 124e e019 | | Load 0x0,0x19 124f 1818 | | Execute Package,Field_Execute,Field_Number 0x18 1250 00d1 | | Pop_Control Pop_Count_1 1251 7845 |xE | Jump 0x1297 1252 0092 13fc | | Action Push_String_Extended,0x13fc ; "Field:" 1254 8403 | | Call 0x2,0x3 1255 00d9 | | Load_Top At_Offset_1 1256 e5ff | | Load 0x2,-0x1 1257 3c13 |< | Execute Record,Field_Read,Field_Number 0x13 1258 00e0 | | Load_Encached Standard_Cache 1259 1818 | | Execute Package,Field_Execute,Field_Number 0x18 125a e019 | | Load 0x0,0x19 125b 1818 | | Execute Package,Field_Execute,Field_Number 0x18 125c 00d1 | | Pop_Control Pop_Count_1 125d 7839 |x9 | Jump 0x1297 125e 00d9 | | Load_Top At_Offset_1 125f 0092 13f0 | | Action Push_String_Extended,0x13f0 ; " " 1261 e019 | | Load 0x0,0x19 1262 1818 | | Execute Package,Field_Execute,Field_Number 0x18 1263 00d1 | | Pop_Control Pop_Count_1 1264 0092 13ef | | Action Push_String_Extended,0x13ef ; "Task:" 1266 8403 | | Call 0x2,0x3 1267 00d9 | | Load_Top At_Offset_1 1268 e5ff | | Load 0x2,-0x1 1269 3c0e |< | Execute Record,Field_Read,Field_Number 0xe 126a 801c | | Call 0x0,0x1c 126b e019 | | Load 0x0,0x19 126c 1818 | | Execute Package,Field_Execute,Field_Number 0x18 126d 00d1 | | Pop_Control Pop_Count_1 126e 0092 13fd | | Action Push_String_Extended,0x13fd ; "Frame:" 1270 8403 | | Call 0x2,0x3 1271 00d9 | | Load_Top At_Offset_1 1272 e5ff | | Load 0x2,-0x1 1273 3c0f |< | Execute Record,Field_Read,Field_Number 0xf 1274 00e0 | | Load_Encached Standard_Cache 1275 1818 | | Execute Package,Field_Execute,Field_Number 0x18 1276 e019 | | Load 0x0,0x19 1277 1818 | | Execute Package,Field_Execute,Field_Number 0x18 1278 00d1 | | Pop_Control Pop_Count_1 1279 0092 13f1 | | Action Push_String_Extended,0x13f1 ; "Offset:" 127b 8403 | | Call 0x2,0x3 127c 00d9 | | Load_Top At_Offset_1 127d 0092 13f0 | | Action Push_String_Extended,0x13f0 ; " " 127f e019 | | Load 0x0,0x19 1280 1818 | | Execute Package,Field_Execute,Field_Number 0x18 1281 00d1 | | Pop_Control Pop_Count_1 1282 00d9 | | Load_Top At_Offset_1 1283 e5ff | | Load 0x2,-0x1 1284 3c10 |< | Execute Record,Field_Read,Field_Number 0x10 1285 00e0 | | Load_Encached Standard_Cache 1286 1818 | | Execute Package,Field_Execute,Field_Number 0x18 1287 e019 | | Load 0x0,0x19 1288 1818 | | Execute Package,Field_Execute,Field_Number 0x18 1289 00d1 | | Pop_Control Pop_Count_1 128a 00d9 | | Load_Top At_Offset_1 128b 0092 13fe | | Action Push_String_Extended,0x13fe ; " FramePtr: " 128d e019 | | Load 0x0,0x19 128e 1818 | | Execute Package,Field_Execute,Field_Number 0x18 128f 00d1 | | Pop_Control Pop_Count_1 1290 00d9 | | Load_Top At_Offset_1 1291 e5ff | | Load 0x2,-0x1 1292 3c11 |< | Execute Record,Field_Read,Field_Number 0x11 1293 801e | | Call 0x0,0x1e 1294 e019 | | Load 0x0,0x19 1295 1818 | | Execute Package,Field_Execute,Field_Number 0x18 1296 00d1 | | Pop_Control Pop_Count_1 1297 00d9 | | Load_Top At_Offset_1 1298 e019 | | Load 0x0,0x19 1299 1813 | | Execute Package,Field_Execute,Field_Number 0x13 129a 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 129b 0000 0000 | | .BLANK 0000[0x5] 12a0 ; -------------------------------------------------------------------------------------- 12a0 ; SUBPROGRAM 12a0 ; -------------------------------------------------------------------------------------- 12a0 12ad | | .CONST 0x12ad ; Address of begin 12a1 0004 | | .CONST 0x0004 ; Address of exception handler 12a2 0002 | | .CONST 0x0002 ; Number of locals 12a3 INIT_12a0: 12a3 00da | | Load_Top At_Offset_2 12a4 e25b | [ | Load 0x1,0x5b 12a5 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 12a6 4878 |Hx | Short_Literal 0x78 12a7 0271 | q | Execute Discrete,Times 12a8 e019 | | Load 0x0,0x19 12a9 1b0e | | Execute Package,Field_Read,Field_Number 0xe 12aa 1c08 | | Execute_Immediate Run_Utility,0x8 12ab 00d8 | | Load_Top At_Offset_0 12ac 1c00 | | Execute_Immediate Run_Utility,0x0 12ad BODY_12a0: 12ad 00d8 | | Load_Top At_Offset_0 12ae 00ea | | Load_Encached Null_String_Cache 12af e019 | | Load 0x0,0x19 12b0 1810 | | Execute Package,Field_Execute,Field_Number 0x10 12b1 00d1 | | Pop_Control Pop_Count_1 12b2 00cf | | Action Mark_Auxiliary 12b3 e5ff | | Load 0x2,-0x1 12b4 e25b | [ | Load 0x1,0x5b 12b5 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 12b6 4801 |H | Short_Literal 0x1 12b7 0263 | c | Execute Discrete,Above_Bound 12b8 7019 |p | Jump_Nonzero 0x12d2 12b9 00db | | Load_Top At_Offset_3 12ba e5fe | | Load 0x2,-0x2 12bb 00da | | Load_Top At_Offset_2 12bc e5ff | | Load 0x2,-0x1 12bd e25b | [ | Load 0x1,0x5b 12be 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 12bf 8262 | b | Call 0x1,0x62 12c0 e019 | | Load 0x0,0x19 12c1 1818 | | Execute Package,Field_Execute,Field_Number 0x18 12c2 00d1 | | Pop_Control Pop_Count_1 12c3 e5fe | | Load 0x2,-0x2 12c4 6806 |h | Jump_Zero 0x12cb 12c5 00db | | Load_Top At_Offset_3 12c6 480a |H | Short_Literal 0xa 12c7 e019 | | Load 0x0,0x19 12c8 1819 | | Execute Package,Field_Execute,Field_Number 0x19 12c9 00d1 | | Pop_Control Pop_Count_1 12ca 7805 |x | Jump 0x12d0 12cb 00db | | Load_Top At_Offset_3 12cc 480d |H | Short_Literal 0xd 12cd e019 | | Load 0x0,0x19 12ce 1819 | | Execute Package,Field_Execute,Field_Number 0x19 12cf 00d1 | | Pop_Control Pop_Count_1 12d0 00c8 | | Action Pop_Auxiliary_Range 12d1 3fe7 |? | Loop_Increasing 0x12b9 12d2 00ce | | Action Pop_Auxiliary 12d3 00d8 | | Load_Top At_Offset_0 12d4 e019 | | Load 0x0,0x19 12d5 1813 | | Execute Package,Field_Execute,Field_Number 0x13 12d6 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 12d7 0000 | | .XXX[0x1] 12d8 ; -------------------------------------------------------------------------------------- 12d8 ; SUBPROGRAM 12d8 ; -------------------------------------------------------------------------------------- 12d8 12db | | .CONST 0x12db ; Address of begin 12d9 0004 | | .CONST 0x0004 ; Address of exception handler 12da 0001 | | .CONST 0x0001 ; Number of locals 12db BODY_12d8: 12db INIT_12d8: 12db 00db | | Load_Top At_Offset_3 12dc 6805 |h | Jump_Zero 0x12e2 12dd 00da | | Load_Top At_Offset_2 12de e20d | | Load 0x1,0xd 12df 011c | | Execute Any,Convert_Unchecked 12e0 1c01 | | Execute_Immediate Run_Utility,0x1 12e1 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 12e2 00da | | Load_Top At_Offset_2 12e3 461b |F | Jump_Case 0x1c 12e4 781e |x | Jump 0x1303 ; case 0x0 12e5 7820 |x | Jump 0x1306 ; case 0x1 12e6 7846 |xF | Jump 0x132d ; case 0x2 12e7 7848 |xH | Jump 0x1330 ; case 0x3 12e8 782c |x, | Jump 0x1315 ; case 0x4 12e9 7849 |xI | Jump 0x1333 ; case 0x5 12ea 781e |x | Jump 0x1309 ; case 0x6 12eb 7823 |x# | Jump 0x130f ; case 0x7 12ec 7825 |x% | Jump 0x1312 ; case 0x8 12ed 7848 |xH | Jump 0x1336 ; case 0x9 12ee 784a |xJ | Jump 0x1339 ; case 0xa 12ef 784c |xL | Jump 0x133c ; case 0xb 12f0 784e |xN | Jump 0x133f ; case 0xc 12f1 7850 |xP | Jump 0x1342 ; case 0xd 12f2 7852 |xR | Jump 0x1345 ; case 0xe 12f3 7836 |x6 | Jump 0x132a ; case 0xf 12f4 7823 |x# | Jump 0x1318 ; case 0x10 12f5 7825 |x% | Jump 0x131b ; case 0x11 12f6 7827 |x' | Jump 0x131e ; case 0x12 12f7 7814 |x | Jump 0x130c ; case 0x13 12f8 782e |x. | Jump 0x1327 ; case 0x14 12f9 782a |x* | Jump 0x1324 ; case 0x15 12fa 784d |xM | Jump 0x1348 ; case 0x16 12fb 784f |xO | Jump 0x134b ; case 0x17 12fc 7851 |xQ | Jump 0x134e ; case 0x18 12fd 7823 |x# | Jump 0x1321 ; case 0x19 12fe 7852 |xR | Jump 0x1351 ; case 0x1a 12ff 7800 |x | Jump 0x1300 ; case 0x1b 1300 0092 13e0 | | Action Push_String_Extended,0x13e0 ; "F" 1302 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 1303 0092 13ff | | Action Push_String_Extended,0x13ff ; "NO" 1305 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 1306 0092 13d4 | | Action Push_String_Extended,0x13d4 ; "ST" 1308 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 1309 0092 13e4 | | Action Push_String_Extended,0x13e4 ; "VCI" 130b 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 130c 0092 13d1 | | Action Push_String_Extended,0x13d1 ; "LTI" 130e 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 130f 0092 13d9 | | Action Push_String_Extended,0x13d9 ; "CTD" 1311 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 1312 0092 13de | | Action Push_String_Extended,0x13de ; "HCT" 1314 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 1315 0092 13dd | | Action Push_String_Extended,0x13dd ; "P" 1317 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 1318 0092 1400 | | Action Push_String_Extended,0x1400 ; "GAB" 131a 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 131b 0092 13d2 | | Action Push_String_Extended,0x13d2 ; "L" 131d 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 131e 0092 13d3 | | Action Push_String_Extended,0x13d3 ; "LFC" 1320 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 1321 0092 13ce | | Action Push_String_Extended,0x13ce ; "LOAD" 1323 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 1324 0092 13d5 | | Action Push_String_Extended,0x13d5 ; "SRV" 1326 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 1327 0092 13dc | | Action Push_String_Extended,0x13dc ; "PO" 1329 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 132a 0092 13e2 | | Action Push_String_Extended,0x13e2 ; "VA" 132c 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 132d 0092 13d7 | | Action Push_String_Extended,0x13d7 ; "TA" 132f 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 1330 0092 13e1 | | Action Push_String_Extended,0x13e1 ; "FA" 1332 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 1333 0092 13e3 | | Action Push_String_Extended,0x13e3 ; "VRF" 1335 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 1336 0092 13e5 | | Action Push_String_Extended,0x13e5 ; "RFA" 1338 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 1339 0092 13db | | Action Push_String_Extended,0x13db ; "PF" 133b 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 133c 0092 13d8 | | Action Push_String_Extended,0x13d8 ; "TF" 133e 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 133f 0092 13e7 | | Action Push_String_Extended,0x13e7 ; "AA" 1341 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 1342 0092 13df | | Action Push_String_Extended,0x13df ; "HAA" 1344 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 1345 0092 13e8 | | Action Push_String_Extended,0x13e8 ; "AR" 1347 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 1348 0092 13da | | Action Push_String_Extended,0x13da ; "CC" 134a 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 134b 0092 13e6 | | Action Push_String_Extended,0x13e6 ; "RC" 134d 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 134e 0092 13e9 | | Action Push_String_Extended,0x13e9 ; "ABR" 1350 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 1351 0092 13d6 | | Action Push_String_Extended,0x13d6 ; "SPDIS" 1353 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 1354 0000 0000 | | .BLANK 0000[0x4] 1358 ; -------------------------------------------------------------------------------------- 1358 ; SUBPROGRAM 1358 ; -------------------------------------------------------------------------------------- 1358 135b | [ | .CONST 0x135b ; Address of begin 1359 0004 | | .CONST 0x0004 ; Address of exception handler 135a 0001 | | .CONST 0x0001 ; Number of locals 135b BODY_1358: 135b INIT_1358: 135b 00da | | Load_Top At_Offset_2 135c 0f01 | | Execute_Immediate Equal,0x1 135d 7003 |p | Jump_Nonzero 0x1361 135e 0092 1401 | | Action Push_String_Extended,0x1401 ; " F" 1360 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 1361 0092 1402 | | Action Push_String_Extended,0x1402 ; " T" 1363 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 1364 0000 0000 | | .BLANK 0000[0x4] 1368 ; -------------------------------------------------------------------------------------- 1368 ; SUBPROGRAM 1368 ; -------------------------------------------------------------------------------------- 1368 136b | k | .CONST 0x136b ; Address of begin 1369 0004 | | .CONST 0x0004 ; Address of exception handler 136a 0001 | | .CONST 0x0001 ; Number of locals 136b BODY_1368: 136b INIT_1368: 136b 4501 |E | Exit_Suprogram New_Top_Offset 0x1 136c 0000 0000 | | .BLANK 0000[0x4] 1370 ; -------------------------------------------------------------------------------------- 1370 ; SUBPROGRAM 1370 ; -------------------------------------------------------------------------------------- 1370 1379 | y | .CONST 0x1379 ; Address of begin 1371 0004 | | .CONST 0x0004 ; Address of exception handler 1372 0002 | | .CONST 0x0002 ; Number of locals 1373 INIT_1370: 1373 4832 |H2 | Short_Literal 0x32 1374 e019 | | Load 0x0,0x19 1375 1b0e | | Execute Package,Field_Read,Field_Number 0xe 1376 1c08 | | Execute_Immediate Run_Utility,0x8 1377 00d8 | | Load_Top At_Offset_0 1378 1c00 | | Execute_Immediate Run_Utility,0x0 1379 BODY_1370: 1379 00d8 | | Load_Top At_Offset_0 137a e419 | | Load 0x2,0x19 137b e01a | | Load 0x0,0x1a 137c 180f | | Execute Package,Field_Execute,Field_Number 0xf 137d 00d2 | | Pop_Control Pop_Count_2 137e 00d8 | | Load_Top At_Offset_0 137f e019 | | Load 0x0,0x19 1380 1813 | | Execute Package,Field_Execute,Field_Number 0x13 1381 00ca | | Action Exit_Nullary_Function 1382 0000 0000 | | .BLANK 0000[0x6] 1388 ; -------------------------------------------------------------------------------------- 1388 ; SUBPROGRAM 1388 ; -------------------------------------------------------------------------------------- 1388 138b | | .CONST 0x138b ; Address of begin 1389 0004 | | .CONST 0x0004 ; Address of exception handler 138a 0001 | | .CONST 0x0001 ; Number of locals 138b BODY_1388: 138b INIT_1388: 138b e5fe | | Load 0x2,-0x2 138c 681a |h | Jump_Zero 0x13a7 138d e402 | | Load 0x2,0x2 138e e019 | | Load 0x0,0x19 138f 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 1390 00d8 | | Load_Top At_Offset_0 1391 00e4 | | Load_Encached Positive_Cache 1392 0260 | ` | Execute Discrete,In_Type 1393 7001 |p | Jump_Nonzero 0x1395 1394 0801 | | Execute_Immediate Raise,0x1 1395 e402 | | Load 0x2,0x2 1396 e019 | | Load 0x0,0x19 1397 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 1398 0e20 | | Execute_Immediate Not_Equal,0x20 1399 6805 |h | Jump_Zero 0x139f 139a e402 | | Load 0x2,0x2 139b 4820 |H | Short_Literal 0x20 139c e019 | | Load 0x0,0x19 139d 1819 | | Execute Package,Field_Execute,Field_Number 0x19 139e 00d1 | | Pop_Control Pop_Count_1 139f e402 | | Load 0x2,0x2 13a0 00db | | Load_Top At_Offset_3 13a1 0092 13f0 | | Action Push_String_Extended,0x13f0 ; " " 13a3 01cc | | Execute Vector,Catenate 13a4 e019 | | Load 0x0,0x19 13a5 1818 | | Execute Package,Field_Execute,Field_Number 0x18 13a6 00d1 | | Pop_Control Pop_Count_1 13a7 4502 |E | Exit_Suprogram New_Top_Offset 0x2 13a8 ; -------------------------------------------------------------------------------------- 13a8 ; SUBPROGRAM 13a8 ; -------------------------------------------------------------------------------------- 13a8 13ab | | .CONST 0x13ab ; Address of begin 13a9 0004 | | .CONST 0x0004 ; Address of exception handler 13aa 0001 | | .CONST 0x0001 ; Number of locals 13ab BODY_13a8: 13ab INIT_13a8: 13ab 4601 |F | Jump_Case 0x2 13ac 7801 |x | Jump 0x13ae ; case 0x0 13ad 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 13ae 00da | | Load_Top At_Offset_2 13af 3411 |4 | Execute Record,Field_Reference,Field_Number 0x11 13b0 0125 | % | Execute Any,Set_Constraint 13b1 00da | | Load_Top At_Offset_2 13b2 3411 |4 | Execute Record,Field_Reference,Field_Number 0x11 13b3 1c00 | | Execute_Immediate Run_Utility,0x0 13b4 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 13b5 ; -------------------------------------------------------------------------------------- 13b5 ; STRING TABLE 13b5 ; -------------------------------------------------------------------------------------- 13b5 009e | | .STRTAB 0x009e->0x1404 ; "NO_OP" 13b6 00a1 | | .STRTAB 0x00a1->0x1406 ; "STORE_TASK" 13b7 00a9 | | .STRTAB 0x00a9->0x140b ; "TASK_ACCESS" 13b8 00b2 | | .STRTAB 0x00b2->0x1411 ; "FRAME_ACCESS" 13b9 00bc | | .STRTAB 0x00bc->0x1417 ; "PACKAGE_ACCESS" 13ba 00c8 | | .STRTAB 0x00c8->0x141e ; "VARIANT_RECORD_FIELD_ACCESS" 13bb 00e1 | | .STRTAB 0x00e1->0x142b ; "VARIANT_CLAUSE_INDEX_READ" 13bc 00f8 | | .STRTAB 0x00f8->0x1438 ; "CONVERT_TO_DISCRETE" 13bd 0109 | | .STRTAB 0x0109->0x1441 ; "HEAP_CONVERT_TO_DISCRETE" 13be 011f | | .STRTAB 0x011f->0x144d ; "RECORD_FIELD_ACCESS" 13bf 0130 | 0 | .STRTAB 0x0130->0x1457 ; "PACKAGE_FIELD_ACCESS" 13c0 0142 | B | .STRTAB 0x0142->0x1461 ; "TASK_FIELD_ACCESS" 13c1 0151 | Q | .STRTAB 0x0151->0x1469 ; "ALL_ACCESS" 13c2 0159 | Y | .STRTAB 0x0159->0x146e ; "HEAP_ALL_ACCESS" 13c3 0166 | f | .STRTAB 0x0166->0x1476 ; "ARRAY_ACCESS" 13c4 0170 | p | .STRTAB 0x0170->0x147c ; "VECTOR_ACCESS" 13c5 017b | { | .STRTAB 0x017b->0x1482 ; "GET_ARRAY_BOUNDS" 13c6 0189 | | .STRTAB 0x0189->0x148a ; "LOAD_DISCRETE_CONSTANT" 13c7 019d | | .STRTAB 0x019d->0x1495 ; "LOAD_FLOAT_CONSTANT" 13c8 01ae | | .STRTAB 0x01ae->0x149f ; "LOAD_TASK_ID" 13c9 01b8 | | .STRTAB 0x01b8->0x14a5 ; "POP" 13ca 01b9 | | .STRTAB 0x01b9->0x14a6 ; "STORE_RETURN_VALUE" 13cb 01c9 | | .STRTAB 0x01c9->0x14af ; "CLEAR_CONTEXT" 13cc 01d4 | | .STRTAB 0x01d4->0x14b6 ; "RESTORE_CONTEXT" 13cd 01e1 | | .STRTAB 0x01e1->0x14bd ; "ARRAY_BLOCK_READ" 13ce 01ef | | .STRTAB 0x01ef->0x14c5 ; "LOAD" 13cf 01f1 | | .STRTAB 0x01f1->0x14c7 ; "SPECIAL_TYPE_DISPLAY" 13d0 0203 | | .STRTAB 0x0203->0x14d1 ; "FINI" 13d1 0205 | | .STRTAB 0x0205->0x14d3 ; "LTI" 13d2 0206 | | .STRTAB 0x0206->0x14d5 ; "L" 13d3 0205 | | .STRTAB 0x0205->0x14d5 ; "LFC" 13d4 0206 | | .STRTAB 0x0206->0x14d7 ; "ST" 13d5 0206 | | .STRTAB 0x0206->0x14d8 ; "SRV" 13d6 0207 | | .STRTAB 0x0207->0x14d9 ; "SPDIS" 13d7 020a | | .STRTAB 0x020a->0x14dc ; "TA" 13d8 020a | | .STRTAB 0x020a->0x14dd ; "TF" 13d9 020a | | .STRTAB 0x020a->0x14de ; "CTD" 13da 020b | | .STRTAB 0x020b->0x14df ; "CC" 13db 020b | | .STRTAB 0x020b->0x14e0 ; "PF" 13dc 020b | | .STRTAB 0x020b->0x14e1 ; "PO" 13dd 020b | | .STRTAB 0x020b->0x14e2 ; "P" 13de 020a | | .STRTAB 0x020a->0x14e3 ; "HCT" 13df 020b | | .STRTAB 0x020b->0x14e4 ; "HAA" 13e0 020c | | .STRTAB 0x020c->0x14e6 ; "F" 13e1 020b | | .STRTAB 0x020b->0x14e6 ; "FA" 13e2 020b | | .STRTAB 0x020b->0x14e7 ; "VA" 13e3 020b | | .STRTAB 0x020b->0x14e8 ; "VRF" 13e4 020c | | .STRTAB 0x020c->0x14ea ; "VCI" 13e5 020d | | .STRTAB 0x020d->0x14eb ; "RFA" 13e6 020e | | .STRTAB 0x020e->0x14ed ; "RC" 13e7 020e | | .STRTAB 0x020e->0x14ee ; "AA" 13e8 020e | | .STRTAB 0x020e->0x14ef ; "AR" 13e9 020e | | .STRTAB 0x020e->0x14f0 ; "ABR" 13ea 020f | | .STRTAB 0x020f->0x14f1 ; "[" 13eb 020e | | .STRTAB 0x020e->0x14f2 ; "]" 13ec 020d | | .STRTAB 0x020d->0x14f2 ; "Result" 13ed 0211 | | .STRTAB 0x0211->0x14f5 ; "Mark" 13ee 0213 | | .STRTAB 0x0213->0x14f7 ; "Index:" 13ef 0217 | | .STRTAB 0x0217->0x14fa ; "Task:" 13f0 021a | | .STRTAB 0x021a->0x14fd ; " " 13f1 0219 | | .STRTAB 0x0219->0x14fd ; "Offset:" 13f2 021e | | .STRTAB 0x021e->0x1501 ; "Start_Offset:" 13f3 0229 | ) | .STRTAB 0x0229->0x1507 ; "Max_Elements:" 13f4 0234 | 4 | .STRTAB 0x0234->0x150e ; "Instruction_Count:" 13f5 0244 | D | .STRTAB 0x0244->0x1517 ; "Space: (skipped)" 13f6 0252 | R | .STRTAB 0x0252->0x151f ; " Pop" 13f7 0254 | T | .STRTAB 0x0254->0x1521 ; " Write" 13f8 0258 | X | .STRTAB 0x0258->0x1524 ; "Fixed" 13f9 025b | [ | .STRTAB 0x025b->0x1526 ; "Variant" 13fa 0260 | ` | .STRTAB 0x0260->0x152a ; "Direct" 13fb 0264 | d | .STRTAB 0x0264->0x152d ; "Indirect" 13fc 026a | j | .STRTAB 0x026a->0x1531 ; "Field:" 13fd 026e | n | .STRTAB 0x026e->0x1534 ; "Frame:" 13fe 0272 | r | .STRTAB 0x0272->0x1537 ; " FramePtr: " 13ff 027b | { | .STRTAB 0x027b->0x153c ; "NO" 1400 027b | { | .STRTAB 0x027b->0x153d ; "GAB" 1401 027c | | | .STRTAB 0x027c->0x153f ; " F" 1402 027c | | | .STRTAB 0x027c->0x1540 ; " T" 1403 027c | | | .STREND 0x027c->0x1541 1404 4e4f 5f4f |NO_O| .STRTAB_STRINGS 1541 0000 0000 | | .BLANK 0000[0x7] 1548 ; -------------------------------------------------------------------------------------- 1548 ; Debug Table 1548 ; -------------------------------------------------------------------------------------- 1548 0004 0006 | | .DEBUG4 0x0004,0x0006,0x9a41,0x0000,0x0001,0x0000 154e 8081 cdd1 | | .XXX[0xb2] 1550 95c1 c195 | | 1552 9081 a5b8 | | 1554 81d1 a1a5 | | 1556 cc81 dd85 | | 1558 e481 85b1 | | 155a dd85 e5cc | | 155c 81cd d1bd | | 155e c1cc 81dd | | 1560 a5d1 a1a5 | | 1562 b881 d1a1 | | 1564 a5cc 81cd | | 1566 d589 c1c9 | | 1568 bd9d c985 | | 156a b4b8 8081 | | 156c 0d85 b1b1 | | 156e cc28 8081 | ( | 1570 85c9 9481 | | 1572 95e1 958d | | 1574 d5d1 9590 | | 1576 8185 cc81 | | 1578 c185 c9d0 | | 157a 81bd 9881 | | 157c 8481 cda5 | | 157e b99d b194 | | 1580 81cd d195 | | 1582 c081 dda1 | | 1584 95b8 8191 | | 1586 bda5 b99c | | 1588 8131 bd8d | 1 | 158a 85b1 7d4d | }M| 158c d185 d195 | | 158e b595 b9d0 | | 1590 2880 81cd |( | 1592 d195 c1c1 | | 1594 a5b9 9cb8 | | 1596 8081 2598 | % | 1598 81d1 a194 | | 159a 81cd d589 | | 159c c1c9 bd9d | | 159e c985 b481 | | 15a0 c995 d1d5 | | 15a2 c9b9 ccb0 | | 15a4 81d1 a194 | | 15a6 81d1 85cd | | 15a8 ac81 cdd1 | | 15aa bdc1 cc81 | | 15ac 85d0 81d1 | | 15ae a194 2880 | ( | 15b0 8189 959d | | 15b2 a5b9 b9a5 | | 15b4 b99c 81bd | | 15b6 9881 d1a1 | | 15b8 9481 b995 | | 15ba e1d0 81cd | | 15bc d185 d195 | | 15be b595 b9d0 | | 15c0 81a5 d081 | | 15c2 a5cc 8185 | | 15c4 89bd d5d0 | | 15c6 81d1 bc81 | | 15c8 95e1 958d | | 15ca d5d1 94b8 | | 15cc 2828 8081 |(( | 15ce 4dd1 95c1 |M | 15d0 c1a5 b99c | | 15d2 81cd d589 | | 15d4 cdd1 85b9 | | 15d6 d1a5 85b1 | | 15d8 b1e4 81cd | | 15da b1bd ddcc | | 15dc 8195 e195 | | 15de 8dd5 d1a5 | | 15e0 bdb8 81bd | | 15e2 9881 d1a1 | | 15e4 9481 c1c9 | | 15e6 bd9d c985 | | 15e8 b4b8 8081 | | 15ea 25d0 81b5 |% | 15ec 85e4 8189 | | 15ee 9428 8081 | ( | 15f0 dda5 cd94 | | 15f2 81d1 bc81 | | 15f4 cd95 d081 | | 15f6 89c9 9585 | | 15f8 adc1 bda5 | | 15fa b9d1 cc81 | | 15fc b995 85c8 | | 15fe 81d1 a194 | |