|
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: 6144 (0x1800) Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_0ea8df
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000 └─ ⟦cfc2e13cd⟧ »Space Info Vol 2« └─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code 0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 0b30 | 0 | .CONST 0x0b30 ; 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 8006 | | .CONST 0x8006 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 00ea | | .CONST 0x00ea ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0036 | 6 | .CONST 0x0036 ; Number of locals 000b INIT_0008: 000b 029a 00f3 | | Declare_Subprogram INIT_00f0,For_Outer_Call,Visible,Unelaborated 000d 029a 0113 | | Declare_Subprogram INIT_0110,For_Outer_Call,Visible,Unelaborated 000f 029a 0133 | 3| Declare_Subprogram INIT_0130,For_Outer_Call,Visible,Unelaborated 0011 029a 015b | [| Declare_Subprogram INIT_0158,For_Outer_Call,Visible,Unelaborated 0013 029a 0173 | s| Declare_Subprogram INIT_0170,For_Outer_Call,Visible,Unelaborated 0015 029a 01bb | | Declare_Subprogram INIT_01b8,For_Outer_Call,Visible,Unelaborated 0017 029a 01e3 | | Declare_Subprogram INIT_01e0,For_Outer_Call,Visible,Unelaborated 0019 029a 020b | | Declare_Subprogram INIT_0208,For_Outer_Call,Visible,Unelaborated 001b 029a 0233 | 3| Declare_Subprogram INIT_0230,For_Outer_Call,Visible,Unelaborated 001d 029a 024b | K| Declare_Subprogram INIT_0248,For_Outer_Call,Visible,Unelaborated 001f 00c4 | | Action Make_Default 0020 00c4 | | Action Make_Default 0021 00c4 | | Action Make_Default 0022 00c4 | | Action Make_Default 0023 00c4 | | Action Make_Default 0024 00c4 | | Action Make_Default 0025 00c4 | | Action Make_Default 0026 00c4 | | Action Make_Default 0027 00c4 | | Action Make_Default 0028 00c4 | | Action Make_Default 0029 00c4 | | Action Make_Default 002a 00c4 | | Action Make_Default 002b 00c4 | | Action Make_Default 002c 00c4 | | Action Make_Default 002d 00c4 | | Action Make_Default 002e 00c4 | | Action Make_Default 002f 00c4 | | Action Make_Default 0030 00c4 | | Action Make_Default 0031 00c4 | | Action Make_Default 0032 00c4 | | Action Make_Default 0033 00c4 | | Action Make_Default 0034 00c4 | | Action Make_Default 0035 00c4 | | Action Make_Default 0036 00c4 | | Action Make_Default 0037 00c4 | | Action Make_Default 0038 00c4 | | Action Make_Default 0039 00c4 | | Action Make_Default 003a 00c4 | | Action Make_Default 003b 00c4 | | Action Make_Default 003c 00c4 | | Action Make_Default 003d 00c4 | | Action Make_Default 003e 00c4 | | Action Make_Default 003f 029a 029b | | Declare_Subprogram INIT_0298,For_Outer_Call,Visible,Unelaborated 0041 c22d | - | Store 0x1,0x2d 0042 029a 02bb | | Declare_Subprogram INIT_02b8,For_Outer_Call,Visible,Unelaborated 0044 c22e | . | Store 0x1,0x2e 0045 029a 02e3 | | Declare_Subprogram INIT_02e0,For_Outer_Call,Visible,Unelaborated 0047 c22f | / | Store 0x1,0x2f 0048 029a 030b | | Declare_Subprogram INIT_0308,For_Outer_Call,Visible,Unelaborated 004a c230 | 0 | Store 0x1,0x30 004b 029a 0323 | #| Declare_Subprogram INIT_0320,For_Outer_Call,Visible,Unelaborated 004d c231 | 1 | Store 0x1,0x31 004e 029a 0353 | S| Declare_Subprogram INIT_0350,For_Outer_Call,Visible,Unelaborated 0050 c217 | | Store 0x1,0x17 0051 029a 037b | {| Declare_Subprogram INIT_0378,For_Outer_Call,Visible,Unelaborated 0053 c218 | | Store 0x1,0x18 0054 029a 03ab | | Declare_Subprogram INIT_03a8,For_Outer_Call,Visible,Unelaborated 0056 c219 | | Store 0x1,0x19 0057 029a 03db | | Declare_Subprogram INIT_03d8,For_Outer_Call,Visible,Unelaborated 0059 c21a | | Store 0x1,0x1a 005a 029a 03fb | | Declare_Subprogram INIT_03f8,For_Outer_Call,Visible,Unelaborated 005c c21b | | Store 0x1,0x1b 005d 029a 043b | ;| Declare_Subprogram INIT_0438,For_Outer_Call,Visible,Unelaborated 005f c21c | | Store 0x1,0x1c 0060 029a 046b | k| Declare_Subprogram INIT_0468,For_Outer_Call,Visible,Unelaborated 0062 c21d | | Store 0x1,0x1d 0063 029a 04a3 | | Declare_Subprogram INIT_04a0,For_Outer_Call,Visible,Unelaborated 0065 c21e | | Store 0x1,0x1e 0066 029a 04db | | Declare_Subprogram INIT_04d8,For_Outer_Call,Visible,Unelaborated 0068 c21f | | Store 0x1,0x1f 0069 029a 04fb | | Declare_Subprogram INIT_04f8,For_Outer_Call,Visible,Unelaborated 006b c220 | | Store 0x1,0x20 006c 029a 0543 | C| Declare_Subprogram INIT_0540,For_Outer_Call,Visible,Unelaborated 006e c232 | 2 | Store 0x1,0x32 006f 029a 0583 | | Declare_Subprogram INIT_0580,For_Outer_Call,Visible,Unelaborated 0071 c233 | 3 | Store 0x1,0x33 0072 029a 05b3 | | Declare_Subprogram INIT_05b0,For_Outer_Call,Visible,Unelaborated 0074 c234 | 4 | Store 0x1,0x34 0075 029a 0603 | | Declare_Subprogram INIT_0600,For_Outer_Call,Visible,Unelaborated 0077 c235 | 5 | Store 0x1,0x35 0078 029a 0643 | C| Declare_Subprogram INIT_0640,For_Outer_Call,Visible,Unelaborated 007a c236 | 6 | Store 0x1,0x36 007b 029a 068b | | Declare_Subprogram INIT_0688,For_Outer_Call,Visible,Unelaborated 007d c223 | # | Store 0x1,0x23 007e 029a 06fb | | Declare_Subprogram INIT_06f8,For_Outer_Call,Visible,Unelaborated 0080 c224 | $ | Store 0x1,0x24 0081 029a 0773 | s| Declare_Subprogram INIT_0770,For_Outer_Call,Visible,Unelaborated 0083 c225 | % | Store 0x1,0x25 0084 029a 07db | | Declare_Subprogram INIT_07d8,For_Outer_Call,Visible,Unelaborated 0086 c226 | & | Store 0x1,0x26 0087 029a 081b | | Declare_Subprogram INIT_0818,For_Outer_Call,Visible,Unelaborated 0089 c227 | ' | Store 0x1,0x27 008a 029a 08b3 | | Declare_Subprogram INIT_08b0,For_Outer_Call,Visible,Unelaborated 008c c228 | ( | Store 0x1,0x28 008d 029a 0933 | 3| Declare_Subprogram INIT_0930,For_Outer_Call,Visible,Unelaborated 008f c229 | ) | Store 0x1,0x29 0090 029a 09c3 | | Declare_Subprogram INIT_09c0,For_Outer_Call,Visible,Unelaborated 0092 c22a | * | Store 0x1,0x2a 0093 029a 0a3b | ;| Declare_Subprogram INIT_0a38,For_Outer_Call,Visible,Unelaborated 0095 c22b | + | Store 0x1,0x2b 0096 029a 0a8b | | Declare_Subprogram INIT_0a88,For_Outer_Call,Visible,Unelaborated 0098 c22c | , | Store 0x1,0x2c 0099 00bf | | Action Accept_Activation 009a 1d0d | | Execute_Immediate Reference_Lex_1,0xd 009b 00c7 | | Action Elaborate_Subprogram 009c 1d0e | | Execute_Immediate Reference_Lex_1,0xe 009d 00c7 | | Action Elaborate_Subprogram 009e 1d0f | | Execute_Immediate Reference_Lex_1,0xf 009f 00c7 | | Action Elaborate_Subprogram 00a0 1d10 | | Execute_Immediate Reference_Lex_1,0x10 00a1 00c7 | | Action Elaborate_Subprogram 00a2 1d11 | | Execute_Immediate Reference_Lex_1,0x11 00a3 00c7 | | Action Elaborate_Subprogram 00a4 1d12 | | Execute_Immediate Reference_Lex_1,0x12 00a5 00c7 | | Action Elaborate_Subprogram 00a6 1d13 | | Execute_Immediate Reference_Lex_1,0x13 00a7 00c7 | | Action Elaborate_Subprogram 00a8 1d14 | | Execute_Immediate Reference_Lex_1,0x14 00a9 00c7 | | Action Elaborate_Subprogram 00aa 1d15 | | Execute_Immediate Reference_Lex_1,0x15 00ab 00c7 | | Action Elaborate_Subprogram 00ac 1d16 | | Execute_Immediate Reference_Lex_1,0x16 00ad 00c7 | | Action Elaborate_Subprogram 00ae 1d2d | - | Execute_Immediate Reference_Lex_1,0x2d 00af 00c7 | | Action Elaborate_Subprogram 00b0 1d2e | . | Execute_Immediate Reference_Lex_1,0x2e 00b1 00c7 | | Action Elaborate_Subprogram 00b2 1d2f | / | Execute_Immediate Reference_Lex_1,0x2f 00b3 00c7 | | Action Elaborate_Subprogram 00b4 1d30 | 0 | Execute_Immediate Reference_Lex_1,0x30 00b5 00c7 | | Action Elaborate_Subprogram 00b6 1d31 | 1 | Execute_Immediate Reference_Lex_1,0x31 00b7 00c7 | | Action Elaborate_Subprogram 00b8 1d17 | | Execute_Immediate Reference_Lex_1,0x17 00b9 00c7 | | Action Elaborate_Subprogram 00ba 1d18 | | Execute_Immediate Reference_Lex_1,0x18 00bb 00c7 | | Action Elaborate_Subprogram 00bc 1d19 | | Execute_Immediate Reference_Lex_1,0x19 00bd 00c7 | | Action Elaborate_Subprogram 00be 1d1a | | Execute_Immediate Reference_Lex_1,0x1a 00bf 00c7 | | Action Elaborate_Subprogram 00c0 1d1b | | Execute_Immediate Reference_Lex_1,0x1b 00c1 00c7 | | Action Elaborate_Subprogram 00c2 1d1c | | Execute_Immediate Reference_Lex_1,0x1c 00c3 00c7 | | Action Elaborate_Subprogram 00c4 1d1d | | Execute_Immediate Reference_Lex_1,0x1d 00c5 00c7 | | Action Elaborate_Subprogram 00c6 1d1e | | Execute_Immediate Reference_Lex_1,0x1e 00c7 00c7 | | Action Elaborate_Subprogram 00c8 1d1f | | Execute_Immediate Reference_Lex_1,0x1f 00c9 00c7 | | Action Elaborate_Subprogram 00ca 1d20 | | Execute_Immediate Reference_Lex_1,0x20 00cb 00c7 | | Action Elaborate_Subprogram 00cc 1d32 | 2 | Execute_Immediate Reference_Lex_1,0x32 00cd 00c7 | | Action Elaborate_Subprogram 00ce 1d33 | 3 | Execute_Immediate Reference_Lex_1,0x33 00cf 00c7 | | Action Elaborate_Subprogram 00d0 1d34 | 4 | Execute_Immediate Reference_Lex_1,0x34 00d1 00c7 | | Action Elaborate_Subprogram 00d2 1d35 | 5 | Execute_Immediate Reference_Lex_1,0x35 00d3 00c7 | | Action Elaborate_Subprogram 00d4 1d36 | 6 | Execute_Immediate Reference_Lex_1,0x36 00d5 00c7 | | Action Elaborate_Subprogram 00d6 1d23 | # | Execute_Immediate Reference_Lex_1,0x23 00d7 00c7 | | Action Elaborate_Subprogram 00d8 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24 00d9 00c7 | | Action Elaborate_Subprogram 00da 1d25 | % | Execute_Immediate Reference_Lex_1,0x25 00db 00c7 | | Action Elaborate_Subprogram 00dc 1d26 | & | Execute_Immediate Reference_Lex_1,0x26 00dd 00c7 | | Action Elaborate_Subprogram 00de 1d27 | ' | Execute_Immediate Reference_Lex_1,0x27 00df 00c7 | | Action Elaborate_Subprogram 00e0 1d28 | ( | Execute_Immediate Reference_Lex_1,0x28 00e1 00c7 | | Action Elaborate_Subprogram 00e2 1d29 | ) | Execute_Immediate Reference_Lex_1,0x29 00e3 00c7 | | Action Elaborate_Subprogram 00e4 1d2a | * | Execute_Immediate Reference_Lex_1,0x2a 00e5 00c7 | | Action Elaborate_Subprogram 00e6 1d2b | + | Execute_Immediate Reference_Lex_1,0x2b 00e7 00c7 | | Action Elaborate_Subprogram 00e8 1d2c | , | Execute_Immediate Reference_Lex_1,0x2c 00e9 00c7 | | Action Elaborate_Subprogram 00ea BODY_0008: 00ea 00bc | | Action Signal_Activated 00eb 00bb | | Action Signal_Completion 00ec 0000 0000 | | .BLANK 0000[0x4] 00f0 ; -------------------------------------------------------------------------------------- 00f0 ; SUBPROGRAM 00f0 ; -------------------------------------------------------------------------------------- 00f0 00f7 | | .CONST 0x00f7 ; Address of begin 00f1 0004 | | .CONST 0x0004 ; Address of exception handler 00f2 0002 | | .CONST 0x0002 ; Number of locals 00f3 INIT_00f0: 00f3 00da | | Load_Top At_Offset_2 00f4 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 00f5 00e3 | | Load_Encached Natural_Cache 00f6 03f1 | | Declare_Variable Discrete,With_Value 00f7 BODY_00f0: 00f7 00d8 | | Load_Top At_Offset_0 00f8 e5fe | | Load 0x2,-0x2 00f9 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 00fa 027d | } | Execute Discrete,Greater 00fb 6803 |h | Jump_Zero 0xff 00fc e5fe | | Load 0x2,-0x2 00fd 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 00fe 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 00ff 4801 |H | Short_Literal 0x1 0100 00d9 | | Load_Top At_Offset_1 0101 e5ff | | Load 0x2,-0x1 0102 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0103 01cf | | Execute Vector,Slice_Read 0104 4801 |H | Short_Literal 0x1 0105 00da | | Load_Top At_Offset_2 0106 e5fe | | Load 0x2,-0x2 0107 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0108 01ce | | Execute Vector,Slice_Write 0109 00d8 | | Load_Top At_Offset_0 010a e5fe | | Load 0x2,-0x2 010b 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 010c 4502 |E | Exit_Suprogram New_Top_Offset 0x2 010d 0000 0000 | | .XXX[0x3] 010f 0000 | | 0110 ; -------------------------------------------------------------------------------------- 0110 ; SUBPROGRAM 0110 ; -------------------------------------------------------------------------------------- 0110 0118 | | .CONST 0x0118 ; Address of begin 0111 0004 | | .CONST 0x0004 ; Address of exception handler 0112 0002 | | .CONST 0x0002 ; Number of locals 0113 INIT_0110: 0113 00da | | Load_Top At_Offset_2 0114 0227 | ' | Execute Access,All_Reference 0115 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0116 00e3 | | Load_Encached Natural_Cache 0117 03f1 | | Declare_Variable Discrete,With_Value 0118 BODY_0110: 0118 00d8 | | Load_Top At_Offset_0 0119 e5fe | | Load 0x2,-0x2 011a 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 011b 027d | } | Execute Discrete,Greater 011c 6803 |h | Jump_Zero 0x120 011d e5fe | | Load 0x2,-0x2 011e 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 011f 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 0120 4801 |H | Short_Literal 0x1 0121 00d9 | | Load_Top At_Offset_1 0122 e5ff | | Load 0x2,-0x1 0123 0227 | ' | Execute Access,All_Reference 0124 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0125 01cf | | Execute Vector,Slice_Read 0126 4801 |H | Short_Literal 0x1 0127 00da | | Load_Top At_Offset_2 0128 e5fe | | Load 0x2,-0x2 0129 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 012a 01ce | | Execute Vector,Slice_Write 012b 00d8 | | Load_Top At_Offset_0 012c e5fe | | Load 0x2,-0x2 012d 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 012e 4502 |E | Exit_Suprogram New_Top_Offset 0x2 012f 0000 | | .XXX[0x1] 0130 ; -------------------------------------------------------------------------------------- 0130 ; SUBPROGRAM 0130 ; -------------------------------------------------------------------------------------- 0130 0137 | 7 | .CONST 0x0137 ; Address of begin 0131 0004 | | .CONST 0x0004 ; Address of exception handler 0132 0002 | | .CONST 0x0002 ; Number of locals 0133 INIT_0130: 0133 00da | | Load_Top At_Offset_2 0134 01db | | Execute Vector,Length 0135 00e3 | | Load_Encached Natural_Cache 0136 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 0137 BODY_0130: 0137 00d8 | | Load_Top At_Offset_0 0138 e5fe | | Load 0x2,-0x2 0139 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 013a 027d | } | Execute Discrete,Greater 013b 6803 |h | Jump_Zero 0x13f 013c e5fe | | Load 0x2,-0x2 013d 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 013e 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 013f 00db | | Load_Top At_Offset_3 0140 01dd | | Execute Vector,First 0141 e5ff | | Load 0x2,-0x1 0142 01dd | | Execute Vector,First 0143 00da | | Load_Top At_Offset_2 0144 0273 | s | Execute Discrete,Plus 0145 0aff | | Execute_Immediate Plus,-0x1 0146 e5ff | | Load 0x2,-0x1 0147 01cf | | Execute Vector,Slice_Read 0148 4801 |H | Short_Literal 0x1 0149 00da | | Load_Top At_Offset_2 014a e5fe | | Load 0x2,-0x2 014b 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 014c 01ce | | Execute Vector,Slice_Write 014d 00d8 | | Load_Top At_Offset_0 014e e5fe | | Load 0x2,-0x2 014f 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 0150 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0151 0000 0000 | | .BLANK 0000[0x7] 0158 ; -------------------------------------------------------------------------------------- 0158 ; SUBPROGRAM 0158 ; -------------------------------------------------------------------------------------- 0158 015b | [ | .CONST 0x015b ; Address of begin 0159 0004 | | .CONST 0x0004 ; Address of exception handler 015a 0001 | | .CONST 0x0001 ; Number of locals 015b BODY_0158: 015b INIT_0158: 015b 00db | | Load_Top At_Offset_3 015c 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 015d 0d01 | | Execute_Immediate Less,0x1 015e 6801 |h | Jump_Zero 0x160 015f 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0160 00da | | Load_Top At_Offset_2 0161 4801 |H | Short_Literal 0x1 0162 e5fe | | Load 0x2,-0x2 0163 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0164 01d6 | | Execute Vector,Field_Write 0165 4801 |H | Short_Literal 0x1 0166 e5fe | | Load 0x2,-0x2 0167 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 0168 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0169 0000 0000 | | .BLANK 0000[0x7] 0170 ; -------------------------------------------------------------------------------------- 0170 ; SUBPROGRAM 0170 ; -------------------------------------------------------------------------------------- 0170 0173 | s | .CONST 0x0173 ; Address of begin 0171 0004 | | .CONST 0x0004 ; Address of exception handler 0172 0001 | | .CONST 0x0001 ; Number of locals 0173 BODY_0170: 0173 INIT_0170: 0173 e5fd | | Load 0x2,-0x3 0174 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 0175 e5fe | | Load 0x2,-0x2 0176 027c | | | Execute Discrete,Less 0177 681a |h | Jump_Zero 0x192 0178 e5fd | | Load 0x2,-0x3 0179 00d8 | | Load_Top At_Offset_0 017a 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 017b 00d8 | | Load_Top At_Offset_0 017c 0335 | 5 | Declare_Variable Array,Duplicate 017d 00d0 | | Action Swap_Control 017e 00d1 | | Pop_Control Pop_Count_1 017f 00d9 | | Load_Top At_Offset_1 0180 01d9 | | Execute Vector,Reverse_Bounds 0181 0263 | c | Execute Discrete,Above_Bound 0182 7005 |p | Jump_Nonzero 0x188 0183 e5ff | | Load 0x2,-0x1 0184 00d9 | | Load_Top At_Offset_1 0185 e404 | | Load 0x2,0x4 0186 01d6 | | Execute Vector,Field_Write 0187 3ffb |? | Loop_Increasing 0x183 0188 00d0 | | Action Swap_Control 0189 00d1 | | Pop_Control Pop_Count_1 018a 00d9 | | Load_Top At_Offset_1 018b 2903 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x3 018c 00d1 | | Pop_Control Pop_Count_1 018d e5fd | | Load 0x2,-0x3 018e 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 018f e5fd | | Load 0x2,-0x3 0190 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 0191 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0192 e5fd | | Load 0x2,-0x3 0193 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0194 4801 |H | Short_Literal 0x1 0195 e5fe | | Load 0x2,-0x2 0196 00d9 | | Load_Top At_Offset_1 0197 00d9 | | Load_Top At_Offset_1 0198 e402 | | Load 0x2,0x2 0199 035b | [ | Declare_Type Array,Constrained 019a 00db | | Load_Top At_Offset_3 019b 01cd | | Execute Vector,Slice_Reference 019c 00d8 | | Load_Top At_Offset_0 019d 0335 | 5 | Declare_Variable Array,Duplicate 019e 00d0 | | Action Swap_Control 019f 00d1 | | Pop_Control Pop_Count_1 01a0 00d9 | | Load_Top At_Offset_1 01a1 01d9 | | Execute Vector,Reverse_Bounds 01a2 0263 | c | Execute Discrete,Above_Bound 01a3 7005 |p | Jump_Nonzero 0x1a9 01a4 e5ff | | Load 0x2,-0x1 01a5 00d9 | | Load_Top At_Offset_1 01a6 e406 | | Load 0x2,0x6 01a7 01d6 | | Execute Vector,Field_Write 01a8 3ffb |? | Loop_Increasing 0x1a4 01a9 00d0 | | Action Swap_Control 01aa 00d1 | | Pop_Control Pop_Count_1 01ab 00da | | Load_Top At_Offset_2 01ac 00da | | Load_Top At_Offset_2 01ad e402 | | Load 0x2,0x2 01ae 01ce | | Execute Vector,Slice_Write 01af 00d3 | | Pop_Control Pop_Count_3 01b0 00db | | Load_Top At_Offset_3 01b1 e5fd | | Load 0x2,-0x3 01b2 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 01b3 4503 |E | Exit_Suprogram New_Top_Offset 0x3 01b4 0000 0000 | | .BLANK 0000[0x4] 01b8 ; -------------------------------------------------------------------------------------- 01b8 ; SUBPROGRAM 01b8 ; -------------------------------------------------------------------------------------- 01b8 01bf | | .CONST 0x01bf ; Address of begin 01b9 0004 | | .CONST 0x0004 ; Address of exception handler 01ba 0002 | | .CONST 0x0002 ; Number of locals 01bb INIT_01b8: 01bb 00db | | Load_Top At_Offset_3 01bc 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 01bd 00e3 | | Load_Encached Natural_Cache 01be 03f1 | | Declare_Variable Discrete,With_Value 01bf BODY_01b8: 01bf 00d8 | | Load_Top At_Offset_0 01c0 e5ff | | Load 0x2,-0x1 01c1 0227 | ' | Execute Access,All_Reference 01c2 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 01c3 027d | } | Execute Discrete,Greater 01c4 6804 |h | Jump_Zero 0x1c9 01c5 00db | | Load_Top At_Offset_3 01c6 0227 | ' | Execute Access,All_Reference 01c7 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 01c8 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 01c9 4801 |H | Short_Literal 0x1 01ca 00d9 | | Load_Top At_Offset_1 01cb e5fe | | Load 0x2,-0x2 01cc 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 01cd 01cf | | Execute Vector,Slice_Read 01ce 4801 |H | Short_Literal 0x1 01cf 00da | | Load_Top At_Offset_2 01d0 e5ff | | Load 0x2,-0x1 01d1 0229 | ) | Execute Access,All_Read 01d2 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 01d3 01ce | | Execute Vector,Slice_Write 01d4 00d8 | | Load_Top At_Offset_0 01d5 e5ff | | Load 0x2,-0x1 01d6 0227 | ' | Execute Access,All_Reference 01d7 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 01d8 4503 |E | Exit_Suprogram New_Top_Offset 0x3 01d9 0000 0000 | | .BLANK 0000[0x7] 01e0 ; -------------------------------------------------------------------------------------- 01e0 ; SUBPROGRAM 01e0 ; -------------------------------------------------------------------------------------- 01e0 01e8 | | .CONST 0x01e8 ; Address of begin 01e1 0004 | | .CONST 0x0004 ; Address of exception handler 01e2 0002 | | .CONST 0x0002 ; Number of locals 01e3 INIT_01e0: 01e3 00db | | Load_Top At_Offset_3 01e4 0227 | ' | Execute Access,All_Reference 01e5 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 01e6 00e3 | | Load_Encached Natural_Cache 01e7 03f1 | | Declare_Variable Discrete,With_Value 01e8 BODY_01e0: 01e8 00d8 | | Load_Top At_Offset_0 01e9 e5ff | | Load 0x2,-0x1 01ea 0227 | ' | Execute Access,All_Reference 01eb 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 01ec 027d | } | Execute Discrete,Greater 01ed 6804 |h | Jump_Zero 0x1f2 01ee 00db | | Load_Top At_Offset_3 01ef 0227 | ' | Execute Access,All_Reference 01f0 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 01f1 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 01f2 4801 |H | Short_Literal 0x1 01f3 00d9 | | Load_Top At_Offset_1 01f4 e5fe | | Load 0x2,-0x2 01f5 0227 | ' | Execute Access,All_Reference 01f6 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 01f7 01cf | | Execute Vector,Slice_Read 01f8 4801 |H | Short_Literal 0x1 01f9 00da | | Load_Top At_Offset_2 01fa e5ff | | Load 0x2,-0x1 01fb 0229 | ) | Execute Access,All_Read 01fc 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 01fd 01ce | | Execute Vector,Slice_Write 01fe 00d8 | | Load_Top At_Offset_0 01ff e5ff | | Load 0x2,-0x1 0200 0227 | ' | Execute Access,All_Reference 0201 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 0202 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0203 0000 0000 | | .BLANK 0000[0x5] 0208 ; -------------------------------------------------------------------------------------- 0208 ; SUBPROGRAM 0208 ; -------------------------------------------------------------------------------------- 0208 020f | | .CONST 0x020f ; Address of begin 0209 0004 | | .CONST 0x0004 ; Address of exception handler 020a 0002 | | .CONST 0x0002 ; Number of locals 020b INIT_0208: 020b 00db | | Load_Top At_Offset_3 020c 01db | | Execute Vector,Length 020d 00e3 | | Load_Encached Natural_Cache 020e 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 020f BODY_0208: 020f 00d8 | | Load_Top At_Offset_0 0210 e5ff | | Load 0x2,-0x1 0211 0227 | ' | Execute Access,All_Reference 0212 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 0213 027d | } | Execute Discrete,Greater 0214 6804 |h | Jump_Zero 0x219 0215 00db | | Load_Top At_Offset_3 0216 0227 | ' | Execute Access,All_Reference 0217 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 0218 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 0219 e5fe | | Load 0x2,-0x2 021a 01dd | | Execute Vector,First 021b e5fe | | Load 0x2,-0x2 021c 01dd | | Execute Vector,First 021d 00da | | Load_Top At_Offset_2 021e 0273 | s | Execute Discrete,Plus 021f 0aff | | Execute_Immediate Plus,-0x1 0220 e5fe | | Load 0x2,-0x2 0221 01cf | | Execute Vector,Slice_Read 0222 4801 |H | Short_Literal 0x1 0223 00da | | Load_Top At_Offset_2 0224 e5ff | | Load 0x2,-0x1 0225 0229 | ) | Execute Access,All_Read 0226 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0227 01ce | | Execute Vector,Slice_Write 0228 00d8 | | Load_Top At_Offset_0 0229 e5ff | | Load 0x2,-0x1 022a 0227 | ' | Execute Access,All_Reference 022b 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 022c 4503 |E | Exit_Suprogram New_Top_Offset 0x3 022d 0000 0000 | | .XXX[0x3] 022f 0000 | | 0230 ; -------------------------------------------------------------------------------------- 0230 ; SUBPROGRAM 0230 ; -------------------------------------------------------------------------------------- 0230 0233 | 3 | .CONST 0x0233 ; Address of begin 0231 0004 | | .CONST 0x0004 ; Address of exception handler 0232 0001 | | .CONST 0x0001 ; Number of locals 0233 BODY_0230: 0233 INIT_0230: 0233 00da | | Load_Top At_Offset_2 0234 0227 | ' | Execute Access,All_Reference 0235 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 0236 0d01 | | Execute_Immediate Less,0x1 0237 6801 |h | Jump_Zero 0x239 0238 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0239 00db | | Load_Top At_Offset_3 023a 4801 |H | Short_Literal 0x1 023b e5ff | | Load 0x2,-0x1 023c 0227 | ' | Execute Access,All_Reference 023d 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 023e 01d6 | | Execute Vector,Field_Write 023f 4801 |H | Short_Literal 0x1 0240 00db | | Load_Top At_Offset_3 0241 0227 | ' | Execute Access,All_Reference 0242 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 0243 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0244 0000 0000 | | .BLANK 0000[0x4] 0248 ; -------------------------------------------------------------------------------------- 0248 ; SUBPROGRAM 0248 ; -------------------------------------------------------------------------------------- 0248 024b | K | .CONST 0x024b ; Address of begin 0249 0004 | | .CONST 0x0004 ; Address of exception handler 024a 0001 | | .CONST 0x0001 ; Number of locals 024b BODY_0248: 024b INIT_0248: 024b 00da | | Load_Top At_Offset_2 024c 0227 | ' | Execute Access,All_Reference 024d 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 024e e5fd | | Load 0x2,-0x3 024f 027c | | | Execute Discrete,Less 0250 681d |h | Jump_Zero 0x26e 0251 00da | | Load_Top At_Offset_2 0252 0229 | ) | Execute Access,All_Read 0253 00d8 | | Load_Top At_Offset_0 0254 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0255 00d8 | | Load_Top At_Offset_0 0256 0335 | 5 | Declare_Variable Array,Duplicate 0257 00d0 | | Action Swap_Control 0258 00d1 | | Pop_Control Pop_Count_1 0259 00d9 | | Load_Top At_Offset_1 025a 01d9 | | Execute Vector,Reverse_Bounds 025b 0263 | c | Execute Discrete,Above_Bound 025c 7005 |p | Jump_Nonzero 0x262 025d e5fe | | Load 0x2,-0x2 025e 00d9 | | Load_Top At_Offset_1 025f e404 | | Load 0x2,0x4 0260 01d6 | | Execute Vector,Field_Write 0261 3ffb |? | Loop_Increasing 0x25d 0262 00d0 | | Action Swap_Control 0263 00d1 | | Pop_Control Pop_Count_1 0264 00d9 | | Load_Top At_Offset_1 0265 2903 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x3 0266 00d1 | | Pop_Control Pop_Count_1 0267 00da | | Load_Top At_Offset_2 0268 0227 | ' | Execute Access,All_Reference 0269 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 026a 00db | | Load_Top At_Offset_3 026b 0227 | ' | Execute Access,All_Reference 026c 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 026d 4504 |E | Exit_Suprogram New_Top_Offset 0x4 026e 00da | | Load_Top At_Offset_2 026f 0229 | ) | Execute Access,All_Read 0270 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0271 4801 |H | Short_Literal 0x1 0272 e5fd | | Load 0x2,-0x3 0273 00d9 | | Load_Top At_Offset_1 0274 00d9 | | Load_Top At_Offset_1 0275 e402 | | Load 0x2,0x2 0276 035b | [ | Declare_Type Array,Constrained 0277 00db | | Load_Top At_Offset_3 0278 01cd | | Execute Vector,Slice_Reference 0279 00d8 | | Load_Top At_Offset_0 027a 0335 | 5 | Declare_Variable Array,Duplicate 027b 00d0 | | Action Swap_Control 027c 00d1 | | Pop_Control Pop_Count_1 027d 00d9 | | Load_Top At_Offset_1 027e 01d9 | | Execute Vector,Reverse_Bounds 027f 0263 | c | Execute Discrete,Above_Bound 0280 7005 |p | Jump_Nonzero 0x286 0281 e5fe | | Load 0x2,-0x2 0282 00d9 | | Load_Top At_Offset_1 0283 e406 | | Load 0x2,0x6 0284 01d6 | | Execute Vector,Field_Write 0285 3ffb |? | Loop_Increasing 0x281 0286 00d0 | | Action Swap_Control 0287 00d1 | | Pop_Control Pop_Count_1 0288 00da | | Load_Top At_Offset_2 0289 00da | | Load_Top At_Offset_2 028a e402 | | Load 0x2,0x2 028b 01ce | | Execute Vector,Slice_Write 028c 00d3 | | Pop_Control Pop_Count_3 028d e5fd | | Load 0x2,-0x3 028e 00db | | Load_Top At_Offset_3 028f 0227 | ' | Execute Access,All_Reference 0290 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 0291 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0292 0000 0000 | | .BLANK 0000[0x6] 0298 ; -------------------------------------------------------------------------------------- 0298 ; SUBPROGRAM 0298 ; -------------------------------------------------------------------------------------- 0298 02a6 | | .CONST 0x02a6 ; Address of begin 0299 0004 | | .CONST 0x0004 ; Address of exception handler 029a 0003 | | .CONST 0x0003 ; Number of locals 029b INIT_0298: 029b e001 | | Load 0x0,0x1 029c 1b0e | | Execute Package,Field_Read,Field_Number 0xe 029d 00db | | Load_Top At_Offset_3 029e 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 029f e002 | | Load 0x0,0x2 02a0 180d | | Execute Package,Field_Execute,Field_Number 0xd 02a1 0039 | 9 | Store_Top Access,At_Offset_1 02a2 00db | | Load_Top At_Offset_3 02a3 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 02a4 00e3 | | Load_Encached Natural_Cache 02a5 03f1 | | Declare_Variable Discrete,With_Value 02a6 BODY_0298: 02a6 00d9 | | Load_Top At_Offset_1 02a7 a5fe | | Store_Unchecked 0x2,-0x2 02a8 4801 |H | Short_Literal 0x1 02a9 00d9 | | Load_Top At_Offset_1 02aa e5ff | | Load 0x2,-0x1 02ab 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 02ac 01cf | | Execute Vector,Slice_Read 02ad 4801 |H | Short_Literal 0x1 02ae 00da | | Load_Top At_Offset_2 02af e402 | | Load 0x2,0x2 02b0 0229 | ) | Execute Access,All_Read 02b1 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 02b2 01ce | | Execute Vector,Slice_Write 02b3 00d8 | | Load_Top At_Offset_0 02b4 00da | | Load_Top At_Offset_2 02b5 0227 | ' | Execute Access,All_Reference 02b6 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 02b7 4502 |E | Exit_Suprogram New_Top_Offset 0x2 02b8 ; -------------------------------------------------------------------------------------- 02b8 ; SUBPROGRAM 02b8 ; -------------------------------------------------------------------------------------- 02b8 02c8 | | .CONST 0x02c8 ; Address of begin 02b9 0004 | | .CONST 0x0004 ; Address of exception handler 02ba 0003 | | .CONST 0x0003 ; Number of locals 02bb INIT_02b8: 02bb e001 | | Load 0x0,0x1 02bc 1b0e | | Execute Package,Field_Read,Field_Number 0xe 02bd 00db | | Load_Top At_Offset_3 02be 0227 | ' | Execute Access,All_Reference 02bf 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 02c0 e002 | | Load 0x0,0x2 02c1 180d | | Execute Package,Field_Execute,Field_Number 0xd 02c2 0039 | 9 | Store_Top Access,At_Offset_1 02c3 00db | | Load_Top At_Offset_3 02c4 0227 | ' | Execute Access,All_Reference 02c5 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 02c6 00e3 | | Load_Encached Natural_Cache 02c7 03f1 | | Declare_Variable Discrete,With_Value 02c8 BODY_02b8: 02c8 00d9 | | Load_Top At_Offset_1 02c9 a5fe | | Store_Unchecked 0x2,-0x2 02ca 4801 |H | Short_Literal 0x1 02cb 00d9 | | Load_Top At_Offset_1 02cc e5ff | | Load 0x2,-0x1 02cd 0227 | ' | Execute Access,All_Reference 02ce 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 02cf 01cf | | Execute Vector,Slice_Read 02d0 4801 |H | Short_Literal 0x1 02d1 00da | | Load_Top At_Offset_2 02d2 e402 | | Load 0x2,0x2 02d3 0229 | ) | Execute Access,All_Read 02d4 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 02d5 01ce | | Execute Vector,Slice_Write 02d6 00d8 | | Load_Top At_Offset_0 02d7 00da | | Load_Top At_Offset_2 02d8 0227 | ' | Execute Access,All_Reference 02d9 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 02da 4502 |E | Exit_Suprogram New_Top_Offset 0x2 02db 0000 0000 | | .BLANK 0000[0x5] 02e0 ; -------------------------------------------------------------------------------------- 02e0 ; SUBPROGRAM 02e0 ; -------------------------------------------------------------------------------------- 02e0 02f0 | | .CONST 0x02f0 ; Address of begin 02e1 0004 | | .CONST 0x0004 ; Address of exception handler 02e2 0003 | | .CONST 0x0003 ; Number of locals 02e3 INIT_02e0: 02e3 e001 | | Load 0x0,0x1 02e4 1b0e | | Execute Package,Field_Read,Field_Number 0xe 02e5 00db | | Load_Top At_Offset_3 02e6 01db | | Execute Vector,Length 02e7 00e3 | | Load_Encached Natural_Cache 02e8 025b | [ | Execute Discrete,Check_In_Type 02e9 e002 | | Load 0x0,0x2 02ea 180d | | Execute Package,Field_Execute,Field_Number 0xd 02eb 0039 | 9 | Store_Top Access,At_Offset_1 02ec 00db | | Load_Top At_Offset_3 02ed 01db | | Execute Vector,Length 02ee 00e3 | | Load_Encached Natural_Cache 02ef 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 02f0 BODY_02e0: 02f0 00d9 | | Load_Top At_Offset_1 02f1 a5fe | | Store_Unchecked 0x2,-0x2 02f2 e5ff | | Load 0x2,-0x1 02f3 01dd | | Execute Vector,First 02f4 e5ff | | Load 0x2,-0x1 02f5 01dd | | Execute Vector,First 02f6 00da | | Load_Top At_Offset_2 02f7 0273 | s | Execute Discrete,Plus 02f8 0aff | | Execute_Immediate Plus,-0x1 02f9 e5ff | | Load 0x2,-0x1 02fa 01cf | | Execute Vector,Slice_Read 02fb 4801 |H | Short_Literal 0x1 02fc 00da | | Load_Top At_Offset_2 02fd e402 | | Load 0x2,0x2 02fe 0229 | ) | Execute Access,All_Read 02ff 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0300 01ce | | Execute Vector,Slice_Write 0301 00d8 | | Load_Top At_Offset_0 0302 00da | | Load_Top At_Offset_2 0303 0227 | ' | Execute Access,All_Reference 0304 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 0305 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0306 0000 0000 | | .XXX[0x2] 0308 ; -------------------------------------------------------------------------------------- 0308 ; SUBPROGRAM 0308 ; -------------------------------------------------------------------------------------- 0308 0311 | | .CONST 0x0311 ; Address of begin 0309 0004 | | .CONST 0x0004 ; Address of exception handler 030a 0002 | | .CONST 0x0002 ; Number of locals 030b INIT_0308: 030b e001 | | Load 0x0,0x1 030c 1b0e | | Execute Package,Field_Read,Field_Number 0xe 030d 4801 |H | Short_Literal 0x1 030e e002 | | Load 0x0,0x2 030f 180d | | Execute Package,Field_Execute,Field_Number 0xd 0310 0039 | 9 | Store_Top Access,At_Offset_1 0311 BODY_0308: 0311 00d8 | | Load_Top At_Offset_0 0312 a5fe | | Store_Unchecked 0x2,-0x2 0313 00db | | Load_Top At_Offset_3 0314 4801 |H | Short_Literal 0x1 0315 00da | | Load_Top At_Offset_2 0316 0227 | ' | Execute Access,All_Reference 0317 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0318 01d6 | | Execute Vector,Field_Write 0319 4801 |H | Short_Literal 0x1 031a 00d9 | | Load_Top At_Offset_1 031b 0227 | ' | Execute Access,All_Reference 031c 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 031d 4502 |E | Exit_Suprogram New_Top_Offset 0x2 031e 0000 0000 | | .XXX[0x2] 0320 ; -------------------------------------------------------------------------------------- 0320 ; SUBPROGRAM 0320 ; -------------------------------------------------------------------------------------- 0320 0329 | ) | .CONST 0x0329 ; Address of begin 0321 0004 | | .CONST 0x0004 ; Address of exception handler 0322 0002 | | .CONST 0x0002 ; Number of locals 0323 INIT_0320: 0323 e001 | | Load 0x0,0x1 0324 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0325 e5fe | | Load 0x2,-0x2 0326 e002 | | Load 0x0,0x2 0327 180d | | Execute Package,Field_Execute,Field_Number 0xd 0328 0039 | 9 | Store_Top Access,At_Offset_1 0329 BODY_0320: 0329 00d8 | | Load_Top At_Offset_0 032a a5fd | | Store_Unchecked 0x2,-0x3 032b 00d8 | | Load_Top At_Offset_0 032c 0229 | ) | Execute Access,All_Read 032d 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 032e 4801 |H | Short_Literal 0x1 032f e5fe | | Load 0x2,-0x2 0330 00d9 | | Load_Top At_Offset_1 0331 00d9 | | Load_Top At_Offset_1 0332 e403 | | Load 0x2,0x3 0333 035b | [ | Declare_Type Array,Constrained 0334 00db | | Load_Top At_Offset_3 0335 01cd | | Execute Vector,Slice_Reference 0336 00d8 | | Load_Top At_Offset_0 0337 0335 | 5 | Declare_Variable Array,Duplicate 0338 00d0 | | Action Swap_Control 0339 00d1 | | Pop_Control Pop_Count_1 033a 00d9 | | Load_Top At_Offset_1 033b 01d9 | | Execute Vector,Reverse_Bounds 033c 0263 | c | Execute Discrete,Above_Bound 033d 7005 |p | Jump_Nonzero 0x343 033e e5ff | | Load 0x2,-0x1 033f 00d9 | | Load_Top At_Offset_1 0340 e407 | | Load 0x2,0x7 0341 01d6 | | Execute Vector,Field_Write 0342 3ffb |? | Loop_Increasing 0x33e 0343 00d0 | | Action Swap_Control 0344 00d1 | | Pop_Control Pop_Count_1 0345 00da | | Load_Top At_Offset_2 0346 00da | | Load_Top At_Offset_2 0347 e403 | | Load 0x2,0x3 0348 01ce | | Execute Vector,Slice_Write 0349 00d3 | | Pop_Control Pop_Count_3 034a e5fe | | Load 0x2,-0x2 034b 00d9 | | Load_Top At_Offset_1 034c 0227 | ' | Execute Access,All_Reference 034d 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 034e 4503 |E | Exit_Suprogram New_Top_Offset 0x3 034f 0000 | | .XXX[0x1] 0350 ; -------------------------------------------------------------------------------------- 0350 ; SUBPROGRAM 0350 ; -------------------------------------------------------------------------------------- 0350 035a | Z | .CONST 0x035a ; Address of begin 0351 0004 | | .CONST 0x0004 ; Address of exception handler 0352 0002 | | .CONST 0x0002 ; Number of locals 0353 INIT_0350: 0353 00db | | Load_Top At_Offset_3 0354 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 0355 e5fe | | Load 0x2,-0x2 0356 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0357 0272 | r | Execute Discrete,Minus 0358 00e3 | | Load_Encached Natural_Cache 0359 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 035a BODY_0350: 035a 00d8 | | Load_Top At_Offset_0 035b e5ff | | Load 0x2,-0x1 035c 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 035d 027d | } | Execute Discrete,Greater 035e 6803 |h | Jump_Zero 0x362 035f 00db | | Load_Top At_Offset_3 0360 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0361 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 0362 4801 |H | Short_Literal 0x1 0363 00d9 | | Load_Top At_Offset_1 0364 e5ff | | Load 0x2,-0x1 0365 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0366 01cf | | Execute Vector,Slice_Read 0367 e5fe | | Load 0x2,-0x2 0368 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0369 0a01 | | Execute_Immediate Plus,0x1 036a e5fe | | Load 0x2,-0x2 036b 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 036c 00db | | Load_Top At_Offset_3 036d 0273 | s | Execute Discrete,Plus 036e e5fe | | Load 0x2,-0x2 036f 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0370 01ce | | Execute Vector,Slice_Write 0371 e5fe | | Load 0x2,-0x2 0372 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0373 00d9 | | Load_Top At_Offset_1 0374 0273 | s | Execute Discrete,Plus 0375 e5fe | | Load 0x2,-0x2 0376 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 0377 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0378 ; -------------------------------------------------------------------------------------- 0378 ; SUBPROGRAM 0378 ; -------------------------------------------------------------------------------------- 0378 0382 | | .CONST 0x0382 ; Address of begin 0379 0004 | | .CONST 0x0004 ; Address of exception handler 037a 0002 | | .CONST 0x0002 ; Number of locals 037b INIT_0378: 037b 00db | | Load_Top At_Offset_3 037c 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 037d e5fe | | Load 0x2,-0x2 037e 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 037f 0272 | r | Execute Discrete,Minus 0380 00e3 | | Load_Encached Natural_Cache 0381 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 0382 BODY_0378: 0382 00d8 | | Load_Top At_Offset_0 0383 e5ff | | Load 0x2,-0x1 0384 0227 | ' | Execute Access,All_Reference 0385 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0386 027d | } | Execute Discrete,Greater 0387 6804 |h | Jump_Zero 0x38c 0388 00db | | Load_Top At_Offset_3 0389 0227 | ' | Execute Access,All_Reference 038a 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 038b 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 038c 4801 |H | Short_Literal 0x1 038d 00d9 | | Load_Top At_Offset_1 038e e5ff | | Load 0x2,-0x1 038f 0227 | ' | Execute Access,All_Reference 0390 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0391 01cf | | Execute Vector,Slice_Read 0392 e5fe | | Load 0x2,-0x2 0393 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0394 0a01 | | Execute_Immediate Plus,0x1 0395 e5fe | | Load 0x2,-0x2 0396 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0397 00db | | Load_Top At_Offset_3 0398 0273 | s | Execute Discrete,Plus 0399 e5fe | | Load 0x2,-0x2 039a 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 039b 01ce | | Execute Vector,Slice_Write 039c e5fe | | Load 0x2,-0x2 039d 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 039e 00d9 | | Load_Top At_Offset_1 039f 0273 | s | Execute Discrete,Plus 03a0 e5fe | | Load 0x2,-0x2 03a1 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 03a2 4502 |E | Exit_Suprogram New_Top_Offset 0x2 03a3 0000 0000 | | .BLANK 0000[0x5] 03a8 ; -------------------------------------------------------------------------------------- 03a8 ; SUBPROGRAM 03a8 ; -------------------------------------------------------------------------------------- 03a8 03b2 | | .CONST 0x03b2 ; Address of begin 03a9 0004 | | .CONST 0x0004 ; Address of exception handler 03aa 0002 | | .CONST 0x0002 ; Number of locals 03ab INIT_03a8: 03ab 00db | | Load_Top At_Offset_3 03ac 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 03ad e5fe | | Load 0x2,-0x2 03ae 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 03af 0272 | r | Execute Discrete,Minus 03b0 00e3 | | Load_Encached Natural_Cache 03b1 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 03b2 BODY_03a8: 03b2 00d8 | | Load_Top At_Offset_0 03b3 e5ff | | Load 0x2,-0x1 03b4 01db | | Execute Vector,Length 03b5 027d | } | Execute Discrete,Greater 03b6 6803 |h | Jump_Zero 0x3ba 03b7 00db | | Load_Top At_Offset_3 03b8 01db | | Execute Vector,Length 03b9 0059 | Y | Store_Top Discrete,At_Offset_1 03ba 00db | | Load_Top At_Offset_3 03bb 01dd | | Execute Vector,First 03bc e5ff | | Load 0x2,-0x1 03bd 01dd | | Execute Vector,First 03be 00da | | Load_Top At_Offset_2 03bf 0273 | s | Execute Discrete,Plus 03c0 0aff | | Execute_Immediate Plus,-0x1 03c1 e5ff | | Load 0x2,-0x1 03c2 01cf | | Execute Vector,Slice_Read 03c3 e5fe | | Load 0x2,-0x2 03c4 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 03c5 0a01 | | Execute_Immediate Plus,0x1 03c6 e5fe | | Load 0x2,-0x2 03c7 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 03c8 00db | | Load_Top At_Offset_3 03c9 0273 | s | Execute Discrete,Plus 03ca e5fe | | Load 0x2,-0x2 03cb 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 03cc 01ce | | Execute Vector,Slice_Write 03cd e5fe | | Load 0x2,-0x2 03ce 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 03cf 00d9 | | Load_Top At_Offset_1 03d0 0273 | s | Execute Discrete,Plus 03d1 e5fe | | Load 0x2,-0x2 03d2 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 03d3 4502 |E | Exit_Suprogram New_Top_Offset 0x2 03d4 0000 0000 | | .BLANK 0000[0x4] 03d8 ; -------------------------------------------------------------------------------------- 03d8 ; SUBPROGRAM 03d8 ; -------------------------------------------------------------------------------------- 03d8 03e2 | | .CONST 0x03e2 ; Address of begin 03d9 0004 | | .CONST 0x0004 ; Address of exception handler 03da 0002 | | .CONST 0x0002 ; Number of locals 03db INIT_03d8: 03db 00db | | Load_Top At_Offset_3 03dc 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 03dd e5fe | | Load 0x2,-0x2 03de 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 03df 0272 | r | Execute Discrete,Minus 03e0 00e3 | | Load_Encached Natural_Cache 03e1 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 03e2 BODY_03d8: 03e2 00d8 | | Load_Top At_Offset_0 03e3 0c01 | | Execute_Immediate Greater_Equal,0x1 03e4 680c |h | Jump_Zero 0x3f1 03e5 00db | | Load_Top At_Offset_3 03e6 e5fe | | Load 0x2,-0x2 03e7 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 03e8 0a01 | | Execute_Immediate Plus,0x1 03e9 e5fe | | Load 0x2,-0x2 03ea 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 03eb 01d6 | | Execute Vector,Field_Write 03ec e5fe | | Load 0x2,-0x2 03ed 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 03ee 0a01 | | Execute_Immediate Plus,0x1 03ef e5fe | | Load 0x2,-0x2 03f0 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 03f1 4502 |E | Exit_Suprogram New_Top_Offset 0x2 03f2 0000 0000 | | .BLANK 0000[0x6] 03f8 ; -------------------------------------------------------------------------------------- 03f8 ; SUBPROGRAM 03f8 ; -------------------------------------------------------------------------------------- 03f8 0402 | | .CONST 0x0402 ; Address of begin 03f9 0004 | | .CONST 0x0004 ; Address of exception handler 03fa 0002 | | .CONST 0x0002 ; Number of locals 03fb INIT_03f8: 03fb e5fd | | Load 0x2,-0x3 03fc 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 03fd e5fd | | Load 0x2,-0x3 03fe 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 03ff 0272 | r | Execute Discrete,Minus 0400 00e3 | | Load_Encached Natural_Cache 0401 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 0402 BODY_03f8: 0402 00d8 | | Load_Top At_Offset_0 0403 e5fe | | Load 0x2,-0x2 0404 027d | } | Execute Discrete,Greater 0405 6802 |h | Jump_Zero 0x408 0406 e5fe | | Load 0x2,-0x2 0407 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 0408 e5fd | | Load 0x2,-0x3 0409 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 040a e5fd | | Load 0x2,-0x3 040b 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 040c 0a01 | | Execute_Immediate Plus,0x1 040d e5fd | | Load 0x2,-0x3 040e 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 040f 00db | | Load_Top At_Offset_3 0410 0273 | s | Execute Discrete,Plus 0411 00d9 | | Load_Top At_Offset_1 0412 00d9 | | Load_Top At_Offset_1 0413 e403 | | Load 0x2,0x3 0414 035b | [ | Declare_Type Array,Constrained 0415 00db | | Load_Top At_Offset_3 0416 01cd | | Execute Vector,Slice_Reference 0417 00d8 | | Load_Top At_Offset_0 0418 0335 | 5 | Declare_Variable Array,Duplicate 0419 00d0 | | Action Swap_Control 041a 00d1 | | Pop_Control Pop_Count_1 041b 00d9 | | Load_Top At_Offset_1 041c 01d9 | | Execute Vector,Reverse_Bounds 041d 0263 | c | Execute Discrete,Above_Bound 041e 7005 |p | Jump_Nonzero 0x424 041f e5ff | | Load 0x2,-0x1 0420 00d9 | | Load_Top At_Offset_1 0421 e407 | | Load 0x2,0x7 0422 01d6 | | Execute Vector,Field_Write 0423 3ffb |? | Loop_Increasing 0x41f 0424 00d0 | | Action Swap_Control 0425 00d1 | | Pop_Control Pop_Count_1 0426 00da | | Load_Top At_Offset_2 0427 00da | | Load_Top At_Offset_2 0428 e403 | | Load 0x2,0x3 0429 01ce | | Execute Vector,Slice_Write 042a 00d3 | | Pop_Control Pop_Count_3 042b e5fd | | Load 0x2,-0x3 042c 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 042d e5fe | | Load 0x2,-0x2 042e 0273 | s | Execute Discrete,Plus 042f e5fd | | Load 0x2,-0x3 0430 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 0431 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0432 0000 0000 | | .BLANK 0000[0x6] 0438 ; -------------------------------------------------------------------------------------- 0438 ; SUBPROGRAM 0438 ; -------------------------------------------------------------------------------------- 0438 0444 | D | .CONST 0x0444 ; Address of begin 0439 0004 | | .CONST 0x0004 ; Address of exception handler 043a 0002 | | .CONST 0x0002 ; Number of locals 043b INIT_0438: 043b 00da | | Load_Top At_Offset_2 043c 0227 | ' | Execute Access,All_Reference 043d 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 043e 00db | | Load_Top At_Offset_3 043f 0227 | ' | Execute Access,All_Reference 0440 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0441 0272 | r | Execute Discrete,Minus 0442 00e3 | | Load_Encached Natural_Cache 0443 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 0444 BODY_0438: 0444 00d8 | | Load_Top At_Offset_0 0445 e5fe | | Load 0x2,-0x2 0446 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0447 027d | } | Execute Discrete,Greater 0448 6803 |h | Jump_Zero 0x44c 0449 e5fe | | Load 0x2,-0x2 044a 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 044b 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 044c 4801 |H | Short_Literal 0x1 044d 00d9 | | Load_Top At_Offset_1 044e e5fe | | Load 0x2,-0x2 044f 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0450 01cf | | Execute Vector,Slice_Read 0451 e5ff | | Load 0x2,-0x1 0452 0227 | ' | Execute Access,All_Reference 0453 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0454 0a01 | | Execute_Immediate Plus,0x1 0455 e5ff | | Load 0x2,-0x1 0456 0227 | ' | Execute Access,All_Reference 0457 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0458 00db | | Load_Top At_Offset_3 0459 0273 | s | Execute Discrete,Plus 045a e5ff | | Load 0x2,-0x1 045b 0229 | ) | Execute Access,All_Read 045c 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 045d 01ce | | Execute Vector,Slice_Write 045e 00db | | Load_Top At_Offset_3 045f 0227 | ' | Execute Access,All_Reference 0460 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0461 00d9 | | Load_Top At_Offset_1 0462 0273 | s | Execute Discrete,Plus 0463 e5ff | | Load 0x2,-0x1 0464 0227 | ' | Execute Access,All_Reference 0465 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 0466 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0467 0000 | | .XXX[0x1] 0468 ; -------------------------------------------------------------------------------------- 0468 ; SUBPROGRAM 0468 ; -------------------------------------------------------------------------------------- 0468 0474 | t | .CONST 0x0474 ; Address of begin 0469 0004 | | .CONST 0x0004 ; Address of exception handler 046a 0002 | | .CONST 0x0002 ; Number of locals 046b INIT_0468: 046b 00da | | Load_Top At_Offset_2 046c 0227 | ' | Execute Access,All_Reference 046d 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 046e 00db | | Load_Top At_Offset_3 046f 0227 | ' | Execute Access,All_Reference 0470 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0471 0272 | r | Execute Discrete,Minus 0472 00e3 | | Load_Encached Natural_Cache 0473 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 0474 BODY_0468: 0474 00d8 | | Load_Top At_Offset_0 0475 e5fe | | Load 0x2,-0x2 0476 0227 | ' | Execute Access,All_Reference 0477 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0478 027d | } | Execute Discrete,Greater 0479 6804 |h | Jump_Zero 0x47e 047a e5fe | | Load 0x2,-0x2 047b 0227 | ' | Execute Access,All_Reference 047c 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 047d 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 047e 4801 |H | Short_Literal 0x1 047f 00d9 | | Load_Top At_Offset_1 0480 e5fe | | Load 0x2,-0x2 0481 0227 | ' | Execute Access,All_Reference 0482 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0483 01cf | | Execute Vector,Slice_Read 0484 e5ff | | Load 0x2,-0x1 0485 0227 | ' | Execute Access,All_Reference 0486 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0487 0a01 | | Execute_Immediate Plus,0x1 0488 e5ff | | Load 0x2,-0x1 0489 0227 | ' | Execute Access,All_Reference 048a 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 048b 00db | | Load_Top At_Offset_3 048c 0273 | s | Execute Discrete,Plus 048d e5ff | | Load 0x2,-0x1 048e 0229 | ) | Execute Access,All_Read 048f 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0490 01ce | | Execute Vector,Slice_Write 0491 00db | | Load_Top At_Offset_3 0492 0227 | ' | Execute Access,All_Reference 0493 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0494 00d9 | | Load_Top At_Offset_1 0495 0273 | s | Execute Discrete,Plus 0496 e5ff | | Load 0x2,-0x1 0497 0227 | ' | Execute Access,All_Reference 0498 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 0499 4503 |E | Exit_Suprogram New_Top_Offset 0x3 049a 0000 0000 | | .BLANK 0000[0x6] 04a0 ; -------------------------------------------------------------------------------------- 04a0 ; SUBPROGRAM 04a0 ; -------------------------------------------------------------------------------------- 04a0 04ac | | .CONST 0x04ac ; Address of begin 04a1 0004 | | .CONST 0x0004 ; Address of exception handler 04a2 0002 | | .CONST 0x0002 ; Number of locals 04a3 INIT_04a0: 04a3 00da | | Load_Top At_Offset_2 04a4 0227 | ' | Execute Access,All_Reference 04a5 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 04a6 00db | | Load_Top At_Offset_3 04a7 0227 | ' | Execute Access,All_Reference 04a8 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 04a9 0272 | r | Execute Discrete,Minus 04aa 00e3 | | Load_Encached Natural_Cache 04ab 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 04ac BODY_04a0: 04ac 00d8 | | Load_Top At_Offset_0 04ad e5fe | | Load 0x2,-0x2 04ae 01db | | Execute Vector,Length 04af 027d | } | Execute Discrete,Greater 04b0 6803 |h | Jump_Zero 0x4b4 04b1 e5fe | | Load 0x2,-0x2 04b2 01db | | Execute Vector,Length 04b3 0059 | Y | Store_Top Discrete,At_Offset_1 04b4 e5fe | | Load 0x2,-0x2 04b5 01dd | | Execute Vector,First 04b6 e5fe | | Load 0x2,-0x2 04b7 01dd | | Execute Vector,First 04b8 00da | | Load_Top At_Offset_2 04b9 0273 | s | Execute Discrete,Plus 04ba 0aff | | Execute_Immediate Plus,-0x1 04bb e5fe | | Load 0x2,-0x2 04bc 01cf | | Execute Vector,Slice_Read 04bd e5ff | | Load 0x2,-0x1 04be 0227 | ' | Execute Access,All_Reference 04bf 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 04c0 0a01 | | Execute_Immediate Plus,0x1 04c1 e5ff | | Load 0x2,-0x1 04c2 0227 | ' | Execute Access,All_Reference 04c3 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 04c4 00db | | Load_Top At_Offset_3 04c5 0273 | s | Execute Discrete,Plus 04c6 e5ff | | Load 0x2,-0x1 04c7 0229 | ) | Execute Access,All_Read 04c8 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 04c9 01ce | | Execute Vector,Slice_Write 04ca 00db | | Load_Top At_Offset_3 04cb 0227 | ' | Execute Access,All_Reference 04cc 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 04cd 00d9 | | Load_Top At_Offset_1 04ce 0273 | s | Execute Discrete,Plus 04cf e5ff | | Load 0x2,-0x1 04d0 0227 | ' | Execute Access,All_Reference 04d1 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 04d2 4503 |E | Exit_Suprogram New_Top_Offset 0x3 04d3 0000 0000 | | .BLANK 0000[0x5] 04d8 ; -------------------------------------------------------------------------------------- 04d8 ; SUBPROGRAM 04d8 ; -------------------------------------------------------------------------------------- 04d8 04e4 | | .CONST 0x04e4 ; Address of begin 04d9 0004 | | .CONST 0x0004 ; Address of exception handler 04da 0002 | | .CONST 0x0002 ; Number of locals 04db INIT_04d8: 04db 00da | | Load_Top At_Offset_2 04dc 0227 | ' | Execute Access,All_Reference 04dd 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 04de 00db | | Load_Top At_Offset_3 04df 0227 | ' | Execute Access,All_Reference 04e0 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 04e1 0272 | r | Execute Discrete,Minus 04e2 00e3 | | Load_Encached Natural_Cache 04e3 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 04e4 BODY_04d8: 04e4 00d8 | | Load_Top At_Offset_0 04e5 0c01 | | Execute_Immediate Greater_Equal,0x1 04e6 6810 |h | Jump_Zero 0x4f7 04e7 e5fe | | Load 0x2,-0x2 04e8 e5ff | | Load 0x2,-0x1 04e9 0227 | ' | Execute Access,All_Reference 04ea 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 04eb 0a01 | | Execute_Immediate Plus,0x1 04ec e5ff | | Load 0x2,-0x1 04ed 0227 | ' | Execute Access,All_Reference 04ee 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 04ef 01d6 | | Execute Vector,Field_Write 04f0 00db | | Load_Top At_Offset_3 04f1 0227 | ' | Execute Access,All_Reference 04f2 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 04f3 0a01 | | Execute_Immediate Plus,0x1 04f4 e5ff | | Load 0x2,-0x1 04f5 0227 | ' | Execute Access,All_Reference 04f6 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 04f7 4503 |E | Exit_Suprogram New_Top_Offset 0x3 04f8 ; -------------------------------------------------------------------------------------- 04f8 ; SUBPROGRAM 04f8 ; -------------------------------------------------------------------------------------- 04f8 0504 | | .CONST 0x0504 ; Address of begin 04f9 0004 | | .CONST 0x0004 ; Address of exception handler 04fa 0002 | | .CONST 0x0002 ; Number of locals 04fb INIT_04f8: 04fb 00da | | Load_Top At_Offset_2 04fc 0227 | ' | Execute Access,All_Reference 04fd 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 04fe 00db | | Load_Top At_Offset_3 04ff 0227 | ' | Execute Access,All_Reference 0500 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0501 0272 | r | Execute Discrete,Minus 0502 00e3 | | Load_Encached Natural_Cache 0503 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 0504 BODY_04f8: 0504 00d8 | | Load_Top At_Offset_0 0505 e5fd | | Load 0x2,-0x3 0506 027d | } | Execute Discrete,Greater 0507 6802 |h | Jump_Zero 0x50a 0508 e5fd | | Load 0x2,-0x3 0509 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 050a 00db | | Load_Top At_Offset_3 050b 0229 | ) | Execute Access,All_Read 050c 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 050d e5ff | | Load 0x2,-0x1 050e 0227 | ' | Execute Access,All_Reference 050f 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0510 0a01 | | Execute_Immediate Plus,0x1 0511 e5ff | | Load 0x2,-0x1 0512 0227 | ' | Execute Access,All_Reference 0513 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0514 00db | | Load_Top At_Offset_3 0515 0273 | s | Execute Discrete,Plus 0516 00d9 | | Load_Top At_Offset_1 0517 00d9 | | Load_Top At_Offset_1 0518 e403 | | Load 0x2,0x3 0519 035b | [ | Declare_Type Array,Constrained 051a 00db | | Load_Top At_Offset_3 051b 01cd | | Execute Vector,Slice_Reference 051c 00d8 | | Load_Top At_Offset_0 051d 0335 | 5 | Declare_Variable Array,Duplicate 051e 00d0 | | Action Swap_Control 051f 00d1 | | Pop_Control Pop_Count_1 0520 00d9 | | Load_Top At_Offset_1 0521 01d9 | | Execute Vector,Reverse_Bounds 0522 0263 | c | Execute Discrete,Above_Bound 0523 7005 |p | Jump_Nonzero 0x529 0524 e5fe | | Load 0x2,-0x2 0525 00d9 | | Load_Top At_Offset_1 0526 e407 | | Load 0x2,0x7 0527 01d6 | | Execute Vector,Field_Write 0528 3ffb |? | Loop_Increasing 0x524 0529 00d0 | | Action Swap_Control 052a 00d1 | | Pop_Control Pop_Count_1 052b 00da | | Load_Top At_Offset_2 052c 00da | | Load_Top At_Offset_2 052d e403 | | Load 0x2,0x3 052e 01ce | | Execute Vector,Slice_Write 052f 00d3 | | Pop_Control Pop_Count_3 0530 00db | | Load_Top At_Offset_3 0531 0227 | ' | Execute Access,All_Reference 0532 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0533 e5fd | | Load 0x2,-0x3 0534 0273 | s | Execute Discrete,Plus 0535 e5ff | | Load 0x2,-0x1 0536 0227 | ' | Execute Access,All_Reference 0537 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 0538 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0539 0000 0000 | | .BLANK 0000[0x7] 0540 ; -------------------------------------------------------------------------------------- 0540 ; SUBPROGRAM 0540 ; -------------------------------------------------------------------------------------- 0540 0548 | H | .CONST 0x0548 ; Address of begin 0541 0004 | | .CONST 0x0004 ; Address of exception handler 0542 0003 | | .CONST 0x0003 ; Number of locals 0543 INIT_0540: 0543 00e3 | | Load_Encached Natural_Cache 0544 00db | | Load_Top At_Offset_3 0545 01db | | Execute Vector,Length 0546 00e3 | | Load_Encached Natural_Cache 0547 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 0548 BODY_0540: 0548 e5fd | | Load 0x2,-0x3 0549 0227 | ' | Execute Access,All_Reference 054a 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 054b 00d9 | | Load_Top At_Offset_1 054c 0273 | s | Execute Discrete,Plus 054d 005a | Z | Store_Top Discrete,At_Offset_2 054e e5fd | | Load 0x2,-0x3 054f 0227 | ' | Execute Access,All_Reference 0550 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 0551 00da | | Load_Top At_Offset_2 0552 027c | | | Execute Discrete,Less 0553 6810 |h | Jump_Zero 0x564 0554 00d9 | | Load_Top At_Offset_1 0555 e5fe | | Load 0x2,-0x2 0556 0273 | s | Execute Discrete,Plus 0557 0aff | | Execute_Immediate Plus,-0x1 0558 005a | Z | Store_Top Discrete,At_Offset_2 0559 00d9 | | Load_Top At_Offset_1 055a 00da | | Load_Top At_Offset_2 055b e5fe | | Load 0x2,-0x2 055c 026f | o | Execute Discrete,Remainder 055d 0272 | r | Execute Discrete,Minus 055e 005a | Z | Store_Top Discrete,At_Offset_2 055f e5fd | | Load 0x2,-0x3 0560 00da | | Load_Top At_Offset_2 0561 e002 | | Load 0x0,0x2 0562 180f | | Execute Package,Field_Execute,Field_Number 0xf 0563 c5fd | | Store 0x2,-0x3 0564 e5ff | | Load 0x2,-0x1 0565 01dd | | Execute Vector,First 0566 e5ff | | Load 0x2,-0x1 0567 01dc | | Execute Vector,Last 0568 e5ff | | Load 0x2,-0x1 0569 01cf | | Execute Vector,Slice_Read 056a e5fd | | Load 0x2,-0x3 056b 0227 | ' | Execute Access,All_Reference 056c 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 056d 0a01 | | Execute_Immediate Plus,0x1 056e e5fd | | Load 0x2,-0x3 056f 0227 | ' | Execute Access,All_Reference 0570 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0571 00db | | Load_Top At_Offset_3 0572 0273 | s | Execute Discrete,Plus 0573 e5fd | | Load 0x2,-0x3 0574 0229 | ) | Execute Access,All_Read 0575 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0576 01ce | | Execute Vector,Slice_Write 0577 e5fd | | Load 0x2,-0x3 0578 0227 | ' | Execute Access,All_Reference 0579 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 057a 00d9 | | Load_Top At_Offset_1 057b 0273 | s | Execute Discrete,Plus 057c e5fd | | Load 0x2,-0x3 057d 0227 | ' | Execute Access,All_Reference 057e 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 057f 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0580 ; -------------------------------------------------------------------------------------- 0580 ; SUBPROGRAM 0580 ; -------------------------------------------------------------------------------------- 0580 0584 | | .CONST 0x0584 ; Address of begin 0581 0004 | | .CONST 0x0004 ; Address of exception handler 0582 0002 | | .CONST 0x0002 ; Number of locals 0583 INIT_0580: 0583 00e3 | | Load_Encached Natural_Cache 0584 BODY_0580: 0584 e5fd | | Load 0x2,-0x3 0585 0227 | ' | Execute Access,All_Reference 0586 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0587 0a01 | | Execute_Immediate Plus,0x1 0588 0059 | Y | Store_Top Discrete,At_Offset_1 0589 e5fd | | Load 0x2,-0x3 058a 0227 | ' | Execute Access,All_Reference 058b 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 058c 00d9 | | Load_Top At_Offset_1 058d 027c | | | Execute Discrete,Less 058e 6810 |h | Jump_Zero 0x59f 058f 00d8 | | Load_Top At_Offset_0 0590 e5fe | | Load 0x2,-0x2 0591 0273 | s | Execute Discrete,Plus 0592 0aff | | Execute_Immediate Plus,-0x1 0593 0059 | Y | Store_Top Discrete,At_Offset_1 0594 00d8 | | Load_Top At_Offset_0 0595 00d9 | | Load_Top At_Offset_1 0596 e5fe | | Load 0x2,-0x2 0597 026f | o | Execute Discrete,Remainder 0598 0272 | r | Execute Discrete,Minus 0599 0059 | Y | Store_Top Discrete,At_Offset_1 059a e5fd | | Load 0x2,-0x3 059b 00d9 | | Load_Top At_Offset_1 059c e002 | | Load 0x0,0x2 059d 180f | | Execute Package,Field_Execute,Field_Number 0xf 059e c5fd | | Store 0x2,-0x3 059f 00db | | Load_Top At_Offset_3 05a0 e5fd | | Load 0x2,-0x3 05a1 0227 | ' | Execute Access,All_Reference 05a2 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 05a3 0a01 | | Execute_Immediate Plus,0x1 05a4 e5fd | | Load 0x2,-0x3 05a5 0227 | ' | Execute Access,All_Reference 05a6 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 05a7 01d6 | | Execute Vector,Field_Write 05a8 e5fd | | Load 0x2,-0x3 05a9 0227 | ' | Execute Access,All_Reference 05aa 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 05ab 0a01 | | Execute_Immediate Plus,0x1 05ac e5fd | | Load 0x2,-0x3 05ad 0227 | ' | Execute Access,All_Reference 05ae 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 05af 4503 |E | Exit_Suprogram New_Top_Offset 0x3 05b0 ; -------------------------------------------------------------------------------------- 05b0 ; SUBPROGRAM 05b0 ; -------------------------------------------------------------------------------------- 05b0 05b4 | | .CONST 0x05b4 ; Address of begin 05b1 0004 | | .CONST 0x0004 ; Address of exception handler 05b2 0002 | | .CONST 0x0002 ; Number of locals 05b3 INIT_05b0: 05b3 00e3 | | Load_Encached Natural_Cache 05b4 BODY_05b0: 05b4 e5fc | | Load 0x2,-0x4 05b5 0227 | ' | Execute Access,All_Reference 05b6 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 05b7 e5fe | | Load 0x2,-0x2 05b8 0273 | s | Execute Discrete,Plus 05b9 0059 | Y | Store_Top Discrete,At_Offset_1 05ba e5fc | | Load 0x2,-0x4 05bb 0227 | ' | Execute Access,All_Reference 05bc 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 05bd 00d9 | | Load_Top At_Offset_1 05be 027c | | | Execute Discrete,Less 05bf 6810 |h | Jump_Zero 0x5d0 05c0 00d8 | | Load_Top At_Offset_0 05c1 e5fd | | Load 0x2,-0x3 05c2 0273 | s | Execute Discrete,Plus 05c3 0aff | | Execute_Immediate Plus,-0x1 05c4 0059 | Y | Store_Top Discrete,At_Offset_1 05c5 00d8 | | Load_Top At_Offset_0 05c6 00d9 | | Load_Top At_Offset_1 05c7 e5fd | | Load 0x2,-0x3 05c8 026f | o | Execute Discrete,Remainder 05c9 0272 | r | Execute Discrete,Minus 05ca 0059 | Y | Store_Top Discrete,At_Offset_1 05cb e5fc | | Load 0x2,-0x4 05cc 00d9 | | Load_Top At_Offset_1 05cd e002 | | Load 0x0,0x2 05ce 180f | | Execute Package,Field_Execute,Field_Number 0xf 05cf c5fc | | Store 0x2,-0x4 05d0 e5fc | | Load 0x2,-0x4 05d1 0229 | ) | Execute Access,All_Read 05d2 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 05d3 e5fc | | Load 0x2,-0x4 05d4 0227 | ' | Execute Access,All_Reference 05d5 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 05d6 0a01 | | Execute_Immediate Plus,0x1 05d7 e5fc | | Load 0x2,-0x4 05d8 0227 | ' | Execute Access,All_Reference 05d9 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 05da e5fe | | Load 0x2,-0x2 05db 0273 | s | Execute Discrete,Plus 05dc 00d9 | | Load_Top At_Offset_1 05dd 00d9 | | Load_Top At_Offset_1 05de e403 | | Load 0x2,0x3 05df 035b | [ | Declare_Type Array,Constrained 05e0 00db | | Load_Top At_Offset_3 05e1 01cd | | Execute Vector,Slice_Reference 05e2 00d8 | | Load_Top At_Offset_0 05e3 0335 | 5 | Declare_Variable Array,Duplicate 05e4 00d0 | | Action Swap_Control 05e5 00d1 | | Pop_Control Pop_Count_1 05e6 00d9 | | Load_Top At_Offset_1 05e7 01d9 | | Execute Vector,Reverse_Bounds 05e8 0263 | c | Execute Discrete,Above_Bound 05e9 7005 |p | Jump_Nonzero 0x5ef 05ea e5ff | | Load 0x2,-0x1 05eb 00d9 | | Load_Top At_Offset_1 05ec e407 | | Load 0x2,0x7 05ed 01d6 | | Execute Vector,Field_Write 05ee 3ffb |? | Loop_Increasing 0x5ea 05ef 00d0 | | Action Swap_Control 05f0 00d1 | | Pop_Control Pop_Count_1 05f1 00da | | Load_Top At_Offset_2 05f2 00da | | Load_Top At_Offset_2 05f3 e403 | | Load 0x2,0x3 05f4 01ce | | Execute Vector,Slice_Write 05f5 00d3 | | Pop_Control Pop_Count_3 05f6 e5fc | | Load 0x2,-0x4 05f7 0227 | ' | Execute Access,All_Reference 05f8 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 05f9 e5fe | | Load 0x2,-0x2 05fa 0273 | s | Execute Discrete,Plus 05fb e5fc | | Load 0x2,-0x4 05fc 0227 | ' | Execute Access,All_Reference 05fd 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 05fe 4504 |E | Exit_Suprogram New_Top_Offset 0x4 05ff 0000 | | .XXX[0x1] 0600 ; -------------------------------------------------------------------------------------- 0600 ; SUBPROGRAM 0600 ; -------------------------------------------------------------------------------------- 0600 0604 | | .CONST 0x0604 ; Address of begin 0601 0004 | | .CONST 0x0004 ; Address of exception handler 0602 0002 | | .CONST 0x0002 ; Number of locals 0603 INIT_0600: 0603 00e3 | | Load_Encached Natural_Cache 0604 BODY_0600: 0604 e5fd | | Load 0x2,-0x3 0605 0227 | ' | Execute Access,All_Reference 0606 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0607 e5ff | | Load 0x2,-0x1 0608 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0609 0273 | s | Execute Discrete,Plus 060a 0059 | Y | Store_Top Discrete,At_Offset_1 060b e5fd | | Load 0x2,-0x3 060c 0227 | ' | Execute Access,All_Reference 060d 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 060e 00d9 | | Load_Top At_Offset_1 060f 027c | | | Execute Discrete,Less 0610 6810 |h | Jump_Zero 0x621 0611 00d8 | | Load_Top At_Offset_0 0612 e5fe | | Load 0x2,-0x2 0613 0273 | s | Execute Discrete,Plus 0614 0aff | | Execute_Immediate Plus,-0x1 0615 0059 | Y | Store_Top Discrete,At_Offset_1 0616 00d8 | | Load_Top At_Offset_0 0617 00d9 | | Load_Top At_Offset_1 0618 e5fe | | Load 0x2,-0x2 0619 026f | o | Execute Discrete,Remainder 061a 0272 | r | Execute Discrete,Minus 061b 0059 | Y | Store_Top Discrete,At_Offset_1 061c e5fd | | Load 0x2,-0x3 061d 00d9 | | Load_Top At_Offset_1 061e e002 | | Load 0x0,0x2 061f 180f | | Execute Package,Field_Execute,Field_Number 0xf 0620 c5fd | | Store 0x2,-0x3 0621 4801 |H | Short_Literal 0x1 0622 e5ff | | Load 0x2,-0x1 0623 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0624 e5ff | | Load 0x2,-0x1 0625 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0626 01cf | | Execute Vector,Slice_Read 0627 e5fd | | Load 0x2,-0x3 0628 0227 | ' | Execute Access,All_Reference 0629 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 062a 0a01 | | Execute_Immediate Plus,0x1 062b e5fd | | Load 0x2,-0x3 062c 0227 | ' | Execute Access,All_Reference 062d 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 062e e5ff | | Load 0x2,-0x1 062f 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0630 0273 | s | Execute Discrete,Plus 0631 e5fd | | Load 0x2,-0x3 0632 0229 | ) | Execute Access,All_Read 0633 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0634 01ce | | Execute Vector,Slice_Write 0635 e5fd | | Load 0x2,-0x3 0636 0227 | ' | Execute Access,All_Reference 0637 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0638 e5ff | | Load 0x2,-0x1 0639 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 063a 0273 | s | Execute Discrete,Plus 063b e5fd | | Load 0x2,-0x3 063c 0227 | ' | Execute Access,All_Reference 063d 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 063e 4503 |E | Exit_Suprogram New_Top_Offset 0x3 063f 0000 | | .XXX[0x1] 0640 ; -------------------------------------------------------------------------------------- 0640 ; SUBPROGRAM 0640 ; -------------------------------------------------------------------------------------- 0640 0644 | D | .CONST 0x0644 ; Address of begin 0641 0004 | | .CONST 0x0004 ; Address of exception handler 0642 0002 | | .CONST 0x0002 ; Number of locals 0643 INIT_0640: 0643 00e3 | | Load_Encached Natural_Cache 0644 BODY_0640: 0644 e5fd | | Load 0x2,-0x3 0645 0227 | ' | Execute Access,All_Reference 0646 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0647 e5ff | | Load 0x2,-0x1 0648 0227 | ' | Execute Access,All_Reference 0649 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 064a 0273 | s | Execute Discrete,Plus 064b 0059 | Y | Store_Top Discrete,At_Offset_1 064c e5fd | | Load 0x2,-0x3 064d 0227 | ' | Execute Access,All_Reference 064e 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 064f 00d9 | | Load_Top At_Offset_1 0650 027c | | | Execute Discrete,Less 0651 6810 |h | Jump_Zero 0x662 0652 00d8 | | Load_Top At_Offset_0 0653 e5fe | | Load 0x2,-0x2 0654 0273 | s | Execute Discrete,Plus 0655 0aff | | Execute_Immediate Plus,-0x1 0656 0059 | Y | Store_Top Discrete,At_Offset_1 0657 00d8 | | Load_Top At_Offset_0 0658 00d9 | | Load_Top At_Offset_1 0659 e5fe | | Load 0x2,-0x2 065a 026f | o | Execute Discrete,Remainder 065b 0272 | r | Execute Discrete,Minus 065c 0059 | Y | Store_Top Discrete,At_Offset_1 065d e5fd | | Load 0x2,-0x3 065e 00d9 | | Load_Top At_Offset_1 065f e002 | | Load 0x0,0x2 0660 180f | | Execute Package,Field_Execute,Field_Number 0xf 0661 c5fd | | Store 0x2,-0x3 0662 4801 |H | Short_Literal 0x1 0663 e5ff | | Load 0x2,-0x1 0664 0227 | ' | Execute Access,All_Reference 0665 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0666 e5ff | | Load 0x2,-0x1 0667 0227 | ' | Execute Access,All_Reference 0668 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0669 01cf | | Execute Vector,Slice_Read 066a e5fd | | Load 0x2,-0x3 066b 0227 | ' | Execute Access,All_Reference 066c 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 066d 0a01 | | Execute_Immediate Plus,0x1 066e e5fd | | Load 0x2,-0x3 066f 0227 | ' | Execute Access,All_Reference 0670 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0671 e5ff | | Load 0x2,-0x1 0672 0227 | ' | Execute Access,All_Reference 0673 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0674 0273 | s | Execute Discrete,Plus 0675 e5fd | | Load 0x2,-0x3 0676 0229 | ) | Execute Access,All_Read 0677 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0678 01ce | | Execute Vector,Slice_Write 0679 e5fd | | Load 0x2,-0x3 067a 0227 | ' | Execute Access,All_Reference 067b 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 067c e5ff | | Load 0x2,-0x1 067d 0227 | ' | Execute Access,All_Reference 067e 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 067f 0273 | s | Execute Discrete,Plus 0680 e5fd | | Load 0x2,-0x3 0681 0227 | ' | Execute Access,All_Reference 0682 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 0683 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0684 0000 0000 | | .BLANK 0000[0x4] 0688 ; -------------------------------------------------------------------------------------- 0688 ; SUBPROGRAM 0688 ; -------------------------------------------------------------------------------------- 0688 0693 | | .CONST 0x0693 ; Address of begin 0689 0004 | | .CONST 0x0004 ; Address of exception handler 068a 0003 | | .CONST 0x0003 ; Number of locals 068b INIT_0688: 068b 00db | | Load_Top At_Offset_3 068c 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 068d e5fe | | Load 0x2,-0x2 068e 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 068f 0272 | r | Execute Discrete,Minus 0690 00e3 | | Load_Encached Natural_Cache 0691 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 0692 00e3 | | Load_Encached Natural_Cache 0693 BODY_0688: 0693 00d9 | | Load_Top At_Offset_1 0694 e5ff | | Load 0x2,-0x1 0695 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0696 027b | { | Execute Discrete,Greater_Equal 0697 6825 |h% | Jump_Zero 0x6bd 0698 4801 |H | Short_Literal 0x1 0699 e5fe | | Load 0x2,-0x2 069a 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 069b e5fe | | Load 0x2,-0x2 069c 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 069d 01cf | | Execute Vector,Slice_Read 069e e5ff | | Load 0x2,-0x1 069f 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 06a0 0a01 | | Execute_Immediate Plus,0x1 06a1 e5ff | | Load 0x2,-0x1 06a2 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 06a3 e5fe | | Load 0x2,-0x2 06a4 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 06a5 0273 | s | Execute Discrete,Plus 06a6 e5fe | | Load 0x2,-0x2 06a7 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 06a8 01ce | | Execute Vector,Slice_Write 06a9 4801 |H | Short_Literal 0x1 06aa e5ff | | Load 0x2,-0x1 06ab 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 06ac e5ff | | Load 0x2,-0x1 06ad 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 06ae 01cf | | Execute Vector,Slice_Read 06af 4801 |H | Short_Literal 0x1 06b0 e5ff | | Load 0x2,-0x1 06b1 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 06b2 e5fe | | Load 0x2,-0x2 06b3 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 06b4 01ce | | Execute Vector,Slice_Write 06b5 e5fe | | Load 0x2,-0x2 06b6 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 06b7 e5ff | | Load 0x2,-0x1 06b8 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 06b9 0273 | s | Execute Discrete,Plus 06ba e5fe | | Load 0x2,-0x2 06bb 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 06bc 4502 |E | Exit_Suprogram New_Top_Offset 0x2 06bd e5ff | | Load 0x2,-0x1 06be 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 06bf e5fe | | Load 0x2,-0x2 06c0 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 06c1 027d | } | Execute Discrete,Greater 06c2 680d |h | Jump_Zero 0x6d0 06c3 4801 |H | Short_Literal 0x1 06c4 e5fe | | Load 0x2,-0x2 06c5 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 06c6 e5ff | | Load 0x2,-0x1 06c7 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 06c8 01cf | | Execute Vector,Slice_Read 06c9 e5fe | | Load 0x2,-0x2 06ca 2903 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x3 06cb e5fe | | Load 0x2,-0x2 06cc 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 06cd e5fe | | Load 0x2,-0x2 06ce 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 06cf 4502 |E | Exit_Suprogram New_Top_Offset 0x2 06d0 4801 |H | Short_Literal 0x1 06d1 e5fe | | Load 0x2,-0x2 06d2 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 06d3 00da | | Load_Top At_Offset_2 06d4 0272 | r | Execute Discrete,Minus 06d5 e5fe | | Load 0x2,-0x2 06d6 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 06d7 01cf | | Execute Vector,Slice_Read 06d8 e5ff | | Load 0x2,-0x1 06d9 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 06da 0a01 | | Execute_Immediate Plus,0x1 06db e5fe | | Load 0x2,-0x2 06dc 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 06dd e5fe | | Load 0x2,-0x2 06de 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 06df 01ce | | Execute Vector,Slice_Write 06e0 4801 |H | Short_Literal 0x1 06e1 e5ff | | Load 0x2,-0x1 06e2 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 06e3 e5ff | | Load 0x2,-0x1 06e4 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 06e5 01cf | | Execute Vector,Slice_Read 06e6 4801 |H | Short_Literal 0x1 06e7 e5ff | | Load 0x2,-0x1 06e8 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 06e9 e5fe | | Load 0x2,-0x2 06ea 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 06eb 01ce | | Execute Vector,Slice_Write 06ec e5fe | | Load 0x2,-0x2 06ed 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 06ee e5fe | | Load 0x2,-0x2 06ef 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 06f0 4502 |E | Exit_Suprogram New_Top_Offset 0x2 06f1 0000 0000 | | .BLANK 0000[0x7] 06f8 ; -------------------------------------------------------------------------------------- 06f8 ; SUBPROGRAM 06f8 ; -------------------------------------------------------------------------------------- 06f8 0703 | | .CONST 0x0703 ; Address of begin 06f9 0004 | | .CONST 0x0004 ; Address of exception handler 06fa 0003 | | .CONST 0x0003 ; Number of locals 06fb INIT_06f8: 06fb 00db | | Load_Top At_Offset_3 06fc 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 06fd e5fe | | Load 0x2,-0x2 06fe 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 06ff 0272 | r | Execute Discrete,Minus 0700 00e3 | | Load_Encached Natural_Cache 0701 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 0702 00e3 | | Load_Encached Natural_Cache 0703 BODY_06f8: 0703 00d9 | | Load_Top At_Offset_1 0704 e5ff | | Load 0x2,-0x1 0705 0227 | ' | Execute Access,All_Reference 0706 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0707 027b | { | Execute Discrete,Greater_Equal 0708 682b |h+ | Jump_Zero 0x734 0709 4801 |H | Short_Literal 0x1 070a e5fe | | Load 0x2,-0x2 070b 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 070c e5fe | | Load 0x2,-0x2 070d 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 070e 01cf | | Execute Vector,Slice_Read 070f e5ff | | Load 0x2,-0x1 0710 0227 | ' | Execute Access,All_Reference 0711 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0712 0a01 | | Execute_Immediate Plus,0x1 0713 e5ff | | Load 0x2,-0x1 0714 0227 | ' | Execute Access,All_Reference 0715 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0716 e5fe | | Load 0x2,-0x2 0717 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0718 0273 | s | Execute Discrete,Plus 0719 e5fe | | Load 0x2,-0x2 071a 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 071b 01ce | | Execute Vector,Slice_Write 071c 4801 |H | Short_Literal 0x1 071d e5ff | | Load 0x2,-0x1 071e 0227 | ' | Execute Access,All_Reference 071f 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0720 e5ff | | Load 0x2,-0x1 0721 0227 | ' | Execute Access,All_Reference 0722 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0723 01cf | | Execute Vector,Slice_Read 0724 4801 |H | Short_Literal 0x1 0725 e5ff | | Load 0x2,-0x1 0726 0227 | ' | Execute Access,All_Reference 0727 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0728 e5fe | | Load 0x2,-0x2 0729 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 072a 01ce | | Execute Vector,Slice_Write 072b e5fe | | Load 0x2,-0x2 072c 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 072d e5ff | | Load 0x2,-0x1 072e 0227 | ' | Execute Access,All_Reference 072f 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0730 0273 | s | Execute Discrete,Plus 0731 e5fe | | Load 0x2,-0x2 0732 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 0733 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0734 e5ff | | Load 0x2,-0x1 0735 0227 | ' | Execute Access,All_Reference 0736 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0737 e5fe | | Load 0x2,-0x2 0738 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 0739 027d | } | Execute Discrete,Greater 073a 680e |h | Jump_Zero 0x749 073b 4801 |H | Short_Literal 0x1 073c e5fe | | Load 0x2,-0x2 073d 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 073e e5ff | | Load 0x2,-0x1 073f 0227 | ' | Execute Access,All_Reference 0740 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0741 01cf | | Execute Vector,Slice_Read 0742 e5fe | | Load 0x2,-0x2 0743 2903 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x3 0744 e5fe | | Load 0x2,-0x2 0745 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 0746 e5fe | | Load 0x2,-0x2 0747 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 0748 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0749 4801 |H | Short_Literal 0x1 074a e5fe | | Load 0x2,-0x2 074b 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 074c 00da | | Load_Top At_Offset_2 074d 0272 | r | Execute Discrete,Minus 074e e5fe | | Load 0x2,-0x2 074f 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0750 01cf | | Execute Vector,Slice_Read 0751 e5ff | | Load 0x2,-0x1 0752 0227 | ' | Execute Access,All_Reference 0753 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0754 0a01 | | Execute_Immediate Plus,0x1 0755 e5fe | | Load 0x2,-0x2 0756 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 0757 e5fe | | Load 0x2,-0x2 0758 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0759 01ce | | Execute Vector,Slice_Write 075a 4801 |H | Short_Literal 0x1 075b e5ff | | Load 0x2,-0x1 075c 0227 | ' | Execute Access,All_Reference 075d 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 075e e5ff | | Load 0x2,-0x1 075f 0227 | ' | Execute Access,All_Reference 0760 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0761 01cf | | Execute Vector,Slice_Read 0762 4801 |H | Short_Literal 0x1 0763 e5ff | | Load 0x2,-0x1 0764 0227 | ' | Execute Access,All_Reference 0765 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0766 e5fe | | Load 0x2,-0x2 0767 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0768 01ce | | Execute Vector,Slice_Write 0769 e5fe | | Load 0x2,-0x2 076a 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 076b e5fe | | Load 0x2,-0x2 076c 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 076d 4502 |E | Exit_Suprogram New_Top_Offset 0x2 076e 0000 0000 | | .XXX[0x2] 0770 ; -------------------------------------------------------------------------------------- 0770 ; SUBPROGRAM 0770 ; -------------------------------------------------------------------------------------- 0770 077f | | .CONST 0x077f ; Address of begin 0771 0004 | | .CONST 0x0004 ; Address of exception handler 0772 0004 | | .CONST 0x0004 ; Number of locals 0773 INIT_0770: 0773 00db | | Load_Top At_Offset_3 0774 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 0775 e5fe | | Load 0x2,-0x2 0776 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0777 0272 | r | Execute Discrete,Minus 0778 00e3 | | Load_Encached Natural_Cache 0779 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 077a 00e3 | | Load_Encached Natural_Cache 077b e5ff | | Load 0x2,-0x1 077c 01db | | Execute Vector,Length 077d 00e3 | | Load_Encached Natural_Cache 077e 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 077f BODY_0770: 077f 00da | | Load_Top At_Offset_2 0780 00d9 | | Load_Top At_Offset_1 0781 027b | { | Execute Discrete,Greater_Equal 0782 681f |h | Jump_Zero 0x7a2 0783 4801 |H | Short_Literal 0x1 0784 e5fe | | Load 0x2,-0x2 0785 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0786 e5fe | | Load 0x2,-0x2 0787 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0788 01cf | | Execute Vector,Slice_Read 0789 00d9 | | Load_Top At_Offset_1 078a 0a01 | | Execute_Immediate Plus,0x1 078b 00da | | Load_Top At_Offset_2 078c e5fe | | Load 0x2,-0x2 078d 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 078e 0273 | s | Execute Discrete,Plus 078f e5fe | | Load 0x2,-0x2 0790 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0791 01ce | | Execute Vector,Slice_Write 0792 4801 |H | Short_Literal 0x1 0793 00d9 | | Load_Top At_Offset_1 0794 e5ff | | Load 0x2,-0x1 0795 01cf | | Execute Vector,Slice_Read 0796 4801 |H | Short_Literal 0x1 0797 00da | | Load_Top At_Offset_2 0798 e5fe | | Load 0x2,-0x2 0799 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 079a 01ce | | Execute Vector,Slice_Write 079b e5fe | | Load 0x2,-0x2 079c 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 079d 00d9 | | Load_Top At_Offset_1 079e 0273 | s | Execute Discrete,Plus 079f e5fe | | Load 0x2,-0x2 07a0 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 07a1 4502 |E | Exit_Suprogram New_Top_Offset 0x2 07a2 00d8 | | Load_Top At_Offset_0 07a3 e5fe | | Load 0x2,-0x2 07a4 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 07a5 027d | } | Execute Discrete,Greater 07a6 6811 |h | Jump_Zero 0x7b8 07a7 e5ff | | Load 0x2,-0x1 07a8 01dd | | Execute Vector,First 07a9 e5ff | | Load 0x2,-0x1 07aa 01dd | | Execute Vector,First 07ab e5fe | | Load 0x2,-0x2 07ac 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 07ad 0273 | s | Execute Discrete,Plus 07ae 0aff | | Execute_Immediate Plus,-0x1 07af e5ff | | Load 0x2,-0x1 07b0 01cf | | Execute Vector,Slice_Read 07b1 e5fe | | Load 0x2,-0x2 07b2 2903 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x3 07b3 e5fe | | Load 0x2,-0x2 07b4 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 07b5 e5fe | | Load 0x2,-0x2 07b6 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 07b7 4502 |E | Exit_Suprogram New_Top_Offset 0x2 07b8 4801 |H | Short_Literal 0x1 07b9 e5fe | | Load 0x2,-0x2 07ba 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 07bb 00db | | Load_Top At_Offset_3 07bc 0272 | r | Execute Discrete,Minus 07bd e5fe | | Load 0x2,-0x2 07be 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 07bf 01cf | | Execute Vector,Slice_Read 07c0 00d9 | | Load_Top At_Offset_1 07c1 0a01 | | Execute_Immediate Plus,0x1 07c2 e5fe | | Load 0x2,-0x2 07c3 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 07c4 e5fe | | Load 0x2,-0x2 07c5 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 07c6 01ce | | Execute Vector,Slice_Write 07c7 e5ff | | Load 0x2,-0x1 07c8 4801 |H | Short_Literal 0x1 07c9 00da | | Load_Top At_Offset_2 07ca e5fe | | Load 0x2,-0x2 07cb 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 07cc 01ce | | Execute Vector,Slice_Write 07cd e5fe | | Load 0x2,-0x2 07ce 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 07cf e5fe | | Load 0x2,-0x2 07d0 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 07d1 4502 |E | Exit_Suprogram New_Top_Offset 0x2 07d2 0000 0000 | | .BLANK 0000[0x6] 07d8 ; -------------------------------------------------------------------------------------- 07d8 ; SUBPROGRAM 07d8 ; -------------------------------------------------------------------------------------- 07d8 07e3 | | .CONST 0x07e3 ; Address of begin 07d9 0004 | | .CONST 0x0004 ; Address of exception handler 07da 0003 | | .CONST 0x0003 ; Number of locals 07db INIT_07d8: 07db 00db | | Load_Top At_Offset_3 07dc 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 07dd e5fe | | Load 0x2,-0x2 07de 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 07df 0272 | r | Execute Discrete,Minus 07e0 00e3 | | Load_Encached Natural_Cache 07e1 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 07e2 00e3 | | Load_Encached Natural_Cache 07e3 BODY_07d8: 07e3 00d9 | | Load_Top At_Offset_1 07e4 0c01 | | Execute_Immediate Greater_Equal,0x1 07e5 6818 |h | Jump_Zero 0x7fe 07e6 4801 |H | Short_Literal 0x1 07e7 e5fe | | Load 0x2,-0x2 07e8 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 07e9 e5fe | | Load 0x2,-0x2 07ea 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 07eb 01cf | | Execute Vector,Slice_Read 07ec 4802 |H | Short_Literal 0x2 07ed e5fe | | Load 0x2,-0x2 07ee 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 07ef 0a01 | | Execute_Immediate Plus,0x1 07f0 e5fe | | Load 0x2,-0x2 07f1 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 07f2 01ce | | Execute Vector,Slice_Write 07f3 e5ff | | Load 0x2,-0x1 07f4 4801 |H | Short_Literal 0x1 07f5 e5fe | | Load 0x2,-0x2 07f6 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 07f7 01d6 | | Execute Vector,Field_Write 07f8 e5fe | | Load 0x2,-0x2 07f9 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 07fa 0a01 | | Execute_Immediate Plus,0x1 07fb e5fe | | Load 0x2,-0x2 07fc 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 07fd 4502 |E | Exit_Suprogram New_Top_Offset 0x2 07fe e5fe | | Load 0x2,-0x2 07ff 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 0800 0d01 | | Execute_Immediate Less,0x1 0801 6801 |h | Jump_Zero 0x803 0802 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0803 4801 |H | Short_Literal 0x1 0804 e5fe | | Load 0x2,-0x2 0805 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 0806 0aff | | Execute_Immediate Plus,-0x1 0807 e5fe | | Load 0x2,-0x2 0808 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0809 01cf | | Execute Vector,Slice_Read 080a 4802 |H | Short_Literal 0x2 080b e5fe | | Load 0x2,-0x2 080c 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 080d e5fe | | Load 0x2,-0x2 080e 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 080f 01ce | | Execute Vector,Slice_Write 0810 e5ff | | Load 0x2,-0x1 0811 4801 |H | Short_Literal 0x1 0812 e5fe | | Load 0x2,-0x2 0813 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0814 01d6 | | Execute Vector,Field_Write 0815 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0816 0000 0000 | | .XXX[0x2] 0818 ; -------------------------------------------------------------------------------------- 0818 ; SUBPROGRAM 0818 ; -------------------------------------------------------------------------------------- 0818 0823 | # | .CONST 0x0823 ; Address of begin 0819 0004 | | .CONST 0x0004 ; Address of exception handler 081a 0003 | | .CONST 0x0003 ; Number of locals 081b INIT_0818: 081b e5fd | | Load 0x2,-0x3 081c 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 081d e5fd | | Load 0x2,-0x3 081e 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 081f 0272 | r | Execute Discrete,Minus 0820 00e3 | | Load_Encached Natural_Cache 0821 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 0822 00e3 | | Load_Encached Natural_Cache 0823 BODY_0818: 0823 00d9 | | Load_Top At_Offset_1 0824 e5fe | | Load 0x2,-0x2 0825 027b | { | Execute Discrete,Greater_Equal 0826 6834 |h4 | Jump_Zero 0x85b 0827 4801 |H | Short_Literal 0x1 0828 e5fd | | Load 0x2,-0x3 0829 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 082a e5fd | | Load 0x2,-0x3 082b 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 082c 01cf | | Execute Vector,Slice_Read 082d e5fe | | Load 0x2,-0x2 082e 0a01 | | Execute_Immediate Plus,0x1 082f e5fe | | Load 0x2,-0x2 0830 e5fd | | Load 0x2,-0x3 0831 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0832 0273 | s | Execute Discrete,Plus 0833 e5fd | | Load 0x2,-0x3 0834 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0835 01ce | | Execute Vector,Slice_Write 0836 e5fd | | Load 0x2,-0x3 0837 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0838 4801 |H | Short_Literal 0x1 0839 e5fe | | Load 0x2,-0x2 083a 00d9 | | Load_Top At_Offset_1 083b 00d9 | | Load_Top At_Offset_1 083c e404 | | Load 0x2,0x4 083d 035b | [ | Declare_Type Array,Constrained 083e 00db | | Load_Top At_Offset_3 083f 01cd | | Execute Vector,Slice_Reference 0840 00d8 | | Load_Top At_Offset_0 0841 0335 | 5 | Declare_Variable Array,Duplicate 0842 00d0 | | Action Swap_Control 0843 00d1 | | Pop_Control Pop_Count_1 0844 00d9 | | Load_Top At_Offset_1 0845 01d9 | | Execute Vector,Reverse_Bounds 0846 0263 | c | Execute Discrete,Above_Bound 0847 7005 |p | Jump_Nonzero 0x84d 0848 e5ff | | Load 0x2,-0x1 0849 00d9 | | Load_Top At_Offset_1 084a e408 | | Load 0x2,0x8 084b 01d6 | | Execute Vector,Field_Write 084c 3ffb |? | Loop_Increasing 0x848 084d 00d0 | | Action Swap_Control 084e 00d1 | | Pop_Control Pop_Count_1 084f 00da | | Load_Top At_Offset_2 0850 00da | | Load_Top At_Offset_2 0851 e404 | | Load 0x2,0x4 0852 01ce | | Execute Vector,Slice_Write 0853 00d3 | | Pop_Control Pop_Count_3 0854 e5fd | | Load 0x2,-0x3 0855 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0856 e5fe | | Load 0x2,-0x2 0857 0273 | s | Execute Discrete,Plus 0858 e5fd | | Load 0x2,-0x3 0859 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 085a 4503 |E | Exit_Suprogram New_Top_Offset 0x3 085b e5fe | | Load 0x2,-0x2 085c e5fd | | Load 0x2,-0x3 085d 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 085e 027d | } | Execute Discrete,Greater 085f 681a |h | Jump_Zero 0x87a 0860 e5fd | | Load 0x2,-0x3 0861 00d8 | | Load_Top At_Offset_0 0862 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0863 00d8 | | Load_Top At_Offset_0 0864 0335 | 5 | Declare_Variable Array,Duplicate 0865 00d0 | | Action Swap_Control 0866 00d1 | | Pop_Control Pop_Count_1 0867 00d9 | | Load_Top At_Offset_1 0868 01d9 | | Execute Vector,Reverse_Bounds 0869 0263 | c | Execute Discrete,Above_Bound 086a 7005 |p | Jump_Nonzero 0x870 086b e5ff | | Load 0x2,-0x1 086c 00d9 | | Load_Top At_Offset_1 086d e406 | | Load 0x2,0x6 086e 01d6 | | Execute Vector,Field_Write 086f 3ffb |? | Loop_Increasing 0x86b 0870 00d0 | | Action Swap_Control 0871 00d1 | | Pop_Control Pop_Count_1 0872 00d9 | | Load_Top At_Offset_1 0873 2903 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x3 0874 00d1 | | Pop_Control Pop_Count_1 0875 e5fd | | Load 0x2,-0x3 0876 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 0877 e5fd | | Load 0x2,-0x3 0878 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 0879 4503 |E | Exit_Suprogram New_Top_Offset 0x3 087a 4801 |H | Short_Literal 0x1 087b e5fd | | Load 0x2,-0x3 087c 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 087d 00da | | Load_Top At_Offset_2 087e 0272 | r | Execute Discrete,Minus 087f e5fd | | Load 0x2,-0x3 0880 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0881 01cf | | Execute Vector,Slice_Read 0882 e5fe | | Load 0x2,-0x2 0883 0a01 | | Execute_Immediate Plus,0x1 0884 e5fd | | Load 0x2,-0x3 0885 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 0886 e5fd | | Load 0x2,-0x3 0887 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0888 01ce | | Execute Vector,Slice_Write 0889 e5fd | | Load 0x2,-0x3 088a 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 088b 4801 |H | Short_Literal 0x1 088c e5fe | | Load 0x2,-0x2 088d 00d9 | | Load_Top At_Offset_1 088e 00d9 | | Load_Top At_Offset_1 088f e404 | | Load 0x2,0x4 0890 035b | [ | Declare_Type Array,Constrained 0891 00db | | Load_Top At_Offset_3 0892 01cd | | Execute Vector,Slice_Reference 0893 00d8 | | Load_Top At_Offset_0 0894 0335 | 5 | Declare_Variable Array,Duplicate 0895 00d0 | | Action Swap_Control 0896 00d1 | | Pop_Control Pop_Count_1 0897 00d9 | | Load_Top At_Offset_1 0898 01d9 | | Execute Vector,Reverse_Bounds 0899 0263 | c | Execute Discrete,Above_Bound 089a 7005 |p | Jump_Nonzero 0x8a0 089b e5ff | | Load 0x2,-0x1 089c 00d9 | | Load_Top At_Offset_1 089d e408 | | Load 0x2,0x8 089e 01d6 | | Execute Vector,Field_Write 089f 3ffb |? | Loop_Increasing 0x89b 08a0 00d0 | | Action Swap_Control 08a1 00d1 | | Pop_Control Pop_Count_1 08a2 00da | | Load_Top At_Offset_2 08a3 00da | | Load_Top At_Offset_2 08a4 e404 | | Load 0x2,0x4 08a5 01ce | | Execute Vector,Slice_Write 08a6 00d3 | | Pop_Control Pop_Count_3 08a7 e5fd | | Load 0x2,-0x3 08a8 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 08a9 e5fd | | Load 0x2,-0x3 08aa 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 08ab 4503 |E | Exit_Suprogram New_Top_Offset 0x3 08ac 0000 0000 | | .BLANK 0000[0x4] 08b0 ; -------------------------------------------------------------------------------------- 08b0 ; SUBPROGRAM 08b0 ; -------------------------------------------------------------------------------------- 08b0 08bd | | .CONST 0x08bd ; Address of begin 08b1 0004 | | .CONST 0x0004 ; Address of exception handler 08b2 0003 | | .CONST 0x0003 ; Number of locals 08b3 INIT_08b0: 08b3 00da | | Load_Top At_Offset_2 08b4 0227 | ' | Execute Access,All_Reference 08b5 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 08b6 00db | | Load_Top At_Offset_3 08b7 0227 | ' | Execute Access,All_Reference 08b8 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 08b9 0272 | r | Execute Discrete,Minus 08ba 00e3 | | Load_Encached Natural_Cache 08bb 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 08bc 00e3 | | Load_Encached Natural_Cache 08bd BODY_08b0: 08bd 00d9 | | Load_Top At_Offset_1 08be e5fe | | Load 0x2,-0x2 08bf 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 08c0 027b | { | Execute Discrete,Greater_Equal 08c1 682c |h, | Jump_Zero 0x8ee 08c2 4801 |H | Short_Literal 0x1 08c3 e5ff | | Load 0x2,-0x1 08c4 0227 | ' | Execute Access,All_Reference 08c5 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 08c6 e5ff | | Load 0x2,-0x1 08c7 0227 | ' | Execute Access,All_Reference 08c8 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 08c9 01cf | | Execute Vector,Slice_Read 08ca e5fe | | Load 0x2,-0x2 08cb 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 08cc 0a01 | | Execute_Immediate Plus,0x1 08cd e5fe | | Load 0x2,-0x2 08ce 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 08cf e5ff | | Load 0x2,-0x1 08d0 0227 | ' | Execute Access,All_Reference 08d1 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 08d2 0273 | s | Execute Discrete,Plus 08d3 e5ff | | Load 0x2,-0x1 08d4 0229 | ) | Execute Access,All_Read 08d5 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 08d6 01ce | | Execute Vector,Slice_Write 08d7 4801 |H | Short_Literal 0x1 08d8 e5fe | | Load 0x2,-0x2 08d9 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 08da e5fe | | Load 0x2,-0x2 08db 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 08dc 01cf | | Execute Vector,Slice_Read 08dd 4801 |H | Short_Literal 0x1 08de e5fe | | Load 0x2,-0x2 08df 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 08e0 e5ff | | Load 0x2,-0x1 08e1 0229 | ) | Execute Access,All_Read 08e2 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 08e3 01ce | | Execute Vector,Slice_Write 08e4 e5ff | | Load 0x2,-0x1 08e5 0227 | ' | Execute Access,All_Reference 08e6 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 08e7 e5fe | | Load 0x2,-0x2 08e8 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 08e9 0273 | s | Execute Discrete,Plus 08ea e5ff | | Load 0x2,-0x1 08eb 0227 | ' | Execute Access,All_Reference 08ec 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 08ed 4503 |E | Exit_Suprogram New_Top_Offset 0x3 08ee e5fe | | Load 0x2,-0x2 08ef 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 08f0 e5ff | | Load 0x2,-0x1 08f1 0227 | ' | Execute Access,All_Reference 08f2 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 08f3 027d | } | Execute Discrete,Greater 08f4 6811 |h | Jump_Zero 0x906 08f5 4801 |H | Short_Literal 0x1 08f6 e5ff | | Load 0x2,-0x1 08f7 0227 | ' | Execute Access,All_Reference 08f8 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 08f9 e5fe | | Load 0x2,-0x2 08fa 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 08fb 01cf | | Execute Vector,Slice_Read 08fc e5ff | | Load 0x2,-0x1 08fd 0227 | ' | Execute Access,All_Reference 08fe 2903 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x3 08ff e5ff | | Load 0x2,-0x1 0900 0227 | ' | Execute Access,All_Reference 0901 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 0902 e5ff | | Load 0x2,-0x1 0903 0227 | ' | Execute Access,All_Reference 0904 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 0905 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0906 4801 |H | Short_Literal 0x1 0907 e5ff | | Load 0x2,-0x1 0908 0227 | ' | Execute Access,All_Reference 0909 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 090a 00da | | Load_Top At_Offset_2 090b 0272 | r | Execute Discrete,Minus 090c e5ff | | Load 0x2,-0x1 090d 0227 | ' | Execute Access,All_Reference 090e 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 090f 01cf | | Execute Vector,Slice_Read 0910 e5fe | | Load 0x2,-0x2 0911 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0912 0a01 | | Execute_Immediate Plus,0x1 0913 e5ff | | Load 0x2,-0x1 0914 0227 | ' | Execute Access,All_Reference 0915 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 0916 e5ff | | Load 0x2,-0x1 0917 0229 | ) | Execute Access,All_Read 0918 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0919 01ce | | Execute Vector,Slice_Write 091a 4801 |H | Short_Literal 0x1 091b e5fe | | Load 0x2,-0x2 091c 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 091d e5fe | | Load 0x2,-0x2 091e 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 091f 01cf | | Execute Vector,Slice_Read 0920 4801 |H | Short_Literal 0x1 0921 e5fe | | Load 0x2,-0x2 0922 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0923 e5ff | | Load 0x2,-0x1 0924 0229 | ) | Execute Access,All_Read 0925 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0926 01ce | | Execute Vector,Slice_Write 0927 e5ff | | Load 0x2,-0x1 0928 0227 | ' | Execute Access,All_Reference 0929 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 092a e5ff | | Load 0x2,-0x1 092b 0227 | ' | Execute Access,All_Reference 092c 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 092d 4503 |E | Exit_Suprogram New_Top_Offset 0x3 092e 0000 0000 | | .XXX[0x2] 0930 ; -------------------------------------------------------------------------------------- 0930 ; SUBPROGRAM 0930 ; -------------------------------------------------------------------------------------- 0930 093d | = | .CONST 0x093d ; Address of begin 0931 0004 | | .CONST 0x0004 ; Address of exception handler 0932 0003 | | .CONST 0x0003 ; Number of locals 0933 INIT_0930: 0933 00da | | Load_Top At_Offset_2 0934 0227 | ' | Execute Access,All_Reference 0935 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 0936 00db | | Load_Top At_Offset_3 0937 0227 | ' | Execute Access,All_Reference 0938 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0939 0272 | r | Execute Discrete,Minus 093a 00e3 | | Load_Encached Natural_Cache 093b 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 093c 00e3 | | Load_Encached Natural_Cache 093d BODY_0930: 093d 00d9 | | Load_Top At_Offset_1 093e e5fe | | Load 0x2,-0x2 093f 0227 | ' | Execute Access,All_Reference 0940 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0941 027b | { | Execute Discrete,Greater_Equal 0942 6832 |h2 | Jump_Zero 0x975 0943 4801 |H | Short_Literal 0x1 0944 e5ff | | Load 0x2,-0x1 0945 0227 | ' | Execute Access,All_Reference 0946 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0947 e5ff | | Load 0x2,-0x1 0948 0227 | ' | Execute Access,All_Reference 0949 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 094a 01cf | | Execute Vector,Slice_Read 094b e5fe | | Load 0x2,-0x2 094c 0227 | ' | Execute Access,All_Reference 094d 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 094e 0a01 | | Execute_Immediate Plus,0x1 094f e5fe | | Load 0x2,-0x2 0950 0227 | ' | Execute Access,All_Reference 0951 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0952 e5ff | | Load 0x2,-0x1 0953 0227 | ' | Execute Access,All_Reference 0954 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0955 0273 | s | Execute Discrete,Plus 0956 e5ff | | Load 0x2,-0x1 0957 0229 | ) | Execute Access,All_Read 0958 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0959 01ce | | Execute Vector,Slice_Write 095a 4801 |H | Short_Literal 0x1 095b e5fe | | Load 0x2,-0x2 095c 0227 | ' | Execute Access,All_Reference 095d 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 095e e5fe | | Load 0x2,-0x2 095f 0227 | ' | Execute Access,All_Reference 0960 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0961 01cf | | Execute Vector,Slice_Read 0962 4801 |H | Short_Literal 0x1 0963 e5fe | | Load 0x2,-0x2 0964 0227 | ' | Execute Access,All_Reference 0965 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0966 e5ff | | Load 0x2,-0x1 0967 0229 | ) | Execute Access,All_Read 0968 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0969 01ce | | Execute Vector,Slice_Write 096a e5ff | | Load 0x2,-0x1 096b 0227 | ' | Execute Access,All_Reference 096c 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 096d e5fe | | Load 0x2,-0x2 096e 0227 | ' | Execute Access,All_Reference 096f 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0970 0273 | s | Execute Discrete,Plus 0971 e5ff | | Load 0x2,-0x1 0972 0227 | ' | Execute Access,All_Reference 0973 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 0974 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0975 e5fe | | Load 0x2,-0x2 0976 0227 | ' | Execute Access,All_Reference 0977 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0978 e5ff | | Load 0x2,-0x1 0979 0227 | ' | Execute Access,All_Reference 097a 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 097b 027d | } | Execute Discrete,Greater 097c 6812 |h | Jump_Zero 0x98f 097d 4801 |H | Short_Literal 0x1 097e e5ff | | Load 0x2,-0x1 097f 0227 | ' | Execute Access,All_Reference 0980 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 0981 e5fe | | Load 0x2,-0x2 0982 0227 | ' | Execute Access,All_Reference 0983 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0984 01cf | | Execute Vector,Slice_Read 0985 e5ff | | Load 0x2,-0x1 0986 0227 | ' | Execute Access,All_Reference 0987 2903 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x3 0988 e5ff | | Load 0x2,-0x1 0989 0227 | ' | Execute Access,All_Reference 098a 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 098b e5ff | | Load 0x2,-0x1 098c 0227 | ' | Execute Access,All_Reference 098d 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 098e 4503 |E | Exit_Suprogram New_Top_Offset 0x3 098f 4801 |H | Short_Literal 0x1 0990 e5ff | | Load 0x2,-0x1 0991 0227 | ' | Execute Access,All_Reference 0992 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 0993 00da | | Load_Top At_Offset_2 0994 0272 | r | Execute Discrete,Minus 0995 e5ff | | Load 0x2,-0x1 0996 0227 | ' | Execute Access,All_Reference 0997 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0998 01cf | | Execute Vector,Slice_Read 0999 e5fe | | Load 0x2,-0x2 099a 0227 | ' | Execute Access,All_Reference 099b 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 099c 0a01 | | Execute_Immediate Plus,0x1 099d e5ff | | Load 0x2,-0x1 099e 0227 | ' | Execute Access,All_Reference 099f 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 09a0 e5ff | | Load 0x2,-0x1 09a1 0229 | ) | Execute Access,All_Read 09a2 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 09a3 01ce | | Execute Vector,Slice_Write 09a4 4801 |H | Short_Literal 0x1 09a5 e5fe | | Load 0x2,-0x2 09a6 0227 | ' | Execute Access,All_Reference 09a7 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 09a8 e5fe | | Load 0x2,-0x2 09a9 0227 | ' | Execute Access,All_Reference 09aa 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 09ab 01cf | | Execute Vector,Slice_Read 09ac 4801 |H | Short_Literal 0x1 09ad e5fe | | Load 0x2,-0x2 09ae 0227 | ' | Execute Access,All_Reference 09af 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 09b0 e5ff | | Load 0x2,-0x1 09b1 0229 | ) | Execute Access,All_Read 09b2 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 09b3 01ce | | Execute Vector,Slice_Write 09b4 e5ff | | Load 0x2,-0x1 09b5 0227 | ' | Execute Access,All_Reference 09b6 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 09b7 e5ff | | Load 0x2,-0x1 09b8 0227 | ' | Execute Access,All_Reference 09b9 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 09ba 4503 |E | Exit_Suprogram New_Top_Offset 0x3 09bb 0000 0000 | | .BLANK 0000[0x5] 09c0 ; -------------------------------------------------------------------------------------- 09c0 ; SUBPROGRAM 09c0 ; -------------------------------------------------------------------------------------- 09c0 09d1 | | .CONST 0x09d1 ; Address of begin 09c1 0004 | | .CONST 0x0004 ; Address of exception handler 09c2 0004 | | .CONST 0x0004 ; Number of locals 09c3 INIT_09c0: 09c3 00da | | Load_Top At_Offset_2 09c4 0227 | ' | Execute Access,All_Reference 09c5 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 09c6 00db | | Load_Top At_Offset_3 09c7 0227 | ' | Execute Access,All_Reference 09c8 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 09c9 0272 | r | Execute Discrete,Minus 09ca 00e3 | | Load_Encached Natural_Cache 09cb 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 09cc 00e3 | | Load_Encached Natural_Cache 09cd e5fe | | Load 0x2,-0x2 09ce 01db | | Execute Vector,Length 09cf 00e3 | | Load_Encached Natural_Cache 09d0 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 09d1 BODY_09c0: 09d1 00da | | Load_Top At_Offset_2 09d2 00d9 | | Load_Top At_Offset_1 09d3 027b | { | Execute Discrete,Greater_Equal 09d4 6826 |h& | Jump_Zero 0x9fb 09d5 4801 |H | Short_Literal 0x1 09d6 e5ff | | Load 0x2,-0x1 09d7 0227 | ' | Execute Access,All_Reference 09d8 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 09d9 e5ff | | Load 0x2,-0x1 09da 0227 | ' | Execute Access,All_Reference 09db 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 09dc 01cf | | Execute Vector,Slice_Read 09dd 00d9 | | Load_Top At_Offset_1 09de 0a01 | | Execute_Immediate Plus,0x1 09df 00da | | Load_Top At_Offset_2 09e0 e5ff | | Load 0x2,-0x1 09e1 0227 | ' | Execute Access,All_Reference 09e2 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 09e3 0273 | s | Execute Discrete,Plus 09e4 e5ff | | Load 0x2,-0x1 09e5 0229 | ) | Execute Access,All_Read 09e6 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 09e7 01ce | | Execute Vector,Slice_Write 09e8 4801 |H | Short_Literal 0x1 09e9 00d9 | | Load_Top At_Offset_1 09ea e5fe | | Load 0x2,-0x2 09eb 01cf | | Execute Vector,Slice_Read 09ec 4801 |H | Short_Literal 0x1 09ed 00da | | Load_Top At_Offset_2 09ee e5ff | | Load 0x2,-0x1 09ef 0229 | ) | Execute Access,All_Read 09f0 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 09f1 01ce | | Execute Vector,Slice_Write 09f2 e5ff | | Load 0x2,-0x1 09f3 0227 | ' | Execute Access,All_Reference 09f4 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 09f5 00d9 | | Load_Top At_Offset_1 09f6 0273 | s | Execute Discrete,Plus 09f7 e5ff | | Load 0x2,-0x1 09f8 0227 | ' | Execute Access,All_Reference 09f9 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 09fa 4503 |E | Exit_Suprogram New_Top_Offset 0x3 09fb 00d8 | | Load_Top At_Offset_0 09fc e5ff | | Load 0x2,-0x1 09fd 0227 | ' | Execute Access,All_Reference 09fe 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 09ff 027d | } | Execute Discrete,Greater 0a00 6815 |h | Jump_Zero 0xa16 0a01 e5fe | | Load 0x2,-0x2 0a02 01dd | | Execute Vector,First 0a03 e5fe | | Load 0x2,-0x2 0a04 01dd | | Execute Vector,First 0a05 e5ff | | Load 0x2,-0x1 0a06 0227 | ' | Execute Access,All_Reference 0a07 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 0a08 0273 | s | Execute Discrete,Plus 0a09 0aff | | Execute_Immediate Plus,-0x1 0a0a e5fe | | Load 0x2,-0x2 0a0b 01cf | | Execute Vector,Slice_Read 0a0c e5ff | | Load 0x2,-0x1 0a0d 0227 | ' | Execute Access,All_Reference 0a0e 2903 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x3 0a0f e5ff | | Load 0x2,-0x1 0a10 0227 | ' | Execute Access,All_Reference 0a11 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 0a12 e5ff | | Load 0x2,-0x1 0a13 0227 | ' | Execute Access,All_Reference 0a14 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 0a15 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0a16 4801 |H | Short_Literal 0x1 0a17 e5ff | | Load 0x2,-0x1 0a18 0227 | ' | Execute Access,All_Reference 0a19 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 0a1a 00db | | Load_Top At_Offset_3 0a1b 0272 | r | Execute Discrete,Minus 0a1c e5ff | | Load 0x2,-0x1 0a1d 0227 | ' | Execute Access,All_Reference 0a1e 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0a1f 01cf | | Execute Vector,Slice_Read 0a20 00d9 | | Load_Top At_Offset_1 0a21 0a01 | | Execute_Immediate Plus,0x1 0a22 e5ff | | Load 0x2,-0x1 0a23 0227 | ' | Execute Access,All_Reference 0a24 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 0a25 e5ff | | Load 0x2,-0x1 0a26 0229 | ) | Execute Access,All_Read 0a27 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0a28 01ce | | Execute Vector,Slice_Write 0a29 e5fe | | Load 0x2,-0x2 0a2a 4801 |H | Short_Literal 0x1 0a2b 00da | | Load_Top At_Offset_2 0a2c e5ff | | Load 0x2,-0x1 0a2d 0229 | ) | Execute Access,All_Read 0a2e 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0a2f 01ce | | Execute Vector,Slice_Write 0a30 e5ff | | Load 0x2,-0x1 0a31 0227 | ' | Execute Access,All_Reference 0a32 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 0a33 e5ff | | Load 0x2,-0x1 0a34 0227 | ' | Execute Access,All_Reference 0a35 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 0a36 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0a37 0000 | | .XXX[0x1] 0a38 ; -------------------------------------------------------------------------------------- 0a38 ; SUBPROGRAM 0a38 ; -------------------------------------------------------------------------------------- 0a38 0a45 | E | .CONST 0x0a45 ; Address of begin 0a39 0004 | | .CONST 0x0004 ; Address of exception handler 0a3a 0003 | | .CONST 0x0003 ; Number of locals 0a3b INIT_0a38: 0a3b 00da | | Load_Top At_Offset_2 0a3c 0227 | ' | Execute Access,All_Reference 0a3d 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 0a3e 00db | | Load_Top At_Offset_3 0a3f 0227 | ' | Execute Access,All_Reference 0a40 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0a41 0272 | r | Execute Discrete,Minus 0a42 00e3 | | Load_Encached Natural_Cache 0a43 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 0a44 00e3 | | Load_Encached Natural_Cache 0a45 BODY_0a38: 0a45 00d9 | | Load_Top At_Offset_1 0a46 0c01 | | Execute_Immediate Greater_Equal,0x1 0a47 681f |h | Jump_Zero 0xa67 0a48 4801 |H | Short_Literal 0x1 0a49 e5ff | | Load 0x2,-0x1 0a4a 0227 | ' | Execute Access,All_Reference 0a4b 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0a4c e5ff | | Load 0x2,-0x1 0a4d 0227 | ' | Execute Access,All_Reference 0a4e 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0a4f 01cf | | Execute Vector,Slice_Read 0a50 4802 |H | Short_Literal 0x2 0a51 e5ff | | Load 0x2,-0x1 0a52 0227 | ' | Execute Access,All_Reference 0a53 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0a54 0a01 | | Execute_Immediate Plus,0x1 0a55 e5ff | | Load 0x2,-0x1 0a56 0229 | ) | Execute Access,All_Read 0a57 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0a58 01ce | | Execute Vector,Slice_Write 0a59 e5fe | | Load 0x2,-0x2 0a5a 4801 |H | Short_Literal 0x1 0a5b e5ff | | Load 0x2,-0x1 0a5c 0227 | ' | Execute Access,All_Reference 0a5d 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0a5e 01d6 | | Execute Vector,Field_Write 0a5f e5ff | | Load 0x2,-0x1 0a60 0227 | ' | Execute Access,All_Reference 0a61 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0a62 0a01 | | Execute_Immediate Plus,0x1 0a63 e5ff | | Load 0x2,-0x1 0a64 0227 | ' | Execute Access,All_Reference 0a65 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 0a66 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0a67 e5ff | | Load 0x2,-0x1 0a68 0227 | ' | Execute Access,All_Reference 0a69 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 0a6a 0d01 | | Execute_Immediate Less,0x1 0a6b 6801 |h | Jump_Zero 0xa6d 0a6c 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0a6d 4801 |H | Short_Literal 0x1 0a6e e5ff | | Load 0x2,-0x1 0a6f 0227 | ' | Execute Access,All_Reference 0a70 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 0a71 0aff | | Execute_Immediate Plus,-0x1 0a72 e5ff | | Load 0x2,-0x1 0a73 0227 | ' | Execute Access,All_Reference 0a74 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0a75 01cf | | Execute Vector,Slice_Read 0a76 4802 |H | Short_Literal 0x2 0a77 e5ff | | Load 0x2,-0x1 0a78 0227 | ' | Execute Access,All_Reference 0a79 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 0a7a e5ff | | Load 0x2,-0x1 0a7b 0229 | ) | Execute Access,All_Read 0a7c 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0a7d 01ce | | Execute Vector,Slice_Write 0a7e e5fe | | Load 0x2,-0x2 0a7f 4801 |H | Short_Literal 0x1 0a80 e5ff | | Load 0x2,-0x1 0a81 0227 | ' | Execute Access,All_Reference 0a82 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0a83 01d6 | | Execute Vector,Field_Write 0a84 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0a85 0000 0000 | | .XXX[0x3] 0a87 0000 | | 0a88 ; -------------------------------------------------------------------------------------- 0a88 ; SUBPROGRAM 0a88 ; -------------------------------------------------------------------------------------- 0a88 0a95 | | .CONST 0x0a95 ; Address of begin 0a89 0004 | | .CONST 0x0004 ; Address of exception handler 0a8a 0003 | | .CONST 0x0003 ; Number of locals 0a8b INIT_0a88: 0a8b 00da | | Load_Top At_Offset_2 0a8c 0227 | ' | Execute Access,All_Reference 0a8d 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 0a8e 00db | | Load_Top At_Offset_3 0a8f 0227 | ' | Execute Access,All_Reference 0a90 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0a91 0272 | r | Execute Discrete,Minus 0a92 00e3 | | Load_Encached Natural_Cache 0a93 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 0a94 00e3 | | Load_Encached Natural_Cache 0a95 BODY_0a88: 0a95 00d9 | | Load_Top At_Offset_1 0a96 e5fd | | Load 0x2,-0x3 0a97 027b | { | Execute Discrete,Greater_Equal 0a98 683b |h; | Jump_Zero 0xad4 0a99 4801 |H | Short_Literal 0x1 0a9a e5ff | | Load 0x2,-0x1 0a9b 0227 | ' | Execute Access,All_Reference 0a9c 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0a9d e5ff | | Load 0x2,-0x1 0a9e 0227 | ' | Execute Access,All_Reference 0a9f 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0aa0 01cf | | Execute Vector,Slice_Read 0aa1 e5fd | | Load 0x2,-0x3 0aa2 0a01 | | Execute_Immediate Plus,0x1 0aa3 e5fd | | Load 0x2,-0x3 0aa4 e5ff | | Load 0x2,-0x1 0aa5 0227 | ' | Execute Access,All_Reference 0aa6 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0aa7 0273 | s | Execute Discrete,Plus 0aa8 e5ff | | Load 0x2,-0x1 0aa9 0229 | ) | Execute Access,All_Read 0aaa 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0aab 01ce | | Execute Vector,Slice_Write 0aac e5ff | | Load 0x2,-0x1 0aad 0229 | ) | Execute Access,All_Read 0aae 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0aaf 4801 |H | Short_Literal 0x1 0ab0 e5fd | | Load 0x2,-0x3 0ab1 00d9 | | Load_Top At_Offset_1 0ab2 00d9 | | Load_Top At_Offset_1 0ab3 e404 | | Load 0x2,0x4 0ab4 035b | [ | Declare_Type Array,Constrained 0ab5 00db | | Load_Top At_Offset_3 0ab6 01cd | | Execute Vector,Slice_Reference 0ab7 00d8 | | Load_Top At_Offset_0 0ab8 0335 | 5 | Declare_Variable Array,Duplicate 0ab9 00d0 | | Action Swap_Control 0aba 00d1 | | Pop_Control Pop_Count_1 0abb 00d9 | | Load_Top At_Offset_1 0abc 01d9 | | Execute Vector,Reverse_Bounds 0abd 0263 | c | Execute Discrete,Above_Bound 0abe 7005 |p | Jump_Nonzero 0xac4 0abf e5fe | | Load 0x2,-0x2 0ac0 00d9 | | Load_Top At_Offset_1 0ac1 e408 | | Load 0x2,0x8 0ac2 01d6 | | Execute Vector,Field_Write 0ac3 3ffb |? | Loop_Increasing 0xabf 0ac4 00d0 | | Action Swap_Control 0ac5 00d1 | | Pop_Control Pop_Count_1 0ac6 00da | | Load_Top At_Offset_2 0ac7 00da | | Load_Top At_Offset_2 0ac8 e404 | | Load 0x2,0x4 0ac9 01ce | | Execute Vector,Slice_Write 0aca 00d3 | | Pop_Control Pop_Count_3 0acb e5ff | | Load 0x2,-0x1 0acc 0227 | ' | Execute Access,All_Reference 0acd 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0ace e5fd | | Load 0x2,-0x3 0acf 0273 | s | Execute Discrete,Plus 0ad0 e5ff | | Load 0x2,-0x1 0ad1 0227 | ' | Execute Access,All_Reference 0ad2 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 0ad3 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0ad4 e5fd | | Load 0x2,-0x3 0ad5 e5ff | | Load 0x2,-0x1 0ad6 0227 | ' | Execute Access,All_Reference 0ad7 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 0ad8 027d | } | Execute Discrete,Greater 0ad9 681d |h | Jump_Zero 0xaf7 0ada e5ff | | Load 0x2,-0x1 0adb 0229 | ) | Execute Access,All_Read 0adc 00d8 | | Load_Top At_Offset_0 0add 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0ade 00d8 | | Load_Top At_Offset_0 0adf 0335 | 5 | Declare_Variable Array,Duplicate 0ae0 00d0 | | Action Swap_Control 0ae1 00d1 | | Pop_Control Pop_Count_1 0ae2 00d9 | | Load_Top At_Offset_1 0ae3 01d9 | | Execute Vector,Reverse_Bounds 0ae4 0263 | c | Execute Discrete,Above_Bound 0ae5 7005 |p | Jump_Nonzero 0xaeb 0ae6 e5fe | | Load 0x2,-0x2 0ae7 00d9 | | Load_Top At_Offset_1 0ae8 e406 | | Load 0x2,0x6 0ae9 01d6 | | Execute Vector,Field_Write 0aea 3ffb |? | Loop_Increasing 0xae6 0aeb 00d0 | | Action Swap_Control 0aec 00d1 | | Pop_Control Pop_Count_1 0aed 00d9 | | Load_Top At_Offset_1 0aee 2903 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x3 0aef 00d1 | | Pop_Control Pop_Count_1 0af0 e5ff | | Load 0x2,-0x1 0af1 0227 | ' | Execute Access,All_Reference 0af2 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 0af3 e5ff | | Load 0x2,-0x1 0af4 0227 | ' | Execute Access,All_Reference 0af5 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 0af6 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0af7 4801 |H | Short_Literal 0x1 0af8 e5ff | | Load 0x2,-0x1 0af9 0227 | ' | Execute Access,All_Reference 0afa 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 0afb 00da | | Load_Top At_Offset_2 0afc 0272 | r | Execute Discrete,Minus 0afd e5ff | | Load 0x2,-0x1 0afe 0227 | ' | Execute Access,All_Reference 0aff 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0b00 01cf | | Execute Vector,Slice_Read 0b01 e5fd | | Load 0x2,-0x3 0b02 0a01 | | Execute_Immediate Plus,0x1 0b03 e5ff | | Load 0x2,-0x1 0b04 0227 | ' | Execute Access,All_Reference 0b05 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 0b06 e5ff | | Load 0x2,-0x1 0b07 0229 | ) | Execute Access,All_Read 0b08 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0b09 01ce | | Execute Vector,Slice_Write 0b0a e5ff | | Load 0x2,-0x1 0b0b 0229 | ) | Execute Access,All_Read 0b0c 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0b0d 4801 |H | Short_Literal 0x1 0b0e e5fd | | Load 0x2,-0x3 0b0f 00d9 | | Load_Top At_Offset_1 0b10 00d9 | | Load_Top At_Offset_1 0b11 e404 | | Load 0x2,0x4 0b12 035b | [ | Declare_Type Array,Constrained 0b13 00db | | Load_Top At_Offset_3 0b14 01cd | | Execute Vector,Slice_Reference 0b15 00d8 | | Load_Top At_Offset_0 0b16 0335 | 5 | Declare_Variable Array,Duplicate 0b17 00d0 | | Action Swap_Control 0b18 00d1 | | Pop_Control Pop_Count_1 0b19 00d9 | | Load_Top At_Offset_1 0b1a 01d9 | | Execute Vector,Reverse_Bounds 0b1b 0263 | c | Execute Discrete,Above_Bound 0b1c 7005 |p | Jump_Nonzero 0xb22 0b1d e5fe | | Load 0x2,-0x2 0b1e 00d9 | | Load_Top At_Offset_1 0b1f e408 | | Load 0x2,0x8 0b20 01d6 | | Execute Vector,Field_Write 0b21 3ffb |? | Loop_Increasing 0xb1d 0b22 00d0 | | Action Swap_Control 0b23 00d1 | | Pop_Control Pop_Count_1 0b24 00da | | Load_Top At_Offset_2 0b25 00da | | Load_Top At_Offset_2 0b26 e404 | | Load 0x2,0x4 0b27 01ce | | Execute Vector,Slice_Write 0b28 00d3 | | Pop_Control Pop_Count_3 0b29 e5ff | | Load 0x2,-0x1 0b2a 0227 | ' | Execute Access,All_Reference 0b2b 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 0b2c e5ff | | Load 0x2,-0x1 0b2d 0227 | ' | Execute Access,All_Reference 0b2e 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 0b2f 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0b30 ; -------------------------------------------------------------------------------------- 0b30 ; Debug Table 0b30 ; -------------------------------------------------------------------------------------- 0b30 0004 0004 | | .DEBUG4 0x0004,0x0004,0xa8e8,0x0000,0x0001,0x0000 0b36 dda1 a58d | | .XXX[0xca] 0b38 a081 b5bd | | 0b3a cdd0 81c9 | | 0b3c 958d 95b9 | | 0b3e d1b1 e481 | | 0b40 99a5 b9a5 | | 0b42 cda1 9590 | | 0b44 81dd bdc9 | | 0b46 ada5 b99c | | 0b48 81d1 bc81 | | 0b4a 8994 81d1 | | 0b4c a194 81b9 | | 0b4e 95e1 d081 | | 0b50 d1bc 81c9 | | 0b52 958d 95a5 | | 0b54 d994 8184 | | 0b56 2880 8080 |( | 0b58 80b4 b481 | | 0b5a b595 cdcd | | 0b5c 859d 94a4 | | 0b5e b880 8151 | Q| 0b60 a1a5 cc81 | | 0b62 cda5 b5c1 | | 0b64 b1a5 99a5 | | 0b66 95cc 8185 | | 0b68 c1c1 b1a5 | | 0b6a 8d85 d1a5 | | 0b6c bdb9 cc81 | | 0b6e dda1 a58d | | 0b70 a081 b995 | | 0b72 9590 81d1 | | 0b74 bc81 8da1 | | 0b76 bdbd cd94 | | 0b78 81d1 a194 | | 0b7a 81b9 d5b5 | | 0b7c 8995 c828 | (| 0b7e 8080 8080 | | 0b80 b4b4 81bd | | 0b82 9881 c995 | | 0b84 8591 95c9 | | 0b86 ccec 81d1 | | 0b88 a195 e481 | | 0b8a 8d85 b881 | | 0b8c cda5 b5c1 | | 0b8e b1e4 81c1 | | 0b90 a58d ac81 | | 0b92 d1a1 9481 | | 0b94 b585 e1a5 | | 0b96 b5d5 b481 | | 0b98 b9d5 b589 | | 0b9a 95c8 81bd | | 0b9c 9881 c995 | | 0b9e 8591 95c9 | | 0ba0 cc81 dda1 | | 0ba2 a58d a081 | | 0ba4 8d85 b828 | (| 0ba6 8080 8080 | | 0ba8 b4b4 81bd | | 0baa c195 c985 | | 0bac d194 81a5 | | 0bae b881 c185 | | 0bb0 c985 b1b1 | | 0bb2 95b0 b828 | (| 0bb4 2880 8080 |( | 0bb6 80b4 b481 | | 0bb8 51a1 9481 |Q | 0bba a5b5 c1b1 | | 0bbc 95b5 95b9 | | 0bbe d185 d1a5 | | 0bc0 bdb8 81bd | | 0bc2 9881 4995 | I | 0bc4 8590 8185 | | 0bc6 b990 815d | ]| 0bc8 c9a5 d194 | | 0bca 81dd 85a5 | | 0bcc d1a5 b99c | | 0bce 818d 85b8 | | 0bd0 81a1 85b9 | | 0bd2 91b1 9481 | | 0bd4 8589 bdc9 | | 0bd6 d1cc 81bd | | 0bd8 9828 8080 | ( | 0bda 8080 b4b4 | | 0bdc 818d b1a5 | | 0bde 95b9 d1cc | | 0be0 b828 2880 | (( | 0be2 8080 80b4 | | 0be4 b481 4dc1 | M | 0be6 958d a599 | | 0be8 e5a5 b99c | | 0bea 81a5 b999 | | 0bec a5b9 a5d1 | | 0bee 9481 dd85 | | 0bf0 a5d0 81d1 | | 0bf2 a5b5 95cc | | 0bf4 8185 b1b1 | | 0bf6 bddd cc81 | | 0bf8 bdb9 9481 | | 0bfa d1bc 81d5 | | 0bfc cd94 81d1 | | 0bfe a194 8199 | |