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