|
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: 3072 (0xc00)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_6060f0
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code
0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 0470 | p | .CONST 0x0470 ; 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 8002 | | .CONST 0x8002 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 00bd | | .CONST 0x00bd ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0034 | 4 | .CONST 0x0034 ; Number of locals
000b INIT_0008:
000b 029a 00c3 | | Declare_Subprogram INIT_00c0,For_Outer_Call,Visible,Unelaborated
000d 00c4 | | Action Make_Default
000e 00c4 | | Action Make_Default
000f 00c4 | | Action Make_Default
0010 00c4 | | Action Make_Default
0011 00c4 | | Action Make_Default
0012 00c4 | | Action Make_Default
0013 00c4 | | Action Make_Default
0014 00c4 | | Action Make_Default
0015 00c4 | | Action Make_Default
0016 00c4 | | Action Make_Default
0017 00c4 | | Action Make_Default
0018 00c4 | | Action Make_Default
0019 00c4 | | Action Make_Default
001a 00c4 | | Action Make_Default
001b 00c4 | | Action Make_Default
001c 00c4 | | Action Make_Default
001d 00c4 | | Action Make_Default
001e 00c4 | | Action Make_Default
001f 00c4 | | Action Make_Default
0020 00c4 | | Action Make_Default
0021 00c4 | | Action Make_Default
0022 00c4 | | Action Make_Default
0023 00c4 | | Action Make_Default
0024 00c4 | | Action Make_Default
0025 00c4 | | Action Make_Default
0026 00c4 | | Action Make_Default
0027 00c4 | | Action Make_Default
0028 00c4 | | Action Make_Default
0029 00c4 | | Action Make_Default
002a 00c4 | | Action Make_Default
002b 00c4 | | Action Make_Default
002c 00c4 | | Action Make_Default
002d 00c4 | | Action Make_Default
002e 00c4 | | Action Make_Default
002f 029a 00d3 | | Declare_Subprogram INIT_00d0,For_Outer_Call,Visible,Unelaborated
0031 c229 | ) | Store 0x1,0x29
0032 029a 00eb | | Declare_Subprogram INIT_00e8,For_Outer_Call,Visible,Unelaborated
0034 c214 | | Store 0x1,0x14
0035 029a 00fb | | Declare_Subprogram INIT_00f8,For_Outer_Call,Visible,Unelaborated
0037 c22a | * | Store 0x1,0x2a
0038 029a 0113 | | Declare_Subprogram INIT_0110,For_Outer_Call,Visible,Unelaborated
003a c216 | | Store 0x1,0x16
003b 029a 0123 | #| Declare_Subprogram INIT_0120,For_Outer_Call,Visible,Unelaborated
003d c22b | + | Store 0x1,0x2b
003e 029a 013b | ;| Declare_Subprogram INIT_0138,For_Outer_Call,Visible,Unelaborated
0040 c218 | | Store 0x1,0x18
0041 029a 014b | K| Declare_Subprogram INIT_0148,For_Outer_Call,Visible,Unelaborated
0043 c22c | , | Store 0x1,0x2c
0044 029a 0163 | c| Declare_Subprogram INIT_0160,For_Outer_Call,Visible,Unelaborated
0046 c21a | | Store 0x1,0x1a
0047 029a 017b | {| Declare_Subprogram INIT_0178,For_Outer_Call,Visible,Unelaborated
0049 c22d | - | Store 0x1,0x2d
004a 029a 0193 | | Declare_Subprogram INIT_0190,For_Outer_Call,Visible,Unelaborated
004c c21c | | Store 0x1,0x1c
004d 029a 01c3 | | Declare_Subprogram INIT_01c0,For_Outer_Call,Visible,Unelaborated
004f c22e | . | Store 0x1,0x2e
0050 029a 01f3 | | Declare_Subprogram INIT_01f0,For_Outer_Call,Visible,Unelaborated
0052 c22f | / | Store 0x1,0x2f
0053 029a 020b | | Declare_Subprogram INIT_0208,For_Outer_Call,Visible,Unelaborated
0055 c21f | | Store 0x1,0x1f
0056 029a 022b | +| Declare_Subprogram INIT_0228,For_Outer_Call,Visible,Unelaborated
0058 c230 | 0 | Store 0x1,0x30
0059 029a 0253 | S| Declare_Subprogram INIT_0250,For_Outer_Call,Visible,Unelaborated
005b c231 | 1 | Store 0x1,0x31
005c 029a 026b | k| Declare_Subprogram INIT_0268,For_Outer_Call,Visible,Unelaborated
005e c222 | " | Store 0x1,0x22
005f 029a 0283 | | Declare_Subprogram INIT_0280,For_Outer_Call,Visible,Unelaborated
0061 c232 | 2 | Store 0x1,0x32
0062 029a 02ab | | Declare_Subprogram INIT_02a8,For_Outer_Call,Visible,Unelaborated
0064 c224 | $ | Store 0x1,0x24
0065 029a 02c3 | | Declare_Subprogram INIT_02c0,For_Outer_Call,Visible,Unelaborated
0067 c233 | 3 | Store 0x1,0x33
0068 4803 |H | Short_Literal 0x3
0069 0093 041b | | push_full_address INIT_0418
006b 02a0 | | Declare_Subprogram Null_Subprogram
006c 038d | | Declare_Type Package,Defined,Visible,Not_Elaborated
006d c226 | & | Store 0x1,0x26
006e 4809 |H | Short_Literal 0x9
006f 0093 032b | +| push_full_address INIT_0328
0071 02a0 | | Declare_Subprogram Null_Subprogram
0072 038d | | Declare_Type Package,Defined,Visible,Not_Elaborated
0073 c234 | 4 | Store 0x1,0x34
0074 4803 |H | Short_Literal 0x3
0075 0093 02eb | | push_full_address INIT_02e8
0077 02a0 | | Declare_Subprogram Null_Subprogram
0078 038d | | Declare_Type Package,Defined,Visible,Not_Elaborated
0079 e001 | | Load 0x0,0x1
007a 4801 |H | Short_Literal 0x1
007b 00da | | Load_Top At_Offset_2
007c 020e | | Execute Module,Augment_Imports
007d c228 | ( | Store 0x1,0x28
007e 00bf | | Action Accept_Activation
007f 1d12 | | Execute_Immediate Reference_Lex_1,0x12
0080 00c7 | | Action Elaborate_Subprogram
0081 1d29 | ) | Execute_Immediate Reference_Lex_1,0x29
0082 00c7 | | Action Elaborate_Subprogram
0083 1d14 | | Execute_Immediate Reference_Lex_1,0x14
0084 00c7 | | Action Elaborate_Subprogram
0085 1d2a | * | Execute_Immediate Reference_Lex_1,0x2a
0086 00c7 | | Action Elaborate_Subprogram
0087 1d16 | | Execute_Immediate Reference_Lex_1,0x16
0088 00c7 | | Action Elaborate_Subprogram
0089 1d2b | + | Execute_Immediate Reference_Lex_1,0x2b
008a 00c7 | | Action Elaborate_Subprogram
008b 1d18 | | Execute_Immediate Reference_Lex_1,0x18
008c 00c7 | | Action Elaborate_Subprogram
008d 1d2c | , | Execute_Immediate Reference_Lex_1,0x2c
008e 00c7 | | Action Elaborate_Subprogram
008f 1d1a | | Execute_Immediate Reference_Lex_1,0x1a
0090 00c7 | | Action Elaborate_Subprogram
0091 1d2d | - | Execute_Immediate Reference_Lex_1,0x2d
0092 00c7 | | Action Elaborate_Subprogram
0093 1d1c | | Execute_Immediate Reference_Lex_1,0x1c
0094 00c7 | | Action Elaborate_Subprogram
0095 1d2e | . | Execute_Immediate Reference_Lex_1,0x2e
0096 00c7 | | Action Elaborate_Subprogram
0097 1d2f | / | Execute_Immediate Reference_Lex_1,0x2f
0098 00c7 | | Action Elaborate_Subprogram
0099 1d1f | | Execute_Immediate Reference_Lex_1,0x1f
009a 00c7 | | Action Elaborate_Subprogram
009b 1d30 | 0 | Execute_Immediate Reference_Lex_1,0x30
009c 00c7 | | Action Elaborate_Subprogram
009d 1d31 | 1 | Execute_Immediate Reference_Lex_1,0x31
009e 00c7 | | Action Elaborate_Subprogram
009f 1d22 | " | Execute_Immediate Reference_Lex_1,0x22
00a0 00c7 | | Action Elaborate_Subprogram
00a1 1d32 | 2 | Execute_Immediate Reference_Lex_1,0x32
00a2 00c7 | | Action Elaborate_Subprogram
00a3 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24
00a4 00c7 | | Action Elaborate_Subprogram
00a5 1d33 | 3 | Execute_Immediate Reference_Lex_1,0x33
00a6 00c7 | | Action Elaborate_Subprogram
00a7 e001 | | Load 0x0,0x1
00a8 00b6 | | Action Make_Scope
00a9 4802 |H | Short_Literal 0x2
00aa e226 | & | Load 0x1,0x26
00ab 020e | | Execute Module,Augment_Imports
00ac e226 | & | Load 0x1,0x26
00ad 020d | | Execute Module,Elaborate
00ae 0007 | | Action Break_Optional
00af 00b6 | | Action Make_Scope
00b0 e001 | | Load 0x0,0x1
00b1 4802 |H | Short_Literal 0x2
00b2 00db | | Load_Top At_Offset_3
00b3 020e | | Execute Module,Augment_Imports
00b4 00d8 | | Load_Top At_Offset_0
00b5 020d | | Execute Module,Elaborate
00b6 0007 | | Action Break_Optional
00b7 00b6 | | Action Make_Scope
00b8 4801 |H | Short_Literal 0x1
00b9 e228 | ( | Load 0x1,0x28
00ba 020e | | Execute Module,Augment_Imports
00bb e228 | ( | Load 0x1,0x28
00bc 020d | | Execute Module,Elaborate
00bd BODY_0008:
00bd 00bc | | Action Signal_Activated
00be 00bb | | Action Signal_Completion
00bf 0000 | | .XXX[0x1]
00c0 ; --------------------------------------------------------------------------------------
00c0 ; SUBPROGRAM
00c0 ; --------------------------------------------------------------------------------------
00c0 00c3 | | .CONST 0x00c3 ; Address of begin
00c1 0004 | | .CONST 0x0004 ; Address of exception handler
00c2 0001 | | .CONST 0x0001 ; Number of locals
00c3 BODY_00c0:
00c3 INIT_00c0:
00c3 00db | | Load_Top At_Offset_3
00c4 8002 | | Call 0x0,0x2
00c5 00db | | Load_Top At_Offset_3
00c6 e20f | | Load 0x1,0xf
00c7 0119 | | Execute Any,Check_In_Formal_Type
00c8 8210 | | Call 0x1,0x10
00c9 4503 |E | Exit_Suprogram New_Top_Offset 0x3
00ca 0000 0000 | | .BLANK 0000[0x6]
00d0 ; --------------------------------------------------------------------------------------
00d0 ; SUBPROGRAM
00d0 ; --------------------------------------------------------------------------------------
00d0 00d5 | | .CONST 0x00d5 ; Address of begin
00d1 0004 | | .CONST 0x0004 ; Address of exception handler
00d2 0002 | | .CONST 0x0002 ; Number of locals
00d3 INIT_00d0:
00d3 e003 | | Load 0x0,0x3
00d4 0337 | 7 | Declare_Variable Array
00d5 BODY_00d0:
00d5 00d8 | | Load_Top At_Offset_0
00d6 e5fe | | Load 0x2,-0x2
00d7 e5ff | | Load 0x2,-0x1
00d8 e20f | | Load 0x1,0xf
00d9 0119 | | Execute Any,Check_In_Formal_Type
00da 8211 | | Call 0x1,0x11
00db 00d1 | | Pop_Control Pop_Count_1
00dc 4800 |H | Short_Literal 0x0
00dd 00d9 | | Load_Top At_Offset_1
00de 8004 | | Call 0x0,0x4
00df 00d8 | | Load_Top At_Offset_0
00e0 e001 | | Load 0x0,0x1
00e1 1b11 | | Execute Package,Field_Read,Field_Number 0x11
00e2 0260 | ` | Execute Discrete,In_Type
00e3 7001 |p | Jump_Nonzero 0xe5
00e4 0801 | | Execute_Immediate Raise,0x1
00e5 a5fd | | Store_Unchecked 0x2,-0x3
00e6 4503 |E | Exit_Suprogram New_Top_Offset 0x3
00e7 0000 | | .XXX[0x1]
00e8 ; --------------------------------------------------------------------------------------
00e8 ; SUBPROGRAM
00e8 ; --------------------------------------------------------------------------------------
00e8 00eb | | .CONST 0x00eb ; Address of begin
00e9 0004 | | .CONST 0x0004 ; Address of exception handler
00ea 0001 | | .CONST 0x0001 ; Number of locals
00eb BODY_00e8:
00eb INIT_00e8:
00eb 00db | | Load_Top At_Offset_3
00ec 8002 | | Call 0x0,0x2
00ed 00db | | Load_Top At_Offset_3
00ee e20f | | Load 0x1,0xf
00ef 0119 | | Execute Any,Check_In_Formal_Type
00f0 8210 | | Call 0x1,0x10
00f1 4503 |E | Exit_Suprogram New_Top_Offset 0x3
00f2 0000 0000 | | .BLANK 0000[0x6]
00f8 ; --------------------------------------------------------------------------------------
00f8 ; SUBPROGRAM
00f8 ; --------------------------------------------------------------------------------------
00f8 00fd | | .CONST 0x00fd ; Address of begin
00f9 0004 | | .CONST 0x0004 ; Address of exception handler
00fa 0002 | | .CONST 0x0002 ; Number of locals
00fb INIT_00f8:
00fb e003 | | Load 0x0,0x3
00fc 0337 | 7 | Declare_Variable Array
00fd BODY_00f8:
00fd 00d8 | | Load_Top At_Offset_0
00fe e5fe | | Load 0x2,-0x2
00ff e5ff | | Load 0x2,-0x1
0100 e20f | | Load 0x1,0xf
0101 0119 | | Execute Any,Check_In_Formal_Type
0102 8211 | | Call 0x1,0x11
0103 00d1 | | Pop_Control Pop_Count_1
0104 4801 |H | Short_Literal 0x1
0105 00d9 | | Load_Top At_Offset_1
0106 8004 | | Call 0x0,0x4
0107 00d8 | | Load_Top At_Offset_0
0108 e001 | | Load 0x0,0x1
0109 1b12 | | Execute Package,Field_Read,Field_Number 0x12
010a 0260 | ` | Execute Discrete,In_Type
010b 7001 |p | Jump_Nonzero 0x10d
010c 0801 | | Execute_Immediate Raise,0x1
010d a5fd | | Store_Unchecked 0x2,-0x3
010e 4503 |E | Exit_Suprogram New_Top_Offset 0x3
010f 0000 | | .XXX[0x1]
0110 ; --------------------------------------------------------------------------------------
0110 ; SUBPROGRAM
0110 ; --------------------------------------------------------------------------------------
0110 0113 | | .CONST 0x0113 ; Address of begin
0111 0004 | | .CONST 0x0004 ; Address of exception handler
0112 0001 | | .CONST 0x0001 ; Number of locals
0113 BODY_0110:
0113 INIT_0110:
0113 00db | | Load_Top At_Offset_3
0114 e005 | | Load 0x0,0x5
0115 180f | | Execute Package,Field_Execute,Field_Number 0xf
0116 00db | | Load_Top At_Offset_3
0117 e20f | | Load 0x1,0xf
0118 0119 | | Execute Any,Check_In_Formal_Type
0119 8210 | | Call 0x1,0x10
011a 4503 |E | Exit_Suprogram New_Top_Offset 0x3
011b 0000 0000 | | .BLANK 0000[0x5]
0120 ; --------------------------------------------------------------------------------------
0120 ; SUBPROGRAM
0120 ; --------------------------------------------------------------------------------------
0120 0125 | % | .CONST 0x0125 ; Address of begin
0121 0004 | | .CONST 0x0004 ; Address of exception handler
0122 0002 | | .CONST 0x0002 ; Number of locals
0123 INIT_0120:
0123 e003 | | Load 0x0,0x3
0124 0337 | 7 | Declare_Variable Array
0125 BODY_0120:
0125 00d8 | | Load_Top At_Offset_0
0126 e5fe | | Load 0x2,-0x2
0127 e5ff | | Load 0x2,-0x1
0128 e20f | | Load 0x1,0xf
0129 0119 | | Execute Any,Check_In_Formal_Type
012a 8211 | | Call 0x1,0x11
012b 00d1 | | Pop_Control Pop_Count_1
012c 00d8 | | Load_Top At_Offset_0
012d e005 | | Load 0x0,0x5
012e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
012f 01c7 | | Execute Vector,Convert
0130 e005 | | Load 0x0,0x5
0131 180e | | Execute Package,Field_Execute,Field_Number 0xe
0132 a5fd | | Store_Unchecked 0x2,-0x3
0133 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0134 0000 0000 | | .BLANK 0000[0x4]
0138 ; --------------------------------------------------------------------------------------
0138 ; SUBPROGRAM
0138 ; --------------------------------------------------------------------------------------
0138 013b | ; | .CONST 0x013b ; Address of begin
0139 0004 | | .CONST 0x0004 ; Address of exception handler
013a 0001 | | .CONST 0x0001 ; Number of locals
013b BODY_0138:
013b INIT_0138:
013b 00db | | Load_Top At_Offset_3
013c e005 | | Load 0x0,0x5
013d 1812 | | Execute Package,Field_Execute,Field_Number 0x12
013e 00db | | Load_Top At_Offset_3
013f e20f | | Load 0x1,0xf
0140 0119 | | Execute Any,Check_In_Formal_Type
0141 8210 | | Call 0x1,0x10
0142 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0143 0000 0000 | | .BLANK 0000[0x5]
0148 ; --------------------------------------------------------------------------------------
0148 ; SUBPROGRAM
0148 ; --------------------------------------------------------------------------------------
0148 014d | M | .CONST 0x014d ; Address of begin
0149 0004 | | .CONST 0x0004 ; Address of exception handler
014a 0002 | | .CONST 0x0002 ; Number of locals
014b INIT_0148:
014b e006 | | Load 0x0,0x6
014c 0337 | 7 | Declare_Variable Array
014d BODY_0148:
014d 00d8 | | Load_Top At_Offset_0
014e e5fe | | Load 0x2,-0x2
014f e5ff | | Load 0x2,-0x1
0150 e20f | | Load 0x1,0xf
0151 0119 | | Execute Any,Check_In_Formal_Type
0152 8211 | | Call 0x1,0x11
0153 00d1 | | Pop_Control Pop_Count_1
0154 00d8 | | Load_Top At_Offset_0
0155 e005 | | Load 0x0,0x5
0156 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0157 01c7 | | Execute Vector,Convert
0158 e005 | | Load 0x0,0x5
0159 1811 | | Execute Package,Field_Execute,Field_Number 0x11
015a a5fd | | Store_Unchecked 0x2,-0x3
015b 4503 |E | Exit_Suprogram New_Top_Offset 0x3
015c 0000 0000 | | .BLANK 0000[0x4]
0160 ; --------------------------------------------------------------------------------------
0160 ; SUBPROGRAM
0160 ; --------------------------------------------------------------------------------------
0160 0163 | c | .CONST 0x0163 ; Address of begin
0161 0004 | | .CONST 0x0004 ; Address of exception handler
0162 0001 | | .CONST 0x0001 ; Number of locals
0163 BODY_0160:
0163 INIT_0160:
0163 00db | | Load_Top At_Offset_3
0164 6806 |h | Jump_Zero 0x16b
0165 4801 |H | Short_Literal 0x1
0166 00db | | Load_Top At_Offset_3
0167 e20f | | Load 0x1,0xf
0168 0119 | | Execute Any,Check_In_Formal_Type
0169 8214 | | Call 0x1,0x14
016a 4503 |E | Exit_Suprogram New_Top_Offset 0x3
016b 4800 |H | Short_Literal 0x0
016c 00db | | Load_Top At_Offset_3
016d e20f | | Load 0x1,0xf
016e 0119 | | Execute Any,Check_In_Formal_Type
016f 8214 | | Call 0x1,0x14
0170 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0171 0000 0000 | | .BLANK 0000[0x7]
0178 ; --------------------------------------------------------------------------------------
0178 ; SUBPROGRAM
0178 ; --------------------------------------------------------------------------------------
0178 017d | } | .CONST 0x017d ; Address of begin
0179 0004 | | .CONST 0x0004 ; Address of exception handler
017a 0002 | | .CONST 0x0002 ; Number of locals
017b INIT_0178:
017b e001 | | Load 0x0,0x1
017c 1b12 | | Execute Package,Field_Read,Field_Number 0x12
017d BODY_0178:
017d e001 | | Load 0x0,0x1
017e 1b12 | | Execute Package,Field_Read,Field_Number 0x12
017f e5fe | | Load 0x2,-0x2
0180 e5ff | | Load 0x2,-0x1
0181 e20f | | Load 0x1,0xf
0182 0119 | | Execute Any,Check_In_Formal_Type
0183 822a | * | Call 0x1,0x2a
0184 0059 | Y | Store_Top Discrete,At_Offset_1
0185 00d8 | | Load_Top At_Offset_0
0186 0e00 | | Execute_Immediate Not_Equal,0x0
0187 a5fd | | Store_Unchecked 0x2,-0x3
0188 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0189 0000 0000 | | .BLANK 0000[0x7]
0190 ; --------------------------------------------------------------------------------------
0190 ; SUBPROGRAM
0190 ; --------------------------------------------------------------------------------------
0190 0199 | | .CONST 0x0199 ; Address of begin
0191 01b3 | | .CONST 0x01b3 ; Address of exception handler
0192 0002 | | .CONST 0x0002 ; Number of locals
0193 INIT_0190:
0193 00db | | Load_Top At_Offset_3
0194 01da | | Execute Vector,Bounds
0195 e001 | | Load 0x0,0x1
0196 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0197 035b | [ | Declare_Type Array,Constrained
0198 0337 | 7 | Declare_Variable Array
0199 BODY_0190:
0199 00cf | | Action Mark_Auxiliary
019a e5fe | | Load 0x2,-0x2
019b 01d9 | | Execute Vector,Reverse_Bounds
019c 0263 | c | Execute Discrete,Above_Bound
019d 700e |p | Jump_Nonzero 0x1ac
019e 00d8 | | Load_Top At_Offset_0
019f e5fe | | Load 0x2,-0x2
01a0 01d7 | | Execute Vector,Field_Read
01a1 00d8 | | Load_Top At_Offset_0
01a2 e007 | | Load 0x0,0x7
01a3 1b11 | | Execute Package,Field_Read,Field_Number 0x11
01a4 0260 | ` | Execute Discrete,In_Type
01a5 7001 |p | Jump_Nonzero 0x1a7
01a6 0801 | | Execute_Immediate Raise,0x1
01a7 00d9 | | Load_Top At_Offset_1
01a8 e402 | | Load 0x2,0x2
01a9 01d6 | | Execute Vector,Field_Write
01aa 00c8 | | Action Pop_Auxiliary_Range
01ab 3ff2 |? | Loop_Increasing 0x19e
01ac 00ce | | Action Pop_Auxiliary
01ad 00d8 | | Load_Top At_Offset_0
01ae e5ff | | Load 0x2,-0x1
01af e20f | | Load 0x1,0xf
01b0 0119 | | Execute Any,Check_In_Formal_Type
01b1 821f | | Call 0x1,0x1f
01b2 4503 |E | Exit_Suprogram New_Top_Offset 0x3
01b3 TRAP_0190:
01b3 010e | | Execute Exception,Is_Constraint_Error
01b4 7002 |p | Jump_Nonzero 0x1b7
01b5 010d | | Execute Exception,Is_Numeric_Error
01b6 6803 |h | Jump_Zero 0x1ba
01b7 e001 | | Load 0x0,0x1
01b8 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01b9 0257 | W | Execute Discrete,Raise
01ba 0100 | | Execute Exception,Raise
01bb 0000 0000 | | .BLANK 0000[0x5]
01c0 ; --------------------------------------------------------------------------------------
01c0 ; SUBPROGRAM
01c0 ; --------------------------------------------------------------------------------------
01c0 01c9 | | .CONST 0x01c9 ; Address of begin
01c1 01e3 | | .CONST 0x01e3 ; Address of exception handler
01c2 0002 | | .CONST 0x0002 ; Number of locals
01c3 INIT_01c0:
01c3 e5fd | | Load 0x2,-0x3
01c4 01da | | Execute Vector,Bounds
01c5 e001 | | Load 0x0,0x1
01c6 1b0f | | Execute Package,Field_Read,Field_Number 0xf
01c7 035b | [ | Declare_Type Array,Constrained
01c8 0337 | 7 | Declare_Variable Array
01c9 BODY_01c0:
01c9 00d8 | | Load_Top At_Offset_0
01ca e5fe | | Load 0x2,-0x2
01cb e5ff | | Load 0x2,-0x1
01cc e20f | | Load 0x1,0xf
01cd 0119 | | Execute Any,Check_In_Formal_Type
01ce 8230 | 0 | Call 0x1,0x30
01cf 00d1 | | Pop_Control Pop_Count_1
01d0 00cf | | Action Mark_Auxiliary
01d1 e5fd | | Load 0x2,-0x3
01d2 01d9 | | Execute Vector,Reverse_Bounds
01d3 0263 | c | Execute Discrete,Above_Bound
01d4 700d |p | Jump_Nonzero 0x1e2
01d5 00d8 | | Load_Top At_Offset_0
01d6 e402 | | Load 0x2,0x2
01d7 01d7 | | Execute Vector,Field_Read
01d8 00d8 | | Load_Top At_Offset_0
01d9 00e8 | | Load_Encached Character_Cache
01da 0260 | ` | Execute Discrete,In_Type
01db 7001 |p | Jump_Nonzero 0x1dd
01dc 0801 | | Execute_Immediate Raise,0x1
01dd 00d9 | | Load_Top At_Offset_1
01de e5fd | | Load 0x2,-0x3
01df 01d6 | | Execute Vector,Field_Write
01e0 00c8 | | Action Pop_Auxiliary_Range
01e1 3ff3 |? | Loop_Increasing 0x1d5
01e2 4503 |E | Exit_Suprogram New_Top_Offset 0x3
01e3 TRAP_01c0:
01e3 010e | | Execute Exception,Is_Constraint_Error
01e4 7002 |p | Jump_Nonzero 0x1e7
01e5 010d | | Execute Exception,Is_Numeric_Error
01e6 6803 |h | Jump_Zero 0x1ea
01e7 e001 | | Load 0x0,0x1
01e8 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01e9 0257 | W | Execute Discrete,Raise
01ea 0100 | | Execute Exception,Raise
01eb 0000 0000 | | .BLANK 0000[0x5]
01f0 ; --------------------------------------------------------------------------------------
01f0 ; SUBPROGRAM
01f0 ; --------------------------------------------------------------------------------------
01f0 01f8 | | .CONST 0x01f8 ; Address of begin
01f1 0004 | | .CONST 0x0004 ; Address of exception handler
01f2 0002 | | .CONST 0x0002 ; Number of locals
01f3 INIT_01f0:
01f3 4801 |H | Short_Literal 0x1
01f4 e5fe | | Load 0x2,-0x2
01f5 00e9 | | Load_Encached String_Cache
01f6 035b | [ | Declare_Type Array,Constrained
01f7 0337 | 7 | Declare_Variable Array
01f8 BODY_01f0:
01f8 00d8 | | Load_Top At_Offset_0
01f9 e5fd | | Load 0x2,-0x3
01fa e5ff | | Load 0x2,-0x1
01fb e20f | | Load 0x1,0xf
01fc 0119 | | Execute Any,Check_In_Formal_Type
01fd 822e | . | Call 0x1,0x2e
01fe 00d1 | | Pop_Control Pop_Count_1
01ff 00d8 | | Load_Top At_Offset_0
0200 00e9 | | Load_Encached String_Cache
0201 01c6 | | Execute Vector,Convert_To_Formal
0202 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0203 0000 0000 | | .BLANK 0000[0x5]
0208 ; --------------------------------------------------------------------------------------
0208 ; SUBPROGRAM
0208 ; --------------------------------------------------------------------------------------
0208 020b | | .CONST 0x020b ; Address of begin
0209 0004 | | .CONST 0x0004 ; Address of exception handler
020a 0001 | | .CONST 0x0001 ; Number of locals
020b BODY_0208:
020b INIT_0208:
020b 00db | | Load_Top At_Offset_3
020c 00db | | Load_Top At_Offset_3
020d e20f | | Load 0x1,0xf
020e 0119 | | Execute Any,Check_In_Formal_Type
020f 8210 | | Call 0x1,0x10
0210 00db | | Load_Top At_Offset_3
0211 01db | | Execute Vector,Length
0212 4803 |H | Short_Literal 0x3
0213 0279 | y | Execute Discrete,And
0214 6811 |h | Jump_Zero 0x226
0215 4801 |H | Short_Literal 0x1
0216 e5fe | | Load 0x2,-0x2
0217 01db | | Execute Vector,Length
0218 0275 | u | Execute Discrete,Unary_Minus
0219 4803 |H | Short_Literal 0x3
021a 0279 | y | Execute Discrete,And
021b 00d8 | | Load_Top At_Offset_0
021c 00e2 | | Load_Encached Integer_Cache
021d 0260 | ` | Execute Discrete,In_Type
021e 7001 |p | Jump_Nonzero 0x220
021f 0801 | | Execute_Immediate Raise,0x1
0220 e008 | | Load 0x0,0x8
0221 01cf | | Execute Vector,Slice_Read
0222 00db | | Load_Top At_Offset_3
0223 e20f | | Load 0x1,0xf
0224 0119 | | Execute Any,Check_In_Formal_Type
0225 8210 | | Call 0x1,0x10
0226 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0227 0000 | | .XXX[0x1]
0228 ; --------------------------------------------------------------------------------------
0228 ; SUBPROGRAM
0228 ; --------------------------------------------------------------------------------------
0228 023a | : | .CONST 0x023a ; Address of begin
0229 0004 | | .CONST 0x0004 ; Address of exception handler
022a 0002 | | .CONST 0x0002 ; Number of locals
022b INIT_0228:
022b 4801 |H | Short_Literal 0x1
022c e5fd | | Load 0x2,-0x3
022d 01db | | Execute Vector,Length
022e 0275 | u | Execute Discrete,Unary_Minus
022f 4803 |H | Short_Literal 0x3
0230 0279 | y | Execute Discrete,And
0231 00d8 | | Load_Top At_Offset_0
0232 00e2 | | Load_Encached Integer_Cache
0233 0260 | ` | Execute Discrete,In_Type
0234 7001 |p | Jump_Nonzero 0x236
0235 0801 | | Execute_Immediate Raise,0x1
0236 e001 | | Load 0x0,0x1
0237 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0238 035b | [ | Declare_Type Array,Constrained
0239 0337 | 7 | Declare_Variable Array
023a BODY_0228:
023a e5fd | | Load 0x2,-0x3
023b e5fe | | Load 0x2,-0x2
023c e5ff | | Load 0x2,-0x1
023d e20f | | Load 0x1,0xf
023e 0119 | | Execute Any,Check_In_Formal_Type
023f 8211 | | Call 0x1,0x11
0240 00d1 | | Pop_Control Pop_Count_1
0241 00d8 | | Load_Top At_Offset_0
0242 01db | | Execute Vector,Length
0243 6807 |h | Jump_Zero 0x24b
0244 00d8 | | Load_Top At_Offset_0
0245 e5fe | | Load 0x2,-0x2
0246 e5ff | | Load 0x2,-0x1
0247 e20f | | Load 0x1,0xf
0248 0119 | | Execute Any,Check_In_Formal_Type
0249 8211 | | Call 0x1,0x11
024a 00d1 | | Pop_Control Pop_Count_1
024b 4503 |E | Exit_Suprogram New_Top_Offset 0x3
024c 0000 0000 | | .BLANK 0000[0x4]
0250 ; --------------------------------------------------------------------------------------
0250 ; SUBPROGRAM
0250 ; --------------------------------------------------------------------------------------
0250 0259 | Y | .CONST 0x0259 ; Address of begin
0251 0004 | | .CONST 0x0004 ; Address of exception handler
0252 0002 | | .CONST 0x0002 ; Number of locals
0253 INIT_0250:
0253 4801 |H | Short_Literal 0x1
0254 e5fe | | Load 0x2,-0x2
0255 e001 | | Load 0x0,0x1
0256 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0257 035b | [ | Declare_Type Array,Constrained
0258 0337 | 7 | Declare_Variable Array
0259 BODY_0250:
0259 00d8 | | Load_Top At_Offset_0
025a e5fd | | Load 0x2,-0x3
025b e5ff | | Load 0x2,-0x1
025c e20f | | Load 0x1,0xf
025d 0119 | | Execute Any,Check_In_Formal_Type
025e 8230 | 0 | Call 0x1,0x30
025f 00d1 | | Pop_Control Pop_Count_1
0260 00d8 | | Load_Top At_Offset_0
0261 e007 | | Load 0x0,0x7
0262 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0263 01c6 | | Execute Vector,Convert_To_Formal
0264 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0265 0000 0000 | | .XXX[0x3]
0267 0000 | |
0268 ; --------------------------------------------------------------------------------------
0268 ; SUBPROGRAM
0268 ; --------------------------------------------------------------------------------------
0268 026b | k | .CONST 0x026b ; Address of begin
0269 0004 | | .CONST 0x0004 ; Address of exception handler
026a 0001 | | .CONST 0x0001 ; Number of locals
026b BODY_0268:
026b INIT_0268:
026b 00db | | Load_Top At_Offset_3
026c 01db | | Execute Vector,Length
026d 00d8 | | Load_Top At_Offset_0
026e e001 | | Load 0x0,0x1
026f 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0270 0260 | ` | Execute Discrete,In_Type
0271 7001 |p | Jump_Nonzero 0x273
0272 0801 | | Execute_Immediate Raise,0x1
0273 00db | | Load_Top At_Offset_3
0274 e20f | | Load 0x1,0xf
0275 0119 | | Execute Any,Check_In_Formal_Type
0276 8214 | | Call 0x1,0x14
0277 00db | | Load_Top At_Offset_3
0278 00db | | Load_Top At_Offset_3
0279 e20f | | Load 0x1,0xf
027a 0119 | | Execute Any,Check_In_Formal_Type
027b 821c | | Call 0x1,0x1c
027c 4503 |E | Exit_Suprogram New_Top_Offset 0x3
027d 0000 0000 | | .XXX[0x3]
027f 0000 | |
0280 ; --------------------------------------------------------------------------------------
0280 ; SUBPROGRAM
0280 ; --------------------------------------------------------------------------------------
0280 0285 | | .CONST 0x0285 ; Address of begin
0281 0299 | | .CONST 0x0299 ; Address of exception handler
0282 0002 | | .CONST 0x0002 ; Number of locals
0283 INIT_0280:
0283 e001 | | Load 0x0,0x1
0284 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0285 BODY_0280:
0285 e001 | | Load 0x0,0x1
0286 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0287 e5fe | | Load 0x2,-0x2
0288 e5ff | | Load 0x2,-0x1
0289 e20f | | Load 0x1,0xf
028a 0119 | | Execute Any,Check_In_Formal_Type
028b 822a | * | Call 0x1,0x2a
028c 0059 | Y | Store_Top Discrete,At_Offset_1
028d e5fe | | Load 0x2,-0x2
028e 00d9 | | Load_Top At_Offset_1
028f 00d8 | | Load_Top At_Offset_0
0290 00e3 | | Load_Encached Natural_Cache
0291 0260 | ` | Execute Discrete,In_Type
0292 7001 |p | Jump_Nonzero 0x294
0293 0801 | | Execute_Immediate Raise,0x1
0294 e5ff | | Load 0x2,-0x1
0295 e20f | | Load 0x1,0xf
0296 0119 | | Execute Any,Check_In_Formal_Type
0297 822f | / | Call 0x1,0x2f
0298 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0299 TRAP_0280:
0299 010e | | Execute Exception,Is_Constraint_Error
029a 7002 |p | Jump_Nonzero 0x29d
029b 010d | | Execute Exception,Is_Numeric_Error
029c 6803 |h | Jump_Zero 0x2a0
029d e001 | | Load 0x0,0x1
029e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
029f 0257 | W | Execute Discrete,Raise
02a0 0100 | | Execute Exception,Raise
02a1 0000 0000 | | .BLANK 0000[0x7]
02a8 ; --------------------------------------------------------------------------------------
02a8 ; SUBPROGRAM
02a8 ; --------------------------------------------------------------------------------------
02a8 02ab | | .CONST 0x02ab ; Address of begin
02a9 0004 | | .CONST 0x0004 ; Address of exception handler
02aa 0001 | | .CONST 0x0001 ; Number of locals
02ab BODY_02a8:
02ab INIT_02a8:
02ab 00db | | Load_Top At_Offset_3
02ac 01db | | Execute Vector,Length
02ad 00d8 | | Load_Top At_Offset_0
02ae e001 | | Load 0x0,0x1
02af 1b12 | | Execute Package,Field_Read,Field_Number 0x12
02b0 0260 | ` | Execute Discrete,In_Type
02b1 7001 |p | Jump_Nonzero 0x2b3
02b2 0801 | | Execute_Immediate Raise,0x1
02b3 00db | | Load_Top At_Offset_3
02b4 e20f | | Load 0x1,0xf
02b5 0119 | | Execute Any,Check_In_Formal_Type
02b6 8214 | | Call 0x1,0x14
02b7 00db | | Load_Top At_Offset_3
02b8 00db | | Load_Top At_Offset_3
02b9 e20f | | Load 0x1,0xf
02ba 0119 | | Execute Any,Check_In_Formal_Type
02bb 821f | | Call 0x1,0x1f
02bc 4503 |E | Exit_Suprogram New_Top_Offset 0x3
02bd 0000 0000 | | .XXX[0x3]
02bf 0000 | |
02c0 ; --------------------------------------------------------------------------------------
02c0 ; SUBPROGRAM
02c0 ; --------------------------------------------------------------------------------------
02c0 02c5 | | .CONST 0x02c5 ; Address of begin
02c1 02d9 | | .CONST 0x02d9 ; Address of exception handler
02c2 0002 | | .CONST 0x0002 ; Number of locals
02c3 INIT_02c0:
02c3 e001 | | Load 0x0,0x1
02c4 1b12 | | Execute Package,Field_Read,Field_Number 0x12
02c5 BODY_02c0:
02c5 e001 | | Load 0x0,0x1
02c6 1b12 | | Execute Package,Field_Read,Field_Number 0x12
02c7 e5fe | | Load 0x2,-0x2
02c8 e5ff | | Load 0x2,-0x1
02c9 e20f | | Load 0x1,0xf
02ca 0119 | | Execute Any,Check_In_Formal_Type
02cb 822a | * | Call 0x1,0x2a
02cc 0059 | Y | Store_Top Discrete,At_Offset_1
02cd e5fe | | Load 0x2,-0x2
02ce 00d9 | | Load_Top At_Offset_1
02cf 00d8 | | Load_Top At_Offset_0
02d0 00e3 | | Load_Encached Natural_Cache
02d1 0260 | ` | Execute Discrete,In_Type
02d2 7001 |p | Jump_Nonzero 0x2d4
02d3 0801 | | Execute_Immediate Raise,0x1
02d4 e5ff | | Load 0x2,-0x1
02d5 e20f | | Load 0x1,0xf
02d6 0119 | | Execute Any,Check_In_Formal_Type
02d7 8231 | 1 | Call 0x1,0x31
02d8 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
02d9 TRAP_02c0:
02d9 010e | | Execute Exception,Is_Constraint_Error
02da 7002 |p | Jump_Nonzero 0x2dd
02db 010d | | Execute Exception,Is_Numeric_Error
02dc 6803 |h | Jump_Zero 0x2e0
02dd e001 | | Load 0x0,0x1
02de 1b0d | | Execute Package,Field_Read,Field_Number 0xd
02df 0257 | W | Execute Discrete,Raise
02e0 0100 | | Execute Exception,Raise
02e1 0000 0000 | | .BLANK 0000[0x7]
02e8 ; --------------------------------------------------------------------------------------
02e8 ; SUBPROGRAM
02e8 ; --------------------------------------------------------------------------------------
02e8 0306 | | .CONST 0x0306 ; Address of begin
02e9 0004 | | .CONST 0x0004 ; Address of exception handler
02ea 0013 | | .CONST 0x0013 ; Number of locals
02eb INIT_02e8:
02eb 4801 |H | Short_Literal 0x1
02ec 00d9 | | Load_Top At_Offset_1
02ed 00da | | Load_Top At_Offset_2
02ee 0275 | u | Execute Discrete,Unary_Minus
02ef 4803 |H | Short_Literal 0x3
02f0 0279 | y | Execute Discrete,And
02f1 0273 | s | Execute Discrete,Plus
02f2 00d8 | | Load_Top At_Offset_0
02f3 00e2 | | Load_Encached Integer_Cache
02f4 0260 | ` | Execute Discrete,In_Type
02f5 7001 |p | Jump_Nonzero 0x2f7
02f6 0801 | | Execute_Immediate Raise,0x1
02f7 e001 | | Load 0x0,0x1
02f8 1b0f | | Execute Package,Field_Read,Field_Number 0xf
02f9 035c | \ | Declare_Type Array,Constrained,Visible
02fa 029a 030b | | Declare_Subprogram INIT_0308,For_Outer_Call,Visible,Unelaborated
02fc 00c4 | | Action Make_Default
02fd 00c4 | | Action Make_Default
02fe 029a 031b | | Declare_Subprogram INIT_0318,For_Outer_Call,Visible,Unelaborated
0300 c213 | | Store 0x1,0x13
0301 00bf | | Action Accept_Activation
0302 1d11 | | Execute_Immediate Reference_Lex_1,0x11
0303 00c7 | | Action Elaborate_Subprogram
0304 1d13 | | Execute_Immediate Reference_Lex_1,0x13
0305 00c7 | | Action Elaborate_Subprogram
0306 BODY_02e8:
0306 00bc | | Action Signal_Activated
0307 00bb | | Action Signal_Completion
0308 ; --------------------------------------------------------------------------------------
0308 ; SUBPROGRAM
0308 ; --------------------------------------------------------------------------------------
0308 030b | | .CONST 0x030b ; Address of begin
0309 0004 | | .CONST 0x0004 ; Address of exception handler
030a 0001 | | .CONST 0x0001 ; Number of locals
030b BODY_0308:
030b INIT_0308:
030b 00db | | Load_Top At_Offset_3
030c 00db | | Load_Top At_Offset_3
030d e002 | | Load 0x0,0x2
030e 1b0f | | Execute Package,Field_Read,Field_Number 0xf
030f 0119 | | Execute Any,Check_In_Formal_Type
0310 e002 | | Load 0x0,0x2
0311 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0312 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0313 0000 0000 | | .BLANK 0000[0x5]
0318 ; --------------------------------------------------------------------------------------
0318 ; SUBPROGRAM
0318 ; --------------------------------------------------------------------------------------
0318 031b | | .CONST 0x031b ; Address of begin
0319 0004 | | .CONST 0x0004 ; Address of exception handler
031a 0001 | | .CONST 0x0001 ; Number of locals
031b BODY_0318:
031b INIT_0318:
031b e5fd | | Load 0x2,-0x3
031c e5fe | | Load 0x2,-0x2
031d e5ff | | Load 0x2,-0x1
031e e002 | | Load 0x0,0x2
031f 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0320 0119 | | Execute Any,Check_In_Formal_Type
0321 e002 | | Load 0x0,0x2
0322 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0323 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0324 0000 0000 | | .BLANK 0000[0x4]
0328 ; --------------------------------------------------------------------------------------
0328 ; SUBPROGRAM
0328 ; --------------------------------------------------------------------------------------
0328 0344 | D | .CONST 0x0344 ; Address of begin
0329 0004 | | .CONST 0x0004 ; Address of exception handler
032a 001b | | .CONST 0x001b ; Number of locals
032b INIT_0328:
032b 029a 034b | K| Declare_Subprogram INIT_0348,For_Outer_Call,Visible,Unelaborated
032d 029a 036b | k| Declare_Subprogram INIT_0368,For_Outer_Call,Visible,Unelaborated
032f 029a 0393 | | Declare_Subprogram INIT_0390,For_Outer_Call,Visible,Unelaborated
0331 029a 03db | | Declare_Subprogram INIT_03d8,For_Outer_Call,Visible,Unelaborated
0333 029a 03f3 | | Declare_Subprogram INIT_03f0,For_Outer_Call,Visible,Unelaborated
0335 00bf | | Action Accept_Activation
0336 e212 | | Load 0x1,0x12
0337 026a | j | Execute Discrete,First
0338 e212 | | Load 0x1,0x12
0339 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
033a 1d16 | | Execute_Immediate Reference_Lex_1,0x16
033b 00c7 | | Action Elaborate_Subprogram
033c 1d17 | | Execute_Immediate Reference_Lex_1,0x17
033d 00c7 | | Action Elaborate_Subprogram
033e 1d18 | | Execute_Immediate Reference_Lex_1,0x18
033f 00c7 | | Action Elaborate_Subprogram
0340 1d19 | | Execute_Immediate Reference_Lex_1,0x19
0341 00c7 | | Action Elaborate_Subprogram
0342 1d1a | | Execute_Immediate Reference_Lex_1,0x1a
0343 00c7 | | Action Elaborate_Subprogram
0344 BODY_0328:
0344 00bc | | Action Signal_Activated
0345 00bb | | Action Signal_Completion
0346 0000 0000 | | .XXX[0x2]
0348 ; --------------------------------------------------------------------------------------
0348 ; SUBPROGRAM
0348 ; --------------------------------------------------------------------------------------
0348 034b | K | .CONST 0x034b ; Address of begin
0349 035d | ] | .CONST 0x035d ; Address of exception handler
034a 0001 | | .CONST 0x0001 ; Number of locals
034b BODY_0348:
034b INIT_0348:
034b 00cf | | Action Mark_Auxiliary
034c e5fe | | Load 0x2,-0x2
034d 01d9 | | Execute Vector,Reverse_Bounds
034e 0263 | c | Execute Discrete,Above_Bound
034f 700c |p | Jump_Nonzero 0x35c
0350 00d8 | | Load_Top At_Offset_0
0351 e5fe | | Load 0x2,-0x2
0352 01d7 | | Execute Vector,Field_Read
0353 e20f | | Load 0x1,0xf
0354 0119 | | Execute Any,Check_In_Formal_Type
0355 e5ff | | Load 0x2,-0x1
0356 e001 | | Load 0x0,0x1
0357 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0358 0119 | | Execute Any,Check_In_Formal_Type
0359 8210 | | Call 0x1,0x10
035a 00c8 | | Action Pop_Auxiliary_Range
035b 3ff4 |? | Loop_Increasing 0x350
035c 4503 |E | Exit_Suprogram New_Top_Offset 0x3
035d TRAP_0348:
035d 010e | | Execute Exception,Is_Constraint_Error
035e 7002 |p | Jump_Nonzero 0x361
035f 010d | | Execute Exception,Is_Numeric_Error
0360 6803 |h | Jump_Zero 0x364
0361 e002 | | Load 0x0,0x2
0362 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0363 0257 | W | Execute Discrete,Raise
0364 0100 | | Execute Exception,Raise
0365 0000 0000 | | .XXX[0x3]
0367 0000 | |
0368 ; --------------------------------------------------------------------------------------
0368 ; SUBPROGRAM
0368 ; --------------------------------------------------------------------------------------
0368 036b | k | .CONST 0x036b ; Address of begin
0369 0004 | | .CONST 0x0004 ; Address of exception handler
036a 0001 | | .CONST 0x0001 ; Number of locals
036b BODY_0368:
036b INIT_0368:
036b 00cf | | Action Mark_Auxiliary
036c e5fd | | Load 0x2,-0x3
036d 01d9 | | Execute Vector,Reverse_Bounds
036e 0263 | c | Execute Discrete,Above_Bound
036f 701e |p | Jump_Nonzero 0x38e
0370 e5fd | | Load 0x2,-0x3
0371 00d9 | | Load_Top At_Offset_1
0372 00d8 | | Load_Top At_Offset_0
0373 00da | | Load_Top At_Offset_2
0374 01d7 | | Execute Vector,Field_Read
0375 0120 | | Execute Any,Is_Value
0376 6806 |h | Jump_Zero 0x37d
0377 e20f | | Load 0x1,0xf
0378 00d9 | | Load_Top At_Offset_1
0379 00db | | Load_Top At_Offset_3
037a 01d7 | | Execute Vector,Field_Read
037b 00d1 | | Pop_Control Pop_Count_1
037c 7805 |x | Jump 0x382
037d 00d8 | | Load_Top At_Offset_0
037e 00da | | Load_Top At_Offset_2
037f 01d7 | | Execute Vector,Field_Read
0380 e20f | | Load 0x1,0xf
0381 0119 | | Execute Any,Check_In_Formal_Type
0382 e5fe | | Load 0x2,-0x2
0383 e5ff | | Load 0x2,-0x1
0384 e001 | | Load 0x0,0x1
0385 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0386 0119 | | Execute Any,Check_In_Formal_Type
0387 8211 | | Call 0x1,0x11
0388 00d9 | | Load_Top At_Offset_1
0389 00db | | Load_Top At_Offset_3
038a 01d6 | | Execute Vector,Field_Write
038b 00d2 | | Pop_Control Pop_Count_2
038c 00c8 | | Action Pop_Auxiliary_Range
038d 3fe2 |? | Loop_Increasing 0x370
038e 4503 |E | Exit_Suprogram New_Top_Offset 0x3
038f 0000 | | .XXX[0x1]
0390 ; --------------------------------------------------------------------------------------
0390 ; SUBPROGRAM
0390 ; --------------------------------------------------------------------------------------
0390 03a3 | | .CONST 0x03a3 ; Address of begin
0391 03cb | | .CONST 0x03cb ; Address of exception handler
0392 0002 | | .CONST 0x0002 ; Number of locals
0393 INIT_0390:
0393 e21b | | Load 0x1,0x1b
0394 00d8 | | Load_Top At_Offset_0
0395 e5fe | | Load 0x2,-0x2
0396 0273 | s | Execute Discrete,Plus
0397 0aff | | Execute_Immediate Plus,-0x1
0398 00d8 | | Load_Top At_Offset_0
0399 e212 | | Load 0x1,0x12
039a 0122 | " | Execute Any,Make_Root_Type
039b 0260 | ` | Execute Discrete,In_Type
039c 7001 |p | Jump_Nonzero 0x39e
039d 0801 | | Execute_Immediate Raise,0x1
039e e215 | | Load 0x1,0x15
039f 035b | [ | Declare_Type Array,Constrained
03a0 0337 | 7 | Declare_Variable Array
03a1 00d8 | | Load_Top At_Offset_0
03a2 1c00 | | Execute_Immediate Run_Utility,0x0
03a3 BODY_0390:
03a3 00cf | | Action Mark_Auxiliary
03a4 00d9 | | Load_Top At_Offset_1
03a5 01d9 | | Execute Vector,Reverse_Bounds
03a6 0263 | c | Execute Discrete,Above_Bound
03a7 701e |p | Jump_Nonzero 0x3c6
03a8 00db | | Load_Top At_Offset_3
03a9 00d9 | | Load_Top At_Offset_1
03aa 00d8 | | Load_Top At_Offset_0
03ab 00da | | Load_Top At_Offset_2
03ac 01d7 | | Execute Vector,Field_Read
03ad 0120 | | Execute Any,Is_Value
03ae 6806 |h | Jump_Zero 0x3b5
03af e20f | | Load 0x1,0xf
03b0 00d9 | | Load_Top At_Offset_1
03b1 00db | | Load_Top At_Offset_3
03b2 01d7 | | Execute Vector,Field_Read
03b3 00d1 | | Pop_Control Pop_Count_1
03b4 7805 |x | Jump 0x3ba
03b5 00d8 | | Load_Top At_Offset_0
03b6 00da | | Load_Top At_Offset_2
03b7 01d7 | | Execute Vector,Field_Read
03b8 e20f | | Load 0x1,0xf
03b9 0119 | | Execute Any,Check_In_Formal_Type
03ba e5fd | | Load 0x2,-0x3
03bb e5ff | | Load 0x2,-0x1
03bc e001 | | Load 0x0,0x1
03bd 1b0f | | Execute Package,Field_Read,Field_Number 0xf
03be 0119 | | Execute Any,Check_In_Formal_Type
03bf 8211 | | Call 0x1,0x11
03c0 00d9 | | Load_Top At_Offset_1
03c1 00db | | Load_Top At_Offset_3
03c2 01d6 | | Execute Vector,Field_Write
03c3 00d2 | | Pop_Control Pop_Count_2
03c4 00c8 | | Action Pop_Auxiliary_Range
03c5 3fe2 |? | Loop_Increasing 0x3a8
03c6 00ce | | Action Pop_Auxiliary
03c7 00d8 | | Load_Top At_Offset_0
03c8 e215 | | Load 0x1,0x15
03c9 01c6 | | Execute Vector,Convert_To_Formal
03ca 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
03cb TRAP_0390:
03cb 010e | | Execute Exception,Is_Constraint_Error
03cc 7002 |p | Jump_Nonzero 0x3cf
03cd 010d | | Execute Exception,Is_Numeric_Error
03ce 6803 |h | Jump_Zero 0x3d2
03cf e002 | | Load 0x0,0x2
03d0 1b0d | | Execute Package,Field_Read,Field_Number 0xd
03d1 0257 | W | Execute Discrete,Raise
03d2 0100 | | Execute Exception,Raise
03d3 0000 0000 | | .BLANK 0000[0x5]
03d8 ; --------------------------------------------------------------------------------------
03d8 ; SUBPROGRAM
03d8 ; --------------------------------------------------------------------------------------
03d8 03db | | .CONST 0x03db ; Address of begin
03d9 0004 | | .CONST 0x0004 ; Address of exception handler
03da 0001 | | .CONST 0x0001 ; Number of locals
03db BODY_03d8:
03db INIT_03d8:
03db 00db | | Load_Top At_Offset_3
03dc 01db | | Execute Vector,Length
03dd 00d8 | | Load_Top At_Offset_0
03de e002 | | Load 0x0,0x2
03df 1b12 | | Execute Package,Field_Read,Field_Number 0x12
03e0 0260 | ` | Execute Discrete,In_Type
03e1 7001 |p | Jump_Nonzero 0x3e3
03e2 0801 | | Execute_Immediate Raise,0x1
03e3 00db | | Load_Top At_Offset_3
03e4 e001 | | Load 0x0,0x1
03e5 1b0f | | Execute Package,Field_Read,Field_Number 0xf
03e6 0119 | | Execute Any,Check_In_Formal_Type
03e7 e001 | | Load 0x0,0x1
03e8 1814 | | Execute Package,Field_Execute,Field_Number 0x14
03e9 00db | | Load_Top At_Offset_3
03ea 00db | | Load_Top At_Offset_3
03eb e001 | | Load 0x0,0x1
03ec 1b0f | | Execute Package,Field_Read,Field_Number 0xf
03ed 0119 | | Execute Any,Check_In_Formal_Type
03ee 8216 | | Call 0x1,0x16
03ef 4503 |E | Exit_Suprogram New_Top_Offset 0x3
03f0 ; --------------------------------------------------------------------------------------
03f0 ; SUBPROGRAM
03f0 ; --------------------------------------------------------------------------------------
03f0 03f5 | | .CONST 0x03f5 ; Address of begin
03f1 040c | | .CONST 0x040c ; Address of exception handler
03f2 0002 | | .CONST 0x0002 ; Number of locals
03f3 INIT_03f0:
03f3 e002 | | Load 0x0,0x2
03f4 1b12 | | Execute Package,Field_Read,Field_Number 0x12
03f5 BODY_03f0:
03f5 e002 | | Load 0x0,0x2
03f6 1b12 | | Execute Package,Field_Read,Field_Number 0x12
03f7 e5fe | | Load 0x2,-0x2
03f8 e5ff | | Load 0x2,-0x1
03f9 e001 | | Load 0x0,0x1
03fa 1b0f | | Execute Package,Field_Read,Field_Number 0xf
03fb 0119 | | Execute Any,Check_In_Formal_Type
03fc e001 | | Load 0x0,0x1
03fd 182a | * | Execute Package,Field_Execute,Field_Number 0x2a
03fe 0059 | Y | Store_Top Discrete,At_Offset_1
03ff e5fe | | Load 0x2,-0x2
0400 00d9 | | Load_Top At_Offset_1
0401 00d8 | | Load_Top At_Offset_0
0402 00e3 | | Load_Encached Natural_Cache
0403 0260 | ` | Execute Discrete,In_Type
0404 7001 |p | Jump_Nonzero 0x406
0405 0801 | | Execute_Immediate Raise,0x1
0406 e5ff | | Load 0x2,-0x1
0407 e001 | | Load 0x0,0x1
0408 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0409 0119 | | Execute Any,Check_In_Formal_Type
040a 8218 | | Call 0x1,0x18
040b 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
040c TRAP_03f0:
040c 010e | | Execute Exception,Is_Constraint_Error
040d 7002 |p | Jump_Nonzero 0x410
040e 010d | | Execute Exception,Is_Numeric_Error
040f 6803 |h | Jump_Zero 0x413
0410 e002 | | Load 0x0,0x2
0411 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0412 0257 | W | Execute Discrete,Raise
0413 0100 | | Execute Exception,Raise
0414 0000 0000 | | .BLANK 0000[0x4]
0418 ; --------------------------------------------------------------------------------------
0418 ; SUBPROGRAM
0418 ; --------------------------------------------------------------------------------------
0418 0427 | ' | .CONST 0x0427 ; Address of begin
0419 0004 | | .CONST 0x0004 ; Address of exception handler
041a 0012 | | .CONST 0x0012 ; Number of locals
041b INIT_0418:
041b 029a 0433 | 3| Declare_Subprogram INIT_0430,For_Outer_Call,Visible,Unelaborated
041d 00c4 | | Action Make_Default
041e 00c4 | | Action Make_Default
041f 029a 044b | K| Declare_Subprogram INIT_0448,For_Outer_Call,Visible,Unelaborated
0421 c212 | | Store 0x1,0x12
0422 00bf | | Action Accept_Activation
0423 1d10 | | Execute_Immediate Reference_Lex_1,0x10
0424 00c7 | | Action Elaborate_Subprogram
0425 1d12 | | Execute_Immediate Reference_Lex_1,0x12
0426 00c7 | | Action Elaborate_Subprogram
0427 BODY_0418:
0427 00bc | | Action Signal_Activated
0428 00bb | | Action Signal_Completion
0429 0000 0000 | | .BLANK 0000[0x7]
0430 ; --------------------------------------------------------------------------------------
0430 ; SUBPROGRAM
0430 ; --------------------------------------------------------------------------------------
0430 0433 | 3 | .CONST 0x0433 ; Address of begin
0431 0004 | | .CONST 0x0004 ; Address of exception handler
0432 0001 | | .CONST 0x0001 ; Number of locals
0433 BODY_0430:
0433 INIT_0430:
0433 00db | | Load_Top At_Offset_3
0434 00d8 | | Load_Top At_Offset_0
0435 e001 | | Load 0x0,0x1
0436 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0437 0260 | ` | Execute Discrete,In_Type
0438 7001 |p | Jump_Nonzero 0x43a
0439 0801 | | Execute_Immediate Raise,0x1
043a 00db | | Load_Top At_Offset_3
043b e002 | | Load 0x0,0x2
043c 1b0f | | Execute Package,Field_Read,Field_Number 0xf
043d 0119 | | Execute Any,Check_In_Formal_Type
043e e002 | | Load 0x0,0x2
043f 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0440 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0441 0000 0000 | | .BLANK 0000[0x7]
0448 ; --------------------------------------------------------------------------------------
0448 ; SUBPROGRAM
0448 ; --------------------------------------------------------------------------------------
0448 044d | M | .CONST 0x044d ; Address of begin
0449 0465 | e | .CONST 0x0465 ; Address of exception handler
044a 0002 | | .CONST 0x0002 ; Number of locals
044b INIT_0448:
044b e001 | | Load 0x0,0x1
044c 1b12 | | Execute Package,Field_Read,Field_Number 0x12
044d BODY_0448:
044d e001 | | Load 0x0,0x1
044e 1b12 | | Execute Package,Field_Read,Field_Number 0x12
044f e5fe | | Load 0x2,-0x2
0450 e5ff | | Load 0x2,-0x1
0451 e002 | | Load 0x0,0x2
0452 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0453 0119 | | Execute Any,Check_In_Formal_Type
0454 e002 | | Load 0x0,0x2
0455 182a | * | Execute Package,Field_Execute,Field_Number 0x2a
0456 0059 | Y | Store_Top Discrete,At_Offset_1
0457 00d8 | | Load_Top At_Offset_0
0458 00d8 | | Load_Top At_Offset_0
0459 00e3 | | Load_Encached Natural_Cache
045a 0260 | ` | Execute Discrete,In_Type
045b 7001 |p | Jump_Nonzero 0x45d
045c 0801 | | Execute_Immediate Raise,0x1
045d 00d8 | | Load_Top At_Offset_0
045e e20f | | Load 0x1,0xf
045f 0122 | " | Execute Any,Make_Root_Type
0460 0260 | ` | Execute Discrete,In_Type
0461 7001 |p | Jump_Nonzero 0x463
0462 0801 | | Execute_Immediate Raise,0x1
0463 c5fd | | Store 0x2,-0x3
0464 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0465 TRAP_0448:
0465 010e | | Execute Exception,Is_Constraint_Error
0466 7002 |p | Jump_Nonzero 0x469
0467 010d | | Execute Exception,Is_Numeric_Error
0468 6803 |h | Jump_Zero 0x46c
0469 e001 | | Load 0x0,0x1
046a 1b0d | | Execute Package,Field_Read,Field_Number 0xd
046b 0257 | W | Execute Discrete,Raise
046c 0100 | | Execute Exception,Raise
046d 0000 0000 | | .XXX[0x3]
046f 0000 | |
0470 ; --------------------------------------------------------------------------------------
0470 ; Debug Table
0470 ; --------------------------------------------------------------------------------------
0470 0004 000e | | .DEBUG4 0x0004,0x000e,0xf442,0x0000,0x0001,0x0000
0476 0000 0000 | | .BLANK 0000[0xa]
0480 a329 ec00 | ) | .XXX[0x2]
0482 0000 0000 | | .BLANK 0000[0xd]
048f 0801 4000 | @ | .XXX[0xc]
0491 0000 0000 | |
0493 0010 0000 | |
0495 0088 0000 | |
0497 0000 4000 | @ |
0499 0002 8000 | |
049b 0000 0000 | | .BLANK 0000[0x2d]
04c8 0100 2800 | ( | .XXX[0xc]
04ca 0000 0000 | |
04cc 0002 0000 | |
04ce 0011 0000 | |
04d0 0000 0800 | |
04d2 0000 5000 | P |
04d4 0000 0000 | | .BLANK 0000[0x2d]
0501 0020 0500 | | .XXX[0xc]
0503 0000 0000 | |
0505 0000 4000 | @ |
0507 0002 2000 | |
0509 0000 0100 | |
050b 0000 0a00 | |
050d 0000 0000 | | .BLANK 0000[0x2d]
053a 0004 00a0 | | .XXX[0xc]
053c 0000 0000 | |
053e 0000 0800 | |
0540 0000 4400 | D |
0542 0000 0020 | |
0544 0000 0140 | @|
0546 0000 0000 | | .BLANK 0000[0x2e]
0574 8014 0000 | | .XXX[0xb]
0576 0000 0000 | |
0578 0100 0000 | |
057a 0880 0000 | |
057c 0004 0000 | |
057e 0028 | ( |
057f 0000 0000 | | .BLANK 0000[0x2e]
05ad 1002 8000 | | .XXX[0xb]
05af 0000 0000 | |
05b1 0020 0000 | |
05b3 0110 0000 | |
05b5 0000 8000 | |
05b7 0005 | |
05b8 0000 0000 | | .BLANK 0000[0x48]