|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 4096 (0x1000)
Notes: 00_class, 5900_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_1ee28c5
└─⟦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 5900 |Y | .CONST 0x5900 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 05d0 | | .CONST 0x05d0 ; 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 0003 | | .CONST 0x0003 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0113 | | .CONST 0x0113 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0033 | 3 | .CONST 0x0033 ; Number of locals
000b INIT_0008:
000b 0007 | | Action Break_Optional
000c 00c4 | | Action Make_Default
000d 4802 |H | Short_Literal 0x2
000e 032b | + | Declare_Type Record,Incomplete,Visible
000f 00c4 | | Action Make_Default
0010 00e4 | | Load_Encached Positive_Cache
0011 0266 | f | Execute Discrete,Bounds
0012 00db | | Load_Top At_Offset_3
0013 029f 011b | | Declare_Subprogram For_Call,INIT_0118
0015 4801 |H | Short_Literal 0x1
0016 0349 | I | Declare_Type Array,Defined_Incomplete,Visible,Bounds_With_Object
0017 029a 0143 | C| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0140
0019 0007 | | Action Break_Optional
001a 4800 |H | Short_Literal 0x0
001b e003 | | Load 0x0,0x3
001c 00e3 | | Load_Encached Natural_Cache
001d 03f9 | | Declare_Type Discrete,Constrained,Visible
001e 4801 |H | Short_Literal 0x1
001f e003 | | Load 0x0,0x3
0020 00da | | Load_Top At_Offset_2
0021 03f9 | | Declare_Type Discrete,Constrained,Visible
0022 00d8 | | Load_Top At_Offset_0
0023 0266 | f | Execute Discrete,Bounds
0024 e004 | | Load 0x0,0x4
0025 029f 0153 | S| Declare_Subprogram For_Call,INIT_0150
0027 4801 |H | Short_Literal 0x1
0028 0351 | Q | Declare_Type Array,Defined,Visible,Bounds_With_Object
0029 00d9 | | Load_Top At_Offset_1
002a 0266 | f | Execute Discrete,Bounds
002b e005 | | Load 0x0,0x5
002c 02a0 | | Declare_Subprogram Null_Subprogram
002d 4801 |H | Short_Literal 0x1
002e 0351 | Q | Declare_Type Array,Defined,Visible,Bounds_With_Object
002f 029a 016b | k| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0168
0031 029a 017b | {| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0178
0033 029a 0183 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0180
0035 029a 0193 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0190
0037 029a 01ab | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_01a8
0039 029a 01b3 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_01b0
003b 029a 01fb | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_01f8
003d 029a 021b | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0218
003f 029a 022b | +| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0228
0041 029a 0243 | C| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0240
0043 029a 025b | [| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0258
0045 029a 0273 | s| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0270
0047 029a 02b3 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_02b0
0049 029a 02e3 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_02e0
004b 029a 030b | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0308
004d 029a 0323 | #| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0320
004f 029a 035b | [| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0358
0051 029a 0383 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0380
0053 029a 03ab | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_03a8
0055 0093 0000 | | PushFullAddress InMicrocode
0057 60e0 |` | Indirect_Literal Discrete,0x138,{0x80000000, 0x00010000}
0058 0273 | s | Execute Discrete,Plus
0059 e006 | | Load 0x0,0x6
005a 1b0d | | Execute Package,Field_Read,Field_Number 0xd
005b 60d8 |` | Indirect_Literal Discrete,0x134,{0x00000000, 0x0000ffff}
005c 0279 | y | Execute Discrete,And
005d 0273 | s | Execute Discrete,Plus
005e 0129 | ) | Execute Any,Make_Visible
005f 0007 | | Action Break_Optional
0060 00e3 | | Load_Encached Natural_Cache
0061 4800 |H | Short_Literal 0x0
0062 4801 |H | Short_Literal 0x1
0063 4801 |H | Short_Literal 0x1
0064 4805 |H | Short_Literal 0x5
0065 0319 | | Declare_Type Variant_Record,Incomplete,Visible
0066 029f 0403 | | Declare_Subprogram For_Call,INIT_0400
0068 00d9 | | Load_Top At_Offset_1
0069 012a | * | Execute Any,Change_Utility
006a 0007 | | Action Break_Optional
006b 00d8 | | Load_Top At_Offset_0
006c 02a0 | | Declare_Subprogram Null_Subprogram
006d 4818 |H | Short_Literal 0x18
006e 03d4 | | Declare_Type Access,Defined,Visible,Accesses_Protected
006f 00d8 | | Load_Top At_Offset_0
0070 0129 | ) | Execute Any,Make_Visible
0071 c20d | | Store 0x1,0xd
0072 00d8 | | Load_Top At_Offset_0
0073 00e3 | | Load_Encached Natural_Cache
0074 029f 058b | | Declare_Subprogram For_Call,INIT_0588
0076 e20e | | Load 0x1,0xe
0077 0326 | & | Complete_Type Record,By_Defining
0078 e210 | | Load 0x1,0x10
0079 0340 | @ | Complete_Type Array,By_Component_Completion
007a e20e | | Load 0x1,0xe
007b 0322 | " | Declare_Variable Record
007c 00d9 | | Load_Top At_Offset_1
007d 00d9 | | Load_Top At_Offset_1
007e 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
007f 4800 |H | Short_Literal 0x0
0080 00d9 | | Load_Top At_Offset_1
0081 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0082 0129 | ) | Execute Any,Make_Visible
0083 c20f | | Store 0x1,0xf
0084 00bf | | Action Accept_Activation
0085 e212 | | Load 0x1,0x12
0086 4801 |H | Short_Literal 0x1
0087 e214 | | Load 0x1,0x14
0088 01dc | | Execute Vector,Last
0089 e212 | | Load 0x1,0x12
008a 0269 | i | Execute Discrete,Last
008b 026c | l | Execute Discrete,Minimum
008c e214 | | Load 0x1,0x14
008d 034e | N | Declare_Type Array,Constrained,Bounds_With_Object
008e 029f 046b | k| Declare_Subprogram For_Call,INIT_0468
0090 4800 |H | Short_Literal 0x0
0091 4801 |H | Short_Literal 0x1
0092 4800 |H | Short_Literal 0x0
0093 4800 |H | Short_Literal 0x0
0094 4801 |H | Short_Literal 0x1
0095 4801 |H | Short_Literal 0x1
0096 031d | | Declare_Type Variant_Record,Defined
0097 4800 |H | Short_Literal 0x0
0098 00d9 | | Load_Top At_Offset_1
0099 1c08 | | Execute_Immediate Run_Utility,0x8
009a 00d8 | | Load_Top At_Offset_0
009b 2502 |% | Execute Variant_Record,Field_Reference,Fixed,Indirect,Field_Number 0x2
009c 0335 | 5 | Declare_Variable Array,Duplicate
009d 00cd | | Action Spare6_Action
009e 00d9 | | Load_Top At_Offset_1
009f 2502 |% | Execute Variant_Record,Field_Reference,Fixed,Indirect,Field_Number 0x2
00a0 01d9 | | Execute Vector,Reverse_Bounds
00a1 0263 | c | Execute Discrete,Above_Bound
00a2 7005 |p | Jump_Nonzero 0xa8
00a3 e007 | | Load 0x0,0x7
00a4 00d9 | | Load_Top At_Offset_1
00a5 e22e | . | Load 0x1,0x2e
00a6 01d6 | | Execute Vector,Field_Write
00a7 3ffb |? | Loop_Increasing 0xa3
00a8 00d9 | | Load_Top At_Offset_1
00a9 00d8 | | Load_Top At_Offset_0
00aa 2502 |% | Execute Variant_Record,Field_Reference,Fixed,Indirect,Field_Number 0x2
00ab 00da | | Load_Top At_Offset_2
00ac 01da | | Execute Vector,Bounds
00ad 00da | | Load_Top At_Offset_2
00ae 01da | | Execute Vector,Bounds
00af 00da | | Load_Top At_Offset_2
00b0 027f | | Execute Discrete,Equal
00b1 7001 |p | Jump_Nonzero 0xb3
00b2 08e0 | | Execute_Immediate Raise,0xe0
00b3 00cd | | Action Spare6_Action
00b4 027f | | Execute Discrete,Equal
00b5 7001 |p | Jump_Nonzero 0xb7
00b6 08e0 | | Execute_Immediate Raise,0xe0
00b7 00d2 | | Pop_Control Pop_Count_2
00b8 00d9 | | Load_Top At_Offset_1
00b9 2902 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x2
00ba 00e3 | | Load_Encached Natural_Cache
00bb 0266 | f | Execute Discrete,Bounds
00bc 00db | | Load_Top At_Offset_3
00bd 029f 04ab | | Declare_Subprogram For_Call,INIT_04a8
00bf 4801 |H | Short_Literal 0x1
00c0 0350 | P | Declare_Type Array,Defined,Bounds_With_Object
00c1 e212 | | Load 0x1,0x12
00c2 4801 |H | Short_Literal 0x1
00c3 e215 | | Load 0x1,0x15
00c4 01dc | | Execute Vector,Last
00c5 e212 | | Load 0x1,0x12
00c6 0269 | i | Execute Discrete,Last
00c7 026c | l | Execute Discrete,Minimum
00c8 e215 | | Load 0x1,0x15
00c9 034e | N | Declare_Type Array,Constrained,Bounds_With_Object
00ca 029f 04c3 | | Declare_Subprogram For_Call,INIT_04c0
00cc 4800 |H | Short_Literal 0x0
00cd 4801 |H | Short_Literal 0x1
00ce 4800 |H | Short_Literal 0x0
00cf 4800 |H | Short_Literal 0x0
00d0 4801 |H | Short_Literal 0x1
00d1 4801 |H | Short_Literal 0x1
00d2 031d | | Declare_Type Variant_Record,Defined
00d3 e008 | | Load 0x0,0x8
00d4 00e3 | | Load_Encached Natural_Cache
00d5 00da | | Load_Top At_Offset_2
00d6 4801 |H | Short_Literal 0x1
00d7 6058 |`X | Indirect_Literal Discrete,0x130,{0x00000000, 0x7fffffff}
00d8 e22e | . | Load 0x1,0x2e
00d9 034e | N | Declare_Type Array,Constrained,Bounds_With_Object
00da 029f 0403 | | Declare_Subprogram For_Call,INIT_0400
00dc 4800 |H | Short_Literal 0x0
00dd 4801 |H | Short_Literal 0x1
00de 4803 |H | Short_Literal 0x3
00df e22a | * | Load 0x1,0x2a
00e0 0307 | | Complete_Type Variant_Record,By_Defining
00e1 e22b | + | Load 0x1,0x2b
00e2 03c4 | | Complete_Type Access,By_Component_Completion
00e3 1d16 | | Execute_Immediate Reference_Lex_1,0x16
00e4 00c7 | | Action Elaborate_Subprogram
00e5 1d17 | | Execute_Immediate Reference_Lex_1,0x17
00e6 00c7 | | Action Elaborate_Subprogram
00e7 1d19 | | Execute_Immediate Reference_Lex_1,0x19
00e8 00c7 | | Action Elaborate_Subprogram
00e9 1d18 | | Execute_Immediate Reference_Lex_1,0x18
00ea 00c7 | | Action Elaborate_Subprogram
00eb 1d1a | | Execute_Immediate Reference_Lex_1,0x1a
00ec 00c7 | | Action Elaborate_Subprogram
00ed 029d 0503 | | Declare_Subprogram For_Outer_Call,INIT_0500
00ef 1d11 | | Execute_Immediate Reference_Lex_1,0x11
00f0 00c7 | | Action Elaborate_Subprogram
00f1 1d1b | | Execute_Immediate Reference_Lex_1,0x1b
00f2 00c7 | | Action Elaborate_Subprogram
00f3 1d1c | | Execute_Immediate Reference_Lex_1,0x1c
00f4 00c7 | | Action Elaborate_Subprogram
00f5 029d 051b | | Declare_Subprogram For_Outer_Call,INIT_0518
00f7 1d1e | | Execute_Immediate Reference_Lex_1,0x1e
00f8 00c7 | | Action Elaborate_Subprogram
00f9 1d1d | | Execute_Immediate Reference_Lex_1,0x1d
00fa 00c7 | | Action Elaborate_Subprogram
00fb 1d1f | | Execute_Immediate Reference_Lex_1,0x1f
00fc 00c7 | | Action Elaborate_Subprogram
00fd 1d20 | | Execute_Immediate Reference_Lex_1,0x20
00fe 00c7 | | Action Elaborate_Subprogram
00ff 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21
0100 00c7 | | Action Elaborate_Subprogram
0101 1d22 | " | Execute_Immediate Reference_Lex_1,0x22
0102 00c7 | | Action Elaborate_Subprogram
0103 1d23 | # | Execute_Immediate Reference_Lex_1,0x23
0104 00c7 | | Action Elaborate_Subprogram
0105 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24
0106 00c7 | | Action Elaborate_Subprogram
0107 029d 0533 | 3| Declare_Subprogram For_Outer_Call,INIT_0530
0109 029d 0563 | c| Declare_Subprogram For_Outer_Call,INIT_0560
010b 1d25 | % | Execute_Immediate Reference_Lex_1,0x25
010c 00c7 | | Action Elaborate_Subprogram
010d 1d26 | & | Execute_Immediate Reference_Lex_1,0x26
010e 00c7 | | Action Elaborate_Subprogram
010f 1d28 | ( | Execute_Immediate Reference_Lex_1,0x28
0110 00c7 | | Action Elaborate_Subprogram
0111 1d27 | ' | Execute_Immediate Reference_Lex_1,0x27
0112 00c7 | | Action Elaborate_Subprogram
0113 BODY_0008:
0113 00bc | | Action Signal_Activated
0114 00bb | | Action Signal_Completion
0115 0000 0000 | | .XXX[0x3]
0117 0000 | |
0118 ; --------------------------------------------------------------------------------------
0118 ; SUBPROGRAM
0118 ; --------------------------------------------------------------------------------------
0118 011b | | .CONST 0x011b ; Address of begin
0119 0004 | | .CONST 0x0004 ; Address of exception handler
011a 0001 | | .CONST 0x0001 ; Number of locals
011b BODY_0118:
011b INIT_0118:
011b 00d1 | | Pop_Control Pop_Count_1
011c 00da | | Load_Top At_Offset_2
011d 01d8 | | Execute Vector,Element_Type
011e 0322 | " | Declare_Variable Record
011f 00d8 | | Load_Top At_Offset_0
0120 1c00 | | Execute_Immediate Run_Utility,0x0
0121 00db | | Load_Top At_Offset_3
0122 01dc | | Execute Vector,Last
0123 e5ff | | Load 0x2,-0x1
0124 01dd | | Execute Vector,First
0125 0263 | c | Execute Discrete,Above_Bound
0126 7006 |p | Jump_Nonzero 0x12d
0127 00da | | Load_Top At_Offset_2
0128 00d9 | | Load_Top At_Offset_1
0129 e5ff | | Load 0x2,-0x1
012a 01d6 | | Execute Vector,Field_Write
012b 0a01 | | Execute_Immediate Plus,0x1
012c 7ff8 | | Jump 0x125
012d 4302 |C | Exit_Subprogram From_Utility,0x2
012e 0000 0000 | | .XXX[0x2]
0130 0000 0000 | | .LITERAL {0x00000000, 0x7fffffff}
0134 0000 0000 | | .LITERAL {0x00000000, 0x0000ffff}
0138 8000 0000 | | .LITERAL {0x80000000, 0x00010000}
013c 0000 0000 | | .BLANK 0000[0x4]
0140 ; --------------------------------------------------------------------------------------
0140 ; SUBPROGRAM
0140 ; --------------------------------------------------------------------------------------
0140 0143 | C | .CONST 0x0143 ; Address of begin
0141 0004 | | .CONST 0x0004 ; Address of exception handler
0142 0001 | | .CONST 0x0001 ; Number of locals
0143 BODY_0140:
0143 INIT_0140:
0143 4801 |H | Short_Literal 0x1
0144 4800 |H | Short_Literal 0x0
0145 e210 | | Load 0x1,0x10
0146 035b | [ | Declare_Type Array,Constrained
0147 0337 | 7 | Declare_Variable Array
0148 e210 | | Load 0x1,0x10
0149 01c6 | | Execute Vector,Convert_To_Formal
014a 00ca | | Action Exit_Nullary_Function
014b 0000 0000 | | .BLANK 0000[0x5]
0150 ; --------------------------------------------------------------------------------------
0150 ; SUBPROGRAM
0150 ; --------------------------------------------------------------------------------------
0150 0153 | S | .CONST 0x0153 ; Address of begin
0151 0004 | | .CONST 0x0004 ; Address of exception handler
0152 0001 | | .CONST 0x0001 ; Number of locals
0153 BODY_0150:
0153 INIT_0150:
0153 00d1 | | Pop_Control Pop_Count_1
0154 00da | | Load_Top At_Offset_2
0155 01d8 | | Execute Vector,Element_Type
0156 02ff | | Declare_Variable Variant_Record
0157 00d8 | | Load_Top At_Offset_0
0158 1c00 | | Execute_Immediate Run_Utility,0x0
0159 00db | | Load_Top At_Offset_3
015a 01dc | | Execute Vector,Last
015b e5ff | | Load 0x2,-0x1
015c 01dd | | Execute Vector,First
015d 0263 | c | Execute Discrete,Above_Bound
015e 7006 |p | Jump_Nonzero 0x165
015f 00da | | Load_Top At_Offset_2
0160 00d9 | | Load_Top At_Offset_1
0161 e5ff | | Load 0x2,-0x1
0162 01d6 | | Execute Vector,Field_Write
0163 0a01 | | Execute_Immediate Plus,0x1
0164 7ff8 | | Jump 0x15d
0165 4302 |C | Exit_Subprogram From_Utility,0x2
0166 0000 0000 | | .XXX[0x2]
0168 ; --------------------------------------------------------------------------------------
0168 ; SUBPROGRAM
0168 ; --------------------------------------------------------------------------------------
0168 016b | k | .CONST 0x016b ; Address of begin
0169 0004 | | .CONST 0x0004 ; Address of exception handler
016a 0001 | | .CONST 0x0001 ; Number of locals
016b BODY_0168:
016b INIT_0168:
016b e20e | | Load 0x1,0xe
016c 0322 | " | Declare_Variable Record
016d e5fe | | Load 0x2,-0x2
016e 00d9 | | Load_Top At_Offset_1
016f 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0170 00db | | Load_Top At_Offset_3
0171 00d9 | | Load_Top At_Offset_1
0172 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0173 4402 |D | Exit_Subprogram With_Result,0x2
0174 0000 0000 | | .BLANK 0000[0x4]
0178 ; --------------------------------------------------------------------------------------
0178 ; SUBPROGRAM
0178 ; --------------------------------------------------------------------------------------
0178 017b | { | .CONST 0x017b ; Address of begin
0179 0004 | | .CONST 0x0004 ; Address of exception handler
017a 0001 | | .CONST 0x0001 ; Number of locals
017b BODY_0178:
017b INIT_0178:
017b 00da | | Load_Top At_Offset_2
017c 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
017d 4401 |D | Exit_Subprogram With_Result,0x1
017e 0000 0000 | | .XXX[0x2]
0180 ; --------------------------------------------------------------------------------------
0180 ; SUBPROGRAM
0180 ; --------------------------------------------------------------------------------------
0180 0183 | | .CONST 0x0183 ; Address of begin
0181 0004 | | .CONST 0x0004 ; Address of exception handler
0182 0001 | | .CONST 0x0001 ; Number of locals
0183 BODY_0180:
0183 INIT_0180:
0183 00da | | Load_Top At_Offset_2
0184 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0185 8219 | | Call 0x1,0x19
0186 00d8 | | Load_Top At_Offset_0
0187 e008 | | Load 0x0,0x8
0188 0260 | ` | Execute Discrete,In_Type
0189 7001 |p | Jump_Nonzero 0x18b
018a 0801 | | Execute_Immediate Raise,0x1
018b 4401 |D | Exit_Subprogram With_Result,0x1
018c 0000 0000 | | .BLANK 0000[0x4]
0190 ; --------------------------------------------------------------------------------------
0190 ; SUBPROGRAM
0190 ; --------------------------------------------------------------------------------------
0190 0193 | | .CONST 0x0193 ; Address of begin
0191 0004 | | .CONST 0x0004 ; Address of exception handler
0192 0001 | | .CONST 0x0001 ; Number of locals
0193 BODY_0190:
0193 INIT_0190:
0193 00da | | Load_Top At_Offset_2
0194 e22b | + | Load 0x1,0x2b
0195 022e | . | Execute Access,Not_Equal
0196 6809 |h | Jump_Zero 0x1a0
0197 00da | | Load_Top At_Offset_2
0198 0227 | ' | Execute Access,All_Reference
0199 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
019a 00d8 | | Load_Top At_Offset_0
019b e008 | | Load 0x0,0x8
019c 0260 | ` | Execute Discrete,In_Type
019d 7001 |p | Jump_Nonzero 0x19f
019e 0801 | | Execute_Immediate Raise,0x1
019f 4401 |D | Exit_Subprogram With_Result,0x1
01a0 e009 | | Load 0x0,0x9
01a1 00d8 | | Load_Top At_Offset_0
01a2 e008 | | Load 0x0,0x8
01a3 0260 | ` | Execute Discrete,In_Type
01a4 7001 |p | Jump_Nonzero 0x1a6
01a5 0801 | | Execute_Immediate Raise,0x1
01a6 4401 |D | Exit_Subprogram With_Result,0x1
01a7 0000 | | .XXX[0x1]
01a8 ; --------------------------------------------------------------------------------------
01a8 ; SUBPROGRAM
01a8 ; --------------------------------------------------------------------------------------
01a8 01ab | | .CONST 0x01ab ; Address of begin
01a9 0004 | | .CONST 0x0004 ; Address of exception handler
01aa 0001 | | .CONST 0x0001 ; Number of locals
01ab BODY_01a8:
01ab INIT_01a8:
01ab 00da | | Load_Top At_Offset_2
01ac 0227 | ' | Execute Access,All_Reference
01ad 2c03 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
01ae 4401 |D | Exit_Subprogram With_Result,0x1
01af 0000 | | .XXX[0x1]
01b0 ; --------------------------------------------------------------------------------------
01b0 ; SUBPROGRAM
01b0 ; --------------------------------------------------------------------------------------
01b0 01b3 | | .CONST 0x01b3 ; Address of begin
01b1 0004 | | .CONST 0x0004 ; Address of exception handler
01b2 0001 | | .CONST 0x0001 ; Number of locals
01b3 BODY_01b0:
01b3 INIT_01b0:
01b3 00db | | Load_Top At_Offset_3
01b4 e22a | * | Load 0x1,0x2a
01b5 1c08 | | Execute_Immediate Run_Utility,0x8
01b6 00db | | Load_Top At_Offset_3
01b7 00d9 | | Load_Top At_Offset_1
01b8 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
01b9 4800 |H | Short_Literal 0x0
01ba 00d9 | | Load_Top At_Offset_1
01bb 2803 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
01bc 00d8 | | Load_Top At_Offset_0
01bd 2505 |% | Execute Variant_Record,Field_Reference,Fixed,Indirect,Field_Number 0x5
01be 0335 | 5 | Declare_Variable Array,Duplicate
01bf 00cd | | Action Spare6_Action
01c0 00d9 | | Load_Top At_Offset_1
01c1 2505 |% | Execute Variant_Record,Field_Reference,Fixed,Indirect,Field_Number 0x5
01c2 01d9 | | Execute Vector,Reverse_Bounds
01c3 0263 | c | Execute Discrete,Above_Bound
01c4 7005 |p | Jump_Nonzero 0x1ca
01c5 e22d | - | Load 0x1,0x2d
01c6 00d9 | | Load_Top At_Offset_1
01c7 e403 | | Load 0x2,0x3
01c8 01d6 | | Execute Vector,Field_Write
01c9 3ffb |? | Loop_Increasing 0x1c5
01ca 00d9 | | Load_Top At_Offset_1
01cb 00d8 | | Load_Top At_Offset_0
01cc 2505 |% | Execute Variant_Record,Field_Reference,Fixed,Indirect,Field_Number 0x5
01cd 00da | | Load_Top At_Offset_2
01ce 01da | | Execute Vector,Bounds
01cf 00da | | Load_Top At_Offset_2
01d0 01da | | Execute Vector,Bounds
01d1 00da | | Load_Top At_Offset_2
01d2 027f | | Execute Discrete,Equal
01d3 7001 |p | Jump_Nonzero 0x1d5
01d4 08e0 | | Execute_Immediate Raise,0xe0
01d5 00cd | | Action Spare6_Action
01d6 027f | | Execute Discrete,Equal
01d7 7001 |p | Jump_Nonzero 0x1d9
01d8 08e0 | | Execute_Immediate Raise,0xe0
01d9 00d2 | | Pop_Control Pop_Count_2
01da 00d9 | | Load_Top At_Offset_1
01db 2905 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x5
01dc e5fd | | Load 0x2,-0x3
01dd 01db | | Execute Vector,Length
01de e22f | / | Load 0x1,0x2f
01df 1c08 | | Execute_Immediate Run_Utility,0x8
01e0 e5fd | | Load 0x2,-0x3
01e1 00d9 | | Load_Top At_Offset_1
01e2 00d8 | | Load_Top At_Offset_0
01e3 2502 |% | Execute Variant_Record,Field_Reference,Fixed,Indirect,Field_Number 0x2
01e4 00da | | Load_Top At_Offset_2
01e5 01da | | Execute Vector,Bounds
01e6 00da | | Load_Top At_Offset_2
01e7 01da | | Execute Vector,Bounds
01e8 00da | | Load_Top At_Offset_2
01e9 027f | | Execute Discrete,Equal
01ea 7001 |p | Jump_Nonzero 0x1ec
01eb 08e0 | | Execute_Immediate Raise,0xe0
01ec 00cd | | Action Spare6_Action
01ed 027f | | Execute Discrete,Equal
01ee 7001 |p | Jump_Nonzero 0x1f0
01ef 08e0 | | Execute_Immediate Raise,0xe0
01f0 00d2 | | Pop_Control Pop_Count_2
01f1 00d9 | | Load_Top At_Offset_1
01f2 2902 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x2
01f3 00d9 | | Load_Top At_Offset_1
01f4 2804 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x4
01f5 e22b | + | Load 0x1,0x2b
01f6 03b6 | | Declare_Variable Access,By_Allocation,With_Value
01f7 4403 |D | Exit_Subprogram With_Result,0x3
01f8 ; --------------------------------------------------------------------------------------
01f8 ; SUBPROGRAM
01f8 ; --------------------------------------------------------------------------------------
01f8 01fb | | .CONST 0x01fb ; Address of begin
01f9 0004 | | .CONST 0x0004 ; Address of exception handler
01fa 0001 | | .CONST 0x0001 ; Number of locals
01fb BODY_01f8:
01fb INIT_01f8:
01fb 4800 |H | Short_Literal 0x0
01fc 00db | | Load_Top At_Offset_3
01fd 0227 | ' | Execute Access,All_Reference
01fe 2803 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
01ff 00da | | Load_Top At_Offset_2
0200 0229 | ) | Execute Access,All_Read
0201 00d8 | | Load_Top At_Offset_0
0202 2505 |% | Execute Variant_Record,Field_Reference,Fixed,Indirect,Field_Number 0x5
0203 00d8 | | Load_Top At_Offset_0
0204 0335 | 5 | Declare_Variable Array,Duplicate
0205 00cd | | Action Spare6_Action
0206 00d9 | | Load_Top At_Offset_1
0207 01d9 | | Execute Vector,Reverse_Bounds
0208 0263 | c | Execute Discrete,Above_Bound
0209 7005 |p | Jump_Nonzero 0x20f
020a e22d | - | Load 0x1,0x2d
020b 00d9 | | Load_Top At_Offset_1
020c e404 | | Load 0x2,0x4
020d 01d6 | | Execute Vector,Field_Write
020e 3ffb |? | Loop_Increasing 0x20a
020f 00cd | | Action Spare6_Action
0210 00d9 | | Load_Top At_Offset_1
0211 2905 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x5
0212 4501 |E | Exit_Subprogram 0x1
0213 0000 0000 | | .BLANK 0000[0x5]
0218 ; --------------------------------------------------------------------------------------
0218 ; SUBPROGRAM
0218 ; --------------------------------------------------------------------------------------
0218 021d | | .CONST 0x021d ; Address of begin
0219 0004 | | .CONST 0x0004 ; Address of exception handler
021a 0002 | | .CONST 0x0002 ; Number of locals
021b INIT_0218:
021b e005 | | Load 0x0,0x5
021c 0007 | | Action Break_Optional
021d BODY_0218:
021d e5fe | | Load 0x2,-0x2
021e e5ff | | Load 0x2,-0x1
021f 0227 | ' | Execute Access,All_Reference
0220 2404 |$ | Execute Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x4
0221 2502 |% | Execute Variant_Record,Field_Reference,Fixed,Indirect,Field_Number 0x2
0222 01d7 | | Execute Vector,Field_Read
0223 0039 | 9 | Store_Top Access,At_Offset_1
0224 00d8 | | Load_Top At_Offset_0
0225 800a | | Call 0x0,0xa
0226 4402 |D | Exit_Subprogram With_Result,0x2
0227 0000 | | .XXX[0x1]
0228 ; --------------------------------------------------------------------------------------
0228 ; SUBPROGRAM
0228 ; --------------------------------------------------------------------------------------
0228 022f | / | .CONST 0x022f ; Address of begin
0229 0004 | | .CONST 0x0004 ; Address of exception handler
022a 0002 | | .CONST 0x0002 ; Number of locals
022b INIT_0228:
022b e5fd | | Load 0x2,-0x3
022c 0227 | ' | Execute Access,All_Reference
022d 2505 |% | Execute Variant_Record,Field_Reference,Fixed,Indirect,Field_Number 0x5
022e 0007 | | Action Break_Optional
022f BODY_0228:
022f 00db | | Load_Top At_Offset_3
0230 00d9 | | Load_Top At_Offset_1
0231 01d5 | | Execute Vector,Field_Reference
0232 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0233 6807 |h | Jump_Zero 0x23b
0234 e5fe | | Load 0x2,-0x2
0235 e5ff | | Load 0x2,-0x1
0236 00da | | Load_Top At_Offset_2
0237 01d5 | | Execute Vector,Field_Reference
0238 2502 |% | Execute Variant_Record,Field_Reference,Fixed,Indirect,Field_Number 0x2
0239 8231 | 1 | Call 0x1,0x31
023a 4403 |D | Exit_Subprogram With_Result,0x3
023b 4800 |H | Short_Literal 0x0
023c 4403 |D | Exit_Subprogram With_Result,0x3
023d 0000 0000 | | .XXX[0x3]
023f 0000 | |
0240 ; --------------------------------------------------------------------------------------
0240 ; SUBPROGRAM
0240 ; --------------------------------------------------------------------------------------
0240 0249 | I | .CONST 0x0249 ; Address of begin
0241 0004 | | .CONST 0x0004 ; Address of exception handler
0242 0003 | | .CONST 0x0003 ; Number of locals
0243 INIT_0240:
0243 00da | | Load_Top At_Offset_2
0244 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0245 0007 | | Action Break_Optional
0246 00db | | Load_Top At_Offset_3
0247 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0248 0007 | | Action Break_Optional
0249 BODY_0240:
0249 00d8 | | Load_Top At_Offset_0
024a 00da | | Load_Top At_Offset_2
024b 0227 | ' | Execute Access,All_Reference
024c 2505 |% | Execute Variant_Record,Field_Reference,Fixed,Indirect,Field_Number 0x5
024d 01d5 | | Execute Vector,Field_Reference
024e 2502 |% | Execute Variant_Record,Field_Reference,Fixed,Indirect,Field_Number 0x2
024f 0335 | 5 | Declare_Variable Array,Duplicate
0250 00cd | | Action Spare6_Action
0251 4401 |D | Exit_Subprogram With_Result,0x1
0252 0000 0000 | | .BLANK 0000[0x6]
0258 ; --------------------------------------------------------------------------------------
0258 ; SUBPROGRAM
0258 ; --------------------------------------------------------------------------------------
0258 0261 | a | .CONST 0x0261 ; Address of begin
0259 0004 | | .CONST 0x0004 ; Address of exception handler
025a 0003 | | .CONST 0x0003 ; Number of locals
025b INIT_0258:
025b 00da | | Load_Top At_Offset_2
025c 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
025d 0007 | | Action Break_Optional
025e 00db | | Load_Top At_Offset_3
025f 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0260 0007 | | Action Break_Optional
0261 BODY_0258:
0261 e5fe | | Load 0x2,-0x2
0262 00d9 | | Load_Top At_Offset_1
0263 00db | | Load_Top At_Offset_3
0264 0227 | ' | Execute Access,All_Reference
0265 2505 |% | Execute Variant_Record,Field_Reference,Fixed,Indirect,Field_Number 0x5
0266 01d5 | | Execute Vector,Field_Reference
0267 2502 |% | Execute Variant_Record,Field_Reference,Fixed,Indirect,Field_Number 0x2
0268 01d5 | | Execute Vector,Field_Reference
0269 02fd | | Declare_Variable Variant_Record,Duplicate
026a 00cd | | Action Spare6_Action
026b 4402 |D | Exit_Subprogram With_Result,0x2
026c 0000 0000 | | .BLANK 0000[0x4]
0270 ; --------------------------------------------------------------------------------------
0270 ; SUBPROGRAM
0270 ; --------------------------------------------------------------------------------------
0270 027a | z | .CONST 0x027a ; Address of begin
0271 0004 | | .CONST 0x0004 ; Address of exception handler
0272 0003 | | .CONST 0x0003 ; Number of locals
0273 INIT_0270:
0273 00da | | Load_Top At_Offset_2
0274 0227 | ' | Execute Access,All_Reference
0275 2505 |% | Execute Variant_Record,Field_Reference,Fixed,Indirect,Field_Number 0x5
0276 0007 | | Action Break_Optional
0277 00db | | Load_Top At_Offset_3
0278 0227 | ' | Execute Access,All_Reference
0279 2403 |$ | Execute Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x3
027a BODY_0270:
027a 00cf | | Action Mark_Auxiliary
027b 00da | | Load_Top At_Offset_2
027c 01d9 | | Execute Vector,Reverse_Bounds
027d 0263 | c | Execute Discrete,Above_Bound
027e 7029 |p) | Jump_Nonzero 0x2a8
027f 00d8 | | Load_Top At_Offset_0
0280 e402 | | Load 0x2,0x2
0281 01d5 | | Execute Vector,Field_Reference
0282 e22d | - | Load 0x1,0x2d
0283 016f | o | Execute Variant_Record,Equal
0284 6821 |h! | Jump_Zero 0x2a6
0285 e5fe | | Load 0x2,-0x2
0286 01db | | Execute Vector,Length
0287 e22c | , | Load 0x1,0x2c
0288 1c08 | | Execute_Immediate Run_Utility,0x8
0289 e5fe | | Load 0x2,-0x2
028a 00d9 | | Load_Top At_Offset_1
028b 00d8 | | Load_Top At_Offset_0
028c 2502 |% | Execute Variant_Record,Field_Reference,Fixed,Indirect,Field_Number 0x2
028d 00da | | Load_Top At_Offset_2
028e 01da | | Execute Vector,Bounds
028f 00da | | Load_Top At_Offset_2
0290 01da | | Execute Vector,Bounds
0291 00da | | Load_Top At_Offset_2
0292 027f | | Execute Discrete,Equal
0293 7001 |p | Jump_Nonzero 0x295
0294 08e0 | | Execute_Immediate Raise,0xe0
0295 00cd | | Action Spare6_Action
0296 027f | | Execute Discrete,Equal
0297 7001 |p | Jump_Nonzero 0x299
0298 08e0 | | Execute_Immediate Raise,0xe0
0299 00d2 | | Pop_Control Pop_Count_2
029a 00d9 | | Load_Top At_Offset_1
029b 2902 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x2
029c 00d9 | | Load_Top At_Offset_1
029d e402 | | Load 0x2,0x2
029e 01d6 | | Execute Vector,Field_Write
029f 00d8 | | Load_Top At_Offset_0
02a0 e403 | | Load 0x2,0x3
02a1 027d | } | Execute Discrete,Greater
02a2 6802 |h | Jump_Zero 0x2a5
02a3 00d8 | | Load_Top At_Offset_0
02a4 a403 | | Store_Unchecked 0x2,0x3
02a5 4503 |E | Exit_Subprogram 0x3
02a6 00c8 | | Action Pop_Auxiliary_Range
02a7 3fd7 |? | Loop_Increasing 0x27f
02a8 00ce | | Action Pop_Auxiliary
02a9 e229 | ) | Load 0x1,0x29
02aa 0257 | W | Execute Discrete,Raise
02ab 0000 0000 | | .BLANK 0000[0x5]
02b0 ; --------------------------------------------------------------------------------------
02b0 ; SUBPROGRAM
02b0 ; --------------------------------------------------------------------------------------
02b0 02c0 | | .CONST 0x02c0 ; Address of begin
02b1 0004 | | .CONST 0x0004 ; Address of exception handler
02b2 0004 | | .CONST 0x0004 ; Number of locals
02b3 INIT_02b0:
02b3 00da | | Load_Top At_Offset_2
02b4 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
02b5 0007 | | Action Break_Optional
02b6 00db | | Load_Top At_Offset_3
02b7 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
02b8 0227 | ' | Execute Access,All_Reference
02b9 2505 |% | Execute Variant_Record,Field_Reference,Fixed,Indirect,Field_Number 0x5
02ba 0007 | | Action Break_Optional
02bb e5ff | | Load 0x2,-0x1
02bc 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
02bd 0227 | ' | Execute Access,All_Reference
02be 2403 |$ | Execute Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x3
02bf 0007 | | Action Break_Optional
02c0 BODY_02b0:
02c0 e22d | - | Load 0x1,0x2d
02c1 00db | | Load_Top At_Offset_3
02c2 00db | | Load_Top At_Offset_3
02c3 01d6 | | Execute Vector,Field_Write
02c4 00d8 | | Load_Top At_Offset_0
02c5 00db | | Load_Top At_Offset_3
02c6 027f | | Execute Discrete,Equal
02c7 6815 |h | Jump_Zero 0x2dd
02c8 00d8 | | Load_Top At_Offset_0
02c9 0aff | | Execute_Immediate Plus,-0x1
02ca c404 | | Store 0x2,0x4
02cb 00cf | | Action Mark_Auxiliary
02cc 4801 |H | Short_Literal 0x1
02cd 00da | | Load_Top At_Offset_2
02ce 0264 | d | Execute Discrete,Below_Bound
02cf 700c |p | Jump_Nonzero 0x2dc
02d0 00d8 | | Load_Top At_Offset_0
02d1 e403 | | Load 0x2,0x3
02d2 01d5 | | Execute Vector,Field_Reference
02d3 e22d | - | Load 0x1,0x2d
02d4 016e | n | Execute Variant_Record,Not_Equal
02d5 6802 |h | Jump_Zero 0x2d8
02d6 00d2 | | Pop_Control Pop_Count_2
02d7 7804 |x | Jump 0x2dc
02d8 00d8 | | Load_Top At_Offset_0
02d9 a404 | | Store_Unchecked 0x2,0x4
02da 00c8 | | Action Pop_Auxiliary_Range
02db 37f4 |7 | Loop_Decreasing 0x2d0
02dc 00ce | | Action Pop_Auxiliary
02dd 4502 |E | Exit_Subprogram 0x2
02de 0000 0000 | | .XXX[0x2]
02e0 ; --------------------------------------------------------------------------------------
02e0 ; SUBPROGRAM
02e0 ; --------------------------------------------------------------------------------------
02e0 02e9 | | .CONST 0x02e9 ; Address of begin
02e1 0004 | | .CONST 0x0004 ; Address of exception handler
02e2 0003 | | .CONST 0x0003 ; Number of locals
02e3 INIT_02e0:
02e3 00da | | Load_Top At_Offset_2
02e4 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
02e5 0007 | | Action Break_Optional
02e6 00db | | Load_Top At_Offset_3
02e7 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
02e8 0007 | | Action Break_Optional
02e9 BODY_02e0:
02e9 e5fe | | Load 0x2,-0x2
02ea 01db | | Execute Vector,Length
02eb e22c | , | Load 0x1,0x2c
02ec 1c08 | | Execute_Immediate Run_Utility,0x8
02ed e5fe | | Load 0x2,-0x2
02ee 00d9 | | Load_Top At_Offset_1
02ef 00d8 | | Load_Top At_Offset_0
02f0 2502 |% | Execute Variant_Record,Field_Reference,Fixed,Indirect,Field_Number 0x2
02f1 00da | | Load_Top At_Offset_2
02f2 01da | | Execute Vector,Bounds
02f3 00da | | Load_Top At_Offset_2
02f4 01da | | Execute Vector,Bounds
02f5 00da | | Load_Top At_Offset_2
02f6 027f | | Execute Discrete,Equal
02f7 7001 |p | Jump_Nonzero 0x2f9
02f8 08e0 | | Execute_Immediate Raise,0xe0
02f9 00cd | | Action Spare6_Action
02fa 027f | | Execute Discrete,Equal
02fb 7001 |p | Jump_Nonzero 0x2fd
02fc 08e0 | | Execute_Immediate Raise,0xe0
02fd 00d2 | | Pop_Control Pop_Count_2
02fe 00d9 | | Load_Top At_Offset_1
02ff 2902 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x2
0300 00d9 | | Load_Top At_Offset_1
0301 00db | | Load_Top At_Offset_3
0302 0227 | ' | Execute Access,All_Reference
0303 2505 |% | Execute Variant_Record,Field_Reference,Fixed,Indirect,Field_Number 0x5
0304 01d6 | | Execute Vector,Field_Write
0305 4503 |E | Exit_Subprogram 0x3
0306 0000 0000 | | .XXX[0x2]
0308 ; --------------------------------------------------------------------------------------
0308 ; SUBPROGRAM
0308 ; --------------------------------------------------------------------------------------
0308 0311 | | .CONST 0x0311 ; Address of begin
0309 0004 | | .CONST 0x0004 ; Address of exception handler
030a 0003 | | .CONST 0x0003 ; Number of locals
030b INIT_0308:
030b 00da | | Load_Top At_Offset_2
030c 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
030d 0007 | | Action Break_Optional
030e 00db | | Load_Top At_Offset_3
030f 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0310 0007 | | Action Break_Optional
0311 BODY_0308:
0311 e5fd | | Load 0x2,-0x3
0312 e5fe | | Load 0x2,-0x2
0313 00da | | Load_Top At_Offset_2
0314 e402 | | Load 0x2,0x2
0315 0227 | ' | Execute Access,All_Reference
0316 2505 |% | Execute Variant_Record,Field_Reference,Fixed,Indirect,Field_Number 0x5
0317 01d5 | | Execute Vector,Field_Reference
0318 2502 |% | Execute Variant_Record,Field_Reference,Fixed,Indirect,Field_Number 0x2
0319 01d6 | | Execute Vector,Field_Write
031a 4504 |E | Exit_Subprogram 0x4
031b 0000 0000 | | .BLANK 0000[0x5]
0320 ; --------------------------------------------------------------------------------------
0320 ; SUBPROGRAM
0320 ; --------------------------------------------------------------------------------------
0320 0329 | ) | .CONST 0x0329 ; Address of begin
0321 0004 | | .CONST 0x0004 ; Address of exception handler
0322 0003 | | .CONST 0x0003 ; Number of locals
0323 INIT_0320:
0323 00da | | Load_Top At_Offset_2
0324 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0325 0007 | | Action Break_Optional
0326 00db | | Load_Top At_Offset_3
0327 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0328 0007 | | Action Break_Optional
0329 BODY_0320:
0329 00d8 | | Load_Top At_Offset_0
032a 00da | | Load_Top At_Offset_2
032b 8230 | 0 | Call 0x1,0x30
032c 6823 |h# | Jump_Zero 0x350
032d e5fe | | Load 0x2,-0x2
032e 00d9 | | Load_Top At_Offset_1
032f 0227 | ' | Execute Access,All_Reference
0330 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0331 e008 | | Load 0x0,0x8
0332 1c04 | | Execute_Immediate Run_Utility,0x4
0333 e008 | | Load 0x0,0x8
0334 0122 | " | Execute Any,Make_Root_Type
0335 011c | | Execute Any,Convert_Unchecked
0336 1c01 | | Execute_Immediate Run_Utility,0x1
0337 0092 0592 | | Action Push_String_Extended,0x592 ; "'("
0339 01cc | | Execute Vector,Catenate
033a 800b | | Call 0x0,0xb
033b e5fe | | Load 0x2,-0x2
033c 800c | | Call 0x0,0xc
033d e5fe | | Load 0x2,-0x2
033e 00d9 | | Load_Top At_Offset_1
033f 0227 | ' | Execute Access,All_Reference
0340 2404 |$ | Execute Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x4
0341 2502 |% | Execute Variant_Record,Field_Reference,Fixed,Indirect,Field_Number 0x2
0342 00db | | Load_Top At_Offset_3
0343 00db | | Load_Top At_Offset_3
0344 0227 | ' | Execute Access,All_Reference
0345 2505 |% | Execute Variant_Record,Field_Reference,Fixed,Indirect,Field_Number 0x5
0346 01d5 | | Execute Vector,Field_Reference
0347 2502 |% | Execute Variant_Record,Field_Reference,Fixed,Indirect,Field_Number 0x2
0348 8232 | 2 | Call 0x1,0x32
0349 e5fe | | Load 0x2,-0x2
034a 800d | | Call 0x0,0xd
034b e5fe | | Load 0x2,-0x2
034c 0092 0593 | | Action Push_String_Extended,0x593 ; ")"
034e 800b | | Call 0x0,0xb
034f 4503 |E | Exit_Subprogram 0x3
0350 e5fe | | Load 0x2,-0x2
0351 0092 0594 | | Action Push_String_Extended,0x594 ; "null_object"
0353 800b | | Call 0x0,0xb
0354 4503 |E | Exit_Subprogram 0x3
0355 0000 0000 | | .XXX[0x3]
0357 0000 | |
0358 ; --------------------------------------------------------------------------------------
0358 ; SUBPROGRAM
0358 ; --------------------------------------------------------------------------------------
0358 035b | [ | .CONST 0x035b ; Address of begin
0359 0004 | | .CONST 0x0004 ; Address of exception handler
035a 0001 | | .CONST 0x0001 ; Number of locals
035b BODY_0358:
035b INIT_0358:
035b 00db | | Load_Top At_Offset_3
035c 0092 0595 | | Action Push_String_Extended,0x595 ; "Collection'("
035e 800b | | Call 0x0,0xb
035f 00db | | Load_Top At_Offset_3
0360 800c | | Call 0x0,0xc
0361 00da | | Load_Top At_Offset_2
0362 01db | | Execute Vector,Length
0363 680d |h | Jump_Zero 0x371
0364 00cf | | Action Mark_Auxiliary
0365 00db | | Load_Top At_Offset_3
0366 01d9 | | Execute Vector,Reverse_Bounds
0367 0263 | c | Execute Discrete,Above_Bound
0368 7007 |p | Jump_Nonzero 0x370
0369 e5fe | | Load 0x2,-0x2
036a 00d9 | | Load_Top At_Offset_1
036b e5ff | | Load 0x2,-0x1
036c 01d5 | | Execute Vector,Field_Reference
036d 8225 | % | Call 0x1,0x25
036e 00c8 | | Action Pop_Auxiliary_Range
036f 3ff9 |? | Loop_Increasing 0x369
0370 00ce | | Action Pop_Auxiliary
0371 00db | | Load_Top At_Offset_3
0372 800d | | Call 0x0,0xd
0373 4801 |H | Short_Literal 0x1
0374 e5fe | | Load 0x2,-0x2
0375 800e | | Call 0x0,0xe
0376 00db | | Load_Top At_Offset_3
0377 0092 0593 | | Action Push_String_Extended,0x593 ; ")"
0379 800b | | Call 0x0,0xb
037a 4503 |E | Exit_Subprogram 0x3
037b 0000 0000 | | .BLANK 0000[0x5]
0380 ; --------------------------------------------------------------------------------------
0380 ; SUBPROGRAM
0380 ; --------------------------------------------------------------------------------------
0380 0393 | | .CONST 0x0393 ; Address of begin
0381 0004 | | .CONST 0x0004 ; Address of exception handler
0382 0004 | | .CONST 0x0004 ; Number of locals
0383 INIT_0380:
0383 1d28 | ( | Execute_Immediate Reference_Lex_1,0x28
0384 00c6 | | Action Check_Subprogram_Elaborated
0385 1d25 | % | Execute_Immediate Reference_Lex_1,0x25
0386 0093 0000 | | PushFullAddress InMicrocode
0388 601b |` | Indirect_Literal Discrete,0x3a4,{0x80000000, 0x00010000}
0389 0273 | s | Execute Discrete,Plus
038a e006 | | Load 0x0,0x6
038b 1b0d | | Execute Package,Field_Read,Field_Number 0xd
038c 6013 |` | Indirect_Literal Discrete,0x3a0,{0x00000000, 0x0000ffff}
038d 0279 | y | Execute Discrete,And
038e 0273 | s | Execute Discrete,Plus
038f e00f | | Load 0x0,0xf
0390 0273 | s | Execute Discrete,Plus
0391 4804 |H | Short_Literal 0x4
0392 0007 | | Action Break_Optional
0393 BODY_0380:
0393 e5fe | | Load 0x2,-0x2
0394 e5ff | | Load 0x2,-0x1
0395 4802 |H | Short_Literal 0x2
0396 4802 |H | Short_Literal 0x2
0397 0099 | | Action Reference_Dynamic
0398 4803 |H | Short_Literal 0x3
0399 4802 |H | Short_Literal 0x2
039a 0099 | | Action Reference_Dynamic
039b 8228 | ( | Call 0x1,0x28
039c 4503 |E | Exit_Subprogram 0x3
039d 0000 0000 | | .XXX[0x3]
039f 0000 | |
03a0 0000 0000 | | .LITERAL {0x00000000, 0x0000ffff}
03a4 8000 0000 | | .LITERAL {0x80000000, 0x00010000}
03a8 ; --------------------------------------------------------------------------------------
03a8 ; SUBPROGRAM
03a8 ; --------------------------------------------------------------------------------------
03a8 03ab | | .CONST 0x03ab ; Address of begin
03a9 0004 | | .CONST 0x0004 ; Address of exception handler
03aa 0001 | | .CONST 0x0001 ; Number of locals
03ab BODY_03a8:
03ab INIT_03a8:
03ab e5fd | | Load 0x2,-0x3
03ac e22b | + | Load 0x1,0x2b
03ad 022e | . | Execute Access,Not_Equal
03ae 684a |hJ | Jump_Zero 0x3f9
03af e5fc | | Load 0x2,-0x4
03b0 0092 0596 | | Action Push_String_Extended,0x596 ; "Class'("
03b2 800b | | Call 0x0,0xb
03b3 e5fc | | Load 0x2,-0x4
03b4 800c | | Call 0x0,0xc
03b5 e5fc | | Load 0x2,-0x4
03b6 0092 0597 | | Action Push_String_Extended,0x597 ; "Kind => "
03b8 e5fd | | Load 0x2,-0x3
03b9 0227 | ' | Execute Access,All_Reference
03ba 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
03bb e008 | | Load 0x0,0x8
03bc 1c04 | | Execute_Immediate Run_Utility,0x4
03bd e008 | | Load 0x0,0x8
03be 0122 | " | Execute Any,Make_Root_Type
03bf 011c | | Execute Any,Convert_Unchecked
03c0 1c01 | | Execute_Immediate Run_Utility,0x1
03c1 01cc | | Execute Vector,Catenate
03c2 800b | | Call 0x0,0xb
03c3 e5fc | | Load 0x2,-0x4
03c4 0092 0598 | | Action Push_String_Extended,0x598 ; "Size => "
03c6 e5fd | | Load 0x2,-0x3
03c7 0227 | ' | Execute Access,All_Reference
03c8 2c03 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
03c9 00e0 | | Load_Encached Standard_Cache
03ca 1818 | | Execute Package,Field_Execute,Field_Number 0x18
03cb 01cc | | Execute Vector,Catenate
03cc 800b | | Call 0x0,0xb
03cd e5fc | | Load 0x2,-0x4
03ce 0092 0599 | | Action Push_String_Extended,0x599 ; "Instances => Collection'("
03d0 800b | | Call 0x0,0xb
03d1 e5fc | | Load 0x2,-0x4
03d2 800c | | Call 0x0,0xc
03d3 00cf | | Action Mark_Auxiliary
03d4 e5fd | | Load 0x2,-0x3
03d5 821a | | Call 0x1,0x1a
03d6 4801 |H | Short_Literal 0x1
03d7 0263 | c | Execute Discrete,Above_Bound
03d8 7013 |p | Jump_Nonzero 0x3ec
03d9 e5fc | | Load 0x2,-0x4
03da 00d9 | | Load_Top At_Offset_1
03db 8010 | | Call 0x0,0x10
03dc e5fc | | Load 0x2,-0x4
03dd 0092 059a | | Action Push_String_Extended,0x59a ; " => "
03df 8011 | | Call 0x0,0x11
03e0 e5fc | | Load 0x2,-0x4
03e1 e20e | | Load 0x1,0xe
03e2 0322 | " | Declare_Variable Record
03e3 e5fd | | Load 0x2,-0x3
03e4 00d9 | | Load_Top At_Offset_1
03e5 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
03e6 00da | | Load_Top At_Offset_2
03e7 00d9 | | Load_Top At_Offset_1
03e8 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
03e9 85fe | | Call 0x2,-0x2
03ea 00c8 | | Action Pop_Auxiliary_Range
03eb 3fed |? | Loop_Increasing 0x3d9
03ec 00ce | | Action Pop_Auxiliary
03ed e5fc | | Load 0x2,-0x4
03ee 800d | | Call 0x0,0xd
03ef e5fc | | Load 0x2,-0x4
03f0 0092 0593 | | Action Push_String_Extended,0x593 ; ")"
03f2 800b | | Call 0x0,0xb
03f3 e5fc | | Load 0x2,-0x4
03f4 800d | | Call 0x0,0xd
03f5 e5fc | | Load 0x2,-0x4
03f6 0092 0593 | | Action Push_String_Extended,0x593 ; ")"
03f8 800b | | Call 0x0,0xb
03f9 4505 |E | Exit_Subprogram 0x5
03fa 0000 0000 | | .BLANK 0000[0x6]
0400 ; --------------------------------------------------------------------------------------
0400 ; SUBPROGRAM
0400 ; SUBPROGRAM
0400 ; --------------------------------------------------------------------------------------
0400 0403 | | .CONST 0x0403 ; Address of begin
; Address of begin
0401 0004 | | .CONST 0x0004 ; Address of exception handler
; Address of exception handler
0402 0001 | | .CONST 0x0001 ; Number of locals
; Number of locals
0403 BODY_0400:
0403 BODY_0400:
0403 INIT_0400:
0403 INIT_0400:
0403 4609 |F | Jump_Case 0x9
0404 7809 |x | Jump 0x40e ; case 0x0
0405 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x1
0406 782d |x- | Jump 0x434 ; case 0x2
0407 7830 |x0 | Jump 0x438 ; case 0x3
0408 7835 |x5 | Jump 0x43e ; case 0x4
0409 783c |x< | Jump 0x446 ; case 0x5
040a 7858 |xX | Jump 0x463 ; case 0x6
040b 7844 |xD | Jump 0x450 ; case 0x7
040c 784c |xL | Jump 0x459 ; case 0x8
040d 7855 |xU | Jump 0x463 ; case 0x9
040e 4800 |H | Short_Literal 0x0
040f 00db | | Load_Top At_Offset_3
0410 2803 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
0411 00da | | Load_Top At_Offset_2
0412 2505 |% | Execute Variant_Record,Field_Reference,Fixed,Indirect,Field_Number 0x5
0413 0335 | 5 | Declare_Variable Array,Duplicate
0414 00cd | | Action Spare6_Action
0415 00db | | Load_Top At_Offset_3
0416 2505 |% | Execute Variant_Record,Field_Reference,Fixed,Indirect,Field_Number 0x5
0417 01d9 | | Execute Vector,Reverse_Bounds
0418 0263 | c | Execute Discrete,Above_Bound
0419 7005 |p | Jump_Nonzero 0x41f
041a e22d | - | Load 0x1,0x2d
041b 00d9 | | Load_Top At_Offset_1
041c e402 | | Load 0x2,0x2
041d 01d6 | | Execute Vector,Field_Write
041e 3ffb |? | Loop_Increasing 0x41a
041f 00db | | Load_Top At_Offset_3
0420 00d8 | | Load_Top At_Offset_0
0421 2505 |% | Execute Variant_Record,Field_Reference,Fixed,Indirect,Field_Number 0x5
0422 00da | | Load_Top At_Offset_2
0423 01da | | Execute Vector,Bounds
0424 00da | | Load_Top At_Offset_2
0425 01da | | Execute Vector,Bounds
0426 00da | | Load_Top At_Offset_2
0427 027f | | Execute Discrete,Equal
0428 7001 |p | Jump_Nonzero 0x42a
0429 08e0 | | Execute_Immediate Raise,0xe0
042a 00cd | | Action Spare6_Action
042b 027f | | Execute Discrete,Equal
042c 7001 |p | Jump_Nonzero 0x42e
042d 08e0 | | Execute_Immediate Raise,0xe0
042e 00d1 | | Pop_Control Pop_Count_1
042f 2905 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x5
0430 00da | | Load_Top At_Offset_2
0431 2404 |$ | Execute Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x4
0432 1c00 | | Execute_Immediate Run_Utility,0x0
0433 4302 |C | Exit_Subprogram From_Utility,0x2
0434 4801 |H | Short_Literal 0x1
0435 4805 |H | Short_Literal 0x5
0436 0311 | | Declare_Type Variant_Record,Constrained_Incomplete
0437 4201 |B | Exit_Subprogram From_Utility,With_Result,0x1
0438 e5fd | | Load 0x2,-0x3
0439 00db | | Load_Top At_Offset_3
043a 1c07 | | Execute_Immediate Run_Utility,0x7
043b e5fe | | Load 0x2,-0x2
043c 0306 | | Complete_Type Variant_Record,By_Renaming
043d 4304 |C | Exit_Subprogram From_Utility,0x4
043e 4801 |H | Short_Literal 0x1
043f 4805 |H | Short_Literal 0x5
0440 0311 | | Declare_Type Variant_Record,Constrained_Incomplete
0441 e5fe | | Load 0x2,-0x2
0442 e5ff | | Load 0x2,-0x1
0443 00da | | Load_Top At_Offset_2
0444 0305 | | Complete_Type Variant_Record,By_Constraining_Incomplete
0445 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
0446 4801 |H | Short_Literal 0x1
0447 4801 |H | Short_Literal 0x1
0448 e5ff | | Load 0x2,-0x1
0449 0169 | i | Execute Variant_Record,Read_Discriminant_Constraint
044a e22e | . | Load 0x1,0x2e
044b 035b | [ | Declare_Type Array,Constrained
044c 4801 |H | Short_Literal 0x1
044d e5ff | | Load 0x2,-0x1
044e 0304 | | Complete_Type Variant_Record,By_Completing_Constraint
044f 4302 |C | Exit_Subprogram From_Utility,0x2
0450 00db | | Load_Top At_Offset_3
0451 4801 |H | Short_Literal 0x1
0452 e5fe | | Load 0x2,-0x2
0453 e22e | . | Load 0x1,0x2e
0454 035b | [ | Declare_Type Array,Constrained
0455 4801 |H | Short_Literal 0x1
0456 e5ff | | Load 0x2,-0x1
0457 031b | | Declare_Type Variant_Record,Constrained
0458 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
0459 00db | | Load_Top At_Offset_3
045a 00db | | Load_Top At_Offset_3
045b 02fc | | Declare_Variable Variant_Record,With_Constraint
045c 4801 |H | Short_Literal 0x1
045d e5fe | | Load 0x2,-0x2
045e e22e | . | Load 0x1,0x2e
045f 0334 | 4 | Declare_Variable Array,With_Constraint
0460 2d05 |- | Execute Variant_Record,Field_Append,Fixed,Indirect,Field_Number 0x5
0461 016a | j | Execute Variant_Record,Indirects_Appended
0462 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
0463 0869 | i | Execute_Immediate Raise,0x69
0464 0000 0000 | | .BLANK 0000[0x4]
0468 ; --------------------------------------------------------------------------------------
0468 ; SUBPROGRAM
0468 ; --------------------------------------------------------------------------------------
0468 046b | k | .CONST 0x046b ; Address of begin
0469 0004 | | .CONST 0x0004 ; Address of exception handler
046a 0001 | | .CONST 0x0001 ; Number of locals
046b BODY_0468:
046b INIT_0468:
046b 4609 |F | Jump_Case 0x9
046c 7809 |x | Jump 0x476 ; case 0x0
046d 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x1
046e 7817 |x | Jump 0x486 ; case 0x2
046f 781a |x | Jump 0x48a ; case 0x3
0470 7836 |x6 | Jump 0x4a7 ; case 0x4
0471 7835 |x5 | Jump 0x4a7 ; case 0x5
0472 7834 |x4 | Jump 0x4a7 ; case 0x6
0473 781c |x | Jump 0x490 ; case 0x7
0474 7824 |x$ | Jump 0x499 ; case 0x8
0475 782d |x- | Jump 0x4a3 ; case 0x9
0476 00da | | Load_Top At_Offset_2
0477 016c | l | Execute Variant_Record,Is_Constrained
0478 7009 |p | Jump_Nonzero 0x482
0479 00cf | | Action Mark_Auxiliary
047a 4800 |H | Short_Literal 0x0
047b e5ff | | Load 0x2,-0x1
047c 1c08 | | Execute_Immediate Run_Utility,0x8
047d 00d8 | | Load_Top At_Offset_0
047e 1c00 | | Execute_Immediate Run_Utility,0x0
047f c5ff | | Store 0x2,-0x1
0480 00ce | | Action Pop_Auxiliary
0481 4302 |C | Exit_Subprogram From_Utility,0x2
0482 00da | | Load_Top At_Offset_2
0483 2502 |% | Execute Variant_Record,Field_Reference,Fixed,Indirect,Field_Number 0x2
0484 1c00 | | Execute_Immediate Run_Utility,0x0
0485 4302 |C | Exit_Subprogram From_Utility,0x2
0486 4801 |H | Short_Literal 0x1
0487 4802 |H | Short_Literal 0x2
0488 0311 | | Declare_Type Variant_Record,Constrained_Incomplete
0489 4201 |B | Exit_Subprogram From_Utility,With_Result,0x1
048a e5fd | | Load 0x2,-0x3
048b 00db | | Load_Top At_Offset_3
048c 1c07 | | Execute_Immediate Run_Utility,0x7
048d e5fe | | Load 0x2,-0x2
048e 0306 | | Complete_Type Variant_Record,By_Renaming
048f 4304 |C | Exit_Subprogram From_Utility,0x4
0490 00db | | Load_Top At_Offset_3
0491 4801 |H | Short_Literal 0x1
0492 e5fe | | Load 0x2,-0x2
0493 e214 | | Load 0x1,0x14
0494 035b | [ | Declare_Type Array,Constrained
0495 4801 |H | Short_Literal 0x1
0496 e5ff | | Load 0x2,-0x1
0497 031b | | Declare_Type Variant_Record,Constrained
0498 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
0499 00db | | Load_Top At_Offset_3
049a 00db | | Load_Top At_Offset_3
049b 02fc | | Declare_Variable Variant_Record,With_Constraint
049c 4801 |H | Short_Literal 0x1
049d e5fe | | Load 0x2,-0x2
049e e214 | | Load 0x1,0x14
049f 0334 | 4 | Declare_Variable Array,With_Constraint
04a0 2d02 |- | Execute Variant_Record,Field_Append,Fixed,Indirect,Field_Number 0x2
04a1 016a | j | Execute Variant_Record,Indirects_Appended
04a2 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
04a3 4800 |H | Short_Literal 0x0
04a4 00db | | Load_Top At_Offset_3
04a5 1c07 | | Execute_Immediate Run_Utility,0x7
04a6 4201 |B | Exit_Subprogram From_Utility,With_Result,0x1
04a7 0869 | i | Execute_Immediate Raise,0x69
04a8 ; --------------------------------------------------------------------------------------
04a8 ; SUBPROGRAM
04a8 ; --------------------------------------------------------------------------------------
04a8 04ab | | .CONST 0x04ab ; Address of begin
04a9 0004 | | .CONST 0x0004 ; Address of exception handler
04aa 0001 | | .CONST 0x0001 ; Number of locals
04ab BODY_04a8:
04ab INIT_04a8:
04ab 00d1 | | Pop_Control Pop_Count_1
04ac 00da | | Load_Top At_Offset_2
04ad 01d8 | | Execute Vector,Element_Type
04ae 02ff | | Declare_Variable Variant_Record
04af 00d8 | | Load_Top At_Offset_0
04b0 1c00 | | Execute_Immediate Run_Utility,0x0
04b1 00db | | Load_Top At_Offset_3
04b2 01dc | | Execute Vector,Last
04b3 e5ff | | Load 0x2,-0x1
04b4 01dd | | Execute Vector,First
04b5 0263 | c | Execute Discrete,Above_Bound
04b6 7006 |p | Jump_Nonzero 0x4bd
04b7 00da | | Load_Top At_Offset_2
04b8 00d9 | | Load_Top At_Offset_1
04b9 e5ff | | Load 0x2,-0x1
04ba 01d6 | | Execute Vector,Field_Write
04bb 0a01 | | Execute_Immediate Plus,0x1
04bc 7ff8 | | Jump 0x4b5
04bd 4302 |C | Exit_Subprogram From_Utility,0x2
04be 0000 0000 | | .XXX[0x2]
04c0 ; --------------------------------------------------------------------------------------
04c0 ; SUBPROGRAM
04c0 ; --------------------------------------------------------------------------------------
04c0 04c3 | | .CONST 0x04c3 ; Address of begin
04c1 0004 | | .CONST 0x0004 ; Address of exception handler
04c2 0001 | | .CONST 0x0001 ; Number of locals
04c3 BODY_04c0:
04c3 INIT_04c0:
04c3 4609 |F | Jump_Case 0x9
04c4 7809 |x | Jump 0x4ce ; case 0x0
04c5 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x1
04c6 7813 |x | Jump 0x4da ; case 0x2
04c7 7816 |x | Jump 0x4de ; case 0x3
04c8 7832 |x2 | Jump 0x4fb ; case 0x4
04c9 7831 |x1 | Jump 0x4fb ; case 0x5
04ca 7830 |x0 | Jump 0x4fb ; case 0x6
04cb 7818 |x | Jump 0x4e4 ; case 0x7
04cc 7820 |x | Jump 0x4ed ; case 0x8
04cd 7829 |x) | Jump 0x4f7 ; case 0x9
04ce 00da | | Load_Top At_Offset_2
04cf 016c | l | Execute Variant_Record,Is_Constrained
04d0 7008 |p | Jump_Nonzero 0x4d9
04d1 00cf | | Action Mark_Auxiliary
04d2 4800 |H | Short_Literal 0x0
04d3 e5ff | | Load 0x2,-0x1
04d4 1c08 | | Execute_Immediate Run_Utility,0x8
04d5 00d8 | | Load_Top At_Offset_0
04d6 1c00 | | Execute_Immediate Run_Utility,0x0
04d7 c5ff | | Store 0x2,-0x1
04d8 00ce | | Action Pop_Auxiliary
04d9 4302 |C | Exit_Subprogram From_Utility,0x2
04da 4801 |H | Short_Literal 0x1
04db 4802 |H | Short_Literal 0x2
04dc 0311 | | Declare_Type Variant_Record,Constrained_Incomplete
04dd 4201 |B | Exit_Subprogram From_Utility,With_Result,0x1
04de e5fd | | Load 0x2,-0x3
04df 00db | | Load_Top At_Offset_3
04e0 1c07 | | Execute_Immediate Run_Utility,0x7
04e1 e5fe | | Load 0x2,-0x2
04e2 0306 | | Complete_Type Variant_Record,By_Renaming
04e3 4304 |C | Exit_Subprogram From_Utility,0x4
04e4 00db | | Load_Top At_Offset_3
04e5 4801 |H | Short_Literal 0x1
04e6 e5fe | | Load 0x2,-0x2
04e7 e215 | | Load 0x1,0x15
04e8 035b | [ | Declare_Type Array,Constrained
04e9 4801 |H | Short_Literal 0x1
04ea e5ff | | Load 0x2,-0x1
04eb 031b | | Declare_Type Variant_Record,Constrained
04ec 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
04ed 00db | | Load_Top At_Offset_3
04ee 00db | | Load_Top At_Offset_3
04ef 02fc | | Declare_Variable Variant_Record,With_Constraint
04f0 4801 |H | Short_Literal 0x1
04f1 e5fe | | Load 0x2,-0x2
04f2 e215 | | Load 0x1,0x15
04f3 0334 | 4 | Declare_Variable Array,With_Constraint
04f4 2d02 |- | Execute Variant_Record,Field_Append,Fixed,Indirect,Field_Number 0x2
04f5 016a | j | Execute Variant_Record,Indirects_Appended
04f6 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
04f7 4800 |H | Short_Literal 0x0
04f8 00db | | Load_Top At_Offset_3
04f9 1c07 | | Execute_Immediate Run_Utility,0x7
04fa 4201 |B | Exit_Subprogram From_Utility,With_Result,0x1
04fb 0869 | i | Execute_Immediate Raise,0x69
04fc 0000 0000 | | .BLANK 0000[0x4]
0500 ; --------------------------------------------------------------------------------------
0500 ; SUBPROGRAM
0500 ; --------------------------------------------------------------------------------------
0500 0503 | | .CONST 0x0503 ; Address of begin
0501 0004 | | .CONST 0x0004 ; Address of exception handler
0502 0001 | | .CONST 0x0001 ; Number of locals
0503 BODY_0500:
0503 INIT_0500:
0503 00db | | Load_Top At_Offset_3
0504 e22b | + | Load 0x1,0x2b
0505 022e | . | Execute Access,Not_Equal
0506 680a |h | Jump_Zero 0x511
0507 00da | | Load_Top At_Offset_2
0508 6806 |h | Jump_Zero 0x50f
0509 00da | | Load_Top At_Offset_2
050a e5fe | | Load 0x2,-0x2
050b 0227 | ' | Execute Access,All_Reference
050c 2c03 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
050d 027a | z | Execute Discrete,Less_Equal
050e 4402 |D | Exit_Subprogram With_Result,0x2
050f 4800 |H | Short_Literal 0x0
0510 4402 |D | Exit_Subprogram With_Result,0x2
0511 4800 |H | Short_Literal 0x0
0512 4402 |D | Exit_Subprogram With_Result,0x2
0513 0000 0000 | | .BLANK 0000[0x5]
0518 ; --------------------------------------------------------------------------------------
0518 ; SUBPROGRAM
0518 ; --------------------------------------------------------------------------------------
0518 051b | | .CONST 0x051b ; Address of begin
0519 0004 | | .CONST 0x0004 ; Address of exception handler
051a 0001 | | .CONST 0x0001 ; Number of locals
051b BODY_0518:
051b INIT_0518:
051b 00cf | | Action Mark_Auxiliary
051c 00db | | Load_Top At_Offset_3
051d 01d9 | | Execute Vector,Reverse_Bounds
051e 0263 | c | Execute Discrete,Above_Bound
051f 700c |p | Jump_Nonzero 0x52c
0520 00d8 | | Load_Top At_Offset_0
0521 e5fe | | Load 0x2,-0x2
0522 01d7 | | Execute Vector,Field_Read
0523 00d9 | | Load_Top At_Offset_1
0524 e5ff | | Load 0x2,-0x1
0525 01d5 | | Execute Vector,Field_Reference
0526 8012 | | Call 0x0,0x12
0527 7002 |p | Jump_Nonzero 0x52a
0528 4800 |H | Short_Literal 0x0
0529 4402 |D | Exit_Subprogram With_Result,0x2
052a 00c8 | | Action Pop_Auxiliary_Range
052b 3ff4 |? | Loop_Increasing 0x520
052c 00ce | | Action Pop_Auxiliary
052d 4801 |H | Short_Literal 0x1
052e 4402 |D | Exit_Subprogram With_Result,0x2
052f 0000 | | .XXX[0x1]
0530 ; --------------------------------------------------------------------------------------
0530 ; SUBPROGRAM
0530 ; --------------------------------------------------------------------------------------
0530 0535 | 5 | .CONST 0x0535 ; Address of begin
0531 0004 | | .CONST 0x0004 ; Address of exception handler
0532 0002 | | .CONST 0x0002 ; Number of locals
0533 INIT_0530:
0533 00e1 | | Load_Encached Boolean_Cache
0534 0601 | | Execute_Immediate Set_Value_Unchecked,0x1
0535 BODY_0530:
0535 00cf | | Action Mark_Auxiliary
0536 e5ff | | Load 0x2,-0x1
0537 01d9 | | Execute Vector,Reverse_Bounds
0538 0263 | c | Execute Discrete,Above_Bound
0539 7020 |p | Jump_Nonzero 0x55a
053a 00db | | Load_Top At_Offset_3
053b 700c |p | Jump_Nonzero 0x548
053c e5fd | | Load 0x2,-0x3
053d 0092 059b | | Action Push_String_Extended,0x59b ; ", "
053f 8011 | | Call 0x0,0x11
0540 00d8 | | Load_Top At_Offset_0
0541 4801 |H | Short_Literal 0x1
0542 0279 | y | Execute Discrete,And
0543 6806 |h | Jump_Zero 0x54a
0544 4801 |H | Short_Literal 0x1
0545 e5fd | | Load 0x2,-0x3
0546 800e | | Call 0x0,0xe
0547 7802 |x | Jump 0x54a
0548 4800 |H | Short_Literal 0x0
0549 a402 | | Store_Unchecked 0x2,0x2
054a e5fd | | Load 0x2,-0x3
054b 00d9 | | Load_Top At_Offset_1
054c e5fe | | Load 0x2,-0x2
054d 01d7 | | Execute Vector,Field_Read
054e 800a | | Call 0x0,0xa
054f 0092 059c | | Action Push_String_Extended,0x59c ; " =>"
0551 01cc | | Execute Vector,Catenate
0552 8011 | | Call 0x0,0x11
0553 e5fd | | Load 0x2,-0x3
0554 00d9 | | Load_Top At_Offset_1
0555 e5ff | | Load 0x2,-0x1
0556 01d5 | | Execute Vector,Field_Reference
0557 8013 | | Call 0x0,0x13
0558 00c8 | | Action Pop_Auxiliary_Range
0559 3fe0 |? | Loop_Increasing 0x53a
055a 4504 |E | Exit_Subprogram 0x4
055b 0000 0000 | | .BLANK 0000[0x5]
0560 ; --------------------------------------------------------------------------------------
0560 ; SUBPROGRAM
0560 ; --------------------------------------------------------------------------------------
0560 0563 | c | .CONST 0x0563 ; Address of begin
0561 0004 | | .CONST 0x0004 ; Address of exception handler
0562 0001 | | .CONST 0x0001 ; Number of locals
0563 BODY_0560:
0563 INIT_0560:
0563 00db | | Load_Top At_Offset_3
0564 e22d | - | Load 0x1,0x2d
0565 016e | n | Execute Variant_Record,Not_Equal
0566 681e |h | Jump_Zero 0x585
0567 e5fd | | Load 0x2,-0x3
0568 00db | | Load_Top At_Offset_3
0569 0227 | ' | Execute Access,All_Reference
056a 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
056b e008 | | Load 0x0,0x8
056c 1c04 | | Execute_Immediate Run_Utility,0x4
056d e008 | | Load 0x0,0x8
056e 0122 | " | Execute Any,Make_Root_Type
056f 011c | | Execute Any,Convert_Unchecked
0570 1c01 | | Execute_Immediate Run_Utility,0x1
0571 0092 0592 | | Action Push_String_Extended,0x592 ; "'("
0573 01cc | | Execute Vector,Catenate
0574 800b | | Call 0x0,0xb
0575 e5fd | | Load 0x2,-0x3
0576 800c | | Call 0x0,0xc
0577 e5fd | | Load 0x2,-0x3
0578 00db | | Load_Top At_Offset_3
0579 0227 | ' | Execute Access,All_Reference
057a 2404 |$ | Execute Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x4
057b 2502 |% | Execute Variant_Record,Field_Reference,Fixed,Indirect,Field_Number 0x2
057c e5fe | | Load 0x2,-0x2
057d 2502 |% | Execute Variant_Record,Field_Reference,Fixed,Indirect,Field_Number 0x2
057e 8232 | 2 | Call 0x1,0x32
057f e5fd | | Load 0x2,-0x3
0580 800d | | Call 0x0,0xd
0581 e5fd | | Load 0x2,-0x3
0582 0092 0593 | | Action Push_String_Extended,0x593 ; ")"
0584 800b | | Call 0x0,0xb
0585 4504 |E | Exit_Subprogram 0x4
0586 0000 0000 | | .XXX[0x2]
0588 ; --------------------------------------------------------------------------------------
0588 ; SUBPROGRAM
0588 ; --------------------------------------------------------------------------------------
0588 058b | | .CONST 0x058b ; Address of begin
0589 0004 | | .CONST 0x0004 ; Address of exception handler
058a 0001 | | .CONST 0x0001 ; Number of locals
058b BODY_0588:
058b INIT_0588:
058b 4601 |F | Jump_Case 0x1
058c 7801 |x | Jump 0x58e ; case 0x0
058d 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x1
058e 4800 |H | Short_Literal 0x0
058f 00db | | Load_Top At_Offset_3
0590 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0591 4302 |C | Exit_Subprogram From_Utility,0x2
0592 ; --------------------------------------------------------------------------------------
0592 ; STRING TABLE
0592 ; --------------------------------------------------------------------------------------
0592 0018 | | .STRTAB 0x0018->0x059e ; "'("
; "'("
0593 0018 | | .STRTAB 0x0018->0x059f ; ")"
; ")"
; ")"
; ")"
; ")"
0594 0017 | | .STRTAB 0x0017->0x059f ; "null_object"
0595 0020 | | .STRTAB 0x0020->0x05a5 ; "Collection'("
0596 002a | * | .STRTAB 0x002a->0x05ab ; "Class'("
0597 002f | / | .STRTAB 0x002f->0x05ae ; "Kind => "
0598 003a | : | .STRTAB 0x003a->0x05b5 ; "Size => "
0599 0045 | E | .STRTAB 0x0045->0x05bb ; "Instances => Collection'("
059a 005c | \ | .STRTAB 0x005c->0x05c8 ; " => "
059b 005e | ^ | .STRTAB 0x005e->0x05ca ; ", "
059c 005e | ^ | .STRTAB 0x005e->0x05cb ; " =>"
059d 005f | _ | .STREND 0x005f->0x05cc
059e 2728 296e |'()n| .STRTAB_STRINGS
05cd 0000 0000 | | .XXX[0x3]
05cf 0000 | |
05d0 ; --------------------------------------------------------------------------------------
05d0 ; Debug Table
05d0 ; --------------------------------------------------------------------------------------
05d0 0004 0004 | | .DEBUG4 0x0004,0x0004,0x9c03,0x0000,0x0001,0x0021
05d6 000b 065a | Z| .DBG4T 0x000b,0x065a,0x0000,0x0000
05da 0085 0681 | | .DBG4T 0x0085,0x0681,0x0000,0x0000
05de 011b 0000 | | .DBG4T 0x011b,0x0000,0x0005,0x0000
05e2 0143 06a0 | C | .DBG4T 0x0143,0x06a0,0x0002,0x0000
05e6 0153 0000 | S | .DBG4T 0x0153,0x0000,0x0005,0x0000
05ea 016b 06a3 | k | .DBG4T 0x016b,0x06a3,0x0002,0x0000
05ee 017b 06a6 | { | .DBG4T 0x017b,0x06a6,0x0002,0x0000
05f2 0183 06a9 | | .DBG4T 0x0183,0x06a9,0x0002,0x0000
05f6 0193 06ac | | .DBG4T 0x0193,0x06ac,0x0002,0x0000
05fa 01ab 06b1 | | .DBG4T 0x01ab,0x06b1,0x0002,0x0000
05fe 01b3 06b4 | | .DBG4T 0x01b3,0x06b4,0x0002,0x0000
0602 01fb 06b7 | | .DBG4T 0x01fb,0x06b7,0x0001,0x0000
0606 021b 06bb | | .DBG4T 0x021b,0x06bb,0x0002,0x0000
060a 022b 06c0 | + | .DBG4T 0x022b,0x06c0,0x0002,0x0000
060e 0243 06c4 | C | .DBG4T 0x0243,0x06c4,0x0002,0x0000
0612 025b 06c9 | [ | .DBG4T 0x025b,0x06c9,0x0002,0x0000
0616 0273 06ce | s | .DBG4T 0x0273,0x06ce,0x0001,0x0000
061a 02b3 06d9 | | .DBG4T 0x02b3,0x06d9,0x0001,0x0000
061e 02e3 06e4 | | .DBG4T 0x02e3,0x06e4,0x0001,0x0000
0622 030b 06e9 | | .DBG4T 0x030b,0x06e9,0x0001,0x0000
0626 0323 06ee | # | .DBG4T 0x0323,0x06ee,0x0001,0x0000
062a 035b 06f9 | [ | .DBG4T 0x035b,0x06f9,0x0001,0x0000
062e 0383 0703 | | .DBG4T 0x0383,0x0703,0x0001,0x0000
0632 03ab 0707 | | .DBG4T 0x03ab,0x0707,0x2801,0x0002
0636 0403 0000 | | .DBG4T 0x0403,0x0000,0x0005,0x0000
063a 046b 0000 | k | .DBG4T 0x046b,0x0000,0x0005,0x0000
063e 04ab 0000 | | .DBG4T 0x04ab,0x0000,0x0005,0x0000
0642 04c3 0000 | | .DBG4T 0x04c3,0x0000,0x0005,0x0000
0646 0503 0718 | | .DBG4T 0x0503,0x0718,0x0002,0x0000
064a 051b 071b | | .DBG4T 0x051b,0x071b,0x0002,0x0000
064e 0533 0721 | 3 !| .DBG4T 0x0533,0x0721,0x0001,0x0000
0652 0563 072c | c ,| .DBG4T 0x0563,0x072c,0x0001,0x0000
0656 058b 0000 | | .DBG4T 0x058b,0x0000,0x0005,0x0000
065a ; --------------------------------------------------------------------------------------
065a ; Debug chain
065a ; --------------------------------------------------------------------------------------
065a 0025 0000 | % | .DBGLEN 0x0025,0x0000
065c 000b 000c | | .DBGLNO 0x000b,0x000c,0x000d,0x000f,0x0010,0x0017,0x0019,0x001a,0x001e,0x0022,0x0029,0x002f,0x0031,0x0033,0x0035,0x0037,0x0039,0x003b,0x003d,0x003f,0x0041,0x0043,0x0045,0x0047,0x0049,0x004b,0x004d,0x004f,0x0051,0x0053,0x0055,0x005f,0x0060,0x006b,0x006f,0x0072,0x007a
0681 ; --------------------------------------------------------------------------------------
0681 ; Debug chain
0681 ; --------------------------------------------------------------------------------------
0681 001d 0000 | | .DBGLEN 0x001d,0x0000
0683 0085 0097 | | .DBGLNO 0x0085,0x0097,0x00ba,0x00c1,0x00d3,0x00e3,0x00e5,0x00e7,0x00e9,0x00eb,0x00ed,0x00ef,0x00f1,0x00f3,0x00f5,0x00f7,0x00f9,0x00fb,0x00fd,0x00ff,0x0101,0x0103,0x0105,0x0107,0x0109,0x010b,0x010d,0x010f,0x0111
06a0 ; --------------------------------------------------------------------------------------
06a0 ; Debug chain
06a0 ; --------------------------------------------------------------------------------------
06a0 0000 0001 | | .DBGLEN 0x0000,0x0001
06a2 0143 | C | .DBGLNO 0x0143
06a3 ; --------------------------------------------------------------------------------------
06a3 ; Debug chain
06a3 ; --------------------------------------------------------------------------------------
06a3 0000 0001 | | .DBGLEN 0x0000,0x0001
06a5 016b | k | .DBGLNO 0x016b
06a6 ; --------------------------------------------------------------------------------------
06a6 ; Debug chain
06a6 ; --------------------------------------------------------------------------------------
06a6 0000 0001 | | .DBGLEN 0x0000,0x0001
06a8 017b | { | .DBGLNO 0x017b
06a9 ; --------------------------------------------------------------------------------------
06a9 ; Debug chain
06a9 ; --------------------------------------------------------------------------------------
06a9 0000 0001 | | .DBGLEN 0x0000,0x0001
06ab 0183 | | .DBGLNO 0x0183
06ac ; --------------------------------------------------------------------------------------
06ac ; Debug chain
06ac ; --------------------------------------------------------------------------------------
06ac 0000 0003 | | .DBGLEN 0x0000,0x0003
06ae 0193 0197 | | .DBGLNO 0x0193,0x0197,0x01a0
06b1 ; --------------------------------------------------------------------------------------
06b1 ; Debug chain
06b1 ; --------------------------------------------------------------------------------------
06b1 0000 0001 | | .DBGLEN 0x0000,0x0001
06b3 01ab | | .DBGLNO 0x01ab
06b4 ; --------------------------------------------------------------------------------------
06b4 ; Debug chain
06b4 ; --------------------------------------------------------------------------------------
06b4 0000 0001 | | .DBGLEN 0x0000,0x0001
06b6 01b3 | | .DBGLNO 0x01b3
06b7 ; --------------------------------------------------------------------------------------
06b7 ; Debug chain
06b7 ; --------------------------------------------------------------------------------------
06b7 0000 0002 | | .DBGLEN 0x0000,0x0002
06b9 01fb 01ff | | .DBGLNO 0x01fb,0x01ff
06bb ; --------------------------------------------------------------------------------------
06bb ; Debug chain
06bb ; --------------------------------------------------------------------------------------
06bb 0001 0002 | | .DBGLEN 0x0001,0x0002
06bd 021b 021d | | .DBGLNO 0x021b,0x021d,0x0224
06c0 ; --------------------------------------------------------------------------------------
06c0 ; Debug chain
06c0 ; --------------------------------------------------------------------------------------
06c0 0001 0001 | | .DBGLEN 0x0001,0x0001
06c2 022b 022f | + /| .DBGLNO 0x022b,0x022f
06c4 ; --------------------------------------------------------------------------------------
06c4 ; Debug chain
06c4 ; --------------------------------------------------------------------------------------
06c4 0002 0001 | | .DBGLEN 0x0002,0x0001
06c6 0243 0246 | C F| .DBGLNO 0x0243,0x0246,0x0249
06c9 ; --------------------------------------------------------------------------------------
06c9 ; Debug chain
06c9 ; --------------------------------------------------------------------------------------
06c9 0002 0001 | | .DBGLEN 0x0002,0x0001
06cb 025b 025e | [ ^| .DBGLNO 0x025b,0x025e,0x0261
06ce ; --------------------------------------------------------------------------------------
06ce ; Debug chain
06ce ; --------------------------------------------------------------------------------------
06ce 0002 0007 | | .DBGLEN 0x0002,0x0007
06d0 0273 0277 | s w| .DBGLNO 0x0273,0x0277,0x027b,0x027f,0x0285,0x029f,0x02a3,0x02a5,0x02a9
06d9 ; --------------------------------------------------------------------------------------
06d9 ; Debug chain
06d9 ; --------------------------------------------------------------------------------------
06d9 0003 0006 | | .DBGLEN 0x0003,0x0006
06db 02b3 02b6 | | .DBGLNO 0x02b3,0x02b6,0x02bb,0x02c0,0x02c4,0x02c8,0x02cc,0x02d0,0x02d8
06e4 ; --------------------------------------------------------------------------------------
06e4 ; Debug chain
06e4 ; --------------------------------------------------------------------------------------
06e4 0002 0001 | | .DBGLEN 0x0002,0x0001
06e6 02e3 02e6 | | .DBGLNO 0x02e3,0x02e6,0x02e9
06e9 ; --------------------------------------------------------------------------------------
06e9 ; Debug chain
06e9 ; --------------------------------------------------------------------------------------
06e9 0002 0001 | | .DBGLEN 0x0002,0x0001
06eb 030b 030e | | .DBGLNO 0x030b,0x030e,0x0311
06ee ; --------------------------------------------------------------------------------------
06ee ; Debug chain
06ee ; --------------------------------------------------------------------------------------
06ee 0002 0007 | | .DBGLEN 0x0002,0x0007
06f0 0323 0326 | # &| .DBGLNO 0x0323,0x0326,0x0329,0x032d,0x033b,0x033d,0x0349,0x034b,0x0350
06f9 ; --------------------------------------------------------------------------------------
06f9 ; Debug chain
06f9 ; --------------------------------------------------------------------------------------
06f9 0000 0008 | | .DBGLEN 0x0000,0x0008
06fb 035b 035f | [ _| .DBGLNO 0x035b,0x035f,0x0361,0x0365,0x0369,0x0371,0x0373,0x0376
0703 ; --------------------------------------------------------------------------------------
0703 ; Debug chain
0703 ; --------------------------------------------------------------------------------------
0703 0001 0001 | | .DBGLEN 0x0001,0x0001
0705 0383 0393 | | .DBGLNO 0x0383,0x0393
0707 ; --------------------------------------------------------------------------------------
0707 ; Debug chain
0707 ; --------------------------------------------------------------------------------------
0707 0000 000f | | .DBGLEN 0x0000,0x000f
0709 03ab 03af | | .DBGLNO 0x03ab,0x03af,0x03b3,0x03b5,0x03c3,0x03cd,0x03d1,0x03d4,0x03d9,0x03dc,0x03e0,0x03ed,0x03ef,0x03f3,0x03f5
0718 ; --------------------------------------------------------------------------------------
0718 ; Debug chain
0718 ; --------------------------------------------------------------------------------------
0718 0000 0001 | | .DBGLEN 0x0000,0x0001
071a 0503 | | .DBGLNO 0x0503
071b ; --------------------------------------------------------------------------------------
071b ; Debug chain
071b ; --------------------------------------------------------------------------------------
071b 0000 0004 | | .DBGLEN 0x0000,0x0004
071d 051c 0520 | | .DBGLNO 0x051c,0x0520,0x0528,0x052d
0721 ; --------------------------------------------------------------------------------------
0721 ; Debug chain
0721 ; --------------------------------------------------------------------------------------
0721 0001 0008 | | .DBGLEN 0x0001,0x0008
0723 0533 0536 | 3 6| .DBGLNO 0x0533,0x0536,0x053a,0x053c,0x0540,0x0544,0x0548,0x054a,0x0553
072c ; --------------------------------------------------------------------------------------
072c ; Debug chain
072c ; --------------------------------------------------------------------------------------
072c 0000 0006 | | .DBGLEN 0x0000,0x0006
072e 0563 0567 | c g| .DBGLNO 0x0563,0x0567,0x0575,0x0577,0x057f,0x0581
0734 0000 0000 | | .BLANK 0000[0xcc]