|
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_0a7cf5
└─⟦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 4d7d 0531 |M} 1| .XXX[0xfa]
0708 517d 1d49 |Q} I|
070a 0541 20c4 | A |
070c 001d 0d3d | =|
070e 3541 3d4d |5A=M|
0710 14c4 0025 | %|
0712 0d7d 0d3d | } =|
0714 3541 3d4d |5A=M|
0716 14c4 0025 | %|
0718 357d 0d3d |5} =|
071a 3541 3d4d |5A=M|
071c 14c4 0029 | )|
071e 0d35 7d0d | 5} |
0720 3d35 413d |=5A=|
0722 4d14 c400 |M |
0724 254d 7d0d |%M} |
0726 3d35 413d |=5A=|
0728 4d14 c400 |M |
072a 290d 4d7d |) M}|
072c 0d3d 3541 | =5A|
072e 3d4d 14c4 |=M |
0730 0029 354d | )5M|
0732 7d0d 3d35 |} =5|
0734 413d 4d14 |A=M |
0736 c400 2d0d | - |
0738 354d 7d0d |5M} |
073a 3d35 413d |=5A=|
073c 4d14 c400 |M |
073e 114d 513d | MQ=|
0740 40c4 0019 |@ |
0742 0d7d 4d51 | }MQ|
0744 3d40 c400 |=@ |
0746 1935 7d4d | 5}M|
0748 513d 40c4 |Q=@ |
074a 001d 0d35 | 5|
074c 7d4d 513d |}MQ=|
074e 40c4 0019 |@ |
0750 4d7d 4d51 |M}MQ|
0752 3d40 c400 |=@ |
0754 1d0d 4d7d | M}|
0756 4d51 3d40 |MQ=@|
0758 c400 1d35 | 5|
075a 4d7d 4d51 |M}MQ|
075c 3d40 c400 |=@ |
075e 210d 354d |! 5M|
0760 7d4d 513d |}MQ=|
0762 40c4 0015 |@ |
0764 051d 0525 | %|
0766 38c4 001d |8 |
0768 0d7d 051d | } |
076a 0525 38c4 | %8 |
076c 001d 357d | 5}|
076e 051d 0525 | %|
0770 38c4 0021 |8 !|
0772 0d35 7d05 | 5} |
0774 1d05 2538 | %8|
0776 c400 1d4d | M|
0778 7d05 1d05 |} |
077a 2538 c400 |%8 |
077c 210d 4d7d |! M}|
077e 051d 0525 | %|
0780 38c4 0021 |8 !|
0782 354d 7d05 |5M} |
0784 1d05 2538 | %8|
0786 c400 250d | % |
0788 354d 7d05 |5M} |
078a 1d05 2538 | %8|
078c c400 1541 | A|
078e 493d 414c |I=AL|
0790 c400 1d0d | |
0792 7d41 493d |}AI=|
0794 414c c400 |AL |
0796 1d35 7d41 | 5}A|
0798 493d 414c |I=AL|
079a c400 210d | ! |
079c 357d 4149 |5}AI|
079e 3d41 4cc4 |=AL |
07a0 001d 4d7d | M}|
07a2 4149 3d41 |AI=A|
07a4 4cc4 0021 |L !|
07a6 0d4d 7d41 | M}A|
07a8 493d 414c |I=AL|
07aa c400 2135 | !5|
07ac 4d7d 4149 |M}AI|
07ae 3d41 4cc4 |=AL |
07b0 0025 0d35 | % 5|
07b2 4d7d 4149 |M}AI|
07b4 3d41 4cc4 |=AL |
07b6 0011 5539 | U9|
07b8 113c c400 | < |
07ba 190d 7d55 | }U|
07bc 3911 3cc4 |9 < |
07be 0019 357d | 5}|
07c0 5539 113c |U9 <|
07c2 c400 1d0d | |
07c4 357d 5539 |5}U9|
07c6 113c c400 | < |
07c8 194d 7d55 | M}U|
07ca 3911 3cc4 |9 < |
07cc 001d 0d4d | M|
07ce 7d55 3911 |}U9 |
07d0 3cc4 001d |< |
07d2 354d 7d55 |5M}U|
07d4 3911 3cc4 |9 < |
07d6 0021 0d35 | ! 5|
07d8 4d7d 5539 |M}U9|
07da 113c c400 | < |
07dc 1519 493d | I=|
07de 3950 c400 |9P |
07e0 1d0d 7d19 | } |
07e2 493d 3950 |I=9P|
07e4 c400 1d35 | 5|
07e6 7d19 493d |} I=|
07e8 3950 c400 |9P |
07ea 210d 357d |! 5}|
07ec 1949 3d39 | I=9|
07ee 50c4 001d |P |
07f0 4d7d 1949 |M} I|
07f2 3d39 50c4 |=9P |
07f4 0021 0d4d | ! M|
07f6 7d19 493d |} I=|
07f8 3950 c400 |9P |
07fa 2135 4d7d |!5M}|
07fc 1949 3d39 | I=9|
07fe 50c4 0025 |P %|