|
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: 5120 (0x1400) Notes: 00_class, 5900_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_0900ea
└─⟦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 06f0 | | .CONST 0x06f0 ; 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 0004 | | .CONST 0x0004 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 0111 | | .CONST 0x0111 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0038 | 8 | .CONST 0x0038 ; Number of locals 000b INIT_0008: 000b 0007 | | Action Break_Optional 000c 00c4 | | Action Make_Default 000d 0007 | | Action Break_Optional 000e 0007 | | Action Break_Optional 000f 00e4 | | Load_Encached Positive_Cache 0010 0266 | f | Execute Discrete,Bounds 0011 e003 | | Load 0x0,0x3 0012 029f 011b | | Declare_Subprogram INIT_0118,For_Call 0014 4801 |H | Short_Literal 0x1 0015 0351 | Q | Declare_Type Array,Defined,Visible,Bounds_With_Object 0016 029a 0143 | C| Declare_Subprogram INIT_0140,For_Outer_Call,Visible,Unelaborated 0018 0007 | | Action Break_Optional 0019 4800 |H | Short_Literal 0x0 001a e004 | | Load 0x0,0x4 001b 00e3 | | Load_Encached Natural_Cache 001c 03f9 | | Declare_Type Discrete,Constrained,Visible 001d 4801 |H | Short_Literal 0x1 001e e004 | | Load 0x0,0x4 001f 00da | | Load_Top At_Offset_2 0020 03f9 | | Declare_Type Discrete,Constrained,Visible 0021 00d8 | | Load_Top At_Offset_0 0022 0266 | f | Execute Discrete,Bounds 0023 e005 | | Load 0x0,0x5 0024 029f 0153 | S| Declare_Subprogram INIT_0150,For_Call 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 e006 | | Load 0x0,0x6 002b 02a0 | | Declare_Subprogram Null_Subprogram 002c 4801 |H | Short_Literal 0x1 002d 0351 | Q | Declare_Type Array,Defined,Visible,Bounds_With_Object 002e 0007 | | Action Break_Optional 002f 029a 016b | k| Declare_Subprogram INIT_0168,For_Outer_Call,Visible,Unelaborated 0031 029a 0173 | s| Declare_Subprogram INIT_0170,For_Outer_Call,Visible,Unelaborated 0033 029a 017b | {| Declare_Subprogram INIT_0178,For_Outer_Call,Visible,Unelaborated 0035 029a 018b | | Declare_Subprogram INIT_0188,For_Outer_Call,Visible,Unelaborated 0037 029a 019b | | Declare_Subprogram INIT_0198,For_Outer_Call,Visible,Unelaborated 0039 029a 01b3 | | Declare_Subprogram INIT_01b0,For_Outer_Call,Visible,Unelaborated 003b 029a 01bb | | Declare_Subprogram INIT_01b8,For_Outer_Call,Visible,Unelaborated 003d 029a 0203 | | Declare_Subprogram INIT_0200,For_Outer_Call,Visible,Unelaborated 003f 029a 0223 | #| Declare_Subprogram INIT_0220,For_Outer_Call,Visible,Unelaborated 0041 029a 0233 | 3| Declare_Subprogram INIT_0230,For_Outer_Call,Visible,Unelaborated 0043 029a 024b | K| Declare_Subprogram INIT_0248,For_Outer_Call,Visible,Unelaborated 0045 029a 0263 | c| Declare_Subprogram INIT_0260,For_Outer_Call,Visible,Unelaborated 0047 029a 027b | {| Declare_Subprogram INIT_0278,For_Outer_Call,Visible,Unelaborated 0049 029a 02d3 | | Declare_Subprogram INIT_02d0,For_Outer_Call,Visible,Unelaborated 004b 029a 030b | | Declare_Subprogram INIT_0308,For_Outer_Call,Visible,Unelaborated 004d 029a 0333 | 3| Declare_Subprogram INIT_0330,For_Outer_Call,Visible,Unelaborated 004f 029a 034b | K| Declare_Subprogram INIT_0348,For_Outer_Call,Visible,Unelaborated 0051 029a 0383 | | Declare_Subprogram INIT_0380,For_Outer_Call,Visible,Unelaborated 0053 029a 03ab | | Declare_Subprogram INIT_03a8,For_Outer_Call,Visible,Unelaborated 0055 029a 03d3 | | Declare_Subprogram INIT_03d0,For_Outer_Call,Visible,Unelaborated 0057 0093 0000 | | push_full_address 0x0 0059 60de |` | Indirect_Literal Discrete,0x138,{0x80000000, 0x00010000} 005a 0273 | s | Execute Discrete,Plus 005b e007 | | Load 0x0,0x7 005c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 005d 60d6 |` | Indirect_Literal Discrete,0x134,{0x00000000, 0x0000ffff} 005e 0279 | y | Execute Discrete,And 005f 0273 | s | Execute Discrete,Plus 0060 0129 | ) | Execute Any,Make_Visible 0061 0007 | | Action Break_Optional 0062 00e3 | | Load_Encached Natural_Cache 0063 4800 |H | Short_Literal 0x0 0064 4801 |H | Short_Literal 0x1 0065 4801 |H | Short_Literal 0x1 0066 4805 |H | Short_Literal 0x5 0067 0319 | | Declare_Type Variant_Record,Incomplete,Visible 0068 029f 0423 | #| Declare_Subprogram INIT_0420,For_Call 006a 00d9 | | Load_Top At_Offset_1 006b 012a | * | Execute Any,Change_Utility 006c 0007 | | Action Break_Optional 006d 00d8 | | Load_Top At_Offset_0 006e 02a0 | | Declare_Subprogram Null_Subprogram 006f 4818 |H | Short_Literal 0x18 0070 03d4 | | Declare_Type Access,Defined,Visible,Accesses_Protected 0071 00d8 | | Load_Top At_Offset_0 0072 0129 | ) | Execute Any,Make_Visible 0073 c20d | | Store 0x1,0xd 0074 00bf | | Action Accept_Activation 0075 e210 | | Load 0x1,0x10 0076 4801 |H | Short_Literal 0x1 0077 e212 | | Load 0x1,0x12 0078 01dc | | Execute Vector,Last 0079 e210 | | Load 0x1,0x10 007a 0269 | i | Execute Discrete,Last 007b 026c | l | Execute Discrete,Minimum 007c e212 | | Load 0x1,0x12 007d 034e | N | QQ_Declare_Type Array,Constrained,Bounds_With_Object 007e 029f 048b | | Declare_Subprogram INIT_0488,For_Call 0080 4800 |H | Short_Literal 0x0 0081 4801 |H | Short_Literal 0x1 0082 4800 |H | Short_Literal 0x0 0083 4800 |H | Short_Literal 0x0 0084 4801 |H | Short_Literal 0x1 0085 4801 |H | Short_Literal 0x1 0086 031d | | Declare_Type Variant_Record,Defined 0087 4800 |H | Short_Literal 0x0 0088 00d9 | | Load_Top At_Offset_1 0089 1c08 | | Execute_Immediate Run_Utility,0x8 008a 00d8 | | Load_Top At_Offset_0 008b 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2 008c 0335 | 5 | Declare_Variable Array,Duplicate 008d 00cd | | Action Spare6_Action 008e 00d9 | | Load_Top At_Offset_1 008f 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2 0090 01d9 | | Execute Vector,Reverse_Bounds 0091 0263 | c | Execute Discrete,Above_Bound 0092 7005 |p | Jump_Nonzero 0x98 0093 e008 | | Load 0x0,0x8 0094 00d9 | | Load_Top At_Offset_1 0095 e22d | - | Load 0x1,0x2d 0096 01d6 | | Execute Vector,Field_Write 0097 3ffb |? | Loop_Increasing 0x93 0098 00d9 | | Load_Top At_Offset_1 0099 00d8 | | Load_Top At_Offset_0 009a 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2 009b 00da | | Load_Top At_Offset_2 009c 01da | | Execute Vector,Bounds 009d 00da | | Load_Top At_Offset_2 009e 01da | | Execute Vector,Bounds 009f 00da | | Load_Top At_Offset_2 00a0 027f | | Execute Discrete,Equal 00a1 7001 |p | Jump_Nonzero 0xa3 00a2 08e0 | | Execute_Immediate Raise,0xe0 00a3 00cd | | Action Spare6_Action 00a4 027f | | Execute Discrete,Equal 00a5 7001 |p | Jump_Nonzero 0xa7 00a6 08e0 | | Execute_Immediate Raise,0xe0 00a7 00d2 | | Pop_Control Pop_Count_2 00a8 00d9 | | Load_Top At_Offset_1 00a9 2902 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x2 00aa 00e3 | | Load_Encached Natural_Cache 00ab 0266 | f | Execute Discrete,Bounds 00ac 00db | | Load_Top At_Offset_3 00ad 029f 04cb | | Declare_Subprogram INIT_04c8,For_Call 00af 4801 |H | Short_Literal 0x1 00b0 0350 | P | Declare_Type Array,Defined,Bounds_With_Object 00b1 e210 | | Load 0x1,0x10 00b2 4801 |H | Short_Literal 0x1 00b3 e213 | | Load 0x1,0x13 00b4 01dc | | Execute Vector,Last 00b5 e210 | | Load 0x1,0x10 00b6 0269 | i | Execute Discrete,Last 00b7 026c | l | Execute Discrete,Minimum 00b8 e213 | | Load 0x1,0x13 00b9 034e | N | QQ_Declare_Type Array,Constrained,Bounds_With_Object 00ba 029f 04e3 | | Declare_Subprogram INIT_04e0,For_Call 00bc 4800 |H | Short_Literal 0x0 00bd 4801 |H | Short_Literal 0x1 00be 4800 |H | Short_Literal 0x0 00bf 4800 |H | Short_Literal 0x0 00c0 4801 |H | Short_Literal 0x1 00c1 4801 |H | Short_Literal 0x1 00c2 031d | | Declare_Type Variant_Record,Defined 00c3 e009 | | Load 0x0,0x9 00c4 00e3 | | Load_Encached Natural_Cache 00c5 00da | | Load_Top At_Offset_2 00c6 4801 |H | Short_Literal 0x1 00c7 6068 |`h | Indirect_Literal Discrete,0x130,{0x00000000, 0x7fffffff} 00c8 e22d | - | Load 0x1,0x2d 00c9 034e | N | QQ_Declare_Type Array,Constrained,Bounds_With_Object 00ca 029f 0423 | #| Declare_Subprogram INIT_0420,For_Call 00cc 4800 |H | Short_Literal 0x0 00cd 4801 |H | Short_Literal 0x1 00ce 4803 |H | Short_Literal 0x3 00cf e229 | ) | Load 0x1,0x29 00d0 0307 | | Complete_Type Variant_Record,By_Defining 00d1 e22a | * | Load 0x1,0x2a 00d2 03c4 | | Complete_Type Access,By_Component_Completion 00d3 029d 0523 | #| Declare_Subprogram INIT_0520,For_Outer_Call 00d5 029d 0533 | 3| Declare_Subprogram INIT_0530,For_Outer_Call 00d7 1d14 | | Execute_Immediate Reference_Lex_1,0x14 00d8 00c7 | | Action Elaborate_Subprogram 00d9 1d15 | | Execute_Immediate Reference_Lex_1,0x15 00da 00c7 | | Action Elaborate_Subprogram 00db 1d16 | | Execute_Immediate Reference_Lex_1,0x16 00dc 00c7 | | Action Elaborate_Subprogram 00dd 029d 054b | K| Declare_Subprogram INIT_0548,For_Outer_Call 00df 1d18 | | Execute_Immediate Reference_Lex_1,0x18 00e0 00c7 | | Action Elaborate_Subprogram 00e1 1d17 | | Execute_Immediate Reference_Lex_1,0x17 00e2 00c7 | | Action Elaborate_Subprogram 00e3 1d19 | | Execute_Immediate Reference_Lex_1,0x19 00e4 00c7 | | Action Elaborate_Subprogram 00e5 029d 0553 | S| Declare_Subprogram INIT_0550,For_Outer_Call 00e7 1d0f | | Execute_Immediate Reference_Lex_1,0xf 00e8 00c7 | | Action Elaborate_Subprogram 00e9 1d1a | | Execute_Immediate Reference_Lex_1,0x1a 00ea 00c7 | | Action Elaborate_Subprogram 00eb 1d1b | | Execute_Immediate Reference_Lex_1,0x1b 00ec 00c7 | | Action Elaborate_Subprogram 00ed 029d 056b | k| Declare_Subprogram INIT_0568,For_Outer_Call 00ef 029d 05a3 | | Declare_Subprogram INIT_05a0,For_Outer_Call 00f1 029d 05e3 | | Declare_Subprogram INIT_05e0,For_Outer_Call 00f3 1d1d | | Execute_Immediate Reference_Lex_1,0x1d 00f4 00c7 | | Action Elaborate_Subprogram 00f5 1d1c | | Execute_Immediate Reference_Lex_1,0x1c 00f6 00c7 | | Action Elaborate_Subprogram 00f7 1d1e | | Execute_Immediate Reference_Lex_1,0x1e 00f8 00c7 | | Action Elaborate_Subprogram 00f9 1d1f | | Execute_Immediate Reference_Lex_1,0x1f 00fa 00c7 | | Action Elaborate_Subprogram 00fb 1d20 | | Execute_Immediate Reference_Lex_1,0x20 00fc 00c7 | | Action Elaborate_Subprogram 00fd 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21 00fe 00c7 | | Action Elaborate_Subprogram 00ff 1d22 | " | Execute_Immediate Reference_Lex_1,0x22 0100 00c7 | | Action Elaborate_Subprogram 0101 1d23 | # | Execute_Immediate Reference_Lex_1,0x23 0102 00c7 | | Action Elaborate_Subprogram 0103 029d 060b | | Declare_Subprogram INIT_0608,For_Outer_Call 0105 029d 0623 | #| Declare_Subprogram INIT_0620,For_Outer_Call 0107 029d 064b | K| Declare_Subprogram INIT_0648,For_Outer_Call 0109 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24 010a 00c7 | | Action Elaborate_Subprogram 010b 1d25 | % | Execute_Immediate Reference_Lex_1,0x25 010c 00c7 | | Action Elaborate_Subprogram 010d 1d27 | ' | Execute_Immediate Reference_Lex_1,0x27 010e 00c7 | | Action Elaborate_Subprogram 010f 1d26 | & | Execute_Immediate Reference_Lex_1,0x26 0110 00c7 | | Action Elaborate_Subprogram 0111 BODY_0008: 0111 00bc | | Action Signal_Activated 0112 00bb | | Action Signal_Completion 0113 0000 0000 | | .BLANK 0000[0x5] 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 e20e | | Load 0x1,0xe 0146 035b | [ | Declare_Type Array,Constrained 0147 0337 | 7 | Declare_Variable Array 0148 e20e | | Load 0x1,0xe 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,New_Top_Offset 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 00da | | Load_Top At_Offset_2 016c e5fe | | Load 0x2,-0x2 016d 822f | / | Call 0x1,0x2f 016e 800a | | Call 0x0,0xa 016f 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0170 ; -------------------------------------------------------------------------------------- 0170 ; SUBPROGRAM 0170 ; -------------------------------------------------------------------------------------- 0170 0173 | s | .CONST 0x0173 ; Address of begin 0171 0004 | | .CONST 0x0004 ; Address of exception handler 0172 0001 | | .CONST 0x0001 ; Number of locals 0173 BODY_0170: 0173 INIT_0170: 0173 00da | | Load_Top At_Offset_2 0174 800b | | Call 0x0,0xb 0175 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0176 0000 0000 | | .XXX[0x2] 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 800c | | Call 0x0,0xc 017d 8230 | 0 | Call 0x1,0x30 017e 00d8 | | Load_Top At_Offset_0 017f e009 | | Load 0x0,0x9 0180 0260 | ` | Execute Discrete,In_Type 0181 7001 |p | Jump_Nonzero 0x183 0182 0801 | | Execute_Immediate Raise,0x1 0183 800d | | Call 0x0,0xd 0184 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0185 0000 0000 | | .XXX[0x3] 0187 0000 | | 0188 ; -------------------------------------------------------------------------------------- 0188 ; SUBPROGRAM 0188 ; -------------------------------------------------------------------------------------- 0188 018b | | .CONST 0x018b ; Address of begin 0189 0004 | | .CONST 0x0004 ; Address of exception handler 018a 0001 | | .CONST 0x0001 ; Number of locals 018b BODY_0188: 018b INIT_0188: 018b 00da | | Load_Top At_Offset_2 018c 800c | | Call 0x0,0xc 018d 8230 | 0 | Call 0x1,0x30 018e 00d8 | | Load_Top At_Offset_0 018f e009 | | Load 0x0,0x9 0190 0260 | ` | Execute Discrete,In_Type 0191 7001 |p | Jump_Nonzero 0x193 0192 0801 | | Execute_Immediate Raise,0x1 0193 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0194 0000 0000 | | .BLANK 0000[0x4] 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 00da | | Load_Top At_Offset_2 019c e22a | * | Load 0x1,0x2a 019d 022e | . | Execute Access,Not_Equal 019e 6809 |h | Jump_Zero 0x1a8 019f 00da | | Load_Top At_Offset_2 01a0 0227 | ' | Execute Access,All_Reference 01a1 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 01a2 00d8 | | Load_Top At_Offset_0 01a3 e009 | | Load 0x0,0x9 01a4 0260 | ` | Execute Discrete,In_Type 01a5 7001 |p | Jump_Nonzero 0x1a7 01a6 0801 | | Execute_Immediate Raise,0x1 01a7 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01a8 e00e | | Load 0x0,0xe 01a9 00d8 | | Load_Top At_Offset_0 01aa e009 | | Load 0x0,0x9 01ab 0260 | ` | Execute Discrete,In_Type 01ac 7001 |p | Jump_Nonzero 0x1ae 01ad 0801 | | Execute_Immediate Raise,0x1 01ae 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 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 00da | | Load_Top At_Offset_2 01b4 0227 | ' | Execute Access,All_Reference 01b5 2c03 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3 01b6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01b7 0000 | | .XXX[0x1] 01b8 ; -------------------------------------------------------------------------------------- 01b8 ; SUBPROGRAM 01b8 ; -------------------------------------------------------------------------------------- 01b8 01bb | | .CONST 0x01bb ; Address of begin 01b9 0004 | | .CONST 0x0004 ; Address of exception handler 01ba 0001 | | .CONST 0x0001 ; Number of locals 01bb BODY_01b8: 01bb INIT_01b8: 01bb 00db | | Load_Top At_Offset_3 01bc e229 | ) | Load 0x1,0x29 01bd 1c08 | | Execute_Immediate Run_Utility,0x8 01be 00db | | Load_Top At_Offset_3 01bf 00d9 | | Load_Top At_Offset_1 01c0 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 01c1 4800 |H | Short_Literal 0x0 01c2 00d9 | | Load_Top At_Offset_1 01c3 2803 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3 01c4 00d8 | | Load_Top At_Offset_0 01c5 2505 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x5 01c6 0335 | 5 | Declare_Variable Array,Duplicate 01c7 00cd | | Action Spare6_Action 01c8 00d9 | | Load_Top At_Offset_1 01c9 2505 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x5 01ca 01d9 | | Execute Vector,Reverse_Bounds 01cb 0263 | c | Execute Discrete,Above_Bound 01cc 7005 |p | Jump_Nonzero 0x1d2 01cd e22c | , | Load 0x1,0x2c 01ce 00d9 | | Load_Top At_Offset_1 01cf e403 | | Load 0x2,0x3 01d0 01d6 | | Execute Vector,Field_Write 01d1 3ffb |? | Loop_Increasing 0x1cd 01d2 00d9 | | Load_Top At_Offset_1 01d3 00d8 | | Load_Top At_Offset_0 01d4 2505 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x5 01d5 00da | | Load_Top At_Offset_2 01d6 01da | | Execute Vector,Bounds 01d7 00da | | Load_Top At_Offset_2 01d8 01da | | Execute Vector,Bounds 01d9 00da | | Load_Top At_Offset_2 01da 027f | | Execute Discrete,Equal 01db 7001 |p | Jump_Nonzero 0x1dd 01dc 08e0 | | Execute_Immediate Raise,0xe0 01dd 00cd | | Action Spare6_Action 01de 027f | | Execute Discrete,Equal 01df 7001 |p | Jump_Nonzero 0x1e1 01e0 08e0 | | Execute_Immediate Raise,0xe0 01e1 00d2 | | Pop_Control Pop_Count_2 01e2 00d9 | | Load_Top At_Offset_1 01e3 2905 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x5 01e4 e5fd | | Load 0x2,-0x3 01e5 01db | | Execute Vector,Length 01e6 e22e | . | Load 0x1,0x2e 01e7 1c08 | | Execute_Immediate Run_Utility,0x8 01e8 e5fd | | Load 0x2,-0x3 01e9 00d9 | | Load_Top At_Offset_1 01ea 00d8 | | Load_Top At_Offset_0 01eb 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2 01ec 00da | | Load_Top At_Offset_2 01ed 01da | | Execute Vector,Bounds 01ee 00da | | Load_Top At_Offset_2 01ef 01da | | Execute Vector,Bounds 01f0 00da | | Load_Top At_Offset_2 01f1 027f | | Execute Discrete,Equal 01f2 7001 |p | Jump_Nonzero 0x1f4 01f3 08e0 | | Execute_Immediate Raise,0xe0 01f4 00cd | | Action Spare6_Action 01f5 027f | | Execute Discrete,Equal 01f6 7001 |p | Jump_Nonzero 0x1f8 01f7 08e0 | | Execute_Immediate Raise,0xe0 01f8 00d2 | | Pop_Control Pop_Count_2 01f9 00d9 | | Load_Top At_Offset_1 01fa 2902 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x2 01fb 00d9 | | Load_Top At_Offset_1 01fc 2804 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x4 01fd e22a | * | Load 0x1,0x2a 01fe 03b6 | | Declare_Variable Access,By_Allocation,With_Value 01ff 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0200 ; -------------------------------------------------------------------------------------- 0200 ; SUBPROGRAM 0200 ; -------------------------------------------------------------------------------------- 0200 0203 | | .CONST 0x0203 ; Address of begin 0201 0004 | | .CONST 0x0004 ; Address of exception handler 0202 0001 | | .CONST 0x0001 ; Number of locals 0203 BODY_0200: 0203 INIT_0200: 0203 4800 |H | Short_Literal 0x0 0204 00db | | Load_Top At_Offset_3 0205 0227 | ' | Execute Access,All_Reference 0206 2803 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3 0207 00da | | Load_Top At_Offset_2 0208 0229 | ) | Execute Access,All_Read 0209 00d8 | | Load_Top At_Offset_0 020a 2505 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x5 020b 00d8 | | Load_Top At_Offset_0 020c 0335 | 5 | Declare_Variable Array,Duplicate 020d 00cd | | Action Spare6_Action 020e 00d9 | | Load_Top At_Offset_1 020f 01d9 | | Execute Vector,Reverse_Bounds 0210 0263 | c | Execute Discrete,Above_Bound 0211 7005 |p | Jump_Nonzero 0x217 0212 e22c | , | Load 0x1,0x2c 0213 00d9 | | Load_Top At_Offset_1 0214 e404 | | Load 0x2,0x4 0215 01d6 | | Execute Vector,Field_Write 0216 3ffb |? | Loop_Increasing 0x212 0217 00cd | | Action Spare6_Action 0218 00d9 | | Load_Top At_Offset_1 0219 2905 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x5 021a 4501 |E | Exit_Suprogram New_Top_Offset 0x1 021b 0000 0000 | | .BLANK 0000[0x5] 0220 ; -------------------------------------------------------------------------------------- 0220 ; SUBPROGRAM 0220 ; -------------------------------------------------------------------------------------- 0220 0225 | % | .CONST 0x0225 ; Address of begin 0221 0004 | | .CONST 0x0004 ; Address of exception handler 0222 0002 | | .CONST 0x0002 ; Number of locals 0223 INIT_0220: 0223 e006 | | Load 0x0,0x6 0224 0007 | | Action Break_Optional 0225 BODY_0220: 0225 e5fe | | Load 0x2,-0x2 0226 e5ff | | Load 0x2,-0x1 0227 0227 | ' | Execute Access,All_Reference 0228 2404 |$ | Execute Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x4 0229 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2 022a 01d7 | | Execute Vector,Field_Read 022b 0039 | 9 | Store_Top Access,At_Offset_1 022c 00d8 | | Load_Top At_Offset_0 022d 800f | | Call 0x0,0xf 022e 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 022f 0000 | | .XXX[0x1] 0230 ; -------------------------------------------------------------------------------------- 0230 ; SUBPROGRAM 0230 ; -------------------------------------------------------------------------------------- 0230 0237 | 7 | .CONST 0x0237 ; Address of begin 0231 0004 | | .CONST 0x0004 ; Address of exception handler 0232 0002 | | .CONST 0x0002 ; Number of locals 0233 INIT_0230: 0233 e5fd | | Load 0x2,-0x3 0234 0227 | ' | Execute Access,All_Reference 0235 2505 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x5 0236 0007 | | Action Break_Optional 0237 BODY_0230: 0237 00db | | Load_Top At_Offset_3 0238 00d9 | | Load_Top At_Offset_1 0239 01d5 | | Execute Vector,Field_Reference 023a 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 023b 6807 |h | Jump_Zero 0x243 023c e5fe | | Load 0x2,-0x2 023d e5ff | | Load 0x2,-0x1 023e 00da | | Load_Top At_Offset_2 023f 01d5 | | Execute Vector,Field_Reference 0240 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2 0241 8235 | 5 | Call 0x1,0x35 0242 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0243 4800 |H | Short_Literal 0x0 0244 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0245 0000 0000 | | .XXX[0x3] 0247 0000 | | 0248 ; -------------------------------------------------------------------------------------- 0248 ; SUBPROGRAM 0248 ; -------------------------------------------------------------------------------------- 0248 0253 | S | .CONST 0x0253 ; Address of begin 0249 0004 | | .CONST 0x0004 ; Address of exception handler 024a 0003 | | .CONST 0x0003 ; Number of locals 024b INIT_0248: 024b e22a | * | Load 0x1,0x2a 024c 00db | | Load_Top At_Offset_3 024d 8216 | | Call 0x1,0x16 024e 0039 | 9 | Store_Top Access,At_Offset_1 024f 00db | | Load_Top At_Offset_3 0250 8231 | 1 | Call 0x1,0x31 0251 00e3 | | Load_Encached Natural_Cache 0252 03f1 | | Declare_Variable Discrete,With_Value 0253 BODY_0248: 0253 00d8 | | Load_Top At_Offset_0 0254 00da | | Load_Top At_Offset_2 0255 0227 | ' | Execute Access,All_Reference 0256 2505 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x5 0257 01d5 | | Execute Vector,Field_Reference 0258 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2 0259 0335 | 5 | Declare_Variable Array,Duplicate 025a 00cd | | Action Spare6_Action 025b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 025c 0000 0000 | | .BLANK 0000[0x4] 0260 ; -------------------------------------------------------------------------------------- 0260 ; SUBPROGRAM 0260 ; -------------------------------------------------------------------------------------- 0260 026b | k | .CONST 0x026b ; Address of begin 0261 0004 | | .CONST 0x0004 ; Address of exception handler 0262 0003 | | .CONST 0x0003 ; Number of locals 0263 INIT_0260: 0263 e22a | * | Load 0x1,0x2a 0264 00db | | Load_Top At_Offset_3 0265 8216 | | Call 0x1,0x16 0266 0039 | 9 | Store_Top Access,At_Offset_1 0267 00db | | Load_Top At_Offset_3 0268 8231 | 1 | Call 0x1,0x31 0269 00e3 | | Load_Encached Natural_Cache 026a 03f1 | | Declare_Variable Discrete,With_Value 026b BODY_0260: 026b e5fe | | Load 0x2,-0x2 026c 00d9 | | Load_Top At_Offset_1 026d 00db | | Load_Top At_Offset_3 026e 0227 | ' | Execute Access,All_Reference 026f 2505 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x5 0270 01d5 | | Execute Vector,Field_Reference 0271 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2 0272 01d5 | | Execute Vector,Field_Reference 0273 02fd | | Declare_Variable Variant_Record,Duplicate 0274 00cd | | Action Spare6_Action 0275 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0276 0000 0000 | | .XXX[0x2] 0278 ; -------------------------------------------------------------------------------------- 0278 ; SUBPROGRAM 0278 ; -------------------------------------------------------------------------------------- 0278 028e | | .CONST 0x028e ; Address of begin 0279 0004 | | .CONST 0x0004 ; Address of exception handler 027a 0006 | | .CONST 0x0006 ; Number of locals 027b INIT_0278: 027b 00da | | Load_Top At_Offset_2 027c 0227 | ' | Execute Access,All_Reference 027d 2505 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x5 027e 0007 | | Action Break_Optional 027f 00db | | Load_Top At_Offset_3 0280 0227 | ' | Execute Access,All_Reference 0281 2403 |$ | Execute Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x3 0282 0007 | | Action Break_Optional 0283 e5ff | | Load 0x2,-0x1 0284 8218 | | Call 0x1,0x18 0285 e009 | | Load 0x0,0x9 0286 1c04 | | Execute_Immediate Run_Utility,0x4 0287 00e3 | | Load_Encached Natural_Cache 0288 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 0289 00e3 | | Load_Encached Natural_Cache 028a e003 | | Load 0x0,0x3 028b 0322 | " | Declare_Variable Record 028c 00d8 | | Load_Top At_Offset_0 028d 1c00 | | Execute_Immediate Run_Utility,0x0 028e BODY_0278: 028e 00cf | | Action Mark_Auxiliary 028f e402 | | Load 0x2,0x2 0290 01d9 | | Execute Vector,Reverse_Bounds 0291 0263 | c | Execute Discrete,Above_Bound 0292 7034 |p4 | Jump_Nonzero 0x2c7 0293 00d8 | | Load_Top At_Offset_0 0294 e402 | | Load 0x2,0x2 0295 01d5 | | Execute Vector,Field_Reference 0296 e22c | , | Load 0x1,0x2c 0297 016f | o | Execute Variant_Record,Equal 0298 682c |h, | Jump_Zero 0x2c5 0299 e5fe | | Load 0x2,-0x2 029a 01db | | Execute Vector,Length 029b e22b | + | Load 0x1,0x2b 029c 1c08 | | Execute_Immediate Run_Utility,0x8 029d e5fe | | Load 0x2,-0x2 029e 00d9 | | Load_Top At_Offset_1 029f 00d8 | | Load_Top At_Offset_0 02a0 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2 02a1 00da | | Load_Top At_Offset_2 02a2 01da | | Execute Vector,Bounds 02a3 00da | | Load_Top At_Offset_2 02a4 01da | | Execute Vector,Bounds 02a5 00da | | Load_Top At_Offset_2 02a6 027f | | Execute Discrete,Equal 02a7 7001 |p | Jump_Nonzero 0x2a9 02a8 08e0 | | Execute_Immediate Raise,0xe0 02a9 00cd | | Action Spare6_Action 02aa 027f | | Execute Discrete,Equal 02ab 7001 |p | Jump_Nonzero 0x2ad 02ac 08e0 | | Execute_Immediate Raise,0xe0 02ad 00d2 | | Pop_Control Pop_Count_2 02ae 00d9 | | Load_Top At_Offset_1 02af 2902 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x2 02b0 00d9 | | Load_Top At_Offset_1 02b1 e402 | | Load 0x2,0x2 02b2 01d6 | | Execute Vector,Field_Write 02b3 00d8 | | Load_Top At_Offset_0 02b4 a405 | | Store_Unchecked 0x2,0x5 02b5 00d8 | | Load_Top At_Offset_0 02b6 e403 | | Load 0x2,0x3 02b7 027d | } | Execute Discrete,Greater 02b8 6802 |h | Jump_Zero 0x2bb 02b9 00d8 | | Load_Top At_Offset_0 02ba a403 | | Store_Unchecked 0x2,0x3 02bb e405 | | Load 0x2,0x5 02bc e404 | | Load 0x2,0x4 02bd 800a | | Call 0x0,0xa 02be e406 | | Load 0x2,0x6 02bf 017d | } | Execute Record,Structure_Write 02c0 00db | | Load_Top At_Offset_3 02c1 8010 | | Call 0x0,0x10 02c2 e5fd | | Load 0x2,-0x3 02c3 016d | m | Execute Variant_Record,Structure_Write 02c4 4503 |E | Exit_Suprogram New_Top_Offset 0x3 02c5 00c8 | | Action Pop_Auxiliary_Range 02c6 3fcc |? | Loop_Increasing 0x293 02c7 00ce | | Action Pop_Auxiliary 02c8 e228 | ( | Load 0x1,0x28 02c9 0257 | W | Execute Discrete,Raise 02ca 0000 0000 | | .BLANK 0000[0x6] 02d0 ; -------------------------------------------------------------------------------------- 02d0 ; SUBPROGRAM 02d0 ; -------------------------------------------------------------------------------------- 02d0 02e3 | | .CONST 0x02e3 ; Address of begin 02d1 0004 | | .CONST 0x0004 ; Address of exception handler 02d2 0005 | | .CONST 0x0005 ; Number of locals 02d3 INIT_02d0: 02d3 e22a | * | Load 0x1,0x2a 02d4 00db | | Load_Top At_Offset_3 02d5 8216 | | Call 0x1,0x16 02d6 0039 | 9 | Store_Top Access,At_Offset_1 02d7 00db | | Load_Top At_Offset_3 02d8 8231 | 1 | Call 0x1,0x31 02d9 00e3 | | Load_Encached Natural_Cache 02da 03f1 | | Declare_Variable Discrete,With_Value 02db 00d9 | | Load_Top At_Offset_1 02dc 0227 | ' | Execute Access,All_Reference 02dd 2505 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x5 02de 0007 | | Action Break_Optional 02df 00da | | Load_Top At_Offset_2 02e0 0227 | ' | Execute Access,All_Reference 02e1 2403 |$ | Execute Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x3 02e2 0007 | | Action Break_Optional 02e3 BODY_02d0: 02e3 e22c | , | Load 0x1,0x2c 02e4 00db | | Load_Top At_Offset_3 02e5 00db | | Load_Top At_Offset_3 02e6 01d6 | | Execute Vector,Field_Write 02e7 00d8 | | Load_Top At_Offset_0 02e8 00db | | Load_Top At_Offset_3 02e9 027f | | Execute Discrete,Equal 02ea 6815 |h | Jump_Zero 0x300 02eb 00d8 | | Load_Top At_Offset_0 02ec 0aff | | Execute_Immediate Plus,-0x1 02ed c405 | | Store 0x2,0x5 02ee 00cf | | Action Mark_Auxiliary 02ef 4801 |H | Short_Literal 0x1 02f0 00da | | Load_Top At_Offset_2 02f1 0264 | d | Execute Discrete,Below_Bound 02f2 700c |p | Jump_Nonzero 0x2ff 02f3 00d8 | | Load_Top At_Offset_0 02f4 e404 | | Load 0x2,0x4 02f5 01d5 | | Execute Vector,Field_Reference 02f6 e22c | , | Load 0x1,0x2c 02f7 016e | n | Execute Variant_Record,Not_Equal 02f8 6802 |h | Jump_Zero 0x2fb 02f9 00d2 | | Pop_Control Pop_Count_2 02fa 7804 |x | Jump 0x2ff 02fb 00d8 | | Load_Top At_Offset_0 02fc a405 | | Store_Unchecked 0x2,0x5 02fd 00c8 | | Action Pop_Auxiliary_Range 02fe 37f4 |7 | Loop_Decreasing 0x2f3 02ff 00ce | | Action Pop_Auxiliary 0300 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0301 0000 0000 | | .BLANK 0000[0x7] 0308 ; -------------------------------------------------------------------------------------- 0308 ; SUBPROGRAM 0308 ; -------------------------------------------------------------------------------------- 0308 0313 | | .CONST 0x0313 ; Address of begin 0309 0004 | | .CONST 0x0004 ; Address of exception handler 030a 0003 | | .CONST 0x0003 ; Number of locals 030b INIT_0308: 030b e22a | * | Load 0x1,0x2a 030c 00db | | Load_Top At_Offset_3 030d 8216 | | Call 0x1,0x16 030e 0039 | 9 | Store_Top Access,At_Offset_1 030f 00db | | Load_Top At_Offset_3 0310 8231 | 1 | Call 0x1,0x31 0311 00e3 | | Load_Encached Natural_Cache 0312 03f1 | | Declare_Variable Discrete,With_Value 0313 BODY_0308: 0313 e5fe | | Load 0x2,-0x2 0314 01db | | Execute Vector,Length 0315 e22b | + | Load 0x1,0x2b 0316 1c08 | | Execute_Immediate Run_Utility,0x8 0317 e5fe | | Load 0x2,-0x2 0318 00d9 | | Load_Top At_Offset_1 0319 00d8 | | Load_Top At_Offset_0 031a 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2 031b 00da | | Load_Top At_Offset_2 031c 01da | | Execute Vector,Bounds 031d 00da | | Load_Top At_Offset_2 031e 01da | | Execute Vector,Bounds 031f 00da | | Load_Top At_Offset_2 0320 027f | | Execute Discrete,Equal 0321 7001 |p | Jump_Nonzero 0x323 0322 08e0 | | Execute_Immediate Raise,0xe0 0323 00cd | | Action Spare6_Action 0324 027f | | Execute Discrete,Equal 0325 7001 |p | Jump_Nonzero 0x327 0326 08e0 | | Execute_Immediate Raise,0xe0 0327 00d2 | | Pop_Control Pop_Count_2 0328 00d9 | | Load_Top At_Offset_1 0329 2902 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x2 032a 00d9 | | Load_Top At_Offset_1 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 01d6 | | Execute Vector,Field_Write 032f 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0330 ; -------------------------------------------------------------------------------------- 0330 ; SUBPROGRAM 0330 ; -------------------------------------------------------------------------------------- 0330 033b | ; | .CONST 0x033b ; Address of begin 0331 0004 | | .CONST 0x0004 ; Address of exception handler 0332 0003 | | .CONST 0x0003 ; Number of locals 0333 INIT_0330: 0333 e22a | * | Load 0x1,0x2a 0334 00db | | Load_Top At_Offset_3 0335 8216 | | Call 0x1,0x16 0336 0039 | 9 | Store_Top Access,At_Offset_1 0337 00db | | Load_Top At_Offset_3 0338 8231 | 1 | Call 0x1,0x31 0339 00e3 | | Load_Encached Natural_Cache 033a 03f1 | | Declare_Variable Discrete,With_Value 033b BODY_0330: 033b e5fd | | Load 0x2,-0x3 033c e5fe | | Load 0x2,-0x2 033d 00da | | Load_Top At_Offset_2 033e e402 | | Load 0x2,0x2 033f 0227 | ' | Execute Access,All_Reference 0340 2505 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x5 0341 01d5 | | Execute Vector,Field_Reference 0342 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2 0343 01d6 | | Execute Vector,Field_Write 0344 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0345 0000 0000 | | .XXX[0x3] 0347 0000 | | 0348 ; -------------------------------------------------------------------------------------- 0348 ; SUBPROGRAM 0348 ; -------------------------------------------------------------------------------------- 0348 0353 | S | .CONST 0x0353 ; Address of begin 0349 0004 | | .CONST 0x0004 ; Address of exception handler 034a 0003 | | .CONST 0x0003 ; Number of locals 034b INIT_0348: 034b 00da | | Load_Top At_Offset_2 034c 8231 | 1 | Call 0x1,0x31 034d 00e3 | | Load_Encached Natural_Cache 034e 03f1 | | Declare_Variable Discrete,With_Value 034f e22a | * | Load 0x1,0x2a 0350 e5ff | | Load 0x2,-0x1 0351 8216 | | Call 0x1,0x16 0352 0039 | 9 | Store_Top Access,At_Offset_1 0353 BODY_0348: 0353 00d8 | | Load_Top At_Offset_0 0354 00da | | Load_Top At_Offset_2 0355 8232 | 2 | Call 0x1,0x32 0356 6823 |h# | Jump_Zero 0x37a 0357 e5fe | | Load 0x2,-0x2 0358 00d9 | | Load_Top At_Offset_1 0359 0227 | ' | Execute Access,All_Reference 035a 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 035b e009 | | Load 0x0,0x9 035c 1c04 | | Execute_Immediate Run_Utility,0x4 035d e009 | | Load 0x0,0x9 035e 0122 | " | Execute Any,Make_Root_Type 035f 011c | | Execute Any,Convert_Unchecked 0360 1c01 | | Execute_Immediate Run_Utility,0x1 0361 0092 06b2 | | Action Push_String_Extended,0x6b2 ; "'(" 0363 01cc | | Execute Vector,Catenate 0364 8011 | | Call 0x0,0x11 0365 e5fe | | Load 0x2,-0x2 0366 8012 | | Call 0x0,0x12 0367 e5fe | | Load 0x2,-0x2 0368 00d9 | | Load_Top At_Offset_1 0369 0227 | ' | Execute Access,All_Reference 036a 2404 |$ | Execute Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x4 036b 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2 036c 00db | | Load_Top At_Offset_3 036d 00db | | Load_Top At_Offset_3 036e 0227 | ' | Execute Access,All_Reference 036f 2505 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x5 0370 01d5 | | Execute Vector,Field_Reference 0371 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2 0372 8237 | 7 | Call 0x1,0x37 0373 e5fe | | Load 0x2,-0x2 0374 8013 | | Call 0x0,0x13 0375 e5fe | | Load 0x2,-0x2 0376 0092 06b3 | | Action Push_String_Extended,0x6b3 ; ")" 0378 8011 | | Call 0x0,0x11 0379 4503 |E | Exit_Suprogram New_Top_Offset 0x3 037a e5fe | | Load 0x2,-0x2 037b 0092 06b4 | | Action Push_String_Extended,0x6b4 ; "null_object" 037d 8011 | | Call 0x0,0x11 037e 4503 |E | Exit_Suprogram New_Top_Offset 0x3 037f 0000 | | .XXX[0x1] 0380 ; -------------------------------------------------------------------------------------- 0380 ; SUBPROGRAM 0380 ; -------------------------------------------------------------------------------------- 0380 0383 | | .CONST 0x0383 ; Address of begin 0381 0004 | | .CONST 0x0004 ; Address of exception handler 0382 0001 | | .CONST 0x0001 ; Number of locals 0383 BODY_0380: 0383 INIT_0380: 0383 00db | | Load_Top At_Offset_3 0384 0092 06b5 | | Action Push_String_Extended,0x6b5 ; "Collection'(" 0386 8011 | | Call 0x0,0x11 0387 00db | | Load_Top At_Offset_3 0388 8012 | | Call 0x0,0x12 0389 00da | | Load_Top At_Offset_2 038a 01db | | Execute Vector,Length 038b 680d |h | Jump_Zero 0x399 038c 00cf | | Action Mark_Auxiliary 038d 00db | | Load_Top At_Offset_3 038e 01d9 | | Execute Vector,Reverse_Bounds 038f 0263 | c | Execute Discrete,Above_Bound 0390 7007 |p | Jump_Nonzero 0x398 0391 e5fe | | Load 0x2,-0x2 0392 00d9 | | Load_Top At_Offset_1 0393 e5ff | | Load 0x2,-0x1 0394 01d5 | | Execute Vector,Field_Reference 0395 8224 | $ | Call 0x1,0x24 0396 00c8 | | Action Pop_Auxiliary_Range 0397 3ff9 |? | Loop_Increasing 0x391 0398 00ce | | Action Pop_Auxiliary 0399 00db | | Load_Top At_Offset_3 039a 8013 | | Call 0x0,0x13 039b 4801 |H | Short_Literal 0x1 039c e5fe | | Load 0x2,-0x2 039d 8014 | | Call 0x0,0x14 039e 00db | | Load_Top At_Offset_3 039f 0092 06b3 | | Action Push_String_Extended,0x6b3 ; ")" 03a1 8011 | | Call 0x0,0x11 03a2 4503 |E | Exit_Suprogram New_Top_Offset 0x3 03a3 0000 0000 | | .BLANK 0000[0x5] 03a8 ; -------------------------------------------------------------------------------------- 03a8 ; SUBPROGRAM 03a8 ; -------------------------------------------------------------------------------------- 03a8 03bb | | .CONST 0x03bb ; Address of begin 03a9 0004 | | .CONST 0x0004 ; Address of exception handler 03aa 0004 | | .CONST 0x0004 ; Number of locals 03ab INIT_03a8: 03ab 1d27 | ' | Execute_Immediate Reference_Lex_1,0x27 03ac 00c6 | | Action Check_Subprogram_Elaborated 03ad 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24 03ae 0093 0000 | | push_full_address 0x0 03b0 601b |` | Indirect_Literal Discrete,0x3cc,{0x80000000, 0x00010000} 03b1 0273 | s | Execute Discrete,Plus 03b2 e007 | | Load 0x0,0x7 03b3 1b0d | | Execute Package,Field_Read,Field_Number 0xd 03b4 6013 |` | Indirect_Literal Discrete,0x3c8,{0x00000000, 0x0000ffff} 03b5 0279 | y | Execute Discrete,And 03b6 0273 | s | Execute Discrete,Plus 03b7 e015 | | Load 0x0,0x15 03b8 0273 | s | Execute Discrete,Plus 03b9 4804 |H | Short_Literal 0x4 03ba 0007 | | Action Break_Optional 03bb BODY_03a8: 03bb e5fe | | Load 0x2,-0x2 03bc e5ff | | Load 0x2,-0x1 03bd 4802 |H | Short_Literal 0x2 03be 4802 |H | Short_Literal 0x2 03bf 0099 | | Action Reference_Dynamic 03c0 4803 |H | Short_Literal 0x3 03c1 4802 |H | Short_Literal 0x2 03c2 0099 | | Action Reference_Dynamic 03c3 8227 | ' | Call 0x1,0x27 03c4 4503 |E | Exit_Suprogram New_Top_Offset 0x3 03c5 0000 0000 | | .XXX[0x3] 03c7 0000 | | 03c8 0000 0000 | | .LITERAL {0x00000000, 0x0000ffff} 03cc 8000 0000 | | .LITERAL {0x80000000, 0x00010000} 03d0 ; -------------------------------------------------------------------------------------- 03d0 ; SUBPROGRAM 03d0 ; -------------------------------------------------------------------------------------- 03d0 03d3 | | .CONST 0x03d3 ; Address of begin 03d1 0004 | | .CONST 0x0004 ; Address of exception handler 03d2 0001 | | .CONST 0x0001 ; Number of locals 03d3 BODY_03d0: 03d3 INIT_03d0: 03d3 e5fd | | Load 0x2,-0x3 03d4 e22a | * | Load 0x1,0x2a 03d5 022e | . | Execute Access,Not_Equal 03d6 6845 |hE | Jump_Zero 0x41c 03d7 e5fc | | Load 0x2,-0x4 03d8 0092 06b6 | | Action Push_String_Extended,0x6b6 ; "Class'(" 03da 8011 | | Call 0x0,0x11 03db e5fc | | Load 0x2,-0x4 03dc 8012 | | Call 0x0,0x12 03dd e5fc | | Load 0x2,-0x4 03de 0092 06b7 | | Action Push_String_Extended,0x6b7 ; "Kind => " 03e0 e5fd | | Load 0x2,-0x3 03e1 0227 | ' | Execute Access,All_Reference 03e2 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 03e3 e009 | | Load 0x0,0x9 03e4 1c04 | | Execute_Immediate Run_Utility,0x4 03e5 e009 | | Load 0x0,0x9 03e6 0122 | " | Execute Any,Make_Root_Type 03e7 011c | | Execute Any,Convert_Unchecked 03e8 1c01 | | Execute_Immediate Run_Utility,0x1 03e9 01cc | | Execute Vector,Catenate 03ea 8011 | | Call 0x0,0x11 03eb e5fc | | Load 0x2,-0x4 03ec 0092 06b8 | | Action Push_String_Extended,0x6b8 ; "Size => " 03ee e5fd | | Load 0x2,-0x3 03ef 0227 | ' | Execute Access,All_Reference 03f0 2c03 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3 03f1 00e0 | | Load_Encached Standard_Cache 03f2 1818 | | Execute Package,Field_Execute,Field_Number 0x18 03f3 01cc | | Execute Vector,Catenate 03f4 8011 | | Call 0x0,0x11 03f5 e5fc | | Load 0x2,-0x4 03f6 0092 06b9 | | Action Push_String_Extended,0x6b9 ; "Instances => Collection'(" 03f8 8011 | | Call 0x0,0x11 03f9 e5fc | | Load 0x2,-0x4 03fa 8012 | | Call 0x0,0x12 03fb 00cf | | Action Mark_Auxiliary 03fc e5fd | | Load 0x2,-0x3 03fd 8219 | | Call 0x1,0x19 03fe 4801 |H | Short_Literal 0x1 03ff 0263 | c | Execute Discrete,Above_Bound 0400 700e |p | Jump_Nonzero 0x40f 0401 e5fc | | Load 0x2,-0x4 0402 00d9 | | Load_Top At_Offset_1 0403 8016 | | Call 0x0,0x16 0404 e5fc | | Load 0x2,-0x4 0405 0092 06ba | | Action Push_String_Extended,0x6ba ; " => " 0407 8017 | | Call 0x0,0x17 0408 e5fc | | Load 0x2,-0x4 0409 e5fd | | Load 0x2,-0x3 040a 00da | | Load_Top At_Offset_2 040b 8214 | | Call 0x1,0x14 040c 85fe | | Call 0x2,-0x2 040d 00c8 | | Action Pop_Auxiliary_Range 040e 3ff2 |? | Loop_Increasing 0x401 040f 00ce | | Action Pop_Auxiliary 0410 e5fc | | Load 0x2,-0x4 0411 8013 | | Call 0x0,0x13 0412 e5fc | | Load 0x2,-0x4 0413 0092 06b3 | | Action Push_String_Extended,0x6b3 ; ")" 0415 8011 | | Call 0x0,0x11 0416 e5fc | | Load 0x2,-0x4 0417 8013 | | Call 0x0,0x13 0418 e5fc | | Load 0x2,-0x4 0419 0092 06b3 | | Action Push_String_Extended,0x6b3 ; ")" 041b 8011 | | Call 0x0,0x11 041c 4505 |E | Exit_Suprogram New_Top_Offset 0x5 041d 0000 0000 | | .XXX[0x3] 041f 0000 | | 0420 ; -------------------------------------------------------------------------------------- 0420 ; SUBPROGRAM 0420 ; SUBPROGRAM 0420 ; -------------------------------------------------------------------------------------- 0420 0423 | # | .CONST 0x0423 ; Address of begin 0421 0004 | | .CONST 0x0004 ; Address of exception handler 0422 0001 | | .CONST 0x0001 ; Number of locals 0423 BODY_0420: 0423 BODY_0420: 0423 INIT_0420: 0423 INIT_0420: 0423 4609 |F | Jump_Case 0xa 0424 7809 |x | Jump 0x42e ; case 0x0 0425 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 0426 782d |x- | Jump 0x454 ; case 0x2 0427 7830 |x0 | Jump 0x458 ; case 0x3 0428 7835 |x5 | Jump 0x45e ; case 0x4 0429 783c |x< | Jump 0x466 ; case 0x5 042a 7858 |xX | Jump 0x483 ; case 0x6 042b 7844 |xD | Jump 0x470 ; case 0x7 042c 784c |xL | Jump 0x479 ; case 0x8 042d 7855 |xU | Jump 0x483 ; case 0x9 042e 4800 |H | Short_Literal 0x0 042f 00db | | Load_Top At_Offset_3 0430 2803 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3 0431 00da | | Load_Top At_Offset_2 0432 2505 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x5 0433 0335 | 5 | Declare_Variable Array,Duplicate 0434 00cd | | Action Spare6_Action 0435 00db | | Load_Top At_Offset_3 0436 2505 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x5 0437 01d9 | | Execute Vector,Reverse_Bounds 0438 0263 | c | Execute Discrete,Above_Bound 0439 7005 |p | Jump_Nonzero 0x43f 043a e22c | , | Load 0x1,0x2c 043b 00d9 | | Load_Top At_Offset_1 043c e402 | | Load 0x2,0x2 043d 01d6 | | Execute Vector,Field_Write 043e 3ffb |? | Loop_Increasing 0x43a 043f 00db | | Load_Top At_Offset_3 0440 00d8 | | Load_Top At_Offset_0 0441 2505 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x5 0442 00da | | Load_Top At_Offset_2 0443 01da | | Execute Vector,Bounds 0444 00da | | Load_Top At_Offset_2 0445 01da | | Execute Vector,Bounds 0446 00da | | Load_Top At_Offset_2 0447 027f | | Execute Discrete,Equal 0448 7001 |p | Jump_Nonzero 0x44a 0449 08e0 | | Execute_Immediate Raise,0xe0 044a 00cd | | Action Spare6_Action 044b 027f | | Execute Discrete,Equal 044c 7001 |p | Jump_Nonzero 0x44e 044d 08e0 | | Execute_Immediate Raise,0xe0 044e 00d1 | | Pop_Control Pop_Count_1 044f 2905 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x5 0450 00da | | Load_Top At_Offset_2 0451 2404 |$ | Execute Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x4 0452 1c00 | | Execute_Immediate Run_Utility,0x0 0453 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0454 4801 |H | Short_Literal 0x1 0455 4805 |H | Short_Literal 0x5 0456 0311 | | Declare_Type Variant_Record,Constrained_Incomplete 0457 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0458 e5fd | | Load 0x2,-0x3 0459 00db | | Load_Top At_Offset_3 045a 1c07 | | Execute_Immediate Run_Utility,0x7 045b e5fe | | Load 0x2,-0x2 045c 0306 | | Complete_Type Variant_Record,By_Renaming 045d 4304 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x4 045e 4801 |H | Short_Literal 0x1 045f 4805 |H | Short_Literal 0x5 0460 0311 | | Declare_Type Variant_Record,Constrained_Incomplete 0461 e5fe | | Load 0x2,-0x2 0462 e5ff | | Load 0x2,-0x1 0463 00da | | Load_Top At_Offset_2 0464 0305 | | Complete_Type Variant_Record,By_Constraining_Incomplete 0465 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0466 4801 |H | Short_Literal 0x1 0467 4801 |H | Short_Literal 0x1 0468 e5ff | | Load 0x2,-0x1 0469 0169 | i | Execute Variant_Record,Read_Discriminant_Constraint 046a e22d | - | Load 0x1,0x2d 046b 035b | [ | Declare_Type Array,Constrained 046c 4801 |H | Short_Literal 0x1 046d e5ff | | Load 0x2,-0x1 046e 0304 | | Complete_Type Variant_Record,By_Completing_Constraint 046f 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0470 00db | | Load_Top At_Offset_3 0471 4801 |H | Short_Literal 0x1 0472 e5fe | | Load 0x2,-0x2 0473 e22d | - | Load 0x1,0x2d 0474 035b | [ | Declare_Type Array,Constrained 0475 4801 |H | Short_Literal 0x1 0476 e5ff | | Load 0x2,-0x1 0477 031b | | Declare_Type Variant_Record,Constrained 0478 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0479 00db | | Load_Top At_Offset_3 047a 00db | | Load_Top At_Offset_3 047b 02fc | | Declare_Variable Variant_Record,With_Constraint 047c 4801 |H | Short_Literal 0x1 047d e5fe | | Load 0x2,-0x2 047e e22d | - | Load 0x1,0x2d 047f 0334 | 4 | Declare_Variable Array,With_Constraint 0480 2d05 |- | Execute Variant_Record,Field_Append,Fixed,Indirect,Field_Number 0x5 0481 016a | j | QQ_execute Variant_Record,XXX 0482 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0483 0869 | i | Execute_Immediate Raise,0x69 0484 0000 0000 | | .BLANK 0000[0x4] 0488 ; -------------------------------------------------------------------------------------- 0488 ; SUBPROGRAM 0488 ; -------------------------------------------------------------------------------------- 0488 048b | | .CONST 0x048b ; Address of begin 0489 0004 | | .CONST 0x0004 ; Address of exception handler 048a 0001 | | .CONST 0x0001 ; Number of locals 048b BODY_0488: 048b INIT_0488: 048b 4609 |F | Jump_Case 0xa 048c 7809 |x | Jump 0x496 ; case 0x0 048d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 048e 7817 |x | Jump 0x4a6 ; case 0x2 048f 781a |x | Jump 0x4aa ; case 0x3 0490 7836 |x6 | Jump 0x4c7 ; case 0x4 0491 7835 |x5 | Jump 0x4c7 ; case 0x5 0492 7834 |x4 | Jump 0x4c7 ; case 0x6 0493 781c |x | Jump 0x4b0 ; case 0x7 0494 7824 |x$ | Jump 0x4b9 ; case 0x8 0495 782d |x- | Jump 0x4c3 ; case 0x9 0496 00da | | Load_Top At_Offset_2 0497 016c | l | Execute Variant_Record,Is_Constrained 0498 7009 |p | Jump_Nonzero 0x4a2 0499 00cf | | Action Mark_Auxiliary 049a 4800 |H | Short_Literal 0x0 049b e5ff | | Load 0x2,-0x1 049c 1c08 | | Execute_Immediate Run_Utility,0x8 049d 00d8 | | Load_Top At_Offset_0 049e 1c00 | | Execute_Immediate Run_Utility,0x0 049f c5ff | | Store 0x2,-0x1 04a0 00ce | | Action Pop_Auxiliary 04a1 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 04a2 00da | | Load_Top At_Offset_2 04a3 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2 04a4 1c00 | | Execute_Immediate Run_Utility,0x0 04a5 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 04a6 4801 |H | Short_Literal 0x1 04a7 4802 |H | Short_Literal 0x2 04a8 0311 | | Declare_Type Variant_Record,Constrained_Incomplete 04a9 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 04aa e5fd | | Load 0x2,-0x3 04ab 00db | | Load_Top At_Offset_3 04ac 1c07 | | Execute_Immediate Run_Utility,0x7 04ad e5fe | | Load 0x2,-0x2 04ae 0306 | | Complete_Type Variant_Record,By_Renaming 04af 4304 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x4 04b0 00db | | Load_Top At_Offset_3 04b1 4801 |H | Short_Literal 0x1 04b2 e5fe | | Load 0x2,-0x2 04b3 e212 | | Load 0x1,0x12 04b4 035b | [ | Declare_Type Array,Constrained 04b5 4801 |H | Short_Literal 0x1 04b6 e5ff | | Load 0x2,-0x1 04b7 031b | | Declare_Type Variant_Record,Constrained 04b8 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 04b9 00db | | Load_Top At_Offset_3 04ba 00db | | Load_Top At_Offset_3 04bb 02fc | | Declare_Variable Variant_Record,With_Constraint 04bc 4801 |H | Short_Literal 0x1 04bd e5fe | | Load 0x2,-0x2 04be e212 | | Load 0x1,0x12 04bf 0334 | 4 | Declare_Variable Array,With_Constraint 04c0 2d02 |- | Execute Variant_Record,Field_Append,Fixed,Indirect,Field_Number 0x2 04c1 016a | j | QQ_execute Variant_Record,XXX 04c2 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 04c3 4800 |H | Short_Literal 0x0 04c4 00db | | Load_Top At_Offset_3 04c5 1c07 | | Execute_Immediate Run_Utility,0x7 04c6 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 04c7 0869 | i | Execute_Immediate Raise,0x69 04c8 ; -------------------------------------------------------------------------------------- 04c8 ; SUBPROGRAM 04c8 ; -------------------------------------------------------------------------------------- 04c8 04cb | | .CONST 0x04cb ; Address of begin 04c9 0004 | | .CONST 0x0004 ; Address of exception handler 04ca 0001 | | .CONST 0x0001 ; Number of locals 04cb BODY_04c8: 04cb INIT_04c8: 04cb 00d1 | | Pop_Control Pop_Count_1 04cc 00da | | Load_Top At_Offset_2 04cd 01d8 | | Execute Vector,Element_Type 04ce 02ff | | Declare_Variable Variant_Record 04cf 00d8 | | Load_Top At_Offset_0 04d0 1c00 | | Execute_Immediate Run_Utility,0x0 04d1 00db | | Load_Top At_Offset_3 04d2 01dc | | Execute Vector,Last 04d3 e5ff | | Load 0x2,-0x1 04d4 01dd | | Execute Vector,First 04d5 0263 | c | Execute Discrete,Above_Bound 04d6 7006 |p | Jump_Nonzero 0x4dd 04d7 00da | | Load_Top At_Offset_2 04d8 00d9 | | Load_Top At_Offset_1 04d9 e5ff | | Load 0x2,-0x1 04da 01d6 | | Execute Vector,Field_Write 04db 0a01 | | Execute_Immediate Plus,0x1 04dc 7ff8 | | Jump 0x4d5 04dd 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 04de 0000 0000 | | .XXX[0x2] 04e0 ; -------------------------------------------------------------------------------------- 04e0 ; SUBPROGRAM 04e0 ; -------------------------------------------------------------------------------------- 04e0 04e3 | | .CONST 0x04e3 ; Address of begin 04e1 0004 | | .CONST 0x0004 ; Address of exception handler 04e2 0001 | | .CONST 0x0001 ; Number of locals 04e3 BODY_04e0: 04e3 INIT_04e0: 04e3 4609 |F | Jump_Case 0xa 04e4 7809 |x | Jump 0x4ee ; case 0x0 04e5 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 04e6 7813 |x | Jump 0x4fa ; case 0x2 04e7 7816 |x | Jump 0x4fe ; case 0x3 04e8 7832 |x2 | Jump 0x51b ; case 0x4 04e9 7831 |x1 | Jump 0x51b ; case 0x5 04ea 7830 |x0 | Jump 0x51b ; case 0x6 04eb 7818 |x | Jump 0x504 ; case 0x7 04ec 7820 |x | Jump 0x50d ; case 0x8 04ed 7829 |x) | Jump 0x517 ; case 0x9 04ee 00da | | Load_Top At_Offset_2 04ef 016c | l | Execute Variant_Record,Is_Constrained 04f0 7008 |p | Jump_Nonzero 0x4f9 04f1 00cf | | Action Mark_Auxiliary 04f2 4800 |H | Short_Literal 0x0 04f3 e5ff | | Load 0x2,-0x1 04f4 1c08 | | Execute_Immediate Run_Utility,0x8 04f5 00d8 | | Load_Top At_Offset_0 04f6 1c00 | | Execute_Immediate Run_Utility,0x0 04f7 c5ff | | Store 0x2,-0x1 04f8 00ce | | Action Pop_Auxiliary 04f9 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 04fa 4801 |H | Short_Literal 0x1 04fb 4802 |H | Short_Literal 0x2 04fc 0311 | | Declare_Type Variant_Record,Constrained_Incomplete 04fd 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 04fe e5fd | | Load 0x2,-0x3 04ff 00db | | Load_Top At_Offset_3 0500 1c07 | | Execute_Immediate Run_Utility,0x7 0501 e5fe | | Load 0x2,-0x2 0502 0306 | | Complete_Type Variant_Record,By_Renaming 0503 4304 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x4 0504 00db | | Load_Top At_Offset_3 0505 4801 |H | Short_Literal 0x1 0506 e5fe | | Load 0x2,-0x2 0507 e213 | | Load 0x1,0x13 0508 035b | [ | Declare_Type Array,Constrained 0509 4801 |H | Short_Literal 0x1 050a e5ff | | Load 0x2,-0x1 050b 031b | | Declare_Type Variant_Record,Constrained 050c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 050d 00db | | Load_Top At_Offset_3 050e 00db | | Load_Top At_Offset_3 050f 02fc | | Declare_Variable Variant_Record,With_Constraint 0510 4801 |H | Short_Literal 0x1 0511 e5fe | | Load 0x2,-0x2 0512 e213 | | Load 0x1,0x13 0513 0334 | 4 | Declare_Variable Array,With_Constraint 0514 2d02 |- | Execute Variant_Record,Field_Append,Fixed,Indirect,Field_Number 0x2 0515 016a | j | QQ_execute Variant_Record,XXX 0516 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0517 4800 |H | Short_Literal 0x0 0518 00db | | Load_Top At_Offset_3 0519 1c07 | | Execute_Immediate Run_Utility,0x7 051a 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 051b 0869 | i | Execute_Immediate Raise,0x69 051c 0000 0000 | | .BLANK 0000[0x4] 0520 ; -------------------------------------------------------------------------------------- 0520 ; SUBPROGRAM 0520 ; -------------------------------------------------------------------------------------- 0520 0523 | # | .CONST 0x0523 ; Address of begin 0521 0004 | | .CONST 0x0004 ; Address of exception handler 0522 0001 | | .CONST 0x0001 ; Number of locals 0523 BODY_0520: 0523 INIT_0520: 0523 00da | | Load_Top At_Offset_2 0524 8218 | | Call 0x1,0x18 0525 e009 | | Load 0x0,0x9 0526 1c04 | | Execute_Immediate Run_Utility,0x4 0527 00d8 | | Load_Top At_Offset_0 0528 00e3 | | Load_Encached Natural_Cache 0529 0260 | ` | Execute Discrete,In_Type 052a 7001 |p | Jump_Nonzero 0x52c 052b 0801 | | Execute_Immediate Raise,0x1 052c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 052d 0000 0000 | | .XXX[0x3] 052f 0000 | | 0530 ; -------------------------------------------------------------------------------------- 0530 ; SUBPROGRAM 0530 ; -------------------------------------------------------------------------------------- 0530 0533 | 3 | .CONST 0x0533 ; Address of begin 0531 0004 | | .CONST 0x0004 ; Address of exception handler 0532 0001 | | .CONST 0x0001 ; Number of locals 0533 BODY_0530: 0533 INIT_0530: 0533 00da | | Load_Top At_Offset_2 0534 e009 | | Load 0x0,0x9 0535 1c05 | | Execute_Immediate Run_Utility,0x5 0536 00d8 | | Load_Top At_Offset_0 0537 e009 | | Load 0x0,0x9 0538 0122 | " | Execute Any,Make_Root_Type 0539 0260 | ` | Execute Discrete,In_Type 053a 7001 |p | Jump_Nonzero 0x53c 053b 0801 | | Execute_Immediate Raise,0x1 053c 00d8 | | Load_Top At_Offset_0 053d e009 | | Load 0x0,0x9 053e 0260 | ` | Execute Discrete,In_Type 053f 7001 |p | Jump_Nonzero 0x541 0540 0801 | | Execute_Immediate Raise,0x1 0541 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0542 0000 0000 | | .BLANK 0000[0x6] 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 00da | | Load_Top At_Offset_2 054c 8018 | | Call 0x0,0x18 054d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 054e 0000 0000 | | .XXX[0x2] 0550 ; -------------------------------------------------------------------------------------- 0550 ; SUBPROGRAM 0550 ; -------------------------------------------------------------------------------------- 0550 0553 | S | .CONST 0x0553 ; Address of begin 0551 0004 | | .CONST 0x0004 ; Address of exception handler 0552 0001 | | .CONST 0x0001 ; Number of locals 0553 BODY_0550: 0553 INIT_0550: 0553 00db | | Load_Top At_Offset_3 0554 e22a | * | Load 0x1,0x2a 0555 022e | . | Execute Access,Not_Equal 0556 680a |h | Jump_Zero 0x561 0557 00da | | Load_Top At_Offset_2 0558 6806 |h | Jump_Zero 0x55f 0559 00da | | Load_Top At_Offset_2 055a e5fe | | Load 0x2,-0x2 055b 0227 | ' | Execute Access,All_Reference 055c 2c03 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3 055d 027a | z | Execute Discrete,Less_Equal 055e 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 055f 4800 |H | Short_Literal 0x0 0560 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0561 4800 |H | Short_Literal 0x0 0562 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0563 0000 0000 | | .BLANK 0000[0x5] 0568 ; -------------------------------------------------------------------------------------- 0568 ; SUBPROGRAM 0568 ; -------------------------------------------------------------------------------------- 0568 0571 | q | .CONST 0x0571 ; Address of begin 0569 0004 | | .CONST 0x0004 ; Address of exception handler 056a 0003 | | .CONST 0x0003 ; Number of locals 056b INIT_0568: 056b 00da | | Load_Top At_Offset_2 056c 8215 | | Call 0x1,0x15 056d 821e | | Call 0x1,0x1e 056e e5fe | | Load 0x2,-0x2 056f 8215 | | Call 0x1,0x15 0570 821e | | Call 0x1,0x1e 0571 BODY_0568: 0571 00d9 | | Load_Top At_Offset_1 0572 01db | | Execute Vector,Length 0573 00d9 | | Load_Top At_Offset_1 0574 01db | | Execute Vector,Length 0575 027f | | Execute Discrete,Equal 0576 6823 |h# | Jump_Zero 0x59a 0577 00cf | | Action Mark_Auxiliary 0578 00da | | Load_Top At_Offset_2 0579 01d9 | | Execute Vector,Reverse_Bounds 057a 0263 | c | Execute Discrete,Above_Bound 057b 701b |p | Jump_Nonzero 0x597 057c 00d8 | | Load_Top At_Offset_0 057d e402 | | Load 0x2,0x2 057e 01d5 | | Execute Vector,Field_Reference 057f 8019 | | Call 0x0,0x19 0580 680a |h | Jump_Zero 0x58b 0581 00d8 | | Load_Top At_Offset_0 0582 e403 | | Load 0x2,0x3 0583 01d5 | | Execute Vector,Field_Reference 0584 00d9 | | Load_Top At_Offset_1 0585 e402 | | Load 0x2,0x2 0586 01d5 | | Execute Vector,Field_Reference 0587 8233 | 3 | Call 0x1,0x33 0588 700c |p | Jump_Nonzero 0x595 0589 4800 |H | Short_Literal 0x0 058a 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 058b 00d8 | | Load_Top At_Offset_0 058c e402 | | Load 0x2,0x2 058d 01d5 | | Execute Vector,Field_Reference 058e 00d9 | | Load_Top At_Offset_1 058f e403 | | Load 0x2,0x3 0590 01d5 | | Execute Vector,Field_Reference 0591 016f | o | Execute Variant_Record,Equal 0592 7002 |p | Jump_Nonzero 0x595 0593 4800 |H | Short_Literal 0x0 0594 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0595 00c8 | | Action Pop_Auxiliary_Range 0596 3fe5 |? | Loop_Increasing 0x57c 0597 00ce | | Action Pop_Auxiliary 0598 4801 |H | Short_Literal 0x1 0599 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 059a 4800 |H | Short_Literal 0x0 059b 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 059c 0000 0000 | | .BLANK 0000[0x4] 05a0 ; -------------------------------------------------------------------------------------- 05a0 ; SUBPROGRAM 05a0 ; -------------------------------------------------------------------------------------- 05a0 05b1 | | .CONST 0x05b1 ; Address of begin 05a1 0004 | | .CONST 0x0004 ; Address of exception handler 05a2 0005 | | .CONST 0x0005 ; Number of locals 05a3 INIT_05a0: 05a3 e003 | | Load 0x0,0x3 05a4 0322 | " | Declare_Variable Record 05a5 00db | | Load_Top At_Offset_3 05a6 8215 | | Call 0x1,0x15 05a7 00d9 | | Load_Top At_Offset_1 05a8 017d | } | Execute Record,Structure_Write 05a9 e22a | * | Load 0x1,0x2a 05aa 00d9 | | Load_Top At_Offset_1 05ab 8216 | | Call 0x1,0x16 05ac 0039 | 9 | Store_Top Access,At_Offset_1 05ad 029f 0673 | s| Declare_Subprogram INIT_0670,For_Call 05af 029f 0683 | | Declare_Subprogram INIT_0680,For_Call 05b1 BODY_05a0: 05b1 e5fe | | Load 0x2,-0x2 05b2 801a | | Call 0x0,0x1a 05b3 6802 |h | Jump_Zero 0x5b6 05b4 8404 | | Call 0x2,0x4 05b5 7826 |x& | Jump 0x5dc 05b6 e5fe | | Load 0x2,-0x2 05b7 801b | | Call 0x0,0x1b 05b8 6802 |h | Jump_Zero 0x5bb 05b9 8405 | | Call 0x2,0x5 05ba 7821 |x! | Jump 0x5dc 05bb e5fe | | Load 0x2,-0x2 05bc 801c | | Call 0x0,0x1c 05bd 6806 |h | Jump_Zero 0x5c4 05be e5fe | | Load 0x2,-0x2 05bf 801d | | Call 0x0,0x1d 05c0 801e | | Call 0x0,0x1e 05c1 e5ff | | Load 0x2,-0x1 05c2 8233 | 3 | Call 0x1,0x33 05c3 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 05c4 e5fe | | Load 0x2,-0x2 05c5 801f | | Call 0x0,0x1f 05c6 6807 |h | Jump_Zero 0x5ce 05c7 e5fe | | Load 0x2,-0x2 05c8 801d | | Call 0x0,0x1d 05c9 801e | | Call 0x0,0x1e 05ca e5ff | | Load 0x2,-0x1 05cb 8233 | 3 | Call 0x1,0x33 05cc 0f00 | | Execute_Immediate Equal,0x0 05cd 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 05ce e5fe | | Load 0x2,-0x2 05cf 8020 | | Call 0x0,0x20 05d0 6804 |h | Jump_Zero 0x5d5 05d1 e5fe | | Load 0x2,-0x2 05d2 e5ff | | Load 0x2,-0x1 05d3 8021 | ! | Call 0x0,0x21 05d4 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 05d5 e5fe | | Load 0x2,-0x2 05d6 8022 | " | Call 0x0,0x22 05d7 6804 |h | Jump_Zero 0x5dc 05d8 e5fe | | Load 0x2,-0x2 05d9 e5ff | | Load 0x2,-0x1 05da 8021 | ! | Call 0x0,0x21 05db 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 05dc 0831 | 1 | Execute_Immediate Raise,0x31 05dd 0000 0000 | | .XXX[0x3] 05df 0000 | | 05e0 ; -------------------------------------------------------------------------------------- 05e0 ; SUBPROGRAM 05e0 ; -------------------------------------------------------------------------------------- 05e0 05e3 | | .CONST 0x05e3 ; Address of begin 05e1 0004 | | .CONST 0x0004 ; Address of exception handler 05e2 0001 | | .CONST 0x0001 ; Number of locals 05e3 BODY_05e0: 05e3 INIT_05e0: 05e3 00cf | | Action Mark_Auxiliary 05e4 00db | | Load_Top At_Offset_3 05e5 01d9 | | Execute Vector,Reverse_Bounds 05e6 0263 | c | Execute Discrete,Above_Bound 05e7 701d |p | Jump_Nonzero 0x605 05e8 00d8 | | Load_Top At_Offset_0 05e9 e5ff | | Load 0x2,-0x1 05ea 01d5 | | Execute Vector,Field_Reference 05eb 8019 | | Call 0x0,0x19 05ec 680c |h | Jump_Zero 0x5f9 05ed 00d8 | | Load_Top At_Offset_0 05ee e5fe | | Load 0x2,-0x2 05ef 01d7 | | Execute Vector,Field_Read 05f0 e023 | # | Load 0x0,0x23 05f1 0119 | | Execute Any,Check_In_Formal_Type 05f2 00d9 | | Load_Top At_Offset_1 05f3 e5ff | | Load 0x2,-0x1 05f4 01d5 | | Execute Vector,Field_Reference 05f5 8234 | 4 | Call 0x1,0x34 05f6 700c |p | Jump_Nonzero 0x603 05f7 4800 |H | Short_Literal 0x0 05f8 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 05f9 00d8 | | Load_Top At_Offset_0 05fa e5fe | | Load 0x2,-0x2 05fb 01d7 | | Execute Vector,Field_Read 05fc 00d9 | | Load_Top At_Offset_1 05fd e5ff | | Load 0x2,-0x1 05fe 01d5 | | Execute Vector,Field_Reference 05ff 8021 | ! | Call 0x0,0x21 0600 7002 |p | Jump_Nonzero 0x603 0601 4800 |H | Short_Literal 0x0 0602 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0603 00c8 | | Action Pop_Auxiliary_Range 0604 3fe3 |? | Loop_Increasing 0x5e8 0605 00ce | | Action Pop_Auxiliary 0606 4801 |H | Short_Literal 0x1 0607 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0608 ; -------------------------------------------------------------------------------------- 0608 ; SUBPROGRAM 0608 ; -------------------------------------------------------------------------------------- 0608 060f | | .CONST 0x060f ; Address of begin 0609 0004 | | .CONST 0x0004 ; Address of exception handler 060a 0002 | | .CONST 0x0002 ; Number of locals 060b INIT_0608: 060b e003 | | Load 0x0,0x3 060c 0322 | " | Declare_Variable Record 060d 00d8 | | Load_Top At_Offset_0 060e 1c00 | | Execute_Immediate Run_Utility,0x0 060f BODY_0608: 060f 00db | | Load_Top At_Offset_3 0610 8019 | | Call 0x0,0x19 0611 6808 |h | Jump_Zero 0x61a 0612 00db | | Load_Top At_Offset_3 0613 8215 | | Call 0x1,0x15 0614 00d9 | | Load_Top At_Offset_1 0615 017d | } | Execute Record,Structure_Write 0616 e5fe | | Load 0x2,-0x2 0617 00d9 | | Load_Top At_Offset_1 0618 8224 | $ | Call 0x1,0x24 0619 4503 |E | Exit_Suprogram New_Top_Offset 0x3 061a e5fe | | Load 0x2,-0x2 061b e5ff | | Load 0x2,-0x1 061c 8024 | $ | Call 0x0,0x24 061d 4503 |E | Exit_Suprogram New_Top_Offset 0x3 061e 0000 0000 | | .XXX[0x2] 0620 ; -------------------------------------------------------------------------------------- 0620 ; SUBPROGRAM 0620 ; -------------------------------------------------------------------------------------- 0620 0625 | % | .CONST 0x0625 ; Address of begin 0621 0004 | | .CONST 0x0004 ; Address of exception handler 0622 0002 | | .CONST 0x0002 ; Number of locals 0623 INIT_0620: 0623 00e1 | | Load_Encached Boolean_Cache 0624 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 0625 BODY_0620: 0625 00cf | | Action Mark_Auxiliary 0626 e5ff | | Load 0x2,-0x1 0627 01d9 | | Execute Vector,Reverse_Bounds 0628 0263 | c | Execute Discrete,Above_Bound 0629 7019 |p | Jump_Nonzero 0x643 062a 00db | | Load_Top At_Offset_3 062b 6803 |h | Jump_Zero 0x62f 062c 4800 |H | Short_Literal 0x0 062d a402 | | Store_Unchecked 0x2,0x2 062e 7804 |x | Jump 0x633 062f e5fd | | Load 0x2,-0x3 0630 0092 06bb | | Action Push_String_Extended,0x6bb ; "," 0632 8011 | | Call 0x0,0x11 0633 e5fd | | Load 0x2,-0x3 0634 00d9 | | Load_Top At_Offset_1 0635 e5fe | | Load 0x2,-0x2 0636 01d7 | | Execute Vector,Field_Read 0637 800f | | Call 0x0,0xf 0638 0092 06ba | | Action Push_String_Extended,0x6ba ; " => " 063a 01cc | | Execute Vector,Catenate 063b 8017 | | Call 0x0,0x17 063c e5fd | | Load 0x2,-0x3 063d 00d9 | | Load_Top At_Offset_1 063e e5ff | | Load 0x2,-0x1 063f 01d5 | | Execute Vector,Field_Reference 0640 8236 | 6 | Call 0x1,0x36 0641 00c8 | | Action Pop_Auxiliary_Range 0642 3fe7 |? | Loop_Increasing 0x62a 0643 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0644 0000 0000 | | .BLANK 0000[0x4] 0648 ; -------------------------------------------------------------------------------------- 0648 ; SUBPROGRAM 0648 ; -------------------------------------------------------------------------------------- 0648 064b | K | .CONST 0x064b ; Address of begin 0649 0004 | | .CONST 0x0004 ; Address of exception handler 064a 0001 | | .CONST 0x0001 ; Number of locals 064b BODY_0648: 064b INIT_0648: 064b 00db | | Load_Top At_Offset_3 064c e22c | , | Load 0x1,0x2c 064d 016e | n | Execute Variant_Record,Not_Equal 064e 681e |h | Jump_Zero 0x66d 064f e5fd | | Load 0x2,-0x3 0650 00db | | Load_Top At_Offset_3 0651 0227 | ' | Execute Access,All_Reference 0652 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0653 e009 | | Load 0x0,0x9 0654 1c04 | | Execute_Immediate Run_Utility,0x4 0655 e009 | | Load 0x0,0x9 0656 0122 | " | Execute Any,Make_Root_Type 0657 011c | | Execute Any,Convert_Unchecked 0658 1c01 | | Execute_Immediate Run_Utility,0x1 0659 0092 06b2 | | Action Push_String_Extended,0x6b2 ; "'(" 065b 01cc | | Execute Vector,Catenate 065c 8011 | | Call 0x0,0x11 065d e5fd | | Load 0x2,-0x3 065e 8012 | | Call 0x0,0x12 065f e5fd | | Load 0x2,-0x3 0660 00db | | Load_Top At_Offset_3 0661 0227 | ' | Execute Access,All_Reference 0662 2404 |$ | Execute Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x4 0663 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2 0664 e5fe | | Load 0x2,-0x2 0665 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2 0666 8237 | 7 | Call 0x1,0x37 0667 e5fd | | Load 0x2,-0x3 0668 8013 | | Call 0x0,0x13 0669 e5fd | | Load 0x2,-0x3 066a 0092 06b3 | | Action Push_String_Extended,0x6b3 ; ")" 066c 8011 | | Call 0x0,0x11 066d 4504 |E | Exit_Suprogram New_Top_Offset 0x4 066e 0000 0000 | | .XXX[0x2] 0670 ; -------------------------------------------------------------------------------------- 0670 ; SUBPROGRAM 0670 ; -------------------------------------------------------------------------------------- 0670 0675 | u | .CONST 0x0675 ; Address of begin 0671 0004 | | .CONST 0x0004 ; Address of exception handler 0672 0002 | | .CONST 0x0002 ; Number of locals 0673 INIT_0670: 0673 e5fe | | Load 0x2,-0x2 0674 8025 | % | Call 0x0,0x25 0675 BODY_0670: 0675 e403 | | Load 0x2,0x3 0676 00d9 | | Load_Top At_Offset_1 0677 e402 | | Load 0x2,0x2 0678 8231 | 1 | Call 0x1,0x31 0679 821d | | Call 0x1,0x1d 067a 00cb | | Action Pop_Block_With_Result 067b 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 067c 0000 0000 | | .BLANK 0000[0x4] 0680 ; -------------------------------------------------------------------------------------- 0680 ; SUBPROGRAM 0680 ; -------------------------------------------------------------------------------------- 0680 068b | | .CONST 0x068b ; Address of begin 0681 0004 | | .CONST 0x0004 ; Address of exception handler 0682 0003 | | .CONST 0x0003 ; Number of locals 0683 INIT_0680: 0683 e023 | # | Load 0x0,0x23 0684 02c7 | | Declare_Variable Any 0685 00d8 | | Load_Top At_Offset_0 0686 1c00 | | Execute_Immediate Run_Utility,0x0 0687 e023 | # | Load 0x0,0x23 0688 02c7 | | Declare_Variable Any 0689 00d8 | | Load_Top At_Offset_0 068a 1c00 | | Execute_Immediate Run_Utility,0x0 068b BODY_0680: 068b 00d8 | | Load_Top At_Offset_0 068c 0120 | | Execute Any,Is_Value 068d 6803 |h | Jump_Zero 0x691 068e e023 | # | Load 0x0,0x23 068f 0122 | " | Execute Any,Make_Root_Type 0690 7801 |x | Jump 0x692 0691 00d8 | | Load_Top At_Offset_0 0692 00da | | Load_Top At_Offset_2 0693 0120 | | Execute Any,Is_Value 0694 6803 |h | Jump_Zero 0x698 0695 e023 | # | Load 0x0,0x23 0696 0122 | " | Execute Any,Make_Root_Type 0697 7801 |x | Jump 0x699 0698 00da | | Load_Top At_Offset_2 0699 e5fe | | Load 0x2,-0x2 069a 8026 | & | Call 0x0,0x26 069b c602 | | Store 0x3,0x2 069c c603 | | Store 0x3,0x3 069d 00d9 | | Load_Top At_Offset_1 069e e023 | # | Load 0x0,0x23 069f 0119 | | Execute Any,Check_In_Formal_Type 06a0 e5ff | | Load 0x2,-0x1 06a1 8234 | 4 | Call 0x1,0x34 06a2 7003 |p | Jump_Nonzero 0x6a6 06a3 4800 |H | Short_Literal 0x0 06a4 00cb | | Action Pop_Block_With_Result 06a5 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 06a6 00d8 | | Load_Top At_Offset_0 06a7 e023 | # | Load 0x0,0x23 06a8 0119 | | Execute Any,Check_In_Formal_Type 06a9 e5ff | | Load 0x2,-0x1 06aa 8234 | 4 | Call 0x1,0x34 06ab 7003 |p | Jump_Nonzero 0x6af 06ac 4800 |H | Short_Literal 0x0 06ad 00cb | | Action Pop_Block_With_Result 06ae 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 06af 4801 |H | Short_Literal 0x1 06b0 00cb | | Action Pop_Block_With_Result 06b1 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 06b2 ; -------------------------------------------------------------------------------------- 06b2 ; STRING TABLE 06b2 ; -------------------------------------------------------------------------------------- 06b2 0016 | | .STRTAB 0x0016->0x06bd ; "'(" 06b3 0016 | | .STRTAB 0x0016->0x06be ; ")" 06b4 0015 | | .STRTAB 0x0015->0x06be ; "null_object" 06b5 001e | | .STRTAB 0x001e->0x06c4 ; "Collection'(" 06b6 0028 | ( | .STRTAB 0x0028->0x06ca ; "Class'(" 06b7 002d | - | .STRTAB 0x002d->0x06cd ; "Kind => " 06b8 0038 | 8 | .STRTAB 0x0038->0x06d4 ; "Size => " 06b9 0043 | C | .STRTAB 0x0043->0x06da ; "Instances => Collection'(" 06ba 005a | Z | .STRTAB 0x005a->0x06e7 ; " => " 06bb 005c | \ | .STRTAB 0x005c->0x06e9 ; "," 06bc 005b | [ | .STREND 0x005b->0x06e9 06bd 2728 296e |'()n| .STRTAB_STRINGS 06ea 0000 0000 | | .BLANK 0000[0x6] 06f0 ; -------------------------------------------------------------------------------------- 06f0 ; Debug Table 06f0 ; -------------------------------------------------------------------------------------- 06f0 0004 0006 | | .DEBUG4 0x0004,0x0006,0x8806,0x0000,0x0001,0x0029 06f6 000b 079a | | .DBG4T 0x000b,0x079a,0x0000,0x0000 06fa 0075 07c1 | u | .DBG4T 0x0075,0x07c1,0x0000,0x0000 06fe 011b 0000 | | .DBG4T 0x011b,0x0000,0x0005,0x0000 0702 0143 07e7 | C | .DBG4T 0x0143,0x07e7,0x0002,0x0000 0706 0153 0000 | S | .DBG4T 0x0153,0x0000,0x0005,0x0000 070a 016b 07ea | k | .DBG4T 0x016b,0x07ea,0x0002,0x0000 070e 0173 07ed | s | .DBG4T 0x0173,0x07ed,0x0002,0x0000 0712 017b 07f0 | { | .DBG4T 0x017b,0x07f0,0x0002,0x0000 0716 018b 07f3 | | .DBG4T 0x018b,0x07f3,0x0002,0x0000 071a 019b 07f6 | | .DBG4T 0x019b,0x07f6,0x0002,0x0000 071e 01b3 07fb | | .DBG4T 0x01b3,0x07fb,0x0002,0x0000 0722 01bb 07fe | | .DBG4T 0x01bb,0x07fe,0x0002,0x0000 0726 0203 0801 | | .DBG4T 0x0203,0x0801,0x0001,0x0000 072a 0223 0805 | # | .DBG4T 0x0223,0x0805,0x0002,0x0000 072e 0233 080a | 3 | .DBG4T 0x0233,0x080a,0x0002,0x0000 0732 024b 080e | K | .DBG4T 0x024b,0x080e,0x0002,0x0000 0736 0263 0813 | c | .DBG4T 0x0263,0x0813,0x0002,0x0000 073a 027b 0818 | { | .DBG4T 0x027b,0x0818,0x0001,0x0000 073e 02d3 0829 | )| .DBG4T 0x02d3,0x0829,0x0001,0x0000 0742 030b 0835 | 5| .DBG4T 0x030b,0x0835,0x0001,0x0000 0746 0333 083a | 3 :| .DBG4T 0x0333,0x083a,0x0001,0x0000 074a 034b 083f | K ?| .DBG4T 0x034b,0x083f,0x0001,0x0000 074e 0383 084a | J| .DBG4T 0x0383,0x084a,0x0001,0x0000 0752 03ab 0854 | T| .DBG4T 0x03ab,0x0854,0x0001,0x0000 0756 03d3 0858 | X| .DBG4T 0x03d3,0x0858,0x2801,0x0002 075a 0423 0000 | # | .DBG4T 0x0423,0x0000,0x0005,0x0000 075e 048b 0000 | | .DBG4T 0x048b,0x0000,0x0005,0x0000 0762 04cb 0000 | | .DBG4T 0x04cb,0x0000,0x0005,0x0000 0766 04e3 0000 | | .DBG4T 0x04e3,0x0000,0x0005,0x0000 076a 0523 0869 | # i| .DBG4T 0x0523,0x0869,0x0002,0x0000 076e 0533 086c | 3 l| .DBG4T 0x0533,0x086c,0x0002,0x0000 0772 054b 086f | K o| .DBG4T 0x054b,0x086f,0x0002,0x0000 0776 0553 0872 | S r| .DBG4T 0x0553,0x0872,0x0002,0x0000 077a 056b 0875 | k u| .DBG4T 0x056b,0x0875,0x0002,0x0000 077e 05a3 0882 | | .DBG4T 0x05a3,0x0882,0x0002,0x0000 0782 05e3 0892 | | .DBG4T 0x05e3,0x0892,0x0002,0x0000 0786 060b 089b | | .DBG4T 0x060b,0x089b,0x0001,0x0000 078a 0623 08a2 | # | .DBG4T 0x0623,0x08a2,0x0001,0x0000 078e 064b 08ab | K | .DBG4T 0x064b,0x08ab,0x0001,0x0000 0792 0673 08b3 | s | .DBG4T 0x0673,0x08b3,0x0004,0x0000 0796 0683 08b7 | | .DBG4T 0x0683,0x08b7,0x0004,0x0000 079a ; -------------------------------------------------------------------------------------- 079a ; Debug chain 079a ; -------------------------------------------------------------------------------------- 079a 0025 0000 | % | .DBGLEN 0x0025,0x0000 079c 000b 000c | | .DBGLNO 0x000b,0x000c,0x000d,0x000e,0x000f,0x0016,0x0018,0x0019,0x001d,0x0021,0x0028,0x002e,0x002f,0x0031,0x0033,0x0035,0x0037,0x0039,0x003b,0x003d,0x003f,0x0041,0x0043,0x0045,0x0047,0x0049,0x004b,0x004d,0x004f,0x0051,0x0053,0x0055,0x0057,0x0061,0x0062,0x006d,0x0071 07c1 ; -------------------------------------------------------------------------------------- 07c1 ; Debug chain 07c1 ; -------------------------------------------------------------------------------------- 07c1 0024 0000 | $ | .DBGLEN 0x0024,0x0000 07c3 0075 0087 | u | .DBGLNO 0x0075,0x0087,0x00aa,0x00b1,0x00c3,0x00d3,0x00d5,0x00d7,0x00d9,0x00db,0x00dd,0x00df,0x00e1,0x00e3,0x00e5,0x00e7,0x00e9,0x00eb,0x00ed,0x00ef,0x00f1,0x00f3,0x00f5,0x00f7,0x00f9,0x00fb,0x00fd,0x00ff,0x0101,0x0103,0x0105,0x0107,0x0109,0x010b,0x010d,0x010f 07e7 ; -------------------------------------------------------------------------------------- 07e7 ; Debug chain 07e7 ; -------------------------------------------------------------------------------------- 07e7 0000 0001 | | .DBGLEN 0x0000,0x0001 07e9 0143 | C | .DBGLNO 0x0143 07ea ; -------------------------------------------------------------------------------------- 07ea ; Debug chain 07ea ; -------------------------------------------------------------------------------------- 07ea 0000 0001 | | .DBGLEN 0x0000,0x0001 07ec 016b | k | .DBGLNO 0x016b 07ed ; -------------------------------------------------------------------------------------- 07ed ; Debug chain 07ed ; -------------------------------------------------------------------------------------- 07ed 0000 0001 | | .DBGLEN 0x0000,0x0001 07ef 0173 | s | .DBGLNO 0x0173 07f0 ; -------------------------------------------------------------------------------------- 07f0 ; Debug chain 07f0 ; -------------------------------------------------------------------------------------- 07f0 0000 0001 | | .DBGLEN 0x0000,0x0001 07f2 017b | { | .DBGLNO 0x017b 07f3 ; -------------------------------------------------------------------------------------- 07f3 ; Debug chain 07f3 ; -------------------------------------------------------------------------------------- 07f3 0000 0001 | | .DBGLEN 0x0000,0x0001 07f5 018b | | .DBGLNO 0x018b 07f6 ; -------------------------------------------------------------------------------------- 07f6 ; Debug chain 07f6 ; -------------------------------------------------------------------------------------- 07f6 0000 0003 | | .DBGLEN 0x0000,0x0003 07f8 019b 019f | | .DBGLNO 0x019b,0x019f,0x01a8 07fb ; -------------------------------------------------------------------------------------- 07fb ; Debug chain 07fb ; -------------------------------------------------------------------------------------- 07fb 0000 0001 | | .DBGLEN 0x0000,0x0001 07fd 01b3 | | .DBGLNO 0x01b3 07fe ; -------------------------------------------------------------------------------------- 07fe ; Debug chain 07fe ; -------------------------------------------------------------------------------------- 07fe 0000 0001 | | .DBGLEN 0x0000,0x0001 0800 01bb | | .DBGLNO 0x01bb 0801 ; -------------------------------------------------------------------------------------- 0801 ; Debug chain 0801 ; -------------------------------------------------------------------------------------- 0801 0000 0002 | | .DBGLEN 0x0000,0x0002 0803 0203 0207 | | .DBGLNO 0x0203,0x0207 0805 ; -------------------------------------------------------------------------------------- 0805 ; Debug chain 0805 ; -------------------------------------------------------------------------------------- 0805 0001 0002 | | .DBGLEN 0x0001,0x0002 0807 0223 0225 | # %| .DBGLNO 0x0223,0x0225,0x022c 080a ; -------------------------------------------------------------------------------------- 080a ; Debug chain 080a ; -------------------------------------------------------------------------------------- 080a 0001 0001 | | .DBGLEN 0x0001,0x0001 080c 0233 0237 | 3 7| .DBGLNO 0x0233,0x0237 080e ; -------------------------------------------------------------------------------------- 080e ; Debug chain 080e ; -------------------------------------------------------------------------------------- 080e 0002 0001 | | .DBGLEN 0x0002,0x0001 0810 024b 024f | K O| .DBGLNO 0x024b,0x024f,0x0253 0813 ; -------------------------------------------------------------------------------------- 0813 ; Debug chain 0813 ; -------------------------------------------------------------------------------------- 0813 0002 0001 | | .DBGLEN 0x0002,0x0001 0815 0263 0267 | c g| .DBGLNO 0x0263,0x0267,0x026b 0818 ; -------------------------------------------------------------------------------------- 0818 ; Debug chain 0818 ; -------------------------------------------------------------------------------------- 0818 0005 000a | | .DBGLEN 0x0005,0x000a 081a 027b 027f | { | .DBGLNO 0x027b,0x027f,0x0283,0x0289,0x028a,0x028f,0x0293,0x0299,0x02b3,0x02b5,0x02b9,0x02bb,0x02c0,0x02c4,0x02c8 0829 ; -------------------------------------------------------------------------------------- 0829 ; Debug chain 0829 ; -------------------------------------------------------------------------------------- 0829 0004 0006 | | .DBGLEN 0x0004,0x0006 082b 02d3 02d7 | | .DBGLNO 0x02d3,0x02d7,0x02db,0x02df,0x02e3,0x02e7,0x02eb,0x02ef,0x02f3,0x02fb 0835 ; -------------------------------------------------------------------------------------- 0835 ; Debug chain 0835 ; -------------------------------------------------------------------------------------- 0835 0002 0001 | | .DBGLEN 0x0002,0x0001 0837 030b 030f | | .DBGLNO 0x030b,0x030f,0x0313 083a ; -------------------------------------------------------------------------------------- 083a ; Debug chain 083a ; -------------------------------------------------------------------------------------- 083a 0002 0001 | | .DBGLEN 0x0002,0x0001 083c 0333 0337 | 3 7| .DBGLNO 0x0333,0x0337,0x033b 083f ; -------------------------------------------------------------------------------------- 083f ; Debug chain 083f ; -------------------------------------------------------------------------------------- 083f 0002 0007 | | .DBGLEN 0x0002,0x0007 0841 034b 034f | K O| .DBGLNO 0x034b,0x034f,0x0353,0x0357,0x0365,0x0367,0x0373,0x0375,0x037a 084a ; -------------------------------------------------------------------------------------- 084a ; Debug chain 084a ; -------------------------------------------------------------------------------------- 084a 0000 0008 | | .DBGLEN 0x0000,0x0008 084c 0383 0387 | | .DBGLNO 0x0383,0x0387,0x0389,0x038d,0x0391,0x0399,0x039b,0x039e 0854 ; -------------------------------------------------------------------------------------- 0854 ; Debug chain 0854 ; -------------------------------------------------------------------------------------- 0854 0001 0001 | | .DBGLEN 0x0001,0x0001 0856 03ab 03bb | | .DBGLNO 0x03ab,0x03bb 0858 ; -------------------------------------------------------------------------------------- 0858 ; Debug chain 0858 ; -------------------------------------------------------------------------------------- 0858 0000 000f | | .DBGLEN 0x0000,0x000f 085a 03d3 03d7 | | .DBGLNO 0x03d3,0x03d7,0x03db,0x03dd,0x03eb,0x03f5,0x03f9,0x03fc,0x0401,0x0404,0x0408,0x0410,0x0412,0x0416,0x0418 0869 ; -------------------------------------------------------------------------------------- 0869 ; Debug chain 0869 ; -------------------------------------------------------------------------------------- 0869 0000 0001 | | .DBGLEN 0x0000,0x0001 086b 0523 | # | .DBGLNO 0x0523 086c ; -------------------------------------------------------------------------------------- 086c ; Debug chain 086c ; -------------------------------------------------------------------------------------- 086c 0000 0001 | | .DBGLEN 0x0000,0x0001 086e 0533 | 3 | .DBGLNO 0x0533 086f ; -------------------------------------------------------------------------------------- 086f ; Debug chain 086f ; -------------------------------------------------------------------------------------- 086f 0000 0001 | | .DBGLEN 0x0000,0x0001 0871 054b | K | .DBGLNO 0x054b 0872 ; -------------------------------------------------------------------------------------- 0872 ; Debug chain 0872 ; -------------------------------------------------------------------------------------- 0872 0000 0001 | | .DBGLEN 0x0000,0x0001 0874 0553 | S | .DBGLNO 0x0553 0875 ; -------------------------------------------------------------------------------------- 0875 ; Debug chain 0875 ; -------------------------------------------------------------------------------------- 0875 0002 0009 | | .DBGLEN 0x0002,0x0009 0877 056b 056e | k n| .DBGLNO 0x056b,0x056e,0x0571,0x0578,0x057c,0x0581,0x0589,0x058b,0x0593,0x0598,0x059a 0882 ; -------------------------------------------------------------------------------------- 0882 ; Debug chain 0882 ; -------------------------------------------------------------------------------------- 0882 0002 000c | | .DBGLEN 0x0002,0x000c 0884 05a3 05a9 | | .DBGLNO 0x05a3,0x05a9,0x05b1,0x05b4,0x05b6,0x05b9,0x05bb,0x05be,0x05c4,0x05c7,0x05ce,0x05d1,0x05d5,0x05d8 0892 ; -------------------------------------------------------------------------------------- 0892 ; Debug chain 0892 ; -------------------------------------------------------------------------------------- 0892 0000 0007 | | .DBGLEN 0x0000,0x0007 0894 05e4 05e8 | | .DBGLNO 0x05e4,0x05e8,0x05ed,0x05f7,0x05f9,0x0601,0x0606 089b ; -------------------------------------------------------------------------------------- 089b ; Debug chain 089b ; -------------------------------------------------------------------------------------- 089b 0001 0004 | | .DBGLEN 0x0001,0x0004 089d 060b 060f | | .DBGLNO 0x060b,0x060f,0x0612,0x0616,0x061a 08a2 ; -------------------------------------------------------------------------------------- 08a2 ; Debug chain 08a2 ; -------------------------------------------------------------------------------------- 08a2 0001 0006 | | .DBGLEN 0x0001,0x0006 08a4 0623 0626 | # &| .DBGLNO 0x0623,0x0626,0x062a,0x062c,0x062f,0x0633,0x063c 08ab ; -------------------------------------------------------------------------------------- 08ab ; Debug chain 08ab ; -------------------------------------------------------------------------------------- 08ab 0000 0006 | | .DBGLEN 0x0000,0x0006 08ad 064b 064f | K O| .DBGLNO 0x064b,0x064f,0x065d,0x065f,0x0667,0x0669 08b3 ; -------------------------------------------------------------------------------------- 08b3 ; Debug chain 08b3 ; -------------------------------------------------------------------------------------- 08b3 0001 0001 | | .DBGLEN 0x0001,0x0001 08b5 0673 0675 | s u| .DBGLNO 0x0673,0x0675 08b7 ; -------------------------------------------------------------------------------------- 08b7 ; Debug chain 08b7 ; -------------------------------------------------------------------------------------- 08b7 0001 0006 | | .DBGLEN 0x0001,0x0006 08b9 0683 068b | | .DBGLNO 0x0683,0x068b,0x069d,0x06a3,0x06a6,0x06ac,0x06af 08c0 0000 0000 | | .BLANK 0000[0x140]