|
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: 18432 (0x4800) Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_6a18da
└─⟦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 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 2250 |"P | .CONST 0x2250 ; 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 8013 | | .CONST 0x8013 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 0107 | | .CONST 0x0107 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0074 | t | .CONST 0x0074 ; Number of locals 000b INIT_0008: 000b 00c4 | | Action Make_Default 000c 00c4 | | Action Make_Default 000d 00c4 | | Action Make_Default 000e 00c4 | | Action Make_Default 000f 00c4 | | Action Make_Default 0010 00c4 | | Action Make_Default 0011 00c4 | | Action Make_Default 0012 00c4 | | Action Make_Default 0013 00c4 | | Action Make_Default 0014 00c4 | | Action Make_Default 0015 00c4 | | Action Make_Default 0016 00c4 | | Action Make_Default 0017 00c4 | | Action Make_Default 0018 00c4 | | Action Make_Default 0019 00c4 | | Action Make_Default 001a 00c4 | | Action Make_Default 001b 00c4 | | Action Make_Default 001c 00c4 | | Action Make_Default 001d 00c4 | | Action Make_Default 001e 00c4 | | Action Make_Default 001f 00c4 | | Action Make_Default 0020 00c4 | | Action Make_Default 0021 00c4 | | Action Make_Default 0022 00c4 | | Action Make_Default 0023 00c4 | | Action Make_Default 0024 00c4 | | Action Make_Default 0025 00c4 | | Action Make_Default 0026 00c4 | | Action Make_Default 0027 00c4 | | Action Make_Default 0028 00c4 | | Action Make_Default 0029 00c4 | | Action Make_Default 002a 00c4 | | Action Make_Default 002b 00c4 | | Action Make_Default 002c 00c4 | | Action Make_Default 002d 00c4 | | Action Make_Default 002e 00c4 | | Action Make_Default 002f 00c4 | | Action Make_Default 0030 00c4 | | Action Make_Default 0031 00c4 | | Action Make_Default 0032 00c4 | | Action Make_Default 0033 00c4 | | Action Make_Default 0034 00c4 | | Action Make_Default 0035 00c4 | | Action Make_Default 0036 00c4 | | Action Make_Default 0037 00c4 | | Action Make_Default 0038 00c4 | | Action Make_Default 0039 00c4 | | Action Make_Default 003a 00c4 | | Action Make_Default 003b 00c4 | | Action Make_Default 003c 00c4 | | Action Make_Default 003d 00c4 | | Action Make_Default 003e 00c4 | | Action Make_Default 003f 00c4 | | Action Make_Default 0040 00c4 | | Action Make_Default 0041 00c4 | | Action Make_Default 0042 00c4 | | Action Make_Default 0043 00c4 | | Action Make_Default 0044 00c4 | | Action Make_Default 0045 00c4 | | Action Make_Default 0046 00c4 | | Action Make_Default 0047 00c4 | | Action Make_Default 0048 00c4 | | Action Make_Default 0049 00c4 | | Action Make_Default 004a 00c4 | | Action Make_Default 004b 00c4 | | Action Make_Default 004c 00c4 | | Action Make_Default 004d 00c4 | | Action Make_Default 004e 00c4 | | Action Make_Default 004f 00c4 | | Action Make_Default 0050 00c4 | | Action Make_Default 0051 00c4 | | Action Make_Default 0052 00c4 | | Action Make_Default 0053 00c4 | | Action Make_Default 0054 00c4 | | Action Make_Default 0055 00c4 | | Action Make_Default 0056 00c4 | | Action Make_Default 0057 00c4 | | Action Make_Default 0058 00c4 | | Action Make_Default 0059 00c4 | | Action Make_Default 005a 00c4 | | Action Make_Default 005b 00c4 | | Action Make_Default 005c 00c4 | | Action Make_Default 005d 00c4 | | Action Make_Default 005e 00c4 | | Action Make_Default 005f 00c4 | | Action Make_Default 0060 00c4 | | Action Make_Default 0061 00c4 | | Action Make_Default 0062 029a 0113 | | Declare_Subprogram INIT_0110,For_Outer_Call,Visible,Unelaborated 0064 c247 | G | Store 0x1,0x47 0065 029a 01cb | | Declare_Subprogram INIT_01c8,For_Outer_Call,Visible,Unelaborated 0067 c248 | H | Store 0x1,0x48 0068 029a 0283 | | Declare_Subprogram INIT_0280,For_Outer_Call,Visible,Unelaborated 006a c249 | I | Store 0x1,0x49 006b 029a 047b | {| Declare_Subprogram INIT_0478,For_Outer_Call,Visible,Unelaborated 006d c24a | J | Store 0x1,0x4a 006e 029a 0683 | | Declare_Subprogram INIT_0680,For_Outer_Call,Visible,Unelaborated 0070 c24b | K | Store 0x1,0x4b 0071 029a 07d3 | | Declare_Subprogram INIT_07d0,For_Outer_Call,Visible,Unelaborated 0073 c212 | | Store 0x1,0x12 0074 029a 07e3 | | Declare_Subprogram INIT_07e0,For_Outer_Call,Visible,Unelaborated 0076 c252 | R | Store 0x1,0x52 0077 029a 082b | +| Declare_Subprogram INIT_0828,For_Outer_Call,Visible,Unelaborated 0079 c24d | M | Store 0x1,0x4d 007a 029a 0893 | | Declare_Subprogram INIT_0890,For_Outer_Call,Visible,Unelaborated 007c c253 | S | Store 0x1,0x53 007d 029a 09e3 | | Declare_Subprogram INIT_09e0,For_Outer_Call,Visible,Unelaborated 007f c254 | T | Store 0x1,0x54 0080 029a 0a33 | 3| Declare_Subprogram INIT_0a30,For_Outer_Call,Visible,Unelaborated 0082 c255 | U | Store 0x1,0x55 0083 029a 0a83 | | Declare_Subprogram INIT_0a80,For_Outer_Call,Visible,Unelaborated 0085 c256 | V | Store 0x1,0x56 0086 029a 0b2b | +| Declare_Subprogram INIT_0b28,For_Outer_Call,Visible,Unelaborated 0088 c234 | 4 | Store 0x1,0x34 0089 029a 0b3b | ;| Declare_Subprogram INIT_0b38,For_Outer_Call,Visible,Unelaborated 008b c25f | _ | Store 0x1,0x5f 008c 029a 0c03 | | Declare_Subprogram INIT_0c00,For_Outer_Call,Visible,Unelaborated 008e c260 | ` | Store 0x1,0x60 008f 029a 0cab | | Declare_Subprogram INIT_0ca8,For_Outer_Call,Visible,Unelaborated 0091 c257 | W | Store 0x1,0x57 0092 029a 0e53 | S| Declare_Subprogram INIT_0e50,For_Outer_Call,Visible,Unelaborated 0094 c258 | X | Store 0x1,0x58 0095 029a 0f1b | | Declare_Subprogram INIT_0f18,For_Outer_Call,Visible,Unelaborated 0097 c259 | Y | Store 0x1,0x59 0098 029a 0f83 | | Declare_Subprogram INIT_0f80,For_Outer_Call,Visible,Unelaborated 009a c25a | Z | Store 0x1,0x5a 009b 029a 0fe3 | | Declare_Subprogram INIT_0fe0,For_Outer_Call,Visible,Unelaborated 009d c25b | [ | Store 0x1,0x5b 009e 029a 106b | k| Declare_Subprogram INIT_1068,For_Outer_Call,Visible,Unelaborated 00a0 c25c | \ | Store 0x1,0x5c 00a1 029a 10f3 | | Declare_Subprogram INIT_10f0,For_Outer_Call,Visible,Unelaborated 00a3 c25d | ] | Store 0x1,0x5d 00a4 029a 115b | [| Declare_Subprogram INIT_1158,For_Outer_Call,Visible,Unelaborated 00a6 c25e | ^ | Store 0x1,0x5e 00a7 029a 11bb | | Declare_Subprogram INIT_11b8,For_Outer_Call,Visible,Unelaborated 00a9 c262 | b | Store 0x1,0x62 00aa 029a 123b | ;| Declare_Subprogram INIT_1238,For_Outer_Call,Visible,Unelaborated 00ac c263 | c | Store 0x1,0x63 00ad 029a 12b3 | | Declare_Subprogram INIT_12b0,For_Outer_Call,Visible,Unelaborated 00af c261 | a | Store 0x1,0x61 00b0 00bf | | Action Accept_Activation 00b1 00e1 | | Load_Encached Boolean_Cache 00b2 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 00b3 029d 12fb | | Declare_Subprogram INIT_12f8,For_Outer_Call 00b5 029d 130b | | Declare_Subprogram INIT_1308,For_Outer_Call 00b7 1d47 | G | Execute_Immediate Reference_Lex_1,0x47 00b8 00c7 | | Action Elaborate_Subprogram 00b9 1d48 | H | Execute_Immediate Reference_Lex_1,0x48 00ba 00c7 | | Action Elaborate_Subprogram 00bb 029d 1353 | S| Declare_Subprogram INIT_1350,For_Outer_Call 00bd 029d 1373 | s| Declare_Subprogram INIT_1370,For_Outer_Call 00bf 029d 1383 | | Declare_Subprogram INIT_1380,For_Outer_Call 00c1 1d52 | R | Execute_Immediate Reference_Lex_1,0x52 00c2 00c7 | | Action Elaborate_Subprogram 00c3 1d4d | M | Execute_Immediate Reference_Lex_1,0x4d 00c4 00c7 | | Action Elaborate_Subprogram 00c5 1d53 | S | Execute_Immediate Reference_Lex_1,0x53 00c6 00c7 | | Action Elaborate_Subprogram 00c7 1d54 | T | Execute_Immediate Reference_Lex_1,0x54 00c8 00c7 | | Action Elaborate_Subprogram 00c9 1d55 | U | Execute_Immediate Reference_Lex_1,0x55 00ca 00c7 | | Action Elaborate_Subprogram 00cb 1d56 | V | Execute_Immediate Reference_Lex_1,0x56 00cc 00c7 | | Action Elaborate_Subprogram 00cd 029d 139b | | Declare_Subprogram INIT_1398,For_Outer_Call 00cf 029d 144b | K| Declare_Subprogram INIT_1448,For_Outer_Call 00d1 1d34 | 4 | Execute_Immediate Reference_Lex_1,0x34 00d2 00c7 | | Action Elaborate_Subprogram 00d3 029d 14eb | | Declare_Subprogram INIT_14e8,For_Outer_Call 00d5 029d 1563 | c| Declare_Subprogram INIT_1560,For_Outer_Call 00d7 029d 157b | {| Declare_Subprogram INIT_1578,For_Outer_Call 00d9 029d 159b | | Declare_Subprogram INIT_1598,For_Outer_Call 00db 029d 15eb | | Declare_Subprogram INIT_15e8,For_Outer_Call 00dd 029d 1693 | | Declare_Subprogram INIT_1690,For_Outer_Call 00df 029d 16db | | Declare_Subprogram INIT_16d8,For_Outer_Call 00e1 029d 17db | | Declare_Subprogram INIT_17d8,For_Outer_Call 00e3 029d 1833 | 3| Declare_Subprogram INIT_1830,For_Outer_Call 00e5 1d49 | I | Execute_Immediate Reference_Lex_1,0x49 00e6 00c7 | | Action Elaborate_Subprogram 00e7 1d4a | J | Execute_Immediate Reference_Lex_1,0x4a 00e8 00c7 | | Action Elaborate_Subprogram 00e9 1d4b | K | Execute_Immediate Reference_Lex_1,0x4b 00ea 00c7 | | Action Elaborate_Subprogram 00eb 1d12 | | Execute_Immediate Reference_Lex_1,0x12 00ec 00c7 | | Action Elaborate_Subprogram 00ed 1d5f | _ | Execute_Immediate Reference_Lex_1,0x5f 00ee 00c7 | | Action Elaborate_Subprogram 00ef 1d60 | ` | Execute_Immediate Reference_Lex_1,0x60 00f0 00c7 | | Action Elaborate_Subprogram 00f1 1d57 | W | Execute_Immediate Reference_Lex_1,0x57 00f2 00c7 | | Action Elaborate_Subprogram 00f3 1d58 | X | Execute_Immediate Reference_Lex_1,0x58 00f4 00c7 | | Action Elaborate_Subprogram 00f5 1d59 | Y | Execute_Immediate Reference_Lex_1,0x59 00f6 00c7 | | Action Elaborate_Subprogram 00f7 1d5a | Z | Execute_Immediate Reference_Lex_1,0x5a 00f8 00c7 | | Action Elaborate_Subprogram 00f9 1d5b | [ | Execute_Immediate Reference_Lex_1,0x5b 00fa 00c7 | | Action Elaborate_Subprogram 00fb 1d5c | \ | Execute_Immediate Reference_Lex_1,0x5c 00fc 00c7 | | Action Elaborate_Subprogram 00fd 1d5d | ] | Execute_Immediate Reference_Lex_1,0x5d 00fe 00c7 | | Action Elaborate_Subprogram 00ff 1d5e | ^ | Execute_Immediate Reference_Lex_1,0x5e 0100 00c7 | | Action Elaborate_Subprogram 0101 1d62 | b | Execute_Immediate Reference_Lex_1,0x62 0102 00c7 | | Action Elaborate_Subprogram 0103 1d63 | c | Execute_Immediate Reference_Lex_1,0x63 0104 00c7 | | Action Elaborate_Subprogram 0105 1d61 | a | Execute_Immediate Reference_Lex_1,0x61 0106 00c7 | | Action Elaborate_Subprogram 0107 BODY_0008: 0107 00bc | | Action Signal_Activated 0108 00bb | | Action Signal_Completion 0109 0000 0000 | | .BLANK 0000[0x7] 0110 ; -------------------------------------------------------------------------------------- 0110 ; SUBPROGRAM 0110 ; -------------------------------------------------------------------------------------- 0110 0126 | & | .CONST 0x0126 ; Address of begin 0111 016e | n | .CONST 0x016e ; Address of exception handler 0112 0005 | | .CONST 0x0005 ; Number of locals 0113 INIT_0110: 0113 e001 | | Load 0x0,0x1 0114 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 0115 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0116 02c7 | | Declare_Variable Any 0117 00d8 | | Load_Top At_Offset_0 0118 1c00 | | Execute_Immediate Run_Utility,0x0 0119 e002 | | Load 0x0,0x2 011a 1b0f | | Execute Package,Field_Read,Field_Number 0xf 011b 02c7 | | Declare_Variable Any 011c 00d8 | | Load_Top At_Offset_0 011d 1c00 | | Execute_Immediate Run_Utility,0x0 011e 4800 |H | Short_Literal 0x0 011f e003 | | Load 0x0,0x3 0120 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0121 1c08 | | Execute_Immediate Run_Utility,0x8 0122 00d8 | | Load_Top At_Offset_0 0123 1c00 | | Execute_Immediate Run_Utility,0x0 0124 029f 184b | K| Declare_Subprogram INIT_1848,For_Call 0126 BODY_0110: 0126 4800 |H | Short_Literal 0x0 0127 00da | | Load_Top At_Offset_2 0128 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 0129 e5ff | | Load 0x2,-0x1 012a 0227 | ' | Execute Access,All_Reference 012b 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 012c e5fe | | Load 0x2,-0x2 012d e002 | | Load 0x0,0x2 012e 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 012f 183e | > | Execute Package,Field_Execute,Field_Number 0x3e 0130 e001 | | Load 0x0,0x1 0131 1b24 | $ | Execute Package,Field_Read,Field_Number 0x24 0132 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 0133 c402 | | Store 0x2,0x2 0134 00db | | Load_Top At_Offset_3 0135 e001 | | Load 0x0,0x1 0136 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 0137 180f | | Execute Package,Field_Execute,Field_Number 0xf 0138 6833 |h3 | Jump_Zero 0x16c 0139 e5fc | | Load 0x2,-0x4 013a 4801 |H | Short_Literal 0x1 013b 4801 |H | Short_Literal 0x1 013c e004 | | Load 0x0,0x4 013d 1b0f | | Execute Package,Field_Read,Field_Number 0xf 013e 0334 | 4 | Declare_Variable Array,With_Constraint 013f e5fe | | Load 0x2,-0x2 0140 e004 | | Load 0x0,0x4 0141 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0142 e004 | | Load 0x0,0x4 0143 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0144 0119 | | Execute Any,Check_In_Formal_Type 0145 4801 |H | Short_Literal 0x1 0146 00da | | Load_Top At_Offset_2 0147 01d6 | | Execute Vector,Field_Write 0148 6077 |`w | Indirect_Literal Discrete,0x1c0,{0x00000000, 0x0000816f} 0149 e005 | | Load 0x0,0x5 014a 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 014b 4801 |H | Short_Literal 0x1 014c 4802 |H | Short_Literal 0x2 014d e004 | | Load 0x0,0x4 014e 1b0f | | Execute Package,Field_Read,Field_Number 0xf 014f 0334 | 4 | Declare_Variable Array,With_Constraint 0150 e5ff | | Load 0x2,-0x1 0151 0227 | ' | Execute Access,All_Reference 0152 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0153 e001 | | Load 0x0,0x1 0154 1b24 | $ | Execute Package,Field_Read,Field_Number 0x24 0155 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0156 e004 | | Load 0x0,0x4 0157 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0158 0119 | | Execute Any,Check_In_Formal_Type 0159 4801 |H | Short_Literal 0x1 015a 00da | | Load_Top At_Offset_2 015b 01d6 | | Execute Vector,Field_Write 015c e5fe | | Load 0x2,-0x2 015d e006 | | Load 0x0,0x6 015e 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 015f e004 | | Load 0x0,0x4 0160 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0161 0119 | | Execute Any,Check_In_Formal_Type 0162 4802 |H | Short_Literal 0x2 0163 00da | | Load_Top At_Offset_2 0164 01d6 | | Execute Vector,Field_Write 0165 6056 |`V | Indirect_Literal Discrete,0x1bc,{0x00000000, 0x0000810c} 0166 e005 | | Load 0x0,0x5 0167 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0168 00da | | Load_Top At_Offset_2 0169 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 016a 00d9 | | Load_Top At_Offset_1 016b 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 016c 8405 | | Call 0x2,0x5 016d 0831 | 1 | Execute_Immediate Raise,0x31 016e TRAP_0110: 016e e005 | | Load 0x0,0x5 016f 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0170 010f | | Execute Exception,Equal 0171 6824 |h$ | Jump_Zero 0x196 0172 e005 | | Load 0x0,0x5 0173 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0174 00db | | Load_Top At_Offset_3 0175 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 0176 e5fc | | Load 0x2,-0x4 0177 4801 |H | Short_Literal 0x1 0178 4802 |H | Short_Literal 0x2 0179 e004 | | Load 0x0,0x4 017a 1b0f | | Execute Package,Field_Read,Field_Number 0xf 017b 0334 | 4 | Declare_Variable Array,With_Constraint 017c e5ff | | Load 0x2,-0x1 017d 0227 | ' | Execute Access,All_Reference 017e 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 017f e001 | | Load 0x0,0x1 0180 1b24 | $ | Execute Package,Field_Read,Field_Number 0x24 0181 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0182 e004 | | Load 0x0,0x4 0183 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0184 0119 | | Execute Any,Check_In_Formal_Type 0185 4801 |H | Short_Literal 0x1 0186 00da | | Load_Top At_Offset_2 0187 01d6 | | Execute Vector,Field_Write 0188 e5fe | | Load 0x2,-0x2 0189 e006 | | Load 0x0,0x6 018a 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 018b e004 | | Load 0x0,0x4 018c 1b0e | | Execute Package,Field_Read,Field_Number 0xe 018d 0119 | | Execute Any,Check_In_Formal_Type 018e 4802 |H | Short_Literal 0x2 018f 00da | | Load_Top At_Offset_2 0190 01d6 | | Execute Vector,Field_Write 0191 602a |`* | Indirect_Literal Discrete,0x1bc,{0x00000000, 0x0000810c} 0192 e005 | | Load 0x0,0x5 0193 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0194 00da | | Load_Top At_Offset_2 0195 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 0196 e5fc | | Load 0x2,-0x4 0197 0092 1ea3 | | Action Push_String_Extended,0x1ea3 ; "Target_Builder.Unit.Referencers" 0199 e007 | | Load 0x0,0x7 019a 180f | | Execute Package,Field_Execute,Field_Number 0xf 019b 4801 |H | Short_Literal 0x1 019c 4802 |H | Short_Literal 0x2 019d e004 | | Load 0x0,0x4 019e 1b0f | | Execute Package,Field_Read,Field_Number 0xf 019f 0334 | 4 | Declare_Variable Array,With_Constraint 01a0 e5ff | | Load 0x2,-0x1 01a1 0227 | ' | Execute Access,All_Reference 01a2 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 01a3 e001 | | Load 0x0,0x1 01a4 1b24 | $ | Execute Package,Field_Read,Field_Number 0x24 01a5 1820 | | Execute Package,Field_Execute,Field_Number 0x20 01a6 e004 | | Load 0x0,0x4 01a7 1b0e | | Execute Package,Field_Read,Field_Number 0xe 01a8 0119 | | Execute Any,Check_In_Formal_Type 01a9 4801 |H | Short_Literal 0x1 01aa 00da | | Load_Top At_Offset_2 01ab 01d6 | | Execute Vector,Field_Write 01ac e5fe | | Load 0x2,-0x2 01ad e006 | | Load 0x0,0x6 01ae 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 01af e004 | | Load 0x0,0x4 01b0 1b0e | | Execute Package,Field_Read,Field_Number 0xe 01b1 0119 | | Execute Any,Check_In_Formal_Type 01b2 4802 |H | Short_Literal 0x2 01b3 00da | | Load_Top At_Offset_2 01b4 01d6 | | Execute Vector,Field_Write 01b5 6006 |` | Indirect_Literal Discrete,0x1bc,{0x00000000, 0x0000810c} 01b6 e005 | | Load 0x0,0x5 01b7 1813 | | Execute Package,Field_Execute,Field_Number 0x13 01b8 00db | | Load_Top At_Offset_3 01b9 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 01ba 00da | | Load_Top At_Offset_2 01bb 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 01bc 0000 0000 | | .LITERAL {0x00000000, 0x0000810c} 01c0 0000 0000 | | .LITERAL {0x00000000, 0x0000816f} 01c4 0000 0000 | | .BLANK 0000[0x4] 01c8 ; -------------------------------------------------------------------------------------- 01c8 ; SUBPROGRAM 01c8 ; -------------------------------------------------------------------------------------- 01c8 01de | | .CONST 0x01de ; Address of begin 01c9 0226 | & | .CONST 0x0226 ; Address of exception handler 01ca 0005 | | .CONST 0x0005 ; Number of locals 01cb INIT_01c8: 01cb e001 | | Load 0x0,0x1 01cc 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 01cd 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01ce 02c7 | | Declare_Variable Any 01cf 00d8 | | Load_Top At_Offset_0 01d0 1c00 | | Execute_Immediate Run_Utility,0x0 01d1 e002 | | Load 0x0,0x2 01d2 1b0f | | Execute Package,Field_Read,Field_Number 0xf 01d3 02c7 | | Declare_Variable Any 01d4 00d8 | | Load_Top At_Offset_0 01d5 1c00 | | Execute_Immediate Run_Utility,0x0 01d6 4800 |H | Short_Literal 0x0 01d7 e003 | | Load 0x0,0x3 01d8 1b10 | | Execute Package,Field_Read,Field_Number 0x10 01d9 1c08 | | Execute_Immediate Run_Utility,0x8 01da 00d8 | | Load_Top At_Offset_0 01db 1c00 | | Execute_Immediate Run_Utility,0x0 01dc 029f 18e3 | | Declare_Subprogram INIT_18e0,For_Call 01de BODY_01c8: 01de 4800 |H | Short_Literal 0x0 01df 00da | | Load_Top At_Offset_2 01e0 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 01e1 e5ff | | Load 0x2,-0x1 01e2 0227 | ' | Execute Access,All_Reference 01e3 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 01e4 e5fe | | Load 0x2,-0x2 01e5 e002 | | Load 0x0,0x2 01e6 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 01e7 183e | > | Execute Package,Field_Execute,Field_Number 0x3e 01e8 e001 | | Load 0x0,0x1 01e9 1b24 | $ | Execute Package,Field_Read,Field_Number 0x24 01ea 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 01eb c402 | | Store 0x2,0x2 01ec 00db | | Load_Top At_Offset_3 01ed e001 | | Load 0x0,0x1 01ee 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 01ef 180f | | Execute Package,Field_Execute,Field_Number 0xf 01f0 6833 |h3 | Jump_Zero 0x224 01f1 e5fc | | Load 0x2,-0x4 01f2 4801 |H | Short_Literal 0x1 01f3 4801 |H | Short_Literal 0x1 01f4 e004 | | Load 0x0,0x4 01f5 1b0f | | Execute Package,Field_Read,Field_Number 0xf 01f6 0334 | 4 | Declare_Variable Array,With_Constraint 01f7 e5fe | | Load 0x2,-0x2 01f8 e006 | | Load 0x0,0x6 01f9 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 01fa e004 | | Load 0x0,0x4 01fb 1b0e | | Execute Package,Field_Read,Field_Number 0xe 01fc 0119 | | Execute Any,Check_In_Formal_Type 01fd 4801 |H | Short_Literal 0x1 01fe 00da | | Load_Top At_Offset_2 01ff 01d6 | | Execute Vector,Field_Write 0200 67bf |g | Indirect_Literal Discrete,0x1c0,{0x00000000, 0x0000816f} 0201 e005 | | Load 0x0,0x5 0202 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0203 4801 |H | Short_Literal 0x1 0204 4802 |H | Short_Literal 0x2 0205 e004 | | Load 0x0,0x4 0206 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0207 0334 | 4 | Declare_Variable Array,With_Constraint 0208 e5ff | | Load 0x2,-0x1 0209 0227 | ' | Execute Access,All_Reference 020a 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 020b e001 | | Load 0x0,0x1 020c 1b24 | $ | Execute Package,Field_Read,Field_Number 0x24 020d 1820 | | Execute Package,Field_Execute,Field_Number 0x20 020e e004 | | Load 0x0,0x4 020f 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0210 0119 | | Execute Any,Check_In_Formal_Type 0211 4801 |H | Short_Literal 0x1 0212 00da | | Load_Top At_Offset_2 0213 01d6 | | Execute Vector,Field_Write 0214 e5fe | | Load 0x2,-0x2 0215 e006 | | Load 0x0,0x6 0216 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 0217 e004 | | Load 0x0,0x4 0218 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0219 0119 | | Execute Any,Check_In_Formal_Type 021a 4802 |H | Short_Literal 0x2 021b 00da | | Load_Top At_Offset_2 021c 01d6 | | Execute Vector,Field_Write 021d 605a |`Z | Indirect_Literal Discrete,0x278,{0x00000000, 0x0000810d} 021e e005 | | Load 0x0,0x5 021f 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0220 00da | | Load_Top At_Offset_2 0221 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 0222 00d9 | | Load_Top At_Offset_1 0223 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 0224 8405 | | Call 0x2,0x5 0225 0831 | 1 | Execute_Immediate Raise,0x31 0226 TRAP_01c8: 0226 e005 | | Load 0x0,0x5 0227 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0228 010f | | Execute Exception,Equal 0229 6825 |h% | Jump_Zero 0x24f 022a e005 | | Load 0x0,0x5 022b 181b | | Execute Package,Field_Execute,Field_Number 0x1b 022c 00db | | Load_Top At_Offset_3 022d 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 022e e5fc | | Load 0x2,-0x4 022f 4801 |H | Short_Literal 0x1 0230 4802 |H | Short_Literal 0x2 0231 e004 | | Load 0x0,0x4 0232 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0233 0334 | 4 | Declare_Variable Array,With_Constraint 0234 e5ff | | Load 0x2,-0x1 0235 0227 | ' | Execute Access,All_Reference 0236 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0237 e001 | | Load 0x0,0x1 0238 1b24 | $ | Execute Package,Field_Read,Field_Number 0x24 0239 1820 | | Execute Package,Field_Execute,Field_Number 0x20 023a e004 | | Load 0x0,0x4 023b 1b0e | | Execute Package,Field_Read,Field_Number 0xe 023c 0119 | | Execute Any,Check_In_Formal_Type 023d 4801 |H | Short_Literal 0x1 023e 00da | | Load_Top At_Offset_2 023f 01d6 | | Execute Vector,Field_Write 0240 e402 | | Load 0x2,0x2 0241 e001 | | Load 0x0,0x1 0242 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 0243 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0244 e004 | | Load 0x0,0x4 0245 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0246 0119 | | Execute Any,Check_In_Formal_Type 0247 4802 |H | Short_Literal 0x2 0248 00da | | Load_Top At_Offset_2 0249 01d6 | | Execute Vector,Field_Write 024a 602d |`- | Indirect_Literal Discrete,0x278,{0x00000000, 0x0000810d} 024b e005 | | Load 0x0,0x5 024c 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 024d 00da | | Load_Top At_Offset_2 024e 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 024f e5fc | | Load 0x2,-0x4 0250 0092 1ea4 | | Action Push_String_Extended,0x1ea4 ; "Target_Builder.Unit.Suppliers" 0252 e007 | | Load 0x0,0x7 0253 180f | | Execute Package,Field_Execute,Field_Number 0xf 0254 4801 |H | Short_Literal 0x1 0255 4802 |H | Short_Literal 0x2 0256 e004 | | Load 0x0,0x4 0257 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0258 0334 | 4 | Declare_Variable Array,With_Constraint 0259 e5ff | | Load 0x2,-0x1 025a 0227 | ' | Execute Access,All_Reference 025b 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 025c e001 | | Load 0x0,0x1 025d 1b24 | $ | Execute Package,Field_Read,Field_Number 0x24 025e 1820 | | Execute Package,Field_Execute,Field_Number 0x20 025f e004 | | Load 0x0,0x4 0260 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0261 0119 | | Execute Any,Check_In_Formal_Type 0262 4801 |H | Short_Literal 0x1 0263 00da | | Load_Top At_Offset_2 0264 01d6 | | Execute Vector,Field_Write 0265 e402 | | Load 0x2,0x2 0266 e001 | | Load 0x0,0x1 0267 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 0268 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0269 e004 | | Load 0x0,0x4 026a 1b0e | | Execute Package,Field_Read,Field_Number 0xe 026b 0119 | | Execute Any,Check_In_Formal_Type 026c 4802 |H | Short_Literal 0x2 026d 00da | | Load_Top At_Offset_2 026e 01d6 | | Execute Vector,Field_Write 026f 6008 |` | Indirect_Literal Discrete,0x278,{0x00000000, 0x0000810d} 0270 e005 | | Load 0x0,0x5 0271 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0272 00db | | Load_Top At_Offset_3 0273 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 0274 00da | | Load_Top At_Offset_2 0275 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 0276 0000 0000 | | .XXX[0x2] 0278 0000 0000 | | .LITERAL {0x00000000, 0x0000810d} 027c 0000 0000 | | .BLANK 0000[0x4] 0280 ; -------------------------------------------------------------------------------------- 0280 ; SUBPROGRAM 0280 ; -------------------------------------------------------------------------------------- 0280 02d5 | | .CONST 0x02d5 ; Address of begin 0281 03b8 | | .CONST 0x03b8 ; Address of exception handler 0282 0016 | | .CONST 0x0016 ; Number of locals 0283 INIT_0280: 0283 e001 | | Load 0x0,0x1 0284 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 0285 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0286 02c7 | | Declare_Variable Any 0287 00d8 | | Load_Top At_Offset_0 0288 1c00 | | Execute_Immediate Run_Utility,0x0 0289 e002 | | Load 0x0,0x2 028a 1b3a | : | Execute Package,Field_Read,Field_Number 0x3a 028b 1b0d | | Execute Package,Field_Read,Field_Number 0xd 028c e002 | | Load 0x0,0x2 028d 1b0f | | Execute Package,Field_Read,Field_Number 0xf 028e 02c7 | | Declare_Variable Any 028f 00d8 | | Load_Top At_Offset_0 0290 1c00 | | Execute_Immediate Run_Utility,0x0 0291 e002 | | Load 0x0,0x2 0292 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0293 02ff | | Declare_Variable Variant_Record 0294 00d8 | | Load_Top At_Offset_0 0295 1c00 | | Execute_Immediate Run_Utility,0x0 0296 00e3 | | Load_Encached Natural_Cache 0297 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0298 e005 | | Load 0x0,0x5 0299 1b0d | | Execute Package,Field_Read,Field_Number 0xd 029a 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 029b e002 | | Load 0x0,0x2 029c 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 029d 1b11 | | Execute Package,Field_Read,Field_Number 0x11 029e 02c7 | | Declare_Variable Any 029f 00d8 | | Load_Top At_Offset_0 02a0 1c00 | | Execute_Immediate Run_Utility,0x0 02a1 e002 | | Load 0x0,0x2 02a2 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 02a3 1b11 | | Execute Package,Field_Read,Field_Number 0x11 02a4 02c7 | | Declare_Variable Any 02a5 00d8 | | Load_Top At_Offset_0 02a6 1c00 | | Execute_Immediate Run_Utility,0x0 02a7 e008 | | Load 0x0,0x8 02a8 1b1a | | Execute Package,Field_Read,Field_Number 0x1a 02a9 e002 | | Load 0x0,0x2 02aa 1b0f | | Execute Package,Field_Read,Field_Number 0xf 02ab 02c7 | | Declare_Variable Any 02ac 00d8 | | Load_Top At_Offset_0 02ad 1c00 | | Execute_Immediate Run_Utility,0x0 02ae e002 | | Load 0x0,0x2 02af 1b14 | | Execute Package,Field_Read,Field_Number 0x14 02b0 02ff | | Declare_Variable Variant_Record 02b1 00d8 | | Load_Top At_Offset_0 02b2 1c00 | | Execute_Immediate Run_Utility,0x0 02b3 00e1 | | Load_Encached Boolean_Cache 02b4 00e1 | | Load_Encached Boolean_Cache 02b5 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 02b6 e5fe | | Load 0x2,-0x2 02b7 e002 | | Load 0x0,0x2 02b8 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 02b9 183b | ; | Execute Package,Field_Execute,Field_Number 0x3b 02ba e5fb | | Load 0x2,-0x5 02bb e009 | | Load 0x0,0x9 02bc 18c2 | | Execute Package,Field_Execute,Field_Number 0xc2 02bd e5fa | | Load 0x2,-0x6 02be e5fe | | Load 0x2,-0x2 02bf e5fb | | Load 0x2,-0x5 02c0 e009 | | Load 0x0,0x9 02c1 18bb | | Execute Package,Field_Execute,Field_Number 0xbb 02c2 e5fa | | Load 0x2,-0x6 02c3 e5fb | | Load 0x2,-0x5 02c4 e5ff | | Load 0x2,-0x1 02c5 e003 | | Load 0x0,0x3 02c6 1b19 | | Execute Package,Field_Read,Field_Number 0x19 02c7 185b | [ | Execute Package,Field_Execute,Field_Number 0x5b 02c8 e5fa | | Load 0x2,-0x6 02c9 e5fe | | Load 0x2,-0x2 02ca e5fb | | Load 0x2,-0x5 02cb e009 | | Load 0x0,0x9 02cc 18ba | | Execute Package,Field_Execute,Field_Number 0xba 02cd 029f 195b | [| Declare_Subprogram INIT_1958,For_Call 02cf 029f 197b | {| Declare_Subprogram INIT_1978,For_Call 02d1 029f 1a0b | | Declare_Subprogram INIT_1a08,For_Call 02d3 029f 1b63 | c| Declare_Subprogram INIT_1b60,For_Call 02d5 BODY_0280: 02d5 4800 |H | Short_Literal 0x0 02d6 a5f9 | | Store_Unchecked 0x2,-0x7 02d7 e407 | | Load 0x2,0x7 02d8 e409 | | Load 0x2,0x9 02d9 e408 | | Load 0x2,0x8 02da e5fa | | Load 0x2,-0x6 02db e5fe | | Load 0x2,-0x2 02dc 826c | l | Call 0x1,0x6c 02dd c408 | | Store 0x2,0x8 02de c409 | | Store 0x2,0x9 02df c407 | | Store 0x2,0x7 02e0 e407 | | Load 0x2,0x7 02e1 6803 |h | Jump_Zero 0x2e5 02e2 e00a | | Load 0x0,0xa 02e3 1b18 | | Execute Package,Field_Read,Field_Number 0x18 02e4 0257 | W | Execute Discrete,Raise 02e5 e5fa | | Load 0x2,-0x6 02e6 e5fe | | Load 0x2,-0x2 02e7 8274 | t | Call 0x1,0x74 02e8 e40c | | Load 0x2,0xc 02e9 016d | m | Execute Variant_Record,Structure_Write 02ea e40c | | Load 0x2,0xc 02eb e00a | | Load 0x0,0xa 02ec 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 02ed e00a | | Load 0x0,0xa 02ee 1813 | | Execute Package,Field_Execute,Field_Number 0x13 02ef a40d | | Store_Unchecked 0x2,0xd 02f0 e40c | | Load 0x2,0xc 02f1 e00a | | Load 0x0,0xa 02f2 1b24 | $ | Execute Package,Field_Read,Field_Number 0x24 02f3 e00a | | Load 0x0,0xa 02f4 1813 | | Execute Package,Field_Execute,Field_Number 0x13 02f5 a40e | | Store_Unchecked 0x2,0xe 02f6 e40d | | Load 0x2,0xd 02f7 681f |h | Jump_Zero 0x317 02f8 e5fa | | Load 0x2,-0x6 02f9 4801 |H | Short_Literal 0x1 02fa 4802 |H | Short_Literal 0x2 02fb e004 | | Load 0x0,0x4 02fc 1b0f | | Execute Package,Field_Read,Field_Number 0xf 02fd 0334 | 4 | Declare_Variable Array,With_Constraint 02fe e5fe | | Load 0x2,-0x2 02ff e002 | | Load 0x0,0x2 0300 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0301 183b | ; | Execute Package,Field_Execute,Field_Number 0x3b 0302 e004 | | Load 0x0,0x4 0303 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0304 e004 | | Load 0x0,0x4 0305 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0306 0119 | | Execute Any,Check_In_Formal_Type 0307 4801 |H | Short_Literal 0x1 0308 00da | | Load_Top At_Offset_2 0309 01d6 | | Execute Vector,Field_Write 030a 0092 1ea5 | | Action Push_String_Extended,0x1ea5 ; "Link" 030c e004 | | Load 0x0,0x4 030d 1810 | | Execute Package,Field_Execute,Field_Number 0x10 030e e004 | | Load 0x0,0x4 030f 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0310 0119 | | Execute Any,Check_In_Formal_Type 0311 4802 |H | Short_Literal 0x2 0312 00da | | Load_Top At_Offset_2 0313 01d6 | | Execute Vector,Field_Write 0314 615f |a_ | Indirect_Literal Discrete,0x474,{0x00000000, 0x0000817a} 0315 e005 | | Load 0x0,0x5 0316 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0317 e5ff | | Load 0x2,-0x1 0318 0227 | ' | Execute Access,All_Reference 0319 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 031a e5fe | | Load 0x2,-0x2 031b e002 | | Load 0x0,0x2 031c 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 031d 183e | > | Execute Package,Field_Execute,Field_Number 0x3e 031e e001 | | Load 0x0,0x1 031f 1b24 | $ | Execute Package,Field_Read,Field_Number 0x24 0320 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 0321 c402 | | Store 0x2,0x2 0322 4801 |H | Short_Literal 0x1 0323 0092 1ea6 | | Action Push_String_Extended,0x1ea6 ; "<error>" 0325 e411 | | Load 0x2,0x11 0326 e00b | | Load 0x0,0xb 0327 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0328 6827 |h' | Jump_Zero 0x350 0329 e5fa | | Load 0x2,-0x6 032a 4801 |H | Short_Literal 0x1 032b 4801 |H | Short_Literal 0x1 032c e004 | | Load 0x0,0x4 032d 1b0f | | Execute Package,Field_Read,Field_Number 0xf 032e 0334 | 4 | Declare_Variable Array,With_Constraint 032f e5fe | | Load 0x2,-0x2 0330 e006 | | Load 0x0,0x6 0331 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 0332 e004 | | Load 0x0,0x4 0333 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0334 0119 | | Execute Any,Check_In_Formal_Type 0335 4801 |H | Short_Literal 0x1 0336 00da | | Load_Top At_Offset_2 0337 01d6 | | Execute Vector,Field_Write 0338 6137 |a7 | Indirect_Literal Discrete,0x470,{0x00000000, 0x00008111} 0339 e005 | | Load 0x0,0x5 033a 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 033b 4801 |H | Short_Literal 0x1 033c 4801 |H | Short_Literal 0x1 033d e004 | | Load 0x0,0x4 033e 1b0f | | Execute Package,Field_Read,Field_Number 0xf 033f 0334 | 4 | Declare_Variable Array,With_Constraint 0340 e5fe | | Load 0x2,-0x2 0341 e006 | | Load 0x0,0x6 0342 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 0343 e004 | | Load 0x0,0x4 0344 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0345 0119 | | Execute Any,Check_In_Formal_Type 0346 4801 |H | Short_Literal 0x1 0347 00da | | Load_Top At_Offset_2 0348 01d6 | | Execute Vector,Field_Write 0349 6122 |a" | Indirect_Literal Discrete,0x46c,{0x00000000, 0x0000811a} 034a e005 | | Load 0x0,0x5 034b 1813 | | Execute Package,Field_Execute,Field_Number 0x13 034c a5f9 | | Store_Unchecked 0x2,-0x7 034d e00a | | Load 0x0,0xa 034e 1b19 | | Execute Package,Field_Read,Field_Number 0x19 034f 0257 | W | Execute Discrete,Raise 0350 e402 | | Load 0x2,0x2 0351 e001 | | Load 0x0,0x1 0352 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 0353 180f | | Execute Package,Field_Execute,Field_Number 0xf 0354 682f |h/ | Jump_Zero 0x384 0355 e5fa | | Load 0x2,-0x6 0356 4801 |H | Short_Literal 0x1 0357 4801 |H | Short_Literal 0x1 0358 e004 | | Load 0x0,0x4 0359 1b0f | | Execute Package,Field_Read,Field_Number 0xf 035a 0334 | 4 | Declare_Variable Array,With_Constraint 035b e5fe | | Load 0x2,-0x2 035c e006 | | Load 0x0,0x6 035d 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 035e e004 | | Load 0x0,0x4 035f 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0360 0119 | | Execute Any,Check_In_Formal_Type 0361 4801 |H | Short_Literal 0x1 0362 00da | | Load_Top At_Offset_2 0363 01d6 | | Execute Vector,Field_Write 0364 6103 |a | Indirect_Literal Discrete,0x468,{0x00000000, 0x0000816f} 0365 e005 | | Load 0x0,0x5 0366 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0367 4801 |H | Short_Literal 0x1 0368 4802 |H | Short_Literal 0x2 0369 e004 | | Load 0x0,0x4 036a 1b0f | | Execute Package,Field_Read,Field_Number 0xf 036b 0334 | 4 | Declare_Variable Array,With_Constraint 036c e004 | | Load 0x0,0x4 036d 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 036e e004 | | Load 0x0,0x4 036f 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0370 0119 | | Execute Any,Check_In_Formal_Type 0371 4801 |H | Short_Literal 0x1 0372 00da | | Load_Top At_Offset_2 0373 01d6 | | Execute Vector,Field_Write 0374 e5fe | | Load 0x2,-0x2 0375 e006 | | Load 0x0,0x6 0376 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 0377 e004 | | Load 0x0,0x4 0378 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0379 0119 | | Execute Any,Check_In_Formal_Type 037a 4802 |H | Short_Literal 0x2 037b 00da | | Load_Top At_Offset_2 037c 01d6 | | Execute Vector,Field_Write 037d 60e6 |` | Indirect_Literal Discrete,0x464,{0x00000000, 0x00008126} 037e e005 | | Load 0x0,0x5 037f 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0380 a5f9 | | Store_Unchecked 0x2,-0x7 0381 e00a | | Load 0x0,0xa 0382 1b19 | | Execute Package,Field_Read,Field_Number 0x19 0383 0257 | W | Execute Discrete,Raise 0384 8415 | | Call 0x2,0x15 0385 6802 |h | Jump_Zero 0x388 0386 8414 | | Call 0x2,0x14 0387 7828 |x( | Jump 0x3b0 0388 e5fc | | Load 0x2,-0x4 0389 6807 |h | Jump_Zero 0x391 038a e407 | | Load 0x2,0x7 038b 8416 | | Call 0x2,0x16 038c c407 | | Store 0x2,0x7 038d e407 | | Load 0x2,0x7 038e 7021 |p! | Jump_Nonzero 0x3b0 038f 8414 | | Call 0x2,0x14 0390 781f |x | Jump 0x3b0 0391 4801 |H | Short_Literal 0x1 0392 4802 |H | Short_Literal 0x2 0393 e004 | | Load 0x0,0x4 0394 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0395 0334 | 4 | Declare_Variable Array,With_Constraint 0396 0092 1ea7 | | Action Push_String_Extended,0x1ea7 ; "There are un-Coded Units." 0398 e004 | | Load 0x0,0x4 0399 1810 | | Execute Package,Field_Execute,Field_Number 0x10 039a e004 | | Load 0x0,0x4 039b 1b0e | | Execute Package,Field_Read,Field_Number 0xe 039c 0119 | | Execute Any,Check_In_Formal_Type 039d 4801 |H | Short_Literal 0x1 039e 00da | | Load_Top At_Offset_2 039f 01d6 | | Execute Vector,Field_Write 03a0 e404 | | Load 0x2,0x4 03a1 e006 | | Load 0x0,0x6 03a2 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 03a3 e004 | | Load 0x0,0x4 03a4 1b0e | | Execute Package,Field_Read,Field_Number 0xe 03a5 0119 | | Execute Any,Check_In_Formal_Type 03a6 4802 |H | Short_Literal 0x2 03a7 00da | | Load_Top At_Offset_2 03a8 01d6 | | Execute Vector,Field_Write 03a9 60ba |` | Indirect_Literal Discrete,0x464,{0x00000000, 0x00008126} 03aa e005 | | Load 0x0,0x5 03ab 1813 | | Execute Package,Field_Execute,Field_Number 0x13 03ac a407 | | Store_Unchecked 0x2,0x7 03ad e00a | | Load 0x0,0xa 03ae 1b19 | | Execute Package,Field_Read,Field_Number 0x19 03af 0257 | W | Execute Discrete,Raise 03b0 e407 | | Load 0x2,0x7 03b1 a5f9 | | Store_Unchecked 0x2,-0x7 03b2 e407 | | Load 0x2,0x7 03b3 e5fa | | Load 0x2,-0x6 03b4 e409 | | Load 0x2,0x9 03b5 826d | m | Call 0x1,0x6d 03b6 c407 | | Store 0x2,0x7 03b7 4507 |E | Exit_Suprogram New_Top_Offset 0x7 03b8 TRAP_0280: 03b8 e00a | | Load 0x0,0xa 03b9 1b19 | | Execute Package,Field_Read,Field_Number 0x19 03ba 010f | | Execute Exception,Equal 03bb 6808 |h | Jump_Zero 0x3c4 03bc e407 | | Load 0x2,0x7 03bd a5f9 | | Store_Unchecked 0x2,-0x7 03be e407 | | Load 0x2,0x7 03bf e5fa | | Load 0x2,-0x6 03c0 e409 | | Load 0x2,0x9 03c1 826d | m | Call 0x1,0x6d 03c2 c407 | | Store 0x2,0x7 03c3 4507 |E | Exit_Suprogram New_Top_Offset 0x7 03c4 e00a | | Load 0x0,0xa 03c5 1b18 | | Execute Package,Field_Read,Field_Number 0x18 03c6 010f | | Execute Exception,Equal 03c7 6835 |h5 | Jump_Zero 0x3fd 03c8 4801 |H | Short_Literal 0x1 03c9 4802 |H | Short_Literal 0x2 03ca e004 | | Load 0x0,0x4 03cb 1b0f | | Execute Package,Field_Read,Field_Number 0xf 03cc 0334 | 4 | Declare_Variable Array,With_Constraint 03cd e004 | | Load 0x0,0x4 03ce 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 03cf e004 | | Load 0x0,0x4 03d0 1b0e | | Execute Package,Field_Read,Field_Number 0xe 03d1 0119 | | Execute Any,Check_In_Formal_Type 03d2 4801 |H | Short_Literal 0x1 03d3 00da | | Load_Top At_Offset_2 03d4 01d6 | | Execute Vector,Field_Write 03d5 e5fe | | Load 0x2,-0x2 03d6 e006 | | Load 0x0,0x6 03d7 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 03d8 e004 | | Load 0x0,0x4 03d9 1b0e | | Execute Package,Field_Read,Field_Number 0xe 03da 0119 | | Execute Any,Check_In_Formal_Type 03db 4802 |H | Short_Literal 0x2 03dc 00da | | Load_Top At_Offset_2 03dd 01d6 | | Execute Vector,Field_Write 03de 6085 |` | Indirect_Literal Discrete,0x464,{0x00000000, 0x00008126} 03df e005 | | Load 0x0,0x5 03e0 1813 | | Execute Package,Field_Execute,Field_Number 0x13 03e1 a5f9 | | Store_Unchecked 0x2,-0x7 03e2 e5fa | | Load 0x2,-0x6 03e3 4801 |H | Short_Literal 0x1 03e4 4802 |H | Short_Literal 0x2 03e5 e004 | | Load 0x0,0x4 03e6 1b0f | | Execute Package,Field_Read,Field_Number 0xf 03e7 0334 | 4 | Declare_Variable Array,With_Constraint 03e8 e004 | | Load 0x0,0x4 03e9 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 03ea e004 | | Load 0x0,0x4 03eb 1b0e | | Execute Package,Field_Read,Field_Number 0xe 03ec 0119 | | Execute Any,Check_In_Formal_Type 03ed 4801 |H | Short_Literal 0x1 03ee 00da | | Load_Top At_Offset_2 03ef 01d6 | | Execute Vector,Field_Write 03f0 e5fe | | Load 0x2,-0x2 03f1 e006 | | Load 0x0,0x6 03f2 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 03f3 e004 | | Load 0x0,0x4 03f4 1b0e | | Execute Package,Field_Read,Field_Number 0xe 03f5 0119 | | Execute Any,Check_In_Formal_Type 03f6 4802 |H | Short_Literal 0x2 03f7 00da | | Load_Top At_Offset_2 03f8 01d6 | | Execute Vector,Field_Write 03f9 606a |`j | Indirect_Literal Discrete,0x464,{0x00000000, 0x00008126} 03fa e005 | | Load 0x0,0x5 03fb 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 03fc 4507 |E | Exit_Suprogram New_Top_Offset 0x7 03fd e005 | | Load 0x0,0x5 03fe 1b17 | | Execute Package,Field_Read,Field_Number 0x17 03ff 010f | | Execute Exception,Equal 0400 6823 |h# | Jump_Zero 0x424 0401 e005 | | Load 0x0,0x5 0402 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0403 a5f9 | | Store_Unchecked 0x2,-0x7 0404 e407 | | Load 0x2,0x7 0405 e5fa | | Load 0x2,-0x6 0406 e409 | | Load 0x2,0x9 0407 826d | m | Call 0x1,0x6d 0408 c407 | | Store 0x2,0x7 0409 e5fa | | Load 0x2,-0x6 040a 4801 |H | Short_Literal 0x1 040b 4802 |H | Short_Literal 0x2 040c e004 | | Load 0x0,0x4 040d 1b0f | | Execute Package,Field_Read,Field_Number 0xf 040e 0334 | 4 | Declare_Variable Array,With_Constraint 040f e004 | | Load 0x0,0x4 0410 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 0411 e004 | | Load 0x0,0x4 0412 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0413 0119 | | Execute Any,Check_In_Formal_Type 0414 4801 |H | Short_Literal 0x1 0415 00da | | Load_Top At_Offset_2 0416 01d6 | | Execute Vector,Field_Write 0417 e5fe | | Load 0x2,-0x2 0418 e006 | | Load 0x0,0x6 0419 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 041a e004 | | Load 0x0,0x4 041b 1b0e | | Execute Package,Field_Read,Field_Number 0xe 041c 0119 | | Execute Any,Check_In_Formal_Type 041d 4802 |H | Short_Literal 0x2 041e 00da | | Load_Top At_Offset_2 041f 01d6 | | Execute Vector,Field_Write 0420 6043 |`C | Indirect_Literal Discrete,0x464,{0x00000000, 0x00008126} 0421 e005 | | Load 0x0,0x5 0422 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0423 4507 |E | Exit_Suprogram New_Top_Offset 0x7 0424 e407 | | Load 0x2,0x7 0425 e5fa | | Load 0x2,-0x6 0426 e409 | | Load 0x2,0x9 0427 826d | m | Call 0x1,0x6d 0428 c407 | | Store 0x2,0x7 0429 4801 |H | Short_Literal 0x1 042a 4802 |H | Short_Literal 0x2 042b e004 | | Load 0x0,0x4 042c 1b0f | | Execute Package,Field_Read,Field_Number 0xf 042d 0334 | 4 | Declare_Variable Array,With_Constraint 042e e004 | | Load 0x0,0x4 042f 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 0430 e004 | | Load 0x0,0x4 0431 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0432 0119 | | Execute Any,Check_In_Formal_Type 0433 4801 |H | Short_Literal 0x1 0434 00da | | Load_Top At_Offset_2 0435 01d6 | | Execute Vector,Field_Write 0436 e5fe | | Load 0x2,-0x2 0437 e006 | | Load 0x0,0x6 0438 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 0439 e004 | | Load 0x0,0x4 043a 1b0e | | Execute Package,Field_Read,Field_Number 0xe 043b 0119 | | Execute Any,Check_In_Formal_Type 043c 4802 |H | Short_Literal 0x2 043d 00da | | Load_Top At_Offset_2 043e 01d6 | | Execute Vector,Field_Write 043f 6024 |`$ | Indirect_Literal Discrete,0x464,{0x00000000, 0x00008126} 0440 e005 | | Load 0x0,0x5 0441 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0442 a5f9 | | Store_Unchecked 0x2,-0x7 0443 e5fa | | Load 0x2,-0x6 0444 4801 |H | Short_Literal 0x1 0445 4802 |H | Short_Literal 0x2 0446 e004 | | Load 0x0,0x4 0447 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0448 0334 | 4 | Declare_Variable Array,With_Constraint 0449 e004 | | Load 0x0,0x4 044a 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 044b e004 | | Load 0x0,0x4 044c 1b0e | | Execute Package,Field_Read,Field_Number 0xe 044d 0119 | | Execute Any,Check_In_Formal_Type 044e 4801 |H | Short_Literal 0x1 044f 00da | | Load_Top At_Offset_2 0450 01d6 | | Execute Vector,Field_Write 0451 e5fe | | Load 0x2,-0x2 0452 e006 | | Load 0x0,0x6 0453 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 0454 e004 | | Load 0x0,0x4 0455 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0456 0119 | | Execute Any,Check_In_Formal_Type 0457 4802 |H | Short_Literal 0x2 0458 00da | | Load_Top At_Offset_2 0459 01d6 | | Execute Vector,Field_Write 045a 6009 |` | Indirect_Literal Discrete,0x464,{0x00000000, 0x00008126} 045b e005 | | Load 0x0,0x5 045c 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 045d e5fa | | Load 0x2,-0x6 045e 0092 1ea8 | | Action Push_String_Extended,0x1ea8 ; "Target_Builder.Unit.Link" 0460 e007 | | Load 0x0,0x7 0461 180f | | Execute Package,Field_Execute,Field_Number 0xf 0462 4507 |E | Exit_Suprogram New_Top_Offset 0x7 0463 0000 | | .XXX[0x1] 0464 0000 0000 | | .LITERAL {0x00000000, 0x00008126} 0468 0000 0000 | | .LITERAL {0x00000000, 0x0000816f} 046c 0000 0000 | | .LITERAL {0x00000000, 0x0000811a} 0470 0000 0000 | | .LITERAL {0x00000000, 0x00008111} 0474 0000 0000 | | .LITERAL {0x00000000, 0x0000817a} 0478 ; -------------------------------------------------------------------------------------- 0478 ; SUBPROGRAM 0478 ; -------------------------------------------------------------------------------------- 0478 04ca | | .CONST 0x04ca ; Address of begin 0479 05f2 | | .CONST 0x05f2 ; Address of exception handler 047a 0016 | | .CONST 0x0016 ; Number of locals 047b INIT_0478: 047b e001 | | Load 0x0,0x1 047c 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 047d 1b0d | | Execute Package,Field_Read,Field_Number 0xd 047e 02c7 | | Declare_Variable Any 047f 00d8 | | Load_Top At_Offset_0 0480 1c00 | | Execute_Immediate Run_Utility,0x0 0481 e002 | | Load 0x0,0x2 0482 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0483 00e1 | | Load_Encached Boolean_Cache 0484 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0485 00e1 | | Load_Encached Boolean_Cache 0486 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0487 e002 | | Load 0x0,0x2 0488 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0489 1b18 | | Execute Package,Field_Read,Field_Number 0x18 048a 02c7 | | Declare_Variable Any 048b 00d8 | | Load_Top At_Offset_0 048c 1c00 | | Execute_Immediate Run_Utility,0x0 048d e001 | | Load 0x0,0x1 048e 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 048f 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0490 02c7 | | Declare_Variable Any 0491 00d8 | | Load_Top At_Offset_0 0492 1c00 | | Execute_Immediate Run_Utility,0x0 0493 e002 | | Load 0x0,0x2 0494 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0495 02c7 | | Declare_Variable Any 0496 00d8 | | Load_Top At_Offset_0 0497 1c00 | | Execute_Immediate Run_Utility,0x0 0498 e002 | | Load 0x0,0x2 0499 1b0f | | Execute Package,Field_Read,Field_Number 0xf 049a 02c7 | | Declare_Variable Any 049b 00d8 | | Load_Top At_Offset_0 049c 1c00 | | Execute_Immediate Run_Utility,0x0 049d e002 | | Load 0x0,0x2 049e 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 049f 1b11 | | Execute Package,Field_Read,Field_Number 0x11 04a0 02c7 | | Declare_Variable Any 04a1 00d8 | | Load_Top At_Offset_0 04a2 1c00 | | Execute_Immediate Run_Utility,0x0 04a3 e002 | | Load 0x0,0x2 04a4 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 04a5 1b11 | | Execute Package,Field_Read,Field_Number 0x11 04a6 02c7 | | Declare_Variable Any 04a7 00d8 | | Load_Top At_Offset_0 04a8 1c00 | | Execute_Immediate Run_Utility,0x0 04a9 e005 | | Load 0x0,0x5 04aa 1b0d | | Execute Package,Field_Read,Field_Number 0xd 04ab 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 04ac e008 | | Load 0x0,0x8 04ad 1b1a | | Execute Package,Field_Read,Field_Number 0x1a 04ae e002 | | Load 0x0,0x2 04af 1b14 | | Execute Package,Field_Read,Field_Number 0x14 04b0 02ff | | Declare_Variable Variant_Record 04b1 00d8 | | Load_Top At_Offset_0 04b2 1c00 | | Execute_Immediate Run_Utility,0x0 04b3 00e1 | | Load_Encached Boolean_Cache 04b4 00e1 | | Load_Encached Boolean_Cache 04b5 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 04b6 e00c | | Load 0x0,0xc 04b7 1b0d | | Execute Package,Field_Read,Field_Number 0xd 04b8 02c7 | | Declare_Variable Any 04b9 00d8 | | Load_Top At_Offset_0 04ba 1c00 | | Execute_Immediate Run_Utility,0x0 04bb 00ea | | Load_Encached Null_String_Cache 04bc e5fc | | Load 0x2,-0x4 04bd e5fe | | Load 0x2,-0x2 04be e5fd | | Load 0x2,-0x3 04bf e009 | | Load 0x0,0x9 04c0 18ba | | Execute Package,Field_Execute,Field_Number 0xba 04c1 e5fc | | Load 0x2,-0x4 04c2 e5fe | | Load 0x2,-0x2 04c3 e5fd | | Load 0x2,-0x3 04c4 e009 | | Load 0x0,0x9 04c5 18bb | | Execute Package,Field_Execute,Field_Number 0xbb 04c6 029f 1bf3 | | Declare_Subprogram INIT_1bf0,For_Call 04c8 029f 1c8b | | Declare_Subprogram INIT_1c88,For_Call 04ca BODY_0478: 04ca 4800 |H | Short_Literal 0x0 04cb a5fb | | Store_Unchecked 0x2,-0x5 04cc e40c | | Load 0x2,0xc 04cd e40b | | Load 0x2,0xb 04ce e40a | | Load 0x2,0xa 04cf e5fc | | Load 0x2,-0x4 04d0 e5fe | | Load 0x2,-0x2 04d1 826c | l | Call 0x1,0x6c 04d2 c40a | | Store 0x2,0xa 04d3 c40b | | Store 0x2,0xb 04d4 c40c | | Store 0x2,0xc 04d5 e40c | | Load 0x2,0xc 04d6 6803 |h | Jump_Zero 0x4da 04d7 e00a | | Load 0x0,0xa 04d8 1b18 | | Execute Package,Field_Read,Field_Number 0x18 04d9 0257 | W | Execute Discrete,Raise 04da e5fc | | Load 0x2,-0x4 04db e5fe | | Load 0x2,-0x2 04dc 8274 | t | Call 0x1,0x74 04dd e40e | | Load 0x2,0xe 04de 016d | m | Execute Variant_Record,Structure_Write 04df e40e | | Load 0x2,0xe 04e0 e00a | | Load 0x0,0xa 04e1 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 04e2 e00a | | Load 0x0,0xa 04e3 1813 | | Execute Package,Field_Execute,Field_Number 0x13 04e4 a40f | | Store_Unchecked 0x2,0xf 04e5 e40e | | Load 0x2,0xe 04e6 e00a | | Load 0x0,0xa 04e7 1b24 | $ | Execute Package,Field_Read,Field_Number 0x24 04e8 e00a | | Load 0x0,0xa 04e9 1813 | | Execute Package,Field_Execute,Field_Number 0x13 04ea a410 | | Store_Unchecked 0x2,0x10 04eb e40f | | Load 0x2,0xf 04ec 681f |h | Jump_Zero 0x50c 04ed e5fc | | Load 0x2,-0x4 04ee 4801 |H | Short_Literal 0x1 04ef 4802 |H | Short_Literal 0x2 04f0 e004 | | Load 0x0,0x4 04f1 1b0f | | Execute Package,Field_Read,Field_Number 0xf 04f2 0334 | 4 | Declare_Variable Array,With_Constraint 04f3 e5fe | | Load 0x2,-0x2 04f4 e002 | | Load 0x0,0x2 04f5 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 04f6 183b | ; | Execute Package,Field_Execute,Field_Number 0x3b 04f7 e004 | | Load 0x0,0x4 04f8 1810 | | Execute Package,Field_Execute,Field_Number 0x10 04f9 e004 | | Load 0x0,0x4 04fa 1b0e | | Execute Package,Field_Read,Field_Number 0xe 04fb 0119 | | Execute Any,Check_In_Formal_Type 04fc 4801 |H | Short_Literal 0x1 04fd 00da | | Load_Top At_Offset_2 04fe 01d6 | | Execute Vector,Field_Write 04ff 0092 1ea9 | | Action Push_String_Extended,0x1ea9 ; "Compile" 0501 e004 | | Load 0x0,0x4 0502 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0503 e004 | | Load 0x0,0x4 0504 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0505 0119 | | Execute Any,Check_In_Formal_Type 0506 4802 |H | Short_Literal 0x2 0507 00da | | Load_Top At_Offset_2 0508 01d6 | | Execute Vector,Field_Write 0509 676a |gj | Indirect_Literal Discrete,0x474,{0x00000000, 0x0000817a} 050a e005 | | Load 0x0,0x5 050b 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 050c 4801 |H | Short_Literal 0x1 050d 0092 1ea6 | | Action Push_String_Extended,0x1ea6 ; "<error>" 050f e412 | | Load 0x2,0x12 0510 e00b | | Load 0x0,0xb 0511 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0512 6827 |h' | Jump_Zero 0x53a 0513 e5fc | | Load 0x2,-0x4 0514 4801 |H | Short_Literal 0x1 0515 4801 |H | Short_Literal 0x1 0516 e004 | | Load 0x0,0x4 0517 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0518 0334 | 4 | Declare_Variable Array,With_Constraint 0519 e5fe | | Load 0x2,-0x2 051a e004 | | Load 0x0,0x4 051b 181a | | Execute Package,Field_Execute,Field_Number 0x1a 051c e004 | | Load 0x0,0x4 051d 1b0e | | Execute Package,Field_Read,Field_Number 0xe 051e 0119 | | Execute Any,Check_In_Formal_Type 051f 4801 |H | Short_Literal 0x1 0520 00da | | Load_Top At_Offset_2 0521 01d6 | | Execute Vector,Field_Write 0522 674d |gM | Indirect_Literal Discrete,0x470,{0x00000000, 0x00008111} 0523 e005 | | Load 0x0,0x5 0524 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0525 4801 |H | Short_Literal 0x1 0526 4801 |H | Short_Literal 0x1 0527 e004 | | Load 0x0,0x4 0528 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0529 0334 | 4 | Declare_Variable Array,With_Constraint 052a e5fe | | Load 0x2,-0x2 052b e004 | | Load 0x0,0x4 052c 181a | | Execute Package,Field_Execute,Field_Number 0x1a 052d e004 | | Load 0x0,0x4 052e 1b0e | | Execute Package,Field_Read,Field_Number 0xe 052f 0119 | | Execute Any,Check_In_Formal_Type 0530 4801 |H | Short_Literal 0x1 0531 00da | | Load_Top At_Offset_2 0532 01d6 | | Execute Vector,Field_Write 0533 6738 |g8 | Indirect_Literal Discrete,0x46c,{0x00000000, 0x0000811a} 0534 e005 | | Load 0x0,0x5 0535 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0536 a5fb | | Store_Unchecked 0x2,-0x5 0537 e00a | | Load 0x0,0xa 0538 1b19 | | Execute Package,Field_Read,Field_Number 0x19 0539 0257 | W | Execute Discrete,Raise 053a e5ff | | Load 0x2,-0x1 053b 0227 | ' | Execute Access,All_Reference 053c 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 053d e5fe | | Load 0x2,-0x2 053e e002 | | Load 0x0,0x2 053f 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0540 183e | > | Execute Package,Field_Execute,Field_Number 0x3e 0541 e001 | | Load 0x0,0x1 0542 1b24 | $ | Execute Package,Field_Read,Field_Number 0x24 0543 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 0544 c402 | | Store 0x2,0x2 0545 e402 | | Load 0x2,0x2 0546 e001 | | Load 0x0,0x1 0547 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 0548 180f | | Execute Package,Field_Execute,Field_Number 0xf 0549 6827 |h' | Jump_Zero 0x571 054a e5fc | | Load 0x2,-0x4 054b 4801 |H | Short_Literal 0x1 054c 4801 |H | Short_Literal 0x1 054d e004 | | Load 0x0,0x4 054e 1b0f | | Execute Package,Field_Read,Field_Number 0xf 054f 0334 | 4 | Declare_Variable Array,With_Constraint 0550 e5fe | | Load 0x2,-0x2 0551 e006 | | Load 0x0,0x6 0552 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 0553 e004 | | Load 0x0,0x4 0554 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0555 0119 | | Execute Any,Check_In_Formal_Type 0556 4801 |H | Short_Literal 0x1 0557 00da | | Load_Top At_Offset_2 0558 01d6 | | Execute Vector,Field_Write 0559 670e |g | Indirect_Literal Discrete,0x468,{0x00000000, 0x0000816f} 055a e005 | | Load 0x0,0x5 055b 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 055c 4801 |H | Short_Literal 0x1 055d 4801 |H | Short_Literal 0x1 055e e004 | | Load 0x0,0x4 055f 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0560 0334 | 4 | Declare_Variable Array,With_Constraint 0561 e5fe | | Load 0x2,-0x2 0562 e006 | | Load 0x0,0x6 0563 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 0564 e004 | | Load 0x0,0x4 0565 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0566 0119 | | Execute Any,Check_In_Formal_Type 0567 4801 |H | Short_Literal 0x1 0568 00da | | Load_Top At_Offset_2 0569 01d6 | | Execute Vector,Field_Write 056a 6701 |g | Indirect_Literal Discrete,0x46c,{0x00000000, 0x0000811a} 056b e005 | | Load 0x0,0x5 056c 1813 | | Execute Package,Field_Execute,Field_Number 0x13 056d a5fb | | Store_Unchecked 0x2,-0x5 056e e00a | | Load 0x0,0xa 056f 1b19 | | Execute Package,Field_Read,Field_Number 0x19 0570 0257 | W | Execute Discrete,Raise 0571 e5fe | | Load 0x2,-0x2 0572 c408 | | Store 0x2,0x8 0573 e402 | | Load 0x2,0x2 0574 c407 | | Store 0x2,0x7 0575 e005 | | Load 0x0,0x5 0576 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0577 00e1 | | Load_Encached Boolean_Cache 0578 e5fc | | Load 0x2,-0x4 0579 e408 | | Load 0x2,0x8 057a e00d | | Load 0x0,0xd 057b 1845 | E | Execute Package,Field_Execute,Field_Number 0x45 057c c405 | | Store 0x2,0x5 057d c40c | | Store 0x2,0xc 057e e40c | | Load 0x2,0xc 057f 6803 |h | Jump_Zero 0x583 0580 e005 | | Load 0x0,0x5 0581 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0582 0257 | W | Execute Discrete,Raise 0583 e405 | | Load 0x2,0x5 0584 6864 |hd | Jump_Zero 0x5e9 0585 e5fc | | Load 0x2,-0x4 0586 e408 | | Load 0x2,0x8 0587 e00d | | Load 0x0,0xd 0588 1873 | s | Execute Package,Field_Execute,Field_Number 0x73 0589 6801 |h | Jump_Zero 0x58b 058a 8416 | | Call 0x2,0x16 058b e005 | | Load 0x0,0x5 058c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 058d e406 | | Load 0x2,0x6 058e 0120 | | Execute Any,Is_Value 058f 6804 |h | Jump_Zero 0x594 0590 e002 | | Load 0x0,0x2 0591 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0592 1b18 | | Execute Package,Field_Read,Field_Number 0x18 0593 7801 |x | Jump 0x595 0594 e406 | | Load 0x2,0x6 0595 e5fc | | Load 0x2,-0x4 0596 e408 | | Load 0x2,0x8 0597 e00d | | Load 0x0,0xd 0598 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f 0599 c406 | | Store 0x2,0x6 059a c40c | | Store 0x2,0xc 059b e40c | | Load 0x2,0xc 059c 6803 |h | Jump_Zero 0x5a0 059d e005 | | Load 0x0,0x5 059e 1b17 | | Execute Package,Field_Read,Field_Number 0x17 059f 0257 | W | Execute Discrete,Raise 05a0 4801 |H | Short_Literal 0x1 05a1 a404 | | Store_Unchecked 0x2,0x4 05a2 00cf | | Action Mark_Auxiliary 05a3 783e |x> | Jump 0x5e2 05a4 e002 | | Load 0x0,0x2 05a5 1b0d | | Execute Package,Field_Read,Field_Number 0xd 05a6 e408 | | Load 0x2,0x8 05a7 0120 | | Execute Any,Is_Value 05a8 6803 |h | Jump_Zero 0x5ac 05a9 e002 | | Load 0x0,0x2 05aa 1b0f | | Execute Package,Field_Read,Field_Number 0xf 05ab 7801 |x | Jump 0x5ad 05ac e408 | | Load 0x2,0x8 05ad e406 | | Load 0x2,0x6 05ae e002 | | Load 0x0,0x2 05af 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 05b0 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 05b1 c408 | | Store 0x2,0x8 05b2 c403 | | Store 0x2,0x3 05b3 e403 | | Load 0x2,0x3 05b4 6803 |h | Jump_Zero 0x5b8 05b5 e005 | | Load 0x0,0x5 05b6 1b17 | | Execute Package,Field_Read,Field_Number 0x17 05b7 0257 | W | Execute Discrete,Raise 05b8 e005 | | Load 0x0,0x5 05b9 1b0d | | Execute Package,Field_Read,Field_Number 0xd 05ba e409 | | Load 0x2,0x9 05bb 0120 | | Execute Any,Is_Value 05bc 6803 |h | Jump_Zero 0x5c0 05bd e002 | | Load 0x0,0x2 05be 1b0f | | Execute Package,Field_Read,Field_Number 0xf 05bf 7801 |x | Jump 0x5c1 05c0 e409 | | Load 0x2,0x9 05c1 e5fc | | Load 0x2,-0x4 05c2 e408 | | Load 0x2,0x8 05c3 e00d | | Load 0x0,0xd 05c4 185d | ] | Execute Package,Field_Execute,Field_Number 0x5d 05c5 c409 | | Store 0x2,0x9 05c6 c40c | | Store 0x2,0xc 05c7 e40c | | Load 0x2,0xc 05c8 6803 |h | Jump_Zero 0x5cc 05c9 e005 | | Load 0x0,0x5 05ca 1b17 | | Execute Package,Field_Read,Field_Number 0x17 05cb 0257 | W | Execute Discrete,Raise 05cc 8416 | | Call 0x2,0x16 05cd e002 | | Load 0x0,0x2 05ce 1b0d | | Execute Package,Field_Read,Field_Number 0xd 05cf 60a8 |` | Indirect_Literal Discrete,0x678,{0x00000000, 0x00004000} 05d0 e00e | | Load 0x0,0xe 05d1 1b0e | | Execute Package,Field_Read,Field_Number 0xe 05d2 e409 | | Load 0x2,0x9 05d3 e002 | | Load 0x0,0x2 05d4 1b3b | ; | Execute Package,Field_Read,Field_Number 0x3b 05d5 181c | | Execute Package,Field_Execute,Field_Number 0x1c 05d6 c403 | | Store 0x2,0x3 05d7 e403 | | Load 0x2,0x3 05d8 6803 |h | Jump_Zero 0x5dc 05d9 e00a | | Load 0x0,0xa 05da 1b19 | | Execute Package,Field_Read,Field_Number 0x19 05db 0257 | W | Execute Discrete,Raise 05dc e406 | | Load 0x2,0x6 05dd e002 | | Load 0x0,0x2 05de 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 05df 181d | | Execute Package,Field_Execute,Field_Number 0x1d 05e0 c406 | | Store 0x2,0x6 05e1 00c9 | | Action Pop_Auxiliary_Loop 05e2 e406 | | Load 0x2,0x6 05e3 e002 | | Load 0x0,0x2 05e4 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 05e5 181e | | Execute Package,Field_Execute,Field_Number 0x1e 05e6 6fbd |o | Jump_Zero 0x5a4 05e7 00ce | | Action Pop_Auxiliary 05e8 7801 |x | Jump 0x5ea 05e9 8416 | | Call 0x2,0x16 05ea e40c | | Load 0x2,0xc 05eb a5fb | | Store_Unchecked 0x2,-0x5 05ec e40c | | Load 0x2,0xc 05ed e5fc | | Load 0x2,-0x4 05ee e40b | | Load 0x2,0xb 05ef 826d | m | Call 0x1,0x6d 05f0 c40c | | Store 0x2,0xc 05f1 4505 |E | Exit_Suprogram New_Top_Offset 0x5 05f2 TRAP_0478: 05f2 e00a | | Load 0x0,0xa 05f3 1b19 | | Execute Package,Field_Read,Field_Number 0x19 05f4 010f | | Execute Exception,Equal 05f5 6808 |h | Jump_Zero 0x5fe 05f6 e40c | | Load 0x2,0xc 05f7 a5fb | | Store_Unchecked 0x2,-0x5 05f8 e40c | | Load 0x2,0xc 05f9 e5fc | | Load 0x2,-0x4 05fa e40b | | Load 0x2,0xb 05fb 826d | m | Call 0x1,0x6d 05fc c40c | | Store 0x2,0xc 05fd 4505 |E | Exit_Suprogram New_Top_Offset 0x5 05fe e00a | | Load 0x0,0xa 05ff 1b18 | | Execute Package,Field_Read,Field_Number 0x18 0600 010f | | Execute Exception,Equal 0601 6825 |h% | Jump_Zero 0x627 0602 4801 |H | Short_Literal 0x1 0603 4801 |H | Short_Literal 0x1 0604 e004 | | Load 0x0,0x4 0605 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0606 0334 | 4 | Declare_Variable Array,With_Constraint 0607 e5fe | | Load 0x2,-0x2 0608 e006 | | Load 0x0,0x6 0609 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 060a e004 | | Load 0x0,0x4 060b 1b0e | | Execute Package,Field_Read,Field_Number 0xe 060c 0119 | | Execute Any,Check_In_Formal_Type 060d 4801 |H | Short_Literal 0x1 060e 00da | | Load_Top At_Offset_2 060f 01d6 | | Execute Vector,Field_Write 0610 665b |f[ | Indirect_Literal Discrete,0x46c,{0x00000000, 0x0000811a} 0611 e005 | | Load 0x0,0x5 0612 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0613 a5fb | | Store_Unchecked 0x2,-0x5 0614 e5fc | | Load 0x2,-0x4 0615 4801 |H | Short_Literal 0x1 0616 4801 |H | Short_Literal 0x1 0617 e004 | | Load 0x0,0x4 0618 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0619 0334 | 4 | Declare_Variable Array,With_Constraint 061a e5fe | | Load 0x2,-0x2 061b e006 | | Load 0x0,0x6 061c 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 061d e004 | | Load 0x0,0x4 061e 1b0e | | Execute Package,Field_Read,Field_Number 0xe 061f 0119 | | Execute Any,Check_In_Formal_Type 0620 4801 |H | Short_Literal 0x1 0621 00da | | Load_Top At_Offset_2 0622 01d6 | | Execute Vector,Field_Write 0623 6648 |fH | Indirect_Literal Discrete,0x46c,{0x00000000, 0x0000811a} 0624 e005 | | Load 0x0,0x5 0625 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0626 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0627 e005 | | Load 0x0,0x5 0628 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0629 010f | | Execute Exception,Equal 062a 681b |h | Jump_Zero 0x646 062b e005 | | Load 0x0,0x5 062c 181b | | Execute Package,Field_Execute,Field_Number 0x1b 062d a5fb | | Store_Unchecked 0x2,-0x5 062e e40c | | Load 0x2,0xc 062f e5fc | | Load 0x2,-0x4 0630 e40b | | Load 0x2,0xb 0631 826d | m | Call 0x1,0x6d 0632 c40c | | Store 0x2,0xc 0633 e5fc | | Load 0x2,-0x4 0634 4801 |H | Short_Literal 0x1 0635 4801 |H | Short_Literal 0x1 0636 e004 | | Load 0x0,0x4 0637 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0638 0334 | 4 | Declare_Variable Array,With_Constraint 0639 e5fe | | Load 0x2,-0x2 063a e006 | | Load 0x0,0x6 063b 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 063c e004 | | Load 0x0,0x4 063d 1b0e | | Execute Package,Field_Read,Field_Number 0xe 063e 0119 | | Execute Any,Check_In_Formal_Type 063f 4801 |H | Short_Literal 0x1 0640 00da | | Load_Top At_Offset_2 0641 01d6 | | Execute Vector,Field_Write 0642 6629 |f) | Indirect_Literal Discrete,0x46c,{0x00000000, 0x0000811a} 0643 e005 | | Load 0x0,0x5 0644 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0645 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0646 e40c | | Load 0x2,0xc 0647 e5fc | | Load 0x2,-0x4 0648 e40b | | Load 0x2,0xb 0649 826d | m | Call 0x1,0x6d 064a c40c | | Store 0x2,0xc 064b 4801 |H | Short_Literal 0x1 064c 4801 |H | Short_Literal 0x1 064d e004 | | Load 0x0,0x4 064e 1b0f | | Execute Package,Field_Read,Field_Number 0xf 064f 0334 | 4 | Declare_Variable Array,With_Constraint 0650 e5fe | | Load 0x2,-0x2 0651 e006 | | Load 0x0,0x6 0652 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 0653 e004 | | Load 0x0,0x4 0654 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0655 0119 | | Execute Any,Check_In_Formal_Type 0656 4801 |H | Short_Literal 0x1 0657 00da | | Load_Top At_Offset_2 0658 01d6 | | Execute Vector,Field_Write 0659 6612 |f | Indirect_Literal Discrete,0x46c,{0x00000000, 0x0000811a} 065a e005 | | Load 0x0,0x5 065b 1813 | | Execute Package,Field_Execute,Field_Number 0x13 065c a5fb | | Store_Unchecked 0x2,-0x5 065d e5fc | | Load 0x2,-0x4 065e 4801 |H | Short_Literal 0x1 065f 4801 |H | Short_Literal 0x1 0660 e004 | | Load 0x0,0x4 0661 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0662 0334 | 4 | Declare_Variable Array,With_Constraint 0663 e5fe | | Load 0x2,-0x2 0664 e006 | | Load 0x0,0x6 0665 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 0666 e004 | | Load 0x0,0x4 0667 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0668 0119 | | Execute Any,Check_In_Formal_Type 0669 4801 |H | Short_Literal 0x1 066a 00da | | Load_Top At_Offset_2 066b 01d6 | | Execute Vector,Field_Write 066c 65ff |e | Indirect_Literal Discrete,0x46c,{0x00000000, 0x0000811a} 066d e005 | | Load 0x0,0x5 066e 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 066f e5fc | | Load 0x2,-0x4 0670 0092 1eaa | | Action Push_String_Extended,0x1eaa ; "Target_Builder.Unit.Promote" 0672 e007 | | Load 0x0,0x7 0673 180f | | Execute Package,Field_Execute,Field_Number 0xf 0674 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0675 0000 0000 | | .XXX[0x3] 0677 0000 | | 0678 0000 0000 | | .LITERAL {0x00000000, 0x00004000} 067c 0000 0000 | | .BLANK 0000[0x4] 0680 ; -------------------------------------------------------------------------------------- 0680 ; SUBPROGRAM 0680 ; -------------------------------------------------------------------------------------- 0680 06b6 | | .CONST 0x06b6 ; Address of begin 0681 073a | : | .CONST 0x073a ; Address of exception handler 0682 000b | | .CONST 0x000b ; Number of locals 0683 INIT_0680: 0683 e005 | | Load 0x0,0x5 0684 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0685 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0686 e002 | | Load 0x0,0x2 0687 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0688 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0689 02c7 | | Declare_Variable Any 068a 00d8 | | Load_Top At_Offset_0 068b 1c00 | | Execute_Immediate Run_Utility,0x0 068c e002 | | Load 0x0,0x2 068d 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 068e 1b11 | | Execute Package,Field_Read,Field_Number 0x11 068f 02c7 | | Declare_Variable Any 0690 00d8 | | Load_Top At_Offset_0 0691 1c00 | | Execute_Immediate Run_Utility,0x0 0692 e005 | | Load 0x0,0x5 0693 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0694 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0695 e008 | | Load 0x0,0x8 0696 1b1a | | Execute Package,Field_Read,Field_Number 0x1a 0697 e002 | | Load 0x0,0x2 0698 1b2e | . | Execute Package,Field_Read,Field_Number 0x2e 0699 0322 | " | Declare_Variable Record 069a e5fd | | Load 0x2,-0x3 069b e009 | | Load 0x0,0x9 069c 1863 | c | Execute Package,Field_Execute,Field_Number 0x63 069d 00d9 | | Load_Top At_Offset_1 069e 017d | } | Execute Record,Structure_Write 069f e5fc | | Load 0x2,-0x4 06a0 e5fe | | Load 0x2,-0x2 06a1 e5fd | | Load 0x2,-0x3 06a2 e009 | | Load 0x0,0x9 06a3 18bb | | Execute Package,Field_Execute,Field_Number 0xbb 06a4 00ea | | Load_Encached Null_String_Cache 06a5 e5fc | | Load 0x2,-0x4 06a6 e5fe | | Load 0x2,-0x2 06a7 e5fd | | Load 0x2,-0x3 06a8 e009 | | Load 0x0,0x9 06a9 18ba | | Execute Package,Field_Execute,Field_Number 0xba 06aa e5fc | | Load 0x2,-0x4 06ab e407 | | Load 0x2,0x7 06ac e5fe | | Load 0x2,-0x2 06ad e5fc | | Load 0x2,-0x4 06ae 4801 |H | Short_Literal 0x1 06af e5fe | | Load 0x2,-0x2 06b0 e006 | | Load 0x0,0x6 06b1 181c | | Execute Package,Field_Execute,Field_Number 0x1c 06b2 e00d | | Load 0x0,0xd 06b3 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 06b4 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 06b5 0007 | | Action Break_Optional 06b6 BODY_0680: 06b6 e402 | | Load 0x2,0x2 06b7 e404 | | Load 0x2,0x4 06b8 e403 | | Load 0x2,0x3 06b9 e5fc | | Load 0x2,-0x4 06ba e5fe | | Load 0x2,-0x2 06bb 826c | l | Call 0x1,0x6c 06bc c403 | | Store 0x2,0x3 06bd c404 | | Store 0x2,0x4 06be c402 | | Store 0x2,0x2 06bf e402 | | Load 0x2,0x2 06c0 6803 |h | Jump_Zero 0x6c4 06c1 e00a | | Load 0x0,0xa 06c2 1b18 | | Execute Package,Field_Read,Field_Number 0x18 06c3 0257 | W | Execute Discrete,Raise 06c4 e5fc | | Load 0x2,-0x4 06c5 0092 1eab | | Action Push_String_Extended,0x1eab ; "Demoting => " 06c7 e5fe | | Load 0x2,-0x2 06c8 e002 | | Load 0x0,0x2 06c9 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 06ca 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 06cb 01cc | | Execute Vector,Catenate 06cc e007 | | Load 0x0,0x7 06cd 1813 | | Execute Package,Field_Execute,Field_Number 0x13 06ce e407 | | Load 0x2,0x7 06cf e408 | | Load 0x2,0x8 06d0 00db | | Load_Top At_Offset_3 06d1 e409 | | Load 0x2,0x9 06d2 e40b | | Load 0x2,0xb 06d3 e5fe | | Load 0x2,-0x2 06d4 e00f | | Load 0x0,0xf 06d5 180f | | Execute Package,Field_Execute,Field_Number 0xf 06d6 7019 |p | Jump_Nonzero 0x6f0 06d7 e5fc | | Load 0x2,-0x4 06d8 4801 |H | Short_Literal 0x1 06d9 4801 |H | Short_Literal 0x1 06da e004 | | Load 0x0,0x4 06db 1b0f | | Execute Package,Field_Read,Field_Number 0xf 06dc 0334 | 4 | Declare_Variable Array,With_Constraint 06dd e5fe | | Load 0x2,-0x2 06de e006 | | Load 0x0,0x6 06df 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 06e0 e004 | | Load 0x0,0x4 06e1 1b0e | | Execute Package,Field_Read,Field_Number 0xe 06e2 0119 | | Execute Any,Check_In_Formal_Type 06e3 4801 |H | Short_Literal 0x1 06e4 00da | | Load_Top At_Offset_2 06e5 01d6 | | Execute Vector,Field_Write 06e6 60e1 |` | Indirect_Literal Discrete,0x7c8,{0x00000000, 0x000081c1} 06e7 e005 | | Load 0x0,0x5 06e8 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 06e9 e004 | | Load 0x0,0x4 06ea 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 06eb 60dc |` | Indirect_Literal Discrete,0x7c8,{0x00000000, 0x000081c1} 06ec e005 | | Load 0x0,0x5 06ed 1813 | | Execute Package,Field_Execute,Field_Number 0x13 06ee a5fb | | Store_Unchecked 0x2,-0x5 06ef 4505 |E | Exit_Suprogram New_Top_Offset 0x5 06f0 e405 | | Load 0x2,0x5 06f1 e406 | | Load 0x2,0x6 06f2 e5fc | | Load 0x2,-0x4 06f3 e002 | | Load 0x0,0x2 06f4 1815 | | Execute Package,Field_Execute,Field_Number 0x15 06f5 e5ff | | Load 0x2,-0x1 06f6 00ea | | Load_Encached Null_String_Cache 06f7 e409 | | Load 0x2,0x9 06f8 e40a | | Load 0x2,0xa 06f9 e408 | | Load 0x2,0x8 06fa e40b | | Load 0x2,0xb 06fb e5fe | | Load 0x2,-0x2 06fc 0092 1eac | | Action Push_String_Extended,0x1eac ; "Demote" 06fe e009 | | Load 0x0,0x9 06ff 18c8 | | Execute Package,Field_Execute,Field_Number 0xc8 0700 4800 |H | Short_Literal 0x0 0701 e5fd | | Load 0x2,-0x3 0702 e009 | | Load 0x0,0x9 0703 1863 | c | Execute Package,Field_Execute,Field_Number 0x63 0704 e010 | | Load 0x0,0x10 0705 1846 | F | Execute Package,Field_Execute,Field_Number 0x46 0706 c406 | | Store 0x2,0x6 0707 c405 | | Store 0x2,0x5 0708 e405 | | Load 0x2,0x5 0709 6806 |h | Jump_Zero 0x710 070a e011 | | Load 0x0,0x11 070b 180e | | Execute Package,Field_Execute,Field_Number 0xe 070c e405 | | Load 0x2,0x5 070d e005 | | Load 0x0,0x5 070e 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 070f 7822 |x" | Jump 0x732 0710 e407 | | Load 0x2,0x7 0711 e408 | | Load 0x2,0x8 0712 00db | | Load_Top At_Offset_3 0713 e409 | | Load 0x2,0x9 0714 e40b | | Load 0x2,0xb 0715 e5fe | | Load 0x2,-0x2 0716 e00f | | Load 0x0,0xf 0717 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0718 7019 |p | Jump_Nonzero 0x732 0719 e5fc | | Load 0x2,-0x4 071a 4801 |H | Short_Literal 0x1 071b 4801 |H | Short_Literal 0x1 071c e004 | | Load 0x0,0x4 071d 1b0f | | Execute Package,Field_Read,Field_Number 0xf 071e 0334 | 4 | Declare_Variable Array,With_Constraint 071f e5fe | | Load 0x2,-0x2 0720 e006 | | Load 0x0,0x6 0721 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 0722 e004 | | Load 0x0,0x4 0723 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0724 0119 | | Execute Any,Check_In_Formal_Type 0725 4801 |H | Short_Literal 0x1 0726 00da | | Load_Top At_Offset_2 0727 01d6 | | Execute Vector,Field_Write 0728 609b |` | Indirect_Literal Discrete,0x7c4,{0x00000000, 0x000081c2} 0729 e005 | | Load 0x0,0x5 072a 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 072b e004 | | Load 0x0,0x4 072c 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 072d 6096 |` | Indirect_Literal Discrete,0x7c4,{0x00000000, 0x000081c2} 072e e005 | | Load 0x0,0x5 072f 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0730 a5fb | | Store_Unchecked 0x2,-0x5 0731 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0732 e402 | | Load 0x2,0x2 0733 a5fb | | Store_Unchecked 0x2,-0x5 0734 e402 | | Load 0x2,0x2 0735 e5fc | | Load 0x2,-0x4 0736 e404 | | Load 0x2,0x4 0737 826d | m | Call 0x1,0x6d 0738 c402 | | Store 0x2,0x2 0739 4505 |E | Exit_Suprogram New_Top_Offset 0x5 073a TRAP_0680: 073a e00a | | Load 0x0,0xa 073b 1b19 | | Execute Package,Field_Read,Field_Number 0x19 073c 010f | | Execute Exception,Equal 073d 6808 |h | Jump_Zero 0x746 073e e402 | | Load 0x2,0x2 073f e5fc | | Load 0x2,-0x4 0740 e404 | | Load 0x2,0x4 0741 826d | m | Call 0x1,0x6d 0742 c402 | | Store 0x2,0x2 0743 e402 | | Load 0x2,0x2 0744 a5fb | | Store_Unchecked 0x2,-0x5 0745 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0746 e00a | | Load 0x0,0xa 0747 1b18 | | Execute Package,Field_Read,Field_Number 0x18 0748 010f | | Execute Exception,Equal 0749 6825 |h% | Jump_Zero 0x76f 074a 4801 |H | Short_Literal 0x1 074b 4801 |H | Short_Literal 0x1 074c e004 | | Load 0x0,0x4 074d 1b0f | | Execute Package,Field_Read,Field_Number 0xf 074e 0334 | 4 | Declare_Variable Array,With_Constraint 074f e5fe | | Load 0x2,-0x2 0750 e006 | | Load 0x0,0x6 0751 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 0752 e004 | | Load 0x0,0x4 0753 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0754 0119 | | Execute Any,Check_In_Formal_Type 0755 4801 |H | Short_Literal 0x1 0756 00da | | Load_Top At_Offset_2 0757 01d6 | | Execute Vector,Field_Write 0758 6067 |`g | Indirect_Literal Discrete,0x7c0,{0x00000000, 0x00008107} 0759 e005 | | Load 0x0,0x5 075a 1813 | | Execute Package,Field_Execute,Field_Number 0x13 075b a5fb | | Store_Unchecked 0x2,-0x5 075c e5fc | | Load 0x2,-0x4 075d 4801 |H | Short_Literal 0x1 075e 4801 |H | Short_Literal 0x1 075f e004 | | Load 0x0,0x4 0760 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0761 0334 | 4 | Declare_Variable Array,With_Constraint 0762 e5fe | | Load 0x2,-0x2 0763 e006 | | Load 0x0,0x6 0764 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 0765 e004 | | Load 0x0,0x4 0766 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0767 0119 | | Execute Any,Check_In_Formal_Type 0768 4801 |H | Short_Literal 0x1 0769 00da | | Load_Top At_Offset_2 076a 01d6 | | Execute Vector,Field_Write 076b 6054 |`T | Indirect_Literal Discrete,0x7c0,{0x00000000, 0x00008107} 076c e005 | | Load 0x0,0x5 076d 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 076e 4505 |E | Exit_Suprogram New_Top_Offset 0x5 076f e005 | | Load 0x0,0x5 0770 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0771 010f | | Execute Exception,Equal 0772 681b |h | Jump_Zero 0x78e 0773 e005 | | Load 0x0,0x5 0774 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0775 a5fb | | Store_Unchecked 0x2,-0x5 0776 e402 | | Load 0x2,0x2 0777 e5fc | | Load 0x2,-0x4 0778 e404 | | Load 0x2,0x4 0779 826d | m | Call 0x1,0x6d 077a c402 | | Store 0x2,0x2 077b e5fc | | Load 0x2,-0x4 077c 4801 |H | Short_Literal 0x1 077d 4801 |H | Short_Literal 0x1 077e e004 | | Load 0x0,0x4 077f 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0780 0334 | 4 | Declare_Variable Array,With_Constraint 0781 e5fe | | Load 0x2,-0x2 0782 e006 | | Load 0x0,0x6 0783 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 0784 e004 | | Load 0x0,0x4 0785 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0786 0119 | | Execute Any,Check_In_Formal_Type 0787 4801 |H | Short_Literal 0x1 0788 00da | | Load_Top At_Offset_2 0789 01d6 | | Execute Vector,Field_Write 078a 6035 |`5 | Indirect_Literal Discrete,0x7c0,{0x00000000, 0x00008107} 078b e005 | | Load 0x0,0x5 078c 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 078d 4505 |E | Exit_Suprogram New_Top_Offset 0x5 078e e402 | | Load 0x2,0x2 078f e5fc | | Load 0x2,-0x4 0790 e404 | | Load 0x2,0x4 0791 826d | m | Call 0x1,0x6d 0792 c402 | | Store 0x2,0x2 0793 4801 |H | Short_Literal 0x1 0794 4801 |H | Short_Literal 0x1 0795 e004 | | Load 0x0,0x4 0796 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0797 0334 | 4 | Declare_Variable Array,With_Constraint 0798 e5fe | | Load 0x2,-0x2 0799 e006 | | Load 0x0,0x6 079a 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 079b e004 | | Load 0x0,0x4 079c 1b0e | | Execute Package,Field_Read,Field_Number 0xe 079d 0119 | | Execute Any,Check_In_Formal_Type 079e 4801 |H | Short_Literal 0x1 079f 00da | | Load_Top At_Offset_2 07a0 01d6 | | Execute Vector,Field_Write 07a1 601e |` | Indirect_Literal Discrete,0x7c0,{0x00000000, 0x00008107} 07a2 e005 | | Load 0x0,0x5 07a3 1813 | | Execute Package,Field_Execute,Field_Number 0x13 07a4 a5fb | | Store_Unchecked 0x2,-0x5 07a5 e5fc | | Load 0x2,-0x4 07a6 4801 |H | Short_Literal 0x1 07a7 4801 |H | Short_Literal 0x1 07a8 e004 | | Load 0x0,0x4 07a9 1b0f | | Execute Package,Field_Read,Field_Number 0xf 07aa 0334 | 4 | Declare_Variable Array,With_Constraint 07ab e5fe | | Load 0x2,-0x2 07ac e006 | | Load 0x0,0x6 07ad 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 07ae e004 | | Load 0x0,0x4 07af 1b0e | | Execute Package,Field_Read,Field_Number 0xe 07b0 0119 | | Execute Any,Check_In_Formal_Type 07b1 4801 |H | Short_Literal 0x1 07b2 00da | | Load_Top At_Offset_2 07b3 01d6 | | Execute Vector,Field_Write 07b4 600b |` | Indirect_Literal Discrete,0x7c0,{0x00000000, 0x00008107} 07b5 e005 | | Load 0x0,0x5 07b6 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 07b7 e5fc | | Load 0x2,-0x4 07b8 0092 1ead | | Action Push_String_Extended,0x1ead ; "Target_Builder.Unit.Demote" 07ba e007 | | Load 0x0,0x7 07bb 180f | | Execute Package,Field_Execute,Field_Number 0xf 07bc 4505 |E | Exit_Suprogram New_Top_Offset 0x5 07bd 0000 0000 | | .XXX[0x3] 07bf 0000 | | 07c0 0000 0000 | | .LITERAL {0x00000000, 0x00008107} 07c4 0000 0000 | | .LITERAL {0x00000000, 0x000081c2} 07c8 0000 0000 | | .LITERAL {0x00000000, 0x000081c1} 07cc 0000 0000 | | .BLANK 0000[0x4] 07d0 ; -------------------------------------------------------------------------------------- 07d0 ; SUBPROGRAM 07d0 ; -------------------------------------------------------------------------------------- 07d0 07d3 | | .CONST 0x07d3 ; Address of begin 07d1 0004 | | .CONST 0x0004 ; Address of exception handler 07d2 0001 | | .CONST 0x0001 ; Number of locals 07d3 BODY_07d0: 07d3 INIT_07d0: 07d3 00da | | Load_Top At_Offset_2 07d4 00d8 | | Load_Top At_Offset_0 07d5 0120 | | Execute Any,Is_Value 07d6 7002 |p | Jump_Nonzero 0x7d9 07d7 00d8 | | Load_Top At_Offset_0 07d8 011e | | Execute Any,Convert 07d9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 07da 0000 0000 | | .BLANK 0000[0x6] 07e0 ; -------------------------------------------------------------------------------------- 07e0 ; SUBPROGRAM 07e0 ; -------------------------------------------------------------------------------------- 07e0 07ec | | .CONST 0x07ec ; Address of begin 07e1 0803 | | .CONST 0x0803 ; Address of exception handler 07e2 0003 | | .CONST 0x0003 ; Number of locals 07e3 INIT_07e0: 07e3 e005 | | Load 0x0,0x5 07e4 1b0d | | Execute Package,Field_Read,Field_Number 0xd 07e5 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 07e6 e001 | | Load 0x0,0x1 07e7 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 07e8 1b0d | | Execute Package,Field_Read,Field_Number 0xd 07e9 02c7 | | Declare_Variable Any 07ea 00d8 | | Load_Top At_Offset_0 07eb 1c00 | | Execute_Immediate Run_Utility,0x0 07ec BODY_07e0: 07ec e5fc | | Load 0x2,-0x4 07ed 0092 1eae | | Action Push_String_Extended,0x1eae ; "Unit_Target_Name" 07ef 8265 | e | Call 0x1,0x65 07f0 e005 | | Load 0x0,0x5 07f1 1b0d | | Execute Package,Field_Read,Field_Number 0xd 07f2 00d9 | | Load_Top At_Offset_1 07f3 e5fc | | Load 0x2,-0x4 07f4 602f |`/ | Indirect_Literal Discrete,0x824,{0x00000000, 0x00008113} 07f5 e5fe | | Load 0x2,-0x2 07f6 e5ff | | Load 0x2,-0x1 07f7 8266 | f | Call 0x1,0x66 07f8 c403 | | Store 0x2,0x3 07f9 005a | Z | Store_Top Discrete,At_Offset_2 07fa 00d9 | | Load_Top At_Offset_1 07fb 6803 |h | Jump_Zero 0x7ff 07fc 0092 1ea6 | | Action Push_String_Extended,0x1ea6 ; "<error>" 07fe 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 07ff e5fd | | Load 0x2,-0x3 0800 00d9 | | Load_Top At_Offset_1 0801 8269 | i | Call 0x1,0x69 0802 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 0803 TRAP_07e0: 0803 e005 | | Load 0x0,0x5 0804 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0805 010f | | Execute Exception,Equal 0806 6815 |h | Jump_Zero 0x81c 0807 e5fc | | Load 0x2,-0x4 0808 4801 |H | Short_Literal 0x1 0809 4801 |H | Short_Literal 0x1 080a e004 | | Load 0x0,0x4 080b 1b0f | | Execute Package,Field_Read,Field_Number 0xf 080c 0334 | 4 | Declare_Variable Array,With_Constraint 080d e5fe | | Load 0x2,-0x2 080e e006 | | Load 0x0,0x6 080f 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 0810 e004 | | Load 0x0,0x4 0811 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0812 0119 | | Execute Any,Check_In_Formal_Type 0813 4801 |H | Short_Literal 0x1 0814 00da | | Load_Top At_Offset_2 0815 01d6 | | Execute Vector,Field_Write 0816 600d |` | Indirect_Literal Discrete,0x824,{0x00000000, 0x00008113} 0817 e005 | | Load 0x0,0x5 0818 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0819 0092 1ea6 | | Action Push_String_Extended,0x1ea6 ; "<error>" 081b 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 081c e5fc | | Load 0x2,-0x4 081d 0092 1eaf | | Action Push_String_Extended,0x1eaf ; "Target_Builder.Unit.Unit_Target_Name" 081f e007 | | Load 0x0,0x7 0820 180f | | Execute Package,Field_Execute,Field_Number 0xf 0821 0092 1ea6 | | Action Push_String_Extended,0x1ea6 ; "<error>" 0823 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 0824 0000 0000 | | .LITERAL {0x00000000, 0x00008113} 0828 ; -------------------------------------------------------------------------------------- 0828 ; SUBPROGRAM 0828 ; -------------------------------------------------------------------------------------- 0828 083e | > | .CONST 0x083e ; Address of begin 0829 086a | j | .CONST 0x086a ; Address of exception handler 082a 0005 | | .CONST 0x0005 ; Number of locals 082b INIT_0828: 082b e5fd | | Load 0x2,-0x3 082c e009 | | Load 0x0,0x9 082d 1865 | e | Execute Package,Field_Execute,Field_Number 0x65 082e e009 | | Load 0x0,0x9 082f 1bbf | | Execute Package,Field_Read,Field_Number 0xbf 0830 03f1 | | Declare_Variable Discrete,With_Value 0831 e005 | | Load 0x0,0x5 0832 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0833 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0834 e001 | | Load 0x0,0x1 0835 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 0836 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0837 02c7 | | Declare_Variable Any 0838 e001 | | Load 0x0,0x1 0839 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 083a 180e | | Execute Package,Field_Execute,Field_Number 0xe 083b a404 | | Store_Unchecked 0x2,0x4 083c 029f 1d23 | #| Declare_Subprogram INIT_1d20,For_Call 083e BODY_0828: 083e e005 | | Load 0x0,0x5 083f 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0840 e5fc | | Load 0x2,-0x4 0841 e5ff | | Load 0x2,-0x1 0842 8012 | | Call 0x0,0x12 0843 005b | [ | Store_Top Discrete,At_Offset_3 0844 00da | | Load_Top At_Offset_2 0845 6802 |h | Jump_Zero 0x848 0846 00ea | | Load_Encached Null_String_Cache 0847 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 0848 e5fe | | Load 0x2,-0x2 0849 01db | | Execute Vector,Length 084a 7014 |p | Jump_Nonzero 0x85f 084b e5fc | | Load 0x2,-0x4 084c 4801 |H | Short_Literal 0x1 084d 4801 |H | Short_Literal 0x1 084e e004 | | Load 0x0,0x4 084f 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0850 0334 | 4 | Declare_Variable Array,With_Constraint 0851 e5fe | | Load 0x2,-0x2 0852 e004 | | Load 0x0,0x4 0853 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0854 e004 | | Load 0x0,0x4 0855 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0856 0119 | | Execute Any,Check_In_Formal_Type 0857 4801 |H | Short_Literal 0x1 0858 00da | | Load_Top At_Offset_2 0859 01d6 | | Execute Vector,Field_Write 085a 6031 |`1 | Indirect_Literal Discrete,0x88c,{0x00000000, 0x00008108} 085b e005 | | Load 0x0,0x5 085c 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 085d 00ea | | Load_Encached Null_String_Cache 085e 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 085f 8405 | | Call 0x2,0x5 0860 00d9 | | Load_Top At_Offset_1 0861 e001 | | Load 0x0,0x1 0862 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 0863 180f | | Execute Package,Field_Execute,Field_Number 0xf 0864 6802 |h | Jump_Zero 0x867 0865 00ea | | Load_Encached Null_String_Cache 0866 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 0867 00d9 | | Load_Top At_Offset_1 0868 8013 | | Call 0x0,0x13 0869 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 086a TRAP_0828: 086a e005 | | Load 0x0,0x5 086b 1b17 | | Execute Package,Field_Read,Field_Number 0x17 086c 010f | | Execute Exception,Equal 086d 6814 |h | Jump_Zero 0x882 086e e5fc | | Load 0x2,-0x4 086f 4801 |H | Short_Literal 0x1 0870 4801 |H | Short_Literal 0x1 0871 e004 | | Load 0x0,0x4 0872 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0873 0334 | 4 | Declare_Variable Array,With_Constraint 0874 e5fe | | Load 0x2,-0x2 0875 e004 | | Load 0x0,0x4 0876 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0877 e004 | | Load 0x0,0x4 0878 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0879 0119 | | Execute Any,Check_In_Formal_Type 087a 4801 |H | Short_Literal 0x1 087b 00da | | Load_Top At_Offset_2 087c 01d6 | | Execute Vector,Field_Write 087d 600e |` | Indirect_Literal Discrete,0x88c,{0x00000000, 0x00008108} 087e e005 | | Load 0x0,0x5 087f 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0880 00ea | | Load_Encached Null_String_Cache 0881 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 0882 e5fc | | Load 0x2,-0x4 0883 0092 1eb0 | | Action Push_String_Extended,0x1eb0 ; "Target_Builder.Unit.Unit_Name" 0885 e007 | | Load 0x0,0x7 0886 180f | | Execute Package,Field_Execute,Field_Number 0xf 0887 00ea | | Load_Encached Null_String_Cache 0888 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 0889 0000 0000 | | .XXX[0x3] 088b 0000 | | 088c 0000 0000 | | .LITERAL {0x00000000, 0x00008108} 0890 ; -------------------------------------------------------------------------------------- 0890 ; SUBPROGRAM 0890 ; -------------------------------------------------------------------------------------- 0890 08ab | | .CONST 0x08ab ; Address of begin 0891 098d | | .CONST 0x098d ; Address of exception handler 0892 0006 | | .CONST 0x0006 ; Number of locals 0893 INIT_0890: 0893 e005 | | Load 0x0,0x5 0894 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0895 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0896 e001 | | Load 0x0,0x1 0897 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 0898 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0899 02c7 | | Declare_Variable Any 089a 00d8 | | Load_Top At_Offset_0 089b 1c00 | | Execute_Immediate Run_Utility,0x0 089c 00e1 | | Load_Encached Boolean_Cache 089d 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 089e 4820 |H | Short_Literal 0x20 089f e5fe | | Load 0x2,-0x2 08a0 e00b | | Load 0x0,0xb 08a1 181c | | Execute Package,Field_Execute,Field_Number 0x1c 08a2 4800 |H | Short_Literal 0x0 08a3 00d9 | | Load_Top At_Offset_1 08a4 e5fd | | Load 0x2,-0x3 08a5 e009 | | Load 0x0,0x9 08a6 18d0 | | Execute Package,Field_Execute,Field_Number 0xd0 08a7 e00b | | Load 0x0,0xb 08a8 181f | | Execute Package,Field_Execute,Field_Number 0x1f 08a9 00e3 | | Load_Encached Natural_Cache 08aa 03f1 | | Declare_Variable Discrete,With_Value 08ab BODY_0890: 08ab 00d8 | | Load_Top At_Offset_0 08ac 00da | | Load_Top At_Offset_2 08ad 01dd | | Execute Vector,First 08ae 027c | | | Execute Discrete,Less 08af 6804 |h | Jump_Zero 0x8b4 08b0 00d9 | | Load_Top At_Offset_1 08b1 01dc | | Execute Vector,Last 08b2 0a01 | | Execute_Immediate Plus,0x1 08b3 0059 | Y | Store_Top Discrete,At_Offset_1 08b4 e5fc | | Load 0x2,-0x4 08b5 0092 1eb1 | | Action Push_String_Extended,0x1eb1 ; "Set_Unit_Target_Name" 08b7 8265 | e | Call 0x1,0x65 08b8 e005 | | Load 0x0,0x5 08b9 1b0d | | Execute Package,Field_Read,Field_Number 0xd 08ba e403 | | Load 0x2,0x3 08bb e5fc | | Load 0x2,-0x4 08bc 611f |a | Indirect_Literal Discrete,0x9dc,{0x00000000, 0x00008124} 08bd e5ff | | Load 0x2,-0x1 08be e5fb | | Load 0x2,-0x5 08bf 8266 | f | Call 0x1,0x66 08c0 c403 | | Store 0x2,0x3 08c1 c402 | | Store 0x2,0x2 08c2 e402 | | Load 0x2,0x2 08c3 6803 |h | Jump_Zero 0x8c7 08c4 e402 | | Load 0x2,0x2 08c5 a5fa | | Store_Unchecked 0x2,-0x6 08c6 4505 |E | Exit_Suprogram New_Top_Offset 0x5 08c7 00d9 | | Load_Top At_Offset_1 08c8 01db | | Execute Vector,Length 08c9 6805 |h | Jump_Zero 0x8cf 08ca 00d9 | | Load_Top At_Offset_1 08cb 0092 1eb2 | | Action Push_String_Extended,0x1eb2 ; "*" 08cd 01df | | Execute Vector,Equal 08ce 6806 |h | Jump_Zero 0x8d5 08cf e402 | | Load 0x2,0x2 08d0 e5fd | | Load 0x2,-0x3 08d1 e403 | | Load 0x2,0x3 08d2 8014 | | Call 0x0,0x14 08d3 c402 | | Store 0x2,0x2 08d4 7855 |xU | Jump 0x92a 08d5 00d8 | | Load_Top At_Offset_0 08d6 00da | | Load_Top At_Offset_2 08d7 01dd | | Execute Vector,First 08d8 0272 | r | Execute Discrete,Minus 08d9 e5fd | | Load 0x2,-0x3 08da e009 | | Load 0x0,0x9 08db 1872 | r | Execute Package,Field_Execute,Field_Number 0x72 08dc 027d | } | Execute Discrete,Greater 08dd 6842 |hB | Jump_Zero 0x920 08de e5fc | | Load 0x2,-0x4 08df 4801 |H | Short_Literal 0x1 08e0 4803 |H | Short_Literal 0x3 08e1 e004 | | Load 0x0,0x4 08e2 1b0f | | Execute Package,Field_Read,Field_Number 0xf 08e3 0334 | 4 | Declare_Variable Array,With_Constraint 08e4 e5ff | | Load 0x2,-0x1 08e5 e006 | | Load 0x0,0x6 08e6 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 08e7 e004 | | Load 0x0,0x4 08e8 1b0e | | Execute Package,Field_Read,Field_Number 0xe 08e9 0119 | | Execute Any,Check_In_Formal_Type 08ea 4801 |H | Short_Literal 0x1 08eb 00da | | Load_Top At_Offset_2 08ec 01d6 | | Execute Vector,Field_Write 08ed e5fe | | Load 0x2,-0x2 08ee e004 | | Load 0x0,0x4 08ef 1810 | | Execute Package,Field_Execute,Field_Number 0x10 08f0 e004 | | Load 0x0,0x4 08f1 1b0e | | Execute Package,Field_Read,Field_Number 0xe 08f2 0119 | | Execute Any,Check_In_Formal_Type 08f3 4802 |H | Short_Literal 0x2 08f4 00da | | Load_Top At_Offset_2 08f5 01d6 | | Execute Vector,Field_Write 08f6 e5fd | | Load 0x2,-0x3 08f7 e009 | | Load 0x0,0x9 08f8 1872 | r | Execute Package,Field_Execute,Field_Number 0x72 08f9 e004 | | Load 0x0,0x4 08fa 1812 | | Execute Package,Field_Execute,Field_Number 0x12 08fb e004 | | Load 0x0,0x4 08fc 1b0e | | Execute Package,Field_Read,Field_Number 0xe 08fd 0119 | | Execute Any,Check_In_Formal_Type 08fe 4803 |H | Short_Literal 0x3 08ff 00da | | Load_Top At_Offset_2 0900 01d6 | | Execute Vector,Field_Write 0901 60d6 |` | Indirect_Literal Discrete,0x9d8,{0x00000000, 0x0000813a} 0902 e005 | | Load 0x0,0x5 0903 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0904 4801 |H | Short_Literal 0x1 0905 4802 |H | Short_Literal 0x2 0906 e004 | | Load 0x0,0x4 0907 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0908 0334 | 4 | Declare_Variable Array,With_Constraint 0909 e5ff | | Load 0x2,-0x1 090a e006 | | Load 0x0,0x6 090b 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 090c e004 | | Load 0x0,0x4 090d 1b0e | | Execute Package,Field_Read,Field_Number 0xe 090e 0119 | | Execute Any,Check_In_Formal_Type 090f 4801 |H | Short_Literal 0x1 0910 00da | | Load_Top At_Offset_2 0911 01d6 | | Execute Vector,Field_Write 0912 e5fe | | Load 0x2,-0x2 0913 e004 | | Load 0x0,0x4 0914 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0915 e004 | | Load 0x0,0x4 0916 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0917 0119 | | Execute Any,Check_In_Formal_Type 0918 4802 |H | Short_Literal 0x2 0919 00da | | Load_Top At_Offset_2 091a 01d6 | | Execute Vector,Field_Write 091b 60c0 |` | Indirect_Literal Discrete,0x9dc,{0x00000000, 0x00008124} 091c e005 | | Load 0x0,0x5 091d 1813 | | Execute Package,Field_Execute,Field_Number 0x13 091e a5fa | | Store_Unchecked 0x2,-0x6 091f 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0920 e402 | | Load 0x2,0x2 0921 e5fd | | Load 0x2,-0x3 0922 e009 | | Load 0x0,0x9 0923 1865 | e | Execute Package,Field_Execute,Field_Number 0x65 0924 00db | | Load_Top At_Offset_3 0925 e403 | | Load 0x2,0x3 0926 e001 | | Load 0x0,0x1 0927 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 0928 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 0929 c402 | | Store 0x2,0x2 092a e402 | | Load 0x2,0x2 092b 705e |p^ | Jump_Nonzero 0x98a 092c e5fc | | Load 0x2,-0x4 092d 0092 1eb3 | | Action Push_String_Extended,0x1eb3 ; "Target name for unit \x22" 092f e5ff | | Load 0x2,-0x1 0930 e006 | | Load 0x0,0x6 0931 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0932 01cc | | Execute Vector,Catenate 0933 0092 1eb4 | | Action Push_String_Extended,0x1eb4 ; "\x22 has been set to \x22" 0935 01cc | | Execute Vector,Catenate 0936 e5fd | | Load 0x2,-0x3 0937 e009 | | Load 0x0,0x9 0938 1865 | e | Execute Package,Field_Execute,Field_Number 0x65 0939 e403 | | Load 0x2,0x3 093a e001 | | Load 0x0,0x1 093b 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 093c 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 093d 01cc | | Execute Vector,Catenate 093e 0092 1eb5 | | Action Push_String_Extended,0x1eb5 ; "\x22" 0940 01cc | | Execute Vector,Catenate 0941 e007 | | Load 0x0,0x7 0942 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0943 00d9 | | Load_Top At_Offset_1 0944 0092 1eb2 | | Action Push_String_Extended,0x1eb2 ; "*" 0946 01df | | Execute Vector,Equal 0947 680e |h | Jump_Zero 0x956 0948 4800 |H | Short_Literal 0x0 0949 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 094a e5fc | | Load 0x2,-0x4 094b 0092 1eb6 | | Action Push_String_Extended,0x1eb6 ; "Unit \x22" 094d e5ff | | Load 0x2,-0x1 094e e006 | | Load 0x0,0x6 094f 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0950 01cc | | Execute Vector,Catenate 0951 0092 1eb7 | | Action Push_String_Extended,0x1eb7 ; "\x22 will be made non-downloadable" 0953 01cc | | Execute Vector,Catenate 0954 e007 | | Load 0x0,0x7 0955 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0956 e5fd | | Load 0x2,-0x3 0957 e009 | | Load 0x0,0x9 0958 1865 | e | Execute Package,Field_Execute,Field_Number 0x65 0959 e403 | | Load 0x2,0x3 095a e001 | | Load 0x0,0x1 095b 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 095c 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 095d 00db | | Load_Top At_Offset_3 095e 027e | ~ | Execute Discrete,Not_Equal 095f 682a |h* | Jump_Zero 0x98a 0960 e402 | | Load 0x2,0x2 0961 e5fd | | Load 0x2,-0x3 0962 e009 | | Load 0x0,0x9 0963 1865 | e | Execute Package,Field_Execute,Field_Number 0x65 0964 e404 | | Load 0x2,0x4 0965 e403 | | Load 0x2,0x3 0966 e001 | | Load 0x0,0x1 0967 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 0968 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30 0969 c402 | | Store 0x2,0x2 096a e402 | | Load 0x2,0x2 096b 701e |p | Jump_Nonzero 0x98a 096c e5fc | | Load 0x2,-0x4 096d 4801 |H | Short_Literal 0x1 096e 4802 |H | Short_Literal 0x2 096f e004 | | Load 0x0,0x4 0970 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0971 0334 | 4 | Declare_Variable Array,With_Constraint 0972 e5ff | | Load 0x2,-0x1 0973 e006 | | Load 0x0,0x6 0974 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 0975 e004 | | Load 0x0,0x4 0976 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0977 0119 | | Execute Any,Check_In_Formal_Type 0978 4801 |H | Short_Literal 0x1 0979 00da | | Load_Top At_Offset_2 097a 01d6 | | Execute Vector,Field_Write 097b e404 | | Load 0x2,0x4 097c 00e1 | | Load_Encached Boolean_Cache 097d 011c | | Execute Any,Convert_Unchecked 097e 1c01 | | Execute_Immediate Run_Utility,0x1 097f e004 | | Load 0x0,0x4 0980 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0981 e004 | | Load 0x0,0x4 0982 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0983 0119 | | Execute Any,Check_In_Formal_Type 0984 4802 |H | Short_Literal 0x2 0985 00da | | Load_Top At_Offset_2 0986 01d6 | | Execute Vector,Field_Write 0987 604c |`L | Indirect_Literal Discrete,0x9d4,{0x00000000, 0x00008192} 0988 e005 | | Load 0x0,0x5 0989 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 098a e402 | | Load 0x2,0x2 098b a5fa | | Store_Unchecked 0x2,-0x6 098c 4505 |E | Exit_Suprogram New_Top_Offset 0x5 098d TRAP_0890: 098d e005 | | Load 0x0,0x5 098e 1b17 | | Execute Package,Field_Read,Field_Number 0x17 098f 010f | | Execute Exception,Equal 0990 681f |h | Jump_Zero 0x9b0 0991 e005 | | Load 0x0,0x5 0992 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0993 a5fa | | Store_Unchecked 0x2,-0x6 0994 e5fc | | Load 0x2,-0x4 0995 4801 |H | Short_Literal 0x1 0996 4802 |H | Short_Literal 0x2 0997 e004 | | Load 0x0,0x4 0998 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0999 0334 | 4 | Declare_Variable Array,With_Constraint 099a e5ff | | Load 0x2,-0x1 099b e006 | | Load 0x0,0x6 099c 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 099d e004 | | Load 0x0,0x4 099e 1b0e | | Execute Package,Field_Read,Field_Number 0xe 099f 0119 | | Execute Any,Check_In_Formal_Type 09a0 4801 |H | Short_Literal 0x1 09a1 00da | | Load_Top At_Offset_2 09a2 01d6 | | Execute Vector,Field_Write 09a3 e5fe | | Load 0x2,-0x2 09a4 e004 | | Load 0x0,0x4 09a5 1810 | | Execute Package,Field_Execute,Field_Number 0x10 09a6 e004 | | Load 0x0,0x4 09a7 1b0e | | Execute Package,Field_Read,Field_Number 0xe 09a8 0119 | | Execute Any,Check_In_Formal_Type 09a9 4802 |H | Short_Literal 0x2 09aa 00da | | Load_Top At_Offset_2 09ab 01d6 | | Execute Vector,Field_Write 09ac 602f |`/ | Indirect_Literal Discrete,0x9dc,{0x00000000, 0x00008124} 09ad e005 | | Load 0x0,0x5 09ae 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 09af 4505 |E | Exit_Suprogram New_Top_Offset 0x5 09b0 e5fc | | Load 0x2,-0x4 09b1 0092 1eb8 | | Action Push_String_Extended,0x1eb8 ; "Target_Builder.Unit.Set_Unit_Target_Name" 09b3 e007 | | Load 0x0,0x7 09b4 180f | | Execute Package,Field_Execute,Field_Number 0xf 09b5 4801 |H | Short_Literal 0x1 09b6 4802 |H | Short_Literal 0x2 09b7 e004 | | Load 0x0,0x4 09b8 1b0f | | Execute Package,Field_Read,Field_Number 0xf 09b9 0334 | 4 | Declare_Variable Array,With_Constraint 09ba e5ff | | Load 0x2,-0x1 09bb e006 | | Load 0x0,0x6 09bc 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 09bd e004 | | Load 0x0,0x4 09be 1b0e | | Execute Package,Field_Read,Field_Number 0xe 09bf 0119 | | Execute Any,Check_In_Formal_Type 09c0 4801 |H | Short_Literal 0x1 09c1 00da | | Load_Top At_Offset_2 09c2 01d6 | | Execute Vector,Field_Write 09c3 e5fe | | Load 0x2,-0x2 09c4 e004 | | Load 0x0,0x4 09c5 1810 | | Execute Package,Field_Execute,Field_Number 0x10 09c6 e004 | | Load 0x0,0x4 09c7 1b0e | | Execute Package,Field_Read,Field_Number 0xe 09c8 0119 | | Execute Any,Check_In_Formal_Type 09c9 4802 |H | Short_Literal 0x2 09ca 00da | | Load_Top At_Offset_2 09cb 01d6 | | Execute Vector,Field_Write 09cc 600f |` | Indirect_Literal Discrete,0x9dc,{0x00000000, 0x00008124} 09cd e005 | | Load 0x0,0x5 09ce 1813 | | Execute Package,Field_Execute,Field_Number 0x13 09cf a5fa | | Store_Unchecked 0x2,-0x6 09d0 4505 |E | Exit_Suprogram New_Top_Offset 0x5 09d1 0000 0000 | | .XXX[0x3] 09d3 0000 | | 09d4 0000 0000 | | .LITERAL {0x00000000, 0x00008192} 09d8 0000 0000 | | .LITERAL {0x00000000, 0x0000813a} 09dc 0000 0000 | | .LITERAL {0x00000000, 0x00008124} 09e0 ; -------------------------------------------------------------------------------------- 09e0 ; SUBPROGRAM 09e0 ; -------------------------------------------------------------------------------------- 09e0 09ec | | .CONST 0x09ec ; Address of begin 09e1 0a06 | | .CONST 0x0a06 ; Address of exception handler 09e2 0003 | | .CONST 0x0003 ; Number of locals 09e3 INIT_09e0: 09e3 e005 | | Load 0x0,0x5 09e4 1b0d | | Execute Package,Field_Read,Field_Number 0xd 09e5 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 09e6 e001 | | Load 0x0,0x1 09e7 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 09e8 1b0d | | Execute Package,Field_Read,Field_Number 0xd 09e9 02c7 | | Declare_Variable Any 09ea 00d8 | | Load_Top At_Offset_0 09eb 1c00 | | Execute_Immediate Run_Utility,0x0 09ec BODY_09e0: 09ec e5fc | | Load 0x2,-0x4 09ed 0092 1eb9 | | Action Push_String_Extended,0x1eb9 ; "Has_Unit_Target_Name" 09ef 8265 | e | Call 0x1,0x65 09f0 e005 | | Load 0x0,0x5 09f1 1b0d | | Execute Package,Field_Read,Field_Number 0xd 09f2 00d9 | | Load_Top At_Offset_1 09f3 e5fc | | Load 0x2,-0x4 09f4 6033 |`3 | Indirect_Literal Discrete,0xa28,{0x00000000, 0x00008113} 09f5 e5fe | | Load 0x2,-0x2 09f6 e5ff | | Load 0x2,-0x1 09f7 8266 | f | Call 0x1,0x66 09f8 c403 | | Store 0x2,0x3 09f9 005a | Z | Store_Top Discrete,At_Offset_2 09fa 00d9 | | Load_Top At_Offset_1 09fb 6802 |h | Jump_Zero 0x9fe 09fc 4800 |H | Short_Literal 0x0 09fd 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 09fe e5fd | | Load 0x2,-0x3 09ff e009 | | Load 0x0,0x9 0a00 1865 | e | Execute Package,Field_Execute,Field_Number 0x65 0a01 00d9 | | Load_Top At_Offset_1 0a02 e001 | | Load 0x0,0x1 0a03 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 0a04 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0a05 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 0a06 TRAP_09e0: 0a06 e005 | | Load 0x0,0x5 0a07 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0a08 010f | | Execute Exception,Equal 0a09 6814 |h | Jump_Zero 0xa1e 0a0a e5fc | | Load 0x2,-0x4 0a0b 4801 |H | Short_Literal 0x1 0a0c 4801 |H | Short_Literal 0x1 0a0d e004 | | Load 0x0,0x4 0a0e 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0a0f 0334 | 4 | Declare_Variable Array,With_Constraint 0a10 e5fe | | Load 0x2,-0x2 0a11 e006 | | Load 0x0,0x6 0a12 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 0a13 e004 | | Load 0x0,0x4 0a14 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0a15 0119 | | Execute Any,Check_In_Formal_Type 0a16 4801 |H | Short_Literal 0x1 0a17 00da | | Load_Top At_Offset_2 0a18 01d6 | | Execute Vector,Field_Write 0a19 600e |` | Indirect_Literal Discrete,0xa28,{0x00000000, 0x00008113} 0a1a e005 | | Load 0x0,0x5 0a1b 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0a1c 4800 |H | Short_Literal 0x0 0a1d 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 0a1e e5fc | | Load 0x2,-0x4 0a1f 0092 1eba | | Action Push_String_Extended,0x1eba ; "Target_Builder.Unit.Has_Unit_Target_Name" 0a21 e007 | | Load 0x0,0x7 0a22 180f | | Execute Package,Field_Execute,Field_Number 0xf 0a23 4800 |H | Short_Literal 0x0 0a24 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 0a25 0000 0000 | | .XXX[0x3] 0a27 0000 | | 0a28 0000 0000 | | .LITERAL {0x00000000, 0x00008113} 0a2c 0000 0000 | | .BLANK 0000[0x4] 0a30 ; -------------------------------------------------------------------------------------- 0a30 ; SUBPROGRAM 0a30 ; -------------------------------------------------------------------------------------- 0a30 0a3c | < | .CONST 0x0a3c ; Address of begin 0a31 0a56 | V | .CONST 0x0a56 ; Address of exception handler 0a32 0003 | | .CONST 0x0003 ; Number of locals 0a33 INIT_0a30: 0a33 e005 | | Load 0x0,0x5 0a34 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0a35 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0a36 e001 | | Load 0x0,0x1 0a37 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 0a38 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0a39 02c7 | | Declare_Variable Any 0a3a 00d8 | | Load_Top At_Offset_0 0a3b 1c00 | | Execute_Immediate Run_Utility,0x0 0a3c BODY_0a30: 0a3c e5fc | | Load 0x2,-0x4 0a3d 0092 1ebb | | Action Push_String_Extended,0x1ebb ; "Download_Time" 0a3f 8265 | e | Call 0x1,0x65 0a40 e005 | | Load 0x0,0x5 0a41 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0a42 00d9 | | Load_Top At_Offset_1 0a43 e5fc | | Load 0x2,-0x4 0a44 6033 |`3 | Indirect_Literal Discrete,0xa78,{0x00000000, 0x00008154} 0a45 e5fe | | Load 0x2,-0x2 0a46 e5ff | | Load 0x2,-0x1 0a47 8266 | f | Call 0x1,0x66 0a48 c403 | | Store 0x2,0x3 0a49 005a | Z | Store_Top Discrete,At_Offset_2 0a4a 00d9 | | Load_Top At_Offset_1 0a4b 6802 |h | Jump_Zero 0xa4e 0a4c 8234 | 4 | Call 0x1,0x34 0a4d 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 0a4e e5fd | | Load 0x2,-0x3 0a4f e009 | | Load 0x0,0x9 0a50 1865 | e | Execute Package,Field_Execute,Field_Number 0x65 0a51 00d9 | | Load_Top At_Offset_1 0a52 e001 | | Load 0x0,0x1 0a53 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 0a54 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0a55 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 0a56 TRAP_0a30: 0a56 e005 | | Load 0x0,0x5 0a57 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0a58 010f | | Execute Exception,Equal 0a59 6814 |h | Jump_Zero 0xa6e 0a5a e5fc | | Load 0x2,-0x4 0a5b 4801 |H | Short_Literal 0x1 0a5c 4801 |H | Short_Literal 0x1 0a5d e004 | | Load 0x0,0x4 0a5e 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0a5f 0334 | 4 | Declare_Variable Array,With_Constraint 0a60 e5fe | | Load 0x2,-0x2 0a61 e006 | | Load 0x0,0x6 0a62 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 0a63 e004 | | Load 0x0,0x4 0a64 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0a65 0119 | | Execute Any,Check_In_Formal_Type 0a66 4801 |H | Short_Literal 0x1 0a67 00da | | Load_Top At_Offset_2 0a68 01d6 | | Execute Vector,Field_Write 0a69 600e |` | Indirect_Literal Discrete,0xa78,{0x00000000, 0x00008154} 0a6a e005 | | Load 0x0,0x5 0a6b 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0a6c 8234 | 4 | Call 0x1,0x34 0a6d 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 0a6e e5fc | | Load 0x2,-0x4 0a6f 0092 1ebc | | Action Push_String_Extended,0x1ebc ; "Target_Builder.Unit.Download_Time" 0a71 e007 | | Load 0x0,0x7 0a72 180f | | Execute Package,Field_Execute,Field_Number 0xf 0a73 8234 | 4 | Call 0x1,0x34 0a74 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 0a75 0000 0000 | | .XXX[0x3] 0a77 0000 | | 0a78 0000 0000 | | .LITERAL {0x00000000, 0x00008154} 0a7c 0000 0000 | | .BLANK 0000[0x4] 0a80 ; -------------------------------------------------------------------------------------- 0a80 ; SUBPROGRAM 0a80 ; -------------------------------------------------------------------------------------- 0a80 0a8c | | .CONST 0x0a8c ; Address of begin 0a81 0ac2 | | .CONST 0x0ac2 ; Address of exception handler 0a82 0003 | | .CONST 0x0003 ; Number of locals 0a83 INIT_0a80: 0a83 e005 | | Load 0x0,0x5 0a84 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0a85 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0a86 e001 | | Load 0x0,0x1 0a87 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 0a88 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0a89 02c7 | | Declare_Variable Any 0a8a 00d8 | | Load_Top At_Offset_0 0a8b 1c00 | | Execute_Immediate Run_Utility,0x0 0a8c BODY_0a80: 0a8c e5fc | | Load 0x2,-0x4 0a8d 0092 1ebd | | Action Push_String_Extended,0x1ebd ; "Set_Download_Time" 0a8f 8265 | e | Call 0x1,0x65 0a90 e005 | | Load 0x0,0x5 0a91 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0a92 00d9 | | Load_Top At_Offset_1 0a93 e5fc | | Load 0x2,-0x4 0a94 608b |` | Indirect_Literal Discrete,0xb20,{0x00000000, 0x00008120} 0a95 e5ff | | Load 0x2,-0x1 0a96 e5fb | | Load 0x2,-0x5 0a97 8266 | f | Call 0x1,0x66 0a98 c403 | | Store 0x2,0x3 0a99 005a | Z | Store_Top Discrete,At_Offset_2 0a9a 00d9 | | Load_Top At_Offset_1 0a9b 6803 |h | Jump_Zero 0xa9f 0a9c 00d9 | | Load_Top At_Offset_1 0a9d a5fa | | Store_Unchecked 0x2,-0x6 0a9e 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0a9f e5fc | | Load 0x2,-0x4 0aa0 0092 1ebe | | Action Push_String_Extended,0x1ebe ; "Setting download time for => " 0aa2 e5ff | | Load 0x2,-0x1 0aa3 e006 | | Load 0x0,0x6 0aa4 1841 | A | Execute Package,Field_Execute,Field_Number 0x41 0aa5 01cc | | Execute Vector,Catenate 0aa6 0092 1ebf | | Action Push_String_Extended,0x1ebf ; " to " 0aa8 01cc | | Execute Vector,Catenate 0aa9 4800 |H | Short_Literal 0x0 0aaa 4800 |H | Short_Literal 0x0 0aab 4800 |H | Short_Literal 0x0 0aac e5fe | | Load 0x2,-0x2 0aad e015 | | Load 0x0,0x15 0aae 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0aaf e015 | | Load 0x0,0x15 0ab0 181f | | Execute Package,Field_Execute,Field_Number 0x1f 0ab1 01cc | | Execute Vector,Catenate 0ab2 e007 | | Load 0x0,0x7 0ab3 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0ab4 00d9 | | Load_Top At_Offset_1 0ab5 e5fd | | Load 0x2,-0x3 0ab6 e009 | | Load 0x0,0x9 0ab7 1865 | e | Execute Package,Field_Execute,Field_Number 0x65 0ab8 4801 |H | Short_Literal 0x1 0ab9 e5fe | | Load 0x2,-0x2 0aba e403 | | Load 0x2,0x3 0abb e001 | | Load 0x0,0x1 0abc 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 0abd 1856 | V | Execute Package,Field_Execute,Field_Number 0x56 0abe 005a | Z | Store_Top Discrete,At_Offset_2 0abf 00d9 | | Load_Top At_Offset_1 0ac0 a5fa | | Store_Unchecked 0x2,-0x6 0ac1 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0ac2 TRAP_0a80: 0ac2 e005 | | Load 0x0,0x5 0ac3 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0ac4 010f | | Execute Exception,Equal 0ac5 682b |h+ | Jump_Zero 0xaf1 0ac6 e005 | | Load 0x0,0x5 0ac7 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0ac8 a5fa | | Store_Unchecked 0x2,-0x6 0ac9 e5fc | | Load 0x2,-0x4 0aca 4801 |H | Short_Literal 0x1 0acb 4803 |H | Short_Literal 0x3 0acc e004 | | Load 0x0,0x4 0acd 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0ace 0334 | 4 | Declare_Variable Array,With_Constraint 0acf e5ff | | Load 0x2,-0x1 0ad0 e006 | | Load 0x0,0x6 0ad1 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 0ad2 e004 | | Load 0x0,0x4 0ad3 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0ad4 0119 | | Execute Any,Check_In_Formal_Type 0ad5 4801 |H | Short_Literal 0x1 0ad6 00da | | Load_Top At_Offset_2 0ad7 01d6 | | Execute Vector,Field_Write 0ad8 e5fb | | Load 0x2,-0x5 0ad9 0227 | ' | Execute Access,All_Reference 0ada 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0adb e001 | | Load 0x0,0x1 0adc 1b24 | $ | Execute Package,Field_Read,Field_Number 0x24 0add 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0ade e004 | | Load 0x0,0x4 0adf 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0ae0 0119 | | Execute Any,Check_In_Formal_Type 0ae1 4802 |H | Short_Literal 0x2 0ae2 00da | | Load_Top At_Offset_2 0ae3 01d6 | | Execute Vector,Field_Write 0ae4 e5fe | | Load 0x2,-0x2 0ae5 e004 | | Load 0x0,0x4 0ae6 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0ae7 e004 | | Load 0x0,0x4 0ae8 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0ae9 0119 | | Execute Any,Check_In_Formal_Type 0aea 4803 |H | Short_Literal 0x3 0aeb 00da | | Load_Top At_Offset_2 0aec 01d6 | | Execute Vector,Field_Write 0aed 6032 |`2 | Indirect_Literal Discrete,0xb20,{0x00000000, 0x00008120} 0aee e005 | | Load 0x0,0x5 0aef 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0af0 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0af1 e5fc | | Load 0x2,-0x4 0af2 0092 1ec0 | | Action Push_String_Extended,0x1ec0 ; "Target_Builder.Unit.Set_Download_Time" 0af4 e007 | | Load 0x0,0x7 0af5 180f | | Execute Package,Field_Execute,Field_Number 0xf 0af6 4801 |H | Short_Literal 0x1 0af7 4803 |H | Short_Literal 0x3 0af8 e004 | | Load 0x0,0x4 0af9 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0afa 0334 | 4 | Declare_Variable Array,With_Constraint 0afb e5ff | | Load 0x2,-0x1 0afc e006 | | Load 0x0,0x6 0afd 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 0afe e004 | | Load 0x0,0x4 0aff 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0b00 0119 | | Execute Any,Check_In_Formal_Type 0b01 4801 |H | Short_Literal 0x1 0b02 00da | | Load_Top At_Offset_2 0b03 01d6 | | Execute Vector,Field_Write 0b04 e5fb | | Load 0x2,-0x5 0b05 0227 | ' | Execute Access,All_Reference 0b06 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0b07 e001 | | Load 0x0,0x1 0b08 1b24 | $ | Execute Package,Field_Read,Field_Number 0x24 0b09 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0b0a e004 | | Load 0x0,0x4 0b0b 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0b0c 0119 | | Execute Any,Check_In_Formal_Type 0b0d 4802 |H | Short_Literal 0x2 0b0e 00da | | Load_Top At_Offset_2 0b0f 01d6 | | Execute Vector,Field_Write 0b10 e5fe | | Load 0x2,-0x2 0b11 e004 | | Load 0x0,0x4 0b12 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0b13 e004 | | Load 0x0,0x4 0b14 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0b15 0119 | | Execute Any,Check_In_Formal_Type 0b16 4803 |H | Short_Literal 0x3 0b17 00da | | Load_Top At_Offset_2 0b18 01d6 | | Execute Vector,Field_Write 0b19 6006 |` | Indirect_Literal Discrete,0xb20,{0x00000000, 0x00008120} 0b1a e005 | | Load 0x0,0x5 0b1b 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0b1c a5fa | | Store_Unchecked 0x2,-0x6 0b1d 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0b1e 0000 0000 | | .XXX[0x2] 0b20 0000 0000 | | .LITERAL {0x00000000, 0x00008120} 0b24 0000 0000 | | .BLANK 0000[0x4] 0b28 ; -------------------------------------------------------------------------------------- 0b28 ; SUBPROGRAM 0b28 ; -------------------------------------------------------------------------------------- 0b28 0b2b | + | .CONST 0x0b2b ; Address of begin 0b29 0004 | | .CONST 0x0004 ; Address of exception handler 0b2a 0001 | | .CONST 0x0001 ; Number of locals 0b2b BODY_0b28: 0b2b INIT_0b28: 0b2b 4800 |H | Short_Literal 0x0 0b2c 4801 |H | Short_Literal 0x1 0b2d 4801 |H | Short_Literal 0x1 0b2e 6005 |` | Indirect_Literal Discrete,0xb34,{0x00000000, 0x0000076d} 0b2f e00c | | Load 0x0,0xc 0b30 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0b31 00ca | | Action Exit_Nullary_Function 0b32 0000 0000 | | .XXX[0x2] 0b34 0000 0000 | | .LITERAL {0x00000000, 0x0000076d} 0b38 ; -------------------------------------------------------------------------------------- 0b38 ; SUBPROGRAM 0b38 ; -------------------------------------------------------------------------------------- 0b38 0b4e | N | .CONST 0x0b4e ; Address of begin 0b39 0bd2 | | .CONST 0x0bd2 ; Address of exception handler 0b3a 0005 | | .CONST 0x0005 ; Number of locals 0b3b INIT_0b38: 0b3b e005 | | Load 0x0,0x5 0b3c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0b3d 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0b3e e003 | | Load 0x0,0x3 0b3f 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0b40 03bc | | Declare_Variable Access,By_Allocation 0b41 00d8 | | Load_Top At_Offset_0 0b42 0227 | ' | Execute Access,All_Reference 0b43 1c00 | | Execute_Immediate Run_Utility,0x0 0b44 e5ff | | Load 0x2,-0x1 0b45 e002 | | Load 0x0,0x2 0b46 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0b47 183e | > | Execute Package,Field_Execute,Field_Number 0x3e 0b48 e001 | | Load 0x0,0x1 0b49 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 0b4a 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0b4b 02c7 | | Declare_Variable Any 0b4c 00d8 | | Load_Top At_Offset_0 0b4d 1c00 | | Execute_Immediate Run_Utility,0x0 0b4e BODY_0b38: 0b4e e5fb | | Load 0x2,-0x5 0b4f 0092 1ec1 | | Action Push_String_Extended,0x1ec1 ; "Target_Builder.Unit.Refresh_Suppliers" 0b51 e007 | | Load 0x0,0x7 0b52 180e | | Execute Package,Field_Execute,Field_Number 0xe 0b53 4800 |H | Short_Literal 0x0 0b54 a5fa | | Store_Unchecked 0x2,-0x6 0b55 e5fd | | Load 0x2,-0x3 0b56 0227 | ' | Execute Access,All_Reference 0b57 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0b58 00db | | Load_Top At_Offset_3 0b59 0227 | ' | Execute Access,All_Reference 0b5a 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0b5b 4801 |H | Short_Literal 0x1 0b5c e5fd | | Load 0x2,-0x3 0b5d 0227 | ' | Execute Access,All_Reference 0b5e 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0b5f e001 | | Load 0x0,0x1 0b60 1b24 | $ | Execute Package,Field_Read,Field_Number 0x24 0b61 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32 0b62 00db | | Load_Top At_Offset_3 0b63 0227 | ' | Execute Access,All_Reference 0b64 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0b65 4801 |H | Short_Literal 0x1 0b66 4802 |H | Short_Literal 0x2 0b67 00db | | Load_Top At_Offset_3 0b68 e403 | | Load 0x2,0x3 0b69 0227 | ' | Execute Access,All_Reference 0b6a 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0b6b e403 | | Load 0x2,0x3 0b6c 0227 | ' | Execute Access,All_Reference 0b6d 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0b6e e001 | | Load 0x0,0x1 0b6f 1b24 | $ | Execute Package,Field_Read,Field_Number 0x24 0b70 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 0b71 00da | | Load_Top At_Offset_2 0b72 0227 | ' | Execute Access,All_Reference 0b73 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0b74 00da | | Load_Top At_Offset_2 0b75 e001 | | Load 0x0,0x1 0b76 1b24 | $ | Execute Package,Field_Read,Field_Number 0x24 0b77 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 0b78 c405 | | Store 0x2,0x5 0b79 00d8 | | Load_Top At_Offset_0 0b7a e001 | | Load 0x0,0x1 0b7b 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 0b7c 180f | | Execute Package,Field_Execute,Field_Number 0xf 0b7d 7030 |p0 | Jump_Nonzero 0xbae 0b7e e5fc | | Load 0x2,-0x4 0b7f e009 | | Load 0x0,0x9 0b80 1865 | e | Execute Package,Field_Execute,Field_Number 0x65 0b81 00d9 | | Load_Top At_Offset_1 0b82 e001 | | Load 0x0,0x1 0b83 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 0b84 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0b85 7028 |p( | Jump_Nonzero 0xbae 0b86 00db | | Load_Top At_Offset_3 0b87 e5fc | | Load 0x2,-0x4 0b88 00da | | Load_Top At_Offset_2 0b89 8014 | | Call 0x0,0x14 0b8a c402 | | Store 0x2,0x2 0b8b 00db | | Load_Top At_Offset_3 0b8c 6842 |hB | Jump_Zero 0xbcf 0b8d e011 | | Load 0x0,0x11 0b8e 180e | | Execute Package,Field_Execute,Field_Number 0xe 0b8f 4801 |H | Short_Literal 0x1 0b90 4802 |H | Short_Literal 0x2 0b91 e004 | | Load 0x0,0x4 0b92 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0b93 0334 | 4 | Declare_Variable Array,With_Constraint 0b94 00da | | Load_Top At_Offset_2 0b95 8016 | | Call 0x0,0x16 0b96 e004 | | Load 0x0,0x4 0b97 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0b98 0119 | | Execute Any,Check_In_Formal_Type 0b99 4801 |H | Short_Literal 0x1 0b9a 00da | | Load_Top At_Offset_2 0b9b 01d6 | | Execute Vector,Field_Write 0b9c e403 | | Load 0x2,0x3 0b9d 0227 | ' | Execute Access,All_Reference 0b9e 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0b9f e001 | | Load 0x0,0x1 0ba0 1b24 | $ | Execute Package,Field_Read,Field_Number 0x24 0ba1 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0ba2 e004 | | Load 0x0,0x4 0ba3 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0ba4 0119 | | Execute Any,Check_In_Formal_Type 0ba5 4802 |H | Short_Literal 0x2 0ba6 00da | | Load_Top At_Offset_2 0ba7 01d6 | | Execute Vector,Field_Write 0ba8 6053 |`S | Indirect_Literal Discrete,0xbfc,{0x00000000, 0x0000811f} 0ba9 e005 | | Load 0x0,0x5 0baa 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0bab 00db | | Load_Top At_Offset_3 0bac a5fa | | Store_Unchecked 0x2,-0x6 0bad 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0bae 00d8 | | Load_Top At_Offset_0 0baf e001 | | Load 0x0,0x1 0bb0 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 0bb1 180f | | Execute Package,Field_Execute,Field_Number 0xf 0bb2 681c |h | Jump_Zero 0xbcf 0bb3 e011 | | Load 0x0,0x11 0bb4 180e | | Execute Package,Field_Execute,Field_Number 0xe 0bb5 4801 |H | Short_Literal 0x1 0bb6 4802 |H | Short_Literal 0x2 0bb7 e004 | | Load 0x0,0x4 0bb8 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0bb9 0334 | 4 | Declare_Variable Array,With_Constraint 0bba e5ff | | Load 0x2,-0x1 0bbb e004 | | Load 0x0,0x4 0bbc 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0bbd e004 | | Load 0x0,0x4 0bbe 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0bbf 0119 | | Execute Any,Check_In_Formal_Type 0bc0 4801 |H | Short_Literal 0x1 0bc1 00da | | Load_Top At_Offset_2 0bc2 01d6 | | Execute Vector,Field_Write 0bc3 e5fe | | Load 0x2,-0x2 0bc4 e004 | | Load 0x0,0x4 0bc5 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0bc6 e004 | | Load 0x0,0x4 0bc7 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0bc8 0119 | | Execute Any,Check_In_Formal_Type 0bc9 4802 |H | Short_Literal 0x2 0bca 00da | | Load_Top At_Offset_2 0bcb 01d6 | | Execute Vector,Field_Write 0bcc 602b |`+ | Indirect_Literal Discrete,0xbf8,{0x00000000, 0x0000811e} 0bcd e005 | | Load 0x0,0x5 0bce 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0bcf 00db | | Load_Top At_Offset_3 0bd0 a5fa | | Store_Unchecked 0x2,-0x6 0bd1 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0bd2 TRAP_0b38: 0bd2 4884 |H | Short_Literal 0x84 0bd3 010f | | Execute Exception,Equal 0bd4 681b |h | Jump_Zero 0xbf0 0bd5 4801 |H | Short_Literal 0x1 0bd6 4802 |H | Short_Literal 0x2 0bd7 e004 | | Load 0x0,0x4 0bd8 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0bd9 0334 | 4 | Declare_Variable Array,With_Constraint 0bda e5ff | | Load 0x2,-0x1 0bdb e004 | | Load 0x0,0x4 0bdc 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0bdd e004 | | Load 0x0,0x4 0bde 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0bdf 0119 | | Execute Any,Check_In_Formal_Type 0be0 4801 |H | Short_Literal 0x1 0be1 00da | | Load_Top At_Offset_2 0be2 01d6 | | Execute Vector,Field_Write 0be3 e5fe | | Load 0x2,-0x2 0be4 e004 | | Load 0x0,0x4 0be5 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0be6 e004 | | Load 0x0,0x4 0be7 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0be8 0119 | | Execute Any,Check_In_Formal_Type 0be9 4802 |H | Short_Literal 0x2 0bea 00da | | Load_Top At_Offset_2 0beb 01d6 | | Execute Vector,Field_Write 0bec 600b |` | Indirect_Literal Discrete,0xbf8,{0x00000000, 0x0000811e} 0bed e005 | | Load 0x0,0x5 0bee 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 0bef 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0bf0 0092 1ec2 | | Action Push_String_Extended,0x1ec2 ; "Refresh_Suppliers" 0bf2 e007 | | Load 0x0,0x7 0bf3 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0bf4 a5fa | | Store_Unchecked 0x2,-0x6 0bf5 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0bf6 0000 0000 | | .XXX[0x2] 0bf8 0000 0000 | | .LITERAL {0x00000000, 0x0000811e} 0bfc 0000 0000 | | .LITERAL {0x00000000, 0x0000811f} 0c00 ; -------------------------------------------------------------------------------------- 0c00 ; SUBPROGRAM 0c00 ; -------------------------------------------------------------------------------------- 0c00 0c16 | | .CONST 0x0c16 ; Address of begin 0c01 0c9b | | .CONST 0x0c9b ; Address of exception handler 0c02 0005 | | .CONST 0x0005 ; Number of locals 0c03 INIT_0c00: 0c03 e005 | | Load 0x0,0x5 0c04 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0c05 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0c06 e003 | | Load 0x0,0x3 0c07 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0c08 03bc | | Declare_Variable Access,By_Allocation 0c09 00d8 | | Load_Top At_Offset_0 0c0a 0227 | ' | Execute Access,All_Reference 0c0b 1c00 | | Execute_Immediate Run_Utility,0x0 0c0c e5ff | | Load 0x2,-0x1 0c0d e002 | | Load 0x0,0x2 0c0e 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0c0f 183e | > | Execute Package,Field_Execute,Field_Number 0x3e 0c10 e001 | | Load 0x0,0x1 0c11 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 0c12 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0c13 02c7 | | Declare_Variable Any 0c14 00d8 | | Load_Top At_Offset_0 0c15 1c00 | | Execute_Immediate Run_Utility,0x0 0c16 BODY_0c00: 0c16 e5fb | | Load 0x2,-0x5 0c17 0092 1ec3 | | Action Push_String_Extended,0x1ec3 ; "Target_Builder.Unit.Register" 0c19 e007 | | Load 0x0,0x7 0c1a 180e | | Execute Package,Field_Execute,Field_Number 0xe 0c1b 4800 |H | Short_Literal 0x0 0c1c a5fa | | Store_Unchecked 0x2,-0x6 0c1d e5fd | | Load 0x2,-0x3 0c1e 0227 | ' | Execute Access,All_Reference 0c1f 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0c20 00db | | Load_Top At_Offset_3 0c21 0227 | ' | Execute Access,All_Reference 0c22 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0c23 4801 |H | Short_Literal 0x1 0c24 e5fd | | Load 0x2,-0x3 0c25 0227 | ' | Execute Access,All_Reference 0c26 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0c27 e001 | | Load 0x0,0x1 0c28 1b24 | $ | Execute Package,Field_Read,Field_Number 0x24 0c29 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32 0c2a 00db | | Load_Top At_Offset_3 0c2b 0227 | ' | Execute Access,All_Reference 0c2c 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0c2d 4801 |H | Short_Literal 0x1 0c2e 4800 |H | Short_Literal 0x0 0c2f 00db | | Load_Top At_Offset_3 0c30 e403 | | Load 0x2,0x3 0c31 0227 | ' | Execute Access,All_Reference 0c32 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0c33 e403 | | Load 0x2,0x3 0c34 0227 | ' | Execute Access,All_Reference 0c35 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0c36 e001 | | Load 0x0,0x1 0c37 1b24 | $ | Execute Package,Field_Read,Field_Number 0x24 0c38 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 0c39 00da | | Load_Top At_Offset_2 0c3a 0227 | ' | Execute Access,All_Reference 0c3b 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0c3c 00da | | Load_Top At_Offset_2 0c3d e001 | | Load 0x0,0x1 0c3e 1b24 | $ | Execute Package,Field_Read,Field_Number 0x24 0c3f 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 0c40 c405 | | Store 0x2,0x5 0c41 00d8 | | Load_Top At_Offset_0 0c42 e001 | | Load 0x0,0x1 0c43 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 0c44 180f | | Execute Package,Field_Execute,Field_Number 0xf 0c45 7030 |p0 | Jump_Nonzero 0xc76 0c46 e5fc | | Load 0x2,-0x4 0c47 e009 | | Load 0x0,0x9 0c48 1865 | e | Execute Package,Field_Execute,Field_Number 0x65 0c49 00d9 | | Load_Top At_Offset_1 0c4a e001 | | Load 0x0,0x1 0c4b 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 0c4c 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0c4d 7028 |p( | Jump_Nonzero 0xc76 0c4e 00db | | Load_Top At_Offset_3 0c4f e5fc | | Load 0x2,-0x4 0c50 00da | | Load_Top At_Offset_2 0c51 8014 | | Call 0x0,0x14 0c52 c402 | | Store 0x2,0x2 0c53 00db | | Load_Top At_Offset_3 0c54 6843 |hC | Jump_Zero 0xc98 0c55 e011 | | Load 0x0,0x11 0c56 180e | | Execute Package,Field_Execute,Field_Number 0xe 0c57 4801 |H | Short_Literal 0x1 0c58 4802 |H | Short_Literal 0x2 0c59 e004 | | Load 0x0,0x4 0c5a 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0c5b 0334 | 4 | Declare_Variable Array,With_Constraint 0c5c 00da | | Load_Top At_Offset_2 0c5d 8016 | | Call 0x0,0x16 0c5e e004 | | Load 0x0,0x4 0c5f 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0c60 0119 | | Execute Any,Check_In_Formal_Type 0c61 4801 |H | Short_Literal 0x1 0c62 00da | | Load_Top At_Offset_2 0c63 01d6 | | Execute Vector,Field_Write 0c64 e403 | | Load 0x2,0x3 0c65 0227 | ' | Execute Access,All_Reference 0c66 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0c67 e001 | | Load 0x0,0x1 0c68 1b24 | $ | Execute Package,Field_Read,Field_Number 0x24 0c69 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0c6a e004 | | Load 0x0,0x4 0c6b 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0c6c 0119 | | Execute Any,Check_In_Formal_Type 0c6d 4802 |H | Short_Literal 0x2 0c6e 00da | | Load_Top At_Offset_2 0c6f 01d6 | | Execute Vector,Field_Write 0c70 678b |g | Indirect_Literal Discrete,0xbfc,{0x00000000, 0x0000811f} 0c71 e005 | | Load 0x0,0x5 0c72 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0c73 00db | | Load_Top At_Offset_3 0c74 a5fa | | Store_Unchecked 0x2,-0x6 0c75 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0c76 00d8 | | Load_Top At_Offset_0 0c77 e001 | | Load 0x0,0x1 0c78 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 0c79 180f | | Execute Package,Field_Execute,Field_Number 0xf 0c7a 681d |h | Jump_Zero 0xc98 0c7b e011 | | Load 0x0,0x11 0c7c 180e | | Execute Package,Field_Execute,Field_Number 0xe 0c7d 4801 |H | Short_Literal 0x1 0c7e 4802 |H | Short_Literal 0x2 0c7f e004 | | Load 0x0,0x4 0c80 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0c81 0334 | 4 | Declare_Variable Array,With_Constraint 0c82 e5ff | | Load 0x2,-0x1 0c83 e004 | | Load 0x0,0x4 0c84 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0c85 e004 | | Load 0x0,0x4 0c86 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0c87 0119 | | Execute Any,Check_In_Formal_Type 0c88 4801 |H | Short_Literal 0x1 0c89 00da | | Load_Top At_Offset_2 0c8a 01d6 | | Execute Vector,Field_Write 0c8b 0092 1ec4 | | Action Push_String_Extended,0x1ec4 ; "register" 0c8d e004 | | Load 0x0,0x4 0c8e 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0c8f e004 | | Load 0x0,0x4 0c90 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0c91 0119 | | Execute Any,Check_In_Formal_Type 0c92 4802 |H | Short_Literal 0x2 0c93 00da | | Load_Top At_Offset_2 0c94 01d6 | | Execute Vector,Field_Write 0c95 600e |` | Indirect_Literal Discrete,0xca4,{0x00000000, 0x0000811d} 0c96 e005 | | Load 0x0,0x5 0c97 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0c98 00db | | Load_Top At_Offset_3 0c99 a5fa | | Store_Unchecked 0x2,-0x6 0c9a 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0c9b TRAP_0c00: 0c9b 0007 | | Action Break_Optional 0c9c 0092 1ec5 | | Action Push_String_Extended,0x1ec5 ; "Register" 0c9e e007 | | Load 0x0,0x7 0c9f 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0ca0 a5fa | | Store_Unchecked 0x2,-0x6 0ca1 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0ca2 0000 0000 | | .XXX[0x2] 0ca4 0000 0000 | | .LITERAL {0x00000000, 0x0000811d} 0ca8 ; -------------------------------------------------------------------------------------- 0ca8 ; SUBPROGRAM 0ca8 ; -------------------------------------------------------------------------------------- 0ca8 0cc2 | | .CONST 0x0cc2 ; Address of begin 0ca9 0e0b | | .CONST 0x0e0b ; Address of exception handler 0caa 0006 | | .CONST 0x0006 ; Number of locals 0cab INIT_0ca8: 0cab e001 | | Load 0x0,0x1 0cac 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 0cad 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0cae 02c7 | | Declare_Variable Any 0caf 00d8 | | Load_Top At_Offset_0 0cb0 1c00 | | Execute_Immediate Run_Utility,0x0 0cb1 e005 | | Load 0x0,0x5 0cb2 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0cb3 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0cb4 e001 | | Load 0x0,0x1 0cb5 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 0cb6 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0cb7 02c7 | | Declare_Variable Any 0cb8 00d8 | | Load_Top At_Offset_0 0cb9 1c00 | | Execute_Immediate Run_Utility,0x0 0cba 00e1 | | Load_Encached Boolean_Cache 0cbb 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0cbc e001 | | Load 0x0,0x1 0cbd 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 0cbe 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0cbf 02c7 | | Declare_Variable Any 0cc0 00d8 | | Load_Top At_Offset_0 0cc1 1c00 | | Execute_Immediate Run_Utility,0x0 0cc2 BODY_0ca8: 0cc2 e5fa | | Load 0x2,-0x6 0cc3 0092 1ec6 | | Action Push_String_Extended,0x1ec6 ; "Add_Secondary_Unit" 0cc5 8265 | e | Call 0x1,0x65 0cc6 e005 | | Load 0x0,0x5 0cc7 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0cc8 00db | | Load_Top At_Offset_3 0cc9 e5fa | | Load 0x2,-0x6 0cca 617d |a} | Indirect_Literal Discrete,0xe48,{0x00000000, 0x00008164} 0ccb e5fe | | Load 0x2,-0x2 0ccc e5ff | | Load 0x2,-0x1 0ccd 8266 | f | Call 0x1,0x66 0cce c404 | | Store 0x2,0x4 0ccf c403 | | Store 0x2,0x3 0cd0 00db | | Load_Top At_Offset_3 0cd1 6803 |h | Jump_Zero 0xcd5 0cd2 00db | | Load_Top At_Offset_3 0cd3 a5f9 | | Store_Unchecked 0x2,-0x7 0cd4 4507 |E | Exit_Suprogram New_Top_Offset 0x7 0cd5 e5ff | | Load 0x2,-0x1 0cd6 0227 | ' | Execute Access,All_Reference 0cd7 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0cd8 e5fd | | Load 0x2,-0x3 0cd9 e002 | | Load 0x0,0x2 0cda 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0cdb 183e | > | Execute Package,Field_Execute,Field_Number 0x3e 0cdc e001 | | Load 0x0,0x1 0cdd 1b24 | $ | Execute Package,Field_Read,Field_Number 0x24 0cde 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 0cdf c406 | | Store 0x2,0x6 0ce0 00d8 | | Load_Top At_Offset_0 0ce1 e001 | | Load 0x0,0x1 0ce2 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 0ce3 180f | | Execute Package,Field_Execute,Field_Number 0xf 0ce4 6866 |hf | Jump_Zero 0xd4b 0ce5 00db | | Load_Top At_Offset_3 0ce6 4802 |H | Short_Literal 0x2 0ce7 e5ff | | Load 0x2,-0x1 0ce8 0227 | ' | Execute Access,All_Reference 0ce9 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0cea e5fd | | Load 0x2,-0x3 0ceb e001 | | Load 0x0,0x1 0cec 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 0ced 1866 | f | Execute Package,Field_Execute,Field_Number 0x66 0cee c403 | | Store 0x2,0x3 0cef 00db | | Load_Top At_Offset_3 0cf0 6825 |h% | Jump_Zero 0xd16 0cf1 e5fa | | Load 0x2,-0x6 0cf2 4801 |H | Short_Literal 0x1 0cf3 4802 |H | Short_Literal 0x2 0cf4 e004 | | Load 0x0,0x4 0cf5 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0cf6 0334 | 4 | Declare_Variable Array,With_Constraint 0cf7 e5fd | | Load 0x2,-0x3 0cf8 e006 | | Load 0x0,0x6 0cf9 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 0cfa e004 | | Load 0x0,0x4 0cfb 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0cfc 0119 | | Execute Any,Check_In_Formal_Type 0cfd 4801 |H | Short_Literal 0x1 0cfe 00da | | Load_Top At_Offset_2 0cff 01d6 | | Execute Vector,Field_Write 0d00 e5ff | | Load 0x2,-0x1 0d01 0227 | ' | Execute Access,All_Reference 0d02 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0d03 e001 | | Load 0x0,0x1 0d04 1b24 | $ | Execute Package,Field_Read,Field_Number 0x24 0d05 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0d06 e004 | | Load 0x0,0x4 0d07 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0d08 0119 | | Execute Any,Check_In_Formal_Type 0d09 4802 |H | Short_Literal 0x2 0d0a 00da | | Load_Top At_Offset_2 0d0b 01d6 | | Execute Vector,Field_Write 0d0c 6797 |g | Indirect_Literal Discrete,0xca4,{0x00000000, 0x0000811d} 0d0d e005 | | Load 0x0,0x5 0d0e 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0d0f e004 | | Load 0x0,0x4 0d10 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0d11 6136 |a6 | Indirect_Literal Discrete,0xe48,{0x00000000, 0x00008164} 0d12 e005 | | Load 0x0,0x5 0d13 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0d14 a5f9 | | Store_Unchecked 0x2,-0x7 0d15 4507 |E | Exit_Suprogram New_Top_Offset 0x7 0d16 e5ff | | Load 0x2,-0x1 0d17 0227 | ' | Execute Access,All_Reference 0d18 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0d19 e5fd | | Load 0x2,-0x3 0d1a e002 | | Load 0x0,0x2 0d1b 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0d1c 183e | > | Execute Package,Field_Execute,Field_Number 0x3e 0d1d e001 | | Load 0x0,0x1 0d1e 1b24 | $ | Execute Package,Field_Read,Field_Number 0x24 0d1f 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 0d20 c406 | | Store 0x2,0x6 0d21 00d8 | | Load_Top At_Offset_0 0d22 e001 | | Load 0x0,0x1 0d23 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 0d24 180f | | Execute Package,Field_Execute,Field_Number 0xf 0d25 6856 |hV | Jump_Zero 0xd7c 0d26 e5fa | | Load 0x2,-0x6 0d27 4801 |H | Short_Literal 0x1 0d28 4802 |H | Short_Literal 0x2 0d29 e004 | | Load 0x0,0x4 0d2a 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0d2b 0334 | 4 | Declare_Variable Array,With_Constraint 0d2c e5fd | | Load 0x2,-0x3 0d2d e006 | | Load 0x0,0x6 0d2e 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 0d2f e004 | | Load 0x0,0x4 0d30 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0d31 0119 | | Execute Any,Check_In_Formal_Type 0d32 4801 |H | Short_Literal 0x1 0d33 00da | | Load_Top At_Offset_2 0d34 01d6 | | Execute Vector,Field_Write 0d35 e5ff | | Load 0x2,-0x1 0d36 0227 | ' | Execute Access,All_Reference 0d37 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0d38 e001 | | Load 0x0,0x1 0d39 1b24 | $ | Execute Package,Field_Read,Field_Number 0x24 0d3a 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0d3b e004 | | Load 0x0,0x4 0d3c 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0d3d 0119 | | Execute Any,Check_In_Formal_Type 0d3e 4802 |H | Short_Literal 0x2 0d3f 00da | | Load_Top At_Offset_2 0d40 01d6 | | Execute Vector,Field_Write 0d41 6762 |gb | Indirect_Literal Discrete,0xca4,{0x00000000, 0x0000811d} 0d42 e005 | | Load 0x0,0x5 0d43 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0d44 e004 | | Load 0x0,0x4 0d45 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0d46 6101 |a | Indirect_Literal Discrete,0xe48,{0x00000000, 0x00008164} 0d47 e005 | | Load 0x0,0x5 0d48 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0d49 a5f9 | | Store_Unchecked 0x2,-0x7 0d4a 4507 |E | Exit_Suprogram New_Top_Offset 0x7 0d4b 00d8 | | Load_Top At_Offset_0 0d4c e001 | | Load 0x0,0x1 0d4d 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 0d4e 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37 0d4f 682c |h, | Jump_Zero 0xd7c 0d50 00d8 | | Load_Top At_Offset_0 0d51 e001 | | Load 0x0,0x1 0d52 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 0d53 183c | < | Execute Package,Field_Execute,Field_Number 0x3c 0d54 c402 | | Store 0x2,0x2 0d55 e402 | | Load 0x2,0x2 0d56 e001 | | Load 0x0,0x1 0d57 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 0d58 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0d59 00db | | Load_Top At_Offset_3 0d5a e001 | | Load 0x0,0x1 0d5b 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 0d5c 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0d5d 01df | | Execute Vector,Equal 0d5e 6803 |h | Jump_Zero 0xd62 0d5f 4801 |H | Short_Literal 0x1 0d60 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 0d61 781a |x | Jump 0xd7c 0d62 e5fa | | Load 0x2,-0x6 0d63 4801 |H | Short_Literal 0x1 0d64 4801 |H | Short_Literal 0x1 0d65 e004 | | Load 0x0,0x4 0d66 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0d67 0334 | 4 | Declare_Variable Array,With_Constraint 0d68 e402 | | Load 0x2,0x2 0d69 e001 | | Load 0x0,0x1 0d6a 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 0d6b 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0d6c e004 | | Load 0x0,0x4 0d6d 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0d6e 0119 | | Execute Any,Check_In_Formal_Type 0d6f 4801 |H | Short_Literal 0x1 0d70 00da | | Load_Top At_Offset_2 0d71 01d6 | | Execute Vector,Field_Write 0d72 60d1 |` | Indirect_Literal Discrete,0xe44,{0x00000000, 0x00008170} 0d73 e005 | | Load 0x0,0x5 0d74 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0d75 e004 | | Load 0x0,0x4 0d76 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0d77 60d0 |` | Indirect_Literal Discrete,0xe48,{0x00000000, 0x00008164} 0d78 e005 | | Load 0x0,0x5 0d79 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0d7a a5f9 | | Store_Unchecked 0x2,-0x7 0d7b 4507 |E | Exit_Suprogram New_Top_Offset 0x7 0d7c e5fc | | Load 0x2,-0x4 0d7d 01db | | Execute Vector,Length 0d7e e5fb | | Load 0x2,-0x5 0d7f 01db | | Execute Vector,Length 0d80 0273 | s | Execute Discrete,Plus 0d81 4900 |I | Short_Literal 0x100 0d82 027d | } | Execute Discrete,Greater 0d83 6822 |h" | Jump_Zero 0xda6 0d84 e5fa | | Load 0x2,-0x6 0d85 4801 |H | Short_Literal 0x1 0d86 4802 |H | Short_Literal 0x2 0d87 e004 | | Load 0x0,0x4 0d88 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0d89 0334 | 4 | Declare_Variable Array,With_Constraint 0d8a e5fd | | Load 0x2,-0x3 0d8b e006 | | Load 0x0,0x6 0d8c 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 0d8d e004 | | Load 0x0,0x4 0d8e 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0d8f 0119 | | Execute Any,Check_In_Formal_Type 0d90 4801 |H | Short_Literal 0x1 0d91 00da | | Load_Top At_Offset_2 0d92 01d6 | | Execute Vector,Field_Write 0d93 4900 |I | Short_Literal 0x100 0d94 e004 | | Load 0x0,0x4 0d95 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0d96 e004 | | Load 0x0,0x4 0d97 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0d98 0119 | | Execute Any,Check_In_Formal_Type 0d99 4802 |H | Short_Literal 0x2 0d9a 00da | | Load_Top At_Offset_2 0d9b 01d6 | | Execute Vector,Field_Write 0d9c 60a3 |` | Indirect_Literal Discrete,0xe40,{0x00000000, 0x00008163} 0d9d e005 | | Load 0x0,0x5 0d9e 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0d9f e004 | | Load 0x0,0x4 0da0 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0da1 60a6 |` | Indirect_Literal Discrete,0xe48,{0x00000000, 0x00008164} 0da2 e005 | | Load 0x0,0x5 0da3 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0da4 a5f9 | | Store_Unchecked 0x2,-0x7 0da5 4507 |E | Exit_Suprogram New_Top_Offset 0x7 0da6 00d9 | | Load_Top At_Offset_1 0da7 6834 |h4 | Jump_Zero 0xddc 0da8 e5fc | | Load 0x2,-0x4 0da9 00d9 | | Load_Top At_Offset_1 0daa 8017 | | Call 0x0,0x17 0dab e5fb | | Load 0x2,-0x5 0dac 00d9 | | Load_Top At_Offset_1 0dad 8018 | | Call 0x0,0x18 0dae e5fa | | Load 0x2,-0x6 0daf 4801 |H | Short_Literal 0x1 0db0 4804 |H | Short_Literal 0x4 0db1 e004 | | Load 0x0,0x4 0db2 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0db3 0334 | 4 | Declare_Variable Array,With_Constraint 0db4 e5fd | | Load 0x2,-0x3 0db5 e006 | | Load 0x0,0x6 0db6 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 0db7 e004 | | Load 0x0,0x4 0db8 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0db9 0119 | | Execute Any,Check_In_Formal_Type 0dba 4801 |H | Short_Literal 0x1 0dbb 00da | | Load_Top At_Offset_2 0dbc 01d6 | | Execute Vector,Field_Write 0dbd e5fe | | Load 0x2,-0x2 0dbe e006 | | Load 0x0,0x6 0dbf 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 0dc0 e004 | | Load 0x0,0x4 0dc1 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0dc2 0119 | | Execute Any,Check_In_Formal_Type 0dc3 4802 |H | Short_Literal 0x2 0dc4 00da | | Load_Top At_Offset_2 0dc5 01d6 | | Execute Vector,Field_Write 0dc6 e5fc | | Load 0x2,-0x4 0dc7 e004 | | Load 0x0,0x4 0dc8 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0dc9 e004 | | Load 0x0,0x4 0dca 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0dcb 0119 | | Execute Any,Check_In_Formal_Type 0dcc 4803 |H | Short_Literal 0x3 0dcd 00da | | Load_Top At_Offset_2 0dce 01d6 | | Execute Vector,Field_Write 0dcf e5fb | | Load 0x2,-0x5 0dd0 e004 | | Load 0x0,0x4 0dd1 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0dd2 e004 | | Load 0x0,0x4 0dd3 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0dd4 0119 | | Execute Any,Check_In_Formal_Type 0dd5 4804 |H | Short_Literal 0x4 0dd6 00da | | Load_Top At_Offset_2 0dd7 01d6 | | Execute Vector,Field_Write 0dd8 6063 |`c | Indirect_Literal Discrete,0xe3c,{0x00000000, 0x00008186} 0dd9 e005 | | Load 0x0,0x5 0dda 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0ddb 782c |x, | Jump 0xe08 0ddc 00db | | Load_Top At_Offset_3 0ddd 00d9 | | Load_Top At_Offset_1 0dde e404 | | Load 0x2,0x4 0ddf e001 | | Load 0x0,0x1 0de0 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 0de1 183a | : | Execute Package,Field_Execute,Field_Number 0x3a 0de2 c403 | | Store 0x2,0x3 0de3 00db | | Load_Top At_Offset_3 0de4 7023 |p# | Jump_Nonzero 0xe08 0de5 e5fc | | Load 0x2,-0x4 0de6 00d9 | | Load_Top At_Offset_1 0de7 8017 | | Call 0x0,0x17 0de8 e5fb | | Load 0x2,-0x5 0de9 00d9 | | Load_Top At_Offset_1 0dea 8018 | | Call 0x0,0x18 0deb e5fa | | Load 0x2,-0x6 0dec 0092 1ec7 | | Action Push_String_Extended,0x1ec7 ; "Added " 0dee e5fd | | Load 0x2,-0x3 0def e006 | | Load 0x0,0x6 0df0 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0df1 01cc | | Execute Vector,Catenate 0df2 0092 1ec8 | | Action Push_String_Extended,0x1ec8 ; " as the secondary of unit " 0df4 01cc | | Execute Vector,Catenate 0df5 e5fe | | Load 0x2,-0x2 0df6 e006 | | Load 0x0,0x6 0df7 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0df8 01cc | | Execute Vector,Catenate 0df9 0092 1ec9 | | Action Push_String_Extended,0x1ec9 ; ". Prefix = \x22" 0dfb 01cc | | Execute Vector,Catenate 0dfc e5fc | | Load 0x2,-0x4 0dfd 01cc | | Execute Vector,Catenate 0dfe 0092 1eca | | Action Push_String_Extended,0x1eca ; "\x22, Suffix = \x22" 0e00 01cc | | Execute Vector,Catenate 0e01 e5fb | | Load 0x2,-0x5 0e02 01cc | | Execute Vector,Catenate 0e03 0092 1eb5 | | Action Push_String_Extended,0x1eb5 ; "\x22" 0e05 01cc | | Execute Vector,Catenate 0e06 e007 | | Load 0x0,0x7 0e07 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0e08 00db | | Load_Top At_Offset_3 0e09 a5f9 | | Store_Unchecked 0x2,-0x7 0e0a 4507 |E | Exit_Suprogram New_Top_Offset 0x7 0e0b TRAP_0ca8: 0e0b e005 | | Load 0x0,0x5 0e0c 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0e0d 010f | | Execute Exception,Equal 0e0e 681f |h | Jump_Zero 0xe2e 0e0f e005 | | Load 0x0,0x5 0e10 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0e11 a5f9 | | Store_Unchecked 0x2,-0x7 0e12 e5fa | | Load 0x2,-0x6 0e13 4801 |H | Short_Literal 0x1 0e14 4802 |H | Short_Literal 0x2 0e15 e004 | | Load 0x0,0x4 0e16 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0e17 0334 | 4 | Declare_Variable Array,With_Constraint 0e18 e5fe | | Load 0x2,-0x2 0e19 e006 | | Load 0x0,0x6 0e1a 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 0e1b e004 | | Load 0x0,0x4 0e1c 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0e1d 0119 | | Execute Any,Check_In_Formal_Type 0e1e 4801 |H | Short_Literal 0x1 0e1f 00da | | Load_Top At_Offset_2 0e20 01d6 | | Execute Vector,Field_Write 0e21 e5fd | | Load 0x2,-0x3 0e22 e006 | | Load 0x0,0x6 0e23 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 0e24 e004 | | Load 0x0,0x4 0e25 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0e26 0119 | | Execute Any,Check_In_Formal_Type 0e27 4802 |H | Short_Literal 0x2 0e28 00da | | Load_Top At_Offset_2 0e29 01d6 | | Execute Vector,Field_Write 0e2a 601d |` | Indirect_Literal Discrete,0xe48,{0x00000000, 0x00008164} 0e2b e005 | | Load 0x0,0x5 0e2c 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0e2d 4507 |E | Exit_Suprogram New_Top_Offset 0x7 0e2e e5fa | | Load 0x2,-0x6 0e2f 0092 1ecb | | Action Push_String_Extended,0x1ecb ; "Target_Builder.Unit.Add_Secondary_Unit" 0e31 e007 | | Load 0x0,0x7 0e32 180f | | Execute Package,Field_Execute,Field_Number 0xf 0e33 e004 | | Load 0x0,0x4 0e34 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0e35 6012 |` | Indirect_Literal Discrete,0xe48,{0x00000000, 0x00008164} 0e36 e005 | | Load 0x0,0x5 0e37 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0e38 a5f9 | | Store_Unchecked 0x2,-0x7 0e39 4507 |E | Exit_Suprogram New_Top_Offset 0x7 0e3a 0000 0000 | | .XXX[0x2] 0e3c 0000 0000 | | .LITERAL {0x00000000, 0x00008186} 0e40 0000 0000 | | .LITERAL {0x00000000, 0x00008163} 0e44 0000 0000 | | .LITERAL {0x00000000, 0x00008170} 0e48 0000 0000 | | .LITERAL {0x00000000, 0x00008164} 0e4c 0000 0000 | | .BLANK 0000[0x4] 0e50 ; -------------------------------------------------------------------------------------- 0e50 ; SUBPROGRAM 0e50 ; -------------------------------------------------------------------------------------- 0e50 0e62 | b | .CONST 0x0e62 ; Address of begin 0e51 0edd | | .CONST 0x0edd ; Address of exception handler 0e52 0004 | | .CONST 0x0004 ; Number of locals 0e53 INIT_0e50: 0e53 e005 | | Load 0x0,0x5 0e54 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0e55 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0e56 e001 | | Load 0x0,0x1 0e57 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 0e58 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0e59 02c7 | | Declare_Variable Any 0e5a 00d8 | | Load_Top At_Offset_0 0e5b 1c00 | | Execute_Immediate Run_Utility,0x0 0e5c e001 | | Load 0x0,0x1 0e5d 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 0e5e 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0e5f 02c7 | | Declare_Variable Any 0e60 00d8 | | Load_Top At_Offset_0 0e61 1c00 | | Execute_Immediate Run_Utility,0x0 0e62 BODY_0e50: 0e62 e5fc | | Load 0x2,-0x4 0e63 0092 1ecc | | Action Push_String_Extended,0x1ecc ; "Remove_Secondary_Unit (Primary)" 0e65 8265 | e | Call 0x1,0x65 0e66 e005 | | Load 0x0,0x5 0e67 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0e68 00da | | Load_Top At_Offset_2 0e69 e5fc | | Load 0x2,-0x4 0e6a 60a5 |` | Indirect_Literal Discrete,0xf10,{0x00000000, 0x00008169} 0e6b e5fe | | Load 0x2,-0x2 0e6c e5ff | | Load 0x2,-0x1 0e6d 8266 | f | Call 0x1,0x66 0e6e c403 | | Store 0x2,0x3 0e6f 005b | [ | Store_Top Discrete,At_Offset_3 0e70 00da | | Load_Top At_Offset_2 0e71 6803 |h | Jump_Zero 0xe75 0e72 00da | | Load_Top At_Offset_2 0e73 a5fb | | Store_Unchecked 0x2,-0x5 0e74 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0e75 e5fc | | Load 0x2,-0x4 0e76 0092 1ecd | | Action Push_String_Extended,0x1ecd ; "Remove_Secondary_Unit (Secondary)" 0e78 8265 | e | Call 0x1,0x65 0e79 e005 | | Load 0x0,0x5 0e7a 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0e7b 00d9 | | Load_Top At_Offset_1 0e7c e5fc | | Load 0x2,-0x4 0e7d 6092 |` | Indirect_Literal Discrete,0xf10,{0x00000000, 0x00008169} 0e7e e5fd | | Load 0x2,-0x3 0e7f e5ff | | Load 0x2,-0x1 0e80 8266 | f | Call 0x1,0x66 0e81 c404 | | Store 0x2,0x4 0e82 005b | [ | Store_Top Discrete,At_Offset_3 0e83 00da | | Load_Top At_Offset_2 0e84 6803 |h | Jump_Zero 0xe88 0e85 00da | | Load_Top At_Offset_2 0e86 a5fb | | Store_Unchecked 0x2,-0x5 0e87 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0e88 00d9 | | Load_Top At_Offset_1 0e89 e001 | | Load 0x0,0x1 0e8a 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 0e8b 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 0e8c 682e |h. | Jump_Zero 0xebb 0e8d 00d8 | | Load_Top At_Offset_0 0e8e e001 | | Load 0x0,0x1 0e8f 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 0e90 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37 0e91 6829 |h) | Jump_Zero 0xebb 0e92 00da | | Load_Top At_Offset_2 0e93 00d9 | | Load_Top At_Offset_1 0e94 00db | | Load_Top At_Offset_3 0e95 e001 | | Load 0x0,0x1 0e96 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 0e97 183b | ; | Execute Package,Field_Execute,Field_Number 0x3b 0e98 005b | [ | Store_Top Discrete,At_Offset_3 0e99 00da | | Load_Top At_Offset_2 0e9a 701d |p | Jump_Nonzero 0xeb8 0e9b 00d8 | | Load_Top At_Offset_0 0e9c 8019 | | Call 0x0,0x19 0e9d 00da | | Load_Top At_Offset_2 0e9e e5ff | | Load 0x2,-0x1 0e9f 0227 | ' | Execute Access,All_Reference 0ea0 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0ea1 00da | | Load_Top At_Offset_2 0ea2 e001 | | Load 0x0,0x1 0ea3 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 0ea4 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0ea5 005b | [ | Store_Top Discrete,At_Offset_3 0ea6 00da | | Load_Top At_Offset_2 0ea7 7010 |p | Jump_Nonzero 0xeb8 0ea8 e5fc | | Load 0x2,-0x4 0ea9 0092 1ece | | Action Push_String_Extended,0x1ece ; "Removed " 0eab e5fd | | Load 0x2,-0x3 0eac e006 | | Load 0x0,0x6 0ead 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0eae 01cc | | Execute Vector,Catenate 0eaf 0092 1ec8 | | Action Push_String_Extended,0x1ec8 ; " as the secondary of unit " 0eb1 01cc | | Execute Vector,Catenate 0eb2 e5fe | | Load 0x2,-0x2 0eb3 e006 | | Load 0x0,0x6 0eb4 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0eb5 01cc | | Execute Vector,Catenate 0eb6 e007 | | Load 0x0,0x7 0eb7 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0eb8 00da | | Load_Top At_Offset_2 0eb9 a5fb | | Store_Unchecked 0x2,-0x5 0eba 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0ebb e5fc | | Load 0x2,-0x4 0ebc 4801 |H | Short_Literal 0x1 0ebd 4802 |H | Short_Literal 0x2 0ebe e004 | | Load 0x0,0x4 0ebf 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0ec0 0334 | 4 | Declare_Variable Array,With_Constraint 0ec1 e5fd | | Load 0x2,-0x3 0ec2 e006 | | Load 0x0,0x6 0ec3 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 0ec4 e004 | | Load 0x0,0x4 0ec5 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0ec6 0119 | | Execute Any,Check_In_Formal_Type 0ec7 4801 |H | Short_Literal 0x1 0ec8 00da | | Load_Top At_Offset_2 0ec9 01d6 | | Execute Vector,Field_Write 0eca e5fe | | Load 0x2,-0x2 0ecb e006 | | Load 0x0,0x6 0ecc 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 0ecd e004 | | Load 0x0,0x4 0ece 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0ecf 0119 | | Execute Any,Check_In_Formal_Type 0ed0 4802 |H | Short_Literal 0x2 0ed1 00da | | Load_Top At_Offset_2 0ed2 01d6 | | Execute Vector,Field_Write 0ed3 6038 |`8 | Indirect_Literal Discrete,0xf0c,{0x00000000, 0x00008187} 0ed4 e005 | | Load 0x0,0x5 0ed5 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0ed6 e004 | | Load 0x0,0x4 0ed7 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0ed8 6037 |`7 | Indirect_Literal Discrete,0xf10,{0x00000000, 0x00008169} 0ed9 e005 | | Load 0x0,0x5 0eda 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0edb a5fb | | Store_Unchecked 0x2,-0x5 0edc 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0edd TRAP_0e50: 0edd e005 | | Load 0x0,0x5 0ede 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0edf 010f | | Execute Exception,Equal 0ee0 681f |h | Jump_Zero 0xf00 0ee1 e005 | | Load 0x0,0x5 0ee2 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0ee3 a5fb | | Store_Unchecked 0x2,-0x5 0ee4 e5fc | | Load 0x2,-0x4 0ee5 4801 |H | Short_Literal 0x1 0ee6 4802 |H | Short_Literal 0x2 0ee7 e004 | | Load 0x0,0x4 0ee8 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0ee9 0334 | 4 | Declare_Variable Array,With_Constraint 0eea e5fd | | Load 0x2,-0x3 0eeb e006 | | Load 0x0,0x6 0eec 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 0eed e004 | | Load 0x0,0x4 0eee 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0eef 0119 | | Execute Any,Check_In_Formal_Type 0ef0 4801 |H | Short_Literal 0x1 0ef1 00da | | Load_Top At_Offset_2 0ef2 01d6 | | Execute Vector,Field_Write 0ef3 e5fe | | Load 0x2,-0x2 0ef4 e006 | | Load 0x0,0x6 0ef5 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 0ef6 e004 | | Load 0x0,0x4 0ef7 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0ef8 0119 | | Execute Any,Check_In_Formal_Type 0ef9 4802 |H | Short_Literal 0x2 0efa 00da | | Load_Top At_Offset_2 0efb 01d6 | | Execute Vector,Field_Write 0efc 6013 |` | Indirect_Literal Discrete,0xf10,{0x00000000, 0x00008169} 0efd e005 | | Load 0x0,0x5 0efe 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0eff 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0f00 e5fc | | Load 0x2,-0x4 0f01 0092 1ecf | | Action Push_String_Extended,0x1ecf ; "Target_Builder.Unit.Remove_Secondary_Unit" 0f03 e007 | | Load 0x0,0x7 0f04 180f | | Execute Package,Field_Execute,Field_Number 0xf 0f05 e004 | | Load 0x0,0x4 0f06 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0f07 6008 |` | Indirect_Literal Discrete,0xf10,{0x00000000, 0x00008169} 0f08 e005 | | Load 0x0,0x5 0f09 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0f0a a5fb | | Store_Unchecked 0x2,-0x5 0f0b 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0f0c 0000 0000 | | .LITERAL {0x00000000, 0x00008187} 0f10 0000 0000 | | .LITERAL {0x00000000, 0x00008169} 0f14 0000 0000 | | .BLANK 0000[0x4] 0f18 ; -------------------------------------------------------------------------------------- 0f18 ; SUBPROGRAM 0f18 ; -------------------------------------------------------------------------------------- 0f18 0f24 | $ | .CONST 0x0f24 ; Address of begin 0f19 0f41 | A | .CONST 0x0f41 ; Address of exception handler 0f1a 0003 | | .CONST 0x0003 ; Number of locals 0f1b INIT_0f18: 0f1b e005 | | Load 0x0,0x5 0f1c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0f1d 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0f1e e001 | | Load 0x0,0x1 0f1f 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 0f20 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0f21 02c7 | | Declare_Variable Any 0f22 00d8 | | Load_Top At_Offset_0 0f23 1c00 | | Execute_Immediate Run_Utility,0x0 0f24 BODY_0f18: 0f24 e5fd | | Load 0x2,-0x3 0f25 0092 1ed0 | | Action Push_String_Extended,0x1ed0 ; "Has_Secondary_Unit" 0f27 8265 | e | Call 0x1,0x65 0f28 e005 | | Load 0x0,0x5 0f29 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0f2a 00d9 | | Load_Top At_Offset_1 0f2b e5fd | | Load 0x2,-0x3 0f2c 604b |`K | Indirect_Literal Discrete,0xf78,{0x00000000, 0x00008166} 0f2d e5fe | | Load 0x2,-0x2 0f2e e5ff | | Load 0x2,-0x1 0f2f 8266 | f | Call 0x1,0x66 0f30 c403 | | Store 0x2,0x3 0f31 005a | Z | Store_Top Discrete,At_Offset_2 0f32 00d9 | | Load_Top At_Offset_1 0f33 6805 |h | Jump_Zero 0xf39 0f34 4800 |H | Short_Literal 0x0 0f35 a5fc | | Store_Unchecked 0x2,-0x4 0f36 00d9 | | Load_Top At_Offset_1 0f37 a5fb | | Store_Unchecked 0x2,-0x5 0f38 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0f39 00d8 | | Load_Top At_Offset_0 0f3a e001 | | Load 0x0,0x1 0f3b 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 0f3c 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 0f3d a5fc | | Store_Unchecked 0x2,-0x4 0f3e 00d9 | | Load_Top At_Offset_1 0f3f a5fb | | Store_Unchecked 0x2,-0x5 0f40 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0f41 TRAP_0f18: 0f41 e005 | | Load 0x0,0x5 0f42 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0f43 010f | | Execute Exception,Equal 0f44 6818 |h | Jump_Zero 0xf5d 0f45 e005 | | Load 0x0,0x5 0f46 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0f47 a5fb | | Store_Unchecked 0x2,-0x5 0f48 e5fd | | Load 0x2,-0x3 0f49 4801 |H | Short_Literal 0x1 0f4a 4801 |H | Short_Literal 0x1 0f4b e004 | | Load 0x0,0x4 0f4c 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0f4d 0334 | 4 | Declare_Variable Array,With_Constraint 0f4e e5fe | | Load 0x2,-0x2 0f4f e006 | | Load 0x0,0x6 0f50 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 0f51 e004 | | Load 0x0,0x4 0f52 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0f53 0119 | | Execute Any,Check_In_Formal_Type 0f54 4801 |H | Short_Literal 0x1 0f55 00da | | Load_Top At_Offset_2 0f56 01d6 | | Execute Vector,Field_Write 0f57 6020 |` | Indirect_Literal Discrete,0xf78,{0x00000000, 0x00008166} 0f58 e005 | | Load 0x0,0x5 0f59 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0f5a 4800 |H | Short_Literal 0x0 0f5b a5fc | | Store_Unchecked 0x2,-0x4 0f5c 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0f5d e5fd | | Load 0x2,-0x3 0f5e 0092 1ed1 | | Action Push_String_Extended,0x1ed1 ; "Target_Builder.Unit.Has_Secondary_Unit" 0f60 e007 | | Load 0x0,0x7 0f61 180f | | Execute Package,Field_Execute,Field_Number 0xf 0f62 4800 |H | Short_Literal 0x0 0f63 a5fc | | Store_Unchecked 0x2,-0x4 0f64 4801 |H | Short_Literal 0x1 0f65 4801 |H | Short_Literal 0x1 0f66 e004 | | Load 0x0,0x4 0f67 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0f68 0334 | 4 | Declare_Variable Array,With_Constraint 0f69 e5fe | | Load 0x2,-0x2 0f6a e006 | | Load 0x0,0x6 0f6b 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 0f6c e004 | | Load 0x0,0x4 0f6d 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0f6e 0119 | | Execute Any,Check_In_Formal_Type 0f6f 4801 |H | Short_Literal 0x1 0f70 00da | | Load_Top At_Offset_2 0f71 01d6 | | Execute Vector,Field_Write 0f72 6005 |` | Indirect_Literal Discrete,0xf78,{0x00000000, 0x00008166} 0f73 e005 | | Load 0x0,0x5 0f74 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0f75 a5fb | | Store_Unchecked 0x2,-0x5 0f76 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0f77 0000 | | .XXX[0x1] 0f78 0000 0000 | | .LITERAL {0x00000000, 0x00008166} 0f7c 0000 0000 | | .BLANK 0000[0x4] 0f80 ; -------------------------------------------------------------------------------------- 0f80 ; SUBPROGRAM 0f80 ; -------------------------------------------------------------------------------------- 0f80 0f8c | | .CONST 0x0f8c ; Address of begin 0f81 0fa9 | | .CONST 0x0fa9 ; Address of exception handler 0f82 0003 | | .CONST 0x0003 ; Number of locals 0f83 INIT_0f80: 0f83 e005 | | Load 0x0,0x5 0f84 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0f85 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0f86 e001 | | Load 0x0,0x1 0f87 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 0f88 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0f89 02c7 | | Declare_Variable Any 0f8a 00d8 | | Load_Top At_Offset_0 0f8b 1c00 | | Execute_Immediate Run_Utility,0x0 0f8c BODY_0f80: 0f8c e5fd | | Load 0x2,-0x3 0f8d 0092 1ed2 | | Action Push_String_Extended,0x1ed2 ; "Is_Secondary_Unit" 0f8f 8265 | e | Call 0x1,0x65 0f90 e005 | | Load 0x0,0x5 0f91 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0f92 00d9 | | Load_Top At_Offset_1 0f93 e5fd | | Load 0x2,-0x3 0f94 67e3 |g | Indirect_Literal Discrete,0xf78,{0x00000000, 0x00008166} 0f95 e5fe | | Load 0x2,-0x2 0f96 e5ff | | Load 0x2,-0x1 0f97 8266 | f | Call 0x1,0x66 0f98 c403 | | Store 0x2,0x3 0f99 005a | Z | Store_Top Discrete,At_Offset_2 0f9a 00d9 | | Load_Top At_Offset_1 0f9b 6805 |h | Jump_Zero 0xfa1 0f9c 4800 |H | Short_Literal 0x0 0f9d a5fc | | Store_Unchecked 0x2,-0x4 0f9e 00d9 | | Load_Top At_Offset_1 0f9f a5fb | | Store_Unchecked 0x2,-0x5 0fa0 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0fa1 00d8 | | Load_Top At_Offset_0 0fa2 e001 | | Load 0x0,0x1 0fa3 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 0fa4 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37 0fa5 a5fc | | Store_Unchecked 0x2,-0x4 0fa6 00d9 | | Load_Top At_Offset_1 0fa7 a5fb | | Store_Unchecked 0x2,-0x5 0fa8 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0fa9 TRAP_0f80: 0fa9 e005 | | Load 0x0,0x5 0faa 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0fab 010f | | Execute Exception,Equal 0fac 6818 |h | Jump_Zero 0xfc5 0fad e005 | | Load 0x0,0x5 0fae 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0faf a5fb | | Store_Unchecked 0x2,-0x5 0fb0 e5fd | | Load 0x2,-0x3 0fb1 4801 |H | Short_Literal 0x1 0fb2 4801 |H | Short_Literal 0x1 0fb3 e004 | | Load 0x0,0x4 0fb4 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0fb5 0334 | 4 | Declare_Variable Array,With_Constraint 0fb6 e5fe | | Load 0x2,-0x2 0fb7 e006 | | Load 0x0,0x6 0fb8 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 0fb9 e004 | | Load 0x0,0x4 0fba 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0fbb 0119 | | Execute Any,Check_In_Formal_Type 0fbc 4801 |H | Short_Literal 0x1 0fbd 00da | | Load_Top At_Offset_2 0fbe 01d6 | | Execute Vector,Field_Write 0fbf 67b8 |g | Indirect_Literal Discrete,0xf78,{0x00000000, 0x00008166} 0fc0 e005 | | Load 0x0,0x5 0fc1 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0fc2 4800 |H | Short_Literal 0x0 0fc3 a5fc | | Store_Unchecked 0x2,-0x4 0fc4 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0fc5 e5fd | | Load 0x2,-0x3 0fc6 0092 1ed3 | | Action Push_String_Extended,0x1ed3 ; "Target_Builder.Unit.Is_Secondary_Unit" 0fc8 e007 | | Load 0x0,0x7 0fc9 180f | | Execute Package,Field_Execute,Field_Number 0xf 0fca 4800 |H | Short_Literal 0x0 0fcb a5fc | | Store_Unchecked 0x2,-0x4 0fcc 4801 |H | Short_Literal 0x1 0fcd 4801 |H | Short_Literal 0x1 0fce e004 | | Load 0x0,0x4 0fcf 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0fd0 0334 | 4 | Declare_Variable Array,With_Constraint 0fd1 e5fe | | Load 0x2,-0x2 0fd2 e006 | | Load 0x0,0x6 0fd3 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 0fd4 e004 | | Load 0x0,0x4 0fd5 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0fd6 0119 | | Execute Any,Check_In_Formal_Type 0fd7 4801 |H | Short_Literal 0x1 0fd8 00da | | Load_Top At_Offset_2 0fd9 01d6 | | Execute Vector,Field_Write 0fda 679d |g | Indirect_Literal Discrete,0xf78,{0x00000000, 0x00008166} 0fdb e005 | | Load 0x0,0x5 0fdc 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0fdd a5fb | | Store_Unchecked 0x2,-0x5 0fde 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0fdf 0000 | | .XXX[0x1] 0fe0 ; -------------------------------------------------------------------------------------- 0fe0 ; SUBPROGRAM 0fe0 ; -------------------------------------------------------------------------------------- 0fe0 0ff2 | | .CONST 0x0ff2 ; Address of begin 0fe1 1027 | ' | .CONST 0x1027 ; Address of exception handler 0fe2 0004 | | .CONST 0x0004 ; Number of locals 0fe3 INIT_0fe0: 0fe3 e005 | | Load 0x0,0x5 0fe4 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0fe5 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0fe6 e001 | | Load 0x0,0x1 0fe7 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 0fe8 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0fe9 02c7 | | Declare_Variable Any 0fea 00d8 | | Load_Top At_Offset_0 0feb 1c00 | | Execute_Immediate Run_Utility,0x0 0fec e001 | | Load 0x0,0x1 0fed 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 0fee 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0fef 02c7 | | Declare_Variable Any 0ff0 00d8 | | Load_Top At_Offset_0 0ff1 1c00 | | Execute_Immediate Run_Utility,0x0 0ff2 BODY_0fe0: 0ff2 e5fd | | Load 0x2,-0x3 0ff3 0092 1ed4 | | Action Push_String_Extended,0x1ed4 ; "Primary_Unit" 0ff5 8265 | e | Call 0x1,0x65 0ff6 e005 | | Load 0x0,0x5 0ff7 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0ff8 00d9 | | Load_Top At_Offset_1 0ff9 e5fd | | Load 0x2,-0x3 0ffa 6065 |`e | Indirect_Literal Discrete,0x1060,{0x00000000, 0x00008165} 0ffb e5fe | | Load 0x2,-0x2 0ffc e5ff | | Load 0x2,-0x1 0ffd 8266 | f | Call 0x1,0x66 0ffe c404 | | Store 0x2,0x4 0fff 005b | [ | Store_Top Discrete,At_Offset_3 1000 00da | | Load_Top At_Offset_2 1001 6806 |h | Jump_Zero 0x1008 1002 e002 | | Load 0x0,0x2 1003 1810 | | Execute Package,Field_Execute,Field_Number 0x10 1004 c5fc | | Store 0x2,-0x4 1005 00da | | Load_Top At_Offset_2 1006 a5fb | | Store_Unchecked 0x2,-0x5 1007 4504 |E | Exit_Suprogram New_Top_Offset 0x4 1008 00d8 | | Load_Top At_Offset_0 1009 e001 | | Load 0x0,0x1 100a 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 100b 183c | < | Execute Package,Field_Execute,Field_Number 0x3c 100c c403 | | Store 0x2,0x3 100d 00d9 | | Load_Top At_Offset_1 100e e001 | | Load 0x0,0x1 100f 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 1010 180f | | Execute Package,Field_Execute,Field_Number 0xf 1011 700f |p | Jump_Nonzero 0x1021 1012 00da | | Load_Top At_Offset_2 1013 e5fc | | Load 0x2,-0x4 1014 0120 | | Execute Any,Is_Value 1015 6803 |h | Jump_Zero 0x1019 1016 e002 | | Load 0x0,0x2 1017 1b0f | | Execute Package,Field_Read,Field_Number 0xf 1018 7801 |x | Jump 0x101a 1019 e5fc | | Load 0x2,-0x4 101a 00db | | Load_Top At_Offset_3 101b e001 | | Load 0x0,0x1 101c 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 101d 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 101e c5fc | | Store 0x2,-0x4 101f 005b | [ | Store_Top Discrete,At_Offset_3 1020 7803 |x | Jump 0x1024 1021 e002 | | Load 0x0,0x2 1022 1810 | | Execute Package,Field_Execute,Field_Number 0x10 1023 c5fc | | Store 0x2,-0x4 1024 00da | | Load_Top At_Offset_2 1025 a5fb | | Store_Unchecked 0x2,-0x5 1026 4504 |E | Exit_Suprogram New_Top_Offset 0x4 1027 TRAP_0fe0: 1027 e005 | | Load 0x0,0x5 1028 1b17 | | Execute Package,Field_Read,Field_Number 0x17 1029 010f | | Execute Exception,Equal 102a 6819 |h | Jump_Zero 0x1044 102b e005 | | Load 0x0,0x5 102c 181b | | Execute Package,Field_Execute,Field_Number 0x1b 102d a5fb | | Store_Unchecked 0x2,-0x5 102e e5fd | | Load 0x2,-0x3 102f 4801 |H | Short_Literal 0x1 1030 4801 |H | Short_Literal 0x1 1031 e004 | | Load 0x0,0x4 1032 1b0f | | Execute Package,Field_Read,Field_Number 0xf 1033 0334 | 4 | Declare_Variable Array,With_Constraint 1034 e5fe | | Load 0x2,-0x2 1035 e006 | | Load 0x0,0x6 1036 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 1037 e004 | | Load 0x0,0x4 1038 1b0e | | Execute Package,Field_Read,Field_Number 0xe 1039 0119 | | Execute Any,Check_In_Formal_Type 103a 4801 |H | Short_Literal 0x1 103b 00da | | Load_Top At_Offset_2 103c 01d6 | | Execute Vector,Field_Write 103d 6022 |`" | Indirect_Literal Discrete,0x1060,{0x00000000, 0x00008165} 103e e005 | | Load 0x0,0x5 103f 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 1040 e002 | | Load 0x0,0x2 1041 1810 | | Execute Package,Field_Execute,Field_Number 0x10 1042 c5fc | | Store 0x2,-0x4 1043 4504 |E | Exit_Suprogram New_Top_Offset 0x4 1044 e5fd | | Load 0x2,-0x3 1045 0092 1ed5 | | Action Push_String_Extended,0x1ed5 ; "Target_Builder.Unit.Primary_Unit" 1047 e007 | | Load 0x0,0x7 1048 180f | | Execute Package,Field_Execute,Field_Number 0xf 1049 e002 | | Load 0x0,0x2 104a 1810 | | Execute Package,Field_Execute,Field_Number 0x10 104b c5fc | | Store 0x2,-0x4 104c 4801 |H | Short_Literal 0x1 104d 4801 |H | Short_Literal 0x1 104e e004 | | Load 0x0,0x4 104f 1b0f | | Execute Package,Field_Read,Field_Number 0xf 1050 0334 | 4 | Declare_Variable Array,With_Constraint 1051 e5fe | | Load 0x2,-0x2 1052 e006 | | Load 0x0,0x6 1053 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 1054 e004 | | Load 0x0,0x4 1055 1b0e | | Execute Package,Field_Read,Field_Number 0xe 1056 0119 | | Execute Any,Check_In_Formal_Type 1057 4801 |H | Short_Literal 0x1 1058 00da | | Load_Top At_Offset_2 1059 01d6 | | Execute Vector,Field_Write 105a 6005 |` | Indirect_Literal Discrete,0x1060,{0x00000000, 0x00008165} 105b e005 | | Load 0x0,0x5 105c 1813 | | Execute Package,Field_Execute,Field_Number 0x13 105d a5fb | | Store_Unchecked 0x2,-0x5 105e 4504 |E | Exit_Suprogram New_Top_Offset 0x4 105f 0000 | | .XXX[0x1] 1060 0000 0000 | | .LITERAL {0x00000000, 0x00008165} 1064 0000 0000 | | .BLANK 0000[0x4] 1068 ; -------------------------------------------------------------------------------------- 1068 ; SUBPROGRAM 1068 ; -------------------------------------------------------------------------------------- 1068 107a | z | .CONST 0x107a ; Address of begin 1069 10af | | .CONST 0x10af ; Address of exception handler 106a 0004 | | .CONST 0x0004 ; Number of locals 106b INIT_1068: 106b e005 | | Load 0x0,0x5 106c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 106d 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 106e e001 | | Load 0x0,0x1 106f 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 1070 1b0d | | Execute Package,Field_Read,Field_Number 0xd 1071 02c7 | | Declare_Variable Any 1072 00d8 | | Load_Top At_Offset_0 1073 1c00 | | Execute_Immediate Run_Utility,0x0 1074 e001 | | Load 0x0,0x1 1075 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 1076 1b0d | | Execute Package,Field_Read,Field_Number 0xd 1077 02c7 | | Declare_Variable Any 1078 00d8 | | Load_Top At_Offset_0 1079 1c00 | | Execute_Immediate Run_Utility,0x0 107a BODY_1068: 107a e5fd | | Load 0x2,-0x3 107b 0092 1ed6 | | Action Push_String_Extended,0x1ed6 ; "Secondary_Unit" 107d 8265 | e | Call 0x1,0x65 107e e005 | | Load 0x0,0x5 107f 1b0d | | Execute Package,Field_Read,Field_Number 0xd 1080 00da | | Load_Top At_Offset_2 1081 e5fd | | Load 0x2,-0x3 1082 6065 |`e | Indirect_Literal Discrete,0x10e8,{0x00000000, 0x00008168} 1083 e5fe | | Load 0x2,-0x2 1084 e5ff | | Load 0x2,-0x1 1085 8266 | f | Call 0x1,0x66 1086 c403 | | Store 0x2,0x3 1087 005b | [ | Store_Top Discrete,At_Offset_3 1088 00da | | Load_Top At_Offset_2 1089 6806 |h | Jump_Zero 0x1090 108a e002 | | Load 0x0,0x2 108b 1810 | | Execute Package,Field_Execute,Field_Number 0x10 108c c5fc | | Store 0x2,-0x4 108d 00da | | Load_Top At_Offset_2 108e a5fb | | Store_Unchecked 0x2,-0x5 108f 4504 |E | Exit_Suprogram New_Top_Offset 0x4 1090 00d9 | | Load_Top At_Offset_1 1091 e001 | | Load 0x0,0x1 1092 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 1093 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39 1094 c404 | | Store 0x2,0x4 1095 00d8 | | Load_Top At_Offset_0 1096 e001 | | Load 0x0,0x1 1097 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 1098 180f | | Execute Package,Field_Execute,Field_Number 0xf 1099 700f |p | Jump_Nonzero 0x10a9 109a 00da | | Load_Top At_Offset_2 109b e5fc | | Load 0x2,-0x4 109c 0120 | | Execute Any,Is_Value 109d 6803 |h | Jump_Zero 0x10a1 109e e002 | | Load 0x0,0x2 109f 1b0f | | Execute Package,Field_Read,Field_Number 0xf 10a0 7801 |x | Jump 0x10a2 10a1 e5fc | | Load 0x2,-0x4 10a2 00da | | Load_Top At_Offset_2 10a3 e001 | | Load 0x0,0x1 10a4 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 10a5 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 10a6 c5fc | | Store 0x2,-0x4 10a7 005b | [ | Store_Top Discrete,At_Offset_3 10a8 7803 |x | Jump 0x10ac 10a9 e002 | | Load 0x0,0x2 10aa 1810 | | Execute Package,Field_Execute,Field_Number 0x10 10ab c5fc | | Store 0x2,-0x4 10ac 00da | | Load_Top At_Offset_2 10ad a5fb | | Store_Unchecked 0x2,-0x5 10ae 4504 |E | Exit_Suprogram New_Top_Offset 0x4 10af TRAP_1068: 10af e005 | | Load 0x0,0x5 10b0 1b17 | | Execute Package,Field_Read,Field_Number 0x17 10b1 010f | | Execute Exception,Equal 10b2 6819 |h | Jump_Zero 0x10cc 10b3 e005 | | Load 0x0,0x5 10b4 181b | | Execute Package,Field_Execute,Field_Number 0x1b 10b5 a5fb | | Store_Unchecked 0x2,-0x5 10b6 e5fd | | Load 0x2,-0x3 10b7 4801 |H | Short_Literal 0x1 10b8 4801 |H | Short_Literal 0x1 10b9 e004 | | Load 0x0,0x4 10ba 1b0f | | Execute Package,Field_Read,Field_Number 0xf 10bb 0334 | 4 | Declare_Variable Array,With_Constraint 10bc e5fe | | Load 0x2,-0x2 10bd e006 | | Load 0x0,0x6 10be 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 10bf e004 | | Load 0x0,0x4 10c0 1b0e | | Execute Package,Field_Read,Field_Number 0xe 10c1 0119 | | Execute Any,Check_In_Formal_Type 10c2 4801 |H | Short_Literal 0x1 10c3 00da | | Load_Top At_Offset_2 10c4 01d6 | | Execute Vector,Field_Write 10c5 6022 |`" | Indirect_Literal Discrete,0x10e8,{0x00000000, 0x00008168} 10c6 e005 | | Load 0x0,0x5 10c7 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 10c8 e002 | | Load 0x0,0x2 10c9 1810 | | Execute Package,Field_Execute,Field_Number 0x10 10ca c5fc | | Store 0x2,-0x4 10cb 4504 |E | Exit_Suprogram New_Top_Offset 0x4 10cc e5fd | | Load 0x2,-0x3 10cd 0092 1ed7 | | Action Push_String_Extended,0x1ed7 ; "Target_Builder.Unit.Secondary_Unit" 10cf e007 | | Load 0x0,0x7 10d0 180f | | Execute Package,Field_Execute,Field_Number 0xf 10d1 e002 | | Load 0x0,0x2 10d2 1810 | | Execute Package,Field_Execute,Field_Number 0x10 10d3 c5fc | | Store 0x2,-0x4 10d4 4801 |H | Short_Literal 0x1 10d5 4801 |H | Short_Literal 0x1 10d6 e004 | | Load 0x0,0x4 10d7 1b0f | | Execute Package,Field_Read,Field_Number 0xf 10d8 0334 | 4 | Declare_Variable Array,With_Constraint 10d9 e5fe | | Load 0x2,-0x2 10da e006 | | Load 0x0,0x6 10db 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 10dc e004 | | Load 0x0,0x4 10dd 1b0e | | Execute Package,Field_Read,Field_Number 0xe 10de 0119 | | Execute Any,Check_In_Formal_Type 10df 4801 |H | Short_Literal 0x1 10e0 00da | | Load_Top At_Offset_2 10e1 01d6 | | Execute Vector,Field_Write 10e2 6005 |` | Indirect_Literal Discrete,0x10e8,{0x00000000, 0x00008168} 10e3 e005 | | Load 0x0,0x5 10e4 1813 | | Execute Package,Field_Execute,Field_Number 0x13 10e5 a5fb | | Store_Unchecked 0x2,-0x5 10e6 4504 |E | Exit_Suprogram New_Top_Offset 0x4 10e7 0000 | | .XXX[0x1] 10e8 0000 0000 | | .LITERAL {0x00000000, 0x00008168} 10ec 0000 0000 | | .BLANK 0000[0x4] 10f0 ; -------------------------------------------------------------------------------------- 10f0 ; SUBPROGRAM 10f0 ; -------------------------------------------------------------------------------------- 10f0 10fc | | .CONST 0x10fc ; Address of begin 10f1 112b | + | .CONST 0x112b ; Address of exception handler 10f2 0003 | | .CONST 0x0003 ; Number of locals 10f3 INIT_10f0: 10f3 e005 | | Load 0x0,0x5 10f4 1b0d | | Execute Package,Field_Read,Field_Number 0xd 10f5 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 10f6 e001 | | Load 0x0,0x1 10f7 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 10f8 1b0d | | Execute Package,Field_Read,Field_Number 0xd 10f9 02c7 | | Declare_Variable Any 10fa 00d8 | | Load_Top At_Offset_0 10fb 1c00 | | Execute_Immediate Run_Utility,0x0 10fc BODY_10f0: 10fc e5fd | | Load 0x2,-0x3 10fd 0092 1ed8 | | Action Push_String_Extended,0x1ed8 ; "Secondary_Prefix" 10ff 8265 | e | Call 0x1,0x65 1100 e005 | | Load 0x0,0x5 1101 1b0d | | Execute Package,Field_Read,Field_Number 0xd 1102 00d9 | | Load_Top At_Offset_1 1103 e5fd | | Load 0x2,-0x3 1104 604b |`K | Indirect_Literal Discrete,0x1150,{0x00000000, 0x00008167} 1105 e5fe | | Load 0x2,-0x2 1106 e5ff | | Load 0x2,-0x1 1107 8266 | f | Call 0x1,0x66 1108 c403 | | Store 0x2,0x3 1109 005a | Z | Store_Top Discrete,At_Offset_2 110a 00d9 | | Load_Top At_Offset_1 110b 6803 |h | Jump_Zero 0x110f 110c 0092 1ea6 | | Action Push_String_Extended,0x1ea6 ; "<error>" 110e 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 110f 00d8 | | Load_Top At_Offset_0 1110 e001 | | Load 0x0,0x1 1111 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 1112 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37 1113 6803 |h | Jump_Zero 0x1117 1114 00d8 | | Load_Top At_Offset_0 1115 801a | | Call 0x0,0x1a 1116 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 1117 e5fd | | Load 0x2,-0x3 1118 4801 |H | Short_Literal 0x1 1119 4801 |H | Short_Literal 0x1 111a e004 | | Load 0x0,0x4 111b 1b0f | | Execute Package,Field_Read,Field_Number 0xf 111c 0334 | 4 | Declare_Variable Array,With_Constraint 111d e5fe | | Load 0x2,-0x2 111e e006 | | Load 0x0,0x6 111f 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 1120 e004 | | Load 0x0,0x4 1121 1b0e | | Execute Package,Field_Read,Field_Number 0xe 1122 0119 | | Execute Any,Check_In_Formal_Type 1123 4801 |H | Short_Literal 0x1 1124 00da | | Load_Top At_Offset_2 1125 01d6 | | Execute Vector,Field_Write 1126 6025 |`% | Indirect_Literal Discrete,0x114c,{0x00000000, 0x00008188} 1127 e005 | | Load 0x0,0x5 1128 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 1129 00ea | | Load_Encached Null_String_Cache 112a 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 112b TRAP_10f0: 112b e005 | | Load 0x0,0x5 112c 1b17 | | Execute Package,Field_Read,Field_Number 0x17 112d 010f | | Execute Exception,Equal 112e 6815 |h | Jump_Zero 0x1144 112f e5fd | | Load 0x2,-0x3 1130 4801 |H | Short_Literal 0x1 1131 4801 |H | Short_Literal 0x1 1132 e004 | | Load 0x0,0x4 1133 1b0f | | Execute Package,Field_Read,Field_Number 0xf 1134 0334 | 4 | Declare_Variable Array,With_Constraint 1135 e5fe | | Load 0x2,-0x2 1136 e006 | | Load 0x0,0x6 1137 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 1138 e004 | | Load 0x0,0x4 1139 1b0e | | Execute Package,Field_Read,Field_Number 0xe 113a 0119 | | Execute Any,Check_In_Formal_Type 113b 4801 |H | Short_Literal 0x1 113c 00da | | Load_Top At_Offset_2 113d 01d6 | | Execute Vector,Field_Write 113e 6011 |` | Indirect_Literal Discrete,0x1150,{0x00000000, 0x00008167} 113f e005 | | Load 0x0,0x5 1140 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 1141 0092 1ea6 | | Action Push_String_Extended,0x1ea6 ; "<error>" 1143 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 1144 e5fd | | Load 0x2,-0x3 1145 0092 1ed9 | | Action Push_String_Extended,0x1ed9 ; "Target_Builder.Unit.Secondary_Prefix" 1147 e007 | | Load 0x0,0x7 1148 180f | | Execute Package,Field_Execute,Field_Number 0xf 1149 0092 1ea6 | | Action Push_String_Extended,0x1ea6 ; "<error>" 114b 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 114c 0000 0000 | | .LITERAL {0x00000000, 0x00008188} 1150 0000 0000 | | .LITERAL {0x00000000, 0x00008167} 1154 0000 0000 | | .BLANK 0000[0x4] 1158 ; -------------------------------------------------------------------------------------- 1158 ; SUBPROGRAM 1158 ; -------------------------------------------------------------------------------------- 1158 1164 | d | .CONST 0x1164 ; Address of begin 1159 1193 | | .CONST 0x1193 ; Address of exception handler 115a 0003 | | .CONST 0x0003 ; Number of locals 115b INIT_1158: 115b e005 | | Load 0x0,0x5 115c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 115d 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 115e e001 | | Load 0x0,0x1 115f 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 1160 1b0d | | Execute Package,Field_Read,Field_Number 0xd 1161 02c7 | | Declare_Variable Any 1162 00d8 | | Load_Top At_Offset_0 1163 1c00 | | Execute_Immediate Run_Utility,0x0 1164 BODY_1158: 1164 e5fd | | Load 0x2,-0x3 1165 0092 1eda | | Action Push_String_Extended,0x1eda ; "Secondary_Suffix" 1167 8265 | e | Call 0x1,0x65 1168 e005 | | Load 0x0,0x5 1169 1b0d | | Execute Package,Field_Read,Field_Number 0xd 116a 00d9 | | Load_Top At_Offset_1 116b e5fd | | Load 0x2,-0x3 116c 67e3 |g | Indirect_Literal Discrete,0x1150,{0x00000000, 0x00008167} 116d e5fe | | Load 0x2,-0x2 116e e5ff | | Load 0x2,-0x1 116f 8266 | f | Call 0x1,0x66 1170 c403 | | Store 0x2,0x3 1171 005a | Z | Store_Top Discrete,At_Offset_2 1172 00d9 | | Load_Top At_Offset_1 1173 6803 |h | Jump_Zero 0x1177 1174 0092 1ea6 | | Action Push_String_Extended,0x1ea6 ; "<error>" 1176 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 1177 00d8 | | Load_Top At_Offset_0 1178 e001 | | Load 0x0,0x1 1179 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 117a 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37 117b 6803 |h | Jump_Zero 0x117f 117c 00d8 | | Load_Top At_Offset_0 117d 801b | | Call 0x0,0x1b 117e 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 117f e5fd | | Load 0x2,-0x3 1180 4801 |H | Short_Literal 0x1 1181 4801 |H | Short_Literal 0x1 1182 e004 | | Load 0x0,0x4 1183 1b0f | | Execute Package,Field_Read,Field_Number 0xf 1184 0334 | 4 | Declare_Variable Array,With_Constraint 1185 e5fe | | Load 0x2,-0x2 1186 e006 | | Load 0x0,0x6 1187 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 1188 e004 | | Load 0x0,0x4 1189 1b0e | | Execute Package,Field_Read,Field_Number 0xe 118a 0119 | | Execute Any,Check_In_Formal_Type 118b 4801 |H | Short_Literal 0x1 118c 00da | | Load_Top At_Offset_2 118d 01d6 | | Execute Vector,Field_Write 118e 6025 |`% | Indirect_Literal Discrete,0x11b4,{0x00000000, 0x00008189} 118f e005 | | Load 0x0,0x5 1190 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 1191 00ea | | Load_Encached Null_String_Cache 1192 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 1193 TRAP_1158: 1193 e005 | | Load 0x0,0x5 1194 1b17 | | Execute Package,Field_Read,Field_Number 0x17 1195 010f | | Execute Exception,Equal 1196 6815 |h | Jump_Zero 0x11ac 1197 e5fd | | Load 0x2,-0x3 1198 4801 |H | Short_Literal 0x1 1199 4801 |H | Short_Literal 0x1 119a e004 | | Load 0x0,0x4 119b 1b0f | | Execute Package,Field_Read,Field_Number 0xf 119c 0334 | 4 | Declare_Variable Array,With_Constraint 119d e5fe | | Load 0x2,-0x2 119e e006 | | Load 0x0,0x6 119f 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 11a0 e004 | | Load 0x0,0x4 11a1 1b0e | | Execute Package,Field_Read,Field_Number 0xe 11a2 0119 | | Execute Any,Check_In_Formal_Type 11a3 4801 |H | Short_Literal 0x1 11a4 00da | | Load_Top At_Offset_2 11a5 01d6 | | Execute Vector,Field_Write 11a6 67a9 |g | Indirect_Literal Discrete,0x1150,{0x00000000, 0x00008167} 11a7 e005 | | Load 0x0,0x5 11a8 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 11a9 0092 1ea6 | | Action Push_String_Extended,0x1ea6 ; "<error>" 11ab 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 11ac e5fd | | Load 0x2,-0x3 11ad 0092 1edb | | Action Push_String_Extended,0x1edb ; "Target_Builder.Unit.Secondary_Suffix" 11af e007 | | Load 0x0,0x7 11b0 180f | | Execute Package,Field_Execute,Field_Number 0xf 11b1 0092 1ea6 | | Action Push_String_Extended,0x1ea6 ; "<error>" 11b3 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 11b4 0000 0000 | | .LITERAL {0x00000000, 0x00008189} 11b8 ; -------------------------------------------------------------------------------------- 11b8 ; SUBPROGRAM 11b8 ; -------------------------------------------------------------------------------------- 11b8 11c1 | | .CONST 0x11c1 ; Address of begin 11b9 0004 | | .CONST 0x0004 ; Address of exception handler 11ba 0002 | | .CONST 0x0002 ; Number of locals 11bb INIT_11b8: 11bb e001 | | Load 0x0,0x1 11bc 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 11bd 1b0d | | Execute Package,Field_Read,Field_Number 0xd 11be 02c7 | | Declare_Variable Any 11bf 00d8 | | Load_Top At_Offset_0 11c0 1c00 | | Execute_Immediate Run_Utility,0x0 11c1 BODY_11b8: 11c1 4800 |H | Short_Literal 0x0 11c2 a5fb | | Store_Unchecked 0x2,-0x5 11c3 00db | | Load_Top At_Offset_3 11c4 0227 | ' | Execute Access,All_Reference 11c5 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 11c6 e5fe | | Load 0x2,-0x2 11c7 e002 | | Load 0x0,0x2 11c8 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 11c9 183e | > | Execute Package,Field_Execute,Field_Number 0x3e 11ca e001 | | Load 0x0,0x1 11cb 1b24 | $ | Execute Package,Field_Read,Field_Number 0x24 11cc 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 11cd c402 | | Store 0x2,0x2 11ce 00d8 | | Load_Top At_Offset_0 11cf e001 | | Load 0x0,0x1 11d0 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 11d1 180f | | Execute Package,Field_Execute,Field_Number 0xf 11d2 6825 |h% | Jump_Zero 0x11f8 11d3 e5fc | | Load 0x2,-0x4 11d4 4801 |H | Short_Literal 0x1 11d5 4802 |H | Short_Literal 0x2 11d6 e004 | | Load 0x0,0x4 11d7 1b0f | | Execute Package,Field_Read,Field_Number 0xf 11d8 0334 | 4 | Declare_Variable Array,With_Constraint 11d9 e5fe | | Load 0x2,-0x2 11da e006 | | Load 0x0,0x6 11db 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 11dc e004 | | Load 0x0,0x4 11dd 1b0e | | Execute Package,Field_Read,Field_Number 0xe 11de 0119 | | Execute Any,Check_In_Formal_Type 11df 4801 |H | Short_Literal 0x1 11e0 00da | | Load_Top At_Offset_2 11e1 01d6 | | Execute Vector,Field_Write 11e2 e5ff | | Load 0x2,-0x1 11e3 0227 | ' | Execute Access,All_Reference 11e4 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 11e5 e001 | | Load 0x0,0x1 11e6 1b24 | $ | Execute Package,Field_Read,Field_Number 0x24 11e7 1820 | | Execute Package,Field_Execute,Field_Number 0x20 11e8 e004 | | Load 0x0,0x4 11e9 1b0e | | Execute Package,Field_Read,Field_Number 0xe 11ea 0119 | | Execute Any,Check_In_Formal_Type 11eb 4802 |H | Short_Literal 0x2 11ec 00da | | Load_Top At_Offset_2 11ed 01d6 | | Execute Vector,Field_Write 11ee 6045 |`E | Indirect_Literal Discrete,0x1234,{0x00000000, 0x0000811d} 11ef e005 | | Load 0x0,0x5 11f0 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 11f1 e004 | | Load 0x0,0x4 11f2 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 11f3 603c |`< | Indirect_Literal Discrete,0x1230,{0x00000000, 0x00008193} 11f4 e005 | | Load 0x0,0x5 11f5 1813 | | Execute Package,Field_Execute,Field_Number 0x13 11f6 a5fb | | Store_Unchecked 0x2,-0x5 11f7 4505 |E | Exit_Suprogram New_Top_Offset 0x5 11f8 e5fd | | Load 0x2,-0x3 11f9 01db | | Execute Vector,Length 11fa e5fc | | Load 0x2,-0x4 11fb e5fe | | Load 0x2,-0x2 11fc e5ff | | Load 0x2,-0x1 11fd 825e | ^ | Call 0x1,0x5e 11fe 01db | | Execute Vector,Length 11ff 0273 | s | Execute Discrete,Plus 1200 4900 |I | Short_Literal 0x100 1201 027d | } | Execute Discrete,Greater 1202 6822 |h" | Jump_Zero 0x1225 1203 e5fc | | Load 0x2,-0x4 1204 4801 |H | Short_Literal 0x1 1205 4802 |H | Short_Literal 0x2 1206 e004 | | Load 0x0,0x4 1207 1b0f | | Execute Package,Field_Read,Field_Number 0xf 1208 0334 | 4 | Declare_Variable Array,With_Constraint 1209 e5fe | | Load 0x2,-0x2 120a e006 | | Load 0x0,0x6 120b 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 120c e004 | | Load 0x0,0x4 120d 1b0e | | Execute Package,Field_Read,Field_Number 0xe 120e 0119 | | Execute Any,Check_In_Formal_Type 120f 4801 |H | Short_Literal 0x1 1210 00da | | Load_Top At_Offset_2 1211 01d6 | | Execute Vector,Field_Write 1212 4900 |I | Short_Literal 0x100 1213 e004 | | Load 0x0,0x4 1214 1812 | | Execute Package,Field_Execute,Field_Number 0x12 1215 e004 | | Load 0x0,0x4 1216 1b0e | | Execute Package,Field_Read,Field_Number 0xe 1217 0119 | | Execute Any,Check_In_Formal_Type 1218 4802 |H | Short_Literal 0x2 1219 00da | | Load_Top At_Offset_2 121a 01d6 | | Execute Vector,Field_Write 121b 6010 |` | Indirect_Literal Discrete,0x122c,{0x00000000, 0x00008163} 121c e005 | | Load 0x0,0x5 121d 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 121e e004 | | Load 0x0,0x4 121f 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 1220 600f |` | Indirect_Literal Discrete,0x1230,{0x00000000, 0x00008193} 1221 e005 | | Load 0x0,0x5 1222 1813 | | Execute Package,Field_Execute,Field_Number 0x13 1223 a5fb | | Store_Unchecked 0x2,-0x5 1224 4505 |E | Exit_Suprogram New_Top_Offset 0x5 1225 e5fd | | Load 0x2,-0x3 1226 00d9 | | Load_Top At_Offset_1 1227 8017 | | Call 0x0,0x17 1228 4505 |E | Exit_Suprogram New_Top_Offset 0x5 1229 0000 0000 | | .XXX[0x3] 122b 0000 | | 122c 0000 0000 | | .LITERAL {0x00000000, 0x00008163} 1230 0000 0000 | | .LITERAL {0x00000000, 0x00008193} 1234 0000 0000 | | .LITERAL {0x00000000, 0x0000811d} 1238 ; -------------------------------------------------------------------------------------- 1238 ; SUBPROGRAM 1238 ; -------------------------------------------------------------------------------------- 1238 1241 | A | .CONST 0x1241 ; Address of begin 1239 0004 | | .CONST 0x0004 ; Address of exception handler 123a 0002 | | .CONST 0x0002 ; Number of locals 123b INIT_1238: 123b e001 | | Load 0x0,0x1 123c 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 123d 1b0d | | Execute Package,Field_Read,Field_Number 0xd 123e 02c7 | | Declare_Variable Any 123f 00d8 | | Load_Top At_Offset_0 1240 1c00 | | Execute_Immediate Run_Utility,0x0 1241 BODY_1238: 1241 4800 |H | Short_Literal 0x0 1242 a5fb | | Store_Unchecked 0x2,-0x5 1243 00db | | Load_Top At_Offset_3 1244 0227 | ' | Execute Access,All_Reference 1245 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 1246 e5fe | | Load 0x2,-0x2 1247 e002 | | Load 0x0,0x2 1248 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 1249 183e | > | Execute Package,Field_Execute,Field_Number 0x3e 124a e001 | | Load 0x0,0x1 124b 1b24 | $ | Execute Package,Field_Read,Field_Number 0x24 124c 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 124d c402 | | Store 0x2,0x2 124e 00d8 | | Load_Top At_Offset_0 124f e001 | | Load 0x0,0x1 1250 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 1251 180f | | Execute Package,Field_Execute,Field_Number 0xf 1252 6825 |h% | Jump_Zero 0x1278 1253 e5fc | | Load 0x2,-0x4 1254 4801 |H | Short_Literal 0x1 1255 4802 |H | Short_Literal 0x2 1256 e004 | | Load 0x0,0x4 1257 1b0f | | Execute Package,Field_Read,Field_Number 0xf 1258 0334 | 4 | Declare_Variable Array,With_Constraint 1259 e5fe | | Load 0x2,-0x2 125a e006 | | Load 0x0,0x6 125b 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 125c e004 | | Load 0x0,0x4 125d 1b0e | | Execute Package,Field_Read,Field_Number 0xe 125e 0119 | | Execute Any,Check_In_Formal_Type 125f 4801 |H | Short_Literal 0x1 1260 00da | | Load_Top At_Offset_2 1261 01d6 | | Execute Vector,Field_Write 1262 e5ff | | Load 0x2,-0x1 1263 0227 | ' | Execute Access,All_Reference 1264 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 1265 e001 | | Load 0x0,0x1 1266 1b24 | $ | Execute Package,Field_Read,Field_Number 0x24 1267 1820 | | Execute Package,Field_Execute,Field_Number 0x20 1268 e004 | | Load 0x0,0x4 1269 1b0e | | Execute Package,Field_Read,Field_Number 0xe 126a 0119 | | Execute Any,Check_In_Formal_Type 126b 4802 |H | Short_Literal 0x2 126c 00da | | Load_Top At_Offset_2 126d 01d6 | | Execute Vector,Field_Write 126e 67c5 |g | Indirect_Literal Discrete,0x1234,{0x00000000, 0x0000811d} 126f e005 | | Load 0x0,0x5 1270 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 1271 e004 | | Load 0x0,0x4 1272 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 1273 6038 |`8 | Indirect_Literal Discrete,0x12ac,{0x00000000, 0x00008194} 1274 e005 | | Load 0x0,0x5 1275 1813 | | Execute Package,Field_Execute,Field_Number 0x13 1276 a5fb | | Store_Unchecked 0x2,-0x5 1277 4505 |E | Exit_Suprogram New_Top_Offset 0x5 1278 e5fc | | Load 0x2,-0x4 1279 e5fe | | Load 0x2,-0x2 127a e5ff | | Load 0x2,-0x1 127b 825d | ] | Call 0x1,0x5d 127c 01db | | Execute Vector,Length 127d e5fd | | Load 0x2,-0x3 127e 01db | | Execute Vector,Length 127f 0273 | s | Execute Discrete,Plus 1280 4900 |I | Short_Literal 0x100 1281 027d | } | Execute Discrete,Greater 1282 6822 |h" | Jump_Zero 0x12a5 1283 e5fc | | Load 0x2,-0x4 1284 4801 |H | Short_Literal 0x1 1285 4802 |H | Short_Literal 0x2 1286 e004 | | Load 0x0,0x4 1287 1b0f | | Execute Package,Field_Read,Field_Number 0xf 1288 0334 | 4 | Declare_Variable Array,With_Constraint 1289 e5fe | | Load 0x2,-0x2 128a e006 | | Load 0x0,0x6 128b 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 128c e004 | | Load 0x0,0x4 128d 1b0e | | Execute Package,Field_Read,Field_Number 0xe 128e 0119 | | Execute Any,Check_In_Formal_Type 128f 4801 |H | Short_Literal 0x1 1290 00da | | Load_Top At_Offset_2 1291 01d6 | | Execute Vector,Field_Write 1292 4900 |I | Short_Literal 0x100 1293 e004 | | Load 0x0,0x4 1294 1812 | | Execute Package,Field_Execute,Field_Number 0x12 1295 e004 | | Load 0x0,0x4 1296 1b0e | | Execute Package,Field_Read,Field_Number 0xe 1297 0119 | | Execute Any,Check_In_Formal_Type 1298 4802 |H | Short_Literal 0x2 1299 00da | | Load_Top At_Offset_2 129a 01d6 | | Execute Vector,Field_Write 129b 6790 |g | Indirect_Literal Discrete,0x122c,{0x00000000, 0x00008163} 129c e005 | | Load 0x0,0x5 129d 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 129e e004 | | Load 0x0,0x4 129f 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 12a0 600b |` | Indirect_Literal Discrete,0x12ac,{0x00000000, 0x00008194} 12a1 e005 | | Load 0x0,0x5 12a2 1813 | | Execute Package,Field_Execute,Field_Number 0x13 12a3 a5fb | | Store_Unchecked 0x2,-0x5 12a4 4505 |E | Exit_Suprogram New_Top_Offset 0x5 12a5 e5fd | | Load 0x2,-0x3 12a6 00d9 | | Load_Top At_Offset_1 12a7 8018 | | Call 0x0,0x18 12a8 4505 |E | Exit_Suprogram New_Top_Offset 0x5 12a9 0000 0000 | | .XXX[0x3] 12ab 0000 | | 12ac 0000 0000 | | .LITERAL {0x00000000, 0x00008194} 12b0 ; -------------------------------------------------------------------------------------- 12b0 ; SUBPROGRAM 12b0 ; -------------------------------------------------------------------------------------- 12b0 12bc | | .CONST 0x12bc ; Address of begin 12b1 12d3 | | .CONST 0x12d3 ; Address of exception handler 12b2 0003 | | .CONST 0x0003 ; Number of locals 12b3 INIT_12b0: 12b3 e005 | | Load 0x0,0x5 12b4 1b0d | | Execute Package,Field_Read,Field_Number 0xd 12b5 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 12b6 e001 | | Load 0x0,0x1 12b7 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 12b8 1b0d | | Execute Package,Field_Read,Field_Number 0xd 12b9 02c7 | | Declare_Variable Any 12ba 00d8 | | Load_Top At_Offset_0 12bb 1c00 | | Execute_Immediate Run_Utility,0x0 12bc BODY_12b0: 12bc e5fc | | Load 0x2,-0x4 12bd 0092 1edc | | Action Push_String_Extended,0x1edc ; "Serial_Number" 12bf 8265 | e | Call 0x1,0x65 12c0 e005 | | Load 0x0,0x5 12c1 1b0d | | Execute Package,Field_Read,Field_Number 0xd 12c2 00d9 | | Load_Top At_Offset_1 12c3 e5fc | | Load 0x2,-0x4 12c4 602f |`/ | Indirect_Literal Discrete,0x12f4,{0x00000000, 0x00008190} 12c5 e5fe | | Load 0x2,-0x2 12c6 e5ff | | Load 0x2,-0x1 12c7 8266 | f | Call 0x1,0x66 12c8 c403 | | Store 0x2,0x3 12c9 005a | Z | Store_Top Discrete,At_Offset_2 12ca 00d9 | | Load_Top At_Offset_1 12cb 6802 |h | Jump_Zero 0x12ce 12cc 4800 |H | Short_Literal 0x0 12cd 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 12ce 00d8 | | Load_Top At_Offset_0 12cf e001 | | Load 0x0,0x1 12d0 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 12d1 181f | | Execute Package,Field_Execute,Field_Number 0x1f 12d2 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 12d3 TRAP_12b0: 12d3 e005 | | Load 0x0,0x5 12d4 1b17 | | Execute Package,Field_Read,Field_Number 0x17 12d5 010f | | Execute Exception,Equal 12d6 6814 |h | Jump_Zero 0x12eb 12d7 e5fc | | Load 0x2,-0x4 12d8 4801 |H | Short_Literal 0x1 12d9 4801 |H | Short_Literal 0x1 12da e004 | | Load 0x0,0x4 12db 1b0f | | Execute Package,Field_Read,Field_Number 0xf 12dc 0334 | 4 | Declare_Variable Array,With_Constraint 12dd e5fe | | Load 0x2,-0x2 12de e006 | | Load 0x0,0x6 12df 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 12e0 e004 | | Load 0x0,0x4 12e1 1b0e | | Execute Package,Field_Read,Field_Number 0xe 12e2 0119 | | Execute Any,Check_In_Formal_Type 12e3 4801 |H | Short_Literal 0x1 12e4 00da | | Load_Top At_Offset_2 12e5 01d6 | | Execute Vector,Field_Write 12e6 600d |` | Indirect_Literal Discrete,0x12f4,{0x00000000, 0x00008190} 12e7 e005 | | Load 0x0,0x5 12e8 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 12e9 4800 |H | Short_Literal 0x0 12ea 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 12eb e5fc | | Load 0x2,-0x4 12ec 0092 1edd | | Action Push_String_Extended,0x1edd ; "Target_Builder.Unit.Serial_Number" 12ee e007 | | Load 0x0,0x7 12ef 180f | | Execute Package,Field_Execute,Field_Number 0xf 12f0 4800 |H | Short_Literal 0x0 12f1 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 12f2 0000 0000 | | .XXX[0x2] 12f4 0000 0000 | | .LITERAL {0x00000000, 0x00008190} 12f8 ; -------------------------------------------------------------------------------------- 12f8 ; SUBPROGRAM 12f8 ; -------------------------------------------------------------------------------------- 12f8 12fb | | .CONST 0x12fb ; Address of begin 12f9 0004 | | .CONST 0x0004 ; Address of exception handler 12fa 0001 | | .CONST 0x0001 ; Number of locals 12fb BODY_12f8: 12fb INIT_12f8: 12fb e264 | d | Load 0x1,0x64 12fc 6807 |h | Jump_Zero 0x1304 12fd 00db | | Load_Top At_Offset_3 12fe 0092 1ede | | Action Push_String_Extended,0x1ede ; "}?{ Check_Unit Target_Builder.Unit." 1300 e5ff | | Load 0x2,-0x1 1301 01cc | | Execute Vector,Catenate 1302 e007 | | Load 0x0,0x7 1303 1813 | | Execute Package,Field_Execute,Field_Number 0x13 1304 4503 |E | Exit_Suprogram New_Top_Offset 0x3 1305 0000 0000 | | .XXX[0x3] 1307 0000 | | 1308 ; -------------------------------------------------------------------------------------- 1308 ; SUBPROGRAM 1308 ; -------------------------------------------------------------------------------------- 1308 130e | | .CONST 0x130e ; Address of begin 1309 0004 | | .CONST 0x0004 ; Address of exception handler 130a 0002 | | .CONST 0x0002 ; Number of locals 130b INIT_1308: 130b e005 | | Load 0x0,0x5 130c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 130d 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 130e BODY_1308: 130e e005 | | Load 0x0,0x5 130f 1b0d | | Execute Package,Field_Read,Field_Number 0xd 1310 e5fc | | Load 0x2,-0x4 1311 e5ff | | Load 0x2,-0x1 1312 8012 | | Call 0x0,0x12 1313 0059 | Y | Store_Top Discrete,At_Offset_1 1314 00d8 | | Load_Top At_Offset_0 1315 6803 |h | Jump_Zero 0x1319 1316 00d8 | | Load_Top At_Offset_0 1317 a5fa | | Store_Unchecked 0x2,-0x6 1318 4505 |E | Exit_Suprogram New_Top_Offset 0x5 1319 00db | | Load_Top At_Offset_3 131a 0227 | ' | Execute Access,All_Reference 131b 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 131c e5fe | | Load 0x2,-0x2 131d e002 | | Load 0x0,0x2 131e 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 131f 183e | > | Execute Package,Field_Execute,Field_Number 0x3e 1320 e001 | | Load 0x0,0x1 1321 1b24 | $ | Execute Package,Field_Read,Field_Number 0x24 1322 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 1323 c5fb | | Store 0x2,-0x5 1324 e5fb | | Load 0x2,-0x5 1325 e001 | | Load 0x0,0x1 1326 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 1327 180f | | Execute Package,Field_Execute,Field_Number 0xf 1328 6819 |h | Jump_Zero 0x1342 1329 e5fc | | Load 0x2,-0x4 132a 4801 |H | Short_Literal 0x1 132b 4801 |H | Short_Literal 0x1 132c e004 | | Load 0x0,0x4 132d 1b0f | | Execute Package,Field_Read,Field_Number 0xf 132e 0334 | 4 | Declare_Variable Array,With_Constraint 132f e5fe | | Load 0x2,-0x2 1330 e004 | | Load 0x0,0x4 1331 181a | | Execute Package,Field_Execute,Field_Number 0x1a 1332 e004 | | Load 0x0,0x4 1333 1b0e | | Execute Package,Field_Read,Field_Number 0xe 1334 0119 | | Execute Any,Check_In_Formal_Type 1335 4801 |H | Short_Literal 0x1 1336 00da | | Load_Top At_Offset_2 1337 01d6 | | Execute Vector,Field_Write 1338 600f |` | Indirect_Literal Discrete,0x1348,{0x00000000, 0x0000816f} 1339 e005 | | Load 0x0,0x5 133a 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 133b e004 | | Load 0x0,0x4 133c 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 133d e5fd | | Load 0x2,-0x3 133e e005 | | Load 0x0,0x5 133f 1813 | | Execute Package,Field_Execute,Field_Number 0x13 1340 a5fa | | Store_Unchecked 0x2,-0x6 1341 4505 |E | Exit_Suprogram New_Top_Offset 0x5 1342 4800 |H | Short_Literal 0x0 1343 a5fa | | Store_Unchecked 0x2,-0x6 1344 4505 |E | Exit_Suprogram New_Top_Offset 0x5 1345 0000 0000 | | .XXX[0x3] 1347 0000 | | 1348 0000 0000 | | .LITERAL {0x00000000, 0x0000816f} 134c 0000 0000 | | .BLANK 0000[0x4] 1350 ; -------------------------------------------------------------------------------------- 1350 ; SUBPROGRAM 1350 ; -------------------------------------------------------------------------------------- 1350 1366 | f | .CONST 0x1366 ; Address of begin 1351 0004 | | .CONST 0x0004 ; Address of exception handler 1352 0002 | | .CONST 0x0002 ; Number of locals 1353 INIT_1350: 1353 e011 | | Load 0x0,0x11 1354 180e | | Execute Package,Field_Execute,Field_Number 0xe 1355 e011 | | Load 0x0,0x11 1356 183d | = | Execute Package,Field_Execute,Field_Number 0x3d 1357 e011 | | Load 0x0,0x11 1358 180e | | Execute Package,Field_Execute,Field_Number 0xe 1359 e011 | | Load 0x0,0x11 135a 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39 135b 484d |HM | Short_Literal 0x4d 135c e011 | | Load 0x0,0x11 135d 1b45 | E | Execute Package,Field_Read,Field_Number 0x45 135e e011 | | Load 0x0,0x11 135f 1b1c | | Execute Package,Field_Read,Field_Number 0x1c 1360 4800 |H | Short_Literal 0x0 1361 e011 | | Load 0x0,0x11 1362 1846 | F | Execute Package,Field_Execute,Field_Number 0x46 1363 00db | | Load_Top At_Offset_3 1364 e00d | | Load 0x0,0xd 1365 1871 | q | Execute Package,Field_Execute,Field_Number 0x71 1366 BODY_1350: 1366 00d8 | | Load_Top At_Offset_0 1367 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 1368 6803 |h | Jump_Zero 0x136c 1369 e005 | | Load 0x0,0x5 136a 1b17 | | Execute Package,Field_Read,Field_Number 0x17 136b 0257 | W | Execute Discrete,Raise 136c 00d8 | | Load_Top At_Offset_0 136d 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 136e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 136f 0000 | | .XXX[0x1] 1370 ; -------------------------------------------------------------------------------------- 1370 ; SUBPROGRAM 1370 ; -------------------------------------------------------------------------------------- 1370 1375 | u | .CONST 0x1375 ; Address of begin 1371 0004 | | .CONST 0x0004 ; Address of exception handler 1372 0002 | | .CONST 0x0002 ; Number of locals 1373 INIT_1370: 1373 029f 1d53 | S| Declare_Subprogram INIT_1d50,For_Call 1375 BODY_1370: 1375 e5fd | | Load 0x2,-0x3 1376 6803 |h | Jump_Zero 0x137a 1377 00db | | Load_Top At_Offset_3 1378 8267 | g | Call 0x1,0x67 1379 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 137a 8402 | | Call 0x2,0x2 137b 0831 | 1 | Execute_Immediate Raise,0x31 137c 0000 0000 | | .BLANK 0000[0x4] 1380 ; -------------------------------------------------------------------------------------- 1380 ; SUBPROGRAM 1380 ; -------------------------------------------------------------------------------------- 1380 1383 | | .CONST 0x1383 ; Address of begin 1381 0004 | | .CONST 0x0004 ; Address of exception handler 1382 0001 | | .CONST 0x0001 ; Number of locals 1383 BODY_1380: 1383 INIT_1380: 1383 00db | | Load_Top At_Offset_3 1384 e009 | | Load 0x0,0x9 1385 1865 | e | Execute Package,Field_Execute,Field_Number 0x65 1386 00db | | Load_Top At_Offset_3 1387 e001 | | Load 0x0,0x1 1388 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 1389 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 138a 7002 |p | Jump_Nonzero 0x138d 138b 00ea | | Load_Encached Null_String_Cache 138c 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 138d 00db | | Load_Top At_Offset_3 138e e009 | | Load 0x0,0x9 138f 1865 | e | Execute Package,Field_Execute,Field_Number 0x65 1390 00db | | Load_Top At_Offset_3 1391 e001 | | Load 0x0,0x1 1392 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 1393 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 1394 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 1395 0000 0000 | | .XXX[0x3] 1397 0000 | | 1398 ; -------------------------------------------------------------------------------------- 1398 ; SUBPROGRAM 1398 ; -------------------------------------------------------------------------------------- 1398 13b2 | | .CONST 0x13b2 ; Address of begin 1399 140b | | .CONST 0x140b ; Address of exception handler 139a 0005 | | .CONST 0x0005 ; Number of locals 139b INIT_1398: 139b e005 | | Load 0x0,0x5 139c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 139d 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 139e e00c | | Load 0x0,0xc 139f 1b0d | | Execute Package,Field_Read,Field_Number 0xd 13a0 02c7 | | Declare_Variable Any 13a1 00d8 | | Load_Top At_Offset_0 13a2 1c00 | | Execute_Immediate Run_Utility,0x0 13a3 e5f8 | | Load 0x2,-0x8 13a4 e001 | | Load 0x0,0x1 13a5 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 13a6 181c | | Execute Package,Field_Execute,Field_Number 0x1c 13a7 e5fe | | Load 0x2,-0x2 13a8 e5fb | | Load 0x2,-0x5 13a9 e009 | | Load 0x0,0x9 13aa 1865 | e | Execute Package,Field_Execute,Field_Number 0x65 13ab e5f8 | | Load 0x2,-0x8 13ac e001 | | Load 0x0,0x1 13ad 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 13ae 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 13af e5fb | | Load 0x2,-0x5 13b0 e009 | | Load 0x0,0x9 13b1 1878 | x | Execute Package,Field_Execute,Field_Number 0x78 13b2 BODY_1398: 13b2 e5f9 | | Load 0x2,-0x7 13b3 0092 1edf | | Action Push_String_Extended,0x1edf ; "Target_Builder.Unit.Establish_Download_Time" 13b5 e007 | | Load 0x0,0x7 13b6 180e | | Execute Package,Field_Execute,Field_Number 0xe 13b7 00db | | Load_Top At_Offset_3 13b8 6803 |h | Jump_Zero 0x13bc 13b9 00db | | Load_Top At_Offset_3 13ba a5f7 | | Store_Unchecked 0x2,-0x9 13bb 4508 |E | Exit_Suprogram New_Top_Offset 0x8 13bc 00da | | Load_Top At_Offset_2 13bd 0120 | | Execute Any,Is_Value 13be 6803 |h | Jump_Zero 0x13c2 13bf e00c | | Load 0x0,0xc 13c0 1b0d | | Execute Package,Field_Read,Field_Number 0xd 13c1 7801 |x | Jump 0x13c3 13c2 00da | | Load_Top At_Offset_2 13c3 e005 | | Load 0x0,0x5 13c4 1b0d | | Execute Package,Field_Read,Field_Number 0xd 13c5 e5fa | | Load 0x2,-0x6 13c6 e5fc | | Load 0x2,-0x4 13c7 e405 | | Load 0x2,0x5 13c8 e008 | | Load 0x0,0x8 13c9 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 13ca c402 | | Store 0x2,0x2 13cb c403 | | Store 0x2,0x3 13cc 00db | | Load_Top At_Offset_3 13cd 681c |h | Jump_Zero 0x13ea 13ce e5f9 | | Load 0x2,-0x7 13cf 4801 |H | Short_Literal 0x1 13d0 4802 |H | Short_Literal 0x2 13d1 e004 | | Load 0x0,0x4 13d2 1b0f | | Execute Package,Field_Read,Field_Number 0xf 13d3 0334 | 4 | Declare_Variable Array,With_Constraint 13d4 00db | | Load_Top At_Offset_3 13d5 e004 | | Load 0x0,0x4 13d6 1810 | | Execute Package,Field_Execute,Field_Number 0x10 13d7 e004 | | Load 0x0,0x4 13d8 1b0e | | Execute Package,Field_Read,Field_Number 0xe 13d9 0119 | | Execute Any,Check_In_Formal_Type 13da 4801 |H | Short_Literal 0x1 13db 00da | | Load_Top At_Offset_2 13dc 01d6 | | Execute Vector,Field_Write 13dd e402 | | Load 0x2,0x2 13de e005 | | Load 0x0,0x5 13df 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 13e0 e004 | | Load 0x0,0x4 13e1 1b0e | | Execute Package,Field_Read,Field_Number 0xe 13e2 0119 | | Execute Any,Check_In_Formal_Type 13e3 4802 |H | Short_Literal 0x2 13e4 00da | | Load_Top At_Offset_2 13e5 01d6 | | Execute Vector,Field_Write 13e6 605d |`] | Indirect_Literal Discrete,0x1444,{0x00000000, 0x00008137} 13e7 e005 | | Load 0x0,0x5 13e8 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 13e9 781e |x | Jump 0x1408 13ea e5f9 | | Load 0x2,-0x7 13eb 0092 1ebe | | Action Push_String_Extended,0x1ebe ; "Setting download time for => " 13ed 00db | | Load_Top At_Offset_3 13ee 01cc | | Execute Vector,Catenate 13ef 0092 1ebf | | Action Push_String_Extended,0x1ebf ; " to " 13f1 01cc | | Execute Vector,Catenate 13f2 4800 |H | Short_Literal 0x0 13f3 4800 |H | Short_Literal 0x0 13f4 4800 |H | Short_Literal 0x0 13f5 e403 | | Load 0x2,0x3 13f6 e015 | | Load 0x0,0x15 13f7 1816 | | Execute Package,Field_Execute,Field_Number 0x16 13f8 e015 | | Load 0x0,0x15 13f9 181f | | Execute Package,Field_Execute,Field_Number 0x1f 13fa 01cc | | Execute Vector,Catenate 13fb e007 | | Load 0x0,0x7 13fc 1813 | | Execute Package,Field_Execute,Field_Number 0x13 13fd 00db | | Load_Top At_Offset_3 13fe e5fb | | Load 0x2,-0x5 13ff e009 | | Load 0x0,0x9 1400 1865 | e | Execute Package,Field_Execute,Field_Number 0x65 1401 e5fd | | Load 0x2,-0x3 1402 e403 | | Load 0x2,0x3 1403 e5f8 | | Load 0x2,-0x8 1404 e001 | | Load 0x0,0x1 1405 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 1406 1856 | V | Execute Package,Field_Execute,Field_Number 0x56 1407 c402 | | Store 0x2,0x2 1408 00db | | Load_Top At_Offset_3 1409 a5f7 | | Store_Unchecked 0x2,-0x9 140a 4508 |E | Exit_Suprogram New_Top_Offset 0x8 140b TRAP_1398: 140b e005 | | Load 0x0,0x5 140c 1b17 | | Execute Package,Field_Read,Field_Number 0x17 140d 010f | | Execute Exception,Equal 140e 6816 |h | Jump_Zero 0x1425 140f e005 | | Load 0x0,0x5 1410 181b | | Execute Package,Field_Execute,Field_Number 0x1b 1411 a5f7 | | Store_Unchecked 0x2,-0x9 1412 e5f9 | | Load 0x2,-0x7 1413 4801 |H | Short_Literal 0x1 1414 4801 |H | Short_Literal 0x1 1415 e004 | | Load 0x0,0x4 1416 1b0f | | Execute Package,Field_Read,Field_Number 0xf 1417 0334 | 4 | Declare_Variable Array,With_Constraint 1418 e404 | | Load 0x2,0x4 1419 e004 | | Load 0x0,0x4 141a 1810 | | Execute Package,Field_Execute,Field_Number 0x10 141b e004 | | Load 0x0,0x4 141c 1b0e | | Execute Package,Field_Read,Field_Number 0xe 141d 0119 | | Execute Any,Check_In_Formal_Type 141e 4801 |H | Short_Literal 0x1 141f 00da | | Load_Top At_Offset_2 1420 01d6 | | Execute Vector,Field_Write 1421 601e |` | Indirect_Literal Discrete,0x1440,{0x00000000, 0x0000815e} 1422 e005 | | Load 0x0,0x5 1423 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 1424 4508 |E | Exit_Suprogram New_Top_Offset 0x8 1425 e5f9 | | Load 0x2,-0x7 1426 0092 1edf | | Action Push_String_Extended,0x1edf ; "Target_Builder.Unit.Establish_Download_Time" 1428 e007 | | Load 0x0,0x7 1429 180f | | Execute Package,Field_Execute,Field_Number 0xf 142a 4801 |H | Short_Literal 0x1 142b 4801 |H | Short_Literal 0x1 142c e004 | | Load 0x0,0x4 142d 1b0f | | Execute Package,Field_Read,Field_Number 0xf 142e 0334 | 4 | Declare_Variable Array,With_Constraint 142f 00db | | Load_Top At_Offset_3 1430 e004 | | Load 0x0,0x4 1431 1810 | | Execute Package,Field_Execute,Field_Number 0x10 1432 e004 | | Load 0x0,0x4 1433 1b0e | | Execute Package,Field_Read,Field_Number 0xe 1434 0119 | | Execute Any,Check_In_Formal_Type 1435 4801 |H | Short_Literal 0x1 1436 00da | | Load_Top At_Offset_2 1437 01d6 | | Execute Vector,Field_Write 1438 6007 |` | Indirect_Literal Discrete,0x1440,{0x00000000, 0x0000815e} 1439 e005 | | Load 0x0,0x5 143a 1813 | | Execute Package,Field_Execute,Field_Number 0x13 143b a5f7 | | Store_Unchecked 0x2,-0x9 143c 4508 |E | Exit_Suprogram New_Top_Offset 0x8 143d 0000 0000 | | .XXX[0x3] 143f 0000 | | 1440 0000 0000 | | .LITERAL {0x00000000, 0x0000815e} 1444 0000 0000 | | .LITERAL {0x00000000, 0x00008137} 1448 ; -------------------------------------------------------------------------------------- 1448 ; SUBPROGRAM 1448 ; -------------------------------------------------------------------------------------- 1448 1459 | Y | .CONST 0x1459 ; Address of begin 1449 14af | | .CONST 0x14af ; Address of exception handler 144a 0004 | | .CONST 0x0004 ; Number of locals 144b INIT_1448: 144b e005 | | Load 0x0,0x5 144c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 144d 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 144e e00c | | Load 0x0,0xc 144f 1b0d | | Execute Package,Field_Read,Field_Number 0xd 1450 02c7 | | Declare_Variable Any 1451 00d8 | | Load_Top At_Offset_0 1452 1c00 | | Execute_Immediate Run_Utility,0x0 1453 e5ff | | Load 0x2,-0x1 1454 e5fe | | Load 0x2,-0x2 1455 8267 | g | Call 0x1,0x67 1456 e5fb | | Load 0x2,-0x5 1457 e009 | | Load 0x0,0x9 1458 1878 | x | Execute Package,Field_Execute,Field_Number 0x78 1459 BODY_1448: 1459 e5f9 | | Load 0x2,-0x7 145a 0092 1edf | | Action Push_String_Extended,0x1edf ; "Target_Builder.Unit.Establish_Download_Time" 145c e007 | | Load 0x0,0x7 145d 180e | | Execute Package,Field_Execute,Field_Number 0xe 145e 00da | | Load_Top At_Offset_2 145f 6803 |h | Jump_Zero 0x1463 1460 00da | | Load_Top At_Offset_2 1461 a5f8 | | Store_Unchecked 0x2,-0x8 1462 4508 |E | Exit_Suprogram New_Top_Offset 0x8 1463 00d9 | | Load_Top At_Offset_1 1464 0120 | | Execute Any,Is_Value 1465 6803 |h | Jump_Zero 0x1469 1466 e00c | | Load 0x0,0xc 1467 1b0d | | Execute Package,Field_Read,Field_Number 0xd 1468 7801 |x | Jump 0x146a 1469 00d9 | | Load_Top At_Offset_1 146a e005 | | Load 0x0,0x5 146b 1b0d | | Execute Package,Field_Read,Field_Number 0xd 146c e5fa | | Load 0x2,-0x6 146d e5fc | | Load 0x2,-0x4 146e e404 | | Load 0x2,0x4 146f e008 | | Load 0x0,0x8 1470 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 1471 c402 | | Store 0x2,0x2 1472 c403 | | Store 0x2,0x3 1473 00da | | Load_Top At_Offset_2 1474 681c |h | Jump_Zero 0x1491 1475 e5f9 | | Load 0x2,-0x7 1476 4801 |H | Short_Literal 0x1 1477 4802 |H | Short_Literal 0x2 1478 e004 | | Load 0x0,0x4 1479 1b0f | | Execute Package,Field_Read,Field_Number 0xf 147a 0334 | 4 | Declare_Variable Array,With_Constraint 147b 00da | | Load_Top At_Offset_2 147c e004 | | Load 0x0,0x4 147d 1810 | | Execute Package,Field_Execute,Field_Number 0x10 147e e004 | | Load 0x0,0x4 147f 1b0e | | Execute Package,Field_Read,Field_Number 0xe 1480 0119 | | Execute Any,Check_In_Formal_Type 1481 4801 |H | Short_Literal 0x1 1482 00da | | Load_Top At_Offset_2 1483 01d6 | | Execute Vector,Field_Write 1484 e402 | | Load 0x2,0x2 1485 e005 | | Load 0x0,0x5 1486 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 1487 e004 | | Load 0x0,0x4 1488 1b0e | | Execute Package,Field_Read,Field_Number 0xe 1489 0119 | | Execute Any,Check_In_Formal_Type 148a 4802 |H | Short_Literal 0x2 148b 00da | | Load_Top At_Offset_2 148c 01d6 | | Execute Vector,Field_Write 148d 67b6 |g | Indirect_Literal Discrete,0x1444,{0x00000000, 0x00008137} 148e e005 | | Load 0x0,0x5 148f 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 1490 781b |x | Jump 0x14ac 1491 e5f9 | | Load 0x2,-0x7 1492 0092 1ebe | | Action Push_String_Extended,0x1ebe ; "Setting download time for => " 1494 00da | | Load_Top At_Offset_2 1495 01cc | | Execute Vector,Catenate 1496 0092 1ebf | | Action Push_String_Extended,0x1ebf ; " to " 1498 01cc | | Execute Vector,Catenate 1499 4800 |H | Short_Literal 0x0 149a 4800 |H | Short_Literal 0x0 149b 4800 |H | Short_Literal 0x0 149c e403 | | Load 0x2,0x3 149d e015 | | Load 0x0,0x15 149e 1816 | | Execute Package,Field_Execute,Field_Number 0x16 149f e015 | | Load 0x0,0x15 14a0 181f | | Execute Package,Field_Execute,Field_Number 0x1f 14a1 01cc | | Execute Vector,Catenate 14a2 e007 | | Load 0x0,0x7 14a3 1813 | | Execute Package,Field_Execute,Field_Number 0x13 14a4 e005 | | Load 0x0,0x5 14a5 1b0d | | Execute Package,Field_Read,Field_Number 0xd 14a6 e5f9 | | Load 0x2,-0x7 14a7 00db | | Load_Top At_Offset_3 14a8 e5fe | | Load 0x2,-0x2 14a9 e00d | | Load 0x0,0xd 14aa 1877 | w | Execute Package,Field_Execute,Field_Number 0x77 14ab 005b | [ | Store_Top Discrete,At_Offset_3 14ac 00da | | Load_Top At_Offset_2 14ad a5f8 | | Store_Unchecked 0x2,-0x8 14ae 4508 |E | Exit_Suprogram New_Top_Offset 0x8 14af TRAP_1448: 14af e005 | | Load 0x0,0x5 14b0 1b17 | | Execute Package,Field_Read,Field_Number 0x17 14b1 010f | | Execute Exception,Equal 14b2 6816 |h | Jump_Zero 0x14c9 14b3 e005 | | Load 0x0,0x5 14b4 181b | | Execute Package,Field_Execute,Field_Number 0x1b 14b5 a5f8 | | Store_Unchecked 0x2,-0x8 14b6 e5f9 | | Load 0x2,-0x7 14b7 4801 |H | Short_Literal 0x1 14b8 4801 |H | Short_Literal 0x1 14b9 e004 | | Load 0x0,0x4 14ba 1b0f | | Execute Package,Field_Read,Field_Number 0xf 14bb 0334 | 4 | Declare_Variable Array,With_Constraint 14bc 00db | | Load_Top At_Offset_3 14bd e004 | | Load 0x0,0x4 14be 1810 | | Execute Package,Field_Execute,Field_Number 0x10 14bf e004 | | Load 0x0,0x4 14c0 1b0e | | Execute Package,Field_Read,Field_Number 0xe 14c1 0119 | | Execute Any,Check_In_Formal_Type 14c2 4801 |H | Short_Literal 0x1 14c3 00da | | Load_Top At_Offset_2 14c4 01d6 | | Execute Vector,Field_Write 14c5 677a |gz | Indirect_Literal Discrete,0x1440,{0x00000000, 0x0000815e} 14c6 e005 | | Load 0x0,0x5 14c7 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 14c8 4508 |E | Exit_Suprogram New_Top_Offset 0x8 14c9 e5f9 | | Load 0x2,-0x7 14ca 0092 1edf | | Action Push_String_Extended,0x1edf ; "Target_Builder.Unit.Establish_Download_Time" 14cc e007 | | Load 0x0,0x7 14cd 180f | | Execute Package,Field_Execute,Field_Number 0xf 14ce 4801 |H | Short_Literal 0x1 14cf 4801 |H | Short_Literal 0x1 14d0 e004 | | Load 0x0,0x4 14d1 1b0f | | Execute Package,Field_Read,Field_Number 0xf 14d2 0334 | 4 | Declare_Variable Array,With_Constraint 14d3 00da | | Load_Top At_Offset_2 14d4 e004 | | Load 0x0,0x4 14d5 1810 | | Execute Package,Field_Execute,Field_Number 0x10 14d6 e004 | | Load 0x0,0x4 14d7 1b0e | | Execute Package,Field_Read,Field_Number 0xe 14d8 0119 | | Execute Any,Check_In_Formal_Type 14d9 4801 |H | Short_Literal 0x1 14da 00da | | Load_Top At_Offset_2 14db 01d6 | | Execute Vector,Field_Write 14dc 6763 |gc | Indirect_Literal Discrete,0x1440,{0x00000000, 0x0000815e} 14dd e005 | | Load 0x0,0x5 14de 1813 | | Execute Package,Field_Execute,Field_Number 0x13 14df a5f8 | | Store_Unchecked 0x2,-0x8 14e0 4508 |E | Exit_Suprogram New_Top_Offset 0x8 14e1 0000 0000 | | .BLANK 0000[0x7] 14e8 ; -------------------------------------------------------------------------------------- 14e8 ; SUBPROGRAM 14e8 ; -------------------------------------------------------------------------------------- 14e8 14ed | | .CONST 0x14ed ; Address of begin 14e9 0004 | | .CONST 0x0004 ; Address of exception handler 14ea 0002 | | .CONST 0x0002 ; Number of locals 14eb INIT_14e8: 14eb e002 | | Load 0x0,0x2 14ec 1b0d | | Execute Package,Field_Read,Field_Number 0xd 14ed BODY_14e8: 14ed e002 | | Load 0x0,0x2 14ee 1b0d | | Execute Package,Field_Read,Field_Number 0xd 14ef e5fd | | Load 0x2,-0x3 14f0 0120 | | Execute Any,Is_Value 14f1 6804 |h | Jump_Zero 0x14f6 14f2 e002 | | Load 0x0,0x2 14f3 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 14f4 1b11 | | Execute Package,Field_Read,Field_Number 0x11 14f5 7801 |x | Jump 0x14f7 14f6 e5fd | | Load 0x2,-0x3 14f7 6064 |`d | Indirect_Literal Discrete,0x155c,{0x00000000, 0x00004000} 14f8 e00e | | Load 0x0,0xe 14f9 1b0e | | Execute Package,Field_Read,Field_Number 0xe 14fa 4800 |H | Short_Literal 0x0 14fb e5ff | | Load 0x2,-0x1 14fc e002 | | Load 0x0,0x2 14fd 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 14fe 1813 | | Execute Package,Field_Execute,Field_Number 0x13 14ff c5fd | | Store 0x2,-0x3 1500 0059 | Y | Store_Top Discrete,At_Offset_1 1501 00d8 | | Load_Top At_Offset_0 1502 6820 |h | Jump_Zero 0x1523 1503 4801 |H | Short_Literal 0x1 1504 4802 |H | Short_Literal 0x2 1505 e004 | | Load 0x0,0x4 1506 1b0f | | Execute Package,Field_Read,Field_Number 0xf 1507 0334 | 4 | Declare_Variable Array,With_Constraint 1508 e5ff | | Load 0x2,-0x1 1509 e004 | | Load 0x0,0x4 150a 181a | | Execute Package,Field_Execute,Field_Number 0x1a 150b e004 | | Load 0x0,0x4 150c 1b0e | | Execute Package,Field_Read,Field_Number 0xe 150d 0119 | | Execute Any,Check_In_Formal_Type 150e 4801 |H | Short_Literal 0x1 150f 00da | | Load_Top At_Offset_2 1510 01d6 | | Execute Vector,Field_Write 1511 00d9 | | Load_Top At_Offset_1 1512 e004 | | Load 0x0,0x4 1513 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 1514 e004 | | Load 0x0,0x4 1515 1b0e | | Execute Package,Field_Read,Field_Number 0xe 1516 0119 | | Execute Any,Check_In_Formal_Type 1517 4802 |H | Short_Literal 0x2 1518 00da | | Load_Top At_Offset_2 1519 01d6 | | Execute Vector,Field_Write 151a 603d |`= | Indirect_Literal Discrete,0x1558,{0x00000000, 0x0000813d} 151b e005 | | Load 0x0,0x5 151c 1813 | | Execute Package,Field_Execute,Field_Number 0x13 151d a5fb | | Store_Unchecked 0x2,-0x5 151e e5fe | | Load 0x2,-0x2 151f e5fb | | Load 0x2,-0x5 1520 e005 | | Load 0x0,0x5 1521 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 1522 4503 |E | Exit_Suprogram New_Top_Offset 0x3 1523 e01c | | Load 0x0,0x1c 1524 1811 | | Execute Package,Field_Execute,Field_Number 0x11 1525 e002 | | Load 0x0,0x2 1526 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 1527 1816 | | Execute Package,Field_Execute,Field_Number 0x16 1528 c5fc | | Store 0x2,-0x4 1529 e002 | | Load 0x0,0x2 152a 1b0d | | Execute Package,Field_Read,Field_Number 0xd 152b e01c | | Load 0x0,0x1c 152c 1811 | | Execute Package,Field_Execute,Field_Number 0x11 152d e5fd | | Load 0x2,-0x3 152e e002 | | Load 0x0,0x2 152f 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 1530 1814 | | Execute Package,Field_Execute,Field_Number 0x14 1531 0059 | Y | Store_Top Discrete,At_Offset_1 1532 00d8 | | Load_Top At_Offset_0 1533 681f |h | Jump_Zero 0x1553 1534 4801 |H | Short_Literal 0x1 1535 4802 |H | Short_Literal 0x2 1536 e004 | | Load 0x0,0x4 1537 1b0f | | Execute Package,Field_Read,Field_Number 0xf 1538 0334 | 4 | Declare_Variable Array,With_Constraint 1539 e5ff | | Load 0x2,-0x1 153a e004 | | Load 0x0,0x4 153b 181a | | Execute Package,Field_Execute,Field_Number 0x1a 153c e004 | | Load 0x0,0x4 153d 1b0e | | Execute Package,Field_Read,Field_Number 0xe 153e 0119 | | Execute Any,Check_In_Formal_Type 153f 4801 |H | Short_Literal 0x1 1540 00da | | Load_Top At_Offset_2 1541 01d6 | | Execute Vector,Field_Write 1542 00d9 | | Load_Top At_Offset_1 1543 e004 | | Load 0x0,0x4 1544 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 1545 e004 | | Load 0x0,0x4 1546 1b0e | | Execute Package,Field_Read,Field_Number 0xe 1547 0119 | | Execute Any,Check_In_Formal_Type 1548 4802 |H | Short_Literal 0x2 1549 00da | | Load_Top At_Offset_2 154a 01d6 | | Execute Vector,Field_Write 154b 6008 |` | Indirect_Literal Discrete,0x1554,{0x00000000, 0x00008159} 154c e005 | | Load 0x0,0x5 154d 1813 | | Execute Package,Field_Execute,Field_Number 0x13 154e a5fb | | Store_Unchecked 0x2,-0x5 154f e5fe | | Load 0x2,-0x2 1550 e5fb | | Load 0x2,-0x5 1551 e005 | | Load 0x0,0x5 1552 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 1553 4503 |E | Exit_Suprogram New_Top_Offset 0x3 1554 0000 0000 | | .LITERAL {0x00000000, 0x00008159} 1558 0000 0000 | | .LITERAL {0x00000000, 0x0000813d} 155c 0000 0000 | | .LITERAL {0x00000000, 0x00004000} 1560 ; -------------------------------------------------------------------------------------- 1560 ; SUBPROGRAM 1560 ; -------------------------------------------------------------------------------------- 1560 1565 | e | .CONST 0x1565 ; Address of begin 1561 0004 | | .CONST 0x0004 ; Address of exception handler 1562 0002 | | .CONST 0x0002 ; Number of locals 1563 INIT_1560: 1563 e002 | | Load 0x0,0x2 1564 1b0d | | Execute Package,Field_Read,Field_Number 0xd 1565 BODY_1560: 1565 4800 |H | Short_Literal 0x0 1566 a5fd | | Store_Unchecked 0x2,-0x3 1567 e002 | | Load 0x0,0x2 1568 1b0d | | Execute Package,Field_Read,Field_Number 0xd 1569 e01c | | Load 0x0,0x1c 156a 1811 | | Execute Package,Field_Execute,Field_Number 0x11 156b e5ff | | Load 0x2,-0x1 156c e002 | | Load 0x0,0x2 156d 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 156e 1814 | | Execute Package,Field_Execute,Field_Number 0x14 156f 0059 | Y | Store_Top Discrete,At_Offset_1 1570 4503 |E | Exit_Suprogram New_Top_Offset 0x3 1571 0000 0000 | | .BLANK 0000[0x7] 1578 ; -------------------------------------------------------------------------------------- 1578 ; SUBPROGRAM 1578 ; -------------------------------------------------------------------------------------- 1578 157b | { | .CONST 0x157b ; Address of begin 1579 0004 | | .CONST 0x0004 ; Address of exception handler 157a 0001 | | .CONST 0x0001 ; Number of locals 157b BODY_1578: 157b INIT_1578: 157b e5fc | | Load 0x2,-0x4 157c 0092 1ee0 | | Action Push_String_Extended,0x1ee0 ; "Acquiring Remote Connection => " 157e e5ff | | Load 0x2,-0x1 157f 01cc | | Execute Vector,Catenate 1580 e007 | | Load 0x0,0x7 1581 1813 | | Execute Package,Field_Execute,Field_Number 0x13 1582 e005 | | Load 0x0,0x5 1583 1b0d | | Execute Package,Field_Read,Field_Number 0xd 1584 e008 | | Load 0x0,0x8 1585 1b1a | | Execute Package,Field_Read,Field_Number 0x1a 1586 e5fd | | Load 0x2,-0x3 1587 e01d | | Load 0x0,0x1d 1588 1813 | | Execute Package,Field_Execute,Field_Number 0x13 1589 e01d | | Load 0x0,0x1d 158a 1812 | | Execute Package,Field_Execute,Field_Number 0x12 158b e5ff | | Load 0x2,-0x1 158c e5fe | | Load 0x2,-0x2 158d e008 | | Load 0x0,0x8 158e 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 158f c5fb | | Store 0x2,-0x5 1590 c5fa | | Store 0x2,-0x6 1591 e5fa | | Load 0x2,-0x6 1592 6804 |h | Jump_Zero 0x1597 1593 e5fc | | Load 0x2,-0x4 1594 e5fa | | Load 0x2,-0x6 1595 e005 | | Load 0x0,0x5 1596 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 1597 4505 |E | Exit_Suprogram New_Top_Offset 0x5 1598 ; -------------------------------------------------------------------------------------- 1598 ; SUBPROGRAM 1598 ; -------------------------------------------------------------------------------------- 1598 159d | | .CONST 0x159d ; Address of begin 1599 0004 | | .CONST 0x0004 ; Address of exception handler 159a 0002 | | .CONST 0x0002 ; Number of locals 159b INIT_1598: 159b 029f 1d63 | c| Declare_Subprogram INIT_1d60,For_Call 159d BODY_1598: 159d e5fe | | Load 0x2,-0x2 159e 01db | | Execute Vector,Length 159f 7008 |p | Jump_Nonzero 0x15a8 15a0 e004 | | Load 0x0,0x4 15a1 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 15a2 4806 |H | Short_Literal 0x6 15a3 603c |`< | Indirect_Literal Discrete,0x15e0,{0x00000000, 0x0000818b} 15a4 e005 | | Load 0x0,0x5 15a5 1814 | | Execute Package,Field_Execute,Field_Number 0x14 15a6 a5f9 | | Store_Unchecked 0x2,-0x7 15a7 782a |x* | Jump 0x15d2 15a8 e5fb | | Load 0x2,-0x5 15a9 6813 |h | Jump_Zero 0x15bd 15aa e5fa | | Load 0x2,-0x6 15ab 4801 |H | Short_Literal 0x1 15ac 4801 |H | Short_Literal 0x1 15ad e004 | | Load 0x0,0x4 15ae 1b0f | | Execute Package,Field_Read,Field_Number 0xf 15af 0334 | 4 | Declare_Variable Array,With_Constraint 15b0 e5fe | | Load 0x2,-0x2 15b1 e004 | | Load 0x0,0x4 15b2 1810 | | Execute Package,Field_Execute,Field_Number 0x10 15b3 e004 | | Load 0x0,0x4 15b4 1b0e | | Execute Package,Field_Read,Field_Number 0xe 15b5 0119 | | Execute Any,Check_In_Formal_Type 15b6 4801 |H | Short_Literal 0x1 15b7 00da | | Load_Top At_Offset_2 15b8 01d6 | | Execute Vector,Field_Write 15b9 6022 |`" | Indirect_Literal Discrete,0x15dc,{0x00000000, 0x0000818e} 15ba e005 | | Load 0x0,0x5 15bb 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 15bc 4507 |E | Exit_Suprogram New_Top_Offset 0x7 15bd e005 | | Load 0x0,0x5 15be 1b0d | | Execute Package,Field_Read,Field_Number 0xd 15bf e5fc | | Load 0x2,-0x4 15c0 e00a | | Load 0x0,0xa 15c1 1b24 | $ | Execute Package,Field_Read,Field_Number 0x24 15c2 e00a | | Load 0x0,0xa 15c3 1813 | | Execute Package,Field_Execute,Field_Number 0x13 15c4 4801 |H | Short_Literal 0x1 15c5 e5ff | | Load 0x2,-0x1 15c6 e009 | | Load 0x0,0x9 15c7 1868 | h | Execute Package,Field_Execute,Field_Number 0x68 15c8 e5ff | | Load 0x2,-0x1 15c9 e009 | | Load 0x0,0x9 15ca 1869 | i | Execute Package,Field_Execute,Field_Number 0x69 15cb e5ff | | Load 0x2,-0x1 15cc 8402 | | Call 0x2,0x2 15cd e5fd | | Load 0x2,-0x3 15ce e5fe | | Load 0x2,-0x2 15cf e008 | | Load 0x0,0x8 15d0 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30 15d1 c5f9 | | Store 0x2,-0x7 15d2 e5f9 | | Load 0x2,-0x7 15d3 6804 |h | Jump_Zero 0x15d8 15d4 e5fa | | Load 0x2,-0x6 15d5 e5f9 | | Load 0x2,-0x7 15d6 e005 | | Load 0x0,0x5 15d7 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 15d8 4507 |E | Exit_Suprogram New_Top_Offset 0x7 15d9 0000 0000 | | .XXX[0x3] 15db 0000 | | 15dc 0000 0000 | | .LITERAL {0x00000000, 0x0000818e} 15e0 0000 0000 | | .LITERAL {0x00000000, 0x0000818b} 15e4 0000 0000 | | .BLANK 0000[0x4] 15e8 ; -------------------------------------------------------------------------------------- 15e8 ; SUBPROGRAM 15e8 ; -------------------------------------------------------------------------------------- 15e8 15f3 | | .CONST 0x15f3 ; Address of begin 15e9 165b | [ | .CONST 0x165b ; Address of exception handler 15ea 0002 | | .CONST 0x0002 ; Number of locals 15eb INIT_15e8: 15eb e002 | | Load 0x0,0x2 15ec 1b2e | . | Execute Package,Field_Read,Field_Number 0x2e 15ed 0322 | " | Declare_Variable Record 15ee 00db | | Load_Top At_Offset_3 15ef e009 | | Load 0x0,0x9 15f0 1863 | c | Execute Package,Field_Execute,Field_Number 0x63 15f1 00d9 | | Load_Top At_Offset_1 15f2 017d | } | Execute Record,Structure_Write 15f3 BODY_15e8: 15f3 00d8 | | Load_Top At_Offset_0 15f4 e5fe | | Load 0x2,-0x2 15f5 e5fb | | Load 0x2,-0x5 15f6 e5fc | | Load 0x2,-0x4 15f7 e00f | | Load 0x0,0xf 15f8 1814 | | Execute Package,Field_Execute,Field_Number 0x14 15f9 7022 |p" | Jump_Nonzero 0x161c 15fa e5f9 | | Load 0x2,-0x7 15fb 4801 |H | Short_Literal 0x1 15fc 4802 |H | Short_Literal 0x2 15fd e004 | | Load 0x0,0x4 15fe 1b0f | | Execute Package,Field_Read,Field_Number 0xf 15ff 0334 | 4 | Declare_Variable Array,With_Constraint 1600 e5fc | | Load 0x2,-0x4 1601 e004 | | Load 0x0,0x4 1602 1810 | | Execute Package,Field_Execute,Field_Number 0x10 1603 e004 | | Load 0x0,0x4 1604 1b0e | | Execute Package,Field_Read,Field_Number 0xe 1605 0119 | | Execute Any,Check_In_Formal_Type 1606 4801 |H | Short_Literal 0x1 1607 00da | | Load_Top At_Offset_2 1608 01d6 | | Execute Vector,Field_Write 1609 e5fb | | Load 0x2,-0x5 160a e004 | | Load 0x0,0x4 160b 1810 | | Execute Package,Field_Execute,Field_Number 0x10 160c e004 | | Load 0x0,0x4 160d 1b0e | | Execute Package,Field_Read,Field_Number 0xe 160e 0119 | | Execute Any,Check_In_Formal_Type 160f 4802 |H | Short_Literal 0x2 1610 00da | | Load_Top At_Offset_2 1611 01d6 | | Execute Vector,Field_Write 1612 6079 |`y | Indirect_Literal Discrete,0x168c,{0x00000000, 0x000081c5} 1613 e005 | | Load 0x0,0x5 1614 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 1615 e004 | | Load 0x0,0x4 1616 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 1617 6074 |`t | Indirect_Literal Discrete,0x168c,{0x00000000, 0x000081c5} 1618 e005 | | Load 0x0,0x5 1619 1813 | | Execute Package,Field_Execute,Field_Number 0x13 161a a5f8 | | Store_Unchecked 0x2,-0x8 161b 4508 |E | Exit_Suprogram New_Top_Offset 0x8 161c 00db | | Load_Top At_Offset_3 161d e009 | | Load 0x0,0x9 161e 188c | | Execute Package,Field_Execute,Field_Number 0x8c 161f 01db | | Execute Vector,Length 1620 7001 |p | Jump_Nonzero 0x1622 1621 4508 |E | Exit_Suprogram New_Top_Offset 0x8 1622 e5f8 | | Load 0x2,-0x8 1623 e5f9 | | Load 0x2,-0x7 1624 e5fa | | Load 0x2,-0x6 1625 e5fd | | Load 0x2,-0x3 1626 e5fe | | Load 0x2,-0x2 1627 00ea | | Load_Encached Null_String_Cache 1628 e5fc | | Load 0x2,-0x4 1629 e5ff | | Load 0x2,-0x1 162a e009 | | Load 0x0,0x9 162b 18b8 | | Execute Package,Field_Execute,Field_Number 0xb8 162c e5ff | | Load 0x2,-0x1 162d 826f | o | Call 0x1,0x6f 162e c5f8 | | Store 0x2,-0x8 162f e5f8 | | Load 0x2,-0x8 1630 7029 |p) | Jump_Nonzero 0x165a 1631 00d8 | | Load_Top At_Offset_0 1632 e5fe | | Load 0x2,-0x2 1633 e5fb | | Load 0x2,-0x5 1634 e5fc | | Load 0x2,-0x4 1635 e00f | | Load 0x0,0xf 1636 1815 | | Execute Package,Field_Execute,Field_Number 0x15 1637 7022 |p" | Jump_Nonzero 0x165a 1638 e5f9 | | Load 0x2,-0x7 1639 4801 |H | Short_Literal 0x1 163a 4802 |H | Short_Literal 0x2 163b e004 | | Load 0x0,0x4 163c 1b0f | | Execute Package,Field_Read,Field_Number 0xf 163d 0334 | 4 | Declare_Variable Array,With_Constraint 163e e5fc | | Load 0x2,-0x4 163f e004 | | Load 0x0,0x4 1640 1810 | | Execute Package,Field_Execute,Field_Number 0x10 1641 e004 | | Load 0x0,0x4 1642 1b0e | | Execute Package,Field_Read,Field_Number 0xe 1643 0119 | | Execute Any,Check_In_Formal_Type 1644 4801 |H | Short_Literal 0x1 1645 00da | | Load_Top At_Offset_2 1646 01d6 | | Execute Vector,Field_Write 1647 e5fb | | Load 0x2,-0x5 1648 e004 | | Load 0x0,0x4 1649 1810 | | Execute Package,Field_Execute,Field_Number 0x10 164a e004 | | Load 0x0,0x4 164b 1b0e | | Execute Package,Field_Read,Field_Number 0xe 164c 0119 | | Execute Any,Check_In_Formal_Type 164d 4802 |H | Short_Literal 0x2 164e 00da | | Load_Top At_Offset_2 164f 01d6 | | Execute Vector,Field_Write 1650 6037 |`7 | Indirect_Literal Discrete,0x1688,{0x00000000, 0x000081c6} 1651 e005 | | Load 0x0,0x5 1652 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 1653 e004 | | Load 0x0,0x4 1654 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 1655 6032 |`2 | Indirect_Literal Discrete,0x1688,{0x00000000, 0x000081c6} 1656 e005 | | Load 0x0,0x5 1657 1813 | | Execute Package,Field_Execute,Field_Number 0x13 1658 a5f8 | | Store_Unchecked 0x2,-0x8 1659 4508 |E | Exit_Suprogram New_Top_Offset 0x8 165a 4508 |E | Exit_Suprogram New_Top_Offset 0x8 165b TRAP_15e8: 165b e009 | | Load 0x0,0x9 165c 1bbc | | Execute Package,Field_Read,Field_Number 0xbc 165d 010f | | Execute Exception,Equal 165e 6823 |h# | Jump_Zero 0x1682 165f 4801 |H | Short_Literal 0x1 1660 4802 |H | Short_Literal 0x2 1661 e004 | | Load 0x0,0x4 1662 1b0f | | Execute Package,Field_Read,Field_Number 0xf 1663 0334 | 4 | Declare_Variable Array,With_Constraint 1664 0092 1ee1 | | Action Push_String_Extended,0x1ee1 ; "Change Directory Context" 1666 e004 | | Load 0x0,0x4 1667 1810 | | Execute Package,Field_Execute,Field_Number 0x10 1668 e004 | | Load 0x0,0x4 1669 1b0e | | Execute Package,Field_Read,Field_Number 0xe 166a 0119 | | Execute Any,Check_In_Formal_Type 166b 4801 |H | Short_Literal 0x1 166c 00da | | Load_Top At_Offset_2 166d 01d6 | | Execute Vector,Field_Write 166e e5ff | | Load 0x2,-0x1 166f e009 | | Load 0x0,0x9 1670 1863 | c | Execute Package,Field_Execute,Field_Number 0x63 1671 e006 | | Load 0x0,0x6 1672 184a | J | Execute Package,Field_Execute,Field_Number 0x4a 1673 e004 | | Load 0x0,0x4 1674 1b0e | | Execute Package,Field_Read,Field_Number 0xe 1675 0119 | | Execute Any,Check_In_Formal_Type 1676 4802 |H | Short_Literal 0x2 1677 00da | | Load_Top At_Offset_2 1678 01d6 | | Execute Vector,Field_Write 1679 600a |` | Indirect_Literal Discrete,0x1684,{0x00000000, 0x0000818c} 167a e005 | | Load 0x0,0x5 167b 1813 | | Execute Package,Field_Execute,Field_Number 0x13 167c a5f8 | | Store_Unchecked 0x2,-0x8 167d e5f9 | | Load 0x2,-0x7 167e e5f8 | | Load 0x2,-0x8 167f e005 | | Load 0x0,0x5 1680 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 1681 4508 |E | Exit_Suprogram New_Top_Offset 0x8 1682 0100 | | Execute Exception,Raise 1683 0000 | | .XXX[0x1] 1684 0000 0000 | | .LITERAL {0x00000000, 0x0000818c} 1688 0000 0000 | | .LITERAL {0x00000000, 0x000081c6} 168c 0000 0000 | | .LITERAL {0x00000000, 0x000081c5} 1690 ; -------------------------------------------------------------------------------------- 1690 ; SUBPROGRAM 1690 ; -------------------------------------------------------------------------------------- 1690 1696 | | .CONST 0x1696 ; Address of begin 1691 16a9 | | .CONST 0x16a9 ; Address of exception handler 1692 0002 | | .CONST 0x0002 ; Number of locals 1693 INIT_1690: 1693 00da | | Load_Top At_Offset_2 1694 e009 | | Load 0x0,0x9 1695 1890 | | Execute Package,Field_Execute,Field_Number 0x90 1696 BODY_1690: 1696 00d8 | | Load_Top At_Offset_0 1697 01db | | Execute Vector,Length 1698 7001 |p | Jump_Nonzero 0x169a 1699 4508 |E | Exit_Suprogram New_Top_Offset 0x8 169a e5f8 | | Load 0x2,-0x8 169b e5f9 | | Load 0x2,-0x7 169c e5fa | | Load 0x2,-0x6 169d e5fd | | Load 0x2,-0x3 169e e5fe | | Load 0x2,-0x2 169f 00ea | | Load_Encached Null_String_Cache 16a0 e5fb | | Load 0x2,-0x5 16a1 e5fc | | Load 0x2,-0x4 16a2 e5ff | | Load 0x2,-0x1 16a3 e009 | | Load 0x0,0x9 16a4 18b9 | | Execute Package,Field_Execute,Field_Number 0xb9 16a5 e5ff | | Load 0x2,-0x1 16a6 826f | o | Call 0x1,0x6f 16a7 c5f8 | | Store 0x2,-0x8 16a8 4508 |E | Exit_Suprogram New_Top_Offset 0x8 16a9 TRAP_1690: 16a9 e009 | | Load 0x0,0x9 16aa 1bbc | | Execute Package,Field_Read,Field_Number 0xbc 16ab 010f | | Execute Exception,Equal 16ac 6823 |h# | Jump_Zero 0x16d0 16ad 4801 |H | Short_Literal 0x1 16ae 4802 |H | Short_Literal 0x2 16af e004 | | Load 0x0,0x4 16b0 1b0f | | Execute Package,Field_Read,Field_Number 0xf 16b1 0334 | 4 | Declare_Variable Array,With_Constraint 16b2 0092 1ee2 | | Action Push_String_Extended,0x1ee2 ; "Change Library Context" 16b4 e004 | | Load 0x0,0x4 16b5 1810 | | Execute Package,Field_Execute,Field_Number 0x10 16b6 e004 | | Load 0x0,0x4 16b7 1b0e | | Execute Package,Field_Read,Field_Number 0xe 16b8 0119 | | Execute Any,Check_In_Formal_Type 16b9 4801 |H | Short_Literal 0x1 16ba 00da | | Load_Top At_Offset_2 16bb 01d6 | | Execute Vector,Field_Write 16bc e5ff | | Load 0x2,-0x1 16bd e009 | | Load 0x0,0x9 16be 1863 | c | Execute Package,Field_Execute,Field_Number 0x63 16bf e006 | | Load 0x0,0x6 16c0 184a | J | Execute Package,Field_Execute,Field_Number 0x4a 16c1 e004 | | Load 0x0,0x4 16c2 1b0e | | Execute Package,Field_Read,Field_Number 0xe 16c3 0119 | | Execute Any,Check_In_Formal_Type 16c4 4802 |H | Short_Literal 0x2 16c5 00da | | Load_Top At_Offset_2 16c6 01d6 | | Execute Vector,Field_Write 16c7 67bc |g | Indirect_Literal Discrete,0x1684,{0x00000000, 0x0000818c} 16c8 e005 | | Load 0x0,0x5 16c9 1813 | | Execute Package,Field_Execute,Field_Number 0x13 16ca a5f8 | | Store_Unchecked 0x2,-0x8 16cb e5f9 | | Load 0x2,-0x7 16cc e5f8 | | Load 0x2,-0x8 16cd e005 | | Load 0x0,0x5 16ce 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 16cf 4508 |E | Exit_Suprogram New_Top_Offset 0x8 16d0 0100 | | Execute Exception,Raise 16d1 0000 0000 | | .BLANK 0000[0x7] 16d8 ; -------------------------------------------------------------------------------------- 16d8 ; SUBPROGRAM 16d8 ; -------------------------------------------------------------------------------------- 16d8 1715 | | .CONST 0x1715 ; Address of begin 16d9 17a4 | | .CONST 0x17a4 ; Address of exception handler 16da 000a | | .CONST 0x000a ; Number of locals 16db INIT_16d8: 16db e5f7 | | Load 0x2,-0x9 16dc e5fd | | Load 0x2,-0x3 16dd e5fe | | Load 0x2,-0x2 16de e009 | | Load 0x0,0x9 16df 18bb | | Execute Package,Field_Execute,Field_Number 0xbb 16e0 00ea | | Load_Encached Null_String_Cache 16e1 e5f7 | | Load 0x2,-0x9 16e2 e5fd | | Load 0x2,-0x3 16e3 e5fe | | Load 0x2,-0x2 16e4 e009 | | Load 0x0,0x9 16e5 18ba | | Execute Package,Field_Execute,Field_Number 0xba 16e6 e002 | | Load 0x0,0x2 16e7 1b2e | . | Execute Package,Field_Read,Field_Number 0x2e 16e8 0322 | " | Declare_Variable Record 16e9 e5fe | | Load 0x2,-0x2 16ea e009 | | Load 0x0,0x9 16eb 1863 | c | Execute Package,Field_Execute,Field_Number 0x63 16ec 00d9 | | Load_Top At_Offset_1 16ed 017d | } | Execute Record,Structure_Write 16ee e5f7 | | Load 0x2,-0x9 16ef e5fd | | Load 0x2,-0x3 16f0 e5fb | | Load 0x2,-0x5 16f1 e00a | | Load 0x0,0xa 16f2 1b1d | | Execute Package,Field_Read,Field_Number 0x1d 16f3 e00a | | Load 0x0,0xa 16f4 1815 | | Execute Package,Field_Execute,Field_Number 0x15 16f5 4800 |H | Short_Literal 0x0 16f6 4801 |H | Short_Literal 0x1 16f7 e5fe | | Load 0x2,-0x2 16f8 e009 | | Load 0x0,0x9 16f9 1863 | c | Execute Package,Field_Execute,Field_Number 0x63 16fa e5ff | | Load 0x2,-0x1 16fb e01e | | Load 0x0,0x1e 16fc 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 16fd e5f7 | | Load 0x2,-0x9 16fe e5fd | | Load 0x2,-0x3 16ff e5fb | | Load 0x2,-0x5 1700 e00a | | Load 0x0,0xa 1701 1b1e | | Execute Package,Field_Read,Field_Number 0x1e 1702 e00a | | Load 0x0,0xa 1703 1815 | | Execute Package,Field_Execute,Field_Number 0x15 1704 4801 |H | Short_Literal 0x1 1705 4801 |H | Short_Literal 0x1 1706 e5fe | | Load 0x2,-0x2 1707 e009 | | Load 0x0,0x9 1708 1863 | c | Execute Package,Field_Execute,Field_Number 0x63 1709 e5ff | | Load 0x2,-0x1 170a e01e | | Load 0x0,0x1e 170b 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 170c 00da | | Load_Top At_Offset_2 170d e01f | | Load 0x0,0x1f 170e 1811 | | Execute Package,Field_Execute,Field_Number 0x11 170f e020 | | Load 0x0,0x20 1710 1843 | C | Execute Package,Field_Execute,Field_Number 0x43 1711 029f 1d7b | {| Declare_Subprogram INIT_1d78,For_Call 1713 029f 1d93 | | Declare_Subprogram INIT_1d90,For_Call 1715 BODY_16d8: 1715 e405 | | Load 0x2,0x5 1716 e5f9 | | Load 0x2,-0x7 1717 e5fc | | Load 0x2,-0x4 1718 e408 | | Load 0x2,0x8 1719 e407 | | Load 0x2,0x7 171a e406 | | Load 0x2,0x6 171b e402 | | Load 0x2,0x2 171c e404 | | Load 0x2,0x4 171d e403 | | Load 0x2,0x3 171e e5fa | | Load 0x2,-0x6 171f e5fd | | Load 0x2,-0x3 1720 e00f | | Load 0x0,0xf 1721 180d | | Execute Package,Field_Execute,Field_Number 0xd 1722 7019 |p | Jump_Nonzero 0x173c 1723 e5f7 | | Load 0x2,-0x9 1724 4801 |H | Short_Literal 0x1 1725 4801 |H | Short_Literal 0x1 1726 e004 | | Load 0x0,0x4 1727 1b0f | | Execute Package,Field_Read,Field_Number 0xf 1728 0334 | 4 | Declare_Variable Array,With_Constraint 1729 e5fd | | Load 0x2,-0x3 172a e006 | | Load 0x0,0x6 172b 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 172c e004 | | Load 0x0,0x4 172d 1b0e | | Execute Package,Field_Read,Field_Number 0xe 172e 0119 | | Execute Any,Check_In_Formal_Type 172f 4801 |H | Short_Literal 0x1 1730 00da | | Load_Top At_Offset_2 1731 01d6 | | Execute Vector,Field_Write 1732 60a1 |` | Indirect_Literal Discrete,0x17d4,{0x00000000, 0x000081bf} 1733 e005 | | Load 0x0,0x5 1734 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 1735 e004 | | Load 0x0,0x4 1736 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 1737 609c |` | Indirect_Literal Discrete,0x17d4,{0x00000000, 0x000081bf} 1738 e005 | | Load 0x0,0x5 1739 1813 | | Execute Package,Field_Execute,Field_Number 0x13 173a a5f6 | | Store_Unchecked 0x2,-0xa 173b 450a |E | Exit_Suprogram New_Top_Offset 0xa 173c e5fe | | Load 0x2,-0x2 173d e009 | | Load 0x0,0x9 173e 187d | } | Execute Package,Field_Execute,Field_Number 0x7d 173f 01db | | Execute Vector,Length 1740 0c01 | | Execute_Immediate Greater_Equal,0x1 1741 6838 |h8 | Jump_Zero 0x177a 1742 8409 | | Call 0x2,0x9 1743 e5f9 | | Load 0x2,-0x7 1744 680a |h | Jump_Zero 0x174f 1745 e5f6 | | Load 0x2,-0xa 1746 e5f7 | | Load 0x2,-0x9 1747 e5f8 | | Load 0x2,-0x8 1748 e5fb | | Load 0x2,-0x5 1749 e5fc | | Load 0x2,-0x4 174a e5fa | | Load 0x2,-0x6 174b e5fe | | Load 0x2,-0x2 174c 826f | o | Call 0x1,0x6f 174d c5f6 | | Store 0x2,-0xa 174e 782a |x* | Jump 0x1779 174f e5f6 | | Load 0x2,-0xa 1750 e5f7 | | Load 0x2,-0x9 1751 e5f8 | | Load 0x2,-0x8 1752 e5fb | | Load 0x2,-0x5 1753 e5fc | | Load 0x2,-0x4 1754 e5f7 | | Load 0x2,-0x9 1755 e5fd | | Load 0x2,-0x3 1756 e5fb | | Load 0x2,-0x5 1757 e00a | | Load 0x0,0xa 1758 1b1e | | Execute Package,Field_Read,Field_Number 0x1e 1759 e00a | | Load 0x0,0xa 175a 1815 | | Execute Package,Field_Execute,Field_Number 0x15 175b 4801 |H | Short_Literal 0x1 175c 4801 |H | Short_Literal 0x1 175d e5fe | | Load 0x2,-0x2 175e e009 | | Load 0x0,0x9 175f 1863 | c | Execute Package,Field_Execute,Field_Number 0x63 1760 e5ff | | Load 0x2,-0x1 1761 e01e | | Load 0x0,0x1e 1762 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 1763 e5f7 | | Load 0x2,-0x9 1764 e5fd | | Load 0x2,-0x3 1765 e5fb | | Load 0x2,-0x5 1766 e00a | | Load 0x0,0xa 1767 1b1d | | Execute Package,Field_Read,Field_Number 0x1d 1768 e00a | | Load 0x0,0xa 1769 1815 | | Execute Package,Field_Execute,Field_Number 0x15 176a 4800 |H | Short_Literal 0x0 176b 4801 |H | Short_Literal 0x1 176c e5fe | | Load 0x2,-0x2 176d e009 | | Load 0x0,0x9 176e 1863 | c | Execute Package,Field_Execute,Field_Number 0x63 176f e5ff | | Load 0x2,-0x1 1770 e01e | | Load 0x0,0x1e 1771 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 1772 e5fa | | Load 0x2,-0x6 1773 e5fe | | Load 0x2,-0x2 1774 e009 | | Load 0x0,0x9 1775 18d6 | | Execute Package,Field_Execute,Field_Number 0xd6 1776 e5fe | | Load 0x2,-0x2 1777 826f | o | Call 0x1,0x6f 1778 c5f6 | | Store 0x2,-0xa 1779 840a | | Call 0x2,0xa 177a e5f6 | | Load 0x2,-0xa 177b 7027 |p' | Jump_Nonzero 0x17a3 177c e405 | | Load 0x2,0x5 177d e5f9 | | Load 0x2,-0x7 177e e5fc | | Load 0x2,-0x4 177f e408 | | Load 0x2,0x8 1780 e407 | | Load 0x2,0x7 1781 e406 | | Load 0x2,0x6 1782 e402 | | Load 0x2,0x2 1783 e404 | | Load 0x2,0x4 1784 e403 | | Load 0x2,0x3 1785 e5fa | | Load 0x2,-0x6 1786 e5fd | | Load 0x2,-0x3 1787 e00f | | Load 0x0,0xf 1788 180e | | Execute Package,Field_Execute,Field_Number 0xe 1789 7019 |p | Jump_Nonzero 0x17a3 178a e5f7 | | Load 0x2,-0x9 178b 4801 |H | Short_Literal 0x1 178c 4801 |H | Short_Literal 0x1 178d e004 | | Load 0x0,0x4 178e 1b0f | | Execute Package,Field_Read,Field_Number 0xf 178f 0334 | 4 | Declare_Variable Array,With_Constraint 1790 e5fd | | Load 0x2,-0x3 1791 e006 | | Load 0x0,0x6 1792 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 1793 e004 | | Load 0x0,0x4 1794 1b0e | | Execute Package,Field_Read,Field_Number 0xe 1795 0119 | | Execute Any,Check_In_Formal_Type 1796 4801 |H | Short_Literal 0x1 1797 00da | | Load_Top At_Offset_2 1798 01d6 | | Execute Vector,Field_Write 1799 6036 |`6 | Indirect_Literal Discrete,0x17d0,{0x00000000, 0x000081c0} 179a e005 | | Load 0x0,0x5 179b 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 179c e004 | | Load 0x0,0x4 179d 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 179e 6031 |`1 | Indirect_Literal Discrete,0x17d0,{0x00000000, 0x000081c0} 179f e005 | | Load 0x0,0x5 17a0 1813 | | Execute Package,Field_Execute,Field_Number 0x13 17a1 a5f6 | | Store_Unchecked 0x2,-0xa 17a2 450a |E | Exit_Suprogram New_Top_Offset 0xa 17a3 450a |E | Exit_Suprogram New_Top_Offset 0xa 17a4 TRAP_16d8: 17a4 e009 | | Load 0x0,0x9 17a5 1bbc | | Execute Package,Field_Read,Field_Number 0xbc 17a6 010f | | Execute Exception,Equal 17a7 6823 |h# | Jump_Zero 0x17cb 17a8 4801 |H | Short_Literal 0x1 17a9 4802 |H | Short_Literal 0x2 17aa e004 | | Load 0x0,0x4 17ab 1b0f | | Execute Package,Field_Read,Field_Number 0xf 17ac 0334 | 4 | Declare_Variable Array,With_Constraint 17ad 0092 1ea9 | | Action Push_String_Extended,0x1ea9 ; "Compile" 17af e004 | | Load 0x0,0x4 17b0 1810 | | Execute Package,Field_Execute,Field_Number 0x10 17b1 e004 | | Load 0x0,0x4 17b2 1b0e | | Execute Package,Field_Read,Field_Number 0xe 17b3 0119 | | Execute Any,Check_In_Formal_Type 17b4 4801 |H | Short_Literal 0x1 17b5 00da | | Load_Top At_Offset_2 17b6 01d6 | | Execute Vector,Field_Write 17b7 e5fe | | Load 0x2,-0x2 17b8 e009 | | Load 0x0,0x9 17b9 1863 | c | Execute Package,Field_Execute,Field_Number 0x63 17ba e006 | | Load 0x0,0x6 17bb 184a | J | Execute Package,Field_Execute,Field_Number 0x4a 17bc e004 | | Load 0x0,0x4 17bd 1b0e | | Execute Package,Field_Read,Field_Number 0xe 17be 0119 | | Execute Any,Check_In_Formal_Type 17bf 4802 |H | Short_Literal 0x2 17c0 00da | | Load_Top At_Offset_2 17c1 01d6 | | Execute Vector,Field_Write 17c2 6009 |` | Indirect_Literal Discrete,0x17cc,{0x00000000, 0x0000818c} 17c3 e005 | | Load 0x0,0x5 17c4 1813 | | Execute Package,Field_Execute,Field_Number 0x13 17c5 a5f6 | | Store_Unchecked 0x2,-0xa 17c6 e5f7 | | Load 0x2,-0x9 17c7 e5f6 | | Load 0x2,-0xa 17c8 e005 | | Load 0x0,0x5 17c9 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 17ca 450a |E | Exit_Suprogram New_Top_Offset 0xa 17cb 0100 | | Execute Exception,Raise 17cc 0000 0000 | | .LITERAL {0x00000000, 0x0000818c} 17d0 0000 0000 | | .LITERAL {0x00000000, 0x000081c0} 17d4 0000 0000 | | .LITERAL {0x00000000, 0x000081bf} 17d8 ; -------------------------------------------------------------------------------------- 17d8 ; SUBPROGRAM 17d8 ; -------------------------------------------------------------------------------------- 17d8 17ec | | .CONST 0x17ec ; Address of begin 17d9 1806 | | .CONST 0x1806 ; Address of exception handler 17da 0006 | | .CONST 0x0006 ; Number of locals 17db INIT_17d8: 17db e020 | | Load 0x0,0x20 17dc 1b37 | 7 | Execute Package,Field_Read,Field_Number 0x37 17dd 02c7 | | Declare_Variable Any 17de e5fe | | Load 0x2,-0x2 17df e009 | | Load 0x0,0x9 17e0 1863 | c | Execute Package,Field_Execute,Field_Number 0x63 17e1 e01f | | Load 0x0,0x1f 17e2 1811 | | Execute Package,Field_Execute,Field_Number 0x11 17e3 a402 | | Store_Unchecked 0x2,0x2 17e4 029f 1dab | | Declare_Subprogram INIT_1da8,For_Call 17e6 029f 1dc3 | | Declare_Subprogram INIT_1dc0,For_Call 17e8 029f 1e13 | | Declare_Subprogram INIT_1e10,For_Call 17ea 029f 1e2b | +| Declare_Subprogram INIT_1e28,For_Call 17ec BODY_17d8: 17ec e5fe | | Load 0x2,-0x2 17ed e009 | | Load 0x0,0x9 17ee 1887 | | Execute Package,Field_Execute,Field_Number 0x87 17ef 01db | | Execute Vector,Length 17f0 7001 |p | Jump_Nonzero 0x17f2 17f1 450a |E | Exit_Suprogram New_Top_Offset 0xa 17f2 8405 | | Call 0x2,0x5 17f3 e5f6 | | Load 0x2,-0xa 17f4 e5f7 | | Load 0x2,-0x9 17f5 e5f8 | | Load 0x2,-0x8 17f6 e5fc | | Load 0x2,-0x4 17f7 e5fd | | Load 0x2,-0x3 17f8 00ea | | Load_Encached Null_String_Cache 17f9 4800 |H | Short_Literal 0x0 17fa 8404 | | Call 0x2,0x4 17fb 4801 |H | Short_Literal 0x1 17fc 8404 | | Call 0x2,0x4 17fd e5fa | | Load 0x2,-0x6 17fe e5fe | | Load 0x2,-0x2 17ff e009 | | Load 0x0,0x9 1800 18d7 | | Execute Package,Field_Execute,Field_Number 0xd7 1801 e5fe | | Load 0x2,-0x2 1802 826f | o | Call 0x1,0x6f 1803 c5f6 | | Store 0x2,-0xa 1804 8406 | | Call 0x2,0x6 1805 450a |E | Exit_Suprogram New_Top_Offset 0xa 1806 TRAP_17d8: 1806 e009 | | Load 0x0,0x9 1807 1bbc | | Execute Package,Field_Read,Field_Number 0xbc 1808 010f | | Execute Exception,Equal 1809 6823 |h# | Jump_Zero 0x182d 180a 4801 |H | Short_Literal 0x1 180b 4802 |H | Short_Literal 0x2 180c e004 | | Load 0x0,0x4 180d 1b0f | | Execute Package,Field_Read,Field_Number 0xf 180e 0334 | 4 | Declare_Variable Array,With_Constraint 180f 0092 1ea5 | | Action Push_String_Extended,0x1ea5 ; "Link" 1811 e004 | | Load 0x0,0x4 1812 1810 | | Execute Package,Field_Execute,Field_Number 0x10 1813 e004 | | Load 0x0,0x4 1814 1b0e | | Execute Package,Field_Read,Field_Number 0xe 1815 0119 | | Execute Any,Check_In_Formal_Type 1816 4801 |H | Short_Literal 0x1 1817 00da | | Load_Top At_Offset_2 1818 01d6 | | Execute Vector,Field_Write 1819 e5fe | | Load 0x2,-0x2 181a e009 | | Load 0x0,0x9 181b 1863 | c | Execute Package,Field_Execute,Field_Number 0x63 181c e006 | | Load 0x0,0x6 181d 184a | J | Execute Package,Field_Execute,Field_Number 0x4a 181e e004 | | Load 0x0,0x4 181f 1b0e | | Execute Package,Field_Read,Field_Number 0xe 1820 0119 | | Execute Any,Check_In_Formal_Type 1821 4802 |H | Short_Literal 0x2 1822 00da | | Load_Top At_Offset_2 1823 01d6 | | Execute Vector,Field_Write 1824 67a7 |g | Indirect_Literal Discrete,0x17cc,{0x00000000, 0x0000818c} 1825 e005 | | Load 0x0,0x5 1826 1813 | | Execute Package,Field_Execute,Field_Number 0x13 1827 a5f6 | | Store_Unchecked 0x2,-0xa 1828 e5f7 | | Load 0x2,-0x9 1829 e5f6 | | Load 0x2,-0xa 182a e005 | | Load 0x0,0x5 182b 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 182c 450a |E | Exit_Suprogram New_Top_Offset 0xa 182d 0100 | | Execute Exception,Raise 182e 0000 0000 | | .XXX[0x2] 1830 ; -------------------------------------------------------------------------------------- 1830 ; SUBPROGRAM 1830 ; -------------------------------------------------------------------------------------- 1830 1838 | 8 | .CONST 0x1838 ; Address of begin 1831 1844 | D | .CONST 0x1844 ; Address of exception handler 1832 0002 | | .CONST 0x0002 ; Number of locals 1833 INIT_1830: 1833 e002 | | Load 0x0,0x2 1834 1b0f | | Execute Package,Field_Read,Field_Number 0xf 1835 02c7 | | Declare_Variable Any 1836 00d8 | | Load_Top At_Offset_0 1837 1c00 | | Execute_Immediate Run_Utility,0x0 1838 BODY_1830: 1838 e5fe | | Load 0x2,-0x2 1839 4800 |H | Short_Literal 0x0 183a e5ff | | Load 0x2,-0x1 183b e006 | | Load 0x0,0x6 183c 181c | | Execute Package,Field_Execute,Field_Number 0x1c 183d c402 | | Store 0x2,0x2 183e e5fe | | Load 0x2,-0x2 183f 4800 |H | Short_Literal 0x0 1840 00da | | Load_Top At_Offset_2 1841 e006 | | Load 0x0,0x6 1842 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 1843 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 1844 TRAP_1830: 1844 0007 | | Action Break_Optional 1845 e002 | | Load 0x0,0x2 1846 1815 | | Execute Package,Field_Execute,Field_Number 0x15 1847 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 1848 ; -------------------------------------------------------------------------------------- 1848 ; SUBPROGRAM 1848 ; -------------------------------------------------------------------------------------- 1848 1859 | Y | .CONST 0x1859 ; Address of begin 1849 0004 | | .CONST 0x0004 ; Address of exception handler 184a 0003 | | .CONST 0x0003 ; Number of locals 184b INIT_1848: 184b e5ff | | Load 0x2,-0x1 184c 0227 | ' | Execute Access,All_Reference 184d 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 184e e402 | | Load 0x2,0x2 184f e001 | | Load 0x0,0x1 1850 1b25 | % | Execute Package,Field_Read,Field_Number 0x25 1851 1820 | | Execute Package,Field_Execute,Field_Number 0x20 1852 00d8 | | Load_Top At_Offset_0 1853 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 1854 e003 | | Load 0x0,0x3 1855 1b10 | | Execute Package,Field_Read,Field_Number 0x10 1856 1c08 | | Execute_Immediate Run_Utility,0x8 1857 00d8 | | Load_Top At_Offset_0 1858 1c00 | | Execute_Immediate Run_Utility,0x0 1859 BODY_1848: 1859 00d9 | | Load_Top At_Offset_1 185a 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 185b 6807 |h | Jump_Zero 0x1863 185c 00d9 | | Load_Top At_Offset_1 185d 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 185e e404 | | Load 0x2,0x4 185f 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 1860 e404 | | Load 0x2,0x4 1861 00cb | | Action Pop_Block_With_Result 1862 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 1863 4800 |H | Short_Literal 0x0 1864 00d9 | | Load_Top At_Offset_1 1865 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 1866 00cf | | Action Mark_Auxiliary 1867 00d9 | | Load_Top At_Offset_1 1868 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 1869 4801 |H | Short_Literal 0x1 186a 0263 | c | Execute Discrete,Above_Bound 186b 7066 |pf | Jump_Nonzero 0x18d2 186c e404 | | Load 0x2,0x4 186d 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 186e e403 | | Load 0x2,0x3 186f 0120 | | Execute Any,Is_Value 1870 6803 |h | Jump_Zero 0x1874 1871 e002 | | Load 0x0,0x2 1872 1b0f | | Execute Package,Field_Read,Field_Number 0xf 1873 7801 |x | Jump 0x1875 1874 e403 | | Load 0x2,0x3 1875 00da | | Load_Top At_Offset_2 1876 e602 | | Load 0x3,0x2 1877 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 1878 01d7 | | Execute Vector,Field_Read 1879 e001 | | Load 0x0,0x1 187a 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 187b 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 187c c403 | | Store 0x2,0x3 187d e404 | | Load 0x2,0x4 187e 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 187f 00d8 | | Load_Top At_Offset_0 1880 e602 | | Load 0x3,0x2 1881 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 1882 01d7 | | Execute Vector,Field_Read 1883 e001 | | Load 0x0,0x1 1884 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 1885 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 1886 7044 |pD | Jump_Nonzero 0x18cb 1887 e5fc | | Load 0x2,-0x4 1888 4801 |H | Short_Literal 0x1 1889 4802 |H | Short_Literal 0x2 188a e004 | | Load 0x0,0x4 188b 1b0f | | Execute Package,Field_Read,Field_Number 0xf 188c 0334 | 4 | Declare_Variable Array,With_Constraint 188d 00da | | Load_Top At_Offset_2 188e e602 | | Load 0x3,0x2 188f 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 1890 01d7 | | Execute Vector,Field_Read 1891 e001 | | Load 0x0,0x1 1892 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 1893 1810 | | Execute Package,Field_Execute,Field_Number 0x10 1894 e004 | | Load 0x0,0x4 1895 1b0e | | Execute Package,Field_Read,Field_Number 0xe 1896 0119 | | Execute Any,Check_In_Formal_Type 1897 4801 |H | Short_Literal 0x1 1898 00da | | Load_Top At_Offset_2 1899 01d6 | | Execute Vector,Field_Write 189a e5ff | | Load 0x2,-0x1 189b 0227 | ' | Execute Access,All_Reference 189c 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 189d e001 | | Load 0x0,0x1 189e 1b24 | $ | Execute Package,Field_Read,Field_Number 0x24 189f 1820 | | Execute Package,Field_Execute,Field_Number 0x20 18a0 e004 | | Load 0x0,0x4 18a1 1b0e | | Execute Package,Field_Read,Field_Number 0xe 18a2 0119 | | Execute Any,Check_In_Formal_Type 18a3 4802 |H | Short_Literal 0x2 18a4 00da | | Load_Top At_Offset_2 18a5 01d6 | | Execute Vector,Field_Write 18a6 6035 |`5 | Indirect_Literal Discrete,0x18dc,{0x00000000, 0x0000815a} 18a7 e005 | | Load 0x0,0x5 18a8 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 18a9 4801 |H | Short_Literal 0x1 18aa 4802 |H | Short_Literal 0x2 18ab e004 | | Load 0x0,0x4 18ac 1b0f | | Execute Package,Field_Read,Field_Number 0xf 18ad 0334 | 4 | Declare_Variable Array,With_Constraint 18ae e5ff | | Load 0x2,-0x1 18af 0227 | ' | Execute Access,All_Reference 18b0 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 18b1 e001 | | Load 0x0,0x1 18b2 1b24 | $ | Execute Package,Field_Read,Field_Number 0x24 18b3 1820 | | Execute Package,Field_Execute,Field_Number 0x20 18b4 e004 | | Load 0x0,0x4 18b5 1b0e | | Execute Package,Field_Read,Field_Number 0xe 18b6 0119 | | Execute Any,Check_In_Formal_Type 18b7 4801 |H | Short_Literal 0x1 18b8 00da | | Load_Top At_Offset_2 18b9 01d6 | | Execute Vector,Field_Write 18ba e5fe | | Load 0x2,-0x2 18bb e006 | | Load 0x0,0x6 18bc 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 18bd e004 | | Load 0x0,0x4 18be 1b0e | | Execute Package,Field_Read,Field_Number 0xe 18bf 0119 | | Execute Any,Check_In_Formal_Type 18c0 4802 |H | Short_Literal 0x2 18c1 00da | | Load_Top At_Offset_2 18c2 01d6 | | Execute Vector,Field_Write 18c3 6014 |` | Indirect_Literal Discrete,0x18d8,{0x00000000, 0x0000810c} 18c4 e005 | | Load 0x0,0x5 18c5 1813 | | Execute Package,Field_Execute,Field_Number 0x13 18c6 e404 | | Load 0x2,0x4 18c7 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 18c8 e404 | | Load 0x2,0x4 18c9 00cb | | Action Pop_Block_With_Result 18ca 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 18cb e403 | | Load 0x2,0x3 18cc 00d9 | | Load_Top At_Offset_1 18cd e603 | | Load 0x3,0x3 18ce 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 18cf 01d6 | | Execute Vector,Field_Write 18d0 00c8 | | Action Pop_Auxiliary_Range 18d1 3f9a |? | Loop_Increasing 0x186c 18d2 00ce | | Action Pop_Auxiliary 18d3 00d8 | | Load_Top At_Offset_0 18d4 00cb | | Action Pop_Block_With_Result 18d5 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 18d6 0000 0000 | | .XXX[0x2] 18d8 0000 0000 | | .LITERAL {0x00000000, 0x0000810c} 18dc 0000 0000 | | .LITERAL {0x00000000, 0x0000815a} 18e0 ; -------------------------------------------------------------------------------------- 18e0 ; SUBPROGRAM 18e0 ; -------------------------------------------------------------------------------------- 18e0 1905 | | .CONST 0x1905 ; Address of begin 18e1 0004 | | .CONST 0x0004 ; Address of exception handler 18e2 0003 | | .CONST 0x0003 ; Number of locals 18e3 INIT_18e0: 18e3 e001 | | Load 0x0,0x1 18e4 1b22 | " | Execute Package,Field_Read,Field_Number 0x22 18e5 1b17 | | Execute Package,Field_Read,Field_Number 0x17 18e6 0337 | 7 | Declare_Variable Array 18e7 4800 |H | Short_Literal 0x0 18e8 4804 |H | Short_Literal 0x4 18e9 00da | | Load_Top At_Offset_2 18ea 01d6 | | Execute Vector,Field_Write 18eb 4803 |H | Short_Literal 0x3 18ec 4800 |H | Short_Literal 0x0 18ed 4801 |H | Short_Literal 0x1 18ee 00d9 | | Load_Top At_Offset_1 18ef e602 | | Load 0x3,0x2 18f0 01d6 | | Execute Vector,Field_Write 18f1 3ffb |? | Loop_Increasing 0x18ed 18f2 4801 |H | Short_Literal 0x1 18f3 4805 |H | Short_Literal 0x5 18f4 00da | | Load_Top At_Offset_2 18f5 01d6 | | Execute Vector,Field_Write 18f6 e001 | | Load 0x0,0x1 18f7 1b22 | " | Execute Package,Field_Read,Field_Number 0x22 18f8 1b17 | | Execute Package,Field_Read,Field_Number 0x17 18f9 01c3 | | Execute Vector,Check_In_Type 18fa e402 | | Load 0x2,0x2 18fb e001 | | Load 0x0,0x1 18fc 1b22 | " | Execute Package,Field_Read,Field_Number 0x22 18fd 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30 18fe 00d8 | | Load_Top At_Offset_0 18ff 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 1900 e003 | | Load 0x0,0x3 1901 1b10 | | Execute Package,Field_Read,Field_Number 0x10 1902 1c08 | | Execute_Immediate Run_Utility,0x8 1903 00d8 | | Load_Top At_Offset_0 1904 1c00 | | Execute_Immediate Run_Utility,0x0 1905 BODY_18e0: 1905 00d9 | | Load_Top At_Offset_1 1906 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 1907 6807 |h | Jump_Zero 0x190f 1908 00d9 | | Load_Top At_Offset_1 1909 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 190a e404 | | Load 0x2,0x4 190b 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 190c e404 | | Load 0x2,0x4 190d 00cb | | Action Pop_Block_With_Result 190e 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 190f 4800 |H | Short_Literal 0x0 1910 00d9 | | Load_Top At_Offset_1 1911 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 1912 00cf | | Action Mark_Auxiliary 1913 00d9 | | Load_Top At_Offset_1 1914 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 1915 4801 |H | Short_Literal 0x1 1916 0263 | c | Execute Discrete,Above_Bound 1917 7038 |p8 | Jump_Nonzero 0x1950 1918 00d8 | | Load_Top At_Offset_0 1919 e602 | | Load 0x3,0x2 191a 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 191b 01d7 | | Execute Vector,Field_Read 191c e001 | | Load 0x0,0x1 191d 1b22 | " | Execute Package,Field_Read,Field_Number 0x22 191e 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32 191f c403 | | Store 0x2,0x3 1920 e403 | | Load 0x2,0x3 1921 e002 | | Load 0x0,0x2 1922 1811 | | Execute Package,Field_Execute,Field_Number 0x11 1923 6825 |h% | Jump_Zero 0x1949 1924 e5fc | | Load 0x2,-0x4 1925 4801 |H | Short_Literal 0x1 1926 4802 |H | Short_Literal 0x2 1927 e004 | | Load 0x0,0x4 1928 1b0f | | Execute Package,Field_Read,Field_Number 0xf 1929 0334 | 4 | Declare_Variable Array,With_Constraint 192a e403 | | Load 0x2,0x3 192b e006 | | Load 0x0,0x6 192c 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 192d e004 | | Load 0x0,0x4 192e 1b0e | | Execute Package,Field_Read,Field_Number 0xe 192f 0119 | | Execute Any,Check_In_Formal_Type 1930 4801 |H | Short_Literal 0x1 1931 00da | | Load_Top At_Offset_2 1932 01d6 | | Execute Vector,Field_Write 1933 e5ff | | Load 0x2,-0x1 1934 0227 | ' | Execute Access,All_Reference 1935 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 1936 e001 | | Load 0x0,0x1 1937 1b24 | $ | Execute Package,Field_Read,Field_Number 0x24 1938 1820 | | Execute Package,Field_Execute,Field_Number 0x20 1939 e004 | | Load 0x0,0x4 193a 1b0e | | Execute Package,Field_Read,Field_Number 0xe 193b 0119 | | Execute Any,Check_In_Formal_Type 193c 4802 |H | Short_Literal 0x2 193d 00da | | Load_Top At_Offset_2 193e 01d6 | | Execute Vector,Field_Write 193f 679c |g | Indirect_Literal Discrete,0x18dc,{0x00000000, 0x0000815a} 1940 e005 | | Load 0x0,0x5 1941 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 1942 e002 | | Load 0x0,0x2 1943 1810 | | Execute Package,Field_Execute,Field_Number 0x10 1944 00d9 | | Load_Top At_Offset_1 1945 e603 | | Load 0x3,0x3 1946 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 1947 01d6 | | Execute Vector,Field_Write 1948 7805 |x | Jump 0x194e 1949 e403 | | Load 0x2,0x3 194a 00d9 | | Load_Top At_Offset_1 194b e603 | | Load 0x3,0x3 194c 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 194d 01d6 | | Execute Vector,Field_Write 194e 00c8 | | Action Pop_Auxiliary_Range 194f 3fc8 |? | Loop_Increasing 0x1918 1950 00ce | | Action Pop_Auxiliary 1951 00d8 | | Load_Top At_Offset_0 1952 00cb | | Action Pop_Block_With_Result 1953 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 1954 0000 0000 | | .BLANK 0000[0x4] 1958 ; -------------------------------------------------------------------------------------- 1958 ; SUBPROGRAM 1958 ; -------------------------------------------------------------------------------------- 1958 195b | [ | .CONST 0x195b ; Address of begin 1959 0004 | | .CONST 0x0004 ; Address of exception handler 195a 0001 | | .CONST 0x0001 ; Number of locals 195b BODY_1958: 195b INIT_1958: 195b e5fd | | Load 0x2,-0x3 195c 01db | | Execute Vector,Length 195d 7012 |p | Jump_Nonzero 0x1970 195e 4801 |H | Short_Literal 0x1 195f 0092 1ee3 | | Action Push_String_Extended,0x1ee3 ; "Rs6000_Aix_Ibm" 1961 e5fb | | Load 0x2,-0x5 1962 e009 | | Load 0x0,0x9 1963 1863 | c | Execute Package,Field_Execute,Field_Number 0x63 1964 e021 | ! | Load 0x0,0x21 1965 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 1966 e00b | | Load 0x0,0xb 1967 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 1968 6805 |h | Jump_Zero 0x196e 1969 e40f | | Load 0x2,0xf 196a 0092 1ee4 | | Action Push_String_Extended,0x1ee4 ; ".exe" 196c 01cc | | Execute Vector,Catenate 196d 00ca | | Action Exit_Nullary_Function 196e 00ea | | Load_Encached Null_String_Cache 196f 00ca | | Action Exit_Nullary_Function 1970 e5fd | | Load 0x2,-0x3 1971 0335 | 5 | Declare_Variable Array,Duplicate 1972 00cd | | Action Spare6_Action 1973 00ca | | Action Exit_Nullary_Function 1974 0000 0000 | | .BLANK 0000[0x4] 1978 ; -------------------------------------------------------------------------------------- 1978 ; SUBPROGRAM 1978 ; -------------------------------------------------------------------------------------- 1978 198d | | .CONST 0x198d ; Address of begin 1979 0004 | | .CONST 0x0004 ; Address of exception handler 197a 0004 | | .CONST 0x0004 ; Number of locals 197b INIT_1978: 197b e005 | | Load 0x0,0x5 197c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 197d 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 197e e001 | | Load 0x0,0x1 197f 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 1980 1b0d | | Execute Package,Field_Read,Field_Number 0xd 1981 02c7 | | Declare_Variable Any 1982 00d8 | | Load_Top At_Offset_0 1983 1c00 | | Execute_Immediate Run_Utility,0x0 1984 e002 | | Load 0x0,0x2 1985 1b0f | | Execute Package,Field_Read,Field_Number 0xf 1986 02c7 | | Declare_Variable Any 1987 e5fa | | Load 0x2,-0x6 1988 4800 |H | Short_Literal 0x0 1989 e5fe | | Load 0x2,-0x2 198a e006 | | Load 0x0,0x6 198b 181c | | Execute Package,Field_Execute,Field_Number 0x1c 198c a604 | | Store_Unchecked 0x3,0x4 198d BODY_1978: 198d e40d | | Load 0x2,0xd 198e 700f |p | Jump_Nonzero 0x199e 198f e407 | | Load 0x2,0x7 1990 e008 | | Load 0x0,0x8 1991 1b1a | | Execute Package,Field_Read,Field_Number 0x1a 1992 e5fa | | Load 0x2,-0x6 1993 e40e | | Load 0x2,0xe 1994 e5fb | | Load 0x2,-0x5 1995 e412 | | Load 0x2,0x12 1996 826e | n | Call 0x1,0x6e 1997 c40a | | Store 0x2,0xa 1998 c407 | | Store 0x2,0x7 1999 e407 | | Load 0x2,0x7 199a 6803 |h | Jump_Zero 0x199e 199b e00a | | Load 0x0,0xa 199c 1b19 | | Execute Package,Field_Read,Field_Number 0x19 199d 0257 | W | Execute Discrete,Raise 199e e407 | | Load 0x2,0x7 199f e5fa | | Load 0x2,-0x6 19a0 e40d | | Load 0x2,0xd 19a1 e411 | | Load 0x2,0x11 19a2 e410 | | Load 0x2,0x10 19a3 e40c | | Load 0x2,0xc 19a4 e40a | | Load 0x2,0xa 19a5 e5fb | | Load 0x2,-0x5 19a6 8270 | p | Call 0x1,0x70 19a7 c407 | | Store 0x2,0x7 19a8 e407 | | Load 0x2,0x7 19a9 6803 |h | Jump_Zero 0x19ad 19aa e00a | | Load 0x0,0xa 19ab 1b19 | | Execute Package,Field_Read,Field_Number 0x19 19ac 0257 | W | Execute Discrete,Raise 19ad e407 | | Load 0x2,0x7 19ae e5fa | | Load 0x2,-0x6 19af e40d | | Load 0x2,0xd 19b0 e411 | | Load 0x2,0x11 19b1 e410 | | Load 0x2,0x10 19b2 e40c | | Load 0x2,0xc 19b3 e40a | | Load 0x2,0xa 19b4 e5fb | | Load 0x2,-0x5 19b5 8271 | q | Call 0x1,0x71 19b6 c407 | | Store 0x2,0x7 19b7 e407 | | Load 0x2,0x7 19b8 6803 |h | Jump_Zero 0x19bc 19b9 e00a | | Load 0x0,0xa 19ba 1b19 | | Execute Package,Field_Read,Field_Number 0x19 19bb 0257 | W | Execute Discrete,Raise 19bc e407 | | Load 0x2,0x7 19bd e5fa | | Load 0x2,-0x6 19be e40d | | Load 0x2,0xd 19bf 8413 | | Call 0x2,0x13 19c0 e40f | | Load 0x2,0xf 19c1 e5fe | | Load 0x2,-0x2 19c2 e40c | | Load 0x2,0xc 19c3 e40a | | Load 0x2,0xa 19c4 e5fb | | Load 0x2,-0x5 19c5 e5ff | | Load 0x2,-0x1 19c6 8273 | s | Call 0x1,0x73 19c7 c407 | | Store 0x2,0x7 19c8 e407 | | Load 0x2,0x7 19c9 6803 |h | Jump_Zero 0x19cd 19ca e00a | | Load 0x0,0xa 19cb 1b19 | | Execute Package,Field_Read,Field_Number 0x19 19cc 0257 | W | Execute Discrete,Raise 19cd e407 | | Load 0x2,0x7 19ce e40a | | Load 0x2,0xa 19cf e5fa | | Load 0x2,-0x6 19d0 e40c | | Load 0x2,0xc 19d1 e5ff | | Load 0x2,-0x1 19d2 8413 | | Call 0x2,0x13 19d3 e411 | | Load 0x2,0x11 19d4 e412 | | Load 0x2,0x12 19d5 e410 | | Load 0x2,0x10 19d6 e5fb | | Load 0x2,-0x5 19d7 e009 | | Load 0x0,0x9 19d8 1865 | e | Execute Package,Field_Execute,Field_Number 0x65 19d9 e402 | | Load 0x2,0x2 19da e001 | | Load 0x0,0x1 19db 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 19dc 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 19dd e5fb | | Load 0x2,-0x5 19de e009 | | Load 0x0,0x9 19df 18c2 | | Execute Package,Field_Execute,Field_Number 0xc2 19e0 e5fe | | Load 0x2,-0x2 19e1 0092 1ea5 | | Action Push_String_Extended,0x1ea5 ; "Link" 19e3 e009 | | Load 0x0,0x9 19e4 18c8 | | Execute Package,Field_Execute,Field_Number 0xc8 19e5 e407 | | Load 0x2,0x7 19e6 0f00 | | Execute_Immediate Equal,0x0 19e7 e009 | | Load 0x0,0x9 19e8 18c7 | | Execute Package,Field_Execute,Field_Number 0xc7 19e9 e5fb | | Load 0x2,-0x5 19ea e009 | | Load 0x0,0x9 19eb 1863 | c | Execute Package,Field_Execute,Field_Number 0x63 19ec e010 | | Load 0x0,0x10 19ed 1846 | F | Execute Package,Field_Execute,Field_Number 0x46 19ee c40a | | Store 0x2,0xa 19ef c407 | | Store 0x2,0x7 19f0 e40d | | Load 0x2,0xd 19f1 6801 |h | Jump_Zero 0x19f3 19f2 4501 |E | Exit_Suprogram New_Top_Offset 0x1 19f3 e005 | | Load 0x0,0x5 19f4 1b0d | | Execute Package,Field_Read,Field_Number 0xd 19f5 e40e | | Load 0x2,0xe 19f6 e40a | | Load 0x2,0xa 19f7 e008 | | Load 0x0,0x8 19f8 183a | : | Execute Package,Field_Execute,Field_Number 0x3a 19f9 c407 | | Store 0x2,0x7 19fa e407 | | Load 0x2,0x7 19fb 6805 |h | Jump_Zero 0x1a01 19fc e407 | | Load 0x2,0x7 19fd a5f9 | | Store_Unchecked 0x2,-0x7 19fe e00a | | Load 0x0,0xa 19ff 1b19 | | Execute Package,Field_Read,Field_Number 0x19 1a00 0257 | W | Execute Discrete,Raise 1a01 4501 |E | Exit_Suprogram New_Top_Offset 0x1 1a02 0000 0000 | | .BLANK 0000[0x6] 1a08 ; -------------------------------------------------------------------------------------- 1a08 ; SUBPROGRAM 1a08 ; -------------------------------------------------------------------------------------- 1a08 1a15 | | .CONST 0x1a15 ; Address of begin 1a09 0004 | | .CONST 0x0004 ; Address of exception handler 1a0a 0003 | | .CONST 0x0003 ; Number of locals 1a0b INIT_1a08: 1a0b 4801 |H | Short_Literal 0x1 1a0c e5ff | | Load 0x2,-0x1 1a0d 0227 | ' | Execute Access,All_Reference 1a0e 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 1a0f e402 | | Load 0x2,0x2 1a10 e001 | | Load 0x0,0x1 1a11 1b25 | % | Execute Package,Field_Read,Field_Number 0x25 1a12 181d | | Execute Package,Field_Execute,Field_Number 0x1d 1a13 e002 | | Load 0x0,0x2 1a14 1b0d | | Execute Package,Field_Read,Field_Number 0xd 1a15 BODY_1a08: 1a15 00d9 | | Load_Top At_Offset_1 1a16 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 1a17 6806 |h | Jump_Zero 0x1a1e 1a18 00d9 | | Load_Top At_Offset_1 1a19 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 1a1a a5f9 | | Store_Unchecked 0x2,-0x7 1a1b e00a | | Load 0x0,0xa 1a1c 1b19 | | Execute Package,Field_Read,Field_Number 0x19 1a1d 0257 | W | Execute Discrete,Raise 1a1e 00cf | | Action Mark_Auxiliary 1a1f 00da | | Load_Top At_Offset_2 1a20 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 1a21 01dc | | Execute Vector,Last 1a22 4801 |H | Short_Literal 0x1 1a23 0263 | c | Execute Discrete,Above_Bound 1a24 711d |q | Jump_Nonzero 0x1b42 1a25 e407 | | Load 0x2,0x7 1a26 e404 | | Load 0x2,0x4 1a27 0120 | | Execute Any,Is_Value 1a28 6803 |h | Jump_Zero 0x1a2c 1a29 e002 | | Load 0x0,0x2 1a2a 1b0f | | Execute Package,Field_Read,Field_Number 0xf 1a2b 7801 |x | Jump 0x1a2d 1a2c e404 | | Load 0x2,0x4 1a2d 00da | | Load_Top At_Offset_2 1a2e e602 | | Load 0x3,0x2 1a2f 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 1a30 01d7 | | Execute Vector,Field_Read 1a31 e001 | | Load 0x0,0x1 1a32 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 1a33 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 1a34 c404 | | Store 0x2,0x4 1a35 c407 | | Store 0x2,0x7 1a36 e407 | | Load 0x2,0x7 1a37 6805 |h | Jump_Zero 0x1a3d 1a38 e407 | | Load 0x2,0x7 1a39 a5f9 | | Store_Unchecked 0x2,-0x7 1a3a e00a | | Load 0x0,0xa 1a3b 1b19 | | Execute Package,Field_Read,Field_Number 0x19 1a3c 0257 | W | Execute Discrete,Raise 1a3d 00d8 | | Load_Top At_Offset_0 1a3e e602 | | Load 0x3,0x2 1a3f 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 1a40 01d7 | | Execute Vector,Field_Read 1a41 e001 | | Load 0x0,0x1 1a42 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 1a43 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 1a44 703f |p? | Jump_Nonzero 0x1a84 1a45 e5fa | | Load 0x2,-0x6 1a46 4801 |H | Short_Literal 0x1 1a47 4802 |H | Short_Literal 0x2 1a48 e004 | | Load 0x0,0x4 1a49 1b0f | | Execute Package,Field_Read,Field_Number 0xf 1a4a 0334 | 4 | Declare_Variable Array,With_Constraint 1a4b 00da | | Load_Top At_Offset_2 1a4c e602 | | Load 0x3,0x2 1a4d 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 1a4e 01d7 | | Execute Vector,Field_Read 1a4f e001 | | Load 0x0,0x1 1a50 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 1a51 1810 | | Execute Package,Field_Execute,Field_Number 0x10 1a52 e004 | | Load 0x0,0x4 1a53 1b0e | | Execute Package,Field_Read,Field_Number 0xe 1a54 0119 | | Execute Any,Check_In_Formal_Type 1a55 4801 |H | Short_Literal 0x1 1a56 00da | | Load_Top At_Offset_2 1a57 01d6 | | Execute Vector,Field_Write 1a58 e5ff | | Load 0x2,-0x1 1a59 0227 | ' | Execute Access,All_Reference 1a5a 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 1a5b e001 | | Load 0x0,0x1 1a5c 1b24 | $ | Execute Package,Field_Read,Field_Number 0x24 1a5d 1820 | | Execute Package,Field_Execute,Field_Number 0x20 1a5e e004 | | Load 0x0,0x4 1a5f 1b0e | | Execute Package,Field_Read,Field_Number 0xe 1a60 0119 | | Execute Any,Check_In_Formal_Type 1a61 4802 |H | Short_Literal 0x2 1a62 00da | | Load_Top At_Offset_2 1a63 01d6 | | Execute Vector,Field_Write 1a64 60f7 |` | Indirect_Literal Discrete,0x1b5c,{0x00000000, 0x0000815a} 1a65 e005 | | Load 0x0,0x5 1a66 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 1a67 4801 |H | Short_Literal 0x1 1a68 4802 |H | Short_Literal 0x2 1a69 e004 | | Load 0x0,0x4 1a6a 1b0f | | Execute Package,Field_Read,Field_Number 0xf 1a6b 0334 | 4 | Declare_Variable Array,With_Constraint 1a6c e004 | | Load 0x0,0x4 1a6d 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 1a6e e004 | | Load 0x0,0x4 1a6f 1b0e | | Execute Package,Field_Read,Field_Number 0xe 1a70 0119 | | Execute Any,Check_In_Formal_Type 1a71 4801 |H | Short_Literal 0x1 1a72 00da | | Load_Top At_Offset_2 1a73 01d6 | | Execute Vector,Field_Write 1a74 e5fe | | Load 0x2,-0x2 1a75 e006 | | Load 0x0,0x6 1a76 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 1a77 e004 | | Load 0x0,0x4 1a78 1b0e | | Execute Package,Field_Read,Field_Number 0xe 1a79 0119 | | Execute Any,Check_In_Formal_Type 1a7a 4802 |H | Short_Literal 0x2 1a7b 00da | | Load_Top At_Offset_2 1a7c 01d6 | | Execute Vector,Field_Write 1a7d 60da |` | Indirect_Literal Discrete,0x1b58,{0x00000000, 0x00008126} 1a7e e005 | | Load 0x0,0x5 1a7f 1813 | | Execute Package,Field_Execute,Field_Number 0x13 1a80 a5f9 | | Store_Unchecked 0x2,-0x7 1a81 e00a | | Load 0x0,0xa 1a82 1b19 | | Execute Package,Field_Read,Field_Number 0x19 1a83 0257 | W | Execute Discrete,Raise 1a84 e002 | | Load 0x0,0x2 1a85 1b0d | | Execute Package,Field_Read,Field_Number 0xd 1a86 e405 | | Load 0x2,0x5 1a87 60cc |` | Indirect_Literal Discrete,0x1b54,{0x00000000, 0x00004000} 1a88 e00e | | Load 0x0,0xe 1a89 1b0e | | Execute Package,Field_Read,Field_Number 0xe 1a8a 4800 |H | Short_Literal 0x0 1a8b e404 | | Load 0x2,0x4 1a8c e002 | | Load 0x0,0x2 1a8d 1b39 | 9 | Execute Package,Field_Read,Field_Number 0x39 1a8e 181a | | Execute Package,Field_Execute,Field_Number 0x1a 1a8f 00d1 | | Pop_Control Pop_Count_1 1a90 c603 | | Store 0x3,0x3 1a91 00db | | Load_Top At_Offset_3 1a92 6844 |hD | Jump_Zero 0x1ad7 1a93 e5fa | | Load 0x2,-0x6 1a94 4801 |H | Short_Literal 0x1 1a95 4803 |H | Short_Literal 0x3 1a96 e004 | | Load 0x0,0x4 1a97 1b0f | | Execute Package,Field_Read,Field_Number 0xf 1a98 0334 | 4 | Declare_Variable Array,With_Constraint 1a99 e404 | | Load 0x2,0x4 1a9a e004 | | Load 0x0,0x4 1a9b 181a | | Execute Package,Field_Execute,Field_Number 0x1a 1a9c e004 | | Load 0x0,0x4 1a9d 1b0e | | Execute Package,Field_Read,Field_Number 0xe 1a9e 0119 | | Execute Any,Check_In_Formal_Type 1a9f 4801 |H | Short_Literal 0x1 1aa0 00da | | Load_Top At_Offset_2 1aa1 01d6 | | Execute Vector,Field_Write 1aa2 e5ff | | Load 0x2,-0x1 1aa3 0227 | ' | Execute Access,All_Reference 1aa4 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 1aa5 e001 | | Load 0x0,0x1 1aa6 1b24 | $ | Execute Package,Field_Read,Field_Number 0x24 1aa7 1820 | | Execute Package,Field_Execute,Field_Number 0x20 1aa8 e004 | | Load 0x0,0x4 1aa9 1b0e | | Execute Package,Field_Read,Field_Number 0xe 1aaa 0119 | | Execute Any,Check_In_Formal_Type 1aab 4802 |H | Short_Literal 0x2 1aac 00da | | Load_Top At_Offset_2 1aad 01d6 | | Execute Vector,Field_Write 1aae e603 | | Load 0x3,0x3 1aaf e004 | | Load 0x0,0x4 1ab0 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 1ab1 e004 | | Load 0x0,0x4 1ab2 1b0e | | Execute Package,Field_Read,Field_Number 0xe 1ab3 0119 | | Execute Any,Check_In_Formal_Type 1ab4 4803 |H | Short_Literal 0x3 1ab5 00da | | Load_Top At_Offset_2 1ab6 01d6 | | Execute Vector,Field_Write 1ab7 6098 |` | Indirect_Literal Discrete,0x1b50,{0x00000000, 0x00008158} 1ab8 e005 | | Load 0x0,0x5 1ab9 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 1aba 4801 |H | Short_Literal 0x1 1abb 4802 |H | Short_Literal 0x2 1abc e004 | | Load 0x0,0x4 1abd 1b0f | | Execute Package,Field_Read,Field_Number 0xf 1abe 0334 | 4 | Declare_Variable Array,With_Constraint 1abf e004 | | Load 0x0,0x4 1ac0 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 1ac1 e004 | | Load 0x0,0x4 1ac2 1b0e | | Execute Package,Field_Read,Field_Number 0xe 1ac3 0119 | | Execute Any,Check_In_Formal_Type 1ac4 4801 |H | Short_Literal 0x1 1ac5 00da | | Load_Top At_Offset_2 1ac6 01d6 | | Execute Vector,Field_Write 1ac7 e5fe | | Load 0x2,-0x2 1ac8 e006 | | Load 0x0,0x6 1ac9 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 1aca e004 | | Load 0x0,0x4 1acb 1b0e | | Execute Package,Field_Read,Field_Number 0xe 1acc 0119 | | Execute Any,Check_In_Formal_Type 1acd 4802 |H | Short_Literal 0x2 1ace 00da | | Load_Top At_Offset_2 1acf 01d6 | | Execute Vector,Field_Write 1ad0 6087 |` | Indirect_Literal Discrete,0x1b58,{0x00000000, 0x00008126} 1ad1 e005 | | Load 0x0,0x5 1ad2 1813 | | Execute Package,Field_Execute,Field_Number 0x13 1ad3 a5f9 | | Store_Unchecked 0x2,-0x7 1ad4 e00a | | Load 0x0,0xa 1ad5 1b19 | | Execute Package,Field_Read,Field_Number 0x19 1ad6 0257 | W | Execute Discrete,Raise 1ad7 e002 | | Load 0x0,0x2 1ad8 1b0d | | Execute Package,Field_Read,Field_Number 0xd 1ad9 e002 | | Load 0x0,0x2 1ada 1b3a | : | Execute Package,Field_Read,Field_Number 0x3a 1adb 1b0d | | Execute Package,Field_Read,Field_Number 0xd 1adc 6077 |`w | Indirect_Literal Discrete,0x1b54,{0x00000000, 0x00004000} 1add e00e | | Load 0x0,0xe 1ade 1b0e | | Execute Package,Field_Read,Field_Number 0xe 1adf e405 | | Load 0x2,0x5 1ae0 e002 | | Load 0x0,0x2 1ae1 1b3a | : | Execute Package,Field_Read,Field_Number 0x3a 1ae2 180e | | Execute Package,Field_Execute,Field_Number 0xe 1ae3 c403 | | Store 0x2,0x3 1ae4 c603 | | Store 0x3,0x3 1ae5 00db | | Load_Top At_Offset_3 1ae6 6838 |h8 | Jump_Zero 0x1b1f 1ae7 e5fa | | Load 0x2,-0x6 1ae8 4801 |H | Short_Literal 0x1 1ae9 4802 |H | Short_Literal 0x2 1aea e004 | | Load 0x0,0x4 1aeb 1b0f | | Execute Package,Field_Read,Field_Number 0xf 1aec 0334 | 4 | Declare_Variable Array,With_Constraint 1aed e404 | | Load 0x2,0x4 1aee e004 | | Load 0x0,0x4 1aef 181a | | Execute Package,Field_Execute,Field_Number 0x1a 1af0 e004 | | Load 0x0,0x4 1af1 1b0e | | Execute Package,Field_Read,Field_Number 0xe 1af2 0119 | | Execute Any,Check_In_Formal_Type 1af3 4801 |H | Short_Literal 0x1 1af4 00da | | Load_Top At_Offset_2 1af5 01d6 | | Execute Vector,Field_Write 1af6 e603 | | Load 0x3,0x3 1af7 e004 | | Load 0x0,0x4 1af8 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 1af9 e004 | | Load 0x0,0x4 1afa 1b0e | | Execute Package,Field_Read,Field_Number 0xe 1afb 0119 | | Execute Any,Check_In_Formal_Type 1afc 4802 |H | Short_Literal 0x2 1afd 00da | | Load_Top At_Offset_2 1afe 01d6 | | Execute Vector,Field_Write 1aff 604c |`L | Indirect_Literal Discrete,0x1b4c,{0x00000000, 0x00008157} 1b00 e005 | | Load 0x0,0x5 1b01 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 1b02 4801 |H | Short_Literal 0x1 1b03 4802 |H | Short_Literal 0x2 1b04 e004 | | Load 0x0,0x4 1b05 1b0f | | Execute Package,Field_Read,Field_Number 0xf 1b06 0334 | 4 | Declare_Variable Array,With_Constraint 1b07 e004 | | Load 0x0,0x4 1b08 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 1b09 e004 | | Load 0x0,0x4 1b0a 1b0e | | Execute Package,Field_Read,Field_Number 0xe 1b0b 0119 | | Execute Any,Check_In_Formal_Type 1b0c 4801 |H | Short_Literal 0x1 1b0d 00da | | Load_Top At_Offset_2 1b0e 01d6 | | Execute Vector,Field_Write 1b0f e5fe | | Load 0x2,-0x2 1b10 e006 | | Load 0x0,0x6 1b11 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 1b12 e004 | | Load 0x0,0x4 1b13 1b0e | | Execute Package,Field_Read,Field_Number 0xe 1b14 0119 | | Execute Any,Check_In_Formal_Type 1b15 4802 |H | Short_Literal 0x2 1b16 00da | | Load_Top At_Offset_2 1b17 01d6 | | Execute Vector,Field_Write 1b18 603f |`? | Indirect_Literal Discrete,0x1b58,{0x00000000, 0x00008126} 1b19 e005 | | Load 0x0,0x5 1b1a 1813 | | Execute Package,Field_Execute,Field_Number 0x13 1b1b a5f9 | | Store_Unchecked 0x2,-0x7 1b1c e00a | | Load 0x0,0xa 1b1d 1b19 | | Execute Package,Field_Read,Field_Number 0x19 1b1e 0257 | W | Execute Discrete,Raise 1b1f e403 | | Load 0x2,0x3 1b20 0e04 | | Execute_Immediate Not_Equal,0x4 1b21 681e |h | Jump_Zero 0x1b40 1b22 e406 | | Load 0x2,0x6 1b23 0a01 | | Execute_Immediate Plus,0x1 1b24 c406 | | Store 0x2,0x6 1b25 e5fa | | Load 0x2,-0x6 1b26 4801 |H | Short_Literal 0x1 1b27 4802 |H | Short_Literal 0x2 1b28 e004 | | Load 0x0,0x4 1b29 1b0f | | Execute Package,Field_Read,Field_Number 0xf 1b2a 0334 | 4 | Declare_Variable Array,With_Constraint 1b2b e404 | | Load 0x2,0x4 1b2c e006 | | Load 0x0,0x6 1b2d 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 1b2e e004 | | Load 0x0,0x4 1b2f 1b0e | | Execute Package,Field_Read,Field_Number 0xe 1b30 0119 | | Execute Any,Check_In_Formal_Type 1b31 4801 |H | Short_Literal 0x1 1b32 00da | | Load_Top At_Offset_2 1b33 01d6 | | Execute Vector,Field_Write 1b34 e5fe | | Load 0x2,-0x2 1b35 e006 | | Load 0x0,0x6 1b36 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 1b37 e004 | | Load 0x0,0x4 1b38 1b0e | | Execute Package,Field_Read,Field_Number 0xe 1b39 0119 | | Execute Any,Check_In_Formal_Type 1b3a 4802 |H | Short_Literal 0x2 1b3b 00da | | Load_Top At_Offset_2 1b3c 01d6 | | Execute Vector,Field_Write 1b3d 600a |` | Indirect_Literal Discrete,0x1b48,{0x00000000, 0x00008127} 1b3e e005 | | Load 0x0,0x5 1b3f 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 1b40 00c8 | | Action Pop_Auxiliary_Range 1b41 3ee3 |> | Loop_Increasing 0x1a25 1b42 00ce | | Action Pop_Auxiliary 1b43 e406 | | Load 0x2,0x6 1b44 0f00 | | Execute_Immediate Equal,0x0 1b45 00ca | | Action Exit_Nullary_Function 1b46 0000 0000 | | .XXX[0x2] 1b48 0000 0000 | | .LITERAL {0x00000000, 0x00008127} 1b4c 0000 0000 | | .LITERAL {0x00000000, 0x00008157} 1b50 0000 0000 | | .LITERAL {0x00000000, 0x00008158} 1b54 0000 0000 | | .LITERAL {0x00000000, 0x00004000} 1b58 0000 0000 | | .LITERAL {0x00000000, 0x00008126} 1b5c 0000 0000 | | .LITERAL {0x00000000, 0x0000815a} 1b60 ; -------------------------------------------------------------------------------------- 1b60 ; SUBPROGRAM 1b60 ; -------------------------------------------------------------------------------------- 1b60 1b75 | u | .CONST 0x1b75 ; Address of begin 1b61 0004 | | .CONST 0x0004 ; Address of exception handler 1b62 0006 | | .CONST 0x0006 ; Number of locals 1b63 INIT_1b60: 1b63 e402 | | Load 0x2,0x2 1b64 e001 | | Load 0x0,0x1 1b65 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 1b66 185e | ^ | Execute Package,Field_Execute,Field_Number 0x5e 1b67 e001 | | Load 0x0,0x1 1b68 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 1b69 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 1b6a e402 | | Load 0x2,0x2 1b6b e001 | | Load 0x0,0x1 1b6c 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 1b6d 181c | | Execute Package,Field_Execute,Field_Number 0x1c 1b6e e011 | | Load 0x0,0x11 1b6f 1b14 | | Execute Package,Field_Read,Field_Number 0x14 1b70 e005 | | Load 0x0,0x5 1b71 1b0d | | Execute Package,Field_Read,Field_Number 0xd 1b72 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 1b73 029f 1e43 | C| Declare_Subprogram INIT_1e40,For_Call 1b75 BODY_1b60: 1b75 e5fa | | Load 0x2,-0x6 1b76 4801 |H | Short_Literal 0x1 1b77 4801 |H | Short_Literal 0x1 1b78 e004 | | Load 0x0,0x4 1b79 1b0f | | Execute Package,Field_Read,Field_Number 0xf 1b7a 0334 | 4 | Declare_Variable Array,With_Constraint 1b7b e603 | | Load 0x3,0x3 1b7c e004 | | Load 0x0,0x4 1b7d 1810 | | Execute Package,Field_Execute,Field_Number 0x10 1b7e e004 | | Load 0x0,0x4 1b7f 1b0e | | Execute Package,Field_Read,Field_Number 0xe 1b80 0119 | | Execute Any,Check_In_Formal_Type 1b81 4801 |H | Short_Literal 0x1 1b82 00da | | Load_Top At_Offset_2 1b83 01d6 | | Execute Vector,Field_Write 1b84 6063 |`c | Indirect_Literal Discrete,0x1be8,{0x00000000, 0x0000816b} 1b85 e005 | | Load 0x0,0x5 1b86 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 1b87 e5ff | | Load 0x2,-0x1 1b88 0229 | ) | Execute Access,All_Read 1b89 00d8 | | Load_Top At_Offset_0 1b8a 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 1b8b e001 | | Load 0x0,0x1 1b8c 1b24 | $ | Execute Package,Field_Read,Field_Number 0x24 1b8d 1811 | | Execute Package,Field_Execute,Field_Number 0x11 1b8e 00d9 | | Load_Top At_Offset_1 1b8f 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 1b90 00d1 | | Pop_Control Pop_Count_1 1b91 e011 | | Load 0x0,0x11 1b92 180e | | Execute Package,Field_Execute,Field_Number 0xe 1b93 e011 | | Load 0x0,0x11 1b94 1817 | | Execute Package,Field_Execute,Field_Number 0x17 1b95 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 1b96 4803 |H | Short_Literal 0x3 1b97 e011 | | Load 0x0,0x11 1b98 1815 | | Execute Package,Field_Execute,Field_Number 0x15 1b99 8606 | | Call 0x3,0x6 1b9a e005 | | Load 0x0,0x5 1b9b 1b0d | | Execute Package,Field_Read,Field_Number 0xd 1b9c e5fa | | Load 0x2,-0x6 1b9d e022 | " | Load 0x0,0x22 1b9e 1812 | | Execute Package,Field_Execute,Field_Number 0x12 1b9f 005a | Z | Store_Top Discrete,At_Offset_2 1ba0 00d9 | | Load_Top At_Offset_1 1ba1 6805 |h | Jump_Zero 0x1ba7 1ba2 e5fa | | Load 0x2,-0x6 1ba3 00da | | Load_Top At_Offset_2 1ba4 e005 | | Load 0x0,0x5 1ba5 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 1ba6 4501 |E | Exit_Suprogram New_Top_Offset 0x1 1ba7 00da | | Load_Top At_Offset_2 1ba8 e011 | | Load 0x0,0x11 1ba9 1815 | | Execute Package,Field_Execute,Field_Number 0x15 1baa e5fa | | Load 0x2,-0x6 1bab 0092 1ee5 | | Action Push_String_Extended,0x1ee5 ; "Target_Builder.Unit.Link (in Make_Closure)" 1bad e007 | | Load 0x0,0x7 1bae 180e | | Execute Package,Field_Execute,Field_Number 0xe 1baf e5ff | | Load 0x2,-0x1 1bb0 0229 | ) | Execute Access,All_Read 1bb1 e7ff | | Load 0x3,-0x1 1bb2 00d9 | | Load_Top At_Offset_1 1bb3 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 1bb4 0120 | | Execute Any,Is_Value 1bb5 6804 |h | Jump_Zero 0x1bba 1bb6 e001 | | Load 0x0,0x1 1bb7 1b24 | $ | Execute Package,Field_Read,Field_Number 0x24 1bb8 1b0d | | Execute Package,Field_Read,Field_Number 0xd 1bb9 7802 |x | Jump 0x1bbc 1bba 00d9 | | Load_Top At_Offset_1 1bbb 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 1bbc 4801 |H | Short_Literal 0x1 1bbd e5fb | | Load 0x2,-0x5 1bbe e009 | | Load 0x0,0x9 1bbf 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 1bc0 4801 |H | Short_Literal 0x1 1bc1 e602 | | Load 0x3,0x2 1bc2 e001 | | Load 0x0,0x1 1bc3 1b24 | $ | Execute Package,Field_Read,Field_Number 0x24 1bc4 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 1bc5 00da | | Load_Top At_Offset_2 1bc6 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 1bc7 c7ff | | Store 0x3,-0x1 1bc8 00d1 | | Pop_Control Pop_Count_1 1bc9 e7ff | | Load 0x3,-0x1 1bca 6801 |h | Jump_Zero 0x1bcc 1bcb 4501 |E | Exit_Suprogram New_Top_Offset 0x1 1bcc 4800 |H | Short_Literal 0x0 1bcd 4800 |H | Short_Literal 0x0 1bce e603 | | Load 0x3,0x3 1bcf 4801 |H | Short_Literal 0x1 1bd0 e5ff | | Load 0x2,-0x1 1bd1 0227 | ' | Execute Access,All_Reference 1bd2 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 1bd3 e001 | | Load 0x0,0x1 1bd4 1b24 | $ | Execute Package,Field_Read,Field_Number 0x24 1bd5 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32 1bd6 e5ff | | Load 0x2,-0x1 1bd7 0227 | ' | Execute Access,All_Reference 1bd8 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 1bd9 e001 | | Load 0x0,0x1 1bda 1b24 | $ | Execute Package,Field_Read,Field_Number 0x24 1bdb 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 1bdc e5ff | | Load 0x2,-0x1 1bdd 0227 | ' | Execute Access,All_Reference 1bde 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 1bdf e5fe | | Load 0x2,-0x2 1be0 e002 | | Load 0x0,0x2 1be1 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 1be2 183e | > | Execute Package,Field_Execute,Field_Number 0x3e 1be3 e001 | | Load 0x0,0x1 1be4 1b24 | $ | Execute Package,Field_Read,Field_Number 0x24 1be5 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 1be6 c402 | | Store 0x2,0x2 1be7 4501 |E | Exit_Suprogram New_Top_Offset 0x1 1be8 0000 0000 | | .LITERAL {0x00000000, 0x0000816b} 1bec 0000 0000 | | .BLANK 0000[0x4] 1bf0 ; -------------------------------------------------------------------------------------- 1bf0 ; SUBPROGRAM 1bf0 ; -------------------------------------------------------------------------------------- 1bf0 1c03 | | .CONST 0x1c03 ; Address of begin 1bf1 0004 | | .CONST 0x0004 ; Address of exception handler 1bf2 0003 | | .CONST 0x0003 ; Number of locals 1bf3 INIT_1bf0: 1bf3 e002 | | Load 0x0,0x2 1bf4 1b0f | | Execute Package,Field_Read,Field_Number 0xf 1bf5 02c7 | | Declare_Variable Any 1bf6 00d8 | | Load_Top At_Offset_0 1bf7 1c00 | | Execute_Immediate Run_Utility,0x0 1bf8 e414 | | Load 0x2,0x14 1bf9 e5fd | | Load 0x2,-0x3 1bfa e009 | | Load 0x0,0x9 1bfb 186f | o | Execute Package,Field_Execute,Field_Number 0x6f 1bfc e5fd | | Load 0x2,-0x3 1bfd e404 | | Load 0x2,0x4 1bfe e407 | | Load 0x2,0x7 1bff e408 | | Load 0x2,0x8 1c00 8268 | h | Call 0x1,0x68 1c01 01cc | | Execute Vector,Catenate 1c02 0007 | | Action Break_Optional 1c03 BODY_1bf0: 1c03 e5fc | | Load 0x2,-0x4 1c04 0092 1ee6 | | Action Push_String_Extended,0x1ee6 ; "Transferring => " 1c06 e408 | | Load 0x2,0x8 1c07 e002 | | Load 0x0,0x2 1c08 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 1c09 183e | > | Execute Package,Field_Execute,Field_Number 0x3e 1c0a 01cc | | Execute Vector,Catenate 1c0b e007 | | Load 0x0,0x7 1c0c 1813 | | Execute Package,Field_Execute,Field_Number 0x13 1c0d e404 | | Load 0x2,0x4 1c0e 6803 |h | Jump_Zero 0x1c12 1c0f e409 | | Load 0x2,0x9 1c10 c602 | | Store 0x3,0x2 1c11 7802 |x | Jump 0x1c14 1c12 e408 | | Load 0x2,0x8 1c13 c602 | | Store 0x3,0x2 1c14 e005 | | Load 0x0,0x5 1c15 1b0d | | Execute Package,Field_Read,Field_Number 0xd 1c16 e40e | | Load 0x2,0xe 1c17 e00a | | Load 0x0,0xa 1c18 1b24 | $ | Execute Package,Field_Read,Field_Number 0x24 1c19 e00a | | Load 0x0,0xa 1c1a 1813 | | Execute Package,Field_Execute,Field_Number 0x13 1c1b 4800 |H | Short_Literal 0x0 1c1c e40d | | Load 0x2,0xd 1c1d e603 | | Load 0x3,0x3 1c1e e602 | | Load 0x3,0x2 1c1f e002 | | Load 0x0,0x2 1c20 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 1c21 183e | > | Execute Package,Field_Execute,Field_Number 0x3e 1c22 e008 | | Load 0x0,0x8 1c23 183c | < | Execute Package,Field_Execute,Field_Number 0x3c 1c24 c40c | | Store 0x2,0xc 1c25 e40c | | Load 0x2,0xc 1c26 6809 |h | Jump_Zero 0x1c30 1c27 e5fc | | Load 0x2,-0x4 1c28 e40c | | Load 0x2,0xc 1c29 e005 | | Load 0x0,0x5 1c2a 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 1c2b e40c | | Load 0x2,0xc 1c2c a5fb | | Store_Unchecked 0x2,-0x5 1c2d e00a | | Load 0x0,0xa 1c2e 1b19 | | Execute Package,Field_Read,Field_Number 0x19 1c2f 0257 | W | Execute Discrete,Raise 1c30 e5fc | | Load 0x2,-0x4 1c31 0092 1ee7 | | Action Push_String_Extended,0x1ee7 ; "Retrieving remote update time for host unit => " 1c33 e408 | | Load 0x2,0x8 1c34 e002 | | Load 0x0,0x2 1c35 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 1c36 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 1c37 01cc | | Execute Vector,Catenate 1c38 e007 | | Load 0x0,0x7 1c39 1813 | | Execute Package,Field_Execute,Field_Number 0x13 1c3a e00c | | Load 0x0,0xc 1c3b 1812 | | Execute Package,Field_Execute,Field_Number 0x12 1c3c c411 | | Store 0x2,0x11 1c3d e404 | | Load 0x2,0x4 1c3e 680b |h | Jump_Zero 0x1c4a 1c3f e40c | | Load 0x2,0xc 1c40 e5fc | | Load 0x2,-0x4 1c41 4800 |H | Short_Literal 0x0 1c42 e5fd | | Load 0x2,-0x3 1c43 e40d | | Load 0x2,0xd 1c44 4801 |H | Short_Literal 0x1 1c45 e408 | | Load 0x2,0x8 1c46 e414 | | Load 0x2,0x14 1c47 826b | k | Call 0x1,0x6b 1c48 c40c | | Store 0x2,0xc 1c49 780c |x | Jump 0x1c56 1c4a e40c | | Load 0x2,0xc 1c4b e407 | | Load 0x2,0x7 1c4c e5fc | | Load 0x2,-0x4 1c4d 4800 |H | Short_Literal 0x0 1c4e e5fd | | Load 0x2,-0x3 1c4f e40d | | Load 0x2,0xd 1c50 4801 |H | Short_Literal 0x1 1c51 e414 | | Load 0x2,0x14 1c52 e5ff | | Load 0x2,-0x1 1c53 826a | j | Call 0x1,0x6a 1c54 c407 | | Store 0x2,0x7 1c55 c40c | | Store 0x2,0xc 1c56 e40c | | Load 0x2,0xc 1c57 6815 |h | Jump_Zero 0x1c6d 1c58 e5fc | | Load 0x2,-0x4 1c59 4801 |H | Short_Literal 0x1 1c5a 4801 |H | Short_Literal 0x1 1c5b e004 | | Load 0x0,0x4 1c5c 1b0f | | Execute Package,Field_Read,Field_Number 0xf 1c5d 0334 | 4 | Declare_Variable Array,With_Constraint 1c5e e408 | | Load 0x2,0x8 1c5f e006 | | Load 0x0,0x6 1c60 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 1c61 e004 | | Load 0x0,0x4 1c62 1b0e | | Execute Package,Field_Read,Field_Number 0xe 1c63 0119 | | Execute Any,Check_In_Formal_Type 1c64 4801 |H | Short_Literal 0x1 1c65 00da | | Load_Top At_Offset_2 1c66 01d6 | | Execute Vector,Field_Write 1c67 6018 |` | Indirect_Literal Discrete,0x1c80,{0x00000000, 0x0000815e} 1c68 e005 | | Load 0x0,0x5 1c69 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 1c6a 4800 |H | Short_Literal 0x0 1c6b a40c | | Store_Unchecked 0x2,0xc 1c6c 4501 |E | Exit_Suprogram New_Top_Offset 0x1 1c6d e5fc | | Load 0x2,-0x4 1c6e 0092 1ee8 | | Action Push_String_Extended,0x1ee8 ; "Elapsed time for setting download time => " 1c70 e411 | | Load 0x2,0x11 1c71 e00c | | Load 0x0,0xc 1c72 1812 | | Execute Package,Field_Execute,Field_Number 0x12 1c73 e00c | | Load 0x0,0xc 1c74 181c | | Execute Package,Field_Execute,Field_Number 0x1c 1c75 e023 | # | Load 0x0,0x23 1c76 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 1c77 01cc | | Execute Vector,Catenate 1c78 0092 1ee9 | | Action Push_String_Extended,0x1ee9 ; " seconds." 1c7a 01cc | | Execute Vector,Catenate 1c7b e007 | | Load 0x0,0x7 1c7c 1813 | | Execute Package,Field_Execute,Field_Number 0x13 1c7d 4501 |E | Exit_Suprogram New_Top_Offset 0x1 1c7e 0000 0000 | | .XXX[0x2] 1c80 0000 0000 | | .LITERAL {0x00000000, 0x0000815e} 1c84 0000 0000 | | .BLANK 0000[0x4] 1c88 ; -------------------------------------------------------------------------------------- 1c88 ; SUBPROGRAM 1c88 ; -------------------------------------------------------------------------------------- 1c88 1c9f | | .CONST 0x1c9f ; Address of begin 1c89 0004 | | .CONST 0x0004 ; Address of exception handler 1c8a 0005 | | .CONST 0x0005 ; Number of locals 1c8b INIT_1c88: 1c8b e005 | | Load 0x0,0x5 1c8c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 1c8d 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 1c8e e001 | | Load 0x0,0x1 1c8f 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 1c90 1b0d | | Execute Package,Field_Read,Field_Number 0xd 1c91 02c7 | | Declare_Variable Any 1c92 00d8 | | Load_Top At_Offset_0 1c93 1c00 | | Execute_Immediate Run_Utility,0x0 1c94 e002 | | Load 0x0,0x2 1c95 1b0f | | Execute Package,Field_Read,Field_Number 0xf 1c96 02c7 | | Declare_Variable Any 1c97 e5fc | | Load 0x2,-0x4 1c98 4800 |H | Short_Literal 0x0 1c99 e5fe | | Load 0x2,-0x2 1c9a e006 | | Load 0x0,0x6 1c9b 181c | | Execute Package,Field_Execute,Field_Number 0x1c 1c9c a604 | | Store_Unchecked 0x3,0x4 1c9d 029f 1e8b | | Declare_Subprogram INIT_1e88,For_Call 1c9f BODY_1c88: 1c9f e5fc | | Load 0x2,-0x4 1ca0 0092 1eea | | Action Push_String_Extended,0x1eea ; "Promoting => " 1ca2 e408 | | Load 0x2,0x8 1ca3 e002 | | Load 0x0,0x2 1ca4 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 1ca5 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 1ca6 01cc | | Execute Vector,Catenate 1ca7 e007 | | Load 0x0,0x7 1ca8 1813 | | Execute Package,Field_Execute,Field_Number 0x13 1ca9 e40f | | Load 0x2,0xf 1caa 700f |p | Jump_Nonzero 0x1cba 1cab e40c | | Load 0x2,0xc 1cac e008 | | Load 0x0,0x8 1cad 1b1a | | Execute Package,Field_Read,Field_Number 0x1a 1cae e5fc | | Load 0x2,-0x4 1caf e410 | | Load 0x2,0x10 1cb0 e5fd | | Load 0x2,-0x3 1cb1 e413 | | Load 0x2,0x13 1cb2 826e | n | Call 0x1,0x6e 1cb3 c40d | | Store 0x2,0xd 1cb4 c40c | | Store 0x2,0xc 1cb5 e40c | | Load 0x2,0xc 1cb6 6803 |h | Jump_Zero 0x1cba 1cb7 e00a | | Load 0x0,0xa 1cb8 1b19 | | Execute Package,Field_Read,Field_Number 0x19 1cb9 0257 | W | Execute Discrete,Raise 1cba e40c | | Load 0x2,0xc 1cbb e5fc | | Load 0x2,-0x4 1cbc e40f | | Load 0x2,0xf 1cbd e412 | | Load 0x2,0x12 1cbe e414 | | Load 0x2,0x14 1cbf e40e | | Load 0x2,0xe 1cc0 e40d | | Load 0x2,0xd 1cc1 e5fd | | Load 0x2,-0x3 1cc2 8270 | p | Call 0x1,0x70 1cc3 c40c | | Store 0x2,0xc 1cc4 e40c | | Load 0x2,0xc 1cc5 6803 |h | Jump_Zero 0x1cc9 1cc6 e00a | | Load 0x0,0xa 1cc7 1b19 | | Execute Package,Field_Read,Field_Number 0x19 1cc8 0257 | W | Execute Discrete,Raise 1cc9 e40f | | Load 0x2,0xf 1cca 7001 |p | Jump_Nonzero 0x1ccc 1ccb 8415 | | Call 0x2,0x15 1ccc e40c | | Load 0x2,0xc 1ccd e5fc | | Load 0x2,-0x4 1cce e40f | | Load 0x2,0xf 1ccf e412 | | Load 0x2,0x12 1cd0 e414 | | Load 0x2,0x14 1cd1 e40e | | Load 0x2,0xe 1cd2 e40d | | Load 0x2,0xd 1cd3 e5fd | | Load 0x2,-0x3 1cd4 8271 | q | Call 0x1,0x71 1cd5 c40c | | Store 0x2,0xc 1cd6 e40c | | Load 0x2,0xc 1cd7 6803 |h | Jump_Zero 0x1cdb 1cd8 e00a | | Load 0x0,0xa 1cd9 1b19 | | Execute Package,Field_Read,Field_Number 0x19 1cda 0257 | W | Execute Discrete,Raise 1cdb e404 | | Load 0x2,0x4 1cdc 6802 |h | Jump_Zero 0x1cdf 1cdd 8605 | | Call 0x3,0x5 1cde 7832 |x2 | Jump 0x1d11 1cdf e40c | | Load 0x2,0xc 1ce0 e5fc | | Load 0x2,-0x4 1ce1 e40f | | Load 0x2,0xf 1ce2 4800 |H | Short_Literal 0x0 1ce3 e5fd | | Load 0x2,-0x3 1ce4 e009 | | Load 0x0,0x9 1ce5 1865 | e | Execute Package,Field_Execute,Field_Number 0x65 1ce6 e407 | | Load 0x2,0x7 1ce7 e001 | | Load 0x0,0x1 1ce8 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 1ce9 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 1cea e40e | | Load 0x2,0xe 1ceb e40d | | Load 0x2,0xd 1cec e5fe | | Load 0x2,-0x2 1ced e5fd | | Load 0x2,-0x3 1cee e5ff | | Load 0x2,-0x1 1cef 8272 | r | Call 0x1,0x72 1cf0 c40c | | Store 0x2,0xc 1cf1 00db | | Load_Top At_Offset_3 1cf2 e40d | | Load 0x2,0xd 1cf3 e5fc | | Load 0x2,-0x4 1cf4 e40e | | Load 0x2,0xe 1cf5 e5ff | | Load 0x2,-0x1 1cf6 00ea | | Load_Encached Null_String_Cache 1cf7 e412 | | Load 0x2,0x12 1cf8 e413 | | Load 0x2,0x13 1cf9 e414 | | Load 0x2,0x14 1cfa e5fd | | Load 0x2,-0x3 1cfb e009 | | Load 0x0,0x9 1cfc 1865 | e | Execute Package,Field_Execute,Field_Number 0x65 1cfd e407 | | Load 0x2,0x7 1cfe e001 | | Load 0x0,0x1 1cff 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 1d00 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 1d01 e5fe | | Load 0x2,-0x2 1d02 0092 1eeb | | Action Push_String_Extended,0x1eeb ; "Promote" 1d04 e009 | | Load 0x0,0x9 1d05 18c8 | | Execute Package,Field_Execute,Field_Number 0xc8 1d06 e40c | | Load 0x2,0xc 1d07 0f00 | | Execute_Immediate Equal,0x0 1d08 e009 | | Load 0x0,0x9 1d09 18c7 | | Execute Package,Field_Execute,Field_Number 0xc7 1d0a e5fd | | Load 0x2,-0x3 1d0b e009 | | Load 0x0,0x9 1d0c 1863 | c | Execute Package,Field_Execute,Field_Number 0x63 1d0d e010 | | Load 0x0,0x10 1d0e 1846 | F | Execute Package,Field_Execute,Field_Number 0x46 1d0f c40d | | Store 0x2,0xd 1d10 c602 | | Store 0x3,0x2 1d11 e40f | | Load 0x2,0xf 1d12 6801 |h | Jump_Zero 0x1d14 1d13 4501 |E | Exit_Suprogram New_Top_Offset 0x1 1d14 00db | | Load_Top At_Offset_3 1d15 6805 |h | Jump_Zero 0x1d1b 1d16 e011 | | Load 0x0,0x11 1d17 180e | | Execute Package,Field_Execute,Field_Number 0xe 1d18 e602 | | Load 0x3,0x2 1d19 e005 | | Load 0x0,0x5 1d1a 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 1d1b 4501 |E | Exit_Suprogram New_Top_Offset 0x1 1d1c 0000 0000 | | .BLANK 0000[0x4] 1d20 ; -------------------------------------------------------------------------------------- 1d20 ; SUBPROGRAM 1d20 ; -------------------------------------------------------------------------------------- 1d20 1d2b | + | .CONST 0x1d2b ; Address of begin 1d21 0004 | | .CONST 0x0004 ; Address of exception handler 1d22 0002 | | .CONST 0x0002 ; Number of locals 1d23 INIT_1d20: 1d23 e5ff | | Load 0x2,-0x1 1d24 0227 | ' | Execute Access,All_Reference 1d25 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 1d26 0092 1eec | | Action Push_String_Extended,0x1eec ; "?'IS(DOWNLOADABLE)" 1d28 e001 | | Load 0x0,0x1 1d29 1b24 | $ | Execute Package,Field_Read,Field_Number 0x24 1d2a 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30 1d2b BODY_1d20: 1d2b 00cf | | Action Mark_Auxiliary 1d2c 00d9 | | Load_Top At_Offset_1 1d2d 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 1d2e 4801 |H | Short_Literal 0x1 1d2f 0263 | c | Execute Discrete,Above_Bound 1d30 7019 |p | Jump_Nonzero 0x1d4a 1d31 e5fd | | Load 0x2,-0x3 1d32 e009 | | Load 0x0,0x9 1d33 18d3 | | Execute Package,Field_Execute,Field_Number 0xd3 1d34 0f00 | | Execute_Immediate Equal,0x0 1d35 e5fe | | Load 0x2,-0x2 1d36 e402 | | Load 0x2,0x2 1d37 00db | | Load_Top At_Offset_3 1d38 e602 | | Load 0x3,0x2 1d39 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 1d3a 01d7 | | Execute Vector,Field_Read 1d3b e001 | | Load 0x0,0x1 1d3c 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 1d3d 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 1d3e e00b | | Load 0x0,0xb 1d3f 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 1d40 6807 |h | Jump_Zero 0x1d48 1d41 00d8 | | Load_Top At_Offset_0 1d42 e602 | | Load 0x3,0x2 1d43 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 1d44 01d7 | | Execute Vector,Field_Read 1d45 c404 | | Store 0x2,0x4 1d46 00d2 | | Pop_Control Pop_Count_2 1d47 4501 |E | Exit_Suprogram New_Top_Offset 0x1 1d48 00c8 | | Action Pop_Auxiliary_Range 1d49 3fe7 |? | Loop_Increasing 0x1d31 1d4a 4501 |E | Exit_Suprogram New_Top_Offset 0x1 1d4b 0000 0000 | | .BLANK 0000[0x5] 1d50 ; -------------------------------------------------------------------------------------- 1d50 ; SUBPROGRAM 1d50 ; -------------------------------------------------------------------------------------- 1d50 1d5a | Z | .CONST 0x1d5a ; Address of begin 1d51 0004 | | .CONST 0x0004 ; Address of exception handler 1d52 0002 | | .CONST 0x0002 ; Number of locals 1d53 INIT_1d50: 1d53 e5fc | | Load 0x2,-0x4 1d54 e009 | | Load 0x0,0x9 1d55 1865 | e | Execute Package,Field_Execute,Field_Number 0x65 1d56 e5fe | | Load 0x2,-0x2 1d57 e001 | | Load 0x0,0x1 1d58 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 1d59 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 1d5a BODY_1d50: 1d5a 00d8 | | Load_Top At_Offset_0 1d5b 00cb | | Action Pop_Block_With_Result 1d5c 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 1d5d 0000 0000 | | .XXX[0x3] 1d5f 0000 | | 1d60 ; -------------------------------------------------------------------------------------- 1d60 ; SUBPROGRAM 1d60 ; -------------------------------------------------------------------------------------- 1d60 1d65 | e | .CONST 0x1d65 ; Address of begin 1d61 0004 | | .CONST 0x0004 ; Address of exception handler 1d62 0002 | | .CONST 0x0002 ; Number of locals 1d63 INIT_1d60: 1d63 e020 | | Load 0x0,0x20 1d64 1b14 | | Execute Package,Field_Read,Field_Number 0x14 1d65 BODY_1d60: 1d65 00db | | Load_Top At_Offset_3 1d66 e009 | | Load 0x0,0x9 1d67 1863 | c | Execute Package,Field_Execute,Field_Number 0x63 1d68 e01f | | Load 0x0,0x1f 1d69 1811 | | Execute Package,Field_Execute,Field_Number 0x11 1d6a e020 | | Load 0x0,0x20 1d6b 185e | ^ | Execute Package,Field_Execute,Field_Number 0x5e 1d6c 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 1d6d 00d8 | | Load_Top At_Offset_0 1d6e 7003 |p | Jump_Nonzero 0x1d72 1d6f 0092 1eed | | Action Push_String_Extended,0x1eed ; "Unix" 1d71 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 1d72 0092 1eee | | Action Push_String_Extended,0x1eee ; "Other" 1d74 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 1d75 0000 0000 | | .XXX[0x3] 1d77 0000 | | 1d78 ; -------------------------------------------------------------------------------------- 1d78 ; SUBPROGRAM 1d78 ; -------------------------------------------------------------------------------------- 1d78 1d7e | ~ | .CONST 0x1d7e ; Address of begin 1d79 0004 | | .CONST 0x0004 ; Address of exception handler 1d7a 0002 | | .CONST 0x0002 ; Number of locals 1d7b INIT_1d78: 1d7b e5fe | | Load 0x2,-0x2 1d7c e009 | | Load 0x0,0x9 1d7d 18cc | | Execute Package,Field_Execute,Field_Number 0xcc 1d7e BODY_1d78: 1d7e 00d8 | | Load_Top At_Offset_0 1d7f 01db | | Execute Vector,Length 1d80 0c01 | | Execute_Immediate Greater_Equal,0x1 1d81 6809 |h | Jump_Zero 0x1d8b 1d82 e5f6 | | Load 0x2,-0xa 1d83 e5f7 | | Load 0x2,-0x9 1d84 e5f8 | | Load 0x2,-0x8 1d85 e5fb | | Load 0x2,-0x5 1d86 e5fc | | Load 0x2,-0x4 1d87 e602 | | Load 0x3,0x2 1d88 e5fe | | Load 0x2,-0x2 1d89 826f | o | Call 0x1,0x6f 1d8a c5f6 | | Store 0x2,-0xa 1d8b 4501 |E | Exit_Suprogram New_Top_Offset 0x1 1d8c 0000 0000 | | .BLANK 0000[0x4] 1d90 ; -------------------------------------------------------------------------------------- 1d90 ; SUBPROGRAM 1d90 ; -------------------------------------------------------------------------------------- 1d90 1d98 | | .CONST 0x1d98 ; Address of begin 1d91 0004 | | .CONST 0x0004 ; Address of exception handler 1d92 0003 | | .CONST 0x0003 ; Number of locals 1d93 INIT_1d90: 1d93 e005 | | Load 0x0,0x5 1d94 1b0d | | Execute Package,Field_Read,Field_Number 0xd 1d95 e5fe | | Load 0x2,-0x2 1d96 e009 | | Load 0x0,0x9 1d97 18cd | | Execute Package,Field_Execute,Field_Number 0xcd 1d98 BODY_1d90: 1d98 00d8 | | Load_Top At_Offset_0 1d99 01db | | Execute Vector,Length 1d9a 0c01 | | Execute_Immediate Greater_Equal,0x1 1d9b 6809 |h | Jump_Zero 0x1da5 1d9c 00d9 | | Load_Top At_Offset_1 1d9d e5f7 | | Load 0x2,-0x9 1d9e e5f8 | | Load 0x2,-0x8 1d9f e5fb | | Load 0x2,-0x5 1da0 e5fc | | Load 0x2,-0x4 1da1 e603 | | Load 0x3,0x3 1da2 e5fe | | Load 0x2,-0x2 1da3 826f | o | Call 0x1,0x6f 1da4 005a | Z | Store_Top Discrete,At_Offset_2 1da5 4501 |E | Exit_Suprogram New_Top_Offset 0x1 1da6 0000 0000 | | .XXX[0x2] 1da8 ; -------------------------------------------------------------------------------------- 1da8 ; SUBPROGRAM 1da8 ; -------------------------------------------------------------------------------------- 1da8 1dab | | .CONST 0x1dab ; Address of begin 1da9 0004 | | .CONST 0x0004 ; Address of exception handler 1daa 0001 | | .CONST 0x0001 ; Number of locals 1dab BODY_1da8: 1dab INIT_1da8: 1dab 00da | | Load_Top At_Offset_2 1dac 6806 |h | Jump_Zero 0x1db3 1dad e5fc | | Load 0x2,-0x4 1dae e00a | | Load 0x0,0xa 1daf 1b1f | | Execute Package,Field_Read,Field_Number 0x1f 1db0 e00a | | Load 0x0,0xa 1db1 1815 | | Execute Package,Field_Execute,Field_Number 0x15 1db2 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 1db3 e5fc | | Load 0x2,-0x4 1db4 e00a | | Load 0x0,0xa 1db5 1b20 | | Execute Package,Field_Read,Field_Number 0x20 1db6 e00a | | Load 0x0,0xa 1db7 1815 | | Execute Package,Field_Execute,Field_Number 0x15 1db8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 1db9 0000 0000 | | .BLANK 0000[0x7] 1dc0 ; -------------------------------------------------------------------------------------- 1dc0 ; SUBPROGRAM 1dc0 ; -------------------------------------------------------------------------------------- 1dc0 1dd7 | | .CONST 0x1dd7 ; Address of begin 1dc1 0004 | | .CONST 0x0004 ; Address of exception handler 1dc2 0002 | | .CONST 0x0002 ; Number of locals 1dc3 INIT_1dc0: 1dc3 e5f7 | | Load 0x2,-0x9 1dc4 e5fb | | Load 0x2,-0x5 1dc5 e7ff | | Load 0x3,-0x1 1dc6 8403 | | Call 0x2,0x3 1dc7 4801 |H | Short_Literal 0x1 1dc8 e7ff | | Load 0x3,-0x1 1dc9 0272 | r | Execute Discrete,Minus 1dca 00d8 | | Load_Top At_Offset_0 1dcb e01e | | Load 0x0,0x1e 1dcc 1b2b | + | Execute Package,Field_Read,Field_Number 0x2b 1dcd 0260 | ` | Execute Discrete,In_Type 1dce 7001 |p | Jump_Nonzero 0x1dd0 1dcf 0801 | | Execute_Immediate Raise,0x1 1dd0 4803 |H | Short_Literal 0x3 1dd1 e5fe | | Load 0x2,-0x2 1dd2 e009 | | Load 0x0,0x9 1dd3 1863 | c | Execute Package,Field_Execute,Field_Number 0x63 1dd4 e5ff | | Load 0x2,-0x1 1dd5 e01e | | Load 0x0,0x1e 1dd6 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 1dd7 BODY_1dc0: 1dd7 e5f9 | | Load 0x2,-0x7 1dd8 01db | | Execute Vector,Length 1dd9 7002 |p | Jump_Nonzero 0x1ddc 1dda 00d8 | | Load_Top At_Offset_0 1ddb 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 1ddc e5fe | | Load 0x2,-0x2 1ddd e009 | | Load 0x0,0x9 1dde 18d2 | | Execute Package,Field_Execute,Field_Number 0xd2 1ddf e7ff | | Load 0x3,-0x1 1de0 027f | | Execute Discrete,Equal 1de1 6825 |h% | Jump_Zero 0x1e07 1de2 00d8 | | Load_Top At_Offset_0 1de3 01db | | Execute Vector,Length 1de4 700e |p | Jump_Nonzero 0x1df3 1de5 e402 | | Load 0x2,0x2 1de6 e020 | | Load 0x0,0x20 1de7 1844 | D | Execute Package,Field_Execute,Field_Number 0x44 1de8 e5fe | | Load 0x2,-0x2 1de9 e009 | | Load 0x0,0x9 1dea 18d1 | | Execute Package,Field_Execute,Field_Number 0xd1 1deb 01cc | | Execute Vector,Catenate 1dec e402 | | Load 0x2,0x2 1ded e020 | | Load 0x0,0x20 1dee 1845 | E | Execute Package,Field_Execute,Field_Number 0x45 1def 01cc | | Execute Vector,Catenate 1df0 e5f9 | | Load 0x2,-0x7 1df1 01cc | | Execute Vector,Catenate 1df2 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 1df3 00d8 | | Load_Top At_Offset_0 1df4 e402 | | Load 0x2,0x2 1df5 e020 | | Load 0x0,0x20 1df6 1843 | C | Execute Package,Field_Execute,Field_Number 0x43 1df7 01cc | | Execute Vector,Catenate 1df8 e402 | | Load 0x2,0x2 1df9 e020 | | Load 0x0,0x20 1dfa 1844 | D | Execute Package,Field_Execute,Field_Number 0x44 1dfb 01cc | | Execute Vector,Catenate 1dfc e5fe | | Load 0x2,-0x2 1dfd e009 | | Load 0x0,0x9 1dfe 18d1 | | Execute Package,Field_Execute,Field_Number 0xd1 1dff 01cc | | Execute Vector,Catenate 1e00 e402 | | Load 0x2,0x2 1e01 e020 | | Load 0x0,0x20 1e02 1845 | E | Execute Package,Field_Execute,Field_Number 0x45 1e03 01cc | | Execute Vector,Catenate 1e04 e5f9 | | Load 0x2,-0x7 1e05 01cc | | Execute Vector,Catenate 1e06 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 1e07 00d8 | | Load_Top At_Offset_0 1e08 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 1e09 0000 0000 | | .BLANK 0000[0x7] 1e10 ; -------------------------------------------------------------------------------------- 1e10 ; SUBPROGRAM 1e10 ; -------------------------------------------------------------------------------------- 1e10 1e16 | | .CONST 0x1e16 ; Address of begin 1e11 0004 | | .CONST 0x0004 ; Address of exception handler 1e12 0002 | | .CONST 0x0002 ; Number of locals 1e13 INIT_1e10: 1e13 e5fe | | Load 0x2,-0x2 1e14 e009 | | Load 0x0,0x9 1e15 18ce | | Execute Package,Field_Execute,Field_Number 0xce 1e16 BODY_1e10: 1e16 00d8 | | Load_Top At_Offset_0 1e17 01db | | Execute Vector,Length 1e18 0c01 | | Execute_Immediate Greater_Equal,0x1 1e19 6809 |h | Jump_Zero 0x1e23 1e1a e5f6 | | Load 0x2,-0xa 1e1b e5f7 | | Load 0x2,-0x9 1e1c e5f8 | | Load 0x2,-0x8 1e1d e5fc | | Load 0x2,-0x4 1e1e e5fd | | Load 0x2,-0x3 1e1f e602 | | Load 0x3,0x2 1e20 e5fe | | Load 0x2,-0x2 1e21 826f | o | Call 0x1,0x6f 1e22 c5f6 | | Store 0x2,-0xa 1e23 4501 |E | Exit_Suprogram New_Top_Offset 0x1 1e24 0000 0000 | | .BLANK 0000[0x4] 1e28 ; -------------------------------------------------------------------------------------- 1e28 ; SUBPROGRAM 1e28 ; -------------------------------------------------------------------------------------- 1e28 1e30 | 0 | .CONST 0x1e30 ; Address of begin 1e29 0004 | | .CONST 0x0004 ; Address of exception handler 1e2a 0003 | | .CONST 0x0003 ; Number of locals 1e2b INIT_1e28: 1e2b e005 | | Load 0x0,0x5 1e2c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 1e2d e5fe | | Load 0x2,-0x2 1e2e e009 | | Load 0x0,0x9 1e2f 18cf | | Execute Package,Field_Execute,Field_Number 0xcf 1e30 BODY_1e28: 1e30 00d8 | | Load_Top At_Offset_0 1e31 01db | | Execute Vector,Length 1e32 0c01 | | Execute_Immediate Greater_Equal,0x1 1e33 6809 |h | Jump_Zero 0x1e3d 1e34 00d9 | | Load_Top At_Offset_1 1e35 e5f7 | | Load 0x2,-0x9 1e36 e5f8 | | Load 0x2,-0x8 1e37 e5fc | | Load 0x2,-0x4 1e38 e5fd | | Load 0x2,-0x3 1e39 e603 | | Load 0x3,0x3 1e3a e5fe | | Load 0x2,-0x2 1e3b 826f | o | Call 0x1,0x6f 1e3c 005a | Z | Store_Top Discrete,At_Offset_2 1e3d 4501 |E | Exit_Suprogram New_Top_Offset 0x1 1e3e 0000 0000 | | .XXX[0x2] 1e40 ; -------------------------------------------------------------------------------------- 1e40 ; SUBPROGRAM 1e40 ; -------------------------------------------------------------------------------------- 1e40 1e43 | C | .CONST 0x1e43 ; Address of begin 1e41 1e58 | X | .CONST 0x1e58 ; Address of exception handler 1e42 0001 | | .CONST 0x0001 ; Number of locals 1e43 BODY_1e40: 1e43 INIT_1e40: 1e43 4800 |H | Short_Literal 0x0 1e44 4801 |H | Short_Literal 0x1 1e45 4800 |H | Short_Literal 0x0 1e46 4801 |H | Short_Literal 0x1 1e47 e5fa | | Load 0x2,-0x6 1e48 e006 | | Load 0x0,0x6 1e49 183e | > | Execute Package,Field_Execute,Field_Number 0x3e 1e4a e011 | | Load 0x0,0x11 1e4b 184a | J | Execute Package,Field_Execute,Field_Number 0x4a 1e4c 4800 |H | Short_Literal 0x0 1e4d 0092 1eef | | Action Push_String_Extended,0x1eef ; "<ALL_WORLDS>" 1e4f 4803 |H | Short_Literal 0x3 1e50 4803 |H | Short_Literal 0x3 1e51 e5fe | | Load 0x2,-0x2 1e52 e002 | | Load 0x0,0x2 1e53 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 1e54 183e | > | Execute Package,Field_Execute,Field_Number 0x3e 1e55 e024 | $ | Load 0x0,0x24 1e56 181a | | Execute Package,Field_Execute,Field_Number 0x1a 1e57 4501 |E | Exit_Suprogram New_Top_Offset 0x1 1e58 TRAP_1e40: 1e58 0007 | | Action Break_Optional 1e59 e604 | | Load 0x3,0x4 1e5a e011 | | Load 0x0,0x11 1e5b 1815 | | Execute Package,Field_Execute,Field_Number 0x15 1e5c 4801 |H | Short_Literal 0x1 1e5d 4802 |H | Short_Literal 0x2 1e5e e004 | | Load 0x0,0x4 1e5f 1b0f | | Execute Package,Field_Read,Field_Number 0xf 1e60 0334 | 4 | Declare_Variable Array,With_Constraint 1e61 0092 1ef0 | | Action Push_String_Extended,0x1ef0 ; "Failed while compiling closure of " 1e63 e5fe | | Load 0x2,-0x2 1e64 e002 | | Load 0x0,0x2 1e65 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 1e66 183e | > | Execute Package,Field_Execute,Field_Number 0x3e 1e67 01cc | | Execute Vector,Catenate 1e68 e004 | | Load 0x0,0x4 1e69 1810 | | Execute Package,Field_Execute,Field_Number 0x10 1e6a e004 | | Load 0x0,0x4 1e6b 1b0e | | Execute Package,Field_Read,Field_Number 0xe 1e6c 0119 | | Execute Any,Check_In_Formal_Type 1e6d 4801 |H | Short_Literal 0x1 1e6e 00da | | Load_Top At_Offset_2 1e6f 01d6 | | Execute Vector,Field_Write 1e70 e404 | | Load 0x2,0x4 1e71 e006 | | Load 0x0,0x6 1e72 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 1e73 e004 | | Load 0x0,0x4 1e74 1b0e | | Execute Package,Field_Read,Field_Number 0xe 1e75 0119 | | Execute Any,Check_In_Formal_Type 1e76 4802 |H | Short_Literal 0x2 1e77 00da | | Load_Top At_Offset_2 1e78 01d6 | | Execute Vector,Field_Write 1e79 600a |` | Indirect_Literal Discrete,0x1e84,{0x00000000, 0x00008126} 1e7a e005 | | Load 0x0,0x5 1e7b 1813 | | Execute Package,Field_Execute,Field_Number 0x13 1e7c a7ff | | Store_Unchecked 0x3,-0x1 1e7d e5fa | | Load 0x2,-0x6 1e7e e7ff | | Load 0x3,-0x1 1e7f e005 | | Load 0x0,0x5 1e80 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 1e81 00cc | | Action Pop_Block 1e82 4501 |E | Exit_Suprogram New_Top_Offset 0x1 1e83 0000 | | .XXX[0x1] 1e84 0000 0000 | | .LITERAL {0x00000000, 0x00008126} 1e88 ; -------------------------------------------------------------------------------------- 1e88 ; SUBPROGRAM 1e88 ; -------------------------------------------------------------------------------------- 1e88 1e8f | | .CONST 0x1e8f ; Address of begin 1e89 0004 | | .CONST 0x0004 ; Address of exception handler 1e8a 0002 | | .CONST 0x0002 ; Number of locals 1e8b INIT_1e88: 1e8b e5fc | | Load 0x2,-0x4 1e8c e408 | | Load 0x2,0x8 1e8d e00d | | Load 0x0,0xd 1e8e 1870 | p | Execute Package,Field_Execute,Field_Number 0x70 1e8f BODY_1e88: 1e8f 00d8 | | Load_Top At_Offset_0 1e90 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 1e91 6803 |h | Jump_Zero 0x1e95 1e92 e005 | | Load 0x0,0x5 1e93 1b17 | | Execute Package,Field_Read,Field_Number 0x17 1e94 0257 | W | Execute Discrete,Raise 1e95 e40c | | Load 0x2,0xc 1e96 e5fc | | Load 0x2,-0x4 1e97 e40f | | Load 0x2,0xf 1e98 4801 |H | Short_Literal 0x1 1e99 e802 | | Load 0x4,0x2 1e9a 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 1e9b e40e | | Load 0x2,0xe 1e9c e40d | | Load 0x2,0xd 1e9d e5fe | | Load 0x2,-0x2 1e9e e5fd | | Load 0x2,-0x3 1e9f e5ff | | Load 0x2,-0x1 1ea0 8272 | r | Call 0x1,0x72 1ea1 c40c | | Store 0x2,0xc 1ea2 4501 |E | Exit_Suprogram New_Top_Offset 0x1 1ea3 ; -------------------------------------------------------------------------------------- 1ea3 ; STRING TABLE 1ea3 ; -------------------------------------------------------------------------------------- 1ea3 009e | | .STRTAB 0x009e->0x1ef2 ; "Target_Builder.Unit.Referencers" 1ea4 00bb | | .STRTAB 0x00bb->0x1f01 ; "Target_Builder.Unit.Suppliers" 1ea5 00d6 | | .STRTAB 0x00d6->0x1f10 ; "Link" 1ea6 00d8 | | .STRTAB 0x00d8->0x1f12 ; "<error>" 1ea7 00dd | | .STRTAB 0x00dd->0x1f15 ; "There are un-Coded Units." 1ea8 00f4 | | .STRTAB 0x00f4->0x1f22 ; "Target_Builder.Unit.Link" 1ea9 010a | | .STRTAB 0x010a->0x1f2e ; "Compile" 1eaa 010f | | .STRTAB 0x010f->0x1f31 ; "Target_Builder.Unit.Promote" 1eab 0128 | ( | .STRTAB 0x0128->0x1f3f ; "Demoting => " 1eac 0133 | 3 | .STRTAB 0x0133->0x1f45 ; "Demote" 1ead 0137 | 7 | .STRTAB 0x0137->0x1f48 ; "Target_Builder.Unit.Demote" 1eae 014f | O | .STRTAB 0x014f->0x1f55 ; "Unit_Target_Name" 1eaf 015d | ] | .STRTAB 0x015d->0x1f5d ; "Target_Builder.Unit.Unit_Target_Name" 1eb0 017f | | .STRTAB 0x017f->0x1f6f ; "Target_Builder.Unit.Unit_Name" 1eb1 019a | | .STRTAB 0x019a->0x1f7e ; "Set_Unit_Target_Name" 1eb2 01ac | | .STRTAB 0x01ac->0x1f88 ; "*" 1eb3 01ab | | .STRTAB 0x01ab->0x1f88 ; "Target name for unit \x22" 1eb4 01bf | | .STRTAB 0x01bf->0x1f93 ; "\x22 has been set to \x22" 1eb5 01d0 | | .STRTAB 0x01d0->0x1f9d ; "\x22" 1eb6 01cf | | .STRTAB 0x01cf->0x1f9d ; "Unit \x22" 1eb7 01d3 | | .STRTAB 0x01d3->0x1fa0 ; "\x22 will be made non-downloadable" 1eb8 01f0 | | .STRTAB 0x01f0->0x1fb0 ; "Target_Builder.Unit.Set_Unit_Target_Name" 1eb9 0216 | | .STRTAB 0x0216->0x1fc4 ; "Has_Unit_Target_Name" 1eba 0228 | ( | .STRTAB 0x0228->0x1fce ; "Target_Builder.Unit.Has_Unit_Target_Name" 1ebb 024e | N | .STRTAB 0x024e->0x1fe2 ; "Download_Time" 1ebc 0259 | Y | .STRTAB 0x0259->0x1fe8 ; "Target_Builder.Unit.Download_Time" 1ebd 0278 | x | .STRTAB 0x0278->0x1ff9 ; "Set_Download_Time" 1ebe 0287 | | .STRTAB 0x0287->0x2001 ; "Setting download time for => " 1ebf 02a3 | | .STRTAB 0x02a3->0x2010 ; " to " 1ec0 02a5 | | .STRTAB 0x02a5->0x2012 ; "Target_Builder.Unit.Set_Download_Time" 1ec1 02c8 | | .STRTAB 0x02c8->0x2025 ; "Target_Builder.Unit.Refresh_Suppliers" 1ec2 02eb | | .STRTAB 0x02eb->0x2037 ; "Refresh_Suppliers" 1ec3 02fa | | .STRTAB 0x02fa->0x2040 ; "Target_Builder.Unit.Register" 1ec4 0314 | | .STRTAB 0x0314->0x204e ; "register" 1ec5 031a | | .STRTAB 0x031a->0x2052 ; "Register" 1ec6 0320 | | .STRTAB 0x0320->0x2056 ; "Add_Secondary_Unit" 1ec7 0330 | 0 | .STRTAB 0x0330->0x205f ; "Added " 1ec8 0334 | 4 | .STRTAB 0x0334->0x2062 ; " as the secondary of unit " 1ec9 034c | L | .STRTAB 0x034c->0x206f ; ". Prefix = \x22" 1eca 0357 | W | .STRTAB 0x0357->0x2075 ; "\x22, Suffix = \x22" 1ecb 0362 | b | .STRTAB 0x0362->0x207c ; "Target_Builder.Unit.Add_Secondary_Unit" 1ecc 0386 | | .STRTAB 0x0386->0x208f ; "Remove_Secondary_Unit (Primary)" 1ecd 03a3 | | .STRTAB 0x03a3->0x209e ; "Remove_Secondary_Unit (Secondary)" 1ece 03c2 | | .STRTAB 0x03c2->0x20af ; "Removed " 1ecf 03c8 | | .STRTAB 0x03c8->0x20b3 ; "Target_Builder.Unit.Remove_Secondary_Unit" 1ed0 03ef | | .STRTAB 0x03ef->0x20c7 ; "Has_Secondary_Unit" 1ed1 03ff | | .STRTAB 0x03ff->0x20d0 ; "Target_Builder.Unit.Has_Secondary_Unit" 1ed2 0423 | # | .STRTAB 0x0423->0x20e3 ; "Is_Secondary_Unit" 1ed3 0432 | 2 | .STRTAB 0x0432->0x20ec ; "Target_Builder.Unit.Is_Secondary_Unit" 1ed4 0455 | U | .STRTAB 0x0455->0x20fe ; "Primary_Unit" 1ed5 045f | _ | .STRTAB 0x045f->0x2104 ; "Target_Builder.Unit.Primary_Unit" 1ed6 047d | } | .STRTAB 0x047d->0x2114 ; "Secondary_Unit" 1ed7 0489 | | .STRTAB 0x0489->0x211b ; "Target_Builder.Unit.Secondary_Unit" 1ed8 04a9 | | .STRTAB 0x04a9->0x212c ; "Secondary_Prefix" 1ed9 04b7 | | .STRTAB 0x04b7->0x2134 ; "Target_Builder.Unit.Secondary_Prefix" 1eda 04d9 | | .STRTAB 0x04d9->0x2146 ; "Secondary_Suffix" 1edb 04e7 | | .STRTAB 0x04e7->0x214e ; "Target_Builder.Unit.Secondary_Suffix" 1edc 0509 | | .STRTAB 0x0509->0x2160 ; "Serial_Number" 1edd 0514 | | .STRTAB 0x0514->0x2167 ; "Target_Builder.Unit.Serial_Number" 1ede 0533 | 3 | .STRTAB 0x0533->0x2177 ; "}?{ Check_Unit Target_Builder.Unit." 1edf 0557 | W | .STRTAB 0x0557->0x218a ; "Target_Builder.Unit.Establish_Download_Time" 1ee0 0580 | | .STRTAB 0x0580->0x21a0 ; "Acquiring Remote Connection => " 1ee1 059e | | .STRTAB 0x059e->0x21b0 ; "Change Directory Context" 1ee2 05b4 | | .STRTAB 0x05b4->0x21bc ; "Change Library Context" 1ee3 05c8 | | .STRTAB 0x05c8->0x21c7 ; "Rs6000_Aix_Ibm" 1ee4 05d4 | | .STRTAB 0x05d4->0x21ce ; ".exe" 1ee5 05d6 | | .STRTAB 0x05d6->0x21d0 ; "Target_Builder.Unit.Link (in Make_Closure)" 1ee6 05fe | | .STRTAB 0x05fe->0x21e5 ; "Transferring => " 1ee7 060d | | .STRTAB 0x060d->0x21ed ; "Retrieving remote update time for host unit => " 1ee8 063b | ; | .STRTAB 0x063b->0x2205 ; "Elapsed time for setting download time => " 1ee9 0663 | c | .STRTAB 0x0663->0x221a ; " seconds." 1eea 066a | j | .STRTAB 0x066a->0x221f ; "Promoting => " 1eeb 0676 | v | .STRTAB 0x0676->0x2226 ; "Promote" 1eec 067b | { | .STRTAB 0x067b->0x2229 ; "?'IS(DOWNLOADABLE)" 1eed 068b | | .STRTAB 0x068b->0x2232 ; "Unix" 1eee 068d | | .STRTAB 0x068d->0x2234 ; "Other" 1eef 0690 | | .STRTAB 0x0690->0x2237 ; "<ALL_WORLDS>" 1ef0 069a | | .STRTAB 0x069a->0x223d ; "Failed while compiling closure of " 1ef1 06ba | | .STREND 0x06ba->0x224e 1ef2 5461 7267 |Targ| .STRTAB_STRINGS 224e 0000 0000 | | .XXX[0x2] 2250 ; -------------------------------------------------------------------------------------- 2250 ; Debug Table 2250 ; -------------------------------------------------------------------------------------- 2250 0004 000c | | .DEBUG4 0x0004,0x000c,0x2dff,0x0000,0x0001,0x0000 2256 0b00 0000 | | .XXX[0x1aa] 2258 8047 2a29 | G*)| 225a 0000 000b | | 225c 0f6a d50b | j | 225e 0000 0080 | | 2260 0f6a d50b | j | 2262 0000 0080 | | 2264 4467 a100 |Dg | 2266 0000 0b0f | | 2268 6ad9 0b00 |j | 226a 0000 800f | | 226c 6ad9 0b00 |j | 226e 0000 8049 | I| 2270 e7a9 0000 | | 2272 000b 0f6a | j| 2274 dd0b 0000 | | 2276 0080 0f6a | j| 2278 dd0b 0000 | | 227a 0080 4a05 | J | 227c 2100 0000 |! | 227e 0b0e 3c3d | <=| 2280 0a00 0000 | | 2282 800e 3c3d | <=| 2284 0a00 0000 | | 2286 8049 a921 | I !| 2288 0000 000b | | 228a 0e3c 7d0a | <} | 228c 0000 0080 | | 228e 0e4c 050a | L | 2290 0000 0080 | | 2292 25f1 e900 |% | 2294 0000 0b0e | | 2296 3c85 0a00 |< | 2298 0000 800e | | 229a 3c85 0a00 |< | 229c 0000 8044 | D| 229e 9711 0000 | | 22a0 000b 0e3c | <| 22a2 890a 0000 | | 22a4 0080 0e3c | <| 22a6 890a 0000 | | 22a8 0080 49a8 | I | 22aa 6900 0000 |i | 22ac 0b0e 3c8d | < | 22ae 0a00 0000 | | 22b0 800e 3c8d | < | 22b2 0a00 0000 | | 22b4 804a 08b9 | J | 22b6 0000 000b | | 22b8 0e3c ad0a | < | 22ba 0000 0080 | | 22bc 0e3c ad0a | < | 22be 0000 0080 | | 22c0 472a e100 |G* | 22c2 0000 0b0f | | 22c4 6b81 0b00 |k | 22c6 0000 800f | | 22c8 8f3d 0b00 | = | 22ca 0000 8040 | @| 22cc 17a1 0000 | | 22ce 000b 0f6b | k| 22d0 890b 0000 | | 22d2 0080 0f6b | k| 22d4 890b 0000 | | 22d6 0080 4019 | @ | 22d8 1100 0000 | | 22da 0b0f 6b8d | k | 22dc 0b00 0000 | | 22de 800f 6b8d | k | 22e0 0b00 0000 | | 22e2 804a 0c51 | J Q| 22e4 0000 000b | | 22e6 0f6b a90b | k | 22e8 0000 0080 | | 22ea 0f8f 550b | U | 22ec 0000 0080 | | 22ee 4019 c900 |@ | 22f0 0000 0b0f | | 22f2 6bb1 0b00 |k | 22f4 0000 800f | | 22f6 6bb1 0b00 |k | 22f8 0000 8045 | E| 22fa 1c09 0000 | | 22fc 000b 0f6b | k| 22fe b50b 0000 | | 2300 0080 0f6b | k| 2302 b50b 0000 | | 2304 0080 4a0e | J | 2306 7900 0000 |y | 2308 0b0f 6bf5 | k | 230a 0b00 0000 | | 230c 800f 6bf5 | k | 230e 0b00 0000 | | 2310 8047 2fe9 | G/ | 2312 0000 000b | | 2314 0f6c 210b | l! | 2316 0000 0080 | | 2318 0f8f 250b | % | 231a 0000 0080 | | 231c 4732 c900 |G2 | 231e 0000 0b0f | | 2320 6c29 0b00 |l) | 2322 0000 800f | | 2324 6c29 0b00 |l) | 2326 0000 8044 | D| 2328 e341 0000 | A | 232a 000b 0f6c | l| 232c 2d0b 0000 |- | 232e 0080 0f6c | l| 2330 2d0b 0000 |- | 2332 0080 4a11 | J | 2334 5900 0000 |Y | 2336 0b0f 6c8d | l | 2338 0b00 0000 | | 233a 800f 8f2d | -| 233c 0b00 0000 | | 233e 803d 3bf1 | =; | 2340 0000 000b | | 2342 0f6c 950b | l | 2344 0000 0080 | | 2346 0f6c 950b | l | 2348 0000 0080 | | 234a 4735 a900 |G5 | 234c 0000 0b0f | | 234e 6c99 0b00 |l | 2350 0000 800f | | 2352 6c99 0b00 |l | 2354 0000 804a | J| 2356 1381 0000 | | 2358 000b 0e3d | =| 235a 090a 0000 | | 235c 0080 0e3d | =| 235e 090a 0000 | | 2360 0080 4737 | G7| 2362 1900 0000 | | 2364 0b0f 6cc9 | l | 2366 0b00 0000 | | 2368 800f 6cc9 | l | 236a 0b00 0000 | | 236c 8047 3941 | G9A| 236e 0000 000b | | 2370 0f6c fd0b | l | 2372 0000 0080 | | 2374 0f6d 850b | m | 2376 0000 0080 | | 2378 4739 f900 |G9 | 237a 0000 0b0f | | 237c 6d05 0b00 |m | 237e 0000 800f | | 2380 6d05 0b00 |m | 2382 0000 8039 | 9| 2384 b6a1 0000 | | 2386 000b 0f6d | m| 2388 090b 0000 | | 238a 0080 0f6d | m| 238c 090b 0000 | | 238e 0080 4a17 | J | 2390 1900 0000 | | 2392 0b0e 3d55 | =U| 2394 0a00 0000 | | 2396 800e 3d55 | =U| 2398 0a00 0000 | | 239a 803d 4491 | =D | 239c 0000 000b | | 239e 0e3d 7d0a | =} | 23a0 0000 0080 | | 23a2 0e3d 7d0a | =} | 23a4 0000 0080 | | 23a6 4895 2100 |H ! | 23a8 0000 0b0f | | 23aa 6d85 0b00 |m | 23ac 0000 800f | | 23ae 6d85 0b00 |m | 23b0 0000 804a | J| 23b2 17d1 0000 | | 23b4 000b 0e3d | =| 23b6 d90a 0000 | | 23b8 0080 0e3e | >| 23ba 1d0a 0000 | | 23bc 0080 4741 | GA| 23be e100 0000 | | 23c0 0b0e 3de5 | = | 23c2 0a00 0000 | | 23c4 800e 3de5 | = | 23c6 0a00 0000 | | 23c8 8041 9f59 | A Y| 23ca 0000 000b | | 23cc 0e3d e90a | = | 23ce 0000 0080 | | 23d0 0e3d e90a | = | 23d2 0000 0080 | | 23d4 4894 6900 |H i | 23d6 0000 0b0e | | 23d8 3ded 0a00 |= | 23da 0000 800e | | 23dc 3ded 0a00 |= | 23de 0000 804a | J| 23e0 1b69 0000 | i | 23e2 000b 0e3d | =| 23e4 fd0a 0000 | | 23e6 0080 0e3d | =| 23e8 fd0a 0000 | | 23ea 0080 41a0 | A | 23ec 1100 0000 | | 23ee 0b0f 6d95 | m | 23f0 0b00 0000 | | 23f2 800f 6d95 | m | 23f4 0b00 0000 | | 23f6 8047 4579 | GEy| 23f8 0000 000b | | 23fa 0e3e 1d0a | > | 23fc 0000 0080 | | 23fe 0e3e 1d0a | > |