|
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_4ec4c1
└─⟦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 05e8 | | .CONST 0x05e8 ; 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 00a1 | | .CONST 0x00a1 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 002d | - | .CONST 0x002d ; Number of locals 000b INIT_0008: 000b 4800 |H | Short_Literal 0x0 000c 4805 |H | Short_Literal 0x5 000d 00e3 | | Load_Encached Natural_Cache 000e 03f9 | | Declare_Type Discrete,Constrained,Visible 000f 4800 |H | Short_Literal 0x0 0010 4819 |H | Short_Literal 0x19 0011 029f 00ab | | Declare_Subprogram INIT_00a8,For_Call 0013 03fe | | Declare_Type Discrete,Defined,Visible 0014 029a 00d3 | | Declare_Subprogram INIT_00d0,For_Outer_Call,Visible,Unelaborated 0016 029a 0103 | | Declare_Subprogram INIT_0100,For_Outer_Call,Visible,Unelaborated 0018 029a 0133 | 3| Declare_Subprogram INIT_0130,For_Outer_Call,Visible,Unelaborated 001a 029a 0163 | c| Declare_Subprogram INIT_0160,For_Outer_Call,Visible,Unelaborated 001c 029a 0193 | | Declare_Subprogram INIT_0190,For_Outer_Call,Visible,Unelaborated 001e 029a 01c3 | | Declare_Subprogram INIT_01c0,For_Outer_Call,Visible,Unelaborated 0020 029a 01f3 | | Declare_Subprogram INIT_01f0,For_Outer_Call,Visible,Unelaborated 0022 029a 0223 | #| Declare_Subprogram INIT_0220,For_Outer_Call,Visible,Unelaborated 0024 029a 0253 | S| Declare_Subprogram INIT_0250,For_Outer_Call,Visible,Unelaborated 0026 029a 0283 | | Declare_Subprogram INIT_0280,For_Outer_Call,Visible,Unelaborated 0028 029a 02b3 | | Declare_Subprogram INIT_02b0,For_Outer_Call,Visible,Unelaborated 002a 029a 02e3 | | Declare_Subprogram INIT_02e0,For_Outer_Call,Visible,Unelaborated 002c 029a 0313 | | Declare_Subprogram INIT_0310,For_Outer_Call,Visible,Unelaborated 002e 029a 0343 | C| Declare_Subprogram INIT_0340,For_Outer_Call,Visible,Unelaborated 0030 029a 0373 | s| Declare_Subprogram INIT_0370,For_Outer_Call,Visible,Unelaborated 0032 029a 039b | | Declare_Subprogram INIT_0398,For_Outer_Call,Visible,Unelaborated 0034 029a 03b3 | | Declare_Subprogram INIT_03b0,For_Outer_Call,Visible,Unelaborated 0036 4800 |H | Short_Literal 0x0 0037 480d |H | Short_Literal 0xd 0038 029f 03e3 | | Declare_Subprogram INIT_03e0,For_Call 003a 03fe | | Declare_Type Discrete,Defined,Visible 003b 4800 |H | Short_Literal 0x0 003c 4805 |H | Short_Literal 0x5 003d 00da | | Load_Top At_Offset_2 003e 03f9 | | Declare_Type Discrete,Constrained,Visible 003f 4806 |H | Short_Literal 0x6 0040 480b |H | Short_Literal 0xb 0041 00db | | Load_Top At_Offset_3 0042 03f9 | | Declare_Type Discrete,Constrained,Visible 0043 480c |H | Short_Literal 0xc 0044 480d |H | Short_Literal 0xd 0045 e220 | | Load 0x1,0x20 0046 03f9 | | Declare_Type Discrete,Constrained,Visible 0047 00db | | Load_Top At_Offset_3 0048 00e2 | | Load_Encached Integer_Cache 0049 02a0 | | Declare_Subprogram Null_Subprogram 004a 4802 |H | Short_Literal 0x2 004b 032e | . | Declare_Type Record,Defined,Visible 004c 00e4 | | Load_Encached Positive_Cache 004d 0266 | f | Execute Discrete,Bounds 004e 00da | | Load_Top At_Offset_2 004f 02a0 | | Declare_Subprogram Null_Subprogram 0050 4801 |H | Short_Literal 0x1 0051 0351 | Q | Declare_Type Array,Defined,Visible,Bounds_With_Object 0052 e20d | | Load 0x1,0xd 0053 4801 |H | Short_Literal 0x1 0054 4805 |H | Short_Literal 0x5 0055 00db | | Load_Top At_Offset_3 0056 034f | O | Declare_Type Array,Constrained,Visible,Bounds_With_Object 0057 029f 04fb | | Declare_Subprogram INIT_04f8,For_Call 0059 4800 |H | Short_Literal 0x0 005a 4801 |H | Short_Literal 0x1 005b 4800 |H | Short_Literal 0x0 005c 4800 |H | Short_Literal 0x0 005d 4801 |H | Short_Literal 0x1 005e 4801 |H | Short_Literal 0x1 005f 031e | | Declare_Type Variant_Record,Defined,Visible 0060 00bf | | Action Accept_Activation 0061 e20e | | Load 0x1,0xe 0062 0266 | f | Execute Discrete,Bounds 0063 00e2 | | Load_Encached Integer_Cache 0064 02a0 | | Declare_Subprogram Null_Subprogram 0065 4801 |H | Short_Literal 0x1 0066 035d | ] | Declare_Type Array,Defined 0067 00d8 | | Load_Top At_Offset_0 0068 0337 | 7 | Declare_Variable Array 0069 00d8 | | Load_Top At_Offset_0 006a 0335 | 5 | Declare_Variable Array,Duplicate 006b 00cd | | Action Spare6_Action 006c 4819 |H | Short_Literal 0x19 006d 4800 |H | Short_Literal 0x0 006e 4800 |H | Short_Literal 0x0 006f 00d9 | | Load_Top At_Offset_1 0070 e229 | ) | Load 0x1,0x29 0071 01d6 | | Execute Vector,Field_Write 0072 3ffb |? | Loop_Increasing 0x6e 0073 00d9 | | Load_Top At_Offset_1 0074 01d4 | | Execute Vector,Structure_Write 0075 1d1b | | Execute_Immediate Reference_Lex_1,0x1b 0076 00c7 | | Action Elaborate_Subprogram 0077 1d0f | | Execute_Immediate Reference_Lex_1,0xf 0078 00c7 | | Action Elaborate_Subprogram 0079 1d10 | | Execute_Immediate Reference_Lex_1,0x10 007a 00c7 | | Action Elaborate_Subprogram 007b 1d11 | | Execute_Immediate Reference_Lex_1,0x11 007c 00c7 | | Action Elaborate_Subprogram 007d 1d12 | | Execute_Immediate Reference_Lex_1,0x12 007e 00c7 | | Action Elaborate_Subprogram 007f 1d13 | | Execute_Immediate Reference_Lex_1,0x13 0080 00c7 | | Action Elaborate_Subprogram 0081 1d14 | | Execute_Immediate Reference_Lex_1,0x14 0082 00c7 | | Action Elaborate_Subprogram 0083 1d15 | | Execute_Immediate Reference_Lex_1,0x15 0084 00c7 | | Action Elaborate_Subprogram 0085 1d16 | | Execute_Immediate Reference_Lex_1,0x16 0086 00c7 | | Action Elaborate_Subprogram 0087 1d17 | | Execute_Immediate Reference_Lex_1,0x17 0088 00c7 | | Action Elaborate_Subprogram 0089 1d18 | | Execute_Immediate Reference_Lex_1,0x18 008a 00c7 | | Action Elaborate_Subprogram 008b 1d19 | | Execute_Immediate Reference_Lex_1,0x19 008c 00c7 | | Action Elaborate_Subprogram 008d 1d1a | | Execute_Immediate Reference_Lex_1,0x1a 008e 00c7 | | Action Elaborate_Subprogram 008f 1d1c | | Execute_Immediate Reference_Lex_1,0x1c 0090 00c7 | | Action Elaborate_Subprogram 0091 1d1d | | Execute_Immediate Reference_Lex_1,0x1d 0092 00c7 | | Action Elaborate_Subprogram 0093 029d 040b | | Declare_Subprogram INIT_0408,For_Outer_Call 0095 029d 043b | ;| Declare_Subprogram INIT_0438,For_Outer_Call 0097 029d 0473 | s| Declare_Subprogram INIT_0470,For_Outer_Call 0099 029d 0493 | | Declare_Subprogram INIT_0490,For_Outer_Call 009b 1d1e | | Execute_Immediate Reference_Lex_1,0x1e 009c 00c7 | | Action Elaborate_Subprogram 009d 029d 04bb | | Declare_Subprogram INIT_04b8,For_Outer_Call 009f 1d1f | | Execute_Immediate Reference_Lex_1,0x1f 00a0 00c7 | | Action Elaborate_Subprogram 00a1 BODY_0008: 00a1 00bc | | Action Signal_Activated 00a2 00bb | | Action Signal_Completion 00a3 0000 0000 | | .BLANK 0000[0x5] 00a8 ; -------------------------------------------------------------------------------------- 00a8 ; SUBPROGRAM 00a8 ; -------------------------------------------------------------------------------------- 00a8 00ab | | .CONST 0x00ab ; Address of begin 00a9 0004 | | .CONST 0x0004 ; Address of exception handler 00aa 0001 | | .CONST 0x0001 ; Number of locals 00ab BODY_00a8: 00ab INIT_00a8: 00ab 4607 |F | Jump_Case 0x8 00ac 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 00ad 7807 |x | Jump 0xb5 ; case 0x1 00ae 780a |x | Jump 0xb9 ; case 0x2 00af 780e |x | Jump 0xbe ; case 0x3 00b0 7811 |x | Jump 0xc2 ; case 0x4 00b1 7812 |x | Jump 0xc4 ; case 0x5 00b2 7813 |x | Jump 0xc6 ; case 0x6 00b3 7816 |x | Jump 0xca ; case 0x7 00b4 4302 |C | .XXX[0x1] 00b5 00da | | Load_Top At_Offset_2 00b6 0091 0534 | 4| Action Push_String_Extended_Indexed,0x534 ; "A" 00b8 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 00b9 00db | | Load_Top At_Offset_3 00ba 00db | | Load_Top At_Offset_3 00bb 00e0 | | Load_Encached Standard_Cache 00bc 181b | | Execute Package,Field_Execute,Field_Number 0x1b 00bd 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00be 00da | | Load_Top At_Offset_2 00bf 00e0 | | Load_Encached Standard_Cache 00c0 181c | | Execute Package,Field_Execute,Field_Number 0x1c 00c1 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 00c2 00db | | Load_Top At_Offset_3 00c3 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00c4 00db | | Load_Top At_Offset_3 00c5 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00c6 e20e | | Load 0x1,0xe 00c7 00dc | | Load_Top At_Offset_4 00c8 0267 | g | Execute Discrete,Predecessor 00c9 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00ca e20e | | Load 0x1,0xe 00cb 00dc | | Load_Top At_Offset_4 00cc 0268 | h | Execute Discrete,Successor 00cd 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00ce 0000 0000 | | .XXX[0x2] 00d0 ; -------------------------------------------------------------------------------------- 00d0 ; SUBPROGRAM 00d0 ; -------------------------------------------------------------------------------------- 00d0 00d3 | | .CONST 0x00d3 ; Address of begin 00d1 0004 | | .CONST 0x0004 ; Address of exception handler 00d2 0001 | | .CONST 0x0001 ; Number of locals 00d3 BODY_00d0: 00d3 INIT_00d0: 00d3 4801 |H | Short_Literal 0x1 00d4 e226 | & | Load 0x1,0x26 00d5 1c08 | | Execute_Immediate Run_Utility,0x8 00d6 00d8 | | Load_Top At_Offset_0 00d7 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2 00d8 0335 | 5 | Declare_Variable Array,Duplicate 00d9 00cd | | Action Spare6_Action 00da 00d9 | | Load_Top At_Offset_1 00db 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2 00dc 01d9 | | Execute Vector,Reverse_Bounds 00dd 0263 | c | Execute Discrete,Above_Bound 00de 700c |p | Jump_Nonzero 0xeb 00df e224 | $ | Load 0x1,0x24 00e0 0322 | " | Declare_Variable Record 00e1 4800 |H | Short_Literal 0x0 00e2 00d9 | | Load_Top At_Offset_1 00e3 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 00e4 e5ff | | Load 0x2,-0x1 00e5 00d9 | | Load_Top At_Offset_1 00e6 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 00e7 00d9 | | Load_Top At_Offset_1 00e8 e403 | | Load 0x2,0x3 00e9 01d6 | | Execute Vector,Field_Write 00ea 3ff4 |? | Loop_Increasing 0xdf 00eb 00d9 | | Load_Top At_Offset_1 00ec 00d8 | | Load_Top At_Offset_0 00ed 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2 00ee 00da | | Load_Top At_Offset_2 00ef 01da | | Execute Vector,Bounds 00f0 00da | | Load_Top At_Offset_2 00f1 01da | | Execute Vector,Bounds 00f2 00da | | Load_Top At_Offset_2 00f3 027f | | Execute Discrete,Equal 00f4 7001 |p | Jump_Nonzero 0xf6 00f5 08e0 | | Execute_Immediate Raise,0xe0 00f6 00cd | | Action Spare6_Action 00f7 027f | | Execute Discrete,Equal 00f8 7001 |p | Jump_Nonzero 0xfa 00f9 08e0 | | Execute_Immediate Raise,0xe0 00fa 00d2 | | Pop_Control Pop_Count_2 00fb 00d9 | | Load_Top At_Offset_1 00fc 2902 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x2 00fd 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00fe 0000 0000 | | .XXX[0x2] 0100 ; -------------------------------------------------------------------------------------- 0100 ; SUBPROGRAM 0100 ; -------------------------------------------------------------------------------------- 0100 0103 | | .CONST 0x0103 ; Address of begin 0101 0004 | | .CONST 0x0004 ; Address of exception handler 0102 0001 | | .CONST 0x0001 ; Number of locals 0103 BODY_0100: 0103 INIT_0100: 0103 4801 |H | Short_Literal 0x1 0104 e226 | & | Load 0x1,0x26 0105 1c08 | | Execute_Immediate Run_Utility,0x8 0106 00d8 | | Load_Top At_Offset_0 0107 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2 0108 0335 | 5 | Declare_Variable Array,Duplicate 0109 00cd | | Action Spare6_Action 010a 00d9 | | Load_Top At_Offset_1 010b 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2 010c 01d9 | | Execute Vector,Reverse_Bounds 010d 0263 | c | Execute Discrete,Above_Bound 010e 700c |p | Jump_Nonzero 0x11b 010f e224 | $ | Load 0x1,0x24 0110 0322 | " | Declare_Variable Record 0111 4801 |H | Short_Literal 0x1 0112 00d9 | | Load_Top At_Offset_1 0113 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0114 e5ff | | Load 0x2,-0x1 0115 00d9 | | Load_Top At_Offset_1 0116 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0117 00d9 | | Load_Top At_Offset_1 0118 e403 | | Load 0x2,0x3 0119 01d6 | | Execute Vector,Field_Write 011a 3ff4 |? | Loop_Increasing 0x10f 011b 00d9 | | Load_Top At_Offset_1 011c 00d8 | | Load_Top At_Offset_0 011d 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2 011e 00da | | Load_Top At_Offset_2 011f 01da | | Execute Vector,Bounds 0120 00da | | Load_Top At_Offset_2 0121 01da | | Execute Vector,Bounds 0122 00da | | Load_Top At_Offset_2 0123 027f | | Execute Discrete,Equal 0124 7001 |p | Jump_Nonzero 0x126 0125 08e0 | | Execute_Immediate Raise,0xe0 0126 00cd | | Action Spare6_Action 0127 027f | | Execute Discrete,Equal 0128 7001 |p | Jump_Nonzero 0x12a 0129 08e0 | | Execute_Immediate Raise,0xe0 012a 00d2 | | Pop_Control Pop_Count_2 012b 00d9 | | Load_Top At_Offset_1 012c 2902 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x2 012d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 012e 0000 0000 | | .XXX[0x2] 0130 ; -------------------------------------------------------------------------------------- 0130 ; SUBPROGRAM 0130 ; -------------------------------------------------------------------------------------- 0130 0133 | 3 | .CONST 0x0133 ; Address of begin 0131 0004 | | .CONST 0x0004 ; Address of exception handler 0132 0001 | | .CONST 0x0001 ; Number of locals 0133 BODY_0130: 0133 INIT_0130: 0133 4801 |H | Short_Literal 0x1 0134 e226 | & | Load 0x1,0x26 0135 1c08 | | Execute_Immediate Run_Utility,0x8 0136 00d8 | | Load_Top At_Offset_0 0137 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2 0138 0335 | 5 | Declare_Variable Array,Duplicate 0139 00cd | | Action Spare6_Action 013a 00d9 | | Load_Top At_Offset_1 013b 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2 013c 01d9 | | Execute Vector,Reverse_Bounds 013d 0263 | c | Execute Discrete,Above_Bound 013e 700c |p | Jump_Nonzero 0x14b 013f e224 | $ | Load 0x1,0x24 0140 0322 | " | Declare_Variable Record 0141 4802 |H | Short_Literal 0x2 0142 00d9 | | Load_Top At_Offset_1 0143 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0144 e5ff | | Load 0x2,-0x1 0145 00d9 | | Load_Top At_Offset_1 0146 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0147 00d9 | | Load_Top At_Offset_1 0148 e403 | | Load 0x2,0x3 0149 01d6 | | Execute Vector,Field_Write 014a 3ff4 |? | Loop_Increasing 0x13f 014b 00d9 | | Load_Top At_Offset_1 014c 00d8 | | Load_Top At_Offset_0 014d 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2 014e 00da | | Load_Top At_Offset_2 014f 01da | | Execute Vector,Bounds 0150 00da | | Load_Top At_Offset_2 0151 01da | | Execute Vector,Bounds 0152 00da | | Load_Top At_Offset_2 0153 027f | | Execute Discrete,Equal 0154 7001 |p | Jump_Nonzero 0x156 0155 08e0 | | Execute_Immediate Raise,0xe0 0156 00cd | | Action Spare6_Action 0157 027f | | Execute Discrete,Equal 0158 7001 |p | Jump_Nonzero 0x15a 0159 08e0 | | Execute_Immediate Raise,0xe0 015a 00d2 | | Pop_Control Pop_Count_2 015b 00d9 | | Load_Top At_Offset_1 015c 2902 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x2 015d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 015e 0000 0000 | | .XXX[0x2] 0160 ; -------------------------------------------------------------------------------------- 0160 ; SUBPROGRAM 0160 ; -------------------------------------------------------------------------------------- 0160 0163 | c | .CONST 0x0163 ; Address of begin 0161 0004 | | .CONST 0x0004 ; Address of exception handler 0162 0001 | | .CONST 0x0001 ; Number of locals 0163 BODY_0160: 0163 INIT_0160: 0163 4801 |H | Short_Literal 0x1 0164 e226 | & | Load 0x1,0x26 0165 1c08 | | Execute_Immediate Run_Utility,0x8 0166 00d8 | | Load_Top At_Offset_0 0167 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2 0168 0335 | 5 | Declare_Variable Array,Duplicate 0169 00cd | | Action Spare6_Action 016a 00d9 | | Load_Top At_Offset_1 016b 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2 016c 01d9 | | Execute Vector,Reverse_Bounds 016d 0263 | c | Execute Discrete,Above_Bound 016e 700c |p | Jump_Nonzero 0x17b 016f e224 | $ | Load 0x1,0x24 0170 0322 | " | Declare_Variable Record 0171 4803 |H | Short_Literal 0x3 0172 00d9 | | Load_Top At_Offset_1 0173 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0174 e5ff | | Load 0x2,-0x1 0175 00d9 | | Load_Top At_Offset_1 0176 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0177 00d9 | | Load_Top At_Offset_1 0178 e403 | | Load 0x2,0x3 0179 01d6 | | Execute Vector,Field_Write 017a 3ff4 |? | Loop_Increasing 0x16f 017b 00d9 | | Load_Top At_Offset_1 017c 00d8 | | Load_Top At_Offset_0 017d 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2 017e 00da | | Load_Top At_Offset_2 017f 01da | | Execute Vector,Bounds 0180 00da | | Load_Top At_Offset_2 0181 01da | | Execute Vector,Bounds 0182 00da | | Load_Top At_Offset_2 0183 027f | | Execute Discrete,Equal 0184 7001 |p | Jump_Nonzero 0x186 0185 08e0 | | Execute_Immediate Raise,0xe0 0186 00cd | | Action Spare6_Action 0187 027f | | Execute Discrete,Equal 0188 7001 |p | Jump_Nonzero 0x18a 0189 08e0 | | Execute_Immediate Raise,0xe0 018a 00d2 | | Pop_Control Pop_Count_2 018b 00d9 | | Load_Top At_Offset_1 018c 2902 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x2 018d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 018e 0000 0000 | | .XXX[0x2] 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 4801 |H | Short_Literal 0x1 0194 e226 | & | Load 0x1,0x26 0195 1c08 | | Execute_Immediate Run_Utility,0x8 0196 00d8 | | Load_Top At_Offset_0 0197 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2 0198 0335 | 5 | Declare_Variable Array,Duplicate 0199 00cd | | Action Spare6_Action 019a 00d9 | | Load_Top At_Offset_1 019b 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2 019c 01d9 | | Execute Vector,Reverse_Bounds 019d 0263 | c | Execute Discrete,Above_Bound 019e 700c |p | Jump_Nonzero 0x1ab 019f e224 | $ | Load 0x1,0x24 01a0 0322 | " | Declare_Variable Record 01a1 4804 |H | Short_Literal 0x4 01a2 00d9 | | Load_Top At_Offset_1 01a3 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 01a4 e5ff | | Load 0x2,-0x1 01a5 00d9 | | Load_Top At_Offset_1 01a6 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 01a7 00d9 | | Load_Top At_Offset_1 01a8 e403 | | Load 0x2,0x3 01a9 01d6 | | Execute Vector,Field_Write 01aa 3ff4 |? | Loop_Increasing 0x19f 01ab 00d9 | | Load_Top At_Offset_1 01ac 00d8 | | Load_Top At_Offset_0 01ad 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2 01ae 00da | | Load_Top At_Offset_2 01af 01da | | Execute Vector,Bounds 01b0 00da | | Load_Top At_Offset_2 01b1 01da | | Execute Vector,Bounds 01b2 00da | | Load_Top At_Offset_2 01b3 027f | | Execute Discrete,Equal 01b4 7001 |p | Jump_Nonzero 0x1b6 01b5 08e0 | | Execute_Immediate Raise,0xe0 01b6 00cd | | Action Spare6_Action 01b7 027f | | Execute Discrete,Equal 01b8 7001 |p | Jump_Nonzero 0x1ba 01b9 08e0 | | Execute_Immediate Raise,0xe0 01ba 00d2 | | Pop_Control Pop_Count_2 01bb 00d9 | | Load_Top At_Offset_1 01bc 2902 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x2 01bd 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01be 0000 0000 | | .XXX[0x2] 01c0 ; -------------------------------------------------------------------------------------- 01c0 ; SUBPROGRAM 01c0 ; -------------------------------------------------------------------------------------- 01c0 01c3 | | .CONST 0x01c3 ; Address of begin 01c1 0004 | | .CONST 0x0004 ; Address of exception handler 01c2 0001 | | .CONST 0x0001 ; Number of locals 01c3 BODY_01c0: 01c3 INIT_01c0: 01c3 4801 |H | Short_Literal 0x1 01c4 e226 | & | Load 0x1,0x26 01c5 1c08 | | Execute_Immediate Run_Utility,0x8 01c6 00d8 | | Load_Top At_Offset_0 01c7 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2 01c8 0335 | 5 | Declare_Variable Array,Duplicate 01c9 00cd | | Action Spare6_Action 01ca 00d9 | | Load_Top At_Offset_1 01cb 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2 01cc 01d9 | | Execute Vector,Reverse_Bounds 01cd 0263 | c | Execute Discrete,Above_Bound 01ce 700c |p | Jump_Nonzero 0x1db 01cf e224 | $ | Load 0x1,0x24 01d0 0322 | " | Declare_Variable Record 01d1 4805 |H | Short_Literal 0x5 01d2 00d9 | | Load_Top At_Offset_1 01d3 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 01d4 e5ff | | Load 0x2,-0x1 01d5 00d9 | | Load_Top At_Offset_1 01d6 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 01d7 00d9 | | Load_Top At_Offset_1 01d8 e403 | | Load 0x2,0x3 01d9 01d6 | | Execute Vector,Field_Write 01da 3ff4 |? | Loop_Increasing 0x1cf 01db 00d9 | | Load_Top At_Offset_1 01dc 00d8 | | Load_Top At_Offset_0 01dd 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2 01de 00da | | Load_Top At_Offset_2 01df 01da | | Execute Vector,Bounds 01e0 00da | | Load_Top At_Offset_2 01e1 01da | | Execute Vector,Bounds 01e2 00da | | Load_Top At_Offset_2 01e3 027f | | Execute Discrete,Equal 01e4 7001 |p | Jump_Nonzero 0x1e6 01e5 08e0 | | Execute_Immediate Raise,0xe0 01e6 00cd | | Action Spare6_Action 01e7 027f | | Execute Discrete,Equal 01e8 7001 |p | Jump_Nonzero 0x1ea 01e9 08e0 | | Execute_Immediate Raise,0xe0 01ea 00d2 | | Pop_Control Pop_Count_2 01eb 00d9 | | Load_Top At_Offset_1 01ec 2902 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x2 01ed 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01ee 0000 0000 | | .XXX[0x2] 01f0 ; -------------------------------------------------------------------------------------- 01f0 ; SUBPROGRAM 01f0 ; -------------------------------------------------------------------------------------- 01f0 01f3 | | .CONST 0x01f3 ; Address of begin 01f1 0004 | | .CONST 0x0004 ; Address of exception handler 01f2 0001 | | .CONST 0x0001 ; Number of locals 01f3 BODY_01f0: 01f3 INIT_01f0: 01f3 4801 |H | Short_Literal 0x1 01f4 e226 | & | Load 0x1,0x26 01f5 1c08 | | Execute_Immediate Run_Utility,0x8 01f6 00d8 | | Load_Top At_Offset_0 01f7 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2 01f8 0335 | 5 | Declare_Variable Array,Duplicate 01f9 00cd | | Action Spare6_Action 01fa 00d9 | | Load_Top At_Offset_1 01fb 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2 01fc 01d9 | | Execute Vector,Reverse_Bounds 01fd 0263 | c | Execute Discrete,Above_Bound 01fe 700c |p | Jump_Nonzero 0x20b 01ff e224 | $ | Load 0x1,0x24 0200 0322 | " | Declare_Variable Record 0201 4806 |H | Short_Literal 0x6 0202 00d9 | | Load_Top At_Offset_1 0203 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0204 e5ff | | Load 0x2,-0x1 0205 00d9 | | Load_Top At_Offset_1 0206 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0207 00d9 | | Load_Top At_Offset_1 0208 e403 | | Load 0x2,0x3 0209 01d6 | | Execute Vector,Field_Write 020a 3ff4 |? | Loop_Increasing 0x1ff 020b 00d9 | | Load_Top At_Offset_1 020c 00d8 | | Load_Top At_Offset_0 020d 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2 020e 00da | | Load_Top At_Offset_2 020f 01da | | Execute Vector,Bounds 0210 00da | | Load_Top At_Offset_2 0211 01da | | Execute Vector,Bounds 0212 00da | | Load_Top At_Offset_2 0213 027f | | Execute Discrete,Equal 0214 7001 |p | Jump_Nonzero 0x216 0215 08e0 | | Execute_Immediate Raise,0xe0 0216 00cd | | Action Spare6_Action 0217 027f | | Execute Discrete,Equal 0218 7001 |p | Jump_Nonzero 0x21a 0219 08e0 | | Execute_Immediate Raise,0xe0 021a 00d2 | | Pop_Control Pop_Count_2 021b 00d9 | | Load_Top At_Offset_1 021c 2902 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x2 021d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 021e 0000 0000 | | .XXX[0x2] 0220 ; -------------------------------------------------------------------------------------- 0220 ; SUBPROGRAM 0220 ; -------------------------------------------------------------------------------------- 0220 0223 | # | .CONST 0x0223 ; Address of begin 0221 0004 | | .CONST 0x0004 ; Address of exception handler 0222 0001 | | .CONST 0x0001 ; Number of locals 0223 BODY_0220: 0223 INIT_0220: 0223 4801 |H | Short_Literal 0x1 0224 e226 | & | Load 0x1,0x26 0225 1c08 | | Execute_Immediate Run_Utility,0x8 0226 00d8 | | Load_Top At_Offset_0 0227 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2 0228 0335 | 5 | Declare_Variable Array,Duplicate 0229 00cd | | Action Spare6_Action 022a 00d9 | | Load_Top At_Offset_1 022b 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2 022c 01d9 | | Execute Vector,Reverse_Bounds 022d 0263 | c | Execute Discrete,Above_Bound 022e 700c |p | Jump_Nonzero 0x23b 022f e224 | $ | Load 0x1,0x24 0230 0322 | " | Declare_Variable Record 0231 4807 |H | Short_Literal 0x7 0232 00d9 | | Load_Top At_Offset_1 0233 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0234 e5ff | | Load 0x2,-0x1 0235 00d9 | | Load_Top At_Offset_1 0236 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0237 00d9 | | Load_Top At_Offset_1 0238 e403 | | Load 0x2,0x3 0239 01d6 | | Execute Vector,Field_Write 023a 3ff4 |? | Loop_Increasing 0x22f 023b 00d9 | | Load_Top At_Offset_1 023c 00d8 | | Load_Top At_Offset_0 023d 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2 023e 00da | | Load_Top At_Offset_2 023f 01da | | Execute Vector,Bounds 0240 00da | | Load_Top At_Offset_2 0241 01da | | Execute Vector,Bounds 0242 00da | | Load_Top At_Offset_2 0243 027f | | Execute Discrete,Equal 0244 7001 |p | Jump_Nonzero 0x246 0245 08e0 | | Execute_Immediate Raise,0xe0 0246 00cd | | Action Spare6_Action 0247 027f | | Execute Discrete,Equal 0248 7001 |p | Jump_Nonzero 0x24a 0249 08e0 | | Execute_Immediate Raise,0xe0 024a 00d2 | | Pop_Control Pop_Count_2 024b 00d9 | | Load_Top At_Offset_1 024c 2902 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x2 024d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 024e 0000 0000 | | .XXX[0x2] 0250 ; -------------------------------------------------------------------------------------- 0250 ; SUBPROGRAM 0250 ; -------------------------------------------------------------------------------------- 0250 0253 | S | .CONST 0x0253 ; Address of begin 0251 0004 | | .CONST 0x0004 ; Address of exception handler 0252 0001 | | .CONST 0x0001 ; Number of locals 0253 BODY_0250: 0253 INIT_0250: 0253 4801 |H | Short_Literal 0x1 0254 e226 | & | Load 0x1,0x26 0255 1c08 | | Execute_Immediate Run_Utility,0x8 0256 00d8 | | Load_Top At_Offset_0 0257 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2 0258 0335 | 5 | Declare_Variable Array,Duplicate 0259 00cd | | Action Spare6_Action 025a 00d9 | | Load_Top At_Offset_1 025b 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2 025c 01d9 | | Execute Vector,Reverse_Bounds 025d 0263 | c | Execute Discrete,Above_Bound 025e 700c |p | Jump_Nonzero 0x26b 025f e224 | $ | Load 0x1,0x24 0260 0322 | " | Declare_Variable Record 0261 4808 |H | Short_Literal 0x8 0262 00d9 | | Load_Top At_Offset_1 0263 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0264 e5ff | | Load 0x2,-0x1 0265 00d9 | | Load_Top At_Offset_1 0266 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0267 00d9 | | Load_Top At_Offset_1 0268 e403 | | Load 0x2,0x3 0269 01d6 | | Execute Vector,Field_Write 026a 3ff4 |? | Loop_Increasing 0x25f 026b 00d9 | | Load_Top At_Offset_1 026c 00d8 | | Load_Top At_Offset_0 026d 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2 026e 00da | | Load_Top At_Offset_2 026f 01da | | Execute Vector,Bounds 0270 00da | | Load_Top At_Offset_2 0271 01da | | Execute Vector,Bounds 0272 00da | | Load_Top At_Offset_2 0273 027f | | Execute Discrete,Equal 0274 7001 |p | Jump_Nonzero 0x276 0275 08e0 | | Execute_Immediate Raise,0xe0 0276 00cd | | Action Spare6_Action 0277 027f | | Execute Discrete,Equal 0278 7001 |p | Jump_Nonzero 0x27a 0279 08e0 | | Execute_Immediate Raise,0xe0 027a 00d2 | | Pop_Control Pop_Count_2 027b 00d9 | | Load_Top At_Offset_1 027c 2902 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x2 027d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 027e 0000 0000 | | .XXX[0x2] 0280 ; -------------------------------------------------------------------------------------- 0280 ; SUBPROGRAM 0280 ; -------------------------------------------------------------------------------------- 0280 0283 | | .CONST 0x0283 ; Address of begin 0281 0004 | | .CONST 0x0004 ; Address of exception handler 0282 0001 | | .CONST 0x0001 ; Number of locals 0283 BODY_0280: 0283 INIT_0280: 0283 4801 |H | Short_Literal 0x1 0284 e226 | & | Load 0x1,0x26 0285 1c08 | | Execute_Immediate Run_Utility,0x8 0286 00d8 | | Load_Top At_Offset_0 0287 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2 0288 0335 | 5 | Declare_Variable Array,Duplicate 0289 00cd | | Action Spare6_Action 028a 00d9 | | Load_Top At_Offset_1 028b 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2 028c 01d9 | | Execute Vector,Reverse_Bounds 028d 0263 | c | Execute Discrete,Above_Bound 028e 700c |p | Jump_Nonzero 0x29b 028f e224 | $ | Load 0x1,0x24 0290 0322 | " | Declare_Variable Record 0291 4809 |H | Short_Literal 0x9 0292 00d9 | | Load_Top At_Offset_1 0293 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0294 e5ff | | Load 0x2,-0x1 0295 00d9 | | Load_Top At_Offset_1 0296 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0297 00d9 | | Load_Top At_Offset_1 0298 e403 | | Load 0x2,0x3 0299 01d6 | | Execute Vector,Field_Write 029a 3ff4 |? | Loop_Increasing 0x28f 029b 00d9 | | Load_Top At_Offset_1 029c 00d8 | | Load_Top At_Offset_0 029d 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2 029e 00da | | Load_Top At_Offset_2 029f 01da | | Execute Vector,Bounds 02a0 00da | | Load_Top At_Offset_2 02a1 01da | | Execute Vector,Bounds 02a2 00da | | Load_Top At_Offset_2 02a3 027f | | Execute Discrete,Equal 02a4 7001 |p | Jump_Nonzero 0x2a6 02a5 08e0 | | Execute_Immediate Raise,0xe0 02a6 00cd | | Action Spare6_Action 02a7 027f | | Execute Discrete,Equal 02a8 7001 |p | Jump_Nonzero 0x2aa 02a9 08e0 | | Execute_Immediate Raise,0xe0 02aa 00d2 | | Pop_Control Pop_Count_2 02ab 00d9 | | Load_Top At_Offset_1 02ac 2902 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x2 02ad 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 02ae 0000 0000 | | .XXX[0x2] 02b0 ; -------------------------------------------------------------------------------------- 02b0 ; SUBPROGRAM 02b0 ; -------------------------------------------------------------------------------------- 02b0 02b3 | | .CONST 0x02b3 ; Address of begin 02b1 0004 | | .CONST 0x0004 ; Address of exception handler 02b2 0001 | | .CONST 0x0001 ; Number of locals 02b3 BODY_02b0: 02b3 INIT_02b0: 02b3 4801 |H | Short_Literal 0x1 02b4 e226 | & | Load 0x1,0x26 02b5 1c08 | | Execute_Immediate Run_Utility,0x8 02b6 00d8 | | Load_Top At_Offset_0 02b7 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2 02b8 0335 | 5 | Declare_Variable Array,Duplicate 02b9 00cd | | Action Spare6_Action 02ba 00d9 | | Load_Top At_Offset_1 02bb 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2 02bc 01d9 | | Execute Vector,Reverse_Bounds 02bd 0263 | c | Execute Discrete,Above_Bound 02be 700c |p | Jump_Nonzero 0x2cb 02bf e224 | $ | Load 0x1,0x24 02c0 0322 | " | Declare_Variable Record 02c1 480a |H | Short_Literal 0xa 02c2 00d9 | | Load_Top At_Offset_1 02c3 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 02c4 e5ff | | Load 0x2,-0x1 02c5 00d9 | | Load_Top At_Offset_1 02c6 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 02c7 00d9 | | Load_Top At_Offset_1 02c8 e403 | | Load 0x2,0x3 02c9 01d6 | | Execute Vector,Field_Write 02ca 3ff4 |? | Loop_Increasing 0x2bf 02cb 00d9 | | Load_Top At_Offset_1 02cc 00d8 | | Load_Top At_Offset_0 02cd 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2 02ce 00da | | Load_Top At_Offset_2 02cf 01da | | Execute Vector,Bounds 02d0 00da | | Load_Top At_Offset_2 02d1 01da | | Execute Vector,Bounds 02d2 00da | | Load_Top At_Offset_2 02d3 027f | | Execute Discrete,Equal 02d4 7001 |p | Jump_Nonzero 0x2d6 02d5 08e0 | | Execute_Immediate Raise,0xe0 02d6 00cd | | Action Spare6_Action 02d7 027f | | Execute Discrete,Equal 02d8 7001 |p | Jump_Nonzero 0x2da 02d9 08e0 | | Execute_Immediate Raise,0xe0 02da 00d2 | | Pop_Control Pop_Count_2 02db 00d9 | | Load_Top At_Offset_1 02dc 2902 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x2 02dd 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 02de 0000 0000 | | .XXX[0x2] 02e0 ; -------------------------------------------------------------------------------------- 02e0 ; SUBPROGRAM 02e0 ; -------------------------------------------------------------------------------------- 02e0 02e3 | | .CONST 0x02e3 ; Address of begin 02e1 0004 | | .CONST 0x0004 ; Address of exception handler 02e2 0001 | | .CONST 0x0001 ; Number of locals 02e3 BODY_02e0: 02e3 INIT_02e0: 02e3 4801 |H | Short_Literal 0x1 02e4 e226 | & | Load 0x1,0x26 02e5 1c08 | | Execute_Immediate Run_Utility,0x8 02e6 00d8 | | Load_Top At_Offset_0 02e7 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2 02e8 0335 | 5 | Declare_Variable Array,Duplicate 02e9 00cd | | Action Spare6_Action 02ea 00d9 | | Load_Top At_Offset_1 02eb 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2 02ec 01d9 | | Execute Vector,Reverse_Bounds 02ed 0263 | c | Execute Discrete,Above_Bound 02ee 700c |p | Jump_Nonzero 0x2fb 02ef e224 | $ | Load 0x1,0x24 02f0 0322 | " | Declare_Variable Record 02f1 480b |H | Short_Literal 0xb 02f2 00d9 | | Load_Top At_Offset_1 02f3 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 02f4 e5ff | | Load 0x2,-0x1 02f5 00d9 | | Load_Top At_Offset_1 02f6 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 02f7 00d9 | | Load_Top At_Offset_1 02f8 e403 | | Load 0x2,0x3 02f9 01d6 | | Execute Vector,Field_Write 02fa 3ff4 |? | Loop_Increasing 0x2ef 02fb 00d9 | | Load_Top At_Offset_1 02fc 00d8 | | Load_Top At_Offset_0 02fd 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2 02fe 00da | | Load_Top At_Offset_2 02ff 01da | | Execute Vector,Bounds 0300 00da | | Load_Top At_Offset_2 0301 01da | | Execute Vector,Bounds 0302 00da | | Load_Top At_Offset_2 0303 027f | | Execute Discrete,Equal 0304 7001 |p | Jump_Nonzero 0x306 0305 08e0 | | Execute_Immediate Raise,0xe0 0306 00cd | | Action Spare6_Action 0307 027f | | Execute Discrete,Equal 0308 7001 |p | Jump_Nonzero 0x30a 0309 08e0 | | Execute_Immediate Raise,0xe0 030a 00d2 | | Pop_Control Pop_Count_2 030b 00d9 | | Load_Top At_Offset_1 030c 2902 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x2 030d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 030e 0000 0000 | | .XXX[0x2] 0310 ; -------------------------------------------------------------------------------------- 0310 ; SUBPROGRAM 0310 ; -------------------------------------------------------------------------------------- 0310 0313 | | .CONST 0x0313 ; Address of begin 0311 0004 | | .CONST 0x0004 ; Address of exception handler 0312 0001 | | .CONST 0x0001 ; Number of locals 0313 BODY_0310: 0313 INIT_0310: 0313 4801 |H | Short_Literal 0x1 0314 e226 | & | Load 0x1,0x26 0315 1c08 | | Execute_Immediate Run_Utility,0x8 0316 00d8 | | Load_Top At_Offset_0 0317 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2 0318 0335 | 5 | Declare_Variable Array,Duplicate 0319 00cd | | Action Spare6_Action 031a 00d9 | | Load_Top At_Offset_1 031b 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2 031c 01d9 | | Execute Vector,Reverse_Bounds 031d 0263 | c | Execute Discrete,Above_Bound 031e 700c |p | Jump_Nonzero 0x32b 031f e224 | $ | Load 0x1,0x24 0320 0322 | " | Declare_Variable Record 0321 480c |H | Short_Literal 0xc 0322 00d9 | | Load_Top At_Offset_1 0323 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0324 4800 |H | Short_Literal 0x0 0325 00d9 | | Load_Top At_Offset_1 0326 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0327 00d9 | | Load_Top At_Offset_1 0328 e403 | | Load 0x2,0x3 0329 01d6 | | Execute Vector,Field_Write 032a 3ff4 |? | Loop_Increasing 0x31f 032b 00d9 | | Load_Top At_Offset_1 032c 00d8 | | Load_Top At_Offset_0 032d 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2 032e 00da | | Load_Top At_Offset_2 032f 01da | | Execute Vector,Bounds 0330 00da | | Load_Top At_Offset_2 0331 01da | | Execute Vector,Bounds 0332 00da | | Load_Top At_Offset_2 0333 027f | | Execute Discrete,Equal 0334 7001 |p | Jump_Nonzero 0x336 0335 08e0 | | Execute_Immediate Raise,0xe0 0336 00cd | | Action Spare6_Action 0337 027f | | Execute Discrete,Equal 0338 7001 |p | Jump_Nonzero 0x33a 0339 08e0 | | Execute_Immediate Raise,0xe0 033a 00d2 | | Pop_Control Pop_Count_2 033b 00d9 | | Load_Top At_Offset_1 033c 2902 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x2 033d 00ca | | Action Exit_Nullary_Function 033e 0000 0000 | | .XXX[0x2] 0340 ; -------------------------------------------------------------------------------------- 0340 ; SUBPROGRAM 0340 ; -------------------------------------------------------------------------------------- 0340 0343 | C | .CONST 0x0343 ; Address of begin 0341 0004 | | .CONST 0x0004 ; Address of exception handler 0342 0001 | | .CONST 0x0001 ; Number of locals 0343 BODY_0340: 0343 INIT_0340: 0343 4801 |H | Short_Literal 0x1 0344 e226 | & | Load 0x1,0x26 0345 1c08 | | Execute_Immediate Run_Utility,0x8 0346 00d8 | | Load_Top At_Offset_0 0347 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2 0348 0335 | 5 | Declare_Variable Array,Duplicate 0349 00cd | | Action Spare6_Action 034a 00d9 | | Load_Top At_Offset_1 034b 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2 034c 01d9 | | Execute Vector,Reverse_Bounds 034d 0263 | c | Execute Discrete,Above_Bound 034e 700c |p | Jump_Nonzero 0x35b 034f e224 | $ | Load 0x1,0x24 0350 0322 | " | Declare_Variable Record 0351 480d |H | Short_Literal 0xd 0352 00d9 | | Load_Top At_Offset_1 0353 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0354 e5ff | | Load 0x2,-0x1 0355 00d9 | | Load_Top At_Offset_1 0356 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0357 00d9 | | Load_Top At_Offset_1 0358 e403 | | Load 0x2,0x3 0359 01d6 | | Execute Vector,Field_Write 035a 3ff4 |? | Loop_Increasing 0x34f 035b 00d9 | | Load_Top At_Offset_1 035c 00d8 | | Load_Top At_Offset_0 035d 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2 035e 00da | | Load_Top At_Offset_2 035f 01da | | Execute Vector,Bounds 0360 00da | | Load_Top At_Offset_2 0361 01da | | Execute Vector,Bounds 0362 00da | | Load_Top At_Offset_2 0363 027f | | Execute Discrete,Equal 0364 7001 |p | Jump_Nonzero 0x366 0365 08e0 | | Execute_Immediate Raise,0xe0 0366 00cd | | Action Spare6_Action 0367 027f | | Execute Discrete,Equal 0368 7001 |p | Jump_Nonzero 0x36a 0369 08e0 | | Execute_Immediate Raise,0xe0 036a 00d2 | | Pop_Control Pop_Count_2 036b 00d9 | | Load_Top At_Offset_1 036c 2902 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x2 036d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 036e 0000 0000 | | .XXX[0x2] 0370 ; -------------------------------------------------------------------------------------- 0370 ; SUBPROGRAM 0370 ; -------------------------------------------------------------------------------------- 0370 0373 | s | .CONST 0x0373 ; Address of begin 0371 0004 | | .CONST 0x0004 ; Address of exception handler 0372 0001 | | .CONST 0x0001 ; Number of locals 0373 BODY_0370: 0373 INIT_0370: 0373 00da | | Load_Top At_Offset_2 0374 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 0375 e5fe | | Load 0x2,-0x2 0376 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 0377 0273 | s | Execute Discrete,Plus 0378 e226 | & | Load 0x1,0x26 0379 1c08 | | Execute_Immediate Run_Utility,0x8 037a 00db | | Load_Top At_Offset_3 037b 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2 037c e5fe | | Load 0x2,-0x2 037d 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2 037e 01cc | | Execute Vector,Catenate 037f 00d9 | | Load_Top At_Offset_1 0380 00d8 | | Load_Top At_Offset_0 0381 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2 0382 00da | | Load_Top At_Offset_2 0383 01da | | Execute Vector,Bounds 0384 00da | | Load_Top At_Offset_2 0385 01da | | Execute Vector,Bounds 0386 00da | | Load_Top At_Offset_2 0387 027f | | Execute Discrete,Equal 0388 7001 |p | Jump_Nonzero 0x38a 0389 08e0 | | Execute_Immediate Raise,0xe0 038a 00cd | | Action Spare6_Action 038b 027f | | Execute Discrete,Equal 038c 7001 |p | Jump_Nonzero 0x38e 038d 08e0 | | Execute_Immediate Raise,0xe0 038e 00d2 | | Pop_Control Pop_Count_2 038f 00d9 | | Load_Top At_Offset_1 0390 2902 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x2 0391 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0392 0000 0000 | | .BLANK 0000[0x6] 0398 ; -------------------------------------------------------------------------------------- 0398 ; SUBPROGRAM 0398 ; -------------------------------------------------------------------------------------- 0398 039b | | .CONST 0x039b ; Address of begin 0399 0004 | | .CONST 0x0004 ; Address of exception handler 039a 0001 | | .CONST 0x0001 ; Number of locals 039b BODY_0398: 039b INIT_0398: 039b 00cf | | Action Mark_Auxiliary 039c e5fe | | Load 0x2,-0x2 039d 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2 039e 01d9 | | Execute Vector,Reverse_Bounds 039f 0263 | c | Execute Discrete,Above_Bound 03a0 700b |p | Jump_Nonzero 0x3ac 03a1 00d8 | | Load_Top At_Offset_0 03a2 e5fe | | Load 0x2,-0x2 03a3 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2 03a4 01d5 | | Execute Vector,Field_Reference 03a5 e5ff | | Load 0x2,-0x1 03a6 822c | , | Call 0x1,0x2c 03a7 7002 |p | Jump_Nonzero 0x3aa 03a8 4800 |H | Short_Literal 0x0 03a9 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 03aa 00c8 | | Action Pop_Auxiliary_Range 03ab 3ff5 |? | Loop_Increasing 0x3a1 03ac 00ce | | Action Pop_Auxiliary 03ad 4801 |H | Short_Literal 0x1 03ae 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 03af 0000 | | .XXX[0x1] 03b0 ; -------------------------------------------------------------------------------------- 03b0 ; SUBPROGRAM 03b0 ; -------------------------------------------------------------------------------------- 03b0 03b5 | | .CONST 0x03b5 ; Address of begin 03b1 0004 | | .CONST 0x0004 ; Address of exception handler 03b2 0002 | | .CONST 0x0002 ; Number of locals 03b3 INIT_03b0: 03b3 00e1 | | Load_Encached Boolean_Cache 03b4 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 03b5 BODY_03b0: 03b5 00db | | Load_Top At_Offset_3 03b6 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 03b7 7005 |p | Jump_Nonzero 0x3bd 03b8 e5fe | | Load 0x2,-0x2 03b9 0092 055c | \| Action Push_String_Extended,0x55c ; "Any" 03bb 8002 | | Call 0x0,0x2 03bc 4503 |E | Exit_Suprogram New_Top_Offset 0x3 03bd 00cf | | Action Mark_Auxiliary 03be e5ff | | Load 0x2,-0x1 03bf 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2 03c0 01d9 | | Execute Vector,Reverse_Bounds 03c1 0263 | c | Execute Discrete,Above_Bound 03c2 7014 |p | Jump_Nonzero 0x3d7 03c3 00db | | Load_Top At_Offset_3 03c4 7008 |p | Jump_Nonzero 0x3cd 03c5 4801 |H | Short_Literal 0x1 03c6 e5fe | | Load 0x2,-0x2 03c7 8003 | | Call 0x0,0x3 03c8 e5fe | | Load 0x2,-0x2 03c9 0092 055d | ]| Action Push_String_Extended,0x55d ; " & " 03cb 8002 | | Call 0x0,0x2 03cc 7802 |x | Jump 0x3cf 03cd 4800 |H | Short_Literal 0x0 03ce a402 | | Store_Unchecked 0x2,0x2 03cf e5fe | | Load 0x2,-0x2 03d0 00d9 | | Load_Top At_Offset_1 03d1 e5ff | | Load 0x2,-0x1 03d2 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2 03d3 01d5 | | Execute Vector,Field_Reference 03d4 822d | - | Call 0x1,0x2d 03d5 00c8 | | Action Pop_Auxiliary_Range 03d6 3fec |? | Loop_Increasing 0x3c3 03d7 00ce | | Action Pop_Auxiliary 03d8 4503 |E | Exit_Suprogram New_Top_Offset 0x3 03d9 0000 0000 | | .BLANK 0000[0x7] 03e0 ; -------------------------------------------------------------------------------------- 03e0 ; SUBPROGRAM 03e0 ; -------------------------------------------------------------------------------------- 03e0 03e3 | | .CONST 0x03e3 ; Address of begin 03e1 0004 | | .CONST 0x0004 ; Address of exception handler 03e2 0001 | | .CONST 0x0001 ; Number of locals 03e3 BODY_03e0: 03e3 INIT_03e0: 03e3 4607 |F | Jump_Case 0x8 03e4 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 03e5 7807 |x | Jump 0x3ed ; case 0x1 03e6 780a |x | Jump 0x3f1 ; case 0x2 03e7 780e |x | Jump 0x3f6 ; case 0x3 03e8 7811 |x | Jump 0x3fa ; case 0x4 03e9 7812 |x | Jump 0x3fc ; case 0x5 03ea 7813 |x | Jump 0x3fe ; case 0x6 03eb 7816 |x | Jump 0x402 ; case 0x7 03ec 4302 |C | .XXX[0x1] 03ed 00da | | Load_Top At_Offset_2 03ee 0091 054e | N| Action Push_String_Extended_Indexed,0x54e ; "IS_EQUAL" 03f0 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 03f1 00db | | Load_Top At_Offset_3 03f2 00db | | Load_Top At_Offset_3 03f3 00e0 | | Load_Encached Standard_Cache 03f4 181b | | Execute Package,Field_Execute,Field_Number 0x1b 03f5 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 03f6 00da | | Load_Top At_Offset_2 03f7 00e0 | | Load_Encached Standard_Cache 03f8 181c | | Execute Package,Field_Execute,Field_Number 0x1c 03f9 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 03fa 00db | | Load_Top At_Offset_3 03fb 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 03fc 00db | | Load_Top At_Offset_3 03fd 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 03fe e220 | | Load 0x1,0x20 03ff 00dc | | Load_Top At_Offset_4 0400 0267 | g | Execute Discrete,Predecessor 0401 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0402 e220 | | Load 0x1,0x20 0403 00dc | | Load_Top At_Offset_4 0404 0268 | h | Execute Discrete,Successor 0405 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0406 0000 0000 | | .XXX[0x2] 0408 ; -------------------------------------------------------------------------------------- 0408 ; SUBPROGRAM 0408 ; -------------------------------------------------------------------------------------- 0408 0411 | | .CONST 0x0411 ; Address of begin 0409 0004 | | .CONST 0x0004 ; Address of exception handler 040a 0003 | | .CONST 0x0003 ; Number of locals 040b INIT_0408: 040b 00db | | Load_Top At_Offset_3 040c 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 040d 0007 | | Action Break_Optional 040e e5fe | | Load 0x2,-0x2 040f 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0410 0007 | | Action Break_Optional 0411 BODY_0408: 0411 00d9 | | Load_Top At_Offset_1 0412 00d8 | | Load_Top At_Offset_0 0413 e221 | ! | Load 0x1,0x21 0414 0260 | ` | Execute Discrete,In_Type 0415 7001 |p | Jump_Nonzero 0x417 0416 0801 | | Execute_Immediate Raise,0x1 0417 4605 |F | Jump_Case 0x6 0418 7809 |x | Jump 0x422 ; case 0x0 0419 780c |x | Jump 0x426 ; case 0x1 041a 780f |x | Jump 0x42a ; case 0x2 041b 7812 |x | Jump 0x42e ; case 0x3 041c 7815 |x | Jump 0x432 ; case 0x4 041d 7800 |x | Jump 0x41e ; case 0x5 041e e5ff | | Load 0x2,-0x1 041f 00d9 | | Load_Top At_Offset_1 0420 027e | ~ | Execute Discrete,Not_Equal 0421 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0422 e5ff | | Load 0x2,-0x1 0423 00d9 | | Load_Top At_Offset_1 0424 027f | | Execute Discrete,Equal 0425 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0426 e5ff | | Load 0x2,-0x1 0427 00d9 | | Load_Top At_Offset_1 0428 027c | | | Execute Discrete,Less 0429 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 042a e5ff | | Load 0x2,-0x1 042b 00d9 | | Load_Top At_Offset_1 042c 027a | z | Execute Discrete,Less_Equal 042d 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 042e e5ff | | Load 0x2,-0x1 042f 00d9 | | Load_Top At_Offset_1 0430 027d | } | Execute Discrete,Greater 0431 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0432 e5ff | | Load 0x2,-0x1 0433 00d9 | | Load_Top At_Offset_1 0434 027b | { | Execute Discrete,Greater_Equal 0435 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0436 0000 0000 | | .XXX[0x2] 0438 ; -------------------------------------------------------------------------------------- 0438 ; SUBPROGRAM 0438 ; -------------------------------------------------------------------------------------- 0438 0449 | I | .CONST 0x0449 ; Address of begin 0439 0004 | | .CONST 0x0004 ; Address of exception handler 043a 0004 | | .CONST 0x0004 ; Number of locals 043b INIT_0438: 043b 00db | | Load_Top At_Offset_3 043c 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 043d 0007 | | Action Break_Optional 043e e5fe | | Load 0x2,-0x2 043f 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0440 00d8 | | Load_Top At_Offset_0 0441 e20e | | Load 0x1,0xe 0442 0260 | ` | Execute Discrete,In_Type 0443 7001 |p | Jump_Nonzero 0x445 0444 0801 | | Execute_Immediate Raise,0x1 0445 00d8 | | Load_Top At_Offset_0 0446 e228 | ( | Load 0x1,0x28 0447 01d5 | | Execute Vector,Field_Reference 0448 0007 | | Action Break_Optional 0449 BODY_0438: 0449 00da | | Load_Top At_Offset_2 044a 00d8 | | Load_Top At_Offset_0 044b e222 | " | Load 0x1,0x22 044c 0260 | ` | Execute Discrete,In_Type 044d 7001 |p | Jump_Nonzero 0x44f 044e 0801 | | Execute_Immediate Raise,0x1 044f 0afa | | Execute_Immediate Plus,-0x6 0450 4605 |F | Jump_Case 0x6 0451 7809 |x | Jump 0x45b ; case 0x0 0452 780c |x | Jump 0x45f ; case 0x1 0453 780f |x | Jump 0x463 ; case 0x2 0454 7812 |x | Jump 0x467 ; case 0x3 0455 7815 |x | Jump 0x46b ; case 0x4 0456 7800 |x | Jump 0x457 ; case 0x5 0457 e5ff | | Load 0x2,-0x1 0458 00d9 | | Load_Top At_Offset_1 0459 027e | ~ | Execute Discrete,Not_Equal 045a 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 045b e5ff | | Load 0x2,-0x1 045c 00d9 | | Load_Top At_Offset_1 045d 027f | | Execute Discrete,Equal 045e 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 045f e5ff | | Load 0x2,-0x1 0460 00d9 | | Load_Top At_Offset_1 0461 027c | | | Execute Discrete,Less 0462 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0463 e5ff | | Load 0x2,-0x1 0464 00d9 | | Load_Top At_Offset_1 0465 027a | z | Execute Discrete,Less_Equal 0466 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0467 e5ff | | Load 0x2,-0x1 0468 00d9 | | Load_Top At_Offset_1 0469 027d | } | Execute Discrete,Greater 046a 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 046b e5ff | | Load 0x2,-0x1 046c 00d9 | | Load_Top At_Offset_1 046d 027b | { | Execute Discrete,Greater_Equal 046e 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 046f 0000 | | .XXX[0x1] 0470 ; -------------------------------------------------------------------------------------- 0470 ; SUBPROGRAM 0470 ; -------------------------------------------------------------------------------------- 0470 0479 | y | .CONST 0x0479 ; Address of begin 0471 0004 | | .CONST 0x0004 ; Address of exception handler 0472 0003 | | .CONST 0x0003 ; Number of locals 0473 INIT_0470: 0473 00db | | Load_Top At_Offset_3 0474 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0475 0007 | | Action Break_Optional 0476 e5fe | | Load 0x2,-0x2 0477 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0478 0007 | | Action Break_Optional 0479 BODY_0470: 0479 00d9 | | Load_Top At_Offset_1 047a 00d8 | | Load_Top At_Offset_0 047b e223 | # | Load 0x1,0x23 047c 0260 | ` | Execute Discrete,In_Type 047d 7001 |p | Jump_Nonzero 0x47f 047e 0801 | | Execute_Immediate Raise,0x1 047f 0f0c | | Execute_Immediate Equal,0xc 0480 700b |p | Jump_Nonzero 0x48c 0481 e5ff | | Load 0x2,-0x1 0482 00d9 | | Load_Top At_Offset_1 0483 00d8 | | Load_Top At_Offset_0 0484 e20e | | Load 0x1,0xe 0485 0260 | ` | Execute Discrete,In_Type 0486 7001 |p | Jump_Nonzero 0x488 0487 0801 | | Execute_Immediate Raise,0x1 0488 e228 | ( | Load 0x1,0x28 0489 01d6 | | Execute Vector,Field_Write 048a 4801 |H | Short_Literal 0x1 048b 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 048c 4801 |H | Short_Literal 0x1 048d 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 048e 0000 0000 | | .XXX[0x2] 0490 ; -------------------------------------------------------------------------------------- 0490 ; SUBPROGRAM 0490 ; -------------------------------------------------------------------------------------- 0490 0496 | | .CONST 0x0496 ; Address of begin 0491 0004 | | .CONST 0x0004 ; Address of exception handler 0492 0002 | | .CONST 0x0002 ; Number of locals 0493 INIT_0490: 0493 00db | | Load_Top At_Offset_3 0494 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0495 0007 | | Action Break_Optional 0496 BODY_0490: 0496 00d8 | | Load_Top At_Offset_0 0497 460d |F | Jump_Case 0xe 0498 7811 |x | Jump 0x4aa ; case 0x0 0499 7810 |x | Jump 0x4aa ; case 0x1 049a 780f |x | Jump 0x4aa ; case 0x2 049b 780e |x | Jump 0x4aa ; case 0x3 049c 780d |x | Jump 0x4aa ; case 0x4 049d 780c |x | Jump 0x4aa ; case 0x5 049e 780f |x | Jump 0x4ae ; case 0x6 049f 780e |x | Jump 0x4ae ; case 0x7 04a0 780d |x | Jump 0x4ae ; case 0x8 04a1 780c |x | Jump 0x4ae ; case 0x9 04a2 780b |x | Jump 0x4ae ; case 0xa 04a3 780a |x | Jump 0x4ae ; case 0xb 04a4 7801 |x | Jump 0x4a6 ; case 0xc 04a5 7800 |x | Jump 0x4a6 ; case 0xd 04a6 e5fe | | Load 0x2,-0x2 04a7 e5ff | | Load 0x2,-0x1 04a8 822b | + | Call 0x1,0x2b 04a9 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 04aa e5fe | | Load 0x2,-0x2 04ab e5ff | | Load 0x2,-0x1 04ac 8229 | ) | Call 0x1,0x29 04ad 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 04ae e5fe | | Load 0x2,-0x2 04af e5ff | | Load 0x2,-0x1 04b0 822a | * | Call 0x1,0x2a 04b1 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 04b2 0000 0000 | | .BLANK 0000[0x6] 04b8 ; -------------------------------------------------------------------------------------- 04b8 ; SUBPROGRAM 04b8 ; -------------------------------------------------------------------------------------- 04b8 04bb | | .CONST 0x04bb ; Address of begin 04b9 0004 | | .CONST 0x0004 ; Address of exception handler 04ba 0001 | | .CONST 0x0001 ; Number of locals 04bb BODY_04b8: 04bb INIT_04b8: 04bb 00db | | Load_Top At_Offset_3 04bc 00db | | Load_Top At_Offset_3 04bd 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 04be e220 | | Load 0x1,0x20 04bf 011c | | Execute Any,Convert_Unchecked 04c0 1c01 | | Execute_Immediate Run_Utility,0x1 04c1 8002 | | Call 0x0,0x2 04c2 00da | | Load_Top At_Offset_2 04c3 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 04c4 460d |F | Jump_Case 0xe 04c5 7822 |x" | Jump 0x4e8 ; case 0x0 04c6 7821 |x! | Jump 0x4e8 ; case 0x1 04c7 7820 |x | Jump 0x4e8 ; case 0x2 04c8 781f |x | Jump 0x4e8 ; case 0x3 04c9 781e |x | Jump 0x4e8 ; case 0x4 04ca 781d |x | Jump 0x4e8 ; case 0x5 04cb 7807 |x | Jump 0x4d3 ; case 0x6 04cc 7806 |x | Jump 0x4d3 ; case 0x7 04cd 7805 |x | Jump 0x4d3 ; case 0x8 04ce 7804 |x | Jump 0x4d3 ; case 0x9 04cf 7803 |x | Jump 0x4d3 ; case 0xa 04d0 7802 |x | Jump 0x4d3 ; case 0xb 04d1 4503 |E | Exit_Suprogram New_Top_Offset 0x3 ; case 0xc 04d2 7800 |x | Jump 0x4d3 ; case 0xd 04d3 00db | | Load_Top At_Offset_3 04d4 0092 055e | ^| Action Push_String_Extended,0x55e ; " (Alias'" 04d6 8002 | | Call 0x0,0x2 04d7 00db | | Load_Top At_Offset_3 04d8 00db | | Load_Top At_Offset_3 04d9 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 04da 00d8 | | Load_Top At_Offset_0 04db e20e | | Load 0x1,0xe 04dc 0260 | ` | Execute Discrete,In_Type 04dd 7001 |p | Jump_Nonzero 0x4df 04de 0801 | | Execute_Immediate Raise,0x1 04df e20e | | Load 0x1,0xe 04e0 011c | | Execute Any,Convert_Unchecked 04e1 1c01 | | Execute_Immediate Run_Utility,0x1 04e2 8002 | | Call 0x0,0x2 04e3 00db | | Load_Top At_Offset_3 04e4 0092 055f | _| Action Push_String_Extended,0x55f ; ")" 04e6 8002 | | Call 0x0,0x2 04e7 4503 |E | Exit_Suprogram New_Top_Offset 0x3 04e8 00db | | Load_Top At_Offset_3 04e9 0092 0560 | `| Action Push_String_Extended,0x560 ; " (" 04eb e5ff | | Load 0x2,-0x1 04ec 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 04ed 00e0 | | Load_Encached Standard_Cache 04ee 1818 | | Execute Package,Field_Execute,Field_Number 0x18 04ef 01cc | | Execute Vector,Catenate 04f0 0092 055f | _| Action Push_String_Extended,0x55f ; ")" 04f2 01cc | | Execute Vector,Catenate 04f3 8002 | | Call 0x0,0x2 04f4 4503 |E | Exit_Suprogram New_Top_Offset 0x3 04f5 0000 0000 | | .XXX[0x3] 04f7 0000 | | 04f8 ; -------------------------------------------------------------------------------------- 04f8 ; SUBPROGRAM 04f8 ; -------------------------------------------------------------------------------------- 04f8 04fb | | .CONST 0x04fb ; Address of begin 04f9 0004 | | .CONST 0x0004 ; Address of exception handler 04fa 0001 | | .CONST 0x0001 ; Number of locals 04fb BODY_04f8: 04fb INIT_04f8: 04fb 4609 |F | Jump_Case 0xa 04fc 7809 |x | Jump 0x506 ; case 0x0 04fd 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 04fe 7813 |x | Jump 0x512 ; case 0x2 04ff 7816 |x | Jump 0x516 ; case 0x3 0500 7832 |x2 | Jump 0x533 ; case 0x4 0501 7831 |x1 | Jump 0x533 ; case 0x5 0502 7830 |x0 | Jump 0x533 ; case 0x6 0503 7818 |x | Jump 0x51c ; case 0x7 0504 7820 |x | Jump 0x525 ; case 0x8 0505 7829 |x) | Jump 0x52f ; case 0x9 0506 00da | | Load_Top At_Offset_2 0507 016c | l | Execute Variant_Record,Is_Constrained 0508 7008 |p | Jump_Nonzero 0x511 0509 00cf | | Action Mark_Auxiliary 050a 4800 |H | Short_Literal 0x0 050b e5ff | | Load 0x2,-0x1 050c 1c08 | | Execute_Immediate Run_Utility,0x8 050d 00d8 | | Load_Top At_Offset_0 050e 1c00 | | Execute_Immediate Run_Utility,0x0 050f c5ff | | Store 0x2,-0x1 0510 00ce | | Action Pop_Auxiliary 0511 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0512 4801 |H | Short_Literal 0x1 0513 4802 |H | Short_Literal 0x2 0514 0311 | | Declare_Type Variant_Record,Constrained_Incomplete 0515 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0516 e5fd | | Load 0x2,-0x3 0517 00db | | Load_Top At_Offset_3 0518 1c07 | | Execute_Immediate Run_Utility,0x7 0519 e5fe | | Load 0x2,-0x2 051a 0306 | | Complete_Type Variant_Record,By_Renaming 051b 4304 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x4 051c 00db | | Load_Top At_Offset_3 051d 4801 |H | Short_Literal 0x1 051e e5fe | | Load 0x2,-0x2 051f e225 | % | Load 0x1,0x25 0520 035b | [ | Declare_Type Array,Constrained 0521 4801 |H | Short_Literal 0x1 0522 e5ff | | Load 0x2,-0x1 0523 031b | | Declare_Type Variant_Record,Constrained 0524 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0525 00db | | Load_Top At_Offset_3 0526 00db | | Load_Top At_Offset_3 0527 02fc | | Declare_Variable Variant_Record,With_Constraint 0528 4801 |H | Short_Literal 0x1 0529 e5fe | | Load 0x2,-0x2 052a e225 | % | Load 0x1,0x25 052b 0334 | 4 | Declare_Variable Array,With_Constraint 052c 2d02 |- | Execute Variant_Record,Field_Append,Fixed,Indirect,Field_Number 0x2 052d 016a | j | QQ_execute Variant_Record,XXX 052e 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 052f 4800 |H | Short_Literal 0x0 0530 00db | | Load_Top At_Offset_3 0531 1c07 | | Execute_Immediate Run_Utility,0x7 0532 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0533 0869 | i | Execute_Immediate Raise,0x69 0534 ; -------------------------------------------------------------------------------------- 0534 ; STRING TABLE 0534 ; -------------------------------------------------------------------------------------- 0534 005c | \ | .STRTAB 0x005c->0x0562 ; "A" 0535 005b | [ | .STRTAB 0x005b->0x0562 ; "B" 0536 005a | Z | .STRTAB 0x005a->0x0563 ; "C" 0537 0059 | Y | .STRTAB 0x0059->0x0563 ; "D" 0538 0058 | X | .STRTAB 0x0058->0x0564 ; "E" 0539 0057 | W | .STRTAB 0x0057->0x0564 ; "F" 053a 0056 | V | .STRTAB 0x0056->0x0565 ; "G" 053b 0055 | U | .STRTAB 0x0055->0x0565 ; "H" 053c 0054 | T | .STRTAB 0x0054->0x0566 ; "I" 053d 0053 | S | .STRTAB 0x0053->0x0566 ; "J" 053e 0052 | R | .STRTAB 0x0052->0x0567 ; "K" 053f 0051 | Q | .STRTAB 0x0051->0x0567 ; "L" 0540 0050 | P | .STRTAB 0x0050->0x0568 ; "M" 0541 004f | O | .STRTAB 0x004f->0x0568 ; "N" 0542 004e | N | .STRTAB 0x004e->0x0569 ; "O" 0543 004d | M | .STRTAB 0x004d->0x0569 ; "P" 0544 004c | L | .STRTAB 0x004c->0x056a ; "Q" 0545 004b | K | .STRTAB 0x004b->0x056a ; "R" 0546 004a | J | .STRTAB 0x004a->0x056b ; "S" 0547 0049 | I | .STRTAB 0x0049->0x056b ; "T" 0548 0048 | H | .STRTAB 0x0048->0x056c ; "U" 0549 0047 | G | .STRTAB 0x0047->0x056c ; "V" 054a 0046 | F | .STRTAB 0x0046->0x056d ; "W" 054b 0045 | E | .STRTAB 0x0045->0x056d ; "X" 054c 0044 | D | .STRTAB 0x0044->0x056e ; "Y" 054d 0043 | C | .STRTAB 0x0043->0x056e ; "Z" 054e 0042 | B | .STRTAB 0x0042->0x056f ; "IS_EQUAL" 054f 0048 | H | .STRTAB 0x0048->0x0573 ; "IS_LESS" 0550 004d | M | .STRTAB 0x004d->0x0576 ; "IS_LESS_OR_EQUAL" 0551 005b | [ | .STRTAB 0x005b->0x057e ; "IS_GREATER" 0552 0063 | c | .STRTAB 0x0063->0x0583 ; "IS_GREATER_OR_EQUAL" 0553 0074 | t | .STRTAB 0x0074->0x058d ; "IS_DIFFERENT" 0554 007e | ~ | .STRTAB 0x007e->0x0593 ; "IS_EQUAL_TO_ALIAS" 0555 008d | | .STRTAB 0x008d->0x059b ; "IS_LESS_THAN_ALIAS" 0556 009d | | .STRTAB 0x009d->0x05a4 ; "IS_LESS_OR_EQUAL_THAN_ALIAS" 0557 00b6 | | .STRTAB 0x00b6->0x05b2 ; "IS_GREATER_THAN_ALIAS" 0558 00c9 | | .STRTAB 0x00c9->0x05bc ; "IS_GREATER_OR_EQUAL_THAN_ALIAS" 0559 00e5 | | .STRTAB 0x00e5->0x05cb ; "IS_DIFFERENT_THAN_ALIAS" 055a 00fa | | .STRTAB 0x00fa->0x05d7 ; "IS_ANY" 055b 00fe | | .STRTAB 0x00fe->0x05da ; "SAY_IT_IS" 055c 0105 | | .STRTAB 0x0105->0x05de ; "Any" 055d 0106 | | .STRTAB 0x0106->0x05e0 ; " & " 055e 0108 | | .STRTAB 0x0108->0x05e2 ; " (Alias'" 055f 010e | | .STRTAB 0x010e->0x05e6 ; ")" 0560 010d | | .STRTAB 0x010d->0x05e6 ; " (" 0561 010d | | .STREND 0x010d->0x05e7 0562 4142 4344 |ABCD| .STRTAB_STRINGS 05e8 ; -------------------------------------------------------------------------------------- 05e8 ; Debug Table 05e8 ; -------------------------------------------------------------------------------------- 05e8 0004 0004 | | .DEBUG4 0x0004,0x0004,0x6222,0x0000,0x0001,0x001b 05ee 000b 065a | Z| .DBG4T 0x000b,0x065a,0x8000,0x8000 05f2 0061 0690 | a | .DBG4T 0x0061,0x0690,0x8000,0x0000 05f6 00ab 0000 | | .DBG4T 0x00ab,0x0000,0x0005,0x0000 05fa 00d3 06aa | | .DBG4T 0x00d3,0x06aa,0x0002,0x0000 05fe 0103 06ad | | .DBG4T 0x0103,0x06ad,0x0002,0x0000 0602 0133 06b0 | 3 | .DBG4T 0x0133,0x06b0,0x0002,0x0000 0606 0163 06b3 | c | .DBG4T 0x0163,0x06b3,0x0002,0x0000 060a 0193 06b6 | | .DBG4T 0x0193,0x06b6,0x0002,0x0000 060e 01c3 06b9 | | .DBG4T 0x01c3,0x06b9,0x0002,0x0000 0612 01f3 06bc | | .DBG4T 0x01f3,0x06bc,0x0002,0x0000 0616 0223 06bf | # | .DBG4T 0x0223,0x06bf,0x0002,0x0000 061a 0253 06c2 | S | .DBG4T 0x0253,0x06c2,0x0002,0x0000 061e 0283 06c5 | | .DBG4T 0x0283,0x06c5,0x0002,0x0000 0622 02b3 06c8 | | .DBG4T 0x02b3,0x06c8,0x0002,0x0000 0626 02e3 06cb | | .DBG4T 0x02e3,0x06cb,0x0002,0x0000 062a 0313 06ce | | .DBG4T 0x0313,0x06ce,0x0002,0x0000 062e 0343 06d1 | C | .DBG4T 0x0343,0x06d1,0x0002,0x0000 0632 0373 06d4 | s | .DBG4T 0x0373,0x06d4,0x0002,0x0000 0636 039b 06d7 | | .DBG4T 0x039b,0x06d7,0x0002,0x0000 063a 03b3 06dd | | .DBG4T 0x03b3,0x06dd,0x0001,0x0000 063e 03e3 0000 | | .DBG4T 0x03e3,0x0000,0x0005,0x0000 0642 040b 06e8 | | .DBG4T 0x040b,0x06e8,0x0002,0x4000 0646 043b 06fa | ; | .DBG4T 0x043b,0x06fa,0x0002,0x4000 064a 0473 070d | s | .DBG4T 0x0473,0x070d,0x0002,0x4000 064e 0493 0719 | | .DBG4T 0x0493,0x0719,0x0002,0x4000 0652 04bb 0724 | $| .DBG4T 0x04bb,0x0724,0x0001,0x4000 0656 04fb 0000 | | .DBG4T 0x04fb,0x0000,0x0005,0x0000 065a ; -------------------------------------------------------------------------------------- 065a ; Debug chain 065a ; -------------------------------------------------------------------------------------- 065a 001a 0000 | | .DBGLEN 0x001a,0x0000 065c 000b 000f | | .DBGLNO 0x000b,0x000f,0x0014,0x0016,0x0018,0x001a,0x001c,0x001e,0x0020,0x0022,0x0024,0x0026,0x0028,0x002a,0x002c,0x002e,0x0030,0x0032,0x0034,0x0036,0x003b,0x003f,0x0043,0x0047,0x004c,0x0052 0676 0002 0004 | | .XXX[0x1a] 0678 0005 0006 | | 067a 0007 0008 | | 067c 0009 000a | | 067e 000b 000c | | 0680 000d 000e | | 0682 000f 0010 | | 0684 0011 0012 | | 0686 0013 0014 | | 0688 0015 0016 | | 068a 0017 0018 | | 068c 0019 001a | | 068e 001b 001c | | 0690 ; -------------------------------------------------------------------------------------- 0690 ; Debug chain 0690 ; -------------------------------------------------------------------------------------- 0690 0018 0000 | | .DBGLEN 0x0018,0x0000 0692 0061 0067 | a g| .DBGLNO 0x0061,0x0067,0x0075,0x0077,0x0079,0x007b,0x007d,0x007f,0x0081,0x0083,0x0085,0x0087,0x0089,0x008b,0x008d,0x008f,0x0091,0x0093,0x0095,0x0097,0x0099,0x009b,0x009d,0x009f 06aa ; -------------------------------------------------------------------------------------- 06aa ; Debug chain 06aa ; -------------------------------------------------------------------------------------- 06aa 0000 0001 | | .DBGLEN 0x0000,0x0001 06ac 00d3 | | .DBGLNO 0x00d3 06ad ; -------------------------------------------------------------------------------------- 06ad ; Debug chain 06ad ; -------------------------------------------------------------------------------------- 06ad 0000 0001 | | .DBGLEN 0x0000,0x0001 06af 0103 | | .DBGLNO 0x0103 06b0 ; -------------------------------------------------------------------------------------- 06b0 ; Debug chain 06b0 ; -------------------------------------------------------------------------------------- 06b0 0000 0001 | | .DBGLEN 0x0000,0x0001 06b2 0133 | 3 | .DBGLNO 0x0133 06b3 ; -------------------------------------------------------------------------------------- 06b3 ; Debug chain 06b3 ; -------------------------------------------------------------------------------------- 06b3 0000 0001 | | .DBGLEN 0x0000,0x0001 06b5 0163 | c | .DBGLNO 0x0163 06b6 ; -------------------------------------------------------------------------------------- 06b6 ; Debug chain 06b6 ; -------------------------------------------------------------------------------------- 06b6 0000 0001 | | .DBGLEN 0x0000,0x0001 06b8 0193 | | .DBGLNO 0x0193 06b9 ; -------------------------------------------------------------------------------------- 06b9 ; Debug chain 06b9 ; -------------------------------------------------------------------------------------- 06b9 0000 0001 | | .DBGLEN 0x0000,0x0001 06bb 01c3 | | .DBGLNO 0x01c3 06bc ; -------------------------------------------------------------------------------------- 06bc ; Debug chain 06bc ; -------------------------------------------------------------------------------------- 06bc 0000 0001 | | .DBGLEN 0x0000,0x0001 06be 01f3 | | .DBGLNO 0x01f3 06bf ; -------------------------------------------------------------------------------------- 06bf ; Debug chain 06bf ; -------------------------------------------------------------------------------------- 06bf 0000 0001 | | .DBGLEN 0x0000,0x0001 06c1 0223 | # | .DBGLNO 0x0223 06c2 ; -------------------------------------------------------------------------------------- 06c2 ; Debug chain 06c2 ; -------------------------------------------------------------------------------------- 06c2 0000 0001 | | .DBGLEN 0x0000,0x0001 06c4 0253 | S | .DBGLNO 0x0253 06c5 ; -------------------------------------------------------------------------------------- 06c5 ; Debug chain 06c5 ; -------------------------------------------------------------------------------------- 06c5 0000 0001 | | .DBGLEN 0x0000,0x0001 06c7 0283 | | .DBGLNO 0x0283 06c8 ; -------------------------------------------------------------------------------------- 06c8 ; Debug chain 06c8 ; -------------------------------------------------------------------------------------- 06c8 0000 0001 | | .DBGLEN 0x0000,0x0001 06ca 02b3 | | .DBGLNO 0x02b3 06cb ; -------------------------------------------------------------------------------------- 06cb ; Debug chain 06cb ; -------------------------------------------------------------------------------------- 06cb 0000 0001 | | .DBGLEN 0x0000,0x0001 06cd 02e3 | | .DBGLNO 0x02e3 06ce ; -------------------------------------------------------------------------------------- 06ce ; Debug chain 06ce ; -------------------------------------------------------------------------------------- 06ce 0000 0001 | | .DBGLEN 0x0000,0x0001 06d0 0313 | | .DBGLNO 0x0313 06d1 ; -------------------------------------------------------------------------------------- 06d1 ; Debug chain 06d1 ; -------------------------------------------------------------------------------------- 06d1 0000 0001 | | .DBGLEN 0x0000,0x0001 06d3 0343 | C | .DBGLNO 0x0343 06d4 ; -------------------------------------------------------------------------------------- 06d4 ; Debug chain 06d4 ; -------------------------------------------------------------------------------------- 06d4 0000 0001 | | .DBGLEN 0x0000,0x0001 06d6 0373 | s | .DBGLNO 0x0373 06d7 ; -------------------------------------------------------------------------------------- 06d7 ; Debug chain 06d7 ; -------------------------------------------------------------------------------------- 06d7 0000 0004 | | .DBGLEN 0x0000,0x0004 06d9 039c 03a1 | | .DBGLNO 0x039c,0x03a1,0x03a8,0x03ad 06dd ; -------------------------------------------------------------------------------------- 06dd ; Debug chain 06dd ; -------------------------------------------------------------------------------------- 06dd 0001 0008 | | .DBGLEN 0x0001,0x0008 06df 03b3 03b5 | | .DBGLNO 0x03b3,0x03b5,0x03b8,0x03be,0x03c3,0x03c5,0x03c8,0x03cd,0x03cf 06e8 ; -------------------------------------------------------------------------------------- 06e8 ; Debug chain 06e8 ; -------------------------------------------------------------------------------------- 06e8 0002 0007 | | .DBGLEN 0x0002,0x0007 06ea 040b 040e | | .DBGLNO 0x040b,0x040e,0x0411,0x041e,0x0422,0x0426,0x042a,0x042e,0x0432 06f3 0001 0007 | | .XXX[0x7] 06f5 0002 0003 | | 06f7 0004 0005 | | 06f9 0006 | | 06fa ; -------------------------------------------------------------------------------------- 06fa ; Debug chain 06fa ; -------------------------------------------------------------------------------------- 06fa 0003 0007 | | .DBGLEN 0x0003,0x0007 06fc 043b 043e | ; >| .DBGLNO 0x043b,0x043e,0x0445,0x0449,0x0457,0x045b,0x045f,0x0463,0x0467,0x046b 0706 0001 0007 | | .XXX[0x7] 0708 0002 0003 | | 070a 0004 0005 | | 070c 0006 | | 070d ; -------------------------------------------------------------------------------------- 070d ; Debug chain 070d ; -------------------------------------------------------------------------------------- 070d 0002 0004 | | .DBGLEN 0x0002,0x0004 070f 0473 0476 | s v| .DBGLNO 0x0473,0x0476,0x0479,0x0481,0x048a,0x048c 0715 0001 0003 | | .XXX[0x4] 0717 0004 0002 | | 0719 ; -------------------------------------------------------------------------------------- 0719 ; Debug chain 0719 ; -------------------------------------------------------------------------------------- 0719 0001 0004 | | .DBGLEN 0x0001,0x0004 071b 0493 0496 | | .DBGLNO 0x0493,0x0496,0x04a6,0x04aa,0x04ae 0720 0001 0004 | | .XXX[0x4] 0722 0002 0003 | | 0724 ; -------------------------------------------------------------------------------------- 0724 ; Debug chain 0724 ; -------------------------------------------------------------------------------------- 0724 0000 0006 | | .DBGLEN 0x0000,0x0006 0726 04bb 04c2 | | .DBGLNO 0x04bb,0x04c2,0x04d3,0x04d7,0x04e3,0x04e8 072c 0001 0002 | | .XXX[0x6] 072e 0004 0005 | | 0730 0006 0003 | | 0732 0000 0000 | | .BLANK 0000[0xce]