|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 7168 (0x1c00)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_5850da
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code
0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 0cd8 | | .CONST 0x0cd8 ; 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 8008 | | .CONST 0x8008 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 015b | [ | .CONST 0x015b ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0054 | T | .CONST 0x0054 ; Number of locals
000b INIT_0008:
000b 029a 0163 | c| Declare_Subprogram INIT_0160,For_Outer_Call,Visible,Unelaborated
000d 029a 0173 | s| Declare_Subprogram INIT_0170,For_Outer_Call,Visible,Unelaborated
000f 029a 017b | {| Declare_Subprogram INIT_0178,For_Outer_Call,Visible,Unelaborated
0011 029a 0183 | | Declare_Subprogram INIT_0180,For_Outer_Call,Visible,Unelaborated
0013 029a 018b | | Declare_Subprogram INIT_0188,For_Outer_Call,Visible,Unelaborated
0015 029a 0193 | | Declare_Subprogram INIT_0190,For_Outer_Call,Visible,Unelaborated
0017 029c 01b3 | | Declare_Subprogram INIT_01b0,For_Outer_Call,Visible
0019 029c 01bb | | Declare_Subprogram INIT_01b8,For_Outer_Call,Visible
001b 029a 01c3 | | Declare_Subprogram INIT_01c0,For_Outer_Call,Visible,Unelaborated
001d 029a 01d3 | | Declare_Subprogram INIT_01d0,For_Outer_Call,Visible,Unelaborated
001f 029a 01db | | Declare_Subprogram INIT_01d8,For_Outer_Call,Visible,Unelaborated
0021 029a 01e3 | | Declare_Subprogram INIT_01e0,For_Outer_Call,Visible,Unelaborated
0023 029a 01eb | | Declare_Subprogram INIT_01e8,For_Outer_Call,Visible,Unelaborated
0025 029a 01fb | | Declare_Subprogram INIT_01f8,For_Outer_Call,Visible,Unelaborated
0027 029a 0203 | | Declare_Subprogram INIT_0200,For_Outer_Call,Visible,Unelaborated
0029 029a 0213 | | Declare_Subprogram INIT_0210,For_Outer_Call,Visible,Unelaborated
002b 029a 0223 | #| Declare_Subprogram INIT_0220,For_Outer_Call,Visible,Unelaborated
002d 029a 025b | [| Declare_Subprogram INIT_0258,For_Outer_Call,Visible,Unelaborated
002f 029a 027b | {| Declare_Subprogram INIT_0278,For_Outer_Call,Visible,Unelaborated
0031 029a 02c3 | | Declare_Subprogram INIT_02c0,For_Outer_Call,Visible,Unelaborated
0033 029a 02e3 | | Declare_Subprogram INIT_02e0,For_Outer_Call,Visible,Unelaborated
0035 029a 03c3 | | Declare_Subprogram INIT_03c0,For_Outer_Call,Visible,Unelaborated
0037 029a 03f3 | | Declare_Subprogram INIT_03f0,For_Outer_Call,Visible,Unelaborated
0039 029a 046b | k| Declare_Subprogram INIT_0468,For_Outer_Call,Visible,Unelaborated
003b 029a 04d3 | | Declare_Subprogram INIT_04d0,For_Outer_Call,Visible,Unelaborated
003d 029a 0513 | | Declare_Subprogram INIT_0510,For_Outer_Call,Visible,Unelaborated
003f 029a 054b | K| Declare_Subprogram INIT_0548,For_Outer_Call,Visible,Unelaborated
0041 029a 0553 | S| Declare_Subprogram INIT_0550,For_Outer_Call,Visible,Unelaborated
0043 029a 055b | [| Declare_Subprogram INIT_0558,For_Outer_Call,Visible,Unelaborated
0045 029a 058b | | Declare_Subprogram INIT_0588,For_Outer_Call,Visible,Unelaborated
0047 029a 05bb | | Declare_Subprogram INIT_05b8,For_Outer_Call,Visible,Unelaborated
0049 029a 05cb | | Declare_Subprogram INIT_05c8,For_Outer_Call,Visible,Unelaborated
004b 029a 05f3 | | Declare_Subprogram INIT_05f0,For_Outer_Call,Visible,Unelaborated
004d 029a 05fb | | Declare_Subprogram INIT_05f8,For_Outer_Call,Visible,Unelaborated
004f 029a 0603 | | Declare_Subprogram INIT_0600,For_Outer_Call,Visible,Unelaborated
0051 029a 063b | ;| Declare_Subprogram INIT_0638,For_Outer_Call,Visible,Unelaborated
0053 029a 064b | K| Declare_Subprogram INIT_0648,For_Outer_Call,Visible,Unelaborated
0055 029a 065b | [| Declare_Subprogram INIT_0658,For_Outer_Call,Visible,Unelaborated
0057 029a 06eb | | Declare_Subprogram INIT_06e8,For_Outer_Call,Visible,Unelaborated
0059 029a 0783 | | Declare_Subprogram INIT_0780,For_Outer_Call,Visible,Unelaborated
005b 029a 07b3 | | Declare_Subprogram INIT_07b0,For_Outer_Call,Visible,Unelaborated
005d 029a 07c3 | | Declare_Subprogram INIT_07c0,For_Outer_Call,Visible,Unelaborated
005f 029a 07d3 | | Declare_Subprogram INIT_07d0,For_Outer_Call,Visible,Unelaborated
0061 029a 07e3 | | Declare_Subprogram INIT_07e0,For_Outer_Call,Visible,Unelaborated
0063 029a 07f3 | | Declare_Subprogram INIT_07f0,For_Outer_Call,Visible,Unelaborated
0065 029a 082b | +| Declare_Subprogram INIT_0828,For_Outer_Call,Visible,Unelaborated
0067 029a 0843 | C| Declare_Subprogram INIT_0840,For_Outer_Call,Visible,Unelaborated
0069 029a 088b | | Declare_Subprogram INIT_0888,For_Outer_Call,Visible,Unelaborated
006b 029a 0893 | | Declare_Subprogram INIT_0890,For_Outer_Call,Visible,Unelaborated
006d 029a 089b | | Declare_Subprogram INIT_0898,For_Outer_Call,Visible,Unelaborated
006f 029a 08a3 | | Declare_Subprogram INIT_08a0,For_Outer_Call,Visible,Unelaborated
0071 00bf | | Action Accept_Activation
0072 60f9 |` | Indirect_Literal Discrete,0x16c,{0x00000000, 0x80000000}
0073 60f8 |` | Indirect_Literal Discrete,0x16c,{0x00000000, 0x80000000}
0074 00e5 | | Load_Encached Long_Integer_Cache
0075 03f8 | | Declare_Type Discrete,Constrained
0076 4801 |H | Short_Literal 0x1
0077 4820 |H | Short_Literal 0x20
0078 e001 | | Load 0x0,0x1
0079 1b5e | ^ | Execute Package,Field_Read,Field_Number 0x5e
007a 035b | [ | Declare_Type Array,Constrained
007b 4801 |H | Short_Literal 0x1
007c 4840 |H@ | Short_Literal 0x40
007d e001 | | Load 0x0,0x1
007e 1b5e | ^ | Execute Package,Field_Read,Field_Number 0x5e
007f 035b | [ | Declare_Type Array,Constrained
0080 4801 |H | Short_Literal 0x1
0081 4835 |H5 | Short_Literal 0x35
0082 e001 | | Load 0x0,0x1
0083 1b5e | ^ | Execute Package,Field_Read,Field_Number 0x5e
0084 035b | [ | Declare_Type Array,Constrained
0085 00da | | Load_Top At_Offset_2
0086 0337 | 7 | Declare_Variable Array
0087 00d8 | | Load_Top At_Offset_0
0088 0335 | 5 | Declare_Variable Array,Duplicate
0089 00cd | | Action Spare6_Action
008a 4820 |H | Short_Literal 0x20
008b 4801 |H | Short_Literal 0x1
008c 4800 |H | Short_Literal 0x0
008d 00d9 | | Load_Top At_Offset_1
008e e245 | E | Load 0x1,0x45
008f 01d6 | | Execute Vector,Field_Write
0090 3ffb |? | Loop_Increasing 0x8c
0091 00d9 | | Load_Top At_Offset_1
0092 01d4 | | Execute Vector,Structure_Write
0093 00da | | Load_Top At_Offset_2
0094 0337 | 7 | Declare_Variable Array
0095 00d8 | | Load_Top At_Offset_0
0096 0335 | 5 | Declare_Variable Array,Duplicate
0097 00cd | | Action Spare6_Action
0098 4840 |H@ | Short_Literal 0x40
0099 4801 |H | Short_Literal 0x1
009a 4800 |H | Short_Literal 0x0
009b 00d9 | | Load_Top At_Offset_1
009c e246 | F | Load 0x1,0x46
009d 01d6 | | Execute Vector,Field_Write
009e 3ffb |? | Loop_Increasing 0x9a
009f 00d9 | | Load_Top At_Offset_1
00a0 01d4 | | Execute Vector,Structure_Write
00a1 00da | | Load_Top At_Offset_2
00a2 0337 | 7 | Declare_Variable Array
00a3 00d8 | | Load_Top At_Offset_0
00a4 0335 | 5 | Declare_Variable Array,Duplicate
00a5 00cd | | Action Spare6_Action
00a6 4835 |H5 | Short_Literal 0x35
00a7 4801 |H | Short_Literal 0x1
00a8 4800 |H | Short_Literal 0x0
00a9 00d9 | | Load_Top At_Offset_1
00aa e247 | G | Load 0x1,0x47
00ab 01d6 | | Execute Vector,Field_Write
00ac 3ffb |? | Loop_Increasing 0xa8
00ad 00d9 | | Load_Top At_Offset_1
00ae 01d4 | | Execute Vector,Structure_Write
00af e002 | | Load 0x0,0x2
00b0 e003 | | Load 0x0,0x3
00b1 e001 | | Load 0x0,0x1
00b2 1b1f | | Execute Package,Field_Read,Field_Number 0x1f
00b3 e241 | A | Load 0x1,0x41
00b4 e004 | | Load 0x0,0x4
00b5 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00b6 0387 | | Declare_Variable Package
00b7 00d8 | | Load_Top At_Offset_0
00b8 020f | | Execute Module,Activate
00b9 e005 | | Load 0x0,0x5
00ba e006 | | Load 0x0,0x6
00bb e241 | A | Load 0x1,0x41
00bc e001 | | Load 0x0,0x1
00bd 1b1f | | Execute Package,Field_Read,Field_Number 0x1f
00be e004 | | Load 0x0,0x4
00bf 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00c0 0387 | | Declare_Variable Package
00c1 00d8 | | Load_Top At_Offset_0
00c2 020f | | Execute Module,Activate
00c3 e007 | | Load 0x0,0x7
00c4 e008 | | Load 0x0,0x8
00c5 e009 | | Load 0x0,0x9
00c6 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00c7 e243 | C | Load 0x1,0x43
00c8 e004 | | Load 0x0,0x4
00c9 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00ca 0387 | | Declare_Variable Package
00cb 00d8 | | Load_Top At_Offset_0
00cc 020f | | Execute Module,Activate
00cd e00a | | Load 0x0,0xa
00ce e00b | | Load 0x0,0xb
00cf e243 | C | Load 0x1,0x43
00d0 e009 | | Load 0x0,0x9
00d1 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00d2 e004 | | Load 0x0,0x4
00d3 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00d4 0387 | | Declare_Variable Package
00d5 00d8 | | Load_Top At_Offset_0
00d6 020f | | Execute Module,Activate
00d7 e00c | | Load 0x0,0xc
00d8 e00d | | Load 0x0,0xd
00d9 00e5 | | Load_Encached Long_Integer_Cache
00da e242 | B | Load 0x1,0x42
00db e004 | | Load 0x0,0x4
00dc 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00dd 0387 | | Declare_Variable Package
00de 00d8 | | Load_Top At_Offset_0
00df 020f | | Execute Module,Activate
00e0 e00e | | Load 0x0,0xe
00e1 e00f | | Load 0x0,0xf
00e2 e242 | B | Load 0x1,0x42
00e3 00e5 | | Load_Encached Long_Integer_Cache
00e4 e004 | | Load 0x0,0x4
00e5 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00e6 0387 | | Declare_Variable Package
00e7 00d8 | | Load_Top At_Offset_0
00e8 020f | | Execute Module,Activate
00e9 1d0d | | Execute_Immediate Reference_Lex_1,0xd
00ea 00c7 | | Action Elaborate_Subprogram
00eb 1d0e | | Execute_Immediate Reference_Lex_1,0xe
00ec 00c7 | | Action Elaborate_Subprogram
00ed 1d0f | | Execute_Immediate Reference_Lex_1,0xf
00ee 00c7 | | Action Elaborate_Subprogram
00ef 1d10 | | Execute_Immediate Reference_Lex_1,0x10
00f0 00c7 | | Action Elaborate_Subprogram
00f1 1d11 | | Execute_Immediate Reference_Lex_1,0x11
00f2 00c7 | | Action Elaborate_Subprogram
00f3 1d12 | | Execute_Immediate Reference_Lex_1,0x12
00f4 00c7 | | Action Elaborate_Subprogram
00f5 1d15 | | Execute_Immediate Reference_Lex_1,0x15
00f6 00c7 | | Action Elaborate_Subprogram
00f7 1d16 | | Execute_Immediate Reference_Lex_1,0x16
00f8 00c7 | | Action Elaborate_Subprogram
00f9 1d17 | | Execute_Immediate Reference_Lex_1,0x17
00fa 00c7 | | Action Elaborate_Subprogram
00fb 1d18 | | Execute_Immediate Reference_Lex_1,0x18
00fc 00c7 | | Action Elaborate_Subprogram
00fd 1d19 | | Execute_Immediate Reference_Lex_1,0x19
00fe 00c7 | | Action Elaborate_Subprogram
00ff 1d1a | | Execute_Immediate Reference_Lex_1,0x1a
0100 00c7 | | Action Elaborate_Subprogram
0101 1d1b | | Execute_Immediate Reference_Lex_1,0x1b
0102 00c7 | | Action Elaborate_Subprogram
0103 1d1c | | Execute_Immediate Reference_Lex_1,0x1c
0104 00c7 | | Action Elaborate_Subprogram
0105 1d1d | | Execute_Immediate Reference_Lex_1,0x1d
0106 00c7 | | Action Elaborate_Subprogram
0107 1d1e | | Execute_Immediate Reference_Lex_1,0x1e
0108 00c7 | | Action Elaborate_Subprogram
0109 1d1f | | Execute_Immediate Reference_Lex_1,0x1f
010a 00c7 | | Action Elaborate_Subprogram
010b 029d 08ab | | Declare_Subprogram INIT_08a8,For_Outer_Call
010d 029d 08c3 | | Declare_Subprogram INIT_08c0,For_Outer_Call
010f 1d20 | | Execute_Immediate Reference_Lex_1,0x20
0110 00c7 | | Action Elaborate_Subprogram
0111 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21
0112 00c7 | | Action Elaborate_Subprogram
0113 1d25 | % | Execute_Immediate Reference_Lex_1,0x25
0114 00c7 | | Action Elaborate_Subprogram
0115 1d26 | & | Execute_Immediate Reference_Lex_1,0x26
0116 00c7 | | Action Elaborate_Subprogram
0117 029d 093b | ;| Declare_Subprogram INIT_0938,For_Outer_Call
0119 029d 09cb | | Declare_Subprogram INIT_09c8,For_Outer_Call
011b 1d22 | " | Execute_Immediate Reference_Lex_1,0x22
011c 00c7 | | Action Elaborate_Subprogram
011d 1d23 | # | Execute_Immediate Reference_Lex_1,0x23
011e 00c7 | | Action Elaborate_Subprogram
011f 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24
0120 00c7 | | Action Elaborate_Subprogram
0121 1d27 | ' | Execute_Immediate Reference_Lex_1,0x27
0122 00c7 | | Action Elaborate_Subprogram
0123 1d28 | ( | Execute_Immediate Reference_Lex_1,0x28
0124 00c7 | | Action Elaborate_Subprogram
0125 1d29 | ) | Execute_Immediate Reference_Lex_1,0x29
0126 00c7 | | Action Elaborate_Subprogram
0127 1d2a | * | Execute_Immediate Reference_Lex_1,0x2a
0128 00c7 | | Action Elaborate_Subprogram
0129 1d2c | , | Execute_Immediate Reference_Lex_1,0x2c
012a 00c7 | | Action Elaborate_Subprogram
012b 1d2b | + | Execute_Immediate Reference_Lex_1,0x2b
012c 00c7 | | Action Elaborate_Subprogram
012d 1d2d | - | Execute_Immediate Reference_Lex_1,0x2d
012e 00c7 | | Action Elaborate_Subprogram
012f 1d2e | . | Execute_Immediate Reference_Lex_1,0x2e
0130 00c7 | | Action Elaborate_Subprogram
0131 1d2f | / | Execute_Immediate Reference_Lex_1,0x2f
0132 00c7 | | Action Elaborate_Subprogram
0133 1d30 | 0 | Execute_Immediate Reference_Lex_1,0x30
0134 00c7 | | Action Elaborate_Subprogram
0135 1d31 | 1 | Execute_Immediate Reference_Lex_1,0x31
0136 00c7 | | Action Elaborate_Subprogram
0137 029d 0a1b | | Declare_Subprogram INIT_0a18,For_Outer_Call
0139 1d3a | : | Execute_Immediate Reference_Lex_1,0x3a
013a 00c7 | | Action Elaborate_Subprogram
013b 1d3b | ; | Execute_Immediate Reference_Lex_1,0x3b
013c 00c7 | | Action Elaborate_Subprogram
013d 029d 0a5b | [| Declare_Subprogram INIT_0a58,For_Outer_Call
013f 029d 0a7b | {| Declare_Subprogram INIT_0a78,For_Outer_Call
0141 1d32 | 2 | Execute_Immediate Reference_Lex_1,0x32
0142 00c7 | | Action Elaborate_Subprogram
0143 1d33 | 3 | Execute_Immediate Reference_Lex_1,0x33
0144 00c7 | | Action Elaborate_Subprogram
0145 029d 0ac3 | | Declare_Subprogram INIT_0ac0,For_Outer_Call
0147 1d34 | 4 | Execute_Immediate Reference_Lex_1,0x34
0148 00c7 | | Action Elaborate_Subprogram
0149 1d35 | 5 | Execute_Immediate Reference_Lex_1,0x35
014a 00c7 | | Action Elaborate_Subprogram
014b 1d36 | 6 | Execute_Immediate Reference_Lex_1,0x36
014c 00c7 | | Action Elaborate_Subprogram
014d 1d38 | 8 | Execute_Immediate Reference_Lex_1,0x38
014e 00c7 | | Action Elaborate_Subprogram
014f 1d39 | 9 | Execute_Immediate Reference_Lex_1,0x39
0150 00c7 | | Action Elaborate_Subprogram
0151 1d37 | 7 | Execute_Immediate Reference_Lex_1,0x37
0152 00c7 | | Action Elaborate_Subprogram
0153 1d3c | < | Execute_Immediate Reference_Lex_1,0x3c
0154 00c7 | | Action Elaborate_Subprogram
0155 1d3d | = | Execute_Immediate Reference_Lex_1,0x3d
0156 00c7 | | Action Elaborate_Subprogram
0157 1d3e | > | Execute_Immediate Reference_Lex_1,0x3e
0158 00c7 | | Action Elaborate_Subprogram
0159 1d3f | ? | Execute_Immediate Reference_Lex_1,0x3f
015a 00c7 | | Action Elaborate_Subprogram
015b BODY_0008:
015b 00bc | | Action Signal_Activated
015c 00bb | | Action Signal_Completion
015d 0000 0000 | | .XXX[0x3]
015f 0000 | |
0160 ; --------------------------------------------------------------------------------------
0160 ; SUBPROGRAM
0160 ; --------------------------------------------------------------------------------------
0160 0163 | c | .CONST 0x0163 ; Address of begin
0161 0004 | | .CONST 0x0004 ; Address of exception handler
0162 0001 | | .CONST 0x0001 ; Number of locals
0163 BODY_0160:
0163 INIT_0160:
0163 00da | | Load_Top At_Offset_2
0164 00d8 | | Load_Top At_Offset_0
0165 00e2 | | Load_Encached Integer_Cache
0166 0260 | ` | Execute Discrete,In_Type
0167 7001 |p | Jump_Nonzero 0x169
0168 0801 | | Execute_Immediate Raise,0x1
0169 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
016a 0000 0000 | | .XXX[0x2]
016c 0000 0000 | | .LITERAL {0x00000000, 0x80000000}
0170 ; --------------------------------------------------------------------------------------
0170 ; SUBPROGRAM
0170 ; --------------------------------------------------------------------------------------
0170 0173 | s | .CONST 0x0173 ; Address of begin
0171 0004 | | .CONST 0x0004 ; Address of exception handler
0172 0001 | | .CONST 0x0001 ; Number of locals
0173 BODY_0170:
0173 INIT_0170:
0173 00da | | Load_Top At_Offset_2
0174 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0175 0000 0000 | | .XXX[0x3]
0177 0000 | |
0178 ; --------------------------------------------------------------------------------------
0178 ; SUBPROGRAM
0178 ; --------------------------------------------------------------------------------------
0178 017b | { | .CONST 0x017b ; Address of begin
0179 0004 | | .CONST 0x0004 ; Address of exception handler
017a 0001 | | .CONST 0x0001 ; Number of locals
017b BODY_0178:
017b INIT_0178:
017b 00da | | Load_Top At_Offset_2
017c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
017d 0000 0000 | | .XXX[0x3]
017f 0000 | |
0180 ; --------------------------------------------------------------------------------------
0180 ; SUBPROGRAM
0180 ; --------------------------------------------------------------------------------------
0180 0183 | | .CONST 0x0183 ; Address of begin
0181 0004 | | .CONST 0x0004 ; Address of exception handler
0182 0001 | | .CONST 0x0001 ; Number of locals
0183 BODY_0180:
0183 INIT_0180:
0183 00da | | Load_Top At_Offset_2
0184 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0185 0000 0000 | | .XXX[0x3]
0187 0000 | |
0188 ; --------------------------------------------------------------------------------------
0188 ; SUBPROGRAM
0188 ; --------------------------------------------------------------------------------------
0188 018b | | .CONST 0x018b ; Address of begin
0189 0004 | | .CONST 0x0004 ; Address of exception handler
018a 0001 | | .CONST 0x0001 ; Number of locals
018b BODY_0188:
018b INIT_0188:
018b 00da | | Load_Top At_Offset_2
018c e24b | K | Load 0x1,0x4b
018d 1811 | | Execute Package,Field_Execute,Field_Number 0x11
018e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
018f 0000 | | .XXX[0x1]
0190 ; --------------------------------------------------------------------------------------
0190 ; SUBPROGRAM
0190 ; --------------------------------------------------------------------------------------
0190 0198 | | .CONST 0x0198 ; Address of begin
0191 0004 | | .CONST 0x0004 ; Address of exception handler
0192 0002 | | .CONST 0x0002 ; Number of locals
0193 INIT_0190:
0193 e242 | B | Load 0x1,0x42
0194 0337 | 7 | Declare_Variable Array
0195 e245 | E | Load 0x1,0x45
0196 00d9 | | Load_Top At_Offset_1
0197 01d4 | | Execute Vector,Structure_Write
0198 BODY_0190:
0198 00db | | Load_Top At_Offset_3
0199 01db | | Execute Vector,Length
019a 0c41 | A | Execute_Immediate Greater_Equal,0x41
019b 6801 |h | Jump_Zero 0x19d
019c 08e0 | | Execute_Immediate Raise,0xe0
019d 00db | | Load_Top At_Offset_3
019e 4841 |HA | Short_Literal 0x41
019f e5ff | | Load 0x2,-0x1
01a0 01db | | Execute Vector,Length
01a1 0272 | r | Execute Discrete,Minus
01a2 00d8 | | Load_Top At_Offset_0
01a3 00e2 | | Load_Encached Integer_Cache
01a4 0260 | ` | Execute Discrete,In_Type
01a5 7001 |p | Jump_Nonzero 0x1a7
01a6 0801 | | Execute_Immediate Raise,0x1
01a7 4840 |H@ | Short_Literal 0x40
01a8 00db | | Load_Top At_Offset_3
01a9 01ce | | Execute Vector,Slice_Write
01aa 00d8 | | Load_Top At_Offset_0
01ab e24c | L | Load 0x1,0x4c
01ac 1811 | | Execute Package,Field_Execute,Field_Number 0x11
01ad 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01ae 0000 0000 | | .XXX[0x2]
01b0 ; --------------------------------------------------------------------------------------
01b0 ; SUBPROGRAM
01b0 ; --------------------------------------------------------------------------------------
01b0 01b3 | | .CONST 0x01b3 ; Address of begin
01b1 0004 | | .CONST 0x0004 ; Address of exception handler
01b2 0001 | | .CONST 0x0001 ; Number of locals
01b3 BODY_01b0:
01b3 INIT_01b0:
01b3 00da | | Load_Top At_Offset_2
01b4 00e0 | | Load_Encached Standard_Cache
01b5 1818 | | Execute Package,Field_Execute,Field_Number 0x18
01b6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01b7 0000 | | .XXX[0x1]
01b8 ; --------------------------------------------------------------------------------------
01b8 ; SUBPROGRAM
01b8 ; --------------------------------------------------------------------------------------
01b8 01bb | | .CONST 0x01bb ; Address of begin
01b9 0004 | | .CONST 0x0004 ; Address of exception handler
01ba 0001 | | .CONST 0x0001 ; Number of locals
01bb BODY_01b8:
01bb INIT_01b8:
01bb 00da | | Load_Top At_Offset_2
01bc 00e5 | | Load_Encached Long_Integer_Cache
01bd 00e0 | | Load_Encached Standard_Cache
01be 1819 | | Execute Package,Field_Execute,Field_Number 0x19
01bf 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01c0 ; --------------------------------------------------------------------------------------
01c0 ; SUBPROGRAM
01c0 ; --------------------------------------------------------------------------------------
01c0 01c3 | | .CONST 0x01c3 ; Address of begin
01c1 0004 | | .CONST 0x0004 ; Address of exception handler
01c2 0001 | | .CONST 0x0001 ; Number of locals
01c3 BODY_01c0:
01c3 INIT_01c0:
01c3 00da | | Load_Top At_Offset_2
01c4 0235 | 5 | Execute Float,Round_To_Discrete
01c5 e001 | | Load 0x0,0x1
01c6 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01c7 025e | ^ | Execute Discrete,Convert
01c8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01c9 0000 0000 | | .BLANK 0000[0x7]
01d0 ; --------------------------------------------------------------------------------------
01d0 ; SUBPROGRAM
01d0 ; --------------------------------------------------------------------------------------
01d0 01d3 | | .CONST 0x01d3 ; Address of begin
01d1 0004 | | .CONST 0x0004 ; Address of exception handler
01d2 0001 | | .CONST 0x0001 ; Number of locals
01d3 BODY_01d0:
01d3 INIT_01d0:
01d3 00da | | Load_Top At_Offset_2
01d4 0237 | 7 | Execute Float,Convert_From_Discrete
01d5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01d6 0000 0000 | | .XXX[0x2]
01d8 ; --------------------------------------------------------------------------------------
01d8 ; SUBPROGRAM
01d8 ; --------------------------------------------------------------------------------------
01d8 01db | | .CONST 0x01db ; Address of begin
01d9 0004 | | .CONST 0x0004 ; Address of exception handler
01da 0001 | | .CONST 0x0001 ; Number of locals
01db BODY_01d8:
01db INIT_01d8:
01db 00da | | Load_Top At_Offset_2
01dc 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01dd 0000 0000 | | .XXX[0x3]
01df 0000 | |
01e0 ; --------------------------------------------------------------------------------------
01e0 ; SUBPROGRAM
01e0 ; --------------------------------------------------------------------------------------
01e0 01e3 | | .CONST 0x01e3 ; Address of begin
01e1 0004 | | .CONST 0x0004 ; Address of exception handler
01e2 0001 | | .CONST 0x0001 ; Number of locals
01e3 BODY_01e0:
01e3 INIT_01e0:
01e3 00da | | Load_Top At_Offset_2
01e4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01e5 0000 0000 | | .XXX[0x3]
01e7 0000 | |
01e8 ; --------------------------------------------------------------------------------------
01e8 ; SUBPROGRAM
01e8 ; --------------------------------------------------------------------------------------
01e8 01eb | | .CONST 0x01eb ; Address of begin
01e9 0004 | | .CONST 0x0004 ; Address of exception handler
01ea 0001 | | .CONST 0x0001 ; Number of locals
01eb BODY_01e8:
01eb INIT_01e8:
01eb e5fc | | Load 0x2,-0x4
01ec e5fd | | Load 0x2,-0x3
01ed e5fe | | Load 0x2,-0x2
01ee e5ff | | Load 0x2,-0x1
01ef 822e | . | Call 0x1,0x2e
01f0 8232 | 2 | Call 0x1,0x32
01f1 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
01f2 0000 0000 | | .BLANK 0000[0x6]
01f8 ; --------------------------------------------------------------------------------------
01f8 ; SUBPROGRAM
01f8 ; --------------------------------------------------------------------------------------
01f8 01fb | | .CONST 0x01fb ; Address of begin
01f9 0004 | | .CONST 0x0004 ; Address of exception handler
01fa 0001 | | .CONST 0x0001 ; Number of locals
01fb BODY_01f8:
01fb INIT_01f8:
01fb 00da | | Load_Top At_Offset_2
01fc 8233 | 3 | Call 0x1,0x33
01fd 822d | - | Call 0x1,0x2d
01fe 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01ff 0000 | | .XXX[0x1]
0200 ; --------------------------------------------------------------------------------------
0200 ; SUBPROGRAM
0200 ; --------------------------------------------------------------------------------------
0200 0203 | | .CONST 0x0203 ; Address of begin
0201 0004 | | .CONST 0x0004 ; Address of exception handler
0202 0001 | | .CONST 0x0001 ; Number of locals
0203 BODY_0200:
0203 INIT_0200:
0203 00da | | Load_Top At_Offset_2
0204 e009 | | Load 0x0,0x9
0205 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0206 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0207 e249 | I | Load 0x1,0x49
0208 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0209 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
020a 0000 0000 | | .BLANK 0000[0x6]
0210 ; --------------------------------------------------------------------------------------
0210 ; SUBPROGRAM
0210 ; --------------------------------------------------------------------------------------
0210 0213 | | .CONST 0x0213 ; Address of begin
0211 0004 | | .CONST 0x0004 ; Address of exception handler
0212 0001 | | .CONST 0x0001 ; Number of locals
0213 BODY_0210:
0213 INIT_0210:
0213 00da | | Load_Top At_Offset_2
0214 e009 | | Load 0x0,0x9
0215 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0216 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0217 0a35 | 5 | Execute_Immediate Plus,0x35
0218 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0219 0000 0000 | | .BLANK 0000[0x7]
0220 ; --------------------------------------------------------------------------------------
0220 ; SUBPROGRAM
0220 ; --------------------------------------------------------------------------------------
0220 0228 | ( | .CONST 0x0228 ; Address of begin
0221 0004 | | .CONST 0x0004 ; Address of exception handler
0222 0002 | | .CONST 0x0002 ; Number of locals
0223 INIT_0220:
0223 e243 | C | Load 0x1,0x43
0224 0337 | 7 | Declare_Variable Array
0225 e246 | F | Load 0x1,0x46
0226 00d9 | | Load_Top At_Offset_1
0227 01d4 | | Execute Vector,Structure_Write
0228 BODY_0220:
0228 00db | | Load_Top At_Offset_3
0229 01db | | Execute Vector,Length
022a 0c35 | 5 | Execute_Immediate Greater_Equal,0x35
022b 680f |h | Jump_Zero 0x23b
022c 00db | | Load_Top At_Offset_3
022d 01dd | | Execute Vector,First
022e e5ff | | Load 0x2,-0x1
022f 01dd | | Execute Vector,First
0230 0a34 | 4 | Execute_Immediate Plus,0x34
0231 00d8 | | Load_Top At_Offset_0
0232 00e2 | | Load_Encached Integer_Cache
0233 0260 | ` | Execute Discrete,In_Type
0234 7001 |p | Jump_Nonzero 0x236
0235 0801 | | Execute_Immediate Raise,0x1
0236 e5ff | | Load 0x2,-0x1
0237 01cf | | Execute Vector,Slice_Read
0238 00d9 | | Load_Top At_Offset_1
0239 01d4 | | Execute Vector,Structure_Write
023a 780b |x | Jump 0x246
023b 00db | | Load_Top At_Offset_3
023c 4801 |H | Short_Literal 0x1
023d e5ff | | Load 0x2,-0x1
023e 01db | | Execute Vector,Length
023f 00d8 | | Load_Top At_Offset_0
0240 00e2 | | Load_Encached Integer_Cache
0241 0260 | ` | Execute Discrete,In_Type
0242 7001 |p | Jump_Nonzero 0x244
0243 0801 | | Execute_Immediate Raise,0x1
0244 00db | | Load_Top At_Offset_3
0245 01ce | | Execute Vector,Slice_Write
0246 e009 | | Load 0x0,0x9
0247 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0248 0322 | " | Declare_Variable Record
0249 4800 |H | Short_Literal 0x0
024a 00d9 | | Load_Top At_Offset_1
024b 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
024c e5fe | | Load 0x2,-0x2
024d 0acb | | Execute_Immediate Plus,-0x35
024e 00d9 | | Load_Top At_Offset_1
024f 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0250 00d9 | | Load_Top At_Offset_1
0251 e24a | J | Load 0x1,0x4a
0252 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0253 00d9 | | Load_Top At_Offset_1
0254 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0255 e009 | | Load 0x0,0x9
0256 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0257 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0258 ; --------------------------------------------------------------------------------------
0258 ; SUBPROGRAM
0258 ; --------------------------------------------------------------------------------------
0258 025e | ^ | .CONST 0x025e ; Address of begin
0259 0004 | | .CONST 0x0004 ; Address of exception handler
025a 0002 | | .CONST 0x0002 ; Number of locals
025b INIT_0258:
025b e001 | | Load 0x0,0x1
025c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
025d 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
025e BODY_0258:
025e 00cf | | Action Mark_Auxiliary
025f e5ff | | Load 0x2,-0x1
0260 01d9 | | Execute Vector,Reverse_Bounds
0261 0263 | c | Execute Discrete,Above_Bound
0262 700a |p | Jump_Nonzero 0x26d
0263 00db | | Load_Top At_Offset_3
0264 091f | | Execute_Immediate Binary_Scale,0x1f
0265 00d9 | | Load_Top At_Offset_1
0266 e5ff | | Load 0x2,-0x1
0267 01d7 | | Execute Vector,Field_Read
0268 0274 | t | Execute Discrete,Absolute_Value
0269 0272 | r | Execute Discrete,Minus
026a a402 | | Store_Unchecked 0x2,0x2
026b 00c8 | | Action Pop_Auxiliary_Range
026c 3ff6 |? | Loop_Increasing 0x263
026d 00ce | | Action Pop_Auxiliary
026e 4801 |H | Short_Literal 0x1
026f e5ff | | Load 0x2,-0x1
0270 01d7 | | Execute Vector,Field_Read
0271 0d00 | | Execute_Immediate Less,0x0
0272 6802 |h | Jump_Zero 0x275
0273 00d8 | | Load_Top At_Offset_0
0274 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0275 00d8 | | Load_Top At_Offset_0
0276 0275 | u | Execute Discrete,Unary_Minus
0277 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0278 ; --------------------------------------------------------------------------------------
0278 ; SUBPROGRAM
0278 ; --------------------------------------------------------------------------------------
0278 0288 | | .CONST 0x0288 ; Address of begin
0279 0004 | | .CONST 0x0004 ; Address of exception handler
027a 0004 | | .CONST 0x0004 ; Number of locals
027b INIT_0278:
027b 4801 |H | Short_Literal 0x1
027c 4803 |H | Short_Literal 0x3
027d e001 | | Load 0x0,0x1
027e 1b20 | | Execute Package,Field_Read,Field_Number 0x20
027f 035b | [ | Declare_Type Array,Constrained
0280 0337 | 7 | Declare_Variable Array
0281 00db | | Load_Top At_Offset_3
0282 00e5 | | Load_Encached Long_Integer_Cache
0283 03f1 | | Declare_Variable Discrete,With_Value
0284 00d8 | | Load_Top At_Offset_0
0285 0d00 | | Execute_Immediate Less,0x0
0286 00e1 | | Load_Encached Boolean_Cache
0287 03f1 | | Declare_Variable Discrete,With_Value
0288 BODY_0278:
0288 00d9 | | Load_Top At_Offset_1
0289 6032 |`2 | Indirect_Literal Discrete,0x2bc,{0xffffffff, 0x80000000}
028a 027d | } | Execute Discrete,Greater
028b 6812 |h | Jump_Zero 0x29e
028c 00d9 | | Load_Top At_Offset_1
028d 602a |`* | Indirect_Literal Discrete,0x2b8,{0x00000000, 0x80000000}
028e 027c | | | Execute Discrete,Less
028f 680e |h | Jump_Zero 0x29e
0290 4801 |H | Short_Literal 0x1
0291 4801 |H | Short_Literal 0x1
0292 e001 | | Load 0x0,0x1
0293 1b20 | | Execute Package,Field_Read,Field_Number 0x20
0294 035b | [ | Declare_Type Array,Constrained
0295 0337 | 7 | Declare_Variable Array
0296 00da | | Load_Top At_Offset_2
0297 4801 |H | Short_Literal 0x1
0298 00da | | Load_Top At_Offset_2
0299 01d6 | | Execute Vector,Field_Write
029a e001 | | Load 0x0,0x1
029b 1b20 | | Execute Package,Field_Read,Field_Number 0x20
029c 01c6 | | Execute Vector,Convert_To_Formal
029d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
029e 00cf | | Action Mark_Auxiliary
029f 00db | | Load_Top At_Offset_3
02a0 01da | | Execute Vector,Bounds
02a1 0007 | | Action Break_Optional
02a2 e403 | | Load 0x2,0x3
02a3 6014 |` | Indirect_Literal Discrete,0x2b8,{0x00000000, 0x80000000}
02a4 026f | o | Execute Discrete,Remainder
02a5 0274 | t | Execute Discrete,Absolute_Value
02a6 00d9 | | Load_Top At_Offset_1
02a7 e402 | | Load 0x2,0x2
02a8 01d6 | | Execute Vector,Field_Write
02a9 e403 | | Load 0x2,0x3
02aa 09e1 | | Execute_Immediate Binary_Scale,-0x1f
02ab a403 | | Store_Unchecked 0x2,0x3
02ac 00c8 | | Action Pop_Auxiliary_Range
02ad 37f4 |7 | Loop_Decreasing 0x2a2
02ae 00ce | | Action Pop_Auxiliary
02af 00d8 | | Load_Top At_Offset_0
02b0 00db | | Load_Top At_Offset_3
02b1 8010 | | Call 0x0,0x10
02b2 e001 | | Load 0x0,0x1
02b3 1b20 | | Execute Package,Field_Read,Field_Number 0x20
02b4 01c6 | | Execute Vector,Convert_To_Formal
02b5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02b6 0000 0000 | | .XXX[0x2]
02b8 0000 0000 | | .LITERAL {0x00000000, 0x80000000}
02bc ffff ffff | | .LITERAL {0xffffffff, 0x80000000}
02c0 ; --------------------------------------------------------------------------------------
02c0 ; SUBPROGRAM
02c0 ; --------------------------------------------------------------------------------------
02c0 02c3 | | .CONST 0x02c3 ; Address of begin
02c1 0004 | | .CONST 0x0004 ; Address of exception handler
02c2 0001 | | .CONST 0x0001 ; Number of locals
02c3 BODY_02c0:
02c3 INIT_02c0:
02c3 4801 |H | Short_Literal 0x1
02c4 00db | | Load_Top At_Offset_3
02c5 01d7 | | Execute Vector,Field_Read
02c6 7003 |p | Jump_Nonzero 0x2ca
02c7 0092 0cd1 | | Action Push_String_Extended,0xcd1 ; " 0"
02c9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02ca 4801 |H | Short_Literal 0x1
02cb 00db | | Load_Top At_Offset_3
02cc 01d7 | | Execute Vector,Field_Read
02cd 0d00 | | Execute_Immediate Less,0x0
02ce 6805 |h | Jump_Zero 0x2d4
02cf 482d |H- | Short_Literal 0x2d
02d0 00db | | Load_Top At_Offset_3
02d1 824e | N | Call 0x1,0x4e
02d2 01ca | | Execute Vector,Prepend
02d3 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02d4 4820 |H | Short_Literal 0x20
02d5 00db | | Load_Top At_Offset_3
02d6 824e | N | Call 0x1,0x4e
02d7 01ca | | Execute Vector,Prepend
02d8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02d9 0000 0000 | | .BLANK 0000[0x7]
02e0 ; --------------------------------------------------------------------------------------
02e0 ; SUBPROGRAM
02e0 ; --------------------------------------------------------------------------------------
02e0 030a | | .CONST 0x030a ; Address of begin
02e1 0004 | | .CONST 0x0004 ; Address of exception handler
02e2 0008 | | .CONST 0x0008 ; Number of locals
02e3 INIT_02e0:
02e3 00da | | Load_Top At_Offset_2
02e4 01db | | Execute Vector,Length
02e5 4809 |H | Short_Literal 0x9
02e6 0270 | p | Execute Discrete,Divide
02e7 0a01 | | Execute_Immediate Plus,0x1
02e8 00e2 | | Load_Encached Integer_Cache
02e9 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
02ea 4801 |H | Short_Literal 0x1
02eb 00d9 | | Load_Top At_Offset_1
02ec e001 | | Load 0x0,0x1
02ed 1b20 | | Execute Package,Field_Read,Field_Number 0x20
02ee 035b | [ | Declare_Type Array,Constrained
02ef 0337 | 7 | Declare_Variable Array
02f0 4801 |H | Short_Literal 0x1
02f1 00da | | Load_Top At_Offset_2
02f2 e001 | | Load 0x0,0x1
02f3 1b20 | | Execute Package,Field_Read,Field_Number 0x20
02f4 035b | [ | Declare_Type Array,Constrained
02f5 0337 | 7 | Declare_Variable Array
02f6 00d8 | | Load_Top At_Offset_0
02f7 01dc | | Execute Vector,Last
02f8 4801 |H | Short_Literal 0x1
02f9 0263 | c | Execute Discrete,Above_Bound
02fa 7005 |p | Jump_Nonzero 0x300
02fb 4800 |H | Short_Literal 0x0
02fc 00d9 | | Load_Top At_Offset_1
02fd e404 | | Load 0x2,0x4
02fe 01d6 | | Execute Vector,Field_Write
02ff 3ffb |? | Loop_Increasing 0x2fb
0300 00d9 | | Load_Top At_Offset_1
0301 01d4 | | Execute Vector,Structure_Write
0302 00e2 | | Load_Encached Integer_Cache
0303 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0304 00e1 | | Load_Encached Boolean_Cache
0305 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0306 00e1 | | Load_Encached Boolean_Cache
0307 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0308 00e8 | | Load_Encached Character_Cache
0309 00e2 | | Load_Encached Integer_Cache
030a BODY_02e0:
030a e5ff | | Load 0x2,-0x1
030b 01db | | Execute Vector,Length
030c 7001 |p | Jump_Nonzero 0x30e
030d 08e0 | | Execute_Immediate Raise,0xe0
030e e5ff | | Load 0x2,-0x1
030f 01dd | | Execute Vector,First
0310 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
0311 00d8 | | Load_Top At_Offset_0
0312 e5ff | | Load 0x2,-0x1
0313 01d7 | | Execute Vector,Field_Read
0314 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
0315 00d9 | | Load_Top At_Offset_1
0316 0f2d | - | Execute_Immediate Equal,0x2d
0317 7006 |p | Jump_Nonzero 0x31e
0318 00d9 | | Load_Top At_Offset_1
0319 0f2b | + | Execute_Immediate Equal,0x2b
031a 7003 |p | Jump_Nonzero 0x31e
031b 00d9 | | Load_Top At_Offset_1
031c 0f20 | | Execute_Immediate Equal,0x20
031d 680e |h | Jump_Zero 0x32c
031e 00d8 | | Load_Top At_Offset_0
031f 0a01 | | Execute_Immediate Plus,0x1
0320 0059 | Y | Store_Top Discrete,At_Offset_1
0321 00d8 | | Load_Top At_Offset_0
0322 e5ff | | Load 0x2,-0x1
0323 01d7 | | Execute Vector,Field_Read
0324 4830 |H0 | Short_Literal 0x30
0325 4839 |H9 | Short_Literal 0x39
0326 0261 | a | Execute Discrete,Not_In_Range
0327 6801 |h | Jump_Zero 0x329
0328 08e0 | | Execute_Immediate Raise,0xe0
0329 00d9 | | Load_Top At_Offset_1
032a 0f2d | - | Execute_Immediate Equal,0x2d
032b a405 | | Store_Unchecked 0x2,0x5
032c 00cf | | Action Mark_Auxiliary
032d 7869 |xi | Jump 0x397
032e 00d9 | | Load_Top At_Offset_1
032f e5ff | | Load 0x2,-0x1
0330 01d7 | | Execute Vector,Field_Read
0331 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3
0332 00da | | Load_Top At_Offset_2
0333 00d8 | | Load_Top At_Offset_0
0334 0d46 | F | Execute_Immediate Less,0x46
0335 700a |p | Jump_Nonzero 0x340
0336 00d8 | | Load_Top At_Offset_0
0337 0c5f | _ | Execute_Immediate Greater_Equal,0x5f
0338 7002 |p | Jump_Nonzero 0x33b
0339 00d1 | | Pop_Control Pop_Count_1
033a 08e0 | | Execute_Immediate Raise,0xe0
033b 0b5f | _ | Execute_Immediate Case_Compare,0x5f
033c 7025 |p% | Jump_Nonzero 0x362
033d 0f65 | e | Execute_Immediate Equal,0x65
033e 7035 |p5 | Jump_Nonzero 0x374
033f 7ffa | | Jump 0x33a
0340 00d8 | | Load_Top At_Offset_0
0341 4830 |H0 | Short_Literal 0x30
0342 4839 |H9 | Short_Literal 0x39
0343 0262 | b | Execute Discrete,In_Range
0344 7003 |p | Jump_Nonzero 0x348
0345 0f45 | E | Execute_Immediate Equal,0x45
0346 702d |p- | Jump_Nonzero 0x374
0347 7ff2 | | Jump 0x33a
0348 00d1 | | Pop_Control Pop_Count_1
0349 00db | | Load_Top At_Offset_3
034a 6808 |h | Jump_Zero 0x353
034b e404 | | Load 0x2,0x4
034c 480a |H | Short_Literal 0xa
034d 0271 | q | Execute Discrete,Times
034e 00db | | Load_Top At_Offset_3
034f 0ad0 | | Execute_Immediate Plus,-0x30
0350 0273 | s | Execute Discrete,Plus
0351 c404 | | Store 0x2,0x4
0352 7840 |x@ | Jump 0x393
0353 e403 | | Load 0x2,0x3
0354 00db | | Load_Top At_Offset_3
0355 0ad0 | | Execute_Immediate Plus,-0x30
0356 8011 | | Call 0x0,0x11
0357 e012 | | Load 0x0,0x12
0358 4800 |H | Short_Literal 0x0
0359 e403 | | Load 0x2,0x3
035a 824d | M | Call 0x1,0x4d
035b e001 | | Load 0x0,0x1
035c 182a | * | Execute Package,Field_Execute,Field_Number 0x2a
035d e001 | | Load 0x0,0x1
035e 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
035f 8013 | | Call 0x0,0x13
0360 00d1 | | Pop_Control Pop_Count_1
0361 7831 |x1 | Jump 0x393
0362 00d1 | | Pop_Control Pop_Count_1
0363 00d9 | | Load_Top At_Offset_1
0364 0aff | | Execute_Immediate Plus,-0x1
0365 e5ff | | Load 0x2,-0x1
0366 01d7 | | Execute Vector,Field_Read
0367 4830 |H0 | Short_Literal 0x30
0368 4839 |H9 | Short_Literal 0x39
0369 0261 | a | Execute Discrete,Not_In_Range
036a 7008 |p | Jump_Nonzero 0x373
036b 00d9 | | Load_Top At_Offset_1
036c 0a01 | | Execute_Immediate Plus,0x1
036d e5ff | | Load 0x2,-0x1
036e 01d7 | | Execute Vector,Field_Read
036f 4830 |H0 | Short_Literal 0x30
0370 4839 |H9 | Short_Literal 0x39
0371 0261 | a | Execute Discrete,Not_In_Range
0372 6820 |h | Jump_Zero 0x393
0373 08e0 | | Execute_Immediate Raise,0xe0
0374 00db | | Load_Top At_Offset_3
0375 7008 |p | Jump_Nonzero 0x37e
0376 00d9 | | Load_Top At_Offset_1
0377 0aff | | Execute_Immediate Plus,-0x1
0378 e5ff | | Load 0x2,-0x1
0379 01d7 | | Execute Vector,Field_Read
037a 4830 |H0 | Short_Literal 0x30
037b 4839 |H9 | Short_Literal 0x39
037c 0261 | a | Execute Discrete,Not_In_Range
037d 6801 |h | Jump_Zero 0x37f
037e 08e0 | | Execute_Immediate Raise,0xe0
037f 4801 |H | Short_Literal 0x1
0380 a406 | | Store_Unchecked 0x2,0x6
0381 00d9 | | Load_Top At_Offset_1
0382 0a01 | | Execute_Immediate Plus,0x1
0383 e5ff | | Load 0x2,-0x1
0384 01d7 | | Execute Vector,Field_Read
0385 0f2b | + | Execute_Immediate Equal,0x2b
0386 6803 |h | Jump_Zero 0x38a
0387 00d9 | | Load_Top At_Offset_1
0388 0a01 | | Execute_Immediate Plus,0x1
0389 005a | Z | Store_Top Discrete,At_Offset_2
038a 00d9 | | Load_Top At_Offset_1
038b 0a01 | | Execute_Immediate Plus,0x1
038c e5ff | | Load 0x2,-0x1
038d 01d7 | | Execute Vector,Field_Read
038e 4830 |H0 | Short_Literal 0x30
038f 4839 |H9 | Short_Literal 0x39
0390 0261 | a | Execute Discrete,Not_In_Range
0391 6801 |h | Jump_Zero 0x393
0392 08e0 | | Execute_Immediate Raise,0xe0
0393 00d9 | | Load_Top At_Offset_1
0394 0a01 | | Execute_Immediate Plus,0x1
0395 005a | Z | Store_Top Discrete,At_Offset_2
0396 00c9 | | Action Pop_Auxiliary_Loop
0397 00d9 | | Load_Top At_Offset_1
0398 e5ff | | Load 0x2,-0x1
0399 01dc | | Execute Vector,Last
039a 027a | z | Execute Discrete,Less_Equal
039b 7792 |w | Jump_Nonzero 0x32e
039c 00ce | | Action Pop_Auxiliary
039d 00db | | Load_Top At_Offset_3
039e 680f |h | Jump_Zero 0x3ae
039f e404 | | Load 0x2,0x4
03a0 e012 | | Load 0x0,0x12
03a1 e001 | | Load 0x0,0x1
03a2 182e | . | Execute Package,Field_Execute,Field_Number 0x2e
03a3 4800 |H | Short_Literal 0x0
03a4 e403 | | Load 0x2,0x3
03a5 824d | M | Call 0x1,0x4d
03a6 e001 | | Load 0x0,0x1
03a7 182a | * | Execute Package,Field_Execute,Field_Number 0x2a
03a8 e001 | | Load 0x0,0x1
03a9 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
03aa e001 | | Load 0x0,0x1
03ab 1b20 | | Execute Package,Field_Read,Field_Number 0x20
03ac 01c6 | | Execute Vector,Convert_To_Formal
03ad 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
03ae e404 | | Load 0x2,0x4
03af e012 | | Load 0x0,0x12
03b0 e001 | | Load 0x0,0x1
03b1 182e | . | Execute Package,Field_Execute,Field_Number 0x2e
03b2 4800 |H | Short_Literal 0x0
03b3 e403 | | Load 0x2,0x3
03b4 824d | M | Call 0x1,0x4d
03b5 e001 | | Load 0x0,0x1
03b6 182a | * | Execute Package,Field_Execute,Field_Number 0x2a
03b7 e001 | | Load 0x0,0x1
03b8 1b20 | | Execute Package,Field_Read,Field_Number 0x20
03b9 01c6 | | Execute Vector,Convert_To_Formal
03ba 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
03bb 0000 0000 | | .BLANK 0000[0x5]
03c0 ; --------------------------------------------------------------------------------------
03c0 ; SUBPROGRAM
03c0 ; --------------------------------------------------------------------------------------
03c0 03d1 | | .CONST 0x03d1 ; Address of begin
03c1 0004 | | .CONST 0x0004 ; Address of exception handler
03c2 0005 | | .CONST 0x0005 ; Number of locals
03c3 INIT_03c0:
03c3 4801 |H | Short_Literal 0x1
03c4 4804 |H | Short_Literal 0x4
03c5 e001 | | Load 0x0,0x1
03c6 1b20 | | Execute Package,Field_Read,Field_Number 0x20
03c7 035b | [ | Declare_Type Array,Constrained
03c8 0337 | 7 | Declare_Variable Array
03c9 4801 |H | Short_Literal 0x1
03ca 4802 |H | Short_Literal 0x2
03cb e001 | | Load 0x0,0x1
03cc 1b20 | | Execute Package,Field_Read,Field_Number 0x20
03cd 035b | [ | Declare_Type Array,Constrained
03ce 0337 | 7 | Declare_Variable Array
03cf 00e2 | | Load_Encached Integer_Cache
03d0 03e9 | | Declare_Variable Discrete,Duplicate
03d1 BODY_03c0:
03d1 00e2 | | Load_Encached Integer_Cache
03d2 e402 | | Load 0x2,0x2
03d3 e5ff | | Load 0x2,-0x1
03d4 824f | O | Call 0x1,0x4f
03d5 00d1 | | Pop_Control Pop_Count_1
03d6 005a | Z | Store_Top Discrete,At_Offset_2
03d7 00e2 | | Load_Encached Integer_Cache
03d8 00db | | Load_Top At_Offset_3
03d9 e5fe | | Load 0x2,-0x2
03da 824f | O | Call 0x1,0x4f
03db 00d1 | | Pop_Control Pop_Count_1
03dc 0059 | Y | Store_Top Discrete,At_Offset_1
03dd 00d9 | | Load_Top At_Offset_1
03de 00d9 | | Load_Top At_Offset_1
03df 0272 | r | Execute Discrete,Minus
03e0 00d8 | | Load_Top At_Offset_0
03e1 00e2 | | Load_Encached Integer_Cache
03e2 0260 | ` | Execute Discrete,In_Type
03e3 7001 |p | Jump_Nonzero 0x3e5
03e4 0801 | | Execute_Immediate Raise,0x1
03e5 00db | | Load_Top At_Offset_3
03e6 e402 | | Load 0x2,0x2
03e7 e001 | | Load 0x0,0x1
03e8 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
03e9 8250 | P | Call 0x1,0x50
03ea e001 | | Load 0x0,0x1
03eb 1b0e | | Execute Package,Field_Read,Field_Number 0xe
03ec 0238 | 8 | Execute Float,Convert
03ed 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
03ee 0000 0000 | | .XXX[0x2]
03f0 ; --------------------------------------------------------------------------------------
03f0 ; SUBPROGRAM
03f0 ; --------------------------------------------------------------------------------------
03f0 0403 | | .CONST 0x0403 ; Address of begin
03f1 0004 | | .CONST 0x0004 ; Address of exception handler
03f2 0003 | | .CONST 0x0003 ; Number of locals
03f3 INIT_03f0:
03f3 4801 |H | Short_Literal 0x1
03f4 00db | | Load_Top At_Offset_3
03f5 01db | | Execute Vector,Length
03f6 481f |H | Short_Literal 0x1f
03f7 0271 | q | Execute Discrete,Times
03f8 00d8 | | Load_Top At_Offset_0
03f9 00e2 | | Load_Encached Integer_Cache
03fa 0260 | ` | Execute Discrete,In_Type
03fb 7001 |p | Jump_Nonzero 0x3fd
03fc 0801 | | Execute_Immediate Raise,0x1
03fd e001 | | Load 0x0,0x1
03fe 1b5e | ^ | Execute Package,Field_Read,Field_Number 0x5e
03ff 035b | [ | Declare_Type Array,Constrained
0400 0337 | 7 | Declare_Variable Array
0401 00e2 | | Load_Encached Integer_Cache
0402 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0403 BODY_03f0:
0403 00cf | | Action Mark_Auxiliary
0404 e5ff | | Load 0x2,-0x1
0405 01d9 | | Execute Vector,Reverse_Bounds
0406 0263 | c | Execute Discrete,Above_Bound
0407 7025 |p% | Jump_Nonzero 0x42d
0408 4802 |H | Short_Literal 0x2
0409 4820 |H | Short_Literal 0x20
040a 00da | | Load_Top At_Offset_2
040b e5ff | | Load 0x2,-0x1
040c 01d7 | | Execute Vector,Field_Read
040d 0274 | t | Execute Discrete,Absolute_Value
040e e001 | | Load 0x0,0x1
040f 1b1f | | Execute Package,Field_Read,Field_Number 0x1f
0410 00d9 | | Load_Top At_Offset_1
0411 00d0 | | Action Swap_Control
0412 0260 | ` | Execute Discrete,In_Type
0413 7001 |p | Jump_Nonzero 0x415
0414 0801 | | Execute_Immediate Raise,0x1
0415 e247 | G | Load 0x1,0x47
0416 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0417 01cf | | Execute Vector,Slice_Read
0418 e403 | | Load 0x2,0x3
0419 0a01 | | Execute_Immediate Plus,0x1
041a 00d8 | | Load_Top At_Offset_0
041b 00e2 | | Load_Encached Integer_Cache
041c 0260 | ` | Execute Discrete,In_Type
041d 7001 |p | Jump_Nonzero 0x41f
041e 0801 | | Execute_Immediate Raise,0x1
041f e403 | | Load 0x2,0x3
0420 0a1f | | Execute_Immediate Plus,0x1f
0421 00d8 | | Load_Top At_Offset_0
0422 00e2 | | Load_Encached Integer_Cache
0423 0260 | ` | Execute Discrete,In_Type
0424 7001 |p | Jump_Nonzero 0x426
0425 0801 | | Execute_Immediate Raise,0x1
0426 e402 | | Load 0x2,0x2
0427 01ce | | Execute Vector,Slice_Write
0428 00db | | Load_Top At_Offset_3
0429 0a1f | | Execute_Immediate Plus,0x1f
042a c403 | | Store 0x2,0x3
042b 00c8 | | Action Pop_Auxiliary_Range
042c 3fdb |? | Loop_Increasing 0x408
042d 00c9 | | Action Pop_Auxiliary_Loop
042e 00da | | Load_Top At_Offset_2
042f 01d9 | | Execute Vector,Reverse_Bounds
0430 0263 | c | Execute Discrete,Above_Bound
0431 7025 |p% | Jump_Nonzero 0x457
0432 00d8 | | Load_Top At_Offset_0
0433 e402 | | Load 0x2,0x2
0434 01d7 | | Execute Vector,Field_Read
0435 681f |h | Jump_Zero 0x455
0436 00d8 | | Load_Top At_Offset_0
0437 0c02 | | Execute_Immediate Greater_Equal,0x2
0438 6817 |h | Jump_Zero 0x450
0439 e402 | | Load 0x2,0x2
043a 01dc | | Execute Vector,Last
043b 00d9 | | Load_Top At_Offset_1
043c 0272 | r | Execute Discrete,Minus
043d 0a01 | | Execute_Immediate Plus,0x1
043e c403 | | Store 0x2,0x3
043f 00d8 | | Load_Top At_Offset_0
0440 e402 | | Load 0x2,0x2
0441 01dc | | Execute Vector,Last
0442 e402 | | Load 0x2,0x2
0443 01cf | | Execute Vector,Slice_Read
0444 4801 |H | Short_Literal 0x1
0445 e403 | | Load 0x2,0x3
0446 e402 | | Load 0x2,0x2
0447 01ce | | Execute Vector,Slice_Write
0448 4801 |H | Short_Literal 0x1
0449 e403 | | Load 0x2,0x3
044a e402 | | Load 0x2,0x2
044b 01cf | | Execute Vector,Slice_Read
044c e001 | | Load 0x0,0x1
044d 1b5e | ^ | Execute Package,Field_Read,Field_Number 0x5e
044e 01c6 | | Execute Vector,Convert_To_Formal
044f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0450 e402 | | Load 0x2,0x2
0451 e001 | | Load 0x0,0x1
0452 1b5e | ^ | Execute Package,Field_Read,Field_Number 0x5e
0453 01c6 | | Execute Vector,Convert_To_Formal
0454 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0455 00c8 | | Action Pop_Auxiliary_Range
0456 3fdb |? | Loop_Increasing 0x432
0457 00ce | | Action Pop_Auxiliary
0458 4801 |H | Short_Literal 0x1
0459 4801 |H | Short_Literal 0x1
045a e001 | | Load 0x0,0x1
045b 1b5e | ^ | Execute Package,Field_Read,Field_Number 0x5e
045c 035b | [ | Declare_Type Array,Constrained
045d 0337 | 7 | Declare_Variable Array
045e 4800 |H | Short_Literal 0x0
045f 4801 |H | Short_Literal 0x1
0460 00da | | Load_Top At_Offset_2
0461 01d6 | | Execute Vector,Field_Write
0462 e001 | | Load 0x0,0x1
0463 1b5e | ^ | Execute Package,Field_Read,Field_Number 0x5e
0464 01c6 | | Execute Vector,Convert_To_Formal
0465 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0466 0000 0000 | | .XXX[0x2]
0468 ; --------------------------------------------------------------------------------------
0468 ; SUBPROGRAM
0468 ; --------------------------------------------------------------------------------------
0468 0483 | | .CONST 0x0483 ; Address of begin
0469 0004 | | .CONST 0x0004 ; Address of exception handler
046a 0004 | | .CONST 0x0004 ; Number of locals
046b INIT_0468:
046b 4801 |H | Short_Literal 0x1
046c 00db | | Load_Top At_Offset_3
046d 01db | | Execute Vector,Length
046e 0a1e | | Execute_Immediate Plus,0x1e
046f 481f |H | Short_Literal 0x1f
0470 0270 | p | Execute Discrete,Divide
0471 00d8 | | Load_Top At_Offset_0
0472 00e2 | | Load_Encached Integer_Cache
0473 0260 | ` | Execute Discrete,In_Type
0474 7001 |p | Jump_Nonzero 0x476
0475 0801 | | Execute_Immediate Raise,0x1
0476 e001 | | Load 0x0,0x1
0477 1b20 | | Execute Package,Field_Read,Field_Number 0x20
0478 035b | [ | Declare_Type Array,Constrained
0479 0337 | 7 | Declare_Variable Array
047a e241 | A | Load 0x1,0x41
047b 0337 | 7 | Declare_Variable Array
047c e244 | D | Load 0x1,0x44
047d 00d9 | | Load_Top At_Offset_1
047e 01d4 | | Execute Vector,Structure_Write
047f e5ff | | Load 0x2,-0x1
0480 01dc | | Execute Vector,Last
0481 00e2 | | Load_Encached Integer_Cache
0482 03f1 | | Declare_Variable Discrete,With_Value
0483 BODY_0468:
0483 00cf | | Action Mark_Auxiliary
0484 4801 |H | Short_Literal 0x1
0485 e402 | | Load 0x2,0x2
0486 01dc | | Execute Vector,Last
0487 0264 | d | Execute Discrete,Below_Bound
0488 7041 |pA | Jump_Nonzero 0x4ca
0489 00db | | Load_Top At_Offset_3
048a 0ae1 | | Execute_Immediate Plus,-0x1f
048b c404 | | Store 0x2,0x4
048c 00db | | Load_Top At_Offset_3
048d 0a01 | | Execute_Immediate Plus,0x1
048e e5ff | | Load 0x2,-0x1
048f 01dd | | Execute Vector,First
0490 027c | | | Execute Discrete,Less
0491 681c |h | Jump_Zero 0x4ae
0492 e244 | D | Load 0x1,0x44
0493 e403 | | Load 0x2,0x3
0494 01d4 | | Execute Vector,Structure_Write
0495 e5ff | | Load 0x2,-0x1
0496 01dd | | Execute Vector,First
0497 e404 | | Load 0x2,0x4
0498 0a1f | | Execute_Immediate Plus,0x1f
0499 00d8 | | Load_Top At_Offset_0
049a 00e2 | | Load_Encached Integer_Cache
049b 0260 | ` | Execute Discrete,In_Type
049c 7001 |p | Jump_Nonzero 0x49e
049d 0801 | | Execute_Immediate Raise,0x1
049e e5ff | | Load 0x2,-0x1
049f 01cf | | Execute Vector,Slice_Read
04a0 e5ff | | Load 0x2,-0x1
04a1 01dd | | Execute Vector,First
04a2 e404 | | Load 0x2,0x4
04a3 0272 | r | Execute Discrete,Minus
04a4 0a01 | | Execute_Immediate Plus,0x1
04a5 00d8 | | Load_Top At_Offset_0
04a6 00e2 | | Load_Encached Integer_Cache
04a7 0260 | ` | Execute Discrete,In_Type
04a8 7001 |p | Jump_Nonzero 0x4aa
04a9 0801 | | Execute_Immediate Raise,0x1
04aa 4820 |H | Short_Literal 0x20
04ab e403 | | Load 0x2,0x3
04ac 01ce | | Execute Vector,Slice_Write
04ad 7814 |x | Jump 0x4c2
04ae 00db | | Load_Top At_Offset_3
04af 0a01 | | Execute_Immediate Plus,0x1
04b0 00d8 | | Load_Top At_Offset_0
04b1 00e2 | | Load_Encached Integer_Cache
04b2 0260 | ` | Execute Discrete,In_Type
04b3 7001 |p | Jump_Nonzero 0x4b5
04b4 0801 | | Execute_Immediate Raise,0x1
04b5 e404 | | Load 0x2,0x4
04b6 0a1f | | Execute_Immediate Plus,0x1f
04b7 00d8 | | Load_Top At_Offset_0
04b8 00e2 | | Load_Encached Integer_Cache
04b9 0260 | ` | Execute Discrete,In_Type
04ba 7001 |p | Jump_Nonzero 0x4bc
04bb 0801 | | Execute_Immediate Raise,0x1
04bc e5ff | | Load 0x2,-0x1
04bd 01cf | | Execute Vector,Slice_Read
04be 4802 |H | Short_Literal 0x2
04bf 4820 |H | Short_Literal 0x20
04c0 e403 | | Load 0x2,0x3
04c1 01ce | | Execute Vector,Slice_Write
04c2 e403 | | Load 0x2,0x3
04c3 e248 | H | Load 0x1,0x48
04c4 1811 | | Execute Package,Field_Execute,Field_Number 0x11
04c5 00d9 | | Load_Top At_Offset_1
04c6 e402 | | Load 0x2,0x2
04c7 01d6 | | Execute Vector,Field_Write
04c8 00c8 | | Action Pop_Auxiliary_Range
04c9 37bf |7 | Loop_Decreasing 0x489
04ca 00ce | | Action Pop_Auxiliary
04cb 00da | | Load_Top At_Offset_2
04cc e001 | | Load 0x0,0x1
04cd 1b20 | | Execute Package,Field_Read,Field_Number 0x20
04ce 01c6 | | Execute Vector,Convert_To_Formal
04cf 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
04d0 ; --------------------------------------------------------------------------------------
04d0 ; SUBPROGRAM
04d0 ; --------------------------------------------------------------------------------------
04d0 04fe | | .CONST 0x04fe ; Address of begin
04d1 0004 | | .CONST 0x0004 ; Address of exception handler
04d2 0009 | | .CONST 0x0009 ; Number of locals
04d3 INIT_04d0:
04d3 4801 |H | Short_Literal 0x1
04d4 00db | | Load_Top At_Offset_3
04d5 01db | | Execute Vector,Length
04d6 00d8 | | Load_Top At_Offset_0
04d7 00e2 | | Load_Encached Integer_Cache
04d8 0260 | ` | Execute Discrete,In_Type
04d9 7001 |p | Jump_Nonzero 0x4db
04da 0801 | | Execute_Immediate Raise,0x1
04db e001 | | Load 0x0,0x1
04dc 1b20 | | Execute Package,Field_Read,Field_Number 0x20
04dd 035b | [ | Declare_Type Array,Constrained
04de 00d8 | | Load_Top At_Offset_0
04df 0337 | 7 | Declare_Variable Array
04e0 e5ff | | Load 0x2,-0x1
04e1 00d9 | | Load_Top At_Offset_1
04e2 01d4 | | Execute Vector,Structure_Write
04e3 4801 |H | Short_Literal 0x1
04e4 e5ff | | Load 0x2,-0x1
04e5 01db | | Execute Vector,Length
04e6 e001 | | Load 0x0,0x1
04e7 1b1f | | Execute Package,Field_Read,Field_Number 0x1f
04e8 012c | , | Execute Any,Size
04e9 0271 | q | Execute Discrete,Times
04ea e014 | | Load 0x0,0x14
04eb 1b11 | | Execute Package,Field_Read,Field_Number 0x11
04ec 012c | , | Execute Any,Size
04ed 0270 | p | Execute Discrete,Divide
04ee 00d8 | | Load_Top At_Offset_0
04ef 00e2 | | Load_Encached Integer_Cache
04f0 0260 | ` | Execute Discrete,In_Type
04f1 7001 |p | Jump_Nonzero 0x4f3
04f2 0801 | | Execute_Immediate Raise,0x1
04f3 e014 | | Load 0x0,0x14
04f4 1b12 | | Execute Package,Field_Read,Field_Number 0x12
04f5 035b | [ | Declare_Type Array,Constrained
04f6 a015 | | Store_Unchecked 0x0,0x15
04f7 00c6 | | Action Check_Subprogram_Elaborated
04f8 00da | | Load_Top At_Offset_2
04f9 00d9 | | Load_Top At_Offset_1
04fa e016 | | Load 0x0,0x16
04fb e017 | | Load 0x0,0x17
04fc 4809 |H | Short_Literal 0x9
04fd 0007 | | Action Break_Optional
04fe BODY_04d0:
04fe e403 | | Load 0x2,0x3
04ff e405 | | Load 0x2,0x5
0500 e406 | | Load 0x2,0x6
0501 4807 |H | Short_Literal 0x7
0502 4802 |H | Short_Literal 0x2
0503 0099 | | Action Reference_Dynamic
0504 8015 | | Call 0x0,0x15
0505 e014 | | Load 0x0,0x14
0506 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0507 01c6 | | Execute Vector,Convert_To_Formal
0508 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0509 0000 0000 | | .BLANK 0000[0x7]
0510 ; --------------------------------------------------------------------------------------
0510 ; SUBPROGRAM
0510 ; --------------------------------------------------------------------------------------
0510 0539 | 9 | .CONST 0x0539 ; Address of begin
0511 0004 | | .CONST 0x0004 ; Address of exception handler
0512 0008 | | .CONST 0x0008 ; Number of locals
0513 INIT_0510:
0513 4801 |H | Short_Literal 0x1
0514 00db | | Load_Top At_Offset_3
0515 01db | | Execute Vector,Length
0516 e014 | | Load 0x0,0x14
0517 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0518 012c | , | Execute Any,Size
0519 0271 | q | Execute Discrete,Times
051a e001 | | Load 0x0,0x1
051b 1b1f | | Execute Package,Field_Read,Field_Number 0x1f
051c 012c | , | Execute Any,Size
051d 0270 | p | Execute Discrete,Divide
051e 00d8 | | Load_Top At_Offset_0
051f 00e2 | | Load_Encached Integer_Cache
0520 0260 | ` | Execute Discrete,In_Type
0521 7001 |p | Jump_Nonzero 0x523
0522 0801 | | Execute_Immediate Raise,0x1
0523 e001 | | Load 0x0,0x1
0524 1b20 | | Execute Package,Field_Read,Field_Number 0x20
0525 035b | [ | Declare_Type Array,Constrained
0526 4801 |H | Short_Literal 0x1
0527 e5ff | | Load 0x2,-0x1
0528 01db | | Execute Vector,Length
0529 00d8 | | Load_Top At_Offset_0
052a 00e2 | | Load_Encached Integer_Cache
052b 0260 | ` | Execute Discrete,In_Type
052c 7001 |p | Jump_Nonzero 0x52e
052d 0801 | | Execute_Immediate Raise,0x1
052e e014 | | Load 0x0,0x14
052f 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0530 035b | [ | Declare_Type Array,Constrained
0531 a015 | | Store_Unchecked 0x0,0x15
0532 00c6 | | Action Check_Subprogram_Elaborated
0533 00d8 | | Load_Top At_Offset_0
0534 00da | | Load_Top At_Offset_2
0535 e018 | | Load 0x0,0x18
0536 e019 | | Load 0x0,0x19
0537 4808 |H | Short_Literal 0x8
0538 0007 | | Action Break_Optional
0539 BODY_0510:
0539 e5ff | | Load 0x2,-0x1
053a e403 | | Load 0x2,0x3
053b 01c7 | | Execute Vector,Convert
053c e404 | | Load 0x2,0x4
053d e405 | | Load 0x2,0x5
053e 4806 |H | Short_Literal 0x6
053f 4802 |H | Short_Literal 0x2
0540 0099 | | Action Reference_Dynamic
0541 8015 | | Call 0x0,0x15
0542 e001 | | Load 0x0,0x1
0543 1b20 | | Execute Package,Field_Read,Field_Number 0x20
0544 01c6 | | Execute Vector,Convert_To_Formal
0545 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0546 0000 0000 | | .XXX[0x2]
0548 ; --------------------------------------------------------------------------------------
0548 ; SUBPROGRAM
0548 ; --------------------------------------------------------------------------------------
0548 054b | K | .CONST 0x054b ; Address of begin
0549 0004 | | .CONST 0x0004 ; Address of exception handler
054a 0001 | | .CONST 0x0001 ; Number of locals
054b BODY_0548:
054b INIT_0548:
054b 00da | | Load_Top At_Offset_2
054c 8229 | ) | Call 0x1,0x29
054d 821e | | Call 0x1,0x1e
054e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
054f 0000 | | .XXX[0x1]
0550 ; --------------------------------------------------------------------------------------
0550 ; SUBPROGRAM
0550 ; --------------------------------------------------------------------------------------
0550 0553 | S | .CONST 0x0553 ; Address of begin
0551 0004 | | .CONST 0x0004 ; Address of exception handler
0552 0001 | | .CONST 0x0001 ; Number of locals
0553 BODY_0550:
0553 INIT_0550:
0553 e01a | | Load 0x0,0x1a
0554 00db | | Load_Top At_Offset_3
0555 821f | | Call 0x1,0x1f
0556 822f | / | Call 0x1,0x2f
0557 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0558 ; --------------------------------------------------------------------------------------
0558 ; SUBPROGRAM
0558 ; --------------------------------------------------------------------------------------
0558 0561 | a | .CONST 0x0561 ; Address of begin
0559 0004 | | .CONST 0x0004 ; Address of exception handler
055a 0002 | | .CONST 0x0002 ; Number of locals
055b INIT_0558:
055b 00da | | Load_Top At_Offset_2
055c 2504 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x4
055d 00db | | Load_Top At_Offset_3
055e 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
055f e001 | | Load 0x0,0x1
0560 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0561 BODY_0558:
0561 00db | | Load_Top At_Offset_3
0562 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0563 e01b | | Load 0x0,0x1b
0564 01df | | Execute Vector,Equal
0565 6802 |h | Jump_Zero 0x568
0566 e01b | | Load 0x0,0x1b
0567 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0568 e01c | | Load 0x0,0x1c
0569 e5ff | | Load 0x2,-0x1
056a 00da | | Load_Top At_Offset_2
056b 822a | * | Call 0x1,0x2a
056c e001 | | Load 0x0,0x1
056d 1848 | H | Execute Package,Field_Execute,Field_Number 0x48
056e e001 | | Load 0x0,0x1
056f 1846 | F | Execute Package,Field_Execute,Field_Number 0x46
0570 e001 | | Load 0x0,0x1
0571 1843 | C | Execute Package,Field_Execute,Field_Number 0x43
0572 6811 |h | Jump_Zero 0x584
0573 00db | | Load_Top At_Offset_3
0574 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0575 e001 | | Load 0x0,0x1
0576 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39
0577 4fff |O | Short_Literal -0x1
0578 027f | | Execute Discrete,Equal
0579 6805 |h | Jump_Zero 0x57f
057a e01a | | Load 0x0,0x1a
057b 00d9 | | Load_Top At_Offset_1
057c e001 | | Load 0x0,0x1
057d 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
057e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
057f e01a | | Load 0x0,0x1a
0580 00d9 | | Load_Top At_Offset_1
0581 e001 | | Load 0x0,0x1
0582 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
0583 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0584 00d8 | | Load_Top At_Offset_0
0585 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0586 0000 0000 | | .XXX[0x2]
0588 ; --------------------------------------------------------------------------------------
0588 ; SUBPROGRAM
0588 ; --------------------------------------------------------------------------------------
0588 058b | | .CONST 0x058b ; Address of begin
0589 0004 | | .CONST 0x0004 ; Address of exception handler
058a 0001 | | .CONST 0x0001 ; Number of locals
058b BODY_0588:
058b INIT_0588:
058b 00da | | Load_Top At_Offset_2
058c 01db | | Execute Vector,Length
058d 4801 |H | Short_Literal 0x1
058e e001 | | Load 0x0,0x1
058f 1b3f | ? | Execute Package,Field_Read,Field_Number 0x3f
0590 1c08 | | Execute_Immediate Run_Utility,0x8
0591 00db | | Load_Top At_Offset_3
0592 00d9 | | Load_Top At_Offset_1
0593 00d8 | | Load_Top At_Offset_0
0594 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0595 00da | | Load_Top At_Offset_2
0596 01da | | Execute Vector,Bounds
0597 00da | | Load_Top At_Offset_2
0598 01da | | Execute Vector,Bounds
0599 00da | | Load_Top At_Offset_2
059a 027f | | Execute Discrete,Equal
059b 7001 |p | Jump_Nonzero 0x59d
059c 08e0 | | Execute_Immediate Raise,0xe0
059d 00cd | | Action Spare6_Action
059e 027f | | Execute Discrete,Equal
059f 7001 |p | Jump_Nonzero 0x5a1
05a0 08e0 | | Execute_Immediate Raise,0xe0
05a1 00d2 | | Pop_Control Pop_Count_2
05a2 00d9 | | Load_Top At_Offset_1
05a3 2903 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x3
05a4 e01a | | Load 0x0,0x1a
05a5 00d9 | | Load_Top At_Offset_1
05a6 00d8 | | Load_Top At_Offset_0
05a7 2504 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x4
05a8 00da | | Load_Top At_Offset_2
05a9 01da | | Execute Vector,Bounds
05aa 00da | | Load_Top At_Offset_2
05ab 01da | | Execute Vector,Bounds
05ac 00da | | Load_Top At_Offset_2
05ad 027f | | Execute Discrete,Equal
05ae 7001 |p | Jump_Nonzero 0x5b0
05af 08e0 | | Execute_Immediate Raise,0xe0
05b0 00cd | | Action Spare6_Action
05b1 027f | | Execute Discrete,Equal
05b2 7001 |p | Jump_Nonzero 0x5b4
05b3 08e0 | | Execute_Immediate Raise,0xe0
05b4 00d2 | | Pop_Control Pop_Count_2
05b5 00d9 | | Load_Top At_Offset_1
05b6 2904 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x4
05b7 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
05b8 ; --------------------------------------------------------------------------------------
05b8 ; SUBPROGRAM
05b8 ; --------------------------------------------------------------------------------------
05b8 05bb | | .CONST 0x05bb ; Address of begin
05b9 0004 | | .CONST 0x0004 ; Address of exception handler
05ba 0001 | | .CONST 0x0001 ; Number of locals
05bb BODY_05b8:
05bb INIT_05b8:
05bb 00da | | Load_Top At_Offset_2
05bc 823f | ? | Call 0x1,0x3f
05bd 00db | | Load_Top At_Offset_3
05be 823e | > | Call 0x1,0x3e
05bf e001 | | Load 0x0,0x1
05c0 187d | } | Execute Package,Field_Execute,Field_Number 0x7d
05c1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
05c2 0000 0000 | | .BLANK 0000[0x6]
05c8 ; --------------------------------------------------------------------------------------
05c8 ; SUBPROGRAM
05c8 ; --------------------------------------------------------------------------------------
05c8 05d3 | | .CONST 0x05d3 ; Address of begin
05c9 05ed | | .CONST 0x05ed ; Address of exception handler
05ca 0002 | | .CONST 0x0002 ; Number of locals
05cb INIT_05c8:
05cb e009 | | Load 0x0,0x9
05cc 1b0f | | Execute Package,Field_Read,Field_Number 0xf
05cd 0322 | " | Declare_Variable Record
05ce 00db | | Load_Top At_Offset_3
05cf e009 | | Load 0x0,0x9
05d0 1810 | | Execute Package,Field_Execute,Field_Number 0x10
05d1 00d9 | | Load_Top At_Offset_1
05d2 017d | } | Execute Record,Structure_Write
05d3 BODY_05c8:
05d3 00d8 | | Load_Top At_Offset_0
05d4 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
05d5 680c |h | Jump_Zero 0x5e2
05d6 00d8 | | Load_Top At_Offset_0
05d7 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
05d8 e01d | | Load 0x0,0x1d
05d9 e001 | | Load 0x0,0x1
05da 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
05db 00d9 | | Load_Top At_Offset_1
05dc 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
05dd 0275 | u | Execute Discrete,Unary_Minus
05de 821f | | Call 0x1,0x1f
05df e001 | | Load 0x0,0x1
05e0 184c | L | Execute Package,Field_Execute,Field_Number 0x4c
05e1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
05e2 00d8 | | Load_Top At_Offset_0
05e3 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
05e4 e01d | | Load 0x0,0x1d
05e5 e001 | | Load 0x0,0x1
05e6 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
05e7 00d9 | | Load_Top At_Offset_1
05e8 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
05e9 821f | | Call 0x1,0x1f
05ea e001 | | Load 0x0,0x1
05eb 184c | L | Execute Package,Field_Execute,Field_Number 0x4c
05ec 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
05ed TRAP_05c8:
05ed 0007 | | Action Break_Optional
05ee e01e | | Load 0x0,0x1e
05ef 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
05f0 ; --------------------------------------------------------------------------------------
05f0 ; SUBPROGRAM
05f0 ; --------------------------------------------------------------------------------------
05f0 05f3 | | .CONST 0x05f3 ; Address of begin
05f1 0004 | | .CONST 0x0004 ; Address of exception handler
05f2 0001 | | .CONST 0x0001 ; Number of locals
05f3 BODY_05f0:
05f3 INIT_05f0:
05f3 00da | | Load_Top At_Offset_2
05f4 822b | + | Call 0x1,0x2b
05f5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
05f6 0000 0000 | | .XXX[0x2]
05f8 ; --------------------------------------------------------------------------------------
05f8 ; SUBPROGRAM
05f8 ; --------------------------------------------------------------------------------------
05f8 05fb | | .CONST 0x05fb ; Address of begin
05f9 0004 | | .CONST 0x0004 ; Address of exception handler
05fa 0001 | | .CONST 0x0001 ; Number of locals
05fb BODY_05f8:
05fb INIT_05f8:
05fb 00da | | Load_Top At_Offset_2
05fc 822c | , | Call 0x1,0x2c
05fd 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
05fe 0000 0000 | | .XXX[0x2]
0600 ; --------------------------------------------------------------------------------------
0600 ; SUBPROGRAM
0600 ; --------------------------------------------------------------------------------------
0600 0605 | | .CONST 0x0605 ; Address of begin
0601 0004 | | .CONST 0x0004 ; Address of exception handler
0602 0002 | | .CONST 0x0002 ; Number of locals
0603 INIT_0600:
0603 029f 0af3 | | Declare_Subprogram INIT_0af0,For_Call
0605 BODY_0600:
0605 e5fe | | Load 0x2,-0x2
0606 e01b | | Load 0x0,0x1b
0607 01df | | Execute Vector,Equal
0608 6801 |h | Jump_Zero 0x60a
0609 08e1 | | Execute_Immediate Raise,0xe1
060a 00db | | Load_Top At_Offset_3
060b e01b | | Load 0x0,0x1b
060c 01df | | Execute Vector,Equal
060d 6802 |h | Jump_Zero 0x610
060e e01e | | Load 0x0,0x1e
060f 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0610 00db | | Load_Top At_Offset_3
0611 01db | | Execute Vector,Length
0612 0f01 | | Execute_Immediate Equal,0x1
0613 6806 |h | Jump_Zero 0x61a
0614 4801 |H | Short_Literal 0x1
0615 e5ff | | Load 0x2,-0x1
0616 01d7 | | Execute Vector,Field_Read
0617 0274 | t | Execute Discrete,Absolute_Value
0618 0f01 | | Execute_Immediate Equal,0x1
0619 700a |p | Jump_Nonzero 0x624
061a e5fe | | Load 0x2,-0x2
061b 01db | | Execute Vector,Length
061c 0f01 | | Execute_Immediate Equal,0x1
061d 6818 |h | Jump_Zero 0x636
061e 4801 |H | Short_Literal 0x1
061f e5fe | | Load 0x2,-0x2
0620 01d7 | | Execute Vector,Field_Read
0621 0274 | t | Execute Discrete,Absolute_Value
0622 0f01 | | Execute_Immediate Equal,0x1
0623 6812 |h | Jump_Zero 0x636
0624 e5fe | | Load 0x2,-0x2
0625 e001 | | Load 0x0,0x1
0626 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39
0627 4fff |O | Short_Literal -0x1
0628 027f | | Execute Discrete,Equal
0629 6808 |h | Jump_Zero 0x632
062a e5fe | | Load 0x2,-0x2
062b e001 | | Load 0x0,0x1
062c 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
062d e5ff | | Load 0x2,-0x1
062e e001 | | Load 0x0,0x1
062f 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
0630 801f | | Call 0x0,0x1f
0631 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0632 e5fe | | Load 0x2,-0x2
0633 e5ff | | Load 0x2,-0x1
0634 801f | | Call 0x0,0x1f
0635 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0636 8402 | | Call 0x2,0x2
0637 0831 | 1 | Execute_Immediate Raise,0x31
0638 ; --------------------------------------------------------------------------------------
0638 ; SUBPROGRAM
0638 ; --------------------------------------------------------------------------------------
0638 063b | ; | .CONST 0x063b ; Address of begin
0639 0004 | | .CONST 0x0004 ; Address of exception handler
063a 0001 | | .CONST 0x0001 ; Number of locals
063b BODY_0638:
063b INIT_0638:
063b 00db | | Load_Top At_Offset_3
063c 821f | | Call 0x1,0x1f
063d 00db | | Load_Top At_Offset_3
063e 821f | | Call 0x1,0x1f
063f 822f | / | Call 0x1,0x2f
0640 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0641 0000 0000 | | .BLANK 0000[0x7]
0648 ; --------------------------------------------------------------------------------------
0648 ; SUBPROGRAM
0648 ; --------------------------------------------------------------------------------------
0648 064b | K | .CONST 0x064b ; Address of begin
0649 0004 | | .CONST 0x0004 ; Address of exception handler
064a 0001 | | .CONST 0x0001 ; Number of locals
064b BODY_0648:
064b INIT_0648:
064b 00db | | Load_Top At_Offset_3
064c 8221 | ! | Call 0x1,0x21
064d 00db | | Load_Top At_Offset_3
064e 8221 | ! | Call 0x1,0x21
064f 822f | / | Call 0x1,0x2f
0650 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0651 0000 0000 | | .BLANK 0000[0x7]
0658 ; --------------------------------------------------------------------------------------
0658 ; SUBPROGRAM
0658 ; --------------------------------------------------------------------------------------
0658 065e | ^ | .CONST 0x065e ; Address of begin
0659 0004 | | .CONST 0x0004 ; Address of exception handler
065a 0003 | | .CONST 0x0003 ; Number of locals
065b INIT_0658:
065b 00e5 | | Load_Encached Long_Integer_Cache
065c 029f 0b63 | c| Declare_Subprogram INIT_0b60,For_Call
065e BODY_0658:
065e e5fc | | Load 0x2,-0x4
065f 0d00 | | Execute_Immediate Less,0x0
0660 680b |h | Jump_Zero 0x66c
0661 e5ff | | Load 0x2,-0x1
0662 e001 | | Load 0x0,0x1
0663 1856 | V | Execute Package,Field_Execute,Field_Number 0x56
0664 0092 0cd2 | | Action Push_String_Extended,0xcd2 ; "/"
0666 01cc | | Execute Vector,Catenate
0667 e5ff | | Load 0x2,-0x1
0668 e001 | | Load 0x0,0x1
0669 1858 | X | Execute Package,Field_Execute,Field_Number 0x58
066a 01cc | | Execute Vector,Catenate
066b 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
066c e5fc | | Load 0x2,-0x4
066d 7002 |p | Jump_Nonzero 0x670
066e 8403 | | Call 0x2,0x3
066f 7873 |xs | Jump 0x6e3
0670 4801 |H | Short_Literal 0x1
0671 e5ff | | Load 0x2,-0x1
0672 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0673 01d7 | | Execute Vector,Field_Read
0674 685f |h_ | Jump_Zero 0x6d4
0675 e5ff | | Load 0x2,-0x1
0676 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0677 e001 | | Load 0x0,0x1
0678 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37
0679 e5ff | | Load 0x2,-0x1
067a 2504 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x4
067b e001 | | Load 0x0,0x1
067c 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37
067d 0272 | r | Execute Discrete,Minus
067e 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
067f 00d9 | | Load_Top At_Offset_1
0680 00da | | Load_Top At_Offset_2
0681 0275 | u | Execute Discrete,Unary_Minus
0682 00d8 | | Load_Top At_Offset_0
0683 00e2 | | Load_Encached Integer_Cache
0684 0260 | ` | Execute Discrete,In_Type
0685 7001 |p | Jump_Nonzero 0x687
0686 0801 | | Execute_Immediate Raise,0x1
0687 e020 | | Load 0x0,0x20
0688 e001 | | Load 0x0,0x1
0689 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
068a e5ff | | Load 0x2,-0x1
068b e001 | | Load 0x0,0x1
068c 1846 | F | Execute Package,Field_Execute,Field_Number 0x46
068d e001 | | Load 0x0,0x1
068e 1849 | I | Execute Package,Field_Execute,Field_Number 0x49
068f 8252 | R | Call 0x1,0x52
0690 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
0691 00d9 | | Load_Top At_Offset_1
0692 0d00 | | Execute_Immediate Less,0x0
0693 681f |h | Jump_Zero 0x6b3
0694 4845 |HE | Short_Literal 0x45
0695 4800 |H | Short_Literal 0x0
0696 e5fd | | Load 0x2,-0x3
0697 e5fe | | Load 0x2,-0x2
0698 e402 | | Load 0x2,0x2
0699 0275 | u | Execute Discrete,Unary_Minus
069a 00d8 | | Load_Top At_Offset_0
069b 00e2 | | Load_Encached Integer_Cache
069c 0260 | ` | Execute Discrete,In_Type
069d 7001 |p | Jump_Nonzero 0x69f
069e 0801 | | Execute_Immediate Raise,0x1
069f e020 | | Load 0x0,0x20
06a0 e001 | | Load 0x0,0x1
06a1 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
06a2 e5ff | | Load 0x2,-0x1
06a3 e001 | | Load 0x0,0x1
06a4 1849 | I | Execute Package,Field_Execute,Field_Number 0x49
06a5 e001 | | Load 0x0,0x1
06a6 188b | | Execute Package,Field_Execute,Field_Number 0x8b
06a7 01cb | | Execute Vector,Append
06a8 4830 |H0 | Short_Literal 0x30
06a9 e5fc | | Load 0x2,-0x4
06aa 4820 |H | Short_Literal 0x20
06ab 4800 |H | Short_Literal 0x0
06ac 480a |H | Short_Literal 0xa
06ad e402 | | Load 0x2,0x2
06ae e021 | ! | Load 0x0,0x21
06af 1817 | | Execute Package,Field_Execute,Field_Number 0x17
06b0 8253 | S | Call 0x1,0x53
06b1 01cc | | Execute Vector,Catenate
06b2 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
06b3 4845 |HE | Short_Literal 0x45
06b4 4800 |H | Short_Literal 0x0
06b5 e5fd | | Load 0x2,-0x3
06b6 e5fe | | Load 0x2,-0x2
06b7 e402 | | Load 0x2,0x2
06b8 0275 | u | Execute Discrete,Unary_Minus
06b9 00d8 | | Load_Top At_Offset_0
06ba 00e2 | | Load_Encached Integer_Cache
06bb 0260 | ` | Execute Discrete,In_Type
06bc 7001 |p | Jump_Nonzero 0x6be
06bd 0801 | | Execute_Immediate Raise,0x1
06be e020 | | Load 0x0,0x20
06bf e001 | | Load 0x0,0x1
06c0 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
06c1 e5ff | | Load 0x2,-0x1
06c2 e001 | | Load 0x0,0x1
06c3 1849 | I | Execute Package,Field_Execute,Field_Number 0x49
06c4 e001 | | Load 0x0,0x1
06c5 188b | | Execute Package,Field_Execute,Field_Number 0x8b
06c6 01cb | | Execute Vector,Append
06c7 4830 |H0 | Short_Literal 0x30
06c8 e5fc | | Load 0x2,-0x4
06c9 482b |H+ | Short_Literal 0x2b
06ca 4820 |H | Short_Literal 0x20
06cb 4800 |H | Short_Literal 0x0
06cc 480a |H | Short_Literal 0xa
06cd e402 | | Load 0x2,0x2
06ce e021 | ! | Load 0x0,0x21
06cf 1817 | | Execute Package,Field_Execute,Field_Number 0x17
06d0 01ca | | Execute Vector,Prepend
06d1 8253 | S | Call 0x1,0x53
06d2 01cc | | Execute Vector,Catenate
06d3 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
06d4 4845 |HE | Short_Literal 0x45
06d5 4800 |H | Short_Literal 0x0
06d6 e5fd | | Load 0x2,-0x3
06d7 e5fe | | Load 0x2,-0x2
06d8 e5ff | | Load 0x2,-0x1
06d9 e001 | | Load 0x0,0x1
06da 188b | | Execute Package,Field_Execute,Field_Number 0x8b
06db 01cb | | Execute Vector,Append
06dc 4830 |H0 | Short_Literal 0x30
06dd e5fc | | Load 0x2,-0x4
06de 0092 0cd3 | | Action Push_String_Extended,0xcd3 ; "+0"
06e0 8253 | S | Call 0x1,0x53
06e1 01cc | | Execute Vector,Catenate
06e2 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
06e3 0831 | 1 | Execute_Immediate Raise,0x31
06e4 0000 0000 | | .BLANK 0000[0x4]
06e8 ; --------------------------------------------------------------------------------------
06e8 ; SUBPROGRAM
06e8 ; --------------------------------------------------------------------------------------
06e8 06f9 | | .CONST 0x06f9 ; Address of begin
06e9 0004 | | .CONST 0x0004 ; Address of exception handler
06ea 0005 | | .CONST 0x0005 ; Number of locals
06eb INIT_06e8:
06eb 00e1 | | Load_Encached Boolean_Cache
06ec 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
06ed 00db | | Load_Top At_Offset_3
06ee 01dd | | Execute Vector,First
06ef 0aff | | Execute_Immediate Plus,-0x1
06f0 00e2 | | Load_Encached Integer_Cache
06f1 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
06f2 e5ff | | Load 0x2,-0x1
06f3 01dc | | Execute Vector,Last
06f4 0a01 | | Execute_Immediate Plus,0x1
06f5 00e2 | | Load_Encached Integer_Cache
06f6 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
06f7 00e2 | | Load_Encached Integer_Cache
06f8 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
06f9 BODY_06e8:
06f9 00cf | | Action Mark_Auxiliary
06fa e5ff | | Load 0x2,-0x1
06fb 01d9 | | Execute Vector,Reverse_Bounds
06fc 0263 | c | Execute Discrete,Above_Bound
06fd 703b |p; | Jump_Nonzero 0x739
06fe 00d8 | | Load_Top At_Offset_0
06ff e5ff | | Load 0x2,-0x1
0700 01d7 | | Execute Vector,Field_Read
0701 00d8 | | Load_Top At_Offset_0
0702 0d2e | . | Execute_Immediate Less,0x2e
0703 7010 |p | Jump_Nonzero 0x714
0704 00d8 | | Load_Top At_Offset_0
0705 0c46 | F | Execute_Immediate Greater_Equal,0x46
0706 700a |p | Jump_Nonzero 0x711
0707 0b2e | . | Execute_Immediate Case_Compare,0x2e
0708 7029 |p) | Jump_Nonzero 0x732
0709 00d8 | | Load_Top At_Offset_0
070a 4830 |H0 | Short_Literal 0x30
070b 4839 |H9 | Short_Literal 0x39
070c 0262 | b | Execute Discrete,In_Range
070d 701d |p | Jump_Nonzero 0x72b
070e 0f45 | E | Execute_Immediate Equal,0x45
070f 7006 |p | Jump_Nonzero 0x716
0710 7826 |x& | Jump 0x737
0711 0f65 | e | Execute_Immediate Equal,0x65
0712 7003 |p | Jump_Nonzero 0x716
0713 7823 |x# | Jump 0x737
0714 00d1 | | Pop_Control Pop_Count_1
0715 7821 |x! | Jump 0x737
0716 00d8 | | Load_Top At_Offset_0
0717 a404 | | Store_Unchecked 0x2,0x4
0718 00db | | Load_Top At_Offset_3
0719 00d9 | | Load_Top At_Offset_1
071a 0a01 | | Execute_Immediate Plus,0x1
071b 00d8 | | Load_Top At_Offset_0
071c 00e2 | | Load_Encached Integer_Cache
071d 0260 | ` | Execute Discrete,In_Type
071e 7001 |p | Jump_Nonzero 0x720
071f 0801 | | Execute_Immediate Raise,0x1
0720 e5ff | | Load 0x2,-0x1
0721 01dc | | Execute Vector,Last
0722 e5ff | | Load 0x2,-0x1
0723 01cf | | Execute Vector,Slice_Read
0724 00e2 | | Load_Encached Integer_Cache
0725 00e0 | | Load_Encached Standard_Cache
0726 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0727 0273 | s | Execute Discrete,Plus
0728 c405 | | Store 0x2,0x5
0729 00d2 | | Pop_Control Pop_Count_2
072a 780e |x | Jump 0x739
072b 00d1 | | Pop_Control Pop_Count_1
072c e402 | | Load 0x2,0x2
072d 6809 |h | Jump_Zero 0x737
072e 00db | | Load_Top At_Offset_3
072f 0aff | | Execute_Immediate Plus,-0x1
0730 c405 | | Store 0x2,0x5
0731 7805 |x | Jump 0x737
0732 00d1 | | Pop_Control Pop_Count_1
0733 00d8 | | Load_Top At_Offset_0
0734 a403 | | Store_Unchecked 0x2,0x3
0735 4801 |H | Short_Literal 0x1
0736 a402 | | Store_Unchecked 0x2,0x2
0737 00c8 | | Action Pop_Auxiliary_Range
0738 3fc5 |? | Loop_Increasing 0x6fe
0739 00ce | | Action Pop_Auxiliary
073a 00d8 | | Load_Top At_Offset_0
073b 6825 |h% | Jump_Zero 0x761
073c 00d8 | | Load_Top At_Offset_0
073d e020 | | Load 0x0,0x20
073e e001 | | Load 0x0,0x1
073f 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0740 e5ff | | Load 0x2,-0x1
0741 01dd | | Execute Vector,First
0742 e403 | | Load 0x2,0x3
0743 0aff | | Execute_Immediate Plus,-0x1
0744 00d8 | | Load_Top At_Offset_0
0745 00e2 | | Load_Encached Integer_Cache
0746 0260 | ` | Execute Discrete,In_Type
0747 7001 |p | Jump_Nonzero 0x749
0748 0801 | | Execute_Immediate Raise,0x1
0749 e5ff | | Load 0x2,-0x1
074a 01cf | | Execute Vector,Slice_Read
074b e403 | | Load 0x2,0x3
074c 0a01 | | Execute_Immediate Plus,0x1
074d 00d8 | | Load_Top At_Offset_0
074e 00e2 | | Load_Encached Integer_Cache
074f 0260 | ` | Execute Discrete,In_Type
0750 7001 |p | Jump_Nonzero 0x752
0751 0801 | | Execute_Immediate Raise,0x1
0752 e404 | | Load 0x2,0x4
0753 0aff | | Execute_Immediate Plus,-0x1
0754 00d8 | | Load_Top At_Offset_0
0755 00e2 | | Load_Encached Integer_Cache
0756 0260 | ` | Execute Discrete,In_Type
0757 7001 |p | Jump_Nonzero 0x759
0758 0801 | | Execute_Immediate Raise,0x1
0759 e5ff | | Load 0x2,-0x1
075a 01cf | | Execute Vector,Slice_Read
075b 01cc | | Execute Vector,Catenate
075c 8221 | ! | Call 0x1,0x21
075d 822a | * | Call 0x1,0x2a
075e e001 | | Load 0x0,0x1
075f 1849 | I | Execute Package,Field_Execute,Field_Number 0x49
0760 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0761 e5ff | | Load 0x2,-0x1
0762 01dd | | Execute Vector,First
0763 00db | | Load_Top At_Offset_3
0764 0aff | | Execute_Immediate Plus,-0x1
0765 00d8 | | Load_Top At_Offset_0
0766 00e2 | | Load_Encached Integer_Cache
0767 0260 | ` | Execute Discrete,In_Type
0768 7001 |p | Jump_Nonzero 0x76a
0769 0801 | | Execute_Immediate Raise,0x1
076a e5ff | | Load 0x2,-0x1
076b 01cf | | Execute Vector,Slice_Read
076c 00db | | Load_Top At_Offset_3
076d 0a01 | | Execute_Immediate Plus,0x1
076e 00d8 | | Load_Top At_Offset_0
076f 00e2 | | Load_Encached Integer_Cache
0770 0260 | ` | Execute Discrete,In_Type
0771 7001 |p | Jump_Nonzero 0x773
0772 0801 | | Execute_Immediate Raise,0x1
0773 00db | | Load_Top At_Offset_3
0774 0aff | | Execute_Immediate Plus,-0x1
0775 00d8 | | Load_Top At_Offset_0
0776 00e2 | | Load_Encached Integer_Cache
0777 0260 | ` | Execute Discrete,In_Type
0778 7001 |p | Jump_Nonzero 0x77a
0779 0801 | | Execute_Immediate Raise,0x1
077a e5ff | | Load 0x2,-0x1
077b 01cf | | Execute Vector,Slice_Read
077c 01cc | | Execute Vector,Catenate
077d 8221 | ! | Call 0x1,0x21
077e 822a | * | Call 0x1,0x2a
077f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0780 ; --------------------------------------------------------------------------------------
0780 ; SUBPROGRAM
0780 ; --------------------------------------------------------------------------------------
0780 0786 | | .CONST 0x0786 ; Address of begin
0781 0004 | | .CONST 0x0004 ; Address of exception handler
0782 0003 | | .CONST 0x0003 ; Number of locals
0783 INIT_0780:
0783 00e2 | | Load_Encached Integer_Cache
0784 029f 0bc3 | | Declare_Subprogram INIT_0bc0,For_Call
0786 BODY_0780:
0786 e5ff | | Load 0x2,-0x1
0787 e01e | | Load 0x0,0x1e
0788 016f | o | Execute Variant_Record,Equal
0789 6802 |h | Jump_Zero 0x78c
078a 8403 | | Call 0x2,0x3
078b 7820 |x | Jump 0x7ac
078c e5ff | | Load 0x2,-0x1
078d 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
078e e001 | | Load 0x0,0x1
078f 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36
0790 e5ff | | Load 0x2,-0x1
0791 2504 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x4
0792 e001 | | Load 0x0,0x1
0793 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36
0794 0272 | r | Execute Discrete,Minus
0795 00d8 | | Load_Top At_Offset_0
0796 00e2 | | Load_Encached Integer_Cache
0797 0260 | ` | Execute Discrete,In_Type
0798 7001 |p | Jump_Nonzero 0x79a
0799 0801 | | Execute_Immediate Raise,0x1
079a 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
079b e5ff | | Load 0x2,-0x1
079c e001 | | Load 0x0,0x1
079d 1853 | S | Execute Package,Field_Execute,Field_Number 0x53
079e e5fe | | Load 0x2,-0x2
079f 00db | | Load_Top At_Offset_3
07a0 e402 | | Load 0x2,0x2
07a1 0275 | u | Execute Discrete,Unary_Minus
07a2 e01d | | Load 0x0,0x1d
07a3 e001 | | Load 0x0,0x1
07a4 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
07a5 e5ff | | Load 0x2,-0x1
07a6 e001 | | Load 0x0,0x1
07a7 1846 | F | Execute Package,Field_Execute,Field_Number 0x46
07a8 e001 | | Load 0x0,0x1
07a9 1849 | I | Execute Package,Field_Execute,Field_Number 0x49
07aa 8254 | T | Call 0x1,0x54
07ab 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
07ac 0831 | 1 | Execute_Immediate Raise,0x31
07ad 0000 0000 | | .XXX[0x3]
07af 0000 | |
07b0 ; --------------------------------------------------------------------------------------
07b0 ; SUBPROGRAM
07b0 ; --------------------------------------------------------------------------------------
07b0 07b3 | | .CONST 0x07b3 ; Address of begin
07b1 0004 | | .CONST 0x0004 ; Address of exception handler
07b2 0001 | | .CONST 0x0001 ; Number of locals
07b3 BODY_07b0:
07b3 INIT_07b0:
07b3 00da | | Load_Top At_Offset_2
07b4 2507 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x7
07b5 00db | | Load_Top At_Offset_3
07b6 2c05 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x5
07b7 e5ff | | Load 0x2,-0x1
07b8 2c04 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x4
07b9 e5ff | | Load 0x2,-0x1
07ba 2506 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x6
07bb 8239 | 9 | Call 0x1,0x39
07bc 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
07bd 0000 0000 | | .XXX[0x3]
07bf 0000 | |
07c0 ; --------------------------------------------------------------------------------------
07c0 ; SUBPROGRAM
07c0 ; --------------------------------------------------------------------------------------
07c0 07c3 | | .CONST 0x07c3 ; Address of begin
07c1 0004 | | .CONST 0x0004 ; Address of exception handler
07c2 0001 | | .CONST 0x0001 ; Number of locals
07c3 BODY_07c0:
07c3 INIT_07c0:
07c3 00db | | Load_Top At_Offset_3
07c4 00db | | Load_Top At_Offset_3
07c5 e001 | | Load 0x0,0x1
07c6 188d | | Execute Package,Field_Execute,Field_Number 0x8d
07c7 2506 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x6
07c8 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
07c9 0000 0000 | | .BLANK 0000[0x7]
07d0 ; --------------------------------------------------------------------------------------
07d0 ; SUBPROGRAM
07d0 ; --------------------------------------------------------------------------------------
07d0 07d3 | | .CONST 0x07d3 ; Address of begin
07d1 0004 | | .CONST 0x0004 ; Address of exception handler
07d2 0001 | | .CONST 0x0001 ; Number of locals
07d3 BODY_07d0:
07d3 INIT_07d0:
07d3 00db | | Load_Top At_Offset_3
07d4 00db | | Load_Top At_Offset_3
07d5 e001 | | Load 0x0,0x1
07d6 188d | | Execute Package,Field_Execute,Field_Number 0x8d
07d7 2507 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x7
07d8 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
07d9 0000 0000 | | .BLANK 0000[0x7]
07e0 ; --------------------------------------------------------------------------------------
07e0 ; SUBPROGRAM
07e0 ; --------------------------------------------------------------------------------------
07e0 07e3 | | .CONST 0x07e3 ; Address of begin
07e1 0004 | | .CONST 0x0004 ; Address of exception handler
07e2 0001 | | .CONST 0x0001 ; Number of locals
07e3 BODY_07e0:
07e3 INIT_07e0:
07e3 4801 |H | Short_Literal 0x1
07e4 00db | | Load_Top At_Offset_3
07e5 e001 | | Load 0x0,0x1
07e6 188d | | Execute Package,Field_Execute,Field_Number 0x8d
07e7 2c05 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x5
07e8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
07e9 0000 0000 | | .BLANK 0000[0x7]
07f0 ; --------------------------------------------------------------------------------------
07f0 ; SUBPROGRAM
07f0 ; --------------------------------------------------------------------------------------
07f0 07f3 | | .CONST 0x07f3 ; Address of begin
07f1 0825 | % | .CONST 0x0825 ; Address of exception handler
07f2 0001 | | .CONST 0x0001 ; Number of locals
07f3 BODY_07f0:
07f3 INIT_07f0:
07f3 00db | | Load_Top At_Offset_3
07f4 0a01 | | Execute_Immediate Plus,0x1
07f5 4602 |F | Jump_Case 0x3
07f6 7816 |x | Jump 0x80d ; case 0x0
07f7 782b |x+ | Jump 0x823 ; case 0x1
07f8 7800 |x | Jump 0x7f9 ; case 0x2
07f9 e5fc | | Load 0x2,-0x4
07fa e5fd | | Load 0x2,-0x3
07fb e5ff | | Load 0x2,-0x1
07fc 01db | | Execute Vector,Length
07fd 0272 | r | Execute Discrete,Minus
07fe 00d8 | | Load_Top At_Offset_0
07ff 00e2 | | Load_Encached Integer_Cache
0800 0260 | ` | Execute Discrete,In_Type
0801 7001 |p | Jump_Nonzero 0x803
0802 0801 | | Execute_Immediate Raise,0x1
0803 e01d | | Load 0x0,0x1d
0804 e001 | | Load 0x0,0x1
0805 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0806 e5ff | | Load 0x2,-0x1
0807 8224 | $ | Call 0x1,0x24
0808 e001 | | Load 0x0,0x1
0809 184c | L | Execute Package,Field_Execute,Field_Number 0x4c
080a e001 | | Load 0x0,0x1
080b 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
080c 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
080d e5fc | | Load 0x2,-0x4
080e e5fd | | Load 0x2,-0x3
080f e5ff | | Load 0x2,-0x1
0810 01db | | Execute Vector,Length
0811 0272 | r | Execute Discrete,Minus
0812 00d8 | | Load_Top At_Offset_0
0813 00e2 | | Load_Encached Integer_Cache
0814 0260 | ` | Execute Discrete,In_Type
0815 7001 |p | Jump_Nonzero 0x817
0816 0801 | | Execute_Immediate Raise,0x1
0817 e01d | | Load 0x0,0x1d
0818 e001 | | Load 0x0,0x1
0819 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
081a e5ff | | Load 0x2,-0x1
081b 8224 | $ | Call 0x1,0x24
081c e001 | | Load 0x0,0x1
081d 184c | L | Execute Package,Field_Execute,Field_Number 0x4c
081e e001 | | Load 0x0,0x1
081f 1845 | E | Execute Package,Field_Execute,Field_Number 0x45
0820 e001 | | Load 0x0,0x1
0821 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
0822 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
0823 e01e | | Load 0x0,0x1e
0824 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
0825 TRAP_07f0:
0825 0007 | | Action Break_Optional
0826 08e1 | | Execute_Immediate Raise,0xe1
0827 0000 | | .XXX[0x1]
0828 ; --------------------------------------------------------------------------------------
0828 ; SUBPROGRAM
0828 ; --------------------------------------------------------------------------------------
0828 0831 | 1 | .CONST 0x0831 ; Address of begin
0829 0004 | | .CONST 0x0004 ; Address of exception handler
082a 0003 | | .CONST 0x0003 ; Number of locals
082b INIT_0828:
082b 00da | | Load_Top At_Offset_2
082c 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
082d 8225 | % | Call 0x1,0x25
082e 00db | | Load_Top At_Offset_3
082f 2504 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x4
0830 8225 | % | Call 0x1,0x25
0831 BODY_0828:
0831 00d9 | | Load_Top At_Offset_1
0832 01db | | Execute Vector,Length
0833 8251 | Q | Call 0x1,0x51
0834 00da | | Load_Top At_Offset_2
0835 01cc | | Execute Vector,Catenate
0836 00d9 | | Load_Top At_Offset_1
0837 01cc | | Execute Vector,Catenate
0838 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0839 0000 0000 | | .BLANK 0000[0x7]
0840 ; --------------------------------------------------------------------------------------
0840 ; SUBPROGRAM
0840 ; --------------------------------------------------------------------------------------
0840 0848 | H | .CONST 0x0848 ; Address of begin
0841 0004 | | .CONST 0x0004 ; Address of exception handler
0842 0004 | | .CONST 0x0004 ; Number of locals
0843 INIT_0840:
0843 00e2 | | Load_Encached Integer_Cache
0844 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0845 00e2 | | Load_Encached Integer_Cache
0846 00e2 | | Load_Encached Integer_Cache
0847 0601 | | Execute_Immediate Set_Value_Unchecked,0x1
0848 BODY_0840:
0848 00cf | | Action Mark_Auxiliary
0849 e5ff | | Load 0x2,-0x1
084a 01d9 | | Execute Vector,Reverse_Bounds
084b 0263 | c | Execute Discrete,Above_Bound
084c 7038 |p8 | Jump_Nonzero 0x885
084d 00d8 | | Load_Top At_Offset_0
084e e5ff | | Load 0x2,-0x1
084f 01d7 | | Execute Vector,Field_Read
0850 a403 | | Store_Unchecked 0x2,0x3
0851 e403 | | Load 0x2,0x3
0852 487f |H | Short_Literal 0x7f
0853 0279 | y | Execute Discrete,And
0854 e404 | | Load 0x2,0x4
0855 0271 | q | Execute Discrete,Times
0856 e402 | | Load 0x2,0x2
0857 0273 | s | Execute Discrete,Plus
0858 c402 | | Store 0x2,0x2
0859 00db | | Load_Top At_Offset_3
085a 0907 | | Execute_Immediate Binary_Scale,0x7
085b c404 | | Store 0x2,0x4
085c e403 | | Load 0x2,0x3
085d 0d80 | | Execute_Immediate Less,-0x80
085e 6824 |h$ | Jump_Zero 0x883
085f 00d8 | | Load_Top At_Offset_0
0860 e402 | | Load 0x2,0x2
0861 0273 | s | Execute Discrete,Plus
0862 0a01 | | Execute_Immediate Plus,0x1
0863 00d8 | | Load_Top At_Offset_0
0864 00e2 | | Load_Encached Integer_Cache
0865 0260 | ` | Execute Discrete,In_Type
0866 7001 |p | Jump_Nonzero 0x868
0867 0801 | | Execute_Immediate Raise,0x1
0868 e5ff | | Load 0x2,-0x1
0869 01dc | | Execute Vector,Last
086a e5ff | | Load 0x2,-0x1
086b 01cf | | Execute Vector,Slice_Read
086c e001 | | Load 0x0,0x1
086d 187c | | | Execute Package,Field_Execute,Field_Number 0x7c
086e 00d9 | | Load_Top At_Offset_1
086f 0a01 | | Execute_Immediate Plus,0x1
0870 00d8 | | Load_Top At_Offset_0
0871 00e2 | | Load_Encached Integer_Cache
0872 0260 | ` | Execute Discrete,In_Type
0873 7001 |p | Jump_Nonzero 0x875
0874 0801 | | Execute_Immediate Raise,0x1
0875 00da | | Load_Top At_Offset_2
0876 e402 | | Load 0x2,0x2
0877 0273 | s | Execute Discrete,Plus
0878 00d8 | | Load_Top At_Offset_0
0879 00e2 | | Load_Encached Integer_Cache
087a 0260 | ` | Execute Discrete,In_Type
087b 7001 |p | Jump_Nonzero 0x87d
087c 0801 | | Execute_Immediate Raise,0x1
087d e5ff | | Load 0x2,-0x1
087e 01cf | | Execute Vector,Slice_Read
087f e001 | | Load 0x0,0x1
0880 187c | | | Execute Package,Field_Execute,Field_Number 0x7c
0881 801f | | Call 0x0,0x1f
0882 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0883 00c8 | | Action Pop_Auxiliary_Range
0884 3fc8 |? | Loop_Increasing 0x84d
0885 00ce | | Action Pop_Auxiliary
0886 0831 | 1 | Execute_Immediate Raise,0x31
0887 0000 | | .XXX[0x1]
0888 ; --------------------------------------------------------------------------------------
0888 ; SUBPROGRAM
0888 ; --------------------------------------------------------------------------------------
0888 088b | | .CONST 0x088b ; Address of begin
0889 0004 | | .CONST 0x0004 ; Address of exception handler
088a 0001 | | .CONST 0x0001 ; Number of locals
088b BODY_0888:
088b INIT_0888:
088b 00da | | Load_Top At_Offset_2
088c 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
088d 821e | | Call 0x1,0x1e
088e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
088f 0000 | | .XXX[0x1]
0890 ; --------------------------------------------------------------------------------------
0890 ; SUBPROGRAM
0890 ; --------------------------------------------------------------------------------------
0890 0893 | | .CONST 0x0893 ; Address of begin
0891 0004 | | .CONST 0x0004 ; Address of exception handler
0892 0001 | | .CONST 0x0001 ; Number of locals
0893 BODY_0890:
0893 INIT_0890:
0893 00da | | Load_Top At_Offset_2
0894 2504 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x4
0895 821e | | Call 0x1,0x1e
0896 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0897 0000 | | .XXX[0x1]
0898 ; --------------------------------------------------------------------------------------
0898 ; SUBPROGRAM
0898 ; --------------------------------------------------------------------------------------
0898 089b | | .CONST 0x089b ; Address of begin
0899 0004 | | .CONST 0x0004 ; Address of exception handler
089a 0001 | | .CONST 0x0001 ; Number of locals
089b BODY_0898:
089b INIT_0898:
089b 00da | | Load_Top At_Offset_2
089c 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
089d 0335 | 5 | Declare_Variable Array,Duplicate
089e 00cd | | Action Spare6_Action
089f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
08a0 ; --------------------------------------------------------------------------------------
08a0 ; SUBPROGRAM
08a0 ; --------------------------------------------------------------------------------------
08a0 08a3 | | .CONST 0x08a3 ; Address of begin
08a1 0004 | | .CONST 0x0004 ; Address of exception handler
08a2 0001 | | .CONST 0x0001 ; Number of locals
08a3 BODY_08a0:
08a3 INIT_08a0:
08a3 00da | | Load_Top At_Offset_2
08a4 2504 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x4
08a5 0335 | 5 | Declare_Variable Array,Duplicate
08a6 00cd | | Action Spare6_Action
08a7 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
08a8 ; --------------------------------------------------------------------------------------
08a8 ; SUBPROGRAM
08a8 ; --------------------------------------------------------------------------------------
08a8 08ad | | .CONST 0x08ad ; Address of begin
08a9 0004 | | .CONST 0x0004 ; Address of exception handler
08aa 0002 | | .CONST 0x0002 ; Number of locals
08ab INIT_08a8:
08ab 029f 0c03 | | Declare_Subprogram INIT_0c00,For_Call
08ad BODY_08a8:
08ad 00cf | | Action Mark_Auxiliary
08ae e5ff | | Load 0x2,-0x1
08af 01d9 | | Execute Vector,Reverse_Bounds
08b0 0263 | c | Execute Discrete,Above_Bound
08b1 7007 |p | Jump_Nonzero 0x8b9
08b2 00d8 | | Load_Top At_Offset_0
08b3 e5ff | | Load 0x2,-0x1
08b4 01d7 | | Execute Vector,Field_Read
08b5 6801 |h | Jump_Zero 0x8b7
08b6 8402 | | Call 0x2,0x2
08b7 00c8 | | Action Pop_Auxiliary_Range
08b8 3ff9 |? | Loop_Increasing 0x8b2
08b9 00ce | | Action Pop_Auxiliary
08ba e01b | | Load 0x0,0x1b
08bb 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
08bc 0000 0000 | | .BLANK 0000[0x4]
08c0 ; --------------------------------------------------------------------------------------
08c0 ; SUBPROGRAM
08c0 ; --------------------------------------------------------------------------------------
08c0 08e4 | | .CONST 0x08e4 ; Address of begin
08c1 0004 | | .CONST 0x0004 ; Address of exception handler
08c2 0006 | | .CONST 0x0006 ; Number of locals
08c3 INIT_08c0:
08c3 4801 |H | Short_Literal 0x1
08c4 00db | | Load_Top At_Offset_3
08c5 01db | | Execute Vector,Length
08c6 00d8 | | Load_Top At_Offset_0
08c7 00e2 | | Load_Encached Integer_Cache
08c8 0260 | ` | Execute Discrete,In_Type
08c9 7001 |p | Jump_Nonzero 0x8cb
08ca 0801 | | Execute_Immediate Raise,0x1
08cb e001 | | Load 0x0,0x1
08cc 1b20 | | Execute Package,Field_Read,Field_Number 0x20
08cd 035b | [ | Declare_Type Array,Constrained
08ce 0337 | 7 | Declare_Variable Array
08cf 00db | | Load_Top At_Offset_3
08d0 00d9 | | Load_Top At_Offset_1
08d1 01d4 | | Execute Vector,Structure_Write
08d2 00e5 | | Load_Encached Long_Integer_Cache
08d3 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
08d4 00e5 | | Load_Encached Long_Integer_Cache
08d5 4801 |H | Short_Literal 0x1
08d6 e5ff | | Load 0x2,-0x1
08d7 01db | | Execute Vector,Length
08d8 480b |H | Short_Literal 0xb
08d9 0271 | q | Execute Discrete,Times
08da 00d8 | | Load_Top At_Offset_0
08db 00e2 | | Load_Encached Integer_Cache
08dc 0260 | ` | Execute Discrete,In_Type
08dd 7001 |p | Jump_Nonzero 0x8df
08de 0801 | | Execute_Immediate Raise,0x1
08df 00e9 | | Load_Encached String_Cache
08e0 035b | [ | Declare_Type Array,Constrained
08e1 0337 | 7 | Declare_Variable Array
08e2 00e2 | | Load_Encached Integer_Cache
08e3 0601 | | Execute_Immediate Set_Value_Unchecked,0x1
08e4 BODY_08c0:
08e4 4801 |H | Short_Literal 0x1
08e5 e402 | | Load 0x2,0x2
08e6 01d7 | | Execute Vector,Field_Read
08e7 0274 | t | Execute Discrete,Absolute_Value
08e8 4801 |H | Short_Literal 0x1
08e9 e402 | | Load 0x2,0x2
08ea 01d6 | | Execute Vector,Field_Write
08eb 00cf | | Action Mark_Auxiliary
08ec 00da | | Load_Top At_Offset_2
08ed 01da | | Execute Vector,Bounds
08ee 0264 | d | Execute Discrete,Below_Bound
08ef 7046 |pF | Jump_Nonzero 0x936
08f0 4800 |H | Short_Literal 0x0
08f1 a403 | | Store_Unchecked 0x2,0x3
08f2 00cf | | Action Mark_Auxiliary
08f3 e402 | | Load 0x2,0x2
08f4 01dc | | Execute Vector,Last
08f5 e406 | | Load 0x2,0x6
08f6 0263 | c | Execute Discrete,Above_Bound
08f7 7013 |p | Jump_Nonzero 0x90b
08f8 e403 | | Load 0x2,0x3
08f9 091f | | Execute_Immediate Binary_Scale,0x1f
08fa 00d9 | | Load_Top At_Offset_1
08fb e402 | | Load 0x2,0x2
08fc 01d7 | | Execute Vector,Field_Read
08fd 0273 | s | Execute Discrete,Plus
08fe a404 | | Store_Unchecked 0x2,0x4
08ff e404 | | Load 0x2,0x4
0900 480a |H | Short_Literal 0xa
0901 0270 | p | Execute Discrete,Divide
0902 00d9 | | Load_Top At_Offset_1
0903 e402 | | Load 0x2,0x2
0904 01d6 | | Execute Vector,Field_Write
0905 e404 | | Load 0x2,0x4
0906 480a |H | Short_Literal 0xa
0907 026f | o | Execute Discrete,Remainder
0908 a403 | | Store_Unchecked 0x2,0x3
0909 00c8 | | Action Pop_Auxiliary_Range
090a 3fed |? | Loop_Increasing 0x8f8
090b 00ce | | Action Pop_Auxiliary
090c e403 | | Load 0x2,0x3
090d 0a30 | 0 | Execute_Immediate Plus,0x30
090e 00d8 | | Load_Top At_Offset_0
090f 00e8 | | Load_Encached Character_Cache
0910 0260 | ` | Execute Discrete,In_Type
0911 7001 |p | Jump_Nonzero 0x913
0912 0801 | | Execute_Immediate Raise,0x1
0913 00d9 | | Load_Top At_Offset_1
0914 e405 | | Load 0x2,0x5
0915 01d6 | | Execute Vector,Field_Write
0916 00cf | | Action Mark_Auxiliary
0917 e402 | | Load 0x2,0x2
0918 01dc | | Execute Vector,Last
0919 e406 | | Load 0x2,0x6
091a 0263 | c | Execute Discrete,Above_Bound
091b 7017 |p | Jump_Nonzero 0x933
091c 00d8 | | Load_Top At_Offset_0
091d e402 | | Load 0x2,0x2
091e 01d7 | | Execute Vector,Field_Read
091f 6804 |h | Jump_Zero 0x924
0920 00d8 | | Load_Top At_Offset_0
0921 a406 | | Store_Unchecked 0x2,0x6
0922 00d2 | | Pop_Control Pop_Count_2
0923 780f |x | Jump 0x933
0924 00d8 | | Load_Top At_Offset_0
0925 e402 | | Load 0x2,0x2
0926 01dc | | Execute Vector,Last
0927 027f | | Execute Discrete,Equal
0928 6808 |h | Jump_Zero 0x931
0929 00db | | Load_Top At_Offset_3
092a e405 | | Load 0x2,0x5
092b 01dc | | Execute Vector,Last
092c e405 | | Load 0x2,0x5
092d 01cf | | Execute Vector,Slice_Read
092e 00e9 | | Load_Encached String_Cache
092f 01c6 | | Execute Vector,Convert_To_Formal
0930 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0931 00c8 | | Action Pop_Auxiliary_Range
0932 3fe9 |? | Loop_Increasing 0x91c
0933 00ce | | Action Pop_Auxiliary
0934 00c8 | | Action Pop_Auxiliary_Range
0935 37ba |7 | Loop_Decreasing 0x8f0
0936 00ce | | Action Pop_Auxiliary
0937 0831 | 1 | Execute_Immediate Raise,0x31
0938 ; --------------------------------------------------------------------------------------
0938 ; SUBPROGRAM
0938 ; --------------------------------------------------------------------------------------
0938 0959 | Y | .CONST 0x0959 ; Address of begin
0939 0004 | | .CONST 0x0004 ; Address of exception handler
093a 0006 | | .CONST 0x0006 ; Number of locals
093b INIT_0938:
093b 00db | | Load_Top At_Offset_3
093c 01dd | | Execute Vector,First
093d e5fe | | Load 0x2,-0x2
093e 01dc | | Execute Vector,Last
093f 0a01 | | Execute_Immediate Plus,0x1
0940 00d8 | | Load_Top At_Offset_0
0941 00e2 | | Load_Encached Integer_Cache
0942 0260 | ` | Execute Discrete,In_Type
0943 7001 |p | Jump_Nonzero 0x945
0944 0801 | | Execute_Immediate Raise,0x1
0945 e001 | | Load 0x0,0x1
0946 1b20 | | Execute Package,Field_Read,Field_Number 0x20
0947 035b | [ | Declare_Type Array,Constrained
0948 0337 | 7 | Declare_Variable Array
0949 00db | | Load_Top At_Offset_3
094a 01db | | Execute Vector,Length
094b e5fe | | Load 0x2,-0x2
094c 01db | | Execute Vector,Length
094d 0272 | r | Execute Discrete,Minus
094e 481f |H | Short_Literal 0x1f
094f 0271 | q | Execute Discrete,Times
0950 00e2 | | Load_Encached Integer_Cache
0951 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
0952 606d |`m | Indirect_Literal Discrete,0x9c0,{0x00000000, 0x40000000}
0953 00e5 | | Load_Encached Long_Integer_Cache
0954 03f1 | | Declare_Variable Discrete,With_Value
0955 00e5 | | Load_Encached Long_Integer_Cache
0956 0601 | | Execute_Immediate Set_Value_Unchecked,0x1
0957 00e5 | | Load_Encached Long_Integer_Cache
0958 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0959 BODY_0938:
0959 00cf | | Action Mark_Auxiliary
095a e402 | | Load 0x2,0x2
095b 01d9 | | Execute Vector,Reverse_Bounds
095c 0263 | c | Execute Discrete,Above_Bound
095d 7013 |p | Jump_Nonzero 0x971
095e 00d8 | | Load_Top At_Offset_0
095f e5ff | | Load 0x2,-0x1
0960 01dc | | Execute Vector,Last
0961 027d | } | Execute Discrete,Greater
0962 6805 |h | Jump_Zero 0x968
0963 4800 |H | Short_Literal 0x0
0964 00d9 | | Load_Top At_Offset_1
0965 e402 | | Load 0x2,0x2
0966 01d6 | | Execute Vector,Field_Write
0967 7807 |x | Jump 0x96f
0968 00d8 | | Load_Top At_Offset_0
0969 e5ff | | Load 0x2,-0x1
096a 01d7 | | Execute Vector,Field_Read
096b 0274 | t | Execute Discrete,Absolute_Value
096c 00d9 | | Load_Top At_Offset_1
096d e402 | | Load 0x2,0x2
096e 01d6 | | Execute Vector,Field_Write
096f 00c8 | | Action Pop_Auxiliary_Range
0970 3fed |? | Loop_Increasing 0x95e
0971 00ce | | Action Pop_Auxiliary
0972 4801 |H | Short_Literal 0x1
0973 e402 | | Load 0x2,0x2
0974 01d7 | | Execute Vector,Field_Read
0975 7003 |p | Jump_Nonzero 0x979
0976 4800 |H | Short_Literal 0x0
0977 a403 | | Store_Unchecked 0x2,0x3
0978 782d |x- | Jump 0x9a6
0979 00cf | | Action Mark_Auxiliary
097a 780a |x | Jump 0x985
097b e403 | | Load 0x2,0x3
097c 0aff | | Execute_Immediate Plus,-0x1
097d c403 | | Store 0x2,0x3
097e 00db | | Load_Top At_Offset_3
097f 09ff | | Execute_Immediate Binary_Scale,-0x1
0980 a404 | | Store_Unchecked 0x2,0x4
0981 00da | | Load_Top At_Offset_2
0982 0901 | | Execute_Immediate Binary_Scale,0x1
0983 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3
0984 00c9 | | Action Pop_Auxiliary_Loop
0985 4801 |H | Short_Literal 0x1
0986 e402 | | Load 0x2,0x2
0987 01d7 | | Execute Vector,Field_Read
0988 e404 | | Load 0x2,0x4
0989 027c | | | Execute Discrete,Less
098a 77f0 |w | Jump_Nonzero 0x97b
098b 00ce | | Action Pop_Auxiliary
098c 00d9 | | Load_Top At_Offset_1
098d 0c02 | | Execute_Immediate Greater_Equal,0x2
098e 6817 |h | Jump_Zero 0x9a6
098f 00cf | | Action Mark_Auxiliary
0990 e402 | | Load 0x2,0x2
0991 01da | | Execute Vector,Bounds
0992 0264 | d | Execute Discrete,Below_Bound
0993 7011 |p | Jump_Nonzero 0x9a5
0994 00db | | Load_Top At_Offset_3
0995 09e1 | | Execute_Immediate Binary_Scale,-0x1f
0996 00d9 | | Load_Top At_Offset_1
0997 e402 | | Load 0x2,0x2
0998 01d7 | | Execute Vector,Field_Read
0999 e405 | | Load 0x2,0x5
099a 0271 | q | Execute Discrete,Times
099b 0273 | s | Execute Discrete,Plus
099c a406 | | Store_Unchecked 0x2,0x6
099d 00db | | Load_Top At_Offset_3
099e 601d |` | Indirect_Literal Discrete,0x9bc,{0x00000000, 0x7fffffff}
099f 0279 | y | Execute Discrete,And
09a0 00d9 | | Load_Top At_Offset_1
09a1 e402 | | Load 0x2,0x2
09a2 01d6 | | Execute Vector,Field_Write
09a3 00c8 | | Action Pop_Auxiliary_Range
09a4 37ef |7 | Loop_Decreasing 0x994
09a5 00ce | | Action Pop_Auxiliary
09a6 4801 |H | Short_Literal 0x1
09a7 e5ff | | Load 0x2,-0x1
09a8 01d7 | | Execute Vector,Field_Read
09a9 0d00 | | Execute_Immediate Less,0x0
09aa 6807 |h | Jump_Zero 0x9b2
09ab 4801 |H | Short_Literal 0x1
09ac e402 | | Load 0x2,0x2
09ad 01d7 | | Execute Vector,Field_Read
09ae 0275 | u | Execute Discrete,Unary_Minus
09af 4801 |H | Short_Literal 0x1
09b0 e402 | | Load 0x2,0x2
09b1 01d6 | | Execute Vector,Field_Write
09b2 e5fe | | Load 0x2,-0x2
09b3 01da | | Execute Vector,Bounds
09b4 e402 | | Load 0x2,0x2
09b5 01cf | | Execute Vector,Slice_Read
09b6 e5fe | | Load 0x2,-0x2
09b7 01d4 | | Execute Vector,Structure_Write
09b8 00db | | Load_Top At_Offset_3
09b9 a5fd | | Store_Unchecked 0x2,-0x3
09ba 4502 |E | Exit_Suprogram New_Top_Offset 0x2
09bb 0000 | | .XXX[0x1]
09bc 0000 0000 | | .LITERAL {0x00000000, 0x7fffffff}
09c0 0000 0000 | | .LITERAL {0x00000000, 0x40000000}
09c4 0000 0000 | | .BLANK 0000[0x4]
09c8 ; --------------------------------------------------------------------------------------
09c8 ; SUBPROGRAM
09c8 ; --------------------------------------------------------------------------------------
09c8 09da | | .CONST 0x09da ; Address of begin
09c9 0004 | | .CONST 0x0004 ; Address of exception handler
09ca 0005 | | .CONST 0x0005 ; Number of locals
09cb INIT_09c8:
09cb 5844 |XD | Indirect_Literal Float,0xa10,0.0
09cc e001 | | Load 0x0,0x1
09cd 1b0e | | Execute Package,Field_Read,Field_Number 0xe
09ce 03df | | Declare_Variable Float,With_Value
09cf 5840 |X@ | Indirect_Literal Float,0xa10,0.0
09d0 e001 | | Load 0x0,0x1
09d1 1b0e | | Execute Package,Field_Read,Field_Number 0xe
09d2 03df | | Declare_Variable Float,With_Value
09d3 5838 |X8 | Indirect_Literal Float,0xa0c,2147483648.0
09d4 e001 | | Load 0x0,0x1
09d5 1b0e | | Execute Package,Field_Read,Field_Number 0xe
09d6 03df | | Declare_Variable Float,With_Value
09d7 e5fe | | Load 0x2,-0x2
09d8 00e2 | | Load_Encached Integer_Cache
09d9 03f1 | | Declare_Variable Discrete,With_Value
09da BODY_09c8:
09da 00cf | | Action Mark_Auxiliary
09db e5ff | | Load 0x2,-0x1
09dc 01da | | Execute Vector,Bounds
09dd 0264 | d | Execute Discrete,Below_Bound
09de 701a |p | Jump_Nonzero 0x9f9
09df e403 | | Load 0x2,0x3
09e0 7008 |p | Jump_Nonzero 0x9e9
09e1 5826 |X& | Indirect_Literal Float,0xa08,2.0
09e2 e405 | | Load 0x2,0x5
09e3 0239 | 9 | Execute Float,Exponentiate
09e4 a403 | | Store_Unchecked 0x2,0x3
09e5 00db | | Load_Top At_Offset_3
09e6 0a1f | | Execute_Immediate Plus,0x1f
09e7 c405 | | Store 0x2,0x5
09e8 7804 |x | Jump 0x9ed
09e9 e403 | | Load 0x2,0x3
09ea e404 | | Load 0x2,0x4
09eb 023b | ; | Execute Float,Times
09ec a403 | | Store_Unchecked 0x2,0x3
09ed e402 | | Load 0x2,0x2
09ee 00d9 | | Load_Top At_Offset_1
09ef e5ff | | Load 0x2,-0x1
09f0 01d7 | | Execute Vector,Field_Read
09f1 0274 | t | Execute Discrete,Absolute_Value
09f2 0237 | 7 | Execute Float,Convert_From_Discrete
09f3 e403 | | Load 0x2,0x3
09f4 023b | ; | Execute Float,Times
09f5 023d | = | Execute Float,Plus
09f6 a402 | | Store_Unchecked 0x2,0x2
09f7 00c8 | | Action Pop_Auxiliary_Range
09f8 37e6 |7 | Loop_Decreasing 0x9df
09f9 00ce | | Action Pop_Auxiliary
09fa e5ff | | Load 0x2,-0x1
09fb 01dd | | Execute Vector,First
09fc e5ff | | Load 0x2,-0x1
09fd 01d7 | | Execute Vector,Field_Read
09fe 0d00 | | Execute_Immediate Less,0x0
09ff 6803 |h | Jump_Zero 0xa03
0a00 00db | | Load_Top At_Offset_3
0a01 023f | ? | Execute Float,Unary_Minus
0a02 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0a03 00db | | Load_Top At_Offset_3
0a04 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0a05 0000 0000 | | .XXX[0x3]
0a07 0000 | |
0a08 4000 0000 |@ | .DBL 2.0
0a0a 0000 0000 | |
0a0c 41e0 0000 |A | .DBL 2147483648.0
0a0e 0000 0000 | |
0a10 0000 0000 | | .DBL 0.0
0a12 0000 0000 | |
0a14 0000 0000 | | .BLANK 0000[0x4]
0a18 ; --------------------------------------------------------------------------------------
0a18 ; SUBPROGRAM
0a18 ; --------------------------------------------------------------------------------------
0a18 0a27 | ' | .CONST 0x0a27 ; Address of begin
0a19 0004 | | .CONST 0x0004 ; Address of exception handler
0a1a 0004 | | .CONST 0x0004 ; Number of locals
0a1b INIT_0a18:
0a1b 4801 |H | Short_Literal 0x1
0a1c 480a |H | Short_Literal 0xa
0a1d e014 | | Load 0x0,0x14
0a1e 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0a1f 035b | [ | Declare_Type Array,Constrained
0a20 0337 | 7 | Declare_Variable Array
0a21 00db | | Load_Top At_Offset_3
0a22 e001 | | Load 0x0,0x1
0a23 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0a24 03f1 | | Declare_Variable Discrete,With_Value
0a25 00e2 | | Load_Encached Integer_Cache
0a26 0601 | | Execute_Immediate Set_Value_Unchecked,0x1
0a27 BODY_0a18:
0a27 00cf | | Action Mark_Auxiliary
0a28 7815 |x | Jump 0xa3e
0a29 00da | | Load_Top At_Offset_2
0a2a 4880 |H | Short_Literal 0x80
0a2b 026f | o | Execute Discrete,Remainder
0a2c 4880 |H | Short_Literal 0x80
0a2d 0273 | s | Execute Discrete,Plus
0a2e 00d8 | | Load_Top At_Offset_0
0a2f e014 | | Load 0x0,0x14
0a30 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0a31 0260 | ` | Execute Discrete,In_Type
0a32 7001 |p | Jump_Nonzero 0xa34
0a33 0801 | | Execute_Immediate Raise,0x1
0a34 00da | | Load_Top At_Offset_2
0a35 e402 | | Load 0x2,0x2
0a36 01d6 | | Execute Vector,Field_Write
0a37 00da | | Load_Top At_Offset_2
0a38 09f9 | | Execute_Immediate Binary_Scale,-0x7
0a39 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3
0a3a 00d9 | | Load_Top At_Offset_1
0a3b 0a01 | | Execute_Immediate Plus,0x1
0a3c 005a | Z | Store_Top Discrete,At_Offset_2
0a3d 00c9 | | Action Pop_Auxiliary_Loop
0a3e 00da | | Load_Top At_Offset_2
0a3f 0c81 | | Execute_Immediate Greater_Equal,-0x7f
0a40 77e8 |w | Jump_Nonzero 0xa29
0a41 00ce | | Action Pop_Auxiliary
0a42 00d9 | | Load_Top At_Offset_1
0a43 00d8 | | Load_Top At_Offset_0
0a44 e014 | | Load 0x0,0x14
0a45 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0a46 0260 | ` | Execute Discrete,In_Type
0a47 7001 |p | Jump_Nonzero 0xa49
0a48 0801 | | Execute_Immediate Raise,0x1
0a49 00d9 | | Load_Top At_Offset_1
0a4a e402 | | Load 0x2,0x2
0a4b 01d6 | | Execute Vector,Field_Write
0a4c 4801 |H | Short_Literal 0x1
0a4d 00d9 | | Load_Top At_Offset_1
0a4e e402 | | Load 0x2,0x2
0a4f 01cf | | Execute Vector,Slice_Read
0a50 e014 | | Load 0x0,0x14
0a51 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0a52 01c6 | | Execute Vector,Convert_To_Formal
0a53 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0a54 0000 0000 | | .BLANK 0000[0x4]
0a58 ; --------------------------------------------------------------------------------------
0a58 ; SUBPROGRAM
0a58 ; --------------------------------------------------------------------------------------
0a58 0a5b | [ | .CONST 0x0a5b ; Address of begin
0a59 0004 | | .CONST 0x0004 ; Address of exception handler
0a5a 0001 | | .CONST 0x0001 ; Number of locals
0a5b BODY_0a58:
0a5b INIT_0a58:
0a5b e020 | | Load 0x0,0x20
0a5c 00db | | Load_Top At_Offset_3
0a5d e001 | | Load 0x0,0x1
0a5e 1843 | C | Execute Package,Field_Execute,Field_Number 0x43
0a5f 6808 |h | Jump_Zero 0xa68
0a60 00db | | Load_Top At_Offset_3
0a61 0a01 | | Execute_Immediate Plus,0x1
0a62 e020 | | Load 0x0,0x20
0a63 e5ff | | Load 0x2,-0x1
0a64 e001 | | Load 0x0,0x1
0a65 184a | J | Execute Package,Field_Execute,Field_Number 0x4a
0a66 8252 | R | Call 0x1,0x52
0a67 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0a68 e022 | " | Load 0x0,0x22
0a69 00db | | Load_Top At_Offset_3
0a6a e001 | | Load 0x0,0x1
0a6b 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40
0a6c 6808 |h | Jump_Zero 0xa75
0a6d 00db | | Load_Top At_Offset_3
0a6e 0aff | | Execute_Immediate Plus,-0x1
0a6f e020 | | Load 0x0,0x20
0a70 e5ff | | Load 0x2,-0x1
0a71 e001 | | Load 0x0,0x1
0a72 1849 | I | Execute Package,Field_Execute,Field_Number 0x49
0a73 8252 | R | Call 0x1,0x52
0a74 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0a75 00db | | Load_Top At_Offset_3
0a76 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0a77 0000 | | .XXX[0x1]
0a78 ; --------------------------------------------------------------------------------------
0a78 ; SUBPROGRAM
0a78 ; --------------------------------------------------------------------------------------
0a78 0a7b | { | .CONST 0x0a7b ; Address of begin
0a79 0004 | | .CONST 0x0004 ; Address of exception handler
0a7a 0001 | | .CONST 0x0001 ; Number of locals
0a7b BODY_0a78:
0a7b INIT_0a78:
0a7b 00da | | Load_Top At_Offset_2
0a7c 01db | | Execute Vector,Length
0a7d e5fe | | Load 0x2,-0x2
0a7e 027b | { | Execute Discrete,Greater_Equal
0a7f 6802 |h | Jump_Zero 0xa82
0a80 00da | | Load_Top At_Offset_2
0a81 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0a82 e5fd | | Load 0x2,-0x3
0a83 0f20 | | Execute_Immediate Equal,0x20
0a84 6813 |h | Jump_Zero 0xa98
0a85 00da | | Load_Top At_Offset_2
0a86 01db | | Execute Vector,Length
0a87 0a01 | | Execute_Immediate Plus,0x1
0a88 e5fe | | Load 0x2,-0x2
0a89 00e9 | | Load_Encached String_Cache
0a8a 035b | [ | Declare_Type Array,Constrained
0a8b 0337 | 7 | Declare_Variable Array
0a8c 00d8 | | Load_Top At_Offset_0
0a8d 01d9 | | Execute Vector,Reverse_Bounds
0a8e 0263 | c | Execute Discrete,Above_Bound
0a8f 7005 |p | Jump_Nonzero 0xa95
0a90 e5fd | | Load 0x2,-0x3
0a91 00d9 | | Load_Top At_Offset_1
0a92 e402 | | Load 0x2,0x2
0a93 01d6 | | Execute Vector,Field_Write
0a94 3ffb |? | Loop_Increasing 0xa90
0a95 00db | | Load_Top At_Offset_3
0a96 01cc | | Execute Vector,Catenate
0a97 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0a98 00da | | Load_Top At_Offset_2
0a99 01dd | | Execute Vector,First
0a9a 00db | | Load_Top At_Offset_3
0a9b 01d7 | | Execute Vector,Field_Read
0a9c 00db | | Load_Top At_Offset_3
0a9d 01db | | Execute Vector,Length
0a9e 0a01 | | Execute_Immediate Plus,0x1
0a9f e5fe | | Load 0x2,-0x2
0aa0 00e9 | | Load_Encached String_Cache
0aa1 035b | [ | Declare_Type Array,Constrained
0aa2 0337 | 7 | Declare_Variable Array
0aa3 00d8 | | Load_Top At_Offset_0
0aa4 01d9 | | Execute Vector,Reverse_Bounds
0aa5 0263 | c | Execute Discrete,Above_Bound
0aa6 7005 |p | Jump_Nonzero 0xaac
0aa7 e5fd | | Load 0x2,-0x3
0aa8 00d9 | | Load_Top At_Offset_1
0aa9 e403 | | Load 0x2,0x3
0aaa 01d6 | | Execute Vector,Field_Write
0aab 3ffb |? | Loop_Increasing 0xaa7
0aac 01ca | | Execute Vector,Prepend
0aad 00db | | Load_Top At_Offset_3
0aae 01dd | | Execute Vector,First
0aaf 0a01 | | Execute_Immediate Plus,0x1
0ab0 00d8 | | Load_Top At_Offset_0
0ab1 00e2 | | Load_Encached Integer_Cache
0ab2 0260 | ` | Execute Discrete,In_Type
0ab3 7001 |p | Jump_Nonzero 0xab5
0ab4 0801 | | Execute_Immediate Raise,0x1
0ab5 e5ff | | Load 0x2,-0x1
0ab6 01dc | | Execute Vector,Last
0ab7 e5ff | | Load 0x2,-0x1
0ab8 01cf | | Execute Vector,Slice_Read
0ab9 01cc | | Execute Vector,Catenate
0aba 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0abb 0000 0000 | | .BLANK 0000[0x5]
0ac0 ; --------------------------------------------------------------------------------------
0ac0 ; SUBPROGRAM
0ac0 ; --------------------------------------------------------------------------------------
0ac0 0ac5 | | .CONST 0x0ac5 ; Address of begin
0ac1 0004 | | .CONST 0x0004 ; Address of exception handler
0ac2 0002 | | .CONST 0x0002 ; Number of locals
0ac3 INIT_0ac0:
0ac3 029f 0c2b | +| Declare_Subprogram INIT_0c28,For_Call
0ac5 BODY_0ac0:
0ac5 e022 | " | Load 0x0,0x22
0ac6 e5ff | | Load 0x2,-0x1
0ac7 e001 | | Load 0x0,0x1
0ac8 1843 | C | Execute Package,Field_Execute,Field_Number 0x43
0ac9 680f |h | Jump_Zero 0xad9
0aca e5fc | | Load 0x2,-0x4
0acb e5fd | | Load 0x2,-0x3
0acc e5fe | | Load 0x2,-0x2
0acd 0a01 | | Execute_Immediate Plus,0x1
0ace 00d8 | | Load_Top At_Offset_0
0acf 00e2 | | Load_Encached Integer_Cache
0ad0 0260 | ` | Execute Discrete,In_Type
0ad1 7001 |p | Jump_Nonzero 0xad3
0ad2 0801 | | Execute_Immediate Raise,0x1
0ad3 e01c | | Load 0x0,0x1c
0ad4 e5ff | | Load 0x2,-0x1
0ad5 e001 | | Load 0x0,0x1
0ad6 1849 | I | Execute Package,Field_Execute,Field_Number 0x49
0ad7 8254 | T | Call 0x1,0x54
0ad8 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
0ad9 e01c | | Load 0x0,0x1c
0ada e5ff | | Load 0x2,-0x1
0adb e001 | | Load 0x0,0x1
0adc 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40
0add 680f |h | Jump_Zero 0xaed
0ade e5fc | | Load 0x2,-0x4
0adf e5fd | | Load 0x2,-0x3
0ae0 e5fe | | Load 0x2,-0x2
0ae1 0aff | | Execute_Immediate Plus,-0x1
0ae2 00d8 | | Load_Top At_Offset_0
0ae3 00e2 | | Load_Encached Integer_Cache
0ae4 0260 | ` | Execute Discrete,In_Type
0ae5 7001 |p | Jump_Nonzero 0xae7
0ae6 0801 | | Execute_Immediate Raise,0x1
0ae7 e01d | | Load 0x0,0x1d
0ae8 e5ff | | Load 0x2,-0x1
0ae9 e001 | | Load 0x0,0x1
0aea 1849 | I | Execute Package,Field_Execute,Field_Number 0x49
0aeb 8254 | T | Call 0x1,0x54
0aec 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
0aed 8402 | | Call 0x2,0x2
0aee 0831 | 1 | Execute_Immediate Raise,0x31
0aef 0000 | | .XXX[0x1]
0af0 ; --------------------------------------------------------------------------------------
0af0 ; SUBPROGRAM
0af0 ; --------------------------------------------------------------------------------------
0af0 0b17 | | .CONST 0x0b17 ; Address of begin
0af1 0004 | | .CONST 0x0004 ; Address of exception handler
0af2 0008 | | .CONST 0x0008 ; Number of locals
0af3 INIT_0af0:
0af3 4801 |H | Short_Literal 0x1
0af4 e5fe | | Load 0x2,-0x2
0af5 01db | | Execute Vector,Length
0af6 00d8 | | Load_Top At_Offset_0
0af7 00e2 | | Load_Encached Integer_Cache
0af8 0260 | ` | Execute Discrete,In_Type
0af9 7001 |p | Jump_Nonzero 0xafb
0afa 0801 | | Execute_Immediate Raise,0x1
0afb e5ff | | Load 0x2,-0x1
0afc 01db | | Execute Vector,Length
0afd 00d8 | | Load_Top At_Offset_0
0afe 00e2 | | Load_Encached Integer_Cache
0aff 0260 | ` | Execute Discrete,In_Type
0b00 7001 |p | Jump_Nonzero 0xb02
0b01 0801 | | Execute_Immediate Raise,0x1
0b02 8023 | # | Call 0x0,0x23
0b03 e001 | | Load 0x0,0x1
0b04 1b20 | | Execute Package,Field_Read,Field_Number 0x20
0b05 035b | [ | Declare_Type Array,Constrained
0b06 0337 | 7 | Declare_Variable Array
0b07 00d8 | | Load_Top At_Offset_0
0b08 01da | | Execute Vector,Bounds
0b09 e001 | | Load 0x0,0x1
0b0a 1b20 | | Execute Package,Field_Read,Field_Number 0x20
0b0b 035b | [ | Declare_Type Array,Constrained
0b0c 0337 | 7 | Declare_Variable Array
0b0d 00d9 | | Load_Top At_Offset_1
0b0e 01da | | Execute Vector,Bounds
0b0f e001 | | Load 0x0,0x1
0b10 1b20 | | Execute Package,Field_Read,Field_Number 0x20
0b11 035b | [ | Declare_Type Array,Constrained
0b12 0337 | 7 | Declare_Variable Array
0b13 00e2 | | Load_Encached Integer_Cache
0b14 03e9 | | Declare_Variable Discrete,Duplicate
0b15 03e9 | | Declare_Variable Discrete,Duplicate
0b16 00e1 | | Load_Encached Boolean_Cache
0b17 BODY_0af0:
0b17 e602 | | Load 0x3,0x2
0b18 e5fe | | Load 0x2,-0x2
0b19 e5ff | | Load 0x2,-0x1
0b1a 8024 | $ | Call 0x0,0x24
0b1b 00d1 | | Pop_Control Pop_Count_1
0b1c e602 | | Load 0x3,0x2
0b1d 8025 | % | Call 0x0,0x25
0b1e a605 | | Store_Unchecked 0x3,0x5
0b1f 4801 |H | Short_Literal 0x1
0b20 e5fe | | Load 0x2,-0x2
0b21 01d7 | | Execute Vector,Field_Read
0b22 0d00 | | Execute_Immediate Less,0x0
0b23 6807 |h | Jump_Zero 0xb2b
0b24 00db | | Load_Top At_Offset_3
0b25 e602 | | Load 0x3,0x2
0b26 01d7 | | Execute Vector,Field_Read
0b27 0275 | u | Execute Discrete,Unary_Minus
0b28 e605 | | Load 0x3,0x5
0b29 e602 | | Load 0x3,0x2
0b2a 01d6 | | Execute Vector,Field_Write
0b2b 00e1 | | Load_Encached Boolean_Cache
0b2c e026 | & | Load 0x0,0x26
0b2d e603 | | Load 0x3,0x3
0b2e e605 | | Load 0x3,0x5
0b2f e602 | | Load 0x3,0x2
0b30 01dc | | Execute Vector,Last
0b31 e602 | | Load 0x3,0x2
0b32 01cf | | Execute Vector,Slice_Read
0b33 e5ff | | Load 0x2,-0x1
0b34 8027 | ' | Call 0x0,0x27
0b35 00d2 | | Pop_Control Pop_Count_2
0b36 0059 | Y | Store_Top Discrete,At_Offset_1
0b37 00e1 | | Load_Encached Boolean_Cache
0b38 e026 | & | Load 0x0,0x26
0b39 e604 | | Load 0x3,0x4
0b3a e605 | | Load 0x3,0x5
0b3b e602 | | Load 0x3,0x2
0b3c 01dc | | Execute Vector,Last
0b3d e602 | | Load 0x3,0x2
0b3e 01cf | | Execute Vector,Slice_Read
0b3f e5fe | | Load 0x2,-0x2
0b40 8027 | ' | Call 0x0,0x27
0b41 00d2 | | Pop_Control Pop_Count_2
0b42 0059 | Y | Store_Top Discrete,At_Offset_1
0b43 00e2 | | Load_Encached Integer_Cache
0b44 e603 | | Load 0x3,0x3
0b45 4800 |H | Short_Literal 0x0
0b46 8028 | ( | Call 0x0,0x28
0b47 00d1 | | Pop_Control Pop_Count_1
0b48 005b | [ | Store_Top Discrete,At_Offset_3
0b49 00e2 | | Load_Encached Integer_Cache
0b4a e604 | | Load 0x3,0x4
0b4b 4800 |H | Short_Literal 0x0
0b4c 8028 | ( | Call 0x0,0x28
0b4d 00d1 | | Pop_Control Pop_Count_1
0b4e 005a | Z | Store_Top Discrete,At_Offset_2
0b4f 4801 |H | Short_Literal 0x1
0b50 00da | | Load_Top At_Offset_2
0b51 e604 | | Load 0x3,0x4
0b52 01cf | | Execute Vector,Slice_Read
0b53 4801 |H | Short_Literal 0x1
0b54 e606 | | Load 0x3,0x6
0b55 e603 | | Load 0x3,0x3
0b56 01cf | | Execute Vector,Slice_Read
0b57 801f | | Call 0x0,0x1f
0b58 e001 | | Load 0x0,0x1
0b59 1b3f | ? | Execute Package,Field_Read,Field_Number 0x3f
0b5a 0165 | e | Execute Variant_Record,Convert
0b5b 00cb | | Action Pop_Block_With_Result
0b5c 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0b5d 0000 0000 | | .XXX[0x3]
0b5f 0000 | |
0b60 ; --------------------------------------------------------------------------------------
0b60 ; SUBPROGRAM
0b60 ; --------------------------------------------------------------------------------------
0b60 0b8c | | .CONST 0x0b8c ; Address of begin
0b61 0004 | | .CONST 0x0004 ; Address of exception handler
0b62 0002 | | .CONST 0x0002 ; Number of locals
0b63 INIT_0b60:
0b63 4830 |H0 | Short_Literal 0x30
0b64 e5fd | | Load 0x2,-0x3
0b65 0a01 | | Execute_Immediate Plus,0x1
0b66 00d8 | | Load_Top At_Offset_0
0b67 00e2 | | Load_Encached Integer_Cache
0b68 0260 | ` | Execute Discrete,In_Type
0b69 7001 |p | Jump_Nonzero 0xb6b
0b6a 0801 | | Execute_Immediate Raise,0x1
0b6b e5ff | | Load 0x2,-0x1
0b6c 2504 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x4
0b6d e029 | ) | Load 0x0,0x29
0b6e e001 | | Load 0x0,0x1
0b6f 182a | * | Execute Package,Field_Execute,Field_Number 0x2a
0b70 e5ff | | Load 0x2,-0x1
0b71 2504 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x4
0b72 e5fd | | Load 0x2,-0x3
0b73 e012 | | Load 0x0,0x12
0b74 e001 | | Load 0x0,0x1
0b75 182e | . | Execute Package,Field_Execute,Field_Number 0x2e
0b76 e5ff | | Load 0x2,-0x1
0b77 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0b78 e001 | | Load 0x0,0x1
0b79 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
0b7a e029 | ) | Load 0x0,0x29
0b7b e001 | | Load 0x0,0x1
0b7c 182a | * | Execute Package,Field_Execute,Field_Number 0x2a
0b7d e001 | | Load 0x0,0x1
0b7e 182a | * | Execute Package,Field_Execute,Field_Number 0x2a
0b7f e001 | | Load 0x0,0x1
0b80 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
0b81 e001 | | Load 0x0,0x1
0b82 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0b83 e5ff | | Load 0x2,-0x1
0b84 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0b85 e001 | | Load 0x0,0x1
0b86 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39
0b87 821f | | Call 0x1,0x1f
0b88 e001 | | Load 0x0,0x1
0b89 182a | * | Execute Package,Field_Execute,Field_Number 0x2a
0b8a 8220 | | Call 0x1,0x20
0b8b 8253 | S | Call 0x1,0x53
0b8c BODY_0b60:
0b8c e5fd | | Load 0x2,-0x3
0b8d 7006 |p | Jump_Nonzero 0xb94
0b8e 4820 |H | Short_Literal 0x20
0b8f e5fe | | Load 0x2,-0x2
0b90 00da | | Load_Top At_Offset_2
0b91 8253 | S | Call 0x1,0x53
0b92 00cb | | Action Pop_Block_With_Result
0b93 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
0b94 4820 |H | Short_Literal 0x20
0b95 e5fe | | Load 0x2,-0x2
0b96 e5fd | | Load 0x2,-0x3
0b97 0273 | s | Execute Discrete,Plus
0b98 0a01 | | Execute_Immediate Plus,0x1
0b99 00d8 | | Load_Top At_Offset_0
0b9a 00e2 | | Load_Encached Integer_Cache
0b9b 0260 | ` | Execute Discrete,In_Type
0b9c 7001 |p | Jump_Nonzero 0xb9e
0b9d 0801 | | Execute_Immediate Raise,0x1
0b9e 482e |H. | Short_Literal 0x2e
0b9f 00db | | Load_Top At_Offset_3
0ba0 01dd | | Execute Vector,First
0ba1 e602 | | Load 0x3,0x2
0ba2 01dc | | Execute Vector,Last
0ba3 e5fd | | Load 0x2,-0x3
0ba4 0272 | r | Execute Discrete,Minus
0ba5 00d8 | | Load_Top At_Offset_0
0ba6 00e2 | | Load_Encached Integer_Cache
0ba7 0260 | ` | Execute Discrete,In_Type
0ba8 7001 |p | Jump_Nonzero 0xbaa
0ba9 0801 | | Execute_Immediate Raise,0x1
0baa e602 | | Load 0x3,0x2
0bab 01cf | | Execute Vector,Slice_Read
0bac 01cb | | Execute Vector,Append
0bad 00db | | Load_Top At_Offset_3
0bae 01dc | | Execute Vector,Last
0baf e5fd | | Load 0x2,-0x3
0bb0 0272 | r | Execute Discrete,Minus
0bb1 0a01 | | Execute_Immediate Plus,0x1
0bb2 00d8 | | Load_Top At_Offset_0
0bb3 00e2 | | Load_Encached Integer_Cache
0bb4 0260 | ` | Execute Discrete,In_Type
0bb5 7001 |p | Jump_Nonzero 0xbb7
0bb6 0801 | | Execute_Immediate Raise,0x1
0bb7 e602 | | Load 0x3,0x2
0bb8 01dc | | Execute Vector,Last
0bb9 e602 | | Load 0x3,0x2
0bba 01cf | | Execute Vector,Slice_Read
0bbb 01cc | | Execute Vector,Catenate
0bbc 8253 | S | Call 0x1,0x53
0bbd 00cb | | Action Pop_Block_With_Result
0bbe 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
0bbf 0000 | | .XXX[0x1]
0bc0 ; --------------------------------------------------------------------------------------
0bc0 ; SUBPROGRAM
0bc0 ; --------------------------------------------------------------------------------------
0bc0 0bd7 | | .CONST 0x0bd7 ; Address of begin
0bc1 0004 | | .CONST 0x0004 ; Address of exception handler
0bc2 0002 | | .CONST 0x0002 ; Number of locals
0bc3 INIT_0bc0:
0bc3 4801 |H | Short_Literal 0x1
0bc4 e5fe | | Load 0x2,-0x2
0bc5 e001 | | Load 0x0,0x1
0bc6 1b5e | ^ | Execute Package,Field_Read,Field_Number 0x5e
0bc7 035b | [ | Declare_Type Array,Constrained
0bc8 0337 | 7 | Declare_Variable Array
0bc9 00d8 | | Load_Top At_Offset_0
0bca 0335 | 5 | Declare_Variable Array,Duplicate
0bcb 00cd | | Action Spare6_Action
0bcc 00d9 | | Load_Top At_Offset_1
0bcd 01d9 | | Execute Vector,Reverse_Bounds
0bce 0263 | c | Execute Discrete,Above_Bound
0bcf 7005 |p | Jump_Nonzero 0xbd5
0bd0 4800 |H | Short_Literal 0x0
0bd1 00d9 | | Load_Top At_Offset_1
0bd2 e603 | | Load 0x3,0x3
0bd3 01d6 | | Execute Vector,Field_Write
0bd4 3ffb |? | Loop_Increasing 0xbd0
0bd5 00d9 | | Load_Top At_Offset_1
0bd6 01d4 | | Execute Vector,Structure_Write
0bd7 BODY_0bc0:
0bd7 e5fe | | Load 0x2,-0x2
0bd8 4801 |H | Short_Literal 0x1
0bd9 4801 |H | Short_Literal 0x1
0bda e001 | | Load 0x0,0x1
0bdb 1b61 | a | Execute Package,Field_Read,Field_Number 0x61
0bdc 1c08 | | Execute_Immediate Run_Utility,0x8
0bdd 00d8 | | Load_Top At_Offset_0
0bde 1c01 | | Execute_Immediate Run_Utility,0x1
0bdf 4800 |H | Short_Literal 0x0
0be0 00d9 | | Load_Top At_Offset_1
0be1 2804 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x4
0be2 00d9 | | Load_Top At_Offset_1
0be3 00d9 | | Load_Top At_Offset_1
0be4 00d8 | | Load_Top At_Offset_0
0be5 2506 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x6
0be6 00da | | Load_Top At_Offset_2
0be7 01da | | Execute Vector,Bounds
0be8 00da | | Load_Top At_Offset_2
0be9 01da | | Execute Vector,Bounds
0bea 00da | | Load_Top At_Offset_2
0beb 027f | | Execute Discrete,Equal
0bec 7001 |p | Jump_Nonzero 0xbee
0bed 08e0 | | Execute_Immediate Raise,0xe0
0bee 00cd | | Action Spare6_Action
0bef 027f | | Execute Discrete,Equal
0bf0 7001 |p | Jump_Nonzero 0xbf2
0bf1 08e0 | | Execute_Immediate Raise,0xe0
0bf2 00d2 | | Pop_Control Pop_Count_2
0bf3 00d9 | | Load_Top At_Offset_1
0bf4 2906 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x6
0bf5 4800 |H | Short_Literal 0x0
0bf6 00d9 | | Load_Top At_Offset_1
0bf7 2805 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x5
0bf8 e01e | | Load 0x0,0x1e
0bf9 00d9 | | Load_Top At_Offset_1
0bfa 2907 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x7
0bfb 00cb | | Action Pop_Block_With_Result
0bfc 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0bfd 0000 0000 | | .XXX[0x3]
0bff 0000 | |
0c00 ; --------------------------------------------------------------------------------------
0c00 ; SUBPROGRAM
0c00 ; --------------------------------------------------------------------------------------
0c00 0c19 | | .CONST 0x0c19 ; Address of begin
0c01 0004 | | .CONST 0x0004 ; Address of exception handler
0c02 0002 | | .CONST 0x0002 ; Number of locals
0c03 INIT_0c00:
0c03 4801 |H | Short_Literal 0x1
0c04 e5ff | | Load 0x2,-0x1
0c05 01dc | | Execute Vector,Last
0c06 e405 | | Load 0x2,0x5
0c07 0272 | r | Execute Discrete,Minus
0c08 0a01 | | Execute_Immediate Plus,0x1
0c09 00d8 | | Load_Top At_Offset_0
0c0a 00e2 | | Load_Encached Integer_Cache
0c0b 0260 | ` | Execute Discrete,In_Type
0c0c 7001 |p | Jump_Nonzero 0xc0e
0c0d 0801 | | Execute_Immediate Raise,0x1
0c0e e001 | | Load 0x0,0x1
0c0f 1b20 | | Execute Package,Field_Read,Field_Number 0x20
0c10 035b | [ | Declare_Type Array,Constrained
0c11 0337 | 7 | Declare_Variable Array
0c12 e405 | | Load 0x2,0x5
0c13 e5ff | | Load 0x2,-0x1
0c14 01dc | | Execute Vector,Last
0c15 e5ff | | Load 0x2,-0x1
0c16 01cf | | Execute Vector,Slice_Read
0c17 00d9 | | Load_Top At_Offset_1
0c18 01d4 | | Execute Vector,Structure_Write
0c19 BODY_0c00:
0c19 e5fe | | Load 0x2,-0x2
0c1a 6807 |h | Jump_Zero 0xc22
0c1b 4801 |H | Short_Literal 0x1
0c1c 00d9 | | Load_Top At_Offset_1
0c1d 01d7 | | Execute Vector,Field_Read
0c1e 0275 | u | Execute Discrete,Unary_Minus
0c1f 4801 |H | Short_Literal 0x1
0c20 00da | | Load_Top At_Offset_2
0c21 01d6 | | Execute Vector,Field_Write
0c22 00d8 | | Load_Top At_Offset_0
0c23 e001 | | Load 0x0,0x1
0c24 1b20 | | Execute Package,Field_Read,Field_Number 0x20
0c25 01c6 | | Execute Vector,Convert_To_Formal
0c26 00cb | | Action Pop_Block_With_Result
0c27 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0c28 ; --------------------------------------------------------------------------------------
0c28 ; SUBPROGRAM
0c28 ; --------------------------------------------------------------------------------------
0c28 0c4d | M | .CONST 0x0c4d ; Address of begin
0c29 0004 | | .CONST 0x0004 ; Address of exception handler
0c2a 0007 | | .CONST 0x0007 ; Number of locals
0c2b INIT_0c28:
0c2b e5fd | | Load 0x2,-0x3
0c2c e01d | | Load 0x0,0x1d
0c2d e001 | | Load 0x0,0x1
0c2e 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0c2f 00d8 | | Load_Top At_Offset_0
0c30 e5ff | | Load 0x2,-0x1
0c31 e001 | | Load 0x0,0x1
0c32 1849 | I | Execute Package,Field_Execute,Field_Number 0x49
0c33 00d8 | | Load_Top At_Offset_0
0c34 8229 | ) | Call 0x1,0x29
0c35 00d8 | | Load_Top At_Offset_0
0c36 e001 | | Load 0x0,0x1
0c37 187e | ~ | Execute Package,Field_Execute,Field_Number 0x7e
0c38 e5fe | | Load 0x2,-0x2
0c39 e5fd | | Load 0x2,-0x3
0c3a 0272 | r | Execute Discrete,Minus
0c3b 00d8 | | Load_Top At_Offset_0
0c3c 00e2 | | Load_Encached Integer_Cache
0c3d 0260 | ` | Execute Discrete,In_Type
0c3e 7001 |p | Jump_Nonzero 0xc40
0c3f 0801 | | Execute_Immediate Raise,0x1
0c40 e01d | | Load 0x0,0x1d
0c41 e001 | | Load 0x0,0x1
0c42 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0c43 00da | | Load_Top At_Offset_2
0c44 822a | * | Call 0x1,0x2a
0c45 e603 | | Load 0x3,0x3
0c46 e001 | | Load 0x0,0x1
0c47 1848 | H | Execute Package,Field_Execute,Field_Number 0x48
0c48 e001 | | Load 0x0,0x1
0c49 1849 | I | Execute Package,Field_Execute,Field_Number 0x49
0c4a e5fe | | Load 0x2,-0x2
0c4b 00e2 | | Load_Encached Integer_Cache
0c4c 03f1 | | Declare_Variable Discrete,With_Value
0c4d BODY_0c28:
0c4d 00da | | Load_Top At_Offset_2
0c4e 01db | | Execute Vector,Length
0c4f e5fd | | Load 0x2,-0x3
0c50 027e | ~ | Execute Discrete,Not_Equal
0c51 680b |h | Jump_Zero 0xc5d
0c52 00da | | Load_Top At_Offset_2
0c53 01db | | Execute Vector,Length
0c54 e5fd | | Load 0x2,-0x3
0c55 0a01 | | Execute_Immediate Plus,0x1
0c56 027f | | Execute Discrete,Equal
0c57 6804 |h | Jump_Zero 0xc5c
0c58 00d8 | | Load_Top At_Offset_0
0c59 0a01 | | Execute_Immediate Plus,0x1
0c5a 0059 | Y | Store_Top Discrete,At_Offset_1
0c5b 7801 |x | Jump 0xc5d
0c5c 08e2 | | Execute_Immediate Raise,0xe2
0c5d e5fc | | Load 0x2,-0x4
0c5e 4fff |O | Short_Literal -0x1
0c5f 027f | | Execute Discrete,Equal
0c60 6839 |h9 | Jump_Zero 0xc9a
0c61 e5fd | | Load 0x2,-0x3
0c62 00da | | Load_Top At_Offset_2
0c63 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0c64 01db | | Execute Vector,Length
0c65 00db | | Load_Top At_Offset_3
0c66 2504 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x4
0c67 01db | | Execute Vector,Length
0c68 e001 | | Load 0x0,0x1
0c69 1b61 | a | Execute Package,Field_Read,Field_Number 0x61
0c6a 1c08 | | Execute_Immediate Run_Utility,0x8
0c6b 00d8 | | Load_Top At_Offset_0
0c6c 1c01 | | Execute_Immediate Run_Utility,0x1
0c6d e5fc | | Load 0x2,-0x4
0c6e 00d9 | | Load_Top At_Offset_1
0c6f 2804 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x4
0c70 00db | | Load_Top At_Offset_3
0c71 01dd | | Execute Vector,First
0c72 e605 | | Load 0x3,0x5
0c73 01dd | | Execute Vector,First
0c74 e5fd | | Load 0x2,-0x3
0c75 0273 | s | Execute Discrete,Plus
0c76 0aff | | Execute_Immediate Plus,-0x1
0c77 00d8 | | Load_Top At_Offset_0
0c78 00e2 | | Load_Encached Integer_Cache
0c79 0260 | ` | Execute Discrete,In_Type
0c7a 7001 |p | Jump_Nonzero 0xc7c
0c7b 0801 | | Execute_Immediate Raise,0x1
0c7c e605 | | Load 0x3,0x5
0c7d 01cf | | Execute Vector,Slice_Read
0c7e 00d9 | | Load_Top At_Offset_1
0c7f 00d8 | | Load_Top At_Offset_0
0c80 2506 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x6
0c81 00da | | Load_Top At_Offset_2
0c82 01da | | Execute Vector,Bounds
0c83 00da | | Load_Top At_Offset_2
0c84 01da | | Execute Vector,Bounds
0c85 00da | | Load_Top At_Offset_2
0c86 027f | | Execute Discrete,Equal
0c87 7001 |p | Jump_Nonzero 0xc89
0c88 08e0 | | Execute_Immediate Raise,0xe0
0c89 00cd | | Action Spare6_Action
0c8a 027f | | Execute Discrete,Equal
0c8b 7001 |p | Jump_Nonzero 0xc8d
0c8c 08e0 | | Execute_Immediate Raise,0xe0
0c8d 00d2 | | Pop_Control Pop_Count_2
0c8e 00d9 | | Load_Top At_Offset_1
0c8f 2906 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x6
0c90 00d9 | | Load_Top At_Offset_1
0c91 00d9 | | Load_Top At_Offset_1
0c92 2805 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x5
0c93 00da | | Load_Top At_Offset_2
0c94 e001 | | Load 0x0,0x1
0c95 1845 | E | Execute Package,Field_Execute,Field_Number 0x45
0c96 00d9 | | Load_Top At_Offset_1
0c97 2907 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x7
0c98 00cb | | Action Pop_Block_With_Result
0c99 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
0c9a e5fd | | Load 0x2,-0x3
0c9b 00da | | Load_Top At_Offset_2
0c9c 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0c9d 01db | | Execute Vector,Length
0c9e 00db | | Load_Top At_Offset_3
0c9f 2504 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x4
0ca0 01db | | Execute Vector,Length
0ca1 e001 | | Load 0x0,0x1
0ca2 1b61 | a | Execute Package,Field_Read,Field_Number 0x61
0ca3 1c08 | | Execute_Immediate Run_Utility,0x8
0ca4 00d8 | | Load_Top At_Offset_0
0ca5 1c01 | | Execute_Immediate Run_Utility,0x1
0ca6 e5fc | | Load 0x2,-0x4
0ca7 00d9 | | Load_Top At_Offset_1
0ca8 2804 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x4
0ca9 00db | | Load_Top At_Offset_3
0caa 01dd | | Execute Vector,First
0cab e605 | | Load 0x3,0x5
0cac 01dd | | Execute Vector,First
0cad e5fd | | Load 0x2,-0x3
0cae 0273 | s | Execute Discrete,Plus
0caf 0aff | | Execute_Immediate Plus,-0x1
0cb0 00d8 | | Load_Top At_Offset_0
0cb1 00e2 | | Load_Encached Integer_Cache
0cb2 0260 | ` | Execute Discrete,In_Type
0cb3 7001 |p | Jump_Nonzero 0xcb5
0cb4 0801 | | Execute_Immediate Raise,0x1
0cb5 e605 | | Load 0x3,0x5
0cb6 01cf | | Execute Vector,Slice_Read
0cb7 00d9 | | Load_Top At_Offset_1
0cb8 00d8 | | Load_Top At_Offset_0
0cb9 2506 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x6
0cba 00da | | Load_Top At_Offset_2
0cbb 01da | | Execute Vector,Bounds
0cbc 00da | | Load_Top At_Offset_2
0cbd 01da | | Execute Vector,Bounds
0cbe 00da | | Load_Top At_Offset_2
0cbf 027f | | Execute Discrete,Equal
0cc0 7001 |p | Jump_Nonzero 0xcc2
0cc1 08e0 | | Execute_Immediate Raise,0xe0
0cc2 00cd | | Action Spare6_Action
0cc3 027f | | Execute Discrete,Equal
0cc4 7001 |p | Jump_Nonzero 0xcc6
0cc5 08e0 | | Execute_Immediate Raise,0xe0
0cc6 00d2 | | Pop_Control Pop_Count_2
0cc7 00d9 | | Load_Top At_Offset_1
0cc8 2906 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x6
0cc9 00d9 | | Load_Top At_Offset_1
0cca 00d9 | | Load_Top At_Offset_1
0ccb 2805 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x5
0ccc 00da | | Load_Top At_Offset_2
0ccd 00d9 | | Load_Top At_Offset_1
0cce 2907 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x7
0ccf 00cb | | Action Pop_Block_With_Result
0cd0 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
0cd1 ; --------------------------------------------------------------------------------------
0cd1 ; STRING TABLE
0cd1 ; --------------------------------------------------------------------------------------
0cd1 0008 | | .STRTAB 0x0008->0x0cd5 ; " 0"
0cd2 0008 | | .STRTAB 0x0008->0x0cd6 ; "/"
0cd3 0007 | | .STRTAB 0x0007->0x0cd6 ; "+0"
0cd4 0007 | | .STREND 0x0007->0x0cd7
0cd5 2030 2f2b | 0/+| .STRTAB_STRINGS
0cd8 ; --------------------------------------------------------------------------------------
0cd8 ; Debug Table
0cd8 ; --------------------------------------------------------------------------------------
0cd8 0004 000d | | .DEBUG4 0x0004,0x000d,0x50bf,0x0000,0x0001,0x0000
0cde 0000 0000 | | .BLANK 0000[0x122]