|
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: 7168 (0x1c00) Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_ccb0b3
└─⟦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 0c50 | P | .CONST 0x0c50 ; 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 8007 | | .CONST 0x8007 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 0199 | | .CONST 0x0199 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0055 | U | .CONST 0x0055 ; Number of locals 000b INIT_0008: 000b e001 | | Load 0x0,0x1 000c 1b11 | | Execute Package,Field_Read,Field_Number 0x11 000d 0129 | ) | Execute Any,Make_Visible 000e 029a 01a3 | | Declare_Subprogram INIT_01a0,For_Outer_Call,Visible,Unelaborated 0010 029a 01b3 | | Declare_Subprogram INIT_01b0,For_Outer_Call,Visible,Unelaborated 0012 029a 01c3 | | Declare_Subprogram INIT_01c0,For_Outer_Call,Visible,Unelaborated 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 029a 01d3 | | Declare_Subprogram INIT_01d0,For_Outer_Call,Visible,Unelaborated 0039 c233 | 3 | Store 0x1,0x33 003a 029a 0223 | #| Declare_Subprogram INIT_0220,For_Outer_Call,Visible,Unelaborated 003c c211 | | Store 0x1,0x11 003d 029a 0233 | 3| Declare_Subprogram INIT_0230,For_Outer_Call,Visible,Unelaborated 003f c212 | | Store 0x1,0x12 0040 029a 026b | k| Declare_Subprogram INIT_0268,For_Outer_Call,Visible,Unelaborated 0042 c213 | | Store 0x1,0x13 0043 029a 0273 | s| Declare_Subprogram INIT_0270,For_Outer_Call,Visible,Unelaborated 0045 c214 | | Store 0x1,0x14 0046 029a 029b | | Declare_Subprogram INIT_0298,For_Outer_Call,Visible,Unelaborated 0048 c215 | | Store 0x1,0x15 0049 e002 | | Load 0x0,0x2 004a 1b17 | | Execute Package,Field_Read,Field_Number 0x17 004b 0129 | ) | Execute Any,Make_Visible 004c c216 | | Store 0x1,0x16 004d e216 | | Load 0x1,0x16 004e 0266 | f | Execute Discrete,Bounds 004f 00e1 | | Load_Encached Boolean_Cache 0050 02a0 | | Declare_Subprogram Null_Subprogram 0051 4801 |H | Short_Literal 0x1 0052 035e | ^ | Declare_Type Array,Defined,Visible 0053 c217 | | Store 0x1,0x17 0054 e217 | | Load 0x1,0x17 0055 0337 | 7 | Declare_Variable Array 0056 4800 |H | Short_Literal 0x0 0057 4800 |H | Short_Literal 0x0 0058 00da | | Load_Top At_Offset_2 0059 01d6 | | Execute Vector,Field_Write 005a 4805 |H | Short_Literal 0x5 005b 4801 |H | Short_Literal 0x1 005c 4801 |H | Short_Literal 0x1 005d 00d9 | | Load_Top At_Offset_1 005e e234 | 4 | Load 0x1,0x34 005f 01d6 | | Execute Vector,Field_Write 0060 3ffb |? | Loop_Increasing 0x5c 0061 e217 | | Load 0x1,0x17 0062 01c3 | | Execute Vector,Check_In_Type 0063 0129 | ) | Execute Any,Make_Visible 0064 c218 | | Store 0x1,0x18 0065 029a 02a3 | | Declare_Subprogram INIT_02a0,For_Outer_Call,Visible,Unelaborated 0067 c219 | | Store 0x1,0x19 0068 029a 02c3 | | Declare_Subprogram INIT_02c0,For_Outer_Call,Visible,Unelaborated 006a c21a | | Store 0x1,0x1a 006b 029a 02eb | | Declare_Subprogram INIT_02e8,For_Outer_Call,Visible,Unelaborated 006d c21b | | Store 0x1,0x1b 006e 029a 02fb | | Declare_Subprogram INIT_02f8,For_Outer_Call,Visible,Unelaborated 0070 c21c | | Store 0x1,0x1c 0071 029a 030b | | Declare_Subprogram INIT_0308,For_Outer_Call,Visible,Unelaborated 0073 c21d | | Store 0x1,0x1d 0074 00e3 | | Load_Encached Natural_Cache 0075 0266 | f | Execute Discrete,Bounds 0076 e20d | | Load 0x1,0xd 0077 02a0 | | Declare_Subprogram Null_Subprogram 0078 4801 |H | Short_Literal 0x1 0079 0351 | Q | Declare_Type Array,Defined,Visible,Bounds_With_Object 007a c21e | | Store 0x1,0x1e 007b 00e3 | | Load_Encached Natural_Cache 007c e003 | | Load 0x0,0x3 007d 1b0d | | Execute Package,Field_Read,Field_Number 0xd 007e 4801 |H | Short_Literal 0x1 007f 612c |a, | Indirect_Literal Discrete,0x1ac,{0x00000000, 0x7fffffff} 0080 e21e | | Load 0x1,0x1e 0081 034f | O | Declare_Type Array,Constrained,Visible,Bounds_With_Object 0082 029f 0b4b | K| Declare_Subprogram INIT_0b48,For_Call 0084 4800 |H | Short_Literal 0x0 0085 4801 |H | Short_Literal 0x1 0086 4801 |H | Short_Literal 0x1 0087 4800 |H | Short_Literal 0x0 0088 4801 |H | Short_Literal 0x1 0089 4801 |H | Short_Literal 0x1 008a 031e | | Declare_Type Variant_Record,Defined,Visible 008b c21f | | Store 0x1,0x1f 008c e217 | | Load 0x1,0x17 008d e004 | | Load 0x0,0x4 008e 1b0f | | Execute Package,Field_Read,Field_Number 0xf 008f 029f 0b73 | s| Declare_Subprogram INIT_0b70,For_Call 0091 4802 |H | Short_Literal 0x2 0092 032e | . | Declare_Type Record,Defined,Visible 0093 c220 | | Store 0x1,0x20 0094 00e3 | | Load_Encached Natural_Cache 0095 0266 | f | Execute Discrete,Bounds 0096 e220 | | Load 0x1,0x20 0097 029f 0313 | | Declare_Subprogram INIT_0310,For_Call 0099 4801 |H | Short_Literal 0x1 009a 0351 | Q | Declare_Type Array,Defined,Visible,Bounds_With_Object 009b c221 | ! | Store 0x1,0x21 009c 4801 |H | Short_Literal 0x1 009d 4800 |H | Short_Literal 0x0 009e e221 | ! | Load 0x1,0x21 009f 035b | [ | Declare_Type Array,Constrained 00a0 0336 | 6 | Declare_Variable Array,Visible 00a1 00d8 | | Load_Top At_Offset_0 00a2 0335 | 5 | Declare_Variable Array,Duplicate 00a3 00cd | | Action Spare6_Action 00a4 00d9 | | Load_Top At_Offset_1 00a5 01d4 | | Execute Vector,Structure_Write 00a6 c222 | " | Store 0x1,0x22 00a7 029a 032b | +| Declare_Subprogram INIT_0328,For_Outer_Call,Visible,Unelaborated 00a9 c223 | # | Store 0x1,0x23 00aa 029a 036b | k| Declare_Subprogram INIT_0368,For_Outer_Call,Visible,Unelaborated 00ac c224 | $ | Store 0x1,0x24 00ad 029a 037b | {| Declare_Subprogram INIT_0378,For_Outer_Call,Visible,Unelaborated 00af c225 | % | Store 0x1,0x25 00b0 029a 03d3 | | Declare_Subprogram INIT_03d0,For_Outer_Call,Visible,Unelaborated 00b2 c226 | & | Store 0x1,0x26 00b3 029a 0493 | | Declare_Subprogram INIT_0490,For_Outer_Call,Visible,Unelaborated 00b5 c227 | ' | Store 0x1,0x27 00b6 029a 04bb | | Declare_Subprogram INIT_04b8,For_Outer_Call,Visible,Unelaborated 00b8 c228 | ( | Store 0x1,0x28 00b9 029a 051b | | Declare_Subprogram INIT_0518,For_Outer_Call,Visible,Unelaborated 00bb c229 | ) | Store 0x1,0x29 00bc 029a 062b | +| Declare_Subprogram INIT_0628,For_Outer_Call,Visible,Unelaborated 00be c22a | * | Store 0x1,0x2a 00bf 029a 063b | ;| Declare_Subprogram INIT_0638,For_Outer_Call,Visible,Unelaborated 00c1 c22b | + | Store 0x1,0x2b 00c2 e217 | | Load 0x1,0x17 00c3 0337 | 7 | Declare_Variable Array 00c4 4801 |H | Short_Literal 0x1 00c5 4801 |H | Short_Literal 0x1 00c6 00da | | Load_Top At_Offset_2 00c7 01d6 | | Execute Vector,Field_Write 00c8 4801 |H | Short_Literal 0x1 00c9 4802 |H | Short_Literal 0x2 00ca 00da | | Load_Top At_Offset_2 00cb 01d6 | | Execute Vector,Field_Write 00cc 4800 |H | Short_Literal 0x0 00cd 4800 |H | Short_Literal 0x0 00ce 00da | | Load_Top At_Offset_2 00cf 01d6 | | Execute Vector,Field_Write 00d0 4805 |H | Short_Literal 0x5 00d1 4803 |H | Short_Literal 0x3 00d2 4800 |H | Short_Literal 0x0 00d3 00d9 | | Load_Top At_Offset_1 00d4 e234 | 4 | Load 0x1,0x34 00d5 01d6 | | Execute Vector,Field_Write 00d6 3ffb |? | Loop_Increasing 0xd2 00d7 e217 | | Load 0x1,0x17 00d8 01c3 | | Execute Vector,Check_In_Type 00d9 0129 | ) | Execute Any,Make_Visible 00da c22c | , | Store 0x1,0x2c 00db e217 | | Load 0x1,0x17 00dc 0337 | 7 | Declare_Variable Array 00dd 4804 |H | Short_Literal 0x4 00de 4801 |H | Short_Literal 0x1 00df 4801 |H | Short_Literal 0x1 00e0 00d9 | | Load_Top At_Offset_1 00e1 e234 | 4 | Load 0x1,0x34 00e2 01d6 | | Execute Vector,Field_Write 00e3 3ffb |? | Loop_Increasing 0xdf 00e4 4800 |H | Short_Literal 0x0 00e5 4800 |H | Short_Literal 0x0 00e6 00da | | Load_Top At_Offset_2 00e7 01d6 | | Execute Vector,Field_Write 00e8 4800 |H | Short_Literal 0x0 00e9 4805 |H | Short_Literal 0x5 00ea 00da | | Load_Top At_Offset_2 00eb 01d6 | | Execute Vector,Field_Write 00ec e217 | | Load 0x1,0x17 00ed 01c3 | | Execute Vector,Check_In_Type 00ee 0129 | ) | Execute Any,Make_Visible 00ef c22d | - | Store 0x1,0x2d 00f0 e217 | | Load 0x1,0x17 00f1 0337 | 7 | Declare_Variable Array 00f2 4801 |H | Short_Literal 0x1 00f3 4805 |H | Short_Literal 0x5 00f4 00da | | Load_Top At_Offset_2 00f5 01d6 | | Execute Vector,Field_Write 00f6 4804 |H | Short_Literal 0x4 00f7 4800 |H | Short_Literal 0x0 00f8 4800 |H | Short_Literal 0x0 00f9 00d9 | | Load_Top At_Offset_1 00fa e234 | 4 | Load 0x1,0x34 00fb 01d6 | | Execute Vector,Field_Write 00fc 3ffb |? | Loop_Increasing 0xf8 00fd e217 | | Load 0x1,0x17 00fe 01c3 | | Execute Vector,Check_In_Type 00ff 0129 | ) | Execute Any,Make_Visible 0100 c22e | . | Store 0x1,0x2e 0101 e217 | | Load 0x1,0x17 0102 0336 | 6 | Declare_Variable Array,Visible 0103 00d8 | | Load_Top At_Offset_0 0104 0335 | 5 | Declare_Variable Array,Duplicate 0105 00cd | | Action Spare6_Action 0106 4805 |H | Short_Literal 0x5 0107 4800 |H | Short_Literal 0x0 0108 4801 |H | Short_Literal 0x1 0109 00d9 | | Load_Top At_Offset_1 010a e235 | 5 | Load 0x1,0x35 010b 01d6 | | Execute Vector,Field_Write 010c 3ffb |? | Loop_Increasing 0x108 010d 00d9 | | Load_Top At_Offset_1 010e 01d4 | | Execute Vector,Structure_Write 010f c22f | / | Store 0x1,0x2f 0110 029a 0643 | C| Declare_Subprogram INIT_0640,For_Outer_Call,Visible,Unelaborated 0112 c230 | 0 | Store 0x1,0x30 0113 029a 067b | {| Declare_Subprogram INIT_0678,For_Outer_Call,Visible,Unelaborated 0115 c231 | 1 | Store 0x1,0x31 0116 029a 06d3 | | Declare_Subprogram INIT_06d0,For_Outer_Call,Visible,Unelaborated 0118 c232 | 2 | Store 0x1,0x32 0119 00bf | | Action Accept_Activation 011a e217 | | Load 0x1,0x17 011b 0337 | 7 | Declare_Variable Array 011c 00d8 | | Load_Top At_Offset_0 011d 0335 | 5 | Declare_Variable Array,Duplicate 011e 00cd | | Action Spare6_Action 011f 4805 |H | Short_Literal 0x5 0120 4800 |H | Short_Literal 0x0 0121 4800 |H | Short_Literal 0x0 0122 00d9 | | Load_Top At_Offset_1 0123 e235 | 5 | Load 0x1,0x35 0124 01d6 | | Execute Vector,Field_Write 0125 3ffb |? | Loop_Increasing 0x121 0126 00d9 | | Load_Top At_Offset_1 0127 01d4 | | Execute Vector,Structure_Write 0128 029b 06f3 | | Declare_Subprogram INIT_06f0,For_Outer_Call,Unelaborated 012a a005 | | Store_Unchecked 0x0,0x5 012b 00c6 | | Action Check_Subprogram_Elaborated 012c e220 | | Load 0x1,0x20 012d 00e3 | | Load_Encached Natural_Cache 012e e221 | ! | Load 0x1,0x21 012f 1d35 | 5 | Execute_Immediate Reference_Lex_1,0x35 0130 e006 | | Load 0x0,0x6 0131 e007 | | Load 0x0,0x7 0132 4800 |H | Short_Literal 0x0 0133 0007 | | Action Break_Optional 0134 029d 0703 | | Declare_Subprogram INIT_0700,For_Outer_Call 0136 029d 0713 | | Declare_Subprogram INIT_0710,For_Outer_Call 0138 029d 072b | +| Declare_Subprogram INIT_0728,For_Outer_Call 013a 1d35 | 5 | Execute_Immediate Reference_Lex_1,0x35 013b 00c7 | | Action Elaborate_Subprogram 013c 1d0e | | Execute_Immediate Reference_Lex_1,0xe 013d 00c7 | | Action Elaborate_Subprogram 013e 1d0f | | Execute_Immediate Reference_Lex_1,0xf 013f 00c7 | | Action Elaborate_Subprogram 0140 1d10 | | Execute_Immediate Reference_Lex_1,0x10 0141 00c7 | | Action Elaborate_Subprogram 0142 1d33 | 3 | Execute_Immediate Reference_Lex_1,0x33 0143 00c7 | | Action Elaborate_Subprogram 0144 1d11 | | Execute_Immediate Reference_Lex_1,0x11 0145 00c7 | | Action Elaborate_Subprogram 0146 1d12 | | Execute_Immediate Reference_Lex_1,0x12 0147 00c7 | | Action Elaborate_Subprogram 0148 1d13 | | Execute_Immediate Reference_Lex_1,0x13 0149 00c7 | | Action Elaborate_Subprogram 014a 1d14 | | Execute_Immediate Reference_Lex_1,0x14 014b 00c7 | | Action Elaborate_Subprogram 014c 1d19 | | Execute_Immediate Reference_Lex_1,0x19 014d 00c7 | | Action Elaborate_Subprogram 014e 1d1a | | Execute_Immediate Reference_Lex_1,0x1a 014f 00c7 | | Action Elaborate_Subprogram 0150 e008 | | Load 0x0,0x8 0151 193c | < | Execute Package,Field_Reference,Field_Number 0x3c 0152 00c6 | | Action Check_Subprogram_Elaborated 0153 e20d | | Load 0x1,0xd 0154 4810 |H | Short_Literal 0x10 0155 e009 | | Load 0x0,0x9 0156 1911 | | Execute Package,Field_Reference,Field_Number 0x11 0157 e009 | | Load 0x0,0x9 0158 1912 | | Execute Package,Field_Reference,Field_Number 0x12 0159 e00a | | Load 0x0,0xa 015a e00b | | Load 0x0,0xb 015b 4800 |H | Short_Literal 0x0 015c 0007 | | Action Break_Optional 015d 029d 073b | ;| Declare_Subprogram INIT_0738,For_Outer_Call 015f e008 | | Load 0x0,0x8 0160 193d | = | Execute Package,Field_Reference,Field_Number 0x3d 0161 00c6 | | Action Check_Subprogram_Elaborated 0162 e20d | | Load 0x1,0xd 0163 4810 |H | Short_Literal 0x10 0164 1d47 | G | Execute_Immediate Reference_Lex_1,0x47 0165 e001 | | Load 0x0,0x1 0166 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0167 e00c | | Load 0x0,0xc 0168 e00d | | Load 0x0,0xd 0169 4800 |H | Short_Literal 0x0 016a 0007 | | Action Break_Optional 016b 1d1b | | Execute_Immediate Reference_Lex_1,0x1b 016c 00c7 | | Action Elaborate_Subprogram 016d 1d1c | | Execute_Immediate Reference_Lex_1,0x1c 016e 00c7 | | Action Elaborate_Subprogram 016f 1d1d | | Execute_Immediate Reference_Lex_1,0x1d 0170 00c7 | | Action Elaborate_Subprogram 0171 029d 0753 | S| Declare_Subprogram INIT_0750,For_Outer_Call 0173 029d 079b | | Declare_Subprogram INIT_0798,For_Outer_Call 0175 029d 0823 | #| Declare_Subprogram INIT_0820,For_Outer_Call 0177 029d 0843 | C| Declare_Subprogram INIT_0840,For_Outer_Call 0179 1d23 | # | Execute_Immediate Reference_Lex_1,0x23 017a 00c7 | | Action Elaborate_Subprogram 017b 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24 017c 00c7 | | Action Elaborate_Subprogram 017d 029d 08b3 | | Declare_Subprogram INIT_08b0,For_Outer_Call 017f 1d25 | % | Execute_Immediate Reference_Lex_1,0x25 0180 00c7 | | Action Elaborate_Subprogram 0181 1d26 | & | Execute_Immediate Reference_Lex_1,0x26 0182 00c7 | | Action Elaborate_Subprogram 0183 029d 08fb | | Declare_Subprogram INIT_08f8,For_Outer_Call 0185 1d27 | ' | Execute_Immediate Reference_Lex_1,0x27 0186 00c7 | | Action Elaborate_Subprogram 0187 029d 0ac3 | | Declare_Subprogram INIT_0ac0,For_Outer_Call 0189 1d28 | ( | Execute_Immediate Reference_Lex_1,0x28 018a 00c7 | | Action Elaborate_Subprogram 018b 1d2a | * | Execute_Immediate Reference_Lex_1,0x2a 018c 00c7 | | Action Elaborate_Subprogram 018d 1d2b | + | Execute_Immediate Reference_Lex_1,0x2b 018e 00c7 | | Action Elaborate_Subprogram 018f 1d30 | 0 | Execute_Immediate Reference_Lex_1,0x30 0190 00c7 | | Action Elaborate_Subprogram 0191 1d31 | 1 | Execute_Immediate Reference_Lex_1,0x31 0192 00c7 | | Action Elaborate_Subprogram 0193 1d29 | ) | Execute_Immediate Reference_Lex_1,0x29 0194 00c7 | | Action Elaborate_Subprogram 0195 1d32 | 2 | Execute_Immediate Reference_Lex_1,0x32 0196 00c7 | | Action Elaborate_Subprogram 0197 1d15 | | Execute_Immediate Reference_Lex_1,0x15 0198 00c7 | | Action Elaborate_Subprogram 0199 BODY_0008: 0199 00bc | | Action Signal_Activated 019a 00bb | | Action Signal_Completion 019b 0000 0000 | | .BLANK 0000[0x5] 01a0 ; -------------------------------------------------------------------------------------- 01a0 ; SUBPROGRAM 01a0 ; -------------------------------------------------------------------------------------- 01a0 01a3 | | .CONST 0x01a3 ; Address of begin 01a1 0004 | | .CONST 0x0004 ; Address of exception handler 01a2 0001 | | .CONST 0x0001 ; Number of locals 01a3 BODY_01a0: 01a3 INIT_01a0: 01a3 00da | | Load_Top At_Offset_2 01a4 0217 | | Execute Heap_Access,All_Reference 01a5 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 01a6 0217 | | Execute Heap_Access,All_Reference 01a7 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 01a8 e00e | | Load 0x0,0xe 01a9 1812 | | Execute Package,Field_Execute,Field_Number 0x12 01aa 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01ab 0000 | | .XXX[0x1] 01ac 0000 0000 | | .LITERAL {0x00000000, 0x7fffffff} 01b0 ; -------------------------------------------------------------------------------------- 01b0 ; SUBPROGRAM 01b0 ; -------------------------------------------------------------------------------------- 01b0 01b3 | | .CONST 0x01b3 ; Address of begin 01b1 0004 | | .CONST 0x0004 ; Address of exception handler 01b2 0001 | | .CONST 0x0001 ; Number of locals 01b3 BODY_01b0: 01b3 INIT_01b0: 01b3 00da | | Load_Top At_Offset_2 01b4 0217 | | Execute Heap_Access,All_Reference 01b5 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 01b6 0217 | | Execute Heap_Access,All_Reference 01b7 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 01b8 c5fe | | Store 0x2,-0x2 01b9 4502 |E | Exit_Suprogram New_Top_Offset 0x2 01ba 0000 0000 | | .BLANK 0000[0x6] 01c0 ; -------------------------------------------------------------------------------------- 01c0 ; SUBPROGRAM 01c0 ; -------------------------------------------------------------------------------------- 01c0 01c3 | | .CONST 0x01c3 ; Address of begin 01c1 0004 | | .CONST 0x0004 ; Address of exception handler 01c2 0001 | | .CONST 0x0001 ; Number of locals 01c3 BODY_01c0: 01c3 INIT_01c0: 01c3 00da | | Load_Top At_Offset_2 01c4 0217 | | Execute Heap_Access,All_Reference 01c5 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 01c6 e001 | | Load 0x0,0x1 01c7 1b13 | | Execute Package,Field_Read,Field_Number 0x13 01c8 0216 | | Execute Heap_Access,Convert 01c9 a5fe | | Store_Unchecked 0x2,-0x2 01ca 4502 |E | Exit_Suprogram New_Top_Offset 0x2 01cb 0000 0000 | | .BLANK 0000[0x5] 01d0 ; -------------------------------------------------------------------------------------- 01d0 ; SUBPROGRAM 01d0 ; -------------------------------------------------------------------------------------- 01d0 01e1 | | .CONST 0x01e1 ; Address of begin 01d1 0004 | | .CONST 0x0004 ; Address of exception handler 01d2 0004 | | .CONST 0x0004 ; Number of locals 01d3 INIT_01d0: 01d3 00da | | Load_Top At_Offset_2 01d4 0217 | | Execute Heap_Access,All_Reference 01d5 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 01d6 e001 | | Load 0x0,0x1 01d7 1b13 | | Execute Package,Field_Read,Field_Number 0x13 01d8 0216 | | Execute Heap_Access,Convert 01d9 e004 | | Load 0x0,0x4 01da 1b0f | | Execute Package,Field_Read,Field_Number 0xf 01db 02c7 | | Declare_Variable Any 01dc 00d8 | | Load_Top At_Offset_0 01dd 1c00 | | Execute_Immediate Run_Utility,0x0 01de e004 | | Load 0x0,0x4 01df 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 01e0 1b0f | | Execute Package,Field_Read,Field_Number 0xf 01e1 BODY_01d0: 01e1 00da | | Load_Top At_Offset_2 01e2 0217 | | Execute Heap_Access,All_Reference 01e3 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 01e4 00db | | Load_Top At_Offset_3 01e5 0217 | | Execute Heap_Access,All_Reference 01e6 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 01e7 012f | / | Execute Any,Equal 01e8 6825 |h% | Jump_Zero 0x20e 01e9 e004 | | Load 0x0,0x4 01ea 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 01eb 1b0f | | Execute Package,Field_Read,Field_Number 0xf 01ec 00da | | Load_Top At_Offset_2 01ed 0120 | | Execute Any,Is_Value 01ee 6803 |h | Jump_Zero 0x1f2 01ef e004 | | Load 0x0,0x4 01f0 1b0f | | Execute Package,Field_Read,Field_Number 0xf 01f1 7801 |x | Jump 0x1f3 01f2 00da | | Load_Top At_Offset_2 01f3 6024 |`$ | Indirect_Literal Discrete,0x218,{0x00000000, 0x00004000} 01f4 e00f | | Load 0x0,0xf 01f5 1b0e | | Execute Package,Field_Read,Field_Number 0xe 01f6 e010 | | Load 0x0,0x10 01f7 1811 | | Execute Package,Field_Execute,Field_Number 0x11 01f8 e004 | | Load 0x0,0x4 01f9 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 01fa 1816 | | Execute Package,Field_Execute,Field_Number 0x16 01fb 482e |H. | Short_Literal 0x2e 01fc e5ff | | Load 0x2,-0x1 01fd 820e | | Call 0x1,0xe 01fe 01cb | | Execute Vector,Append 01ff e5ff | | Load 0x2,-0x1 0200 8211 | | Call 0x1,0x11 0201 01cc | | Execute Vector,Catenate 0202 e004 | | Load 0x0,0x4 0203 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0204 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 0205 c403 | | Store 0x2,0x3 0206 0059 | Y | Store_Top Discrete,At_Offset_1 0207 00d8 | | Load_Top At_Offset_0 0208 7002 |p | Jump_Nonzero 0x20b 0209 00d9 | | Load_Top At_Offset_1 020a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 020b e004 | | Load 0x0,0x4 020c 1810 | | Execute Package,Field_Execute,Field_Number 0x10 020d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 020e e5ff | | Load 0x2,-0x1 020f 0217 | | Execute Heap_Access,All_Reference 0210 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 0211 00d8 | | Load_Top At_Offset_0 0212 0120 | | Execute Any,Is_Value 0213 7002 |p | Jump_Nonzero 0x216 0214 00d8 | | Load_Top At_Offset_0 0215 011e | | Execute Any,Convert 0216 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0217 0000 | | .XXX[0x1] 0218 0000 0000 | | .LITERAL {0x00000000, 0x00004000} 021c 0000 0000 | | .BLANK 0000[0x4] 0220 ; -------------------------------------------------------------------------------------- 0220 ; SUBPROGRAM 0220 ; -------------------------------------------------------------------------------------- 0220 0223 | # | .CONST 0x0223 ; Address of begin 0221 0004 | | .CONST 0x0004 ; Address of exception handler 0222 0001 | | .CONST 0x0001 ; Number of locals 0223 BODY_0220: 0223 INIT_0220: 0223 00da | | Load_Top At_Offset_2 0224 0217 | | Execute Heap_Access,All_Reference 0225 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0226 e00e | | Load 0x0,0xe 0227 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0228 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0229 0000 0000 | | .BLANK 0000[0x7] 0230 ; -------------------------------------------------------------------------------------- 0230 ; SUBPROGRAM 0230 ; -------------------------------------------------------------------------------------- 0230 0239 | 9 | .CONST 0x0239 ; Address of begin 0231 0004 | | .CONST 0x0004 ; Address of exception handler 0232 0002 | | .CONST 0x0002 ; Number of locals 0233 INIT_0230: 0233 00da | | Load_Top At_Offset_2 0234 0217 | | Execute Heap_Access,All_Reference 0235 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0236 e001 | | Load 0x0,0x1 0237 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0238 0216 | | Execute Heap_Access,Convert 0239 BODY_0230: 0239 00d8 | | Load_Top At_Offset_0 023a 0217 | | Execute Heap_Access,All_Reference 023b 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 023c e00e | | Load 0x0,0xe 023d 1814 | | Execute Package,Field_Execute,Field_Number 0x14 023e 7009 |p | Jump_Nonzero 0x248 023f 00d8 | | Load_Top At_Offset_0 0240 0217 | | Execute Heap_Access,All_Reference 0241 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0242 e00e | | Load 0x0,0xe 0243 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0244 e5ff | | Load 0x2,-0x1 0245 8211 | | Call 0x1,0x11 0246 01cc | | Execute Vector,Catenate 0247 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0248 00d8 | | Load_Top At_Offset_0 0249 0217 | | Execute Heap_Access,All_Reference 024a 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 024b 00d9 | | Load_Top At_Offset_1 024c 0217 | | Execute Heap_Access,All_Reference 024d 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 024e 012f | / | Execute Any,Equal 024f 6808 |h | Jump_Zero 0x258 0250 482e |H. | Short_Literal 0x2e 0251 e5ff | | Load 0x2,-0x1 0252 820e | | Call 0x1,0xe 0253 01cb | | Execute Vector,Append 0254 e5ff | | Load 0x2,-0x1 0255 8211 | | Call 0x1,0x11 0256 01cc | | Execute Vector,Catenate 0257 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0258 00db | | Load_Top At_Offset_3 0259 820e | | Call 0x1,0xe 025a 0092 0b85 | | Action Push_String_Extended,0xb85 ; "'Load_View." 025c 01cc | | Execute Vector,Catenate 025d e5ff | | Load 0x2,-0x1 025e 8211 | | Call 0x1,0x11 025f 01cc | | Execute Vector,Catenate 0260 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0261 0000 0000 | | .BLANK 0000[0x7] 0268 ; -------------------------------------------------------------------------------------- 0268 ; SUBPROGRAM 0268 ; -------------------------------------------------------------------------------------- 0268 026b | k | .CONST 0x026b ; Address of begin 0269 0004 | | .CONST 0x0004 ; Address of exception handler 026a 0001 | | .CONST 0x0001 ; Number of locals 026b BODY_0268: 026b INIT_0268: 026b 00da | | Load_Top At_Offset_2 026c 0217 | | Execute Heap_Access,All_Reference 026d 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 026e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 026f 0000 | | .XXX[0x1] 0270 ; -------------------------------------------------------------------------------------- 0270 ; SUBPROGRAM 0270 ; -------------------------------------------------------------------------------------- 0270 0273 | s | .CONST 0x0273 ; Address of begin 0271 0004 | | .CONST 0x0004 ; Address of exception handler 0272 0001 | | .CONST 0x0001 ; Number of locals 0273 BODY_0270: 0273 INIT_0270: 0273 00da | | Load_Top At_Offset_2 0274 0217 | | Execute Heap_Access,All_Reference 0275 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0276 e001 | | Load 0x0,0x1 0277 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0278 0216 | | Execute Heap_Access,Convert 0279 a5fe | | Store_Unchecked 0x2,-0x2 027a 00da | | Load_Top At_Offset_2 027b 0217 | | Execute Heap_Access,All_Reference 027c 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 027d 7011 |p | Jump_Nonzero 0x28f 027e e003 | | Load 0x0,0x3 027f 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0280 4801 |H | Short_Literal 0x1 0281 4801 |H | Short_Literal 0x1 0282 e008 | | Load 0x0,0x8 0283 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0284 035b | [ | Declare_Type Array,Constrained 0285 0337 | 7 | Declare_Variable Array 0286 e5ff | | Load 0x2,-0x1 0287 821b | | Call 0x1,0x1b 0288 4801 |H | Short_Literal 0x1 0289 00da | | Load_Top At_Offset_2 028a 01d6 | | Execute Vector,Field_Write 028b 6004 |` | Indirect_Literal Discrete,0x290,{0x00000000, 0x00001803} 028c e003 | | Load 0x0,0x3 028d 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 028e c5fd | | Store 0x2,-0x3 028f 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0290 0000 0000 | | .LITERAL {0x00000000, 0x00001803} 0294 0000 0000 | | .BLANK 0000[0x4] 0298 ; -------------------------------------------------------------------------------------- 0298 ; SUBPROGRAM 0298 ; -------------------------------------------------------------------------------------- 0298 029b | | .CONST 0x029b ; Address of begin 0299 0004 | | .CONST 0x0004 ; Address of exception handler 029a 0001 | | .CONST 0x0001 ; Number of locals 029b BODY_0298: 029b INIT_0298: 029b 00da | | Load_Top At_Offset_2 029c 0217 | | Execute Heap_Access,All_Reference 029d 3c17 |< | Execute Record,Field_Read,Field_Number 0x17 029e a5fe | | Store_Unchecked 0x2,-0x2 029f 4502 |E | Exit_Suprogram New_Top_Offset 0x2 02a0 ; -------------------------------------------------------------------------------------- 02a0 ; SUBPROGRAM 02a0 ; -------------------------------------------------------------------------------------- 02a0 02a5 | | .CONST 0x02a5 ; Address of begin 02a1 0004 | | .CONST 0x0004 ; Address of exception handler 02a2 0002 | | .CONST 0x0002 ; Number of locals 02a3 INIT_02a0: 02a3 e217 | | Load 0x1,0x17 02a4 0337 | 7 | Declare_Variable Array 02a5 BODY_02a0: 02a5 00cf | | Action Mark_Auxiliary 02a6 4805 |H | Short_Literal 0x5 02a7 4802 |H | Short_Literal 0x2 02a8 0007 | | Action Break_Optional 02a9 00d8 | | Load_Top At_Offset_0 02aa e5ff | | Load 0x2,-0x1 02ab 0217 | | Execute Heap_Access,All_Reference 02ac 3405 |4 | Execute Record,Field_Reference,Field_Number 0x5 02ad 01d7 | | Execute Vector,Field_Read 02ae 0c01 | | Execute_Immediate Greater_Equal,0x1 02af 00d9 | | Load_Top At_Offset_1 02b0 e402 | | Load 0x2,0x2 02b1 01d6 | | Execute Vector,Field_Write 02b2 00c8 | | Action Pop_Auxiliary_Range 02b3 3ff5 |? | Loop_Increasing 0x2a9 02b4 00ce | | Action Pop_Auxiliary 02b5 4800 |H | Short_Literal 0x0 02b6 4800 |H | Short_Literal 0x0 02b7 00da | | Load_Top At_Offset_2 02b8 01d6 | | Execute Vector,Field_Write 02b9 00d8 | | Load_Top At_Offset_0 02ba 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 02bb 0000 0000 | | .BLANK 0000[0x5] 02c0 ; -------------------------------------------------------------------------------------- 02c0 ; SUBPROGRAM 02c0 ; -------------------------------------------------------------------------------------- 02c0 02cd | | .CONST 0x02cd ; Address of begin 02c1 0004 | | .CONST 0x0004 ; Address of exception handler 02c2 0003 | | .CONST 0x0003 ; Number of locals 02c3 INIT_02c0: 02c3 00da | | Load_Top At_Offset_2 02c4 0217 | | Execute Heap_Access,All_Reference 02c5 3c06 |< | Execute Record,Field_Read,Field_Number 0x6 02c6 e001 | | Load 0x0,0x1 02c7 1b14 | | Execute Package,Field_Read,Field_Number 0x14 02c8 1b14 | | Execute Package,Field_Read,Field_Number 0x14 02c9 1c08 | | Execute_Immediate Run_Utility,0x8 02ca 00db | | Load_Top At_Offset_3 02cb 0217 | | Execute Heap_Access,All_Reference 02cc 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 02cd BODY_02c0: 02cd 00cf | | Action Mark_Auxiliary 02ce 00da | | Load_Top At_Offset_2 02cf 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 02d0 01d9 | | Execute Vector,Reverse_Bounds 02d1 0263 | c | Execute Discrete,Above_Bound 02d2 7010 |p | Jump_Nonzero 0x2e3 02d3 00db | | Load_Top At_Offset_3 02d4 0217 | | Execute Heap_Access,All_Reference 02d5 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 02d6 e001 | | Load 0x0,0x1 02d7 1b10 | | Execute Package,Field_Read,Field_Number 0x10 02d8 0216 | | Execute Heap_Access,Convert 02d9 00d9 | | Load_Top At_Offset_1 02da e402 | | Load 0x2,0x2 02db 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 02dc 01d6 | | Execute Vector,Field_Write 02dd 00db | | Load_Top At_Offset_3 02de 0217 | | Execute Heap_Access,All_Reference 02df 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 02e0 a403 | | Store_Unchecked 0x2,0x3 02e1 00c8 | | Action Pop_Auxiliary_Range 02e2 3ff0 |? | Loop_Increasing 0x2d3 02e3 00ce | | Action Pop_Auxiliary 02e4 00d9 | | Load_Top At_Offset_1 02e5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 02e6 0000 0000 | | .XXX[0x2] 02e8 ; -------------------------------------------------------------------------------------- 02e8 ; SUBPROGRAM 02e8 ; -------------------------------------------------------------------------------------- 02e8 02eb | | .CONST 0x02eb ; Address of begin 02e9 0004 | | .CONST 0x0004 ; Address of exception handler 02ea 0001 | | .CONST 0x0001 ; Number of locals 02eb BODY_02e8: 02eb INIT_02e8: 02eb 00da | | Load_Top At_Offset_2 02ec e240 | @ | Load 0x1,0x40 02ed e241 | A | Load 0x1,0x41 02ee 1d42 | B | Execute_Immediate Reference_Lex_1,0x42 02ef 1d43 | C | Execute_Immediate Reference_Lex_1,0x43 02f0 1d44 | D | Execute_Immediate Reference_Lex_1,0x44 02f1 e008 | | Load 0x0,0x8 02f2 183c | < | Execute Package,Field_Execute,Field_Number 0x3c 02f3 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 02f4 0000 0000 | | .BLANK 0000[0x4] 02f8 ; -------------------------------------------------------------------------------------- 02f8 ; SUBPROGRAM 02f8 ; -------------------------------------------------------------------------------------- 02f8 02fb | | .CONST 0x02fb ; Address of begin 02f9 0004 | | .CONST 0x0004 ; Address of exception handler 02fa 0001 | | .CONST 0x0001 ; Number of locals 02fb BODY_02f8: 02fb INIT_02f8: 02fb 00da | | Load_Top At_Offset_2 02fc e248 | H | Load 0x1,0x48 02fd e249 | I | Load 0x1,0x49 02fe 1d4a | J | Execute_Immediate Reference_Lex_1,0x4a 02ff e24b | K | Load 0x1,0x4b 0300 1d4c | L | Execute_Immediate Reference_Lex_1,0x4c 0301 e008 | | Load 0x0,0x8 0302 183d | = | Execute Package,Field_Execute,Field_Number 0x3d 0303 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0304 0000 0000 | | .BLANK 0000[0x4] 0308 ; -------------------------------------------------------------------------------------- 0308 ; SUBPROGRAM 0308 ; -------------------------------------------------------------------------------------- 0308 030b | | .CONST 0x030b ; Address of begin 0309 0004 | | .CONST 0x0004 ; Address of exception handler 030a 0001 | | .CONST 0x0001 ; Number of locals 030b BODY_0308: 030b INIT_0308: 030b 00da | | Load_Top At_Offset_2 030c 8212 | | Call 0x1,0x12 030d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 030e 0000 0000 | | .XXX[0x2] 0310 ; -------------------------------------------------------------------------------------- 0310 ; SUBPROGRAM 0310 ; -------------------------------------------------------------------------------------- 0310 0313 | | .CONST 0x0313 ; Address of begin 0311 0004 | | .CONST 0x0004 ; Address of exception handler 0312 0001 | | .CONST 0x0001 ; Number of locals 0313 BODY_0310: 0313 INIT_0310: 0313 00d1 | | Pop_Control Pop_Count_1 0314 00da | | Load_Top At_Offset_2 0315 01dc | | Execute Vector,Last 0316 00db | | Load_Top At_Offset_3 0317 01dd | | Execute Vector,First 0318 0263 | c | Execute Discrete,Above_Bound 0319 7006 |p | Jump_Nonzero 0x320 031a 00d8 | | Load_Top At_Offset_0 031b e5ff | | Load 0x2,-0x1 031c 01d5 | | Execute Vector,Field_Reference 031d 1c00 | | Execute_Immediate Run_Utility,0x0 031e 0a01 | | Execute_Immediate Plus,0x1 031f 7ff8 | | Jump 0x318 0320 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0321 0000 0000 | | .BLANK 0000[0x7] 0328 ; -------------------------------------------------------------------------------------- 0328 ; SUBPROGRAM 0328 ; -------------------------------------------------------------------------------------- 0328 0335 | 5 | .CONST 0x0335 ; Address of begin 0329 0004 | | .CONST 0x0004 ; Address of exception handler 032a 0005 | | .CONST 0x0005 ; Number of locals 032b INIT_0328: 032b 00da | | Load_Top At_Offset_2 032c 0217 | | Execute Heap_Access,All_Reference 032d 3c19 |< | Execute Record,Field_Read,Field_Number 0x19 032e 0007 | | Action Break_Optional 032f e011 | | Load 0x0,0x11 0330 1b2e | . | Execute Package,Field_Read,Field_Number 0x2e 0331 e011 | | Load 0x0,0x11 0332 1b31 | 1 | Execute Package,Field_Read,Field_Number 0x31 0333 e217 | | Load 0x1,0x17 0334 0337 | 7 | Declare_Variable Array 0335 BODY_0328: 0335 e012 | | Load 0x0,0x12 0336 6809 |h | Jump_Zero 0x340 0337 0092 0b86 | | Action Push_String_Extended,0xb86 ; "Initializing supplier list for " 0339 e5ff | | Load 0x2,-0x1 033a 0217 | | Execute Heap_Access,All_Reference 033b 3c0b |< | Execute Record,Field_Read,Field_Number 0xb 033c e00e | | Load 0x0,0xe 033d 1812 | | Execute Package,Field_Execute,Field_Number 0x12 033e 01cc | | Execute Vector,Catenate 033f 8013 | | Call 0x0,0x13 0340 00cf | | Action Mark_Auxiliary 0341 7819 |x | Jump 0x35b 0342 e402 | | Load 0x2,0x2 0343 0217 | | Execute Heap_Access,All_Reference 0344 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0345 0033 | 3 | Store_Top Heap_Access,At_Offset_3 0346 e402 | | Load 0x2,0x2 0347 0217 | | Execute Heap_Access,All_Reference 0348 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 0349 00da | | Load_Top At_Offset_2 034a 01d4 | | Execute Vector,Structure_Write 034b e402 | | Load 0x2,0x2 034c 0217 | | Execute Heap_Access,All_Reference 034d 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 034e a403 | | Store_Unchecked 0x2,0x3 034f 00da | | Load_Top At_Offset_2 0350 00da | | Load_Top At_Offset_2 0351 e5ff | | Load 0x2,-0x1 0352 8252 | R | Call 0x1,0x52 0353 0033 | 3 | Store_Top Heap_Access,At_Offset_3 0354 e402 | | Load 0x2,0x2 0355 e011 | | Load 0x0,0x11 0356 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30 0357 c402 | | Store 0x2,0x2 0358 00db | | Load_Top At_Offset_3 0359 a402 | | Store_Unchecked 0x2,0x2 035a 00c9 | | Action Pop_Auxiliary_Loop 035b e402 | | Load 0x2,0x2 035c 77e5 |w | Jump_Nonzero 0x342 035d 00ce | | Action Pop_Auxiliary 035e 4800 |H | Short_Literal 0x0 035f e5ff | | Load 0x2,-0x1 0360 0217 | | Execute Heap_Access,All_Reference 0361 3818 |8 | Execute Record,Field_Write,Field_Number 0x18 0362 e011 | | Load 0x0,0x11 0363 1b2e | . | Execute Package,Field_Read,Field_Number 0x2e 0364 e5ff | | Load 0x2,-0x1 0365 0217 | | Execute Heap_Access,All_Reference 0366 3819 |8 | Execute Record,Field_Write,Field_Number 0x19 0367 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0368 ; -------------------------------------------------------------------------------------- 0368 ; SUBPROGRAM 0368 ; -------------------------------------------------------------------------------------- 0368 036b | k | .CONST 0x036b ; Address of begin 0369 0004 | | .CONST 0x0004 ; Address of exception handler 036a 0001 | | .CONST 0x0001 ; Number of locals 036b BODY_0368: 036b INIT_0368: 036b e5fc | | Load 0x2,-0x4 036c e5fd | | Load 0x2,-0x3 036d e5fe | | Load 0x2,-0x2 036e e5ff | | Load 0x2,-0x1 036f 0217 | | Execute Heap_Access,All_Reference 0370 340d |4 | Execute Record,Field_Reference,Field_Number 0xd 0371 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0372 8227 | ' | Call 0x1,0x27 0373 c5fc | | Store 0x2,-0x4 0374 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0375 0000 0000 | | .XXX[0x3] 0377 0000 | | 0378 ; -------------------------------------------------------------------------------------- 0378 ; SUBPROGRAM 0378 ; -------------------------------------------------------------------------------------- 0378 0392 | | .CONST 0x0392 ; Address of begin 0379 0004 | | .CONST 0x0004 ; Address of exception handler 037a 0006 | | .CONST 0x0006 ; Number of locals 037b INIT_0378: 037b 00db | | Load_Top At_Offset_3 037c 0217 | | Execute Heap_Access,All_Reference 037d 3c19 |< | Execute Record,Field_Read,Field_Number 0x19 037e 0007 | | Action Break_Optional 037f e011 | | Load 0x0,0x11 0380 1b2e | . | Execute Package,Field_Read,Field_Number 0x2e 0381 e011 | | Load 0x0,0x11 0382 1b2e | . | Execute Package,Field_Read,Field_Number 0x2e 0383 e217 | | Load 0x1,0x17 0384 0337 | 7 | Declare_Variable Array 0385 00d8 | | Load_Top At_Offset_0 0386 0335 | 5 | Declare_Variable Array,Duplicate 0387 00cd | | Action Spare6_Action 0388 4805 |H | Short_Literal 0x5 0389 4800 |H | Short_Literal 0x0 038a 4800 |H | Short_Literal 0x0 038b 00d9 | | Load_Top At_Offset_1 038c e406 | | Load 0x2,0x6 038d 01d6 | | Execute Vector,Field_Write 038e 3ffb |? | Loop_Increasing 0x38a 038f 00d9 | | Load_Top At_Offset_1 0390 01d4 | | Execute Vector,Structure_Write 0391 e5ff | | Load 0x2,-0x1 0392 BODY_0378: 0392 00cf | | Action Mark_Auxiliary 0393 782c |x, | Jump 0x3c0 0394 00d9 | | Load_Top At_Offset_1 0395 e402 | | Load 0x2,0x2 0396 0217 | | Execute Heap_Access,All_Reference 0397 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0398 823d | = | Call 0x1,0x3d 0399 681f |h | Jump_Zero 0x3b9 039a e402 | | Load 0x2,0x2 039b 0217 | | Execute Heap_Access,All_Reference 039c 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 039d 00da | | Load_Top At_Offset_2 039e 021f | | Execute Heap_Access,Equal 039f 6822 |h" | Jump_Zero 0x3c2 03a0 e5fd | | Load 0x2,-0x3 03a1 e402 | | Load 0x2,0x2 03a2 0217 | | Execute Heap_Access,All_Reference 03a3 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 03a4 01d0 | | Execute Vector,Complement 03a5 01d3 | | Execute Vector,And 03a6 00db | | Load_Top At_Offset_3 03a7 01d4 | | Execute Vector,Structure_Write 03a8 e5fd | | Load 0x2,-0x3 03a9 e402 | | Load 0x2,0x2 03aa 0217 | | Execute Heap_Access,All_Reference 03ab 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 03ac 01d2 | | Execute Vector,Or 03ad e402 | | Load 0x2,0x2 03ae 0217 | | Execute Heap_Access,All_Reference 03af 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 03b0 00da | | Load_Top At_Offset_2 03b1 e234 | 4 | Load 0x1,0x34 03b2 01de | | Execute Vector,Not_Equal 03b3 6804 |h | Jump_Zero 0x3b8 03b4 e5ff | | Load 0x2,-0x1 03b5 00db | | Load_Top At_Offset_3 03b6 e5fe | | Load 0x2,-0x2 03b7 8250 | P | Call 0x1,0x50 03b8 4504 |E | Exit_Suprogram New_Top_Offset 0x4 03b9 e402 | | Load 0x2,0x2 03ba a403 | | Store_Unchecked 0x2,0x3 03bb e402 | | Load 0x2,0x2 03bc 0217 | | Execute Heap_Access,All_Reference 03bd 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 03be a402 | | Store_Unchecked 0x2,0x2 03bf 00c9 | | Action Pop_Auxiliary_Loop 03c0 e402 | | Load 0x2,0x2 03c1 77d2 |w | Jump_Nonzero 0x394 03c2 00ce | | Action Pop_Auxiliary 03c3 00db | | Load_Top At_Offset_3 03c4 e402 | | Load 0x2,0x2 03c5 e5fd | | Load 0x2,-0x3 03c6 e5ff | | Load 0x2,-0x1 03c7 e5fe | | Load 0x2,-0x2 03c8 8253 | S | Call 0x1,0x53 03c9 c403 | | Store 0x2,0x3 03ca 4504 |E | Exit_Suprogram New_Top_Offset 0x4 03cb 0000 0000 | | .BLANK 0000[0x5] 03d0 ; -------------------------------------------------------------------------------------- 03d0 ; SUBPROGRAM 03d0 ; -------------------------------------------------------------------------------------- 03d0 03e3 | | .CONST 0x03e3 ; Address of begin 03d1 0004 | | .CONST 0x0004 ; Address of exception handler 03d2 0005 | | .CONST 0x0005 ; Number of locals 03d3 INIT_03d0: 03d3 e004 | | Load 0x0,0x4 03d4 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 03d5 1b18 | | Execute Package,Field_Read,Field_Number 0x18 03d6 02c7 | | Declare_Variable Any 03d7 00d8 | | Load_Top At_Offset_0 03d8 1c00 | | Execute_Immediate Run_Utility,0x0 03d9 e004 | | Load 0x0,0x4 03da 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 03db 1b0f | | Execute Package,Field_Read,Field_Number 0xf 03dc e004 | | Load 0x0,0x4 03dd 1b0f | | Execute Package,Field_Read,Field_Number 0xf 03de 02c7 | | Declare_Variable Any 03df 00d8 | | Load_Top At_Offset_0 03e0 1c00 | | Execute_Immediate Run_Utility,0x0 03e1 e004 | | Load 0x0,0x4 03e2 1b0d | | Execute Package,Field_Read,Field_Number 0xd 03e3 BODY_03d0: 03e3 e004 | | Load 0x0,0x4 03e4 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 03e5 1b0f | | Execute Package,Field_Read,Field_Number 0xf 03e6 e402 | | Load 0x2,0x2 03e7 60a0 |` | Indirect_Literal Discrete,0x488,{0x00000000, 0x00004000} 03e8 e00f | | Load 0x0,0xf 03e9 1b0e | | Execute Package,Field_Read,Field_Number 0xe 03ea e010 | | Load 0x0,0x10 03eb 1811 | | Execute Package,Field_Execute,Field_Number 0x11 03ec e014 | | Load 0x0,0x14 03ed 1811 | | Execute Package,Field_Execute,Field_Number 0x11 03ee 4801 |H | Short_Literal 0x1 03ef 4800 |H | Short_Literal 0x0 03f0 e010 | | Load 0x0,0x10 03f1 1811 | | Execute Package,Field_Execute,Field_Number 0x11 03f2 e004 | | Load 0x0,0x4 03f3 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 03f4 1816 | | Execute Package,Field_Execute,Field_Number 0x16 03f5 e5ff | | Load 0x2,-0x1 03f6 e004 | | Load 0x0,0x4 03f7 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 03f8 181b | | Execute Package,Field_Execute,Field_Number 0x1b 03f9 c402 | | Store 0x2,0x2 03fa 005b | [ | Store_Top Discrete,At_Offset_3 03fb 00da | | Load_Top At_Offset_2 03fc 681b |h | Jump_Zero 0x418 03fd e003 | | Load 0x0,0x3 03fe 1b0d | | Execute Package,Field_Read,Field_Number 0xd 03ff 4801 |H | Short_Literal 0x1 0400 4802 |H | Short_Literal 0x2 0401 e008 | | Load 0x0,0x8 0402 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0403 035b | [ | Declare_Type Array,Constrained 0404 0337 | 7 | Declare_Variable Array 0405 e5ff | | Load 0x2,-0x1 0406 e403 | | Load 0x2,0x3 0407 e008 | | Load 0x0,0x8 0408 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 0409 4801 |H | Short_Literal 0x1 040a 00da | | Load_Top At_Offset_2 040b 01d6 | | Execute Vector,Field_Write 040c e5fe | | Load 0x2,-0x2 040d e001 | | Load 0x0,0x1 040e 1b14 | | Execute Package,Field_Read,Field_Number 0x14 040f 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0410 4802 |H | Short_Literal 0x2 0411 00da | | Load_Top At_Offset_2 0412 01d6 | | Execute Vector,Field_Write 0413 6070 |`p | Indirect_Literal Discrete,0x484,{0x00000000, 0x00001801} 0414 e003 | | Load 0x0,0x3 0415 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 0416 c5fc | | Store 0x2,-0x4 0417 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0418 00db | | Load_Top At_Offset_3 0419 e004 | | Load 0x0,0x4 041a 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 041b 181e | | Execute Package,Field_Execute,Field_Number 0x1e 041c 681a |h | Jump_Zero 0x437 041d e003 | | Load 0x0,0x3 041e 1b0d | | Execute Package,Field_Read,Field_Number 0xd 041f 4801 |H | Short_Literal 0x1 0420 4802 |H | Short_Literal 0x2 0421 e008 | | Load 0x0,0x8 0422 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0423 035b | [ | Declare_Type Array,Constrained 0424 0337 | 7 | Declare_Variable Array 0425 e5ff | | Load 0x2,-0x1 0426 e008 | | Load 0x0,0x8 0427 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0428 4801 |H | Short_Literal 0x1 0429 00da | | Load_Top At_Offset_2 042a 01d6 | | Execute Vector,Field_Write 042b e5fe | | Load 0x2,-0x2 042c e001 | | Load 0x0,0x1 042d 1b14 | | Execute Package,Field_Read,Field_Number 0x14 042e 1810 | | Execute Package,Field_Execute,Field_Number 0x10 042f 4802 |H | Short_Literal 0x2 0430 00da | | Load_Top At_Offset_2 0431 01d6 | | Execute Vector,Field_Write 0432 604d |`M | Indirect_Literal Discrete,0x480,{0x00000000, 0x00001806} 0433 e003 | | Load 0x0,0x3 0434 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 0435 c5fc | | Store 0x2,-0x4 0436 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0437 00cf | | Action Mark_Auxiliary 0438 783a |x: | Jump 0x473 0439 e004 | | Load 0x0,0x4 043a 1b0d | | Execute Package,Field_Read,Field_Number 0xd 043b 00db | | Load_Top At_Offset_3 043c 0120 | | Execute Any,Is_Value 043d 6803 |h | Jump_Zero 0x441 043e e004 | | Load 0x0,0x4 043f 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0440 7801 |x | Jump 0x442 0441 00db | | Load_Top At_Offset_3 0442 e402 | | Load 0x2,0x2 0443 e004 | | Load 0x0,0x4 0444 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0445 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 0446 c404 | | Store 0x2,0x4 0447 005a | Z | Store_Top Discrete,At_Offset_2 0448 00d9 | | Load_Top At_Offset_1 0449 7007 |p | Jump_Nonzero 0x451 044a e5fc | | Load 0x2,-0x4 044b e5fd | | Load 0x2,-0x3 044c e5fe | | Load 0x2,-0x2 044d e404 | | Load 0x2,0x4 044e 8227 | ' | Call 0x1,0x27 044f c5fc | | Store 0x2,-0x4 0450 781c |x | Jump 0x46d 0451 e003 | | Load 0x0,0x3 0452 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0453 4801 |H | Short_Literal 0x1 0454 4802 |H | Short_Literal 0x2 0455 e008 | | Load 0x0,0x8 0456 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0457 035b | [ | Declare_Type Array,Constrained 0458 0337 | 7 | Declare_Variable Array 0459 e402 | | Load 0x2,0x2 045a e004 | | Load 0x0,0x4 045b 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 045c 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 045d e008 | | Load 0x0,0x8 045e 1810 | | Execute Package,Field_Execute,Field_Number 0x10 045f 4801 |H | Short_Literal 0x1 0460 00da | | Load_Top At_Offset_2 0461 01d6 | | Execute Vector,Field_Write 0462 e5fe | | Load 0x2,-0x2 0463 e001 | | Load 0x0,0x1 0464 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0465 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0466 4802 |H | Short_Literal 0x2 0467 00da | | Load_Top At_Offset_2 0468 01d6 | | Execute Vector,Field_Write 0469 6012 |` | Indirect_Literal Discrete,0x47c,{0x00000000, 0x00001802} 046a e003 | | Load 0x0,0x3 046b 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 046c c5fc | | Store 0x2,-0x4 046d e402 | | Load 0x2,0x2 046e e004 | | Load 0x0,0x4 046f 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0470 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0471 c402 | | Store 0x2,0x2 0472 00c9 | | Action Pop_Auxiliary_Loop 0473 e402 | | Load 0x2,0x2 0474 e004 | | Load 0x0,0x4 0475 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0476 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0477 6fc1 |o | Jump_Zero 0x439 0478 00ce | | Action Pop_Auxiliary 0479 4504 |E | Exit_Suprogram New_Top_Offset 0x4 047a 0000 0000 | | .XXX[0x2] 047c 0000 0000 | | .LITERAL {0x00000000, 0x00001802} 0480 0000 0000 | | .LITERAL {0x00000000, 0x00001806} 0484 0000 0000 | | .LITERAL {0x00000000, 0x00001801} 0488 0000 0000 | | .LITERAL {0x00000000, 0x00004000} 048c 0000 0000 | | .BLANK 0000[0x4] 0490 ; -------------------------------------------------------------------------------------- 0490 ; SUBPROGRAM 0490 ; -------------------------------------------------------------------------------------- 0490 0495 | | .CONST 0x0495 ; Address of begin 0491 04a9 | | .CONST 0x04a9 ; Address of exception handler 0492 0002 | | .CONST 0x0002 ; Number of locals 0493 INIT_0490: 0493 e011 | | Load 0x0,0x11 0494 1b31 | 1 | Execute Package,Field_Read,Field_Number 0x31 0495 BODY_0490: 0495 e5fc | | Load 0x2,-0x4 0496 e011 | | Load 0x0,0x11 0497 1b31 | 1 | Execute Package,Field_Read,Field_Number 0x31 0498 e5fe | | Load 0x2,-0x2 0499 e5ff | | Load 0x2,-0x1 049a 8254 | T | Call 0x1,0x54 049b 0032 | 2 | Store_Top Heap_Access,At_Offset_2 049c c5fc | | Store 0x2,-0x4 049d 4800 |H | Short_Literal 0x0 049e e5fc | | Load 0x2,-0x4 049f e003 | | Load 0x0,0x3 04a0 1847 | G | Execute Package,Field_Execute,Field_Number 0x47 04a1 6806 |h | Jump_Zero 0x4a8 04a2 e5fc | | Load 0x2,-0x4 04a3 e5fd | | Load 0x2,-0x3 04a4 e5fe | | Load 0x2,-0x2 04a5 00db | | Load_Top At_Offset_3 04a6 8225 | % | Call 0x1,0x25 04a7 c5fc | | Store 0x2,-0x4 04a8 4504 |E | Exit_Suprogram New_Top_Offset 0x4 04a9 TRAP_0490: 04a9 e003 | | Load 0x0,0x3 04aa 1b3d | = | Execute Package,Field_Read,Field_Number 0x3d 04ab 010f | | Execute Exception,Equal 04ac 6804 |h | Jump_Zero 0x4b1 04ad e003 | | Load 0x0,0x3 04ae 181b | | Execute Package,Field_Execute,Field_Number 0x1b 04af a5fc | | Store_Unchecked 0x2,-0x4 04b0 4504 |E | Exit_Suprogram New_Top_Offset 0x4 04b1 0100 | | Execute Exception,Raise 04b2 0000 0000 | | .BLANK 0000[0x6] 04b8 ; -------------------------------------------------------------------------------------- 04b8 ; SUBPROGRAM 04b8 ; -------------------------------------------------------------------------------------- 04b8 04c8 | | .CONST 0x04c8 ; Address of begin 04b9 0004 | | .CONST 0x0004 ; Address of exception handler 04ba 0005 | | .CONST 0x0005 ; Number of locals 04bb INIT_04b8: 04bb 00da | | Load_Top At_Offset_2 04bc 0007 | | Action Break_Optional 04bd e5fe | | Load 0x2,-0x2 04be 0217 | | Execute Heap_Access,All_Reference 04bf 3c19 |< | Execute Record,Field_Read,Field_Number 0x19 04c0 0007 | | Action Break_Optional 04c1 e011 | | Load 0x0,0x11 04c2 1b2e | . | Execute Package,Field_Read,Field_Number 0x2e 04c3 e217 | | Load 0x1,0x17 04c4 0337 | 7 | Declare_Variable Array 04c5 e234 | 4 | Load 0x1,0x34 04c6 00d9 | | Load_Top At_Offset_1 04c7 01d4 | | Execute Vector,Structure_Write 04c8 BODY_04b8: 04c8 e012 | | Load 0x0,0x12 04c9 6812 |h | Jump_Zero 0x4dc 04ca 0092 0b87 | | Action Push_String_Extended,0xb87 ; "Deleting supplier " 04cc e5ff | | Load 0x2,-0x1 04cd 0217 | | Execute Heap_Access,All_Reference 04ce 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 04cf e00e | | Load 0x0,0xe 04d0 1812 | | Execute Package,Field_Execute,Field_Number 0x12 04d1 01cc | | Execute Vector,Catenate 04d2 0092 0b88 | | Action Push_String_Extended,0xb88 ; " for " 04d4 01cc | | Execute Vector,Catenate 04d5 e5fe | | Load 0x2,-0x2 04d6 0217 | | Execute Heap_Access,All_Reference 04d7 3c0b |< | Execute Record,Field_Read,Field_Number 0xb 04d8 e00e | | Load 0x0,0xe 04d9 1812 | | Execute Package,Field_Execute,Field_Number 0x12 04da 01cc | | Execute Vector,Catenate 04db 8013 | | Call 0x0,0x13 04dc 00cf | | Action Mark_Auxiliary 04dd 7830 |x0 | Jump 0x50e 04de 00db | | Load_Top At_Offset_3 04df 0217 | | Execute Heap_Access,All_Reference 04e0 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 04e1 e402 | | Load 0x2,0x2 04e2 021f | | Execute Heap_Access,Equal 04e3 6825 |h% | Jump_Zero 0x509 04e4 00db | | Load_Top At_Offset_3 04e5 0217 | | Execute Heap_Access,All_Reference 04e6 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 04e7 e5fd | | Load 0x2,-0x3 04e8 01d3 | | Execute Vector,And 04e9 00da | | Load_Top At_Offset_2 04ea 01d4 | | Execute Vector,Structure_Write 04eb 00db | | Load_Top At_Offset_3 04ec 0217 | | Execute Heap_Access,All_Reference 04ed 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 04ee 00da | | Load_Top At_Offset_2 04ef 01df | | Execute Vector,Equal 04f0 6807 |h | Jump_Zero 0x4f8 04f1 00db | | Load_Top At_Offset_3 04f2 00db | | Load_Top At_Offset_3 04f3 e5fe | | Load 0x2,-0x2 04f4 8255 | U | Call 0x1,0x55 04f5 c404 | | Store 0x2,0x4 04f6 c403 | | Store 0x2,0x3 04f7 4504 |E | Exit_Suprogram New_Top_Offset 0x4 04f8 00d9 | | Load_Top At_Offset_1 04f9 e234 | 4 | Load 0x1,0x34 04fa 01de | | Execute Vector,Not_Equal 04fb 680c |h | Jump_Zero 0x508 04fc 00db | | Load_Top At_Offset_3 04fd 0217 | | Execute Heap_Access,All_Reference 04fe 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 04ff e5fd | | Load 0x2,-0x3 0500 01d0 | | Execute Vector,Complement 0501 01d3 | | Execute Vector,And 0502 e403 | | Load 0x2,0x3 0503 0217 | | Execute Heap_Access,All_Reference 0504 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0505 e402 | | Load 0x2,0x2 0506 00da | | Load_Top At_Offset_2 0507 8251 | Q | Call 0x1,0x51 0508 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0509 00db | | Load_Top At_Offset_3 050a 0217 | | Execute Heap_Access,All_Reference 050b 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 050c a403 | | Store_Unchecked 0x2,0x3 050d 00c9 | | Action Pop_Auxiliary_Loop 050e 00db | | Load_Top At_Offset_3 050f 77ce |w | Jump_Nonzero 0x4de 0510 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0511 0000 0000 | | .BLANK 0000[0x7] 0518 ; -------------------------------------------------------------------------------------- 0518 ; SUBPROGRAM 0518 ; -------------------------------------------------------------------------------------- 0518 0533 | 3 | .CONST 0x0533 ; Address of begin 0519 0004 | | .CONST 0x0004 ; Address of exception handler 051a 0009 | | .CONST 0x0009 ; Number of locals 051b INIT_0518: 051b 00db | | Load_Top At_Offset_3 051c 0217 | | Execute Heap_Access,All_Reference 051d 3c19 |< | Execute Record,Field_Read,Field_Number 0x19 051e 0007 | | Action Break_Optional 051f e011 | | Load 0x0,0x11 0520 1b2e | . | Execute Package,Field_Read,Field_Number 0x2e 0521 e011 | | Load 0x0,0x11 0522 1b2e | . | Execute Package,Field_Read,Field_Number 0x2e 0523 e011 | | Load 0x0,0x11 0524 1b31 | 1 | Execute Package,Field_Read,Field_Number 0x31 0525 e217 | | Load 0x1,0x17 0526 0337 | 7 | Declare_Variable Array 0527 e217 | | Load 0x1,0x17 0528 0337 | 7 | Declare_Variable Array 0529 e5ff | | Load 0x2,-0x1 052a 01da | | Execute Vector,Bounds 052b e221 | ! | Load 0x1,0x21 052c 035b | [ | Declare_Type Array,Constrained 052d 0337 | 7 | Declare_Variable Array 052e e5ff | | Load 0x2,-0x1 052f 00d9 | | Load_Top At_Offset_1 0530 01d4 | | Execute Vector,Structure_Write 0531 029f 0af3 | | Declare_Subprogram INIT_0af0,For_Call 0533 BODY_0518: 0533 e012 | | Load 0x0,0x12 0534 681f |h | Jump_Zero 0x554 0535 0092 0b89 | | Action Push_String_Extended,0xb89 ; "Replacing" 0537 e5fd | | Load 0x2,-0x3 0538 e5fe | | Load 0x2,-0x2 0539 8230 | 0 | Call 0x1,0x30 053a 00e0 | | Load_Encached Standard_Cache 053b 1818 | | Execute Package,Field_Execute,Field_Number 0x18 053c 01cc | | Execute Vector,Catenate 053d 0092 0b8a | | Action Push_String_Extended,0xb8a ; " suppliers with" 053f 01cc | | Execute Vector,Catenate 0540 e5ff | | Load 0x2,-0x1 0541 01db | | Execute Vector,Length 0542 00d8 | | Load_Top At_Offset_0 0543 00e2 | | Load_Encached Integer_Cache 0544 0260 | ` | Execute Discrete,In_Type 0545 7001 |p | Jump_Nonzero 0x547 0546 0801 | | Execute_Immediate Raise,0x1 0547 00e0 | | Load_Encached Standard_Cache 0548 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0549 01cc | | Execute Vector,Catenate 054a 0092 0b8b | | Action Push_String_Extended,0xb8b ; " objects for " 054c 01cc | | Execute Vector,Catenate 054d e5fe | | Load 0x2,-0x2 054e 0217 | | Execute Heap_Access,All_Reference 054f 3c0b |< | Execute Record,Field_Read,Field_Number 0xb 0550 e00e | | Load 0x0,0xe 0551 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0552 01cc | | Execute Vector,Catenate 0553 8013 | | Call 0x0,0x13 0554 00d9 | | Load_Top At_Offset_1 0555 e236 | 6 | Load 0x1,0x36 0556 e237 | 7 | Load 0x1,0x37 0557 e238 | 8 | Load 0x1,0x38 0558 1d39 | 9 | Execute_Immediate Reference_Lex_1,0x39 0559 1d3a | : | Execute_Immediate Reference_Lex_1,0x3a 055a 8005 | | Call 0x0,0x5 055b 00d1 | | Pop_Control Pop_Count_1 055c 00cf | | Action Mark_Auxiliary 055d 00da | | Load_Top At_Offset_2 055e 01d9 | | Execute Vector,Reverse_Bounds 055f 0263 | c | Execute Discrete,Above_Bound 0560 70ae |p | Jump_Nonzero 0x60f 0561 e012 | | Load 0x0,0x12 0562 6832 |h2 | Jump_Zero 0x595 0563 0092 0b8c | | Action Push_String_Extended,0xb8c ; "New object (" 0565 00d9 | | Load_Top At_Offset_1 0566 e408 | | Load 0x2,0x8 0567 01d5 | | Execute Vector,Field_Reference 0568 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0569 e004 | | Load 0x0,0x4 056a 1813 | | Execute Package,Field_Execute,Field_Number 0x13 056b 00e0 | | Load_Encached Standard_Cache 056c 1818 | | Execute Package,Field_Execute,Field_Number 0x18 056d 01cc | | Execute Vector,Catenate 056e 0092 0b8d | | Action Push_String_Extended,0xb8d ; ") is " 0570 01cc | | Execute Vector,Catenate 0571 00d9 | | Load_Top At_Offset_1 0572 e408 | | Load 0x2,0x8 0573 01d5 | | Execute Vector,Field_Reference 0574 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0575 e004 | | Load 0x0,0x4 0576 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0577 183e | > | Execute Package,Field_Execute,Field_Number 0x3e 0578 01cc | | Execute Vector,Catenate 0579 8013 | | Call 0x0,0x13 057a e402 | | Load 0x2,0x2 057b 6819 |h | Jump_Zero 0x595 057c 0092 0b8e | | Action Push_String_Extended,0xb8e ; "Unique (" 057e e402 | | Load 0x2,0x2 057f 0217 | | Execute Heap_Access,All_Reference 0580 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0581 0217 | | Execute Heap_Access,All_Reference 0582 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 0583 e004 | | Load 0x0,0x4 0584 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0585 183e | > | Execute Package,Field_Execute,Field_Number 0x3e 0586 01cc | | Execute Vector,Catenate 0587 0092 0b8f | | Action Push_String_Extended,0xb8f ; ") =" 0589 01cc | | Execute Vector,Catenate 058a e402 | | Load 0x2,0x2 058b 0217 | | Execute Heap_Access,All_Reference 058c 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 058d 0217 | | Execute Heap_Access,All_Reference 058e 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 058f e004 | | Load 0x0,0x4 0590 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0591 00e0 | | Load_Encached Standard_Cache 0592 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0593 01cc | | Execute Vector,Catenate 0594 8013 | | Call 0x0,0x13 0595 00cf | | Action Mark_Auxiliary 0596 7802 |x | Jump 0x599 0597 8409 | | Call 0x2,0x9 0598 00c9 | | Action Pop_Auxiliary_Loop 0599 e402 | | Load 0x2,0x2 059a 77fc |w | Jump_Nonzero 0x597 059b 00ce | | Action Pop_Auxiliary 059c e402 | | Load 0x2,0x2 059d 680b |h | Jump_Zero 0x5a9 059e 00d8 | | Load_Top At_Offset_0 059f e408 | | Load 0x2,0x8 05a0 01d5 | | Execute Vector,Field_Reference 05a1 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 05a2 e402 | | Load 0x2,0x2 05a3 0217 | | Execute Heap_Access,All_Reference 05a4 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 05a5 0217 | | Execute Heap_Access,All_Reference 05a6 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 05a7 012f | / | Execute Any,Equal 05a8 7018 |p | Jump_Nonzero 0x5c1 05a9 e5fc | | Load 0x2,-0x4 05aa e011 | | Load 0x0,0x11 05ab 1b31 | 1 | Execute Package,Field_Read,Field_Number 0x31 05ac e5fe | | Load 0x2,-0x2 05ad 00db | | Load_Top At_Offset_3 05ae e408 | | Load 0x2,0x8 05af 01d5 | | Execute Vector,Field_Reference 05b0 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 05b1 8254 | T | Call 0x1,0x54 05b2 c405 | | Store 0x2,0x5 05b3 c5fc | | Store 0x2,-0x4 05b4 e405 | | Load 0x2,0x5 05b5 6857 |hW | Jump_Zero 0x60d 05b6 e404 | | Load 0x2,0x4 05b7 e402 | | Load 0x2,0x2 05b8 00da | | Load_Top At_Offset_2 05b9 e408 | | Load 0x2,0x8 05ba 01d5 | | Execute Vector,Field_Reference 05bb 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 05bc e405 | | Load 0x2,0x5 05bd e5fe | | Load 0x2,-0x2 05be 8253 | S | Call 0x1,0x53 05bf c404 | | Store 0x2,0x4 05c0 784c |xL | Jump 0x60d 05c1 e012 | | Load 0x0,0x12 05c2 6803 |h | Jump_Zero 0x5c6 05c3 0092 0b90 | | Action Push_String_Extended,0xb90 ; "Changing kinds." 05c5 8013 | | Call 0x0,0x13 05c6 e402 | | Load 0x2,0x2 05c7 0217 | | Execute Heap_Access,All_Reference 05c8 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 05c9 e406 | | Load 0x2,0x6 05ca 01d4 | | Execute Vector,Structure_Write 05cb 00d8 | | Load_Top At_Offset_0 05cc e408 | | Load 0x2,0x8 05cd 01d5 | | Execute Vector,Field_Reference 05ce 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 05cf e407 | | Load 0x2,0x7 05d0 01d4 | | Execute Vector,Structure_Write 05d1 e406 | | Load 0x2,0x6 05d2 e407 | | Load 0x2,0x7 05d3 01de | | Execute Vector,Not_Equal 05d4 6832 |h2 | Jump_Zero 0x607 05d5 00cf | | Action Mark_Auxiliary 05d6 4805 |H | Short_Literal 0x5 05d7 4802 |H | Short_Literal 0x2 05d8 0007 | | Action Break_Optional 05d9 00d8 | | Load_Top At_Offset_0 05da e406 | | Load 0x2,0x6 05db 01d7 | | Execute Vector,Field_Read 05dc 6810 |h | Jump_Zero 0x5ed 05dd 00d8 | | Load_Top At_Offset_0 05de e407 | | Load 0x2,0x7 05df 01d7 | | Execute Vector,Field_Read 05e0 700c |p | Jump_Nonzero 0x5ed 05e1 00d8 | | Load_Top At_Offset_0 05e2 e405 | | Load 0x2,0x5 05e3 0217 | | Execute Heap_Access,All_Reference 05e4 3405 |4 | Execute Record,Field_Reference,Field_Number 0x5 05e5 01d7 | | Execute Vector,Field_Read 05e6 0aff | | Execute_Immediate Plus,-0x1 05e7 00d9 | | Load_Top At_Offset_1 05e8 e405 | | Load 0x2,0x5 05e9 0217 | | Execute Heap_Access,All_Reference 05ea 3405 |4 | Execute Record,Field_Reference,Field_Number 0x5 05eb 01d6 | | Execute Vector,Field_Write 05ec 7813 |x | Jump 0x600 05ed 00d8 | | Load_Top At_Offset_0 05ee e407 | | Load 0x2,0x7 05ef 01d7 | | Execute Vector,Field_Read 05f0 680f |h | Jump_Zero 0x600 05f1 00d8 | | Load_Top At_Offset_0 05f2 e406 | | Load 0x2,0x6 05f3 01d7 | | Execute Vector,Field_Read 05f4 700b |p | Jump_Nonzero 0x600 05f5 00d8 | | Load_Top At_Offset_0 05f6 e405 | | Load 0x2,0x5 05f7 0217 | | Execute Heap_Access,All_Reference 05f8 3405 |4 | Execute Record,Field_Reference,Field_Number 0x5 05f9 01d7 | | Execute Vector,Field_Read 05fa 0a01 | | Execute_Immediate Plus,0x1 05fb 00d9 | | Load_Top At_Offset_1 05fc e405 | | Load 0x2,0x5 05fd 0217 | | Execute Heap_Access,All_Reference 05fe 3405 |4 | Execute Record,Field_Reference,Field_Number 0x5 05ff 01d6 | | Execute Vector,Field_Write 0600 00c8 | | Action Pop_Auxiliary_Range 0601 3fd7 |? | Loop_Increasing 0x5d9 0602 00ce | | Action Pop_Auxiliary 0603 e407 | | Load 0x2,0x7 0604 e402 | | Load 0x2,0x2 0605 0217 | | Execute Heap_Access,All_Reference 0606 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0607 e402 | | Load 0x2,0x2 0608 a404 | | Store_Unchecked 0x2,0x4 0609 e402 | | Load 0x2,0x2 060a 0217 | | Execute Heap_Access,All_Reference 060b 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 060c a402 | | Store_Unchecked 0x2,0x2 060d 00c8 | | Action Pop_Auxiliary_Range 060e 3f52 |?R | Loop_Increasing 0x561 060f 00c9 | | Action Pop_Auxiliary_Loop 0610 780d |x | Jump 0x61e 0611 e402 | | Load 0x2,0x2 0612 0217 | | Execute Heap_Access,All_Reference 0613 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0614 a403 | | Store_Unchecked 0x2,0x3 0615 e402 | | Load 0x2,0x2 0616 e404 | | Load 0x2,0x4 0617 e5fe | | Load 0x2,-0x2 0618 8255 | U | Call 0x1,0x55 0619 c404 | | Store 0x2,0x4 061a c402 | | Store 0x2,0x2 061b e403 | | Load 0x2,0x3 061c a402 | | Store_Unchecked 0x2,0x2 061d 00c9 | | Action Pop_Auxiliary_Loop 061e e402 | | Load 0x2,0x2 061f 77f1 |w | Jump_Nonzero 0x611 0620 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0621 0000 0000 | | .BLANK 0000[0x7] 0628 ; -------------------------------------------------------------------------------------- 0628 ; SUBPROGRAM 0628 ; -------------------------------------------------------------------------------------- 0628 062b | + | .CONST 0x062b ; Address of begin 0629 0004 | | .CONST 0x0004 ; Address of exception handler 062a 0001 | | .CONST 0x0001 ; Number of locals 062b BODY_0628: 062b INIT_0628: 062b 00da | | Load_Top At_Offset_2 062c 0217 | | Execute Heap_Access,All_Reference 062d 341a |4 | Execute Record,Field_Reference,Field_Number 0x1a 062e 0335 | 5 | Declare_Variable Array,Duplicate 062f 00cd | | Action Spare6_Action 0630 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0631 0000 0000 | | .BLANK 0000[0x7] 0638 ; -------------------------------------------------------------------------------------- 0638 ; SUBPROGRAM 0638 ; -------------------------------------------------------------------------------------- 0638 063b | ; | .CONST 0x063b ; Address of begin 0639 0004 | | .CONST 0x0004 ; Address of exception handler 063a 0001 | | .CONST 0x0001 ; Number of locals 063b BODY_0638: 063b INIT_0638: 063b 00db | | Load_Top At_Offset_3 063c 00db | | Load_Top At_Offset_3 063d 0217 | | Execute Heap_Access,All_Reference 063e 381a |8 | Execute Record,Field_Write,Field_Number 0x1a 063f 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0640 ; -------------------------------------------------------------------------------------- 0640 ; SUBPROGRAM 0640 ; -------------------------------------------------------------------------------------- 0640 064e | N | .CONST 0x064e ; Address of begin 0641 0004 | | .CONST 0x0004 ; Address of exception handler 0642 0004 | | .CONST 0x0004 ; Number of locals 0643 INIT_0640: 0643 e217 | | Load 0x1,0x17 0644 0337 | 7 | Declare_Variable Array 0645 e5fe | | Load 0x2,-0x2 0646 00d9 | | Load_Top At_Offset_1 0647 01d4 | | Execute Vector,Structure_Write 0648 00db | | Load_Top At_Offset_3 0649 0217 | | Execute Heap_Access,All_Reference 064a 3c19 |< | Execute Record,Field_Read,Field_Number 0x19 064b 0007 | | Action Break_Optional 064c 00e3 | | Load_Encached Natural_Cache 064d 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 064e BODY_0640: 064e e5fe | | Load 0x2,-0x2 064f e22f | / | Load 0x1,0x2f 0650 01df | | Execute Vector,Equal 0651 6805 |h | Jump_Zero 0x657 0652 e5ff | | Load 0x2,-0x1 0653 0217 | | Execute Heap_Access,All_Reference 0654 341a |4 | Execute Record,Field_Reference,Field_Number 0x1a 0655 00db | | Load_Top At_Offset_3 0656 01d4 | | Execute Vector,Structure_Write 0657 e5fe | | Load 0x2,-0x2 0658 e218 | | Load 0x1,0x18 0659 01df | | Execute Vector,Equal 065a 6804 |h | Jump_Zero 0x65f 065b e5ff | | Load 0x2,-0x1 065c 0217 | | Execute Heap_Access,All_Reference 065d 3c18 |< | Execute Record,Field_Read,Field_Number 0x18 065e 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 065f 00cf | | Action Mark_Auxiliary 0660 7810 |x | Jump 0x671 0661 00da | | Load_Top At_Offset_2 0662 0217 | | Execute Heap_Access,All_Reference 0663 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 0664 e402 | | Load 0x2,0x2 0665 01d3 | | Execute Vector,And 0666 e234 | 4 | Load 0x1,0x34 0667 01de | | Execute Vector,Not_Equal 0668 6803 |h | Jump_Zero 0x66c 0669 00d9 | | Load_Top At_Offset_1 066a 0a01 | | Execute_Immediate Plus,0x1 066b 005a | Z | Store_Top Discrete,At_Offset_2 066c 00da | | Load_Top At_Offset_2 066d 0217 | | Execute Heap_Access,All_Reference 066e 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 066f 0033 | 3 | Store_Top Heap_Access,At_Offset_3 0670 00c9 | | Action Pop_Auxiliary_Loop 0671 00da | | Load_Top At_Offset_2 0672 77ee |w | Jump_Nonzero 0x661 0673 00ce | | Action Pop_Auxiliary 0674 00d8 | | Load_Top At_Offset_0 0675 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0676 0000 0000 | | .XXX[0x2] 0678 ; -------------------------------------------------------------------------------------- 0678 ; SUBPROGRAM 0678 ; -------------------------------------------------------------------------------------- 0678 068d | | .CONST 0x068d ; Address of begin 0679 0004 | | .CONST 0x0004 ; Address of exception handler 067a 0005 | | .CONST 0x0005 ; Number of locals 067b INIT_0678: 067b e217 | | Load 0x1,0x17 067c 0337 | 7 | Declare_Variable Array 067d e5fe | | Load 0x2,-0x2 067e 00d9 | | Load_Top At_Offset_1 067f 01d4 | | Execute Vector,Structure_Write 0680 00db | | Load_Top At_Offset_3 0681 0217 | | Execute Heap_Access,All_Reference 0682 3c19 |< | Execute Record,Field_Read,Field_Number 0x19 0683 0007 | | Action Break_Optional 0684 00e3 | | Load_Encached Natural_Cache 0685 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0686 4801 |H | Short_Literal 0x1 0687 e5ff | | Load 0x2,-0x1 0688 0217 | | Execute Heap_Access,All_Reference 0689 3c18 |< | Execute Record,Field_Read,Field_Number 0x18 068a e21e | | Load 0x1,0x1e 068b 035b | [ | Declare_Type Array,Constrained 068c 0337 | 7 | Declare_Variable Array 068d BODY_0678: 068d e5fe | | Load 0x2,-0x2 068e e22f | / | Load 0x1,0x2f 068f 01df | | Execute Vector,Equal 0690 6805 |h | Jump_Zero 0x696 0691 e5ff | | Load 0x2,-0x1 0692 0217 | | Execute Heap_Access,All_Reference 0693 341a |4 | Execute Record,Field_Reference,Field_Number 0x1a 0694 e402 | | Load 0x2,0x2 0695 01d4 | | Execute Vector,Structure_Write 0696 00cf | | Action Mark_Auxiliary 0697 7816 |x | Jump 0x6ae 0698 00db | | Load_Top At_Offset_3 0699 0217 | | Execute Heap_Access,All_Reference 069a 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 069b e402 | | Load 0x2,0x2 069c 01d3 | | Execute Vector,And 069d e234 | 4 | Load 0x1,0x34 069e 01de | | Execute Vector,Not_Equal 069f 6809 |h | Jump_Zero 0x6a9 06a0 00da | | Load_Top At_Offset_2 06a1 0a01 | | Execute_Immediate Plus,0x1 06a2 005b | [ | Store_Top Discrete,At_Offset_3 06a3 00db | | Load_Top At_Offset_3 06a4 0217 | | Execute Heap_Access,All_Reference 06a5 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 06a6 00db | | Load_Top At_Offset_3 06a7 00db | | Load_Top At_Offset_3 06a8 01d6 | | Execute Vector,Field_Write 06a9 00db | | Load_Top At_Offset_3 06aa 0217 | | Execute Heap_Access,All_Reference 06ab 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 06ac a403 | | Store_Unchecked 0x2,0x3 06ad 00c9 | | Action Pop_Auxiliary_Loop 06ae 00db | | Load_Top At_Offset_3 06af 77e8 |w | Jump_Nonzero 0x698 06b0 00ce | | Action Pop_Auxiliary 06b1 00d9 | | Load_Top At_Offset_1 06b2 e21f | | Load 0x1,0x1f 06b3 1c08 | | Execute_Immediate Run_Utility,0x8 06b4 4800 |H | Short_Literal 0x0 06b5 00d9 | | Load_Top At_Offset_1 06b6 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 06b7 4801 |H | Short_Literal 0x1 06b8 00db | | Load_Top At_Offset_3 06b9 00db | | Load_Top At_Offset_3 06ba 01cf | | Execute Vector,Slice_Read 06bb 00d9 | | Load_Top At_Offset_1 06bc 00d8 | | Load_Top At_Offset_0 06bd 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 06be 00da | | Load_Top At_Offset_2 06bf 01da | | Execute Vector,Bounds 06c0 00da | | Load_Top At_Offset_2 06c1 01da | | Execute Vector,Bounds 06c2 00da | | Load_Top At_Offset_2 06c3 027f | | Execute Discrete,Equal 06c4 7001 |p | Jump_Nonzero 0x6c6 06c5 08e0 | | Execute_Immediate Raise,0xe0 06c6 00cd | | Action Spare6_Action 06c7 027f | | Execute Discrete,Equal 06c8 7001 |p | Jump_Nonzero 0x6ca 06c9 08e0 | | Execute_Immediate Raise,0xe0 06ca 00d2 | | Pop_Control Pop_Count_2 06cb 00d9 | | Load_Top At_Offset_1 06cc 2903 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x3 06cd 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 06ce 0000 0000 | | .XXX[0x2] 06d0 ; -------------------------------------------------------------------------------------- 06d0 ; SUBPROGRAM 06d0 ; -------------------------------------------------------------------------------------- 06d0 06d6 | | .CONST 0x06d6 ; Address of begin 06d1 0004 | | .CONST 0x0004 ; Address of exception handler 06d2 0002 | | .CONST 0x0002 ; Number of locals 06d3 INIT_06d0: 06d3 00db | | Load_Top At_Offset_3 06d4 0217 | | Execute Heap_Access,All_Reference 06d5 3c19 |< | Execute Record,Field_Read,Field_Number 0x19 06d6 BODY_06d0: 06d6 00cf | | Action Mark_Auxiliary 06d7 7811 |x | Jump 0x6e9 06d8 00d9 | | Load_Top At_Offset_1 06d9 0217 | | Execute Heap_Access,All_Reference 06da 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 06db e5ff | | Load 0x2,-0x1 06dc 021f | | Execute Heap_Access,Equal 06dd 6806 |h | Jump_Zero 0x6e4 06de 00d9 | | Load_Top At_Offset_1 06df 0217 | | Execute Heap_Access,All_Reference 06e0 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 06e1 0335 | 5 | Declare_Variable Array,Duplicate 06e2 00cd | | Action Spare6_Action 06e3 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 06e4 00d9 | | Load_Top At_Offset_1 06e5 0217 | | Execute Heap_Access,All_Reference 06e6 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 06e7 0032 | 2 | Store_Top Heap_Access,At_Offset_2 06e8 00c9 | | Action Pop_Auxiliary_Loop 06e9 00d9 | | Load_Top At_Offset_1 06ea 77ed |w | Jump_Nonzero 0x6d8 06eb 00ce | | Action Pop_Auxiliary 06ec e234 | 4 | Load 0x1,0x34 06ed 0335 | 5 | Declare_Variable Array,Duplicate 06ee 00cd | | Action Spare6_Action 06ef 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 06f0 ; -------------------------------------------------------------------------------------- 06f0 ; SUBPROGRAM 06f0 ; -------------------------------------------------------------------------------------- 06f0 06f3 | | .CONST 0x06f3 ; Address of begin 06f1 0004 | | .CONST 0x0004 ; Address of exception handler 06f2 0001 | | .CONST 0x0001 ; Number of locals 06f3 BODY_06f0: 06f3 INIT_06f0: 06f3 00da | | Load_Top At_Offset_2 06f4 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 06f5 e004 | | Load 0x0,0x4 06f6 1813 | | Execute Package,Field_Execute,Field_Number 0x13 06f7 e5fe | | Load 0x2,-0x2 06f8 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 06f9 e004 | | Load 0x0,0x4 06fa 1813 | | Execute Package,Field_Execute,Field_Number 0x13 06fb 027c | | | Execute Discrete,Less 06fc 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 06fd 0000 0000 | | .XXX[0x3] 06ff 0000 | | 0700 ; -------------------------------------------------------------------------------------- 0700 ; SUBPROGRAM 0700 ; -------------------------------------------------------------------------------------- 0700 0703 | | .CONST 0x0703 ; Address of begin 0701 0004 | | .CONST 0x0004 ; Address of exception handler 0702 0001 | | .CONST 0x0001 ; Number of locals 0703 BODY_0700: 0703 INIT_0700: 0703 00da | | Load_Top At_Offset_2 0704 0217 | | Execute Heap_Access,All_Reference 0705 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 0706 e004 | | Load 0x0,0x4 0707 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0708 e5fe | | Load 0x2,-0x2 0709 0217 | | Execute Heap_Access,All_Reference 070a 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 070b e004 | | Load 0x0,0x4 070c 1813 | | Execute Package,Field_Execute,Field_Number 0x13 070d 027b | { | Execute Discrete,Greater_Equal 070e 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 070f 0000 | | .XXX[0x1] 0710 ; -------------------------------------------------------------------------------------- 0710 ; SUBPROGRAM 0710 ; -------------------------------------------------------------------------------------- 0710 0713 | | .CONST 0x0713 ; Address of begin 0711 0004 | | .CONST 0x0004 ; Address of exception handler 0712 0001 | | .CONST 0x0001 ; Number of locals 0713 BODY_0710: 0713 INIT_0710: 0713 00da | | Load_Top At_Offset_2 0714 0217 | | Execute Heap_Access,All_Reference 0715 340d |4 | Execute Record,Field_Reference,Field_Number 0xd 0716 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0717 e004 | | Load 0x0,0x4 0718 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0719 e5fe | | Load 0x2,-0x2 071a 0217 | | Execute Heap_Access,All_Reference 071b 340d |4 | Execute Record,Field_Reference,Field_Number 0xd 071c 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 071d e004 | | Load 0x0,0x4 071e 1813 | | Execute Package,Field_Execute,Field_Number 0x13 071f 027b | { | Execute Discrete,Greater_Equal 0720 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0721 0000 0000 | | .BLANK 0000[0x7] 0728 ; -------------------------------------------------------------------------------------- 0728 ; SUBPROGRAM 0728 ; -------------------------------------------------------------------------------------- 0728 072b | + | .CONST 0x072b ; Address of begin 0729 0004 | | .CONST 0x0004 ; Address of exception handler 072a 0001 | | .CONST 0x0001 ; Number of locals 072b BODY_0728: 072b INIT_0728: 072b 00da | | Load_Top At_Offset_2 072c e004 | | Load 0x0,0x4 072d 1813 | | Execute Package,Field_Execute,Field_Number 0x13 072e e5fe | | Load 0x2,-0x2 072f e004 | | Load 0x0,0x4 0730 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0731 027d | } | Execute Discrete,Greater 0732 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0733 0000 0000 | | .BLANK 0000[0x5] 0738 ; -------------------------------------------------------------------------------------- 0738 ; SUBPROGRAM 0738 ; -------------------------------------------------------------------------------------- 0738 073b | ; | .CONST 0x073b ; Address of begin 0739 0004 | | .CONST 0x0004 ; Address of exception handler 073a 0001 | | .CONST 0x0001 ; Number of locals 073b BODY_0738: 073b INIT_0738: 073b 00db | | Load_Top At_Offset_3 073c e015 | | Load 0x0,0x15 073d 1b17 | | Execute Package,Field_Read,Field_Number 0x17 073e 00d9 | | Load_Top At_Offset_1 073f 00d0 | | Action Swap_Control 0740 0260 | ` | Execute Discrete,In_Type 0741 7001 |p | Jump_Nonzero 0x743 0742 0801 | | Execute_Immediate Raise,0x1 0743 00db | | Load_Top At_Offset_3 0744 e016 | | Load 0x0,0x16 0745 e017 | | Load 0x0,0x17 0746 a018 | | Store_Unchecked 0x0,0x18 0747 e019 | | Load 0x0,0x19 0748 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0749 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 074a 0000 0000 | | .BLANK 0000[0x6] 0750 ; -------------------------------------------------------------------------------------- 0750 ; SUBPROGRAM 0750 ; -------------------------------------------------------------------------------------- 0750 0763 | c | .CONST 0x0763 ; Address of begin 0751 0004 | | .CONST 0x0004 ; Address of exception handler 0752 0005 | | .CONST 0x0005 ; Number of locals 0753 INIT_0750: 0753 00da | | Load_Top At_Offset_2 0754 0217 | | Execute Heap_Access,All_Reference 0755 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0756 0007 | | Action Break_Optional 0757 e004 | | Load 0x0,0x4 0758 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0759 02c7 | | Declare_Variable Any 075a e5ff | | Load 0x2,-0x1 075b 0217 | | Execute Heap_Access,All_Reference 075c 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 075d a403 | | Store_Unchecked 0x2,0x3 075e 00d9 | | Load_Top At_Offset_1 075f 0217 | | Execute Heap_Access,All_Reference 0760 3c05 |< | Execute Record,Field_Read,Field_Number 0x5 0761 029f 0b2b | +| Declare_Subprogram INIT_0b28,For_Call 0763 BODY_0750: 0763 e5ff | | Load 0x2,-0x1 0764 0217 | | Execute Heap_Access,All_Reference 0765 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0766 7030 |p0 | Jump_Nonzero 0x797 0767 e012 | | Load 0x0,0x12 0768 6808 |h | Jump_Zero 0x771 0769 0092 0b91 | | Action Push_String_Extended,0xb91 ; "Deleting link object " 076b 00db | | Load_Top At_Offset_3 076c e004 | | Load 0x0,0x4 076d 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 076e 183e | > | Execute Package,Field_Execute,Field_Number 0x3e 076f 01cc | | Execute Vector,Catenate 0770 8013 | | Call 0x0,0x13 0771 8405 | | Call 0x2,0x5 0772 00d9 | | Load_Top At_Offset_1 0773 e5ff | | Load 0x2,-0x1 0774 021f | | Execute Heap_Access,Equal 0775 6807 |h | Jump_Zero 0x77d 0776 e5ff | | Load 0x2,-0x1 0777 0217 | | Execute Heap_Access,All_Reference 0778 3c08 |< | Execute Record,Field_Read,Field_Number 0x8 0779 e402 | | Load 0x2,0x2 077a 0217 | | Execute Heap_Access,All_Reference 077b 3805 |8 | Execute Record,Field_Write,Field_Number 0x5 077c 7816 |x | Jump 0x793 077d 00cf | | Action Mark_Auxiliary 077e 780b |x | Jump 0x78a 077f 00da | | Load_Top At_Offset_2 0780 0217 | | Execute Heap_Access,All_Reference 0781 3c08 |< | Execute Record,Field_Read,Field_Number 0x8 0782 e5ff | | Load 0x2,-0x1 0783 021f | | Execute Heap_Access,Equal 0784 7007 |p | Jump_Nonzero 0x78c 0785 00da | | Load_Top At_Offset_2 0786 0217 | | Execute Heap_Access,All_Reference 0787 3c08 |< | Execute Record,Field_Read,Field_Number 0x8 0788 0033 | 3 | Store_Top Heap_Access,At_Offset_3 0789 00c9 | | Action Pop_Auxiliary_Loop 078a 00da | | Load_Top At_Offset_2 078b 77f3 |w | Jump_Nonzero 0x77f 078c 00ce | | Action Pop_Auxiliary 078d e5ff | | Load 0x2,-0x1 078e 0217 | | Execute Heap_Access,All_Reference 078f 3c08 |< | Execute Record,Field_Read,Field_Number 0x8 0790 00da | | Load_Top At_Offset_2 0791 0217 | | Execute Heap_Access,All_Reference 0792 3808 |8 | Execute Record,Field_Write,Field_Number 0x8 0793 e5ff | | Load 0x2,-0x1 0794 e011 | | Load 0x0,0x11 0795 1833 | 3 | Execute Package,Field_Execute,Field_Number 0x33 0796 c5ff | | Store 0x2,-0x1 0797 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0798 ; -------------------------------------------------------------------------------------- 0798 ; SUBPROGRAM 0798 ; -------------------------------------------------------------------------------------- 0798 07a5 | | .CONST 0x07a5 ; Address of begin 0799 0004 | | .CONST 0x0004 ; Address of exception handler 079a 0004 | | .CONST 0x0004 ; Number of locals 079b INIT_0798: 079b 00da | | Load_Top At_Offset_2 079c e011 | | Load 0x0,0x11 079d 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 079e 0216 | | Execute Heap_Access,Convert 079f e011 | | Load 0x0,0x11 07a0 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 07a1 e5fd | | Load 0x2,-0x3 07a2 0217 | | Execute Heap_Access,All_Reference 07a3 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 07a4 0007 | | Action Break_Optional 07a5 BODY_0798: 07a5 e012 | | Load 0x0,0x12 07a6 6812 |h | Jump_Zero 0x7b9 07a7 0092 0b92 | | Action Push_String_Extended,0xb92 ; "Adding client " 07a9 e5ff | | Load 0x2,-0x1 07aa 0217 | | Execute Heap_Access,All_Reference 07ab 3c0b |< | Execute Record,Field_Read,Field_Number 0xb 07ac e00e | | Load 0x0,0xe 07ad 1812 | | Execute Package,Field_Execute,Field_Number 0x12 07ae 01cc | | Execute Vector,Catenate 07af 0092 0b93 | | Action Push_String_Extended,0xb93 ; " to link " 07b1 01cc | | Execute Vector,Catenate 07b2 e5fd | | Load 0x2,-0x3 07b3 0217 | | Execute Heap_Access,All_Reference 07b4 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 07b5 e00e | | Load 0x0,0xe 07b6 1812 | | Execute Package,Field_Execute,Field_Number 0x12 07b7 01cc | | Execute Vector,Catenate 07b8 8013 | | Call 0x0,0x13 07b9 00cf | | Action Mark_Auxiliary 07ba 780d |x | Jump 0x7c8 07bb 00db | | Load_Top At_Offset_3 07bc 00da | | Load_Top At_Offset_2 07bd 0217 | | Execute Heap_Access,All_Reference 07be 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 07bf 823e | > | Call 0x1,0x3e 07c0 700d |p | Jump_Nonzero 0x7ce 07c1 00d9 | | Load_Top At_Offset_1 07c2 0033 | 3 | Store_Top Heap_Access,At_Offset_3 07c3 00d9 | | Load_Top At_Offset_1 07c4 0217 | | Execute Heap_Access,All_Reference 07c5 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 07c6 0032 | 2 | Store_Top Heap_Access,At_Offset_2 07c7 00c9 | | Action Pop_Auxiliary_Loop 07c8 00d9 | | Load_Top At_Offset_1 07c9 6804 |h | Jump_Zero 0x7ce 07ca 00d9 | | Load_Top At_Offset_1 07cb 0217 | | Execute Heap_Access,All_Reference 07cc 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 07cd 77ed |w | Jump_Nonzero 0x7bb 07ce 00ce | | Action Pop_Auxiliary 07cf 00d8 | | Load_Top At_Offset_0 07d0 6806 |h | Jump_Zero 0x7d7 07d1 00d8 | | Load_Top At_Offset_0 07d2 0217 | | Execute Heap_Access,All_Reference 07d3 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 07d4 00db | | Load_Top At_Offset_3 07d5 021f | | Execute Heap_Access,Equal 07d6 702c |p, | Jump_Nonzero 0x803 07d7 e5ff | | Load 0x2,-0x1 07d8 e001 | | Load 0x0,0x1 07d9 1b16 | | Execute Package,Field_Read,Field_Number 0x16 07da 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f 07db e011 | | Load 0x0,0x11 07dc 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 07dd 0031 | 1 | Store_Top Heap_Access,At_Offset_1 07de e5ff | | Load 0x2,-0x1 07df e011 | | Load 0x0,0x11 07e0 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 07e1 0216 | | Execute Heap_Access,Convert 07e2 00d9 | | Load_Top At_Offset_1 07e3 0217 | | Execute Heap_Access,All_Reference 07e4 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 07e5 00d9 | | Load_Top At_Offset_1 07e6 700b |p | Jump_Nonzero 0x7f2 07e7 e5fd | | Load 0x2,-0x3 07e8 0217 | | Execute Heap_Access,All_Reference 07e9 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 07ea 00d9 | | Load_Top At_Offset_1 07eb 0217 | | Execute Heap_Access,All_Reference 07ec 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 07ed 00d8 | | Load_Top At_Offset_0 07ee e5fd | | Load 0x2,-0x3 07ef 0217 | | Execute Heap_Access,All_Reference 07f0 3807 |8 | Execute Record,Field_Write,Field_Number 0x7 07f1 780a |x | Jump 0x7fc 07f2 00d9 | | Load_Top At_Offset_1 07f3 0217 | | Execute Heap_Access,All_Reference 07f4 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 07f5 00d9 | | Load_Top At_Offset_1 07f6 0217 | | Execute Heap_Access,All_Reference 07f7 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 07f8 00d8 | | Load_Top At_Offset_0 07f9 00da | | Load_Top At_Offset_2 07fa 0217 | | Execute Heap_Access,All_Reference 07fb 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 07fc e5fd | | Load 0x2,-0x3 07fd 0217 | | Execute Heap_Access,All_Reference 07fe 3c06 |< | Execute Record,Field_Read,Field_Number 0x6 07ff 0a01 | | Execute_Immediate Plus,0x1 0800 e5fd | | Load 0x2,-0x3 0801 0217 | | Execute Heap_Access,All_Reference 0802 3806 |8 | Execute Record,Field_Write,Field_Number 0x6 0803 00cf | | Action Mark_Auxiliary 0804 4805 |H | Short_Literal 0x5 0805 4802 |H | Short_Literal 0x2 0806 0007 | | Action Break_Optional 0807 00d8 | | Load_Top At_Offset_0 0808 e5fe | | Load 0x2,-0x2 0809 01d7 | | Execute Vector,Field_Read 080a 680b |h | Jump_Zero 0x816 080b 00d8 | | Load_Top At_Offset_0 080c e5fd | | Load 0x2,-0x3 080d 0217 | | Execute Heap_Access,All_Reference 080e 3405 |4 | Execute Record,Field_Reference,Field_Number 0x5 080f 01d7 | | Execute Vector,Field_Read 0810 0a01 | | Execute_Immediate Plus,0x1 0811 00d9 | | Load_Top At_Offset_1 0812 e5fd | | Load 0x2,-0x3 0813 0217 | | Execute Heap_Access,All_Reference 0814 3405 |4 | Execute Record,Field_Reference,Field_Number 0x5 0815 01d6 | | Execute Vector,Field_Write 0816 00c8 | | Action Pop_Auxiliary_Range 0817 3fef |? | Loop_Increasing 0x807 0818 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0819 0000 0000 | | .BLANK 0000[0x7] 0820 ; -------------------------------------------------------------------------------------- 0820 ; SUBPROGRAM 0820 ; -------------------------------------------------------------------------------------- 0820 0823 | # | .CONST 0x0823 ; Address of begin 0821 0004 | | .CONST 0x0004 ; Address of exception handler 0822 0001 | | .CONST 0x0001 ; Number of locals 0823 BODY_0820: 0823 INIT_0820: 0823 00cf | | Action Mark_Auxiliary 0824 4805 |H | Short_Literal 0x5 0825 4802 |H | Short_Literal 0x2 0826 0007 | | Action Break_Optional 0827 00d8 | | Load_Top At_Offset_0 0828 e5ff | | Load 0x2,-0x1 0829 01d7 | | Execute Vector,Field_Read 082a 680b |h | Jump_Zero 0x836 082b 00d8 | | Load_Top At_Offset_0 082c e5fe | | Load 0x2,-0x2 082d 0217 | | Execute Heap_Access,All_Reference 082e 3405 |4 | Execute Record,Field_Reference,Field_Number 0x5 082f 01d7 | | Execute Vector,Field_Read 0830 0aff | | Execute_Immediate Plus,-0x1 0831 00d9 | | Load_Top At_Offset_1 0832 e5fe | | Load 0x2,-0x2 0833 0217 | | Execute Heap_Access,All_Reference 0834 3405 |4 | Execute Record,Field_Reference,Field_Number 0x5 0835 01d6 | | Execute Vector,Field_Write 0836 00c8 | | Action Pop_Auxiliary_Range 0837 3fef |? | Loop_Increasing 0x827 0838 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0839 0000 0000 | | .BLANK 0000[0x7] 0840 ; -------------------------------------------------------------------------------------- 0840 ; SUBPROGRAM 0840 ; -------------------------------------------------------------------------------------- 0840 084d | M | .CONST 0x084d ; Address of begin 0841 0004 | | .CONST 0x0004 ; Address of exception handler 0842 0004 | | .CONST 0x0004 ; Number of locals 0843 INIT_0840: 0843 00da | | Load_Top At_Offset_2 0844 e011 | | Load 0x0,0x11 0845 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 0846 0216 | | Execute Heap_Access,Convert 0847 e011 | | Load 0x0,0x11 0848 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 0849 e5fd | | Load 0x2,-0x3 084a 0217 | | Execute Heap_Access,All_Reference 084b 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 084c 0007 | | Action Break_Optional 084d BODY_0840: 084d e012 | | Load 0x0,0x12 084e 6812 |h | Jump_Zero 0x861 084f 0092 0b94 | | Action Push_String_Extended,0xb94 ; "Deleting client " 0851 e5ff | | Load 0x2,-0x1 0852 0217 | | Execute Heap_Access,All_Reference 0853 3c0b |< | Execute Record,Field_Read,Field_Number 0xb 0854 e00e | | Load 0x0,0xe 0855 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0856 01cc | | Execute Vector,Catenate 0857 0092 0b95 | | Action Push_String_Extended,0xb95 ; " from link " 0859 01cc | | Execute Vector,Catenate 085a e5fd | | Load 0x2,-0x3 085b 0217 | | Execute Heap_Access,All_Reference 085c 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 085d e00e | | Load 0x0,0xe 085e 1812 | | Execute Package,Field_Execute,Field_Number 0x12 085f 01cc | | Execute Vector,Catenate 0860 8013 | | Call 0x0,0x13 0861 00cf | | Action Mark_Auxiliary 0862 7846 |xF | Jump 0x8a9 0863 00d9 | | Load_Top At_Offset_1 0864 0217 | | Execute Heap_Access,All_Reference 0865 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0866 e402 | | Load 0x2,0x2 0867 021f | | Execute Heap_Access,Equal 0868 7007 |p | Jump_Nonzero 0x870 0869 00d9 | | Load_Top At_Offset_1 086a 0033 | 3 | Store_Top Heap_Access,At_Offset_3 086b 00d9 | | Load_Top At_Offset_1 086c 0217 | | Execute Heap_Access,All_Reference 086d 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 086e 0032 | 2 | Store_Top Heap_Access,At_Offset_2 086f 7838 |x8 | Jump 0x8a8 0870 00da | | Load_Top At_Offset_2 0871 7007 |p | Jump_Nonzero 0x879 0872 00d9 | | Load_Top At_Offset_1 0873 0217 | | Execute Heap_Access,All_Reference 0874 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0875 e5fd | | Load 0x2,-0x3 0876 0217 | | Execute Heap_Access,All_Reference 0877 3807 |8 | Execute Record,Field_Write,Field_Number 0x7 0878 7806 |x | Jump 0x87f 0879 00d9 | | Load_Top At_Offset_1 087a 0217 | | Execute Heap_Access,All_Reference 087b 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 087c 00db | | Load_Top At_Offset_3 087d 0217 | | Execute Heap_Access,All_Reference 087e 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 087f 00d9 | | Load_Top At_Offset_1 0880 e011 | | Load 0x0,0x11 0881 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 0882 0032 | 2 | Store_Top Heap_Access,At_Offset_2 0883 00cf | | Action Mark_Auxiliary 0884 4805 |H | Short_Literal 0x5 0885 4802 |H | Short_Literal 0x2 0886 0007 | | Action Break_Optional 0887 00d8 | | Load_Top At_Offset_0 0888 e5fe | | Load 0x2,-0x2 0889 01d7 | | Execute Vector,Field_Read 088a 680b |h | Jump_Zero 0x896 088b 00d8 | | Load_Top At_Offset_0 088c e5fd | | Load 0x2,-0x3 088d 0217 | | Execute Heap_Access,All_Reference 088e 3405 |4 | Execute Record,Field_Reference,Field_Number 0x5 088f 01d7 | | Execute Vector,Field_Read 0890 0aff | | Execute_Immediate Plus,-0x1 0891 00d9 | | Load_Top At_Offset_1 0892 e5fd | | Load 0x2,-0x3 0893 0217 | | Execute Heap_Access,All_Reference 0894 3405 |4 | Execute Record,Field_Reference,Field_Number 0x5 0895 01d6 | | Execute Vector,Field_Write 0896 00c8 | | Action Pop_Auxiliary_Range 0897 3fef |? | Loop_Increasing 0x887 0898 00ce | | Action Pop_Auxiliary 0899 e5fd | | Load 0x2,-0x3 089a 0217 | | Execute Heap_Access,All_Reference 089b 3c06 |< | Execute Record,Field_Read,Field_Number 0x6 089c 0aff | | Execute_Immediate Plus,-0x1 089d e5fd | | Load 0x2,-0x3 089e 0217 | | Execute Heap_Access,All_Reference 089f 3806 |8 | Execute Record,Field_Write,Field_Number 0x6 08a0 e5fd | | Load 0x2,-0x3 08a1 0217 | | Execute Heap_Access,All_Reference 08a2 3c06 |< | Execute Record,Field_Read,Field_Number 0x6 08a3 7003 |p | Jump_Nonzero 0x8a7 08a4 e5fd | | Load 0x2,-0x3 08a5 824f | O | Call 0x1,0x4f 08a6 c5fd | | Store 0x2,-0x3 08a7 4503 |E | Exit_Suprogram New_Top_Offset 0x3 08a8 00c9 | | Action Pop_Auxiliary_Loop 08a9 00d9 | | Load_Top At_Offset_1 08aa 77b8 |w | Jump_Nonzero 0x863 08ab 4503 |E | Exit_Suprogram New_Top_Offset 0x3 08ac 0000 0000 | | .BLANK 0000[0x4] 08b0 ; -------------------------------------------------------------------------------------- 08b0 ; SUBPROGRAM 08b0 ; -------------------------------------------------------------------------------------- 08b0 08b9 | | .CONST 0x08b9 ; Address of begin 08b1 0004 | | .CONST 0x0004 ; Address of exception handler 08b2 0002 | | .CONST 0x0002 ; Number of locals 08b3 INIT_08b0: 08b3 00da | | Load_Top At_Offset_2 08b4 e001 | | Load 0x0,0x1 08b5 1b16 | | Execute Package,Field_Read,Field_Number 0x16 08b6 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f 08b7 e011 | | Load 0x0,0x11 08b8 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 08b9 BODY_08b0: 08b9 e012 | | Load 0x0,0x12 08ba 6812 |h | Jump_Zero 0x8cd 08bb 0092 0b96 | | Action Push_String_Extended,0xb96 ; "Adding supplier " 08bd e5fe | | Load 0x2,-0x2 08be 0217 | | Execute Heap_Access,All_Reference 08bf 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 08c0 e00e | | Load 0x0,0xe 08c1 1812 | | Execute Package,Field_Execute,Field_Number 0x12 08c2 01cc | | Execute Vector,Catenate 08c3 0092 0b88 | | Action Push_String_Extended,0xb88 ; " for " 08c5 01cc | | Execute Vector,Catenate 08c6 e5ff | | Load 0x2,-0x1 08c7 0217 | | Execute Heap_Access,All_Reference 08c8 3c0b |< | Execute Record,Field_Read,Field_Number 0xb 08c9 e00e | | Load 0x0,0xe 08ca 1812 | | Execute Package,Field_Execute,Field_Number 0x12 08cb 01cc | | Execute Vector,Catenate 08cc 8013 | | Call 0x0,0x13 08cd e5fe | | Load 0x2,-0x2 08ce 00d9 | | Load_Top At_Offset_1 08cf 0217 | | Execute Heap_Access,All_Reference 08d0 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 08d1 e5fd | | Load 0x2,-0x3 08d2 00d9 | | Load_Top At_Offset_1 08d3 0217 | | Execute Heap_Access,All_Reference 08d4 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 08d5 e5fc | | Load 0x2,-0x4 08d6 00d9 | | Load_Top At_Offset_1 08d7 0217 | | Execute Heap_Access,All_Reference 08d8 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 08d9 e5fb | | Load 0x2,-0x5 08da 7007 |p | Jump_Nonzero 0x8e2 08db 00d8 | | Load_Top At_Offset_0 08dc e5ff | | Load 0x2,-0x1 08dd 0217 | | Execute Heap_Access,All_Reference 08de 3819 |8 | Execute Record,Field_Write,Field_Number 0x19 08df 00d8 | | Load_Top At_Offset_0 08e0 a5fb | | Store_Unchecked 0x2,-0x5 08e1 7808 |x | Jump 0x8ea 08e2 00d8 | | Load_Top At_Offset_0 08e3 e5fb | | Load 0x2,-0x5 08e4 0217 | | Execute Heap_Access,All_Reference 08e5 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 08e6 e5fb | | Load 0x2,-0x5 08e7 0217 | | Execute Heap_Access,All_Reference 08e8 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 08e9 a5fb | | Store_Unchecked 0x2,-0x5 08ea 00db | | Load_Top At_Offset_3 08eb 0217 | | Execute Heap_Access,All_Reference 08ec 3c18 |< | Execute Record,Field_Read,Field_Number 0x18 08ed 0a01 | | Execute_Immediate Plus,0x1 08ee e5ff | | Load 0x2,-0x1 08ef 0217 | | Execute Heap_Access,All_Reference 08f0 3818 |8 | Execute Record,Field_Write,Field_Number 0x18 08f1 e5fe | | Load 0x2,-0x2 08f2 e5fd | | Load 0x2,-0x3 08f3 e5ff | | Load 0x2,-0x1 08f4 8250 | P | Call 0x1,0x50 08f5 4505 |E | Exit_Suprogram New_Top_Offset 0x5 08f6 0000 0000 | | .XXX[0x2] 08f8 ; -------------------------------------------------------------------------------------- 08f8 ; SUBPROGRAM 08f8 ; -------------------------------------------------------------------------------------- 08f8 091b | | .CONST 0x091b ; Address of begin 08f9 0004 | | .CONST 0x0004 ; Address of exception handler 08fa 0009 | | .CONST 0x0009 ; Number of locals 08fb INIT_08f8: 08fb 00db | | Load_Top At_Offset_3 08fc e001 | | Load 0x0,0x1 08fd 1b16 | | Execute Package,Field_Read,Field_Number 0x16 08fe 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f 08ff e01a | | Load 0x0,0x1a 0900 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0901 02ff | | Declare_Variable Variant_Record 0902 4802 |H | Short_Literal 0x2 0903 00da | | Load_Top At_Offset_2 0904 e5ff | | Load 0x2,-0x1 0905 e01a | | Load 0x0,0x1a 0906 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0907 00d9 | | Load_Top At_Offset_1 0908 016d | m | Execute Variant_Record,Structure_Write 0909 e011 | | Load 0x0,0x11 090a 1b31 | 1 | Execute Package,Field_Read,Field_Number 0x31 090b e004 | | Load 0x0,0x4 090c 1b0f | | Execute Package,Field_Read,Field_Number 0xf 090d 02c7 | | Declare_Variable Any 090e 00d8 | | Load_Top At_Offset_0 090f 1c00 | | Execute_Immediate Run_Utility,0x0 0910 e004 | | Load 0x0,0x4 0911 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0912 02c7 | | Declare_Variable Any 0913 00d8 | | Load_Top At_Offset_0 0914 1c00 | | Execute_Immediate Run_Utility,0x0 0915 e011 | | Load 0x0,0x11 0916 1b26 | & | Execute Package,Field_Read,Field_Number 0x26 0917 e00e | | Load 0x0,0xe 0918 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0919 e004 | | Load 0x0,0x4 091a 1b0d | | Execute Package,Field_Read,Field_Number 0xd 091b BODY_08f8: 091b e403 | | Load 0x2,0x3 091c 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 091d 0f02 | | Execute_Immediate Equal,0x2 091e 6804 |h | Jump_Zero 0x923 091f e403 | | Load 0x2,0x3 0920 2e03 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3 0921 a404 | | Store_Unchecked 0x2,0x4 0922 7982 |y | Jump 0xaa5 0923 e403 | | Load 0x2,0x3 0924 2e04 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4 0925 6192 |a | Indirect_Literal Discrete,0xab8,{0x00000000, 0x0000500b} 0926 027f | | Execute Discrete,Equal 0927 681a |h | Jump_Zero 0x942 0928 e003 | | Load 0x0,0x3 0929 1b0d | | Execute Package,Field_Read,Field_Number 0xd 092a 4801 |H | Short_Literal 0x1 092b 4802 |H | Short_Literal 0x2 092c e008 | | Load 0x0,0x8 092d 1b0f | | Execute Package,Field_Read,Field_Number 0xf 092e 035b | [ | Declare_Type Array,Constrained 092f 0337 | 7 | Declare_Variable Array 0930 e5ff | | Load 0x2,-0x1 0931 e008 | | Load 0x0,0x8 0932 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0933 4801 |H | Short_Literal 0x1 0934 00da | | Load_Top At_Offset_2 0935 01d6 | | Execute Vector,Field_Write 0936 e5fe | | Load 0x2,-0x2 0937 e001 | | Load 0x0,0x1 0938 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0939 1810 | | Execute Package,Field_Execute,Field_Number 0x10 093a 4802 |H | Short_Literal 0x2 093b 00da | | Load_Top At_Offset_2 093c 01d6 | | Execute Vector,Field_Write 093d 6176 |av | Indirect_Literal Discrete,0xab4,{0x00000000, 0x00001804} 093e e003 | | Load 0x0,0x3 093f 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 0940 c5fc | | Store 0x2,-0x4 0941 7963 |yc | Jump 0xaa5 0942 e004 | | Load 0x0,0x4 0943 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0944 e405 | | Load 0x2,0x5 0945 0120 | | Execute Any,Is_Value 0946 6803 |h | Jump_Zero 0x94a 0947 e004 | | Load 0x0,0x4 0948 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0949 7801 |x | Jump 0x94b 094a e405 | | Load 0x2,0x5 094b e5ff | | Load 0x2,-0x1 094c e004 | | Load 0x0,0x4 094d 1b3d | = | Execute Package,Field_Read,Field_Number 0x3d 094e 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 094f c405 | | Store 0x2,0x5 0950 0059 | Y | Store_Top Discrete,At_Offset_1 0951 4801 |H | Short_Literal 0x1 0952 4801 |H | Short_Literal 0x1 0953 e008 | | Load 0x0,0x8 0954 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0955 035b | [ | Declare_Type Array,Constrained 0956 0337 | 7 | Declare_Variable Array 0957 e5ff | | Load 0x2,-0x1 0958 e008 | | Load 0x0,0x8 0959 181a | | Execute Package,Field_Execute,Field_Number 0x1a 095a 4801 |H | Short_Literal 0x1 095b 00da | | Load_Top At_Offset_2 095c 01d6 | | Execute Vector,Field_Write 095d 6152 |aR | Indirect_Literal Discrete,0xab0,{0x00000000, 0x00001805} 095e 00da | | Load_Top At_Offset_2 095f e003 | | Load 0x0,0x3 0960 183b | ; | Execute Package,Field_Execute,Field_Number 0x3b 0961 e405 | | Load 0x2,0x5 0962 801b | | Call 0x0,0x1b 0963 6820 |h | Jump_Zero 0x984 0964 e004 | | Load 0x0,0x4 0965 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0966 e406 | | Load 0x2,0x6 0967 0120 | | Execute Any,Is_Value 0968 6803 |h | Jump_Zero 0x96c 0969 e004 | | Load 0x0,0x4 096a 1b0f | | Execute Package,Field_Read,Field_Number 0xf 096b 7801 |x | Jump 0x96d 096c e406 | | Load 0x2,0x6 096d e405 | | Load 0x2,0x5 096e e004 | | Load 0x0,0x4 096f 1b3d | = | Execute Package,Field_Read,Field_Number 0x3d 0970 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0971 c406 | | Store 0x2,0x6 0972 0059 | Y | Store_Top Discrete,At_Offset_1 0973 4801 |H | Short_Literal 0x1 0974 4801 |H | Short_Literal 0x1 0975 e008 | | Load 0x0,0x8 0976 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0977 035b | [ | Declare_Type Array,Constrained 0978 0337 | 7 | Declare_Variable Array 0979 e405 | | Load 0x2,0x5 097a e008 | | Load 0x0,0x8 097b 181a | | Execute Package,Field_Execute,Field_Number 0x1a 097c 4801 |H | Short_Literal 0x1 097d 00da | | Load_Top At_Offset_2 097e 01d6 | | Execute Vector,Field_Write 097f 6130 |a0 | Indirect_Literal Discrete,0xab0,{0x00000000, 0x00001805} 0980 00da | | Load_Top At_Offset_2 0981 e003 | | Load 0x0,0x3 0982 183b | ; | Execute Package,Field_Execute,Field_Number 0x3b 0983 7802 |x | Jump 0x986 0984 e405 | | Load 0x2,0x5 0985 c406 | | Store 0x2,0x6 0986 e402 | | Load 0x2,0x2 0987 e406 | | Load 0x2,0x6 0988 e001 | | Load 0x0,0x1 0989 1b16 | | Execute Package,Field_Read,Field_Number 0x16 098a 1885 | | Execute Package,Field_Execute,Field_Number 0x85 098b 680f |h | Jump_Zero 0x99b 098c e5fc | | Load 0x2,-0x4 098d e001 | | Load 0x0,0x1 098e 1b16 | | Execute Package,Field_Read,Field_Number 0x16 098f 1b28 | ( | Execute Package,Field_Read,Field_Number 0x28 0990 e402 | | Load 0x2,0x2 0991 e406 | | Load 0x2,0x6 0992 e001 | | Load 0x0,0x1 0993 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0994 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39 0995 e011 | | Load 0x0,0x11 0996 1b26 | & | Execute Package,Field_Read,Field_Number 0x26 0997 0216 | | Execute Heap_Access,Convert 0998 c407 | | Store 0x2,0x7 0999 c5fc | | Store 0x2,-0x4 099a 7853 |xS | Jump 0x9ee 099b e402 | | Load 0x2,0x2 099c 0217 | | Execute Heap_Access,All_Reference 099d 3c0c |< | Execute Record,Field_Read,Field_Number 0xc 099e 6830 |h0 | Jump_Zero 0x9cf 099f e402 | | Load 0x2,0x2 09a0 0217 | | Execute Heap_Access,All_Reference 09a1 3c0b |< | Execute Record,Field_Read,Field_Number 0xb 09a2 6816 |h | Jump_Zero 0x9b9 09a3 e405 | | Load 0x2,0x5 09a4 e004 | | Load 0x0,0x4 09a5 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 09a6 e01c | | Load 0x0,0x1c 09a7 1810 | | Execute Package,Field_Execute,Field_Number 0x10 09a8 027f | | Execute Discrete,Equal 09a9 7007 |p | Jump_Nonzero 0x9b1 09aa e405 | | Load 0x2,0x5 09ab e004 | | Load 0x0,0x4 09ac 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 09ad e01c | | Load 0x0,0x1c 09ae 1817 | | Execute Package,Field_Execute,Field_Number 0x17 09af 027f | | Execute Discrete,Equal 09b0 6808 |h | Jump_Zero 0x9b9 09b1 e5fc | | Load 0x2,-0x4 09b2 e402 | | Load 0x2,0x2 09b3 e405 | | Load 0x2,0x5 09b4 e001 | | Load 0x0,0x1 09b5 1b16 | | Execute Package,Field_Read,Field_Number 0x16 09b6 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 09b7 c5fc | | Store 0x2,-0x4 09b8 7807 |x | Jump 0x9c0 09b9 e5fc | | Load 0x2,-0x4 09ba e402 | | Load 0x2,0x2 09bb e406 | | Load 0x2,0x6 09bc e001 | | Load 0x0,0x1 09bd 1b16 | | Execute Package,Field_Read,Field_Number 0x16 09be 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 09bf c5fc | | Store 0x2,-0x4 09c0 e5fc | | Load 0x2,-0x4 09c1 e001 | | Load 0x0,0x1 09c2 1b16 | | Execute Package,Field_Read,Field_Number 0x16 09c3 1b28 | ( | Execute Package,Field_Read,Field_Number 0x28 09c4 e402 | | Load 0x2,0x2 09c5 e406 | | Load 0x2,0x6 09c6 e001 | | Load 0x0,0x1 09c7 1b16 | | Execute Package,Field_Read,Field_Number 0x16 09c8 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39 09c9 e011 | | Load 0x0,0x11 09ca 1b26 | & | Execute Package,Field_Read,Field_Number 0x26 09cb 0216 | | Execute Heap_Access,Convert 09cc c407 | | Store 0x2,0x7 09cd c5fc | | Store 0x2,-0x4 09ce 781f |x | Jump 0x9ee 09cf e003 | | Load 0x0,0x3 09d0 1b0d | | Execute Package,Field_Read,Field_Number 0xd 09d1 4801 |H | Short_Literal 0x1 09d2 4803 |H | Short_Literal 0x3 09d3 e008 | | Load 0x0,0x8 09d4 1b0f | | Execute Package,Field_Read,Field_Number 0xf 09d5 035b | [ | Declare_Type Array,Constrained 09d6 0337 | 7 | Declare_Variable Array 09d7 e406 | | Load 0x2,0x6 09d8 e008 | | Load 0x0,0x8 09d9 181a | | Execute Package,Field_Execute,Field_Number 0x1a 09da 4801 |H | Short_Literal 0x1 09db 00da | | Load_Top At_Offset_2 09dc 01d6 | | Execute Vector,Field_Write 09dd e5ff | | Load 0x2,-0x1 09de e008 | | Load 0x0,0x8 09df 181a | | Execute Package,Field_Execute,Field_Number 0x1a 09e0 4802 |H | Short_Literal 0x2 09e1 00da | | Load_Top At_Offset_2 09e2 01d6 | | Execute Vector,Field_Write 09e3 e402 | | Load 0x2,0x2 09e4 e001 | | Load 0x0,0x1 09e5 1b16 | | Execute Package,Field_Read,Field_Number 0x16 09e6 185a | Z | Execute Package,Field_Execute,Field_Number 0x5a 09e7 4803 |H | Short_Literal 0x3 09e8 00da | | Load_Top At_Offset_2 09e9 01d6 | | Execute Vector,Field_Write 09ea 60c1 |` | Indirect_Literal Discrete,0xaac,{0x00000000, 0x00001808} 09eb e003 | | Load 0x0,0x3 09ec 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 09ed c5fc | | Store 0x2,-0x4 09ee 4800 |H | Short_Literal 0x0 09ef e5fc | | Load 0x2,-0x4 09f0 e003 | | Load 0x0,0x3 09f1 1847 | G | Execute Package,Field_Execute,Field_Number 0x47 09f2 7004 |p | Jump_Nonzero 0x9f7 09f3 e011 | | Load 0x0,0x11 09f4 1b31 | 1 | Execute Package,Field_Read,Field_Number 0x31 09f5 a5fd | | Store_Unchecked 0x2,-0x3 09f6 4503 |E | Exit_Suprogram New_Top_Offset 0x3 09f7 e402 | | Load 0x2,0x2 09f8 0217 | | Execute Heap_Access,All_Reference 09f9 3c0b |< | Execute Record,Field_Read,Field_Number 0xb 09fa 701b |p | Jump_Nonzero 0xa16 09fb e402 | | Load 0x2,0x2 09fc e5ff | | Load 0x2,-0x1 09fd e405 | | Load 0x2,0x5 09fe e00e | | Load 0x0,0xe 09ff 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0a00 0032 | 2 | Store_Top Heap_Access,At_Offset_2 0a01 00da | | Load_Top At_Offset_2 0a02 0217 | | Execute Heap_Access,All_Reference 0a03 3c05 |< | Execute Record,Field_Read,Field_Number 0x5 0a04 a404 | | Store_Unchecked 0x2,0x4 0a05 00cf | | Action Mark_Auxiliary 0a06 780b |x | Jump 0xa12 0a07 00da | | Load_Top At_Offset_2 0a08 e404 | | Load 0x2,0x4 0a09 0217 | | Execute Heap_Access,All_Reference 0a0a 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0a0b 021f | | Execute Heap_Access,Equal 0a0c 7007 |p | Jump_Nonzero 0xa14 0a0d e404 | | Load 0x2,0x4 0a0e 0217 | | Execute Heap_Access,All_Reference 0a0f 3c08 |< | Execute Record,Field_Read,Field_Number 0x8 0a10 a404 | | Store_Unchecked 0x2,0x4 0a11 00c9 | | Action Pop_Auxiliary_Loop 0a12 e404 | | Load 0x2,0x4 0a13 77f3 |w | Jump_Nonzero 0xa07 0a14 00ce | | Action Pop_Auxiliary 0a15 7858 |xX | Jump 0xa6e 0a16 00da | | Load_Top At_Offset_2 0a17 0217 | | Execute Heap_Access,All_Reference 0a18 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0a19 e405 | | Load 0x2,0x5 0a1a 012e | . | Execute Any,Not_Equal 0a1b 682e |h. | Jump_Zero 0xa4a 0a1c e003 | | Load 0x0,0x3 0a1d 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0a1e 4801 |H | Short_Literal 0x1 0a1f 4805 |H | Short_Literal 0x5 0a20 e008 | | Load 0x0,0x8 0a21 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0a22 035b | [ | Declare_Type Array,Constrained 0a23 0337 | 7 | Declare_Variable Array 0a24 e405 | | Load 0x2,0x5 0a25 e008 | | Load 0x0,0x8 0a26 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0a27 4801 |H | Short_Literal 0x1 0a28 00da | | Load_Top At_Offset_2 0a29 01d6 | | Execute Vector,Field_Write 0a2a e406 | | Load 0x2,0x6 0a2b e008 | | Load 0x0,0x8 0a2c 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0a2d 4802 |H | Short_Literal 0x2 0a2e 00da | | Load_Top At_Offset_2 0a2f 01d6 | | Execute Vector,Field_Write 0a30 e407 | | Load 0x2,0x7 0a31 0217 | | Execute Heap_Access,All_Reference 0a32 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0a33 e008 | | Load 0x0,0x8 0a34 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0a35 4803 |H | Short_Literal 0x3 0a36 00da | | Load_Top At_Offset_2 0a37 01d6 | | Execute Vector,Field_Write 0a38 e5ff | | Load 0x2,-0x1 0a39 e008 | | Load 0x0,0x8 0a3a 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0a3b 4804 |H | Short_Literal 0x4 0a3c 00da | | Load_Top At_Offset_2 0a3d 01d6 | | Execute Vector,Field_Write 0a3e e5fe | | Load 0x2,-0x2 0a3f e001 | | Load 0x0,0x1 0a40 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0a41 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0a42 4805 |H | Short_Literal 0x5 0a43 00da | | Load_Top At_Offset_2 0a44 01d6 | | Execute Vector,Field_Write 0a45 6062 |`b | Indirect_Literal Discrete,0xaa8,{0x00000000, 0x00001807} 0a46 e003 | | Load 0x0,0x3 0a47 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 0a48 c5fc | | Store 0x2,-0x4 0a49 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0a4a e5fe | | Load 0x2,-0x2 0a4b e001 | | Load 0x0,0x1 0a4c 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0a4d 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f 0a4e 0217 | | Execute Heap_Access,All_Reference 0a4f 3c08 |< | Execute Record,Field_Read,Field_Number 0x8 0a50 e405 | | Load 0x2,0x5 0a51 e001 | | Load 0x0,0x1 0a52 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0a53 7014 |p | Jump_Nonzero 0xa68 0a54 e405 | | Load 0x2,0x5 0a55 e004 | | Load 0x0,0x4 0a56 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0a57 183e | > | Execute Package,Field_Execute,Field_Number 0x3e 0a58 0092 0b97 | | Action Push_String_Extended,0xb97 ; " has no state file. " 0a5a 01cc | | Execute Vector,Catenate 0a5b e5ff | | Load 0x2,-0x1 0a5c e004 | | Load 0x0,0x4 0a5d 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0a5e 183b | ; | Execute Package,Field_Execute,Field_Number 0x3b 0a5f 01cc | | Execute Vector,Catenate 0a60 0092 0b98 | | Action Push_String_Extended,0xb98 ; " will not be considered during build operations." 0a62 01cc | | Execute Vector,Catenate 0a63 8013 | | Call 0x0,0x13 0a64 e011 | | Load 0x0,0x11 0a65 1b31 | 1 | Execute Package,Field_Read,Field_Number 0x31 0a66 a5fd | | Store_Unchecked 0x2,-0x3 0a67 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0a68 e402 | | Load 0x2,0x2 0a69 e5ff | | Load 0x2,-0x1 0a6a e405 | | Load 0x2,0x5 0a6b e00e | | Load 0x0,0xe 0a6c 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0a6d 0032 | 2 | Store_Top Heap_Access,At_Offset_2 0a6e e404 | | Load 0x2,0x4 0a6f 7035 |p5 | Jump_Nonzero 0xaa5 0a70 e402 | | Load 0x2,0x2 0a71 e011 | | Load 0x0,0x11 0a72 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32 0a73 a404 | | Store_Unchecked 0x2,0x4 0a74 00da | | Load_Top At_Offset_2 0a75 e404 | | Load 0x2,0x4 0a76 0217 | | Execute Heap_Access,All_Reference 0a77 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0a78 00d9 | | Load_Top At_Offset_1 0a79 e404 | | Load 0x2,0x4 0a7a 0217 | | Execute Heap_Access,All_Reference 0a7b 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0a7c e402 | | Load 0x2,0x2 0a7d 0217 | | Execute Heap_Access,All_Reference 0a7e 3c0e |< | Execute Record,Field_Read,Field_Number 0xe 0a7f 00db | | Load_Top At_Offset_3 0a80 021f | | Execute Heap_Access,Equal 0a81 e404 | | Load 0x2,0x4 0a82 0217 | | Execute Heap_Access,All_Reference 0a83 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0a84 e402 | | Load 0x2,0x2 0a85 0217 | | Execute Heap_Access,All_Reference 0a86 3c0b |< | Execute Record,Field_Read,Field_Number 0xb 0a87 7004 |p | Jump_Nonzero 0xa8c 0a88 e404 | | Load 0x2,0x4 0a89 0217 | | Execute Heap_Access,All_Reference 0a8a 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0a8b 680b |h | Jump_Zero 0xa97 0a8c e5ff | | Load 0x2,-0x1 0a8d e404 | | Load 0x2,0x4 0a8e 0217 | | Execute Heap_Access,All_Reference 0a8f 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 0a90 4800 |H | Short_Literal 0x0 0a91 e402 | | Load 0x2,0x2 0a92 e404 | | Load 0x2,0x4 0a93 e5ff | | Load 0x2,-0x1 0a94 e01a | | Load 0x0,0x1a 0a95 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0a96 7804 |x | Jump 0xa9b 0a97 e5ff | | Load 0x2,-0x1 0a98 e404 | | Load 0x2,0x4 0a99 0217 | | Execute Heap_Access,All_Reference 0a9a 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 0a9b 00da | | Load_Top At_Offset_2 0a9c 0217 | | Execute Heap_Access,All_Reference 0a9d 3c05 |< | Execute Record,Field_Read,Field_Number 0x5 0a9e e404 | | Load 0x2,0x4 0a9f 0217 | | Execute Heap_Access,All_Reference 0aa0 3808 |8 | Execute Record,Field_Write,Field_Number 0x8 0aa1 e404 | | Load 0x2,0x4 0aa2 00db | | Load_Top At_Offset_3 0aa3 0217 | | Execute Heap_Access,All_Reference 0aa4 3805 |8 | Execute Record,Field_Write,Field_Number 0x5 0aa5 e404 | | Load 0x2,0x4 0aa6 a5fd | | Store_Unchecked 0x2,-0x3 0aa7 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0aa8 0000 0000 | | .LITERAL {0x00000000, 0x00001807} 0aac 0000 0000 | | .LITERAL {0x00000000, 0x00001808} 0ab0 0000 0000 | | .LITERAL {0x00000000, 0x00001805} 0ab4 0000 0000 | | .LITERAL {0x00000000, 0x00001804} 0ab8 0000 0000 | | .LITERAL {0x00000000, 0x0000500b} 0abc 0000 0000 | | .BLANK 0000[0x4] 0ac0 ; -------------------------------------------------------------------------------------- 0ac0 ; SUBPROGRAM 0ac0 ; -------------------------------------------------------------------------------------- 0ac0 0ac3 | | .CONST 0x0ac3 ; Address of begin 0ac1 0004 | | .CONST 0x0004 ; Address of exception handler 0ac2 0001 | | .CONST 0x0001 ; Number of locals 0ac3 BODY_0ac0: 0ac3 INIT_0ac0: 0ac3 00db | | Load_Top At_Offset_3 0ac4 7007 |p | Jump_Nonzero 0xacc 0ac5 e5fd | | Load 0x2,-0x3 0ac6 0217 | | Execute Heap_Access,All_Reference 0ac7 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0ac8 00db | | Load_Top At_Offset_3 0ac9 0217 | | Execute Heap_Access,All_Reference 0aca 3819 |8 | Execute Record,Field_Write,Field_Number 0x19 0acb 7806 |x | Jump 0xad2 0acc e5fd | | Load 0x2,-0x3 0acd 0217 | | Execute Heap_Access,All_Reference 0ace 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0acf e5fe | | Load 0x2,-0x2 0ad0 0217 | | Execute Heap_Access,All_Reference 0ad1 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0ad2 e5fd | | Load 0x2,-0x3 0ad3 0219 | | Execute Heap_Access,All_Read 0ad4 00d8 | | Load_Top At_Offset_0 0ad5 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0ad6 e5fd | | Load 0x2,-0x3 0ad7 0217 | | Execute Heap_Access,All_Reference 0ad8 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 0ad9 e5ff | | Load 0x2,-0x1 0ada 8252 | R | Call 0x1,0x52 0adb 00d9 | | Load_Top At_Offset_1 0adc 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0add 00d1 | | Pop_Control Pop_Count_1 0ade e5fd | | Load 0x2,-0x3 0adf e011 | | Load 0x0,0x11 0ae0 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30 0ae1 c5fd | | Store 0x2,-0x3 0ae2 00da | | Load_Top At_Offset_2 0ae3 0217 | | Execute Heap_Access,All_Reference 0ae4 3c18 |< | Execute Record,Field_Read,Field_Number 0x18 0ae5 0aff | | Execute_Immediate Plus,-0x1 0ae6 00db | | Load_Top At_Offset_3 0ae7 0217 | | Execute Heap_Access,All_Reference 0ae8 3818 |8 | Execute Record,Field_Write,Field_Number 0x18 0ae9 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0aea 0000 0000 | | .BLANK 0000[0x6] 0af0 ; -------------------------------------------------------------------------------------- 0af0 ; SUBPROGRAM 0af0 ; -------------------------------------------------------------------------------------- 0af0 0af3 | | .CONST 0x0af3 ; Address of begin 0af1 0b0e | | .CONST 0x0b0e ; Address of exception handler 0af2 0001 | | .CONST 0x0001 ; Number of locals 0af3 BODY_0af0: 0af3 INIT_0af0: 0af3 e402 | | Load 0x2,0x2 0af4 0217 | | Execute Heap_Access,All_Reference 0af5 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0af6 a403 | | Store_Unchecked 0x2,0x3 0af7 e402 | | Load 0x2,0x2 0af8 0217 | | Execute Heap_Access,All_Reference 0af9 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0afa 0217 | | Execute Heap_Access,All_Reference 0afb 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 0afc e40c | | Load 0x2,0xc 0afd e408 | | Load 0x2,0x8 0afe 01d5 | | Execute Vector,Field_Reference 0aff 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0b00 823f | ? | Call 0x1,0x3f 0b01 7003 |p | Jump_Nonzero 0xb05 0b02 00cc | | Action Pop_Block 0b03 00a7 059b | | Action Jump_Extended,0x59b 0b05 e402 | | Load 0x2,0x2 0b06 e404 | | Load 0x2,0x4 0b07 e5fe | | Load 0x2,-0x2 0b08 8255 | U | Call 0x1,0x55 0b09 c404 | | Store 0x2,0x4 0b0a c402 | | Store 0x2,0x2 0b0b e403 | | Load 0x2,0x3 0b0c a402 | | Store_Unchecked 0x2,0x2 0b0d 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0b0e TRAP_0af0: 0b0e 4884 |H | Short_Literal 0x84 0b0f 010f | | Execute Exception,Equal 0b10 6810 |h | Jump_Zero 0xb21 0b11 e004 | | Load 0x0,0x4 0b12 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0b13 e402 | | Load 0x2,0x2 0b14 0217 | | Execute Heap_Access,All_Reference 0b15 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0b16 0217 | | Execute Heap_Access,All_Reference 0b17 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 0b18 e402 | | Load 0x2,0x2 0b19 e404 | | Load 0x2,0x4 0b1a e5fe | | Load 0x2,-0x2 0b1b 8255 | U | Call 0x1,0x55 0b1c c404 | | Store 0x2,0x4 0b1d c402 | | Store 0x2,0x2 0b1e e403 | | Load 0x2,0x3 0b1f a402 | | Store_Unchecked 0x2,0x2 0b20 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0b21 0100 | | Execute Exception,Raise 0b22 0000 0000 | | .BLANK 0000[0x6] 0b28 ; -------------------------------------------------------------------------------------- 0b28 ; SUBPROGRAM 0b28 ; -------------------------------------------------------------------------------------- 0b28 0b2b | + | .CONST 0x0b2b ; Address of begin 0b29 0b34 | 4 | .CONST 0x0b34 ; Address of exception handler 0b2a 0001 | | .CONST 0x0001 ; Number of locals 0b2b BODY_0b28: 0b2b INIT_0b28: 0b2b e5ff | | Load 0x2,-0x1 0b2c e009 | | Load 0x0,0x9 0b2d 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0b2e e011 | | Load 0x0,0x11 0b2f 1841 | A | Execute Package,Field_Execute,Field_Number 0x41 0b30 e403 | | Load 0x2,0x3 0b31 e01a | | Load 0x0,0x1a 0b32 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0b33 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0b34 TRAP_0b28: 0b34 0007 | | Action Break_Optional 0b35 0092 0b99 | | Action Push_String_Extended,0xb99 ; "Link object being Deleted " 0b37 e403 | | Load 0x2,0x3 0b38 e004 | | Load 0x0,0x4 0b39 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0b3a 183e | > | Execute Package,Field_Execute,Field_Number 0x3e 0b3b 01cc | | Execute Vector,Catenate 0b3c 0092 0b9a | | Action Push_String_Extended,0xb9a ; " is not in the map." 0b3e 01cc | | Execute Vector,Catenate 0b3f 8013 | | Call 0x0,0x13 0b40 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0b41 0000 0000 | | .BLANK 0000[0x7] 0b48 ; -------------------------------------------------------------------------------------- 0b48 ; SUBPROGRAM 0b48 ; -------------------------------------------------------------------------------------- 0b48 0b4b | K | .CONST 0x0b4b ; Address of begin 0b49 0004 | | .CONST 0x0004 ; Address of exception handler 0b4a 0001 | | .CONST 0x0001 ; Number of locals 0b4b BODY_0b48: 0b4b INIT_0b48: 0b4b 4608 |F | Jump_Case 0x9 0b4c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 0b4d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 0b4e 7819 |x | Jump 0xb68 ; case 0x2 0b4f 7818 |x | Jump 0xb68 ; case 0x3 0b50 7817 |x | Jump 0xb68 ; case 0x4 0b51 7816 |x | Jump 0xb68 ; case 0x5 0b52 7815 |x | Jump 0xb68 ; case 0x6 0b53 7801 |x | Jump 0xb55 ; case 0x7 0b54 7809 |x | Jump 0xb5e ; case 0x8 0b55 00db | | Load_Top At_Offset_3 0b56 4801 |H | Short_Literal 0x1 0b57 e5fe | | Load 0x2,-0x2 0b58 e21e | | Load 0x1,0x1e 0b59 035b | [ | Declare_Type Array,Constrained 0b5a 4801 |H | Short_Literal 0x1 0b5b e5ff | | Load 0x2,-0x1 0b5c 031b | | Declare_Type Variant_Record,Constrained 0b5d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0b5e 00db | | Load_Top At_Offset_3 0b5f 00db | | Load_Top At_Offset_3 0b60 02fc | | Declare_Variable Variant_Record,With_Constraint 0b61 4801 |H | Short_Literal 0x1 0b62 e5fe | | Load 0x2,-0x2 0b63 e21e | | Load 0x1,0x1e 0b64 0334 | 4 | Declare_Variable Array,With_Constraint 0b65 2d03 |- | Execute Variant_Record,Field_Append,Fixed,Indirect,Field_Number 0x3 0b66 016a | j | QQ_execute Variant_Record,XXX 0b67 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0b68 0869 | i | Execute_Immediate Raise,0x69 0b69 0000 0000 | | .BLANK 0000[0x7] 0b70 ; -------------------------------------------------------------------------------------- 0b70 ; SUBPROGRAM 0b70 ; -------------------------------------------------------------------------------------- 0b70 0b73 | s | .CONST 0x0b73 ; Address of begin 0b71 0004 | | .CONST 0x0004 ; Address of exception handler 0b72 0001 | | .CONST 0x0001 ; Number of locals 0b73 BODY_0b70: 0b73 INIT_0b70: 0b73 4608 |F | Jump_Case 0x9 0b74 7808 |x | Jump 0xb7d ; case 0x0 0b75 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 0b76 780d |x | Jump 0xb84 ; case 0x2 0b77 780c |x | Jump 0xb84 ; case 0x3 0b78 780b |x | Jump 0xb84 ; case 0x4 0b79 780a |x | Jump 0xb84 ; case 0x5 0b7a 7809 |x | Jump 0xb84 ; case 0x6 0b7b 7808 |x | Jump 0xb84 ; case 0x7 0b7c 7807 |x | Jump 0xb84 ; case 0x8 0b7d 00da | | Load_Top At_Offset_2 0b7e 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 0b7f 0125 | % | Execute Any,Set_Constraint 0b80 00da | | Load_Top At_Offset_2 0b81 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 0b82 1c00 | | Execute_Immediate Run_Utility,0x0 0b83 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0b84 0869 | i | Execute_Immediate Raise,0x69 0b85 ; -------------------------------------------------------------------------------------- 0b85 ; STRING TABLE 0b85 ; -------------------------------------------------------------------------------------- 0b85 002e | . | .STRTAB 0x002e->0x0b9c ; "'Load_View." 0b86 0037 | 7 | .STRTAB 0x0037->0x0ba1 ; "Initializing supplier list for " 0b87 0054 | T | .STRTAB 0x0054->0x0bb1 ; "Deleting supplier " 0b88 0064 | d | .STRTAB 0x0064->0x0bba ; " for " 0b89 0067 | g | .STRTAB 0x0067->0x0bbc ; "Replacing" 0b8a 006e | n | .STRTAB 0x006e->0x0bc1 ; " suppliers with" 0b8b 007b | { | .STRTAB 0x007b->0x0bc8 ; " objects for " 0b8c 0086 | | .STRTAB 0x0086->0x0bcf ; "New object (" 0b8d 0090 | | .STRTAB 0x0090->0x0bd5 ; ") is " 0b8e 0093 | | .STRTAB 0x0093->0x0bd7 ; "Unique (" 0b8f 0099 | | .STRTAB 0x0099->0x0bdb ; ") =" 0b90 009a | | .STRTAB 0x009a->0x0bdd ; "Changing kinds." 0b91 00a7 | | .STRTAB 0x00a7->0x0be4 ; "Deleting link object " 0b92 00ba | | .STRTAB 0x00ba->0x0bef ; "Adding client " 0b93 00c6 | | .STRTAB 0x00c6->0x0bf6 ; " to link " 0b94 00cd | | .STRTAB 0x00cd->0x0bfa ; "Deleting client " 0b95 00db | | .STRTAB 0x00db->0x0c02 ; " from link " 0b96 00e4 | | .STRTAB 0x00e4->0x0c08 ; "Adding supplier " 0b97 00f2 | | .STRTAB 0x00f2->0x0c10 ; " has no state file. " 0b98 0105 | | .STRTAB 0x0105->0x0c1a ; " will not be considered during build operations." 0b99 0133 | 3 | .STRTAB 0x0133->0x0c32 ; "Link object being Deleted " 0b9a 014b | K | .STRTAB 0x014b->0x0c3f ; " is not in the map." 0b9b 015c | \ | .STREND 0x015c->0x0c49 0b9c 274c 6f61 |'Loa| .STRTAB_STRINGS 0c49 0000 0000 | | .BLANK 0000[0x7] 0c50 ; -------------------------------------------------------------------------------------- 0c50 ; Debug Table 0c50 ; -------------------------------------------------------------------------------------- 0c50 0004 000d | | .DEBUG4 0x0004,0x000d,0xd92c,0x0000,0x0001,0x0000 0c56 e602 020e | | .XXX[0xf] 0c58 e602 020f | | 0c5a 7808 6010 |x ` | 0c5c 600b e002 |` | 0c5e e001 1835 | 5| 0c60 180d 00a7 | | 0c62 0028 8603 | ( | 0c64 4501 |E | 0c65 0000 0000 | | .BLANK 0000[0x5] 0c6a 0019 0c04 | | .XXX[0x196] 0c6c 0000 0000 | | 0c6e 0000 1f40 | @| 0c70 0000 0000 | | 0c72 000c a804 | | 0c74 002e 950a | . | 0c76 0000 00b0 | | 0c78 0000 0000 | | 0c7a 003d 4c04 | =L | 0c7c 0000 0000 | | 0c7e 001f 5804 | X | 0c80 0000 0001 | | 0c82 000c c0f0 | | 0c84 002e 790a | .y | 0c86 0000 00b0 | | 0c88 0000 0000 | | 0c8a 003b 7004 | ;p | 0c8c 0000 0001 | | 0c8e 0007 c911 | | 0c90 002e a90a | . | 0c92 0000 00b0 | | 0c94 002e 4d0a | .M | 0c96 0000 00b0 | | 0c98 0000 0000 | | 0c9a 003b d004 | ; | 0c9c 0000 0001 | | 0c9e 000d 9885 | | 0ca0 0000 0000 | | 0ca2 0022 b404 | " | 0ca4 002e 7d0a | .} | 0ca6 0000 00b0 | | 0ca8 0000 0000 | | 0caa 000c 9004 | | 0cac 002e a50a | . | 0cae 0000 00b0 | | 0cb0 002e 9d0a | . | 0cb2 0000 00b0 | | 0cb4 0000 0001 | | 0cb6 000d 72ab | r | 0cb8 0000 0001 | | 0cba 000c c0eb | | 0cbc 0000 0000 | | 0cbe 003c 3404 | <4 | 0cc0 002e 890a | . | 0cc2 0000 00b0 | | 0cc4 0000 0000 | | 0cc6 000c a004 | | 0cc8 002e 8d0a | . | 0cca 0000 00b0 | | 0ccc 002e 810a | . | 0cce 0000 00b0 | | 0cd0 0000 0001 | | 0cd2 000c c109 | | 0cd4 0000 0000 | | 0cd6 003c 2404 | <$ | 0cd8 002e 3d0a | .= | 0cda 0000 00b0 | | 0cdc 002d 190a | - | 0cde 0000 00b0 | | 0ce0 0000 0001 | | 0ce2 000d 58ad | X | 0ce4 002d 690a | -i | 0ce6 0000 00b0 | | 0ce8 0000 0000 | | 0cea 0006 d804 | | 0cec 0000 0000 | | 0cee 0001 a004 | | 0cf0 002e 710a | .q | 0cf2 0000 00b0 | | 0cf4 002e 750a | .u | 0cf6 0000 00b0 | | 0cf8 0000 0000 | | 0cfa 000f c404 | | 0cfc 0000 0000 | | 0cfe 0036 d804 | 6 | 0d00 0000 0000 | | 0d02 000e 7c04 | | | 0d04 002e 850a | . | 0d06 0000 00b0 | | 0d08 0000 0000 | | 0d0a 0022 9c04 | " | 0d0c 002e 6d0a | .m | 0d0e 0000 00b0 | | 0d10 0000 0001 | | 0d12 000c c108 | | 0d14 002e ad0a | . | 0d16 0000 00b0 | | 0d18 002e a10a | . | 0d1a 0000 00b0 | | 0d1c 0000 0000 | | 0d1e 003d 6804 | =h | 0d20 0000 0000 | | 0d22 0032 4804 | 2H | 0d24 0000 0000 | | 0d26 0020 e804 | | 0d28 002d cd0a | - | 0d2a 0000 00b0 | | 0d2c 0000 0001 | | 0d2e 0006 28ce | ( | 0d30 0000 0000 | | 0d32 0032 4404 | 2D | 0d34 0000 32a1 | 2 | 0d36 d501 0081 | | 0d38 002d f90a | - | 0d3a 0000 00b0 | | 0d3c 0000 0000 | | 0d3e 003d 9004 | = | 0d40 002e 010a | . | 0d42 0000 00b0 | | 0d44 002d e10a | - | 0d46 0000 00b0 | | 0d48 002d e50a | - | 0d4a 0000 00b0 | | 0d4c 002d ed0a | - | 0d4e 0000 00b0 | | 0d50 002d f50a | - | 0d52 0000 00b0 | | 0d54 002e 610a | .a | 0d56 0000 00b0 | | 0d58 002e 5d0a | .] | 0d5a 0000 00b0 | | 0d5c 002e 550a | .U | 0d5e 0000 00b0 | | 0d60 002d 5d0a | -] | 0d62 0000 00b0 | | 0d64 002e 510a | .Q | 0d66 0000 00b0 | | 0d68 002e 490a | .I | 0d6a 0000 00b0 | | 0d6c 0000 0000 | | 0d6e 003b dc04 | ; | 0d70 002d 850a | - | 0d72 0000 00b0 | | 0d74 0000 0001 | | 0d76 0006 27b1 | ' | 0d78 002d d90a | - | 0d7a 0000 00b0 | | 0d7c 002e 2d0a | .- | 0d7e 0000 00b0 | | 0d80 002d fd0a | - | 0d82 0000 00b0 | | 0d84 0000 0000 | | 0d86 003c 3804 | <8 | 0d88 0000 0001 | | 0d8a 000d 53a8 | S | 0d8c 0000 0000 | | 0d8e 003c 1c04 | < | 0d90 002d 990a | - | 0d92 0000 00b0 | | 0d94 0000 0001 | | 0d96 0010 5f81 | _ | 0d98 0000 0000 | | 0d9a 001a a004 | | 0d9c 0000 0000 | | 0d9e 0032 4c04 | 2L | 0da0 0000 0000 | | 0da2 001a a804 | | 0da4 0000 0000 | | 0da6 0037 4c04 | 7L | 0da8 0000 0000 | | 0daa 003e 3004 | >0 | 0dac 0000 0000 | | 0dae 001a b804 | | 0db0 0000 0001 | | 0db2 000c c115 | | 0db4 002e 050a | . | 0db6 0000 00b0 | | 0db8 0000 0000 | | 0dba 003c 2804 | <( | 0dbc 0000 0000 | | 0dbe 001a b404 | | 0dc0 0000 0000 | | 0dc2 000e 4804 | H | 0dc4 0000 0000 | | 0dc6 000c a404 | | 0dc8 0000 0000 | | 0dca 0022 bc04 | " | 0dcc 0000 0000 | | 0dce 001d c004 | | 0dd0 002e 690a | .i | 0dd2 0000 00b0 | | 0dd4 0000 0000 | | 0dd6 000e 3c04 | < | 0dd8 002e 590a | .Y | 0dda 0000 00b0 | | 0ddc 002d 550a | -U | 0dde 0000 00b0 | | 0de0 0000 0001 | | 0de2 000c c0ff | | 0de4 002d 310a | -1 | 0de6 0000 00b0 | | 0de8 0000 0000 | | 0dea 003c 5404 | <T | 0dec 002e 650a | .e | 0dee 0000 00b0 | | 0df0 0000 0001 | | 0df2 000c c0e4 | | 0df4 002d 150a | - | 0df6 0000 00b0 | | 0df8 0000 0000 | | 0dfa 003c 4404 | <D | 0dfc 0000 0001 | | 0dfe 000c c0e7 | |