|
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_6a18da
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000 └─ ⟦cfc2e13cd⟧ »Space Info Vol 2« └─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code 0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 0c38 | 8 | .CONST 0x0c38 ; 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 0b33 | 3| Declare_Subprogram INIT_0b30,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 0b5b | [| Declare_Subprogram INIT_0b58,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 048b | | Declare_Subprogram INIT_0488,For_Outer_Call,Visible,Unelaborated 00b5 c227 | ' | Store 0x1,0x27 00b6 029a 04ab | | Declare_Subprogram INIT_04a8,For_Outer_Call,Visible,Unelaborated 00b8 c228 | ( | Store 0x1,0x28 00b9 029a 050b | | Declare_Subprogram INIT_0508,For_Outer_Call,Visible,Unelaborated 00bb c229 | ) | Store 0x1,0x29 00bc 029a 061b | | Declare_Subprogram INIT_0618,For_Outer_Call,Visible,Unelaborated 00be c22a | * | Store 0x1,0x2a 00bf 029a 062b | +| Declare_Subprogram INIT_0628,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 0633 | 3| Declare_Subprogram INIT_0630,For_Outer_Call,Visible,Unelaborated 0112 c230 | 0 | Store 0x1,0x30 0113 029a 066b | k| Declare_Subprogram INIT_0668,For_Outer_Call,Visible,Unelaborated 0115 c231 | 1 | Store 0x1,0x31 0116 029a 06c3 | | Declare_Subprogram INIT_06c0,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 06e3 | | Declare_Subprogram INIT_06e0,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 06f3 | | Declare_Subprogram INIT_06f0,For_Outer_Call 0136 029d 0703 | | Declare_Subprogram INIT_0700,For_Outer_Call 0138 029d 071b | | Declare_Subprogram INIT_0718,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 072b | +| Declare_Subprogram INIT_0728,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 0743 | C| Declare_Subprogram INIT_0740,For_Outer_Call 0173 029d 078b | | Declare_Subprogram INIT_0788,For_Outer_Call 0175 029d 0813 | | Declare_Subprogram INIT_0810,For_Outer_Call 0177 029d 0833 | 3| Declare_Subprogram INIT_0830,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 08a3 | | Declare_Subprogram INIT_08a0,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 08eb | | Declare_Subprogram INIT_08e8,For_Outer_Call 0185 1d27 | ' | Execute_Immediate Reference_Lex_1,0x27 0186 00c7 | | Action Elaborate_Subprogram 0187 029d 0aab | | Declare_Subprogram INIT_0aa8,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 0b6d | m| Action Push_String_Extended,0xb6d ; "'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 7010 |p | Jump_Nonzero 0x28e 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 0334 | 4 | Declare_Variable Array,With_Constraint 0285 e5ff | | Load 0x2,-0x1 0286 821b | | Call 0x1,0x1b 0287 4801 |H | Short_Literal 0x1 0288 00da | | Load_Top At_Offset_2 0289 01d6 | | Execute Vector,Field_Write 028a 6005 |` | Indirect_Literal Discrete,0x290,{0x00000000, 0x00001803} 028b e003 | | Load 0x0,0x3 028c 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 028d c5fd | | Store 0x2,-0x3 028e 4502 |E | Exit_Suprogram New_Top_Offset 0x2 028f 0000 | | .XXX[0x1] 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 0b6e | n| Action Push_String_Extended,0xb6e ; "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 609c |` | Indirect_Literal Discrete,0x484,{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 681a |h | Jump_Zero 0x417 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 0334 | 4 | Declare_Variable Array,With_Constraint 0404 e5ff | | Load 0x2,-0x1 0405 e403 | | Load 0x2,0x3 0406 e008 | | Load 0x0,0x8 0407 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 0408 4801 |H | Short_Literal 0x1 0409 00da | | Load_Top At_Offset_2 040a 01d6 | | Execute Vector,Field_Write 040b e5fe | | Load 0x2,-0x2 040c e001 | | Load 0x0,0x1 040d 1b14 | | Execute Package,Field_Read,Field_Number 0x14 040e 1810 | | Execute Package,Field_Execute,Field_Number 0x10 040f 4802 |H | Short_Literal 0x2 0410 00da | | Load_Top At_Offset_2 0411 01d6 | | Execute Vector,Field_Write 0412 606d |`m | Indirect_Literal Discrete,0x480,{0x00000000, 0x00001801} 0413 e003 | | Load 0x0,0x3 0414 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 0415 c5fc | | Store 0x2,-0x4 0416 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0417 00db | | Load_Top At_Offset_3 0418 e004 | | Load 0x0,0x4 0419 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 041a 181e | | Execute Package,Field_Execute,Field_Number 0x1e 041b 6819 |h | Jump_Zero 0x435 041c e003 | | Load 0x0,0x3 041d 1b0d | | Execute Package,Field_Read,Field_Number 0xd 041e 4801 |H | Short_Literal 0x1 041f 4802 |H | Short_Literal 0x2 0420 e008 | | Load 0x0,0x8 0421 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0422 0334 | 4 | Declare_Variable Array,With_Constraint 0423 e5ff | | Load 0x2,-0x1 0424 e008 | | Load 0x0,0x8 0425 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0426 4801 |H | Short_Literal 0x1 0427 00da | | Load_Top At_Offset_2 0428 01d6 | | Execute Vector,Field_Write 0429 e5fe | | Load 0x2,-0x2 042a e001 | | Load 0x0,0x1 042b 1b14 | | Execute Package,Field_Read,Field_Number 0x14 042c 1810 | | Execute Package,Field_Execute,Field_Number 0x10 042d 4802 |H | Short_Literal 0x2 042e 00da | | Load_Top At_Offset_2 042f 01d6 | | Execute Vector,Field_Write 0430 604b |`K | Indirect_Literal Discrete,0x47c,{0x00000000, 0x00001806} 0431 e003 | | Load 0x0,0x3 0432 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 0433 c5fc | | Store 0x2,-0x4 0434 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0435 00cf | | Action Mark_Auxiliary 0436 7839 |x9 | Jump 0x470 0437 e004 | | Load 0x0,0x4 0438 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0439 00db | | Load_Top At_Offset_3 043a 0120 | | Execute Any,Is_Value 043b 6803 |h | Jump_Zero 0x43f 043c e004 | | Load 0x0,0x4 043d 1b0f | | Execute Package,Field_Read,Field_Number 0xf 043e 7801 |x | Jump 0x440 043f 00db | | Load_Top At_Offset_3 0440 e402 | | Load 0x2,0x2 0441 e004 | | Load 0x0,0x4 0442 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0443 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 0444 c404 | | Store 0x2,0x4 0445 005a | Z | Store_Top Discrete,At_Offset_2 0446 00d9 | | Load_Top At_Offset_1 0447 7007 |p | Jump_Nonzero 0x44f 0448 e5fc | | Load 0x2,-0x4 0449 e5fd | | Load 0x2,-0x3 044a e5fe | | Load 0x2,-0x2 044b e404 | | Load 0x2,0x4 044c 8227 | ' | Call 0x1,0x27 044d c5fc | | Store 0x2,-0x4 044e 781b |x | Jump 0x46a 044f e003 | | Load 0x0,0x3 0450 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0451 4801 |H | Short_Literal 0x1 0452 4802 |H | Short_Literal 0x2 0453 e008 | | Load 0x0,0x8 0454 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0455 0334 | 4 | Declare_Variable Array,With_Constraint 0456 e402 | | Load 0x2,0x2 0457 e004 | | Load 0x0,0x4 0458 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0459 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 045a e008 | | Load 0x0,0x8 045b 1810 | | Execute Package,Field_Execute,Field_Number 0x10 045c 4801 |H | Short_Literal 0x1 045d 00da | | Load_Top At_Offset_2 045e 01d6 | | Execute Vector,Field_Write 045f e5fe | | Load 0x2,-0x2 0460 e001 | | Load 0x0,0x1 0461 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0462 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0463 4802 |H | Short_Literal 0x2 0464 00da | | Load_Top At_Offset_2 0465 01d6 | | Execute Vector,Field_Write 0466 6011 |` | Indirect_Literal Discrete,0x478,{0x00000000, 0x00001802} 0467 e003 | | Load 0x0,0x3 0468 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 0469 c5fc | | Store 0x2,-0x4 046a e402 | | Load 0x2,0x2 046b e004 | | Load 0x0,0x4 046c 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 046d 181d | | Execute Package,Field_Execute,Field_Number 0x1d 046e c402 | | Store 0x2,0x2 046f 00c9 | | Action Pop_Auxiliary_Loop 0470 e402 | | Load 0x2,0x2 0471 e004 | | Load 0x0,0x4 0472 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0473 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0474 6fc2 |o | Jump_Zero 0x437 0475 00ce | | Action Pop_Auxiliary 0476 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0477 0000 | | .XXX[0x1] 0478 0000 0000 | | .LITERAL {0x00000000, 0x00001802} 047c 0000 0000 | | .LITERAL {0x00000000, 0x00001806} 0480 0000 0000 | | .LITERAL {0x00000000, 0x00001801} 0484 0000 0000 | | .LITERAL {0x00000000, 0x00004000} 0488 ; -------------------------------------------------------------------------------------- 0488 ; SUBPROGRAM 0488 ; -------------------------------------------------------------------------------------- 0488 048d | | .CONST 0x048d ; Address of begin 0489 049e | | .CONST 0x049e ; Address of exception handler 048a 0002 | | .CONST 0x0002 ; Number of locals 048b INIT_0488: 048b e011 | | Load 0x0,0x11 048c 1b31 | 1 | Execute Package,Field_Read,Field_Number 0x31 048d BODY_0488: 048d e5fc | | Load 0x2,-0x4 048e e011 | | Load 0x0,0x11 048f 1b31 | 1 | Execute Package,Field_Read,Field_Number 0x31 0490 e5fe | | Load 0x2,-0x2 0491 e5ff | | Load 0x2,-0x1 0492 8254 | T | Call 0x1,0x54 0493 0032 | 2 | Store_Top Heap_Access,At_Offset_2 0494 c5fc | | Store 0x2,-0x4 0495 e5fc | | Load 0x2,-0x4 0496 7006 |p | Jump_Nonzero 0x49d 0497 e5fc | | Load 0x2,-0x4 0498 e5fd | | Load 0x2,-0x3 0499 e5fe | | Load 0x2,-0x2 049a 00db | | Load_Top At_Offset_3 049b 8225 | % | Call 0x1,0x25 049c c5fc | | Store 0x2,-0x4 049d 4504 |E | Exit_Suprogram New_Top_Offset 0x4 049e TRAP_0488: 049e e003 | | Load 0x0,0x3 049f 1b3d | = | Execute Package,Field_Read,Field_Number 0x3d 04a0 010f | | Execute Exception,Equal 04a1 6804 |h | Jump_Zero 0x4a6 04a2 e003 | | Load 0x0,0x3 04a3 181b | | Execute Package,Field_Execute,Field_Number 0x1b 04a4 a5fc | | Store_Unchecked 0x2,-0x4 04a5 4504 |E | Exit_Suprogram New_Top_Offset 0x4 04a6 0100 | | Execute Exception,Raise 04a7 0000 | | .XXX[0x1] 04a8 ; -------------------------------------------------------------------------------------- 04a8 ; SUBPROGRAM 04a8 ; -------------------------------------------------------------------------------------- 04a8 04b8 | | .CONST 0x04b8 ; Address of begin 04a9 0004 | | .CONST 0x0004 ; Address of exception handler 04aa 0005 | | .CONST 0x0005 ; Number of locals 04ab INIT_04a8: 04ab 00da | | Load_Top At_Offset_2 04ac 0007 | | Action Break_Optional 04ad e5fe | | Load 0x2,-0x2 04ae 0217 | | Execute Heap_Access,All_Reference 04af 3c19 |< | Execute Record,Field_Read,Field_Number 0x19 04b0 0007 | | Action Break_Optional 04b1 e011 | | Load 0x0,0x11 04b2 1b2e | . | Execute Package,Field_Read,Field_Number 0x2e 04b3 e217 | | Load 0x1,0x17 04b4 0337 | 7 | Declare_Variable Array 04b5 e234 | 4 | Load 0x1,0x34 04b6 00d9 | | Load_Top At_Offset_1 04b7 01d4 | | Execute Vector,Structure_Write 04b8 BODY_04a8: 04b8 e012 | | Load 0x0,0x12 04b9 6812 |h | Jump_Zero 0x4cc 04ba 0092 0b6f | o| Action Push_String_Extended,0xb6f ; "Deleting supplier " 04bc e5ff | | Load 0x2,-0x1 04bd 0217 | | Execute Heap_Access,All_Reference 04be 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 04bf e00e | | Load 0x0,0xe 04c0 1812 | | Execute Package,Field_Execute,Field_Number 0x12 04c1 01cc | | Execute Vector,Catenate 04c2 0092 0b70 | p| Action Push_String_Extended,0xb70 ; " for " 04c4 01cc | | Execute Vector,Catenate 04c5 e5fe | | Load 0x2,-0x2 04c6 0217 | | Execute Heap_Access,All_Reference 04c7 3c0b |< | Execute Record,Field_Read,Field_Number 0xb 04c8 e00e | | Load 0x0,0xe 04c9 1812 | | Execute Package,Field_Execute,Field_Number 0x12 04ca 01cc | | Execute Vector,Catenate 04cb 8013 | | Call 0x0,0x13 04cc 00cf | | Action Mark_Auxiliary 04cd 7830 |x0 | Jump 0x4fe 04ce 00db | | Load_Top At_Offset_3 04cf 0217 | | Execute Heap_Access,All_Reference 04d0 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 04d1 e402 | | Load 0x2,0x2 04d2 021f | | Execute Heap_Access,Equal 04d3 6825 |h% | Jump_Zero 0x4f9 04d4 00db | | Load_Top At_Offset_3 04d5 0217 | | Execute Heap_Access,All_Reference 04d6 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 04d7 e5fd | | Load 0x2,-0x3 04d8 01d3 | | Execute Vector,And 04d9 00da | | Load_Top At_Offset_2 04da 01d4 | | Execute Vector,Structure_Write 04db 00db | | Load_Top At_Offset_3 04dc 0217 | | Execute Heap_Access,All_Reference 04dd 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 04de 00da | | Load_Top At_Offset_2 04df 01df | | Execute Vector,Equal 04e0 6807 |h | Jump_Zero 0x4e8 04e1 00db | | Load_Top At_Offset_3 04e2 00db | | Load_Top At_Offset_3 04e3 e5fe | | Load 0x2,-0x2 04e4 8255 | U | Call 0x1,0x55 04e5 c404 | | Store 0x2,0x4 04e6 c403 | | Store 0x2,0x3 04e7 4504 |E | Exit_Suprogram New_Top_Offset 0x4 04e8 00d9 | | Load_Top At_Offset_1 04e9 e234 | 4 | Load 0x1,0x34 04ea 01de | | Execute Vector,Not_Equal 04eb 680c |h | Jump_Zero 0x4f8 04ec 00db | | Load_Top At_Offset_3 04ed 0217 | | Execute Heap_Access,All_Reference 04ee 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 04ef e5fd | | Load 0x2,-0x3 04f0 01d0 | | Execute Vector,Complement 04f1 01d3 | | Execute Vector,And 04f2 e403 | | Load 0x2,0x3 04f3 0217 | | Execute Heap_Access,All_Reference 04f4 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 04f5 e402 | | Load 0x2,0x2 04f6 00da | | Load_Top At_Offset_2 04f7 8251 | Q | Call 0x1,0x51 04f8 4504 |E | Exit_Suprogram New_Top_Offset 0x4 04f9 00db | | Load_Top At_Offset_3 04fa 0217 | | Execute Heap_Access,All_Reference 04fb 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 04fc a403 | | Store_Unchecked 0x2,0x3 04fd 00c9 | | Action Pop_Auxiliary_Loop 04fe 00db | | Load_Top At_Offset_3 04ff 77ce |w | Jump_Nonzero 0x4ce 0500 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0501 0000 0000 | | .BLANK 0000[0x7] 0508 ; -------------------------------------------------------------------------------------- 0508 ; SUBPROGRAM 0508 ; -------------------------------------------------------------------------------------- 0508 0523 | # | .CONST 0x0523 ; Address of begin 0509 0004 | | .CONST 0x0004 ; Address of exception handler 050a 0009 | | .CONST 0x0009 ; Number of locals 050b INIT_0508: 050b 00db | | Load_Top At_Offset_3 050c 0217 | | Execute Heap_Access,All_Reference 050d 3c19 |< | Execute Record,Field_Read,Field_Number 0x19 050e 0007 | | Action Break_Optional 050f e011 | | Load 0x0,0x11 0510 1b2e | . | Execute Package,Field_Read,Field_Number 0x2e 0511 e011 | | Load 0x0,0x11 0512 1b2e | . | Execute Package,Field_Read,Field_Number 0x2e 0513 e011 | | Load 0x0,0x11 0514 1b31 | 1 | Execute Package,Field_Read,Field_Number 0x31 0515 e217 | | Load 0x1,0x17 0516 0337 | 7 | Declare_Variable Array 0517 e217 | | Load 0x1,0x17 0518 0337 | 7 | Declare_Variable Array 0519 e5ff | | Load 0x2,-0x1 051a 01da | | Execute Vector,Bounds 051b e221 | ! | Load 0x1,0x21 051c 035b | [ | Declare_Type Array,Constrained 051d 0337 | 7 | Declare_Variable Array 051e e5ff | | Load 0x2,-0x1 051f 00d9 | | Load_Top At_Offset_1 0520 01d4 | | Execute Vector,Structure_Write 0521 029f 0adb | | Declare_Subprogram INIT_0ad8,For_Call 0523 BODY_0508: 0523 e012 | | Load 0x0,0x12 0524 681f |h | Jump_Zero 0x544 0525 0092 0b71 | q| Action Push_String_Extended,0xb71 ; "Replacing" 0527 e5fd | | Load 0x2,-0x3 0528 e5fe | | Load 0x2,-0x2 0529 8230 | 0 | Call 0x1,0x30 052a 00e0 | | Load_Encached Standard_Cache 052b 1818 | | Execute Package,Field_Execute,Field_Number 0x18 052c 01cc | | Execute Vector,Catenate 052d 0092 0b72 | r| Action Push_String_Extended,0xb72 ; " suppliers with" 052f 01cc | | Execute Vector,Catenate 0530 e5ff | | Load 0x2,-0x1 0531 01db | | Execute Vector,Length 0532 00d8 | | Load_Top At_Offset_0 0533 00e2 | | Load_Encached Integer_Cache 0534 0260 | ` | Execute Discrete,In_Type 0535 7001 |p | Jump_Nonzero 0x537 0536 0801 | | Execute_Immediate Raise,0x1 0537 00e0 | | Load_Encached Standard_Cache 0538 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0539 01cc | | Execute Vector,Catenate 053a 0092 0b73 | s| Action Push_String_Extended,0xb73 ; " objects for " 053c 01cc | | Execute Vector,Catenate 053d e5fe | | Load 0x2,-0x2 053e 0217 | | Execute Heap_Access,All_Reference 053f 3c0b |< | Execute Record,Field_Read,Field_Number 0xb 0540 e00e | | Load 0x0,0xe 0541 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0542 01cc | | Execute Vector,Catenate 0543 8013 | | Call 0x0,0x13 0544 00d9 | | Load_Top At_Offset_1 0545 e236 | 6 | Load 0x1,0x36 0546 e237 | 7 | Load 0x1,0x37 0547 e238 | 8 | Load 0x1,0x38 0548 1d39 | 9 | Execute_Immediate Reference_Lex_1,0x39 0549 1d3a | : | Execute_Immediate Reference_Lex_1,0x3a 054a 8005 | | Call 0x0,0x5 054b 00d1 | | Pop_Control Pop_Count_1 054c 00cf | | Action Mark_Auxiliary 054d 00da | | Load_Top At_Offset_2 054e 01d9 | | Execute Vector,Reverse_Bounds 054f 0263 | c | Execute Discrete,Above_Bound 0550 70ae |p | Jump_Nonzero 0x5ff 0551 e012 | | Load 0x0,0x12 0552 6832 |h2 | Jump_Zero 0x585 0553 0092 0b74 | t| Action Push_String_Extended,0xb74 ; "New object (" 0555 00d9 | | Load_Top At_Offset_1 0556 e408 | | Load 0x2,0x8 0557 01d5 | | Execute Vector,Field_Reference 0558 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0559 e004 | | Load 0x0,0x4 055a 1813 | | Execute Package,Field_Execute,Field_Number 0x13 055b 00e0 | | Load_Encached Standard_Cache 055c 1818 | | Execute Package,Field_Execute,Field_Number 0x18 055d 01cc | | Execute Vector,Catenate 055e 0092 0b75 | u| Action Push_String_Extended,0xb75 ; ") is " 0560 01cc | | Execute Vector,Catenate 0561 00d9 | | Load_Top At_Offset_1 0562 e408 | | Load 0x2,0x8 0563 01d5 | | Execute Vector,Field_Reference 0564 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0565 e004 | | Load 0x0,0x4 0566 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0567 183e | > | Execute Package,Field_Execute,Field_Number 0x3e 0568 01cc | | Execute Vector,Catenate 0569 8013 | | Call 0x0,0x13 056a e402 | | Load 0x2,0x2 056b 6819 |h | Jump_Zero 0x585 056c 0092 0b76 | v| Action Push_String_Extended,0xb76 ; "Unique (" 056e e402 | | Load 0x2,0x2 056f 0217 | | Execute Heap_Access,All_Reference 0570 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0571 0217 | | Execute Heap_Access,All_Reference 0572 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 0573 e004 | | Load 0x0,0x4 0574 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0575 183e | > | Execute Package,Field_Execute,Field_Number 0x3e 0576 01cc | | Execute Vector,Catenate 0577 0092 0b77 | w| Action Push_String_Extended,0xb77 ; ") =" 0579 01cc | | Execute Vector,Catenate 057a e402 | | Load 0x2,0x2 057b 0217 | | Execute Heap_Access,All_Reference 057c 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 057d 0217 | | Execute Heap_Access,All_Reference 057e 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 057f e004 | | Load 0x0,0x4 0580 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0581 00e0 | | Load_Encached Standard_Cache 0582 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0583 01cc | | Execute Vector,Catenate 0584 8013 | | Call 0x0,0x13 0585 00cf | | Action Mark_Auxiliary 0586 7802 |x | Jump 0x589 0587 8409 | | Call 0x2,0x9 0588 00c9 | | Action Pop_Auxiliary_Loop 0589 e402 | | Load 0x2,0x2 058a 77fc |w | Jump_Nonzero 0x587 058b 00ce | | Action Pop_Auxiliary 058c e402 | | Load 0x2,0x2 058d 680b |h | Jump_Zero 0x599 058e 00d8 | | Load_Top At_Offset_0 058f e408 | | Load 0x2,0x8 0590 01d5 | | Execute Vector,Field_Reference 0591 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0592 e402 | | Load 0x2,0x2 0593 0217 | | Execute Heap_Access,All_Reference 0594 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0595 0217 | | Execute Heap_Access,All_Reference 0596 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 0597 012f | / | Execute Any,Equal 0598 7018 |p | Jump_Nonzero 0x5b1 0599 e5fc | | Load 0x2,-0x4 059a e011 | | Load 0x0,0x11 059b 1b31 | 1 | Execute Package,Field_Read,Field_Number 0x31 059c e5fe | | Load 0x2,-0x2 059d 00db | | Load_Top At_Offset_3 059e e408 | | Load 0x2,0x8 059f 01d5 | | Execute Vector,Field_Reference 05a0 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 05a1 8254 | T | Call 0x1,0x54 05a2 c405 | | Store 0x2,0x5 05a3 c5fc | | Store 0x2,-0x4 05a4 e405 | | Load 0x2,0x5 05a5 6857 |hW | Jump_Zero 0x5fd 05a6 e404 | | Load 0x2,0x4 05a7 e402 | | Load 0x2,0x2 05a8 00da | | Load_Top At_Offset_2 05a9 e408 | | Load 0x2,0x8 05aa 01d5 | | Execute Vector,Field_Reference 05ab 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 05ac e405 | | Load 0x2,0x5 05ad e5fe | | Load 0x2,-0x2 05ae 8253 | S | Call 0x1,0x53 05af c404 | | Store 0x2,0x4 05b0 784c |xL | Jump 0x5fd 05b1 e012 | | Load 0x0,0x12 05b2 6803 |h | Jump_Zero 0x5b6 05b3 0092 0b78 | x| Action Push_String_Extended,0xb78 ; "Changing kinds." 05b5 8013 | | Call 0x0,0x13 05b6 e402 | | Load 0x2,0x2 05b7 0217 | | Execute Heap_Access,All_Reference 05b8 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 05b9 e406 | | Load 0x2,0x6 05ba 01d4 | | Execute Vector,Structure_Write 05bb 00d8 | | Load_Top At_Offset_0 05bc e408 | | Load 0x2,0x8 05bd 01d5 | | Execute Vector,Field_Reference 05be 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 05bf e407 | | Load 0x2,0x7 05c0 01d4 | | Execute Vector,Structure_Write 05c1 e406 | | Load 0x2,0x6 05c2 e407 | | Load 0x2,0x7 05c3 01de | | Execute Vector,Not_Equal 05c4 6832 |h2 | Jump_Zero 0x5f7 05c5 00cf | | Action Mark_Auxiliary 05c6 4805 |H | Short_Literal 0x5 05c7 4802 |H | Short_Literal 0x2 05c8 0007 | | Action Break_Optional 05c9 00d8 | | Load_Top At_Offset_0 05ca e406 | | Load 0x2,0x6 05cb 01d7 | | Execute Vector,Field_Read 05cc 6810 |h | Jump_Zero 0x5dd 05cd 00d8 | | Load_Top At_Offset_0 05ce e407 | | Load 0x2,0x7 05cf 01d7 | | Execute Vector,Field_Read 05d0 700c |p | Jump_Nonzero 0x5dd 05d1 00d8 | | Load_Top At_Offset_0 05d2 e405 | | Load 0x2,0x5 05d3 0217 | | Execute Heap_Access,All_Reference 05d4 3405 |4 | Execute Record,Field_Reference,Field_Number 0x5 05d5 01d7 | | Execute Vector,Field_Read 05d6 0aff | | Execute_Immediate Plus,-0x1 05d7 00d9 | | Load_Top At_Offset_1 05d8 e405 | | Load 0x2,0x5 05d9 0217 | | Execute Heap_Access,All_Reference 05da 3405 |4 | Execute Record,Field_Reference,Field_Number 0x5 05db 01d6 | | Execute Vector,Field_Write 05dc 7813 |x | Jump 0x5f0 05dd 00d8 | | Load_Top At_Offset_0 05de e407 | | Load 0x2,0x7 05df 01d7 | | Execute Vector,Field_Read 05e0 680f |h | Jump_Zero 0x5f0 05e1 00d8 | | Load_Top At_Offset_0 05e2 e406 | | Load 0x2,0x6 05e3 01d7 | | Execute Vector,Field_Read 05e4 700b |p | Jump_Nonzero 0x5f0 05e5 00d8 | | Load_Top At_Offset_0 05e6 e405 | | Load 0x2,0x5 05e7 0217 | | Execute Heap_Access,All_Reference 05e8 3405 |4 | Execute Record,Field_Reference,Field_Number 0x5 05e9 01d7 | | Execute Vector,Field_Read 05ea 0a01 | | Execute_Immediate Plus,0x1 05eb 00d9 | | Load_Top At_Offset_1 05ec e405 | | Load 0x2,0x5 05ed 0217 | | Execute Heap_Access,All_Reference 05ee 3405 |4 | Execute Record,Field_Reference,Field_Number 0x5 05ef 01d6 | | Execute Vector,Field_Write 05f0 00c8 | | Action Pop_Auxiliary_Range 05f1 3fd7 |? | Loop_Increasing 0x5c9 05f2 00ce | | Action Pop_Auxiliary 05f3 e407 | | Load 0x2,0x7 05f4 e402 | | Load 0x2,0x2 05f5 0217 | | Execute Heap_Access,All_Reference 05f6 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 05f7 e402 | | Load 0x2,0x2 05f8 a404 | | Store_Unchecked 0x2,0x4 05f9 e402 | | Load 0x2,0x2 05fa 0217 | | Execute Heap_Access,All_Reference 05fb 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 05fc a402 | | Store_Unchecked 0x2,0x2 05fd 00c8 | | Action Pop_Auxiliary_Range 05fe 3f52 |?R | Loop_Increasing 0x551 05ff 00c9 | | Action Pop_Auxiliary_Loop 0600 780d |x | Jump 0x60e 0601 e402 | | Load 0x2,0x2 0602 0217 | | Execute Heap_Access,All_Reference 0603 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0604 a403 | | Store_Unchecked 0x2,0x3 0605 e402 | | Load 0x2,0x2 0606 e404 | | Load 0x2,0x4 0607 e5fe | | Load 0x2,-0x2 0608 8255 | U | Call 0x1,0x55 0609 c404 | | Store 0x2,0x4 060a c402 | | Store 0x2,0x2 060b e403 | | Load 0x2,0x3 060c a402 | | Store_Unchecked 0x2,0x2 060d 00c9 | | Action Pop_Auxiliary_Loop 060e e402 | | Load 0x2,0x2 060f 77f1 |w | Jump_Nonzero 0x601 0610 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0611 0000 0000 | | .BLANK 0000[0x7] 0618 ; -------------------------------------------------------------------------------------- 0618 ; SUBPROGRAM 0618 ; -------------------------------------------------------------------------------------- 0618 061b | | .CONST 0x061b ; Address of begin 0619 0004 | | .CONST 0x0004 ; Address of exception handler 061a 0001 | | .CONST 0x0001 ; Number of locals 061b BODY_0618: 061b INIT_0618: 061b 00da | | Load_Top At_Offset_2 061c 0217 | | Execute Heap_Access,All_Reference 061d 341a |4 | Execute Record,Field_Reference,Field_Number 0x1a 061e 0335 | 5 | Declare_Variable Array,Duplicate 061f 00cd | | Action Spare6_Action 0620 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 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 00db | | Load_Top At_Offset_3 062c 00db | | Load_Top At_Offset_3 062d 0217 | | Execute Heap_Access,All_Reference 062e 381a |8 | Execute Record,Field_Write,Field_Number 0x1a 062f 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0630 ; -------------------------------------------------------------------------------------- 0630 ; SUBPROGRAM 0630 ; -------------------------------------------------------------------------------------- 0630 063e | > | .CONST 0x063e ; Address of begin 0631 0004 | | .CONST 0x0004 ; Address of exception handler 0632 0004 | | .CONST 0x0004 ; Number of locals 0633 INIT_0630: 0633 e217 | | Load 0x1,0x17 0634 0337 | 7 | Declare_Variable Array 0635 e5fe | | Load 0x2,-0x2 0636 00d9 | | Load_Top At_Offset_1 0637 01d4 | | Execute Vector,Structure_Write 0638 00db | | Load_Top At_Offset_3 0639 0217 | | Execute Heap_Access,All_Reference 063a 3c19 |< | Execute Record,Field_Read,Field_Number 0x19 063b 0007 | | Action Break_Optional 063c 00e3 | | Load_Encached Natural_Cache 063d 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 063e BODY_0630: 063e e5fe | | Load 0x2,-0x2 063f e22f | / | Load 0x1,0x2f 0640 01df | | Execute Vector,Equal 0641 6805 |h | Jump_Zero 0x647 0642 e5ff | | Load 0x2,-0x1 0643 0217 | | Execute Heap_Access,All_Reference 0644 341a |4 | Execute Record,Field_Reference,Field_Number 0x1a 0645 00db | | Load_Top At_Offset_3 0646 01d4 | | Execute Vector,Structure_Write 0647 e5fe | | Load 0x2,-0x2 0648 e218 | | Load 0x1,0x18 0649 01df | | Execute Vector,Equal 064a 6804 |h | Jump_Zero 0x64f 064b e5ff | | Load 0x2,-0x1 064c 0217 | | Execute Heap_Access,All_Reference 064d 3c18 |< | Execute Record,Field_Read,Field_Number 0x18 064e 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 064f 00cf | | Action Mark_Auxiliary 0650 7810 |x | Jump 0x661 0651 00da | | Load_Top At_Offset_2 0652 0217 | | Execute Heap_Access,All_Reference 0653 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 0654 e402 | | Load 0x2,0x2 0655 01d3 | | Execute Vector,And 0656 e234 | 4 | Load 0x1,0x34 0657 01de | | Execute Vector,Not_Equal 0658 6803 |h | Jump_Zero 0x65c 0659 00d9 | | Load_Top At_Offset_1 065a 0a01 | | Execute_Immediate Plus,0x1 065b 005a | Z | Store_Top Discrete,At_Offset_2 065c 00da | | Load_Top At_Offset_2 065d 0217 | | Execute Heap_Access,All_Reference 065e 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 065f 0033 | 3 | Store_Top Heap_Access,At_Offset_3 0660 00c9 | | Action Pop_Auxiliary_Loop 0661 00da | | Load_Top At_Offset_2 0662 77ee |w | Jump_Nonzero 0x651 0663 00ce | | Action Pop_Auxiliary 0664 00d8 | | Load_Top At_Offset_0 0665 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0666 0000 0000 | | .XXX[0x2] 0668 ; -------------------------------------------------------------------------------------- 0668 ; SUBPROGRAM 0668 ; -------------------------------------------------------------------------------------- 0668 067d | } | .CONST 0x067d ; Address of begin 0669 0004 | | .CONST 0x0004 ; Address of exception handler 066a 0005 | | .CONST 0x0005 ; Number of locals 066b INIT_0668: 066b e217 | | Load 0x1,0x17 066c 0337 | 7 | Declare_Variable Array 066d e5fe | | Load 0x2,-0x2 066e 00d9 | | Load_Top At_Offset_1 066f 01d4 | | Execute Vector,Structure_Write 0670 00db | | Load_Top At_Offset_3 0671 0217 | | Execute Heap_Access,All_Reference 0672 3c19 |< | Execute Record,Field_Read,Field_Number 0x19 0673 0007 | | Action Break_Optional 0674 00e3 | | Load_Encached Natural_Cache 0675 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0676 4801 |H | Short_Literal 0x1 0677 e5ff | | Load 0x2,-0x1 0678 0217 | | Execute Heap_Access,All_Reference 0679 3c18 |< | Execute Record,Field_Read,Field_Number 0x18 067a e21e | | Load 0x1,0x1e 067b 035b | [ | Declare_Type Array,Constrained 067c 0337 | 7 | Declare_Variable Array 067d BODY_0668: 067d e5fe | | Load 0x2,-0x2 067e e22f | / | Load 0x1,0x2f 067f 01df | | Execute Vector,Equal 0680 6805 |h | Jump_Zero 0x686 0681 e5ff | | Load 0x2,-0x1 0682 0217 | | Execute Heap_Access,All_Reference 0683 341a |4 | Execute Record,Field_Reference,Field_Number 0x1a 0684 e402 | | Load 0x2,0x2 0685 01d4 | | Execute Vector,Structure_Write 0686 00cf | | Action Mark_Auxiliary 0687 7816 |x | Jump 0x69e 0688 00db | | Load_Top At_Offset_3 0689 0217 | | Execute Heap_Access,All_Reference 068a 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 068b e402 | | Load 0x2,0x2 068c 01d3 | | Execute Vector,And 068d e234 | 4 | Load 0x1,0x34 068e 01de | | Execute Vector,Not_Equal 068f 6809 |h | Jump_Zero 0x699 0690 00da | | Load_Top At_Offset_2 0691 0a01 | | Execute_Immediate Plus,0x1 0692 005b | [ | Store_Top Discrete,At_Offset_3 0693 00db | | Load_Top At_Offset_3 0694 0217 | | Execute Heap_Access,All_Reference 0695 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0696 00db | | Load_Top At_Offset_3 0697 00db | | Load_Top At_Offset_3 0698 01d6 | | Execute Vector,Field_Write 0699 00db | | Load_Top At_Offset_3 069a 0217 | | Execute Heap_Access,All_Reference 069b 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 069c a403 | | Store_Unchecked 0x2,0x3 069d 00c9 | | Action Pop_Auxiliary_Loop 069e 00db | | Load_Top At_Offset_3 069f 77e8 |w | Jump_Nonzero 0x688 06a0 00ce | | Action Pop_Auxiliary 06a1 00d9 | | Load_Top At_Offset_1 06a2 e21f | | Load 0x1,0x1f 06a3 1c08 | | Execute_Immediate Run_Utility,0x8 06a4 4800 |H | Short_Literal 0x0 06a5 00d9 | | Load_Top At_Offset_1 06a6 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 06a7 4801 |H | Short_Literal 0x1 06a8 00db | | Load_Top At_Offset_3 06a9 00db | | Load_Top At_Offset_3 06aa 01cf | | Execute Vector,Slice_Read 06ab 00d9 | | Load_Top At_Offset_1 06ac 00d8 | | Load_Top At_Offset_0 06ad 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 06ae 00da | | Load_Top At_Offset_2 06af 01da | | Execute Vector,Bounds 06b0 00da | | Load_Top At_Offset_2 06b1 01da | | Execute Vector,Bounds 06b2 00da | | Load_Top At_Offset_2 06b3 027f | | Execute Discrete,Equal 06b4 7001 |p | Jump_Nonzero 0x6b6 06b5 08e0 | | Execute_Immediate Raise,0xe0 06b6 00cd | | Action Spare6_Action 06b7 027f | | Execute Discrete,Equal 06b8 7001 |p | Jump_Nonzero 0x6ba 06b9 08e0 | | Execute_Immediate Raise,0xe0 06ba 00d2 | | Pop_Control Pop_Count_2 06bb 00d9 | | Load_Top At_Offset_1 06bc 2903 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x3 06bd 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 06be 0000 0000 | | .XXX[0x2] 06c0 ; -------------------------------------------------------------------------------------- 06c0 ; SUBPROGRAM 06c0 ; -------------------------------------------------------------------------------------- 06c0 06c6 | | .CONST 0x06c6 ; Address of begin 06c1 0004 | | .CONST 0x0004 ; Address of exception handler 06c2 0002 | | .CONST 0x0002 ; Number of locals 06c3 INIT_06c0: 06c3 00db | | Load_Top At_Offset_3 06c4 0217 | | Execute Heap_Access,All_Reference 06c5 3c19 |< | Execute Record,Field_Read,Field_Number 0x19 06c6 BODY_06c0: 06c6 00cf | | Action Mark_Auxiliary 06c7 7811 |x | Jump 0x6d9 06c8 00d9 | | Load_Top At_Offset_1 06c9 0217 | | Execute Heap_Access,All_Reference 06ca 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 06cb e5ff | | Load 0x2,-0x1 06cc 021f | | Execute Heap_Access,Equal 06cd 6806 |h | Jump_Zero 0x6d4 06ce 00d9 | | Load_Top At_Offset_1 06cf 0217 | | Execute Heap_Access,All_Reference 06d0 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 06d1 0335 | 5 | Declare_Variable Array,Duplicate 06d2 00cd | | Action Spare6_Action 06d3 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 06d4 00d9 | | Load_Top At_Offset_1 06d5 0217 | | Execute Heap_Access,All_Reference 06d6 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 06d7 0032 | 2 | Store_Top Heap_Access,At_Offset_2 06d8 00c9 | | Action Pop_Auxiliary_Loop 06d9 00d9 | | Load_Top At_Offset_1 06da 77ed |w | Jump_Nonzero 0x6c8 06db 00ce | | Action Pop_Auxiliary 06dc e234 | 4 | Load 0x1,0x34 06dd 0335 | 5 | Declare_Variable Array,Duplicate 06de 00cd | | Action Spare6_Action 06df 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 06e0 ; -------------------------------------------------------------------------------------- 06e0 ; SUBPROGRAM 06e0 ; -------------------------------------------------------------------------------------- 06e0 06e3 | | .CONST 0x06e3 ; Address of begin 06e1 0004 | | .CONST 0x0004 ; Address of exception handler 06e2 0001 | | .CONST 0x0001 ; Number of locals 06e3 BODY_06e0: 06e3 INIT_06e0: 06e3 00da | | Load_Top At_Offset_2 06e4 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 06e5 e004 | | Load 0x0,0x4 06e6 1813 | | Execute Package,Field_Execute,Field_Number 0x13 06e7 e5fe | | Load 0x2,-0x2 06e8 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 06e9 e004 | | Load 0x0,0x4 06ea 1813 | | Execute Package,Field_Execute,Field_Number 0x13 06eb 027c | | | Execute Discrete,Less 06ec 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 06ed 0000 0000 | | .XXX[0x3] 06ef 0000 | | 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 0217 | | Execute Heap_Access,All_Reference 06f5 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 06f6 e004 | | Load 0x0,0x4 06f7 1813 | | Execute Package,Field_Execute,Field_Number 0x13 06f8 e5fe | | Load 0x2,-0x2 06f9 0217 | | Execute Heap_Access,All_Reference 06fa 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 06fb e004 | | Load 0x0,0x4 06fc 1813 | | Execute Package,Field_Execute,Field_Number 0x13 06fd 027b | { | Execute Discrete,Greater_Equal 06fe 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 06ff 0000 | | .XXX[0x1] 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 340d |4 | Execute Record,Field_Reference,Field_Number 0xd 0706 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0707 e004 | | Load 0x0,0x4 0708 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0709 e5fe | | Load 0x2,-0x2 070a 0217 | | Execute Heap_Access,All_Reference 070b 340d |4 | Execute Record,Field_Reference,Field_Number 0xd 070c 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 070d e004 | | Load 0x0,0x4 070e 1813 | | Execute Package,Field_Execute,Field_Number 0x13 070f 027b | { | Execute Discrete,Greater_Equal 0710 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0711 0000 0000 | | .BLANK 0000[0x7] 0718 ; -------------------------------------------------------------------------------------- 0718 ; SUBPROGRAM 0718 ; -------------------------------------------------------------------------------------- 0718 071b | | .CONST 0x071b ; Address of begin 0719 0004 | | .CONST 0x0004 ; Address of exception handler 071a 0001 | | .CONST 0x0001 ; Number of locals 071b BODY_0718: 071b INIT_0718: 071b 00da | | Load_Top At_Offset_2 071c e004 | | Load 0x0,0x4 071d 1813 | | Execute Package,Field_Execute,Field_Number 0x13 071e e5fe | | Load 0x2,-0x2 071f e004 | | Load 0x0,0x4 0720 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0721 027d | } | Execute Discrete,Greater 0722 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0723 0000 0000 | | .BLANK 0000[0x5] 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 00db | | Load_Top At_Offset_3 072c e015 | | Load 0x0,0x15 072d 1b17 | | Execute Package,Field_Read,Field_Number 0x17 072e 00d9 | | Load_Top At_Offset_1 072f 00d0 | | Action Swap_Control 0730 0260 | ` | Execute Discrete,In_Type 0731 7001 |p | Jump_Nonzero 0x733 0732 0801 | | Execute_Immediate Raise,0x1 0733 00db | | Load_Top At_Offset_3 0734 e016 | | Load 0x0,0x16 0735 e017 | | Load 0x0,0x17 0736 a018 | | Store_Unchecked 0x0,0x18 0737 e019 | | Load 0x0,0x19 0738 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0739 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 073a 0000 0000 | | .BLANK 0000[0x6] 0740 ; -------------------------------------------------------------------------------------- 0740 ; SUBPROGRAM 0740 ; -------------------------------------------------------------------------------------- 0740 0753 | S | .CONST 0x0753 ; Address of begin 0741 0004 | | .CONST 0x0004 ; Address of exception handler 0742 0005 | | .CONST 0x0005 ; Number of locals 0743 INIT_0740: 0743 00da | | Load_Top At_Offset_2 0744 0217 | | Execute Heap_Access,All_Reference 0745 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0746 0007 | | Action Break_Optional 0747 e004 | | Load 0x0,0x4 0748 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0749 02c7 | | Declare_Variable Any 074a e5ff | | Load 0x2,-0x1 074b 0217 | | Execute Heap_Access,All_Reference 074c 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 074d a403 | | Store_Unchecked 0x2,0x3 074e 00d9 | | Load_Top At_Offset_1 074f 0217 | | Execute Heap_Access,All_Reference 0750 3c05 |< | Execute Record,Field_Read,Field_Number 0x5 0751 029f 0b13 | | Declare_Subprogram INIT_0b10,For_Call 0753 BODY_0740: 0753 e5ff | | Load 0x2,-0x1 0754 0217 | | Execute Heap_Access,All_Reference 0755 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0756 7030 |p0 | Jump_Nonzero 0x787 0757 e012 | | Load 0x0,0x12 0758 6808 |h | Jump_Zero 0x761 0759 0092 0b79 | y| Action Push_String_Extended,0xb79 ; "Deleting link object " 075b 00db | | Load_Top At_Offset_3 075c e004 | | Load 0x0,0x4 075d 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 075e 183e | > | Execute Package,Field_Execute,Field_Number 0x3e 075f 01cc | | Execute Vector,Catenate 0760 8013 | | Call 0x0,0x13 0761 8405 | | Call 0x2,0x5 0762 00d9 | | Load_Top At_Offset_1 0763 e5ff | | Load 0x2,-0x1 0764 021f | | Execute Heap_Access,Equal 0765 6807 |h | Jump_Zero 0x76d 0766 e5ff | | Load 0x2,-0x1 0767 0217 | | Execute Heap_Access,All_Reference 0768 3c08 |< | Execute Record,Field_Read,Field_Number 0x8 0769 e402 | | Load 0x2,0x2 076a 0217 | | Execute Heap_Access,All_Reference 076b 3805 |8 | Execute Record,Field_Write,Field_Number 0x5 076c 7816 |x | Jump 0x783 076d 00cf | | Action Mark_Auxiliary 076e 780b |x | Jump 0x77a 076f 00da | | Load_Top At_Offset_2 0770 0217 | | Execute Heap_Access,All_Reference 0771 3c08 |< | Execute Record,Field_Read,Field_Number 0x8 0772 e5ff | | Load 0x2,-0x1 0773 021f | | Execute Heap_Access,Equal 0774 7007 |p | Jump_Nonzero 0x77c 0775 00da | | Load_Top At_Offset_2 0776 0217 | | Execute Heap_Access,All_Reference 0777 3c08 |< | Execute Record,Field_Read,Field_Number 0x8 0778 0033 | 3 | Store_Top Heap_Access,At_Offset_3 0779 00c9 | | Action Pop_Auxiliary_Loop 077a 00da | | Load_Top At_Offset_2 077b 77f3 |w | Jump_Nonzero 0x76f 077c 00ce | | Action Pop_Auxiliary 077d e5ff | | Load 0x2,-0x1 077e 0217 | | Execute Heap_Access,All_Reference 077f 3c08 |< | Execute Record,Field_Read,Field_Number 0x8 0780 00da | | Load_Top At_Offset_2 0781 0217 | | Execute Heap_Access,All_Reference 0782 3808 |8 | Execute Record,Field_Write,Field_Number 0x8 0783 e5ff | | Load 0x2,-0x1 0784 e011 | | Load 0x0,0x11 0785 1833 | 3 | Execute Package,Field_Execute,Field_Number 0x33 0786 c5ff | | Store 0x2,-0x1 0787 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0788 ; -------------------------------------------------------------------------------------- 0788 ; SUBPROGRAM 0788 ; -------------------------------------------------------------------------------------- 0788 0795 | | .CONST 0x0795 ; Address of begin 0789 0004 | | .CONST 0x0004 ; Address of exception handler 078a 0004 | | .CONST 0x0004 ; Number of locals 078b INIT_0788: 078b 00da | | Load_Top At_Offset_2 078c e011 | | Load 0x0,0x11 078d 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 078e 0216 | | Execute Heap_Access,Convert 078f e011 | | Load 0x0,0x11 0790 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 0791 e5fd | | Load 0x2,-0x3 0792 0217 | | Execute Heap_Access,All_Reference 0793 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 0794 0007 | | Action Break_Optional 0795 BODY_0788: 0795 e012 | | Load 0x0,0x12 0796 6812 |h | Jump_Zero 0x7a9 0797 0092 0b7a | z| Action Push_String_Extended,0xb7a ; "Adding client " 0799 e5ff | | Load 0x2,-0x1 079a 0217 | | Execute Heap_Access,All_Reference 079b 3c0b |< | Execute Record,Field_Read,Field_Number 0xb 079c e00e | | Load 0x0,0xe 079d 1812 | | Execute Package,Field_Execute,Field_Number 0x12 079e 01cc | | Execute Vector,Catenate 079f 0092 0b7b | {| Action Push_String_Extended,0xb7b ; " to link " 07a1 01cc | | Execute Vector,Catenate 07a2 e5fd | | Load 0x2,-0x3 07a3 0217 | | Execute Heap_Access,All_Reference 07a4 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 07a5 e00e | | Load 0x0,0xe 07a6 1812 | | Execute Package,Field_Execute,Field_Number 0x12 07a7 01cc | | Execute Vector,Catenate 07a8 8013 | | Call 0x0,0x13 07a9 00cf | | Action Mark_Auxiliary 07aa 780d |x | Jump 0x7b8 07ab 00db | | Load_Top At_Offset_3 07ac 00da | | Load_Top At_Offset_2 07ad 0217 | | Execute Heap_Access,All_Reference 07ae 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 07af 823e | > | Call 0x1,0x3e 07b0 700d |p | Jump_Nonzero 0x7be 07b1 00d9 | | Load_Top At_Offset_1 07b2 0033 | 3 | Store_Top Heap_Access,At_Offset_3 07b3 00d9 | | Load_Top At_Offset_1 07b4 0217 | | Execute Heap_Access,All_Reference 07b5 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 07b6 0032 | 2 | Store_Top Heap_Access,At_Offset_2 07b7 00c9 | | Action Pop_Auxiliary_Loop 07b8 00d9 | | Load_Top At_Offset_1 07b9 6804 |h | Jump_Zero 0x7be 07ba 00d9 | | Load_Top At_Offset_1 07bb 0217 | | Execute Heap_Access,All_Reference 07bc 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 07bd 77ed |w | Jump_Nonzero 0x7ab 07be 00ce | | Action Pop_Auxiliary 07bf 00d8 | | Load_Top At_Offset_0 07c0 6806 |h | Jump_Zero 0x7c7 07c1 00d8 | | Load_Top At_Offset_0 07c2 0217 | | Execute Heap_Access,All_Reference 07c3 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 07c4 00db | | Load_Top At_Offset_3 07c5 021f | | Execute Heap_Access,Equal 07c6 702c |p, | Jump_Nonzero 0x7f3 07c7 e5ff | | Load 0x2,-0x1 07c8 e001 | | Load 0x0,0x1 07c9 1b16 | | Execute Package,Field_Read,Field_Number 0x16 07ca 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f 07cb e011 | | Load 0x0,0x11 07cc 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 07cd 0031 | 1 | Store_Top Heap_Access,At_Offset_1 07ce e5ff | | Load 0x2,-0x1 07cf e011 | | Load 0x0,0x11 07d0 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 07d1 0216 | | Execute Heap_Access,Convert 07d2 00d9 | | Load_Top At_Offset_1 07d3 0217 | | Execute Heap_Access,All_Reference 07d4 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 07d5 00d9 | | Load_Top At_Offset_1 07d6 700b |p | Jump_Nonzero 0x7e2 07d7 e5fd | | Load 0x2,-0x3 07d8 0217 | | Execute Heap_Access,All_Reference 07d9 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 07da 00d9 | | Load_Top At_Offset_1 07db 0217 | | Execute Heap_Access,All_Reference 07dc 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 07dd 00d8 | | Load_Top At_Offset_0 07de e5fd | | Load 0x2,-0x3 07df 0217 | | Execute Heap_Access,All_Reference 07e0 3807 |8 | Execute Record,Field_Write,Field_Number 0x7 07e1 780a |x | Jump 0x7ec 07e2 00d9 | | Load_Top At_Offset_1 07e3 0217 | | Execute Heap_Access,All_Reference 07e4 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 07e5 00d9 | | Load_Top At_Offset_1 07e6 0217 | | Execute Heap_Access,All_Reference 07e7 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 07e8 00d8 | | Load_Top At_Offset_0 07e9 00da | | Load_Top At_Offset_2 07ea 0217 | | Execute Heap_Access,All_Reference 07eb 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 07ec e5fd | | Load 0x2,-0x3 07ed 0217 | | Execute Heap_Access,All_Reference 07ee 3c06 |< | Execute Record,Field_Read,Field_Number 0x6 07ef 0a01 | | Execute_Immediate Plus,0x1 07f0 e5fd | | Load 0x2,-0x3 07f1 0217 | | Execute Heap_Access,All_Reference 07f2 3806 |8 | Execute Record,Field_Write,Field_Number 0x6 07f3 00cf | | Action Mark_Auxiliary 07f4 4805 |H | Short_Literal 0x5 07f5 4802 |H | Short_Literal 0x2 07f6 0007 | | Action Break_Optional 07f7 00d8 | | Load_Top At_Offset_0 07f8 e5fe | | Load 0x2,-0x2 07f9 01d7 | | Execute Vector,Field_Read 07fa 680b |h | Jump_Zero 0x806 07fb 00d8 | | Load_Top At_Offset_0 07fc e5fd | | Load 0x2,-0x3 07fd 0217 | | Execute Heap_Access,All_Reference 07fe 3405 |4 | Execute Record,Field_Reference,Field_Number 0x5 07ff 01d7 | | Execute Vector,Field_Read 0800 0a01 | | Execute_Immediate Plus,0x1 0801 00d9 | | Load_Top At_Offset_1 0802 e5fd | | Load 0x2,-0x3 0803 0217 | | Execute Heap_Access,All_Reference 0804 3405 |4 | Execute Record,Field_Reference,Field_Number 0x5 0805 01d6 | | Execute Vector,Field_Write 0806 00c8 | | Action Pop_Auxiliary_Range 0807 3fef |? | Loop_Increasing 0x7f7 0808 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0809 0000 0000 | | .BLANK 0000[0x7] 0810 ; -------------------------------------------------------------------------------------- 0810 ; SUBPROGRAM 0810 ; -------------------------------------------------------------------------------------- 0810 0813 | | .CONST 0x0813 ; Address of begin 0811 0004 | | .CONST 0x0004 ; Address of exception handler 0812 0001 | | .CONST 0x0001 ; Number of locals 0813 BODY_0810: 0813 INIT_0810: 0813 00cf | | Action Mark_Auxiliary 0814 4805 |H | Short_Literal 0x5 0815 4802 |H | Short_Literal 0x2 0816 0007 | | Action Break_Optional 0817 00d8 | | Load_Top At_Offset_0 0818 e5ff | | Load 0x2,-0x1 0819 01d7 | | Execute Vector,Field_Read 081a 680b |h | Jump_Zero 0x826 081b 00d8 | | Load_Top At_Offset_0 081c e5fe | | Load 0x2,-0x2 081d 0217 | | Execute Heap_Access,All_Reference 081e 3405 |4 | Execute Record,Field_Reference,Field_Number 0x5 081f 01d7 | | Execute Vector,Field_Read 0820 0aff | | Execute_Immediate Plus,-0x1 0821 00d9 | | Load_Top At_Offset_1 0822 e5fe | | Load 0x2,-0x2 0823 0217 | | Execute Heap_Access,All_Reference 0824 3405 |4 | Execute Record,Field_Reference,Field_Number 0x5 0825 01d6 | | Execute Vector,Field_Write 0826 00c8 | | Action Pop_Auxiliary_Range 0827 3fef |? | Loop_Increasing 0x817 0828 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0829 0000 0000 | | .BLANK 0000[0x7] 0830 ; -------------------------------------------------------------------------------------- 0830 ; SUBPROGRAM 0830 ; -------------------------------------------------------------------------------------- 0830 083d | = | .CONST 0x083d ; Address of begin 0831 0004 | | .CONST 0x0004 ; Address of exception handler 0832 0004 | | .CONST 0x0004 ; Number of locals 0833 INIT_0830: 0833 00da | | Load_Top At_Offset_2 0834 e011 | | Load 0x0,0x11 0835 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 0836 0216 | | Execute Heap_Access,Convert 0837 e011 | | Load 0x0,0x11 0838 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 0839 e5fd | | Load 0x2,-0x3 083a 0217 | | Execute Heap_Access,All_Reference 083b 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 083c 0007 | | Action Break_Optional 083d BODY_0830: 083d e012 | | Load 0x0,0x12 083e 6812 |h | Jump_Zero 0x851 083f 0092 0b7c | || Action Push_String_Extended,0xb7c ; "Deleting client " 0841 e5ff | | Load 0x2,-0x1 0842 0217 | | Execute Heap_Access,All_Reference 0843 3c0b |< | Execute Record,Field_Read,Field_Number 0xb 0844 e00e | | Load 0x0,0xe 0845 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0846 01cc | | Execute Vector,Catenate 0847 0092 0b7d | }| Action Push_String_Extended,0xb7d ; " from link " 0849 01cc | | Execute Vector,Catenate 084a e5fd | | Load 0x2,-0x3 084b 0217 | | Execute Heap_Access,All_Reference 084c 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 084d e00e | | Load 0x0,0xe 084e 1812 | | Execute Package,Field_Execute,Field_Number 0x12 084f 01cc | | Execute Vector,Catenate 0850 8013 | | Call 0x0,0x13 0851 00cf | | Action Mark_Auxiliary 0852 7846 |xF | Jump 0x899 0853 00d9 | | Load_Top At_Offset_1 0854 0217 | | Execute Heap_Access,All_Reference 0855 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0856 e402 | | Load 0x2,0x2 0857 021f | | Execute Heap_Access,Equal 0858 7007 |p | Jump_Nonzero 0x860 0859 00d9 | | Load_Top At_Offset_1 085a 0033 | 3 | Store_Top Heap_Access,At_Offset_3 085b 00d9 | | Load_Top At_Offset_1 085c 0217 | | Execute Heap_Access,All_Reference 085d 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 085e 0032 | 2 | Store_Top Heap_Access,At_Offset_2 085f 7838 |x8 | Jump 0x898 0860 00da | | Load_Top At_Offset_2 0861 7007 |p | Jump_Nonzero 0x869 0862 00d9 | | Load_Top At_Offset_1 0863 0217 | | Execute Heap_Access,All_Reference 0864 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0865 e5fd | | Load 0x2,-0x3 0866 0217 | | Execute Heap_Access,All_Reference 0867 3807 |8 | Execute Record,Field_Write,Field_Number 0x7 0868 7806 |x | Jump 0x86f 0869 00d9 | | Load_Top At_Offset_1 086a 0217 | | Execute Heap_Access,All_Reference 086b 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 086c 00db | | Load_Top At_Offset_3 086d 0217 | | Execute Heap_Access,All_Reference 086e 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 086f 00d9 | | Load_Top At_Offset_1 0870 e011 | | Load 0x0,0x11 0871 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 0872 0032 | 2 | Store_Top Heap_Access,At_Offset_2 0873 00cf | | Action Mark_Auxiliary 0874 4805 |H | Short_Literal 0x5 0875 4802 |H | Short_Literal 0x2 0876 0007 | | Action Break_Optional 0877 00d8 | | Load_Top At_Offset_0 0878 e5fe | | Load 0x2,-0x2 0879 01d7 | | Execute Vector,Field_Read 087a 680b |h | Jump_Zero 0x886 087b 00d8 | | Load_Top At_Offset_0 087c e5fd | | Load 0x2,-0x3 087d 0217 | | Execute Heap_Access,All_Reference 087e 3405 |4 | Execute Record,Field_Reference,Field_Number 0x5 087f 01d7 | | Execute Vector,Field_Read 0880 0aff | | Execute_Immediate Plus,-0x1 0881 00d9 | | Load_Top At_Offset_1 0882 e5fd | | Load 0x2,-0x3 0883 0217 | | Execute Heap_Access,All_Reference 0884 3405 |4 | Execute Record,Field_Reference,Field_Number 0x5 0885 01d6 | | Execute Vector,Field_Write 0886 00c8 | | Action Pop_Auxiliary_Range 0887 3fef |? | Loop_Increasing 0x877 0888 00ce | | Action Pop_Auxiliary 0889 e5fd | | Load 0x2,-0x3 088a 0217 | | Execute Heap_Access,All_Reference 088b 3c06 |< | Execute Record,Field_Read,Field_Number 0x6 088c 0aff | | Execute_Immediate Plus,-0x1 088d e5fd | | Load 0x2,-0x3 088e 0217 | | Execute Heap_Access,All_Reference 088f 3806 |8 | Execute Record,Field_Write,Field_Number 0x6 0890 e5fd | | Load 0x2,-0x3 0891 0217 | | Execute Heap_Access,All_Reference 0892 3c06 |< | Execute Record,Field_Read,Field_Number 0x6 0893 7003 |p | Jump_Nonzero 0x897 0894 e5fd | | Load 0x2,-0x3 0895 824f | O | Call 0x1,0x4f 0896 c5fd | | Store 0x2,-0x3 0897 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0898 00c9 | | Action Pop_Auxiliary_Loop 0899 00d9 | | Load_Top At_Offset_1 089a 77b8 |w | Jump_Nonzero 0x853 089b 4503 |E | Exit_Suprogram New_Top_Offset 0x3 089c 0000 0000 | | .BLANK 0000[0x4] 08a0 ; -------------------------------------------------------------------------------------- 08a0 ; SUBPROGRAM 08a0 ; -------------------------------------------------------------------------------------- 08a0 08a9 | | .CONST 0x08a9 ; Address of begin 08a1 0004 | | .CONST 0x0004 ; Address of exception handler 08a2 0002 | | .CONST 0x0002 ; Number of locals 08a3 INIT_08a0: 08a3 00da | | Load_Top At_Offset_2 08a4 e001 | | Load 0x0,0x1 08a5 1b16 | | Execute Package,Field_Read,Field_Number 0x16 08a6 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f 08a7 e011 | | Load 0x0,0x11 08a8 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 08a9 BODY_08a0: 08a9 e012 | | Load 0x0,0x12 08aa 6812 |h | Jump_Zero 0x8bd 08ab 0092 0b7e | ~| Action Push_String_Extended,0xb7e ; "Adding supplier " 08ad e5fe | | Load 0x2,-0x2 08ae 0217 | | Execute Heap_Access,All_Reference 08af 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 08b0 e00e | | Load 0x0,0xe 08b1 1812 | | Execute Package,Field_Execute,Field_Number 0x12 08b2 01cc | | Execute Vector,Catenate 08b3 0092 0b70 | p| Action Push_String_Extended,0xb70 ; " for " 08b5 01cc | | Execute Vector,Catenate 08b6 e5ff | | Load 0x2,-0x1 08b7 0217 | | Execute Heap_Access,All_Reference 08b8 3c0b |< | Execute Record,Field_Read,Field_Number 0xb 08b9 e00e | | Load 0x0,0xe 08ba 1812 | | Execute Package,Field_Execute,Field_Number 0x12 08bb 01cc | | Execute Vector,Catenate 08bc 8013 | | Call 0x0,0x13 08bd e5fe | | Load 0x2,-0x2 08be 00d9 | | Load_Top At_Offset_1 08bf 0217 | | Execute Heap_Access,All_Reference 08c0 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 08c1 e5fd | | Load 0x2,-0x3 08c2 00d9 | | Load_Top At_Offset_1 08c3 0217 | | Execute Heap_Access,All_Reference 08c4 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 08c5 e5fc | | Load 0x2,-0x4 08c6 00d9 | | Load_Top At_Offset_1 08c7 0217 | | Execute Heap_Access,All_Reference 08c8 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 08c9 e5fb | | Load 0x2,-0x5 08ca 7007 |p | Jump_Nonzero 0x8d2 08cb 00d8 | | Load_Top At_Offset_0 08cc e5ff | | Load 0x2,-0x1 08cd 0217 | | Execute Heap_Access,All_Reference 08ce 3819 |8 | Execute Record,Field_Write,Field_Number 0x19 08cf 00d8 | | Load_Top At_Offset_0 08d0 a5fb | | Store_Unchecked 0x2,-0x5 08d1 7808 |x | Jump 0x8da 08d2 00d8 | | Load_Top At_Offset_0 08d3 e5fb | | Load 0x2,-0x5 08d4 0217 | | Execute Heap_Access,All_Reference 08d5 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 08d6 e5fb | | Load 0x2,-0x5 08d7 0217 | | Execute Heap_Access,All_Reference 08d8 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 08d9 a5fb | | Store_Unchecked 0x2,-0x5 08da 00db | | Load_Top At_Offset_3 08db 0217 | | Execute Heap_Access,All_Reference 08dc 3c18 |< | Execute Record,Field_Read,Field_Number 0x18 08dd 0a01 | | Execute_Immediate Plus,0x1 08de e5ff | | Load 0x2,-0x1 08df 0217 | | Execute Heap_Access,All_Reference 08e0 3818 |8 | Execute Record,Field_Write,Field_Number 0x18 08e1 e5fe | | Load 0x2,-0x2 08e2 e5fd | | Load 0x2,-0x3 08e3 e5ff | | Load 0x2,-0x1 08e4 8250 | P | Call 0x1,0x50 08e5 4505 |E | Exit_Suprogram New_Top_Offset 0x5 08e6 0000 0000 | | .XXX[0x2] 08e8 ; -------------------------------------------------------------------------------------- 08e8 ; SUBPROGRAM 08e8 ; -------------------------------------------------------------------------------------- 08e8 090b | | .CONST 0x090b ; Address of begin 08e9 0004 | | .CONST 0x0004 ; Address of exception handler 08ea 0009 | | .CONST 0x0009 ; Number of locals 08eb INIT_08e8: 08eb 00db | | Load_Top At_Offset_3 08ec e001 | | Load 0x0,0x1 08ed 1b16 | | Execute Package,Field_Read,Field_Number 0x16 08ee 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f 08ef e01a | | Load 0x0,0x1a 08f0 1b0f | | Execute Package,Field_Read,Field_Number 0xf 08f1 02ff | | Declare_Variable Variant_Record 08f2 4802 |H | Short_Literal 0x2 08f3 00da | | Load_Top At_Offset_2 08f4 e5ff | | Load 0x2,-0x1 08f5 e01a | | Load 0x0,0x1a 08f6 1811 | | Execute Package,Field_Execute,Field_Number 0x11 08f7 00d9 | | Load_Top At_Offset_1 08f8 016d | m | Execute Variant_Record,Structure_Write 08f9 e011 | | Load 0x0,0x11 08fa 1b31 | 1 | Execute Package,Field_Read,Field_Number 0x31 08fb e004 | | Load 0x0,0x4 08fc 1b0f | | Execute Package,Field_Read,Field_Number 0xf 08fd 02c7 | | Declare_Variable Any 08fe 00d8 | | Load_Top At_Offset_0 08ff 1c00 | | Execute_Immediate Run_Utility,0x0 0900 e004 | | Load 0x0,0x4 0901 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0902 02c7 | | Declare_Variable Any 0903 00d8 | | Load_Top At_Offset_0 0904 1c00 | | Execute_Immediate Run_Utility,0x0 0905 e011 | | Load 0x0,0x11 0906 1b26 | & | Execute Package,Field_Read,Field_Number 0x26 0907 e00e | | Load 0x0,0xe 0908 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0909 e004 | | Load 0x0,0x4 090a 1b0d | | Execute Package,Field_Read,Field_Number 0xd 090b BODY_08e8: 090b e403 | | Load 0x2,0x3 090c 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 090d 0f02 | | Execute_Immediate Equal,0x2 090e 6804 |h | Jump_Zero 0x913 090f e403 | | Load 0x2,0x3 0910 2e03 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3 0911 a404 | | Store_Unchecked 0x2,0x4 0912 797a |yz | Jump 0xa8d 0913 e403 | | Load 0x2,0x3 0914 2e04 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4 0915 618a |a | Indirect_Literal Discrete,0xaa0,{0x00000000, 0x0000500b} 0916 027f | | Execute Discrete,Equal 0917 6819 |h | Jump_Zero 0x931 0918 e003 | | Load 0x0,0x3 0919 1b0d | | Execute Package,Field_Read,Field_Number 0xd 091a 4801 |H | Short_Literal 0x1 091b 4802 |H | Short_Literal 0x2 091c e008 | | Load 0x0,0x8 091d 1b0f | | Execute Package,Field_Read,Field_Number 0xf 091e 0334 | 4 | Declare_Variable Array,With_Constraint 091f e5ff | | Load 0x2,-0x1 0920 e008 | | Load 0x0,0x8 0921 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0922 4801 |H | Short_Literal 0x1 0923 00da | | Load_Top At_Offset_2 0924 01d6 | | Execute Vector,Field_Write 0925 e5fe | | Load 0x2,-0x2 0926 e001 | | Load 0x0,0x1 0927 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0928 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0929 4802 |H | Short_Literal 0x2 092a 00da | | Load_Top At_Offset_2 092b 01d6 | | Execute Vector,Field_Write 092c 616f |ao | Indirect_Literal Discrete,0xa9c,{0x00000000, 0x00001804} 092d e003 | | Load 0x0,0x3 092e 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 092f c5fc | | Store 0x2,-0x4 0930 795c |y\ | Jump 0xa8d 0931 e004 | | Load 0x0,0x4 0932 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0933 e405 | | Load 0x2,0x5 0934 0120 | | Execute Any,Is_Value 0935 6803 |h | Jump_Zero 0x939 0936 e004 | | Load 0x0,0x4 0937 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0938 7801 |x | Jump 0x93a 0939 e405 | | Load 0x2,0x5 093a e5ff | | Load 0x2,-0x1 093b e004 | | Load 0x0,0x4 093c 1b3d | = | Execute Package,Field_Read,Field_Number 0x3d 093d 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 093e c405 | | Store 0x2,0x5 093f 0059 | Y | Store_Top Discrete,At_Offset_1 0940 4801 |H | Short_Literal 0x1 0941 4801 |H | Short_Literal 0x1 0942 e008 | | Load 0x0,0x8 0943 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0944 0334 | 4 | Declare_Variable Array,With_Constraint 0945 e5ff | | Load 0x2,-0x1 0946 e008 | | Load 0x0,0x8 0947 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0948 4801 |H | Short_Literal 0x1 0949 00da | | Load_Top At_Offset_2 094a 01d6 | | Execute Vector,Field_Write 094b 614c |aL | Indirect_Literal Discrete,0xa98,{0x00000000, 0x00001805} 094c 00da | | Load_Top At_Offset_2 094d e003 | | Load 0x0,0x3 094e 183b | ; | Execute Package,Field_Execute,Field_Number 0x3b 094f e405 | | Load 0x2,0x5 0950 801b | | Call 0x0,0x1b 0951 681f |h | Jump_Zero 0x971 0952 e004 | | Load 0x0,0x4 0953 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0954 e406 | | Load 0x2,0x6 0955 0120 | | Execute Any,Is_Value 0956 6803 |h | Jump_Zero 0x95a 0957 e004 | | Load 0x0,0x4 0958 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0959 7801 |x | Jump 0x95b 095a e406 | | Load 0x2,0x6 095b e405 | | Load 0x2,0x5 095c e004 | | Load 0x0,0x4 095d 1b3d | = | Execute Package,Field_Read,Field_Number 0x3d 095e 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 095f c406 | | Store 0x2,0x6 0960 0059 | Y | Store_Top Discrete,At_Offset_1 0961 4801 |H | Short_Literal 0x1 0962 4801 |H | Short_Literal 0x1 0963 e008 | | Load 0x0,0x8 0964 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0965 0334 | 4 | Declare_Variable Array,With_Constraint 0966 e405 | | Load 0x2,0x5 0967 e008 | | Load 0x0,0x8 0968 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0969 4801 |H | Short_Literal 0x1 096a 00da | | Load_Top At_Offset_2 096b 01d6 | | Execute Vector,Field_Write 096c 612b |a+ | Indirect_Literal Discrete,0xa98,{0x00000000, 0x00001805} 096d 00da | | Load_Top At_Offset_2 096e e003 | | Load 0x0,0x3 096f 183b | ; | Execute Package,Field_Execute,Field_Number 0x3b 0970 7802 |x | Jump 0x973 0971 e405 | | Load 0x2,0x5 0972 c406 | | Store 0x2,0x6 0973 e402 | | Load 0x2,0x2 0974 e406 | | Load 0x2,0x6 0975 e001 | | Load 0x0,0x1 0976 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0977 1885 | | Execute Package,Field_Execute,Field_Number 0x85 0978 680f |h | Jump_Zero 0x988 0979 e5fc | | Load 0x2,-0x4 097a e001 | | Load 0x0,0x1 097b 1b16 | | Execute Package,Field_Read,Field_Number 0x16 097c 1b28 | ( | Execute Package,Field_Read,Field_Number 0x28 097d e402 | | Load 0x2,0x2 097e e406 | | Load 0x2,0x6 097f e001 | | Load 0x0,0x1 0980 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0981 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39 0982 e011 | | Load 0x0,0x11 0983 1b26 | & | Execute Package,Field_Read,Field_Number 0x26 0984 0216 | | Execute Heap_Access,Convert 0985 c407 | | Store 0x2,0x7 0986 c5fc | | Store 0x2,-0x4 0987 7852 |xR | Jump 0x9da 0988 e402 | | Load 0x2,0x2 0989 0217 | | Execute Heap_Access,All_Reference 098a 3c0c |< | Execute Record,Field_Read,Field_Number 0xc 098b 6830 |h0 | Jump_Zero 0x9bc 098c e402 | | Load 0x2,0x2 098d 0217 | | Execute Heap_Access,All_Reference 098e 3c0b |< | Execute Record,Field_Read,Field_Number 0xb 098f 6816 |h | Jump_Zero 0x9a6 0990 e405 | | Load 0x2,0x5 0991 e004 | | Load 0x0,0x4 0992 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 0993 e01c | | Load 0x0,0x1c 0994 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0995 027f | | Execute Discrete,Equal 0996 7007 |p | Jump_Nonzero 0x99e 0997 e405 | | Load 0x2,0x5 0998 e004 | | Load 0x0,0x4 0999 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 099a e01c | | Load 0x0,0x1c 099b 1817 | | Execute Package,Field_Execute,Field_Number 0x17 099c 027f | | Execute Discrete,Equal 099d 6808 |h | Jump_Zero 0x9a6 099e e5fc | | Load 0x2,-0x4 099f e402 | | Load 0x2,0x2 09a0 e405 | | Load 0x2,0x5 09a1 e001 | | Load 0x0,0x1 09a2 1b16 | | Execute Package,Field_Read,Field_Number 0x16 09a3 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 09a4 c5fc | | Store 0x2,-0x4 09a5 7807 |x | Jump 0x9ad 09a6 e5fc | | Load 0x2,-0x4 09a7 e402 | | Load 0x2,0x2 09a8 e406 | | Load 0x2,0x6 09a9 e001 | | Load 0x0,0x1 09aa 1b16 | | Execute Package,Field_Read,Field_Number 0x16 09ab 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 09ac c5fc | | Store 0x2,-0x4 09ad e5fc | | Load 0x2,-0x4 09ae e001 | | Load 0x0,0x1 09af 1b16 | | Execute Package,Field_Read,Field_Number 0x16 09b0 1b28 | ( | Execute Package,Field_Read,Field_Number 0x28 09b1 e402 | | Load 0x2,0x2 09b2 e406 | | Load 0x2,0x6 09b3 e001 | | Load 0x0,0x1 09b4 1b16 | | Execute Package,Field_Read,Field_Number 0x16 09b5 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39 09b6 e011 | | Load 0x0,0x11 09b7 1b26 | & | Execute Package,Field_Read,Field_Number 0x26 09b8 0216 | | Execute Heap_Access,Convert 09b9 c407 | | Store 0x2,0x7 09ba c5fc | | Store 0x2,-0x4 09bb 781e |x | Jump 0x9da 09bc e003 | | Load 0x0,0x3 09bd 1b0d | | Execute Package,Field_Read,Field_Number 0xd 09be 4801 |H | Short_Literal 0x1 09bf 4803 |H | Short_Literal 0x3 09c0 e008 | | Load 0x0,0x8 09c1 1b0f | | Execute Package,Field_Read,Field_Number 0xf 09c2 0334 | 4 | Declare_Variable Array,With_Constraint 09c3 e406 | | Load 0x2,0x6 09c4 e008 | | Load 0x0,0x8 09c5 181a | | Execute Package,Field_Execute,Field_Number 0x1a 09c6 4801 |H | Short_Literal 0x1 09c7 00da | | Load_Top At_Offset_2 09c8 01d6 | | Execute Vector,Field_Write 09c9 e5ff | | Load 0x2,-0x1 09ca e008 | | Load 0x0,0x8 09cb 181a | | Execute Package,Field_Execute,Field_Number 0x1a 09cc 4802 |H | Short_Literal 0x2 09cd 00da | | Load_Top At_Offset_2 09ce 01d6 | | Execute Vector,Field_Write 09cf e402 | | Load 0x2,0x2 09d0 e001 | | Load 0x0,0x1 09d1 1b16 | | Execute Package,Field_Read,Field_Number 0x16 09d2 185a | Z | Execute Package,Field_Execute,Field_Number 0x5a 09d3 4803 |H | Short_Literal 0x3 09d4 00da | | Load_Top At_Offset_2 09d5 01d6 | | Execute Vector,Field_Write 09d6 60bd |` | Indirect_Literal Discrete,0xa94,{0x00000000, 0x00001808} 09d7 e003 | | Load 0x0,0x3 09d8 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 09d9 c5fc | | Store 0x2,-0x4 09da e5fc | | Load 0x2,-0x4 09db 6804 |h | Jump_Zero 0x9e0 09dc e011 | | Load 0x0,0x11 09dd 1b31 | 1 | Execute Package,Field_Read,Field_Number 0x31 09de a5fd | | Store_Unchecked 0x2,-0x3 09df 4503 |E | Exit_Suprogram New_Top_Offset 0x3 09e0 e402 | | Load 0x2,0x2 09e1 0217 | | Execute Heap_Access,All_Reference 09e2 3c0b |< | Execute Record,Field_Read,Field_Number 0xb 09e3 701b |p | Jump_Nonzero 0x9ff 09e4 e402 | | Load 0x2,0x2 09e5 e5ff | | Load 0x2,-0x1 09e6 e405 | | Load 0x2,0x5 09e7 e00e | | Load 0x0,0xe 09e8 1811 | | Execute Package,Field_Execute,Field_Number 0x11 09e9 0032 | 2 | Store_Top Heap_Access,At_Offset_2 09ea 00da | | Load_Top At_Offset_2 09eb 0217 | | Execute Heap_Access,All_Reference 09ec 3c05 |< | Execute Record,Field_Read,Field_Number 0x5 09ed a404 | | Store_Unchecked 0x2,0x4 09ee 00cf | | Action Mark_Auxiliary 09ef 780b |x | Jump 0x9fb 09f0 00da | | Load_Top At_Offset_2 09f1 e404 | | Load 0x2,0x4 09f2 0217 | | Execute Heap_Access,All_Reference 09f3 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 09f4 021f | | Execute Heap_Access,Equal 09f5 7007 |p | Jump_Nonzero 0x9fd 09f6 e404 | | Load 0x2,0x4 09f7 0217 | | Execute Heap_Access,All_Reference 09f8 3c08 |< | Execute Record,Field_Read,Field_Number 0x8 09f9 a404 | | Store_Unchecked 0x2,0x4 09fa 00c9 | | Action Pop_Auxiliary_Loop 09fb e404 | | Load 0x2,0x4 09fc 77f3 |w | Jump_Nonzero 0x9f0 09fd 00ce | | Action Pop_Auxiliary 09fe 7857 |xW | Jump 0xa56 09ff 00da | | Load_Top At_Offset_2 0a00 0217 | | Execute Heap_Access,All_Reference 0a01 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0a02 e405 | | Load 0x2,0x5 0a03 012e | . | Execute Any,Not_Equal 0a04 682d |h- | Jump_Zero 0xa32 0a05 e003 | | Load 0x0,0x3 0a06 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0a07 4801 |H | Short_Literal 0x1 0a08 4805 |H | Short_Literal 0x5 0a09 e008 | | Load 0x0,0x8 0a0a 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0a0b 0334 | 4 | Declare_Variable Array,With_Constraint 0a0c e405 | | Load 0x2,0x5 0a0d e008 | | Load 0x0,0x8 0a0e 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0a0f 4801 |H | Short_Literal 0x1 0a10 00da | | Load_Top At_Offset_2 0a11 01d6 | | Execute Vector,Field_Write 0a12 e406 | | Load 0x2,0x6 0a13 e008 | | Load 0x0,0x8 0a14 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0a15 4802 |H | Short_Literal 0x2 0a16 00da | | Load_Top At_Offset_2 0a17 01d6 | | Execute Vector,Field_Write 0a18 e407 | | Load 0x2,0x7 0a19 0217 | | Execute Heap_Access,All_Reference 0a1a 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0a1b e008 | | Load 0x0,0x8 0a1c 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0a1d 4803 |H | Short_Literal 0x3 0a1e 00da | | Load_Top At_Offset_2 0a1f 01d6 | | Execute Vector,Field_Write 0a20 e5ff | | Load 0x2,-0x1 0a21 e008 | | Load 0x0,0x8 0a22 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0a23 4804 |H | Short_Literal 0x4 0a24 00da | | Load_Top At_Offset_2 0a25 01d6 | | Execute Vector,Field_Write 0a26 e5fe | | Load 0x2,-0x2 0a27 e001 | | Load 0x0,0x1 0a28 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0a29 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0a2a 4805 |H | Short_Literal 0x5 0a2b 00da | | Load_Top At_Offset_2 0a2c 01d6 | | Execute Vector,Field_Write 0a2d 6062 |`b | Indirect_Literal Discrete,0xa90,{0x00000000, 0x00001807} 0a2e e003 | | Load 0x0,0x3 0a2f 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 0a30 c5fc | | Store 0x2,-0x4 0a31 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0a32 e5fe | | Load 0x2,-0x2 0a33 e001 | | Load 0x0,0x1 0a34 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0a35 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f 0a36 0217 | | Execute Heap_Access,All_Reference 0a37 3c08 |< | Execute Record,Field_Read,Field_Number 0x8 0a38 e405 | | Load 0x2,0x5 0a39 e001 | | Load 0x0,0x1 0a3a 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0a3b 7014 |p | Jump_Nonzero 0xa50 0a3c e405 | | Load 0x2,0x5 0a3d e004 | | Load 0x0,0x4 0a3e 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0a3f 183e | > | Execute Package,Field_Execute,Field_Number 0x3e 0a40 0092 0b7f | | Action Push_String_Extended,0xb7f ; " has no state file. " 0a42 01cc | | Execute Vector,Catenate 0a43 e5ff | | Load 0x2,-0x1 0a44 e004 | | Load 0x0,0x4 0a45 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0a46 183b | ; | Execute Package,Field_Execute,Field_Number 0x3b 0a47 01cc | | Execute Vector,Catenate 0a48 0092 0b80 | | Action Push_String_Extended,0xb80 ; " will not be considered during build operations." 0a4a 01cc | | Execute Vector,Catenate 0a4b 8013 | | Call 0x0,0x13 0a4c e011 | | Load 0x0,0x11 0a4d 1b31 | 1 | Execute Package,Field_Read,Field_Number 0x31 0a4e a5fd | | Store_Unchecked 0x2,-0x3 0a4f 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0a50 e402 | | Load 0x2,0x2 0a51 e5ff | | Load 0x2,-0x1 0a52 e405 | | Load 0x2,0x5 0a53 e00e | | Load 0x0,0xe 0a54 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0a55 0032 | 2 | Store_Top Heap_Access,At_Offset_2 0a56 e404 | | Load 0x2,0x4 0a57 7035 |p5 | Jump_Nonzero 0xa8d 0a58 e402 | | Load 0x2,0x2 0a59 e011 | | Load 0x0,0x11 0a5a 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32 0a5b a404 | | Store_Unchecked 0x2,0x4 0a5c 00da | | Load_Top At_Offset_2 0a5d e404 | | Load 0x2,0x4 0a5e 0217 | | Execute Heap_Access,All_Reference 0a5f 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0a60 00d9 | | Load_Top At_Offset_1 0a61 e404 | | Load 0x2,0x4 0a62 0217 | | Execute Heap_Access,All_Reference 0a63 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0a64 e402 | | Load 0x2,0x2 0a65 0217 | | Execute Heap_Access,All_Reference 0a66 3c0e |< | Execute Record,Field_Read,Field_Number 0xe 0a67 00db | | Load_Top At_Offset_3 0a68 021f | | Execute Heap_Access,Equal 0a69 e404 | | Load 0x2,0x4 0a6a 0217 | | Execute Heap_Access,All_Reference 0a6b 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0a6c e402 | | Load 0x2,0x2 0a6d 0217 | | Execute Heap_Access,All_Reference 0a6e 3c0b |< | Execute Record,Field_Read,Field_Number 0xb 0a6f 7004 |p | Jump_Nonzero 0xa74 0a70 e404 | | Load 0x2,0x4 0a71 0217 | | Execute Heap_Access,All_Reference 0a72 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0a73 680b |h | Jump_Zero 0xa7f 0a74 e5ff | | Load 0x2,-0x1 0a75 e404 | | Load 0x2,0x4 0a76 0217 | | Execute Heap_Access,All_Reference 0a77 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 0a78 4800 |H | Short_Literal 0x0 0a79 e402 | | Load 0x2,0x2 0a7a e404 | | Load 0x2,0x4 0a7b e5ff | | Load 0x2,-0x1 0a7c e01a | | Load 0x0,0x1a 0a7d 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0a7e 7804 |x | Jump 0xa83 0a7f e5ff | | Load 0x2,-0x1 0a80 e404 | | Load 0x2,0x4 0a81 0217 | | Execute Heap_Access,All_Reference 0a82 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 0a83 00da | | Load_Top At_Offset_2 0a84 0217 | | Execute Heap_Access,All_Reference 0a85 3c05 |< | Execute Record,Field_Read,Field_Number 0x5 0a86 e404 | | Load 0x2,0x4 0a87 0217 | | Execute Heap_Access,All_Reference 0a88 3808 |8 | Execute Record,Field_Write,Field_Number 0x8 0a89 e404 | | Load 0x2,0x4 0a8a 00db | | Load_Top At_Offset_3 0a8b 0217 | | Execute Heap_Access,All_Reference 0a8c 3805 |8 | Execute Record,Field_Write,Field_Number 0x5 0a8d e404 | | Load 0x2,0x4 0a8e a5fd | | Store_Unchecked 0x2,-0x3 0a8f 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0a90 0000 0000 | | .LITERAL {0x00000000, 0x00001807} 0a94 0000 0000 | | .LITERAL {0x00000000, 0x00001808} 0a98 0000 0000 | | .LITERAL {0x00000000, 0x00001805} 0a9c 0000 0000 | | .LITERAL {0x00000000, 0x00001804} 0aa0 0000 0000 | | .LITERAL {0x00000000, 0x0000500b} 0aa4 0000 0000 | | .BLANK 0000[0x4] 0aa8 ; -------------------------------------------------------------------------------------- 0aa8 ; SUBPROGRAM 0aa8 ; -------------------------------------------------------------------------------------- 0aa8 0aab | | .CONST 0x0aab ; Address of begin 0aa9 0004 | | .CONST 0x0004 ; Address of exception handler 0aaa 0001 | | .CONST 0x0001 ; Number of locals 0aab BODY_0aa8: 0aab INIT_0aa8: 0aab 00db | | Load_Top At_Offset_3 0aac 7007 |p | Jump_Nonzero 0xab4 0aad e5fd | | Load 0x2,-0x3 0aae 0217 | | Execute Heap_Access,All_Reference 0aaf 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0ab0 00db | | Load_Top At_Offset_3 0ab1 0217 | | Execute Heap_Access,All_Reference 0ab2 3819 |8 | Execute Record,Field_Write,Field_Number 0x19 0ab3 7806 |x | Jump 0xaba 0ab4 e5fd | | Load 0x2,-0x3 0ab5 0217 | | Execute Heap_Access,All_Reference 0ab6 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0ab7 e5fe | | Load 0x2,-0x2 0ab8 0217 | | Execute Heap_Access,All_Reference 0ab9 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0aba e5fd | | Load 0x2,-0x3 0abb 0219 | | Execute Heap_Access,All_Read 0abc 00d8 | | Load_Top At_Offset_0 0abd 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0abe e5fd | | Load 0x2,-0x3 0abf 0217 | | Execute Heap_Access,All_Reference 0ac0 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 0ac1 e5ff | | Load 0x2,-0x1 0ac2 8252 | R | Call 0x1,0x52 0ac3 00d9 | | Load_Top At_Offset_1 0ac4 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0ac5 00d1 | | Pop_Control Pop_Count_1 0ac6 e5fd | | Load 0x2,-0x3 0ac7 e011 | | Load 0x0,0x11 0ac8 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30 0ac9 c5fd | | Store 0x2,-0x3 0aca 00da | | Load_Top At_Offset_2 0acb 0217 | | Execute Heap_Access,All_Reference 0acc 3c18 |< | Execute Record,Field_Read,Field_Number 0x18 0acd 0aff | | Execute_Immediate Plus,-0x1 0ace 00db | | Load_Top At_Offset_3 0acf 0217 | | Execute Heap_Access,All_Reference 0ad0 3818 |8 | Execute Record,Field_Write,Field_Number 0x18 0ad1 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0ad2 0000 0000 | | .BLANK 0000[0x6] 0ad8 ; -------------------------------------------------------------------------------------- 0ad8 ; SUBPROGRAM 0ad8 ; -------------------------------------------------------------------------------------- 0ad8 0adb | | .CONST 0x0adb ; Address of begin 0ad9 0af6 | | .CONST 0x0af6 ; Address of exception handler 0ada 0001 | | .CONST 0x0001 ; Number of locals 0adb BODY_0ad8: 0adb INIT_0ad8: 0adb e402 | | Load 0x2,0x2 0adc 0217 | | Execute Heap_Access,All_Reference 0add 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0ade a403 | | Store_Unchecked 0x2,0x3 0adf e402 | | Load 0x2,0x2 0ae0 0217 | | Execute Heap_Access,All_Reference 0ae1 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0ae2 0217 | | Execute Heap_Access,All_Reference 0ae3 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 0ae4 e40c | | Load 0x2,0xc 0ae5 e408 | | Load 0x2,0x8 0ae6 01d5 | | Execute Vector,Field_Reference 0ae7 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0ae8 823f | ? | Call 0x1,0x3f 0ae9 7003 |p | Jump_Nonzero 0xaed 0aea 00cc | | Action Pop_Block 0aeb 00a7 058b | | Action Jump_Extended,0x58b 0aed e402 | | Load 0x2,0x2 0aee e404 | | Load 0x2,0x4 0aef e5fe | | Load 0x2,-0x2 0af0 8255 | U | Call 0x1,0x55 0af1 c404 | | Store 0x2,0x4 0af2 c402 | | Store 0x2,0x2 0af3 e403 | | Load 0x2,0x3 0af4 a402 | | Store_Unchecked 0x2,0x2 0af5 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0af6 TRAP_0ad8: 0af6 4884 |H | Short_Literal 0x84 0af7 010f | | Execute Exception,Equal 0af8 6810 |h | Jump_Zero 0xb09 0af9 e004 | | Load 0x0,0x4 0afa 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0afb e402 | | Load 0x2,0x2 0afc 0217 | | Execute Heap_Access,All_Reference 0afd 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0afe 0217 | | Execute Heap_Access,All_Reference 0aff 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 0b00 e402 | | Load 0x2,0x2 0b01 e404 | | Load 0x2,0x4 0b02 e5fe | | Load 0x2,-0x2 0b03 8255 | U | Call 0x1,0x55 0b04 c404 | | Store 0x2,0x4 0b05 c402 | | Store 0x2,0x2 0b06 e403 | | Load 0x2,0x3 0b07 a402 | | Store_Unchecked 0x2,0x2 0b08 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0b09 0100 | | Execute Exception,Raise 0b0a 0000 0000 | | .BLANK 0000[0x6] 0b10 ; -------------------------------------------------------------------------------------- 0b10 ; SUBPROGRAM 0b10 ; -------------------------------------------------------------------------------------- 0b10 0b13 | | .CONST 0x0b13 ; Address of begin 0b11 0b1c | | .CONST 0x0b1c ; Address of exception handler 0b12 0001 | | .CONST 0x0001 ; Number of locals 0b13 BODY_0b10: 0b13 INIT_0b10: 0b13 e5ff | | Load 0x2,-0x1 0b14 e009 | | Load 0x0,0x9 0b15 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0b16 e011 | | Load 0x0,0x11 0b17 1841 | A | Execute Package,Field_Execute,Field_Number 0x41 0b18 e403 | | Load 0x2,0x3 0b19 e01a | | Load 0x0,0x1a 0b1a 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0b1b 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0b1c TRAP_0b10: 0b1c 0007 | | Action Break_Optional 0b1d 0092 0b81 | | Action Push_String_Extended,0xb81 ; "Link object being Deleted " 0b1f e403 | | Load 0x2,0x3 0b20 e004 | | Load 0x0,0x4 0b21 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0b22 183e | > | Execute Package,Field_Execute,Field_Number 0x3e 0b23 01cc | | Execute Vector,Catenate 0b24 0092 0b82 | | Action Push_String_Extended,0xb82 ; " is not in the map." 0b26 01cc | | Execute Vector,Catenate 0b27 8013 | | Call 0x0,0x13 0b28 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0b29 0000 0000 | | .BLANK 0000[0x7] 0b30 ; -------------------------------------------------------------------------------------- 0b30 ; SUBPROGRAM 0b30 ; -------------------------------------------------------------------------------------- 0b30 0b33 | 3 | .CONST 0x0b33 ; Address of begin 0b31 0004 | | .CONST 0x0004 ; Address of exception handler 0b32 0001 | | .CONST 0x0001 ; Number of locals 0b33 BODY_0b30: 0b33 INIT_0b30: 0b33 4608 |F | Jump_Case 0x9 0b34 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 0b35 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 0b36 7819 |x | Jump 0xb50 ; case 0x2 0b37 7818 |x | Jump 0xb50 ; case 0x3 0b38 7817 |x | Jump 0xb50 ; case 0x4 0b39 7816 |x | Jump 0xb50 ; case 0x5 0b3a 7815 |x | Jump 0xb50 ; case 0x6 0b3b 7801 |x | Jump 0xb3d ; case 0x7 0b3c 7809 |x | Jump 0xb46 ; case 0x8 0b3d 00db | | Load_Top At_Offset_3 0b3e 4801 |H | Short_Literal 0x1 0b3f e5fe | | Load 0x2,-0x2 0b40 e21e | | Load 0x1,0x1e 0b41 035b | [ | Declare_Type Array,Constrained 0b42 4801 |H | Short_Literal 0x1 0b43 e5ff | | Load 0x2,-0x1 0b44 031b | | Declare_Type Variant_Record,Constrained 0b45 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0b46 00db | | Load_Top At_Offset_3 0b47 00db | | Load_Top At_Offset_3 0b48 02fc | | Declare_Variable Variant_Record,With_Constraint 0b49 4801 |H | Short_Literal 0x1 0b4a e5fe | | Load 0x2,-0x2 0b4b e21e | | Load 0x1,0x1e 0b4c 0334 | 4 | Declare_Variable Array,With_Constraint 0b4d 2d03 |- | Execute Variant_Record,Field_Append,Fixed,Indirect,Field_Number 0x3 0b4e 016a | j | QQ_execute Variant_Record,XXX 0b4f 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0b50 0869 | i | Execute_Immediate Raise,0x69 0b51 0000 0000 | | .BLANK 0000[0x7] 0b58 ; -------------------------------------------------------------------------------------- 0b58 ; SUBPROGRAM 0b58 ; -------------------------------------------------------------------------------------- 0b58 0b5b | [ | .CONST 0x0b5b ; Address of begin 0b59 0004 | | .CONST 0x0004 ; Address of exception handler 0b5a 0001 | | .CONST 0x0001 ; Number of locals 0b5b BODY_0b58: 0b5b INIT_0b58: 0b5b 4608 |F | Jump_Case 0x9 0b5c 7808 |x | Jump 0xb65 ; case 0x0 0b5d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 0b5e 780d |x | Jump 0xb6c ; case 0x2 0b5f 780c |x | Jump 0xb6c ; case 0x3 0b60 780b |x | Jump 0xb6c ; case 0x4 0b61 780a |x | Jump 0xb6c ; case 0x5 0b62 7809 |x | Jump 0xb6c ; case 0x6 0b63 7808 |x | Jump 0xb6c ; case 0x7 0b64 7807 |x | Jump 0xb6c ; case 0x8 0b65 00da | | Load_Top At_Offset_2 0b66 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 0b67 0125 | % | Execute Any,Set_Constraint 0b68 00da | | Load_Top At_Offset_2 0b69 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 0b6a 1c00 | | Execute_Immediate Run_Utility,0x0 0b6b 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0b6c 0869 | i | Execute_Immediate Raise,0x69 0b6d ; -------------------------------------------------------------------------------------- 0b6d ; STRING TABLE 0b6d ; -------------------------------------------------------------------------------------- 0b6d 002e | . | .STRTAB 0x002e->0x0b84 ; "'Load_View." 0b6e 0037 | 7 | .STRTAB 0x0037->0x0b89 ; "Initializing supplier list for " 0b6f 0054 | T | .STRTAB 0x0054->0x0b99 ; "Deleting supplier " 0b70 0064 | d | .STRTAB 0x0064->0x0ba2 ; " for " 0b71 0067 | g | .STRTAB 0x0067->0x0ba4 ; "Replacing" 0b72 006e | n | .STRTAB 0x006e->0x0ba9 ; " suppliers with" 0b73 007b | { | .STRTAB 0x007b->0x0bb0 ; " objects for " 0b74 0086 | | .STRTAB 0x0086->0x0bb7 ; "New object (" 0b75 0090 | | .STRTAB 0x0090->0x0bbd ; ") is " 0b76 0093 | | .STRTAB 0x0093->0x0bbf ; "Unique (" 0b77 0099 | | .STRTAB 0x0099->0x0bc3 ; ") =" 0b78 009a | | .STRTAB 0x009a->0x0bc5 ; "Changing kinds." 0b79 00a7 | | .STRTAB 0x00a7->0x0bcc ; "Deleting link object " 0b7a 00ba | | .STRTAB 0x00ba->0x0bd7 ; "Adding client " 0b7b 00c6 | | .STRTAB 0x00c6->0x0bde ; " to link " 0b7c 00cd | | .STRTAB 0x00cd->0x0be2 ; "Deleting client " 0b7d 00db | | .STRTAB 0x00db->0x0bea ; " from link " 0b7e 00e4 | | .STRTAB 0x00e4->0x0bf0 ; "Adding supplier " 0b7f 00f2 | | .STRTAB 0x00f2->0x0bf8 ; " has no state file. " 0b80 0105 | | .STRTAB 0x0105->0x0c02 ; " will not be considered during build operations." 0b81 0133 | 3 | .STRTAB 0x0133->0x0c1a ; "Link object being Deleted " 0b82 014b | K | .STRTAB 0x014b->0x0c27 ; " is not in the map." 0b83 015c | \ | .STREND 0x015c->0x0c31 0b84 274c 6f61 |'Loa| .STRTAB_STRINGS 0c31 0000 0000 | | .BLANK 0000[0x7] 0c38 ; -------------------------------------------------------------------------------------- 0c38 ; Debug Table 0c38 ; -------------------------------------------------------------------------------------- 0c38 0004 000a | | .DEBUG4 0x0004,0x000a,0xe37d,0x0000,0x0001,0x0000 0c3e 0000 0000 | | .XXX[0x7] 0c40 0d3f 3004 | ?0 | 0c42 0000 3fc1 | ? | 0c44 ffff | | 0c45 0000 0000 | | .BLANK 0000[0x6] 0c4b 1fbf | | .XXX[0x1] 0c4c 0000 0000 | | .BLANK 0000[0x7] 0c53 0049 0000 | I | .XXX[0x9] 0c55 0000 806e | n| 0c57 000e 0000 | | 0c59 0000 0000 | | 0c5b 0076 | v | 0c5c 0000 0000 | | .BLANK 0000[0x7] 0c63 0009 | | .XXX[0x1] 0c64 0000 0000 | | .BLANK 0000[0x6] 0c6a 8000 0000 | | .XXX[0x9] 0c6c 0000 0000 | | 0c6e 004e e8c5 | N | 0c70 0000 0000 | | 0c72 8000 | | 0c73 0000 0000 | | .BLANK 0000[0x4] 0c77 0080 0000 | | .XXX[0x4] 0c79 0000 8000 | | 0c7b 0000 0000 | | .BLANK 0000[0x4] 0c7f 0800 0080 | | .XXX[0x5] 0c81 d4da 8000 | | 0c83 014c | L | 0c84 0000 0000 | | .BLANK 0000[0x4] 0c88 0080 d4da | | .XXX[0x24] 0c8a 8800 0480 | | 0c8c 8000 0000 | | 0c8e 0000 0000 | | 0c90 0080 d4da | | 0c92 8800 0600 | | 0c94 8000 0000 | | 0c96 0000 0000 | | 0c98 0080 d4da | | 0c9a 8800 0600 | | 0c9c 8000 0000 | | 0c9e 0000 0000 | | 0ca0 0001 0804 | | 0ca2 8800 0400 | | 0ca4 8000 0000 | | 0ca6 0000 0000 | | 0ca8 0001 0804 | | 0caa 8800 05ec | | 0cac 0000 0000 | | .BLANK 0000[0x4] 0cb0 0080 d4da | | .XXX[0xcc] 0cb2 0000 0036 | 6| 0cb4 00b9 d014 | | 0cb6 0000 0f32 | 2| 0cb8 0080 d4da | | 0cba 0000 0036 | 6| 0cbc 00b9 d014 | | 0cbe 0000 1032 | 2| 0cc0 0080 d4da | | 0cc2 0000 0036 | 6| 0cc4 00b9 d014 | | 0cc6 0000 12b2 | | 0cc8 0080 d4da | | 0cca 0000 0036 | 6| 0ccc 00b9 d014 | | 0cce 0000 1432 | 2| 0cd0 0080 d4da | | 0cd2 0000 0036 | 6| 0cd4 00b9 d014 | | 0cd6 0000 16b2 | | 0cd8 0080 d4da | | 0cda 0000 0036 | 6| 0cdc 00b9 d014 | | 0cde 0000 17b2 | | 0ce0 0080 d4da | | 0ce2 0000 0036 | 6| 0ce4 00b9 d014 | | 0ce6 0000 18b2 | | 0ce8 0080 d4da | | 0cea 0000 0036 | 6| 0cec 00b9 d014 | | 0cee 0000 19b2 | | 0cf0 0080 d4da | | 0cf2 0000 0036 | 6| 0cf4 00b9 d014 | | 0cf6 0000 1a32 | 2| 0cf8 0080 d4da | | 0cfa 0000 0036 | 6| 0cfc 00b9 d014 | | 0cfe 0000 1b32 | 2| 0d00 0080 d4da | | 0d02 0000 0036 | 6| 0d04 00b9 d014 | | 0d06 0000 1c32 | 2| 0d08 0080 d4da | | 0d0a 0000 0036 | 6| 0d0c 00b9 d014 | | 0d0e 0000 1d32 | 2| 0d10 0080 d4da | | 0d12 0000 0036 | 6| 0d14 00b9 d014 | | 0d16 0000 1e32 | 2| 0d18 0080 d4da | | 0d1a 0000 0036 | 6| 0d1c 00b9 d014 | | 0d1e 0000 1f32 | 2| 0d20 0080 d4da | | 0d22 0000 0036 | 6| 0d24 00b9 d014 | | 0d26 0000 20b2 | | 0d28 0080 d4da | | 0d2a 0000 0036 | 6| 0d2c 00b9 d014 | | 0d2e 0000 2232 | "2| 0d30 0080 d4da | | 0d32 0000 0036 | 6| 0d34 00b9 d014 | | 0d36 0000 23b2 | # | 0d38 0080 d4da | | 0d3a 0000 0036 | 6| 0d3c 00b9 d014 | | 0d3e 0000 2532 | %2| 0d40 0080 d4da | | 0d42 0000 0036 | 6| 0d44 00b9 d014 | | 0d46 0000 2732 | '2| 0d48 0080 d4da | | 0d4a 0000 0036 | 6| 0d4c 00b9 d014 | | 0d4e 0000 28b2 | ( | 0d50 0080 d4da | | 0d52 0000 0036 | 6| 0d54 00b9 d014 | | 0d56 0000 2ab2 | * | 0d58 0080 d4da | | 0d5a 0000 0036 | 6| 0d5c 00b9 d014 | | 0d5e 0000 2d32 | -2| 0d60 0080 d4da | | 0d62 0000 07d8 | | 0d64 0080 dcda | | 0d66 0000 0000 | | 0d68 0006 f804 | | 0d6a 0000 0032 | 2| 0d6c 0006 f804 | | 0d6e 0000 0720 | | 0d70 0006 f804 | | 0d72 0000 0032 | 2| 0d74 0006 f804 | | 0d76 0000 06a0 | | 0d78 0001 0404 | | 0d7a 0800 0888 | | 0d7c 0000 0000 | | .BLANK 0000[0xa] 0d86 004e e8b5 | N | .XXX[0x2] 0d88 0000 0000 | | .BLANK 0000[0x7] 0d8f 0048 | H | .XXX[0x1] 0d90 0000 0000 | | .BLANK 0000[0x8] 0d98 0080 d4da | | .XXX[0x5] 0d9a 0800 0480 | | 0d9c 8000 | | 0d9d 0000 0000 | | .BLANK 0000[0x9] 0da6 004e e8b5 | N | .XXX[0x2] 0da8 0000 0000 | | .BLANK 0000[0x7] 0daf 0054 | T | .XXX[0x1] 0db0 0000 0000 | | .BLANK 0000[0x8] 0db8 0080 d4da | | .XXX[0x5] 0dba 0800 0600 | | 0dbc 8000 | | 0dbd 0000 0000 | | .BLANK 0000[0x9] 0dc6 004e e8b5 | N | .XXX[0x2] 0dc8 0000 0000 | | .BLANK 0000[0x7] 0dcf 0060 | ` | .XXX[0x1] 0dd0 0000 0000 | | .BLANK 0000[0x8] 0dd8 0001 0404 | | .XXX[0x5] 0dda 0000 0280 | | 0ddc 8000 | | 0ddd 0000 0000 | | .BLANK 0000[0x9] 0de6 004e e8b5 | N | .XXX[0x2] 0de8 0000 0000 | | .BLANK 0000[0x7] 0def 006c | l | .XXX[0x1] 0df0 0000 0000 | | .BLANK 0000[0x8] 0df8 0001 0404 | | .XXX[0x8] 0dfa 0000 0700 | | 0dfc 8000 0000 | | 0dfe 0000 0000 | |