|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 5120 (0x1400) Notes: 00_class, 5900_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_10018b7
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000 └─ ⟦cfc2e13cd⟧ »Space Info Vol 2« └─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code 0001 5900 |Y | .CONST 0x5900 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 0670 | p | .CONST 0x0670 ; Offset of debug table 0004 0100 | | .CONST 0x0100 ; Default exception handler - raise instruction 0005 00bb | | .CONST 0x00bb ; Module termination instruction - signal completion 0006 0000 | | .CONST 0x0000 ; Offset to segment table (only in elab segments) 0007 0004 | | .CONST 0x0004 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 00d8 | | .CONST 0x00d8 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 002f | / | .CONST 0x002f ; Number of locals 000b INIT_0008: 000b 4800 |H | Short_Literal 0x0 000c 4808 |H | Short_Literal 0x8 000d 029f 00e3 | | Declare_Subprogram INIT_00e0,For_Call 000f 03fe | | Declare_Type Discrete,Defined,Visible 0010 0007 | | Action Break_Optional 0011 00c4 | | Action Make_Default 0012 00c4 | | Action Make_Default 0013 00c4 | | Action Make_Default 0014 029a 0113 | | Declare_Subprogram INIT_0110,For_Outer_Call,Visible,Unelaborated 0016 029a 0123 | #| Declare_Subprogram INIT_0120,For_Outer_Call,Visible,Unelaborated 0018 029a 0133 | 3| Declare_Subprogram INIT_0130,For_Outer_Call,Visible,Unelaborated 001a 029a 0143 | C| Declare_Subprogram INIT_0140,For_Outer_Call,Visible,Unelaborated 001c 029a 0153 | S| Declare_Subprogram INIT_0150,For_Outer_Call,Visible,Unelaborated 001e 029a 0163 | c| Declare_Subprogram INIT_0160,For_Outer_Call,Visible,Unelaborated 0020 029a 0173 | s| Declare_Subprogram INIT_0170,For_Outer_Call,Visible,Unelaborated 0022 029a 017b | {| Declare_Subprogram INIT_0178,For_Outer_Call,Visible,Unelaborated 0024 029a 0183 | | Declare_Subprogram INIT_0180,For_Outer_Call,Visible,Unelaborated 0026 029a 018b | | Declare_Subprogram INIT_0188,For_Outer_Call,Visible,Unelaborated 0028 029a 0193 | | Declare_Subprogram INIT_0190,For_Outer_Call,Visible,Unelaborated 002a 029a 019b | | Declare_Subprogram INIT_0198,For_Outer_Call,Visible,Unelaborated 002c 029a 01a3 | | Declare_Subprogram INIT_01a0,For_Outer_Call,Visible,Unelaborated 002e 029a 01ab | | Declare_Subprogram INIT_01a8,For_Outer_Call,Visible,Unelaborated 0030 029a 01b3 | | Declare_Subprogram INIT_01b0,For_Outer_Call,Visible,Unelaborated 0032 029a 01bb | | Declare_Subprogram INIT_01b8,For_Outer_Call,Visible,Unelaborated 0034 029a 01c3 | | Declare_Subprogram INIT_01c0,For_Outer_Call,Visible,Unelaborated 0036 029a 01cb | | Declare_Subprogram INIT_01c8,For_Outer_Call,Visible,Unelaborated 0038 029a 01d3 | | Declare_Subprogram INIT_01d0,For_Outer_Call,Visible,Unelaborated 003a 029a 01db | | Declare_Subprogram INIT_01d8,For_Outer_Call,Visible,Unelaborated 003c 029a 01e3 | | Declare_Subprogram INIT_01e0,For_Outer_Call,Visible,Unelaborated 003e 029a 01eb | | Declare_Subprogram INIT_01e8,For_Outer_Call,Visible,Unelaborated 0040 029a 01f3 | | Declare_Subprogram INIT_01f0,For_Outer_Call,Visible,Unelaborated 0042 029a 0203 | | Declare_Subprogram INIT_0200,For_Outer_Call,Visible,Unelaborated 0044 029a 020b | | Declare_Subprogram INIT_0208,For_Outer_Call,Visible,Unelaborated 0046 029a 021b | | Declare_Subprogram INIT_0218,For_Outer_Call,Visible,Unelaborated 0048 4800 |H | Short_Literal 0x0 0049 0093 0373 | s| push_full_address INIT_0370 004b 02a0 | | Declare_Subprogram Null_Subprogram 004c 038f | | Declare_Type Package,Defined,Visible 004d 0386 | | Declare_Variable Package,Visible 004e 4802 |H | Short_Literal 0x2 004f 0093 02fb | | push_full_address INIT_02f8 0051 02a0 | | Declare_Subprogram Null_Subprogram 0052 038d | | Declare_Type Package,Defined,Visible,Not_Elaborated 0053 0093 0000 | | push_full_address 0x0 0055 60b6 |` | Indirect_Literal Discrete,0x10c,{0x80000000, 0x00010000} 0056 0273 | s | Execute Discrete,Plus 0057 0129 | ) | Execute Any,Make_Visible 0058 0093 0000 | | push_full_address 0x0 005a 60ad |` | Indirect_Literal Discrete,0x108,{0x80000000, 0x00020000} 005b 0273 | s | Execute Discrete,Plus 005c 0129 | ) | Execute Any,Make_Visible 005d e20d | | Load 0x1,0xd 005e 4801 |H | Short_Literal 0x1 005f 00e2 | | Load_Encached Integer_Cache 0060 4801 |H | Short_Literal 0x1 0061 00e6 | | Load_Encached Float_Cache 0062 4801 |H | Short_Literal 0x1 0063 00e1 | | Load_Encached Boolean_Cache 0064 4801 |H | Short_Literal 0x1 0065 00e8 | | Load_Encached Character_Cache 0066 4801 |H | Short_Literal 0x1 0067 00e7 | | Load_Encached Duration_Cache 0068 4801 |H | Short_Literal 0x1 0069 e003 | | Load 0x0,0x3 006a 4801 |H | Short_Literal 0x1 006b 00e2 | | Load_Encached Integer_Cache 006c 4801 |H | Short_Literal 0x1 006d e004 | | Load 0x0,0x4 006e 029f 025b | [| Declare_Subprogram INIT_0258,For_Call 0070 4808 |H | Short_Literal 0x8 0071 4800 |H | Short_Literal 0x0 0072 4808 |H | Short_Literal 0x8 0073 4800 |H | Short_Literal 0x0 0074 4801 |H | Short_Literal 0x1 0075 031e | | Declare_Type Variant_Record,Defined,Visible 0076 4808 |H | Short_Literal 0x8 0077 00d9 | | Load_Top At_Offset_1 0078 1c08 | | Execute_Immediate Run_Utility,0x8 0079 0129 | ) | Execute Any,Make_Visible 007a c20e | | Store 0x1,0xe 007b 4801 |H | Short_Literal 0x1 007c 00d9 | | Load_Top At_Offset_1 007d 1c08 | | Execute_Immediate Run_Utility,0x8 007e 4800 |H | Short_Literal 0x0 007f 00d9 | | Load_Top At_Offset_1 0080 2a04 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4 0081 0129 | ) | Execute Any,Make_Visible 0082 c20f | | Store 0x1,0xf 0083 4801 |H | Short_Literal 0x1 0084 00d9 | | Load_Top At_Offset_1 0085 1c08 | | Execute_Immediate Run_Utility,0x8 0086 4801 |H | Short_Literal 0x1 0087 00d9 | | Load_Top At_Offset_1 0088 2a04 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4 0089 0129 | ) | Execute Any,Make_Visible 008a c210 | | Store 0x1,0x10 008b 00bf | | Action Accept_Activation 008c 1d11 | | Execute_Immediate Reference_Lex_1,0x11 008d 00c7 | | Action Elaborate_Subprogram 008e 1d13 | | Execute_Immediate Reference_Lex_1,0x13 008f 00c7 | | Action Elaborate_Subprogram 0090 1d12 | | Execute_Immediate Reference_Lex_1,0x12 0091 00c7 | | Action Elaborate_Subprogram 0092 1d14 | | Execute_Immediate Reference_Lex_1,0x14 0093 00c7 | | Action Elaborate_Subprogram 0094 1d15 | | Execute_Immediate Reference_Lex_1,0x15 0095 00c7 | | Action Elaborate_Subprogram 0096 1d16 | | Execute_Immediate Reference_Lex_1,0x16 0097 00c7 | | Action Elaborate_Subprogram 0098 1d17 | | Execute_Immediate Reference_Lex_1,0x17 0099 00c7 | | Action Elaborate_Subprogram 009a 1d18 | | Execute_Immediate Reference_Lex_1,0x18 009b 00c7 | | Action Elaborate_Subprogram 009c 1d19 | | Execute_Immediate Reference_Lex_1,0x19 009d 00c7 | | Action Elaborate_Subprogram 009e 1d1a | | Execute_Immediate Reference_Lex_1,0x1a 009f 00c7 | | Action Elaborate_Subprogram 00a0 1d1b | | Execute_Immediate Reference_Lex_1,0x1b 00a1 00c7 | | Action Elaborate_Subprogram 00a2 1d1c | | Execute_Immediate Reference_Lex_1,0x1c 00a3 00c7 | | Action Elaborate_Subprogram 00a4 1d1d | | Execute_Immediate Reference_Lex_1,0x1d 00a5 00c7 | | Action Elaborate_Subprogram 00a6 1d1e | | Execute_Immediate Reference_Lex_1,0x1e 00a7 00c7 | | Action Elaborate_Subprogram 00a8 1d1f | | Execute_Immediate Reference_Lex_1,0x1f 00a9 00c7 | | Action Elaborate_Subprogram 00aa 1d20 | | Execute_Immediate Reference_Lex_1,0x20 00ab 00c7 | | Action Elaborate_Subprogram 00ac 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21 00ad 00c7 | | Action Elaborate_Subprogram 00ae 1d22 | " | Execute_Immediate Reference_Lex_1,0x22 00af 00c7 | | Action Elaborate_Subprogram 00b0 1d29 | ) | Execute_Immediate Reference_Lex_1,0x29 00b1 00c7 | | Action Elaborate_Subprogram 00b2 1d23 | # | Execute_Immediate Reference_Lex_1,0x23 00b3 00c7 | | Action Elaborate_Subprogram 00b4 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24 00b5 00c7 | | Action Elaborate_Subprogram 00b6 1d25 | % | Execute_Immediate Reference_Lex_1,0x25 00b7 00c7 | | Action Elaborate_Subprogram 00b8 1d26 | & | Execute_Immediate Reference_Lex_1,0x26 00b9 00c7 | | Action Elaborate_Subprogram 00ba 1d27 | ' | Execute_Immediate Reference_Lex_1,0x27 00bb 00c7 | | Action Elaborate_Subprogram 00bc 1d28 | ( | Execute_Immediate Reference_Lex_1,0x28 00bd 00c7 | | Action Elaborate_Subprogram 00be 1d2a | * | Execute_Immediate Reference_Lex_1,0x2a 00bf 00c7 | | Action Elaborate_Subprogram 00c0 00da | | Load_Top At_Offset_2 00c1 a005 | | Store_Unchecked 0x0,0x5 00c2 00db | | Load_Top At_Offset_3 00c3 a006 | | Store_Unchecked 0x0,0x6 00c4 a007 | | Store_Unchecked 0x0,0x7 00c5 a008 | | Store_Unchecked 0x0,0x8 00c6 1d11 | | Execute_Immediate Reference_Lex_1,0x11 00c7 1d13 | | Execute_Immediate Reference_Lex_1,0x13 00c8 e003 | | Load 0x0,0x3 00c9 a009 | | Store_Unchecked 0x0,0x9 00ca e22f | / | Load 0x1,0x2f 00cb a00a | | Store_Unchecked 0x0,0xa 00cc 480c |H | Short_Literal 0xc 00cd e22b | + | Load 0x1,0x2b 00ce 020e | | Execute Module,Augment_Imports 00cf e22b | + | Load 0x1,0x2b 00d0 020f | | Execute Module,Activate 00d1 00d8 | | Load_Top At_Offset_0 00d2 a00b | | Store_Unchecked 0x0,0xb 00d3 4802 |H | Short_Literal 0x2 00d4 e22c | , | Load 0x1,0x2c 00d5 020e | | Execute Module,Augment_Imports 00d6 00db | | Load_Top At_Offset_3 00d7 020d | | Execute Module,Elaborate 00d8 BODY_0008: 00d8 00bc | | Action Signal_Activated 00d9 00bb | | Action Signal_Completion 00da 0000 0000 | | .BLANK 0000[0x6] 00e0 ; -------------------------------------------------------------------------------------- 00e0 ; SUBPROGRAM 00e0 ; -------------------------------------------------------------------------------------- 00e0 00e3 | | .CONST 0x00e3 ; Address of begin 00e1 0004 | | .CONST 0x0004 ; Address of exception handler 00e2 0001 | | .CONST 0x0001 ; Number of locals 00e3 BODY_00e0: 00e3 INIT_00e0: 00e3 4607 |F | Jump_Case 0x8 00e4 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 00e5 7807 |x | Jump 0xed ; case 0x1 00e6 780a |x | Jump 0xf1 ; case 0x2 00e7 780e |x | Jump 0xf6 ; case 0x3 00e8 7811 |x | Jump 0xfa ; case 0x4 00e9 7812 |x | Jump 0xfc ; case 0x5 00ea 7813 |x | Jump 0xfe ; case 0x6 00eb 7816 |x | Jump 0x102 ; case 0x7 00ec 4302 |C | .XXX[0x1] 00ed 00da | | Load_Top At_Offset_2 00ee 0091 0633 | 3| Action Push_String_Extended_Indexed,0x633 ; "INTEGER" 00f0 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 00f1 00db | | Load_Top At_Offset_3 00f2 00db | | Load_Top At_Offset_3 00f3 00e0 | | Load_Encached Standard_Cache 00f4 181b | | Execute Package,Field_Execute,Field_Number 0x1b 00f5 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00f6 00da | | Load_Top At_Offset_2 00f7 00e0 | | Load_Encached Standard_Cache 00f8 181c | | Execute Package,Field_Execute,Field_Number 0x1c 00f9 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 00fa 00db | | Load_Top At_Offset_3 00fb 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00fc 00db | | Load_Top At_Offset_3 00fd 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00fe e20d | | Load 0x1,0xd 00ff 00dc | | Load_Top At_Offset_4 0100 0267 | g | Execute Discrete,Predecessor 0101 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0102 e20d | | Load 0x1,0xd 0103 00dc | | Load_Top At_Offset_4 0104 0268 | h | Execute Discrete,Successor 0105 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0106 0000 0000 | | .XXX[0x2] 0108 8000 0000 | | .LITERAL {0x80000000, 0x00020000} 010c 8000 0000 | | .LITERAL {0x80000000, 0x00010000} 0110 ; -------------------------------------------------------------------------------------- 0110 ; SUBPROGRAM 0110 ; -------------------------------------------------------------------------------------- 0110 0113 | | .CONST 0x0113 ; Address of begin 0111 0004 | | .CONST 0x0004 ; Address of exception handler 0112 0001 | | .CONST 0x0001 ; Number of locals 0113 BODY_0110: 0113 INIT_0110: 0113 4800 |H | Short_Literal 0x0 0114 e22f | / | Load 0x1,0x2f 0115 1c08 | | Execute_Immediate Run_Utility,0x8 0116 00db | | Load_Top At_Offset_3 0117 00d9 | | Load_Top At_Offset_1 0118 2a02 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2 0119 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 011a 0000 0000 | | .BLANK 0000[0x6] 0120 ; -------------------------------------------------------------------------------------- 0120 ; SUBPROGRAM 0120 ; -------------------------------------------------------------------------------------- 0120 0123 | # | .CONST 0x0123 ; Address of begin 0121 0004 | | .CONST 0x0004 ; Address of exception handler 0122 0001 | | .CONST 0x0001 ; Number of locals 0123 BODY_0120: 0123 INIT_0120: 0123 4801 |H | Short_Literal 0x1 0124 e22f | / | Load 0x1,0x2f 0125 1c08 | | Execute_Immediate Run_Utility,0x8 0126 00db | | Load_Top At_Offset_3 0127 00d9 | | Load_Top At_Offset_1 0128 2a04 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4 0129 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 012a 0000 0000 | | .BLANK 0000[0x6] 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 4802 |H | Short_Literal 0x2 0134 e22f | / | Load 0x1,0x2f 0135 1c08 | | Execute_Immediate Run_Utility,0x8 0136 00db | | Load_Top At_Offset_3 0137 00d9 | | Load_Top At_Offset_1 0138 2a03 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3 0139 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 013a 0000 0000 | | .BLANK 0000[0x6] 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 4803 |H | Short_Literal 0x3 0144 e22f | / | Load 0x1,0x2f 0145 1c08 | | Execute_Immediate Run_Utility,0x8 0146 00db | | Load_Top At_Offset_3 0147 00d9 | | Load_Top At_Offset_1 0148 2a05 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x5 0149 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 014a 0000 0000 | | .BLANK 0000[0x6] 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 4804 |H | Short_Literal 0x4 0154 e22f | / | Load 0x1,0x2f 0155 1c08 | | Execute_Immediate Run_Utility,0x8 0156 00db | | Load_Top At_Offset_3 0157 00d9 | | Load_Top At_Offset_1 0158 2a06 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x6 0159 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 015a 0000 0000 | | .BLANK 0000[0x6] 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 4805 |H | Short_Literal 0x5 0164 e22f | / | Load 0x1,0x2f 0165 1c08 | | Execute_Immediate Run_Utility,0x8 0166 00db | | Load_Top At_Offset_3 0167 8009 | | Call 0x0,0x9 0168 00d9 | | Load_Top At_Offset_1 0169 2a07 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x7 016a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 016b 0000 0000 | | .BLANK 0000[0x5] 0170 ; -------------------------------------------------------------------------------------- 0170 ; SUBPROGRAM 0170 ; -------------------------------------------------------------------------------------- 0170 0173 | s | .CONST 0x0173 ; Address of begin 0171 0004 | | .CONST 0x0004 ; Address of exception handler 0172 0001 | | .CONST 0x0001 ; Number of locals 0173 BODY_0170: 0173 INIT_0170: 0173 00da | | Load_Top At_Offset_2 0174 2e02 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2 0175 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0176 0000 0000 | | .XXX[0x2] 0178 ; -------------------------------------------------------------------------------------- 0178 ; SUBPROGRAM 0178 ; -------------------------------------------------------------------------------------- 0178 017b | { | .CONST 0x017b ; Address of begin 0179 0004 | | .CONST 0x0004 ; Address of exception handler 017a 0001 | | .CONST 0x0001 ; Number of locals 017b BODY_0178: 017b INIT_0178: 017b 00da | | Load_Top At_Offset_2 017c 2e04 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4 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 2e03 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3 0185 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0186 0000 0000 | | .XXX[0x2] 0188 ; -------------------------------------------------------------------------------------- 0188 ; SUBPROGRAM 0188 ; -------------------------------------------------------------------------------------- 0188 018b | | .CONST 0x018b ; Address of begin 0189 0004 | | .CONST 0x0004 ; Address of exception handler 018a 0001 | | .CONST 0x0001 ; Number of locals 018b BODY_0188: 018b INIT_0188: 018b 00da | | Load_Top At_Offset_2 018c 2e05 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5 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 00da | | Load_Top At_Offset_2 0194 2e06 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x6 0195 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0196 0000 0000 | | .XXX[0x2] 0198 ; -------------------------------------------------------------------------------------- 0198 ; SUBPROGRAM 0198 ; -------------------------------------------------------------------------------------- 0198 019b | | .CONST 0x019b ; Address of begin 0199 0004 | | .CONST 0x0004 ; Address of exception handler 019a 0001 | | .CONST 0x0001 ; Number of locals 019b BODY_0198: 019b INIT_0198: 019b 00da | | Load_Top At_Offset_2 019c 2e07 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x7 019d 800a | | Call 0x0,0xa 019e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 019f 0000 | | .XXX[0x1] 01a0 ; -------------------------------------------------------------------------------------- 01a0 ; SUBPROGRAM 01a0 ; -------------------------------------------------------------------------------------- 01a0 01a3 | | .CONST 0x01a3 ; Address of begin 01a1 0004 | | .CONST 0x0004 ; Address of exception handler 01a2 0001 | | .CONST 0x0001 ; Number of locals 01a3 BODY_01a0: 01a3 INIT_01a0: 01a3 00da | | Load_Top At_Offset_2 01a4 8211 | | Call 0x1,0x11 01a5 e5fe | | Load 0x2,-0x2 01a6 016d | m | Execute Variant_Record,Structure_Write 01a7 4502 |E | Exit_Suprogram New_Top_Offset 0x2 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 8212 | | Call 0x1,0x12 01ad e5fe | | Load 0x2,-0x2 01ae 016d | m | Execute Variant_Record,Structure_Write 01af 4502 |E | Exit_Suprogram New_Top_Offset 0x2 01b0 ; -------------------------------------------------------------------------------------- 01b0 ; SUBPROGRAM 01b0 ; -------------------------------------------------------------------------------------- 01b0 01b3 | | .CONST 0x01b3 ; Address of begin 01b1 0004 | | .CONST 0x0004 ; Address of exception handler 01b2 0001 | | .CONST 0x0001 ; Number of locals 01b3 BODY_01b0: 01b3 INIT_01b0: 01b3 00da | | Load_Top At_Offset_2 01b4 8213 | | Call 0x1,0x13 01b5 e5fe | | Load 0x2,-0x2 01b6 016d | m | Execute Variant_Record,Structure_Write 01b7 4502 |E | Exit_Suprogram New_Top_Offset 0x2 01b8 ; -------------------------------------------------------------------------------------- 01b8 ; SUBPROGRAM 01b8 ; -------------------------------------------------------------------------------------- 01b8 01bb | | .CONST 0x01bb ; Address of begin 01b9 0004 | | .CONST 0x0004 ; Address of exception handler 01ba 0001 | | .CONST 0x0001 ; Number of locals 01bb BODY_01b8: 01bb INIT_01b8: 01bb 00da | | Load_Top At_Offset_2 01bc 8214 | | Call 0x1,0x14 01bd e5fe | | Load 0x2,-0x2 01be 016d | m | Execute Variant_Record,Structure_Write 01bf 4502 |E | Exit_Suprogram New_Top_Offset 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 00da | | Load_Top At_Offset_2 01c4 8215 | | Call 0x1,0x15 01c5 e5fe | | Load 0x2,-0x2 01c6 016d | m | Execute Variant_Record,Structure_Write 01c7 4502 |E | Exit_Suprogram New_Top_Offset 0x2 01c8 ; -------------------------------------------------------------------------------------- 01c8 ; SUBPROGRAM 01c8 ; -------------------------------------------------------------------------------------- 01c8 01cb | | .CONST 0x01cb ; Address of begin 01c9 0004 | | .CONST 0x0004 ; Address of exception handler 01ca 0001 | | .CONST 0x0001 ; Number of locals 01cb BODY_01c8: 01cb INIT_01c8: 01cb 00da | | Load_Top At_Offset_2 01cc 8216 | | Call 0x1,0x16 01cd e5fe | | Load 0x2,-0x2 01ce 016d | m | Execute Variant_Record,Structure_Write 01cf 4502 |E | Exit_Suprogram New_Top_Offset 0x2 01d0 ; -------------------------------------------------------------------------------------- 01d0 ; SUBPROGRAM 01d0 ; -------------------------------------------------------------------------------------- 01d0 01d3 | | .CONST 0x01d3 ; Address of begin 01d1 0004 | | .CONST 0x0004 ; Address of exception handler 01d2 0001 | | .CONST 0x0001 ; Number of locals 01d3 BODY_01d0: 01d3 INIT_01d0: 01d3 e20e | | Load 0x1,0xe 01d4 00ca | | Action Exit_Nullary_Function 01d5 0000 0000 | | .XXX[0x3] 01d7 0000 | | 01d8 ; -------------------------------------------------------------------------------------- 01d8 ; SUBPROGRAM 01d8 ; -------------------------------------------------------------------------------------- 01d8 01db | | .CONST 0x01db ; Address of begin 01d9 0004 | | .CONST 0x0004 ; Address of exception handler 01da 0001 | | .CONST 0x0001 ; Number of locals 01db BODY_01d8: 01db INIT_01d8: 01db 00da | | Load_Top At_Offset_2 01dc e20e | | Load 0x1,0xe 01dd 016f | o | Execute Variant_Record,Equal 01de 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01df 0000 | | .XXX[0x1] 01e0 ; -------------------------------------------------------------------------------------- 01e0 ; SUBPROGRAM 01e0 ; -------------------------------------------------------------------------------------- 01e0 01e3 | | .CONST 0x01e3 ; Address of begin 01e1 0004 | | .CONST 0x0004 ; Address of exception handler 01e2 0001 | | .CONST 0x0001 ; Number of locals 01e3 BODY_01e0: 01e3 INIT_01e0: 01e3 e20e | | Load 0x1,0xe 01e4 00db | | Load_Top At_Offset_3 01e5 016d | m | Execute Variant_Record,Structure_Write 01e6 4501 |E | Exit_Suprogram New_Top_Offset 0x1 01e7 0000 | | .XXX[0x1] 01e8 ; -------------------------------------------------------------------------------------- 01e8 ; SUBPROGRAM 01e8 ; -------------------------------------------------------------------------------------- 01e8 01eb | | .CONST 0x01eb ; Address of begin 01e9 0004 | | .CONST 0x0004 ; Address of exception handler 01ea 0001 | | .CONST 0x0001 ; Number of locals 01eb BODY_01e8: 01eb INIT_01e8: 01eb 00da | | Load_Top At_Offset_2 01ec 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 01ed 0f07 | | Execute_Immediate Equal,0x7 01ee 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01ef 0000 | | .XXX[0x1] 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 4807 |H | Short_Literal 0x7 01f4 e22f | / | Load 0x1,0x2f 01f5 1c08 | | Execute_Immediate Run_Utility,0x8 01f6 00db | | Load_Top At_Offset_3 01f7 00d9 | | Load_Top At_Offset_1 01f8 2a09 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x9 01f9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01fa 0000 0000 | | .BLANK 0000[0x6] 0200 ; -------------------------------------------------------------------------------------- 0200 ; SUBPROGRAM 0200 ; -------------------------------------------------------------------------------------- 0200 0203 | | .CONST 0x0203 ; Address of begin 0201 0004 | | .CONST 0x0004 ; Address of exception handler 0202 0001 | | .CONST 0x0001 ; Number of locals 0203 BODY_0200: 0203 INIT_0200: 0203 00da | | Load_Top At_Offset_2 0204 2609 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x9 0205 0320 | | Declare_Variable Record,Duplicate 0206 00cd | | Action Spare6_Action 0207 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0208 ; -------------------------------------------------------------------------------------- 0208 ; SUBPROGRAM 0208 ; -------------------------------------------------------------------------------------- 0208 020b | | .CONST 0x020b ; Address of begin 0209 0004 | | .CONST 0x0004 ; Address of exception handler 020a 0001 | | .CONST 0x0001 ; Number of locals 020b BODY_0208: 020b INIT_0208: 020b 00da | | Load_Top At_Offset_2 020c 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 020d e5fe | | Load 0x2,-0x2 020e 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 020f 027f | | Execute Discrete,Equal 0210 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0211 0000 0000 | | .BLANK 0000[0x7] 0218 ; -------------------------------------------------------------------------------------- 0218 ; SUBPROGRAM 0218 ; -------------------------------------------------------------------------------------- 0218 021b | | .CONST 0x021b ; Address of begin 0219 0004 | | .CONST 0x0004 ; Address of exception handler 021a 0001 | | .CONST 0x0001 ; Number of locals 021b BODY_0218: 021b INIT_0218: 021b 00da | | Load_Top At_Offset_2 021c 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 021d 4608 |F | Jump_Case 0x9 021e 780d |x | Jump 0x22c ; case 0x0 021f 7811 |x | Jump 0x231 ; case 0x1 0220 7815 |x | Jump 0x236 ; case 0x2 0221 7819 |x | Jump 0x23b ; case 0x3 0222 781d |x | Jump 0x240 ; case 0x4 0223 7821 |x! | Jump 0x245 ; case 0x5 0224 7825 |x% | Jump 0x24a ; case 0x6 0225 7829 |x) | Jump 0x24f ; case 0x7 0226 7800 |x | Jump 0x227 ; case 0x8 0227 00db | | Load_Top At_Offset_3 0228 0092 063c | <| Action Push_String_Extended,0x63c ; "undefined slot value" 022a 800b | | Call 0x0,0xb 022b 4503 |E | Exit_Suprogram New_Top_Offset 0x3 022c 00db | | Load_Top At_Offset_3 022d 00db | | Load_Top At_Offset_3 022e 2e02 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2 022f 800c | | Call 0x0,0xc 0230 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0231 00db | | Load_Top At_Offset_3 0232 00db | | Load_Top At_Offset_3 0233 2e04 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4 0234 800d | | Call 0x0,0xd 0235 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0236 00db | | Load_Top At_Offset_3 0237 00db | | Load_Top At_Offset_3 0238 2e03 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3 0239 800e | | Call 0x0,0xe 023a 4503 |E | Exit_Suprogram New_Top_Offset 0x3 023b 00db | | Load_Top At_Offset_3 023c 00db | | Load_Top At_Offset_3 023d 2e05 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5 023e 800f | | Call 0x0,0xf 023f 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0240 00db | | Load_Top At_Offset_3 0241 00db | | Load_Top At_Offset_3 0242 2e06 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x6 0243 8010 | | Call 0x0,0x10 0244 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0245 00db | | Load_Top At_Offset_3 0246 00db | | Load_Top At_Offset_3 0247 2e07 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x7 0248 8011 | | Call 0x0,0x11 0249 4503 |E | Exit_Suprogram New_Top_Offset 0x3 024a 00db | | Load_Top At_Offset_3 024b 00db | | Load_Top At_Offset_3 024c 2e08 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x8 024d 800c | | Call 0x0,0xc 024e 4503 |E | Exit_Suprogram New_Top_Offset 0x3 024f 00db | | Load_Top At_Offset_3 0250 00db | | Load_Top At_Offset_3 0251 2609 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x9 0252 8012 | | Call 0x0,0x12 0253 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0254 0000 0000 | | .BLANK 0000[0x4] 0258 ; -------------------------------------------------------------------------------------- 0258 ; SUBPROGRAM 0258 ; -------------------------------------------------------------------------------------- 0258 025b | [ | .CONST 0x025b ; Address of begin 0259 0004 | | .CONST 0x0004 ; Address of exception handler 025a 0001 | | .CONST 0x0001 ; Number of locals 025b BODY_0258: 025b INIT_0258: 025b 4609 |F | Jump_Case 0xa 025c 7809 |x | Jump 0x266 ; case 0x0 025d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 025e 783c |x< | Jump 0x29b ; case 0x2 025f 783f |x? | Jump 0x29f ; case 0x3 0260 788c |x | Jump 0x2ed ; case 0x4 0261 788b |x | Jump 0x2ed ; case 0x5 0262 7842 |xB | Jump 0x2a5 ; case 0x6 0263 785e |x^ | Jump 0x2c2 ; case 0x7 0264 787d |x} | Jump 0x2e2 ; case 0x8 0265 7883 |x | Jump 0x2e9 ; case 0x9 0266 00da | | Load_Top At_Offset_2 0267 016c | l | Execute Variant_Record,Is_Constrained 0268 7009 |p | Jump_Nonzero 0x272 0269 00cf | | Action Mark_Auxiliary 026a 4800 |H | Short_Literal 0x0 026b e5ff | | Load 0x2,-0x1 026c 1c08 | | Execute_Immediate Run_Utility,0x8 026d 00d8 | | Load_Top At_Offset_0 026e 1c00 | | Execute_Immediate Run_Utility,0x0 026f c5ff | | Store 0x2,-0x1 0270 00ce | | Action Pop_Auxiliary 0271 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0272 00da | | Load_Top At_Offset_2 0273 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 0274 4608 |F | Jump_Case 0x9 0275 7809 |x | Jump 0x27f ; case 0x0 0276 7810 |x | Jump 0x287 ; case 0x1 0277 780b |x | Jump 0x283 ; case 0x2 0278 7812 |x | Jump 0x28b ; case 0x3 0279 7815 |x | Jump 0x28f ; case 0x4 027a 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x5 027b 7817 |x | Jump 0x293 ; case 0x6 027c 781a |x | Jump 0x297 ; case 0x7 027d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x8 027e 4302 |C | .XXX[0x1] 027f 4800 |H | Short_Literal 0x0 0280 00db | | Load_Top At_Offset_3 0281 2a02 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2 0282 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0283 586c |Xl | Indirect_Literal Float,0x2f0,0.0 0284 00db | | Load_Top At_Offset_3 0285 2a03 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3 0286 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0287 4800 |H | Short_Literal 0x0 0288 00db | | Load_Top At_Offset_3 0289 2a04 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4 028a 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 028b 4800 |H | Short_Literal 0x0 028c 00db | | Load_Top At_Offset_3 028d 2a05 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x5 028e 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 028f 4800 |H | Short_Literal 0x0 0290 00db | | Load_Top At_Offset_3 0291 2a06 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x6 0292 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0293 4800 |H | Short_Literal 0x0 0294 00db | | Load_Top At_Offset_3 0295 2a08 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x8 0296 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0297 e002 | | Load 0x0,0x2 0298 00db | | Load_Top At_Offset_3 0299 2a09 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x9 029a 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 029b 4801 |H | Short_Literal 0x1 029c 4809 |H | Short_Literal 0x9 029d 0311 | | Declare_Type Variant_Record,Constrained_Incomplete 029e 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 029f e5fd | | Load 0x2,-0x3 02a0 00db | | Load_Top At_Offset_3 02a1 1c07 | | Execute_Immediate Run_Utility,0x7 02a2 e5fe | | Load 0x2,-0x2 02a3 0306 | | Complete_Type Variant_Record,By_Renaming 02a4 4304 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x4 02a5 00db | | Load_Top At_Offset_3 02a6 4608 |F | Jump_Case 0x9 02a7 780a |x | Jump 0x2b2 ; case 0x0 02a8 780d |x | Jump 0x2b6 ; case 0x1 02a9 780a |x | Jump 0x2b4 ; case 0x2 02aa 780d |x | Jump 0x2b8 ; case 0x3 02ab 780e |x | Jump 0x2ba ; case 0x4 02ac 780f |x | Jump 0x2bc ; case 0x5 02ad 7810 |x | Jump 0x2be ; case 0x6 02ae 7811 |x | Jump 0x2c0 ; case 0x7 02af 7800 |x | Jump 0x2b0 ; case 0x8 02b0 48ff |H | Short_Literal 0xff 02b1 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 02b2 4801 |H | Short_Literal 0x1 02b3 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 02b4 4802 |H | Short_Literal 0x2 02b5 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 02b6 4803 |H | Short_Literal 0x3 02b7 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 02b8 4804 |H | Short_Literal 0x4 02b9 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 02ba 4805 |H | Short_Literal 0x5 02bb 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 02bc 4806 |H | Short_Literal 0x6 02bd 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 02be 4807 |H | Short_Literal 0x7 02bf 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 02c0 4808 |H | Short_Literal 0x8 02c1 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 02c2 00db | | Load_Top At_Offset_3 02c3 e5fe | | Load 0x2,-0x2 02c4 4608 |F | Jump_Case 0x9 02c5 780a |x | Jump 0x2d0 ; case 0x0 02c6 780d |x | Jump 0x2d4 ; case 0x1 02c7 780a |x | Jump 0x2d2 ; case 0x2 02c8 780d |x | Jump 0x2d6 ; case 0x3 02c9 780e |x | Jump 0x2d8 ; case 0x4 02ca 780f |x | Jump 0x2da ; case 0x5 02cb 7810 |x | Jump 0x2dc ; case 0x6 02cc 7811 |x | Jump 0x2de ; case 0x7 02cd 7800 |x | Jump 0x2ce ; case 0x8 02ce 48ff |H | Short_Literal 0xff 02cf 780f |x | Jump 0x2df 02d0 4801 |H | Short_Literal 0x1 02d1 780d |x | Jump 0x2df 02d2 4802 |H | Short_Literal 0x2 02d3 780b |x | Jump 0x2df 02d4 4803 |H | Short_Literal 0x3 02d5 7809 |x | Jump 0x2df 02d6 4804 |H | Short_Literal 0x4 02d7 7807 |x | Jump 0x2df 02d8 4805 |H | Short_Literal 0x5 02d9 7805 |x | Jump 0x2df 02da 4806 |H | Short_Literal 0x6 02db 7803 |x | Jump 0x2df 02dc 4807 |H | Short_Literal 0x7 02dd 7801 |x | Jump 0x2df 02de 4808 |H | Short_Literal 0x8 02df e5ff | | Load 0x2,-0x1 02e0 031b | | Declare_Type Variant_Record,Constrained 02e1 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 02e2 00db | | Load_Top At_Offset_3 02e3 e5fe | | Load 0x2,-0x2 02e4 e5ff | | Load 0x2,-0x1 02e5 1c06 | | Execute_Immediate Run_Utility,0x6 02e6 e5ff | | Load 0x2,-0x1 02e7 02fc | | Declare_Variable Variant_Record,With_Constraint 02e8 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 02e9 4800 |H | Short_Literal 0x0 02ea 00db | | Load_Top At_Offset_3 02eb 1c07 | | Execute_Immediate Run_Utility,0x7 02ec 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 02ed 0869 | i | Execute_Immediate Raise,0x69 02ee 0000 0000 | | .XXX[0x2] 02f0 0000 0000 | | .DBL 0.0 02f2 0000 0000 | | 02f4 0000 0000 | | .BLANK 0000[0x4] 02f8 ; -------------------------------------------------------------------------------------- 02f8 ; SUBPROGRAM 02f8 ; -------------------------------------------------------------------------------------- 02f8 030c | | .CONST 0x030c ; Address of begin 02f9 0004 | | .CONST 0x0004 ; Address of exception handler 02fa 0012 | | .CONST 0x0012 ; Number of locals 02fb INIT_02f8: 02fb 029a 0313 | | Declare_Subprogram INIT_0310,For_Outer_Call,Visible,Unelaborated 02fd 029a 0323 | #| Declare_Subprogram INIT_0320,For_Outer_Call,Visible,Unelaborated 02ff 029a 0343 | C| Declare_Subprogram INIT_0340,For_Outer_Call,Visible,Unelaborated 0301 029a 0353 | S| Declare_Subprogram INIT_0350,For_Outer_Call,Visible,Unelaborated 0303 00bf | | Action Accept_Activation 0304 1d0f | | Execute_Immediate Reference_Lex_1,0xf 0305 00c7 | | Action Elaborate_Subprogram 0306 1d10 | | Execute_Immediate Reference_Lex_1,0x10 0307 00c7 | | Action Elaborate_Subprogram 0308 1d11 | | Execute_Immediate Reference_Lex_1,0x11 0309 00c7 | | Action Elaborate_Subprogram 030a 1d12 | | Execute_Immediate Reference_Lex_1,0x12 030b 00c7 | | Action Elaborate_Subprogram 030c BODY_02f8: 030c 00bc | | Action Signal_Activated 030d 00bb | | Action Signal_Completion 030e 0000 0000 | | .XXX[0x2] 0310 ; -------------------------------------------------------------------------------------- 0310 ; SUBPROGRAM 0310 ; -------------------------------------------------------------------------------------- 0310 0314 | | .CONST 0x0314 ; Address of begin 0311 0004 | | .CONST 0x0004 ; Address of exception handler 0312 0002 | | .CONST 0x0002 ; Number of locals 0313 INIT_0310: 0313 00e2 | | Load_Encached Integer_Cache 0314 BODY_0310: 0314 00db | | Load_Top At_Offset_3 0315 e20e | | Load 0x1,0xe 0316 1c04 | | Execute_Immediate Run_Utility,0x4 0317 0059 | Y | Store_Top Discrete,At_Offset_1 0318 4806 |H | Short_Literal 0x6 0319 e001 | | Load 0x0,0x1 031a 1c08 | | Execute_Immediate Run_Utility,0x8 031b 00d9 | | Load_Top At_Offset_1 031c 00d9 | | Load_Top At_Offset_1 031d 2a08 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x8 031e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 031f 0000 | | .XXX[0x1] 0320 ; -------------------------------------------------------------------------------------- 0320 ; SUBPROGRAM 0320 ; -------------------------------------------------------------------------------------- 0320 0325 | % | .CONST 0x0325 ; Address of begin 0321 0004 | | .CONST 0x0004 ; Address of exception handler 0322 0002 | | .CONST 0x0002 ; Number of locals 0323 INIT_0320: 0323 e20e | | Load 0x1,0xe 0324 0007 | | Action Break_Optional 0325 BODY_0320: 0325 00db | | Load_Top At_Offset_3 0326 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 0327 0f06 | | Execute_Immediate Equal,0x6 0328 6810 |h | Jump_Zero 0x339 0329 00db | | Load_Top At_Offset_3 032a 2e08 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x8 032b e20e | | Load 0x1,0xe 032c 1c05 | | Execute_Immediate Run_Utility,0x5 032d 00d8 | | Load_Top At_Offset_0 032e e20e | | Load 0x1,0xe 032f 0122 | " | Execute Any,Make_Root_Type 0330 0260 | ` | Execute Discrete,In_Type 0331 7001 |p | Jump_Nonzero 0x333 0332 0801 | | Execute_Immediate Raise,0x1 0333 00d8 | | Load_Top At_Offset_0 0334 e20e | | Load 0x1,0xe 0335 0260 | ` | Execute Discrete,In_Type 0336 7001 |p | Jump_Nonzero 0x338 0337 0801 | | Execute_Immediate Raise,0x1 0338 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0339 08e0 | | Execute_Immediate Raise,0xe0 033a 0000 0000 | | .BLANK 0000[0x6] 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 00da | | Load_Top At_Offset_2 0344 00d8 | | Load_Top At_Offset_0 0345 e20e | | Load 0x1,0xe 0346 0260 | ` | Execute Discrete,In_Type 0347 7001 |p | Jump_Nonzero 0x349 0348 0801 | | Execute_Immediate Raise,0x1 0349 820f | | Call 0x1,0xf 034a e5fe | | Load 0x2,-0x2 034b 016d | m | Execute Variant_Record,Structure_Write 034c 4502 |E | Exit_Suprogram New_Top_Offset 0x2 034d 0000 0000 | | .XXX[0x3] 034f 0000 | | 0350 ; -------------------------------------------------------------------------------------- 0350 ; SUBPROGRAM 0350 ; -------------------------------------------------------------------------------------- 0350 0355 | U | .CONST 0x0355 ; Address of begin 0351 0004 | | .CONST 0x0004 ; Address of exception handler 0352 0002 | | .CONST 0x0002 ; Number of locals 0353 INIT_0350: 0353 e20e | | Load 0x1,0xe 0354 0007 | | Action Break_Optional 0355 BODY_0350: 0355 00db | | Load_Top At_Offset_3 0356 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 0357 0f06 | | Execute_Immediate Equal,0x6 0358 6815 |h | Jump_Zero 0x36e 0359 00db | | Load_Top At_Offset_3 035a 2e08 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x8 035b e20e | | Load 0x1,0xe 035c 1c05 | | Execute_Immediate Run_Utility,0x5 035d 00d8 | | Load_Top At_Offset_0 035e e20e | | Load 0x1,0xe 035f 0122 | " | Execute Any,Make_Root_Type 0360 0260 | ` | Execute Discrete,In_Type 0361 7001 |p | Jump_Nonzero 0x363 0362 0801 | | Execute_Immediate Raise,0x1 0363 0059 | Y | Store_Top Discrete,At_Offset_1 0364 e5fe | | Load 0x2,-0x2 0365 00d9 | | Load_Top At_Offset_1 0366 e20e | | Load 0x1,0xe 0367 1c04 | | Execute_Immediate Run_Utility,0x4 0368 e20e | | Load 0x1,0xe 0369 0122 | " | Execute Any,Make_Root_Type 036a 011c | | Execute Any,Convert_Unchecked 036b 1c01 | | Execute_Immediate Run_Utility,0x1 036c 8002 | | Call 0x0,0x2 036d 4503 |E | Exit_Suprogram New_Top_Offset 0x3 036e 08e0 | | Execute_Immediate Raise,0xe0 036f 0000 | | .XXX[0x1] 0370 ; -------------------------------------------------------------------------------------- 0370 ; SUBPROGRAM 0370 ; -------------------------------------------------------------------------------------- 0370 03a1 | | .CONST 0x03a1 ; Address of begin 0371 0004 | | .CONST 0x0004 ; Address of exception handler 0372 0017 | | .CONST 0x0017 ; Number of locals 0373 INIT_0370: 0373 0007 | | Action Break_Optional 0374 029a 03ab | | Declare_Subprogram INIT_03a8,For_Outer_Call,Visible,Unelaborated 0376 029a 03f3 | | Declare_Subprogram INIT_03f0,For_Outer_Call,Visible,Unelaborated 0378 029a 043b | ;| Declare_Subprogram INIT_0438,For_Outer_Call,Visible,Unelaborated 037a 029a 0483 | | Declare_Subprogram INIT_0480,For_Outer_Call,Visible,Unelaborated 037c 029a 04cb | | Declare_Subprogram INIT_04c8,For_Outer_Call,Visible,Unelaborated 037e 029a 04fb | | Declare_Subprogram INIT_04f8,For_Outer_Call,Visible,Unelaborated 0380 029a 052b | +| Declare_Subprogram INIT_0528,For_Outer_Call,Visible,Unelaborated 0382 029a 055b | [| Declare_Subprogram INIT_0558,For_Outer_Call,Visible,Unelaborated 0384 029a 0583 | | Declare_Subprogram INIT_0580,For_Outer_Call,Visible,Unelaborated 0386 029a 05fb | | Declare_Subprogram INIT_05f8,For_Outer_Call,Visible,Unelaborated 0388 029a 061b | | Declare_Subprogram INIT_0618,For_Outer_Call,Visible,Unelaborated 038a 00bf | | Action Accept_Activation 038b 1d0d | | Execute_Immediate Reference_Lex_1,0xd 038c 00c7 | | Action Elaborate_Subprogram 038d 1d0e | | Execute_Immediate Reference_Lex_1,0xe 038e 00c7 | | Action Elaborate_Subprogram 038f 1d0f | | Execute_Immediate Reference_Lex_1,0xf 0390 00c7 | | Action Elaborate_Subprogram 0391 1d10 | | Execute_Immediate Reference_Lex_1,0x10 0392 00c7 | | Action Elaborate_Subprogram 0393 1d11 | | Execute_Immediate Reference_Lex_1,0x11 0394 00c7 | | Action Elaborate_Subprogram 0395 1d12 | | Execute_Immediate Reference_Lex_1,0x12 0396 00c7 | | Action Elaborate_Subprogram 0397 1d13 | | Execute_Immediate Reference_Lex_1,0x13 0398 00c7 | | Action Elaborate_Subprogram 0399 1d14 | | Execute_Immediate Reference_Lex_1,0x14 039a 00c7 | | Action Elaborate_Subprogram 039b 1d15 | | Execute_Immediate Reference_Lex_1,0x15 039c 00c7 | | Action Elaborate_Subprogram 039d 1d16 | | Execute_Immediate Reference_Lex_1,0x16 039e 00c7 | | Action Elaborate_Subprogram 039f 1d17 | | Execute_Immediate Reference_Lex_1,0x17 03a0 00c7 | | Action Elaborate_Subprogram 03a1 BODY_0370: 03a1 00bc | | Action Signal_Activated 03a2 00bb | | Action Signal_Completion 03a3 0000 0000 | | .BLANK 0000[0x5] 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 00da | | Load_Top At_Offset_2 03ac 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 03ad e5fe | | Load 0x2,-0x2 03ae 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 03af 027f | | Execute Discrete,Equal 03b0 6838 |h8 | Jump_Zero 0x3e9 03b1 00da | | Load_Top At_Offset_2 03b2 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 03b3 4608 |F | Jump_Case 0x9 03b4 780a |x | Jump 0x3bf ; case 0x0 03b5 780f |x | Jump 0x3c5 ; case 0x1 03b6 7814 |x | Jump 0x3cb ; case 0x2 03b7 7819 |x | Jump 0x3d1 ; case 0x3 03b8 781e |x | Jump 0x3d7 ; case 0x4 03b9 7823 |x# | Jump 0x3dd ; case 0x5 03ba 7828 |x( | Jump 0x3e3 ; case 0x6 03bb 7801 |x | Jump 0x3bd ; case 0x7 03bc 7800 |x | Jump 0x3bd ; case 0x8 03bd e001 | | Load 0x0,0x1 03be 0257 | W | Execute Discrete,Raise 03bf 00da | | Load_Top At_Offset_2 03c0 2e02 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2 03c1 e5fe | | Load 0x2,-0x2 03c2 2e02 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2 03c3 027c | | | Execute Discrete,Less 03c4 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 03c5 00da | | Load_Top At_Offset_2 03c6 2e04 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4 03c7 e5fe | | Load 0x2,-0x2 03c8 2e04 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4 03c9 027c | | | Execute Discrete,Less 03ca 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 03cb 00da | | Load_Top At_Offset_2 03cc 2e03 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3 03cd e5fe | | Load 0x2,-0x2 03ce 2e03 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3 03cf 0244 | D | Execute Float,Less 03d0 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 03d1 00da | | Load_Top At_Offset_2 03d2 2e05 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5 03d3 e5fe | | Load 0x2,-0x2 03d4 2e05 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5 03d5 027c | | | Execute Discrete,Less 03d6 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 03d7 00da | | Load_Top At_Offset_2 03d8 2e06 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x6 03d9 e5fe | | Load 0x2,-0x2 03da 2e06 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x6 03db 027c | | | Execute Discrete,Less 03dc 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 03dd 00db | | Load_Top At_Offset_3 03de 2e07 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x7 03df 00db | | Load_Top At_Offset_3 03e0 2e07 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x7 03e1 8002 | | Call 0x0,0x2 03e2 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 03e3 00da | | Load_Top At_Offset_2 03e4 2e08 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x8 03e5 e5fe | | Load 0x2,-0x2 03e6 2e08 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x8 03e7 027c | | | Execute Discrete,Less 03e8 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 03e9 e003 | | Load 0x0,0x3 03ea 0257 | W | Execute Discrete,Raise 03eb 0000 0000 | | .BLANK 0000[0x5] 03f0 ; -------------------------------------------------------------------------------------- 03f0 ; SUBPROGRAM 03f0 ; -------------------------------------------------------------------------------------- 03f0 03f3 | | .CONST 0x03f3 ; Address of begin 03f1 0004 | | .CONST 0x0004 ; Address of exception handler 03f2 0001 | | .CONST 0x0001 ; Number of locals 03f3 BODY_03f0: 03f3 INIT_03f0: 03f3 00da | | Load_Top At_Offset_2 03f4 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 03f5 e5fe | | Load 0x2,-0x2 03f6 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 03f7 027f | | Execute Discrete,Equal 03f8 6838 |h8 | Jump_Zero 0x431 03f9 00da | | Load_Top At_Offset_2 03fa 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 03fb 4608 |F | Jump_Case 0x9 03fc 780a |x | Jump 0x407 ; case 0x0 03fd 780f |x | Jump 0x40d ; case 0x1 03fe 7814 |x | Jump 0x413 ; case 0x2 03ff 7819 |x | Jump 0x419 ; case 0x3 0400 781e |x | Jump 0x41f ; case 0x4 0401 7823 |x# | Jump 0x425 ; case 0x5 0402 7828 |x( | Jump 0x42b ; case 0x6 0403 7801 |x | Jump 0x405 ; case 0x7 0404 7800 |x | Jump 0x405 ; case 0x8 0405 e001 | | Load 0x0,0x1 0406 0257 | W | Execute Discrete,Raise 0407 00da | | Load_Top At_Offset_2 0408 2e02 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2 0409 e5fe | | Load 0x2,-0x2 040a 2e02 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2 040b 027a | z | Execute Discrete,Less_Equal 040c 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 040d 00da | | Load_Top At_Offset_2 040e 2e04 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4 040f e5fe | | Load 0x2,-0x2 0410 2e04 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4 0411 027a | z | Execute Discrete,Less_Equal 0412 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0413 00da | | Load_Top At_Offset_2 0414 2e03 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3 0415 e5fe | | Load 0x2,-0x2 0416 2e03 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3 0417 0242 | B | Execute Float,Less_Equal 0418 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0419 00da | | Load_Top At_Offset_2 041a 2e05 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5 041b e5fe | | Load 0x2,-0x2 041c 2e05 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5 041d 027a | z | Execute Discrete,Less_Equal 041e 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 041f 00da | | Load_Top At_Offset_2 0420 2e06 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x6 0421 e5fe | | Load 0x2,-0x2 0422 2e06 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x6 0423 027a | z | Execute Discrete,Less_Equal 0424 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0425 00db | | Load_Top At_Offset_3 0426 2e07 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x7 0427 00db | | Load_Top At_Offset_3 0428 2e07 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x7 0429 8004 | | Call 0x0,0x4 042a 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 042b 00da | | Load_Top At_Offset_2 042c 2e08 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x8 042d e5fe | | Load 0x2,-0x2 042e 2e08 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x8 042f 027a | z | Execute Discrete,Less_Equal 0430 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0431 e003 | | Load 0x0,0x3 0432 0257 | W | Execute Discrete,Raise 0433 0000 0000 | | .BLANK 0000[0x5] 0438 ; -------------------------------------------------------------------------------------- 0438 ; SUBPROGRAM 0438 ; -------------------------------------------------------------------------------------- 0438 043b | ; | .CONST 0x043b ; Address of begin 0439 0004 | | .CONST 0x0004 ; Address of exception handler 043a 0001 | | .CONST 0x0001 ; Number of locals 043b BODY_0438: 043b INIT_0438: 043b 00da | | Load_Top At_Offset_2 043c 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 043d e5fe | | Load 0x2,-0x2 043e 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 043f 027f | | Execute Discrete,Equal 0440 6838 |h8 | Jump_Zero 0x479 0441 00da | | Load_Top At_Offset_2 0442 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 0443 4608 |F | Jump_Case 0x9 0444 780a |x | Jump 0x44f ; case 0x0 0445 780f |x | Jump 0x455 ; case 0x1 0446 7814 |x | Jump 0x45b ; case 0x2 0447 7819 |x | Jump 0x461 ; case 0x3 0448 781e |x | Jump 0x467 ; case 0x4 0449 7823 |x# | Jump 0x46d ; case 0x5 044a 7828 |x( | Jump 0x473 ; case 0x6 044b 7801 |x | Jump 0x44d ; case 0x7 044c 7800 |x | Jump 0x44d ; case 0x8 044d e001 | | Load 0x0,0x1 044e 0257 | W | Execute Discrete,Raise 044f 00da | | Load_Top At_Offset_2 0450 2e02 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2 0451 e5fe | | Load 0x2,-0x2 0452 2e02 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2 0453 027d | } | Execute Discrete,Greater 0454 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0455 00da | | Load_Top At_Offset_2 0456 2e04 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4 0457 e5fe | | Load 0x2,-0x2 0458 2e04 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4 0459 027d | } | Execute Discrete,Greater 045a 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 045b 00da | | Load_Top At_Offset_2 045c 2e03 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3 045d e5fe | | Load 0x2,-0x2 045e 2e03 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3 045f 0245 | E | Execute Float,Greater 0460 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0461 00da | | Load_Top At_Offset_2 0462 2e05 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5 0463 e5fe | | Load 0x2,-0x2 0464 2e05 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5 0465 027d | } | Execute Discrete,Greater 0466 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0467 00da | | Load_Top At_Offset_2 0468 2e06 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x6 0469 e5fe | | Load 0x2,-0x2 046a 2e06 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x6 046b 027d | } | Execute Discrete,Greater 046c 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 046d 00db | | Load_Top At_Offset_3 046e 2e07 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x7 046f 00db | | Load_Top At_Offset_3 0470 2e07 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x7 0471 8005 | | Call 0x0,0x5 0472 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0473 00da | | Load_Top At_Offset_2 0474 2e08 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x8 0475 e5fe | | Load 0x2,-0x2 0476 2e08 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x8 0477 027d | } | Execute Discrete,Greater 0478 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0479 e003 | | Load 0x0,0x3 047a 0257 | W | Execute Discrete,Raise 047b 0000 0000 | | .BLANK 0000[0x5] 0480 ; -------------------------------------------------------------------------------------- 0480 ; SUBPROGRAM 0480 ; -------------------------------------------------------------------------------------- 0480 0483 | | .CONST 0x0483 ; Address of begin 0481 0004 | | .CONST 0x0004 ; Address of exception handler 0482 0001 | | .CONST 0x0001 ; Number of locals 0483 BODY_0480: 0483 INIT_0480: 0483 00da | | Load_Top At_Offset_2 0484 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 0485 e5fe | | Load 0x2,-0x2 0486 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 0487 027f | | Execute Discrete,Equal 0488 6838 |h8 | Jump_Zero 0x4c1 0489 00da | | Load_Top At_Offset_2 048a 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 048b 4608 |F | Jump_Case 0x9 048c 780a |x | Jump 0x497 ; case 0x0 048d 780f |x | Jump 0x49d ; case 0x1 048e 7814 |x | Jump 0x4a3 ; case 0x2 048f 7819 |x | Jump 0x4a9 ; case 0x3 0490 781e |x | Jump 0x4af ; case 0x4 0491 7823 |x# | Jump 0x4b5 ; case 0x5 0492 7828 |x( | Jump 0x4bb ; case 0x6 0493 7801 |x | Jump 0x495 ; case 0x7 0494 7800 |x | Jump 0x495 ; case 0x8 0495 e001 | | Load 0x0,0x1 0496 0257 | W | Execute Discrete,Raise 0497 00da | | Load_Top At_Offset_2 0498 2e02 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2 0499 e5fe | | Load 0x2,-0x2 049a 2e02 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2 049b 027b | { | Execute Discrete,Greater_Equal 049c 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 049d 00da | | Load_Top At_Offset_2 049e 2e04 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4 049f e5fe | | Load 0x2,-0x2 04a0 2e04 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4 04a1 027b | { | Execute Discrete,Greater_Equal 04a2 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 04a3 00da | | Load_Top At_Offset_2 04a4 2e03 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3 04a5 e5fe | | Load 0x2,-0x2 04a6 2e03 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3 04a7 0243 | C | Execute Float,Greater_Equal 04a8 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 04a9 00da | | Load_Top At_Offset_2 04aa 2e05 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5 04ab e5fe | | Load 0x2,-0x2 04ac 2e05 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5 04ad 027b | { | Execute Discrete,Greater_Equal 04ae 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 04af 00da | | Load_Top At_Offset_2 04b0 2e06 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x6 04b1 e5fe | | Load 0x2,-0x2 04b2 2e06 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x6 04b3 027b | { | Execute Discrete,Greater_Equal 04b4 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 04b5 00db | | Load_Top At_Offset_3 04b6 2e07 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x7 04b7 00db | | Load_Top At_Offset_3 04b8 2e07 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x7 04b9 8006 | | Call 0x0,0x6 04ba 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 04bb 00da | | Load_Top At_Offset_2 04bc 2e08 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x8 04bd e5fe | | Load 0x2,-0x2 04be 2e08 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x8 04bf 027b | { | Execute Discrete,Greater_Equal 04c0 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 04c1 e003 | | Load 0x0,0x3 04c2 0257 | W | Execute Discrete,Raise 04c3 0000 0000 | | .BLANK 0000[0x5] 04c8 ; -------------------------------------------------------------------------------------- 04c8 ; SUBPROGRAM 04c8 ; -------------------------------------------------------------------------------------- 04c8 04cb | | .CONST 0x04cb ; Address of begin 04c9 0004 | | .CONST 0x0004 ; Address of exception handler 04ca 0001 | | .CONST 0x0001 ; Number of locals 04cb BODY_04c8: 04cb INIT_04c8: 04cb 00da | | Load_Top At_Offset_2 04cc 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 04cd e5fe | | Load 0x2,-0x2 04ce 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 04cf 027f | | Execute Discrete,Equal 04d0 6821 |h! | Jump_Zero 0x4f2 04d1 00da | | Load_Top At_Offset_2 04d2 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 04d3 4608 |F | Jump_Case 0x9 04d4 780a |x | Jump 0x4df ; case 0x0 04d5 7807 |x | Jump 0x4dd ; case 0x1 04d6 7814 |x | Jump 0x4eb ; case 0x2 04d7 7805 |x | Jump 0x4dd ; case 0x3 04d8 7804 |x | Jump 0x4dd ; case 0x4 04d9 7803 |x | Jump 0x4dd ; case 0x5 04da 7802 |x | Jump 0x4dd ; case 0x6 04db 7801 |x | Jump 0x4dd ; case 0x7 04dc 7800 |x | Jump 0x4dd ; case 0x8 04dd e001 | | Load 0x0,0x1 04de 0257 | W | Execute Discrete,Raise 04df 00da | | Load_Top At_Offset_2 04e0 2e02 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2 04e1 e5fe | | Load 0x2,-0x2 04e2 2e02 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2 04e3 0273 | s | Execute Discrete,Plus 04e4 00d8 | | Load_Top At_Offset_0 04e5 00e2 | | Load_Encached Integer_Cache 04e6 0260 | ` | Execute Discrete,In_Type 04e7 7001 |p | Jump_Nonzero 0x4e9 04e8 0801 | | Execute_Immediate Raise,0x1 04e9 8007 | | Call 0x0,0x7 04ea 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 04eb 00da | | Load_Top At_Offset_2 04ec 2e03 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3 04ed e5fe | | Load 0x2,-0x2 04ee 2e03 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3 04ef 023d | = | Execute Float,Plus 04f0 8008 | | Call 0x0,0x8 04f1 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 04f2 e003 | | Load 0x0,0x3 04f3 0257 | W | Execute Discrete,Raise 04f4 0000 0000 | | .BLANK 0000[0x4] 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 00da | | Load_Top At_Offset_2 04fc 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 04fd e5fe | | Load 0x2,-0x2 04fe 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 04ff 027f | | Execute Discrete,Equal 0500 6821 |h! | Jump_Zero 0x522 0501 00da | | Load_Top At_Offset_2 0502 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 0503 4608 |F | Jump_Case 0x9 0504 780a |x | Jump 0x50f ; case 0x0 0505 7807 |x | Jump 0x50d ; case 0x1 0506 7814 |x | Jump 0x51b ; case 0x2 0507 7805 |x | Jump 0x50d ; case 0x3 0508 7804 |x | Jump 0x50d ; case 0x4 0509 7803 |x | Jump 0x50d ; case 0x5 050a 7802 |x | Jump 0x50d ; case 0x6 050b 7801 |x | Jump 0x50d ; case 0x7 050c 7800 |x | Jump 0x50d ; case 0x8 050d e001 | | Load 0x0,0x1 050e 0257 | W | Execute Discrete,Raise 050f 00da | | Load_Top At_Offset_2 0510 2e02 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2 0511 e5fe | | Load 0x2,-0x2 0512 2e02 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2 0513 0272 | r | Execute Discrete,Minus 0514 00d8 | | Load_Top At_Offset_0 0515 00e2 | | Load_Encached Integer_Cache 0516 0260 | ` | Execute Discrete,In_Type 0517 7001 |p | Jump_Nonzero 0x519 0518 0801 | | Execute_Immediate Raise,0x1 0519 8007 | | Call 0x0,0x7 051a 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 051b 00da | | Load_Top At_Offset_2 051c 2e03 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3 051d e5fe | | Load 0x2,-0x2 051e 2e03 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3 051f 023c | < | Execute Float,Minus 0520 8008 | | Call 0x0,0x8 0521 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0522 e003 | | Load 0x0,0x3 0523 0257 | W | Execute Discrete,Raise 0524 0000 0000 | | .BLANK 0000[0x4] 0528 ; -------------------------------------------------------------------------------------- 0528 ; SUBPROGRAM 0528 ; -------------------------------------------------------------------------------------- 0528 052b | + | .CONST 0x052b ; Address of begin 0529 0004 | | .CONST 0x0004 ; Address of exception handler 052a 0001 | | .CONST 0x0001 ; Number of locals 052b BODY_0528: 052b INIT_0528: 052b 00da | | Load_Top At_Offset_2 052c 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 052d e5fe | | Load 0x2,-0x2 052e 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 052f 027f | | Execute Discrete,Equal 0530 6821 |h! | Jump_Zero 0x552 0531 00da | | Load_Top At_Offset_2 0532 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 0533 4608 |F | Jump_Case 0x9 0534 780a |x | Jump 0x53f ; case 0x0 0535 7807 |x | Jump 0x53d ; case 0x1 0536 7814 |x | Jump 0x54b ; case 0x2 0537 7805 |x | Jump 0x53d ; case 0x3 0538 7804 |x | Jump 0x53d ; case 0x4 0539 7803 |x | Jump 0x53d ; case 0x5 053a 7802 |x | Jump 0x53d ; case 0x6 053b 7801 |x | Jump 0x53d ; case 0x7 053c 7800 |x | Jump 0x53d ; case 0x8 053d e001 | | Load 0x0,0x1 053e 0257 | W | Execute Discrete,Raise 053f 00da | | Load_Top At_Offset_2 0540 2e02 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2 0541 e5fe | | Load 0x2,-0x2 0542 2e02 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2 0543 0271 | q | Execute Discrete,Times 0544 00d8 | | Load_Top At_Offset_0 0545 00e2 | | Load_Encached Integer_Cache 0546 0260 | ` | Execute Discrete,In_Type 0547 7001 |p | Jump_Nonzero 0x549 0548 0801 | | Execute_Immediate Raise,0x1 0549 8007 | | Call 0x0,0x7 054a 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 054b 00da | | Load_Top At_Offset_2 054c 2e03 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3 054d e5fe | | Load 0x2,-0x2 054e 2e03 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3 054f 023b | ; | Execute Float,Times 0550 8008 | | Call 0x0,0x8 0551 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0552 e003 | | Load 0x0,0x3 0553 0257 | W | Execute Discrete,Raise 0554 0000 0000 | | .BLANK 0000[0x4] 0558 ; -------------------------------------------------------------------------------------- 0558 ; SUBPROGRAM 0558 ; -------------------------------------------------------------------------------------- 0558 055b | [ | .CONST 0x055b ; Address of begin 0559 0004 | | .CONST 0x0004 ; Address of exception handler 055a 0001 | | .CONST 0x0001 ; Number of locals 055b BODY_0558: 055b INIT_0558: 055b 00da | | Load_Top At_Offset_2 055c 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 055d e5fe | | Load 0x2,-0x2 055e 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 055f 027f | | Execute Discrete,Equal 0560 681c |h | Jump_Zero 0x57d 0561 00da | | Load_Top At_Offset_2 0562 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 0563 4608 |F | Jump_Case 0x9 0564 780a |x | Jump 0x56f ; case 0x0 0565 7807 |x | Jump 0x56d ; case 0x1 0566 780f |x | Jump 0x576 ; case 0x2 0567 7805 |x | Jump 0x56d ; case 0x3 0568 7804 |x | Jump 0x56d ; case 0x4 0569 7803 |x | Jump 0x56d ; case 0x5 056a 7802 |x | Jump 0x56d ; case 0x6 056b 7801 |x | Jump 0x56d ; case 0x7 056c 7800 |x | Jump 0x56d ; case 0x8 056d e001 | | Load 0x0,0x1 056e 0257 | W | Execute Discrete,Raise 056f 00da | | Load_Top At_Offset_2 0570 2e02 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2 0571 e5fe | | Load 0x2,-0x2 0572 2e02 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2 0573 0270 | p | Execute Discrete,Divide 0574 8007 | | Call 0x0,0x7 0575 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0576 00da | | Load_Top At_Offset_2 0577 2e03 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3 0578 e5fe | | Load 0x2,-0x2 0579 2e03 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3 057a 023a | : | Execute Float,Divide 057b 8008 | | Call 0x0,0x8 057c 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 057d e003 | | Load 0x0,0x3 057e 0257 | W | Execute Discrete,Raise 057f 0000 | | .XXX[0x1] 0580 ; -------------------------------------------------------------------------------------- 0580 ; SUBPROGRAM 0580 ; -------------------------------------------------------------------------------------- 0580 0585 | | .CONST 0x0585 ; Address of begin 0581 0004 | | .CONST 0x0004 ; Address of exception handler 0582 0002 | | .CONST 0x0002 ; Number of locals 0583 INIT_0580: 0583 e009 | | Load 0x0,0x9 0584 0007 | | Action Break_Optional 0585 BODY_0580: 0585 00db | | Load_Top At_Offset_3 0586 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 0587 4608 |F | Jump_Case 0x9 0588 7808 |x | Jump 0x591 ; case 0x0 0589 7807 |x | Jump 0x591 ; case 0x1 058a 7806 |x | Jump 0x591 ; case 0x2 058b 7807 |x | Jump 0x593 ; case 0x3 058c 7804 |x | Jump 0x591 ; case 0x4 058d 783d |x= | Jump 0x5cb ; case 0x5 058e 7802 |x | Jump 0x591 ; case 0x6 058f 7801 |x | Jump 0x591 ; case 0x7 0590 7800 |x | Jump 0x591 ; case 0x8 0591 e001 | | Load 0x0,0x1 0592 0257 | W | Execute Discrete,Raise 0593 e5fe | | Load 0x2,-0x2 0594 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 0595 4608 |F | Jump_Case 0x9 0596 7808 |x | Jump 0x59f ; case 0x0 0597 7807 |x | Jump 0x59f ; case 0x1 0598 7806 |x | Jump 0x59f ; case 0x2 0599 7807 |x | Jump 0x5a1 ; case 0x3 059a 7804 |x | Jump 0x59f ; case 0x4 059b 7820 |x | Jump 0x5bc ; case 0x5 059c 7802 |x | Jump 0x59f ; case 0x6 059d 7801 |x | Jump 0x59f ; case 0x7 059e 7800 |x | Jump 0x59f ; case 0x8 059f e001 | | Load 0x0,0x1 05a0 0257 | W | Execute Discrete,Raise 05a1 00db | | Load_Top At_Offset_3 05a2 2e05 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5 05a3 e5fe | | Load 0x2,-0x2 05a4 2e05 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5 05a5 4801 |H | Short_Literal 0x1 05a6 4802 |H | Short_Literal 0x2 05a7 00e9 | | Load_Encached String_Cache 05a8 0334 | 4 | Declare_Variable Array,With_Constraint 05a9 00da | | Load_Top At_Offset_2 05aa 4801 |H | Short_Literal 0x1 05ab 00da | | Load_Top At_Offset_2 05ac 01d6 | | Execute Vector,Field_Write 05ad 00d9 | | Load_Top At_Offset_1 05ae 4802 |H | Short_Literal 0x2 05af 00da | | Load_Top At_Offset_2 05b0 01d6 | | Execute Vector,Field_Write 05b1 00cd | | Action Spare6_Action 05b2 00cd | | Action Spare6_Action 05b3 800a | | Call 0x0,0xa 05b4 0039 | 9 | Store_Top Access,At_Offset_1 05b5 4805 |H | Short_Literal 0x5 05b6 e00b | | Load 0x0,0xb 05b7 1c08 | | Execute_Immediate Run_Utility,0x8 05b8 00d9 | | Load_Top At_Offset_1 05b9 00d9 | | Load_Top At_Offset_1 05ba 2a07 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x7 05bb 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 05bc 00db | | Load_Top At_Offset_3 05bd 2e05 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5 05be e5fe | | Load 0x2,-0x2 05bf 2e07 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x7 05c0 800c | | Call 0x0,0xc 05c1 01ca | | Execute Vector,Prepend 05c2 800a | | Call 0x0,0xa 05c3 0039 | 9 | Store_Top Access,At_Offset_1 05c4 4805 |H | Short_Literal 0x5 05c5 e00b | | Load 0x0,0xb 05c6 1c08 | | Execute_Immediate Run_Utility,0x8 05c7 00d9 | | Load_Top At_Offset_1 05c8 00d9 | | Load_Top At_Offset_1 05c9 2a07 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x7 05ca 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 05cb e5fe | | Load 0x2,-0x2 05cc 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 05cd 4608 |F | Jump_Case 0x9 05ce 7808 |x | Jump 0x5d7 ; case 0x0 05cf 7807 |x | Jump 0x5d7 ; case 0x1 05d0 7806 |x | Jump 0x5d7 ; case 0x2 05d1 7807 |x | Jump 0x5d9 ; case 0x3 05d2 7804 |x | Jump 0x5d7 ; case 0x4 05d3 7814 |x | Jump 0x5e8 ; case 0x5 05d4 7802 |x | Jump 0x5d7 ; case 0x6 05d5 7801 |x | Jump 0x5d7 ; case 0x7 05d6 7800 |x | Jump 0x5d7 ; case 0x8 05d7 e001 | | Load 0x0,0x1 05d8 0257 | W | Execute Discrete,Raise 05d9 e5fe | | Load 0x2,-0x2 05da 2e05 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5 05db e5ff | | Load 0x2,-0x1 05dc 2e07 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x7 05dd 800c | | Call 0x0,0xc 05de 01cb | | Execute Vector,Append 05df 800a | | Call 0x0,0xa 05e0 0039 | 9 | Store_Top Access,At_Offset_1 05e1 4805 |H | Short_Literal 0x5 05e2 e00b | | Load 0x0,0xb 05e3 1c08 | | Execute_Immediate Run_Utility,0x8 05e4 00d9 | | Load_Top At_Offset_1 05e5 00d9 | | Load_Top At_Offset_1 05e6 2a07 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x7 05e7 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 05e8 00db | | Load_Top At_Offset_3 05e9 2e07 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x7 05ea 800c | | Call 0x0,0xc 05eb e5fe | | Load 0x2,-0x2 05ec 2e07 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x7 05ed 800c | | Call 0x0,0xc 05ee 01cc | | Execute Vector,Catenate 05ef 800a | | Call 0x0,0xa 05f0 0039 | 9 | Store_Top Access,At_Offset_1 05f1 4805 |H | Short_Literal 0x5 05f2 e00b | | Load 0x0,0xb 05f3 1c08 | | Execute_Immediate Run_Utility,0x8 05f4 00d9 | | Load_Top At_Offset_1 05f5 00d9 | | Load_Top At_Offset_1 05f6 2a07 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x7 05f7 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 05f8 ; -------------------------------------------------------------------------------------- 05f8 ; SUBPROGRAM 05f8 ; -------------------------------------------------------------------------------------- 05f8 05fb | | .CONST 0x05fb ; Address of begin 05f9 0004 | | .CONST 0x0004 ; Address of exception handler 05fa 0001 | | .CONST 0x0001 ; Number of locals 05fb BODY_05f8: 05fb INIT_05f8: 05fb 00da | | Load_Top At_Offset_2 05fc 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 05fd 4608 |F | Jump_Case 0x9 05fe 780a |x | Jump 0x609 ; case 0x0 05ff 7807 |x | Jump 0x607 ; case 0x1 0600 780d |x | Jump 0x60e ; case 0x2 0601 7805 |x | Jump 0x607 ; case 0x3 0602 7804 |x | Jump 0x607 ; case 0x4 0603 7803 |x | Jump 0x607 ; case 0x5 0604 7802 |x | Jump 0x607 ; case 0x6 0605 7801 |x | Jump 0x607 ; case 0x7 0606 7800 |x | Jump 0x607 ; case 0x8 0607 e001 | | Load 0x0,0x1 0608 0257 | W | Execute Discrete,Raise 0609 00da | | Load_Top At_Offset_2 060a 2e02 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2 060b 0275 | u | Execute Discrete,Unary_Minus 060c 8007 | | Call 0x0,0x7 060d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 060e 00da | | Load_Top At_Offset_2 060f 2e03 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3 0610 023f | ? | Execute Float,Unary_Minus 0611 8008 | | Call 0x0,0x8 0612 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0613 0000 0000 | | .BLANK 0000[0x5] 0618 ; -------------------------------------------------------------------------------------- 0618 ; SUBPROGRAM 0618 ; -------------------------------------------------------------------------------------- 0618 061b | | .CONST 0x061b ; Address of begin 0619 0004 | | .CONST 0x0004 ; Address of exception handler 061a 0001 | | .CONST 0x0001 ; Number of locals 061b BODY_0618: 061b INIT_0618: 061b 00da | | Load_Top At_Offset_2 061c 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 061d 4608 |F | Jump_Case 0x9 061e 780a |x | Jump 0x629 ; case 0x0 061f 7807 |x | Jump 0x627 ; case 0x1 0620 780d |x | Jump 0x62e ; case 0x2 0621 7805 |x | Jump 0x627 ; case 0x3 0622 7804 |x | Jump 0x627 ; case 0x4 0623 7803 |x | Jump 0x627 ; case 0x5 0624 7802 |x | Jump 0x627 ; case 0x6 0625 7801 |x | Jump 0x627 ; case 0x7 0626 7800 |x | Jump 0x627 ; case 0x8 0627 e001 | | Load 0x0,0x1 0628 0257 | W | Execute Discrete,Raise 0629 00da | | Load_Top At_Offset_2 062a 2e02 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2 062b 0274 | t | Execute Discrete,Absolute_Value 062c 8007 | | Call 0x0,0x7 062d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 062e 00da | | Load_Top At_Offset_2 062f 2e03 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3 0630 023e | > | Execute Float,Absolute_Value 0631 8008 | | Call 0x0,0x8 0632 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0633 ; -------------------------------------------------------------------------------------- 0633 ; STRING TABLE 0633 ; -------------------------------------------------------------------------------------- 0633 0016 | | .STRTAB 0x0016->0x063e ; "INTEGER" 0634 001b | | .STRTAB 0x001b->0x0641 ; "BOOLEAN" 0635 0020 | | .STRTAB 0x0020->0x0645 ; "FLOAT" 0636 0023 | # | .STRTAB 0x0023->0x0647 ; "CHARACTER" 0637 002a | * | .STRTAB 0x002a->0x064c ; "DURATION" 0638 0030 | 0 | .STRTAB 0x0030->0x0650 ; "STRING" 0639 0034 | 4 | .STRTAB 0x0034->0x0653 ; "ENUMERATION" 063a 003d | = | .STRTAB 0x003d->0x0658 ; "REFERENCE" 063b 0044 | D | .STRTAB 0x0044->0x065d ; "UNDEFINED" 063c 004b | K | .STRTAB 0x004b->0x0661 ; "undefined slot value" 063d 005d | ] | .STREND 0x005d->0x066b 063e 494e 5445 |INTE| .STRTAB_STRINGS 066c 0000 0000 | | .BLANK 0000[0x4] 0670 ; -------------------------------------------------------------------------------------- 0670 ; Debug Table 0670 ; -------------------------------------------------------------------------------------- 0670 0004 0008 | | .DEBUG4 0x0004,0x0008,0xf0f3,0x0000,0x0001,0x0031 0676 000b 073a | :| .DBG4T 0x000b,0x073a,0x8000,0x0000 067a 008c 0762 | b| .DBG4T 0x008c,0x0762,0x8000,0x0000 067e 00e3 0000 | | .DBG4T 0x00e3,0x0000,0x0005,0x0000 0682 0113 0780 | | .DBG4T 0x0113,0x0780,0x0002,0x0000 0686 0123 0783 | # | .DBG4T 0x0123,0x0783,0x0002,0x0000 068a 0133 0786 | 3 | .DBG4T 0x0133,0x0786,0x0002,0x0000 068e 0143 0789 | C | .DBG4T 0x0143,0x0789,0x0002,0x0000 0692 0153 078c | S | .DBG4T 0x0153,0x078c,0x0002,0x0000 0696 0163 078f | c | .DBG4T 0x0163,0x078f,0x0002,0x0000 069a 0173 0792 | s | .DBG4T 0x0173,0x0792,0x0002,0x0000 069e 017b 0795 | { | .DBG4T 0x017b,0x0795,0x0002,0x0000 06a2 0183 0798 | | .DBG4T 0x0183,0x0798,0x0002,0x0000 06a6 018b 079b | | .DBG4T 0x018b,0x079b,0x0002,0x0000 06aa 0193 079e | | .DBG4T 0x0193,0x079e,0x0002,0x0000 06ae 019b 07a1 | | .DBG4T 0x019b,0x07a1,0x0002,0x0000 06b2 01a3 07a4 | | .DBG4T 0x01a3,0x07a4,0x0001,0x0000 06b6 01ab 07a7 | | .DBG4T 0x01ab,0x07a7,0x0001,0x0000 06ba 01b3 07aa | | .DBG4T 0x01b3,0x07aa,0x0001,0x0000 06be 01bb 07ad | | .DBG4T 0x01bb,0x07ad,0x0001,0x0000 06c2 01c3 07b0 | | .DBG4T 0x01c3,0x07b0,0x0001,0x0000 06c6 01cb 07b3 | | .DBG4T 0x01cb,0x07b3,0x0001,0x0000 06ca 01d3 07b6 | | .DBG4T 0x01d3,0x07b6,0x0002,0x0000 06ce 01db 07b9 | | .DBG4T 0x01db,0x07b9,0x0002,0x0000 06d2 01e3 07bc | | .DBG4T 0x01e3,0x07bc,0x0001,0x0000 06d6 01eb 07bf | | .DBG4T 0x01eb,0x07bf,0x0002,0x0000 06da 01f3 07c2 | | .DBG4T 0x01f3,0x07c2,0x0002,0x0000 06de 0203 07c5 | | .DBG4T 0x0203,0x07c5,0x0002,0x0000 06e2 020b 07c8 | | .DBG4T 0x020b,0x07c8,0x0002,0x0000 06e6 021b 07cb | | .DBG4T 0x021b,0x07cb,0x0001,0x4000 06ea 025b 0000 | [ | .DBG4T 0x025b,0x0000,0x0005,0x0000 06ee 02fb 07e1 | | .DBG4T 0x02fb,0x07e1,0x4000,0x0000 06f2 0304 07e7 | | .DBG4T 0x0304,0x07e7,0x4000,0x0000 06f6 0313 07ed | | .DBG4T 0x0313,0x07ed,0x1002,0x0000 06fa 0323 07f2 | # | .DBG4T 0x0323,0x07f2,0x1002,0x0000 06fe 0343 07f8 | C | .DBG4T 0x0343,0x07f8,0x1001,0x0000 0702 0353 07fb | S | .DBG4T 0x0353,0x07fb,0x1001,0x0000 0706 0373 0802 | s | .DBG4T 0x0373,0x0802,0x0000,0x0000 070a 038b 0810 | | .DBG4T 0x038b,0x0810,0x0000,0x0000 070e 03ab 081d | | .DBG4T 0x03ab,0x081d,0x0002,0x4000 0712 03f3 0835 | 5| .DBG4T 0x03f3,0x0835,0x0002,0x4000 0716 043b 084d | ; M| .DBG4T 0x043b,0x084d,0x0002,0x4000 071a 0483 0865 | e| .DBG4T 0x0483,0x0865,0x0002,0x4000 071e 04cb 087d | }| .DBG4T 0x04cb,0x087d,0x0002,0x4000 0722 04fb 088b | | .DBG4T 0x04fb,0x088b,0x0002,0x4000 0726 052b 0899 | + | .DBG4T 0x052b,0x0899,0x0002,0x4000 072a 055b 08a7 | [ | .DBG4T 0x055b,0x08a7,0x0002,0x4000 072e 0583 08b5 | | .DBG4T 0x0583,0x08b5,0x0002,0x4000 0732 05fb 08d4 | | .DBG4T 0x05fb,0x08d4,0x0002,0x4000 0736 061b 08de | | .DBG4T 0x061b,0x08de,0x0002,0x4000 073a ; -------------------------------------------------------------------------------------- 073a ; Debug chain 073a ; -------------------------------------------------------------------------------------- 073a 0026 0000 | & | .DBGLEN 0x0026,0x0000 073c 000b 0010 | | .DBGLNO 0x000b,0x0010,0x0011,0x0012,0x0014,0x0016,0x0018,0x001a,0x001c,0x001e,0x0020,0x0022,0x0024,0x0026,0x0028,0x002a,0x002c,0x002e,0x0030,0x0032,0x0034,0x0036,0x0038,0x003a,0x003c,0x003e,0x0040,0x0042,0x0044,0x0046,0x0048,0x004e,0x0053,0x0058,0x005d,0x0076,0x007b,0x0083 0762 ; -------------------------------------------------------------------------------------- 0762 ; Debug chain 0762 ; -------------------------------------------------------------------------------------- 0762 001c 0000 | | .DBGLEN 0x001c,0x0000 0764 008c 008e | | .DBGLNO 0x008c,0x008e,0x0090,0x0092,0x0094,0x0096,0x0098,0x009a,0x009c,0x009e,0x00a0,0x00a2,0x00a4,0x00a6,0x00a8,0x00aa,0x00ac,0x00ae,0x00b0,0x00b2,0x00b4,0x00b6,0x00b8,0x00ba,0x00bc,0x00be,0x00c0,0x00d1 0780 ; -------------------------------------------------------------------------------------- 0780 ; Debug chain 0780 ; -------------------------------------------------------------------------------------- 0780 0000 0001 | | .DBGLEN 0x0000,0x0001 0782 0113 | | .DBGLNO 0x0113 0783 ; -------------------------------------------------------------------------------------- 0783 ; Debug chain 0783 ; -------------------------------------------------------------------------------------- 0783 0000 0001 | | .DBGLEN 0x0000,0x0001 0785 0123 | # | .DBGLNO 0x0123 0786 ; -------------------------------------------------------------------------------------- 0786 ; Debug chain 0786 ; -------------------------------------------------------------------------------------- 0786 0000 0001 | | .DBGLEN 0x0000,0x0001 0788 0133 | 3 | .DBGLNO 0x0133 0789 ; -------------------------------------------------------------------------------------- 0789 ; Debug chain 0789 ; -------------------------------------------------------------------------------------- 0789 0000 0001 | | .DBGLEN 0x0000,0x0001 078b 0143 | C | .DBGLNO 0x0143 078c ; -------------------------------------------------------------------------------------- 078c ; Debug chain 078c ; -------------------------------------------------------------------------------------- 078c 0000 0001 | | .DBGLEN 0x0000,0x0001 078e 0153 | S | .DBGLNO 0x0153 078f ; -------------------------------------------------------------------------------------- 078f ; Debug chain 078f ; -------------------------------------------------------------------------------------- 078f 0000 0001 | | .DBGLEN 0x0000,0x0001 0791 0163 | c | .DBGLNO 0x0163 0792 ; -------------------------------------------------------------------------------------- 0792 ; Debug chain 0792 ; -------------------------------------------------------------------------------------- 0792 0000 0001 | | .DBGLEN 0x0000,0x0001 0794 0173 | s | .DBGLNO 0x0173 0795 ; -------------------------------------------------------------------------------------- 0795 ; Debug chain 0795 ; -------------------------------------------------------------------------------------- 0795 0000 0001 | | .DBGLEN 0x0000,0x0001 0797 017b | { | .DBGLNO 0x017b 0798 ; -------------------------------------------------------------------------------------- 0798 ; Debug chain 0798 ; -------------------------------------------------------------------------------------- 0798 0000 0001 | | .DBGLEN 0x0000,0x0001 079a 0183 | | .DBGLNO 0x0183 079b ; -------------------------------------------------------------------------------------- 079b ; Debug chain 079b ; -------------------------------------------------------------------------------------- 079b 0000 0001 | | .DBGLEN 0x0000,0x0001 079d 018b | | .DBGLNO 0x018b 079e ; -------------------------------------------------------------------------------------- 079e ; Debug chain 079e ; -------------------------------------------------------------------------------------- 079e 0000 0001 | | .DBGLEN 0x0000,0x0001 07a0 0193 | | .DBGLNO 0x0193 07a1 ; -------------------------------------------------------------------------------------- 07a1 ; Debug chain 07a1 ; -------------------------------------------------------------------------------------- 07a1 0000 0001 | | .DBGLEN 0x0000,0x0001 07a3 019b | | .DBGLNO 0x019b 07a4 ; -------------------------------------------------------------------------------------- 07a4 ; Debug chain 07a4 ; -------------------------------------------------------------------------------------- 07a4 0000 0001 | | .DBGLEN 0x0000,0x0001 07a6 01a3 | | .DBGLNO 0x01a3 07a7 ; -------------------------------------------------------------------------------------- 07a7 ; Debug chain 07a7 ; -------------------------------------------------------------------------------------- 07a7 0000 0001 | | .DBGLEN 0x0000,0x0001 07a9 01ab | | .DBGLNO 0x01ab 07aa ; -------------------------------------------------------------------------------------- 07aa ; Debug chain 07aa ; -------------------------------------------------------------------------------------- 07aa 0000 0001 | | .DBGLEN 0x0000,0x0001 07ac 01b3 | | .DBGLNO 0x01b3 07ad ; -------------------------------------------------------------------------------------- 07ad ; Debug chain 07ad ; -------------------------------------------------------------------------------------- 07ad 0000 0001 | | .DBGLEN 0x0000,0x0001 07af 01bb | | .DBGLNO 0x01bb 07b0 ; -------------------------------------------------------------------------------------- 07b0 ; Debug chain 07b0 ; -------------------------------------------------------------------------------------- 07b0 0000 0001 | | .DBGLEN 0x0000,0x0001 07b2 01c3 | | .DBGLNO 0x01c3 07b3 ; -------------------------------------------------------------------------------------- 07b3 ; Debug chain 07b3 ; -------------------------------------------------------------------------------------- 07b3 0000 0001 | | .DBGLEN 0x0000,0x0001 07b5 01cb | | .DBGLNO 0x01cb 07b6 ; -------------------------------------------------------------------------------------- 07b6 ; Debug chain 07b6 ; -------------------------------------------------------------------------------------- 07b6 0000 0001 | | .DBGLEN 0x0000,0x0001 07b8 01d3 | | .DBGLNO 0x01d3 07b9 ; -------------------------------------------------------------------------------------- 07b9 ; Debug chain 07b9 ; -------------------------------------------------------------------------------------- 07b9 0000 0001 | | .DBGLEN 0x0000,0x0001 07bb 01db | | .DBGLNO 0x01db 07bc ; -------------------------------------------------------------------------------------- 07bc ; Debug chain 07bc ; -------------------------------------------------------------------------------------- 07bc 0000 0001 | | .DBGLEN 0x0000,0x0001 07be 01e3 | | .DBGLNO 0x01e3 07bf ; -------------------------------------------------------------------------------------- 07bf ; Debug chain 07bf ; -------------------------------------------------------------------------------------- 07bf 0000 0001 | | .DBGLEN 0x0000,0x0001 07c1 01eb | | .DBGLNO 0x01eb 07c2 ; -------------------------------------------------------------------------------------- 07c2 ; Debug chain 07c2 ; -------------------------------------------------------------------------------------- 07c2 0000 0001 | | .DBGLEN 0x0000,0x0001 07c4 01f3 | | .DBGLNO 0x01f3 07c5 ; -------------------------------------------------------------------------------------- 07c5 ; Debug chain 07c5 ; -------------------------------------------------------------------------------------- 07c5 0000 0001 | | .DBGLEN 0x0000,0x0001 07c7 0203 | | .DBGLNO 0x0203 07c8 ; -------------------------------------------------------------------------------------- 07c8 ; Debug chain 07c8 ; -------------------------------------------------------------------------------------- 07c8 0000 0001 | | .DBGLEN 0x0000,0x0001 07ca 020b | | .DBGLNO 0x020b 07cb ; -------------------------------------------------------------------------------------- 07cb ; Debug chain 07cb ; -------------------------------------------------------------------------------------- 07cb 0000 000a | | .DBGLEN 0x0000,0x000a 07cd 021b 0227 | '| .DBGLNO 0x021b,0x0227,0x022c,0x0231,0x0236,0x023b,0x0240,0x0245,0x024a,0x024f 07d7 0001 000a | | .XXX[0xa] 07d9 0002 0003 | | 07db 0004 0005 | | 07dd 0006 0007 | | 07df 0008 0009 | | 07e1 ; -------------------------------------------------------------------------------------- 07e1 ; Debug chain 07e1 ; -------------------------------------------------------------------------------------- 07e1 0004 0000 | | .DBGLEN 0x0004,0x0000 07e3 02fb 02fd | | .DBGLNO 0x02fb,0x02fd,0x02ff,0x0301 07e7 ; -------------------------------------------------------------------------------------- 07e7 ; Debug chain 07e7 ; -------------------------------------------------------------------------------------- 07e7 0004 0000 | | .DBGLEN 0x0004,0x0000 07e9 0304 0306 | | .DBGLNO 0x0304,0x0306,0x0308,0x030a 07ed ; -------------------------------------------------------------------------------------- 07ed ; Debug chain 07ed ; -------------------------------------------------------------------------------------- 07ed 0001 0002 | | .DBGLEN 0x0001,0x0002 07ef 0313 0314 | | .DBGLNO 0x0313,0x0314,0x0318 07f2 ; -------------------------------------------------------------------------------------- 07f2 ; Debug chain 07f2 ; -------------------------------------------------------------------------------------- 07f2 0001 0003 | | .DBGLEN 0x0001,0x0003 07f4 0323 0325 | # %| .DBGLNO 0x0323,0x0325,0x0329,0x0339 07f8 ; -------------------------------------------------------------------------------------- 07f8 ; Debug chain 07f8 ; -------------------------------------------------------------------------------------- 07f8 0000 0001 | | .DBGLEN 0x0000,0x0001 07fa 0343 | C | .DBGLNO 0x0343 07fb ; -------------------------------------------------------------------------------------- 07fb ; Debug chain 07fb ; -------------------------------------------------------------------------------------- 07fb 0001 0004 | | .DBGLEN 0x0001,0x0004 07fd 0353 0355 | S U| .DBGLNO 0x0353,0x0355,0x0359,0x0364,0x036e 0802 ; -------------------------------------------------------------------------------------- 0802 ; Debug chain 0802 ; -------------------------------------------------------------------------------------- 0802 000c 0000 | | .DBGLEN 0x000c,0x0000 0804 0373 0374 | s t| .DBGLNO 0x0373,0x0374,0x0376,0x0378,0x037a,0x037c,0x037e,0x0380,0x0382,0x0384,0x0386,0x0388 0810 ; -------------------------------------------------------------------------------------- 0810 ; Debug chain 0810 ; -------------------------------------------------------------------------------------- 0810 000b 0000 | | .DBGLEN 0x000b,0x0000 0812 038b 038d | | .DBGLNO 0x038b,0x038d,0x038f,0x0391,0x0393,0x0395,0x0397,0x0399,0x039b,0x039d,0x039f 081d ; -------------------------------------------------------------------------------------- 081d ; Debug chain 081d ; -------------------------------------------------------------------------------------- 081d 0000 000b | | .DBGLEN 0x0000,0x000b 081f 03ab 03b1 | | .DBGLNO 0x03ab,0x03b1,0x03bd,0x03bf,0x03c5,0x03cb,0x03d1,0x03d7,0x03dd,0x03e3,0x03e9 082a 0001 0002 | | .XXX[0xb] 082c 000a 0003 | | 082e 0004 0005 | | 0830 0006 0007 | | 0832 0008 0009 | | 0834 000b | | 0835 ; -------------------------------------------------------------------------------------- 0835 ; Debug chain 0835 ; -------------------------------------------------------------------------------------- 0835 0000 000b | | .DBGLEN 0x0000,0x000b 0837 03f3 03f9 | | .DBGLNO 0x03f3,0x03f9,0x0405,0x0407,0x040d,0x0413,0x0419,0x041f,0x0425,0x042b,0x0431 0842 0001 0002 | | .XXX[0xb] 0844 000a 0003 | | 0846 0004 0005 | | 0848 0006 0007 | | 084a 0008 0009 | | 084c 000b | | 084d ; -------------------------------------------------------------------------------------- 084d ; Debug chain 084d ; -------------------------------------------------------------------------------------- 084d 0000 000b | | .DBGLEN 0x0000,0x000b 084f 043b 0441 | ; A| .DBGLNO 0x043b,0x0441,0x044d,0x044f,0x0455,0x045b,0x0461,0x0467,0x046d,0x0473,0x0479 085a 0001 0002 | | .XXX[0xb] 085c 000a 0003 | | 085e 0004 0005 | | 0860 0006 0007 | | 0862 0008 0009 | | 0864 000b | | 0865 ; -------------------------------------------------------------------------------------- 0865 ; Debug chain 0865 ; -------------------------------------------------------------------------------------- 0865 0000 000b | | .DBGLEN 0x0000,0x000b 0867 0483 0489 | | .DBGLNO 0x0483,0x0489,0x0495,0x0497,0x049d,0x04a3,0x04a9,0x04af,0x04b5,0x04bb,0x04c1 0872 0001 0002 | | .XXX[0xb] 0874 000a 0003 | | 0876 0004 0005 | | 0878 0006 0007 | | 087a 0008 0009 | | 087c 000b | | 087d ; -------------------------------------------------------------------------------------- 087d ; Debug chain 087d ; -------------------------------------------------------------------------------------- 087d 0000 0006 | | .DBGLEN 0x0000,0x0006 087f 04cb 04d1 | | .DBGLNO 0x04cb,0x04d1,0x04dd,0x04df,0x04eb,0x04f2 0885 0001 0002 | | .XXX[0x6] 0887 0005 0003 | | 0889 0004 0006 | | 088b ; -------------------------------------------------------------------------------------- 088b ; Debug chain 088b ; -------------------------------------------------------------------------------------- 088b 0000 0006 | | .DBGLEN 0x0000,0x0006 088d 04fb 0501 | | .DBGLNO 0x04fb,0x0501,0x050d,0x050f,0x051b,0x0522 0893 0001 0002 | | .XXX[0x6] 0895 0005 0003 | | 0897 0004 0006 | | 0899 ; -------------------------------------------------------------------------------------- 0899 ; Debug chain 0899 ; -------------------------------------------------------------------------------------- 0899 0000 0006 | | .DBGLEN 0x0000,0x0006 089b 052b 0531 | + 1| .DBGLNO 0x052b,0x0531,0x053d,0x053f,0x054b,0x0552 08a1 0001 0002 | | .XXX[0x6] 08a3 0005 0003 | | 08a5 0004 0006 | | 08a7 ; -------------------------------------------------------------------------------------- 08a7 ; Debug chain 08a7 ; -------------------------------------------------------------------------------------- 08a7 0000 0006 | | .DBGLEN 0x0000,0x0006 08a9 055b 0561 | [ a| .DBGLNO 0x055b,0x0561,0x056d,0x056f,0x0576,0x057d 08af 0001 0002 | | .XXX[0x6] 08b1 0005 0003 | | 08b3 0004 0006 | | 08b5 ; -------------------------------------------------------------------------------------- 08b5 ; Debug chain 08b5 ; -------------------------------------------------------------------------------------- 08b5 0001 000e | | .DBGLEN 0x0001,0x000e 08b7 0583 0585 | | .DBGLNO 0x0583,0x0585,0x0591,0x0593,0x059f,0x05a1,0x05b5,0x05bc,0x05c4,0x05cb,0x05d7,0x05d9,0x05e1,0x05e8,0x05f1 08c6 0001 000e | | .XXX[0xe] 08c8 0002 0007 | | 08ca 0003 0004 | | 08cc 0005 0006 | | 08ce 0008 000d | | 08d0 0009 000a | | 08d2 000b 000c | | 08d4 ; -------------------------------------------------------------------------------------- 08d4 ; Debug chain 08d4 ; -------------------------------------------------------------------------------------- 08d4 0000 0004 | | .DBGLEN 0x0000,0x0004 08d6 05fb 0607 | | .DBGLNO 0x05fb,0x0607,0x0609,0x060e 08da 0001 0004 | | .XXX[0x4] 08dc 0002 0003 | | 08de ; -------------------------------------------------------------------------------------- 08de ; Debug chain 08de ; -------------------------------------------------------------------------------------- 08de 0000 0004 | | .DBGLEN 0x0000,0x0004 08e0 061b 0627 | '| .DBGLNO 0x061b,0x0627,0x0629,0x062e 08e4 0001 0004 | | .XXX[0x4] 08e6 0002 0003 | | 08e8 0000 0000 | | .BLANK 0000[0x118]