|
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_0534f8
└─⟦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 0c48 | H | .CONST 0x0c48 ; 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 8007 | | .CONST 0x8007 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 00ea | | .CONST 0x00ea ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0036 | 6 | .CONST 0x0036 ; Number of locals
000b INIT_0008:
000b 029a 00f3 | | Declare_Subprogram INIT_00f0,For_Outer_Call,Visible,Unelaborated
000d 029a 0113 | | Declare_Subprogram INIT_0110,For_Outer_Call,Visible,Unelaborated
000f 029a 0133 | 3| Declare_Subprogram INIT_0130,For_Outer_Call,Visible,Unelaborated
0011 029a 015b | [| Declare_Subprogram INIT_0158,For_Outer_Call,Visible,Unelaborated
0013 029a 0173 | s| Declare_Subprogram INIT_0170,For_Outer_Call,Visible,Unelaborated
0015 029a 01b3 | | Declare_Subprogram INIT_01b0,For_Outer_Call,Visible,Unelaborated
0017 029a 01db | | Declare_Subprogram INIT_01d8,For_Outer_Call,Visible,Unelaborated
0019 029a 0203 | | Declare_Subprogram INIT_0200,For_Outer_Call,Visible,Unelaborated
001b 029a 0233 | 3| Declare_Subprogram INIT_0230,For_Outer_Call,Visible,Unelaborated
001d 029a 024b | K| Declare_Subprogram INIT_0248,For_Outer_Call,Visible,Unelaborated
001f 00c4 | | Action Make_Default
0020 00c4 | | Action Make_Default
0021 00c4 | | Action Make_Default
0022 00c4 | | Action Make_Default
0023 00c4 | | Action Make_Default
0024 00c4 | | Action Make_Default
0025 00c4 | | Action Make_Default
0026 00c4 | | Action Make_Default
0027 00c4 | | Action Make_Default
0028 00c4 | | Action Make_Default
0029 00c4 | | Action Make_Default
002a 00c4 | | Action Make_Default
002b 00c4 | | Action Make_Default
002c 00c4 | | Action Make_Default
002d 00c4 | | Action Make_Default
002e 00c4 | | Action Make_Default
002f 00c4 | | Action Make_Default
0030 00c4 | | Action Make_Default
0031 00c4 | | Action Make_Default
0032 00c4 | | Action Make_Default
0033 00c4 | | Action Make_Default
0034 00c4 | | Action Make_Default
0035 00c4 | | Action Make_Default
0036 00c4 | | Action Make_Default
0037 00c4 | | Action Make_Default
0038 00c4 | | Action Make_Default
0039 00c4 | | Action Make_Default
003a 00c4 | | Action Make_Default
003b 00c4 | | Action Make_Default
003c 00c4 | | Action Make_Default
003d 00c4 | | Action Make_Default
003e 00c4 | | Action Make_Default
003f 029a 0293 | | Declare_Subprogram INIT_0290,For_Outer_Call,Visible,Unelaborated
0041 c22d | - | Store 0x1,0x2d
0042 029a 02b3 | | Declare_Subprogram INIT_02b0,For_Outer_Call,Visible,Unelaborated
0044 c22e | . | Store 0x1,0x2e
0045 029a 02db | | Declare_Subprogram INIT_02d8,For_Outer_Call,Visible,Unelaborated
0047 c22f | / | Store 0x1,0x2f
0048 029a 030b | | Declare_Subprogram INIT_0308,For_Outer_Call,Visible,Unelaborated
004a c230 | 0 | Store 0x1,0x30
004b 029a 0323 | #| Declare_Subprogram INIT_0320,For_Outer_Call,Visible,Unelaborated
004d c231 | 1 | Store 0x1,0x31
004e 029a 0353 | S| Declare_Subprogram INIT_0350,For_Outer_Call,Visible,Unelaborated
0050 c217 | | Store 0x1,0x17
0051 029a 038b | | Declare_Subprogram INIT_0388,For_Outer_Call,Visible,Unelaborated
0053 c218 | | Store 0x1,0x18
0054 029a 03c3 | | Declare_Subprogram INIT_03c0,For_Outer_Call,Visible,Unelaborated
0056 c219 | | Store 0x1,0x19
0057 029a 0403 | | Declare_Subprogram INIT_0400,For_Outer_Call,Visible,Unelaborated
0059 c21a | | Store 0x1,0x1a
005a 029a 0423 | #| Declare_Subprogram INIT_0420,For_Outer_Call,Visible,Unelaborated
005c c21b | | Store 0x1,0x1b
005d 029a 046b | k| Declare_Subprogram INIT_0468,For_Outer_Call,Visible,Unelaborated
005f c21c | | Store 0x1,0x1c
0060 029a 04ab | | Declare_Subprogram INIT_04a8,For_Outer_Call,Visible,Unelaborated
0062 c21d | | Store 0x1,0x1d
0063 029a 04eb | | Declare_Subprogram INIT_04e8,For_Outer_Call,Visible,Unelaborated
0065 c21e | | Store 0x1,0x1e
0066 029a 0533 | 3| Declare_Subprogram INIT_0530,For_Outer_Call,Visible,Unelaborated
0068 c21f | | Store 0x1,0x1f
0069 029a 0553 | S| Declare_Subprogram INIT_0550,For_Outer_Call,Visible,Unelaborated
006b c220 | | Store 0x1,0x20
006c 029a 05a3 | | Declare_Subprogram INIT_05a0,For_Outer_Call,Visible,Unelaborated
006e c232 | 2 | Store 0x1,0x32
006f 029a 05f3 | | Declare_Subprogram INIT_05f0,For_Outer_Call,Visible,Unelaborated
0071 c233 | 3 | Store 0x1,0x33
0072 029a 0623 | #| Declare_Subprogram INIT_0620,For_Outer_Call,Visible,Unelaborated
0074 c234 | 4 | Store 0x1,0x34
0075 029a 067b | {| Declare_Subprogram INIT_0678,For_Outer_Call,Visible,Unelaborated
0077 c235 | 5 | Store 0x1,0x35
0078 029a 06cb | | Declare_Subprogram INIT_06c8,For_Outer_Call,Visible,Unelaborated
007a c236 | 6 | Store 0x1,0x36
007b 029a 071b | | Declare_Subprogram INIT_0718,For_Outer_Call,Visible,Unelaborated
007d c223 | # | Store 0x1,0x23
007e 029a 0793 | | Declare_Subprogram INIT_0790,For_Outer_Call,Visible,Unelaborated
0080 c224 | $ | Store 0x1,0x24
0081 029a 081b | | Declare_Subprogram INIT_0818,For_Outer_Call,Visible,Unelaborated
0083 c225 | % | Store 0x1,0x25
0084 029a 0893 | | Declare_Subprogram INIT_0890,For_Outer_Call,Visible,Unelaborated
0086 c226 | & | Store 0x1,0x26
0087 029a 08db | | Declare_Subprogram INIT_08d8,For_Outer_Call,Visible,Unelaborated
0089 c227 | ' | Store 0x1,0x27
008a 029a 097b | {| Declare_Subprogram INIT_0978,For_Outer_Call,Visible,Unelaborated
008c c228 | ( | Store 0x1,0x28
008d 029a 0a0b | | Declare_Subprogram INIT_0a08,For_Outer_Call,Visible,Unelaborated
008f c229 | ) | Store 0x1,0x29
0090 029a 0aab | | Declare_Subprogram INIT_0aa8,For_Outer_Call,Visible,Unelaborated
0092 c22a | * | Store 0x1,0x2a
0093 029a 0b3b | ;| Declare_Subprogram INIT_0b38,For_Outer_Call,Visible,Unelaborated
0095 c22b | + | Store 0x1,0x2b
0096 029a 0b93 | | Declare_Subprogram INIT_0b90,For_Outer_Call,Visible,Unelaborated
0098 c22c | , | Store 0x1,0x2c
0099 00bf | | Action Accept_Activation
009a 1d0d | | Execute_Immediate Reference_Lex_1,0xd
009b 00c7 | | Action Elaborate_Subprogram
009c 1d0e | | Execute_Immediate Reference_Lex_1,0xe
009d 00c7 | | Action Elaborate_Subprogram
009e 1d0f | | Execute_Immediate Reference_Lex_1,0xf
009f 00c7 | | Action Elaborate_Subprogram
00a0 1d10 | | Execute_Immediate Reference_Lex_1,0x10
00a1 00c7 | | Action Elaborate_Subprogram
00a2 1d11 | | Execute_Immediate Reference_Lex_1,0x11
00a3 00c7 | | Action Elaborate_Subprogram
00a4 1d12 | | Execute_Immediate Reference_Lex_1,0x12
00a5 00c7 | | Action Elaborate_Subprogram
00a6 1d13 | | Execute_Immediate Reference_Lex_1,0x13
00a7 00c7 | | Action Elaborate_Subprogram
00a8 1d14 | | Execute_Immediate Reference_Lex_1,0x14
00a9 00c7 | | Action Elaborate_Subprogram
00aa 1d15 | | Execute_Immediate Reference_Lex_1,0x15
00ab 00c7 | | Action Elaborate_Subprogram
00ac 1d16 | | Execute_Immediate Reference_Lex_1,0x16
00ad 00c7 | | Action Elaborate_Subprogram
00ae 1d2d | - | Execute_Immediate Reference_Lex_1,0x2d
00af 00c7 | | Action Elaborate_Subprogram
00b0 1d2e | . | Execute_Immediate Reference_Lex_1,0x2e
00b1 00c7 | | Action Elaborate_Subprogram
00b2 1d2f | / | Execute_Immediate Reference_Lex_1,0x2f
00b3 00c7 | | Action Elaborate_Subprogram
00b4 1d30 | 0 | Execute_Immediate Reference_Lex_1,0x30
00b5 00c7 | | Action Elaborate_Subprogram
00b6 1d31 | 1 | Execute_Immediate Reference_Lex_1,0x31
00b7 00c7 | | Action Elaborate_Subprogram
00b8 1d17 | | Execute_Immediate Reference_Lex_1,0x17
00b9 00c7 | | Action Elaborate_Subprogram
00ba 1d18 | | Execute_Immediate Reference_Lex_1,0x18
00bb 00c7 | | Action Elaborate_Subprogram
00bc 1d19 | | Execute_Immediate Reference_Lex_1,0x19
00bd 00c7 | | Action Elaborate_Subprogram
00be 1d1a | | Execute_Immediate Reference_Lex_1,0x1a
00bf 00c7 | | Action Elaborate_Subprogram
00c0 1d1b | | Execute_Immediate Reference_Lex_1,0x1b
00c1 00c7 | | Action Elaborate_Subprogram
00c2 1d1c | | Execute_Immediate Reference_Lex_1,0x1c
00c3 00c7 | | Action Elaborate_Subprogram
00c4 1d1d | | Execute_Immediate Reference_Lex_1,0x1d
00c5 00c7 | | Action Elaborate_Subprogram
00c6 1d1e | | Execute_Immediate Reference_Lex_1,0x1e
00c7 00c7 | | Action Elaborate_Subprogram
00c8 1d1f | | Execute_Immediate Reference_Lex_1,0x1f
00c9 00c7 | | Action Elaborate_Subprogram
00ca 1d20 | | Execute_Immediate Reference_Lex_1,0x20
00cb 00c7 | | Action Elaborate_Subprogram
00cc 1d32 | 2 | Execute_Immediate Reference_Lex_1,0x32
00cd 00c7 | | Action Elaborate_Subprogram
00ce 1d33 | 3 | Execute_Immediate Reference_Lex_1,0x33
00cf 00c7 | | Action Elaborate_Subprogram
00d0 1d34 | 4 | Execute_Immediate Reference_Lex_1,0x34
00d1 00c7 | | Action Elaborate_Subprogram
00d2 1d35 | 5 | Execute_Immediate Reference_Lex_1,0x35
00d3 00c7 | | Action Elaborate_Subprogram
00d4 1d36 | 6 | Execute_Immediate Reference_Lex_1,0x36
00d5 00c7 | | Action Elaborate_Subprogram
00d6 1d23 | # | Execute_Immediate Reference_Lex_1,0x23
00d7 00c7 | | Action Elaborate_Subprogram
00d8 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24
00d9 00c7 | | Action Elaborate_Subprogram
00da 1d25 | % | Execute_Immediate Reference_Lex_1,0x25
00db 00c7 | | Action Elaborate_Subprogram
00dc 1d26 | & | Execute_Immediate Reference_Lex_1,0x26
00dd 00c7 | | Action Elaborate_Subprogram
00de 1d27 | ' | Execute_Immediate Reference_Lex_1,0x27
00df 00c7 | | Action Elaborate_Subprogram
00e0 1d28 | ( | Execute_Immediate Reference_Lex_1,0x28
00e1 00c7 | | Action Elaborate_Subprogram
00e2 1d29 | ) | Execute_Immediate Reference_Lex_1,0x29
00e3 00c7 | | Action Elaborate_Subprogram
00e4 1d2a | * | Execute_Immediate Reference_Lex_1,0x2a
00e5 00c7 | | Action Elaborate_Subprogram
00e6 1d2b | + | Execute_Immediate Reference_Lex_1,0x2b
00e7 00c7 | | Action Elaborate_Subprogram
00e8 1d2c | , | Execute_Immediate Reference_Lex_1,0x2c
00e9 00c7 | | Action Elaborate_Subprogram
00ea BODY_0008:
00ea 00bc | | Action Signal_Activated
00eb 00bb | | Action Signal_Completion
00ec 0000 0000 | | .BLANK 0000[0x4]
00f0 ; --------------------------------------------------------------------------------------
00f0 ; SUBPROGRAM
00f0 ; --------------------------------------------------------------------------------------
00f0 00f7 | | .CONST 0x00f7 ; Address of begin
00f1 0004 | | .CONST 0x0004 ; Address of exception handler
00f2 0002 | | .CONST 0x0002 ; Number of locals
00f3 INIT_00f0:
00f3 00da | | Load_Top At_Offset_2
00f4 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
00f5 00e3 | | Load_Encached Natural_Cache
00f6 03f1 | | Declare_Variable Discrete,With_Value
00f7 BODY_00f0:
00f7 00d8 | | Load_Top At_Offset_0
00f8 e5fe | | Load 0x2,-0x2
00f9 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
00fa 027d | } | Execute Discrete,Greater
00fb 6803 |h | Jump_Zero 0xff
00fc e5fe | | Load 0x2,-0x2
00fd 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
00fe 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
00ff 4801 |H | Short_Literal 0x1
0100 00d9 | | Load_Top At_Offset_1
0101 e5ff | | Load 0x2,-0x1
0102 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0103 01cf | | Execute Vector,Slice_Read
0104 4801 |H | Short_Literal 0x1
0105 00da | | Load_Top At_Offset_2
0106 e5fe | | Load 0x2,-0x2
0107 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0108 01ce | | Execute Vector,Slice_Write
0109 00d8 | | Load_Top At_Offset_0
010a e5fe | | Load 0x2,-0x2
010b 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
010c 4502 |E | Exit_Suprogram New_Top_Offset 0x2
010d 0000 0000 | | .XXX[0x3]
010f 0000 | |
0110 ; --------------------------------------------------------------------------------------
0110 ; SUBPROGRAM
0110 ; --------------------------------------------------------------------------------------
0110 0118 | | .CONST 0x0118 ; Address of begin
0111 0004 | | .CONST 0x0004 ; Address of exception handler
0112 0002 | | .CONST 0x0002 ; Number of locals
0113 INIT_0110:
0113 00da | | Load_Top At_Offset_2
0114 0227 | ' | Execute Access,All_Reference
0115 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0116 00e3 | | Load_Encached Natural_Cache
0117 03f1 | | Declare_Variable Discrete,With_Value
0118 BODY_0110:
0118 00d8 | | Load_Top At_Offset_0
0119 e5fe | | Load 0x2,-0x2
011a 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
011b 027d | } | Execute Discrete,Greater
011c 6803 |h | Jump_Zero 0x120
011d e5fe | | Load 0x2,-0x2
011e 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
011f 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
0120 4801 |H | Short_Literal 0x1
0121 00d9 | | Load_Top At_Offset_1
0122 e5ff | | Load 0x2,-0x1
0123 0227 | ' | Execute Access,All_Reference
0124 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0125 01cf | | Execute Vector,Slice_Read
0126 4801 |H | Short_Literal 0x1
0127 00da | | Load_Top At_Offset_2
0128 e5fe | | Load 0x2,-0x2
0129 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
012a 01ce | | Execute Vector,Slice_Write
012b 00d8 | | Load_Top At_Offset_0
012c e5fe | | Load 0x2,-0x2
012d 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
012e 4502 |E | Exit_Suprogram New_Top_Offset 0x2
012f 0000 | | .XXX[0x1]
0130 ; --------------------------------------------------------------------------------------
0130 ; SUBPROGRAM
0130 ; --------------------------------------------------------------------------------------
0130 0137 | 7 | .CONST 0x0137 ; Address of begin
0131 0004 | | .CONST 0x0004 ; Address of exception handler
0132 0002 | | .CONST 0x0002 ; Number of locals
0133 INIT_0130:
0133 00da | | Load_Top At_Offset_2
0134 01db | | Execute Vector,Length
0135 00e3 | | Load_Encached Natural_Cache
0136 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
0137 BODY_0130:
0137 00d8 | | Load_Top At_Offset_0
0138 e5fe | | Load 0x2,-0x2
0139 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
013a 027d | } | Execute Discrete,Greater
013b 6803 |h | Jump_Zero 0x13f
013c e5fe | | Load 0x2,-0x2
013d 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
013e 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
013f 00db | | Load_Top At_Offset_3
0140 01dd | | Execute Vector,First
0141 e5ff | | Load 0x2,-0x1
0142 01dd | | Execute Vector,First
0143 00da | | Load_Top At_Offset_2
0144 0273 | s | Execute Discrete,Plus
0145 0aff | | Execute_Immediate Plus,-0x1
0146 00d8 | | Load_Top At_Offset_0
0147 00e2 | | Load_Encached Integer_Cache
0148 0260 | ` | Execute Discrete,In_Type
0149 7001 |p | Jump_Nonzero 0x14b
014a 0801 | | Execute_Immediate Raise,0x1
014b e5ff | | Load 0x2,-0x1
014c 01cf | | Execute Vector,Slice_Read
014d 4801 |H | Short_Literal 0x1
014e 00da | | Load_Top At_Offset_2
014f e5fe | | Load 0x2,-0x2
0150 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0151 01ce | | Execute Vector,Slice_Write
0152 00d8 | | Load_Top At_Offset_0
0153 e5fe | | Load 0x2,-0x2
0154 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0155 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0156 0000 0000 | | .XXX[0x2]
0158 ; --------------------------------------------------------------------------------------
0158 ; SUBPROGRAM
0158 ; --------------------------------------------------------------------------------------
0158 015b | [ | .CONST 0x015b ; Address of begin
0159 0004 | | .CONST 0x0004 ; Address of exception handler
015a 0001 | | .CONST 0x0001 ; Number of locals
015b BODY_0158:
015b INIT_0158:
015b 00db | | Load_Top At_Offset_3
015c 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
015d 0d01 | | Execute_Immediate Less,0x1
015e 6801 |h | Jump_Zero 0x160
015f 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0160 00da | | Load_Top At_Offset_2
0161 4801 |H | Short_Literal 0x1
0162 e5fe | | Load 0x2,-0x2
0163 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0164 01d6 | | Execute Vector,Field_Write
0165 4801 |H | Short_Literal 0x1
0166 e5fe | | Load 0x2,-0x2
0167 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0168 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0169 0000 0000 | | .BLANK 0000[0x7]
0170 ; --------------------------------------------------------------------------------------
0170 ; SUBPROGRAM
0170 ; --------------------------------------------------------------------------------------
0170 0173 | s | .CONST 0x0173 ; Address of begin
0171 0004 | | .CONST 0x0004 ; Address of exception handler
0172 0001 | | .CONST 0x0001 ; Number of locals
0173 BODY_0170:
0173 INIT_0170:
0173 e5fd | | Load 0x2,-0x3
0174 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0175 e5fe | | Load 0x2,-0x2
0176 027c | | | Execute Discrete,Less
0177 6818 |h | Jump_Zero 0x190
0178 e5fd | | Load 0x2,-0x3
0179 00d8 | | Load_Top At_Offset_0
017a 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
017b 00d8 | | Load_Top At_Offset_0
017c 0335 | 5 | Declare_Variable Array,Duplicate
017d 00cd | | Action Spare6_Action
017e 00d9 | | Load_Top At_Offset_1
017f 01d9 | | Execute Vector,Reverse_Bounds
0180 0263 | c | Execute Discrete,Above_Bound
0181 7005 |p | Jump_Nonzero 0x187
0182 e5ff | | Load 0x2,-0x1
0183 00d9 | | Load_Top At_Offset_1
0184 e404 | | Load 0x2,0x4
0185 01d6 | | Execute Vector,Field_Write
0186 3ffb |? | Loop_Increasing 0x182
0187 00cd | | Action Spare6_Action
0188 00d9 | | Load_Top At_Offset_1
0189 2903 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x3
018a 00d1 | | Pop_Control Pop_Count_1
018b e5fd | | Load 0x2,-0x3
018c 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
018d e5fd | | Load 0x2,-0x3
018e 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
018f 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0190 e5fd | | Load 0x2,-0x3
0191 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0192 4801 |H | Short_Literal 0x1
0193 e5fe | | Load 0x2,-0x2
0194 00d9 | | Load_Top At_Offset_1
0195 00d9 | | Load_Top At_Offset_1
0196 e402 | | Load 0x2,0x2
0197 035b | [ | Declare_Type Array,Constrained
0198 00db | | Load_Top At_Offset_3
0199 01cd | | Execute Vector,Slice_Reference
019a 00d8 | | Load_Top At_Offset_0
019b 0335 | 5 | Declare_Variable Array,Duplicate
019c 00cd | | Action Spare6_Action
019d 00d9 | | Load_Top At_Offset_1
019e 01d9 | | Execute Vector,Reverse_Bounds
019f 0263 | c | Execute Discrete,Above_Bound
01a0 7005 |p | Jump_Nonzero 0x1a6
01a1 e5ff | | Load 0x2,-0x1
01a2 00d9 | | Load_Top At_Offset_1
01a3 e406 | | Load 0x2,0x6
01a4 01d6 | | Execute Vector,Field_Write
01a5 3ffb |? | Loop_Increasing 0x1a1
01a6 00cd | | Action Spare6_Action
01a7 00da | | Load_Top At_Offset_2
01a8 00da | | Load_Top At_Offset_2
01a9 e402 | | Load 0x2,0x2
01aa 01ce | | Execute Vector,Slice_Write
01ab 00d3 | | Pop_Control Pop_Count_3
01ac 00db | | Load_Top At_Offset_3
01ad e5fd | | Load 0x2,-0x3
01ae 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
01af 4503 |E | Exit_Suprogram New_Top_Offset 0x3
01b0 ; --------------------------------------------------------------------------------------
01b0 ; SUBPROGRAM
01b0 ; --------------------------------------------------------------------------------------
01b0 01b7 | | .CONST 0x01b7 ; Address of begin
01b1 0004 | | .CONST 0x0004 ; Address of exception handler
01b2 0002 | | .CONST 0x0002 ; Number of locals
01b3 INIT_01b0:
01b3 00db | | Load_Top At_Offset_3
01b4 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
01b5 00e3 | | Load_Encached Natural_Cache
01b6 03f1 | | Declare_Variable Discrete,With_Value
01b7 BODY_01b0:
01b7 00d8 | | Load_Top At_Offset_0
01b8 e5ff | | Load 0x2,-0x1
01b9 0227 | ' | Execute Access,All_Reference
01ba 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
01bb 027d | } | Execute Discrete,Greater
01bc 6804 |h | Jump_Zero 0x1c1
01bd 00db | | Load_Top At_Offset_3
01be 0227 | ' | Execute Access,All_Reference
01bf 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
01c0 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
01c1 4801 |H | Short_Literal 0x1
01c2 00d9 | | Load_Top At_Offset_1
01c3 e5fe | | Load 0x2,-0x2
01c4 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
01c5 01cf | | Execute Vector,Slice_Read
01c6 4801 |H | Short_Literal 0x1
01c7 00da | | Load_Top At_Offset_2
01c8 e5ff | | Load 0x2,-0x1
01c9 0229 | ) | Execute Access,All_Read
01ca 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
01cb 01ce | | Execute Vector,Slice_Write
01cc 00d8 | | Load_Top At_Offset_0
01cd e5ff | | Load 0x2,-0x1
01ce 0227 | ' | Execute Access,All_Reference
01cf 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
01d0 4503 |E | Exit_Suprogram New_Top_Offset 0x3
01d1 0000 0000 | | .BLANK 0000[0x7]
01d8 ; --------------------------------------------------------------------------------------
01d8 ; SUBPROGRAM
01d8 ; --------------------------------------------------------------------------------------
01d8 01e0 | | .CONST 0x01e0 ; Address of begin
01d9 0004 | | .CONST 0x0004 ; Address of exception handler
01da 0002 | | .CONST 0x0002 ; Number of locals
01db INIT_01d8:
01db 00db | | Load_Top At_Offset_3
01dc 0227 | ' | Execute Access,All_Reference
01dd 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
01de 00e3 | | Load_Encached Natural_Cache
01df 03f1 | | Declare_Variable Discrete,With_Value
01e0 BODY_01d8:
01e0 00d8 | | Load_Top At_Offset_0
01e1 e5ff | | Load 0x2,-0x1
01e2 0227 | ' | Execute Access,All_Reference
01e3 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
01e4 027d | } | Execute Discrete,Greater
01e5 6804 |h | Jump_Zero 0x1ea
01e6 00db | | Load_Top At_Offset_3
01e7 0227 | ' | Execute Access,All_Reference
01e8 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
01e9 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
01ea 4801 |H | Short_Literal 0x1
01eb 00d9 | | Load_Top At_Offset_1
01ec e5fe | | Load 0x2,-0x2
01ed 0227 | ' | Execute Access,All_Reference
01ee 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
01ef 01cf | | Execute Vector,Slice_Read
01f0 4801 |H | Short_Literal 0x1
01f1 00da | | Load_Top At_Offset_2
01f2 e5ff | | Load 0x2,-0x1
01f3 0229 | ) | Execute Access,All_Read
01f4 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
01f5 01ce | | Execute Vector,Slice_Write
01f6 00d8 | | Load_Top At_Offset_0
01f7 e5ff | | Load 0x2,-0x1
01f8 0227 | ' | Execute Access,All_Reference
01f9 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
01fa 4503 |E | Exit_Suprogram New_Top_Offset 0x3
01fb 0000 0000 | | .BLANK 0000[0x5]
0200 ; --------------------------------------------------------------------------------------
0200 ; SUBPROGRAM
0200 ; --------------------------------------------------------------------------------------
0200 0207 | | .CONST 0x0207 ; Address of begin
0201 0004 | | .CONST 0x0004 ; Address of exception handler
0202 0002 | | .CONST 0x0002 ; Number of locals
0203 INIT_0200:
0203 00db | | Load_Top At_Offset_3
0204 01db | | Execute Vector,Length
0205 00e3 | | Load_Encached Natural_Cache
0206 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
0207 BODY_0200:
0207 00d8 | | Load_Top At_Offset_0
0208 e5ff | | Load 0x2,-0x1
0209 0227 | ' | Execute Access,All_Reference
020a 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
020b 027d | } | Execute Discrete,Greater
020c 6804 |h | Jump_Zero 0x211
020d 00db | | Load_Top At_Offset_3
020e 0227 | ' | Execute Access,All_Reference
020f 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0210 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
0211 e5fe | | Load 0x2,-0x2
0212 01dd | | Execute Vector,First
0213 e5fe | | Load 0x2,-0x2
0214 01dd | | Execute Vector,First
0215 00da | | Load_Top At_Offset_2
0216 0273 | s | Execute Discrete,Plus
0217 0aff | | Execute_Immediate Plus,-0x1
0218 00d8 | | Load_Top At_Offset_0
0219 00e2 | | Load_Encached Integer_Cache
021a 0260 | ` | Execute Discrete,In_Type
021b 7001 |p | Jump_Nonzero 0x21d
021c 0801 | | Execute_Immediate Raise,0x1
021d e5fe | | Load 0x2,-0x2
021e 01cf | | Execute Vector,Slice_Read
021f 4801 |H | Short_Literal 0x1
0220 00da | | Load_Top At_Offset_2
0221 e5ff | | Load 0x2,-0x1
0222 0229 | ) | Execute Access,All_Read
0223 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0224 01ce | | Execute Vector,Slice_Write
0225 00d8 | | Load_Top At_Offset_0
0226 e5ff | | Load 0x2,-0x1
0227 0227 | ' | Execute Access,All_Reference
0228 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0229 4503 |E | Exit_Suprogram New_Top_Offset 0x3
022a 0000 0000 | | .BLANK 0000[0x6]
0230 ; --------------------------------------------------------------------------------------
0230 ; SUBPROGRAM
0230 ; --------------------------------------------------------------------------------------
0230 0233 | 3 | .CONST 0x0233 ; Address of begin
0231 0004 | | .CONST 0x0004 ; Address of exception handler
0232 0001 | | .CONST 0x0001 ; Number of locals
0233 BODY_0230:
0233 INIT_0230:
0233 00da | | Load_Top At_Offset_2
0234 0227 | ' | Execute Access,All_Reference
0235 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0236 0d01 | | Execute_Immediate Less,0x1
0237 6801 |h | Jump_Zero 0x239
0238 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0239 00db | | Load_Top At_Offset_3
023a 4801 |H | Short_Literal 0x1
023b e5ff | | Load 0x2,-0x1
023c 0227 | ' | Execute Access,All_Reference
023d 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
023e 01d6 | | Execute Vector,Field_Write
023f 4801 |H | Short_Literal 0x1
0240 00db | | Load_Top At_Offset_3
0241 0227 | ' | Execute Access,All_Reference
0242 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0243 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0244 0000 0000 | | .BLANK 0000[0x4]
0248 ; --------------------------------------------------------------------------------------
0248 ; SUBPROGRAM
0248 ; --------------------------------------------------------------------------------------
0248 024b | K | .CONST 0x024b ; Address of begin
0249 0004 | | .CONST 0x0004 ; Address of exception handler
024a 0001 | | .CONST 0x0001 ; Number of locals
024b BODY_0248:
024b INIT_0248:
024b 00da | | Load_Top At_Offset_2
024c 0227 | ' | Execute Access,All_Reference
024d 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
024e e5fd | | Load 0x2,-0x3
024f 027c | | | Execute Discrete,Less
0250 681b |h | Jump_Zero 0x26c
0251 00da | | Load_Top At_Offset_2
0252 0229 | ) | Execute Access,All_Read
0253 00d8 | | Load_Top At_Offset_0
0254 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0255 00d8 | | Load_Top At_Offset_0
0256 0335 | 5 | Declare_Variable Array,Duplicate
0257 00cd | | Action Spare6_Action
0258 00d9 | | Load_Top At_Offset_1
0259 01d9 | | Execute Vector,Reverse_Bounds
025a 0263 | c | Execute Discrete,Above_Bound
025b 7005 |p | Jump_Nonzero 0x261
025c e5fe | | Load 0x2,-0x2
025d 00d9 | | Load_Top At_Offset_1
025e e404 | | Load 0x2,0x4
025f 01d6 | | Execute Vector,Field_Write
0260 3ffb |? | Loop_Increasing 0x25c
0261 00cd | | Action Spare6_Action
0262 00d9 | | Load_Top At_Offset_1
0263 2903 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x3
0264 00d1 | | Pop_Control Pop_Count_1
0265 00da | | Load_Top At_Offset_2
0266 0227 | ' | Execute Access,All_Reference
0267 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0268 00db | | Load_Top At_Offset_3
0269 0227 | ' | Execute Access,All_Reference
026a 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
026b 4504 |E | Exit_Suprogram New_Top_Offset 0x4
026c 00da | | Load_Top At_Offset_2
026d 0229 | ) | Execute Access,All_Read
026e 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
026f 4801 |H | Short_Literal 0x1
0270 e5fd | | Load 0x2,-0x3
0271 00d9 | | Load_Top At_Offset_1
0272 00d9 | | Load_Top At_Offset_1
0273 e402 | | Load 0x2,0x2
0274 035b | [ | Declare_Type Array,Constrained
0275 00db | | Load_Top At_Offset_3
0276 01cd | | Execute Vector,Slice_Reference
0277 00d8 | | Load_Top At_Offset_0
0278 0335 | 5 | Declare_Variable Array,Duplicate
0279 00cd | | Action Spare6_Action
027a 00d9 | | Load_Top At_Offset_1
027b 01d9 | | Execute Vector,Reverse_Bounds
027c 0263 | c | Execute Discrete,Above_Bound
027d 7005 |p | Jump_Nonzero 0x283
027e e5fe | | Load 0x2,-0x2
027f 00d9 | | Load_Top At_Offset_1
0280 e406 | | Load 0x2,0x6
0281 01d6 | | Execute Vector,Field_Write
0282 3ffb |? | Loop_Increasing 0x27e
0283 00cd | | Action Spare6_Action
0284 00da | | Load_Top At_Offset_2
0285 00da | | Load_Top At_Offset_2
0286 e402 | | Load 0x2,0x2
0287 01ce | | Execute Vector,Slice_Write
0288 00d3 | | Pop_Control Pop_Count_3
0289 e5fd | | Load 0x2,-0x3
028a 00db | | Load_Top At_Offset_3
028b 0227 | ' | Execute Access,All_Reference
028c 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
028d 4504 |E | Exit_Suprogram New_Top_Offset 0x4
028e 0000 0000 | | .XXX[0x2]
0290 ; --------------------------------------------------------------------------------------
0290 ; SUBPROGRAM
0290 ; --------------------------------------------------------------------------------------
0290 029e | | .CONST 0x029e ; Address of begin
0291 0004 | | .CONST 0x0004 ; Address of exception handler
0292 0003 | | .CONST 0x0003 ; Number of locals
0293 INIT_0290:
0293 e001 | | Load 0x0,0x1
0294 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0295 00db | | Load_Top At_Offset_3
0296 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0297 e002 | | Load 0x0,0x2
0298 180d | | Execute Package,Field_Execute,Field_Number 0xd
0299 0039 | 9 | Store_Top Access,At_Offset_1
029a 00db | | Load_Top At_Offset_3
029b 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
029c 00e3 | | Load_Encached Natural_Cache
029d 03f1 | | Declare_Variable Discrete,With_Value
029e BODY_0290:
029e 00d9 | | Load_Top At_Offset_1
029f a5fe | | Store_Unchecked 0x2,-0x2
02a0 4801 |H | Short_Literal 0x1
02a1 00d9 | | Load_Top At_Offset_1
02a2 e5ff | | Load 0x2,-0x1
02a3 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
02a4 01cf | | Execute Vector,Slice_Read
02a5 4801 |H | Short_Literal 0x1
02a6 00da | | Load_Top At_Offset_2
02a7 e402 | | Load 0x2,0x2
02a8 0229 | ) | Execute Access,All_Read
02a9 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
02aa 01ce | | Execute Vector,Slice_Write
02ab 00d8 | | Load_Top At_Offset_0
02ac 00da | | Load_Top At_Offset_2
02ad 0227 | ' | Execute Access,All_Reference
02ae 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
02af 4502 |E | Exit_Suprogram New_Top_Offset 0x2
02b0 ; --------------------------------------------------------------------------------------
02b0 ; SUBPROGRAM
02b0 ; --------------------------------------------------------------------------------------
02b0 02c0 | | .CONST 0x02c0 ; Address of begin
02b1 0004 | | .CONST 0x0004 ; Address of exception handler
02b2 0003 | | .CONST 0x0003 ; Number of locals
02b3 INIT_02b0:
02b3 e001 | | Load 0x0,0x1
02b4 1b10 | | Execute Package,Field_Read,Field_Number 0x10
02b5 00db | | Load_Top At_Offset_3
02b6 0227 | ' | Execute Access,All_Reference
02b7 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
02b8 e002 | | Load 0x0,0x2
02b9 180d | | Execute Package,Field_Execute,Field_Number 0xd
02ba 0039 | 9 | Store_Top Access,At_Offset_1
02bb 00db | | Load_Top At_Offset_3
02bc 0227 | ' | Execute Access,All_Reference
02bd 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
02be 00e3 | | Load_Encached Natural_Cache
02bf 03f1 | | Declare_Variable Discrete,With_Value
02c0 BODY_02b0:
02c0 00d9 | | Load_Top At_Offset_1
02c1 a5fe | | Store_Unchecked 0x2,-0x2
02c2 4801 |H | Short_Literal 0x1
02c3 00d9 | | Load_Top At_Offset_1
02c4 e5ff | | Load 0x2,-0x1
02c5 0227 | ' | Execute Access,All_Reference
02c6 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
02c7 01cf | | Execute Vector,Slice_Read
02c8 4801 |H | Short_Literal 0x1
02c9 00da | | Load_Top At_Offset_2
02ca e402 | | Load 0x2,0x2
02cb 0229 | ) | Execute Access,All_Read
02cc 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
02cd 01ce | | Execute Vector,Slice_Write
02ce 00d8 | | Load_Top At_Offset_0
02cf 00da | | Load_Top At_Offset_2
02d0 0227 | ' | Execute Access,All_Reference
02d1 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
02d2 4502 |E | Exit_Suprogram New_Top_Offset 0x2
02d3 0000 0000 | | .BLANK 0000[0x5]
02d8 ; --------------------------------------------------------------------------------------
02d8 ; SUBPROGRAM
02d8 ; --------------------------------------------------------------------------------------
02d8 02eb | | .CONST 0x02eb ; Address of begin
02d9 0004 | | .CONST 0x0004 ; Address of exception handler
02da 0003 | | .CONST 0x0003 ; Number of locals
02db INIT_02d8:
02db e001 | | Load 0x0,0x1
02dc 1b10 | | Execute Package,Field_Read,Field_Number 0x10
02dd 00db | | Load_Top At_Offset_3
02de 01db | | Execute Vector,Length
02df 00d8 | | Load_Top At_Offset_0
02e0 00e3 | | Load_Encached Natural_Cache
02e1 0260 | ` | Execute Discrete,In_Type
02e2 7001 |p | Jump_Nonzero 0x2e4
02e3 0801 | | Execute_Immediate Raise,0x1
02e4 e002 | | Load 0x0,0x2
02e5 180d | | Execute Package,Field_Execute,Field_Number 0xd
02e6 0039 | 9 | Store_Top Access,At_Offset_1
02e7 00db | | Load_Top At_Offset_3
02e8 01db | | Execute Vector,Length
02e9 00e3 | | Load_Encached Natural_Cache
02ea 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
02eb BODY_02d8:
02eb 00d9 | | Load_Top At_Offset_1
02ec a5fe | | Store_Unchecked 0x2,-0x2
02ed e5ff | | Load 0x2,-0x1
02ee 01dd | | Execute Vector,First
02ef e5ff | | Load 0x2,-0x1
02f0 01dd | | Execute Vector,First
02f1 00da | | Load_Top At_Offset_2
02f2 0273 | s | Execute Discrete,Plus
02f3 0aff | | Execute_Immediate Plus,-0x1
02f4 00d8 | | Load_Top At_Offset_0
02f5 00e2 | | Load_Encached Integer_Cache
02f6 0260 | ` | Execute Discrete,In_Type
02f7 7001 |p | Jump_Nonzero 0x2f9
02f8 0801 | | Execute_Immediate Raise,0x1
02f9 e5ff | | Load 0x2,-0x1
02fa 01cf | | Execute Vector,Slice_Read
02fb 4801 |H | Short_Literal 0x1
02fc 00da | | Load_Top At_Offset_2
02fd e402 | | Load 0x2,0x2
02fe 0229 | ) | Execute Access,All_Read
02ff 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0300 01ce | | Execute Vector,Slice_Write
0301 00d8 | | Load_Top At_Offset_0
0302 00da | | Load_Top At_Offset_2
0303 0227 | ' | Execute Access,All_Reference
0304 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0305 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0306 0000 0000 | | .XXX[0x2]
0308 ; --------------------------------------------------------------------------------------
0308 ; SUBPROGRAM
0308 ; --------------------------------------------------------------------------------------
0308 0311 | | .CONST 0x0311 ; Address of begin
0309 0004 | | .CONST 0x0004 ; Address of exception handler
030a 0002 | | .CONST 0x0002 ; Number of locals
030b INIT_0308:
030b e001 | | Load 0x0,0x1
030c 1b10 | | Execute Package,Field_Read,Field_Number 0x10
030d 4801 |H | Short_Literal 0x1
030e e002 | | Load 0x0,0x2
030f 180d | | Execute Package,Field_Execute,Field_Number 0xd
0310 0039 | 9 | Store_Top Access,At_Offset_1
0311 BODY_0308:
0311 00d8 | | Load_Top At_Offset_0
0312 a5fe | | Store_Unchecked 0x2,-0x2
0313 00db | | Load_Top At_Offset_3
0314 4801 |H | Short_Literal 0x1
0315 00da | | Load_Top At_Offset_2
0316 0227 | ' | Execute Access,All_Reference
0317 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0318 01d6 | | Execute Vector,Field_Write
0319 4801 |H | Short_Literal 0x1
031a 00d9 | | Load_Top At_Offset_1
031b 0227 | ' | Execute Access,All_Reference
031c 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
031d 4502 |E | Exit_Suprogram New_Top_Offset 0x2
031e 0000 0000 | | .XXX[0x2]
0320 ; --------------------------------------------------------------------------------------
0320 ; SUBPROGRAM
0320 ; --------------------------------------------------------------------------------------
0320 0329 | ) | .CONST 0x0329 ; Address of begin
0321 0004 | | .CONST 0x0004 ; Address of exception handler
0322 0002 | | .CONST 0x0002 ; Number of locals
0323 INIT_0320:
0323 e001 | | Load 0x0,0x1
0324 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0325 e5fe | | Load 0x2,-0x2
0326 e002 | | Load 0x0,0x2
0327 180d | | Execute Package,Field_Execute,Field_Number 0xd
0328 0039 | 9 | Store_Top Access,At_Offset_1
0329 BODY_0320:
0329 00d8 | | Load_Top At_Offset_0
032a a5fd | | Store_Unchecked 0x2,-0x3
032b 00d8 | | Load_Top At_Offset_0
032c 0229 | ) | Execute Access,All_Read
032d 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
032e 4801 |H | Short_Literal 0x1
032f e5fe | | Load 0x2,-0x2
0330 00d9 | | Load_Top At_Offset_1
0331 00d9 | | Load_Top At_Offset_1
0332 e403 | | Load 0x2,0x3
0333 035b | [ | Declare_Type Array,Constrained
0334 00db | | Load_Top At_Offset_3
0335 01cd | | Execute Vector,Slice_Reference
0336 00d8 | | Load_Top At_Offset_0
0337 0335 | 5 | Declare_Variable Array,Duplicate
0338 00cd | | Action Spare6_Action
0339 00d9 | | Load_Top At_Offset_1
033a 01d9 | | Execute Vector,Reverse_Bounds
033b 0263 | c | Execute Discrete,Above_Bound
033c 7005 |p | Jump_Nonzero 0x342
033d e5ff | | Load 0x2,-0x1
033e 00d9 | | Load_Top At_Offset_1
033f e407 | | Load 0x2,0x7
0340 01d6 | | Execute Vector,Field_Write
0341 3ffb |? | Loop_Increasing 0x33d
0342 00cd | | Action Spare6_Action
0343 00da | | Load_Top At_Offset_2
0344 00da | | Load_Top At_Offset_2
0345 e403 | | Load 0x2,0x3
0346 01ce | | Execute Vector,Slice_Write
0347 00d3 | | Pop_Control Pop_Count_3
0348 e5fe | | Load 0x2,-0x2
0349 00d9 | | Load_Top At_Offset_1
034a 0227 | ' | Execute Access,All_Reference
034b 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
034c 4503 |E | Exit_Suprogram New_Top_Offset 0x3
034d 0000 0000 | | .XXX[0x3]
034f 0000 | |
0350 ; --------------------------------------------------------------------------------------
0350 ; SUBPROGRAM
0350 ; --------------------------------------------------------------------------------------
0350 035a | Z | .CONST 0x035a ; Address of begin
0351 0004 | | .CONST 0x0004 ; Address of exception handler
0352 0002 | | .CONST 0x0002 ; Number of locals
0353 INIT_0350:
0353 00db | | Load_Top At_Offset_3
0354 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0355 e5fe | | Load 0x2,-0x2
0356 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0357 0272 | r | Execute Discrete,Minus
0358 00e3 | | Load_Encached Natural_Cache
0359 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
035a BODY_0350:
035a 00d8 | | Load_Top At_Offset_0
035b e5ff | | Load 0x2,-0x1
035c 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
035d 027d | } | Execute Discrete,Greater
035e 6803 |h | Jump_Zero 0x362
035f 00db | | Load_Top At_Offset_3
0360 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0361 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
0362 4801 |H | Short_Literal 0x1
0363 00d9 | | Load_Top At_Offset_1
0364 e5ff | | Load 0x2,-0x1
0365 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0366 01cf | | Execute Vector,Slice_Read
0367 e5fe | | Load 0x2,-0x2
0368 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0369 0a01 | | Execute_Immediate Plus,0x1
036a 00d8 | | Load_Top At_Offset_0
036b 00e2 | | Load_Encached Integer_Cache
036c 0260 | ` | Execute Discrete,In_Type
036d 7001 |p | Jump_Nonzero 0x36f
036e 0801 | | Execute_Immediate Raise,0x1
036f e5fe | | Load 0x2,-0x2
0370 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0371 00db | | Load_Top At_Offset_3
0372 0273 | s | Execute Discrete,Plus
0373 00d8 | | Load_Top At_Offset_0
0374 00e2 | | Load_Encached Integer_Cache
0375 0260 | ` | Execute Discrete,In_Type
0376 7001 |p | Jump_Nonzero 0x378
0377 0801 | | Execute_Immediate Raise,0x1
0378 e5fe | | Load 0x2,-0x2
0379 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
037a 01ce | | Execute Vector,Slice_Write
037b e5fe | | Load 0x2,-0x2
037c 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
037d 00d9 | | Load_Top At_Offset_1
037e 0273 | s | Execute Discrete,Plus
037f e5fe | | Load 0x2,-0x2
0380 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0381 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0382 0000 0000 | | .BLANK 0000[0x6]
0388 ; --------------------------------------------------------------------------------------
0388 ; SUBPROGRAM
0388 ; --------------------------------------------------------------------------------------
0388 0392 | | .CONST 0x0392 ; Address of begin
0389 0004 | | .CONST 0x0004 ; Address of exception handler
038a 0002 | | .CONST 0x0002 ; Number of locals
038b INIT_0388:
038b 00db | | Load_Top At_Offset_3
038c 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
038d e5fe | | Load 0x2,-0x2
038e 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
038f 0272 | r | Execute Discrete,Minus
0390 00e3 | | Load_Encached Natural_Cache
0391 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
0392 BODY_0388:
0392 00d8 | | Load_Top At_Offset_0
0393 e5ff | | Load 0x2,-0x1
0394 0227 | ' | Execute Access,All_Reference
0395 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0396 027d | } | Execute Discrete,Greater
0397 6804 |h | Jump_Zero 0x39c
0398 00db | | Load_Top At_Offset_3
0399 0227 | ' | Execute Access,All_Reference
039a 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
039b 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
039c 4801 |H | Short_Literal 0x1
039d 00d9 | | Load_Top At_Offset_1
039e e5ff | | Load 0x2,-0x1
039f 0227 | ' | Execute Access,All_Reference
03a0 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
03a1 01cf | | Execute Vector,Slice_Read
03a2 e5fe | | Load 0x2,-0x2
03a3 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
03a4 0a01 | | Execute_Immediate Plus,0x1
03a5 00d8 | | Load_Top At_Offset_0
03a6 00e2 | | Load_Encached Integer_Cache
03a7 0260 | ` | Execute Discrete,In_Type
03a8 7001 |p | Jump_Nonzero 0x3aa
03a9 0801 | | Execute_Immediate Raise,0x1
03aa e5fe | | Load 0x2,-0x2
03ab 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
03ac 00db | | Load_Top At_Offset_3
03ad 0273 | s | Execute Discrete,Plus
03ae 00d8 | | Load_Top At_Offset_0
03af 00e2 | | Load_Encached Integer_Cache
03b0 0260 | ` | Execute Discrete,In_Type
03b1 7001 |p | Jump_Nonzero 0x3b3
03b2 0801 | | Execute_Immediate Raise,0x1
03b3 e5fe | | Load 0x2,-0x2
03b4 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
03b5 01ce | | Execute Vector,Slice_Write
03b6 e5fe | | Load 0x2,-0x2
03b7 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
03b8 00d9 | | Load_Top At_Offset_1
03b9 0273 | s | Execute Discrete,Plus
03ba e5fe | | Load 0x2,-0x2
03bb 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
03bc 4502 |E | Exit_Suprogram New_Top_Offset 0x2
03bd 0000 0000 | | .XXX[0x3]
03bf 0000 | |
03c0 ; --------------------------------------------------------------------------------------
03c0 ; SUBPROGRAM
03c0 ; --------------------------------------------------------------------------------------
03c0 03ca | | .CONST 0x03ca ; Address of begin
03c1 0004 | | .CONST 0x0004 ; Address of exception handler
03c2 0002 | | .CONST 0x0002 ; Number of locals
03c3 INIT_03c0:
03c3 00db | | Load_Top At_Offset_3
03c4 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
03c5 e5fe | | Load 0x2,-0x2
03c6 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
03c7 0272 | r | Execute Discrete,Minus
03c8 00e3 | | Load_Encached Natural_Cache
03c9 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
03ca BODY_03c0:
03ca 00d8 | | Load_Top At_Offset_0
03cb e5ff | | Load 0x2,-0x1
03cc 01db | | Execute Vector,Length
03cd 027d | } | Execute Discrete,Greater
03ce 6803 |h | Jump_Zero 0x3d2
03cf 00db | | Load_Top At_Offset_3
03d0 01db | | Execute Vector,Length
03d1 0059 | Y | Store_Top Discrete,At_Offset_1
03d2 00db | | Load_Top At_Offset_3
03d3 01dd | | Execute Vector,First
03d4 e5ff | | Load 0x2,-0x1
03d5 01dd | | Execute Vector,First
03d6 00da | | Load_Top At_Offset_2
03d7 0273 | s | Execute Discrete,Plus
03d8 0aff | | Execute_Immediate Plus,-0x1
03d9 00d8 | | Load_Top At_Offset_0
03da 00e2 | | Load_Encached Integer_Cache
03db 0260 | ` | Execute Discrete,In_Type
03dc 7001 |p | Jump_Nonzero 0x3de
03dd 0801 | | Execute_Immediate Raise,0x1
03de e5ff | | Load 0x2,-0x1
03df 01cf | | Execute Vector,Slice_Read
03e0 e5fe | | Load 0x2,-0x2
03e1 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
03e2 0a01 | | Execute_Immediate Plus,0x1
03e3 00d8 | | Load_Top At_Offset_0
03e4 00e2 | | Load_Encached Integer_Cache
03e5 0260 | ` | Execute Discrete,In_Type
03e6 7001 |p | Jump_Nonzero 0x3e8
03e7 0801 | | Execute_Immediate Raise,0x1
03e8 e5fe | | Load 0x2,-0x2
03e9 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
03ea 00db | | Load_Top At_Offset_3
03eb 0273 | s | Execute Discrete,Plus
03ec 00d8 | | Load_Top At_Offset_0
03ed 00e2 | | Load_Encached Integer_Cache
03ee 0260 | ` | Execute Discrete,In_Type
03ef 7001 |p | Jump_Nonzero 0x3f1
03f0 0801 | | Execute_Immediate Raise,0x1
03f1 e5fe | | Load 0x2,-0x2
03f2 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
03f3 01ce | | Execute Vector,Slice_Write
03f4 e5fe | | Load 0x2,-0x2
03f5 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
03f6 00d9 | | Load_Top At_Offset_1
03f7 0273 | s | Execute Discrete,Plus
03f8 e5fe | | Load 0x2,-0x2
03f9 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
03fa 4502 |E | Exit_Suprogram New_Top_Offset 0x2
03fb 0000 0000 | | .BLANK 0000[0x5]
0400 ; --------------------------------------------------------------------------------------
0400 ; SUBPROGRAM
0400 ; --------------------------------------------------------------------------------------
0400 040a | | .CONST 0x040a ; Address of begin
0401 0004 | | .CONST 0x0004 ; Address of exception handler
0402 0002 | | .CONST 0x0002 ; Number of locals
0403 INIT_0400:
0403 00db | | Load_Top At_Offset_3
0404 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0405 e5fe | | Load 0x2,-0x2
0406 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0407 0272 | r | Execute Discrete,Minus
0408 00e3 | | Load_Encached Natural_Cache
0409 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
040a BODY_0400:
040a 00d8 | | Load_Top At_Offset_0
040b 0c01 | | Execute_Immediate Greater_Equal,0x1
040c 680c |h | Jump_Zero 0x419
040d 00db | | Load_Top At_Offset_3
040e e5fe | | Load 0x2,-0x2
040f 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0410 0a01 | | Execute_Immediate Plus,0x1
0411 e5fe | | Load 0x2,-0x2
0412 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0413 01d6 | | Execute Vector,Field_Write
0414 e5fe | | Load 0x2,-0x2
0415 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0416 0a01 | | Execute_Immediate Plus,0x1
0417 e5fe | | Load 0x2,-0x2
0418 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0419 4502 |E | Exit_Suprogram New_Top_Offset 0x2
041a 0000 0000 | | .BLANK 0000[0x6]
0420 ; --------------------------------------------------------------------------------------
0420 ; SUBPROGRAM
0420 ; --------------------------------------------------------------------------------------
0420 042a | * | .CONST 0x042a ; Address of begin
0421 0004 | | .CONST 0x0004 ; Address of exception handler
0422 0002 | | .CONST 0x0002 ; Number of locals
0423 INIT_0420:
0423 e5fd | | Load 0x2,-0x3
0424 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0425 e5fd | | Load 0x2,-0x3
0426 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0427 0272 | r | Execute Discrete,Minus
0428 00e3 | | Load_Encached Natural_Cache
0429 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
042a BODY_0420:
042a 00d8 | | Load_Top At_Offset_0
042b e5fe | | Load 0x2,-0x2
042c 027d | } | Execute Discrete,Greater
042d 6802 |h | Jump_Zero 0x430
042e e5fe | | Load 0x2,-0x2
042f 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
0430 e5fd | | Load 0x2,-0x3
0431 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0432 e5fd | | Load 0x2,-0x3
0433 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0434 0a01 | | Execute_Immediate Plus,0x1
0435 00d8 | | Load_Top At_Offset_0
0436 00e2 | | Load_Encached Integer_Cache
0437 0260 | ` | Execute Discrete,In_Type
0438 7001 |p | Jump_Nonzero 0x43a
0439 0801 | | Execute_Immediate Raise,0x1
043a e5fd | | Load 0x2,-0x3
043b 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
043c 00db | | Load_Top At_Offset_3
043d 0273 | s | Execute Discrete,Plus
043e 00d8 | | Load_Top At_Offset_0
043f 00e2 | | Load_Encached Integer_Cache
0440 0260 | ` | Execute Discrete,In_Type
0441 7001 |p | Jump_Nonzero 0x443
0442 0801 | | Execute_Immediate Raise,0x1
0443 00d9 | | Load_Top At_Offset_1
0444 00d9 | | Load_Top At_Offset_1
0445 e403 | | Load 0x2,0x3
0446 035b | [ | Declare_Type Array,Constrained
0447 00db | | Load_Top At_Offset_3
0448 01cd | | Execute Vector,Slice_Reference
0449 00d8 | | Load_Top At_Offset_0
044a 0335 | 5 | Declare_Variable Array,Duplicate
044b 00cd | | Action Spare6_Action
044c 00d9 | | Load_Top At_Offset_1
044d 01d9 | | Execute Vector,Reverse_Bounds
044e 0263 | c | Execute Discrete,Above_Bound
044f 7005 |p | Jump_Nonzero 0x455
0450 e5ff | | Load 0x2,-0x1
0451 00d9 | | Load_Top At_Offset_1
0452 e407 | | Load 0x2,0x7
0453 01d6 | | Execute Vector,Field_Write
0454 3ffb |? | Loop_Increasing 0x450
0455 00cd | | Action Spare6_Action
0456 00da | | Load_Top At_Offset_2
0457 00da | | Load_Top At_Offset_2
0458 e403 | | Load 0x2,0x3
0459 01ce | | Execute Vector,Slice_Write
045a 00d3 | | Pop_Control Pop_Count_3
045b e5fd | | Load 0x2,-0x3
045c 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
045d e5fe | | Load 0x2,-0x2
045e 0273 | s | Execute Discrete,Plus
045f e5fd | | Load 0x2,-0x3
0460 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0461 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0462 0000 0000 | | .BLANK 0000[0x6]
0468 ; --------------------------------------------------------------------------------------
0468 ; SUBPROGRAM
0468 ; --------------------------------------------------------------------------------------
0468 0474 | t | .CONST 0x0474 ; Address of begin
0469 0004 | | .CONST 0x0004 ; Address of exception handler
046a 0002 | | .CONST 0x0002 ; Number of locals
046b INIT_0468:
046b 00da | | Load_Top At_Offset_2
046c 0227 | ' | Execute Access,All_Reference
046d 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
046e 00db | | Load_Top At_Offset_3
046f 0227 | ' | Execute Access,All_Reference
0470 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0471 0272 | r | Execute Discrete,Minus
0472 00e3 | | Load_Encached Natural_Cache
0473 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
0474 BODY_0468:
0474 00d8 | | Load_Top At_Offset_0
0475 e5fe | | Load 0x2,-0x2
0476 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0477 027d | } | Execute Discrete,Greater
0478 6803 |h | Jump_Zero 0x47c
0479 e5fe | | Load 0x2,-0x2
047a 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
047b 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
047c 4801 |H | Short_Literal 0x1
047d 00d9 | | Load_Top At_Offset_1
047e e5fe | | Load 0x2,-0x2
047f 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0480 01cf | | Execute Vector,Slice_Read
0481 e5ff | | Load 0x2,-0x1
0482 0227 | ' | Execute Access,All_Reference
0483 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0484 0a01 | | Execute_Immediate Plus,0x1
0485 00d8 | | Load_Top At_Offset_0
0486 00e2 | | Load_Encached Integer_Cache
0487 0260 | ` | Execute Discrete,In_Type
0488 7001 |p | Jump_Nonzero 0x48a
0489 0801 | | Execute_Immediate Raise,0x1
048a e5ff | | Load 0x2,-0x1
048b 0227 | ' | Execute Access,All_Reference
048c 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
048d 00db | | Load_Top At_Offset_3
048e 0273 | s | Execute Discrete,Plus
048f 00d8 | | Load_Top At_Offset_0
0490 00e2 | | Load_Encached Integer_Cache
0491 0260 | ` | Execute Discrete,In_Type
0492 7001 |p | Jump_Nonzero 0x494
0493 0801 | | Execute_Immediate Raise,0x1
0494 e5ff | | Load 0x2,-0x1
0495 0229 | ) | Execute Access,All_Read
0496 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0497 01ce | | Execute Vector,Slice_Write
0498 00db | | Load_Top At_Offset_3
0499 0227 | ' | Execute Access,All_Reference
049a 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
049b 00d9 | | Load_Top At_Offset_1
049c 0273 | s | Execute Discrete,Plus
049d e5ff | | Load 0x2,-0x1
049e 0227 | ' | Execute Access,All_Reference
049f 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
04a0 4503 |E | Exit_Suprogram New_Top_Offset 0x3
04a1 0000 0000 | | .BLANK 0000[0x7]
04a8 ; --------------------------------------------------------------------------------------
04a8 ; SUBPROGRAM
04a8 ; --------------------------------------------------------------------------------------
04a8 04b4 | | .CONST 0x04b4 ; Address of begin
04a9 0004 | | .CONST 0x0004 ; Address of exception handler
04aa 0002 | | .CONST 0x0002 ; Number of locals
04ab INIT_04a8:
04ab 00da | | Load_Top At_Offset_2
04ac 0227 | ' | Execute Access,All_Reference
04ad 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
04ae 00db | | Load_Top At_Offset_3
04af 0227 | ' | Execute Access,All_Reference
04b0 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
04b1 0272 | r | Execute Discrete,Minus
04b2 00e3 | | Load_Encached Natural_Cache
04b3 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
04b4 BODY_04a8:
04b4 00d8 | | Load_Top At_Offset_0
04b5 e5fe | | Load 0x2,-0x2
04b6 0227 | ' | Execute Access,All_Reference
04b7 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
04b8 027d | } | Execute Discrete,Greater
04b9 6804 |h | Jump_Zero 0x4be
04ba e5fe | | Load 0x2,-0x2
04bb 0227 | ' | Execute Access,All_Reference
04bc 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
04bd 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
04be 4801 |H | Short_Literal 0x1
04bf 00d9 | | Load_Top At_Offset_1
04c0 e5fe | | Load 0x2,-0x2
04c1 0227 | ' | Execute Access,All_Reference
04c2 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
04c3 01cf | | Execute Vector,Slice_Read
04c4 e5ff | | Load 0x2,-0x1
04c5 0227 | ' | Execute Access,All_Reference
04c6 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
04c7 0a01 | | Execute_Immediate Plus,0x1
04c8 00d8 | | Load_Top At_Offset_0
04c9 00e2 | | Load_Encached Integer_Cache
04ca 0260 | ` | Execute Discrete,In_Type
04cb 7001 |p | Jump_Nonzero 0x4cd
04cc 0801 | | Execute_Immediate Raise,0x1
04cd e5ff | | Load 0x2,-0x1
04ce 0227 | ' | Execute Access,All_Reference
04cf 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
04d0 00db | | Load_Top At_Offset_3
04d1 0273 | s | Execute Discrete,Plus
04d2 00d8 | | Load_Top At_Offset_0
04d3 00e2 | | Load_Encached Integer_Cache
04d4 0260 | ` | Execute Discrete,In_Type
04d5 7001 |p | Jump_Nonzero 0x4d7
04d6 0801 | | Execute_Immediate Raise,0x1
04d7 e5ff | | Load 0x2,-0x1
04d8 0229 | ) | Execute Access,All_Read
04d9 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
04da 01ce | | Execute Vector,Slice_Write
04db 00db | | Load_Top At_Offset_3
04dc 0227 | ' | Execute Access,All_Reference
04dd 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
04de 00d9 | | Load_Top At_Offset_1
04df 0273 | s | Execute Discrete,Plus
04e0 e5ff | | Load 0x2,-0x1
04e1 0227 | ' | Execute Access,All_Reference
04e2 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
04e3 4503 |E | Exit_Suprogram New_Top_Offset 0x3
04e4 0000 0000 | | .BLANK 0000[0x4]
04e8 ; --------------------------------------------------------------------------------------
04e8 ; SUBPROGRAM
04e8 ; --------------------------------------------------------------------------------------
04e8 04f4 | | .CONST 0x04f4 ; Address of begin
04e9 0004 | | .CONST 0x0004 ; Address of exception handler
04ea 0002 | | .CONST 0x0002 ; Number of locals
04eb INIT_04e8:
04eb 00da | | Load_Top At_Offset_2
04ec 0227 | ' | Execute Access,All_Reference
04ed 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
04ee 00db | | Load_Top At_Offset_3
04ef 0227 | ' | Execute Access,All_Reference
04f0 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
04f1 0272 | r | Execute Discrete,Minus
04f2 00e3 | | Load_Encached Natural_Cache
04f3 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
04f4 BODY_04e8:
04f4 00d8 | | Load_Top At_Offset_0
04f5 e5fe | | Load 0x2,-0x2
04f6 01db | | Execute Vector,Length
04f7 027d | } | Execute Discrete,Greater
04f8 6803 |h | Jump_Zero 0x4fc
04f9 e5fe | | Load 0x2,-0x2
04fa 01db | | Execute Vector,Length
04fb 0059 | Y | Store_Top Discrete,At_Offset_1
04fc e5fe | | Load 0x2,-0x2
04fd 01dd | | Execute Vector,First
04fe e5fe | | Load 0x2,-0x2
04ff 01dd | | Execute Vector,First
0500 00da | | Load_Top At_Offset_2
0501 0273 | s | Execute Discrete,Plus
0502 0aff | | Execute_Immediate Plus,-0x1
0503 00d8 | | Load_Top At_Offset_0
0504 00e2 | | Load_Encached Integer_Cache
0505 0260 | ` | Execute Discrete,In_Type
0506 7001 |p | Jump_Nonzero 0x508
0507 0801 | | Execute_Immediate Raise,0x1
0508 e5fe | | Load 0x2,-0x2
0509 01cf | | Execute Vector,Slice_Read
050a e5ff | | Load 0x2,-0x1
050b 0227 | ' | Execute Access,All_Reference
050c 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
050d 0a01 | | Execute_Immediate Plus,0x1
050e 00d8 | | Load_Top At_Offset_0
050f 00e2 | | Load_Encached Integer_Cache
0510 0260 | ` | Execute Discrete,In_Type
0511 7001 |p | Jump_Nonzero 0x513
0512 0801 | | Execute_Immediate Raise,0x1
0513 e5ff | | Load 0x2,-0x1
0514 0227 | ' | Execute Access,All_Reference
0515 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0516 00db | | Load_Top At_Offset_3
0517 0273 | s | Execute Discrete,Plus
0518 00d8 | | Load_Top At_Offset_0
0519 00e2 | | Load_Encached Integer_Cache
051a 0260 | ` | Execute Discrete,In_Type
051b 7001 |p | Jump_Nonzero 0x51d
051c 0801 | | Execute_Immediate Raise,0x1
051d e5ff | | Load 0x2,-0x1
051e 0229 | ) | Execute Access,All_Read
051f 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0520 01ce | | Execute Vector,Slice_Write
0521 00db | | Load_Top At_Offset_3
0522 0227 | ' | Execute Access,All_Reference
0523 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0524 00d9 | | Load_Top At_Offset_1
0525 0273 | s | Execute Discrete,Plus
0526 e5ff | | Load 0x2,-0x1
0527 0227 | ' | Execute Access,All_Reference
0528 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0529 4503 |E | Exit_Suprogram New_Top_Offset 0x3
052a 0000 0000 | | .BLANK 0000[0x6]
0530 ; --------------------------------------------------------------------------------------
0530 ; SUBPROGRAM
0530 ; --------------------------------------------------------------------------------------
0530 053c | < | .CONST 0x053c ; Address of begin
0531 0004 | | .CONST 0x0004 ; Address of exception handler
0532 0002 | | .CONST 0x0002 ; Number of locals
0533 INIT_0530:
0533 00da | | Load_Top At_Offset_2
0534 0227 | ' | Execute Access,All_Reference
0535 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0536 00db | | Load_Top At_Offset_3
0537 0227 | ' | Execute Access,All_Reference
0538 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0539 0272 | r | Execute Discrete,Minus
053a 00e3 | | Load_Encached Natural_Cache
053b 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
053c BODY_0530:
053c 00d8 | | Load_Top At_Offset_0
053d 0c01 | | Execute_Immediate Greater_Equal,0x1
053e 6810 |h | Jump_Zero 0x54f
053f e5fe | | Load 0x2,-0x2
0540 e5ff | | Load 0x2,-0x1
0541 0227 | ' | Execute Access,All_Reference
0542 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0543 0a01 | | Execute_Immediate Plus,0x1
0544 e5ff | | Load 0x2,-0x1
0545 0227 | ' | Execute Access,All_Reference
0546 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0547 01d6 | | Execute Vector,Field_Write
0548 00db | | Load_Top At_Offset_3
0549 0227 | ' | Execute Access,All_Reference
054a 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
054b 0a01 | | Execute_Immediate Plus,0x1
054c e5ff | | Load 0x2,-0x1
054d 0227 | ' | Execute Access,All_Reference
054e 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
054f 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0550 ; --------------------------------------------------------------------------------------
0550 ; SUBPROGRAM
0550 ; --------------------------------------------------------------------------------------
0550 055c | \ | .CONST 0x055c ; Address of begin
0551 0004 | | .CONST 0x0004 ; Address of exception handler
0552 0002 | | .CONST 0x0002 ; Number of locals
0553 INIT_0550:
0553 00da | | Load_Top At_Offset_2
0554 0227 | ' | Execute Access,All_Reference
0555 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0556 00db | | Load_Top At_Offset_3
0557 0227 | ' | Execute Access,All_Reference
0558 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0559 0272 | r | Execute Discrete,Minus
055a 00e3 | | Load_Encached Natural_Cache
055b 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
055c BODY_0550:
055c 00d8 | | Load_Top At_Offset_0
055d e5fd | | Load 0x2,-0x3
055e 027d | } | Execute Discrete,Greater
055f 6802 |h | Jump_Zero 0x562
0560 e5fd | | Load 0x2,-0x3
0561 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
0562 00db | | Load_Top At_Offset_3
0563 0229 | ) | Execute Access,All_Read
0564 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0565 e5ff | | Load 0x2,-0x1
0566 0227 | ' | Execute Access,All_Reference
0567 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0568 0a01 | | Execute_Immediate Plus,0x1
0569 00d8 | | Load_Top At_Offset_0
056a 00e2 | | Load_Encached Integer_Cache
056b 0260 | ` | Execute Discrete,In_Type
056c 7001 |p | Jump_Nonzero 0x56e
056d 0801 | | Execute_Immediate Raise,0x1
056e e5ff | | Load 0x2,-0x1
056f 0227 | ' | Execute Access,All_Reference
0570 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0571 00db | | Load_Top At_Offset_3
0572 0273 | s | Execute Discrete,Plus
0573 00d8 | | Load_Top At_Offset_0
0574 00e2 | | Load_Encached Integer_Cache
0575 0260 | ` | Execute Discrete,In_Type
0576 7001 |p | Jump_Nonzero 0x578
0577 0801 | | Execute_Immediate Raise,0x1
0578 00d9 | | Load_Top At_Offset_1
0579 00d9 | | Load_Top At_Offset_1
057a e403 | | Load 0x2,0x3
057b 035b | [ | Declare_Type Array,Constrained
057c 00db | | Load_Top At_Offset_3
057d 01cd | | Execute Vector,Slice_Reference
057e 00d8 | | Load_Top At_Offset_0
057f 0335 | 5 | Declare_Variable Array,Duplicate
0580 00cd | | Action Spare6_Action
0581 00d9 | | Load_Top At_Offset_1
0582 01d9 | | Execute Vector,Reverse_Bounds
0583 0263 | c | Execute Discrete,Above_Bound
0584 7005 |p | Jump_Nonzero 0x58a
0585 e5fe | | Load 0x2,-0x2
0586 00d9 | | Load_Top At_Offset_1
0587 e407 | | Load 0x2,0x7
0588 01d6 | | Execute Vector,Field_Write
0589 3ffb |? | Loop_Increasing 0x585
058a 00cd | | Action Spare6_Action
058b 00da | | Load_Top At_Offset_2
058c 00da | | Load_Top At_Offset_2
058d e403 | | Load 0x2,0x3
058e 01ce | | Execute Vector,Slice_Write
058f 00d3 | | Pop_Control Pop_Count_3
0590 00db | | Load_Top At_Offset_3
0591 0227 | ' | Execute Access,All_Reference
0592 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0593 e5fd | | Load 0x2,-0x3
0594 0273 | s | Execute Discrete,Plus
0595 e5ff | | Load 0x2,-0x1
0596 0227 | ' | Execute Access,All_Reference
0597 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0598 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0599 0000 0000 | | .BLANK 0000[0x7]
05a0 ; --------------------------------------------------------------------------------------
05a0 ; SUBPROGRAM
05a0 ; --------------------------------------------------------------------------------------
05a0 05a8 | | .CONST 0x05a8 ; Address of begin
05a1 0004 | | .CONST 0x0004 ; Address of exception handler
05a2 0003 | | .CONST 0x0003 ; Number of locals
05a3 INIT_05a0:
05a3 00e3 | | Load_Encached Natural_Cache
05a4 00db | | Load_Top At_Offset_3
05a5 01db | | Execute Vector,Length
05a6 00e3 | | Load_Encached Natural_Cache
05a7 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
05a8 BODY_05a0:
05a8 e5fd | | Load 0x2,-0x3
05a9 0227 | ' | Execute Access,All_Reference
05aa 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
05ab 00d9 | | Load_Top At_Offset_1
05ac 0273 | s | Execute Discrete,Plus
05ad 005a | Z | Store_Top Discrete,At_Offset_2
05ae e5fd | | Load 0x2,-0x3
05af 0227 | ' | Execute Access,All_Reference
05b0 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
05b1 00da | | Load_Top At_Offset_2
05b2 027c | | | Execute Discrete,Less
05b3 6810 |h | Jump_Zero 0x5c4
05b4 00d9 | | Load_Top At_Offset_1
05b5 e5fe | | Load 0x2,-0x2
05b6 0273 | s | Execute Discrete,Plus
05b7 0aff | | Execute_Immediate Plus,-0x1
05b8 005a | Z | Store_Top Discrete,At_Offset_2
05b9 00d9 | | Load_Top At_Offset_1
05ba 00da | | Load_Top At_Offset_2
05bb e5fe | | Load 0x2,-0x2
05bc 026f | o | Execute Discrete,Remainder
05bd 0272 | r | Execute Discrete,Minus
05be 005a | Z | Store_Top Discrete,At_Offset_2
05bf e5fd | | Load 0x2,-0x3
05c0 00da | | Load_Top At_Offset_2
05c1 e002 | | Load 0x0,0x2
05c2 180f | | Execute Package,Field_Execute,Field_Number 0xf
05c3 c5fd | | Store 0x2,-0x3
05c4 e5ff | | Load 0x2,-0x1
05c5 01dd | | Execute Vector,First
05c6 e5ff | | Load 0x2,-0x1
05c7 01dc | | Execute Vector,Last
05c8 e5ff | | Load 0x2,-0x1
05c9 01cf | | Execute Vector,Slice_Read
05ca e5fd | | Load 0x2,-0x3
05cb 0227 | ' | Execute Access,All_Reference
05cc 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
05cd 0a01 | | Execute_Immediate Plus,0x1
05ce 00d8 | | Load_Top At_Offset_0
05cf 00e2 | | Load_Encached Integer_Cache
05d0 0260 | ` | Execute Discrete,In_Type
05d1 7001 |p | Jump_Nonzero 0x5d3
05d2 0801 | | Execute_Immediate Raise,0x1
05d3 e5fd | | Load 0x2,-0x3
05d4 0227 | ' | Execute Access,All_Reference
05d5 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
05d6 00db | | Load_Top At_Offset_3
05d7 0273 | s | Execute Discrete,Plus
05d8 00d8 | | Load_Top At_Offset_0
05d9 00e2 | | Load_Encached Integer_Cache
05da 0260 | ` | Execute Discrete,In_Type
05db 7001 |p | Jump_Nonzero 0x5dd
05dc 0801 | | Execute_Immediate Raise,0x1
05dd e5fd | | Load 0x2,-0x3
05de 0229 | ) | Execute Access,All_Read
05df 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
05e0 01ce | | Execute Vector,Slice_Write
05e1 e5fd | | Load 0x2,-0x3
05e2 0227 | ' | Execute Access,All_Reference
05e3 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
05e4 00d9 | | Load_Top At_Offset_1
05e5 0273 | s | Execute Discrete,Plus
05e6 e5fd | | Load 0x2,-0x3
05e7 0227 | ' | Execute Access,All_Reference
05e8 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
05e9 4503 |E | Exit_Suprogram New_Top_Offset 0x3
05ea 0000 0000 | | .BLANK 0000[0x6]
05f0 ; --------------------------------------------------------------------------------------
05f0 ; SUBPROGRAM
05f0 ; --------------------------------------------------------------------------------------
05f0 05f4 | | .CONST 0x05f4 ; Address of begin
05f1 0004 | | .CONST 0x0004 ; Address of exception handler
05f2 0002 | | .CONST 0x0002 ; Number of locals
05f3 INIT_05f0:
05f3 00e3 | | Load_Encached Natural_Cache
05f4 BODY_05f0:
05f4 e5fd | | Load 0x2,-0x3
05f5 0227 | ' | Execute Access,All_Reference
05f6 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
05f7 0a01 | | Execute_Immediate Plus,0x1
05f8 0059 | Y | Store_Top Discrete,At_Offset_1
05f9 e5fd | | Load 0x2,-0x3
05fa 0227 | ' | Execute Access,All_Reference
05fb 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
05fc 00d9 | | Load_Top At_Offset_1
05fd 027c | | | Execute Discrete,Less
05fe 6810 |h | Jump_Zero 0x60f
05ff 00d8 | | Load_Top At_Offset_0
0600 e5fe | | Load 0x2,-0x2
0601 0273 | s | Execute Discrete,Plus
0602 0aff | | Execute_Immediate Plus,-0x1
0603 0059 | Y | Store_Top Discrete,At_Offset_1
0604 00d8 | | Load_Top At_Offset_0
0605 00d9 | | Load_Top At_Offset_1
0606 e5fe | | Load 0x2,-0x2
0607 026f | o | Execute Discrete,Remainder
0608 0272 | r | Execute Discrete,Minus
0609 0059 | Y | Store_Top Discrete,At_Offset_1
060a e5fd | | Load 0x2,-0x3
060b 00d9 | | Load_Top At_Offset_1
060c e002 | | Load 0x0,0x2
060d 180f | | Execute Package,Field_Execute,Field_Number 0xf
060e c5fd | | Store 0x2,-0x3
060f 00db | | Load_Top At_Offset_3
0610 e5fd | | Load 0x2,-0x3
0611 0227 | ' | Execute Access,All_Reference
0612 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0613 0a01 | | Execute_Immediate Plus,0x1
0614 e5fd | | Load 0x2,-0x3
0615 0227 | ' | Execute Access,All_Reference
0616 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0617 01d6 | | Execute Vector,Field_Write
0618 e5fd | | Load 0x2,-0x3
0619 0227 | ' | Execute Access,All_Reference
061a 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
061b 0a01 | | Execute_Immediate Plus,0x1
061c e5fd | | Load 0x2,-0x3
061d 0227 | ' | Execute Access,All_Reference
061e 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
061f 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0620 ; --------------------------------------------------------------------------------------
0620 ; SUBPROGRAM
0620 ; --------------------------------------------------------------------------------------
0620 0624 | $ | .CONST 0x0624 ; Address of begin
0621 0004 | | .CONST 0x0004 ; Address of exception handler
0622 0002 | | .CONST 0x0002 ; Number of locals
0623 INIT_0620:
0623 00e3 | | Load_Encached Natural_Cache
0624 BODY_0620:
0624 e5fc | | Load 0x2,-0x4
0625 0227 | ' | Execute Access,All_Reference
0626 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0627 e5fe | | Load 0x2,-0x2
0628 0273 | s | Execute Discrete,Plus
0629 0059 | Y | Store_Top Discrete,At_Offset_1
062a e5fc | | Load 0x2,-0x4
062b 0227 | ' | Execute Access,All_Reference
062c 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
062d 00d9 | | Load_Top At_Offset_1
062e 027c | | | Execute Discrete,Less
062f 6810 |h | Jump_Zero 0x640
0630 00d8 | | Load_Top At_Offset_0
0631 e5fd | | Load 0x2,-0x3
0632 0273 | s | Execute Discrete,Plus
0633 0aff | | Execute_Immediate Plus,-0x1
0634 0059 | Y | Store_Top Discrete,At_Offset_1
0635 00d8 | | Load_Top At_Offset_0
0636 00d9 | | Load_Top At_Offset_1
0637 e5fd | | Load 0x2,-0x3
0638 026f | o | Execute Discrete,Remainder
0639 0272 | r | Execute Discrete,Minus
063a 0059 | Y | Store_Top Discrete,At_Offset_1
063b e5fc | | Load 0x2,-0x4
063c 00d9 | | Load_Top At_Offset_1
063d e002 | | Load 0x0,0x2
063e 180f | | Execute Package,Field_Execute,Field_Number 0xf
063f c5fc | | Store 0x2,-0x4
0640 e5fc | | Load 0x2,-0x4
0641 0229 | ) | Execute Access,All_Read
0642 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0643 e5fc | | Load 0x2,-0x4
0644 0227 | ' | Execute Access,All_Reference
0645 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0646 0a01 | | Execute_Immediate Plus,0x1
0647 00d8 | | Load_Top At_Offset_0
0648 00e2 | | Load_Encached Integer_Cache
0649 0260 | ` | Execute Discrete,In_Type
064a 7001 |p | Jump_Nonzero 0x64c
064b 0801 | | Execute_Immediate Raise,0x1
064c e5fc | | Load 0x2,-0x4
064d 0227 | ' | Execute Access,All_Reference
064e 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
064f e5fe | | Load 0x2,-0x2
0650 0273 | s | Execute Discrete,Plus
0651 00d8 | | Load_Top At_Offset_0
0652 00e2 | | Load_Encached Integer_Cache
0653 0260 | ` | Execute Discrete,In_Type
0654 7001 |p | Jump_Nonzero 0x656
0655 0801 | | Execute_Immediate Raise,0x1
0656 00d9 | | Load_Top At_Offset_1
0657 00d9 | | Load_Top At_Offset_1
0658 e403 | | Load 0x2,0x3
0659 035b | [ | Declare_Type Array,Constrained
065a 00db | | Load_Top At_Offset_3
065b 01cd | | Execute Vector,Slice_Reference
065c 00d8 | | Load_Top At_Offset_0
065d 0335 | 5 | Declare_Variable Array,Duplicate
065e 00cd | | Action Spare6_Action
065f 00d9 | | Load_Top At_Offset_1
0660 01d9 | | Execute Vector,Reverse_Bounds
0661 0263 | c | Execute Discrete,Above_Bound
0662 7005 |p | Jump_Nonzero 0x668
0663 e5ff | | Load 0x2,-0x1
0664 00d9 | | Load_Top At_Offset_1
0665 e407 | | Load 0x2,0x7
0666 01d6 | | Execute Vector,Field_Write
0667 3ffb |? | Loop_Increasing 0x663
0668 00cd | | Action Spare6_Action
0669 00da | | Load_Top At_Offset_2
066a 00da | | Load_Top At_Offset_2
066b e403 | | Load 0x2,0x3
066c 01ce | | Execute Vector,Slice_Write
066d 00d3 | | Pop_Control Pop_Count_3
066e e5fc | | Load 0x2,-0x4
066f 0227 | ' | Execute Access,All_Reference
0670 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0671 e5fe | | Load 0x2,-0x2
0672 0273 | s | Execute Discrete,Plus
0673 e5fc | | Load 0x2,-0x4
0674 0227 | ' | Execute Access,All_Reference
0675 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0676 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0677 0000 | | .XXX[0x1]
0678 ; --------------------------------------------------------------------------------------
0678 ; SUBPROGRAM
0678 ; --------------------------------------------------------------------------------------
0678 067c | | | .CONST 0x067c ; Address of begin
0679 0004 | | .CONST 0x0004 ; Address of exception handler
067a 0002 | | .CONST 0x0002 ; Number of locals
067b INIT_0678:
067b 00e3 | | Load_Encached Natural_Cache
067c BODY_0678:
067c e5fd | | Load 0x2,-0x3
067d 0227 | ' | Execute Access,All_Reference
067e 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
067f e5ff | | Load 0x2,-0x1
0680 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0681 0273 | s | Execute Discrete,Plus
0682 0059 | Y | Store_Top Discrete,At_Offset_1
0683 e5fd | | Load 0x2,-0x3
0684 0227 | ' | Execute Access,All_Reference
0685 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0686 00d9 | | Load_Top At_Offset_1
0687 027c | | | Execute Discrete,Less
0688 6810 |h | Jump_Zero 0x699
0689 00d8 | | Load_Top At_Offset_0
068a e5fe | | Load 0x2,-0x2
068b 0273 | s | Execute Discrete,Plus
068c 0aff | | Execute_Immediate Plus,-0x1
068d 0059 | Y | Store_Top Discrete,At_Offset_1
068e 00d8 | | Load_Top At_Offset_0
068f 00d9 | | Load_Top At_Offset_1
0690 e5fe | | Load 0x2,-0x2
0691 026f | o | Execute Discrete,Remainder
0692 0272 | r | Execute Discrete,Minus
0693 0059 | Y | Store_Top Discrete,At_Offset_1
0694 e5fd | | Load 0x2,-0x3
0695 00d9 | | Load_Top At_Offset_1
0696 e002 | | Load 0x0,0x2
0697 180f | | Execute Package,Field_Execute,Field_Number 0xf
0698 c5fd | | Store 0x2,-0x3
0699 4801 |H | Short_Literal 0x1
069a e5ff | | Load 0x2,-0x1
069b 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
069c e5ff | | Load 0x2,-0x1
069d 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
069e 01cf | | Execute Vector,Slice_Read
069f e5fd | | Load 0x2,-0x3
06a0 0227 | ' | Execute Access,All_Reference
06a1 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
06a2 0a01 | | Execute_Immediate Plus,0x1
06a3 00d8 | | Load_Top At_Offset_0
06a4 00e2 | | Load_Encached Integer_Cache
06a5 0260 | ` | Execute Discrete,In_Type
06a6 7001 |p | Jump_Nonzero 0x6a8
06a7 0801 | | Execute_Immediate Raise,0x1
06a8 e5fd | | Load 0x2,-0x3
06a9 0227 | ' | Execute Access,All_Reference
06aa 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
06ab e5ff | | Load 0x2,-0x1
06ac 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
06ad 0273 | s | Execute Discrete,Plus
06ae 00d8 | | Load_Top At_Offset_0
06af 00e2 | | Load_Encached Integer_Cache
06b0 0260 | ` | Execute Discrete,In_Type
06b1 7001 |p | Jump_Nonzero 0x6b3
06b2 0801 | | Execute_Immediate Raise,0x1
06b3 e5fd | | Load 0x2,-0x3
06b4 0229 | ) | Execute Access,All_Read
06b5 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
06b6 01ce | | Execute Vector,Slice_Write
06b7 e5fd | | Load 0x2,-0x3
06b8 0227 | ' | Execute Access,All_Reference
06b9 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
06ba e5ff | | Load 0x2,-0x1
06bb 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
06bc 0273 | s | Execute Discrete,Plus
06bd e5fd | | Load 0x2,-0x3
06be 0227 | ' | Execute Access,All_Reference
06bf 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
06c0 4503 |E | Exit_Suprogram New_Top_Offset 0x3
06c1 0000 0000 | | .BLANK 0000[0x7]
06c8 ; --------------------------------------------------------------------------------------
06c8 ; SUBPROGRAM
06c8 ; --------------------------------------------------------------------------------------
06c8 06cc | | .CONST 0x06cc ; Address of begin
06c9 0004 | | .CONST 0x0004 ; Address of exception handler
06ca 0002 | | .CONST 0x0002 ; Number of locals
06cb INIT_06c8:
06cb 00e3 | | Load_Encached Natural_Cache
06cc BODY_06c8:
06cc e5fd | | Load 0x2,-0x3
06cd 0227 | ' | Execute Access,All_Reference
06ce 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
06cf e5ff | | Load 0x2,-0x1
06d0 0227 | ' | Execute Access,All_Reference
06d1 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
06d2 0273 | s | Execute Discrete,Plus
06d3 0059 | Y | Store_Top Discrete,At_Offset_1
06d4 e5fd | | Load 0x2,-0x3
06d5 0227 | ' | Execute Access,All_Reference
06d6 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
06d7 00d9 | | Load_Top At_Offset_1
06d8 027c | | | Execute Discrete,Less
06d9 6810 |h | Jump_Zero 0x6ea
06da 00d8 | | Load_Top At_Offset_0
06db e5fe | | Load 0x2,-0x2
06dc 0273 | s | Execute Discrete,Plus
06dd 0aff | | Execute_Immediate Plus,-0x1
06de 0059 | Y | Store_Top Discrete,At_Offset_1
06df 00d8 | | Load_Top At_Offset_0
06e0 00d9 | | Load_Top At_Offset_1
06e1 e5fe | | Load 0x2,-0x2
06e2 026f | o | Execute Discrete,Remainder
06e3 0272 | r | Execute Discrete,Minus
06e4 0059 | Y | Store_Top Discrete,At_Offset_1
06e5 e5fd | | Load 0x2,-0x3
06e6 00d9 | | Load_Top At_Offset_1
06e7 e002 | | Load 0x0,0x2
06e8 180f | | Execute Package,Field_Execute,Field_Number 0xf
06e9 c5fd | | Store 0x2,-0x3
06ea 4801 |H | Short_Literal 0x1
06eb e5ff | | Load 0x2,-0x1
06ec 0227 | ' | Execute Access,All_Reference
06ed 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
06ee e5ff | | Load 0x2,-0x1
06ef 0227 | ' | Execute Access,All_Reference
06f0 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
06f1 01cf | | Execute Vector,Slice_Read
06f2 e5fd | | Load 0x2,-0x3
06f3 0227 | ' | Execute Access,All_Reference
06f4 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
06f5 0a01 | | Execute_Immediate Plus,0x1
06f6 00d8 | | Load_Top At_Offset_0
06f7 00e2 | | Load_Encached Integer_Cache
06f8 0260 | ` | Execute Discrete,In_Type
06f9 7001 |p | Jump_Nonzero 0x6fb
06fa 0801 | | Execute_Immediate Raise,0x1
06fb e5fd | | Load 0x2,-0x3
06fc 0227 | ' | Execute Access,All_Reference
06fd 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
06fe e5ff | | Load 0x2,-0x1
06ff 0227 | ' | Execute Access,All_Reference
0700 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0701 0273 | s | Execute Discrete,Plus
0702 00d8 | | Load_Top At_Offset_0
0703 00e2 | | Load_Encached Integer_Cache
0704 0260 | ` | Execute Discrete,In_Type
0705 7001 |p | Jump_Nonzero 0x707
0706 0801 | | Execute_Immediate Raise,0x1
0707 e5fd | | Load 0x2,-0x3
0708 0229 | ) | Execute Access,All_Read
0709 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
070a 01ce | | Execute Vector,Slice_Write
070b e5fd | | Load 0x2,-0x3
070c 0227 | ' | Execute Access,All_Reference
070d 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
070e e5ff | | Load 0x2,-0x1
070f 0227 | ' | Execute Access,All_Reference
0710 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0711 0273 | s | Execute Discrete,Plus
0712 e5fd | | Load 0x2,-0x3
0713 0227 | ' | Execute Access,All_Reference
0714 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0715 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0716 0000 0000 | | .XXX[0x2]
0718 ; --------------------------------------------------------------------------------------
0718 ; SUBPROGRAM
0718 ; --------------------------------------------------------------------------------------
0718 0723 | # | .CONST 0x0723 ; Address of begin
0719 0004 | | .CONST 0x0004 ; Address of exception handler
071a 0003 | | .CONST 0x0003 ; Number of locals
071b INIT_0718:
071b 00db | | Load_Top At_Offset_3
071c 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
071d e5fe | | Load 0x2,-0x2
071e 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
071f 0272 | r | Execute Discrete,Minus
0720 00e3 | | Load_Encached Natural_Cache
0721 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
0722 00e3 | | Load_Encached Natural_Cache
0723 BODY_0718:
0723 00d9 | | Load_Top At_Offset_1
0724 e5ff | | Load 0x2,-0x1
0725 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0726 027b | { | Execute Discrete,Greater_Equal
0727 682f |h/ | Jump_Zero 0x757
0728 4801 |H | Short_Literal 0x1
0729 e5fe | | Load 0x2,-0x2
072a 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
072b e5fe | | Load 0x2,-0x2
072c 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
072d 01cf | | Execute Vector,Slice_Read
072e e5ff | | Load 0x2,-0x1
072f 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0730 0a01 | | Execute_Immediate Plus,0x1
0731 00d8 | | Load_Top At_Offset_0
0732 00e2 | | Load_Encached Integer_Cache
0733 0260 | ` | Execute Discrete,In_Type
0734 7001 |p | Jump_Nonzero 0x736
0735 0801 | | Execute_Immediate Raise,0x1
0736 e5ff | | Load 0x2,-0x1
0737 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0738 e5fe | | Load 0x2,-0x2
0739 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
073a 0273 | s | Execute Discrete,Plus
073b 00d8 | | Load_Top At_Offset_0
073c 00e2 | | Load_Encached Integer_Cache
073d 0260 | ` | Execute Discrete,In_Type
073e 7001 |p | Jump_Nonzero 0x740
073f 0801 | | Execute_Immediate Raise,0x1
0740 e5fe | | Load 0x2,-0x2
0741 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0742 01ce | | Execute Vector,Slice_Write
0743 4801 |H | Short_Literal 0x1
0744 e5ff | | Load 0x2,-0x1
0745 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0746 e5ff | | Load 0x2,-0x1
0747 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0748 01cf | | Execute Vector,Slice_Read
0749 4801 |H | Short_Literal 0x1
074a e5ff | | Load 0x2,-0x1
074b 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
074c e5fe | | Load 0x2,-0x2
074d 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
074e 01ce | | Execute Vector,Slice_Write
074f e5fe | | Load 0x2,-0x2
0750 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0751 e5ff | | Load 0x2,-0x1
0752 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0753 0273 | s | Execute Discrete,Plus
0754 e5fe | | Load 0x2,-0x2
0755 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0756 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0757 e5ff | | Load 0x2,-0x1
0758 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0759 e5fe | | Load 0x2,-0x2
075a 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
075b 027d | } | Execute Discrete,Greater
075c 680d |h | Jump_Zero 0x76a
075d 4801 |H | Short_Literal 0x1
075e e5fe | | Load 0x2,-0x2
075f 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0760 e5ff | | Load 0x2,-0x1
0761 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0762 01cf | | Execute Vector,Slice_Read
0763 e5fe | | Load 0x2,-0x2
0764 2903 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x3
0765 e5fe | | Load 0x2,-0x2
0766 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0767 e5fe | | Load 0x2,-0x2
0768 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0769 4502 |E | Exit_Suprogram New_Top_Offset 0x2
076a 4801 |H | Short_Literal 0x1
076b e5fe | | Load 0x2,-0x2
076c 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
076d 00da | | Load_Top At_Offset_2
076e 0272 | r | Execute Discrete,Minus
076f e5fe | | Load 0x2,-0x2
0770 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0771 01cf | | Execute Vector,Slice_Read
0772 e5ff | | Load 0x2,-0x1
0773 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0774 0a01 | | Execute_Immediate Plus,0x1
0775 00d8 | | Load_Top At_Offset_0
0776 00e2 | | Load_Encached Integer_Cache
0777 0260 | ` | Execute Discrete,In_Type
0778 7001 |p | Jump_Nonzero 0x77a
0779 0801 | | Execute_Immediate Raise,0x1
077a e5fe | | Load 0x2,-0x2
077b 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
077c e5fe | | Load 0x2,-0x2
077d 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
077e 01ce | | Execute Vector,Slice_Write
077f 4801 |H | Short_Literal 0x1
0780 e5ff | | Load 0x2,-0x1
0781 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0782 e5ff | | Load 0x2,-0x1
0783 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0784 01cf | | Execute Vector,Slice_Read
0785 4801 |H | Short_Literal 0x1
0786 e5ff | | Load 0x2,-0x1
0787 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0788 e5fe | | Load 0x2,-0x2
0789 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
078a 01ce | | Execute Vector,Slice_Write
078b e5fe | | Load 0x2,-0x2
078c 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
078d e5fe | | Load 0x2,-0x2
078e 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
078f 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0790 ; --------------------------------------------------------------------------------------
0790 ; SUBPROGRAM
0790 ; --------------------------------------------------------------------------------------
0790 079b | | .CONST 0x079b ; Address of begin
0791 0004 | | .CONST 0x0004 ; Address of exception handler
0792 0003 | | .CONST 0x0003 ; Number of locals
0793 INIT_0790:
0793 00db | | Load_Top At_Offset_3
0794 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0795 e5fe | | Load 0x2,-0x2
0796 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0797 0272 | r | Execute Discrete,Minus
0798 00e3 | | Load_Encached Natural_Cache
0799 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
079a 00e3 | | Load_Encached Natural_Cache
079b BODY_0790:
079b 00d9 | | Load_Top At_Offset_1
079c e5ff | | Load 0x2,-0x1
079d 0227 | ' | Execute Access,All_Reference
079e 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
079f 027b | { | Execute Discrete,Greater_Equal
07a0 6835 |h5 | Jump_Zero 0x7d6
07a1 4801 |H | Short_Literal 0x1
07a2 e5fe | | Load 0x2,-0x2
07a3 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
07a4 e5fe | | Load 0x2,-0x2
07a5 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
07a6 01cf | | Execute Vector,Slice_Read
07a7 e5ff | | Load 0x2,-0x1
07a8 0227 | ' | Execute Access,All_Reference
07a9 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
07aa 0a01 | | Execute_Immediate Plus,0x1
07ab 00d8 | | Load_Top At_Offset_0
07ac 00e2 | | Load_Encached Integer_Cache
07ad 0260 | ` | Execute Discrete,In_Type
07ae 7001 |p | Jump_Nonzero 0x7b0
07af 0801 | | Execute_Immediate Raise,0x1
07b0 e5ff | | Load 0x2,-0x1
07b1 0227 | ' | Execute Access,All_Reference
07b2 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
07b3 e5fe | | Load 0x2,-0x2
07b4 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
07b5 0273 | s | Execute Discrete,Plus
07b6 00d8 | | Load_Top At_Offset_0
07b7 00e2 | | Load_Encached Integer_Cache
07b8 0260 | ` | Execute Discrete,In_Type
07b9 7001 |p | Jump_Nonzero 0x7bb
07ba 0801 | | Execute_Immediate Raise,0x1
07bb e5fe | | Load 0x2,-0x2
07bc 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
07bd 01ce | | Execute Vector,Slice_Write
07be 4801 |H | Short_Literal 0x1
07bf e5ff | | Load 0x2,-0x1
07c0 0227 | ' | Execute Access,All_Reference
07c1 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
07c2 e5ff | | Load 0x2,-0x1
07c3 0227 | ' | Execute Access,All_Reference
07c4 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
07c5 01cf | | Execute Vector,Slice_Read
07c6 4801 |H | Short_Literal 0x1
07c7 e5ff | | Load 0x2,-0x1
07c8 0227 | ' | Execute Access,All_Reference
07c9 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
07ca e5fe | | Load 0x2,-0x2
07cb 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
07cc 01ce | | Execute Vector,Slice_Write
07cd e5fe | | Load 0x2,-0x2
07ce 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
07cf e5ff | | Load 0x2,-0x1
07d0 0227 | ' | Execute Access,All_Reference
07d1 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
07d2 0273 | s | Execute Discrete,Plus
07d3 e5fe | | Load 0x2,-0x2
07d4 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
07d5 4502 |E | Exit_Suprogram New_Top_Offset 0x2
07d6 e5ff | | Load 0x2,-0x1
07d7 0227 | ' | Execute Access,All_Reference
07d8 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
07d9 e5fe | | Load 0x2,-0x2
07da 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
07db 027d | } | Execute Discrete,Greater
07dc 680e |h | Jump_Zero 0x7eb
07dd 4801 |H | Short_Literal 0x1
07de e5fe | | Load 0x2,-0x2
07df 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
07e0 e5ff | | Load 0x2,-0x1
07e1 0227 | ' | Execute Access,All_Reference
07e2 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
07e3 01cf | | Execute Vector,Slice_Read
07e4 e5fe | | Load 0x2,-0x2
07e5 2903 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x3
07e6 e5fe | | Load 0x2,-0x2
07e7 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
07e8 e5fe | | Load 0x2,-0x2
07e9 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
07ea 4502 |E | Exit_Suprogram New_Top_Offset 0x2
07eb 4801 |H | Short_Literal 0x1
07ec e5fe | | Load 0x2,-0x2
07ed 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
07ee 00da | | Load_Top At_Offset_2
07ef 0272 | r | Execute Discrete,Minus
07f0 e5fe | | Load 0x2,-0x2
07f1 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
07f2 01cf | | Execute Vector,Slice_Read
07f3 e5ff | | Load 0x2,-0x1
07f4 0227 | ' | Execute Access,All_Reference
07f5 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
07f6 0a01 | | Execute_Immediate Plus,0x1
07f7 00d8 | | Load_Top At_Offset_0
07f8 00e2 | | Load_Encached Integer_Cache
07f9 0260 | ` | Execute Discrete,In_Type
07fa 7001 |p | Jump_Nonzero 0x7fc
07fb 0801 | | Execute_Immediate Raise,0x1
07fc e5fe | | Load 0x2,-0x2
07fd 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
07fe e5fe | | Load 0x2,-0x2
07ff 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0800 01ce | | Execute Vector,Slice_Write
0801 4801 |H | Short_Literal 0x1
0802 e5ff | | Load 0x2,-0x1
0803 0227 | ' | Execute Access,All_Reference
0804 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0805 e5ff | | Load 0x2,-0x1
0806 0227 | ' | Execute Access,All_Reference
0807 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0808 01cf | | Execute Vector,Slice_Read
0809 4801 |H | Short_Literal 0x1
080a e5ff | | Load 0x2,-0x1
080b 0227 | ' | Execute Access,All_Reference
080c 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
080d e5fe | | Load 0x2,-0x2
080e 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
080f 01ce | | Execute Vector,Slice_Write
0810 e5fe | | Load 0x2,-0x2
0811 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0812 e5fe | | Load 0x2,-0x2
0813 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0814 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0815 0000 0000 | | .XXX[0x3]
0817 0000 | |
0818 ; --------------------------------------------------------------------------------------
0818 ; SUBPROGRAM
0818 ; --------------------------------------------------------------------------------------
0818 0827 | ' | .CONST 0x0827 ; Address of begin
0819 0004 | | .CONST 0x0004 ; Address of exception handler
081a 0004 | | .CONST 0x0004 ; Number of locals
081b INIT_0818:
081b 00db | | Load_Top At_Offset_3
081c 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
081d e5fe | | Load 0x2,-0x2
081e 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
081f 0272 | r | Execute Discrete,Minus
0820 00e3 | | Load_Encached Natural_Cache
0821 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
0822 00e3 | | Load_Encached Natural_Cache
0823 e5ff | | Load 0x2,-0x1
0824 01db | | Execute Vector,Length
0825 00e3 | | Load_Encached Natural_Cache
0826 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
0827 BODY_0818:
0827 00da | | Load_Top At_Offset_2
0828 00d9 | | Load_Top At_Offset_1
0829 027b | { | Execute Discrete,Greater_Equal
082a 6829 |h) | Jump_Zero 0x854
082b 4801 |H | Short_Literal 0x1
082c e5fe | | Load 0x2,-0x2
082d 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
082e e5fe | | Load 0x2,-0x2
082f 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0830 01cf | | Execute Vector,Slice_Read
0831 00d9 | | Load_Top At_Offset_1
0832 0a01 | | Execute_Immediate Plus,0x1
0833 00d8 | | Load_Top At_Offset_0
0834 00e2 | | Load_Encached Integer_Cache
0835 0260 | ` | Execute Discrete,In_Type
0836 7001 |p | Jump_Nonzero 0x838
0837 0801 | | Execute_Immediate Raise,0x1
0838 00da | | Load_Top At_Offset_2
0839 e5fe | | Load 0x2,-0x2
083a 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
083b 0273 | s | Execute Discrete,Plus
083c 00d8 | | Load_Top At_Offset_0
083d 00e2 | | Load_Encached Integer_Cache
083e 0260 | ` | Execute Discrete,In_Type
083f 7001 |p | Jump_Nonzero 0x841
0840 0801 | | Execute_Immediate Raise,0x1
0841 e5fe | | Load 0x2,-0x2
0842 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0843 01ce | | Execute Vector,Slice_Write
0844 4801 |H | Short_Literal 0x1
0845 00d9 | | Load_Top At_Offset_1
0846 e5ff | | Load 0x2,-0x1
0847 01cf | | Execute Vector,Slice_Read
0848 4801 |H | Short_Literal 0x1
0849 00da | | Load_Top At_Offset_2
084a e5fe | | Load 0x2,-0x2
084b 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
084c 01ce | | Execute Vector,Slice_Write
084d e5fe | | Load 0x2,-0x2
084e 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
084f 00d9 | | Load_Top At_Offset_1
0850 0273 | s | Execute Discrete,Plus
0851 e5fe | | Load 0x2,-0x2
0852 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0853 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0854 00d8 | | Load_Top At_Offset_0
0855 e5fe | | Load 0x2,-0x2
0856 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0857 027d | } | Execute Discrete,Greater
0858 6816 |h | Jump_Zero 0x86f
0859 e5ff | | Load 0x2,-0x1
085a 01dd | | Execute Vector,First
085b e5ff | | Load 0x2,-0x1
085c 01dd | | Execute Vector,First
085d e5fe | | Load 0x2,-0x2
085e 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
085f 0273 | s | Execute Discrete,Plus
0860 0aff | | Execute_Immediate Plus,-0x1
0861 00d8 | | Load_Top At_Offset_0
0862 00e2 | | Load_Encached Integer_Cache
0863 0260 | ` | Execute Discrete,In_Type
0864 7001 |p | Jump_Nonzero 0x866
0865 0801 | | Execute_Immediate Raise,0x1
0866 e5ff | | Load 0x2,-0x1
0867 01cf | | Execute Vector,Slice_Read
0868 e5fe | | Load 0x2,-0x2
0869 2903 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x3
086a e5fe | | Load 0x2,-0x2
086b 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
086c e5fe | | Load 0x2,-0x2
086d 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
086e 4502 |E | Exit_Suprogram New_Top_Offset 0x2
086f 4801 |H | Short_Literal 0x1
0870 e5fe | | Load 0x2,-0x2
0871 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0872 00db | | Load_Top At_Offset_3
0873 0272 | r | Execute Discrete,Minus
0874 e5fe | | Load 0x2,-0x2
0875 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0876 01cf | | Execute Vector,Slice_Read
0877 00d9 | | Load_Top At_Offset_1
0878 0a01 | | Execute_Immediate Plus,0x1
0879 00d8 | | Load_Top At_Offset_0
087a 00e2 | | Load_Encached Integer_Cache
087b 0260 | ` | Execute Discrete,In_Type
087c 7001 |p | Jump_Nonzero 0x87e
087d 0801 | | Execute_Immediate Raise,0x1
087e e5fe | | Load 0x2,-0x2
087f 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0880 e5fe | | Load 0x2,-0x2
0881 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0882 01ce | | Execute Vector,Slice_Write
0883 e5ff | | Load 0x2,-0x1
0884 4801 |H | Short_Literal 0x1
0885 00da | | Load_Top At_Offset_2
0886 e5fe | | Load 0x2,-0x2
0887 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0888 01ce | | Execute Vector,Slice_Write
0889 e5fe | | Load 0x2,-0x2
088a 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
088b e5fe | | Load 0x2,-0x2
088c 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
088d 4502 |E | Exit_Suprogram New_Top_Offset 0x2
088e 0000 0000 | | .XXX[0x2]
0890 ; --------------------------------------------------------------------------------------
0890 ; SUBPROGRAM
0890 ; --------------------------------------------------------------------------------------
0890 089b | | .CONST 0x089b ; Address of begin
0891 0004 | | .CONST 0x0004 ; Address of exception handler
0892 0003 | | .CONST 0x0003 ; Number of locals
0893 INIT_0890:
0893 00db | | Load_Top At_Offset_3
0894 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0895 e5fe | | Load 0x2,-0x2
0896 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0897 0272 | r | Execute Discrete,Minus
0898 00e3 | | Load_Encached Natural_Cache
0899 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
089a 00e3 | | Load_Encached Natural_Cache
089b BODY_0890:
089b 00d9 | | Load_Top At_Offset_1
089c 0c01 | | Execute_Immediate Greater_Equal,0x1
089d 681d |h | Jump_Zero 0x8bb
089e 4801 |H | Short_Literal 0x1
089f e5fe | | Load 0x2,-0x2
08a0 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
08a1 e5fe | | Load 0x2,-0x2
08a2 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
08a3 01cf | | Execute Vector,Slice_Read
08a4 4802 |H | Short_Literal 0x2
08a5 e5fe | | Load 0x2,-0x2
08a6 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
08a7 0a01 | | Execute_Immediate Plus,0x1
08a8 00d8 | | Load_Top At_Offset_0
08a9 00e2 | | Load_Encached Integer_Cache
08aa 0260 | ` | Execute Discrete,In_Type
08ab 7001 |p | Jump_Nonzero 0x8ad
08ac 0801 | | Execute_Immediate Raise,0x1
08ad e5fe | | Load 0x2,-0x2
08ae 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
08af 01ce | | Execute Vector,Slice_Write
08b0 e5ff | | Load 0x2,-0x1
08b1 4801 |H | Short_Literal 0x1
08b2 e5fe | | Load 0x2,-0x2
08b3 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
08b4 01d6 | | Execute Vector,Field_Write
08b5 e5fe | | Load 0x2,-0x2
08b6 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
08b7 0a01 | | Execute_Immediate Plus,0x1
08b8 e5fe | | Load 0x2,-0x2
08b9 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
08ba 4502 |E | Exit_Suprogram New_Top_Offset 0x2
08bb e5fe | | Load 0x2,-0x2
08bc 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
08bd 0d01 | | Execute_Immediate Less,0x1
08be 6801 |h | Jump_Zero 0x8c0
08bf 4502 |E | Exit_Suprogram New_Top_Offset 0x2
08c0 4801 |H | Short_Literal 0x1
08c1 e5fe | | Load 0x2,-0x2
08c2 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
08c3 0aff | | Execute_Immediate Plus,-0x1
08c4 e5fe | | Load 0x2,-0x2
08c5 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
08c6 01cf | | Execute Vector,Slice_Read
08c7 4802 |H | Short_Literal 0x2
08c8 e5fe | | Load 0x2,-0x2
08c9 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
08ca e5fe | | Load 0x2,-0x2
08cb 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
08cc 01ce | | Execute Vector,Slice_Write
08cd e5ff | | Load 0x2,-0x1
08ce 4801 |H | Short_Literal 0x1
08cf e5fe | | Load 0x2,-0x2
08d0 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
08d1 01d6 | | Execute Vector,Field_Write
08d2 4502 |E | Exit_Suprogram New_Top_Offset 0x2
08d3 0000 0000 | | .BLANK 0000[0x5]
08d8 ; --------------------------------------------------------------------------------------
08d8 ; SUBPROGRAM
08d8 ; --------------------------------------------------------------------------------------
08d8 08e3 | | .CONST 0x08e3 ; Address of begin
08d9 0004 | | .CONST 0x0004 ; Address of exception handler
08da 0003 | | .CONST 0x0003 ; Number of locals
08db INIT_08d8:
08db e5fd | | Load 0x2,-0x3
08dc 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
08dd e5fd | | Load 0x2,-0x3
08de 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
08df 0272 | r | Execute Discrete,Minus
08e0 00e3 | | Load_Encached Natural_Cache
08e1 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
08e2 00e3 | | Load_Encached Natural_Cache
08e3 BODY_08d8:
08e3 00d9 | | Load_Top At_Offset_1
08e4 e5fe | | Load 0x2,-0x2
08e5 027b | { | Execute Discrete,Greater_Equal
08e6 683c |h< | Jump_Zero 0x923
08e7 4801 |H | Short_Literal 0x1
08e8 e5fd | | Load 0x2,-0x3
08e9 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
08ea e5fd | | Load 0x2,-0x3
08eb 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
08ec 01cf | | Execute Vector,Slice_Read
08ed e5fe | | Load 0x2,-0x2
08ee 0a01 | | Execute_Immediate Plus,0x1
08ef 00d8 | | Load_Top At_Offset_0
08f0 00e2 | | Load_Encached Integer_Cache
08f1 0260 | ` | Execute Discrete,In_Type
08f2 7001 |p | Jump_Nonzero 0x8f4
08f3 0801 | | Execute_Immediate Raise,0x1
08f4 e5fe | | Load 0x2,-0x2
08f5 e5fd | | Load 0x2,-0x3
08f6 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
08f7 0273 | s | Execute Discrete,Plus
08f8 00d8 | | Load_Top At_Offset_0
08f9 00e2 | | Load_Encached Integer_Cache
08fa 0260 | ` | Execute Discrete,In_Type
08fb 7001 |p | Jump_Nonzero 0x8fd
08fc 0801 | | Execute_Immediate Raise,0x1
08fd e5fd | | Load 0x2,-0x3
08fe 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
08ff 01ce | | Execute Vector,Slice_Write
0900 e5fd | | Load 0x2,-0x3
0901 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0902 4801 |H | Short_Literal 0x1
0903 e5fe | | Load 0x2,-0x2
0904 00d9 | | Load_Top At_Offset_1
0905 00d9 | | Load_Top At_Offset_1
0906 e404 | | Load 0x2,0x4
0907 035b | [ | Declare_Type Array,Constrained
0908 00db | | Load_Top At_Offset_3
0909 01cd | | Execute Vector,Slice_Reference
090a 00d8 | | Load_Top At_Offset_0
090b 0335 | 5 | Declare_Variable Array,Duplicate
090c 00cd | | Action Spare6_Action
090d 00d9 | | Load_Top At_Offset_1
090e 01d9 | | Execute Vector,Reverse_Bounds
090f 0263 | c | Execute Discrete,Above_Bound
0910 7005 |p | Jump_Nonzero 0x916
0911 e5ff | | Load 0x2,-0x1
0912 00d9 | | Load_Top At_Offset_1
0913 e408 | | Load 0x2,0x8
0914 01d6 | | Execute Vector,Field_Write
0915 3ffb |? | Loop_Increasing 0x911
0916 00cd | | Action Spare6_Action
0917 00da | | Load_Top At_Offset_2
0918 00da | | Load_Top At_Offset_2
0919 e404 | | Load 0x2,0x4
091a 01ce | | Execute Vector,Slice_Write
091b 00d3 | | Pop_Control Pop_Count_3
091c e5fd | | Load 0x2,-0x3
091d 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
091e e5fe | | Load 0x2,-0x2
091f 0273 | s | Execute Discrete,Plus
0920 e5fd | | Load 0x2,-0x3
0921 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0922 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0923 e5fe | | Load 0x2,-0x2
0924 e5fd | | Load 0x2,-0x3
0925 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0926 027d | } | Execute Discrete,Greater
0927 6818 |h | Jump_Zero 0x940
0928 e5fd | | Load 0x2,-0x3
0929 00d8 | | Load_Top At_Offset_0
092a 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
092b 00d8 | | Load_Top At_Offset_0
092c 0335 | 5 | Declare_Variable Array,Duplicate
092d 00cd | | Action Spare6_Action
092e 00d9 | | Load_Top At_Offset_1
092f 01d9 | | Execute Vector,Reverse_Bounds
0930 0263 | c | Execute Discrete,Above_Bound
0931 7005 |p | Jump_Nonzero 0x937
0932 e5ff | | Load 0x2,-0x1
0933 00d9 | | Load_Top At_Offset_1
0934 e406 | | Load 0x2,0x6
0935 01d6 | | Execute Vector,Field_Write
0936 3ffb |? | Loop_Increasing 0x932
0937 00cd | | Action Spare6_Action
0938 00d9 | | Load_Top At_Offset_1
0939 2903 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x3
093a 00d1 | | Pop_Control Pop_Count_1
093b e5fd | | Load 0x2,-0x3
093c 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
093d e5fd | | Load 0x2,-0x3
093e 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
093f 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0940 4801 |H | Short_Literal 0x1
0941 e5fd | | Load 0x2,-0x3
0942 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0943 00da | | Load_Top At_Offset_2
0944 0272 | r | Execute Discrete,Minus
0945 e5fd | | Load 0x2,-0x3
0946 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0947 01cf | | Execute Vector,Slice_Read
0948 e5fe | | Load 0x2,-0x2
0949 0a01 | | Execute_Immediate Plus,0x1
094a 00d8 | | Load_Top At_Offset_0
094b 00e2 | | Load_Encached Integer_Cache
094c 0260 | ` | Execute Discrete,In_Type
094d 7001 |p | Jump_Nonzero 0x94f
094e 0801 | | Execute_Immediate Raise,0x1
094f e5fd | | Load 0x2,-0x3
0950 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0951 e5fd | | Load 0x2,-0x3
0952 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0953 01ce | | Execute Vector,Slice_Write
0954 e5fd | | Load 0x2,-0x3
0955 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0956 4801 |H | Short_Literal 0x1
0957 e5fe | | Load 0x2,-0x2
0958 00d9 | | Load_Top At_Offset_1
0959 00d9 | | Load_Top At_Offset_1
095a e404 | | Load 0x2,0x4
095b 035b | [ | Declare_Type Array,Constrained
095c 00db | | Load_Top At_Offset_3
095d 01cd | | Execute Vector,Slice_Reference
095e 00d8 | | Load_Top At_Offset_0
095f 0335 | 5 | Declare_Variable Array,Duplicate
0960 00cd | | Action Spare6_Action
0961 00d9 | | Load_Top At_Offset_1
0962 01d9 | | Execute Vector,Reverse_Bounds
0963 0263 | c | Execute Discrete,Above_Bound
0964 7005 |p | Jump_Nonzero 0x96a
0965 e5ff | | Load 0x2,-0x1
0966 00d9 | | Load_Top At_Offset_1
0967 e408 | | Load 0x2,0x8
0968 01d6 | | Execute Vector,Field_Write
0969 3ffb |? | Loop_Increasing 0x965
096a 00cd | | Action Spare6_Action
096b 00da | | Load_Top At_Offset_2
096c 00da | | Load_Top At_Offset_2
096d e404 | | Load 0x2,0x4
096e 01ce | | Execute Vector,Slice_Write
096f 00d3 | | Pop_Control Pop_Count_3
0970 e5fd | | Load 0x2,-0x3
0971 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0972 e5fd | | Load 0x2,-0x3
0973 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0974 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0975 0000 0000 | | .XXX[0x3]
0977 0000 | |
0978 ; --------------------------------------------------------------------------------------
0978 ; SUBPROGRAM
0978 ; --------------------------------------------------------------------------------------
0978 0985 | | .CONST 0x0985 ; Address of begin
0979 0004 | | .CONST 0x0004 ; Address of exception handler
097a 0003 | | .CONST 0x0003 ; Number of locals
097b INIT_0978:
097b 00da | | Load_Top At_Offset_2
097c 0227 | ' | Execute Access,All_Reference
097d 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
097e 00db | | Load_Top At_Offset_3
097f 0227 | ' | Execute Access,All_Reference
0980 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0981 0272 | r | Execute Discrete,Minus
0982 00e3 | | Load_Encached Natural_Cache
0983 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
0984 00e3 | | Load_Encached Natural_Cache
0985 BODY_0978:
0985 00d9 | | Load_Top At_Offset_1
0986 e5fe | | Load 0x2,-0x2
0987 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0988 027b | { | Execute Discrete,Greater_Equal
0989 6836 |h6 | Jump_Zero 0x9c0
098a 4801 |H | Short_Literal 0x1
098b e5ff | | Load 0x2,-0x1
098c 0227 | ' | Execute Access,All_Reference
098d 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
098e e5ff | | Load 0x2,-0x1
098f 0227 | ' | Execute Access,All_Reference
0990 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0991 01cf | | Execute Vector,Slice_Read
0992 e5fe | | Load 0x2,-0x2
0993 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0994 0a01 | | Execute_Immediate Plus,0x1
0995 00d8 | | Load_Top At_Offset_0
0996 00e2 | | Load_Encached Integer_Cache
0997 0260 | ` | Execute Discrete,In_Type
0998 7001 |p | Jump_Nonzero 0x99a
0999 0801 | | Execute_Immediate Raise,0x1
099a e5fe | | Load 0x2,-0x2
099b 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
099c e5ff | | Load 0x2,-0x1
099d 0227 | ' | Execute Access,All_Reference
099e 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
099f 0273 | s | Execute Discrete,Plus
09a0 00d8 | | Load_Top At_Offset_0
09a1 00e2 | | Load_Encached Integer_Cache
09a2 0260 | ` | Execute Discrete,In_Type
09a3 7001 |p | Jump_Nonzero 0x9a5
09a4 0801 | | Execute_Immediate Raise,0x1
09a5 e5ff | | Load 0x2,-0x1
09a6 0229 | ) | Execute Access,All_Read
09a7 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
09a8 01ce | | Execute Vector,Slice_Write
09a9 4801 |H | Short_Literal 0x1
09aa e5fe | | Load 0x2,-0x2
09ab 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
09ac e5fe | | Load 0x2,-0x2
09ad 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
09ae 01cf | | Execute Vector,Slice_Read
09af 4801 |H | Short_Literal 0x1
09b0 e5fe | | Load 0x2,-0x2
09b1 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
09b2 e5ff | | Load 0x2,-0x1
09b3 0229 | ) | Execute Access,All_Read
09b4 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
09b5 01ce | | Execute Vector,Slice_Write
09b6 e5ff | | Load 0x2,-0x1
09b7 0227 | ' | Execute Access,All_Reference
09b8 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
09b9 e5fe | | Load 0x2,-0x2
09ba 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
09bb 0273 | s | Execute Discrete,Plus
09bc e5ff | | Load 0x2,-0x1
09bd 0227 | ' | Execute Access,All_Reference
09be 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
09bf 4503 |E | Exit_Suprogram New_Top_Offset 0x3
09c0 e5fe | | Load 0x2,-0x2
09c1 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
09c2 e5ff | | Load 0x2,-0x1
09c3 0227 | ' | Execute Access,All_Reference
09c4 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
09c5 027d | } | Execute Discrete,Greater
09c6 6811 |h | Jump_Zero 0x9d8
09c7 4801 |H | Short_Literal 0x1
09c8 e5ff | | Load 0x2,-0x1
09c9 0227 | ' | Execute Access,All_Reference
09ca 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
09cb e5fe | | Load 0x2,-0x2
09cc 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
09cd 01cf | | Execute Vector,Slice_Read
09ce e5ff | | Load 0x2,-0x1
09cf 0227 | ' | Execute Access,All_Reference
09d0 2903 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x3
09d1 e5ff | | Load 0x2,-0x1
09d2 0227 | ' | Execute Access,All_Reference
09d3 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
09d4 e5ff | | Load 0x2,-0x1
09d5 0227 | ' | Execute Access,All_Reference
09d6 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
09d7 4503 |E | Exit_Suprogram New_Top_Offset 0x3
09d8 4801 |H | Short_Literal 0x1
09d9 e5ff | | Load 0x2,-0x1
09da 0227 | ' | Execute Access,All_Reference
09db 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
09dc 00da | | Load_Top At_Offset_2
09dd 0272 | r | Execute Discrete,Minus
09de e5ff | | Load 0x2,-0x1
09df 0227 | ' | Execute Access,All_Reference
09e0 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
09e1 01cf | | Execute Vector,Slice_Read
09e2 e5fe | | Load 0x2,-0x2
09e3 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
09e4 0a01 | | Execute_Immediate Plus,0x1
09e5 00d8 | | Load_Top At_Offset_0
09e6 00e2 | | Load_Encached Integer_Cache
09e7 0260 | ` | Execute Discrete,In_Type
09e8 7001 |p | Jump_Nonzero 0x9ea
09e9 0801 | | Execute_Immediate Raise,0x1
09ea e5ff | | Load 0x2,-0x1
09eb 0227 | ' | Execute Access,All_Reference
09ec 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
09ed e5ff | | Load 0x2,-0x1
09ee 0229 | ) | Execute Access,All_Read
09ef 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
09f0 01ce | | Execute Vector,Slice_Write
09f1 4801 |H | Short_Literal 0x1
09f2 e5fe | | Load 0x2,-0x2
09f3 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
09f4 e5fe | | Load 0x2,-0x2
09f5 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
09f6 01cf | | Execute Vector,Slice_Read
09f7 4801 |H | Short_Literal 0x1
09f8 e5fe | | Load 0x2,-0x2
09f9 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
09fa e5ff | | Load 0x2,-0x1
09fb 0229 | ) | Execute Access,All_Read
09fc 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
09fd 01ce | | Execute Vector,Slice_Write
09fe e5ff | | Load 0x2,-0x1
09ff 0227 | ' | Execute Access,All_Reference
0a00 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0a01 e5ff | | Load 0x2,-0x1
0a02 0227 | ' | Execute Access,All_Reference
0a03 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0a04 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0a05 0000 0000 | | .XXX[0x3]
0a07 0000 | |
0a08 ; --------------------------------------------------------------------------------------
0a08 ; SUBPROGRAM
0a08 ; --------------------------------------------------------------------------------------
0a08 0a15 | | .CONST 0x0a15 ; Address of begin
0a09 0004 | | .CONST 0x0004 ; Address of exception handler
0a0a 0003 | | .CONST 0x0003 ; Number of locals
0a0b INIT_0a08:
0a0b 00da | | Load_Top At_Offset_2
0a0c 0227 | ' | Execute Access,All_Reference
0a0d 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0a0e 00db | | Load_Top At_Offset_3
0a0f 0227 | ' | Execute Access,All_Reference
0a10 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0a11 0272 | r | Execute Discrete,Minus
0a12 00e3 | | Load_Encached Natural_Cache
0a13 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
0a14 00e3 | | Load_Encached Natural_Cache
0a15 BODY_0a08:
0a15 00d9 | | Load_Top At_Offset_1
0a16 e5fe | | Load 0x2,-0x2
0a17 0227 | ' | Execute Access,All_Reference
0a18 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0a19 027b | { | Execute Discrete,Greater_Equal
0a1a 683c |h< | Jump_Zero 0xa57
0a1b 4801 |H | Short_Literal 0x1
0a1c e5ff | | Load 0x2,-0x1
0a1d 0227 | ' | Execute Access,All_Reference
0a1e 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0a1f e5ff | | Load 0x2,-0x1
0a20 0227 | ' | Execute Access,All_Reference
0a21 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0a22 01cf | | Execute Vector,Slice_Read
0a23 e5fe | | Load 0x2,-0x2
0a24 0227 | ' | Execute Access,All_Reference
0a25 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0a26 0a01 | | Execute_Immediate Plus,0x1
0a27 00d8 | | Load_Top At_Offset_0
0a28 00e2 | | Load_Encached Integer_Cache
0a29 0260 | ` | Execute Discrete,In_Type
0a2a 7001 |p | Jump_Nonzero 0xa2c
0a2b 0801 | | Execute_Immediate Raise,0x1
0a2c e5fe | | Load 0x2,-0x2
0a2d 0227 | ' | Execute Access,All_Reference
0a2e 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0a2f e5ff | | Load 0x2,-0x1
0a30 0227 | ' | Execute Access,All_Reference
0a31 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0a32 0273 | s | Execute Discrete,Plus
0a33 00d8 | | Load_Top At_Offset_0
0a34 00e2 | | Load_Encached Integer_Cache
0a35 0260 | ` | Execute Discrete,In_Type
0a36 7001 |p | Jump_Nonzero 0xa38
0a37 0801 | | Execute_Immediate Raise,0x1
0a38 e5ff | | Load 0x2,-0x1
0a39 0229 | ) | Execute Access,All_Read
0a3a 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0a3b 01ce | | Execute Vector,Slice_Write
0a3c 4801 |H | Short_Literal 0x1
0a3d e5fe | | Load 0x2,-0x2
0a3e 0227 | ' | Execute Access,All_Reference
0a3f 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0a40 e5fe | | Load 0x2,-0x2
0a41 0227 | ' | Execute Access,All_Reference
0a42 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0a43 01cf | | Execute Vector,Slice_Read
0a44 4801 |H | Short_Literal 0x1
0a45 e5fe | | Load 0x2,-0x2
0a46 0227 | ' | Execute Access,All_Reference
0a47 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0a48 e5ff | | Load 0x2,-0x1
0a49 0229 | ) | Execute Access,All_Read
0a4a 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0a4b 01ce | | Execute Vector,Slice_Write
0a4c e5ff | | Load 0x2,-0x1
0a4d 0227 | ' | Execute Access,All_Reference
0a4e 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0a4f e5fe | | Load 0x2,-0x2
0a50 0227 | ' | Execute Access,All_Reference
0a51 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0a52 0273 | s | Execute Discrete,Plus
0a53 e5ff | | Load 0x2,-0x1
0a54 0227 | ' | Execute Access,All_Reference
0a55 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0a56 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0a57 e5fe | | Load 0x2,-0x2
0a58 0227 | ' | Execute Access,All_Reference
0a59 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0a5a e5ff | | Load 0x2,-0x1
0a5b 0227 | ' | Execute Access,All_Reference
0a5c 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0a5d 027d | } | Execute Discrete,Greater
0a5e 6812 |h | Jump_Zero 0xa71
0a5f 4801 |H | Short_Literal 0x1
0a60 e5ff | | Load 0x2,-0x1
0a61 0227 | ' | Execute Access,All_Reference
0a62 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0a63 e5fe | | Load 0x2,-0x2
0a64 0227 | ' | Execute Access,All_Reference
0a65 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0a66 01cf | | Execute Vector,Slice_Read
0a67 e5ff | | Load 0x2,-0x1
0a68 0227 | ' | Execute Access,All_Reference
0a69 2903 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x3
0a6a e5ff | | Load 0x2,-0x1
0a6b 0227 | ' | Execute Access,All_Reference
0a6c 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0a6d e5ff | | Load 0x2,-0x1
0a6e 0227 | ' | Execute Access,All_Reference
0a6f 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0a70 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0a71 4801 |H | Short_Literal 0x1
0a72 e5ff | | Load 0x2,-0x1
0a73 0227 | ' | Execute Access,All_Reference
0a74 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0a75 00da | | Load_Top At_Offset_2
0a76 0272 | r | Execute Discrete,Minus
0a77 e5ff | | Load 0x2,-0x1
0a78 0227 | ' | Execute Access,All_Reference
0a79 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0a7a 01cf | | Execute Vector,Slice_Read
0a7b e5fe | | Load 0x2,-0x2
0a7c 0227 | ' | Execute Access,All_Reference
0a7d 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0a7e 0a01 | | Execute_Immediate Plus,0x1
0a7f 00d8 | | Load_Top At_Offset_0
0a80 00e2 | | Load_Encached Integer_Cache
0a81 0260 | ` | Execute Discrete,In_Type
0a82 7001 |p | Jump_Nonzero 0xa84
0a83 0801 | | Execute_Immediate Raise,0x1
0a84 e5ff | | Load 0x2,-0x1
0a85 0227 | ' | Execute Access,All_Reference
0a86 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0a87 e5ff | | Load 0x2,-0x1
0a88 0229 | ) | Execute Access,All_Read
0a89 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0a8a 01ce | | Execute Vector,Slice_Write
0a8b 4801 |H | Short_Literal 0x1
0a8c e5fe | | Load 0x2,-0x2
0a8d 0227 | ' | Execute Access,All_Reference
0a8e 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0a8f e5fe | | Load 0x2,-0x2
0a90 0227 | ' | Execute Access,All_Reference
0a91 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0a92 01cf | | Execute Vector,Slice_Read
0a93 4801 |H | Short_Literal 0x1
0a94 e5fe | | Load 0x2,-0x2
0a95 0227 | ' | Execute Access,All_Reference
0a96 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0a97 e5ff | | Load 0x2,-0x1
0a98 0229 | ) | Execute Access,All_Read
0a99 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0a9a 01ce | | Execute Vector,Slice_Write
0a9b e5ff | | Load 0x2,-0x1
0a9c 0227 | ' | Execute Access,All_Reference
0a9d 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0a9e e5ff | | Load 0x2,-0x1
0a9f 0227 | ' | Execute Access,All_Reference
0aa0 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0aa1 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0aa2 0000 0000 | | .BLANK 0000[0x6]
0aa8 ; --------------------------------------------------------------------------------------
0aa8 ; SUBPROGRAM
0aa8 ; --------------------------------------------------------------------------------------
0aa8 0ab9 | | .CONST 0x0ab9 ; Address of begin
0aa9 0004 | | .CONST 0x0004 ; Address of exception handler
0aaa 0004 | | .CONST 0x0004 ; Number of locals
0aab INIT_0aa8:
0aab 00da | | Load_Top At_Offset_2
0aac 0227 | ' | Execute Access,All_Reference
0aad 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0aae 00db | | Load_Top At_Offset_3
0aaf 0227 | ' | Execute Access,All_Reference
0ab0 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0ab1 0272 | r | Execute Discrete,Minus
0ab2 00e3 | | Load_Encached Natural_Cache
0ab3 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
0ab4 00e3 | | Load_Encached Natural_Cache
0ab5 e5fe | | Load 0x2,-0x2
0ab6 01db | | Execute Vector,Length
0ab7 00e3 | | Load_Encached Natural_Cache
0ab8 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
0ab9 BODY_0aa8:
0ab9 00da | | Load_Top At_Offset_2
0aba 00d9 | | Load_Top At_Offset_1
0abb 027b | { | Execute Discrete,Greater_Equal
0abc 6830 |h0 | Jump_Zero 0xaed
0abd 4801 |H | Short_Literal 0x1
0abe e5ff | | Load 0x2,-0x1
0abf 0227 | ' | Execute Access,All_Reference
0ac0 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0ac1 e5ff | | Load 0x2,-0x1
0ac2 0227 | ' | Execute Access,All_Reference
0ac3 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0ac4 01cf | | Execute Vector,Slice_Read
0ac5 00d9 | | Load_Top At_Offset_1
0ac6 0a01 | | Execute_Immediate Plus,0x1
0ac7 00d8 | | Load_Top At_Offset_0
0ac8 00e2 | | Load_Encached Integer_Cache
0ac9 0260 | ` | Execute Discrete,In_Type
0aca 7001 |p | Jump_Nonzero 0xacc
0acb 0801 | | Execute_Immediate Raise,0x1
0acc 00da | | Load_Top At_Offset_2
0acd e5ff | | Load 0x2,-0x1
0ace 0227 | ' | Execute Access,All_Reference
0acf 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0ad0 0273 | s | Execute Discrete,Plus
0ad1 00d8 | | Load_Top At_Offset_0
0ad2 00e2 | | Load_Encached Integer_Cache
0ad3 0260 | ` | Execute Discrete,In_Type
0ad4 7001 |p | Jump_Nonzero 0xad6
0ad5 0801 | | Execute_Immediate Raise,0x1
0ad6 e5ff | | Load 0x2,-0x1
0ad7 0229 | ) | Execute Access,All_Read
0ad8 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0ad9 01ce | | Execute Vector,Slice_Write
0ada 4801 |H | Short_Literal 0x1
0adb 00d9 | | Load_Top At_Offset_1
0adc e5fe | | Load 0x2,-0x2
0add 01cf | | Execute Vector,Slice_Read
0ade 4801 |H | Short_Literal 0x1
0adf 00da | | Load_Top At_Offset_2
0ae0 e5ff | | Load 0x2,-0x1
0ae1 0229 | ) | Execute Access,All_Read
0ae2 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0ae3 01ce | | Execute Vector,Slice_Write
0ae4 e5ff | | Load 0x2,-0x1
0ae5 0227 | ' | Execute Access,All_Reference
0ae6 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0ae7 00d9 | | Load_Top At_Offset_1
0ae8 0273 | s | Execute Discrete,Plus
0ae9 e5ff | | Load 0x2,-0x1
0aea 0227 | ' | Execute Access,All_Reference
0aeb 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0aec 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0aed 00d8 | | Load_Top At_Offset_0
0aee e5ff | | Load 0x2,-0x1
0aef 0227 | ' | Execute Access,All_Reference
0af0 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0af1 027d | } | Execute Discrete,Greater
0af2 681a |h | Jump_Zero 0xb0d
0af3 e5fe | | Load 0x2,-0x2
0af4 01dd | | Execute Vector,First
0af5 e5fe | | Load 0x2,-0x2
0af6 01dd | | Execute Vector,First
0af7 e5ff | | Load 0x2,-0x1
0af8 0227 | ' | Execute Access,All_Reference
0af9 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0afa 0273 | s | Execute Discrete,Plus
0afb 0aff | | Execute_Immediate Plus,-0x1
0afc 00d8 | | Load_Top At_Offset_0
0afd 00e2 | | Load_Encached Integer_Cache
0afe 0260 | ` | Execute Discrete,In_Type
0aff 7001 |p | Jump_Nonzero 0xb01
0b00 0801 | | Execute_Immediate Raise,0x1
0b01 e5fe | | Load 0x2,-0x2
0b02 01cf | | Execute Vector,Slice_Read
0b03 e5ff | | Load 0x2,-0x1
0b04 0227 | ' | Execute Access,All_Reference
0b05 2903 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x3
0b06 e5ff | | Load 0x2,-0x1
0b07 0227 | ' | Execute Access,All_Reference
0b08 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0b09 e5ff | | Load 0x2,-0x1
0b0a 0227 | ' | Execute Access,All_Reference
0b0b 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0b0c 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0b0d 4801 |H | Short_Literal 0x1
0b0e e5ff | | Load 0x2,-0x1
0b0f 0227 | ' | Execute Access,All_Reference
0b10 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0b11 00db | | Load_Top At_Offset_3
0b12 0272 | r | Execute Discrete,Minus
0b13 e5ff | | Load 0x2,-0x1
0b14 0227 | ' | Execute Access,All_Reference
0b15 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0b16 01cf | | Execute Vector,Slice_Read
0b17 00d9 | | Load_Top At_Offset_1
0b18 0a01 | | Execute_Immediate Plus,0x1
0b19 00d8 | | Load_Top At_Offset_0
0b1a 00e2 | | Load_Encached Integer_Cache
0b1b 0260 | ` | Execute Discrete,In_Type
0b1c 7001 |p | Jump_Nonzero 0xb1e
0b1d 0801 | | Execute_Immediate Raise,0x1
0b1e e5ff | | Load 0x2,-0x1
0b1f 0227 | ' | Execute Access,All_Reference
0b20 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0b21 e5ff | | Load 0x2,-0x1
0b22 0229 | ) | Execute Access,All_Read
0b23 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0b24 01ce | | Execute Vector,Slice_Write
0b25 e5fe | | Load 0x2,-0x2
0b26 4801 |H | Short_Literal 0x1
0b27 00da | | Load_Top At_Offset_2
0b28 e5ff | | Load 0x2,-0x1
0b29 0229 | ) | Execute Access,All_Read
0b2a 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0b2b 01ce | | Execute Vector,Slice_Write
0b2c e5ff | | Load 0x2,-0x1
0b2d 0227 | ' | Execute Access,All_Reference
0b2e 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0b2f e5ff | | Load 0x2,-0x1
0b30 0227 | ' | Execute Access,All_Reference
0b31 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0b32 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0b33 0000 0000 | | .BLANK 0000[0x5]
0b38 ; --------------------------------------------------------------------------------------
0b38 ; SUBPROGRAM
0b38 ; --------------------------------------------------------------------------------------
0b38 0b45 | E | .CONST 0x0b45 ; Address of begin
0b39 0004 | | .CONST 0x0004 ; Address of exception handler
0b3a 0003 | | .CONST 0x0003 ; Number of locals
0b3b INIT_0b38:
0b3b 00da | | Load_Top At_Offset_2
0b3c 0227 | ' | Execute Access,All_Reference
0b3d 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0b3e 00db | | Load_Top At_Offset_3
0b3f 0227 | ' | Execute Access,All_Reference
0b40 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0b41 0272 | r | Execute Discrete,Minus
0b42 00e3 | | Load_Encached Natural_Cache
0b43 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
0b44 00e3 | | Load_Encached Natural_Cache
0b45 BODY_0b38:
0b45 00d9 | | Load_Top At_Offset_1
0b46 0c01 | | Execute_Immediate Greater_Equal,0x1
0b47 6824 |h$ | Jump_Zero 0xb6c
0b48 4801 |H | Short_Literal 0x1
0b49 e5ff | | Load 0x2,-0x1
0b4a 0227 | ' | Execute Access,All_Reference
0b4b 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0b4c e5ff | | Load 0x2,-0x1
0b4d 0227 | ' | Execute Access,All_Reference
0b4e 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0b4f 01cf | | Execute Vector,Slice_Read
0b50 4802 |H | Short_Literal 0x2
0b51 e5ff | | Load 0x2,-0x1
0b52 0227 | ' | Execute Access,All_Reference
0b53 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0b54 0a01 | | Execute_Immediate Plus,0x1
0b55 00d8 | | Load_Top At_Offset_0
0b56 00e2 | | Load_Encached Integer_Cache
0b57 0260 | ` | Execute Discrete,In_Type
0b58 7001 |p | Jump_Nonzero 0xb5a
0b59 0801 | | Execute_Immediate Raise,0x1
0b5a e5ff | | Load 0x2,-0x1
0b5b 0229 | ) | Execute Access,All_Read
0b5c 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0b5d 01ce | | Execute Vector,Slice_Write
0b5e e5fe | | Load 0x2,-0x2
0b5f 4801 |H | Short_Literal 0x1
0b60 e5ff | | Load 0x2,-0x1
0b61 0227 | ' | Execute Access,All_Reference
0b62 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0b63 01d6 | | Execute Vector,Field_Write
0b64 e5ff | | Load 0x2,-0x1
0b65 0227 | ' | Execute Access,All_Reference
0b66 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0b67 0a01 | | Execute_Immediate Plus,0x1
0b68 e5ff | | Load 0x2,-0x1
0b69 0227 | ' | Execute Access,All_Reference
0b6a 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0b6b 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0b6c e5ff | | Load 0x2,-0x1
0b6d 0227 | ' | Execute Access,All_Reference
0b6e 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0b6f 0d01 | | Execute_Immediate Less,0x1
0b70 6801 |h | Jump_Zero 0xb72
0b71 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0b72 4801 |H | Short_Literal 0x1
0b73 e5ff | | Load 0x2,-0x1
0b74 0227 | ' | Execute Access,All_Reference
0b75 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0b76 0aff | | Execute_Immediate Plus,-0x1
0b77 e5ff | | Load 0x2,-0x1
0b78 0227 | ' | Execute Access,All_Reference
0b79 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0b7a 01cf | | Execute Vector,Slice_Read
0b7b 4802 |H | Short_Literal 0x2
0b7c e5ff | | Load 0x2,-0x1
0b7d 0227 | ' | Execute Access,All_Reference
0b7e 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0b7f e5ff | | Load 0x2,-0x1
0b80 0229 | ) | Execute Access,All_Read
0b81 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0b82 01ce | | Execute Vector,Slice_Write
0b83 e5fe | | Load 0x2,-0x2
0b84 4801 |H | Short_Literal 0x1
0b85 e5ff | | Load 0x2,-0x1
0b86 0227 | ' | Execute Access,All_Reference
0b87 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0b88 01d6 | | Execute Vector,Field_Write
0b89 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0b8a 0000 0000 | | .BLANK 0000[0x6]
0b90 ; --------------------------------------------------------------------------------------
0b90 ; SUBPROGRAM
0b90 ; --------------------------------------------------------------------------------------
0b90 0b9d | | .CONST 0x0b9d ; Address of begin
0b91 0004 | | .CONST 0x0004 ; Address of exception handler
0b92 0003 | | .CONST 0x0003 ; Number of locals
0b93 INIT_0b90:
0b93 00da | | Load_Top At_Offset_2
0b94 0227 | ' | Execute Access,All_Reference
0b95 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0b96 00db | | Load_Top At_Offset_3
0b97 0227 | ' | Execute Access,All_Reference
0b98 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0b99 0272 | r | Execute Discrete,Minus
0b9a 00e3 | | Load_Encached Natural_Cache
0b9b 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
0b9c 00e3 | | Load_Encached Natural_Cache
0b9d BODY_0b90:
0b9d 00d9 | | Load_Top At_Offset_1
0b9e e5fd | | Load 0x2,-0x3
0b9f 027b | { | Execute Discrete,Greater_Equal
0ba0 6843 |hC | Jump_Zero 0xbe4
0ba1 4801 |H | Short_Literal 0x1
0ba2 e5ff | | Load 0x2,-0x1
0ba3 0227 | ' | Execute Access,All_Reference
0ba4 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0ba5 e5ff | | Load 0x2,-0x1
0ba6 0227 | ' | Execute Access,All_Reference
0ba7 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0ba8 01cf | | Execute Vector,Slice_Read
0ba9 e5fd | | Load 0x2,-0x3
0baa 0a01 | | Execute_Immediate Plus,0x1
0bab 00d8 | | Load_Top At_Offset_0
0bac 00e2 | | Load_Encached Integer_Cache
0bad 0260 | ` | Execute Discrete,In_Type
0bae 7001 |p | Jump_Nonzero 0xbb0
0baf 0801 | | Execute_Immediate Raise,0x1
0bb0 e5fd | | Load 0x2,-0x3
0bb1 e5ff | | Load 0x2,-0x1
0bb2 0227 | ' | Execute Access,All_Reference
0bb3 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0bb4 0273 | s | Execute Discrete,Plus
0bb5 00d8 | | Load_Top At_Offset_0
0bb6 00e2 | | Load_Encached Integer_Cache
0bb7 0260 | ` | Execute Discrete,In_Type
0bb8 7001 |p | Jump_Nonzero 0xbba
0bb9 0801 | | Execute_Immediate Raise,0x1
0bba e5ff | | Load 0x2,-0x1
0bbb 0229 | ) | Execute Access,All_Read
0bbc 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0bbd 01ce | | Execute Vector,Slice_Write
0bbe e5ff | | Load 0x2,-0x1
0bbf 0229 | ) | Execute Access,All_Read
0bc0 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0bc1 4801 |H | Short_Literal 0x1
0bc2 e5fd | | Load 0x2,-0x3
0bc3 00d9 | | Load_Top At_Offset_1
0bc4 00d9 | | Load_Top At_Offset_1
0bc5 e404 | | Load 0x2,0x4
0bc6 035b | [ | Declare_Type Array,Constrained
0bc7 00db | | Load_Top At_Offset_3
0bc8 01cd | | Execute Vector,Slice_Reference
0bc9 00d8 | | Load_Top At_Offset_0
0bca 0335 | 5 | Declare_Variable Array,Duplicate
0bcb 00cd | | Action Spare6_Action
0bcc 00d9 | | Load_Top At_Offset_1
0bcd 01d9 | | Execute Vector,Reverse_Bounds
0bce 0263 | c | Execute Discrete,Above_Bound
0bcf 7005 |p | Jump_Nonzero 0xbd5
0bd0 e5fe | | Load 0x2,-0x2
0bd1 00d9 | | Load_Top At_Offset_1
0bd2 e408 | | Load 0x2,0x8
0bd3 01d6 | | Execute Vector,Field_Write
0bd4 3ffb |? | Loop_Increasing 0xbd0
0bd5 00cd | | Action Spare6_Action
0bd6 00da | | Load_Top At_Offset_2
0bd7 00da | | Load_Top At_Offset_2
0bd8 e404 | | Load 0x2,0x4
0bd9 01ce | | Execute Vector,Slice_Write
0bda 00d3 | | Pop_Control Pop_Count_3
0bdb e5ff | | Load 0x2,-0x1
0bdc 0227 | ' | Execute Access,All_Reference
0bdd 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0bde e5fd | | Load 0x2,-0x3
0bdf 0273 | s | Execute Discrete,Plus
0be0 e5ff | | Load 0x2,-0x1
0be1 0227 | ' | Execute Access,All_Reference
0be2 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0be3 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0be4 e5fd | | Load 0x2,-0x3
0be5 e5ff | | Load 0x2,-0x1
0be6 0227 | ' | Execute Access,All_Reference
0be7 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0be8 027d | } | Execute Discrete,Greater
0be9 681b |h | Jump_Zero 0xc05
0bea e5ff | | Load 0x2,-0x1
0beb 0229 | ) | Execute Access,All_Read
0bec 00d8 | | Load_Top At_Offset_0
0bed 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0bee 00d8 | | Load_Top At_Offset_0
0bef 0335 | 5 | Declare_Variable Array,Duplicate
0bf0 00cd | | Action Spare6_Action
0bf1 00d9 | | Load_Top At_Offset_1
0bf2 01d9 | | Execute Vector,Reverse_Bounds
0bf3 0263 | c | Execute Discrete,Above_Bound
0bf4 7005 |p | Jump_Nonzero 0xbfa
0bf5 e5fe | | Load 0x2,-0x2
0bf6 00d9 | | Load_Top At_Offset_1
0bf7 e406 | | Load 0x2,0x6
0bf8 01d6 | | Execute Vector,Field_Write
0bf9 3ffb |? | Loop_Increasing 0xbf5
0bfa 00cd | | Action Spare6_Action
0bfb 00d9 | | Load_Top At_Offset_1
0bfc 2903 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x3
0bfd 00d1 | | Pop_Control Pop_Count_1
0bfe e5ff | | Load 0x2,-0x1
0bff 0227 | ' | Execute Access,All_Reference
0c00 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0c01 e5ff | | Load 0x2,-0x1
0c02 0227 | ' | Execute Access,All_Reference
0c03 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0c04 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0c05 4801 |H | Short_Literal 0x1
0c06 e5ff | | Load 0x2,-0x1
0c07 0227 | ' | Execute Access,All_Reference
0c08 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0c09 00da | | Load_Top At_Offset_2
0c0a 0272 | r | Execute Discrete,Minus
0c0b e5ff | | Load 0x2,-0x1
0c0c 0227 | ' | Execute Access,All_Reference
0c0d 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0c0e 01cf | | Execute Vector,Slice_Read
0c0f e5fd | | Load 0x2,-0x3
0c10 0a01 | | Execute_Immediate Plus,0x1
0c11 00d8 | | Load_Top At_Offset_0
0c12 00e2 | | Load_Encached Integer_Cache
0c13 0260 | ` | Execute Discrete,In_Type
0c14 7001 |p | Jump_Nonzero 0xc16
0c15 0801 | | Execute_Immediate Raise,0x1
0c16 e5ff | | Load 0x2,-0x1
0c17 0227 | ' | Execute Access,All_Reference
0c18 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0c19 e5ff | | Load 0x2,-0x1
0c1a 0229 | ) | Execute Access,All_Read
0c1b 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0c1c 01ce | | Execute Vector,Slice_Write
0c1d e5ff | | Load 0x2,-0x1
0c1e 0229 | ) | Execute Access,All_Read
0c1f 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0c20 4801 |H | Short_Literal 0x1
0c21 e5fd | | Load 0x2,-0x3
0c22 00d9 | | Load_Top At_Offset_1
0c23 00d9 | | Load_Top At_Offset_1
0c24 e404 | | Load 0x2,0x4
0c25 035b | [ | Declare_Type Array,Constrained
0c26 00db | | Load_Top At_Offset_3
0c27 01cd | | Execute Vector,Slice_Reference
0c28 00d8 | | Load_Top At_Offset_0
0c29 0335 | 5 | Declare_Variable Array,Duplicate
0c2a 00cd | | Action Spare6_Action
0c2b 00d9 | | Load_Top At_Offset_1
0c2c 01d9 | | Execute Vector,Reverse_Bounds
0c2d 0263 | c | Execute Discrete,Above_Bound
0c2e 7005 |p | Jump_Nonzero 0xc34
0c2f e5fe | | Load 0x2,-0x2
0c30 00d9 | | Load_Top At_Offset_1
0c31 e408 | | Load 0x2,0x8
0c32 01d6 | | Execute Vector,Field_Write
0c33 3ffb |? | Loop_Increasing 0xc2f
0c34 00cd | | Action Spare6_Action
0c35 00da | | Load_Top At_Offset_2
0c36 00da | | Load_Top At_Offset_2
0c37 e404 | | Load 0x2,0x4
0c38 01ce | | Execute Vector,Slice_Write
0c39 00d3 | | Pop_Control Pop_Count_3
0c3a e5ff | | Load 0x2,-0x1
0c3b 0227 | ' | Execute Access,All_Reference
0c3c 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0c3d e5ff | | Load 0x2,-0x1
0c3e 0227 | ' | Execute Access,All_Reference
0c3f 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0c40 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0c41 0000 0000 | | .BLANK 0000[0x7]
0c48 ; --------------------------------------------------------------------------------------
0c48 ; Debug Table
0c48 ; --------------------------------------------------------------------------------------
0c48 0004 0008 | | .DEBUG4 0x0004,0x0008,0xa93a,0x0000,0x0001,0x0000
0c4e a5cd d195 | | .XXX[0x1b2]
0c50 c881 a5b9 | |
0c52 d081 c995 | |
0c54 99c9 95cd | |
0c56 a1d1 bdc0 | |
0c58 ec28 25c9 | (% |
0c5a 959d a5cd | |
0c5c d195 c881 | |
0c5e a5b9 d081 | |
0c60 c995 99c9 | |
0c62 95cd a1a1 | |
0c64 95a5 9da1 | |
0c66 d0ec 2825 | (%|
0c68 c995 9da5 | |
0c6a cdd1 95c8 | |
0c6c 81a5 b9d0 | |
0c6e 81cd 8dc9 | |
0c70 bdb1 b1d1 | |
0c72 bdc0 ec28 | (|
0c74 25c9 959d |% |
0c76 a5cd d195 | |
0c78 c881 a5b9 | |
0c7a d081 cd8d | |
0c7c c9bd b1b1 | |
0c7e a195 a59d | |
0c80 a1d0 ec28 | (|
0c82 2825 a598 |(% |
0c84 80a1 cd8d | |
0c86 c995 95b8 | |
0c88 b4f9 8dd5 | |
0c8a c97d c9bd | } |
0c8c dc80 f081 | |
0c8e cd8d c995 | |
0c90 95b8 b4f9 | |
0c92 d1bd c17d | }|
0c94 b585 c99c | |
0c96 81f1 f028 | (|
0c98 2481 cd8d |$ |
0c9a c995 95b8 | |
0c9c b4f9 8dd5 | |
0c9e c97d c9bd | } |
0ca0 dc80 f881 | |
0ca2 cd8d c995 | |
0ca4 95b8 b4f9 | |
0ca6 89bd d17d | }|
0ca8 b585 c99c | |
0caa a428 2425 | ($%|
0cac c995 d1d5 | |
0cae c9b8 ec28 | (|
0cb0 25a5 98a1 |% |
0cb2 cd8d c995 | |
0cb4 95b8 b4f9 | |
0cb6 8dd5 c9cd | |
0cb8 bdc9 7dcd | } |
0cba d185 d194 | |
0cbc a428 2425 | ($%|
0cbe 21a5 9195 |! |
0cc0 0dd5 c9cd | |
0cc2 bdc8 a0a4 | |
0cc4 ec28 25cd | (% |
0cc6 8dc9 9595 | |
0cc8 b8b4 f991 | |
0cca bd7d ddc9 | } |
0ccc 85c0 80f4 | |
0cce 80c0 ec28 | (|
0cd0 25a5 9880 |% |
0cd2 a1b8 80f8 | |
0cd4 80a1 a480 | |
0cd6 f481 cd8d | |
0cd8 c995 95b8 | |
0cda b4f9 89bd | |
0cdc d17d b585 | } |
0cde c99c 80b4 | |
0ce0 81cd 8dc9 | |
0ce2 9595 b8b4 | |
0ce4 f98d d5c9 | |
0ce6 7dc9 bddc |} |
0ce8 80ac 80c4 | |
0cea a4a4 2824 | ($|
0cec 25b8 80f4 |% |
0cee 81a4 ec28 | (|
0cf0 8080 8081 | |
0cf2 a598 a1cd | |
0cf4 8dc9 9595 | |
0cf6 b8b4 f9a9 | |
0cf8 d5b5 c1cd | |
0cfa 8dc9 bdb1 | |
0cfc b0a4 81ec | |
0cfe 2825 a598 |(% |
0d00 a1cd 8dc9 | |
0d02 9595 b8b4 | |
0d04 f9cd 8dc9 | |
0d06 bdb1 b17d | }|
0d08 85b5 d080 | |
0d0a f0f4 80c0 | |
0d0c 8098 9828 | (|
0d0e 2481 cd8d |$ |
0d10 c995 95b8 | |
0d12 b4f9 8dd5 | |
0d14 c97d c9bd | } |
0d16 dc80 f0f4 | |
0d18 80b5 cd8d | |
0d1a c995 95b8 | |
0d1c b4f9 c995 | |
0d1e 99c9 95cd | |
0d20 a17d 85b5 | } |
0d22 d0a4 81ec | |
0d24 2824 25a5 |($% |
0d26 98a0 b5cd | |
0d28 8dc9 9595 | |
0d2a b8b4 f9c9 | |
0d2c 9599 c995 | |
0d2e cda1 7d85 | } |
0d30 b5d0 80ac | |
0d32 81b8 80f8 | |
0d34 81cd 8dc9 | |
0d36 9595 b8b4 | |
0d38 f9b5 85e1 | |
0d3a 7dc9 bddc |} |
0d3c 80ac 80c4 | |
0d3e a428 2424 | ($$|
0d40 2519 b1d5 |% |
0d42 cda1 4d8d | M |
0d44 c9bd b1b0 | |
0d46 a1cd 8dc9 | |
0d48 9595 b8a4 | |
0d4a ec28 2425 | ($%|
0d4c cd8d c995 | |
0d4e 95b8 b4f9 | |
0d50 cd8d c9bd | |
0d52 b1b1 7d85 | } |
0d54 b5d0 80b4 | |
0d56 f481 b8ec | |
0d58 2824 25cd |($% |
0d5a 8dc9 9595 | |
0d5c b8b4 f9c9 | |
0d5e 9599 c995 | |
0d60 cda1 7d85 | } |
0d62 b5d0 80b4 | |
0d64 f481 b8ec | |
0d66 2825 f481 |(% |
0d68 95b1 cd94 | |
0d6a 81a5 98a1 | |
0d6c cd8d c995 | |
0d6e 95b8 b4f9 | |
0d70 cd8d c9bd | |
0d72 b1b1 7d85 | } |
0d74 b5d0 a428 | (|
0d76 2425 19b1 |$% |
0d78 d5cd a14d | M|
0d7a 8dc9 bdb1 | |
0d7c b0a1 cd8d | |
0d7e c995 95b8 | |
0d80 a4ec 2880 | ( |
0d82 8080 81f4 | |
0d84 2880 8080 |( |
0d86 81a5 98a0 | |
0d88 85cd 8dc9 | |
0d8a 9595 b8b4 | |
0d8c f9cd 8dc9 | |
0d8e bdb1 b17d | }|
0d90 85b5 d0a4 | |
0d92 81ec 2825 | (%|
0d94 cda1 a599 | |
0d96 d080 f480 | |
0d98 b5cd 8dc9 | |
0d9a 9595 b8b4 | |
0d9c f9d1 bdc1 | |
0d9e b1a5 b994 | |
0da0 ec28 2589 | (% |
0da2 bdd0 80f4 | |
0da4 81cd 8dc9 | |
0da6 9595 b8b4 | |
0da8 f9b5 85e1 | |
0daa 7dc9 bddc |} |
0dac 80b4 81cd | |
0dae a1a5 99d0 | |
0db0 ec28 25c9 | (% |
0db2 9599 c995 | |
0db4 cda1 a195 | |
0db6 a59d a1d0 | |
0db8 80f4 81b8 | |
0dba ec28 25cd | (% |
0dbc 8dc9 bdb1 | |
0dbe b1a1 95a5 | |
0dc0 9da1 d080 | |
0dc2 f481 cd8d | |
0dc4 c995 95b8 | |
0dc6 b4f9 89bd | |
0dc8 d17d b585 | } |
0dca c99c 80b4 | |
0dcc 81cd 8dc9 | |
0dce 9595 b8b4 | |
0dd0 f98d d5c9 | |
0dd2 7dc9 bddc |} |
0dd4 80b4 81c9 | |
0dd6 9599 c995 | |
0dd8 cda1 a195 | |
0dda a59d a1d0 | |
0ddc 80ac 80c4 | |
0dde ec28 25c9 | (% |
0de0 9599 c995 | |
0de2 cda1 d1bd | |
0de4 c080 f481 | |
0de6 cd8d c995 | |
0de8 95b8 b4f9 | |
0dea 8dd5 c97d | }|
0dec c9bd dc80 | |
0dee ac81 cda1 | |
0df0 a599 d0ec | |
0df2 2825 cd8d |(% |
0df4 c9bd b1b1 | |
0df6 d1bd c080 | |
0df8 f481 c995 | |
0dfa 99c9 95cd | |
0dfc a1d1 bdc0 | |
0dfe 80ac 81c9 | |