|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 4096 (0x1000)
Notes: 00_class, 5900_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_13388c9
└─⟦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 5900 |Y | .CONST 0x5900 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 05b8 | | .CONST 0x05b8 ; 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 0112 | | .CONST 0x0112 ; 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 INIT_0118,For_Call
0015 4801 |H | Short_Literal 0x1
0016 0349 | I | Declare_Type Array,Defined_Incomplete,Visible,Bounds_With_Object
0017 029a 0143 | C| Declare_Subprogram INIT_0140,For_Outer_Call,Visible,Unelaborated
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 00e2 | | Load_Encached Integer_Cache
0025 02a0 | | Declare_Subprogram Null_Subprogram
0026 4801 |H | Short_Literal 0x1
0027 0351 | Q | Declare_Type Array,Defined,Visible,Bounds_With_Object
0028 00d9 | | Load_Top At_Offset_1
0029 0266 | f | Execute Discrete,Bounds
002a e004 | | Load 0x0,0x4
002b 02a0 | | Declare_Subprogram Null_Subprogram
002c 4801 |H | Short_Literal 0x1
002d 0351 | Q | Declare_Type Array,Defined,Visible,Bounds_With_Object
002e 029a 0153 | S| Declare_Subprogram INIT_0150,For_Outer_Call,Visible,Unelaborated
0030 029a 0163 | c| Declare_Subprogram INIT_0160,For_Outer_Call,Visible,Unelaborated
0032 029a 016b | k| Declare_Subprogram INIT_0168,For_Outer_Call,Visible,Unelaborated
0034 029a 017b | {| Declare_Subprogram INIT_0178,For_Outer_Call,Visible,Unelaborated
0036 029a 0193 | | Declare_Subprogram INIT_0190,For_Outer_Call,Visible,Unelaborated
0038 029a 019b | | Declare_Subprogram INIT_0198,For_Outer_Call,Visible,Unelaborated
003a 029a 01e3 | | Declare_Subprogram INIT_01e0,For_Outer_Call,Visible,Unelaborated
003c 029a 0203 | | Declare_Subprogram INIT_0200,For_Outer_Call,Visible,Unelaborated
003e 029a 0213 | | Declare_Subprogram INIT_0210,For_Outer_Call,Visible,Unelaborated
0040 029a 022b | +| Declare_Subprogram INIT_0228,For_Outer_Call,Visible,Unelaborated
0042 029a 0243 | C| Declare_Subprogram INIT_0240,For_Outer_Call,Visible,Unelaborated
0044 029a 025b | [| Declare_Subprogram INIT_0258,For_Outer_Call,Visible,Unelaborated
0046 029a 029b | | Declare_Subprogram INIT_0298,For_Outer_Call,Visible,Unelaborated
0048 029a 02cb | | Declare_Subprogram INIT_02c8,For_Outer_Call,Visible,Unelaborated
004a 029a 02f3 | | Declare_Subprogram INIT_02f0,For_Outer_Call,Visible,Unelaborated
004c 029a 030b | | Declare_Subprogram INIT_0308,For_Outer_Call,Visible,Unelaborated
004e 029a 0343 | C| Declare_Subprogram INIT_0340,For_Outer_Call,Visible,Unelaborated
0050 029a 036b | k| Declare_Subprogram INIT_0368,For_Outer_Call,Visible,Unelaborated
0052 029a 0393 | | Declare_Subprogram INIT_0390,For_Outer_Call,Visible,Unelaborated
0054 0093 0000 | | push_full_address 0x0
0056 60e1 |` | Indirect_Literal Discrete,0x138,{0x80000000, 0x00010000}
0057 0273 | s | Execute Discrete,Plus
0058 e005 | | Load 0x0,0x5
0059 1b0d | | Execute Package,Field_Read,Field_Number 0xd
005a 60d9 |` | Indirect_Literal Discrete,0x134,{0x00000000, 0x0000ffff}
005b 0279 | y | Execute Discrete,And
005c 0273 | s | Execute Discrete,Plus
005d 0129 | ) | Execute Any,Make_Visible
005e 0007 | | Action Break_Optional
005f 00e3 | | Load_Encached Natural_Cache
0060 4800 |H | Short_Literal 0x0
0061 4801 |H | Short_Literal 0x1
0062 4801 |H | Short_Literal 0x1
0063 4805 |H | Short_Literal 0x5
0064 0319 | | Declare_Type Variant_Record,Incomplete,Visible
0065 029f 03eb | | Declare_Subprogram INIT_03e8,For_Call
0067 00d9 | | Load_Top At_Offset_1
0068 012a | * | Execute Any,Change_Utility
0069 0007 | | Action Break_Optional
006a 00d8 | | Load_Top At_Offset_0
006b 02a0 | | Declare_Subprogram Null_Subprogram
006c 4818 |H | Short_Literal 0x18
006d 03d4 | | Declare_Type Access,Defined,Visible,Accesses_Protected
006e 00d8 | | Load_Top At_Offset_0
006f 0129 | ) | Execute Any,Make_Visible
0070 c20d | | Store 0x1,0xd
0071 00d8 | | Load_Top At_Offset_0
0072 00e3 | | Load_Encached Natural_Cache
0073 029f 0573 | s| Declare_Subprogram INIT_0570,For_Call
0075 e20e | | Load 0x1,0xe
0076 0326 | & | Complete_Type Record,By_Defining
0077 e210 | | Load 0x1,0x10
0078 0340 | @ | Complete_Type Array,By_Component_Completion
0079 e20e | | Load 0x1,0xe
007a 0322 | " | Declare_Variable Record
007b 00d9 | | Load_Top At_Offset_1
007c 00d9 | | Load_Top At_Offset_1
007d 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
007e 4800 |H | Short_Literal 0x0
007f 00d9 | | Load_Top At_Offset_1
0080 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0081 0129 | ) | Execute Any,Make_Visible
0082 c20f | | Store 0x1,0xf
0083 00bf | | Action Accept_Activation
0084 e212 | | Load 0x1,0x12
0085 4801 |H | Short_Literal 0x1
0086 e214 | | Load 0x1,0x14
0087 01dc | | Execute Vector,Last
0088 e212 | | Load 0x1,0x12
0089 0269 | i | Execute Discrete,Last
008a 026c | l | Execute Discrete,Minimum
008b e214 | | Load 0x1,0x14
008c 034e | N | QQ_Declare_Type Array,Constrained,Bounds_With_Object
008d 029f 0453 | S| Declare_Subprogram INIT_0450,For_Call
008f 4800 |H | Short_Literal 0x0
0090 4801 |H | Short_Literal 0x1
0091 4800 |H | Short_Literal 0x0
0092 4800 |H | Short_Literal 0x0
0093 4801 |H | Short_Literal 0x1
0094 4801 |H | Short_Literal 0x1
0095 031d | | Declare_Type Variant_Record,Defined
0096 4800 |H | Short_Literal 0x0
0097 00d9 | | Load_Top At_Offset_1
0098 1c08 | | Execute_Immediate Run_Utility,0x8
0099 00d8 | | Load_Top At_Offset_0
009a 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
009b 0335 | 5 | Declare_Variable Array,Duplicate
009c 00cd | | Action Spare6_Action
009d 00d9 | | Load_Top At_Offset_1
009e 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
009f 01d9 | | Execute Vector,Reverse_Bounds
00a0 0263 | c | Execute Discrete,Above_Bound
00a1 7005 |p | Jump_Nonzero 0xa7
00a2 4800 |H | Short_Literal 0x0
00a3 00d9 | | Load_Top At_Offset_1
00a4 e22e | . | Load 0x1,0x2e
00a5 01d6 | | Execute Vector,Field_Write
00a6 3ffb |? | Loop_Increasing 0xa2
00a7 00d9 | | Load_Top At_Offset_1
00a8 00d8 | | Load_Top At_Offset_0
00a9 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
00aa 00da | | Load_Top At_Offset_2
00ab 01da | | Execute Vector,Bounds
00ac 00da | | Load_Top At_Offset_2
00ad 01da | | Execute Vector,Bounds
00ae 00da | | Load_Top At_Offset_2
00af 027f | | Execute Discrete,Equal
00b0 7001 |p | Jump_Nonzero 0xb2
00b1 08e0 | | Execute_Immediate Raise,0xe0
00b2 00cd | | Action Spare6_Action
00b3 027f | | Execute Discrete,Equal
00b4 7001 |p | Jump_Nonzero 0xb6
00b5 08e0 | | Execute_Immediate Raise,0xe0
00b6 00d2 | | Pop_Control Pop_Count_2
00b7 00d9 | | Load_Top At_Offset_1
00b8 2902 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x2
00b9 00e3 | | Load_Encached Natural_Cache
00ba 0266 | f | Execute Discrete,Bounds
00bb 00db | | Load_Top At_Offset_3
00bc 029f 0493 | | Declare_Subprogram INIT_0490,For_Call
00be 4801 |H | Short_Literal 0x1
00bf 0350 | P | Declare_Type Array,Defined,Bounds_With_Object
00c0 e212 | | Load 0x1,0x12
00c1 4801 |H | Short_Literal 0x1
00c2 e215 | | Load 0x1,0x15
00c3 01dc | | Execute Vector,Last
00c4 e212 | | Load 0x1,0x12
00c5 0269 | i | Execute Discrete,Last
00c6 026c | l | Execute Discrete,Minimum
00c7 e215 | | Load 0x1,0x15
00c8 034e | N | QQ_Declare_Type Array,Constrained,Bounds_With_Object
00c9 029f 04ab | | Declare_Subprogram INIT_04a8,For_Call
00cb 4800 |H | Short_Literal 0x0
00cc 4801 |H | Short_Literal 0x1
00cd 4800 |H | Short_Literal 0x0
00ce 4800 |H | Short_Literal 0x0
00cf 4801 |H | Short_Literal 0x1
00d0 4801 |H | Short_Literal 0x1
00d1 031d | | Declare_Type Variant_Record,Defined
00d2 e006 | | Load 0x0,0x6
00d3 00e3 | | Load_Encached Natural_Cache
00d4 00da | | Load_Top At_Offset_2
00d5 4801 |H | Short_Literal 0x1
00d6 6059 |`Y | Indirect_Literal Discrete,0x130,{0x00000000, 0x7fffffff}
00d7 e22e | . | Load 0x1,0x2e
00d8 034e | N | QQ_Declare_Type Array,Constrained,Bounds_With_Object
00d9 029f 03eb | | Declare_Subprogram INIT_03e8,For_Call
00db 4800 |H | Short_Literal 0x0
00dc 4801 |H | Short_Literal 0x1
00dd 4803 |H | Short_Literal 0x3
00de e22a | * | Load 0x1,0x2a
00df 0307 | | Complete_Type Variant_Record,By_Defining
00e0 e22b | + | Load 0x1,0x2b
00e1 03c4 | | Complete_Type Access,By_Component_Completion
00e2 1d16 | | Execute_Immediate Reference_Lex_1,0x16
00e3 00c7 | | Action Elaborate_Subprogram
00e4 1d17 | | Execute_Immediate Reference_Lex_1,0x17
00e5 00c7 | | Action Elaborate_Subprogram
00e6 1d19 | | Execute_Immediate Reference_Lex_1,0x19
00e7 00c7 | | Action Elaborate_Subprogram
00e8 1d18 | | Execute_Immediate Reference_Lex_1,0x18
00e9 00c7 | | Action Elaborate_Subprogram
00ea 1d1a | | Execute_Immediate Reference_Lex_1,0x1a
00eb 00c7 | | Action Elaborate_Subprogram
00ec 029d 04eb | | Declare_Subprogram INIT_04e8,For_Outer_Call
00ee 1d11 | | Execute_Immediate Reference_Lex_1,0x11
00ef 00c7 | | Action Elaborate_Subprogram
00f0 1d1b | | Execute_Immediate Reference_Lex_1,0x1b
00f1 00c7 | | Action Elaborate_Subprogram
00f2 1d1c | | Execute_Immediate Reference_Lex_1,0x1c
00f3 00c7 | | Action Elaborate_Subprogram
00f4 029d 0503 | | Declare_Subprogram INIT_0500,For_Outer_Call
00f6 1d1e | | Execute_Immediate Reference_Lex_1,0x1e
00f7 00c7 | | Action Elaborate_Subprogram
00f8 1d1d | | Execute_Immediate Reference_Lex_1,0x1d
00f9 00c7 | | Action Elaborate_Subprogram
00fa 1d1f | | Execute_Immediate Reference_Lex_1,0x1f
00fb 00c7 | | Action Elaborate_Subprogram
00fc 1d20 | | Execute_Immediate Reference_Lex_1,0x20
00fd 00c7 | | Action Elaborate_Subprogram
00fe 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21
00ff 00c7 | | Action Elaborate_Subprogram
0100 1d22 | " | Execute_Immediate Reference_Lex_1,0x22
0101 00c7 | | Action Elaborate_Subprogram
0102 1d23 | # | Execute_Immediate Reference_Lex_1,0x23
0103 00c7 | | Action Elaborate_Subprogram
0104 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24
0105 00c7 | | Action Elaborate_Subprogram
0106 029d 051b | | Declare_Subprogram INIT_0518,For_Outer_Call
0108 029d 054b | K| Declare_Subprogram INIT_0548,For_Outer_Call
010a 1d25 | % | Execute_Immediate Reference_Lex_1,0x25
010b 00c7 | | Action Elaborate_Subprogram
010c 1d26 | & | Execute_Immediate Reference_Lex_1,0x26
010d 00c7 | | Action Elaborate_Subprogram
010e 1d28 | ( | Execute_Immediate Reference_Lex_1,0x28
010f 00c7 | | Action Elaborate_Subprogram
0110 1d27 | ' | Execute_Immediate Reference_Lex_1,0x27
0111 00c7 | | Action Elaborate_Subprogram
0112 BODY_0008:
0112 00bc | | Action Signal_Activated
0113 00bb | | Action Signal_Completion
0114 0000 0000 | | .BLANK 0000[0x4]
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,New_Top_Offset 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 e20e | | Load 0x1,0xe
0154 0322 | " | Declare_Variable Record
0155 e5fe | | Load 0x2,-0x2
0156 00d9 | | Load_Top At_Offset_1
0157 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0158 00db | | Load_Top At_Offset_3
0159 00d9 | | Load_Top At_Offset_1
015a 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
015b 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
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 00da | | Load_Top At_Offset_2
0164 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0165 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
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 00da | | Load_Top At_Offset_2
016c 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
016d 8219 | | Call 0x1,0x19
016e 00d8 | | Load_Top At_Offset_0
016f e006 | | Load 0x0,0x6
0170 0260 | ` | Execute Discrete,In_Type
0171 7001 |p | Jump_Nonzero 0x173
0172 0801 | | Execute_Immediate Raise,0x1
0173 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
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 e22b | + | Load 0x1,0x2b
017d 022e | . | Execute Access,Not_Equal
017e 6809 |h | Jump_Zero 0x188
017f 00da | | Load_Top At_Offset_2
0180 0227 | ' | Execute Access,All_Reference
0181 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0182 00d8 | | Load_Top At_Offset_0
0183 e006 | | Load 0x0,0x6
0184 0260 | ` | Execute Discrete,In_Type
0185 7001 |p | Jump_Nonzero 0x187
0186 0801 | | Execute_Immediate Raise,0x1
0187 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0188 e007 | | Load 0x0,0x7
0189 00d8 | | Load_Top At_Offset_0
018a e006 | | Load 0x0,0x6
018b 0260 | ` | Execute Discrete,In_Type
018c 7001 |p | Jump_Nonzero 0x18e
018d 0801 | | Execute_Immediate Raise,0x1
018e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
018f 0000 | | .XXX[0x1]
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 0227 | ' | Execute Access,All_Reference
0195 2c03 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
0196 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0197 0000 | | .XXX[0x1]
0198 ; --------------------------------------------------------------------------------------
0198 ; SUBPROGRAM
0198 ; --------------------------------------------------------------------------------------
0198 019b | | .CONST 0x019b ; Address of begin
0199 0004 | | .CONST 0x0004 ; Address of exception handler
019a 0001 | | .CONST 0x0001 ; Number of locals
019b BODY_0198:
019b INIT_0198:
019b 00db | | Load_Top At_Offset_3
019c e22a | * | Load 0x1,0x2a
019d 1c08 | | Execute_Immediate Run_Utility,0x8
019e 00db | | Load_Top At_Offset_3
019f 00d9 | | Load_Top At_Offset_1
01a0 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
01a1 4800 |H | Short_Literal 0x0
01a2 00d9 | | Load_Top At_Offset_1
01a3 2803 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
01a4 00d8 | | Load_Top At_Offset_0
01a5 2505 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x5
01a6 0335 | 5 | Declare_Variable Array,Duplicate
01a7 00cd | | Action Spare6_Action
01a8 00d9 | | Load_Top At_Offset_1
01a9 2505 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x5
01aa 01d9 | | Execute Vector,Reverse_Bounds
01ab 0263 | c | Execute Discrete,Above_Bound
01ac 7005 |p | Jump_Nonzero 0x1b2
01ad e22d | - | Load 0x1,0x2d
01ae 00d9 | | Load_Top At_Offset_1
01af e403 | | Load 0x2,0x3
01b0 01d6 | | Execute Vector,Field_Write
01b1 3ffb |? | Loop_Increasing 0x1ad
01b2 00d9 | | Load_Top At_Offset_1
01b3 00d8 | | Load_Top At_Offset_0
01b4 2505 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x5
01b5 00da | | Load_Top At_Offset_2
01b6 01da | | Execute Vector,Bounds
01b7 00da | | Load_Top At_Offset_2
01b8 01da | | Execute Vector,Bounds
01b9 00da | | Load_Top At_Offset_2
01ba 027f | | Execute Discrete,Equal
01bb 7001 |p | Jump_Nonzero 0x1bd
01bc 08e0 | | Execute_Immediate Raise,0xe0
01bd 00cd | | Action Spare6_Action
01be 027f | | Execute Discrete,Equal
01bf 7001 |p | Jump_Nonzero 0x1c1
01c0 08e0 | | Execute_Immediate Raise,0xe0
01c1 00d2 | | Pop_Control Pop_Count_2
01c2 00d9 | | Load_Top At_Offset_1
01c3 2905 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x5
01c4 e5fd | | Load 0x2,-0x3
01c5 01db | | Execute Vector,Length
01c6 e22f | / | Load 0x1,0x2f
01c7 1c08 | | Execute_Immediate Run_Utility,0x8
01c8 e5fd | | Load 0x2,-0x3
01c9 00d9 | | Load_Top At_Offset_1
01ca 00d8 | | Load_Top At_Offset_0
01cb 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
01cc 00da | | Load_Top At_Offset_2
01cd 01da | | Execute Vector,Bounds
01ce 00da | | Load_Top At_Offset_2
01cf 01da | | Execute Vector,Bounds
01d0 00da | | Load_Top At_Offset_2
01d1 027f | | Execute Discrete,Equal
01d2 7001 |p | Jump_Nonzero 0x1d4
01d3 08e0 | | Execute_Immediate Raise,0xe0
01d4 00cd | | Action Spare6_Action
01d5 027f | | Execute Discrete,Equal
01d6 7001 |p | Jump_Nonzero 0x1d8
01d7 08e0 | | Execute_Immediate Raise,0xe0
01d8 00d2 | | Pop_Control Pop_Count_2
01d9 00d9 | | Load_Top At_Offset_1
01da 2902 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x2
01db 00d9 | | Load_Top At_Offset_1
01dc 2804 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x4
01dd e22b | + | Load 0x1,0x2b
01de 03b6 | | Declare_Variable Access,By_Allocation,With_Value
01df 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
01e0 ; --------------------------------------------------------------------------------------
01e0 ; SUBPROGRAM
01e0 ; --------------------------------------------------------------------------------------
01e0 01e3 | | .CONST 0x01e3 ; Address of begin
01e1 0004 | | .CONST 0x0004 ; Address of exception handler
01e2 0001 | | .CONST 0x0001 ; Number of locals
01e3 BODY_01e0:
01e3 INIT_01e0:
01e3 4800 |H | Short_Literal 0x0
01e4 00db | | Load_Top At_Offset_3
01e5 0227 | ' | Execute Access,All_Reference
01e6 2803 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
01e7 00da | | Load_Top At_Offset_2
01e8 0229 | ) | Execute Access,All_Read
01e9 00d8 | | Load_Top At_Offset_0
01ea 2505 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x5
01eb 00d8 | | Load_Top At_Offset_0
01ec 0335 | 5 | Declare_Variable Array,Duplicate
01ed 00cd | | Action Spare6_Action
01ee 00d9 | | Load_Top At_Offset_1
01ef 01d9 | | Execute Vector,Reverse_Bounds
01f0 0263 | c | Execute Discrete,Above_Bound
01f1 7005 |p | Jump_Nonzero 0x1f7
01f2 e22d | - | Load 0x1,0x2d
01f3 00d9 | | Load_Top At_Offset_1
01f4 e404 | | Load 0x2,0x4
01f5 01d6 | | Execute Vector,Field_Write
01f6 3ffb |? | Loop_Increasing 0x1f2
01f7 00cd | | Action Spare6_Action
01f8 00d9 | | Load_Top At_Offset_1
01f9 2905 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x5
01fa 4501 |E | Exit_Suprogram New_Top_Offset 0x1
01fb 0000 0000 | | .BLANK 0000[0x5]
0200 ; --------------------------------------------------------------------------------------
0200 ; SUBPROGRAM
0200 ; --------------------------------------------------------------------------------------
0200 0205 | | .CONST 0x0205 ; Address of begin
0201 0004 | | .CONST 0x0004 ; Address of exception handler
0202 0002 | | .CONST 0x0002 ; Number of locals
0203 INIT_0200:
0203 e004 | | Load 0x0,0x4
0204 0007 | | Action Break_Optional
0205 BODY_0200:
0205 e5fe | | Load 0x2,-0x2
0206 e5ff | | Load 0x2,-0x1
0207 0227 | ' | Execute Access,All_Reference
0208 2404 |$ | Execute Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x4
0209 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
020a 01d7 | | Execute Vector,Field_Read
020b 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
020c 00d8 | | Load_Top At_Offset_0
020d 8008 | | Call 0x0,0x8
020e 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
020f 0000 | | .XXX[0x1]
0210 ; --------------------------------------------------------------------------------------
0210 ; SUBPROGRAM
0210 ; --------------------------------------------------------------------------------------
0210 0217 | | .CONST 0x0217 ; Address of begin
0211 0004 | | .CONST 0x0004 ; Address of exception handler
0212 0002 | | .CONST 0x0002 ; Number of locals
0213 INIT_0210:
0213 e5fd | | Load 0x2,-0x3
0214 0227 | ' | Execute Access,All_Reference
0215 2505 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x5
0216 0007 | | Action Break_Optional
0217 BODY_0210:
0217 00db | | Load_Top At_Offset_3
0218 00d9 | | Load_Top At_Offset_1
0219 01d5 | | Execute Vector,Field_Reference
021a 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
021b 6807 |h | Jump_Zero 0x223
021c e5fe | | Load 0x2,-0x2
021d e5ff | | Load 0x2,-0x1
021e 00da | | Load_Top At_Offset_2
021f 01d5 | | Execute Vector,Field_Reference
0220 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
0221 8231 | 1 | Call 0x1,0x31
0222 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0223 4800 |H | Short_Literal 0x0
0224 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0225 0000 0000 | | .XXX[0x3]
0227 0000 | |
0228 ; --------------------------------------------------------------------------------------
0228 ; SUBPROGRAM
0228 ; --------------------------------------------------------------------------------------
0228 0231 | 1 | .CONST 0x0231 ; Address of begin
0229 0004 | | .CONST 0x0004 ; Address of exception handler
022a 0003 | | .CONST 0x0003 ; Number of locals
022b INIT_0228:
022b 00da | | Load_Top At_Offset_2
022c 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
022d 0007 | | Action Break_Optional
022e 00db | | Load_Top At_Offset_3
022f 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0230 0007 | | Action Break_Optional
0231 BODY_0228:
0231 00d8 | | Load_Top At_Offset_0
0232 00da | | Load_Top At_Offset_2
0233 0227 | ' | Execute Access,All_Reference
0234 2505 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x5
0235 01d5 | | Execute Vector,Field_Reference
0236 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
0237 0335 | 5 | Declare_Variable Array,Duplicate
0238 00cd | | Action Spare6_Action
0239 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
023a 0000 0000 | | .BLANK 0000[0x6]
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 e5fe | | Load 0x2,-0x2
024a 00d9 | | Load_Top At_Offset_1
024b 00db | | Load_Top At_Offset_3
024c 0227 | ' | Execute Access,All_Reference
024d 2505 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x5
024e 01d5 | | Execute Vector,Field_Reference
024f 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
0250 01d7 | | Execute Vector,Field_Read
0251 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0252 0000 0000 | | .BLANK 0000[0x6]
0258 ; --------------------------------------------------------------------------------------
0258 ; SUBPROGRAM
0258 ; --------------------------------------------------------------------------------------
0258 0262 | b | .CONST 0x0262 ; 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 0227 | ' | Execute Access,All_Reference
025d 2505 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x5
025e 0007 | | Action Break_Optional
025f 00db | | Load_Top At_Offset_3
0260 0227 | ' | Execute Access,All_Reference
0261 2403 |$ | Execute Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x3
0262 BODY_0258:
0262 00cf | | Action Mark_Auxiliary
0263 00da | | Load_Top At_Offset_2
0264 01d9 | | Execute Vector,Reverse_Bounds
0265 0263 | c | Execute Discrete,Above_Bound
0266 7029 |p) | Jump_Nonzero 0x290
0267 00d8 | | Load_Top At_Offset_0
0268 e402 | | Load 0x2,0x2
0269 01d5 | | Execute Vector,Field_Reference
026a e22d | - | Load 0x1,0x2d
026b 016f | o | Execute Variant_Record,Equal
026c 6821 |h! | Jump_Zero 0x28e
026d e5fe | | Load 0x2,-0x2
026e 01db | | Execute Vector,Length
026f e22c | , | Load 0x1,0x2c
0270 1c08 | | Execute_Immediate Run_Utility,0x8
0271 e5fe | | Load 0x2,-0x2
0272 00d9 | | Load_Top At_Offset_1
0273 00d8 | | Load_Top At_Offset_0
0274 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
0275 00da | | Load_Top At_Offset_2
0276 01da | | Execute Vector,Bounds
0277 00da | | Load_Top At_Offset_2
0278 01da | | Execute Vector,Bounds
0279 00da | | Load_Top At_Offset_2
027a 027f | | Execute Discrete,Equal
027b 7001 |p | Jump_Nonzero 0x27d
027c 08e0 | | Execute_Immediate Raise,0xe0
027d 00cd | | Action Spare6_Action
027e 027f | | Execute Discrete,Equal
027f 7001 |p | Jump_Nonzero 0x281
0280 08e0 | | Execute_Immediate Raise,0xe0
0281 00d2 | | Pop_Control Pop_Count_2
0282 00d9 | | Load_Top At_Offset_1
0283 2902 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x2
0284 00d9 | | Load_Top At_Offset_1
0285 e402 | | Load 0x2,0x2
0286 01d6 | | Execute Vector,Field_Write
0287 00d8 | | Load_Top At_Offset_0
0288 e403 | | Load 0x2,0x3
0289 027d | } | Execute Discrete,Greater
028a 6802 |h | Jump_Zero 0x28d
028b 00d8 | | Load_Top At_Offset_0
028c a403 | | Store_Unchecked 0x2,0x3
028d 4503 |E | Exit_Suprogram New_Top_Offset 0x3
028e 00c8 | | Action Pop_Auxiliary_Range
028f 3fd7 |? | Loop_Increasing 0x267
0290 00ce | | Action Pop_Auxiliary
0291 e229 | ) | Load 0x1,0x29
0292 0257 | W | Execute Discrete,Raise
0293 0000 0000 | | .BLANK 0000[0x5]
0298 ; --------------------------------------------------------------------------------------
0298 ; SUBPROGRAM
0298 ; --------------------------------------------------------------------------------------
0298 02a8 | | .CONST 0x02a8 ; Address of begin
0299 0004 | | .CONST 0x0004 ; Address of exception handler
029a 0004 | | .CONST 0x0004 ; Number of locals
029b INIT_0298:
029b 00da | | Load_Top At_Offset_2
029c 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
029d 0007 | | Action Break_Optional
029e 00db | | Load_Top At_Offset_3
029f 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
02a0 0227 | ' | Execute Access,All_Reference
02a1 2505 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x5
02a2 0007 | | Action Break_Optional
02a3 e5ff | | Load 0x2,-0x1
02a4 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
02a5 0227 | ' | Execute Access,All_Reference
02a6 2403 |$ | Execute Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x3
02a7 0007 | | Action Break_Optional
02a8 BODY_0298:
02a8 e22d | - | Load 0x1,0x2d
02a9 00db | | Load_Top At_Offset_3
02aa 00db | | Load_Top At_Offset_3
02ab 01d6 | | Execute Vector,Field_Write
02ac 00d8 | | Load_Top At_Offset_0
02ad 00db | | Load_Top At_Offset_3
02ae 027f | | Execute Discrete,Equal
02af 6815 |h | Jump_Zero 0x2c5
02b0 00d8 | | Load_Top At_Offset_0
02b1 0aff | | Execute_Immediate Plus,-0x1
02b2 c404 | | Store 0x2,0x4
02b3 00cf | | Action Mark_Auxiliary
02b4 4801 |H | Short_Literal 0x1
02b5 00da | | Load_Top At_Offset_2
02b6 0264 | d | Execute Discrete,Below_Bound
02b7 700c |p | Jump_Nonzero 0x2c4
02b8 00d8 | | Load_Top At_Offset_0
02b9 e403 | | Load 0x2,0x3
02ba 01d5 | | Execute Vector,Field_Reference
02bb e22d | - | Load 0x1,0x2d
02bc 016e | n | Execute Variant_Record,Not_Equal
02bd 6802 |h | Jump_Zero 0x2c0
02be 00d2 | | Pop_Control Pop_Count_2
02bf 7804 |x | Jump 0x2c4
02c0 00d8 | | Load_Top At_Offset_0
02c1 a404 | | Store_Unchecked 0x2,0x4
02c2 00c8 | | Action Pop_Auxiliary_Range
02c3 37f4 |7 | Loop_Decreasing 0x2b8
02c4 00ce | | Action Pop_Auxiliary
02c5 4502 |E | Exit_Suprogram New_Top_Offset 0x2
02c6 0000 0000 | | .XXX[0x2]
02c8 ; --------------------------------------------------------------------------------------
02c8 ; SUBPROGRAM
02c8 ; --------------------------------------------------------------------------------------
02c8 02d1 | | .CONST 0x02d1 ; Address of begin
02c9 0004 | | .CONST 0x0004 ; Address of exception handler
02ca 0003 | | .CONST 0x0003 ; Number of locals
02cb INIT_02c8:
02cb 00da | | Load_Top At_Offset_2
02cc 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
02cd 0007 | | Action Break_Optional
02ce 00db | | Load_Top At_Offset_3
02cf 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
02d0 0007 | | Action Break_Optional
02d1 BODY_02c8:
02d1 e5fe | | Load 0x2,-0x2
02d2 01db | | Execute Vector,Length
02d3 e22c | , | Load 0x1,0x2c
02d4 1c08 | | Execute_Immediate Run_Utility,0x8
02d5 e5fe | | Load 0x2,-0x2
02d6 00d9 | | Load_Top At_Offset_1
02d7 00d8 | | Load_Top At_Offset_0
02d8 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
02d9 00da | | Load_Top At_Offset_2
02da 01da | | Execute Vector,Bounds
02db 00da | | Load_Top At_Offset_2
02dc 01da | | Execute Vector,Bounds
02dd 00da | | Load_Top At_Offset_2
02de 027f | | Execute Discrete,Equal
02df 7001 |p | Jump_Nonzero 0x2e1
02e0 08e0 | | Execute_Immediate Raise,0xe0
02e1 00cd | | Action Spare6_Action
02e2 027f | | Execute Discrete,Equal
02e3 7001 |p | Jump_Nonzero 0x2e5
02e4 08e0 | | Execute_Immediate Raise,0xe0
02e5 00d2 | | Pop_Control Pop_Count_2
02e6 00d9 | | Load_Top At_Offset_1
02e7 2902 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x2
02e8 00d9 | | Load_Top At_Offset_1
02e9 00db | | Load_Top At_Offset_3
02ea 0227 | ' | Execute Access,All_Reference
02eb 2505 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x5
02ec 01d6 | | Execute Vector,Field_Write
02ed 4503 |E | Exit_Suprogram New_Top_Offset 0x3
02ee 0000 0000 | | .XXX[0x2]
02f0 ; --------------------------------------------------------------------------------------
02f0 ; SUBPROGRAM
02f0 ; --------------------------------------------------------------------------------------
02f0 02f9 | | .CONST 0x02f9 ; Address of begin
02f1 0004 | | .CONST 0x0004 ; Address of exception handler
02f2 0003 | | .CONST 0x0003 ; Number of locals
02f3 INIT_02f0:
02f3 00da | | Load_Top At_Offset_2
02f4 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
02f5 0007 | | Action Break_Optional
02f6 00db | | Load_Top At_Offset_3
02f7 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
02f8 0007 | | Action Break_Optional
02f9 BODY_02f0:
02f9 e5fd | | Load 0x2,-0x3
02fa e5fe | | Load 0x2,-0x2
02fb 00da | | Load_Top At_Offset_2
02fc e402 | | Load 0x2,0x2
02fd 0227 | ' | Execute Access,All_Reference
02fe 2505 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x5
02ff 01d5 | | Execute Vector,Field_Reference
0300 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
0301 01d6 | | Execute Vector,Field_Write
0302 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0303 0000 0000 | | .BLANK 0000[0x5]
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 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
030d 0007 | | Action Break_Optional
030e 00db | | Load_Top At_Offset_3
030f 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0310 0007 | | Action Break_Optional
0311 BODY_0308:
0311 00d8 | | Load_Top At_Offset_0
0312 00da | | Load_Top At_Offset_2
0313 8230 | 0 | Call 0x1,0x30
0314 6823 |h# | Jump_Zero 0x338
0315 e5fe | | Load 0x2,-0x2
0316 00d9 | | Load_Top At_Offset_1
0317 0227 | ' | Execute Access,All_Reference
0318 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0319 e006 | | Load 0x0,0x6
031a 1c04 | | Execute_Immediate Run_Utility,0x4
031b e006 | | Load 0x0,0x6
031c 0122 | " | Execute Any,Make_Root_Type
031d 011c | | Execute Any,Convert_Unchecked
031e 1c01 | | Execute_Immediate Run_Utility,0x1
031f 0092 057a | z| Action Push_String_Extended,0x57a ; "'("
0321 01cc | | Execute Vector,Catenate
0322 8009 | | Call 0x0,0x9
0323 e5fe | | Load 0x2,-0x2
0324 800a | | Call 0x0,0xa
0325 e5fe | | Load 0x2,-0x2
0326 00d9 | | Load_Top At_Offset_1
0327 0227 | ' | Execute Access,All_Reference
0328 2404 |$ | Execute Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x4
0329 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
032a 00db | | Load_Top At_Offset_3
032b 00db | | Load_Top At_Offset_3
032c 0227 | ' | Execute Access,All_Reference
032d 2505 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x5
032e 01d5 | | Execute Vector,Field_Reference
032f 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
0330 8232 | 2 | Call 0x1,0x32
0331 e5fe | | Load 0x2,-0x2
0332 800b | | Call 0x0,0xb
0333 e5fe | | Load 0x2,-0x2
0334 0092 057b | {| Action Push_String_Extended,0x57b ; ")"
0336 8009 | | Call 0x0,0x9
0337 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0338 e5fe | | Load 0x2,-0x2
0339 0092 057c | || Action Push_String_Extended,0x57c ; "null_object"
033b 8009 | | Call 0x0,0x9
033c 4503 |E | Exit_Suprogram New_Top_Offset 0x3
033d 0000 0000 | | .XXX[0x3]
033f 0000 | |
0340 ; --------------------------------------------------------------------------------------
0340 ; SUBPROGRAM
0340 ; --------------------------------------------------------------------------------------
0340 0343 | C | .CONST 0x0343 ; Address of begin
0341 0004 | | .CONST 0x0004 ; Address of exception handler
0342 0001 | | .CONST 0x0001 ; Number of locals
0343 BODY_0340:
0343 INIT_0340:
0343 00db | | Load_Top At_Offset_3
0344 0092 057d | }| Action Push_String_Extended,0x57d ; "Collection'("
0346 8009 | | Call 0x0,0x9
0347 00db | | Load_Top At_Offset_3
0348 800a | | Call 0x0,0xa
0349 00da | | Load_Top At_Offset_2
034a 01db | | Execute Vector,Length
034b 680d |h | Jump_Zero 0x359
034c 00cf | | Action Mark_Auxiliary
034d 00db | | Load_Top At_Offset_3
034e 01d9 | | Execute Vector,Reverse_Bounds
034f 0263 | c | Execute Discrete,Above_Bound
0350 7007 |p | Jump_Nonzero 0x358
0351 e5fe | | Load 0x2,-0x2
0352 00d9 | | Load_Top At_Offset_1
0353 e5ff | | Load 0x2,-0x1
0354 01d5 | | Execute Vector,Field_Reference
0355 8225 | % | Call 0x1,0x25
0356 00c8 | | Action Pop_Auxiliary_Range
0357 3ff9 |? | Loop_Increasing 0x351
0358 00ce | | Action Pop_Auxiliary
0359 00db | | Load_Top At_Offset_3
035a 800b | | Call 0x0,0xb
035b 4801 |H | Short_Literal 0x1
035c e5fe | | Load 0x2,-0x2
035d 800c | | Call 0x0,0xc
035e 00db | | Load_Top At_Offset_3
035f 0092 057b | {| Action Push_String_Extended,0x57b ; ")"
0361 8009 | | Call 0x0,0x9
0362 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0363 0000 0000 | | .BLANK 0000[0x5]
0368 ; --------------------------------------------------------------------------------------
0368 ; SUBPROGRAM
0368 ; --------------------------------------------------------------------------------------
0368 037b | { | .CONST 0x037b ; Address of begin
0369 0004 | | .CONST 0x0004 ; Address of exception handler
036a 0004 | | .CONST 0x0004 ; Number of locals
036b INIT_0368:
036b 1d28 | ( | Execute_Immediate Reference_Lex_1,0x28
036c 00c6 | | Action Check_Subprogram_Elaborated
036d 1d25 | % | Execute_Immediate Reference_Lex_1,0x25
036e 0093 0000 | | push_full_address 0x0
0370 601b |` | Indirect_Literal Discrete,0x38c,{0x80000000, 0x00010000}
0371 0273 | s | Execute Discrete,Plus
0372 e005 | | Load 0x0,0x5
0373 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0374 6013 |` | Indirect_Literal Discrete,0x388,{0x00000000, 0x0000ffff}
0375 0279 | y | Execute Discrete,And
0376 0273 | s | Execute Discrete,Plus
0377 e00d | | Load 0x0,0xd
0378 0273 | s | Execute Discrete,Plus
0379 4804 |H | Short_Literal 0x4
037a 0007 | | Action Break_Optional
037b BODY_0368:
037b e5fe | | Load 0x2,-0x2
037c e5ff | | Load 0x2,-0x1
037d 4802 |H | Short_Literal 0x2
037e 4802 |H | Short_Literal 0x2
037f 0099 | | Action Reference_Dynamic
0380 4803 |H | Short_Literal 0x3
0381 4802 |H | Short_Literal 0x2
0382 0099 | | Action Reference_Dynamic
0383 8228 | ( | Call 0x1,0x28
0384 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0385 0000 0000 | | .XXX[0x3]
0387 0000 | |
0388 0000 0000 | | .LITERAL {0x00000000, 0x0000ffff}
038c 8000 0000 | | .LITERAL {0x80000000, 0x00010000}
0390 ; --------------------------------------------------------------------------------------
0390 ; SUBPROGRAM
0390 ; --------------------------------------------------------------------------------------
0390 0393 | | .CONST 0x0393 ; Address of begin
0391 0004 | | .CONST 0x0004 ; Address of exception handler
0392 0001 | | .CONST 0x0001 ; Number of locals
0393 BODY_0390:
0393 INIT_0390:
0393 e5fd | | Load 0x2,-0x3
0394 e22b | + | Load 0x1,0x2b
0395 022e | . | Execute Access,Not_Equal
0396 684a |hJ | Jump_Zero 0x3e1
0397 e5fc | | Load 0x2,-0x4
0398 0092 057e | ~| Action Push_String_Extended,0x57e ; "Class'("
039a 8009 | | Call 0x0,0x9
039b e5fc | | Load 0x2,-0x4
039c 800a | | Call 0x0,0xa
039d e5fc | | Load 0x2,-0x4
039e 0092 057f | | Action Push_String_Extended,0x57f ; "Kind => "
03a0 e5fd | | Load 0x2,-0x3
03a1 0227 | ' | Execute Access,All_Reference
03a2 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
03a3 e006 | | Load 0x0,0x6
03a4 1c04 | | Execute_Immediate Run_Utility,0x4
03a5 e006 | | Load 0x0,0x6
03a6 0122 | " | Execute Any,Make_Root_Type
03a7 011c | | Execute Any,Convert_Unchecked
03a8 1c01 | | Execute_Immediate Run_Utility,0x1
03a9 01cc | | Execute Vector,Catenate
03aa 8009 | | Call 0x0,0x9
03ab e5fc | | Load 0x2,-0x4
03ac 0092 0580 | | Action Push_String_Extended,0x580 ; "Size => "
03ae e5fd | | Load 0x2,-0x3
03af 0227 | ' | Execute Access,All_Reference
03b0 2c03 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
03b1 00e0 | | Load_Encached Standard_Cache
03b2 1818 | | Execute Package,Field_Execute,Field_Number 0x18
03b3 01cc | | Execute Vector,Catenate
03b4 8009 | | Call 0x0,0x9
03b5 e5fc | | Load 0x2,-0x4
03b6 0092 0581 | | Action Push_String_Extended,0x581 ; "Instances => Collection'("
03b8 8009 | | Call 0x0,0x9
03b9 e5fc | | Load 0x2,-0x4
03ba 800a | | Call 0x0,0xa
03bb 00cf | | Action Mark_Auxiliary
03bc e5fd | | Load 0x2,-0x3
03bd 821a | | Call 0x1,0x1a
03be 4801 |H | Short_Literal 0x1
03bf 0263 | c | Execute Discrete,Above_Bound
03c0 7013 |p | Jump_Nonzero 0x3d4
03c1 e5fc | | Load 0x2,-0x4
03c2 00d9 | | Load_Top At_Offset_1
03c3 800e | | Call 0x0,0xe
03c4 e5fc | | Load 0x2,-0x4
03c5 0092 0582 | | Action Push_String_Extended,0x582 ; " => "
03c7 800f | | Call 0x0,0xf
03c8 e5fc | | Load 0x2,-0x4
03c9 e20e | | Load 0x1,0xe
03ca 0322 | " | Declare_Variable Record
03cb e5fd | | Load 0x2,-0x3
03cc 00d9 | | Load_Top At_Offset_1
03cd 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
03ce 00da | | Load_Top At_Offset_2
03cf 00d9 | | Load_Top At_Offset_1
03d0 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
03d1 85fe | | Call 0x2,-0x2
03d2 00c8 | | Action Pop_Auxiliary_Range
03d3 3fed |? | Loop_Increasing 0x3c1
03d4 00ce | | Action Pop_Auxiliary
03d5 e5fc | | Load 0x2,-0x4
03d6 800b | | Call 0x0,0xb
03d7 e5fc | | Load 0x2,-0x4
03d8 0092 057b | {| Action Push_String_Extended,0x57b ; ")"
03da 8009 | | Call 0x0,0x9
03db e5fc | | Load 0x2,-0x4
03dc 800b | | Call 0x0,0xb
03dd e5fc | | Load 0x2,-0x4
03de 0092 057b | {| Action Push_String_Extended,0x57b ; ")"
03e0 8009 | | Call 0x0,0x9
03e1 4505 |E | Exit_Suprogram New_Top_Offset 0x5
03e2 0000 0000 | | .BLANK 0000[0x6]
03e8 ; --------------------------------------------------------------------------------------
03e8 ; SUBPROGRAM
03e8 ; SUBPROGRAM
03e8 ; --------------------------------------------------------------------------------------
03e8 03eb | | .CONST 0x03eb ; Address of begin
03e9 0004 | | .CONST 0x0004 ; Address of exception handler
03ea 0001 | | .CONST 0x0001 ; Number of locals
03eb BODY_03e8:
03eb BODY_03e8:
03eb INIT_03e8:
03eb INIT_03e8:
03eb 4609 |F | Jump_Case 0xa
03ec 7809 |x | Jump 0x3f6 ; case 0x0
03ed 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
03ee 782d |x- | Jump 0x41c ; case 0x2
03ef 7830 |x0 | Jump 0x420 ; case 0x3
03f0 7835 |x5 | Jump 0x426 ; case 0x4
03f1 783c |x< | Jump 0x42e ; case 0x5
03f2 7858 |xX | Jump 0x44b ; case 0x6
03f3 7844 |xD | Jump 0x438 ; case 0x7
03f4 784c |xL | Jump 0x441 ; case 0x8
03f5 7855 |xU | Jump 0x44b ; case 0x9
03f6 4800 |H | Short_Literal 0x0
03f7 00db | | Load_Top At_Offset_3
03f8 2803 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
03f9 00da | | Load_Top At_Offset_2
03fa 2505 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x5
03fb 0335 | 5 | Declare_Variable Array,Duplicate
03fc 00cd | | Action Spare6_Action
03fd 00db | | Load_Top At_Offset_3
03fe 2505 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x5
03ff 01d9 | | Execute Vector,Reverse_Bounds
0400 0263 | c | Execute Discrete,Above_Bound
0401 7005 |p | Jump_Nonzero 0x407
0402 e22d | - | Load 0x1,0x2d
0403 00d9 | | Load_Top At_Offset_1
0404 e402 | | Load 0x2,0x2
0405 01d6 | | Execute Vector,Field_Write
0406 3ffb |? | Loop_Increasing 0x402
0407 00db | | Load_Top At_Offset_3
0408 00d8 | | Load_Top At_Offset_0
0409 2505 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x5
040a 00da | | Load_Top At_Offset_2
040b 01da | | Execute Vector,Bounds
040c 00da | | Load_Top At_Offset_2
040d 01da | | Execute Vector,Bounds
040e 00da | | Load_Top At_Offset_2
040f 027f | | Execute Discrete,Equal
0410 7001 |p | Jump_Nonzero 0x412
0411 08e0 | | Execute_Immediate Raise,0xe0
0412 00cd | | Action Spare6_Action
0413 027f | | Execute Discrete,Equal
0414 7001 |p | Jump_Nonzero 0x416
0415 08e0 | | Execute_Immediate Raise,0xe0
0416 00d1 | | Pop_Control Pop_Count_1
0417 2905 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x5
0418 00da | | Load_Top At_Offset_2
0419 2404 |$ | Execute Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x4
041a 1c00 | | Execute_Immediate Run_Utility,0x0
041b 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
041c 4801 |H | Short_Literal 0x1
041d 4805 |H | Short_Literal 0x5
041e 0311 | | Declare_Type Variant_Record,Constrained_Incomplete
041f 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0420 e5fd | | Load 0x2,-0x3
0421 00db | | Load_Top At_Offset_3
0422 1c07 | | Execute_Immediate Run_Utility,0x7
0423 e5fe | | Load 0x2,-0x2
0424 0306 | | Complete_Type Variant_Record,By_Renaming
0425 4304 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x4
0426 4801 |H | Short_Literal 0x1
0427 4805 |H | Short_Literal 0x5
0428 0311 | | Declare_Type Variant_Record,Constrained_Incomplete
0429 e5fe | | Load 0x2,-0x2
042a e5ff | | Load 0x2,-0x1
042b 00da | | Load_Top At_Offset_2
042c 0305 | | Complete_Type Variant_Record,By_Constraining_Incomplete
042d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
042e 4801 |H | Short_Literal 0x1
042f 4801 |H | Short_Literal 0x1
0430 e5ff | | Load 0x2,-0x1
0431 0169 | i | Execute Variant_Record,Read_Discriminant_Constraint
0432 e22e | . | Load 0x1,0x2e
0433 035b | [ | Declare_Type Array,Constrained
0434 4801 |H | Short_Literal 0x1
0435 e5ff | | Load 0x2,-0x1
0436 0304 | | Complete_Type Variant_Record,By_Completing_Constraint
0437 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0438 00db | | Load_Top At_Offset_3
0439 4801 |H | Short_Literal 0x1
043a e5fe | | Load 0x2,-0x2
043b e22e | . | Load 0x1,0x2e
043c 035b | [ | Declare_Type Array,Constrained
043d 4801 |H | Short_Literal 0x1
043e e5ff | | Load 0x2,-0x1
043f 031b | | Declare_Type Variant_Record,Constrained
0440 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0441 00db | | Load_Top At_Offset_3
0442 00db | | Load_Top At_Offset_3
0443 02fc | | Declare_Variable Variant_Record,With_Constraint
0444 4801 |H | Short_Literal 0x1
0445 e5fe | | Load 0x2,-0x2
0446 e22e | . | Load 0x1,0x2e
0447 0334 | 4 | Declare_Variable Array,With_Constraint
0448 2d05 |- | Execute Variant_Record,Field_Append,Fixed,Indirect,Field_Number 0x5
0449 016a | j | QQ_execute Variant_Record,XXX
044a 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
044b 0869 | i | Execute_Immediate Raise,0x69
044c 0000 0000 | | .BLANK 0000[0x4]
0450 ; --------------------------------------------------------------------------------------
0450 ; SUBPROGRAM
0450 ; --------------------------------------------------------------------------------------
0450 0453 | S | .CONST 0x0453 ; Address of begin
0451 0004 | | .CONST 0x0004 ; Address of exception handler
0452 0001 | | .CONST 0x0001 ; Number of locals
0453 BODY_0450:
0453 INIT_0450:
0453 4609 |F | Jump_Case 0xa
0454 7809 |x | Jump 0x45e ; case 0x0
0455 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
0456 7813 |x | Jump 0x46a ; case 0x2
0457 7816 |x | Jump 0x46e ; case 0x3
0458 7832 |x2 | Jump 0x48b ; case 0x4
0459 7831 |x1 | Jump 0x48b ; case 0x5
045a 7830 |x0 | Jump 0x48b ; case 0x6
045b 7818 |x | Jump 0x474 ; case 0x7
045c 7820 |x | Jump 0x47d ; case 0x8
045d 7829 |x) | Jump 0x487 ; case 0x9
045e 00da | | Load_Top At_Offset_2
045f 016c | l | Execute Variant_Record,Is_Constrained
0460 7008 |p | Jump_Nonzero 0x469
0461 00cf | | Action Mark_Auxiliary
0462 4800 |H | Short_Literal 0x0
0463 e5ff | | Load 0x2,-0x1
0464 1c08 | | Execute_Immediate Run_Utility,0x8
0465 00d8 | | Load_Top At_Offset_0
0466 1c00 | | Execute_Immediate Run_Utility,0x0
0467 c5ff | | Store 0x2,-0x1
0468 00ce | | Action Pop_Auxiliary
0469 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
046a 4801 |H | Short_Literal 0x1
046b 4802 |H | Short_Literal 0x2
046c 0311 | | Declare_Type Variant_Record,Constrained_Incomplete
046d 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
046e e5fd | | Load 0x2,-0x3
046f 00db | | Load_Top At_Offset_3
0470 1c07 | | Execute_Immediate Run_Utility,0x7
0471 e5fe | | Load 0x2,-0x2
0472 0306 | | Complete_Type Variant_Record,By_Renaming
0473 4304 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x4
0474 00db | | Load_Top At_Offset_3
0475 4801 |H | Short_Literal 0x1
0476 e5fe | | Load 0x2,-0x2
0477 e214 | | Load 0x1,0x14
0478 035b | [ | Declare_Type Array,Constrained
0479 4801 |H | Short_Literal 0x1
047a e5ff | | Load 0x2,-0x1
047b 031b | | Declare_Type Variant_Record,Constrained
047c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
047d 00db | | Load_Top At_Offset_3
047e 00db | | Load_Top At_Offset_3
047f 02fc | | Declare_Variable Variant_Record,With_Constraint
0480 4801 |H | Short_Literal 0x1
0481 e5fe | | Load 0x2,-0x2
0482 e214 | | Load 0x1,0x14
0483 0334 | 4 | Declare_Variable Array,With_Constraint
0484 2d02 |- | Execute Variant_Record,Field_Append,Fixed,Indirect,Field_Number 0x2
0485 016a | j | QQ_execute Variant_Record,XXX
0486 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0487 4800 |H | Short_Literal 0x0
0488 00db | | Load_Top At_Offset_3
0489 1c07 | | Execute_Immediate Run_Utility,0x7
048a 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
048b 0869 | i | Execute_Immediate Raise,0x69
048c 0000 0000 | | .BLANK 0000[0x4]
0490 ; --------------------------------------------------------------------------------------
0490 ; SUBPROGRAM
0490 ; --------------------------------------------------------------------------------------
0490 0493 | | .CONST 0x0493 ; Address of begin
0491 0004 | | .CONST 0x0004 ; Address of exception handler
0492 0001 | | .CONST 0x0001 ; Number of locals
0493 BODY_0490:
0493 INIT_0490:
0493 00d1 | | Pop_Control Pop_Count_1
0494 00da | | Load_Top At_Offset_2
0495 01d8 | | Execute Vector,Element_Type
0496 02ff | | Declare_Variable Variant_Record
0497 00d8 | | Load_Top At_Offset_0
0498 1c00 | | Execute_Immediate Run_Utility,0x0
0499 00db | | Load_Top At_Offset_3
049a 01dc | | Execute Vector,Last
049b e5ff | | Load 0x2,-0x1
049c 01dd | | Execute Vector,First
049d 0263 | c | Execute Discrete,Above_Bound
049e 7006 |p | Jump_Nonzero 0x4a5
049f 00da | | Load_Top At_Offset_2
04a0 00d9 | | Load_Top At_Offset_1
04a1 e5ff | | Load 0x2,-0x1
04a2 01d6 | | Execute Vector,Field_Write
04a3 0a01 | | Execute_Immediate Plus,0x1
04a4 7ff8 | | Jump 0x49d
04a5 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
04a6 0000 0000 | | .XXX[0x2]
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 4609 |F | Jump_Case 0xa
04ac 7809 |x | Jump 0x4b6 ; case 0x0
04ad 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
04ae 7813 |x | Jump 0x4c2 ; case 0x2
04af 7816 |x | Jump 0x4c6 ; case 0x3
04b0 7832 |x2 | Jump 0x4e3 ; case 0x4
04b1 7831 |x1 | Jump 0x4e3 ; case 0x5
04b2 7830 |x0 | Jump 0x4e3 ; case 0x6
04b3 7818 |x | Jump 0x4cc ; case 0x7
04b4 7820 |x | Jump 0x4d5 ; case 0x8
04b5 7829 |x) | Jump 0x4df ; case 0x9
04b6 00da | | Load_Top At_Offset_2
04b7 016c | l | Execute Variant_Record,Is_Constrained
04b8 7008 |p | Jump_Nonzero 0x4c1
04b9 00cf | | Action Mark_Auxiliary
04ba 4800 |H | Short_Literal 0x0
04bb e5ff | | Load 0x2,-0x1
04bc 1c08 | | Execute_Immediate Run_Utility,0x8
04bd 00d8 | | Load_Top At_Offset_0
04be 1c00 | | Execute_Immediate Run_Utility,0x0
04bf c5ff | | Store 0x2,-0x1
04c0 00ce | | Action Pop_Auxiliary
04c1 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
04c2 4801 |H | Short_Literal 0x1
04c3 4802 |H | Short_Literal 0x2
04c4 0311 | | Declare_Type Variant_Record,Constrained_Incomplete
04c5 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
04c6 e5fd | | Load 0x2,-0x3
04c7 00db | | Load_Top At_Offset_3
04c8 1c07 | | Execute_Immediate Run_Utility,0x7
04c9 e5fe | | Load 0x2,-0x2
04ca 0306 | | Complete_Type Variant_Record,By_Renaming
04cb 4304 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x4
04cc 00db | | Load_Top At_Offset_3
04cd 4801 |H | Short_Literal 0x1
04ce e5fe | | Load 0x2,-0x2
04cf e215 | | Load 0x1,0x15
04d0 035b | [ | Declare_Type Array,Constrained
04d1 4801 |H | Short_Literal 0x1
04d2 e5ff | | Load 0x2,-0x1
04d3 031b | | Declare_Type Variant_Record,Constrained
04d4 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
04d5 00db | | Load_Top At_Offset_3
04d6 00db | | Load_Top At_Offset_3
04d7 02fc | | Declare_Variable Variant_Record,With_Constraint
04d8 4801 |H | Short_Literal 0x1
04d9 e5fe | | Load 0x2,-0x2
04da e215 | | Load 0x1,0x15
04db 0334 | 4 | Declare_Variable Array,With_Constraint
04dc 2d02 |- | Execute Variant_Record,Field_Append,Fixed,Indirect,Field_Number 0x2
04dd 016a | j | QQ_execute Variant_Record,XXX
04de 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
04df 4800 |H | Short_Literal 0x0
04e0 00db | | Load_Top At_Offset_3
04e1 1c07 | | Execute_Immediate Run_Utility,0x7
04e2 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
04e3 0869 | i | Execute_Immediate Raise,0x69
04e4 0000 0000 | | .BLANK 0000[0x4]
04e8 ; --------------------------------------------------------------------------------------
04e8 ; SUBPROGRAM
04e8 ; --------------------------------------------------------------------------------------
04e8 04eb | | .CONST 0x04eb ; Address of begin
04e9 0004 | | .CONST 0x0004 ; Address of exception handler
04ea 0001 | | .CONST 0x0001 ; Number of locals
04eb BODY_04e8:
04eb INIT_04e8:
04eb 00db | | Load_Top At_Offset_3
04ec e22b | + | Load 0x1,0x2b
04ed 022e | . | Execute Access,Not_Equal
04ee 680a |h | Jump_Zero 0x4f9
04ef 00da | | Load_Top At_Offset_2
04f0 6806 |h | Jump_Zero 0x4f7
04f1 00da | | Load_Top At_Offset_2
04f2 e5fe | | Load 0x2,-0x2
04f3 0227 | ' | Execute Access,All_Reference
04f4 2c03 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
04f5 027a | z | Execute Discrete,Less_Equal
04f6 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
04f7 4800 |H | Short_Literal 0x0
04f8 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
04f9 4800 |H | Short_Literal 0x0
04fa 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
04fb 0000 0000 | | .BLANK 0000[0x5]
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 00cf | | Action Mark_Auxiliary
0504 00db | | Load_Top At_Offset_3
0505 01d9 | | Execute Vector,Reverse_Bounds
0506 0263 | c | Execute Discrete,Above_Bound
0507 700c |p | Jump_Nonzero 0x514
0508 00d8 | | Load_Top At_Offset_0
0509 e5fe | | Load 0x2,-0x2
050a 01d7 | | Execute Vector,Field_Read
050b 00d9 | | Load_Top At_Offset_1
050c e5ff | | Load 0x2,-0x1
050d 01d7 | | Execute Vector,Field_Read
050e 8010 | | Call 0x0,0x10
050f 7002 |p | Jump_Nonzero 0x512
0510 4800 |H | Short_Literal 0x0
0511 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0512 00c8 | | Action Pop_Auxiliary_Range
0513 3ff4 |? | Loop_Increasing 0x508
0514 00ce | | Action Pop_Auxiliary
0515 4801 |H | Short_Literal 0x1
0516 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0517 0000 | | .XXX[0x1]
0518 ; --------------------------------------------------------------------------------------
0518 ; SUBPROGRAM
0518 ; --------------------------------------------------------------------------------------
0518 051d | | .CONST 0x051d ; Address of begin
0519 0004 | | .CONST 0x0004 ; Address of exception handler
051a 0002 | | .CONST 0x0002 ; Number of locals
051b INIT_0518:
051b 00e1 | | Load_Encached Boolean_Cache
051c 0601 | | Execute_Immediate Set_Value_Unchecked,0x1
051d BODY_0518:
051d 00cf | | Action Mark_Auxiliary
051e e5ff | | Load 0x2,-0x1
051f 01d9 | | Execute Vector,Reverse_Bounds
0520 0263 | c | Execute Discrete,Above_Bound
0521 7022 |p" | Jump_Nonzero 0x544
0522 00db | | Load_Top At_Offset_3
0523 700c |p | Jump_Nonzero 0x530
0524 e5fd | | Load 0x2,-0x3
0525 0092 0583 | | Action Push_String_Extended,0x583 ; ", "
0527 800f | | Call 0x0,0xf
0528 00d8 | | Load_Top At_Offset_0
0529 4801 |H | Short_Literal 0x1
052a 0279 | y | Execute Discrete,And
052b 6806 |h | Jump_Zero 0x532
052c 4801 |H | Short_Literal 0x1
052d e5fd | | Load 0x2,-0x3
052e 800c | | Call 0x0,0xc
052f 7802 |x | Jump 0x532
0530 4800 |H | Short_Literal 0x0
0531 a402 | | Store_Unchecked 0x2,0x2
0532 e5fd | | Load 0x2,-0x3
0533 00d9 | | Load_Top At_Offset_1
0534 e5fe | | Load 0x2,-0x2
0535 01d7 | | Execute Vector,Field_Read
0536 8008 | | Call 0x0,0x8
0537 0092 0584 | | Action Push_String_Extended,0x584 ; " =>"
0539 01cc | | Execute Vector,Catenate
053a 800f | | Call 0x0,0xf
053b e5fd | | Load 0x2,-0x3
053c 00d9 | | Load_Top At_Offset_1
053d e5ff | | Load 0x2,-0x1
053e 01d7 | | Execute Vector,Field_Read
053f 00e0 | | Load_Encached Standard_Cache
0540 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0541 800f | | Call 0x0,0xf
0542 00c8 | | Action Pop_Auxiliary_Range
0543 3fde |? | Loop_Increasing 0x522
0544 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0545 0000 0000 | | .XXX[0x3]
0547 0000 | |
0548 ; --------------------------------------------------------------------------------------
0548 ; SUBPROGRAM
0548 ; --------------------------------------------------------------------------------------
0548 054b | K | .CONST 0x054b ; Address of begin
0549 0004 | | .CONST 0x0004 ; Address of exception handler
054a 0001 | | .CONST 0x0001 ; Number of locals
054b BODY_0548:
054b INIT_0548:
054b 00db | | Load_Top At_Offset_3
054c e22d | - | Load 0x1,0x2d
054d 016e | n | Execute Variant_Record,Not_Equal
054e 681e |h | Jump_Zero 0x56d
054f e5fd | | Load 0x2,-0x3
0550 00db | | Load_Top At_Offset_3
0551 0227 | ' | Execute Access,All_Reference
0552 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0553 e006 | | Load 0x0,0x6
0554 1c04 | | Execute_Immediate Run_Utility,0x4
0555 e006 | | Load 0x0,0x6
0556 0122 | " | Execute Any,Make_Root_Type
0557 011c | | Execute Any,Convert_Unchecked
0558 1c01 | | Execute_Immediate Run_Utility,0x1
0559 0092 057a | z| Action Push_String_Extended,0x57a ; "'("
055b 01cc | | Execute Vector,Catenate
055c 8009 | | Call 0x0,0x9
055d e5fd | | Load 0x2,-0x3
055e 800a | | Call 0x0,0xa
055f e5fd | | Load 0x2,-0x3
0560 00db | | Load_Top At_Offset_3
0561 0227 | ' | Execute Access,All_Reference
0562 2404 |$ | Execute Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x4
0563 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
0564 e5fe | | Load 0x2,-0x2
0565 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
0566 8232 | 2 | Call 0x1,0x32
0567 e5fd | | Load 0x2,-0x3
0568 800b | | Call 0x0,0xb
0569 e5fd | | Load 0x2,-0x3
056a 0092 057b | {| Action Push_String_Extended,0x57b ; ")"
056c 8009 | | Call 0x0,0x9
056d 4504 |E | Exit_Suprogram New_Top_Offset 0x4
056e 0000 0000 | | .XXX[0x2]
0570 ; --------------------------------------------------------------------------------------
0570 ; SUBPROGRAM
0570 ; --------------------------------------------------------------------------------------
0570 0573 | s | .CONST 0x0573 ; Address of begin
0571 0004 | | .CONST 0x0004 ; Address of exception handler
0572 0001 | | .CONST 0x0001 ; Number of locals
0573 BODY_0570:
0573 INIT_0570:
0573 4601 |F | Jump_Case 0x2
0574 7801 |x | Jump 0x576 ; case 0x0
0575 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
0576 4800 |H | Short_Literal 0x0
0577 00db | | Load_Top At_Offset_3
0578 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0579 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
057a ; --------------------------------------------------------------------------------------
057a ; STRING TABLE
057a ; --------------------------------------------------------------------------------------
057a 0018 | | .STRTAB 0x0018->0x0586 ; "'("
057b 0018 | | .STRTAB 0x0018->0x0587 ; ")"
057c 0017 | | .STRTAB 0x0017->0x0587 ; "null_object"
057d 0020 | | .STRTAB 0x0020->0x058d ; "Collection'("
057e 002a | * | .STRTAB 0x002a->0x0593 ; "Class'("
057f 002f | / | .STRTAB 0x002f->0x0596 ; "Kind => "
0580 003a | : | .STRTAB 0x003a->0x059d ; "Size => "
0581 0045 | E | .STRTAB 0x0045->0x05a3 ; "Instances => Collection'("
0582 005c | \ | .STRTAB 0x005c->0x05b0 ; " => "
0583 005e | ^ | .STRTAB 0x005e->0x05b2 ; ", "
0584 005e | ^ | .STRTAB 0x005e->0x05b3 ; " =>"
0585 005f | _ | .STREND 0x005f->0x05b4
0586 2728 296e |'()n| .STRTAB_STRINGS
05b5 0000 0000 | | .XXX[0x3]
05b7 0000 | |
05b8 ; --------------------------------------------------------------------------------------
05b8 ; Debug Table
05b8 ; --------------------------------------------------------------------------------------
05b8 0004 0004 | | .DEBUG4 0x0004,0x0004,0x9602,0x0000,0x0001,0x0020
05be 000b 063e | >| .DBG4T 0x000b,0x063e,0x0000,0x0000
05c2 0084 0665 | e| .DBG4T 0x0084,0x0665,0x0000,0x0000
05c6 011b 0000 | | .DBG4T 0x011b,0x0000,0x0005,0x0000
05ca 0143 0684 | C | .DBG4T 0x0143,0x0684,0x0002,0x0000
05ce 0153 0687 | S | .DBG4T 0x0153,0x0687,0x0002,0x0000
05d2 0163 068a | c | .DBG4T 0x0163,0x068a,0x0002,0x0000
05d6 016b 068d | k | .DBG4T 0x016b,0x068d,0x0002,0x0000
05da 017b 0690 | { | .DBG4T 0x017b,0x0690,0x0002,0x0000
05de 0193 0695 | | .DBG4T 0x0193,0x0695,0x0002,0x0000
05e2 019b 0698 | | .DBG4T 0x019b,0x0698,0x0002,0x0000
05e6 01e3 069b | | .DBG4T 0x01e3,0x069b,0x0001,0x0000
05ea 0203 069f | | .DBG4T 0x0203,0x069f,0x0002,0x0000
05ee 0213 06a4 | | .DBG4T 0x0213,0x06a4,0x0002,0x0000
05f2 022b 06a8 | + | .DBG4T 0x022b,0x06a8,0x0002,0x0000
05f6 0243 06ad | C | .DBG4T 0x0243,0x06ad,0x0002,0x0000
05fa 025b 06b2 | [ | .DBG4T 0x025b,0x06b2,0x0001,0x0000
05fe 029b 06bd | | .DBG4T 0x029b,0x06bd,0x0001,0x0000
0602 02cb 06c8 | | .DBG4T 0x02cb,0x06c8,0x0001,0x0000
0606 02f3 06cd | | .DBG4T 0x02f3,0x06cd,0x0001,0x0000
060a 030b 06d2 | | .DBG4T 0x030b,0x06d2,0x0001,0x0000
060e 0343 06dd | C | .DBG4T 0x0343,0x06dd,0x0001,0x0000
0612 036b 06e7 | k | .DBG4T 0x036b,0x06e7,0x0001,0x0000
0616 0393 06eb | | .DBG4T 0x0393,0x06eb,0x2801,0x0002
061a 03eb 0000 | | .DBG4T 0x03eb,0x0000,0x0005,0x0000
061e 0453 0000 | S | .DBG4T 0x0453,0x0000,0x0005,0x0000
0622 0493 0000 | | .DBG4T 0x0493,0x0000,0x0005,0x0000
0626 04ab 0000 | | .DBG4T 0x04ab,0x0000,0x0005,0x0000
062a 04eb 06fc | | .DBG4T 0x04eb,0x06fc,0x0002,0x0000
062e 0503 06ff | | .DBG4T 0x0503,0x06ff,0x0002,0x0000
0632 051b 0705 | | .DBG4T 0x051b,0x0705,0x0001,0x0000
0636 054b 0711 | K | .DBG4T 0x054b,0x0711,0x0001,0x0000
063a 0573 0000 | s | .DBG4T 0x0573,0x0000,0x0005,0x0000
063e ; --------------------------------------------------------------------------------------
063e ; Debug chain
063e ; --------------------------------------------------------------------------------------
063e 0025 0000 | % | .DBGLEN 0x0025,0x0000
0640 000b 000c | | .DBGLNO 0x000b,0x000c,0x000d,0x000f,0x0010,0x0017,0x0019,0x001a,0x001e,0x0022,0x0028,0x002e,0x0030,0x0032,0x0034,0x0036,0x0038,0x003a,0x003c,0x003e,0x0040,0x0042,0x0044,0x0046,0x0048,0x004a,0x004c,0x004e,0x0050,0x0052,0x0054,0x005e,0x005f,0x006a,0x006e,0x0071,0x0079
0665 ; --------------------------------------------------------------------------------------
0665 ; Debug chain
0665 ; --------------------------------------------------------------------------------------
0665 001d 0000 | | .DBGLEN 0x001d,0x0000
0667 0084 0096 | | .DBGLNO 0x0084,0x0096,0x00b9,0x00c0,0x00d2,0x00e2,0x00e4,0x00e6,0x00e8,0x00ea,0x00ec,0x00ee,0x00f0,0x00f2,0x00f4,0x00f6,0x00f8,0x00fa,0x00fc,0x00fe,0x0100,0x0102,0x0104,0x0106,0x0108,0x010a,0x010c,0x010e,0x0110
0684 ; --------------------------------------------------------------------------------------
0684 ; Debug chain
0684 ; --------------------------------------------------------------------------------------
0684 0000 0001 | | .DBGLEN 0x0000,0x0001
0686 0143 | C | .DBGLNO 0x0143
0687 ; --------------------------------------------------------------------------------------
0687 ; Debug chain
0687 ; --------------------------------------------------------------------------------------
0687 0000 0001 | | .DBGLEN 0x0000,0x0001
0689 0153 | S | .DBGLNO 0x0153
068a ; --------------------------------------------------------------------------------------
068a ; Debug chain
068a ; --------------------------------------------------------------------------------------
068a 0000 0001 | | .DBGLEN 0x0000,0x0001
068c 0163 | c | .DBGLNO 0x0163
068d ; --------------------------------------------------------------------------------------
068d ; Debug chain
068d ; --------------------------------------------------------------------------------------
068d 0000 0001 | | .DBGLEN 0x0000,0x0001
068f 016b | k | .DBGLNO 0x016b
0690 ; --------------------------------------------------------------------------------------
0690 ; Debug chain
0690 ; --------------------------------------------------------------------------------------
0690 0000 0003 | | .DBGLEN 0x0000,0x0003
0692 017b 017f | { | .DBGLNO 0x017b,0x017f,0x0188
0695 ; --------------------------------------------------------------------------------------
0695 ; Debug chain
0695 ; --------------------------------------------------------------------------------------
0695 0000 0001 | | .DBGLEN 0x0000,0x0001
0697 0193 | | .DBGLNO 0x0193
0698 ; --------------------------------------------------------------------------------------
0698 ; Debug chain
0698 ; --------------------------------------------------------------------------------------
0698 0000 0001 | | .DBGLEN 0x0000,0x0001
069a 019b | | .DBGLNO 0x019b
069b ; --------------------------------------------------------------------------------------
069b ; Debug chain
069b ; --------------------------------------------------------------------------------------
069b 0000 0002 | | .DBGLEN 0x0000,0x0002
069d 01e3 01e7 | | .DBGLNO 0x01e3,0x01e7
069f ; --------------------------------------------------------------------------------------
069f ; Debug chain
069f ; --------------------------------------------------------------------------------------
069f 0001 0002 | | .DBGLEN 0x0001,0x0002
06a1 0203 0205 | | .DBGLNO 0x0203,0x0205,0x020c
06a4 ; --------------------------------------------------------------------------------------
06a4 ; Debug chain
06a4 ; --------------------------------------------------------------------------------------
06a4 0001 0001 | | .DBGLEN 0x0001,0x0001
06a6 0213 0217 | | .DBGLNO 0x0213,0x0217
06a8 ; --------------------------------------------------------------------------------------
06a8 ; Debug chain
06a8 ; --------------------------------------------------------------------------------------
06a8 0002 0001 | | .DBGLEN 0x0002,0x0001
06aa 022b 022e | + .| .DBGLNO 0x022b,0x022e,0x0231
06ad ; --------------------------------------------------------------------------------------
06ad ; Debug chain
06ad ; --------------------------------------------------------------------------------------
06ad 0002 0001 | | .DBGLEN 0x0002,0x0001
06af 0243 0246 | C F| .DBGLNO 0x0243,0x0246,0x0249
06b2 ; --------------------------------------------------------------------------------------
06b2 ; Debug chain
06b2 ; --------------------------------------------------------------------------------------
06b2 0002 0007 | | .DBGLEN 0x0002,0x0007
06b4 025b 025f | [ _| .DBGLNO 0x025b,0x025f,0x0263,0x0267,0x026d,0x0287,0x028b,0x028d,0x0291
06bd ; --------------------------------------------------------------------------------------
06bd ; Debug chain
06bd ; --------------------------------------------------------------------------------------
06bd 0003 0006 | | .DBGLEN 0x0003,0x0006
06bf 029b 029e | | .DBGLNO 0x029b,0x029e,0x02a3,0x02a8,0x02ac,0x02b0,0x02b4,0x02b8,0x02c0
06c8 ; --------------------------------------------------------------------------------------
06c8 ; Debug chain
06c8 ; --------------------------------------------------------------------------------------
06c8 0002 0001 | | .DBGLEN 0x0002,0x0001
06ca 02cb 02ce | | .DBGLNO 0x02cb,0x02ce,0x02d1
06cd ; --------------------------------------------------------------------------------------
06cd ; Debug chain
06cd ; --------------------------------------------------------------------------------------
06cd 0002 0001 | | .DBGLEN 0x0002,0x0001
06cf 02f3 02f6 | | .DBGLNO 0x02f3,0x02f6,0x02f9
06d2 ; --------------------------------------------------------------------------------------
06d2 ; Debug chain
06d2 ; --------------------------------------------------------------------------------------
06d2 0002 0007 | | .DBGLEN 0x0002,0x0007
06d4 030b 030e | | .DBGLNO 0x030b,0x030e,0x0311,0x0315,0x0323,0x0325,0x0331,0x0333,0x0338
06dd ; --------------------------------------------------------------------------------------
06dd ; Debug chain
06dd ; --------------------------------------------------------------------------------------
06dd 0000 0008 | | .DBGLEN 0x0000,0x0008
06df 0343 0347 | C G| .DBGLNO 0x0343,0x0347,0x0349,0x034d,0x0351,0x0359,0x035b,0x035e
06e7 ; --------------------------------------------------------------------------------------
06e7 ; Debug chain
06e7 ; --------------------------------------------------------------------------------------
06e7 0001 0001 | | .DBGLEN 0x0001,0x0001
06e9 036b 037b | k {| .DBGLNO 0x036b,0x037b
06eb ; --------------------------------------------------------------------------------------
06eb ; Debug chain
06eb ; --------------------------------------------------------------------------------------
06eb 0000 000f | | .DBGLEN 0x0000,0x000f
06ed 0393 0397 | | .DBGLNO 0x0393,0x0397,0x039b,0x039d,0x03ab,0x03b5,0x03b9,0x03bc,0x03c1,0x03c4,0x03c8,0x03d5,0x03d7,0x03db,0x03dd
06fc ; --------------------------------------------------------------------------------------
06fc ; Debug chain
06fc ; --------------------------------------------------------------------------------------
06fc 0000 0001 | | .DBGLEN 0x0000,0x0001
06fe 04eb | | .DBGLNO 0x04eb
06ff ; --------------------------------------------------------------------------------------
06ff ; Debug chain
06ff ; --------------------------------------------------------------------------------------
06ff 0000 0004 | | .DBGLEN 0x0000,0x0004
0701 0504 0508 | | .DBGLNO 0x0504,0x0508,0x0510,0x0515
0705 ; --------------------------------------------------------------------------------------
0705 ; Debug chain
0705 ; --------------------------------------------------------------------------------------
0705 0002 0008 | | .DBGLEN 0x0002,0x0008
0707 051b 051d | | .DBGLNO 0x051b,0x051d,0x051e,0x0522,0x0524,0x0528,0x052c,0x0530,0x0532,0x053b
0711 ; --------------------------------------------------------------------------------------
0711 ; Debug chain
0711 ; --------------------------------------------------------------------------------------
0711 0000 0006 | | .DBGLEN 0x0000,0x0006
0713 054b 054f | K O| .DBGLNO 0x054b,0x054f,0x055d,0x055f,0x0567,0x0569
0719 0000 0000 | | .BLANK 0000[0xe7]