|
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: 4096 (0x1000) Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_0694fc
└─⟦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 0700 | | .CONST 0x0700 ; 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 8004 | | .CONST 0x8004 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 0063 | c | .CONST 0x0063 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 001e | | .CONST 0x001e ; Number of locals 000b INIT_0008: 000b e001 | | Load 0x0,0x1 000c 0129 | ) | Execute Any,Make_Visible 000d e002 | | Load 0x0,0x2 000e 1b0d | | Execute Package,Field_Read,Field_Number 0xd 000f 0129 | ) | Execute Any,Make_Visible 0010 e002 | | Load 0x0,0x2 0011 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0012 0129 | ) | Execute Any,Make_Visible 0013 e003 | | Load 0x0,0x3 0014 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0015 0129 | ) | Execute Any,Make_Visible 0016 e003 | | Load 0x0,0x3 0017 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0018 0129 | ) | Execute Any,Make_Visible 0019 e003 | | Load 0x0,0x3 001a 1b0f | | Execute Package,Field_Read,Field_Number 0xf 001b 0129 | ) | Execute Any,Make_Visible 001c e003 | | Load 0x0,0x3 001d 1b10 | | Execute Package,Field_Read,Field_Number 0x10 001e 0129 | ) | Execute Any,Make_Visible 001f e003 | | Load 0x0,0x3 0020 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0021 0129 | ) | Execute Any,Make_Visible 0022 e003 | | Load 0x0,0x3 0023 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0024 0129 | ) | Execute Any,Make_Visible 0025 02a0 | | Declare_Subprogram Null_Subprogram 0026 4800 |H | Short_Literal 0x0 0027 032e | . | Declare_Type Record,Defined,Visible 0028 4805 |H | Short_Literal 0x5 0029 0093 0073 | s| push_full_address INIT_0070 002b 02a0 | | Declare_Subprogram Null_Subprogram 002c 038d | | Declare_Type Package,Defined,Visible,Not_Elaborated 002d 00bf | | Action Accept_Activation 002e 4800 |H | Short_Literal 0x0 002f 6038 |`8 | Indirect_Literal Discrete,0x68,{0x00000000, 0x7fffffff} 0030 e210 | | Load 0x1,0x10 0031 03f8 | | Declare_Type Discrete,Constrained 0032 4801 |H | Short_Literal 0x1 0033 4803 |H | Short_Literal 0x3 0034 e20f | | Load 0x1,0xf 0035 035b | [ | Declare_Type Array,Constrained 0036 00d8 | | Load_Top At_Offset_0 0037 0337 | 7 | Declare_Variable Array 0038 00d8 | | Load_Top At_Offset_0 0039 0335 | 5 | Declare_Variable Array,Duplicate 003a 00cd | | Action Spare6_Action 003b 4803 |H | Short_Literal 0x3 003c 4801 |H | Short_Literal 0x1 003d 4800 |H | Short_Literal 0x0 003e 00d9 | | Load_Top At_Offset_1 003f e21b | | Load 0x1,0x1b 0040 01d6 | | Execute Vector,Field_Write 0041 3ffb |? | Loop_Increasing 0x3d 0042 00d9 | | Load_Top At_Offset_1 0043 01d4 | | Execute Vector,Structure_Write 0044 4f80 |O | Short_Literal -0x80 0045 487f |H | Short_Literal 0x7f 0046 e210 | | Load 0x1,0x10 0047 03f8 | | Declare_Type Discrete,Constrained 0048 4800 |H | Short_Literal 0x0 0049 48ff |H | Short_Literal 0xff 004a e210 | | Load 0x1,0x10 004b 03f8 | | Declare_Type Discrete,Constrained 004c 4f80 |O | Short_Literal -0x80 004d 487f |H | Short_Literal 0x7f 004e e212 | | Load 0x1,0x12 004f 03f8 | | Declare_Type Discrete,Constrained 0050 4800 |H | Short_Literal 0x0 0051 48ff |H | Short_Literal 0xff 0052 e212 | | Load 0x1,0x12 0053 03f8 | | Declare_Type Discrete,Constrained 0054 e218 | | Load 0x1,0x18 0055 00b6 | | Action Make_Scope 0056 e004 | | Load 0x0,0x4 0057 e21b | | Load 0x1,0x1b 0058 e21c | | Load 0x1,0x1c 0059 e21e | | Load 0x1,0x1e 005a e005 | | Load 0x0,0x5 005b e003 | | Load 0x0,0x3 005c e21a | | Load 0x1,0x1a 005d e219 | | Load 0x1,0x19 005e 480a |H | Short_Literal 0xa 005f e217 | | Load 0x1,0x17 0060 020e | | Execute Module,Augment_Imports 0061 e217 | | Load 0x1,0x17 0062 020d | | Execute Module,Elaborate 0063 BODY_0008: 0063 00bc | | Action Signal_Activated 0064 00bb | | Action Signal_Completion 0065 0000 0000 | | .XXX[0x3] 0067 0000 | | 0068 0000 0000 | | .LITERAL {0x00000000, 0x7fffffff} 006c 0000 0000 | | .BLANK 0000[0x4] 0070 ; -------------------------------------------------------------------------------------- 0070 ; SUBPROGRAM 0070 ; -------------------------------------------------------------------------------------- 0070 00f7 | | .CONST 0x00f7 ; Address of begin 0071 0004 | | .CONST 0x0004 ; Address of exception handler 0072 002f | / | .CONST 0x002f ; Number of locals 0073 INIT_0070: 0073 029a 0103 | | Declare_Subprogram INIT_0100,For_Outer_Call,Visible,Unelaborated 0075 029a 010b | | Declare_Subprogram INIT_0108,For_Outer_Call,Visible,Unelaborated 0077 029a 0113 | | Declare_Subprogram INIT_0110,For_Outer_Call,Visible,Unelaborated 0079 029a 017b | {| Declare_Subprogram INIT_0178,For_Outer_Call,Visible,Unelaborated 007b 029a 01bb | | Declare_Subprogram INIT_01b8,For_Outer_Call,Visible,Unelaborated 007d 029a 0213 | | Declare_Subprogram INIT_0210,For_Outer_Call,Visible,Unelaborated 007f 029a 024b | K| Declare_Subprogram INIT_0248,For_Outer_Call,Visible,Unelaborated 0081 029a 0303 | | Declare_Subprogram INIT_0300,For_Outer_Call,Visible,Unelaborated 0083 029a 035b | [| Declare_Subprogram INIT_0358,For_Outer_Call,Visible,Unelaborated 0085 029a 03eb | | Declare_Subprogram INIT_03e8,For_Outer_Call,Visible,Unelaborated 0087 029a 043b | ;| Declare_Subprogram INIT_0438,For_Outer_Call,Visible,Unelaborated 0089 029a 044b | K| Declare_Subprogram INIT_0448,For_Outer_Call,Visible,Unelaborated 008b 029a 046b | k| Declare_Subprogram INIT_0468,For_Outer_Call,Visible,Unelaborated 008d 029a 0483 | | Declare_Subprogram INIT_0480,For_Outer_Call,Visible,Unelaborated 008f 029a 04a3 | | Declare_Subprogram INIT_04a0,For_Outer_Call,Visible,Unelaborated 0091 029a 04bb | | Declare_Subprogram INIT_04b8,For_Outer_Call,Visible,Unelaborated 0093 029a 04cb | | Declare_Subprogram INIT_04c8,For_Outer_Call,Visible,Unelaborated 0095 029a 04db | | Declare_Subprogram INIT_04d8,For_Outer_Call,Visible,Unelaborated 0097 029a 04f3 | | Declare_Subprogram INIT_04f0,For_Outer_Call,Visible,Unelaborated 0099 029a 050b | | Declare_Subprogram INIT_0508,For_Outer_Call,Visible,Unelaborated 009b 029a 052b | +| Declare_Subprogram INIT_0528,For_Outer_Call,Visible,Unelaborated 009d 029a 055b | [| Declare_Subprogram INIT_0558,For_Outer_Call,Visible,Unelaborated 009f 029a 058b | | Declare_Subprogram INIT_0588,For_Outer_Call,Visible,Unelaborated 00a1 029a 05c3 | | Declare_Subprogram INIT_05c0,For_Outer_Call,Visible,Unelaborated 00a3 1d10 | | Execute_Immediate Reference_Lex_1,0x10 00a4 0129 | ) | Execute Any,Make_Visible 00a5 1d11 | | Execute_Immediate Reference_Lex_1,0x11 00a6 0129 | ) | Execute Any,Make_Visible 00a7 1d28 | ( | Execute_Immediate Reference_Lex_1,0x28 00a8 0129 | ) | Execute Any,Make_Visible 00a9 1d29 | ) | Execute_Immediate Reference_Lex_1,0x29 00aa 0129 | ) | Execute Any,Make_Visible 00ab 4803 |H | Short_Literal 0x3 00ac 0093 06bb | | push_full_address INIT_06b8 00ae 02a0 | | Declare_Subprogram Null_Subprogram 00af 038d | | Declare_Type Package,Defined,Visible,Not_Elaborated 00b0 4809 |H | Short_Literal 0x9 00b1 0093 061b | | push_full_address INIT_0618 00b3 02a0 | | Declare_Subprogram Null_Subprogram 00b4 038d | | Declare_Type Package,Defined,Visible,Not_Elaborated 00b5 00bf | | Action Accept_Activation 00b6 1d12 | | Execute_Immediate Reference_Lex_1,0x12 00b7 00c7 | | Action Elaborate_Subprogram 00b8 1d13 | | Execute_Immediate Reference_Lex_1,0x13 00b9 00c7 | | Action Elaborate_Subprogram 00ba 1d14 | | Execute_Immediate Reference_Lex_1,0x14 00bb 00c7 | | Action Elaborate_Subprogram 00bc 1d15 | | Execute_Immediate Reference_Lex_1,0x15 00bd 00c7 | | Action Elaborate_Subprogram 00be 1d16 | | Execute_Immediate Reference_Lex_1,0x16 00bf 00c7 | | Action Elaborate_Subprogram 00c0 1d17 | | Execute_Immediate Reference_Lex_1,0x17 00c1 00c7 | | Action Elaborate_Subprogram 00c2 1d18 | | Execute_Immediate Reference_Lex_1,0x18 00c3 00c7 | | Action Elaborate_Subprogram 00c4 1d19 | | Execute_Immediate Reference_Lex_1,0x19 00c5 00c7 | | Action Elaborate_Subprogram 00c6 1d1a | | Execute_Immediate Reference_Lex_1,0x1a 00c7 00c7 | | Action Elaborate_Subprogram 00c8 1d1b | | Execute_Immediate Reference_Lex_1,0x1b 00c9 00c7 | | Action Elaborate_Subprogram 00ca 1d1e | | Execute_Immediate Reference_Lex_1,0x1e 00cb 00c7 | | Action Elaborate_Subprogram 00cc 1d1c | | Execute_Immediate Reference_Lex_1,0x1c 00cd 00c7 | | Action Elaborate_Subprogram 00ce 1d1d | | Execute_Immediate Reference_Lex_1,0x1d 00cf 00c7 | | Action Elaborate_Subprogram 00d0 1d1f | | Execute_Immediate Reference_Lex_1,0x1f 00d1 00c7 | | Action Elaborate_Subprogram 00d2 1d20 | | Execute_Immediate Reference_Lex_1,0x20 00d3 00c7 | | Action Elaborate_Subprogram 00d4 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21 00d5 00c7 | | Action Elaborate_Subprogram 00d6 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24 00d7 00c7 | | Action Elaborate_Subprogram 00d8 1d25 | % | Execute_Immediate Reference_Lex_1,0x25 00d9 00c7 | | Action Elaborate_Subprogram 00da 1d28 | ( | Execute_Immediate Reference_Lex_1,0x28 00db 00c7 | | Action Elaborate_Subprogram 00dc 1d29 | ) | Execute_Immediate Reference_Lex_1,0x29 00dd 00c7 | | Action Elaborate_Subprogram 00de 1d26 | & | Execute_Immediate Reference_Lex_1,0x26 00df 00c7 | | Action Elaborate_Subprogram 00e0 1d27 | ' | Execute_Immediate Reference_Lex_1,0x27 00e1 00c7 | | Action Elaborate_Subprogram 00e2 1d22 | " | Execute_Immediate Reference_Lex_1,0x22 00e3 00c7 | | Action Elaborate_Subprogram 00e4 1d23 | # | Execute_Immediate Reference_Lex_1,0x23 00e5 00c7 | | Action Elaborate_Subprogram 00e6 e001 | | Load 0x0,0x1 00e7 00b6 | | Action Make_Scope 00e8 e002 | | Load 0x0,0x2 00e9 4803 |H | Short_Literal 0x3 00ea e22e | . | Load 0x1,0x2e 00eb 020e | | Execute Module,Augment_Imports 00ec 00d9 | | Load_Top At_Offset_1 00ed 020d | | Execute Module,Elaborate 00ee 0007 | | Action Break_Optional 00ef e001 | | Load 0x0,0x1 00f0 00b6 | | Action Make_Scope 00f1 e002 | | Load 0x0,0x2 00f2 4803 |H | Short_Literal 0x3 00f3 e22f | / | Load 0x1,0x2f 00f4 020e | | Execute Module,Augment_Imports 00f5 00d8 | | Load_Top At_Offset_0 00f6 020d | | Execute Module,Elaborate 00f7 BODY_0070: 00f7 00bc | | Action Signal_Activated 00f8 00bb | | Action Signal_Completion 00f9 0000 0000 | | .BLANK 0000[0x7] 0100 ; -------------------------------------------------------------------------------------- 0100 ; SUBPROGRAM 0100 ; -------------------------------------------------------------------------------------- 0100 0103 | | .CONST 0x0103 ; Address of begin 0101 0004 | | .CONST 0x0004 ; Address of exception handler 0102 0001 | | .CONST 0x0001 ; Number of locals 0103 BODY_0100: 0103 INIT_0100: 0103 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0104 0000 0000 | | .BLANK 0000[0x4] 0108 ; -------------------------------------------------------------------------------------- 0108 ; SUBPROGRAM 0108 ; -------------------------------------------------------------------------------------- 0108 010b | | .CONST 0x010b ; Address of begin 0109 0004 | | .CONST 0x0004 ; Address of exception handler 010a 0001 | | .CONST 0x0001 ; Number of locals 010b BODY_0108: 010b INIT_0108: 010b 4502 |E | Exit_Suprogram New_Top_Offset 0x2 010c 0000 0000 | | .BLANK 0000[0x4] 0110 ; -------------------------------------------------------------------------------------- 0110 ; SUBPROGRAM 0110 ; -------------------------------------------------------------------------------------- 0110 011f | | .CONST 0x011f ; Address of begin 0111 016f | o | .CONST 0x016f ; Address of exception handler 0112 0004 | | .CONST 0x0004 ; Number of locals 0113 INIT_0110: 0113 00db | | Load_Top At_Offset_3 0114 e002 | | Load 0x0,0x2 0115 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0116 03f1 | | Declare_Variable Discrete,With_Value 0117 4801 |H | Short_Literal 0x1 0118 4804 |H | Short_Literal 0x4 0119 e002 | | Load 0x0,0x2 011a 1b0f | | Execute Package,Field_Read,Field_Number 0xf 011b 035b | [ | Declare_Type Array,Constrained 011c 0337 | 7 | Declare_Variable Array 011d e002 | | Load 0x0,0x2 011e 1b10 | | Execute Package,Field_Read,Field_Number 0x10 011f BODY_0110: 011f 00da | | Load_Top At_Offset_2 0120 48ff |H | Short_Literal 0xff 0121 0279 | y | Execute Discrete,And 0122 0059 | Y | Store_Top Discrete,At_Offset_1 0123 00d8 | | Load_Top At_Offset_0 0124 00d8 | | Load_Top At_Offset_0 0125 e003 | | Load 0x0,0x3 0126 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0127 0260 | ` | Execute Discrete,In_Type 0128 7001 |p | Jump_Nonzero 0x12a 0129 0801 | | Execute_Immediate Raise,0x1 012a 4804 |H | Short_Literal 0x4 012b 00db | | Load_Top At_Offset_3 012c 01d6 | | Execute Vector,Field_Write 012d 00da | | Load_Top At_Offset_2 012e 00d9 | | Load_Top At_Offset_1 012f 0272 | r | Execute Discrete,Minus 0130 09f8 | | Execute_Immediate Binary_Scale,-0x8 0131 005b | [ | Store_Top Discrete,At_Offset_3 0132 00da | | Load_Top At_Offset_2 0133 48ff |H | Short_Literal 0xff 0134 0279 | y | Execute Discrete,And 0135 0059 | Y | Store_Top Discrete,At_Offset_1 0136 00d8 | | Load_Top At_Offset_0 0137 00d8 | | Load_Top At_Offset_0 0138 e003 | | Load 0x0,0x3 0139 1b11 | | Execute Package,Field_Read,Field_Number 0x11 013a 0260 | ` | Execute Discrete,In_Type 013b 7001 |p | Jump_Nonzero 0x13d 013c 0801 | | Execute_Immediate Raise,0x1 013d 4803 |H | Short_Literal 0x3 013e 00db | | Load_Top At_Offset_3 013f 01d6 | | Execute Vector,Field_Write 0140 00da | | Load_Top At_Offset_2 0141 00d9 | | Load_Top At_Offset_1 0142 0272 | r | Execute Discrete,Minus 0143 09f8 | | Execute_Immediate Binary_Scale,-0x8 0144 005b | [ | Store_Top Discrete,At_Offset_3 0145 00da | | Load_Top At_Offset_2 0146 48ff |H | Short_Literal 0xff 0147 0279 | y | Execute Discrete,And 0148 0059 | Y | Store_Top Discrete,At_Offset_1 0149 00d8 | | Load_Top At_Offset_0 014a 00d8 | | Load_Top At_Offset_0 014b e003 | | Load 0x0,0x3 014c 1b11 | | Execute Package,Field_Read,Field_Number 0x11 014d 0260 | ` | Execute Discrete,In_Type 014e 7001 |p | Jump_Nonzero 0x150 014f 0801 | | Execute_Immediate Raise,0x1 0150 4802 |H | Short_Literal 0x2 0151 00db | | Load_Top At_Offset_3 0152 01d6 | | Execute Vector,Field_Write 0153 00da | | Load_Top At_Offset_2 0154 00d9 | | Load_Top At_Offset_1 0155 0272 | r | Execute Discrete,Minus 0156 09f8 | | Execute_Immediate Binary_Scale,-0x8 0157 005b | [ | Store_Top Discrete,At_Offset_3 0158 00da | | Load_Top At_Offset_2 0159 00d8 | | Load_Top At_Offset_0 015a e004 | | Load 0x0,0x4 015b 0260 | ` | Execute Discrete,In_Type 015c 7001 |p | Jump_Nonzero 0x15e 015d 0801 | | Execute_Immediate Raise,0x1 015e 48ff |H | Short_Literal 0xff 015f 0279 | y | Execute Discrete,And 0160 00d8 | | Load_Top At_Offset_0 0161 e003 | | Load 0x0,0x3 0162 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0163 0260 | ` | Execute Discrete,In_Type 0164 7001 |p | Jump_Nonzero 0x166 0165 0801 | | Execute_Immediate Raise,0x1 0166 4801 |H | Short_Literal 0x1 0167 00db | | Load_Top At_Offset_3 0168 01d6 | | Execute Vector,Field_Write 0169 00d9 | | Load_Top At_Offset_1 016a e5ff | | Load 0x2,-0x1 016b e20f | | Load 0x1,0xf 016c 0119 | | Execute Any,Check_In_Formal_Type 016d 8210 | | Call 0x1,0x10 016e 4503 |E | Exit_Suprogram New_Top_Offset 0x3 016f TRAP_0110: 016f 010e | | Execute Exception,Is_Constraint_Error 0170 7002 |p | Jump_Nonzero 0x173 0171 010d | | Execute Exception,Is_Numeric_Error 0172 6803 |h | Jump_Zero 0x176 0173 e002 | | Load 0x0,0x2 0174 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0175 0257 | W | Execute Discrete,Raise 0176 0100 | | Execute Exception,Raise 0177 0000 | | .XXX[0x1] 0178 ; -------------------------------------------------------------------------------------- 0178 ; SUBPROGRAM 0178 ; -------------------------------------------------------------------------------------- 0178 0183 | | .CONST 0x0183 ; Address of begin 0179 01aa | | .CONST 0x01aa ; Address of exception handler 017a 0003 | | .CONST 0x0003 ; Number of locals 017b INIT_0178: 017b 4801 |H | Short_Literal 0x1 017c 4804 |H | Short_Literal 0x4 017d e002 | | Load 0x0,0x2 017e 1b0f | | Execute Package,Field_Read,Field_Number 0xf 017f 035b | [ | Declare_Type Array,Constrained 0180 0337 | 7 | Declare_Variable Array 0181 e002 | | Load 0x0,0x2 0182 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0183 BODY_0178: 0183 00d9 | | Load_Top At_Offset_1 0184 e5ff | | Load 0x2,-0x1 0185 e20f | | Load 0x1,0xf 0186 0119 | | Execute Any,Check_In_Formal_Type 0187 8211 | | Call 0x1,0x11 0188 00d1 | | Pop_Control Pop_Count_1 0189 4801 |H | Short_Literal 0x1 018a 00da | | Load_Top At_Offset_2 018b 01d7 | | Execute Vector,Field_Read 018c 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 018d 00d8 | | Load_Top At_Offset_0 018e 0c80 | | Execute_Immediate Greater_Equal,-0x80 018f 6804 |h | Jump_Zero 0x194 0190 00d8 | | Load_Top At_Offset_0 0191 4f00 |O | Short_Literal -0x100 0192 0273 | s | Execute Discrete,Plus 0193 0059 | Y | Store_Top Discrete,At_Offset_1 0194 00d8 | | Load_Top At_Offset_0 0195 0908 | | Execute_Immediate Binary_Scale,0x8 0196 4802 |H | Short_Literal 0x2 0197 00db | | Load_Top At_Offset_3 0198 01d7 | | Execute Vector,Field_Read 0199 0273 | s | Execute Discrete,Plus 019a 0059 | Y | Store_Top Discrete,At_Offset_1 019b 00d8 | | Load_Top At_Offset_0 019c 0908 | | Execute_Immediate Binary_Scale,0x8 019d 4803 |H | Short_Literal 0x3 019e 00db | | Load_Top At_Offset_3 019f 01d7 | | Execute Vector,Field_Read 01a0 0273 | s | Execute Discrete,Plus 01a1 0059 | Y | Store_Top Discrete,At_Offset_1 01a2 00d8 | | Load_Top At_Offset_0 01a3 0908 | | Execute_Immediate Binary_Scale,0x8 01a4 4804 |H | Short_Literal 0x4 01a5 00db | | Load_Top At_Offset_3 01a6 01d7 | | Execute Vector,Field_Read 01a7 0273 | s | Execute Discrete,Plus 01a8 c5fe | | Store 0x2,-0x2 01a9 4502 |E | Exit_Suprogram New_Top_Offset 0x2 01aa TRAP_0178: 01aa 010e | | Execute Exception,Is_Constraint_Error 01ab 7002 |p | Jump_Nonzero 0x1ae 01ac 010d | | Execute Exception,Is_Numeric_Error 01ad 6803 |h | Jump_Zero 0x1b1 01ae e002 | | Load 0x0,0x2 01af 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01b0 0257 | W | Execute Discrete,Raise 01b1 0100 | | Execute Exception,Raise 01b2 0000 0000 | | .BLANK 0000[0x6] 01b8 ; -------------------------------------------------------------------------------------- 01b8 ; SUBPROGRAM 01b8 ; -------------------------------------------------------------------------------------- 01b8 01c5 | | .CONST 0x01c5 ; Address of begin 01b9 0201 | | .CONST 0x0201 ; Address of exception handler 01ba 0003 | | .CONST 0x0003 ; Number of locals 01bb INIT_01b8: 01bb 00db | | Load_Top At_Offset_3 01bc e002 | | Load 0x0,0x2 01bd 1b11 | | Execute Package,Field_Read,Field_Number 0x11 01be 03f1 | | Declare_Variable Discrete,With_Value 01bf 4801 |H | Short_Literal 0x1 01c0 4804 |H | Short_Literal 0x4 01c1 e002 | | Load 0x0,0x2 01c2 1b0f | | Execute Package,Field_Read,Field_Number 0xf 01c3 035b | [ | Declare_Type Array,Constrained 01c4 0337 | 7 | Declare_Variable Array 01c5 BODY_01b8: 01c5 00d9 | | Load_Top At_Offset_1 01c6 48ff |H | Short_Literal 0xff 01c7 0279 | y | Execute Discrete,And 01c8 00d8 | | Load_Top At_Offset_0 01c9 e003 | | Load 0x0,0x3 01ca 1b11 | | Execute Package,Field_Read,Field_Number 0x11 01cb 0260 | ` | Execute Discrete,In_Type 01cc 7001 |p | Jump_Nonzero 0x1ce 01cd 0801 | | Execute_Immediate Raise,0x1 01ce 4804 |H | Short_Literal 0x4 01cf 00da | | Load_Top At_Offset_2 01d0 01d6 | | Execute Vector,Field_Write 01d1 00d9 | | Load_Top At_Offset_1 01d2 09f8 | | Execute_Immediate Binary_Scale,-0x8 01d3 005a | Z | Store_Top Discrete,At_Offset_2 01d4 00d9 | | Load_Top At_Offset_1 01d5 48ff |H | Short_Literal 0xff 01d6 0279 | y | Execute Discrete,And 01d7 00d8 | | Load_Top At_Offset_0 01d8 e003 | | Load 0x0,0x3 01d9 1b11 | | Execute Package,Field_Read,Field_Number 0x11 01da 0260 | ` | Execute Discrete,In_Type 01db 7001 |p | Jump_Nonzero 0x1dd 01dc 0801 | | Execute_Immediate Raise,0x1 01dd 4803 |H | Short_Literal 0x3 01de 00da | | Load_Top At_Offset_2 01df 01d6 | | Execute Vector,Field_Write 01e0 00d9 | | Load_Top At_Offset_1 01e1 09f8 | | Execute_Immediate Binary_Scale,-0x8 01e2 005a | Z | Store_Top Discrete,At_Offset_2 01e3 00d9 | | Load_Top At_Offset_1 01e4 48ff |H | Short_Literal 0xff 01e5 0279 | y | Execute Discrete,And 01e6 00d8 | | Load_Top At_Offset_0 01e7 e003 | | Load 0x0,0x3 01e8 1b11 | | Execute Package,Field_Read,Field_Number 0x11 01e9 0260 | ` | Execute Discrete,In_Type 01ea 7001 |p | Jump_Nonzero 0x1ec 01eb 0801 | | Execute_Immediate Raise,0x1 01ec 4802 |H | Short_Literal 0x2 01ed 00da | | Load_Top At_Offset_2 01ee 01d6 | | Execute Vector,Field_Write 01ef 00d9 | | Load_Top At_Offset_1 01f0 09f8 | | Execute_Immediate Binary_Scale,-0x8 01f1 005a | Z | Store_Top Discrete,At_Offset_2 01f2 00d9 | | Load_Top At_Offset_1 01f3 00d8 | | Load_Top At_Offset_0 01f4 e005 | | Load 0x0,0x5 01f5 0260 | ` | Execute Discrete,In_Type 01f6 7001 |p | Jump_Nonzero 0x1f8 01f7 0801 | | Execute_Immediate Raise,0x1 01f8 4801 |H | Short_Literal 0x1 01f9 00da | | Load_Top At_Offset_2 01fa 01d6 | | Execute Vector,Field_Write 01fb 00d8 | | Load_Top At_Offset_0 01fc e5ff | | Load 0x2,-0x1 01fd e20f | | Load 0x1,0xf 01fe 0119 | | Execute Any,Check_In_Formal_Type 01ff 8210 | | Call 0x1,0x10 0200 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0201 TRAP_01b8: 0201 010e | | Execute Exception,Is_Constraint_Error 0202 7002 |p | Jump_Nonzero 0x205 0203 010d | | Execute Exception,Is_Numeric_Error 0204 6803 |h | Jump_Zero 0x208 0205 e002 | | Load 0x0,0x2 0206 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0207 0257 | W | Execute Discrete,Raise 0208 0100 | | Execute Exception,Raise 0209 0000 0000 | | .BLANK 0000[0x7] 0210 ; -------------------------------------------------------------------------------------- 0210 ; SUBPROGRAM 0210 ; -------------------------------------------------------------------------------------- 0210 021b | | .CONST 0x021b ; Address of begin 0211 023b | ; | .CONST 0x023b ; Address of exception handler 0212 0003 | | .CONST 0x0003 ; Number of locals 0213 INIT_0210: 0213 4801 |H | Short_Literal 0x1 0214 4804 |H | Short_Literal 0x4 0215 e002 | | Load 0x0,0x2 0216 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0217 035b | [ | Declare_Type Array,Constrained 0218 0337 | 7 | Declare_Variable Array 0219 e002 | | Load 0x0,0x2 021a 1b11 | | Execute Package,Field_Read,Field_Number 0x11 021b BODY_0210: 021b 00d9 | | Load_Top At_Offset_1 021c e5ff | | Load 0x2,-0x1 021d e20f | | Load 0x1,0xf 021e 0119 | | Execute Any,Check_In_Formal_Type 021f 8211 | | Call 0x1,0x11 0220 00d1 | | Pop_Control Pop_Count_1 0221 4801 |H | Short_Literal 0x1 0222 00da | | Load_Top At_Offset_2 0223 01d7 | | Execute Vector,Field_Read 0224 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 0225 00d8 | | Load_Top At_Offset_0 0226 0908 | | Execute_Immediate Binary_Scale,0x8 0227 4802 |H | Short_Literal 0x2 0228 00db | | Load_Top At_Offset_3 0229 01d7 | | Execute Vector,Field_Read 022a 0273 | s | Execute Discrete,Plus 022b 0059 | Y | Store_Top Discrete,At_Offset_1 022c 00d8 | | Load_Top At_Offset_0 022d 0908 | | Execute_Immediate Binary_Scale,0x8 022e 4803 |H | Short_Literal 0x3 022f 00db | | Load_Top At_Offset_3 0230 01d7 | | Execute Vector,Field_Read 0231 0273 | s | Execute Discrete,Plus 0232 0059 | Y | Store_Top Discrete,At_Offset_1 0233 00d8 | | Load_Top At_Offset_0 0234 0908 | | Execute_Immediate Binary_Scale,0x8 0235 4804 |H | Short_Literal 0x4 0236 00db | | Load_Top At_Offset_3 0237 01d7 | | Execute Vector,Field_Read 0238 0273 | s | Execute Discrete,Plus 0239 c5fe | | Store 0x2,-0x2 023a 4502 |E | Exit_Suprogram New_Top_Offset 0x2 023b TRAP_0210: 023b 010e | | Execute Exception,Is_Constraint_Error 023c 7002 |p | Jump_Nonzero 0x23f 023d 010d | | Execute Exception,Is_Numeric_Error 023e 6803 |h | Jump_Zero 0x242 023f e002 | | Load 0x0,0x2 0240 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0241 0257 | W | Execute Discrete,Raise 0242 0100 | | Execute Exception,Raise 0243 0000 0000 | | .BLANK 0000[0x5] 0248 ; -------------------------------------------------------------------------------------- 0248 ; SUBPROGRAM 0248 ; -------------------------------------------------------------------------------------- 0248 0257 | W | .CONST 0x0257 ; Address of begin 0249 02f3 | | .CONST 0x02f3 ; Address of exception handler 024a 0004 | | .CONST 0x0004 ; Number of locals 024b INIT_0248: 024b 00db | | Load_Top At_Offset_3 024c e002 | | Load 0x0,0x2 024d 1b12 | | Execute Package,Field_Read,Field_Number 0x12 024e 03f1 | | Declare_Variable Discrete,With_Value 024f 4801 |H | Short_Literal 0x1 0250 4808 |H | Short_Literal 0x8 0251 e002 | | Load 0x0,0x2 0252 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0253 035b | [ | Declare_Type Array,Constrained 0254 0337 | 7 | Declare_Variable Array 0255 e002 | | Load 0x0,0x2 0256 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0257 BODY_0248: 0257 00da | | Load_Top At_Offset_2 0258 48ff |H | Short_Literal 0xff 0259 0279 | y | Execute Discrete,And 025a 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 025b 00d8 | | Load_Top At_Offset_0 025c 00d8 | | Load_Top At_Offset_0 025d e003 | | Load 0x0,0x3 025e 1b11 | | Execute Package,Field_Read,Field_Number 0x11 025f 0260 | ` | Execute Discrete,In_Type 0260 7001 |p | Jump_Nonzero 0x262 0261 0801 | | Execute_Immediate Raise,0x1 0262 4808 |H | Short_Literal 0x8 0263 00db | | Load_Top At_Offset_3 0264 01d6 | | Execute Vector,Field_Write 0265 00da | | Load_Top At_Offset_2 0266 00d9 | | Load_Top At_Offset_1 0267 0272 | r | Execute Discrete,Minus 0268 09f8 | | Execute_Immediate Binary_Scale,-0x8 0269 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 026a 00da | | Load_Top At_Offset_2 026b 48ff |H | Short_Literal 0xff 026c 0279 | y | Execute Discrete,And 026d 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 026e 00d8 | | Load_Top At_Offset_0 026f 00d8 | | Load_Top At_Offset_0 0270 e003 | | Load 0x0,0x3 0271 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0272 0260 | ` | Execute Discrete,In_Type 0273 7001 |p | Jump_Nonzero 0x275 0274 0801 | | Execute_Immediate Raise,0x1 0275 4807 |H | Short_Literal 0x7 0276 00db | | Load_Top At_Offset_3 0277 01d6 | | Execute Vector,Field_Write 0278 00da | | Load_Top At_Offset_2 0279 00d9 | | Load_Top At_Offset_1 027a 0272 | r | Execute Discrete,Minus 027b 09f8 | | Execute_Immediate Binary_Scale,-0x8 027c 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 027d 00da | | Load_Top At_Offset_2 027e 48ff |H | Short_Literal 0xff 027f 0279 | y | Execute Discrete,And 0280 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 0281 00d8 | | Load_Top At_Offset_0 0282 00d8 | | Load_Top At_Offset_0 0283 e003 | | Load 0x0,0x3 0284 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0285 0260 | ` | Execute Discrete,In_Type 0286 7001 |p | Jump_Nonzero 0x288 0287 0801 | | Execute_Immediate Raise,0x1 0288 4806 |H | Short_Literal 0x6 0289 00db | | Load_Top At_Offset_3 028a 01d6 | | Execute Vector,Field_Write 028b 00da | | Load_Top At_Offset_2 028c 00d9 | | Load_Top At_Offset_1 028d 0272 | r | Execute Discrete,Minus 028e 09f8 | | Execute_Immediate Binary_Scale,-0x8 028f 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 0290 00da | | Load_Top At_Offset_2 0291 48ff |H | Short_Literal 0xff 0292 0279 | y | Execute Discrete,And 0293 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 0294 00d8 | | Load_Top At_Offset_0 0295 00d8 | | Load_Top At_Offset_0 0296 e003 | | Load 0x0,0x3 0297 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0298 0260 | ` | Execute Discrete,In_Type 0299 7001 |p | Jump_Nonzero 0x29b 029a 0801 | | Execute_Immediate Raise,0x1 029b 4805 |H | Short_Literal 0x5 029c 00db | | Load_Top At_Offset_3 029d 01d6 | | Execute Vector,Field_Write 029e 00da | | Load_Top At_Offset_2 029f 00d9 | | Load_Top At_Offset_1 02a0 0272 | r | Execute Discrete,Minus 02a1 09f8 | | Execute_Immediate Binary_Scale,-0x8 02a2 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 02a3 00da | | Load_Top At_Offset_2 02a4 48ff |H | Short_Literal 0xff 02a5 0279 | y | Execute Discrete,And 02a6 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 02a7 00d8 | | Load_Top At_Offset_0 02a8 00d8 | | Load_Top At_Offset_0 02a9 e003 | | Load 0x0,0x3 02aa 1b11 | | Execute Package,Field_Read,Field_Number 0x11 02ab 0260 | ` | Execute Discrete,In_Type 02ac 7001 |p | Jump_Nonzero 0x2ae 02ad 0801 | | Execute_Immediate Raise,0x1 02ae 4804 |H | Short_Literal 0x4 02af 00db | | Load_Top At_Offset_3 02b0 01d6 | | Execute Vector,Field_Write 02b1 00da | | Load_Top At_Offset_2 02b2 00d9 | | Load_Top At_Offset_1 02b3 0272 | r | Execute Discrete,Minus 02b4 09f8 | | Execute_Immediate Binary_Scale,-0x8 02b5 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 02b6 00da | | Load_Top At_Offset_2 02b7 48ff |H | Short_Literal 0xff 02b8 0279 | y | Execute Discrete,And 02b9 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 02ba 00d8 | | Load_Top At_Offset_0 02bb 00d8 | | Load_Top At_Offset_0 02bc e003 | | Load 0x0,0x3 02bd 1b11 | | Execute Package,Field_Read,Field_Number 0x11 02be 0260 | ` | Execute Discrete,In_Type 02bf 7001 |p | Jump_Nonzero 0x2c1 02c0 0801 | | Execute_Immediate Raise,0x1 02c1 4803 |H | Short_Literal 0x3 02c2 00db | | Load_Top At_Offset_3 02c3 01d6 | | Execute Vector,Field_Write 02c4 00da | | Load_Top At_Offset_2 02c5 00d9 | | Load_Top At_Offset_1 02c6 0272 | r | Execute Discrete,Minus 02c7 09f8 | | Execute_Immediate Binary_Scale,-0x8 02c8 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 02c9 00da | | Load_Top At_Offset_2 02ca 48ff |H | Short_Literal 0xff 02cb 0279 | y | Execute Discrete,And 02cc 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 02cd 00d8 | | Load_Top At_Offset_0 02ce 00d8 | | Load_Top At_Offset_0 02cf e003 | | Load 0x0,0x3 02d0 1b11 | | Execute Package,Field_Read,Field_Number 0x11 02d1 0260 | ` | Execute Discrete,In_Type 02d2 7001 |p | Jump_Nonzero 0x2d4 02d3 0801 | | Execute_Immediate Raise,0x1 02d4 4802 |H | Short_Literal 0x2 02d5 00db | | Load_Top At_Offset_3 02d6 01d6 | | Execute Vector,Field_Write 02d7 00da | | Load_Top At_Offset_2 02d8 00d9 | | Load_Top At_Offset_1 02d9 0272 | r | Execute Discrete,Minus 02da 09f8 | | Execute_Immediate Binary_Scale,-0x8 02db 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 02dc 00da | | Load_Top At_Offset_2 02dd 00d8 | | Load_Top At_Offset_0 02de e004 | | Load 0x0,0x4 02df 0260 | ` | Execute Discrete,In_Type 02e0 7001 |p | Jump_Nonzero 0x2e2 02e1 0801 | | Execute_Immediate Raise,0x1 02e2 48ff |H | Short_Literal 0xff 02e3 0279 | y | Execute Discrete,And 02e4 00d8 | | Load_Top At_Offset_0 02e5 e003 | | Load 0x0,0x3 02e6 1b11 | | Execute Package,Field_Read,Field_Number 0x11 02e7 0260 | ` | Execute Discrete,In_Type 02e8 7001 |p | Jump_Nonzero 0x2ea 02e9 0801 | | Execute_Immediate Raise,0x1 02ea 4801 |H | Short_Literal 0x1 02eb 00db | | Load_Top At_Offset_3 02ec 01d6 | | Execute Vector,Field_Write 02ed 00d9 | | Load_Top At_Offset_1 02ee e5ff | | Load 0x2,-0x1 02ef e20f | | Load 0x1,0xf 02f0 0119 | | Execute Any,Check_In_Formal_Type 02f1 8210 | | Call 0x1,0x10 02f2 4503 |E | Exit_Suprogram New_Top_Offset 0x3 02f3 TRAP_0248: 02f3 010e | | Execute Exception,Is_Constraint_Error 02f4 7002 |p | Jump_Nonzero 0x2f7 02f5 010d | | Execute Exception,Is_Numeric_Error 02f6 6803 |h | Jump_Zero 0x2fa 02f7 e002 | | Load 0x0,0x2 02f8 1b0d | | Execute Package,Field_Read,Field_Number 0xd 02f9 0257 | W | Execute Discrete,Raise 02fa 0100 | | Execute Exception,Raise 02fb 0000 0000 | | .BLANK 0000[0x5] 0300 ; -------------------------------------------------------------------------------------- 0300 ; SUBPROGRAM 0300 ; -------------------------------------------------------------------------------------- 0300 030b | | .CONST 0x030b ; Address of begin 0301 034e | N | .CONST 0x034e ; Address of exception handler 0302 0003 | | .CONST 0x0003 ; Number of locals 0303 INIT_0300: 0303 4801 |H | Short_Literal 0x1 0304 4808 |H | Short_Literal 0x8 0305 e002 | | Load 0x0,0x2 0306 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0307 035b | [ | Declare_Type Array,Constrained 0308 0337 | 7 | Declare_Variable Array 0309 e002 | | Load 0x0,0x2 030a 1b12 | | Execute Package,Field_Read,Field_Number 0x12 030b BODY_0300: 030b 00d9 | | Load_Top At_Offset_1 030c e5ff | | Load 0x2,-0x1 030d e20f | | Load 0x1,0xf 030e 0119 | | Execute Any,Check_In_Formal_Type 030f 8211 | | Call 0x1,0x11 0310 00d1 | | Pop_Control Pop_Count_1 0311 4801 |H | Short_Literal 0x1 0312 00da | | Load_Top At_Offset_2 0313 01d7 | | Execute Vector,Field_Read 0314 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 0315 00d8 | | Load_Top At_Offset_0 0316 0c80 | | Execute_Immediate Greater_Equal,-0x80 0317 6804 |h | Jump_Zero 0x31c 0318 00d8 | | Load_Top At_Offset_0 0319 4f00 |O | Short_Literal -0x100 031a 0273 | s | Execute Discrete,Plus 031b 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 031c 00d8 | | Load_Top At_Offset_0 031d 0908 | | Execute_Immediate Binary_Scale,0x8 031e 4802 |H | Short_Literal 0x2 031f 00db | | Load_Top At_Offset_3 0320 01d7 | | Execute Vector,Field_Read 0321 0273 | s | Execute Discrete,Plus 0322 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 0323 00d8 | | Load_Top At_Offset_0 0324 0908 | | Execute_Immediate Binary_Scale,0x8 0325 4803 |H | Short_Literal 0x3 0326 00db | | Load_Top At_Offset_3 0327 01d7 | | Execute Vector,Field_Read 0328 0273 | s | Execute Discrete,Plus 0329 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 032a 00d8 | | Load_Top At_Offset_0 032b 0908 | | Execute_Immediate Binary_Scale,0x8 032c 4804 |H | Short_Literal 0x4 032d 00db | | Load_Top At_Offset_3 032e 01d7 | | Execute Vector,Field_Read 032f 0273 | s | Execute Discrete,Plus 0330 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 0331 00d8 | | Load_Top At_Offset_0 0332 0908 | | Execute_Immediate Binary_Scale,0x8 0333 4805 |H | Short_Literal 0x5 0334 00db | | Load_Top At_Offset_3 0335 01d7 | | Execute Vector,Field_Read 0336 0273 | s | Execute Discrete,Plus 0337 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 0338 00d8 | | Load_Top At_Offset_0 0339 0908 | | Execute_Immediate Binary_Scale,0x8 033a 4806 |H | Short_Literal 0x6 033b 00db | | Load_Top At_Offset_3 033c 01d7 | | Execute Vector,Field_Read 033d 0273 | s | Execute Discrete,Plus 033e 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 033f 00d8 | | Load_Top At_Offset_0 0340 0908 | | Execute_Immediate Binary_Scale,0x8 0341 4807 |H | Short_Literal 0x7 0342 00db | | Load_Top At_Offset_3 0343 01d7 | | Execute Vector,Field_Read 0344 0273 | s | Execute Discrete,Plus 0345 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 0346 00d8 | | Load_Top At_Offset_0 0347 0908 | | Execute_Immediate Binary_Scale,0x8 0348 4808 |H | Short_Literal 0x8 0349 00db | | Load_Top At_Offset_3 034a 01d7 | | Execute Vector,Field_Read 034b 0273 | s | Execute Discrete,Plus 034c a5fe | | Store_Unchecked 0x2,-0x2 034d 4502 |E | Exit_Suprogram New_Top_Offset 0x2 034e TRAP_0300: 034e 010e | | Execute Exception,Is_Constraint_Error 034f 7002 |p | Jump_Nonzero 0x352 0350 010d | | Execute Exception,Is_Numeric_Error 0351 6803 |h | Jump_Zero 0x355 0352 e002 | | Load 0x0,0x2 0353 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0354 0257 | W | Execute Discrete,Raise 0355 0100 | | Execute Exception,Raise 0356 0000 0000 | | .XXX[0x2] 0358 ; -------------------------------------------------------------------------------------- 0358 ; SUBPROGRAM 0358 ; -------------------------------------------------------------------------------------- 0358 0365 | e | .CONST 0x0365 ; Address of begin 0359 03dd | | .CONST 0x03dd ; Address of exception handler 035a 0003 | | .CONST 0x0003 ; Number of locals 035b INIT_0358: 035b 00db | | Load_Top At_Offset_3 035c e002 | | Load 0x0,0x2 035d 1b13 | | Execute Package,Field_Read,Field_Number 0x13 035e 03f1 | | Declare_Variable Discrete,With_Value 035f 4801 |H | Short_Literal 0x1 0360 4808 |H | Short_Literal 0x8 0361 e002 | | Load 0x0,0x2 0362 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0363 035b | [ | Declare_Type Array,Constrained 0364 0337 | 7 | Declare_Variable Array 0365 BODY_0358: 0365 00d9 | | Load_Top At_Offset_1 0366 48ff |H | Short_Literal 0xff 0367 0279 | y | Execute Discrete,And 0368 00d8 | | Load_Top At_Offset_0 0369 e003 | | Load 0x0,0x3 036a 1b11 | | Execute Package,Field_Read,Field_Number 0x11 036b 0260 | ` | Execute Discrete,In_Type 036c 7001 |p | Jump_Nonzero 0x36e 036d 0801 | | Execute_Immediate Raise,0x1 036e 4808 |H | Short_Literal 0x8 036f 00da | | Load_Top At_Offset_2 0370 01d6 | | Execute Vector,Field_Write 0371 00d9 | | Load_Top At_Offset_1 0372 09f8 | | Execute_Immediate Binary_Scale,-0x8 0373 005a | Z | Store_Top Discrete,At_Offset_2 0374 00d9 | | Load_Top At_Offset_1 0375 48ff |H | Short_Literal 0xff 0376 0279 | y | Execute Discrete,And 0377 00d8 | | Load_Top At_Offset_0 0378 e003 | | Load 0x0,0x3 0379 1b11 | | Execute Package,Field_Read,Field_Number 0x11 037a 0260 | ` | Execute Discrete,In_Type 037b 7001 |p | Jump_Nonzero 0x37d 037c 0801 | | Execute_Immediate Raise,0x1 037d 4807 |H | Short_Literal 0x7 037e 00da | | Load_Top At_Offset_2 037f 01d6 | | Execute Vector,Field_Write 0380 00d9 | | Load_Top At_Offset_1 0381 09f8 | | Execute_Immediate Binary_Scale,-0x8 0382 005a | Z | Store_Top Discrete,At_Offset_2 0383 00d9 | | Load_Top At_Offset_1 0384 48ff |H | Short_Literal 0xff 0385 0279 | y | Execute Discrete,And 0386 00d8 | | Load_Top At_Offset_0 0387 e003 | | Load 0x0,0x3 0388 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0389 0260 | ` | Execute Discrete,In_Type 038a 7001 |p | Jump_Nonzero 0x38c 038b 0801 | | Execute_Immediate Raise,0x1 038c 4806 |H | Short_Literal 0x6 038d 00da | | Load_Top At_Offset_2 038e 01d6 | | Execute Vector,Field_Write 038f 00d9 | | Load_Top At_Offset_1 0390 09f8 | | Execute_Immediate Binary_Scale,-0x8 0391 005a | Z | Store_Top Discrete,At_Offset_2 0392 00d9 | | Load_Top At_Offset_1 0393 48ff |H | Short_Literal 0xff 0394 0279 | y | Execute Discrete,And 0395 00d8 | | Load_Top At_Offset_0 0396 e003 | | Load 0x0,0x3 0397 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0398 0260 | ` | Execute Discrete,In_Type 0399 7001 |p | Jump_Nonzero 0x39b 039a 0801 | | Execute_Immediate Raise,0x1 039b 4805 |H | Short_Literal 0x5 039c 00da | | Load_Top At_Offset_2 039d 01d6 | | Execute Vector,Field_Write 039e 00d9 | | Load_Top At_Offset_1 039f 09f8 | | Execute_Immediate Binary_Scale,-0x8 03a0 005a | Z | Store_Top Discrete,At_Offset_2 03a1 00d9 | | Load_Top At_Offset_1 03a2 48ff |H | Short_Literal 0xff 03a3 0279 | y | Execute Discrete,And 03a4 00d8 | | Load_Top At_Offset_0 03a5 e003 | | Load 0x0,0x3 03a6 1b11 | | Execute Package,Field_Read,Field_Number 0x11 03a7 0260 | ` | Execute Discrete,In_Type 03a8 7001 |p | Jump_Nonzero 0x3aa 03a9 0801 | | Execute_Immediate Raise,0x1 03aa 4804 |H | Short_Literal 0x4 03ab 00da | | Load_Top At_Offset_2 03ac 01d6 | | Execute Vector,Field_Write 03ad 00d9 | | Load_Top At_Offset_1 03ae 09f8 | | Execute_Immediate Binary_Scale,-0x8 03af 005a | Z | Store_Top Discrete,At_Offset_2 03b0 00d9 | | Load_Top At_Offset_1 03b1 48ff |H | Short_Literal 0xff 03b2 0279 | y | Execute Discrete,And 03b3 00d8 | | Load_Top At_Offset_0 03b4 e003 | | Load 0x0,0x3 03b5 1b11 | | Execute Package,Field_Read,Field_Number 0x11 03b6 0260 | ` | Execute Discrete,In_Type 03b7 7001 |p | Jump_Nonzero 0x3b9 03b8 0801 | | Execute_Immediate Raise,0x1 03b9 4803 |H | Short_Literal 0x3 03ba 00da | | Load_Top At_Offset_2 03bb 01d6 | | Execute Vector,Field_Write 03bc 00d9 | | Load_Top At_Offset_1 03bd 09f8 | | Execute_Immediate Binary_Scale,-0x8 03be 005a | Z | Store_Top Discrete,At_Offset_2 03bf 00d9 | | Load_Top At_Offset_1 03c0 48ff |H | Short_Literal 0xff 03c1 0279 | y | Execute Discrete,And 03c2 00d8 | | Load_Top At_Offset_0 03c3 e003 | | Load 0x0,0x3 03c4 1b11 | | Execute Package,Field_Read,Field_Number 0x11 03c5 0260 | ` | Execute Discrete,In_Type 03c6 7001 |p | Jump_Nonzero 0x3c8 03c7 0801 | | Execute_Immediate Raise,0x1 03c8 4802 |H | Short_Literal 0x2 03c9 00da | | Load_Top At_Offset_2 03ca 01d6 | | Execute Vector,Field_Write 03cb 00d9 | | Load_Top At_Offset_1 03cc 09f8 | | Execute_Immediate Binary_Scale,-0x8 03cd 005a | Z | Store_Top Discrete,At_Offset_2 03ce 00d9 | | Load_Top At_Offset_1 03cf 00d8 | | Load_Top At_Offset_0 03d0 e006 | | Load 0x0,0x6 03d1 0260 | ` | Execute Discrete,In_Type 03d2 7001 |p | Jump_Nonzero 0x3d4 03d3 0801 | | Execute_Immediate Raise,0x1 03d4 4801 |H | Short_Literal 0x1 03d5 00da | | Load_Top At_Offset_2 03d6 01d6 | | Execute Vector,Field_Write 03d7 00d8 | | Load_Top At_Offset_0 03d8 e5ff | | Load 0x2,-0x1 03d9 e20f | | Load 0x1,0xf 03da 0119 | | Execute Any,Check_In_Formal_Type 03db 8210 | | Call 0x1,0x10 03dc 4503 |E | Exit_Suprogram New_Top_Offset 0x3 03dd TRAP_0358: 03dd 010e | | Execute Exception,Is_Constraint_Error 03de 7002 |p | Jump_Nonzero 0x3e1 03df 010d | | Execute Exception,Is_Numeric_Error 03e0 6803 |h | Jump_Zero 0x3e4 03e1 e002 | | Load 0x0,0x2 03e2 1b0d | | Execute Package,Field_Read,Field_Number 0xd 03e3 0257 | W | Execute Discrete,Raise 03e4 0100 | | Execute Exception,Raise 03e5 0000 0000 | | .XXX[0x3] 03e7 0000 | | 03e8 ; -------------------------------------------------------------------------------------- 03e8 ; SUBPROGRAM 03e8 ; -------------------------------------------------------------------------------------- 03e8 03f3 | | .CONST 0x03f3 ; Address of begin 03e9 042f | / | .CONST 0x042f ; Address of exception handler 03ea 0003 | | .CONST 0x0003 ; Number of locals 03eb INIT_03e8: 03eb 4801 |H | Short_Literal 0x1 03ec 4808 |H | Short_Literal 0x8 03ed e002 | | Load 0x0,0x2 03ee 1b0f | | Execute Package,Field_Read,Field_Number 0xf 03ef 035b | [ | Declare_Type Array,Constrained 03f0 0337 | 7 | Declare_Variable Array 03f1 e002 | | Load 0x0,0x2 03f2 1b13 | | Execute Package,Field_Read,Field_Number 0x13 03f3 BODY_03e8: 03f3 00d9 | | Load_Top At_Offset_1 03f4 e5ff | | Load 0x2,-0x1 03f5 e20f | | Load 0x1,0xf 03f6 0119 | | Execute Any,Check_In_Formal_Type 03f7 8211 | | Call 0x1,0x11 03f8 00d1 | | Pop_Control Pop_Count_1 03f9 4801 |H | Short_Literal 0x1 03fa 00da | | Load_Top At_Offset_2 03fb 01d7 | | Execute Vector,Field_Read 03fc 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 03fd 00d8 | | Load_Top At_Offset_0 03fe 0908 | | Execute_Immediate Binary_Scale,0x8 03ff 4802 |H | Short_Literal 0x2 0400 00db | | Load_Top At_Offset_3 0401 01d7 | | Execute Vector,Field_Read 0402 0273 | s | Execute Discrete,Plus 0403 0059 | Y | Store_Top Discrete,At_Offset_1 0404 00d8 | | Load_Top At_Offset_0 0405 0908 | | Execute_Immediate Binary_Scale,0x8 0406 4803 |H | Short_Literal 0x3 0407 00db | | Load_Top At_Offset_3 0408 01d7 | | Execute Vector,Field_Read 0409 0273 | s | Execute Discrete,Plus 040a 0059 | Y | Store_Top Discrete,At_Offset_1 040b 00d8 | | Load_Top At_Offset_0 040c 0908 | | Execute_Immediate Binary_Scale,0x8 040d 4804 |H | Short_Literal 0x4 040e 00db | | Load_Top At_Offset_3 040f 01d7 | | Execute Vector,Field_Read 0410 0273 | s | Execute Discrete,Plus 0411 0059 | Y | Store_Top Discrete,At_Offset_1 0412 00d8 | | Load_Top At_Offset_0 0413 0908 | | Execute_Immediate Binary_Scale,0x8 0414 4805 |H | Short_Literal 0x5 0415 00db | | Load_Top At_Offset_3 0416 01d7 | | Execute Vector,Field_Read 0417 0273 | s | Execute Discrete,Plus 0418 0059 | Y | Store_Top Discrete,At_Offset_1 0419 00d8 | | Load_Top At_Offset_0 041a 0908 | | Execute_Immediate Binary_Scale,0x8 041b 4806 |H | Short_Literal 0x6 041c 00db | | Load_Top At_Offset_3 041d 01d7 | | Execute Vector,Field_Read 041e 0273 | s | Execute Discrete,Plus 041f 0059 | Y | Store_Top Discrete,At_Offset_1 0420 00d8 | | Load_Top At_Offset_0 0421 0908 | | Execute_Immediate Binary_Scale,0x8 0422 4807 |H | Short_Literal 0x7 0423 00db | | Load_Top At_Offset_3 0424 01d7 | | Execute Vector,Field_Read 0425 0273 | s | Execute Discrete,Plus 0426 0059 | Y | Store_Top Discrete,At_Offset_1 0427 00d8 | | Load_Top At_Offset_0 0428 0908 | | Execute_Immediate Binary_Scale,0x8 0429 4808 |H | Short_Literal 0x8 042a 00db | | Load_Top At_Offset_3 042b 01d7 | | Execute Vector,Field_Read 042c 0273 | s | Execute Discrete,Plus 042d c5fe | | Store 0x2,-0x2 042e 4502 |E | Exit_Suprogram New_Top_Offset 0x2 042f TRAP_03e8: 042f 010e | | Execute Exception,Is_Constraint_Error 0430 7002 |p | Jump_Nonzero 0x433 0431 010d | | Execute Exception,Is_Numeric_Error 0432 6803 |h | Jump_Zero 0x436 0433 e002 | | Load 0x0,0x2 0434 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0435 0257 | W | Execute Discrete,Raise 0436 0100 | | Execute Exception,Raise 0437 0000 | | .XXX[0x1] 0438 ; -------------------------------------------------------------------------------------- 0438 ; SUBPROGRAM 0438 ; -------------------------------------------------------------------------------------- 0438 043b | ; | .CONST 0x043b ; Address of begin 0439 0004 | | .CONST 0x0004 ; Address of exception handler 043a 0001 | | .CONST 0x0001 ; Number of locals 043b BODY_0438: 043b INIT_0438: 043b 00db | | Load_Top At_Offset_3 043c e007 | | Load 0x0,0x7 043d 180f | | Execute Package,Field_Execute,Field_Number 0xf 043e 00db | | Load_Top At_Offset_3 043f e20f | | Load 0x1,0xf 0440 0119 | | Execute Any,Check_In_Formal_Type 0441 8210 | | Call 0x1,0x10 0442 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0443 0000 0000 | | .BLANK 0000[0x5] 0448 ; -------------------------------------------------------------------------------------- 0448 ; SUBPROGRAM 0448 ; -------------------------------------------------------------------------------------- 0448 044e | N | .CONST 0x044e ; Address of begin 0449 0459 | Y | .CONST 0x0459 ; Address of exception handler 044a 0002 | | .CONST 0x0002 ; Number of locals 044b INIT_0448: 044b e007 | | Load 0x0,0x7 044c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 044d 0337 | 7 | Declare_Variable Array 044e BODY_0448: 044e 00d8 | | Load_Top At_Offset_0 044f e5ff | | Load 0x2,-0x1 0450 e20f | | Load 0x1,0xf 0451 0119 | | Execute Any,Check_In_Formal_Type 0452 8211 | | Call 0x1,0x11 0453 00d1 | | Pop_Control Pop_Count_1 0454 00d8 | | Load_Top At_Offset_0 0455 e007 | | Load 0x0,0x7 0456 180e | | Execute Package,Field_Execute,Field_Number 0xe 0457 a5fe | | Store_Unchecked 0x2,-0x2 0458 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0459 TRAP_0448: 0459 010e | | Execute Exception,Is_Constraint_Error 045a 7002 |p | Jump_Nonzero 0x45d 045b 010d | | Execute Exception,Is_Numeric_Error 045c 6803 |h | Jump_Zero 0x460 045d e002 | | Load 0x0,0x2 045e 1b0d | | Execute Package,Field_Read,Field_Number 0xd 045f 0257 | W | Execute Discrete,Raise 0460 0100 | | Execute Exception,Raise 0461 0000 0000 | | .BLANK 0000[0x7] 0468 ; -------------------------------------------------------------------------------------- 0468 ; SUBPROGRAM 0468 ; -------------------------------------------------------------------------------------- 0468 046b | k | .CONST 0x046b ; Address of begin 0469 0473 | s | .CONST 0x0473 ; Address of exception handler 046a 0001 | | .CONST 0x0001 ; Number of locals 046b BODY_0468: 046b INIT_0468: 046b 00db | | Load_Top At_Offset_3 046c e007 | | Load 0x0,0x7 046d 1812 | | Execute Package,Field_Execute,Field_Number 0x12 046e 00db | | Load_Top At_Offset_3 046f e20f | | Load 0x1,0xf 0470 0119 | | Execute Any,Check_In_Formal_Type 0471 8210 | | Call 0x1,0x10 0472 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0473 TRAP_0468: 0473 010e | | Execute Exception,Is_Constraint_Error 0474 7002 |p | Jump_Nonzero 0x477 0475 010d | | Execute Exception,Is_Numeric_Error 0476 6803 |h | Jump_Zero 0x47a 0477 e002 | | Load 0x0,0x2 0478 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0479 0257 | W | Execute Discrete,Raise 047a 0100 | | Execute Exception,Raise 047b 0000 0000 | | .BLANK 0000[0x5] 0480 ; -------------------------------------------------------------------------------------- 0480 ; SUBPROGRAM 0480 ; -------------------------------------------------------------------------------------- 0480 0486 | | .CONST 0x0486 ; Address of begin 0481 0491 | | .CONST 0x0491 ; Address of exception handler 0482 0002 | | .CONST 0x0002 ; Number of locals 0483 INIT_0480: 0483 e007 | | Load 0x0,0x7 0484 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0485 0337 | 7 | Declare_Variable Array 0486 BODY_0480: 0486 00d8 | | Load_Top At_Offset_0 0487 e5ff | | Load 0x2,-0x1 0488 e20f | | Load 0x1,0xf 0489 0119 | | Execute Any,Check_In_Formal_Type 048a 8211 | | Call 0x1,0x11 048b 00d1 | | Pop_Control Pop_Count_1 048c 00d8 | | Load_Top At_Offset_0 048d e007 | | Load 0x0,0x7 048e 1811 | | Execute Package,Field_Execute,Field_Number 0x11 048f a5fe | | Store_Unchecked 0x2,-0x2 0490 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0491 TRAP_0480: 0491 010e | | Execute Exception,Is_Constraint_Error 0492 7002 |p | Jump_Nonzero 0x495 0493 010d | | Execute Exception,Is_Numeric_Error 0494 6803 |h | Jump_Zero 0x498 0495 e002 | | Load 0x0,0x2 0496 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0497 0257 | W | Execute Discrete,Raise 0498 0100 | | Execute Exception,Raise 0499 0000 0000 | | .BLANK 0000[0x7] 04a0 ; -------------------------------------------------------------------------------------- 04a0 ; SUBPROGRAM 04a0 ; -------------------------------------------------------------------------------------- 04a0 04a3 | | .CONST 0x04a3 ; Address of begin 04a1 0004 | | .CONST 0x0004 ; Address of exception handler 04a2 0001 | | .CONST 0x0001 ; Number of locals 04a3 BODY_04a0: 04a3 INIT_04a0: 04a3 00db | | Load_Top At_Offset_3 04a4 6806 |h | Jump_Zero 0x4ab 04a5 4801 |H | Short_Literal 0x1 04a6 00db | | Load_Top At_Offset_3 04a7 e20f | | Load 0x1,0xf 04a8 0119 | | Execute Any,Check_In_Formal_Type 04a9 8214 | | Call 0x1,0x14 04aa 4503 |E | Exit_Suprogram New_Top_Offset 0x3 04ab 4800 |H | Short_Literal 0x0 04ac 00db | | Load_Top At_Offset_3 04ad e20f | | Load 0x1,0xf 04ae 0119 | | Execute Any,Check_In_Formal_Type 04af 8214 | | Call 0x1,0x14 04b0 4503 |E | Exit_Suprogram New_Top_Offset 0x3 04b1 0000 0000 | | .BLANK 0000[0x7] 04b8 ; -------------------------------------------------------------------------------------- 04b8 ; SUBPROGRAM 04b8 ; -------------------------------------------------------------------------------------- 04b8 04bd | | .CONST 0x04bd ; Address of begin 04b9 0004 | | .CONST 0x0004 ; Address of exception handler 04ba 0002 | | .CONST 0x0002 ; Number of locals 04bb INIT_04b8: 04bb e002 | | Load 0x0,0x2 04bc 1b10 | | Execute Package,Field_Read,Field_Number 0x10 04bd BODY_04b8: 04bd e002 | | Load 0x0,0x2 04be 1b10 | | Execute Package,Field_Read,Field_Number 0x10 04bf e5ff | | Load 0x2,-0x1 04c0 e20f | | Load 0x1,0xf 04c1 0119 | | Execute Any,Check_In_Formal_Type 04c2 8215 | | Call 0x1,0x15 04c3 0059 | Y | Store_Top Discrete,At_Offset_1 04c4 00d8 | | Load_Top At_Offset_0 04c5 0e00 | | Execute_Immediate Not_Equal,0x0 04c6 a5fe | | Store_Unchecked 0x2,-0x2 04c7 4502 |E | Exit_Suprogram New_Top_Offset 0x2 04c8 ; -------------------------------------------------------------------------------------- 04c8 ; SUBPROGRAM 04c8 ; -------------------------------------------------------------------------------------- 04c8 04cb | | .CONST 0x04cb ; Address of begin 04c9 0004 | | .CONST 0x0004 ; Address of exception handler 04ca 0001 | | .CONST 0x0001 ; Number of locals 04cb BODY_04c8: 04cb INIT_04c8: 04cb 00db | | Load_Top At_Offset_3 04cc 00db | | Load_Top At_Offset_3 04cd e20f | | Load 0x1,0xf 04ce 0119 | | Execute Any,Check_In_Formal_Type 04cf 8214 | | Call 0x1,0x14 04d0 4503 |E | Exit_Suprogram New_Top_Offset 0x3 04d1 0000 0000 | | .BLANK 0000[0x7] 04d8 ; -------------------------------------------------------------------------------------- 04d8 ; SUBPROGRAM 04d8 ; -------------------------------------------------------------------------------------- 04d8 04db | | .CONST 0x04db ; Address of begin 04d9 04e3 | | .CONST 0x04e3 ; Address of exception handler 04da 0001 | | .CONST 0x0001 ; Number of locals 04db BODY_04d8: 04db INIT_04d8: 04db e002 | | Load 0x0,0x2 04dc 1b10 | | Execute Package,Field_Read,Field_Number 0x10 04dd 00db | | Load_Top At_Offset_3 04de e20f | | Load 0x1,0xf 04df 0119 | | Execute Any,Check_In_Formal_Type 04e0 8215 | | Call 0x1,0x15 04e1 c5fe | | Store 0x2,-0x2 04e2 4502 |E | Exit_Suprogram New_Top_Offset 0x2 04e3 TRAP_04d8: 04e3 010e | | Execute Exception,Is_Constraint_Error 04e4 7002 |p | Jump_Nonzero 0x4e7 04e5 010d | | Execute Exception,Is_Numeric_Error 04e6 6803 |h | Jump_Zero 0x4ea 04e7 e002 | | Load 0x0,0x2 04e8 1b0d | | Execute Package,Field_Read,Field_Number 0xd 04e9 0257 | W | Execute Discrete,Raise 04ea 0100 | | Execute Exception,Raise 04eb 0000 0000 | | .BLANK 0000[0x5] 04f0 ; -------------------------------------------------------------------------------------- 04f0 ; SUBPROGRAM 04f0 ; -------------------------------------------------------------------------------------- 04f0 04f3 | | .CONST 0x04f3 ; Address of begin 04f1 04ff | | .CONST 0x04ff ; Address of exception handler 04f2 0001 | | .CONST 0x0001 ; Number of locals 04f3 BODY_04f0: 04f3 INIT_04f0: 04f3 00db | | Load_Top At_Offset_3 04f4 00d8 | | Load_Top At_Offset_0 04f5 e008 | | Load 0x0,0x8 04f6 1b0d | | Execute Package,Field_Read,Field_Number 0xd 04f7 0260 | ` | Execute Discrete,In_Type 04f8 7001 |p | Jump_Nonzero 0x4fa 04f9 0801 | | Execute_Immediate Raise,0x1 04fa 00db | | Load_Top At_Offset_3 04fb e20f | | Load 0x1,0xf 04fc 0119 | | Execute Any,Check_In_Formal_Type 04fd 8214 | | Call 0x1,0x14 04fe 4503 |E | Exit_Suprogram New_Top_Offset 0x3 04ff TRAP_04f0: 04ff 010e | | Execute Exception,Is_Constraint_Error 0500 7002 |p | Jump_Nonzero 0x503 0501 010d | | Execute Exception,Is_Numeric_Error 0502 6803 |h | Jump_Zero 0x506 0503 e002 | | Load 0x0,0x2 0504 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0505 0257 | W | Execute Discrete,Raise 0506 0100 | | Execute Exception,Raise 0507 0000 | | .XXX[0x1] 0508 ; -------------------------------------------------------------------------------------- 0508 ; SUBPROGRAM 0508 ; -------------------------------------------------------------------------------------- 0508 050d | | .CONST 0x050d ; Address of begin 0509 051c | | .CONST 0x051c ; Address of exception handler 050a 0002 | | .CONST 0x0002 ; Number of locals 050b INIT_0508: 050b e001 | | Load 0x0,0x1 050c 0007 | | Action Break_Optional 050d BODY_0508: 050d e002 | | Load 0x0,0x2 050e 1b10 | | Execute Package,Field_Read,Field_Number 0x10 050f e5ff | | Load 0x2,-0x1 0510 e20f | | Load 0x1,0xf 0511 0119 | | Execute Any,Check_In_Formal_Type 0512 8215 | | Call 0x1,0x15 0513 0059 | Y | Store_Top Discrete,At_Offset_1 0514 00d8 | | Load_Top At_Offset_0 0515 00d8 | | Load_Top At_Offset_0 0516 00e8 | | Load_Encached Character_Cache 0517 0260 | ` | Execute Discrete,In_Type 0518 7001 |p | Jump_Nonzero 0x51a 0519 0801 | | Execute_Immediate Raise,0x1 051a a5fe | | Store_Unchecked 0x2,-0x2 051b 4502 |E | Exit_Suprogram New_Top_Offset 0x2 051c TRAP_0508: 051c 010e | | Execute Exception,Is_Constraint_Error 051d 7002 |p | Jump_Nonzero 0x520 051e 010d | | Execute Exception,Is_Numeric_Error 051f 6803 |h | Jump_Zero 0x523 0520 e002 | | Load 0x0,0x2 0521 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0522 0257 | W | Execute Discrete,Raise 0523 0100 | | Execute Exception,Raise 0524 0000 0000 | | .BLANK 0000[0x4] 0528 ; -------------------------------------------------------------------------------------- 0528 ; SUBPROGRAM 0528 ; -------------------------------------------------------------------------------------- 0528 0533 | 3 | .CONST 0x0533 ; Address of begin 0529 054d | M | .CONST 0x054d ; Address of exception handler 052a 0002 | | .CONST 0x0002 ; Number of locals 052b INIT_0528: 052b 00db | | Load_Top At_Offset_3 052c 01dd | | Execute Vector,First 052d e5fe | | Load 0x2,-0x2 052e 01dc | | Execute Vector,Last 052f e002 | | Load 0x0,0x2 0530 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0531 035b | [ | Declare_Type Array,Constrained 0532 0337 | 7 | Declare_Variable Array 0533 BODY_0528: 0533 00cf | | Action Mark_Auxiliary 0534 e5fe | | Load 0x2,-0x2 0535 01d9 | | Execute Vector,Reverse_Bounds 0536 0263 | c | Execute Discrete,Above_Bound 0537 700e |p | Jump_Nonzero 0x546 0538 00d8 | | Load_Top At_Offset_0 0539 e5fe | | Load 0x2,-0x2 053a 01d7 | | Execute Vector,Field_Read 053b 00d8 | | Load_Top At_Offset_0 053c e003 | | Load 0x0,0x3 053d 1b11 | | Execute Package,Field_Read,Field_Number 0x11 053e 0260 | ` | Execute Discrete,In_Type 053f 7001 |p | Jump_Nonzero 0x541 0540 0801 | | Execute_Immediate Raise,0x1 0541 00d9 | | Load_Top At_Offset_1 0542 e402 | | Load 0x2,0x2 0543 01d6 | | Execute Vector,Field_Write 0544 00c8 | | Action Pop_Auxiliary_Range 0545 3ff2 |? | Loop_Increasing 0x538 0546 00ce | | Action Pop_Auxiliary 0547 00d8 | | Load_Top At_Offset_0 0548 e5ff | | Load 0x2,-0x1 0549 e20f | | Load 0x1,0xf 054a 0119 | | Execute Any,Check_In_Formal_Type 054b 8228 | ( | Call 0x1,0x28 054c 4503 |E | Exit_Suprogram New_Top_Offset 0x3 054d TRAP_0528: 054d 010e | | Execute Exception,Is_Constraint_Error 054e 7002 |p | Jump_Nonzero 0x551 054f 010d | | Execute Exception,Is_Numeric_Error 0550 6803 |h | Jump_Zero 0x554 0551 e002 | | Load 0x0,0x2 0552 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0553 0257 | W | Execute Discrete,Raise 0554 0100 | | Execute Exception,Raise 0555 0000 0000 | | .XXX[0x3] 0557 0000 | | 0558 ; -------------------------------------------------------------------------------------- 0558 ; SUBPROGRAM 0558 ; -------------------------------------------------------------------------------------- 0558 0566 | f | .CONST 0x0566 ; Address of begin 0559 057d | } | .CONST 0x057d ; Address of exception handler 055a 0003 | | .CONST 0x0003 ; Number of locals 055b INIT_0558: 055b 00da | | Load_Top At_Offset_2 055c e20f | | Load 0x1,0xf 055d 0119 | | Execute Any,Check_In_Formal_Type 055e 8229 | ) | Call 0x1,0x29 055f 00d8 | | Load_Top At_Offset_0 0560 01dd | | Execute Vector,First 0561 00d9 | | Load_Top At_Offset_1 0562 01dc | | Execute Vector,Last 0563 00e9 | | Load_Encached String_Cache 0564 035b | [ | Declare_Type Array,Constrained 0565 0337 | 7 | Declare_Variable Array 0566 BODY_0558: 0566 00cf | | Action Mark_Auxiliary 0567 00d9 | | Load_Top At_Offset_1 0568 01d9 | | Execute Vector,Reverse_Bounds 0569 0263 | c | Execute Discrete,Above_Bound 056a 700d |p | Jump_Nonzero 0x578 056b 00d8 | | Load_Top At_Offset_0 056c e402 | | Load 0x2,0x2 056d 01d7 | | Execute Vector,Field_Read 056e 00d8 | | Load_Top At_Offset_0 056f 00e8 | | Load_Encached Character_Cache 0570 0260 | ` | Execute Discrete,In_Type 0571 7001 |p | Jump_Nonzero 0x573 0572 0801 | | Execute_Immediate Raise,0x1 0573 00d9 | | Load_Top At_Offset_1 0574 e403 | | Load 0x2,0x3 0575 01d6 | | Execute Vector,Field_Write 0576 00c8 | | Action Pop_Auxiliary_Range 0577 3ff3 |? | Loop_Increasing 0x56b 0578 00ce | | Action Pop_Auxiliary 0579 00d8 | | Load_Top At_Offset_0 057a 00e9 | | Load_Encached String_Cache 057b 01c6 | | Execute Vector,Convert_To_Formal 057c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 057d TRAP_0558: 057d 010e | | Execute Exception,Is_Constraint_Error 057e 7002 |p | Jump_Nonzero 0x581 057f 010d | | Execute Exception,Is_Numeric_Error 0580 6803 |h | Jump_Zero 0x584 0581 e002 | | Load 0x0,0x2 0582 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0583 0257 | W | Execute Discrete,Raise 0584 0100 | | Execute Exception,Raise 0585 0000 0000 | | .XXX[0x3] 0587 0000 | | 0588 ; -------------------------------------------------------------------------------------- 0588 ; SUBPROGRAM 0588 ; -------------------------------------------------------------------------------------- 0588 058b | | .CONST 0x058b ; Address of begin 0589 05b3 | | .CONST 0x05b3 ; Address of exception handler 058a 0001 | | .CONST 0x0001 ; Number of locals 058b BODY_0588: 058b INIT_0588: 058b 00db | | Load_Top At_Offset_3 058c 01db | | Execute Vector,Length 058d 00d8 | | Load_Top At_Offset_0 058e e001 | | Load 0x0,0x1 058f 0260 | ` | Execute Discrete,In_Type 0590 7001 |p | Jump_Nonzero 0x592 0591 0801 | | Execute_Immediate Raise,0x1 0592 00db | | Load_Top At_Offset_3 0593 e20f | | Load 0x1,0xf 0594 0119 | | Execute Any,Check_In_Formal_Type 0595 8214 | | Call 0x1,0x14 0596 00db | | Load_Top At_Offset_3 0597 00db | | Load_Top At_Offset_3 0598 e20f | | Load 0x1,0xf 0599 0119 | | Execute Any,Check_In_Formal_Type 059a 8210 | | Call 0x1,0x10 059b 00db | | Load_Top At_Offset_3 059c 01db | | Execute Vector,Length 059d 4803 |H | Short_Literal 0x3 059e 0279 | y | Execute Discrete,And 059f 6812 |h | Jump_Zero 0x5b2 05a0 4801 |H | Short_Literal 0x1 05a1 4804 |H | Short_Literal 0x4 05a2 e5fe | | Load 0x2,-0x2 05a3 01db | | Execute Vector,Length 05a4 4803 |H | Short_Literal 0x3 05a5 0279 | y | Execute Discrete,And 05a6 0272 | r | Execute Discrete,Minus 05a7 00d8 | | Load_Top At_Offset_0 05a8 00e2 | | Load_Encached Integer_Cache 05a9 0260 | ` | Execute Discrete,In_Type 05aa 7001 |p | Jump_Nonzero 0x5ac 05ab 0801 | | Execute_Immediate Raise,0x1 05ac e009 | | Load 0x0,0x9 05ad 01cf | | Execute Vector,Slice_Read 05ae 00db | | Load_Top At_Offset_3 05af e20f | | Load 0x1,0xf 05b0 0119 | | Execute Any,Check_In_Formal_Type 05b1 8210 | | Call 0x1,0x10 05b2 4503 |E | Exit_Suprogram New_Top_Offset 0x3 05b3 TRAP_0588: 05b3 010e | | Execute Exception,Is_Constraint_Error 05b4 7002 |p | Jump_Nonzero 0x5b7 05b5 010d | | Execute Exception,Is_Numeric_Error 05b6 6803 |h | Jump_Zero 0x5ba 05b7 e002 | | Load 0x0,0x2 05b8 1b0d | | Execute Package,Field_Read,Field_Number 0xd 05b9 0257 | W | Execute Discrete,Raise 05ba 0100 | | Execute Exception,Raise 05bb 0000 0000 | | .BLANK 0000[0x5] 05c0 ; -------------------------------------------------------------------------------------- 05c0 ; SUBPROGRAM 05c0 ; -------------------------------------------------------------------------------------- 05c0 05c9 | | .CONST 0x05c9 ; Address of begin 05c1 05d2 | | .CONST 0x05d2 ; Address of exception handler 05c2 0004 | | .CONST 0x0004 ; Number of locals 05c3 INIT_05c0: 05c3 e001 | | Load 0x0,0x1 05c4 0007 | | Action Break_Optional 05c5 e00a | | Load 0x0,0xa 05c6 0337 | 7 | Declare_Variable Array 05c7 029f 05e3 | | Declare_Subprogram INIT_05e0,For_Call 05c9 BODY_05c0: 05c9 e002 | | Load 0x0,0x2 05ca 1b10 | | Execute Package,Field_Read,Field_Number 0x10 05cb e5ff | | Load 0x2,-0x1 05cc e20f | | Load 0x1,0xf 05cd 0119 | | Execute Any,Check_In_Formal_Type 05ce 8215 | | Call 0x1,0x15 05cf 005b | [ | Store_Top Discrete,At_Offset_3 05d0 8404 | | Call 0x2,0x4 05d1 0831 | 1 | Execute_Immediate Raise,0x31 05d2 TRAP_05c0: 05d2 010e | | Execute Exception,Is_Constraint_Error 05d3 7002 |p | Jump_Nonzero 0x5d6 05d4 010d | | Execute Exception,Is_Numeric_Error 05d5 6803 |h | Jump_Zero 0x5d9 05d6 e002 | | Load 0x0,0x2 05d7 1b0d | | Execute Package,Field_Read,Field_Number 0xd 05d8 0257 | W | Execute Discrete,Raise 05d9 0100 | | Execute Exception,Raise 05da 0000 0000 | | .BLANK 0000[0x6] 05e0 ; -------------------------------------------------------------------------------------- 05e0 ; SUBPROGRAM 05e0 ; -------------------------------------------------------------------------------------- 05e0 05e9 | | .CONST 0x05e9 ; Address of begin 05e1 0004 | | .CONST 0x0004 ; Address of exception handler 05e2 0002 | | .CONST 0x0002 ; Number of locals 05e3 INIT_05e0: 05e3 4801 |H | Short_Literal 0x1 05e4 e402 | | Load 0x2,0x2 05e5 e002 | | Load 0x0,0x2 05e6 1b0f | | Execute Package,Field_Read,Field_Number 0xf 05e7 035b | [ | Declare_Type Array,Constrained 05e8 0337 | 7 | Declare_Variable Array 05e9 BODY_05e0: 05e9 00d8 | | Load_Top At_Offset_0 05ea e5ff | | Load 0x2,-0x1 05eb e20f | | Load 0x1,0xf 05ec 0119 | | Execute Any,Check_In_Formal_Type 05ed 8211 | | Call 0x1,0x11 05ee 00d1 | | Pop_Control Pop_Count_1 05ef 00d8 | | Load_Top At_Offset_0 05f0 01db | | Execute Vector,Length 05f1 4803 |H | Short_Literal 0x3 05f2 0279 | y | Execute Discrete,And 05f3 6817 |h | Jump_Zero 0x60b 05f4 e403 | | Load 0x2,0x3 05f5 4801 |H | Short_Literal 0x1 05f6 4804 |H | Short_Literal 0x4 05f7 00db | | Load_Top At_Offset_3 05f8 01db | | Execute Vector,Length 05f9 4803 |H | Short_Literal 0x3 05fa 0279 | y | Execute Discrete,And 05fb 0272 | r | Execute Discrete,Minus 05fc 00d8 | | Load_Top At_Offset_0 05fd 00e2 | | Load_Encached Integer_Cache 05fe 0260 | ` | Execute Discrete,In_Type 05ff 7001 |p | Jump_Nonzero 0x601 0600 0801 | | Execute_Immediate Raise,0x1 0601 00da | | Load_Top At_Offset_2 0602 035b | [ | Declare_Type Array,Constrained 0603 00d0 | | Action Swap_Control 0604 01cd | | Execute Vector,Slice_Reference 0605 00d8 | | Load_Top At_Offset_0 0606 e5ff | | Load 0x2,-0x1 0607 e20f | | Load 0x1,0xf 0608 0119 | | Execute Any,Check_In_Formal_Type 0609 8211 | | Call 0x1,0x11 060a 00d2 | | Pop_Control Pop_Count_2 060b 00d8 | | Load_Top At_Offset_0 060c e003 | | Load 0x0,0x3 060d 1b12 | | Execute Package,Field_Read,Field_Number 0x12 060e 01c6 | | Execute Vector,Convert_To_Formal 060f 00cb | | Action Pop_Block_With_Result 0610 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0611 0000 0000 | | .BLANK 0000[0x7] 0618 ; -------------------------------------------------------------------------------------- 0618 ; SUBPROGRAM 0618 ; -------------------------------------------------------------------------------------- 0618 0624 | $ | .CONST 0x0624 ; Address of begin 0619 0004 | | .CONST 0x0004 ; Address of exception handler 061a 0017 | | .CONST 0x0017 ; Number of locals 061b INIT_0618: 061b 029a 062b | +| Declare_Subprogram INIT_0628,For_Outer_Call,Visible,Unelaborated 061d 029a 065b | [| Declare_Subprogram INIT_0658,For_Outer_Call,Visible,Unelaborated 061f 00bf | | Action Accept_Activation 0620 1d16 | | Execute_Immediate Reference_Lex_1,0x16 0621 00c7 | | Action Elaborate_Subprogram 0622 1d17 | | Execute_Immediate Reference_Lex_1,0x17 0623 00c7 | | Action Elaborate_Subprogram 0624 BODY_0618: 0624 00bc | | Action Signal_Activated 0625 00bb | | Action Signal_Completion 0626 0000 0000 | | .XXX[0x2] 0628 ; -------------------------------------------------------------------------------------- 0628 ; SUBPROGRAM 0628 ; -------------------------------------------------------------------------------------- 0628 062b | + | .CONST 0x062b ; Address of begin 0629 064a | J | .CONST 0x064a ; Address of exception handler 062a 0001 | | .CONST 0x0001 ; Number of locals 062b BODY_0628: 062b INIT_0628: 062b 00db | | Load_Top At_Offset_3 062c 01db | | Execute Vector,Length 062d 00d8 | | Load_Top At_Offset_0 062e e001 | | Load 0x0,0x1 062f 0260 | ` | Execute Discrete,In_Type 0630 7001 |p | Jump_Nonzero 0x632 0631 0801 | | Execute_Immediate Raise,0x1 0632 00db | | Load_Top At_Offset_3 0633 e002 | | Load 0x0,0x2 0634 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0635 0119 | | Execute Any,Check_In_Formal_Type 0636 e002 | | Load 0x0,0x2 0637 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0638 00cf | | Action Mark_Auxiliary 0639 e5fe | | Load 0x2,-0x2 063a 01d9 | | Execute Vector,Reverse_Bounds 063b 0263 | c | Execute Discrete,Above_Bound 063c 700c |p | Jump_Nonzero 0x649 063d 00d8 | | Load_Top At_Offset_0 063e e5fe | | Load 0x2,-0x2 063f 01d7 | | Execute Vector,Field_Read 0640 e20f | | Load 0x1,0xf 0641 0119 | | Execute Any,Check_In_Formal_Type 0642 e5ff | | Load 0x2,-0x1 0643 e002 | | Load 0x0,0x2 0644 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0645 0119 | | Execute Any,Check_In_Formal_Type 0646 8210 | | Call 0x1,0x10 0647 00c8 | | Action Pop_Auxiliary_Range 0648 3ff4 |? | Loop_Increasing 0x63d 0649 4503 |E | Exit_Suprogram New_Top_Offset 0x3 064a TRAP_0628: 064a 010e | | Execute Exception,Is_Constraint_Error 064b 7002 |p | Jump_Nonzero 0x64e 064c 010d | | Execute Exception,Is_Numeric_Error 064d 6803 |h | Jump_Zero 0x651 064e e003 | | Load 0x0,0x3 064f 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0650 0257 | W | Execute Discrete,Raise 0651 0100 | | Execute Exception,Raise 0652 0000 0000 | | .BLANK 0000[0x6] 0658 ; -------------------------------------------------------------------------------------- 0658 ; SUBPROGRAM 0658 ; -------------------------------------------------------------------------------------- 0658 065e | ^ | .CONST 0x065e ; Address of begin 0659 0669 | i | .CONST 0x0669 ; Address of exception handler 065a 0003 | | .CONST 0x0003 ; Number of locals 065b INIT_0658: 065b e001 | | Load 0x0,0x1 065c 029f 067b | {| Declare_Subprogram INIT_0678,For_Call 065e BODY_0658: 065e e003 | | Load 0x0,0x3 065f 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0660 e5ff | | Load 0x2,-0x1 0661 e002 | | Load 0x0,0x2 0662 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0663 0119 | | Execute Any,Check_In_Formal_Type 0664 e002 | | Load 0x0,0x2 0665 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0666 005a | Z | Store_Top Discrete,At_Offset_2 0667 8403 | | Call 0x2,0x3 0668 0831 | 1 | Execute_Immediate Raise,0x31 0669 TRAP_0658: 0669 010e | | Execute Exception,Is_Constraint_Error 066a 7002 |p | Jump_Nonzero 0x66d 066b 010d | | Execute Exception,Is_Numeric_Error 066c 6803 |h | Jump_Zero 0x670 066d e003 | | Load 0x0,0x3 066e 1b0d | | Execute Package,Field_Read,Field_Number 0xd 066f 0257 | W | Execute Discrete,Raise 0670 0100 | | Execute Exception,Raise 0671 0000 0000 | | .BLANK 0000[0x7] 0678 ; -------------------------------------------------------------------------------------- 0678 ; SUBPROGRAM 0678 ; -------------------------------------------------------------------------------------- 0678 068d | | .CONST 0x068d ; Address of begin 0679 0004 | | .CONST 0x0004 ; Address of exception handler 067a 0002 | | .CONST 0x0002 ; Number of locals 067b INIT_0678: 067b e212 | | Load 0x1,0x12 067c 026a | j | Execute Discrete,First 067d e212 | | Load 0x1,0x12 067e 026a | j | Execute Discrete,First 067f e402 | | Load 0x2,0x2 0680 0273 | s | Execute Discrete,Plus 0681 0aff | | Execute_Immediate Plus,-0x1 0682 00d8 | | Load_Top At_Offset_0 0683 e212 | | Load 0x1,0x12 0684 0122 | " | Execute Any,Make_Root_Type 0685 0260 | ` | Execute Discrete,In_Type 0686 7001 |p | Jump_Nonzero 0x688 0687 0801 | | Execute_Immediate Raise,0x1 0688 e215 | | Load 0x1,0x15 0689 035b | [ | Declare_Type Array,Constrained 068a 0337 | 7 | Declare_Variable Array 068b 00d8 | | Load_Top At_Offset_0 068c 1c00 | | Execute_Immediate Run_Utility,0x0 068d BODY_0678: 068d 00cf | | Action Mark_Auxiliary 068e 00d9 | | Load_Top At_Offset_1 068f 01d9 | | Execute Vector,Reverse_Bounds 0690 0263 | c | Execute Discrete,Above_Bound 0691 701d |p | Jump_Nonzero 0x6af 0692 00db | | Load_Top At_Offset_3 0693 00d9 | | Load_Top At_Offset_1 0694 00d8 | | Load_Top At_Offset_0 0695 00da | | Load_Top At_Offset_2 0696 01d7 | | Execute Vector,Field_Read 0697 0120 | | Execute Any,Is_Value 0698 6806 |h | Jump_Zero 0x69f 0699 e20f | | Load 0x1,0xf 069a 00d9 | | Load_Top At_Offset_1 069b 00db | | Load_Top At_Offset_3 069c 01d7 | | Execute Vector,Field_Read 069d 00d1 | | Pop_Control Pop_Count_1 069e 7805 |x | Jump 0x6a4 069f 00d8 | | Load_Top At_Offset_0 06a0 00da | | Load_Top At_Offset_2 06a1 01d7 | | Execute Vector,Field_Read 06a2 e20f | | Load 0x1,0xf 06a3 0119 | | Execute Any,Check_In_Formal_Type 06a4 e5ff | | Load 0x2,-0x1 06a5 e002 | | Load 0x0,0x2 06a6 1b0f | | Execute Package,Field_Read,Field_Number 0xf 06a7 0119 | | Execute Any,Check_In_Formal_Type 06a8 8211 | | Call 0x1,0x11 06a9 00d9 | | Load_Top At_Offset_1 06aa 00db | | Load_Top At_Offset_3 06ab 01d6 | | Execute Vector,Field_Write 06ac 00d2 | | Pop_Control Pop_Count_2 06ad 00c8 | | Action Pop_Auxiliary_Range 06ae 3fe3 |? | Loop_Increasing 0x692 06af 00ce | | Action Pop_Auxiliary 06b0 00d8 | | Load_Top At_Offset_0 06b1 e215 | | Load 0x1,0x15 06b2 01c6 | | Execute Vector,Convert_To_Formal 06b3 00cb | | Action Pop_Block_With_Result 06b4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 06b5 0000 0000 | | .XXX[0x3] 06b7 0000 | | 06b8 ; -------------------------------------------------------------------------------------- 06b8 ; SUBPROGRAM 06b8 ; -------------------------------------------------------------------------------------- 06b8 06c4 | | .CONST 0x06c4 ; Address of begin 06b9 0004 | | .CONST 0x0004 ; Address of exception handler 06ba 0011 | | .CONST 0x0011 ; Number of locals 06bb INIT_06b8: 06bb 029a 06cb | | Declare_Subprogram INIT_06c8,For_Outer_Call,Visible,Unelaborated 06bd 029a 06e3 | | Declare_Subprogram INIT_06e0,For_Outer_Call,Visible,Unelaborated 06bf 00bf | | Action Accept_Activation 06c0 1d10 | | Execute_Immediate Reference_Lex_1,0x10 06c1 00c7 | | Action Elaborate_Subprogram 06c2 1d11 | | Execute_Immediate Reference_Lex_1,0x11 06c3 00c7 | | Action Elaborate_Subprogram 06c4 BODY_06b8: 06c4 00bc | | Action Signal_Activated 06c5 00bb | | Action Signal_Completion 06c6 0000 0000 | | .XXX[0x2] 06c8 ; -------------------------------------------------------------------------------------- 06c8 ; SUBPROGRAM 06c8 ; -------------------------------------------------------------------------------------- 06c8 06cb | | .CONST 0x06cb ; Address of begin 06c9 06d8 | | .CONST 0x06d8 ; Address of exception handler 06ca 0001 | | .CONST 0x0001 ; Number of locals 06cb BODY_06c8: 06cb INIT_06c8: 06cb 00db | | Load_Top At_Offset_3 06cc 00d8 | | Load_Top At_Offset_0 06cd e001 | | Load 0x0,0x1 06ce 0260 | ` | Execute Discrete,In_Type 06cf 7001 |p | Jump_Nonzero 0x6d1 06d0 0801 | | Execute_Immediate Raise,0x1 06d1 00db | | Load_Top At_Offset_3 06d2 e002 | | Load 0x0,0x2 06d3 1b0f | | Execute Package,Field_Read,Field_Number 0xf 06d4 0119 | | Execute Any,Check_In_Formal_Type 06d5 e002 | | Load 0x0,0x2 06d6 1814 | | Execute Package,Field_Execute,Field_Number 0x14 06d7 4503 |E | Exit_Suprogram New_Top_Offset 0x3 06d8 TRAP_06c8: 06d8 010e | | Execute Exception,Is_Constraint_Error 06d9 7002 |p | Jump_Nonzero 0x6dc 06da 010d | | Execute Exception,Is_Numeric_Error 06db 6803 |h | Jump_Zero 0x6df 06dc e003 | | Load 0x0,0x3 06dd 1b0d | | Execute Package,Field_Read,Field_Number 0xd 06de 0257 | W | Execute Discrete,Raise 06df 0100 | | Execute Exception,Raise 06e0 ; -------------------------------------------------------------------------------------- 06e0 ; SUBPROGRAM 06e0 ; -------------------------------------------------------------------------------------- 06e0 06e5 | | .CONST 0x06e5 ; Address of begin 06e1 06f7 | | .CONST 0x06f7 ; Address of exception handler 06e2 0002 | | .CONST 0x0002 ; Number of locals 06e3 INIT_06e0: 06e3 e001 | | Load 0x0,0x1 06e4 0007 | | Action Break_Optional 06e5 BODY_06e0: 06e5 e003 | | Load 0x0,0x3 06e6 1b10 | | Execute Package,Field_Read,Field_Number 0x10 06e7 e5ff | | Load 0x2,-0x1 06e8 e002 | | Load 0x0,0x2 06e9 1b0f | | Execute Package,Field_Read,Field_Number 0xf 06ea 0119 | | Execute Any,Check_In_Formal_Type 06eb e002 | | Load 0x0,0x2 06ec 1815 | | Execute Package,Field_Execute,Field_Number 0x15 06ed 0059 | Y | Store_Top Discrete,At_Offset_1 06ee 00d8 | | Load_Top At_Offset_0 06ef 00d8 | | Load_Top At_Offset_0 06f0 e20f | | Load 0x1,0xf 06f1 0122 | " | Execute Any,Make_Root_Type 06f2 0260 | ` | Execute Discrete,In_Type 06f3 7001 |p | Jump_Nonzero 0x6f5 06f4 0801 | | Execute_Immediate Raise,0x1 06f5 c5fe | | Store 0x2,-0x2 06f6 4502 |E | Exit_Suprogram New_Top_Offset 0x2 06f7 TRAP_06e0: 06f7 010e | | Execute Exception,Is_Constraint_Error 06f8 7002 |p | Jump_Nonzero 0x6fb 06f9 010d | | Execute Exception,Is_Numeric_Error 06fa 6803 |h | Jump_Zero 0x6fe 06fb e003 | | Load 0x0,0x3 06fc 1b0d | | Execute Package,Field_Read,Field_Number 0xd 06fd 0257 | W | Execute Discrete,Raise 06fe 0100 | | Execute Exception,Raise 06ff 0000 | | .XXX[0x1] 0700 ; -------------------------------------------------------------------------------------- 0700 ; Debug Table 0700 ; -------------------------------------------------------------------------------------- 0700 0004 0014 | | .DEBUG4 0x0004,0x0014,0x0ed9,0x0000,0x0001,0x0000 0706 a585 9dc9 | | .XXX[0x7c] 0708 85b4 81dd | | 070a a5b1 b081 | | 070c b9bd d081 | | 070e 8994 819d | | 0710 95b9 95c9 | | 0712 85d1 9591 | | 0714 51a1 9481 |Q | 0716 11a5 859d | | 0718 c985 b481 | | 071a 3985 b594 |9 | 071c 81c9 9599 | | 071e 95c9 cc81 | | 0720 d1bc 8184 | | 0722 81a5 b9d9 | | 0724 85b1 a590 | | 0726 81bd 89a9 | | 0728 958d d10d | | 072a 85b1 b1a5 | | 072c b99c 8125 | %| 072e b1b1 d5cd | | 0730 d1c9 85d1 | | 0732 bdc8 81d1 | | 0734 bc81 99bd | | 0736 c9b5 85d0 | | 0738 8191 a585 | | 073a 9dc9 85b5 | | 073c 0d85 b1b1 | | 073e a5b9 9c81 | | 0740 25b1 b1d5 |% | 0742 cdd1 c985 | | 0744 d1bd c881 | | 0746 d1bc 81c9 | | 0748 95d1 c9a5 | | 074a 95d9 9481 | | 074c 85b9 9081 | | 074e 9195 b195 | | 0750 d194 8199 | | 0752 bdc9 b585 | | 0754 d1d1 9590 | | 0756 8191 a585 | | 0758 9dc9 85b4 | | 075a f139 3d39 | 9=9| 075c 14f8 80f8 | | 075e 80bd 89a5 | | 0760 b8bd 8d85 | | 0762 d080 ec80 | | 0764 bd89 a5b8 | | 0766 bdc9 b481 | | 0768 0d85 b1b1 | | 076a a5b9 9c81 | | 076c 25b1 b1d5 |% | 076e cdd1 c985 | | 0770 d1bd c881 | | 0772 d1bc 819d | | 0774 95d0 81c9 | | 0776 95b5 bdd1 | | 0778 9481 d195 | | 077a b5c1 bdc9 | | 077c 85c9 e481 | | 077e 99a5 b195 | | 0780 b985 b594 | | 0782 0000 0000 | | .BLANK 0000[0x4] 0786 0010 0050 | P| .XXX[0x22] 0788 3f20 0000 |? | 078a 0004 0000 | | 078c 0000 0010 | | 078e c914 d4c0 | | 0790 0000 0010 | | 0792 d0d4 c114 | | 0794 0000 05b0 | | 0796 003d 6400 | =d | 0798 0000 02c0 | | 079a 0400 02ec | | 079c 0002 0000 | | 079e 0040 0010 | @ | 07a0 0004 0a68 | h| 07a2 006c 02fc | l | 07a4 7434 031c |t4 | 07a6 02f0 02ec | | 07a8 0000 0000 | | .BLANK 0000[0x6] 07ae 00b0 0010 | | .XXX[0x1c] 07b0 0018 0248 | H| 07b2 0197 8004 | | 07b4 6c34 0b1c |l4 | 07b6 0360 7001 | `p | 07b8 2193 8008 |! | 07ba 6c38 7020 |l8p | 07bc 0360 7000 | `p | 07be 0a7c 00ec | | | 07c0 0a7c 012e | | .| 07c2 1018 0248 | H| 07c4 0198 036f | o| 07c6 8008 604c | `L| 07c8 0730 0328 | 0 (| 07ca 0000 0000 | | .BLANK 0000[0x4] 07ce 00ec 0010 | | .XXX[0x32] 07d0 0005 2004 | | 07d2 036c 0248 | l H| 07d4 019f 800c | | 07d6 6075 a017 |`u | 07d8 9010 036f | o| 07da 8008 6040 | `@| 07dc 0345 1408 | E | 07de 012c 018c | , | 07e0 0007 900c | | 07e2 03a8 0248 | H| 07e4 01a1 2003 | | 07e6 8004 6057 | `W| 07e8 100c 033d | =| 07ea 2029 2004 | ) | 07ec 001f 900f | | 07ee 8004 619a | a | 07f0 1014 0320 | | 07f2 ffe8 033b | ;| 07f4 900f 8004 | | 07f6 606f 100d |`o | 07f8 1404 001d | | 07fa 1404 0028 | (| 07fc 00a8 012c | ,| 07fe 0140 0201 | @ |