|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 7168 (0x1c00) Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_6148f2
└─⟦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 0a00 | | .CONST 0x0a00 ; 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 0006 | | .CONST 0x0006 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 003c | < | .CONST 0x003c ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0018 | | .CONST 0x0018 ; Number of locals 000b INIT_0008: 000b 4800 |H | Short_Literal 0x0 000c 4800 |H | Short_Literal 0x0 000d 00e2 | | Load_Encached Integer_Cache 000e 03f9 | | Declare_Type Discrete,Constrained,Visible 000f 4808 |H | Short_Literal 0x8 0010 4810 |H | Short_Literal 0x10 0011 00e3 | | Load_Encached Natural_Cache 0012 03f9 | | Declare_Type Discrete,Constrained,Visible 0013 029a 0043 | C| Declare_Subprogram INIT_0040,For_Outer_Call,Visible,Unelaborated 0015 029a 0093 | | Declare_Subprogram INIT_0090,For_Outer_Call,Visible,Unelaborated 0017 029a 00f3 | | Declare_Subprogram INIT_00f0,For_Outer_Call,Visible,Unelaborated 0019 029a 014b | K| Declare_Subprogram INIT_0148,For_Outer_Call,Visible,Unelaborated 001b 029a 01f3 | | Declare_Subprogram INIT_01f0,For_Outer_Call,Visible,Unelaborated 001d 029a 02f3 | | Declare_Subprogram INIT_02f0,For_Outer_Call,Visible,Unelaborated 001f 029a 0433 | 3| Declare_Subprogram INIT_0430,For_Outer_Call,Visible,Unelaborated 0021 029a 052b | +| Declare_Subprogram INIT_0528,For_Outer_Call,Visible,Unelaborated 0023 029a 05f3 | | Declare_Subprogram INIT_05f0,For_Outer_Call,Visible,Unelaborated 0025 029a 07f3 | | Declare_Subprogram INIT_07f0,For_Outer_Call,Visible,Unelaborated 0027 00bf | | Action Accept_Activation 0028 1d0f | | Execute_Immediate Reference_Lex_1,0xf 0029 00c7 | | Action Elaborate_Subprogram 002a 1d10 | | Execute_Immediate Reference_Lex_1,0x10 002b 00c7 | | Action Elaborate_Subprogram 002c 1d11 | | Execute_Immediate Reference_Lex_1,0x11 002d 00c7 | | Action Elaborate_Subprogram 002e 1d12 | | Execute_Immediate Reference_Lex_1,0x12 002f 00c7 | | Action Elaborate_Subprogram 0030 1d13 | | Execute_Immediate Reference_Lex_1,0x13 0031 00c7 | | Action Elaborate_Subprogram 0032 1d14 | | Execute_Immediate Reference_Lex_1,0x14 0033 00c7 | | Action Elaborate_Subprogram 0034 1d15 | | Execute_Immediate Reference_Lex_1,0x15 0035 00c7 | | Action Elaborate_Subprogram 0036 1d16 | | Execute_Immediate Reference_Lex_1,0x16 0037 00c7 | | Action Elaborate_Subprogram 0038 1d17 | | Execute_Immediate Reference_Lex_1,0x17 0039 00c7 | | Action Elaborate_Subprogram 003a 1d18 | | Execute_Immediate Reference_Lex_1,0x18 003b 00c7 | | Action Elaborate_Subprogram 003c BODY_0008: 003c 00bc | | Action Signal_Activated 003d 00bb | | Action Signal_Completion 003e 0000 0000 | | .XXX[0x2] 0040 ; -------------------------------------------------------------------------------------- 0040 ; SUBPROGRAM 0040 ; -------------------------------------------------------------------------------------- 0040 0046 | F | .CONST 0x0046 ; Address of begin 0041 0004 | | .CONST 0x0004 ; Address of exception handler 0042 0003 | | .CONST 0x0003 ; Number of locals 0043 INIT_0040: 0043 00e3 | | Load_Encached Natural_Cache 0044 029f 0823 | #| Declare_Subprogram INIT_0820,For_Call 0046 BODY_0040: 0046 e5fd | | Load 0x2,-0x3 0047 4804 |H | Short_Literal 0x4 0048 026f | o | Execute Discrete,Remainder 0049 6802 |h | Jump_Zero 0x4c 004a e002 | | Load 0x0,0x2 004b 0257 | W | Execute Discrete,Raise 004c e5fa | | Load 0x2,-0x6 004d 0227 | ' | Execute Access,All_Reference 004e 3435 |45 | Execute Record,Field_Reference,Field_Number 0x35 004f 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0050 4804 |H | Short_Literal 0x4 0051 026f | o | Execute Discrete,Remainder 0052 6802 |h | Jump_Zero 0x55 0053 e002 | | Load 0x0,0x2 0054 0257 | W | Execute Discrete,Raise 0055 e5fa | | Load 0x2,-0x6 0056 0227 | ' | Execute Access,All_Reference 0057 342d |4- | Execute Record,Field_Reference,Field_Number 0x2d 0058 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0059 6802 |h | Jump_Zero 0x5c 005a e5fa | | Load 0x2,-0x6 005b 8003 | | Call 0x0,0x3 005c e5fa | | Load 0x2,-0x6 005d 0227 | ' | Execute Access,All_Reference 005e 3435 |45 | Execute Record,Field_Reference,Field_Number 0x35 005f 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0060 e5fd | | Load 0x2,-0x3 0061 0273 | s | Execute Discrete,Plus 0062 005a | Z | Store_Top Discrete,At_Offset_2 0063 00d9 | | Load_Top At_Offset_1 0064 e5fa | | Load 0x2,-0x6 0065 0227 | ' | Execute Access,All_Reference 0066 3435 |45 | Execute Record,Field_Reference,Field_Number 0x35 0067 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0068 01dc | | Execute Vector,Last 0069 027d | } | Execute Discrete,Greater 006a 6804 |h | Jump_Zero 0x6f 006b e5fa | | Load 0x2,-0x6 006c 8004 | | Call 0x0,0x4 006d e5fd | | Load 0x2,-0x3 006e 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 006f e5fa | | Load 0x2,-0x6 0070 0229 | ) | Execute Access,All_Read 0071 3c35 |<5 | Execute Record,Field_Read,Field_Number 0x35 0072 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0073 e5fa | | Load 0x2,-0x6 0074 0227 | ' | Execute Access,All_Reference 0075 3435 |45 | Execute Record,Field_Reference,Field_Number 0x35 0076 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0077 0a01 | | Execute_Immediate Plus,0x1 0078 00d8 | | Load_Top At_Offset_0 0079 00e2 | | Load_Encached Integer_Cache 007a 0260 | ` | Execute Discrete,In_Type 007b 7001 |p | Jump_Nonzero 0x7d 007c 0801 | | Execute_Immediate Raise,0x1 007d 00db | | Load_Top At_Offset_3 007e 00da | | Load_Top At_Offset_2 007f 035b | [ | Declare_Type Array,Constrained 0080 00d0 | | Action Swap_Control 0081 01cd | | Execute Vector,Slice_Reference 0082 00d8 | | Load_Top At_Offset_0 0083 e5f9 | | Load 0x2,-0x7 0084 85fc | | Call 0x2,-0x4 0085 00d2 | | Pop_Control Pop_Count_2 0086 00d9 | | Load_Top At_Offset_1 0087 e5fa | | Load 0x2,-0x6 0088 0227 | ' | Execute Access,All_Reference 0089 3435 |45 | Execute Record,Field_Reference,Field_Number 0x35 008a 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 008b 8403 | | Call 0x2,0x3 008c 4508 |E | Exit_Suprogram New_Top_Offset 0x8 008d 0000 0000 | | .XXX[0x3] 008f 0000 | | 0090 ; -------------------------------------------------------------------------------------- 0090 ; SUBPROGRAM 0090 ; -------------------------------------------------------------------------------------- 0090 00a1 | | .CONST 0x00a1 ; Address of begin 0091 0004 | | .CONST 0x0004 ; Address of exception handler 0092 0004 | | .CONST 0x0004 ; Number of locals 0093 INIT_0090: 0093 e5f8 | | Load 0x2,-0x8 0094 0a03 | | Execute_Immediate Plus,0x3 0095 09fe | | Execute_Immediate Binary_Scale,-0x2 0096 0902 | | Execute_Immediate Binary_Scale,0x2 0097 00d8 | | Load_Top At_Offset_0 0098 00e3 | | Load_Encached Natural_Cache 0099 0260 | ` | Execute Discrete,In_Type 009a 7001 |p | Jump_Nonzero 0x9c 009b 0801 | | Execute_Immediate Raise,0x1 009c 00e3 | | Load_Encached Natural_Cache 009d 03f1 | | Declare_Variable Discrete,With_Value 009e 00e3 | | Load_Encached Natural_Cache 009f 029f 084b | K| Declare_Subprogram INIT_0848,For_Call 00a1 BODY_0090: 00a1 e5fd | | Load 0x2,-0x3 00a2 4804 |H | Short_Literal 0x4 00a3 026f | o | Execute Discrete,Remainder 00a4 6802 |h | Jump_Zero 0xa7 00a5 e002 | | Load 0x0,0x2 00a6 0257 | W | Execute Discrete,Raise 00a7 e5fa | | Load 0x2,-0x6 00a8 0227 | ' | Execute Access,All_Reference 00a9 3435 |45 | Execute Record,Field_Reference,Field_Number 0x35 00aa 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 00ab 4804 |H | Short_Literal 0x4 00ac 026f | o | Execute Discrete,Remainder 00ad 6802 |h | Jump_Zero 0xb0 00ae e002 | | Load 0x0,0x2 00af 0257 | W | Execute Discrete,Raise 00b0 e5fa | | Load 0x2,-0x6 00b1 0227 | ' | Execute Access,All_Reference 00b2 342d |4- | Execute Record,Field_Reference,Field_Number 0x2d 00b3 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 00b4 6802 |h | Jump_Zero 0xb7 00b5 e5fa | | Load 0x2,-0x6 00b6 8003 | | Call 0x0,0x3 00b7 e5fa | | Load 0x2,-0x6 00b8 0227 | ' | Execute Access,All_Reference 00b9 3435 |45 | Execute Record,Field_Reference,Field_Number 0x35 00ba 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 00bb e5fd | | Load 0x2,-0x3 00bc 0273 | s | Execute Discrete,Plus 00bd 005a | Z | Store_Top Discrete,At_Offset_2 00be 00d9 | | Load_Top At_Offset_1 00bf 00db | | Load_Top At_Offset_3 00c0 0273 | s | Execute Discrete,Plus 00c1 e5fa | | Load 0x2,-0x6 00c2 0227 | ' | Execute Access,All_Reference 00c3 3435 |45 | Execute Record,Field_Reference,Field_Number 0x35 00c4 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 00c5 01dc | | Execute Vector,Last 00c6 027d | } | Execute Discrete,Greater 00c7 6804 |h | Jump_Zero 0xcc 00c8 e5fa | | Load 0x2,-0x6 00c9 8004 | | Call 0x0,0x4 00ca e5fd | | Load 0x2,-0x3 00cb 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 00cc e5fa | | Load 0x2,-0x6 00cd 0229 | ) | Execute Access,All_Read 00ce 3c35 |<5 | Execute Record,Field_Read,Field_Number 0x35 00cf 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 00d0 e5fa | | Load 0x2,-0x6 00d1 0227 | ' | Execute Access,All_Reference 00d2 3435 |45 | Execute Record,Field_Reference,Field_Number 0x35 00d3 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 00d4 0a01 | | Execute_Immediate Plus,0x1 00d5 00d8 | | Load_Top At_Offset_0 00d6 00e2 | | Load_Encached Integer_Cache 00d7 0260 | ` | Execute Discrete,In_Type 00d8 7001 |p | Jump_Nonzero 0xda 00d9 0801 | | Execute_Immediate Raise,0x1 00da 00db | | Load_Top At_Offset_3 00db 00da | | Load_Top At_Offset_2 00dc 035b | [ | Declare_Type Array,Constrained 00dd 00d0 | | Action Swap_Control 00de 01cd | | Execute Vector,Slice_Reference 00df 00d8 | | Load_Top At_Offset_0 00e0 e5f9 | | Load 0x2,-0x7 00e1 85fc | | Call 0x2,-0x4 00e2 00d2 | | Pop_Control Pop_Count_2 00e3 00d9 | | Load_Top At_Offset_1 00e4 e5fa | | Load 0x2,-0x6 00e5 0227 | ' | Execute Access,All_Reference 00e6 3435 |45 | Execute Record,Field_Reference,Field_Number 0x35 00e7 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 00e8 8404 | | Call 0x2,0x4 00e9 4509 |E | Exit_Suprogram New_Top_Offset 0x9 00ea 0000 0000 | | .BLANK 0000[0x6] 00f0 ; -------------------------------------------------------------------------------------- 00f0 ; SUBPROGRAM 00f0 ; -------------------------------------------------------------------------------------- 00f0 00f6 | | .CONST 0x00f6 ; Address of begin 00f1 0004 | | .CONST 0x0004 ; Address of exception handler 00f2 0003 | | .CONST 0x0003 ; Number of locals 00f3 INIT_00f0: 00f3 00e3 | | Load_Encached Natural_Cache 00f4 029f 086b | k| Declare_Subprogram INIT_0868,For_Call 00f6 BODY_00f0: 00f6 e5fa | | Load 0x2,-0x6 00f7 0227 | ' | Execute Access,All_Reference 00f8 3435 |45 | Execute Record,Field_Reference,Field_Number 0x35 00f9 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 00fa 4804 |H | Short_Literal 0x4 00fb 026f | o | Execute Discrete,Remainder 00fc 6802 |h | Jump_Zero 0xff 00fd e002 | | Load 0x0,0x2 00fe 0257 | W | Execute Discrete,Raise 00ff e5fa | | Load 0x2,-0x6 0100 0227 | ' | Execute Access,All_Reference 0101 3435 |45 | Execute Record,Field_Reference,Field_Number 0x35 0102 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0103 e5fd | | Load 0x2,-0x3 0104 0273 | s | Execute Discrete,Plus 0105 005a | Z | Store_Top Discrete,At_Offset_2 0106 00d9 | | Load_Top At_Offset_1 0107 e5fa | | Load 0x2,-0x6 0108 0227 | ' | Execute Access,All_Reference 0109 3435 |45 | Execute Record,Field_Reference,Field_Number 0x35 010a 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 010b 01dc | | Execute Vector,Last 010c 027a | z | Execute Discrete,Less_Equal 010d 6818 |h | Jump_Zero 0x126 010e e5fa | | Load 0x2,-0x6 010f 0229 | ) | Execute Access,All_Read 0110 3c35 |<5 | Execute Record,Field_Read,Field_Number 0x35 0111 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0112 e5fa | | Load 0x2,-0x6 0113 0227 | ' | Execute Access,All_Reference 0114 3435 |45 | Execute Record,Field_Reference,Field_Number 0x35 0115 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0116 0a01 | | Execute_Immediate Plus,0x1 0117 00d8 | | Load_Top At_Offset_0 0118 00e2 | | Load_Encached Integer_Cache 0119 0260 | ` | Execute Discrete,In_Type 011a 7001 |p | Jump_Nonzero 0x11c 011b 0801 | | Execute_Immediate Raise,0x1 011c 00db | | Load_Top At_Offset_3 011d 00da | | Load_Top At_Offset_2 011e 035b | [ | Declare_Type Array,Constrained 011f 00d0 | | Action Swap_Control 0120 01cd | | Execute Vector,Slice_Reference 0121 00d8 | | Load_Top At_Offset_0 0122 e5f9 | | Load 0x2,-0x7 0123 85fc | | Call 0x2,-0x4 0124 00d2 | | Pop_Control Pop_Count_2 0125 781c |x | Jump 0x142 0126 e5fa | | Load 0x2,-0x6 0127 8004 | | Call 0x0,0x4 0128 e5fd | | Load 0x2,-0x3 0129 e5fa | | Load 0x2,-0x6 012a 0227 | ' | Execute Access,All_Reference 012b 3435 |45 | Execute Record,Field_Reference,Field_Number 0x35 012c 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 012d 01dc | | Execute Vector,Last 012e 027a | z | Execute Discrete,Less_Equal 012f 6811 |h | Jump_Zero 0x141 0130 e5fd | | Load 0x2,-0x3 0131 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 0132 e5fa | | Load 0x2,-0x6 0133 0229 | ) | Execute Access,All_Read 0134 3c35 |<5 | Execute Record,Field_Read,Field_Number 0x35 0135 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0136 4801 |H | Short_Literal 0x1 0137 00db | | Load_Top At_Offset_3 0138 00da | | Load_Top At_Offset_2 0139 035b | [ | Declare_Type Array,Constrained 013a 00d0 | | Action Swap_Control 013b 01cd | | Execute Vector,Slice_Reference 013c 00d8 | | Load_Top At_Offset_0 013d e5f9 | | Load 0x2,-0x7 013e 85fc | | Call 0x2,-0x4 013f 00d2 | | Pop_Control Pop_Count_2 0140 7801 |x | Jump 0x142 0141 8403 | | Call 0x2,0x3 0142 00d9 | | Load_Top At_Offset_1 0143 e5fa | | Load 0x2,-0x6 0144 0227 | ' | Execute Access,All_Reference 0145 3435 |45 | Execute Record,Field_Reference,Field_Number 0x35 0146 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 0147 4508 |E | Exit_Suprogram New_Top_Offset 0x8 0148 ; -------------------------------------------------------------------------------------- 0148 ; SUBPROGRAM 0148 ; -------------------------------------------------------------------------------------- 0148 0155 | U | .CONST 0x0155 ; Address of begin 0149 0004 | | .CONST 0x0004 ; Address of exception handler 014a 0005 | | .CONST 0x0005 ; Number of locals 014b INIT_0148: 014b 00e3 | | Load_Encached Natural_Cache 014c 4801 |H | Short_Literal 0x1 014d 4804 |H | Short_Literal 0x4 014e e005 | | Load 0x0,0x5 014f 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0150 035b | [ | Declare_Type Array,Constrained 0151 0337 | 7 | Declare_Variable Array 0152 00e3 | | Load_Encached Natural_Cache 0153 029f 08cb | | Declare_Subprogram INIT_08c8,For_Call 0155 BODY_0148: 0155 e5fe | | Load 0x2,-0x2 0156 e5fb | | Load 0x2,-0x5 0157 0227 | ' | Execute Access,All_Reference 0158 3435 |45 | Execute Record,Field_Reference,Field_Number 0x35 0159 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 015a 01dc | | Execute Vector,Last 015b e5fb | | Load 0x2,-0x5 015c 0227 | ' | Execute Access,All_Reference 015d 3435 |45 | Execute Record,Field_Reference,Field_Number 0x35 015e 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 015f 0272 | r | Execute Discrete,Minus 0160 027a | z | Execute Discrete,Less_Equal 0161 6824 |h$ | Jump_Zero 0x186 0162 e5fb | | Load 0x2,-0x5 0163 0227 | ' | Execute Access,All_Reference 0164 3435 |45 | Execute Record,Field_Reference,Field_Number 0x35 0165 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0166 e5fe | | Load 0x2,-0x2 0167 0273 | s | Execute Discrete,Plus 0168 c402 | | Store 0x2,0x2 0169 e5fb | | Load 0x2,-0x5 016a 0229 | ) | Execute Access,All_Read 016b 3c35 |<5 | Execute Record,Field_Read,Field_Number 0x35 016c 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 016d e5fb | | Load 0x2,-0x5 016e 0227 | ' | Execute Access,All_Reference 016f 3435 |45 | Execute Record,Field_Reference,Field_Number 0x35 0170 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0171 0a01 | | Execute_Immediate Plus,0x1 0172 00d8 | | Load_Top At_Offset_0 0173 00e2 | | Load_Encached Integer_Cache 0174 0260 | ` | Execute Discrete,In_Type 0175 7001 |p | Jump_Nonzero 0x177 0176 0801 | | Execute_Immediate Raise,0x1 0177 e402 | | Load 0x2,0x2 0178 00da | | Load_Top At_Offset_2 0179 035b | [ | Declare_Type Array,Constrained 017a 00d0 | | Action Swap_Control 017b 01cd | | Execute Vector,Slice_Reference 017c 00d8 | | Load_Top At_Offset_0 017d e5fa | | Load 0x2,-0x6 017e 85fd | | Call 0x2,-0x3 017f 00d2 | | Pop_Control Pop_Count_2 0180 00db | | Load_Top At_Offset_3 0181 e5fb | | Load 0x2,-0x5 0182 0227 | ' | Execute Access,All_Reference 0183 3435 |45 | Execute Record,Field_Reference,Field_Number 0x35 0184 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 0185 4507 |E | Exit_Suprogram New_Top_Offset 0x7 0186 e5fb | | Load 0x2,-0x5 0187 0227 | ' | Execute Access,All_Reference 0188 3435 |45 | Execute Record,Field_Reference,Field_Number 0x35 0189 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 018a 4804 |H | Short_Literal 0x4 018b 026f | o | Execute Discrete,Remainder 018c 005a | Z | Store_Top Discrete,At_Offset_2 018d e5fb | | Load 0x2,-0x5 018e 0227 | ' | Execute Access,All_Reference 018f 3435 |45 | Execute Record,Field_Reference,Field_Number 0x35 0190 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0191 00da | | Load_Top At_Offset_2 0192 0272 | r | Execute Discrete,Minus 0193 e5fb | | Load 0x2,-0x5 0194 0227 | ' | Execute Access,All_Reference 0195 3435 |45 | Execute Record,Field_Reference,Field_Number 0x35 0196 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 0197 e5fb | | Load 0x2,-0x5 0198 0227 | ' | Execute Access,All_Reference 0199 3435 |45 | Execute Record,Field_Reference,Field_Number 0x35 019a 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 019b 0a01 | | Execute_Immediate Plus,0x1 019c 00d8 | | Load_Top At_Offset_0 019d 00e2 | | Load_Encached Integer_Cache 019e 0260 | ` | Execute Discrete,In_Type 019f 7001 |p | Jump_Nonzero 0x1a1 01a0 0801 | | Execute_Immediate Raise,0x1 01a1 e5fb | | Load 0x2,-0x5 01a2 0227 | ' | Execute Access,All_Reference 01a3 3435 |45 | Execute Record,Field_Reference,Field_Number 0x35 01a4 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 01a5 00db | | Load_Top At_Offset_3 01a6 0273 | s | Execute Discrete,Plus 01a7 00d8 | | Load_Top At_Offset_0 01a8 00e2 | | Load_Encached Integer_Cache 01a9 0260 | ` | Execute Discrete,In_Type 01aa 7001 |p | Jump_Nonzero 0x1ac 01ab 0801 | | Execute_Immediate Raise,0x1 01ac e5fb | | Load 0x2,-0x5 01ad 0227 | ' | Execute Access,All_Reference 01ae 3435 |45 | Execute Record,Field_Reference,Field_Number 0x35 01af 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 01b0 01cf | | Execute Vector,Slice_Read 01b1 4801 |H | Short_Literal 0x1 01b2 00db | | Load_Top At_Offset_3 01b3 e403 | | Load 0x2,0x3 01b4 01ce | | Execute Vector,Slice_Write 01b5 e5fb | | Load 0x2,-0x5 01b6 8004 | | Call 0x0,0x4 01b7 00d9 | | Load_Top At_Offset_1 01b8 e5fe | | Load 0x2,-0x2 01b9 0273 | s | Execute Discrete,Plus 01ba c402 | | Store 0x2,0x2 01bb 00db | | Load_Top At_Offset_3 01bc e5fb | | Load 0x2,-0x5 01bd 0227 | ' | Execute Access,All_Reference 01be 3435 |45 | Execute Record,Field_Reference,Field_Number 0x35 01bf 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 01c0 01dc | | Execute Vector,Last 01c1 027a | z | Execute Discrete,Less_Equal 01c2 6825 |h% | Jump_Zero 0x1e8 01c3 4801 |H | Short_Literal 0x1 01c4 00da | | Load_Top At_Offset_2 01c5 e403 | | Load 0x2,0x3 01c6 01cf | | Execute Vector,Slice_Read 01c7 4801 |H | Short_Literal 0x1 01c8 00db | | Load_Top At_Offset_3 01c9 e5fb | | Load 0x2,-0x5 01ca 0229 | ) | Execute Access,All_Read 01cb 3c35 |<5 | Execute Record,Field_Read,Field_Number 0x35 01cc 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 01cd 01ce | | Execute Vector,Slice_Write 01ce e5fb | | Load 0x2,-0x5 01cf 0229 | ) | Execute Access,All_Read 01d0 3c35 |<5 | Execute Record,Field_Read,Field_Number 0x35 01d1 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 01d2 00da | | Load_Top At_Offset_2 01d3 0a01 | | Execute_Immediate Plus,0x1 01d4 00d8 | | Load_Top At_Offset_0 01d5 00e2 | | Load_Encached Integer_Cache 01d6 0260 | ` | Execute Discrete,In_Type 01d7 7001 |p | Jump_Nonzero 0x1d9 01d8 0801 | | Execute_Immediate Raise,0x1 01d9 e402 | | Load 0x2,0x2 01da 00da | | Load_Top At_Offset_2 01db 035b | [ | Declare_Type Array,Constrained 01dc 00d0 | | Action Swap_Control 01dd 01cd | | Execute Vector,Slice_Reference 01de 00d8 | | Load_Top At_Offset_0 01df e5fa | | Load 0x2,-0x6 01e0 85fd | | Call 0x2,-0x3 01e1 00d2 | | Pop_Control Pop_Count_2 01e2 00db | | Load_Top At_Offset_3 01e3 e5fb | | Load 0x2,-0x5 01e4 0227 | ' | Execute Access,All_Reference 01e5 3435 |45 | Execute Record,Field_Reference,Field_Number 0x35 01e6 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 01e7 4507 |E | Exit_Suprogram New_Top_Offset 0x7 01e8 8405 | | Call 0x2,0x5 01e9 4507 |E | Exit_Suprogram New_Top_Offset 0x7 01ea 0000 0000 | | .BLANK 0000[0x6] 01f0 ; -------------------------------------------------------------------------------------- 01f0 ; SUBPROGRAM 01f0 ; -------------------------------------------------------------------------------------- 01f0 01fe | | .CONST 0x01fe ; Address of begin 01f1 0004 | | .CONST 0x0004 ; Address of exception handler 01f2 0005 | | .CONST 0x0005 ; Number of locals 01f3 INIT_01f0: 01f3 e5fd | | Load 0x2,-0x3 01f4 e5f7 | | Load 0x2,-0x9 01f5 01db | | Execute Vector,Length 01f6 0271 | q | Execute Discrete,Times 01f7 e006 | | Load 0x0,0x6 01f8 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 01f9 00e3 | | Load_Encached Natural_Cache 01fa e007 | | Load 0x0,0x7 01fb 0007 | | Action Break_Optional 01fc e007 | | Load 0x0,0x7 01fd 0007 | | Action Break_Optional 01fe BODY_01f0: 01fe e5f8 | | Load 0x2,-0x8 01ff 0227 | ' | Execute Access,All_Reference 0200 3435 |45 | Execute Record,Field_Reference,Field_Number 0x35 0201 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0202 4804 |H | Short_Literal 0x4 0203 026f | o | Execute Discrete,Remainder 0204 6802 |h | Jump_Zero 0x207 0205 e002 | | Load 0x0,0x2 0206 0257 | W | Execute Discrete,Raise 0207 00db | | Load_Top At_Offset_3 0208 7001 |p | Jump_Nonzero 0x20a 0209 450a |E | Exit_Suprogram New_Top_Offset 0xa 020a e5f8 | | Load 0x2,-0x8 020b 0227 | ' | Execute Access,All_Reference 020c 3435 |45 | Execute Record,Field_Reference,Field_Number 0x35 020d 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 020e 01dc | | Execute Vector,Last 020f e5f8 | | Load 0x2,-0x8 0210 0227 | ' | Execute Access,All_Reference 0211 3435 |45 | Execute Record,Field_Reference,Field_Number 0x35 0212 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0213 0272 | r | Execute Discrete,Minus 0214 00d8 | | Load_Top At_Offset_0 0215 e007 | | Load 0x0,0x7 0216 0260 | ` | Execute Discrete,In_Type 0217 7001 |p | Jump_Nonzero 0x219 0218 0801 | | Execute_Immediate Raise,0x1 0219 e402 | | Load 0x2,0x2 021a 027b | { | Execute Discrete,Greater_Equal 021b 6824 |h$ | Jump_Zero 0x240 021c e5f8 | | Load 0x2,-0x8 021d 0227 | ' | Execute Access,All_Reference 021e 3435 |45 | Execute Record,Field_Reference,Field_Number 0x35 021f 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0220 e402 | | Load 0x2,0x2 0221 0273 | s | Execute Discrete,Plus 0222 005b | [ | Store_Top Discrete,At_Offset_3 0223 e5f8 | | Load 0x2,-0x8 0224 0229 | ) | Execute Access,All_Read 0225 3c35 |<5 | Execute Record,Field_Read,Field_Number 0x35 0226 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0227 e5f8 | | Load 0x2,-0x8 0228 0227 | ' | Execute Access,All_Reference 0229 3435 |45 | Execute Record,Field_Reference,Field_Number 0x35 022a 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 022b 0a01 | | Execute_Immediate Plus,0x1 022c 00d8 | | Load_Top At_Offset_0 022d 00e2 | | Load_Encached Integer_Cache 022e 0260 | ` | Execute Discrete,In_Type 022f 7001 |p | Jump_Nonzero 0x231 0230 0801 | | Execute_Immediate Raise,0x1 0231 e403 | | Load 0x2,0x3 0232 00da | | Load_Top At_Offset_2 0233 035b | [ | Declare_Type Array,Constrained 0234 00d0 | | Action Swap_Control 0235 01cd | | Execute Vector,Slice_Reference 0236 00d8 | | Load_Top At_Offset_0 0237 e5f7 | | Load 0x2,-0x9 0238 85fc | | Call 0x2,-0x4 0239 00d2 | | Pop_Control Pop_Count_2 023a 00da | | Load_Top At_Offset_2 023b e5f8 | | Load 0x2,-0x8 023c 0227 | ' | Execute Access,All_Reference 023d 3435 |45 | Execute Record,Field_Reference,Field_Number 0x35 023e 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 023f 450a |E | Exit_Suprogram New_Top_Offset 0xa 0240 e5f8 | | Load 0x2,-0x8 0241 8004 | | Call 0x0,0x4 0242 00db | | Load_Top At_Offset_3 0243 e5f8 | | Load 0x2,-0x8 0244 0227 | ' | Execute Access,All_Reference 0245 3435 |45 | Execute Record,Field_Reference,Field_Number 0x35 0246 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0247 01dc | | Execute Vector,Last 0248 027a | z | Execute Discrete,Less_Equal 0249 6816 |h | Jump_Zero 0x260 024a 00db | | Load_Top At_Offset_3 024b 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 024c e5f8 | | Load 0x2,-0x8 024d 0229 | ) | Execute Access,All_Read 024e 3c35 |<5 | Execute Record,Field_Read,Field_Number 0x35 024f 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0250 4801 |H | Short_Literal 0x1 0251 e403 | | Load 0x2,0x3 0252 00da | | Load_Top At_Offset_2 0253 035b | [ | Declare_Type Array,Constrained 0254 00d0 | | Action Swap_Control 0255 01cd | | Execute Vector,Slice_Reference 0256 00d8 | | Load_Top At_Offset_0 0257 e5f7 | | Load 0x2,-0x9 0258 85fc | | Call 0x2,-0x4 0259 00d2 | | Pop_Control Pop_Count_2 025a 00da | | Load_Top At_Offset_2 025b e5f8 | | Load 0x2,-0x8 025c 0227 | ' | Execute Access,All_Reference 025d 3435 |45 | Execute Record,Field_Reference,Field_Number 0x35 025e 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 025f 450a |E | Exit_Suprogram New_Top_Offset 0xa 0260 e5f7 | | Load 0x2,-0x9 0261 01dd | | Execute Vector,First 0262 00d8 | | Load_Top At_Offset_0 0263 e007 | | Load 0x0,0x7 0264 0260 | ` | Execute Discrete,In_Type 0265 7001 |p | Jump_Nonzero 0x267 0266 0801 | | Execute_Immediate Raise,0x1 0267 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 0268 e5f8 | | Load 0x2,-0x8 0269 0227 | ' | Execute Access,All_Reference 026a 3434 |44 | Execute Record,Field_Reference,Field_Number 0x34 026b 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 026c 01dc | | Execute Vector,Last 026d e5fd | | Load 0x2,-0x3 026e 0270 | p | Execute Discrete,Divide 026f 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 0270 e5fd | | Load 0x2,-0x3 0271 00d9 | | Load_Top At_Offset_1 0272 00d8 | | Load_Top At_Offset_0 0273 00e3 | | Load_Encached Natural_Cache 0274 0260 | ` | Execute Discrete,In_Type 0275 7001 |p | Jump_Nonzero 0x277 0276 0801 | | Execute_Immediate Raise,0x1 0277 0271 | q | Execute Discrete,Times 0278 005b | [ | Store_Top Discrete,At_Offset_3 0279 00cf | | Action Mark_Auxiliary 027a 782a |x* | Jump 0x2a5 027b e5f8 | | Load 0x2,-0x8 027c 0229 | ) | Execute Access,All_Read 027d 3c35 |<5 | Execute Record,Field_Read,Field_Number 0x35 027e 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 027f 4801 |H | Short_Literal 0x1 0280 e403 | | Load 0x2,0x3 0281 00da | | Load_Top At_Offset_2 0282 035b | [ | Declare_Type Array,Constrained 0283 00d0 | | Action Swap_Control 0284 01cd | | Execute Vector,Slice_Reference 0285 00d8 | | Load_Top At_Offset_0 0286 e404 | | Load 0x2,0x4 0287 00d8 | | Load_Top At_Offset_0 0288 e5fa | | Load 0x2,-0x6 0289 0260 | ` | Execute Discrete,In_Type 028a 7001 |p | Jump_Nonzero 0x28c 028b 0801 | | Execute_Immediate Raise,0x1 028c e404 | | Load 0x2,0x4 028d e405 | | Load 0x2,0x5 028e 0273 | s | Execute Discrete,Plus 028f 0aff | | Execute_Immediate Plus,-0x1 0290 00d8 | | Load_Top At_Offset_0 0291 e5fa | | Load 0x2,-0x6 0292 0260 | ` | Execute Discrete,In_Type 0293 7001 |p | Jump_Nonzero 0x295 0294 0801 | | Execute_Immediate Raise,0x1 0295 e5f7 | | Load 0x2,-0x9 0296 01cf | | Execute Vector,Slice_Read 0297 85fc | | Call 0x2,-0x4 0298 00d2 | | Pop_Control Pop_Count_2 0299 00db | | Load_Top At_Offset_3 029a e5f8 | | Load 0x2,-0x8 029b 0227 | ' | Execute Access,All_Reference 029c 3435 |45 | Execute Record,Field_Reference,Field_Number 0x35 029d 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 029e e5f8 | | Load 0x2,-0x8 029f 8004 | | Call 0x0,0x4 02a0 00da | | Load_Top At_Offset_2 02a1 00da | | Load_Top At_Offset_2 02a2 0273 | s | Execute Discrete,Plus 02a3 005b | [ | Store_Top Discrete,At_Offset_3 02a4 00c9 | | Action Pop_Auxiliary_Loop 02a5 e5f7 | | Load 0x2,-0x9 02a6 01dc | | Execute Vector,Last 02a7 00d8 | | Load_Top At_Offset_0 02a8 e007 | | Load 0x0,0x7 02a9 0260 | ` | Execute Discrete,In_Type 02aa 7001 |p | Jump_Nonzero 0x2ac 02ab 0801 | | Execute_Immediate Raise,0x1 02ac 00db | | Load_Top At_Offset_3 02ad 0272 | r | Execute Discrete,Minus 02ae 00da | | Load_Top At_Offset_2 02af 027b | { | Execute Discrete,Greater_Equal 02b0 77ca |w | Jump_Nonzero 0x27b 02b1 00ce | | Action Pop_Auxiliary 02b2 00d9 | | Load_Top At_Offset_1 02b3 e5f7 | | Load 0x2,-0x9 02b4 01dc | | Execute Vector,Last 02b5 00d8 | | Load_Top At_Offset_0 02b6 e007 | | Load 0x0,0x7 02b7 0260 | ` | Execute Discrete,In_Type 02b8 7001 |p | Jump_Nonzero 0x2ba 02b9 0801 | | Execute_Immediate Raise,0x1 02ba 027a | z | Execute Discrete,Less_Equal 02bb 682e |h. | Jump_Zero 0x2ea 02bc e5fd | | Load 0x2,-0x3 02bd e5f7 | | Load 0x2,-0x9 02be 01dc | | Execute Vector,Last 02bf 00d8 | | Load_Top At_Offset_0 02c0 e007 | | Load 0x0,0x7 02c1 0260 | ` | Execute Discrete,In_Type 02c2 7001 |p | Jump_Nonzero 0x2c4 02c3 0801 | | Execute_Immediate Raise,0x1 02c4 00db | | Load_Top At_Offset_3 02c5 0272 | r | Execute Discrete,Minus 02c6 0a01 | | Execute_Immediate Plus,0x1 02c7 00d8 | | Load_Top At_Offset_0 02c8 00e3 | | Load_Encached Natural_Cache 02c9 0260 | ` | Execute Discrete,In_Type 02ca 7001 |p | Jump_Nonzero 0x2cc 02cb 0801 | | Execute_Immediate Raise,0x1 02cc 0271 | q | Execute Discrete,Times 02cd 005b | [ | Store_Top Discrete,At_Offset_3 02ce e5f8 | | Load 0x2,-0x8 02cf 0229 | ) | Execute Access,All_Read 02d0 3c35 |<5 | Execute Record,Field_Read,Field_Number 0x35 02d1 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 02d2 4801 |H | Short_Literal 0x1 02d3 e403 | | Load 0x2,0x3 02d4 00da | | Load_Top At_Offset_2 02d5 035b | [ | Declare_Type Array,Constrained 02d6 00d0 | | Action Swap_Control 02d7 01cd | | Execute Vector,Slice_Reference 02d8 00d8 | | Load_Top At_Offset_0 02d9 00db | | Load_Top At_Offset_3 02da 00d8 | | Load_Top At_Offset_0 02db e5fa | | Load 0x2,-0x6 02dc 0260 | ` | Execute Discrete,In_Type 02dd 7001 |p | Jump_Nonzero 0x2df 02de 0801 | | Execute_Immediate Raise,0x1 02df e5f7 | | Load 0x2,-0x9 02e0 01dc | | Execute Vector,Last 02e1 e5f7 | | Load 0x2,-0x9 02e2 01cf | | Execute Vector,Slice_Read 02e3 85fc | | Call 0x2,-0x4 02e4 00d2 | | Pop_Control Pop_Count_2 02e5 00da | | Load_Top At_Offset_2 02e6 e5f8 | | Load 0x2,-0x8 02e7 0227 | ' | Execute Access,All_Reference 02e8 3435 |45 | Execute Record,Field_Reference,Field_Number 0x35 02e9 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 02ea 450a |E | Exit_Suprogram New_Top_Offset 0xa 02eb 0000 0000 | | .BLANK 0000[0x5] 02f0 ; -------------------------------------------------------------------------------------- 02f0 ; SUBPROGRAM 02f0 ; -------------------------------------------------------------------------------------- 02f0 02fe | | .CONST 0x02fe ; Address of begin 02f1 0004 | | .CONST 0x0004 ; Address of exception handler 02f2 0005 | | .CONST 0x0005 ; Number of locals 02f3 INIT_02f0: 02f3 e5fd | | Load 0x2,-0x3 02f4 e5f7 | | Load 0x2,-0x9 02f5 01db | | Execute Vector,Length 02f6 0271 | q | Execute Discrete,Times 02f7 e006 | | Load 0x0,0x6 02f8 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 02f9 00e3 | | Load_Encached Natural_Cache 02fa e007 | | Load 0x0,0x7 02fb 0007 | | Action Break_Optional 02fc e007 | | Load 0x0,0x7 02fd 0007 | | Action Break_Optional 02fe BODY_02f0: 02fe e5f8 | | Load 0x2,-0x8 02ff 0227 | ' | Execute Access,All_Reference 0300 3435 |45 | Execute Record,Field_Reference,Field_Number 0x35 0301 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0302 4804 |H | Short_Literal 0x4 0303 026f | o | Execute Discrete,Remainder 0304 6802 |h | Jump_Zero 0x307 0305 e002 | | Load 0x0,0x2 0306 0257 | W | Execute Discrete,Raise 0307 00db | | Load_Top At_Offset_3 0308 7001 |p | Jump_Nonzero 0x30a 0309 450a |E | Exit_Suprogram New_Top_Offset 0xa 030a e5f8 | | Load 0x2,-0x8 030b 0227 | ' | Execute Access,All_Reference 030c 3435 |45 | Execute Record,Field_Reference,Field_Number 0x35 030d 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 030e 01dc | | Execute Vector,Last 030f e5f8 | | Load 0x2,-0x8 0310 0227 | ' | Execute Access,All_Reference 0311 3435 |45 | Execute Record,Field_Reference,Field_Number 0x35 0312 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0313 0272 | r | Execute Discrete,Minus 0314 00d8 | | Load_Top At_Offset_0 0315 e007 | | Load 0x0,0x7 0316 0260 | ` | Execute Discrete,In_Type 0317 7001 |p | Jump_Nonzero 0x319 0318 0801 | | Execute_Immediate Raise,0x1 0319 e402 | | Load 0x2,0x2 031a 027b | { | Execute Discrete,Greater_Equal 031b 681f |h | Jump_Zero 0x33b 031c e5f8 | | Load 0x2,-0x8 031d 0227 | ' | Execute Access,All_Reference 031e 3435 |45 | Execute Record,Field_Reference,Field_Number 0x35 031f 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0320 e402 | | Load 0x2,0x2 0321 0273 | s | Execute Discrete,Plus 0322 005b | [ | Store_Top Discrete,At_Offset_3 0323 e5f8 | | Load 0x2,-0x8 0324 0229 | ) | Execute Access,All_Read 0325 3c35 |<5 | Execute Record,Field_Read,Field_Number 0x35 0326 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0327 e5f8 | | Load 0x2,-0x8 0328 0227 | ' | Execute Access,All_Reference 0329 3435 |45 | Execute Record,Field_Reference,Field_Number 0x35 032a 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 032b 0a01 | | Execute_Immediate Plus,0x1 032c 00d8 | | Load_Top At_Offset_0 032d 00e2 | | Load_Encached Integer_Cache 032e 0260 | ` | Execute Discrete,In_Type 032f 7001 |p | Jump_Nonzero 0x331 0330 0801 | | Execute_Immediate Raise,0x1 0331 e403 | | Load 0x2,0x3 0332 00da | | Load_Top At_Offset_2 0333 035b | [ | Declare_Type Array,Constrained 0334 00d0 | | Action Swap_Control 0335 01cd | | Execute Vector,Slice_Reference 0336 00d8 | | Load_Top At_Offset_0 0337 e5f7 | | Load 0x2,-0x9 0338 85fc | | Call 0x2,-0x4 0339 00d2 | | Pop_Control Pop_Count_2 033a 78a3 |x | Jump 0x3de 033b e5f8 | | Load 0x2,-0x8 033c 8004 | | Call 0x0,0x4 033d 00db | | Load_Top At_Offset_3 033e e5f8 | | Load 0x2,-0x8 033f 0227 | ' | Execute Access,All_Reference 0340 3435 |45 | Execute Record,Field_Reference,Field_Number 0x35 0341 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0342 01dc | | Execute Vector,Last 0343 027a | z | Execute Discrete,Less_Equal 0344 6811 |h | Jump_Zero 0x356 0345 00db | | Load_Top At_Offset_3 0346 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 0347 e5f8 | | Load 0x2,-0x8 0348 0229 | ) | Execute Access,All_Read 0349 3c35 |<5 | Execute Record,Field_Read,Field_Number 0x35 034a 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 034b 4801 |H | Short_Literal 0x1 034c e403 | | Load 0x2,0x3 034d 00da | | Load_Top At_Offset_2 034e 035b | [ | Declare_Type Array,Constrained 034f 00d0 | | Action Swap_Control 0350 01cd | | Execute Vector,Slice_Reference 0351 00d8 | | Load_Top At_Offset_0 0352 e5f7 | | Load 0x2,-0x9 0353 85fc | | Call 0x2,-0x4 0354 00d2 | | Pop_Control Pop_Count_2 0355 7888 |x | Jump 0x3de 0356 e5f7 | | Load 0x2,-0x9 0357 01dd | | Execute Vector,First 0358 00d8 | | Load_Top At_Offset_0 0359 e007 | | Load 0x0,0x7 035a 0260 | ` | Execute Discrete,In_Type 035b 7001 |p | Jump_Nonzero 0x35d 035c 0801 | | Execute_Immediate Raise,0x1 035d 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 035e e5f8 | | Load 0x2,-0x8 035f 0227 | ' | Execute Access,All_Reference 0360 3434 |44 | Execute Record,Field_Reference,Field_Number 0x34 0361 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0362 01dc | | Execute Vector,Last 0363 e5fd | | Load 0x2,-0x3 0364 0270 | p | Execute Discrete,Divide 0365 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 0366 e5fd | | Load 0x2,-0x3 0367 00d9 | | Load_Top At_Offset_1 0368 00d8 | | Load_Top At_Offset_0 0369 00e3 | | Load_Encached Natural_Cache 036a 0260 | ` | Execute Discrete,In_Type 036b 7001 |p | Jump_Nonzero 0x36d 036c 0801 | | Execute_Immediate Raise,0x1 036d 0271 | q | Execute Discrete,Times 036e 005b | [ | Store_Top Discrete,At_Offset_3 036f 00cf | | Action Mark_Auxiliary 0370 782a |x* | Jump 0x39b 0371 e5f8 | | Load 0x2,-0x8 0372 0229 | ) | Execute Access,All_Read 0373 3c35 |<5 | Execute Record,Field_Read,Field_Number 0x35 0374 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0375 4801 |H | Short_Literal 0x1 0376 e403 | | Load 0x2,0x3 0377 00da | | Load_Top At_Offset_2 0378 035b | [ | Declare_Type Array,Constrained 0379 00d0 | | Action Swap_Control 037a 01cd | | Execute Vector,Slice_Reference 037b 00d8 | | Load_Top At_Offset_0 037c e404 | | Load 0x2,0x4 037d 00d8 | | Load_Top At_Offset_0 037e e5fa | | Load 0x2,-0x6 037f 0260 | ` | Execute Discrete,In_Type 0380 7001 |p | Jump_Nonzero 0x382 0381 0801 | | Execute_Immediate Raise,0x1 0382 e404 | | Load 0x2,0x4 0383 e405 | | Load 0x2,0x5 0384 0273 | s | Execute Discrete,Plus 0385 0aff | | Execute_Immediate Plus,-0x1 0386 00d8 | | Load_Top At_Offset_0 0387 e5fa | | Load 0x2,-0x6 0388 0260 | ` | Execute Discrete,In_Type 0389 7001 |p | Jump_Nonzero 0x38b 038a 0801 | | Execute_Immediate Raise,0x1 038b e5f7 | | Load 0x2,-0x9 038c 01cf | | Execute Vector,Slice_Read 038d 85fc | | Call 0x2,-0x4 038e 00d2 | | Pop_Control Pop_Count_2 038f 00db | | Load_Top At_Offset_3 0390 e5f8 | | Load 0x2,-0x8 0391 0227 | ' | Execute Access,All_Reference 0392 3435 |45 | Execute Record,Field_Reference,Field_Number 0x35 0393 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 0394 e5f8 | | Load 0x2,-0x8 0395 8004 | | Call 0x0,0x4 0396 00da | | Load_Top At_Offset_2 0397 00da | | Load_Top At_Offset_2 0398 0273 | s | Execute Discrete,Plus 0399 005b | [ | Store_Top Discrete,At_Offset_3 039a 00c9 | | Action Pop_Auxiliary_Loop 039b e5f7 | | Load 0x2,-0x9 039c 01dc | | Execute Vector,Last 039d 00d8 | | Load_Top At_Offset_0 039e e007 | | Load 0x0,0x7 039f 0260 | ` | Execute Discrete,In_Type 03a0 7001 |p | Jump_Nonzero 0x3a2 03a1 0801 | | Execute_Immediate Raise,0x1 03a2 00db | | Load_Top At_Offset_3 03a3 0272 | r | Execute Discrete,Minus 03a4 00da | | Load_Top At_Offset_2 03a5 027b | { | Execute Discrete,Greater_Equal 03a6 77ca |w | Jump_Nonzero 0x371 03a7 00ce | | Action Pop_Auxiliary 03a8 00d9 | | Load_Top At_Offset_1 03a9 e5f7 | | Load 0x2,-0x9 03aa 01dc | | Execute Vector,Last 03ab 00d8 | | Load_Top At_Offset_0 03ac e007 | | Load 0x0,0x7 03ad 0260 | ` | Execute Discrete,In_Type 03ae 7001 |p | Jump_Nonzero 0x3b0 03af 0801 | | Execute_Immediate Raise,0x1 03b0 027a | z | Execute Discrete,Less_Equal 03b1 682a |h* | Jump_Zero 0x3dc 03b2 e5fd | | Load 0x2,-0x3 03b3 e5f7 | | Load 0x2,-0x9 03b4 01dc | | Execute Vector,Last 03b5 00d8 | | Load_Top At_Offset_0 03b6 e007 | | Load 0x0,0x7 03b7 0260 | ` | Execute Discrete,In_Type 03b8 7001 |p | Jump_Nonzero 0x3ba 03b9 0801 | | Execute_Immediate Raise,0x1 03ba 00db | | Load_Top At_Offset_3 03bb 0272 | r | Execute Discrete,Minus 03bc 0a01 | | Execute_Immediate Plus,0x1 03bd 00d8 | | Load_Top At_Offset_0 03be 00e3 | | Load_Encached Natural_Cache 03bf 0260 | ` | Execute Discrete,In_Type 03c0 7001 |p | Jump_Nonzero 0x3c2 03c1 0801 | | Execute_Immediate Raise,0x1 03c2 0271 | q | Execute Discrete,Times 03c3 005b | [ | Store_Top Discrete,At_Offset_3 03c4 e5f8 | | Load 0x2,-0x8 03c5 0229 | ) | Execute Access,All_Read 03c6 3c35 |<5 | Execute Record,Field_Read,Field_Number 0x35 03c7 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 03c8 4801 |H | Short_Literal 0x1 03c9 e403 | | Load 0x2,0x3 03ca 00da | | Load_Top At_Offset_2 03cb 035b | [ | Declare_Type Array,Constrained 03cc 00d0 | | Action Swap_Control 03cd 01cd | | Execute Vector,Slice_Reference 03ce 00d8 | | Load_Top At_Offset_0 03cf 00db | | Load_Top At_Offset_3 03d0 00d8 | | Load_Top At_Offset_0 03d1 e5fa | | Load 0x2,-0x6 03d2 0260 | ` | Execute Discrete,In_Type 03d3 7001 |p | Jump_Nonzero 0x3d5 03d4 0801 | | Execute_Immediate Raise,0x1 03d5 e5f7 | | Load 0x2,-0x9 03d6 01dc | | Execute Vector,Last 03d7 e5f7 | | Load 0x2,-0x9 03d8 01cf | | Execute Vector,Slice_Read 03d9 85fc | | Call 0x2,-0x4 03da 00d2 | | Pop_Control Pop_Count_2 03db 7802 |x | Jump 0x3de 03dc 4800 |H | Short_Literal 0x0 03dd 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 03de 0008 | | Action Idle 03df 0007 | | Action Break_Optional 03e0 00da | | Load_Top At_Offset_2 03e1 4804 |H | Short_Literal 0x4 03e2 026f | o | Execute Discrete,Remainder 03e3 0b01 | | Execute_Immediate Case_Compare,0x1 03e4 7006 |p | Jump_Nonzero 0x3eb 03e5 0b02 | | Execute_Immediate Case_Compare,0x2 03e6 7020 |p | Jump_Nonzero 0x407 03e7 0f03 | | Execute_Immediate Equal,0x3 03e8 7032 |p2 | Jump_Nonzero 0x41b 03e9 0008 | | Action Idle 03ea 783a |x: | Jump 0x425 03eb 00d1 | | Pop_Control Pop_Count_1 03ec 00da | | Load_Top At_Offset_2 03ed 0a03 | | Execute_Immediate Plus,0x3 03ee 005b | [ | Store_Top Discrete,At_Offset_3 03ef 4800 |H | Short_Literal 0x0 03f0 00db | | Load_Top At_Offset_3 03f1 0afe | | Execute_Immediate Plus,-0x2 03f2 e5f8 | | Load 0x2,-0x8 03f3 0227 | ' | Execute Access,All_Reference 03f4 3435 |45 | Execute Record,Field_Reference,Field_Number 0x35 03f5 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 03f6 01d6 | | Execute Vector,Field_Write 03f7 4800 |H | Short_Literal 0x0 03f8 00db | | Load_Top At_Offset_3 03f9 0aff | | Execute_Immediate Plus,-0x1 03fa e5f8 | | Load 0x2,-0x8 03fb 0227 | ' | Execute Access,All_Reference 03fc 3435 |45 | Execute Record,Field_Reference,Field_Number 0x35 03fd 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 03fe 01d6 | | Execute Vector,Field_Write 03ff 4800 |H | Short_Literal 0x0 0400 00db | | Load_Top At_Offset_3 0401 e5f8 | | Load 0x2,-0x8 0402 0227 | ' | Execute Access,All_Reference 0403 3435 |45 | Execute Record,Field_Reference,Field_Number 0x35 0404 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0405 01d6 | | Execute Vector,Field_Write 0406 781e |x | Jump 0x425 0407 00d1 | | Pop_Control Pop_Count_1 0408 00da | | Load_Top At_Offset_2 0409 0a02 | | Execute_Immediate Plus,0x2 040a 005b | [ | Store_Top Discrete,At_Offset_3 040b 4800 |H | Short_Literal 0x0 040c 00db | | Load_Top At_Offset_3 040d 0aff | | Execute_Immediate Plus,-0x1 040e e5f8 | | Load 0x2,-0x8 040f 0227 | ' | Execute Access,All_Reference 0410 3435 |45 | Execute Record,Field_Reference,Field_Number 0x35 0411 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0412 01d6 | | Execute Vector,Field_Write 0413 4800 |H | Short_Literal 0x0 0414 00db | | Load_Top At_Offset_3 0415 e5f8 | | Load 0x2,-0x8 0416 0227 | ' | Execute Access,All_Reference 0417 3435 |45 | Execute Record,Field_Reference,Field_Number 0x35 0418 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0419 01d6 | | Execute Vector,Field_Write 041a 780a |x | Jump 0x425 041b 00da | | Load_Top At_Offset_2 041c 0a01 | | Execute_Immediate Plus,0x1 041d 005b | [ | Store_Top Discrete,At_Offset_3 041e 4800 |H | Short_Literal 0x0 041f 00db | | Load_Top At_Offset_3 0420 e5f8 | | Load 0x2,-0x8 0421 0227 | ' | Execute Access,All_Reference 0422 3435 |45 | Execute Record,Field_Reference,Field_Number 0x35 0423 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0424 01d6 | | Execute Vector,Field_Write 0425 00da | | Load_Top At_Offset_2 0426 e5f8 | | Load 0x2,-0x8 0427 0227 | ' | Execute Access,All_Reference 0428 3435 |45 | Execute Record,Field_Reference,Field_Number 0x35 0429 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 042a 450a |E | Exit_Suprogram New_Top_Offset 0xa 042b 0000 0000 | | .BLANK 0000[0x5] 0430 ; -------------------------------------------------------------------------------------- 0430 ; SUBPROGRAM 0430 ; -------------------------------------------------------------------------------------- 0430 043e | > | .CONST 0x043e ; Address of begin 0431 0004 | | .CONST 0x0004 ; Address of exception handler 0432 0005 | | .CONST 0x0005 ; Number of locals 0433 INIT_0430: 0433 e5fd | | Load 0x2,-0x3 0434 e5f7 | | Load 0x2,-0x9 0435 01db | | Execute Vector,Length 0436 0271 | q | Execute Discrete,Times 0437 e006 | | Load 0x0,0x6 0438 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 0439 00e3 | | Load_Encached Natural_Cache 043a e007 | | Load 0x0,0x7 043b 0007 | | Action Break_Optional 043c e007 | | Load 0x0,0x7 043d 0007 | | Action Break_Optional 043e BODY_0430: 043e 00db | | Load_Top At_Offset_3 043f 7001 |p | Jump_Nonzero 0x441 0440 450a |E | Exit_Suprogram New_Top_Offset 0xa 0441 e5f8 | | Load 0x2,-0x8 0442 0227 | ' | Execute Access,All_Reference 0443 3435 |45 | Execute Record,Field_Reference,Field_Number 0x35 0444 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0445 01dc | | Execute Vector,Last 0446 e5f8 | | Load 0x2,-0x8 0447 0227 | ' | Execute Access,All_Reference 0448 3435 |45 | Execute Record,Field_Reference,Field_Number 0x35 0449 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 044a 0272 | r | Execute Discrete,Minus 044b 00d8 | | Load_Top At_Offset_0 044c e007 | | Load 0x0,0x7 044d 0260 | ` | Execute Discrete,In_Type 044e 7001 |p | Jump_Nonzero 0x450 044f 0801 | | Execute_Immediate Raise,0x1 0450 e402 | | Load 0x2,0x2 0451 027b | { | Execute Discrete,Greater_Equal 0452 6824 |h$ | Jump_Zero 0x477 0453 e5f8 | | Load 0x2,-0x8 0454 0227 | ' | Execute Access,All_Reference 0455 3435 |45 | Execute Record,Field_Reference,Field_Number 0x35 0456 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0457 e402 | | Load 0x2,0x2 0458 0273 | s | Execute Discrete,Plus 0459 005b | [ | Store_Top Discrete,At_Offset_3 045a e5f8 | | Load 0x2,-0x8 045b 0229 | ) | Execute Access,All_Read 045c 3c35 |<5 | Execute Record,Field_Read,Field_Number 0x35 045d 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 045e e5f8 | | Load 0x2,-0x8 045f 0227 | ' | Execute Access,All_Reference 0460 3435 |45 | Execute Record,Field_Reference,Field_Number 0x35 0461 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0462 0a01 | | Execute_Immediate Plus,0x1 0463 00d8 | | Load_Top At_Offset_0 0464 00e2 | | Load_Encached Integer_Cache 0465 0260 | ` | Execute Discrete,In_Type 0466 7001 |p | Jump_Nonzero 0x468 0467 0801 | | Execute_Immediate Raise,0x1 0468 e403 | | Load 0x2,0x3 0469 00da | | Load_Top At_Offset_2 046a 035b | [ | Declare_Type Array,Constrained 046b 00d0 | | Action Swap_Control 046c 01cd | | Execute Vector,Slice_Reference 046d 00d8 | | Load_Top At_Offset_0 046e e5f7 | | Load 0x2,-0x9 046f 85fc | | Call 0x2,-0x4 0470 00d2 | | Pop_Control Pop_Count_2 0471 00da | | Load_Top At_Offset_2 0472 e5f8 | | Load 0x2,-0x8 0473 0227 | ' | Execute Access,All_Reference 0474 3435 |45 | Execute Record,Field_Reference,Field_Number 0x35 0475 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 0476 450a |E | Exit_Suprogram New_Top_Offset 0xa 0477 e5f8 | | Load 0x2,-0x8 0478 8004 | | Call 0x0,0x4 0479 00db | | Load_Top At_Offset_3 047a e5f8 | | Load 0x2,-0x8 047b 0227 | ' | Execute Access,All_Reference 047c 3435 |45 | Execute Record,Field_Reference,Field_Number 0x35 047d 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 047e 01dc | | Execute Vector,Last 047f 027a | z | Execute Discrete,Less_Equal 0480 6816 |h | Jump_Zero 0x497 0481 00db | | Load_Top At_Offset_3 0482 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 0483 e5f8 | | Load 0x2,-0x8 0484 0229 | ) | Execute Access,All_Read 0485 3c35 |<5 | Execute Record,Field_Read,Field_Number 0x35 0486 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0487 4801 |H | Short_Literal 0x1 0488 e403 | | Load 0x2,0x3 0489 00da | | Load_Top At_Offset_2 048a 035b | [ | Declare_Type Array,Constrained 048b 00d0 | | Action Swap_Control 048c 01cd | | Execute Vector,Slice_Reference 048d 00d8 | | Load_Top At_Offset_0 048e e5f7 | | Load 0x2,-0x9 048f 85fc | | Call 0x2,-0x4 0490 00d2 | | Pop_Control Pop_Count_2 0491 00da | | Load_Top At_Offset_2 0492 e5f8 | | Load 0x2,-0x8 0493 0227 | ' | Execute Access,All_Reference 0494 3435 |45 | Execute Record,Field_Reference,Field_Number 0x35 0495 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 0496 450a |E | Exit_Suprogram New_Top_Offset 0xa 0497 e5f7 | | Load 0x2,-0x9 0498 01dd | | Execute Vector,First 0499 00d8 | | Load_Top At_Offset_0 049a e007 | | Load 0x0,0x7 049b 0260 | ` | Execute Discrete,In_Type 049c 7001 |p | Jump_Nonzero 0x49e 049d 0801 | | Execute_Immediate Raise,0x1 049e 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 049f e5f8 | | Load 0x2,-0x8 04a0 0227 | ' | Execute Access,All_Reference 04a1 3434 |44 | Execute Record,Field_Reference,Field_Number 0x34 04a2 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 04a3 01dc | | Execute Vector,Last 04a4 e5fd | | Load 0x2,-0x3 04a5 0270 | p | Execute Discrete,Divide 04a6 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 04a7 e5fd | | Load 0x2,-0x3 04a8 00d9 | | Load_Top At_Offset_1 04a9 00d8 | | Load_Top At_Offset_0 04aa 00e3 | | Load_Encached Natural_Cache 04ab 0260 | ` | Execute Discrete,In_Type 04ac 7001 |p | Jump_Nonzero 0x4ae 04ad 0801 | | Execute_Immediate Raise,0x1 04ae 0271 | q | Execute Discrete,Times 04af 005b | [ | Store_Top Discrete,At_Offset_3 04b0 00cf | | Action Mark_Auxiliary 04b1 782a |x* | Jump 0x4dc 04b2 e5f8 | | Load 0x2,-0x8 04b3 0229 | ) | Execute Access,All_Read 04b4 3c35 |<5 | Execute Record,Field_Read,Field_Number 0x35 04b5 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 04b6 4801 |H | Short_Literal 0x1 04b7 e403 | | Load 0x2,0x3 04b8 00da | | Load_Top At_Offset_2 04b9 035b | [ | Declare_Type Array,Constrained 04ba 00d0 | | Action Swap_Control 04bb 01cd | | Execute Vector,Slice_Reference 04bc 00d8 | | Load_Top At_Offset_0 04bd e404 | | Load 0x2,0x4 04be 00d8 | | Load_Top At_Offset_0 04bf e5fa | | Load 0x2,-0x6 04c0 0260 | ` | Execute Discrete,In_Type 04c1 7001 |p | Jump_Nonzero 0x4c3 04c2 0801 | | Execute_Immediate Raise,0x1 04c3 e404 | | Load 0x2,0x4 04c4 e405 | | Load 0x2,0x5 04c5 0273 | s | Execute Discrete,Plus 04c6 0aff | | Execute_Immediate Plus,-0x1 04c7 00d8 | | Load_Top At_Offset_0 04c8 e5fa | | Load 0x2,-0x6 04c9 0260 | ` | Execute Discrete,In_Type 04ca 7001 |p | Jump_Nonzero 0x4cc 04cb 0801 | | Execute_Immediate Raise,0x1 04cc e5f7 | | Load 0x2,-0x9 04cd 01cf | | Execute Vector,Slice_Read 04ce 85fc | | Call 0x2,-0x4 04cf 00d2 | | Pop_Control Pop_Count_2 04d0 00db | | Load_Top At_Offset_3 04d1 e5f8 | | Load 0x2,-0x8 04d2 0227 | ' | Execute Access,All_Reference 04d3 3435 |45 | Execute Record,Field_Reference,Field_Number 0x35 04d4 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 04d5 e5f8 | | Load 0x2,-0x8 04d6 8004 | | Call 0x0,0x4 04d7 00da | | Load_Top At_Offset_2 04d8 00da | | Load_Top At_Offset_2 04d9 0273 | s | Execute Discrete,Plus 04da 005b | [ | Store_Top Discrete,At_Offset_3 04db 00c9 | | Action Pop_Auxiliary_Loop 04dc e5f7 | | Load 0x2,-0x9 04dd 01dc | | Execute Vector,Last 04de 00d8 | | Load_Top At_Offset_0 04df e007 | | Load 0x0,0x7 04e0 0260 | ` | Execute Discrete,In_Type 04e1 7001 |p | Jump_Nonzero 0x4e3 04e2 0801 | | Execute_Immediate Raise,0x1 04e3 00db | | Load_Top At_Offset_3 04e4 0272 | r | Execute Discrete,Minus 04e5 00da | | Load_Top At_Offset_2 04e6 027b | { | Execute Discrete,Greater_Equal 04e7 77ca |w | Jump_Nonzero 0x4b2 04e8 00ce | | Action Pop_Auxiliary 04e9 00d9 | | Load_Top At_Offset_1 04ea e5f7 | | Load 0x2,-0x9 04eb 01dc | | Execute Vector,Last 04ec 00d8 | | Load_Top At_Offset_0 04ed e007 | | Load 0x0,0x7 04ee 0260 | ` | Execute Discrete,In_Type 04ef 7001 |p | Jump_Nonzero 0x4f1 04f0 0801 | | Execute_Immediate Raise,0x1 04f1 027a | z | Execute Discrete,Less_Equal 04f2 682a |h* | Jump_Zero 0x51d 04f3 e5fd | | Load 0x2,-0x3 04f4 e5f7 | | Load 0x2,-0x9 04f5 01dc | | Execute Vector,Last 04f6 00d8 | | Load_Top At_Offset_0 04f7 e007 | | Load 0x0,0x7 04f8 0260 | ` | Execute Discrete,In_Type 04f9 7001 |p | Jump_Nonzero 0x4fb 04fa 0801 | | Execute_Immediate Raise,0x1 04fb 00db | | Load_Top At_Offset_3 04fc 0272 | r | Execute Discrete,Minus 04fd 0a01 | | Execute_Immediate Plus,0x1 04fe 00d8 | | Load_Top At_Offset_0 04ff 00e3 | | Load_Encached Natural_Cache 0500 0260 | ` | Execute Discrete,In_Type 0501 7001 |p | Jump_Nonzero 0x503 0502 0801 | | Execute_Immediate Raise,0x1 0503 0271 | q | Execute Discrete,Times 0504 005b | [ | Store_Top Discrete,At_Offset_3 0505 e5f8 | | Load 0x2,-0x8 0506 0229 | ) | Execute Access,All_Read 0507 3c35 |<5 | Execute Record,Field_Read,Field_Number 0x35 0508 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0509 4801 |H | Short_Literal 0x1 050a e403 | | Load 0x2,0x3 050b 00da | | Load_Top At_Offset_2 050c 035b | [ | Declare_Type Array,Constrained 050d 00d0 | | Action Swap_Control 050e 01cd | | Execute Vector,Slice_Reference 050f 00d8 | | Load_Top At_Offset_0 0510 00db | | Load_Top At_Offset_3 0511 00d8 | | Load_Top At_Offset_0 0512 e5fa | | Load 0x2,-0x6 0513 0260 | ` | Execute Discrete,In_Type 0514 7001 |p | Jump_Nonzero 0x516 0515 0801 | | Execute_Immediate Raise,0x1 0516 e5f7 | | Load 0x2,-0x9 0517 01dc | | Execute Vector,Last 0518 e5f7 | | Load 0x2,-0x9 0519 01cf | | Execute Vector,Slice_Read 051a 85fc | | Call 0x2,-0x4 051b 00d2 | | Pop_Control Pop_Count_2 051c 7802 |x | Jump 0x51f 051d 4800 |H | Short_Literal 0x0 051e 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 051f 00da | | Load_Top At_Offset_2 0520 e5f8 | | Load 0x2,-0x8 0521 0227 | ' | Execute Access,All_Reference 0522 3435 |45 | Execute Record,Field_Reference,Field_Number 0x35 0523 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 0524 450a |E | Exit_Suprogram New_Top_Offset 0xa 0525 0000 0000 | | .XXX[0x3] 0527 0000 | | 0528 ; -------------------------------------------------------------------------------------- 0528 ; SUBPROGRAM 0528 ; -------------------------------------------------------------------------------------- 0528 0539 | 9 | .CONST 0x0539 ; Address of begin 0529 0004 | | .CONST 0x0004 ; Address of exception handler 052a 0004 | | .CONST 0x0004 ; Number of locals 052b INIT_0528: 052b 00e3 | | Load_Encached Natural_Cache 052c e5fd | | Load 0x2,-0x3 052d 4801 |H | Short_Literal 0x1 052e e5f5 | | Load 0x2,-0xb 052f 01ab | | Execute Matrix,Length 0530 0271 | q | Execute Discrete,Times 0531 4802 |H | Short_Literal 0x2 0532 e5f5 | | Load 0x2,-0xb 0533 01ab | | Execute Matrix,Length 0534 0271 | q | Execute Discrete,Times 0535 e007 | | Load 0x0,0x7 0536 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 0537 029f 0953 | S| Declare_Subprogram INIT_0950,For_Call 0539 BODY_0528: 0539 e5f6 | | Load 0x2,-0xa 053a 0227 | ' | Execute Access,All_Reference 053b 3435 |45 | Execute Record,Field_Reference,Field_Number 0x35 053c 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 053d 4804 |H | Short_Literal 0x4 053e 026f | o | Execute Discrete,Remainder 053f 6802 |h | Jump_Zero 0x542 0540 e002 | | Load 0x0,0x2 0541 0257 | W | Execute Discrete,Raise 0542 00d9 | | Load_Top At_Offset_1 0543 7001 |p | Jump_Nonzero 0x545 0544 450c |E | Exit_Suprogram New_Top_Offset 0xc 0545 00d9 | | Load_Top At_Offset_1 0546 e5f6 | | Load 0x2,-0xa 0547 0227 | ' | Execute Access,All_Reference 0548 3435 |45 | Execute Record,Field_Reference,Field_Number 0x35 0549 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 054a 01dc | | Execute Vector,Last 054b e5f6 | | Load 0x2,-0xa 054c 0227 | ' | Execute Access,All_Reference 054d 3435 |45 | Execute Record,Field_Reference,Field_Number 0x35 054e 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 054f 0272 | r | Execute Discrete,Minus 0550 00d8 | | Load_Top At_Offset_0 0551 e007 | | Load 0x0,0x7 0552 0260 | ` | Execute Discrete,In_Type 0553 7001 |p | Jump_Nonzero 0x555 0554 0801 | | Execute_Immediate Raise,0x1 0555 027a | z | Execute Discrete,Less_Equal 0556 6824 |h$ | Jump_Zero 0x57b 0557 e5f6 | | Load 0x2,-0xa 0558 0227 | ' | Execute Access,All_Reference 0559 3435 |45 | Execute Record,Field_Reference,Field_Number 0x35 055a 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 055b 00da | | Load_Top At_Offset_2 055c 00d8 | | Load_Top At_Offset_0 055d 00e3 | | Load_Encached Natural_Cache 055e 0260 | ` | Execute Discrete,In_Type 055f 7001 |p | Jump_Nonzero 0x561 0560 0801 | | Execute_Immediate Raise,0x1 0561 0273 | s | Execute Discrete,Plus 0562 005b | [ | Store_Top Discrete,At_Offset_3 0563 e5f6 | | Load 0x2,-0xa 0564 0229 | ) | Execute Access,All_Read 0565 3c35 |<5 | Execute Record,Field_Read,Field_Number 0x35 0566 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0567 e5f6 | | Load 0x2,-0xa 0568 0227 | ' | Execute Access,All_Reference 0569 3435 |45 | Execute Record,Field_Reference,Field_Number 0x35 056a 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 056b 0a01 | | Execute_Immediate Plus,0x1 056c 00d8 | | Load_Top At_Offset_0 056d 00e2 | | Load_Encached Integer_Cache 056e 0260 | ` | Execute Discrete,In_Type 056f 7001 |p | Jump_Nonzero 0x571 0570 0801 | | Execute_Immediate Raise,0x1 0571 e402 | | Load 0x2,0x2 0572 00da | | Load_Top At_Offset_2 0573 035b | [ | Declare_Type Array,Constrained 0574 00d0 | | Action Swap_Control 0575 01cd | | Execute Vector,Slice_Reference 0576 00d8 | | Load_Top At_Offset_0 0577 e5f5 | | Load 0x2,-0xb 0578 85fc | | Call 0x2,-0x4 0579 00d2 | | Pop_Control Pop_Count_2 057a 7821 |x! | Jump 0x59c 057b e5f6 | | Load 0x2,-0xa 057c 8004 | | Call 0x0,0x4 057d 00d9 | | Load_Top At_Offset_1 057e e5f6 | | Load 0x2,-0xa 057f 0227 | ' | Execute Access,All_Reference 0580 3435 |45 | Execute Record,Field_Reference,Field_Number 0x35 0581 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0582 01dc | | Execute Vector,Last 0583 027a | z | Execute Discrete,Less_Equal 0584 6816 |h | Jump_Zero 0x59b 0585 00d9 | | Load_Top At_Offset_1 0586 00d8 | | Load_Top At_Offset_0 0587 00e3 | | Load_Encached Natural_Cache 0588 0260 | ` | Execute Discrete,In_Type 0589 7001 |p | Jump_Nonzero 0x58b 058a 0801 | | Execute_Immediate Raise,0x1 058b 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 058c e5f6 | | Load 0x2,-0xa 058d 0229 | ) | Execute Access,All_Read 058e 3c35 |<5 | Execute Record,Field_Read,Field_Number 0x35 058f 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0590 4801 |H | Short_Literal 0x1 0591 e402 | | Load 0x2,0x2 0592 00da | | Load_Top At_Offset_2 0593 035b | [ | Declare_Type Array,Constrained 0594 00d0 | | Action Swap_Control 0595 01cd | | Execute Vector,Slice_Reference 0596 00d8 | | Load_Top At_Offset_0 0597 e5f5 | | Load 0x2,-0xb 0598 85fc | | Call 0x2,-0x4 0599 00d2 | | Pop_Control Pop_Count_2 059a 7801 |x | Jump 0x59c 059b 8404 | | Call 0x2,0x4 059c 0008 | | Action Idle 059d 0007 | | Action Break_Optional 059e 00da | | Load_Top At_Offset_2 059f 4804 |H | Short_Literal 0x4 05a0 026f | o | Execute Discrete,Remainder 05a1 0b01 | | Execute_Immediate Case_Compare,0x1 05a2 7006 |p | Jump_Nonzero 0x5a9 05a3 0b02 | | Execute_Immediate Case_Compare,0x2 05a4 7020 |p | Jump_Nonzero 0x5c5 05a5 0f03 | | Execute_Immediate Equal,0x3 05a6 7032 |p2 | Jump_Nonzero 0x5d9 05a7 0008 | | Action Idle 05a8 783a |x: | Jump 0x5e3 05a9 00d1 | | Pop_Control Pop_Count_1 05aa 00da | | Load_Top At_Offset_2 05ab 0a03 | | Execute_Immediate Plus,0x3 05ac 005b | [ | Store_Top Discrete,At_Offset_3 05ad 4800 |H | Short_Literal 0x0 05ae 00db | | Load_Top At_Offset_3 05af 0afe | | Execute_Immediate Plus,-0x2 05b0 e5f6 | | Load 0x2,-0xa 05b1 0227 | ' | Execute Access,All_Reference 05b2 3435 |45 | Execute Record,Field_Reference,Field_Number 0x35 05b3 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 05b4 01d6 | | Execute Vector,Field_Write 05b5 4800 |H | Short_Literal 0x0 05b6 00db | | Load_Top At_Offset_3 05b7 0aff | | Execute_Immediate Plus,-0x1 05b8 e5f6 | | Load 0x2,-0xa 05b9 0227 | ' | Execute Access,All_Reference 05ba 3435 |45 | Execute Record,Field_Reference,Field_Number 0x35 05bb 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 05bc 01d6 | | Execute Vector,Field_Write 05bd 4800 |H | Short_Literal 0x0 05be 00db | | Load_Top At_Offset_3 05bf e5f6 | | Load 0x2,-0xa 05c0 0227 | ' | Execute Access,All_Reference 05c1 3435 |45 | Execute Record,Field_Reference,Field_Number 0x35 05c2 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 05c3 01d6 | | Execute Vector,Field_Write 05c4 781e |x | Jump 0x5e3 05c5 00d1 | | Pop_Control Pop_Count_1 05c6 00da | | Load_Top At_Offset_2 05c7 0a02 | | Execute_Immediate Plus,0x2 05c8 005b | [ | Store_Top Discrete,At_Offset_3 05c9 4800 |H | Short_Literal 0x0 05ca 00db | | Load_Top At_Offset_3 05cb 0aff | | Execute_Immediate Plus,-0x1 05cc e5f6 | | Load 0x2,-0xa 05cd 0227 | ' | Execute Access,All_Reference 05ce 3435 |45 | Execute Record,Field_Reference,Field_Number 0x35 05cf 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 05d0 01d6 | | Execute Vector,Field_Write 05d1 4800 |H | Short_Literal 0x0 05d2 00db | | Load_Top At_Offset_3 05d3 e5f6 | | Load 0x2,-0xa 05d4 0227 | ' | Execute Access,All_Reference 05d5 3435 |45 | Execute Record,Field_Reference,Field_Number 0x35 05d6 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 05d7 01d6 | | Execute Vector,Field_Write 05d8 780a |x | Jump 0x5e3 05d9 00da | | Load_Top At_Offset_2 05da 0a01 | | Execute_Immediate Plus,0x1 05db 005b | [ | Store_Top Discrete,At_Offset_3 05dc 4800 |H | Short_Literal 0x0 05dd 00db | | Load_Top At_Offset_3 05de e5f6 | | Load 0x2,-0xa 05df 0227 | ' | Execute Access,All_Reference 05e0 3435 |45 | Execute Record,Field_Reference,Field_Number 0x35 05e1 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 05e2 01d6 | | Execute Vector,Field_Write 05e3 00da | | Load_Top At_Offset_2 05e4 e5f6 | | Load 0x2,-0xa 05e5 0227 | ' | Execute Access,All_Reference 05e6 3435 |45 | Execute Record,Field_Reference,Field_Number 0x35 05e7 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 05e8 450c |E | Exit_Suprogram New_Top_Offset 0xc 05e9 0000 0000 | | .BLANK 0000[0x7] 05f0 ; -------------------------------------------------------------------------------------- 05f0 ; SUBPROGRAM 05f0 ; -------------------------------------------------------------------------------------- 05f0 05fe | | .CONST 0x05fe ; Address of begin 05f1 0004 | | .CONST 0x0004 ; Address of exception handler 05f2 0005 | | .CONST 0x0005 ; Number of locals 05f3 INIT_05f0: 05f3 e5fd | | Load 0x2,-0x3 05f4 e5f1 | | Load 0x2,-0xf 05f5 01db | | Execute Vector,Length 05f6 0271 | q | Execute Discrete,Times 05f7 e006 | | Load 0x0,0x6 05f8 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 05f9 00e3 | | Load_Encached Natural_Cache 05fa e007 | | Load 0x0,0x7 05fb 0007 | | Action Break_Optional 05fc e007 | | Load 0x0,0x7 05fd 0007 | | Action Break_Optional 05fe BODY_05f0: 05fe e5fb | | Load 0x2,-0x5 05ff 4804 |H | Short_Literal 0x4 0600 026f | o | Execute Discrete,Remainder 0601 6802 |h | Jump_Zero 0x604 0602 e002 | | Load 0x0,0x2 0603 0257 | W | Execute Discrete,Raise 0604 e5f4 | | Load 0x2,-0xc 0605 0227 | ' | Execute Access,All_Reference 0606 3435 |45 | Execute Record,Field_Reference,Field_Number 0x35 0607 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0608 4804 |H | Short_Literal 0x4 0609 026f | o | Execute Discrete,Remainder 060a 6802 |h | Jump_Zero 0x60d 060b e002 | | Load 0x0,0x2 060c 0257 | W | Execute Discrete,Raise 060d e5f3 | | Load 0x2,-0xd 060e e5f1 | | Load 0x2,-0xf 060f 01db | | Execute Vector,Length 0610 027a | z | Execute Discrete,Less_Equal 0611 6802 |h | Jump_Zero 0x614 0612 e002 | | Load 0x0,0x2 0613 0257 | W | Execute Discrete,Raise 0614 e5f4 | | Load 0x2,-0xc 0615 0227 | ' | Execute Access,All_Reference 0616 342d |4- | Execute Record,Field_Reference,Field_Number 0x2d 0617 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0618 6802 |h | Jump_Zero 0x61b 0619 e5f4 | | Load 0x2,-0xc 061a 8003 | | Call 0x0,0x3 061b 00db | | Load_Top At_Offset_3 061c e5f4 | | Load 0x2,-0xc 061d 0227 | ' | Execute Access,All_Reference 061e 3435 |45 | Execute Record,Field_Reference,Field_Number 0x35 061f 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0620 01dc | | Execute Vector,Last 0621 e5f4 | | Load 0x2,-0xc 0622 0227 | ' | Execute Access,All_Reference 0623 3435 |45 | Execute Record,Field_Reference,Field_Number 0x35 0624 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0625 0272 | r | Execute Discrete,Minus 0626 e5fb | | Load 0x2,-0x5 0627 0272 | r | Execute Discrete,Minus 0628 00d8 | | Load_Top At_Offset_0 0629 e007 | | Load 0x0,0x7 062a 0260 | ` | Execute Discrete,In_Type 062b 7001 |p | Jump_Nonzero 0x62d 062c 0801 | | Execute_Immediate Raise,0x1 062d 027a | z | Execute Discrete,Less_Equal 062e 6871 |hq | Jump_Zero 0x6a0 062f e5f4 | | Load 0x2,-0xc 0630 0227 | ' | Execute Access,All_Reference 0631 3435 |45 | Execute Record,Field_Reference,Field_Number 0x35 0632 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0633 e5fb | | Load 0x2,-0x5 0634 0273 | s | Execute Discrete,Plus 0635 e402 | | Load 0x2,0x2 0636 0273 | s | Execute Discrete,Plus 0637 005b | [ | Store_Top Discrete,At_Offset_3 0638 e5f4 | | Load 0x2,-0xc 0639 0227 | ' | Execute Access,All_Reference 063a 3435 |45 | Execute Record,Field_Reference,Field_Number 0x35 063b 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 063c 01dc | | Execute Vector,Last 063d 00db | | Load_Top At_Offset_3 063e e5fd | | Load 0x2,-0x3 063f 0270 | p | Execute Discrete,Divide 0640 0272 | r | Execute Discrete,Minus 0641 00d8 | | Load_Top At_Offset_0 0642 e007 | | Load 0x0,0x7 0643 0260 | ` | Execute Discrete,In_Type 0644 7001 |p | Jump_Nonzero 0x646 0645 0801 | | Execute_Immediate Raise,0x1 0646 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 0647 00d8 | | Load_Top At_Offset_0 0648 e5f3 | | Load 0x2,-0xd 0649 e5f1 | | Load 0x2,-0xf 064a 01db | | Execute Vector,Length 064b 0272 | r | Execute Discrete,Minus 064c 00d8 | | Load_Top At_Offset_0 064d e007 | | Load 0x0,0x7 064e 0260 | ` | Execute Discrete,In_Type 064f 7001 |p | Jump_Nonzero 0x651 0650 0801 | | Execute_Immediate Raise,0x1 0651 8008 | | Call 0x0,0x8 0652 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 0653 00d8 | | Load_Top At_Offset_0 0654 c5ef | | Store 0x2,-0x11 0655 00d8 | | Load_Top At_Offset_0 0656 7024 |p$ | Jump_Nonzero 0x67b 0657 e5f4 | | Load 0x2,-0xc 0658 0229 | ) | Execute Access,All_Read 0659 3c35 |<5 | Execute Record,Field_Read,Field_Number 0x35 065a 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 065b e5f4 | | Load 0x2,-0xc 065c 0227 | ' | Execute Access,All_Reference 065d 3435 |45 | Execute Record,Field_Reference,Field_Number 0x35 065e 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 065f 0a01 | | Execute_Immediate Plus,0x1 0660 00d8 | | Load_Top At_Offset_0 0661 00e2 | | Load_Encached Integer_Cache 0662 0260 | ` | Execute Discrete,In_Type 0663 7001 |p | Jump_Nonzero 0x665 0664 0801 | | Execute_Immediate Raise,0x1 0665 e5f4 | | Load 0x2,-0xc 0666 0227 | ' | Execute Access,All_Reference 0667 3435 |45 | Execute Record,Field_Reference,Field_Number 0x35 0668 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0669 e5fb | | Load 0x2,-0x5 066a 0273 | s | Execute Discrete,Plus 066b 00d8 | | Load_Top At_Offset_0 066c 00e2 | | Load_Encached Integer_Cache 066d 0260 | ` | Execute Discrete,In_Type 066e 7001 |p | Jump_Nonzero 0x670 066f 0801 | | Execute_Immediate Raise,0x1 0670 00da | | Load_Top At_Offset_2 0671 035b | [ | Declare_Type Array,Constrained 0672 00d0 | | Action Swap_Control 0673 01cd | | Execute Vector,Slice_Reference 0674 00d8 | | Load_Top At_Offset_0 0675 e5f2 | | Load 0x2,-0xe 0676 85f9 | | Call 0x2,-0x7 0677 00d2 | | Pop_Control Pop_Count_2 0678 4800 |H | Short_Literal 0x0 0679 a5f0 | | Store_Unchecked 0x2,-0x10 067a 7806 |x | Jump 0x681 067b e5f4 | | Load 0x2,-0xc 067c 0227 | ' | Execute Access,All_Reference 067d 3435 |45 | Execute Record,Field_Reference,Field_Number 0x35 067e 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 067f 0a01 | | Execute_Immediate Plus,0x1 0680 c5f0 | | Store 0x2,-0x10 0681 e5f4 | | Load 0x2,-0xc 0682 0229 | ) | Execute Access,All_Read 0683 3c35 |<5 | Execute Record,Field_Read,Field_Number 0x35 0684 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0685 e5f4 | | Load 0x2,-0xc 0686 0227 | ' | Execute Access,All_Reference 0687 3435 |45 | Execute Record,Field_Reference,Field_Number 0x35 0688 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0689 e5fb | | Load 0x2,-0x5 068a 0273 | s | Execute Discrete,Plus 068b 0a01 | | Execute_Immediate Plus,0x1 068c 00d8 | | Load_Top At_Offset_0 068d 00e2 | | Load_Encached Integer_Cache 068e 0260 | ` | Execute Discrete,In_Type 068f 7001 |p | Jump_Nonzero 0x691 0690 0801 | | Execute_Immediate Raise,0x1 0691 e403 | | Load 0x2,0x3 0692 00da | | Load_Top At_Offset_2 0693 035b | [ | Declare_Type Array,Constrained 0694 00d0 | | Action Swap_Control 0695 01cd | | Execute Vector,Slice_Reference 0696 00d8 | | Load_Top At_Offset_0 0697 e5f1 | | Load 0x2,-0xf 0698 85fa | | Call 0x2,-0x6 0699 00d2 | | Pop_Control Pop_Count_2 069a 00da | | Load_Top At_Offset_2 069b e5f4 | | Load 0x2,-0xc 069c 0227 | ' | Execute Access,All_Reference 069d 3435 |45 | Execute Record,Field_Reference,Field_Number 0x35 069e 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 069f 4510 |E | Exit_Suprogram New_Top_Offset 0x10 06a0 e5f4 | | Load 0x2,-0xc 06a1 8004 | | Call 0x0,0x4 06a2 00db | | Load_Top At_Offset_3 06a3 e5f4 | | Load 0x2,-0xc 06a4 0227 | ' | Execute Access,All_Reference 06a5 3435 |45 | Execute Record,Field_Reference,Field_Number 0x35 06a6 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 06a7 01dc | | Execute Vector,Last 06a8 e5fb | | Load 0x2,-0x5 06a9 0272 | r | Execute Discrete,Minus 06aa 00d8 | | Load_Top At_Offset_0 06ab e007 | | Load 0x0,0x7 06ac 0260 | ` | Execute Discrete,In_Type 06ad 7001 |p | Jump_Nonzero 0x6af 06ae 0801 | | Execute_Immediate Raise,0x1 06af 027a | z | Execute Discrete,Less_Equal 06b0 6854 |hT | Jump_Zero 0x705 06b1 e5fb | | Load 0x2,-0x5 06b2 e402 | | Load 0x2,0x2 06b3 0273 | s | Execute Discrete,Plus 06b4 005b | [ | Store_Top Discrete,At_Offset_3 06b5 e5f4 | | Load 0x2,-0xc 06b6 0227 | ' | Execute Access,All_Reference 06b7 3435 |45 | Execute Record,Field_Reference,Field_Number 0x35 06b8 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 06b9 01dc | | Execute Vector,Last 06ba 00db | | Load_Top At_Offset_3 06bb e5fd | | Load 0x2,-0x3 06bc 0270 | p | Execute Discrete,Divide 06bd 0272 | r | Execute Discrete,Minus 06be 00d8 | | Load_Top At_Offset_0 06bf e007 | | Load 0x0,0x7 06c0 0260 | ` | Execute Discrete,In_Type 06c1 7001 |p | Jump_Nonzero 0x6c3 06c2 0801 | | Execute_Immediate Raise,0x1 06c3 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 06c4 00d8 | | Load_Top At_Offset_0 06c5 e5f3 | | Load 0x2,-0xd 06c6 e5f1 | | Load 0x2,-0xf 06c7 01db | | Execute Vector,Length 06c8 0272 | r | Execute Discrete,Minus 06c9 00d8 | | Load_Top At_Offset_0 06ca e007 | | Load 0x0,0x7 06cb 0260 | ` | Execute Discrete,In_Type 06cc 7001 |p | Jump_Nonzero 0x6ce 06cd 0801 | | Execute_Immediate Raise,0x1 06ce 8008 | | Call 0x0,0x8 06cf 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 06d0 00d8 | | Load_Top At_Offset_0 06d1 c5ef | | Store 0x2,-0x11 06d2 00d8 | | Load_Top At_Offset_0 06d3 7011 |p | Jump_Nonzero 0x6e5 06d4 e5f4 | | Load 0x2,-0xc 06d5 0229 | ) | Execute Access,All_Read 06d6 3c35 |<5 | Execute Record,Field_Read,Field_Number 0x35 06d7 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 06d8 4801 |H | Short_Literal 0x1 06d9 e5fb | | Load 0x2,-0x5 06da 00da | | Load_Top At_Offset_2 06db 035b | [ | Declare_Type Array,Constrained 06dc 00d0 | | Action Swap_Control 06dd 01cd | | Execute Vector,Slice_Reference 06de 00d8 | | Load_Top At_Offset_0 06df e5f2 | | Load 0x2,-0xe 06e0 85f9 | | Call 0x2,-0x7 06e1 00d2 | | Pop_Control Pop_Count_2 06e2 4800 |H | Short_Literal 0x0 06e3 a5f0 | | Store_Unchecked 0x2,-0x10 06e4 7806 |x | Jump 0x6eb 06e5 e5f4 | | Load 0x2,-0xc 06e6 0227 | ' | Execute Access,All_Reference 06e7 3435 |45 | Execute Record,Field_Reference,Field_Number 0x35 06e8 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 06e9 0a01 | | Execute_Immediate Plus,0x1 06ea c5f0 | | Store 0x2,-0x10 06eb e5f4 | | Load 0x2,-0xc 06ec 0229 | ) | Execute Access,All_Read 06ed 3c35 |<5 | Execute Record,Field_Read,Field_Number 0x35 06ee 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 06ef e5fb | | Load 0x2,-0x5 06f0 0a01 | | Execute_Immediate Plus,0x1 06f1 00d8 | | Load_Top At_Offset_0 06f2 00e2 | | Load_Encached Integer_Cache 06f3 0260 | ` | Execute Discrete,In_Type 06f4 7001 |p | Jump_Nonzero 0x6f6 06f5 0801 | | Execute_Immediate Raise,0x1 06f6 e403 | | Load 0x2,0x3 06f7 00da | | Load_Top At_Offset_2 06f8 035b | [ | Declare_Type Array,Constrained 06f9 00d0 | | Action Swap_Control 06fa 01cd | | Execute Vector,Slice_Reference 06fb 00d8 | | Load_Top At_Offset_0 06fc e5f1 | | Load 0x2,-0xf 06fd 85fa | | Call 0x2,-0x6 06fe 00d2 | | Pop_Control Pop_Count_2 06ff 00da | | Load_Top At_Offset_2 0700 e5f4 | | Load 0x2,-0xc 0701 0227 | ' | Execute Access,All_Reference 0702 3435 |45 | Execute Record,Field_Reference,Field_Number 0x35 0703 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 0704 4510 |E | Exit_Suprogram New_Top_Offset 0x10 0705 4800 |H | Short_Literal 0x0 0706 a5f0 | | Store_Unchecked 0x2,-0x10 0707 4800 |H | Short_Literal 0x0 0708 a5ef | | Store_Unchecked 0x2,-0x11 0709 e5f4 | | Load 0x2,-0xc 070a 0229 | ) | Execute Access,All_Read 070b 3c35 |<5 | Execute Record,Field_Read,Field_Number 0x35 070c 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 070d 4801 |H | Short_Literal 0x1 070e e5fb | | Load 0x2,-0x5 070f 00da | | Load_Top At_Offset_2 0710 035b | [ | Declare_Type Array,Constrained 0711 00d0 | | Action Swap_Control 0712 01cd | | Execute Vector,Slice_Reference 0713 00d8 | | Load_Top At_Offset_0 0714 e5f2 | | Load 0x2,-0xe 0715 85f9 | | Call 0x2,-0x7 0716 00d2 | | Pop_Control Pop_Count_2 0717 e5f1 | | Load 0x2,-0xf 0718 01dd | | Execute Vector,First 0719 00d8 | | Load_Top At_Offset_0 071a e007 | | Load 0x0,0x7 071b 0260 | ` | Execute Discrete,In_Type 071c 7001 |p | Jump_Nonzero 0x71e 071d 0801 | | Execute_Immediate Raise,0x1 071e 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 071f e5f4 | | Load 0x2,-0xc 0720 0227 | ' | Execute Access,All_Reference 0721 3434 |44 | Execute Record,Field_Reference,Field_Number 0x34 0722 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0723 01dc | | Execute Vector,Last 0724 e5fb | | Load 0x2,-0x5 0725 0272 | r | Execute Discrete,Minus 0726 e5fd | | Load 0x2,-0x3 0727 0270 | p | Execute Discrete,Divide 0728 00d8 | | Load_Top At_Offset_0 0729 e007 | | Load 0x0,0x7 072a 0260 | ` | Execute Discrete,In_Type 072b 7001 |p | Jump_Nonzero 0x72d 072c 0801 | | Execute_Immediate Raise,0x1 072d 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 072e e5fd | | Load 0x2,-0x3 072f 00d9 | | Load_Top At_Offset_1 0730 00d8 | | Load_Top At_Offset_0 0731 00e3 | | Load_Encached Natural_Cache 0732 0260 | ` | Execute Discrete,In_Type 0733 7001 |p | Jump_Nonzero 0x735 0734 0801 | | Execute_Immediate Raise,0x1 0735 0271 | q | Execute Discrete,Times 0736 005b | [ | Store_Top Discrete,At_Offset_3 0737 e5f4 | | Load 0x2,-0xc 0738 0229 | ) | Execute Access,All_Read 0739 3c35 |<5 | Execute Record,Field_Read,Field_Number 0x35 073a 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 073b e5fb | | Load 0x2,-0x5 073c 0a01 | | Execute_Immediate Plus,0x1 073d 00d8 | | Load_Top At_Offset_0 073e 00e2 | | Load_Encached Integer_Cache 073f 0260 | ` | Execute Discrete,In_Type 0740 7001 |p | Jump_Nonzero 0x742 0741 0801 | | Execute_Immediate Raise,0x1 0742 e403 | | Load 0x2,0x3 0743 00da | | Load_Top At_Offset_2 0744 035b | [ | Declare_Type Array,Constrained 0745 00d0 | | Action Swap_Control 0746 01cd | | Execute Vector,Slice_Reference 0747 00d8 | | Load_Top At_Offset_0 0748 00db | | Load_Top At_Offset_3 0749 00d8 | | Load_Top At_Offset_0 074a e5f7 | | Load 0x2,-0x9 074b 0260 | ` | Execute Discrete,In_Type 074c 7001 |p | Jump_Nonzero 0x74e 074d 0801 | | Execute_Immediate Raise,0x1 074e e404 | | Load 0x2,0x4 074f e405 | | Load 0x2,0x5 0750 0273 | s | Execute Discrete,Plus 0751 0aff | | Execute_Immediate Plus,-0x1 0752 00d8 | | Load_Top At_Offset_0 0753 e5f7 | | Load 0x2,-0x9 0754 0260 | ` | Execute Discrete,In_Type 0755 7001 |p | Jump_Nonzero 0x757 0756 0801 | | Execute_Immediate Raise,0x1 0757 e5f1 | | Load 0x2,-0xf 0758 01cf | | Execute Vector,Slice_Read 0759 85fa | | Call 0x2,-0x6 075a 00d2 | | Pop_Control Pop_Count_2 075b 00da | | Load_Top At_Offset_2 075c e5f4 | | Load 0x2,-0xc 075d 0227 | ' | Execute Access,All_Reference 075e 3435 |45 | Execute Record,Field_Reference,Field_Number 0x35 075f 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 0760 e5f4 | | Load 0x2,-0xc 0761 8004 | | Call 0x0,0x4 0762 00d9 | | Load_Top At_Offset_1 0763 00d9 | | Load_Top At_Offset_1 0764 0273 | s | Execute Discrete,Plus 0765 005a | Z | Store_Top Discrete,At_Offset_2 0766 e5f4 | | Load 0x2,-0xc 0767 0227 | ' | Execute Access,All_Reference 0768 3434 |44 | Execute Record,Field_Reference,Field_Number 0x34 0769 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 076a 01dc | | Execute Vector,Last 076b e5fd | | Load 0x2,-0x3 076c 0270 | p | Execute Discrete,Divide 076d 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 076e e5fd | | Load 0x2,-0x3 076f 00d9 | | Load_Top At_Offset_1 0770 00d8 | | Load_Top At_Offset_0 0771 00e3 | | Load_Encached Natural_Cache 0772 0260 | ` | Execute Discrete,In_Type 0773 7001 |p | Jump_Nonzero 0x775 0774 0801 | | Execute_Immediate Raise,0x1 0775 0271 | q | Execute Discrete,Times 0776 005b | [ | Store_Top Discrete,At_Offset_3 0777 00cf | | Action Mark_Auxiliary 0778 782a |x* | Jump 0x7a3 0779 e5f4 | | Load 0x2,-0xc 077a 0229 | ) | Execute Access,All_Read 077b 3c35 |<5 | Execute Record,Field_Read,Field_Number 0x35 077c 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 077d 4801 |H | Short_Literal 0x1 077e e403 | | Load 0x2,0x3 077f 00da | | Load_Top At_Offset_2 0780 035b | [ | Declare_Type Array,Constrained 0781 00d0 | | Action Swap_Control 0782 01cd | | Execute Vector,Slice_Reference 0783 00d8 | | Load_Top At_Offset_0 0784 e404 | | Load 0x2,0x4 0785 00d8 | | Load_Top At_Offset_0 0786 e5f7 | | Load 0x2,-0x9 0787 0260 | ` | Execute Discrete,In_Type 0788 7001 |p | Jump_Nonzero 0x78a 0789 0801 | | Execute_Immediate Raise,0x1 078a e404 | | Load 0x2,0x4 078b e405 | | Load 0x2,0x5 078c 0273 | s | Execute Discrete,Plus 078d 0aff | | Execute_Immediate Plus,-0x1 078e 00d8 | | Load_Top At_Offset_0 078f e5f7 | | Load 0x2,-0x9 0790 0260 | ` | Execute Discrete,In_Type 0791 7001 |p | Jump_Nonzero 0x793 0792 0801 | | Execute_Immediate Raise,0x1 0793 e5f1 | | Load 0x2,-0xf 0794 01cf | | Execute Vector,Slice_Read 0795 85fa | | Call 0x2,-0x6 0796 00d2 | | Pop_Control Pop_Count_2 0797 00db | | Load_Top At_Offset_3 0798 e5f4 | | Load 0x2,-0xc 0799 0227 | ' | Execute Access,All_Reference 079a 3435 |45 | Execute Record,Field_Reference,Field_Number 0x35 079b 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 079c e5f4 | | Load 0x2,-0xc 079d 8004 | | Call 0x0,0x4 079e 00da | | Load_Top At_Offset_2 079f 00da | | Load_Top At_Offset_2 07a0 0273 | s | Execute Discrete,Plus 07a1 005b | [ | Store_Top Discrete,At_Offset_3 07a2 00c9 | | Action Pop_Auxiliary_Loop 07a3 e5f1 | | Load 0x2,-0xf 07a4 01dc | | Execute Vector,Last 07a5 00d8 | | Load_Top At_Offset_0 07a6 e007 | | Load 0x0,0x7 07a7 0260 | ` | Execute Discrete,In_Type 07a8 7001 |p | Jump_Nonzero 0x7aa 07a9 0801 | | Execute_Immediate Raise,0x1 07aa 00db | | Load_Top At_Offset_3 07ab 0272 | r | Execute Discrete,Minus 07ac 00da | | Load_Top At_Offset_2 07ad 027b | { | Execute Discrete,Greater_Equal 07ae 77ca |w | Jump_Nonzero 0x779 07af 00ce | | Action Pop_Auxiliary 07b0 00d9 | | Load_Top At_Offset_1 07b1 e5f1 | | Load 0x2,-0xf 07b2 01dc | | Execute Vector,Last 07b3 00d8 | | Load_Top At_Offset_0 07b4 e007 | | Load 0x0,0x7 07b5 0260 | ` | Execute Discrete,In_Type 07b6 7001 |p | Jump_Nonzero 0x7b8 07b7 0801 | | Execute_Immediate Raise,0x1 07b8 027a | z | Execute Discrete,Less_Equal 07b9 682e |h. | Jump_Zero 0x7e8 07ba e5fd | | Load 0x2,-0x3 07bb e5f1 | | Load 0x2,-0xf 07bc 01dc | | Execute Vector,Last 07bd 00d8 | | Load_Top At_Offset_0 07be e007 | | Load 0x0,0x7 07bf 0260 | ` | Execute Discrete,In_Type 07c0 7001 |p | Jump_Nonzero 0x7c2 07c1 0801 | | Execute_Immediate Raise,0x1 07c2 00db | | Load_Top At_Offset_3 07c3 0272 | r | Execute Discrete,Minus 07c4 0a01 | | Execute_Immediate Plus,0x1 07c5 00d8 | | Load_Top At_Offset_0 07c6 00e3 | | Load_Encached Natural_Cache 07c7 0260 | ` | Execute Discrete,In_Type 07c8 7001 |p | Jump_Nonzero 0x7ca 07c9 0801 | | Execute_Immediate Raise,0x1 07ca 0271 | q | Execute Discrete,Times 07cb 005b | [ | Store_Top Discrete,At_Offset_3 07cc e5f4 | | Load 0x2,-0xc 07cd 0229 | ) | Execute Access,All_Read 07ce 3c35 |<5 | Execute Record,Field_Read,Field_Number 0x35 07cf 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 07d0 4801 |H | Short_Literal 0x1 07d1 e403 | | Load 0x2,0x3 07d2 00da | | Load_Top At_Offset_2 07d3 035b | [ | Declare_Type Array,Constrained 07d4 00d0 | | Action Swap_Control 07d5 01cd | | Execute Vector,Slice_Reference 07d6 00d8 | | Load_Top At_Offset_0 07d7 00db | | Load_Top At_Offset_3 07d8 00d8 | | Load_Top At_Offset_0 07d9 e5f7 | | Load 0x2,-0x9 07da 0260 | ` | Execute Discrete,In_Type 07db 7001 |p | Jump_Nonzero 0x7dd 07dc 0801 | | Execute_Immediate Raise,0x1 07dd e5f1 | | Load 0x2,-0xf 07de 01dc | | Execute Vector,Last 07df e5f1 | | Load 0x2,-0xf 07e0 01cf | | Execute Vector,Slice_Read 07e1 85fa | | Call 0x2,-0x6 07e2 00d2 | | Pop_Control Pop_Count_2 07e3 00da | | Load_Top At_Offset_2 07e4 e5f4 | | Load 0x2,-0xc 07e5 0227 | ' | Execute Access,All_Reference 07e6 3435 |45 | Execute Record,Field_Reference,Field_Number 0x35 07e7 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 07e8 4510 |E | Exit_Suprogram New_Top_Offset 0x10 07e9 0000 0000 | | .BLANK 0000[0x7] 07f0 ; -------------------------------------------------------------------------------------- 07f0 ; SUBPROGRAM 07f0 ; -------------------------------------------------------------------------------------- 07f0 07f6 | | .CONST 0x07f6 ; Address of begin 07f1 0004 | | .CONST 0x0004 ; Address of exception handler 07f2 0003 | | .CONST 0x0003 ; Number of locals 07f3 INIT_07f0: 07f3 00e3 | | Load_Encached Natural_Cache 07f4 029f 09db | | Declare_Subprogram INIT_09d8,For_Call 07f6 BODY_07f0: 07f6 e5fd | | Load 0x2,-0x3 07f7 4804 |H | Short_Literal 0x4 07f8 026f | o | Execute Discrete,Remainder 07f9 6802 |h | Jump_Zero 0x7fc 07fa e002 | | Load 0x0,0x2 07fb 0257 | W | Execute Discrete,Raise 07fc e5fa | | Load 0x2,-0x6 07fd 0227 | ' | Execute Access,All_Reference 07fe 3435 |45 | Execute Record,Field_Reference,Field_Number 0x35 07ff 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0800 4804 |H | Short_Literal 0x4 0801 026f | o | Execute Discrete,Remainder 0802 6802 |h | Jump_Zero 0x805 0803 e002 | | Load 0x0,0x2 0804 0257 | W | Execute Discrete,Raise 0805 e5fa | | Load 0x2,-0x6 0806 0229 | ) | Execute Access,All_Read 0807 3c35 |<5 | Execute Record,Field_Read,Field_Number 0x35 0808 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0809 e5f8 | | Load 0x2,-0x8 080a 00d8 | | Load_Top At_Offset_0 080b e5fd | | Load 0x2,-0x3 080c 0273 | s | Execute Discrete,Plus 080d 0aff | | Execute_Immediate Plus,-0x1 080e 00d8 | | Load_Top At_Offset_0 080f 00e2 | | Load_Encached Integer_Cache 0810 0260 | ` | Execute Discrete,In_Type 0811 7001 |p | Jump_Nonzero 0x813 0812 0801 | | Execute_Immediate Raise,0x1 0813 00da | | Load_Top At_Offset_2 0814 035b | [ | Declare_Type Array,Constrained 0815 00d0 | | Action Swap_Control 0816 01cd | | Execute Vector,Slice_Reference 0817 00d8 | | Load_Top At_Offset_0 0818 e5f9 | | Load 0x2,-0x7 0819 85fc | | Call 0x2,-0x4 081a 00d2 | | Pop_Control Pop_Count_2 081b 8403 | | Call 0x2,0x3 081c 4509 |E | Exit_Suprogram New_Top_Offset 0x9 081d 0000 0000 | | .XXX[0x3] 081f 0000 | | 0820 ; -------------------------------------------------------------------------------------- 0820 ; SUBPROGRAM 0820 ; -------------------------------------------------------------------------------------- 0820 0823 | # | .CONST 0x0823 ; Address of begin 0821 082b | + | .CONST 0x082b ; Address of exception handler 0822 0001 | | .CONST 0x0001 ; Number of locals 0823 BODY_0820: 0823 INIT_0820: 0823 e5fa | | Load 0x2,-0x6 0824 0227 | ' | Execute Access,All_Reference 0825 3c2b |<+ | Execute Record,Field_Read,Field_Number 0x2b 0826 0a01 | | Execute_Immediate Plus,0x1 0827 e5fa | | Load 0x2,-0x6 0828 0227 | ' | Execute Access,All_Reference 0829 382b |8+ | Execute Record,Field_Write,Field_Number 0x2b 082a 4501 |E | Exit_Suprogram New_Top_Offset 0x1 082b TRAP_0820: 082b 010e | | Execute Exception,Is_Constraint_Error 082c 6812 |h | Jump_Zero 0x83f 082d e5fa | | Load 0x2,-0x6 082e 0227 | ' | Execute Access,All_Reference 082f 3c2b |<+ | Execute Record,Field_Read,Field_Number 0x2b 0830 600f |` | Indirect_Literal Discrete,0x840,{0xffffffff, 0x81000000} 0831 0273 | s | Execute Discrete,Plus 0832 0a01 | | Execute_Immediate Plus,0x1 0833 e5fa | | Load 0x2,-0x6 0834 0227 | ' | Execute Access,All_Reference 0835 382b |8+ | Execute Record,Field_Write,Field_Number 0x2b 0836 e5fa | | Load 0x2,-0x6 0837 0227 | ' | Execute Access,All_Reference 0838 3c2c |<, | Execute Record,Field_Read,Field_Number 0x2c 0839 6006 |` | Indirect_Literal Discrete,0x840,{0xffffffff, 0x81000000} 083a 0273 | s | Execute Discrete,Plus 083b e5fa | | Load 0x2,-0x6 083c 0227 | ' | Execute Access,All_Reference 083d 382c |8, | Execute Record,Field_Write,Field_Number 0x2c 083e 4501 |E | Exit_Suprogram New_Top_Offset 0x1 083f 0100 | | Execute Exception,Raise 0840 ffff ffff | | .LITERAL {0xffffffff, 0x81000000} 0844 0000 0000 | | .BLANK 0000[0x4] 0848 ; -------------------------------------------------------------------------------------- 0848 ; SUBPROGRAM 0848 ; -------------------------------------------------------------------------------------- 0848 084b | K | .CONST 0x084b ; Address of begin 0849 0853 | S | .CONST 0x0853 ; Address of exception handler 084a 0001 | | .CONST 0x0001 ; Number of locals 084b BODY_0848: 084b INIT_0848: 084b e5fa | | Load 0x2,-0x6 084c 0227 | ' | Execute Access,All_Reference 084d 3c2b |<+ | Execute Record,Field_Read,Field_Number 0x2b 084e 0a01 | | Execute_Immediate Plus,0x1 084f e5fa | | Load 0x2,-0x6 0850 0227 | ' | Execute Access,All_Reference 0851 382b |8+ | Execute Record,Field_Write,Field_Number 0x2b 0852 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0853 TRAP_0848: 0853 010e | | Execute Exception,Is_Constraint_Error 0854 6812 |h | Jump_Zero 0x867 0855 e5fa | | Load 0x2,-0x6 0856 0227 | ' | Execute Access,All_Reference 0857 3c2b |<+ | Execute Record,Field_Read,Field_Number 0x2b 0858 67e7 |g | Indirect_Literal Discrete,0x840,{0xffffffff, 0x81000000} 0859 0273 | s | Execute Discrete,Plus 085a 0a01 | | Execute_Immediate Plus,0x1 085b e5fa | | Load 0x2,-0x6 085c 0227 | ' | Execute Access,All_Reference 085d 382b |8+ | Execute Record,Field_Write,Field_Number 0x2b 085e e5fa | | Load 0x2,-0x6 085f 0227 | ' | Execute Access,All_Reference 0860 3c2c |<, | Execute Record,Field_Read,Field_Number 0x2c 0861 67de |g | Indirect_Literal Discrete,0x840,{0xffffffff, 0x81000000} 0862 0273 | s | Execute Discrete,Plus 0863 e5fa | | Load 0x2,-0x6 0864 0227 | ' | Execute Access,All_Reference 0865 382c |8, | Execute Record,Field_Write,Field_Number 0x2c 0866 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0867 0100 | | Execute Exception,Raise 0868 ; -------------------------------------------------------------------------------------- 0868 ; SUBPROGRAM 0868 ; -------------------------------------------------------------------------------------- 0868 086f | o | .CONST 0x086f ; Address of begin 0869 0004 | | .CONST 0x0004 ; Address of exception handler 086a 0003 | | .CONST 0x0003 ; Number of locals 086b INIT_0868: 086b e009 | | Load 0x0,0x9 086c 0007 | | Action Break_Optional 086d 00e3 | | Load_Encached Natural_Cache 086e 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 086f BODY_0868: 086f 4801 |H | Short_Literal 0x1 0870 e5fd | | Load 0x2,-0x3 0871 e009 | | Load 0x0,0x9 0872 03ba | | Declare_Variable Access,By_Allocation,With_Constraint 0873 003a | : | Store_Top Access,At_Offset_2 0874 00d9 | | Load_Top At_Offset_1 0875 0229 | ) | Execute Access,All_Read 0876 00d8 | | Load_Top At_Offset_0 0877 e5f9 | | Load 0x2,-0x7 0878 85fc | | Call 0x2,-0x4 0879 00d2 | | Pop_Control Pop_Count_2 087a 00cf | | Action Mark_Auxiliary 087b 4801 |H | Short_Literal 0x1 087c e5fd | | Load 0x2,-0x3 087d e5fa | | Load 0x2,-0x6 087e 0227 | ' | Execute Access,All_Reference 087f 3435 |45 | Execute Record,Field_Reference,Field_Number 0x35 0880 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0881 01dc | | Execute Vector,Last 0882 0270 | p | Execute Discrete,Divide 0883 0264 | d | Execute Discrete,Below_Bound 0884 702a |p* | Jump_Nonzero 0x8af 0885 00db | | Load_Top At_Offset_3 0886 e603 | | Load 0x3,0x3 0887 0aff | | Execute_Immediate Plus,-0x1 0888 e5fa | | Load 0x2,-0x6 0889 0227 | ' | Execute Access,All_Reference 088a 3435 |45 | Execute Record,Field_Reference,Field_Number 0x35 088b 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 088c 01dc | | Execute Vector,Last 088d 0273 | s | Execute Discrete,Plus 088e 00d8 | | Load_Top At_Offset_0 088f 00e2 | | Load_Encached Integer_Cache 0890 0260 | ` | Execute Discrete,In_Type 0891 7001 |p | Jump_Nonzero 0x893 0892 0801 | | Execute_Immediate Raise,0x1 0893 e602 | | Load 0x3,0x2 0894 0227 | ' | Execute Access,All_Reference 0895 01cf | | Execute Vector,Slice_Read 0896 e5fa | | Load 0x2,-0x6 0897 0227 | ' | Execute Access,All_Reference 0898 3435 |45 | Execute Record,Field_Reference,Field_Number 0x35 0899 2903 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x3 089a e5fa | | Load 0x2,-0x6 089b 0227 | ' | Execute Access,All_Reference 089c 3435 |45 | Execute Record,Field_Reference,Field_Number 0x35 089d 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 089e 01dc | | Execute Vector,Last 089f e5fa | | Load 0x2,-0x6 08a0 0227 | ' | Execute Access,All_Reference 08a1 3435 |45 | Execute Record,Field_Reference,Field_Number 0x35 08a2 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 08a3 e5fa | | Load 0x2,-0x6 08a4 8004 | | Call 0x0,0x4 08a5 00db | | Load_Top At_Offset_3 08a6 e5fa | | Load 0x2,-0x6 08a7 0227 | ' | Execute Access,All_Reference 08a8 3435 |45 | Execute Record,Field_Reference,Field_Number 0x35 08a9 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 08aa 01dc | | Execute Vector,Last 08ab 0273 | s | Execute Discrete,Plus 08ac c603 | | Store 0x3,0x3 08ad 00c8 | | Action Pop_Auxiliary_Range 08ae 37d6 |7 | Loop_Decreasing 0x885 08af 00ce | | Action Pop_Auxiliary 08b0 e5fd | | Load 0x2,-0x3 08b1 00d9 | | Load_Top At_Offset_1 08b2 0272 | r | Execute Discrete,Minus 08b3 0a01 | | Execute_Immediate Plus,0x1 08b4 c402 | | Store 0x2,0x2 08b5 00d8 | | Load_Top At_Offset_0 08b6 e5fd | | Load 0x2,-0x3 08b7 00db | | Load_Top At_Offset_3 08b8 0227 | ' | Execute Access,All_Reference 08b9 01cf | | Execute Vector,Slice_Read 08ba 4801 |H | Short_Literal 0x1 08bb e402 | | Load 0x2,0x2 08bc e5fa | | Load 0x2,-0x6 08bd 0229 | ) | Execute Access,All_Read 08be 3c35 |<5 | Execute Record,Field_Read,Field_Number 0x35 08bf 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 08c0 01ce | | Execute Vector,Slice_Write 08c1 00d9 | | Load_Top At_Offset_1 08c2 e00a | | Load 0x0,0xa 08c3 e00b | | Load 0x0,0xb 08c4 a00c | | Store_Unchecked 0x0,0xc 08c5 800d | | Call 0x0,0xd 08c6 003a | : | Store_Top Access,At_Offset_2 08c7 4501 |E | Exit_Suprogram New_Top_Offset 0x1 08c8 ; -------------------------------------------------------------------------------------- 08c8 ; SUBPROGRAM 08c8 ; -------------------------------------------------------------------------------------- 08c8 08cf | | .CONST 0x08cf ; Address of begin 08c9 0945 | E | .CONST 0x0945 ; Address of exception handler 08ca 0003 | | .CONST 0x0003 ; Number of locals 08cb INIT_08c8: 08cb e009 | | Load 0x0,0x9 08cc 0007 | | Action Break_Optional 08cd 00e3 | | Load_Encached Natural_Cache 08ce 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 08cf BODY_08c8: 08cf 4801 |H | Short_Literal 0x1 08d0 e402 | | Load 0x2,0x2 08d1 e009 | | Load 0x0,0x9 08d2 03ba | | Declare_Variable Access,By_Allocation,With_Constraint 08d3 003a | : | Store_Top Access,At_Offset_2 08d4 4801 |H | Short_Literal 0x1 08d5 e404 | | Load 0x2,0x4 08d6 e403 | | Load 0x2,0x3 08d7 01cf | | Execute Vector,Slice_Read 08d8 4801 |H | Short_Literal 0x1 08d9 e404 | | Load 0x2,0x4 08da e602 | | Load 0x3,0x2 08db 0229 | ) | Execute Access,All_Read 08dc 01ce | | Execute Vector,Slice_Write 08dd 00d9 | | Load_Top At_Offset_1 08de 0229 | ) | Execute Access,All_Read 08df e404 | | Load 0x2,0x4 08e0 0a01 | | Execute_Immediate Plus,0x1 08e1 00d8 | | Load_Top At_Offset_0 08e2 00e2 | | Load_Encached Integer_Cache 08e3 0260 | ` | Execute Discrete,In_Type 08e4 7001 |p | Jump_Nonzero 0x8e6 08e5 0801 | | Execute_Immediate Raise,0x1 08e6 e402 | | Load 0x2,0x2 08e7 00da | | Load_Top At_Offset_2 08e8 035b | [ | Declare_Type Array,Constrained 08e9 00d0 | | Action Swap_Control 08ea 01cd | | Execute Vector,Slice_Reference 08eb 00d8 | | Load_Top At_Offset_0 08ec e5fa | | Load 0x2,-0x6 08ed 85fd | | Call 0x2,-0x3 08ee 00d2 | | Pop_Control Pop_Count_2 08ef 00cf | | Action Mark_Auxiliary 08f0 4801 |H | Short_Literal 0x1 08f1 e402 | | Load 0x2,0x2 08f2 e5fb | | Load 0x2,-0x5 08f3 0227 | ' | Execute Access,All_Reference 08f4 3435 |45 | Execute Record,Field_Reference,Field_Number 0x35 08f5 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 08f6 01dc | | Execute Vector,Last 08f7 0270 | p | Execute Discrete,Divide 08f8 0264 | d | Execute Discrete,Below_Bound 08f9 702a |p* | Jump_Nonzero 0x924 08fa 00db | | Load_Top At_Offset_3 08fb e603 | | Load 0x3,0x3 08fc e5fb | | Load 0x2,-0x5 08fd 0227 | ' | Execute Access,All_Reference 08fe 3435 |45 | Execute Record,Field_Reference,Field_Number 0x35 08ff 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0900 01dc | | Execute Vector,Last 0901 0273 | s | Execute Discrete,Plus 0902 0aff | | Execute_Immediate Plus,-0x1 0903 00d8 | | Load_Top At_Offset_0 0904 00e2 | | Load_Encached Integer_Cache 0905 0260 | ` | Execute Discrete,In_Type 0906 7001 |p | Jump_Nonzero 0x908 0907 0801 | | Execute_Immediate Raise,0x1 0908 e602 | | Load 0x3,0x2 0909 0227 | ' | Execute Access,All_Reference 090a 01cf | | Execute Vector,Slice_Read 090b e5fb | | Load 0x2,-0x5 090c 0227 | ' | Execute Access,All_Reference 090d 3435 |45 | Execute Record,Field_Reference,Field_Number 0x35 090e 2903 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x3 090f e5fb | | Load 0x2,-0x5 0910 0227 | ' | Execute Access,All_Reference 0911 3435 |45 | Execute Record,Field_Reference,Field_Number 0x35 0912 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0913 01dc | | Execute Vector,Last 0914 e5fb | | Load 0x2,-0x5 0915 0227 | ' | Execute Access,All_Reference 0916 3435 |45 | Execute Record,Field_Reference,Field_Number 0x35 0917 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 0918 e5fb | | Load 0x2,-0x5 0919 8004 | | Call 0x0,0x4 091a 00db | | Load_Top At_Offset_3 091b e5fb | | Load 0x2,-0x5 091c 0227 | ' | Execute Access,All_Reference 091d 3435 |45 | Execute Record,Field_Reference,Field_Number 0x35 091e 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 091f 01dc | | Execute Vector,Last 0920 0273 | s | Execute Discrete,Plus 0921 c603 | | Store 0x3,0x3 0922 00c8 | | Action Pop_Auxiliary_Range 0923 37d6 |7 | Loop_Decreasing 0x8fa 0924 00ce | | Action Pop_Auxiliary 0925 e402 | | Load 0x2,0x2 0926 00d9 | | Load_Top At_Offset_1 0927 0272 | r | Execute Discrete,Minus 0928 0a01 | | Execute_Immediate Plus,0x1 0929 c402 | | Store 0x2,0x2 092a 00d8 | | Load_Top At_Offset_0 092b 00da | | Load_Top At_Offset_2 092c 0227 | ' | Execute Access,All_Reference 092d 01dc | | Execute Vector,Last 092e 00db | | Load_Top At_Offset_3 092f 0227 | ' | Execute Access,All_Reference 0930 01cf | | Execute Vector,Slice_Read 0931 4801 |H | Short_Literal 0x1 0932 e402 | | Load 0x2,0x2 0933 e5fb | | Load 0x2,-0x5 0934 0229 | ) | Execute Access,All_Read 0935 3c35 |<5 | Execute Record,Field_Read,Field_Number 0x35 0936 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0937 01ce | | Execute Vector,Slice_Write 0938 e402 | | Load 0x2,0x2 0939 e5fb | | Load 0x2,-0x5 093a 0227 | ' | Execute Access,All_Reference 093b 3435 |45 | Execute Record,Field_Reference,Field_Number 0x35 093c 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 093d 00d9 | | Load_Top At_Offset_1 093e e00a | | Load 0x0,0xa 093f e00b | | Load 0x0,0xb 0940 a00c | | Store_Unchecked 0x0,0xc 0941 800d | | Call 0x0,0xd 0942 003a | : | Store_Top Access,At_Offset_2 0943 00cc | | Action Pop_Block 0944 4507 |E | Exit_Suprogram New_Top_Offset 0x7 0945 TRAP_08c8: 0945 0007 | | Action Break_Optional 0946 00da | | Load_Top At_Offset_2 0947 e00a | | Load 0x0,0xa 0948 e00b | | Load 0x0,0xb 0949 a00c | | Store_Unchecked 0x0,0xc 094a 800d | | Call 0x0,0xd 094b 003b | ; | Store_Top Access,At_Offset_3 094c 00d8 | | Load_Top At_Offset_0 094d 0101 | | Execute Exception,Reraise 094e 0000 0000 | | .XXX[0x2] 0950 ; -------------------------------------------------------------------------------------- 0950 ; SUBPROGRAM 0950 ; -------------------------------------------------------------------------------------- 0950 0960 | ` | .CONST 0x0960 ; Address of begin 0951 0004 | | .CONST 0x0004 ; Address of exception handler 0952 0004 | | .CONST 0x0004 ; Number of locals 0953 INIT_0950: 0953 4801 |H | Short_Literal 0x1 0954 e5fd | | Load 0x2,-0x3 0955 e005 | | Load 0x0,0x5 0956 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0957 035b | [ | Declare_Type Array,Constrained 0958 0337 | 7 | Declare_Variable Array 0959 4801 |H | Short_Literal 0x1 095a 4803 |H | Short_Literal 0x3 095b e005 | | Load 0x0,0x5 095c 1b12 | | Execute Package,Field_Read,Field_Number 0x12 095d 035b | [ | Declare_Type Array,Constrained 095e 0337 | 7 | Declare_Variable Array 095f 00e3 | | Load_Encached Natural_Cache 0960 BODY_0950: 0960 4800 |H | Short_Literal 0x0 0961 a402 | | Store_Unchecked 0x2,0x2 0962 00cf | | Action Mark_Auxiliary 0963 4801 |H | Short_Literal 0x1 0964 e5f5 | | Load 0x2,-0xb 0965 01a9 | | Execute Matrix,Reverse_Bounds 0966 0263 | c | Execute Discrete,Above_Bound 0967 706d |pm | Jump_Nonzero 0x9d5 0968 00cf | | Action Mark_Auxiliary 0969 4802 |H | Short_Literal 0x2 096a e5f5 | | Load 0x2,-0xb 096b 01a9 | | Execute Matrix,Reverse_Bounds 096c 0263 | c | Execute Discrete,Above_Bound 096d 7064 |pd | Jump_Nonzero 0x9d2 096e e602 | | Load 0x3,0x2 096f 00d9 | | Load_Top At_Offset_1 0970 e607 | | Load 0x3,0x7 0971 e5f5 | | Load 0x2,-0xb 0972 01a7 | | Execute Matrix,Field_Read 0973 85fb | | Call 0x2,-0x5 0974 00d1 | | Pop_Control Pop_Count_1 0975 e5f6 | | Load 0x2,-0xa 0976 0227 | ' | Execute Access,All_Reference 0977 3435 |45 | Execute Record,Field_Reference,Field_Number 0x35 0978 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0979 01dc | | Execute Vector,Last 097a e402 | | Load 0x2,0x2 097b 0272 | r | Execute Discrete,Minus 097c e5fd | | Load 0x2,-0x3 097d 027c | | | Execute Discrete,Less 097e 6838 |h8 | Jump_Zero 0x9b7 097f e402 | | Load 0x2,0x2 0980 4804 |H | Short_Literal 0x4 0981 026f | o | Execute Discrete,Remainder 0982 c604 | | Store 0x3,0x4 0983 e402 | | Load 0x2,0x2 0984 e604 | | Load 0x3,0x4 0985 0272 | r | Execute Discrete,Minus 0986 e5f6 | | Load 0x2,-0xa 0987 0227 | ' | Execute Access,All_Reference 0988 3435 |45 | Execute Record,Field_Reference,Field_Number 0x35 0989 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 098a e5f6 | | Load 0x2,-0xa 098b 0227 | ' | Execute Access,All_Reference 098c 3435 |45 | Execute Record,Field_Reference,Field_Number 0x35 098d 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 098e 0a01 | | Execute_Immediate Plus,0x1 098f 00d8 | | Load_Top At_Offset_0 0990 00e2 | | Load_Encached Integer_Cache 0991 0260 | ` | Execute Discrete,In_Type 0992 7001 |p | Jump_Nonzero 0x994 0993 0801 | | Execute_Immediate Raise,0x1 0994 e5f6 | | Load 0x2,-0xa 0995 0227 | ' | Execute Access,All_Reference 0996 3435 |45 | Execute Record,Field_Reference,Field_Number 0x35 0997 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0998 e604 | | Load 0x3,0x4 0999 0273 | s | Execute Discrete,Plus 099a 00d8 | | Load_Top At_Offset_0 099b 00e2 | | Load_Encached Integer_Cache 099c 0260 | ` | Execute Discrete,In_Type 099d 7001 |p | Jump_Nonzero 0x99f 099e 0801 | | Execute_Immediate Raise,0x1 099f e5f6 | | Load 0x2,-0xa 09a0 0227 | ' | Execute Access,All_Reference 09a1 3435 |45 | Execute Record,Field_Reference,Field_Number 0x35 09a2 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 09a3 01cf | | Execute Vector,Slice_Read 09a4 4801 |H | Short_Literal 0x1 09a5 e604 | | Load 0x3,0x4 09a6 e603 | | Load 0x3,0x3 09a7 01ce | | Execute Vector,Slice_Write 09a8 e5f6 | | Load 0x2,-0xa 09a9 8004 | | Call 0x0,0x4 09aa 4801 |H | Short_Literal 0x1 09ab e604 | | Load 0x3,0x4 09ac e603 | | Load 0x3,0x3 09ad 01cf | | Execute Vector,Slice_Read 09ae 4801 |H | Short_Literal 0x1 09af e604 | | Load 0x3,0x4 09b0 e5f6 | | Load 0x2,-0xa 09b1 0229 | ) | Execute Access,All_Read 09b2 3c35 |<5 | Execute Record,Field_Read,Field_Number 0x35 09b3 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 09b4 01ce | | Execute Vector,Slice_Write 09b5 e604 | | Load 0x3,0x4 09b6 a402 | | Store_Unchecked 0x2,0x2 09b7 e602 | | Load 0x3,0x2 09b8 e402 | | Load 0x2,0x2 09b9 0a01 | | Execute_Immediate Plus,0x1 09ba 00d8 | | Load_Top At_Offset_0 09bb 00e2 | | Load_Encached Integer_Cache 09bc 0260 | ` | Execute Discrete,In_Type 09bd 7001 |p | Jump_Nonzero 0x9bf 09be 0801 | | Execute_Immediate Raise,0x1 09bf e402 | | Load 0x2,0x2 09c0 e5fd | | Load 0x2,-0x3 09c1 0273 | s | Execute Discrete,Plus 09c2 00d8 | | Load_Top At_Offset_0 09c3 00e2 | | Load_Encached Integer_Cache 09c4 0260 | ` | Execute Discrete,In_Type 09c5 7001 |p | Jump_Nonzero 0x9c7 09c6 0801 | | Execute_Immediate Raise,0x1 09c7 e5f6 | | Load 0x2,-0xa 09c8 0229 | ) | Execute Access,All_Read 09c9 3c35 |<5 | Execute Record,Field_Read,Field_Number 0x35 09ca 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 09cb 01ce | | Execute Vector,Slice_Write 09cc e402 | | Load 0x2,0x2 09cd e5fd | | Load 0x2,-0x3 09ce 0273 | s | Execute Discrete,Plus 09cf c402 | | Store 0x2,0x2 09d0 00c8 | | Action Pop_Auxiliary_Range 09d1 3f9c |? | Loop_Increasing 0x96e 09d2 00ce | | Action Pop_Auxiliary 09d3 00c8 | | Action Pop_Auxiliary_Range 09d4 3f93 |? | Loop_Increasing 0x968 09d5 4501 |E | Exit_Suprogram New_Top_Offset 0x1 09d6 0000 0000 | | .XXX[0x2] 09d8 ; -------------------------------------------------------------------------------------- 09d8 ; SUBPROGRAM 09d8 ; -------------------------------------------------------------------------------------- 09d8 09db | | .CONST 0x09db ; Address of begin 09d9 09e3 | | .CONST 0x09e3 ; Address of exception handler 09da 0001 | | .CONST 0x0001 ; Number of locals 09db BODY_09d8: 09db INIT_09d8: 09db e5fa | | Load 0x2,-0x6 09dc 0227 | ' | Execute Access,All_Reference 09dd 3c2b |<+ | Execute Record,Field_Read,Field_Number 0x2b 09de 0a01 | | Execute_Immediate Plus,0x1 09df e5fa | | Load 0x2,-0x6 09e0 0227 | ' | Execute Access,All_Reference 09e1 382b |8+ | Execute Record,Field_Write,Field_Number 0x2b 09e2 4501 |E | Exit_Suprogram New_Top_Offset 0x1 09e3 TRAP_09d8: 09e3 010e | | Execute Exception,Is_Constraint_Error 09e4 6812 |h | Jump_Zero 0x9f7 09e5 e5fa | | Load 0x2,-0x6 09e6 0227 | ' | Execute Access,All_Reference 09e7 3c2b |<+ | Execute Record,Field_Read,Field_Number 0x2b 09e8 600f |` | Indirect_Literal Discrete,0x9f8,{0xffffffff, 0x81000000} 09e9 0273 | s | Execute Discrete,Plus 09ea 0a01 | | Execute_Immediate Plus,0x1 09eb e5fa | | Load 0x2,-0x6 09ec 0227 | ' | Execute Access,All_Reference 09ed 382b |8+ | Execute Record,Field_Write,Field_Number 0x2b 09ee e5fa | | Load 0x2,-0x6 09ef 0227 | ' | Execute Access,All_Reference 09f0 3c2c |<, | Execute Record,Field_Read,Field_Number 0x2c 09f1 6006 |` | Indirect_Literal Discrete,0x9f8,{0xffffffff, 0x81000000} 09f2 0273 | s | Execute Discrete,Plus 09f3 e5fa | | Load 0x2,-0x6 09f4 0227 | ' | Execute Access,All_Reference 09f5 382c |8, | Execute Record,Field_Write,Field_Number 0x2c 09f6 4501 |E | Exit_Suprogram New_Top_Offset 0x1 09f7 0100 | | Execute Exception,Raise 09f8 ffff ffff | | .LITERAL {0xffffffff, 0x81000000} 09fc 0000 0000 | | .BLANK 0000[0x4] 0a00 ; -------------------------------------------------------------------------------------- 0a00 ; Debug Table 0a00 ; -------------------------------------------------------------------------------------- 0a00 0004 0000 | | .DEBUG4 0x0004,0x0000,0x689e,0x0000,0x0001,0x0012 0a06 000b 0a4e | N| .DBG4T 0x000b,0x0a4e,0x8000,0x0000 0a0a 0028 0a5c | ( \| .DBG4T 0x0028,0x0a5c,0x8000,0x0000 0a0e 0043 0a68 | C h| .DBG4T 0x0043,0x0a68,0x2801,0x0002 0a12 0093 0a78 | x| .DBG4T 0x0093,0x0a78,0x2801,0x0002 0a16 00f3 0a89 | | .DBG4T 0x00f3,0x0a89,0x2801,0x0002 0a1a 014b 0a97 | K | .DBG4T 0x014b,0x0a97,0x2801,0x0002 0a1e 01f3 0aac | | .DBG4T 0x01f3,0x0aac,0x2801,0x4002 0a22 02f3 0ae8 | | .DBG4T 0x02f3,0x0ae8,0x2801,0x4002 0a26 0433 0b3a | 3 :| .DBG4T 0x0433,0x0b3a,0x2801,0x4002 0a2a 052b 0b74 | + t| .DBG4T 0x052b,0x0b74,0x2801,0x4002 0a2e 05f3 0bae | | .DBG4T 0x05f3,0x0bae,0x2801,0x4002 0a32 07f3 0c20 | | .DBG4T 0x07f3,0x0c20,0x2801,0x0002 0a36 0823 0c29 | # )| .DBG4T 0x0823,0x0c29,0x0804,0x0002 0a3a 084b 0c2e | K .| .DBG4T 0x084b,0x0c2e,0x0804,0x0002 0a3e 086b 0c33 | k 3| .DBG4T 0x086b,0x0c33,0x0804,0x0002 0a42 08cb 0c41 | A| .DBG4T 0x08cb,0x0c41,0x0804,0x0002 0a46 0953 0c54 | S T| .DBG4T 0x0953,0x0c54,0x0804,0x0002 0a4a 09db 0c66 | f| .DBG4T 0x09db,0x0c66,0x0804,0x0002 0a4e ; -------------------------------------------------------------------------------------- 0a4e ; Debug chain 0a4e ; -------------------------------------------------------------------------------------- 0a4e 000c 0000 | | .DBGLEN 0x000c,0x0000 0a50 000b 000f | | .DBGLNO 0x000b,0x000f,0x0013,0x0015,0x0017,0x0019,0x001b,0x001d,0x001f,0x0021,0x0023,0x0025 0a5c ; -------------------------------------------------------------------------------------- 0a5c ; Debug chain 0a5c ; -------------------------------------------------------------------------------------- 0a5c 000a 0000 | | .DBGLEN 0x000a,0x0000 0a5e 0028 002a | ( *| .DBGLNO 0x0028,0x002a,0x002c,0x002e,0x0030,0x0032,0x0034,0x0036,0x0038,0x003a 0a68 ; -------------------------------------------------------------------------------------- 0a68 ; Debug chain 0a68 ; -------------------------------------------------------------------------------------- 0a68 0001 000d | | .DBGLEN 0x0001,0x000d 0a6a 0043 0046 | C F| .DBGLNO 0x0043,0x0046,0x004a,0x004c,0x0053,0x0055,0x005a,0x005c,0x0063,0x006b,0x006d,0x006f,0x0086,0x008b 0a78 ; -------------------------------------------------------------------------------------- 0a78 ; Debug chain 0a78 ; -------------------------------------------------------------------------------------- 0a78 0002 000d | | .DBGLEN 0x0002,0x000d 0a7a 0093 009e | | .DBGLNO 0x0093,0x009e,0x00a1,0x00a5,0x00a7,0x00ae,0x00b0,0x00b5,0x00b7,0x00be,0x00c8,0x00ca,0x00cc,0x00e3,0x00e8 0a89 ; -------------------------------------------------------------------------------------- 0a89 ; Debug chain 0a89 ; -------------------------------------------------------------------------------------- 0a89 0001 000b | | .DBGLEN 0x0001,0x000b 0a8b 00f3 00f6 | | .DBGLNO 0x00f3,0x00f6,0x00fd,0x00ff,0x0106,0x010e,0x0126,0x0128,0x0130,0x0132,0x0141,0x0142 0a97 ; -------------------------------------------------------------------------------------- 0a97 ; Debug chain 0a97 ; -------------------------------------------------------------------------------------- 0a97 0003 0010 | | .DBGLEN 0x0003,0x0010 0a99 014b 014c | K L| .DBGLNO 0x014b,0x014c,0x0152,0x0155,0x0162,0x0169,0x0180,0x0185,0x0186,0x018d,0x0197,0x01b5,0x01b7,0x01bb,0x01c3,0x01ce,0x01e2,0x01e7,0x01e8 0aac ; -------------------------------------------------------------------------------------- 0aac ; Debug chain 0aac ; -------------------------------------------------------------------------------------- 0aac 0004 001b | | .DBGLEN 0x0004,0x001b 0aae 01f3 01f9 | | .DBGLNO 0x01f3,0x01f9,0x01fa,0x01fc,0x01fe,0x0205,0x0207,0x0209,0x020a,0x021c,0x0223,0x023a,0x023f,0x0240,0x0242,0x024a,0x024c,0x025a,0x025f,0x0260,0x0268,0x0270,0x027b,0x0299,0x029e,0x02a0,0x02a5,0x02b2,0x02bc,0x02ce,0x02e5 0acd 0001 0002 | | .XXX[0x1b] 0acf 0003 0004 | | 0ad1 0005 0006 | | 0ad3 0007 0008 | | 0ad5 0009 000a | | 0ad7 000b 000c | | 0ad9 000d 000e | | 0adb 000f 0010 | | 0add 0011 0012 | | 0adf 0014 0015 | | 0ae1 0016 0017 | | 0ae3 0013 0018 | | 0ae5 0019 001a | | 0ae7 001b | | 0ae8 ; -------------------------------------------------------------------------------------- 0ae8 ; Debug chain 0ae8 ; -------------------------------------------------------------------------------------- 0ae8 0004 0026 | &| .DBGLEN 0x0004,0x0026 0aea 02f3 02f9 | | .DBGLNO 0x02f3,0x02f9,0x02fa,0x02fc,0x02fe,0x0305,0x0307,0x0309,0x030a,0x031c,0x0323,0x033a,0x033b,0x033d,0x0345,0x0347,0x0355,0x0356,0x035e,0x0366,0x0371,0x038f,0x0394,0x0396,0x039b,0x03a8,0x03b2,0x03c4,0x03dc,0x03de,0x03e0,0x03e9,0x03ec,0x03ef,0x03f7,0x03ff,0x0408,0x040b,0x0413,0x041b,0x041e,0x0425 0b14 0001 0002 | | .XXX[0x26] 0b16 0003 0004 | | 0b18 0005 0006 | | 0b1a 0007 0008 | | 0b1c 0009 000a | | 0b1e 000b 000c | | 0b20 000d 000e | | 0b22 000f 0010 | | 0b24 0012 0013 | | 0b26 0014 0015 | | 0b28 0011 0016 | | 0b2a 0017 0018 | | 0b2c 0019 001a | | 0b2e 001b 0025 | %| 0b30 001c 001d | | 0b32 001e 001f | | 0b34 0020 0021 | !| 0b36 0022 0023 | " #| 0b38 0024 0026 | $ &| 0b3a ; -------------------------------------------------------------------------------------- 0b3a ; Debug chain 0b3a ; -------------------------------------------------------------------------------------- 0b3a 0004 001a | | .DBGLEN 0x0004,0x001a 0b3c 0433 0439 | 3 9| .DBGLNO 0x0433,0x0439,0x043a,0x043c,0x043e,0x0440,0x0441,0x0453,0x045a,0x0471,0x0476,0x0477,0x0479,0x0481,0x0483,0x0491,0x0496,0x0497,0x049f,0x04a7,0x04b2,0x04d0,0x04d5,0x04d7,0x04dc,0x04e9,0x04f3,0x0505,0x051d,0x051f 0b5a 0001 0002 | | .XXX[0x1a] 0b5c 0003 0004 | | 0b5e 0005 0006 | | 0b60 0007 0008 | | 0b62 0009 000a | | 0b64 000b 000c | | 0b66 000d 000e | | 0b68 000f 0010 | | 0b6a 0012 0013 | | 0b6c 0014 0015 | | 0b6e 0011 0016 | | 0b70 0017 0018 | | 0b72 0019 001a | | 0b74 ; -------------------------------------------------------------------------------------- 0b74 ; Debug chain 0b74 ; -------------------------------------------------------------------------------------- 0b74 0002 001b | | .DBGLEN 0x0002,0x001b 0b76 052b 052c | + ,| .DBGLNO 0x052b,0x052c,0x0539,0x0540,0x0542,0x0544,0x0545,0x0557,0x0563,0x057a,0x057b,0x057d,0x0585,0x058c,0x059a,0x059b,0x059c,0x059e,0x05a7,0x05aa,0x05ad,0x05b5,0x05bd,0x05c6,0x05c9,0x05d1,0x05d9,0x05dc,0x05e3 0b93 0001 0002 | | .XXX[0x1b] 0b95 0003 0004 | | 0b97 0005 0006 | | 0b99 0007 0008 | | 0b9b 0009 000a | | 0b9d 000b 000c | | 0b9f 000d 000e | | 0ba1 000f 0010 | | 0ba3 001a 0011 | | 0ba5 0012 0013 | | 0ba7 0014 0015 | | 0ba9 0016 0017 | | 0bab 0018 0019 | | 0bad 001b | | 0bae ; -------------------------------------------------------------------------------------- 0bae ; Debug chain 0bae ; -------------------------------------------------------------------------------------- 0bae 0004 0036 | 6| .DBGLEN 0x0004,0x0036 0bb0 05f3 05f9 | | .DBGLNO 0x05f3,0x05f9,0x05fa,0x05fc,0x05fe,0x0602,0x0604,0x060b,0x060d,0x0612,0x0614,0x0619,0x061b,0x062f,0x0638,0x0647,0x0653,0x0655,0x0657,0x0678,0x067b,0x0681,0x069a,0x069f,0x06a0,0x06a2,0x06b1,0x06b5,0x06c4,0x06d0,0x06d2,0x06d4,0x06e2,0x06e5,0x06eb,0x06ff,0x0704,0x0705,0x0707,0x0709,0x0717,0x071f,0x072e,0x0737,0x075b,0x0760,0x0762,0x0766,0x076e,0x0779,0x0797,0x079c,0x079e,0x07a3,0x07b0,0x07ba,0x07cc,0x07e3 0bea 0001 0002 | | .XXX[0x36] 0bec 0003 0004 | | 0bee 0005 0006 | | 0bf0 0007 0008 | | 0bf2 0009 000a | | 0bf4 000b 000c | | 0bf6 000d 000e | | 0bf8 000f 0010 | | 0bfa 0011 0012 | | 0bfc 0013 0014 | | 0bfe 0015 0016 | | 0c00 0017 0018 | | 0c02 0019 001a | | 0c04 001b 001c | | 0c06 001d 001e | | 0c08 001f 0020 | | 0c0a 0021 0022 | ! "| 0c0c 0023 0024 | # $| 0c0e 0025 0026 | % &| 0c10 0027 0028 | ' (| 0c12 0029 002a | ) *| 0c14 002b 002c | + ,| 0c16 002d 002f | - /| 0c18 0030 0031 | 0 1| 0c1a 0032 002e | 2 .| 0c1c 0033 0034 | 3 4| 0c1e 0035 0036 | 5 6| 0c20 ; -------------------------------------------------------------------------------------- 0c20 ; Debug chain 0c20 ; -------------------------------------------------------------------------------------- 0c20 0001 0006 | | .DBGLEN 0x0001,0x0006 0c22 07f3 07f6 | | .DBGLNO 0x07f3,0x07f6,0x07fa,0x07fc,0x0803,0x0805,0x081b 0c29 ; -------------------------------------------------------------------------------------- 0c29 ; Debug chain 0c29 ; -------------------------------------------------------------------------------------- 0c29 0000 0003 | | .DBGLEN 0x0000,0x0003 0c2b 0823 082d | # -| .DBGLNO 0x0823,0x082d,0x0836 0c2e ; -------------------------------------------------------------------------------------- 0c2e ; Debug chain 0c2e ; -------------------------------------------------------------------------------------- 0c2e 0000 0003 | | .DBGLEN 0x0000,0x0003 0c30 084b 0855 | K U| .DBGLNO 0x084b,0x0855,0x085e 0c33 ; -------------------------------------------------------------------------------------- 0c33 ; Debug chain 0c33 ; -------------------------------------------------------------------------------------- 0c33 0002 000a | | .DBGLEN 0x0002,0x000a 0c35 086b 086d | k m| .DBGLNO 0x086b,0x086d,0x086f,0x0874,0x087b,0x0885,0x089a,0x08a3,0x08a5,0x08b0,0x08b5,0x08c1 0c41 ; -------------------------------------------------------------------------------------- 0c41 ; Debug chain 0c41 ; -------------------------------------------------------------------------------------- 0c41 0002 000f | | .DBGLEN 0x0002,0x000f 0c43 08cb 08cd | | .DBGLNO 0x08cb,0x08cd,0x08cf,0x08d4,0x08dd,0x08f0,0x08fa,0x090f,0x0918,0x091a,0x0925,0x092a,0x0938,0x093d,0x0943,0x0946,0x094c 0c54 ; -------------------------------------------------------------------------------------- 0c54 ; Debug chain 0c54 ; -------------------------------------------------------------------------------------- 0c54 0003 000d | | .DBGLEN 0x0003,0x000d 0c56 0953 0959 | S Y| .DBGLNO 0x0953,0x0959,0x095f,0x0960,0x0963,0x0969,0x096e,0x0975,0x097f,0x0983,0x098a,0x09a8,0x09aa,0x09b5,0x09b7,0x09cc 0c66 ; -------------------------------------------------------------------------------------- 0c66 ; Debug chain 0c66 ; -------------------------------------------------------------------------------------- 0c66 0000 0003 | | .DBGLEN 0x0000,0x0003 0c68 09db 09e5 | | .DBGLNO 0x09db,0x09e5,0x09ee 0c6b 0000 0000 | | .BLANK 0000[0x195]