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