|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 4096 (0x1000) Notes: 00_class, 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 0668 | h | .CONST 0x0668 ; 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 8003 | | .CONST 0x8003 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 0074 | t | .CONST 0x0074 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0025 | % | .CONST 0x0025 ; Number of locals 000b INIT_0008: 000b e001 | | Load 0x0,0x1 000c 1b0f | | Execute Package,Field_Read,Field_Number 0xf 000d 0129 | ) | Execute Any,Make_Visible 000e 00e3 | | Load_Encached Natural_Cache 000f 0266 | f | Execute Discrete,Bounds 0010 00da | | Load_Top At_Offset_2 0011 029f 007b | {| Declare_Subprogram INIT_0078,For_Call 0013 4801 |H | Short_Literal 0x1 0014 0351 | Q | Declare_Type Array,Defined,Visible,Bounds_With_Object 0015 00e3 | | Load_Encached Natural_Cache 0016 e002 | | Load 0x0,0x2 0017 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0018 4801 |H | Short_Literal 0x1 0019 6076 |`v | Indirect_Literal Discrete,0x90,{0x00000000, 0x7fffffff} 001a e20e | | Load 0x1,0xe 001b 034f | O | Declare_Type Array,Constrained,Visible,Bounds_With_Object 001c 029f 0583 | | Declare_Subprogram INIT_0580,For_Call 001e 4800 |H | Short_Literal 0x0 001f 4801 |H | Short_Literal 0x1 0020 4801 |H | Short_Literal 0x1 0021 4800 |H | Short_Literal 0x0 0022 4801 |H | Short_Literal 0x1 0023 4801 |H | Short_Literal 0x1 0024 031e | | Declare_Type Variant_Record,Defined,Visible 0025 00c4 | | Action Make_Default 0026 00c4 | | Action Make_Default 0027 00c4 | | Action Make_Default 0028 00c4 | | Action Make_Default 0029 00c4 | | Action Make_Default 002a 00c4 | | Action Make_Default 002b 00c4 | | Action Make_Default 002c 00c4 | | Action Make_Default 002d 00c4 | | Action Make_Default 002e 00c4 | | Action Make_Default 002f 00c4 | | Action Make_Default 0030 00c4 | | Action Make_Default 0031 00c4 | | Action Make_Default 0032 00c4 | | Action Make_Default 0033 00c4 | | Action Make_Default 0034 00c4 | | Action Make_Default 0035 00c4 | | Action Make_Default 0036 00c4 | | Action Make_Default 0037 00c4 | | Action Make_Default 0038 00c4 | | Action Make_Default 0039 00c4 | | Action Make_Default 003a 029a 009b | | Declare_Subprogram INIT_0098,For_Outer_Call,Visible,Unelaborated 003c c216 | | Store 0x1,0x16 003d 029a 00b3 | | Declare_Subprogram INIT_00b0,For_Outer_Call,Visible,Unelaborated 003f c21b | | Store 0x1,0x1b 0040 029a 0173 | s| Declare_Subprogram INIT_0170,For_Outer_Call,Visible,Unelaborated 0042 c21c | | Store 0x1,0x1c 0043 029a 0203 | | Declare_Subprogram INIT_0200,For_Outer_Call,Visible,Unelaborated 0045 c21d | | Store 0x1,0x1d 0046 029a 02a3 | | Declare_Subprogram INIT_02a0,For_Outer_Call,Visible,Unelaborated 0048 c21e | | Store 0x1,0x1e 0049 029a 02db | | Declare_Subprogram INIT_02d8,For_Outer_Call,Visible,Unelaborated 004b c21f | | Store 0x1,0x1f 004c 029a 034b | K| Declare_Subprogram INIT_0348,For_Outer_Call,Visible,Unelaborated 004e c220 | | Store 0x1,0x20 004f 029a 03ab | | Declare_Subprogram INIT_03a8,For_Outer_Call,Visible,Unelaborated 0051 c221 | ! | Store 0x1,0x21 0052 029a 03d3 | | Declare_Subprogram INIT_03d0,For_Outer_Call,Visible,Unelaborated 0054 c217 | | Store 0x1,0x17 0055 029a 040b | | Declare_Subprogram INIT_0408,For_Outer_Call,Visible,Unelaborated 0057 c222 | " | Store 0x1,0x22 0058 029a 046b | k| Declare_Subprogram INIT_0468,For_Outer_Call,Visible,Unelaborated 005a c224 | $ | Store 0x1,0x24 005b 00bf | | Action Accept_Activation 005c 1d16 | | Execute_Immediate Reference_Lex_1,0x16 005d 00c7 | | Action Elaborate_Subprogram 005e 1d1b | | Execute_Immediate Reference_Lex_1,0x1b 005f 00c7 | | Action Elaborate_Subprogram 0060 1d1c | | Execute_Immediate Reference_Lex_1,0x1c 0061 00c7 | | Action Elaborate_Subprogram 0062 1d1d | | Execute_Immediate Reference_Lex_1,0x1d 0063 00c7 | | Action Elaborate_Subprogram 0064 1d1e | | Execute_Immediate Reference_Lex_1,0x1e 0065 00c7 | | Action Elaborate_Subprogram 0066 1d1f | | Execute_Immediate Reference_Lex_1,0x1f 0067 00c7 | | Action Elaborate_Subprogram 0068 1d20 | | Execute_Immediate Reference_Lex_1,0x20 0069 00c7 | | Action Elaborate_Subprogram 006a 1d22 | " | Execute_Immediate Reference_Lex_1,0x22 006b 00c7 | | Action Elaborate_Subprogram 006c 029d 04bb | | Declare_Subprogram INIT_04b8,For_Outer_Call 006e 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21 006f 00c7 | | Action Elaborate_Subprogram 0070 1d17 | | Execute_Immediate Reference_Lex_1,0x17 0071 00c7 | | Action Elaborate_Subprogram 0072 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24 0073 00c7 | | Action Elaborate_Subprogram 0074 BODY_0008: 0074 00bc | | Action Signal_Activated 0075 00bb | | Action Signal_Completion 0076 0000 0000 | | .XXX[0x2] 0078 ; -------------------------------------------------------------------------------------- 0078 ; SUBPROGRAM 0078 ; -------------------------------------------------------------------------------------- 0078 007b | { | .CONST 0x007b ; Address of begin 0079 0004 | | .CONST 0x0004 ; Address of exception handler 007a 0001 | | .CONST 0x0001 ; Number of locals 007b BODY_0078: 007b INIT_0078: 007b 00d1 | | Pop_Control Pop_Count_1 007c 00da | | Load_Top At_Offset_2 007d 01dc | | Execute Vector,Last 007e 00db | | Load_Top At_Offset_3 007f 01dd | | Execute Vector,First 0080 0263 | c | Execute Discrete,Above_Bound 0081 700a |p | Jump_Nonzero 0x8c 0082 00d8 | | Load_Top At_Offset_0 0083 e5ff | | Load 0x2,-0x1 0084 01d5 | | Execute Vector,Field_Reference 0085 0125 | % | Execute Any,Set_Constraint 0086 00d8 | | Load_Top At_Offset_0 0087 e5ff | | Load 0x2,-0x1 0088 01d5 | | Execute Vector,Field_Reference 0089 1c00 | | Execute_Immediate Run_Utility,0x0 008a 0a01 | | Execute_Immediate Plus,0x1 008b 7ff4 | | Jump 0x80 008c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 008d 0000 0000 | | .XXX[0x3] 008f 0000 | | 0090 0000 0000 | | .LITERAL {0x00000000, 0x7fffffff} 0094 0000 0000 | | .BLANK 0000[0x4] 0098 ; -------------------------------------------------------------------------------------- 0098 ; SUBPROGRAM 0098 ; -------------------------------------------------------------------------------------- 0098 009b | | .CONST 0x009b ; Address of begin 0099 00a3 | | .CONST 0x00a3 ; Address of exception handler 009a 0001 | | .CONST 0x0001 ; Number of locals 009b BODY_0098: 009b INIT_0098: 009b 00da | | Load_Top At_Offset_2 009c e003 | | Load 0x0,0x3 009d 1b18 | | Execute Package,Field_Read,Field_Number 0x18 009e 1812 | | Execute Package,Field_Execute,Field_Number 0x12 009f c5fe | | Store 0x2,-0x2 00a0 4800 |H | Short_Literal 0x0 00a1 a5fd | | Store_Unchecked 0x2,-0x3 00a2 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00a3 TRAP_0098: 00a3 0007 | | Action Break_Optional 00a4 0092 05a5 | | Action Push_String_Extended,0x5a5 ; "Convert" 00a6 e004 | | Load 0x0,0x4 00a7 1810 | | Execute Package,Field_Execute,Field_Number 0x10 00a8 a5fd | | Store_Unchecked 0x2,-0x3 00a9 e001 | | Load 0x0,0x1 00aa 1810 | | Execute Package,Field_Execute,Field_Number 0x10 00ab c5fe | | Store 0x2,-0x2 00ac 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00ad 0000 0000 | | .XXX[0x3] 00af 0000 | | 00b0 ; -------------------------------------------------------------------------------------- 00b0 ; SUBPROGRAM 00b0 ; -------------------------------------------------------------------------------------- 00b0 00d4 | | .CONST 0x00d4 ; Address of begin 00b1 015a | Z | .CONST 0x015a ; Address of exception handler 00b2 0009 | | .CONST 0x0009 ; Number of locals 00b3 INIT_00b0: 00b3 e001 | | Load 0x0,0x1 00b4 1b0f | | Execute Package,Field_Read,Field_Number 0xf 00b5 02c7 | | Declare_Variable Any 00b6 00d8 | | Load_Top At_Offset_0 00b7 1c00 | | Execute_Immediate Run_Utility,0x0 00b8 e001 | | Load 0x0,0x1 00b9 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 00ba 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00bb 02c7 | | Declare_Variable Any 00bc 00d8 | | Load_Top At_Offset_0 00bd 1c00 | | Execute_Immediate Run_Utility,0x0 00be e001 | | Load 0x0,0x1 00bf 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00c0 e002 | | Load 0x0,0x2 00c1 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00c2 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 00c3 4800 |H | Short_Literal 0x0 00c4 e20f | | Load 0x1,0xf 00c5 1c08 | | Execute_Immediate Run_Utility,0x8 00c6 00d8 | | Load_Top At_Offset_0 00c7 1c00 | | Execute_Immediate Run_Utility,0x0 00c8 e005 | | Load 0x0,0x5 00c9 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00ca e006 | | Load 0x0,0x6 00cb 1b62 | b | Execute Package,Field_Read,Field_Number 0x62 00cc 0322 | " | Declare_Variable Record 00cd e5fe | | Load 0x2,-0x2 00ce e006 | | Load 0x0,0x6 00cf 1866 | f | Execute Package,Field_Execute,Field_Number 0x66 00d0 00d9 | | Load_Top At_Offset_1 00d1 017d | } | Execute Record,Structure_Write 00d2 029f 04d3 | | Declare_Subprogram INIT_04d0,For_Call 00d4 BODY_00b0: 00d4 e5fd | | Load 0x2,-0x3 00d5 0092 05a6 | | Action Push_String_Extended,0x5a6 ; "Rcf_Compilation.Promotion_Prerequisites" 00d7 e004 | | Load 0x0,0x4 00d8 180e | | Execute Package,Field_Execute,Field_Number 0xe 00d9 e002 | | Load 0x0,0x2 00da 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00db e005 | | Load 0x0,0x5 00dc 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00dd e5fd | | Load 0x2,-0x3 00de e005 | | Load 0x0,0x5 00df 1810 | | Execute Package,Field_Execute,Field_Number 0x10 00e0 c407 | | Store 0x2,0x7 00e1 c405 | | Store 0x2,0x5 00e2 e405 | | Load 0x2,0x5 00e3 6805 |h | Jump_Zero 0xe9 00e4 e405 | | Load 0x2,0x5 00e5 e406 | | Load 0x2,0x6 00e6 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 00e7 00db | | Load_Top At_Offset_3 00e8 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 00e9 e5fd | | Load 0x2,-0x3 00ea 4801 |H | Short_Literal 0x1 00eb e5ff | | Load 0x2,-0x1 00ec e007 | | Load 0x0,0x7 00ed 181c | | Execute Package,Field_Execute,Field_Number 0x1c 00ee c402 | | Store 0x2,0x2 00ef e5fd | | Load 0x2,-0x3 00f0 e005 | | Load 0x0,0x5 00f1 181d | | Execute Package,Field_Execute,Field_Number 0x1d 00f2 6811 |h | Jump_Zero 0x104 00f3 e5fd | | Load 0x2,-0x3 00f4 e005 | | Load 0x0,0x5 00f5 181e | | Execute Package,Field_Execute,Field_Number 0x1e 00f6 700d |p | Jump_Nonzero 0x104 00f7 e002 | | Load 0x0,0x2 00f8 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00f9 e5fd | | Load 0x2,-0x3 00fa e005 | | Load 0x0,0x5 00fb 1812 | | Execute Package,Field_Execute,Field_Number 0x12 00fc c405 | | Store 0x2,0x5 00fd e405 | | Load 0x2,0x5 00fe 6805 |h | Jump_Zero 0x104 00ff e405 | | Load 0x2,0x5 0100 e406 | | Load 0x2,0x6 0101 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 0102 00db | | Load_Top At_Offset_3 0103 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0104 e5fd | | Load 0x2,-0x3 0105 e005 | | Load 0x0,0x5 0106 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0107 701e |p | Jump_Nonzero 0x126 0108 e002 | | Load 0x0,0x2 0109 1b0d | | Execute Package,Field_Read,Field_Number 0xd 010a e005 | | Load 0x0,0x5 010b 1b0d | | Execute Package,Field_Read,Field_Number 0xd 010c e5fd | | Load 0x2,-0x3 010d 4800 |H | Short_Literal 0x0 010e 4800 |H | Short_Literal 0x0 010f 4801 |H | Short_Literal 0x1 0110 e408 | | Load 0x2,0x8 0111 e402 | | Load 0x2,0x2 0112 e005 | | Load 0x0,0x5 0113 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 0114 c407 | | Store 0x2,0x7 0115 c405 | | Store 0x2,0x5 0116 e405 | | Load 0x2,0x5 0117 6805 |h | Jump_Zero 0x11d 0118 e405 | | Load 0x2,0x5 0119 e406 | | Load 0x2,0x6 011a 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 011b 00db | | Load_Top At_Offset_3 011c 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 011d e002 | | Load 0x0,0x2 011e 1b0d | | Execute Package,Field_Read,Field_Number 0xd 011f e5fd | | Load 0x2,-0x3 0120 4801 |H | Short_Literal 0x1 0121 e407 | | Load 0x2,0x7 0122 e005 | | Load 0x0,0x5 0123 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0124 c405 | | Store 0x2,0x5 0125 7820 |x | Jump 0x146 0126 e5fd | | Load 0x2,-0x3 0127 00da | | Load_Top At_Offset_2 0128 e402 | | Load 0x2,0x2 0129 e407 | | Load 0x2,0x7 012a e005 | | Load 0x0,0x5 012b 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 012c 7019 |p | Jump_Nonzero 0x146 012d e002 | | Load 0x0,0x2 012e 1b0d | | Execute Package,Field_Read,Field_Number 0xd 012f 00db | | Load_Top At_Offset_3 0130 e5fd | | Load 0x2,-0x3 0131 e408 | | Load 0x2,0x8 0132 e402 | | Load 0x2,0x2 0133 e005 | | Load 0x0,0x5 0134 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0135 c407 | | Store 0x2,0x7 0136 c405 | | Store 0x2,0x5 0137 e405 | | Load 0x2,0x5 0138 6805 |h | Jump_Zero 0x13e 0139 e405 | | Load 0x2,0x5 013a e406 | | Load 0x2,0x6 013b 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 013c 00db | | Load_Top At_Offset_3 013d 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 013e e002 | | Load 0x0,0x2 013f 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0140 e5fd | | Load 0x2,-0x3 0141 4801 |H | Short_Literal 0x1 0142 e407 | | Load 0x2,0x7 0143 e005 | | Load 0x0,0x5 0144 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0145 c405 | | Store 0x2,0x5 0146 e002 | | Load 0x0,0x2 0147 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0148 e5fd | | Load 0x2,-0x3 0149 00db | | Load_Top At_Offset_3 014a e407 | | Load 0x2,0x7 014b e402 | | Load 0x2,0x2 014c e5ff | | Load 0x2,-0x1 014d e003 | | Load 0x0,0x3 014e 1b18 | | Execute Package,Field_Read,Field_Number 0x18 014f 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f 0150 c405 | | Store 0x2,0x5 0151 e405 | | Load 0x2,0x5 0152 6805 |h | Jump_Zero 0x158 0153 e405 | | Load 0x2,0x5 0154 e406 | | Load 0x2,0x6 0155 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 0156 00db | | Load_Top At_Offset_3 0157 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0158 8409 | | Call 0x2,0x9 0159 0831 | 1 | Execute_Immediate Raise,0x31 015a TRAP_00b0: 015a e002 | | Load 0x0,0x2 015b 1b17 | | Execute Package,Field_Read,Field_Number 0x17 015c 010f | | Execute Exception,Equal 015d 6806 |h | Jump_Zero 0x164 015e e002 | | Load 0x0,0x2 015f 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0160 e406 | | Load 0x2,0x6 0161 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 0162 e406 | | Load 0x2,0x6 0163 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0164 0092 05a7 | | Action Push_String_Extended,0x5a7 ; "Promotion_Prerequisites" 0166 e004 | | Load 0x0,0x4 0167 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0168 e406 | | Load 0x2,0x6 0169 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 016a e406 | | Load 0x2,0x6 016b 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 016c 0000 0000 | | .BLANK 0000[0x4] 0170 ; -------------------------------------------------------------------------------------- 0170 ; SUBPROGRAM 0170 ; -------------------------------------------------------------------------------------- 0170 0187 | | .CONST 0x0187 ; Address of begin 0171 01e8 | | .CONST 0x01e8 ; Address of exception handler 0172 0006 | | .CONST 0x0006 ; Number of locals 0173 INIT_0170: 0173 e002 | | Load 0x0,0x2 0174 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0175 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0176 4800 |H | Short_Literal 0x0 0177 e20f | | Load 0x1,0xf 0178 1c08 | | Execute_Immediate Run_Utility,0x8 0179 00d8 | | Load_Top At_Offset_0 017a 1c00 | | Execute_Immediate Run_Utility,0x0 017b e005 | | Load 0x0,0x5 017c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 017d e006 | | Load 0x0,0x6 017e 1b62 | b | Execute Package,Field_Read,Field_Number 0x62 017f 0322 | " | Declare_Variable Record 0180 e5fe | | Load 0x2,-0x2 0181 e006 | | Load 0x0,0x6 0182 1866 | f | Execute Package,Field_Execute,Field_Number 0x66 0183 00d9 | | Load_Top At_Offset_1 0184 017d | } | Execute Record,Structure_Write 0185 029f 050b | | Declare_Subprogram INIT_0508,For_Call 0187 BODY_0170: 0187 e5fd | | Load 0x2,-0x3 0188 0092 05a8 | | Action Push_String_Extended,0x5a8 ; "Rcf_Compilation.Demotion_Effects" 018a e004 | | Load 0x0,0x4 018b 180e | | Execute Package,Field_Execute,Field_Number 0xe 018c e5fd | | Load 0x2,-0x3 018d 0092 05a9 | | Action Push_String_Extended,0x5a9 ; "Valid Supplier Domain => " 018f e5fd | | Load 0x2,-0x3 0190 e005 | | Load 0x0,0x5 0191 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0192 00e1 | | Load_Encached Boolean_Cache 0193 011c | | Execute Any,Convert_Unchecked 0194 1c01 | | Execute_Immediate Run_Utility,0x1 0195 01cc | | Execute Vector,Catenate 0196 e004 | | Load 0x0,0x4 0197 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0198 e002 | | Load 0x0,0x2 0199 1b0d | | Execute Package,Field_Read,Field_Number 0xd 019a e005 | | Load 0x0,0x5 019b 1b0d | | Execute Package,Field_Read,Field_Number 0xd 019c e5fd | | Load 0x2,-0x3 019d e005 | | Load 0x0,0x5 019e 1810 | | Execute Package,Field_Execute,Field_Number 0x10 019f c404 | | Store 0x2,0x4 01a0 c402 | | Store 0x2,0x2 01a1 e402 | | Load 0x2,0x2 01a2 6805 |h | Jump_Zero 0x1a8 01a3 e402 | | Load 0x2,0x2 01a4 e403 | | Load 0x2,0x3 01a5 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 01a6 00db | | Load_Top At_Offset_3 01a7 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 01a8 e5fd | | Load 0x2,-0x3 01a9 e005 | | Load 0x0,0x5 01aa 181d | | Execute Package,Field_Execute,Field_Number 0x1d 01ab 681d |h | Jump_Zero 0x1c9 01ac e5fd | | Load 0x2,-0x3 01ad 00da | | Load_Top At_Offset_2 01ae e5fd | | Load 0x2,-0x3 01af 4801 |H | Short_Literal 0x1 01b0 e5ff | | Load 0x2,-0x1 01b1 e007 | | Load 0x0,0x7 01b2 181c | | Execute Package,Field_Execute,Field_Number 0x1c 01b3 e404 | | Load 0x2,0x4 01b4 e005 | | Load 0x0,0x5 01b5 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 01b6 e5fd | | Load 0x2,-0x3 01b7 e005 | | Load 0x0,0x5 01b8 181e | | Execute Package,Field_Execute,Field_Number 0x1e 01b9 0f00 | | Execute_Immediate Equal,0x0 01ba 0279 | y | Execute Discrete,And 01bb 700d |p | Jump_Nonzero 0x1c9 01bc e002 | | Load 0x0,0x2 01bd 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01be e5fd | | Load 0x2,-0x3 01bf e005 | | Load 0x0,0x5 01c0 1812 | | Execute Package,Field_Execute,Field_Number 0x12 01c1 c402 | | Store 0x2,0x2 01c2 e402 | | Load 0x2,0x2 01c3 6805 |h | Jump_Zero 0x1c9 01c4 e402 | | Load 0x2,0x2 01c5 e403 | | Load 0x2,0x3 01c6 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 01c7 00db | | Load_Top At_Offset_3 01c8 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 01c9 e5fd | | Load 0x2,-0x3 01ca e005 | | Load 0x0,0x5 01cb 181d | | Execute Package,Field_Execute,Field_Number 0x1d 01cc 7019 |p | Jump_Nonzero 0x1e6 01cd e002 | | Load 0x0,0x2 01ce 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01cf 00db | | Load_Top At_Offset_3 01d0 e5fd | | Load 0x2,-0x3 01d1 e405 | | Load 0x2,0x5 01d2 e5ff | | Load 0x2,-0x1 01d3 e005 | | Load 0x0,0x5 01d4 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 01d5 c404 | | Store 0x2,0x4 01d6 c402 | | Store 0x2,0x2 01d7 e402 | | Load 0x2,0x2 01d8 6805 |h | Jump_Zero 0x1de 01d9 e402 | | Load 0x2,0x2 01da e403 | | Load 0x2,0x3 01db 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 01dc 00db | | Load_Top At_Offset_3 01dd 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 01de e002 | | Load 0x0,0x2 01df 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01e0 e5fd | | Load 0x2,-0x3 01e1 4800 |H | Short_Literal 0x0 01e2 e404 | | Load 0x2,0x4 01e3 e005 | | Load 0x0,0x5 01e4 1811 | | Execute Package,Field_Execute,Field_Number 0x11 01e5 c402 | | Store 0x2,0x2 01e6 8406 | | Call 0x2,0x6 01e7 0831 | 1 | Execute_Immediate Raise,0x31 01e8 TRAP_0170: 01e8 e002 | | Load 0x0,0x2 01e9 1b17 | | Execute Package,Field_Read,Field_Number 0x17 01ea 010f | | Execute Exception,Equal 01eb 6806 |h | Jump_Zero 0x1f2 01ec e002 | | Load 0x0,0x2 01ed 181b | | Execute Package,Field_Execute,Field_Number 0x1b 01ee e403 | | Load 0x2,0x3 01ef 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 01f0 e403 | | Load 0x2,0x3 01f1 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 01f2 0092 05aa | | Action Push_String_Extended,0x5aa ; "Demotion_Effects" 01f4 e004 | | Load 0x0,0x4 01f5 1810 | | Execute Package,Field_Execute,Field_Number 0x10 01f6 e403 | | Load 0x2,0x3 01f7 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 01f8 e403 | | Load 0x2,0x3 01f9 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 01fa 0000 0000 | | .BLANK 0000[0x6] 0200 ; -------------------------------------------------------------------------------------- 0200 ; SUBPROGRAM 0200 ; -------------------------------------------------------------------------------------- 0200 0221 | ! | .CONST 0x0221 ; Address of begin 0201 0289 | | .CONST 0x0289 ; Address of exception handler 0202 0009 | | .CONST 0x0009 ; Number of locals 0203 INIT_0200: 0203 e005 | | Load 0x0,0x5 0204 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0205 e002 | | Load 0x0,0x2 0206 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0207 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0208 e006 | | Load 0x0,0x6 0209 1b62 | b | Execute Package,Field_Read,Field_Number 0x62 020a 0322 | " | Declare_Variable Record 020b e5fe | | Load 0x2,-0x2 020c e006 | | Load 0x0,0x6 020d 1866 | f | Execute Package,Field_Execute,Field_Number 0x66 020e 00d9 | | Load_Top At_Offset_1 020f 017d | } | Execute Record,Structure_Write 0210 e001 | | Load 0x0,0x1 0211 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0212 02c7 | | Declare_Variable Any 0213 00d8 | | Load_Top At_Offset_0 0214 1c00 | | Execute_Immediate Run_Utility,0x0 0215 e001 | | Load 0x0,0x1 0216 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 0217 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0218 02c7 | | Declare_Variable Any 0219 00d8 | | Load_Top At_Offset_0 021a 1c00 | | Execute_Immediate Run_Utility,0x0 021b e001 | | Load 0x0,0x1 021c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 021d 029f 0543 | C| Declare_Subprogram INIT_0540,For_Call 021f 029f 0553 | S| Declare_Subprogram INIT_0550,For_Call 0221 BODY_0200: 0221 e5fd | | Load 0x2,-0x3 0222 0092 05ab | | Action Push_String_Extended,0x5ab ; "Rcf_Compilation.Promote" 0224 e004 | | Load 0x0,0x4 0225 180e | | Execute Package,Field_Execute,Field_Number 0xe 0226 e002 | | Load 0x0,0x2 0227 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0228 e005 | | Load 0x0,0x5 0229 1b0d | | Execute Package,Field_Read,Field_Number 0xd 022a e5fd | | Load 0x2,-0x3 022b e005 | | Load 0x0,0x5 022c 1810 | | Execute Package,Field_Execute,Field_Number 0x10 022d c402 | | Store 0x2,0x2 022e c403 | | Store 0x2,0x3 022f e403 | | Load 0x2,0x3 0230 6803 |h | Jump_Zero 0x234 0231 e403 | | Load 0x2,0x3 0232 a5fc | | Store_Unchecked 0x2,-0x4 0233 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0234 e5fd | | Load 0x2,-0x3 0235 4801 |H | Short_Literal 0x1 0236 e5ff | | Load 0x2,-0x1 0237 e007 | | Load 0x0,0x7 0238 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0239 c405 | | Store 0x2,0x5 023a e402 | | Load 0x2,0x2 023b e005 | | Load 0x0,0x5 023c 180f | | Execute Package,Field_Execute,Field_Number 0xf 023d 681c |h | Jump_Zero 0x25a 023e e002 | | Load 0x0,0x2 023f 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0240 e005 | | Load 0x0,0x5 0241 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0242 e5fd | | Load 0x2,-0x3 0243 4800 |H | Short_Literal 0x0 0244 4800 |H | Short_Literal 0x0 0245 4801 |H | Short_Literal 0x1 0246 e404 | | Load 0x2,0x4 0247 e405 | | Load 0x2,0x5 0248 e005 | | Load 0x0,0x5 0249 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 024a c402 | | Store 0x2,0x2 024b c403 | | Store 0x2,0x3 024c e403 | | Load 0x2,0x3 024d 6803 |h | Jump_Zero 0x251 024e e403 | | Load 0x2,0x3 024f a5fc | | Store_Unchecked 0x2,-0x4 0250 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0251 e002 | | Load 0x0,0x2 0252 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0253 e5fd | | Load 0x2,-0x3 0254 4801 |H | Short_Literal 0x1 0255 e402 | | Load 0x2,0x2 0256 e005 | | Load 0x0,0x5 0257 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0258 c403 | | Store 0x2,0x3 0259 781e |x | Jump 0x278 025a e5fd | | Load 0x2,-0x3 025b e404 | | Load 0x2,0x4 025c e405 | | Load 0x2,0x5 025d e402 | | Load 0x2,0x2 025e e005 | | Load 0x0,0x5 025f 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 0260 7017 |p | Jump_Nonzero 0x278 0261 e002 | | Load 0x0,0x2 0262 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0263 e5fd | | Load 0x2,-0x3 0264 e404 | | Load 0x2,0x4 0265 e405 | | Load 0x2,0x5 0266 e402 | | Load 0x2,0x2 0267 e003 | | Load 0x0,0x3 0268 1b19 | | Execute Package,Field_Read,Field_Number 0x19 0269 186b | k | Execute Package,Field_Execute,Field_Number 0x6b 026a c403 | | Store 0x2,0x3 026b e403 | | Load 0x2,0x3 026c 6803 |h | Jump_Zero 0x270 026d e403 | | Load 0x2,0x3 026e a5fc | | Store_Unchecked 0x2,-0x4 026f 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0270 e002 | | Load 0x0,0x2 0271 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0272 e5fd | | Load 0x2,-0x3 0273 4801 |H | Short_Literal 0x1 0274 e402 | | Load 0x2,0x2 0275 e005 | | Load 0x0,0x5 0276 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0277 c403 | | Store 0x2,0x3 0278 e002 | | Load 0x0,0x2 0279 1b0d | | Execute Package,Field_Read,Field_Number 0xd 027a e5fd | | Load 0x2,-0x3 027b e404 | | Load 0x2,0x4 027c e5ff | | Load 0x2,-0x1 027d e402 | | Load 0x2,0x2 027e e003 | | Load 0x0,0x3 027f 1b18 | | Execute Package,Field_Read,Field_Number 0x18 0280 184a | J | Execute Package,Field_Execute,Field_Number 0x4a 0281 c5fc | | Store 0x2,-0x4 0282 e002 | | Load 0x0,0x2 0283 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0284 e5fd | | Load 0x2,-0x3 0285 e005 | | Load 0x0,0x5 0286 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0287 c403 | | Store 0x2,0x3 0288 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0289 TRAP_0200: 0289 e002 | | Load 0x0,0x2 028a 1b17 | | Execute Package,Field_Read,Field_Number 0x17 028b 010f | | Execute Exception,Equal 028c 6805 |h | Jump_Zero 0x292 028d e002 | | Load 0x0,0x2 028e 181b | | Execute Package,Field_Execute,Field_Number 0x1b 028f a5fc | | Store_Unchecked 0x2,-0x4 0290 8408 | | Call 0x2,0x8 0291 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0292 8409 | | Call 0x2,0x9 0293 0092 05ac | | Action Push_String_Extended,0x5ac ; "Promote" 0295 e004 | | Load 0x0,0x4 0296 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0297 a5fc | | Store_Unchecked 0x2,-0x4 0298 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0299 0000 0000 | | .BLANK 0000[0x7] 02a0 ; -------------------------------------------------------------------------------------- 02a0 ; SUBPROGRAM 02a0 ; -------------------------------------------------------------------------------------- 02a0 02b4 | | .CONST 0x02b4 ; Address of begin 02a1 02c4 | | .CONST 0x02c4 ; Address of exception handler 02a2 0006 | | .CONST 0x0006 ; Number of locals 02a3 INIT_02a0: 02a3 e005 | | Load 0x0,0x5 02a4 1b0d | | Execute Package,Field_Read,Field_Number 0xd 02a5 e002 | | Load 0x0,0x2 02a6 1b0d | | Execute Package,Field_Read,Field_Number 0xd 02a7 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 02a8 e006 | | Load 0x0,0x6 02a9 1b62 | b | Execute Package,Field_Read,Field_Number 0x62 02aa 0322 | " | Declare_Variable Record 02ab e5fe | | Load 0x2,-0x2 02ac e006 | | Load 0x0,0x6 02ad 1866 | f | Execute Package,Field_Execute,Field_Number 0x66 02ae 00d9 | | Load_Top At_Offset_1 02af 017d | } | Execute Record,Structure_Write 02b0 029f 0563 | c| Declare_Subprogram INIT_0560,For_Call 02b2 029f 0573 | s| Declare_Subprogram INIT_0570,For_Call 02b4 BODY_02a0: 02b4 e5fd | | Load 0x2,-0x3 02b5 0092 05ad | | Action Push_String_Extended,0x5ad ; "Rcf_Compilation.Demote" 02b7 e004 | | Load 0x0,0x4 02b8 180e | | Execute Package,Field_Execute,Field_Number 0xe 02b9 e002 | | Load 0x0,0x2 02ba 1b0d | | Execute Package,Field_Read,Field_Number 0xd 02bb e5fd | | Load 0x2,-0x3 02bc e404 | | Load 0x2,0x4 02bd e5ff | | Load 0x2,-0x1 02be e402 | | Load 0x2,0x2 02bf e003 | | Load 0x0,0x3 02c0 1b18 | | Execute Package,Field_Read,Field_Number 0x18 02c1 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 02c2 c5fc | | Store 0x2,-0x4 02c3 4504 |E | Exit_Suprogram New_Top_Offset 0x4 02c4 TRAP_02a0: 02c4 e002 | | Load 0x0,0x2 02c5 1b17 | | Execute Package,Field_Read,Field_Number 0x17 02c6 010f | | Execute Exception,Equal 02c7 6805 |h | Jump_Zero 0x2cd 02c8 e002 | | Load 0x0,0x2 02c9 181b | | Execute Package,Field_Execute,Field_Number 0x1b 02ca a5fc | | Store_Unchecked 0x2,-0x4 02cb 8405 | | Call 0x2,0x5 02cc 4504 |E | Exit_Suprogram New_Top_Offset 0x4 02cd 8406 | | Call 0x2,0x6 02ce 0092 05ae | | Action Push_String_Extended,0x5ae ; "Demote" 02d0 e004 | | Load 0x0,0x4 02d1 1810 | | Execute Package,Field_Execute,Field_Number 0x10 02d2 a5fc | | Store_Unchecked 0x2,-0x4 02d3 4504 |E | Exit_Suprogram New_Top_Offset 0x4 02d4 0000 0000 | | .BLANK 0000[0x4] 02d8 ; -------------------------------------------------------------------------------------- 02d8 ; SUBPROGRAM 02d8 ; -------------------------------------------------------------------------------------- 02d8 02e8 | | .CONST 0x02e8 ; Address of begin 02d9 031f | | .CONST 0x031f ; Address of exception handler 02da 0004 | | .CONST 0x0004 ; Number of locals 02db INIT_02d8: 02db e002 | | Load 0x0,0x2 02dc 1b0d | | Execute Package,Field_Read,Field_Number 0xd 02dd 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 02de e005 | | Load 0x0,0x5 02df 1b0d | | Execute Package,Field_Read,Field_Number 0xd 02e0 e006 | | Load 0x0,0x6 02e1 1b62 | b | Execute Package,Field_Read,Field_Number 0x62 02e2 0322 | " | Declare_Variable Record 02e3 e5fd | | Load 0x2,-0x3 02e4 e006 | | Load 0x0,0x6 02e5 1866 | f | Execute Package,Field_Execute,Field_Number 0x66 02e6 00d9 | | Load_Top At_Offset_1 02e7 017d | } | Execute Record,Structure_Write 02e8 BODY_02d8: 02e8 e5fb | | Load 0x2,-0x5 02e9 0092 05af | | Action Push_String_Extended,0x5af ; "Rcf_Compilation.Link" 02eb e004 | | Load 0x0,0x4 02ec 180e | | Execute Package,Field_Execute,Field_Number 0xe 02ed e002 | | Load 0x0,0x2 02ee 1b0d | | Execute Package,Field_Read,Field_Number 0xd 02ef 00da | | Load_Top At_Offset_2 02f0 e5fb | | Load 0x2,-0x5 02f1 00db | | Load_Top At_Offset_3 02f2 e5ff | | Load 0x2,-0x1 02f3 e005 | | Load 0x0,0x5 02f4 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 02f5 003b | ; | Store_Top Access,At_Offset_3 02f6 005b | [ | Store_Top Discrete,At_Offset_3 02f7 00da | | Load_Top At_Offset_2 02f8 6803 |h | Jump_Zero 0x2fc 02f9 00da | | Load_Top At_Offset_2 02fa a5fa | | Store_Unchecked 0x2,-0x6 02fb 4506 |E | Exit_Suprogram New_Top_Offset 0x6 02fc e002 | | Load 0x0,0x2 02fd 1b0d | | Execute Package,Field_Read,Field_Number 0xd 02fe e5fb | | Load 0x2,-0x5 02ff 00da | | Load_Top At_Offset_2 0300 e5fc | | Load 0x2,-0x4 0301 e5fe | | Load 0x2,-0x2 0302 e5ff | | Load 0x2,-0x1 0303 e403 | | Load 0x2,0x3 0304 e003 | | Load 0x0,0x3 0305 1b18 | | Execute Package,Field_Read,Field_Number 0x18 0306 1849 | I | Execute Package,Field_Execute,Field_Number 0x49 0307 005b | [ | Store_Top Discrete,At_Offset_3 0308 00da | | Load_Top At_Offset_2 0309 a5fa | | Store_Unchecked 0x2,-0x6 030a 00da | | Load_Top At_Offset_2 030b 6809 |h | Jump_Zero 0x315 030c e002 | | Load 0x0,0x2 030d 1b0d | | Execute Package,Field_Read,Field_Number 0xd 030e 00da | | Load_Top At_Offset_2 030f e5fb | | Load 0x2,-0x5 0310 e005 | | Load 0x0,0x5 0311 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0312 003b | ; | Store_Top Access,At_Offset_3 0313 005b | [ | Store_Top Discrete,At_Offset_3 0314 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0315 e002 | | Load 0x0,0x2 0316 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0317 00da | | Load_Top At_Offset_2 0318 e5fb | | Load 0x2,-0x5 0319 e003 | | Load 0x0,0x3 031a 1b19 | | Execute Package,Field_Read,Field_Number 0x19 031b 1819 | | Execute Package,Field_Execute,Field_Number 0x19 031c 003b | ; | Store_Top Access,At_Offset_3 031d 005b | [ | Store_Top Discrete,At_Offset_3 031e 4506 |E | Exit_Suprogram New_Top_Offset 0x6 031f TRAP_02d8: 031f e002 | | Load 0x0,0x2 0320 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0321 010f | | Execute Exception,Equal 0322 6810 |h | Jump_Zero 0x333 0323 e002 | | Load 0x0,0x2 0324 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0325 a5fa | | Store_Unchecked 0x2,-0x6 0326 00da | | Load_Top At_Offset_2 0327 e005 | | Load 0x0,0x5 0328 180f | | Execute Package,Field_Execute,Field_Number 0xf 0329 7008 |p | Jump_Nonzero 0x332 032a e002 | | Load 0x0,0x2 032b 1b0d | | Execute Package,Field_Read,Field_Number 0xd 032c 00db | | Load_Top At_Offset_3 032d e5fb | | Load 0x2,-0x5 032e e005 | | Load 0x0,0x5 032f 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0330 c403 | | Store 0x2,0x3 0331 c402 | | Store 0x2,0x2 0332 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0333 0092 05b0 | | Action Push_String_Extended,0x5b0 ; "Link" 0335 e004 | | Load 0x0,0x4 0336 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0337 a5fa | | Store_Unchecked 0x2,-0x6 0338 00da | | Load_Top At_Offset_2 0339 e005 | | Load 0x0,0x5 033a 180f | | Execute Package,Field_Execute,Field_Number 0xf 033b 7008 |p | Jump_Nonzero 0x344 033c e002 | | Load 0x0,0x2 033d 1b0d | | Execute Package,Field_Read,Field_Number 0xd 033e 00db | | Load_Top At_Offset_3 033f e5fb | | Load 0x2,-0x5 0340 e005 | | Load 0x0,0x5 0341 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0342 c403 | | Store 0x2,0x3 0343 c402 | | Store 0x2,0x2 0344 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0345 0000 0000 | | .XXX[0x3] 0347 0000 | | 0348 ; -------------------------------------------------------------------------------------- 0348 ; SUBPROGRAM 0348 ; -------------------------------------------------------------------------------------- 0348 0358 | X | .CONST 0x0358 ; Address of begin 0349 0390 | | .CONST 0x0390 ; Address of exception handler 034a 0004 | | .CONST 0x0004 ; Number of locals 034b INIT_0348: 034b e006 | | Load 0x0,0x6 034c 1b62 | b | Execute Package,Field_Read,Field_Number 0x62 034d 0322 | " | Declare_Variable Record 034e e5fd | | Load 0x2,-0x3 034f e006 | | Load 0x0,0x6 0350 1866 | f | Execute Package,Field_Execute,Field_Number 0x66 0351 00d9 | | Load_Top At_Offset_1 0352 017d | } | Execute Record,Structure_Write 0353 e005 | | Load 0x0,0x5 0354 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0355 e002 | | Load 0x0,0x2 0356 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0357 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0358 BODY_0348: 0358 4800 |H | Short_Literal 0x0 0359 a5fb | | Store_Unchecked 0x2,-0x5 035a e002 | | Load 0x0,0x2 035b 1b0d | | Execute Package,Field_Read,Field_Number 0xd 035c e005 | | Load 0x0,0x5 035d 1b0d | | Execute Package,Field_Read,Field_Number 0xd 035e e5fc | | Load 0x2,-0x4 035f 4800 |H | Short_Literal 0x0 0360 4800 |H | Short_Literal 0x0 0361 4801 |H | Short_Literal 0x1 0362 e402 | | Load 0x2,0x2 0363 e5fe | | Load 0x2,-0x2 0364 e005 | | Load 0x0,0x5 0365 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 0366 003b | ; | Store_Top Access,At_Offset_3 0367 0059 | Y | Store_Top Discrete,At_Offset_1 0368 00d8 | | Load_Top At_Offset_0 0369 6803 |h | Jump_Zero 0x36d 036a 00d8 | | Load_Top At_Offset_0 036b a5fb | | Store_Unchecked 0x2,-0x5 036c 4505 |E | Exit_Suprogram New_Top_Offset 0x5 036d 00d9 | | Load_Top At_Offset_1 036e e005 | | Load 0x0,0x5 036f 180f | | Execute Package,Field_Execute,Field_Number 0xf 0370 6807 |h | Jump_Zero 0x378 0371 e008 | | Load 0x0,0x8 0372 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0373 602c |`, | Indirect_Literal Discrete,0x3a0,{0x00000000, 0x00008147} 0374 e002 | | Load 0x0,0x2 0375 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0376 a5fb | | Store_Unchecked 0x2,-0x5 0377 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0378 e5ff | | Load 0x2,-0x1 0379 e007 | | Load 0x0,0x7 037a 1814 | | Execute Package,Field_Execute,Field_Number 0x14 037b 700b |p | Jump_Nonzero 0x387 037c e002 | | Load 0x0,0x2 037d 1b0d | | Execute Package,Field_Read,Field_Number 0xd 037e e5fc | | Load 0x2,-0x4 037f e402 | | Load 0x2,0x2 0380 e403 | | Load 0x2,0x3 0381 e5fe | | Load 0x2,-0x2 0382 e5ff | | Load 0x2,-0x1 0383 e003 | | Load 0x0,0x3 0384 1b18 | | Execute Package,Field_Read,Field_Number 0x18 0385 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f 0386 c5fb | | Store 0x2,-0x5 0387 e002 | | Load 0x0,0x2 0388 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0389 00da | | Load_Top At_Offset_2 038a e5fc | | Load 0x2,-0x4 038b e005 | | Load 0x0,0x5 038c 1816 | | Execute Package,Field_Execute,Field_Number 0x16 038d 003b | ; | Store_Top Access,At_Offset_3 038e 0059 | Y | Store_Top Discrete,At_Offset_1 038f 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0390 TRAP_0348: 0390 e002 | | Load 0x0,0x2 0391 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0392 010f | | Execute Exception,Equal 0393 6804 |h | Jump_Zero 0x398 0394 e002 | | Load 0x0,0x2 0395 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0396 a5fb | | Store_Unchecked 0x2,-0x5 0397 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0398 0092 05b1 | | Action Push_String_Extended,0x5b1 ; "Refresh_Suppliers" 039a e004 | | Load 0x0,0x4 039b 1810 | | Execute Package,Field_Execute,Field_Number 0x10 039c a5fb | | Store_Unchecked 0x2,-0x5 039d 4505 |E | Exit_Suprogram New_Top_Offset 0x5 039e 0000 0000 | | .XXX[0x2] 03a0 0000 0000 | | .LITERAL {0x00000000, 0x00008147} 03a4 0000 0000 | | .BLANK 0000[0x4] 03a8 ; -------------------------------------------------------------------------------------- 03a8 ; SUBPROGRAM 03a8 ; -------------------------------------------------------------------------------------- 03a8 03b3 | | .CONST 0x03b3 ; Address of begin 03a9 03be | | .CONST 0x03be ; Address of exception handler 03aa 0002 | | .CONST 0x0002 ; Number of locals 03ab INIT_03a8: 03ab e006 | | Load 0x0,0x6 03ac 1b62 | b | Execute Package,Field_Read,Field_Number 0x62 03ad 0322 | " | Declare_Variable Record 03ae e5fd | | Load 0x2,-0x3 03af e006 | | Load 0x0,0x6 03b0 1866 | f | Execute Package,Field_Execute,Field_Number 0x66 03b1 00d9 | | Load_Top At_Offset_1 03b2 017d | } | Execute Record,Structure_Write 03b3 BODY_03a8: 03b3 e002 | | Load 0x0,0x2 03b4 1b0d | | Execute Package,Field_Read,Field_Number 0xd 03b5 e5fc | | Load 0x2,-0x4 03b6 00da | | Load_Top At_Offset_2 03b7 e5fe | | Load 0x2,-0x2 03b8 e5ff | | Load 0x2,-0x1 03b9 e003 | | Load 0x0,0x3 03ba 1b19 | | Execute Package,Field_Read,Field_Number 0x19 03bb 186c | l | Execute Package,Field_Execute,Field_Number 0x6c 03bc c5fb | | Store 0x2,-0x5 03bd 4505 |E | Exit_Suprogram New_Top_Offset 0x5 03be TRAP_03a8: 03be e002 | | Load 0x0,0x2 03bf 1b17 | | Execute Package,Field_Read,Field_Number 0x17 03c0 010f | | Execute Exception,Equal 03c1 6804 |h | Jump_Zero 0x3c6 03c2 e002 | | Load 0x0,0x2 03c3 181b | | Execute Package,Field_Execute,Field_Number 0x1b 03c4 a5fb | | Store_Unchecked 0x2,-0x5 03c5 4505 |E | Exit_Suprogram New_Top_Offset 0x5 03c6 0092 05b2 | | Action Push_String_Extended,0x5b2 ; "Unregister_Unit" 03c8 e004 | | Load 0x0,0x4 03c9 1810 | | Execute Package,Field_Execute,Field_Number 0x10 03ca a5fb | | Store_Unchecked 0x2,-0x5 03cb 4505 |E | Exit_Suprogram New_Top_Offset 0x5 03cc 0000 0000 | | .BLANK 0000[0x4] 03d0 ; -------------------------------------------------------------------------------------- 03d0 ; SUBPROGRAM 03d0 ; -------------------------------------------------------------------------------------- 03d0 03d5 | | .CONST 0x03d5 ; Address of begin 03d1 0004 | | .CONST 0x0004 ; Address of exception handler 03d2 0002 | | .CONST 0x0002 ; Number of locals 03d3 INIT_03d0: 03d3 e009 | | Load 0x0,0x9 03d4 1b0e | | Execute Package,Field_Read,Field_Number 0xe 03d5 BODY_03d0: 03d5 00db | | Load_Top At_Offset_3 03d6 682b |h+ | Jump_Zero 0x402 03d7 00db | | Load_Top At_Offset_3 03d8 e002 | | Load 0x0,0x2 03d9 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 03da e002 | | Load 0x0,0x2 03db 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 03dc 460b |F | Jump_Case 0xc 03dd 780b |x | Jump 0x3e9 ; case 0x0 03de 780a |x | Jump 0x3e9 ; case 0x1 03df 7809 |x | Jump 0x3e9 ; case 0x2 03e0 7808 |x | Jump 0x3e9 ; case 0x3 03e1 7807 |x | Jump 0x3e9 ; case 0x4 03e2 7809 |x | Jump 0x3ec ; case 0x5 03e3 780b |x | Jump 0x3ef ; case 0x6 03e4 780d |x | Jump 0x3f2 ; case 0x7 03e5 780f |x | Jump 0x3f5 ; case 0x8 03e6 7802 |x | Jump 0x3e9 ; case 0x9 03e7 7801 |x | Jump 0x3e9 ; case 0xa 03e8 7800 |x | Jump 0x3e9 ; case 0xb 03e9 4800 |H | Short_Literal 0x0 03ea 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 03eb 780b |x | Jump 0x3f7 03ec 4803 |H | Short_Literal 0x3 03ed 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 03ee 7808 |x | Jump 0x3f7 03ef 4801 |H | Short_Literal 0x1 03f0 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 03f1 7805 |x | Jump 0x3f7 03f2 4803 |H | Short_Literal 0x3 03f3 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 03f4 7802 |x | Jump 0x3f7 03f5 4803 |H | Short_Literal 0x3 03f6 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 03f7 e5fe | | Load 0x2,-0x2 03f8 00d9 | | Load_Top At_Offset_1 03f9 e5ff | | Load 0x2,-0x1 03fa e002 | | Load 0x0,0x2 03fb 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 03fc 0092 05b3 | | Action Push_String_Extended,0x5b3 ; "TBU error" 03fe e009 | | Load 0x0,0x9 03ff 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0400 c5fe | | Store 0x2,-0x2 0401 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0402 e5fe | | Load 0x2,-0x2 0403 e009 | | Load 0x0,0x9 0404 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0405 c5fe | | Store 0x2,-0x2 0406 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0407 0000 | | .XXX[0x1] 0408 ; -------------------------------------------------------------------------------------- 0408 ; SUBPROGRAM 0408 ; -------------------------------------------------------------------------------------- 0408 0418 | | .CONST 0x0418 ; Address of begin 0409 0450 | P | .CONST 0x0450 ; Address of exception handler 040a 0004 | | .CONST 0x0004 ; Number of locals 040b INIT_0408: 040b e006 | | Load 0x0,0x6 040c 1b62 | b | Execute Package,Field_Read,Field_Number 0x62 040d 0322 | " | Declare_Variable Record 040e e5fd | | Load 0x2,-0x3 040f e006 | | Load 0x0,0x6 0410 1866 | f | Execute Package,Field_Execute,Field_Number 0x66 0411 00d9 | | Load_Top At_Offset_1 0412 017d | } | Execute Record,Structure_Write 0413 e005 | | Load 0x0,0x5 0414 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0415 e002 | | Load 0x0,0x2 0416 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0417 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0418 BODY_0408: 0418 4800 |H | Short_Literal 0x0 0419 a5fb | | Store_Unchecked 0x2,-0x5 041a e002 | | Load 0x0,0x2 041b 1b0d | | Execute Package,Field_Read,Field_Number 0xd 041c e005 | | Load 0x0,0x5 041d 1b0d | | Execute Package,Field_Read,Field_Number 0xd 041e e5fc | | Load 0x2,-0x4 041f 4800 |H | Short_Literal 0x0 0420 4800 |H | Short_Literal 0x0 0421 4801 |H | Short_Literal 0x1 0422 e402 | | Load 0x2,0x2 0423 e5fe | | Load 0x2,-0x2 0424 e005 | | Load 0x0,0x5 0425 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 0426 003b | ; | Store_Top Access,At_Offset_3 0427 0059 | Y | Store_Top Discrete,At_Offset_1 0428 00d8 | | Load_Top At_Offset_0 0429 6803 |h | Jump_Zero 0x42d 042a 00d8 | | Load_Top At_Offset_0 042b a5fb | | Store_Unchecked 0x2,-0x5 042c 4505 |E | Exit_Suprogram New_Top_Offset 0x5 042d 00d9 | | Load_Top At_Offset_1 042e e005 | | Load 0x0,0x5 042f 180f | | Execute Package,Field_Execute,Field_Number 0xf 0430 6807 |h | Jump_Zero 0x438 0431 e008 | | Load 0x0,0x8 0432 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0433 602c |`, | Indirect_Literal Discrete,0x460,{0x00000000, 0x00008147} 0434 e002 | | Load 0x0,0x2 0435 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0436 a5fb | | Store_Unchecked 0x2,-0x5 0437 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0438 e5ff | | Load 0x2,-0x1 0439 e007 | | Load 0x0,0x7 043a 1814 | | Execute Package,Field_Execute,Field_Number 0x14 043b 700b |p | Jump_Nonzero 0x447 043c e002 | | Load 0x0,0x2 043d 1b0d | | Execute Package,Field_Read,Field_Number 0xd 043e e5fc | | Load 0x2,-0x4 043f e402 | | Load 0x2,0x2 0440 e403 | | Load 0x2,0x3 0441 e5fe | | Load 0x2,-0x2 0442 e5ff | | Load 0x2,-0x1 0443 e003 | | Load 0x0,0x3 0444 1b18 | | Execute Package,Field_Read,Field_Number 0x18 0445 1860 | ` | Execute Package,Field_Execute,Field_Number 0x60 0446 c5fb | | Store 0x2,-0x5 0447 e002 | | Load 0x0,0x2 0448 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0449 00da | | Load_Top At_Offset_2 044a e5fc | | Load 0x2,-0x4 044b e005 | | Load 0x0,0x5 044c 1816 | | Execute Package,Field_Execute,Field_Number 0x16 044d 003b | ; | Store_Top Access,At_Offset_3 044e 0059 | Y | Store_Top Discrete,At_Offset_1 044f 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0450 TRAP_0408: 0450 e002 | | Load 0x0,0x2 0451 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0452 010f | | Execute Exception,Equal 0453 6804 |h | Jump_Zero 0x458 0454 e002 | | Load 0x0,0x2 0455 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0456 a5fb | | Store_Unchecked 0x2,-0x5 0457 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0458 0092 05b4 | | Action Push_String_Extended,0x5b4 ; "Register" 045a e004 | | Load 0x0,0x4 045b 1810 | | Execute Package,Field_Execute,Field_Number 0x10 045c a5fb | | Store_Unchecked 0x2,-0x5 045d 4505 |E | Exit_Suprogram New_Top_Offset 0x5 045e 0000 0000 | | .XXX[0x2] 0460 0000 0000 | | .LITERAL {0x00000000, 0x00008147} 0464 0000 0000 | | .BLANK 0000[0x4] 0468 ; -------------------------------------------------------------------------------------- 0468 ; SUBPROGRAM 0468 ; -------------------------------------------------------------------------------------- 0468 0470 | p | .CONST 0x0470 ; Address of begin 0469 04a5 | | .CONST 0x04a5 ; Address of exception handler 046a 0003 | | .CONST 0x0003 ; Number of locals 046b INIT_0468: 046b e005 | | Load 0x0,0x5 046c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 046d e002 | | Load 0x0,0x2 046e 1b0d | | Execute Package,Field_Read,Field_Number 0xd 046f 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0470 BODY_0468: 0470 4800 |H | Short_Literal 0x0 0471 a5fd | | Store_Unchecked 0x2,-0x3 0472 e5fe | | Load 0x2,-0x2 0473 0092 05b5 | | Action Push_String_Extended,0x5b5 ; "Rcf_Compilation.Refresh_View" 0475 e004 | | Load 0x0,0x4 0476 180e | | Execute Package,Field_Execute,Field_Number 0xe 0477 e002 | | Load 0x0,0x2 0478 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0479 e005 | | Load 0x0,0x5 047a 1b0d | | Execute Package,Field_Read,Field_Number 0xd 047b e5fe | | Load 0x2,-0x2 047c 4801 |H | Short_Literal 0x1 047d 4801 |H | Short_Literal 0x1 047e 4801 |H | Short_Literal 0x1 047f e5fe | | Load 0x2,-0x2 0480 e5ff | | Load 0x2,-0x1 0481 e007 | | Load 0x0,0x7 0482 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0483 e006 | | Load 0x0,0x6 0484 1866 | f | Execute Package,Field_Execute,Field_Number 0x66 0485 e5ff | | Load 0x2,-0x1 0486 e005 | | Load 0x0,0x5 0487 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 0488 003b | ; | Store_Top Access,At_Offset_3 0489 0059 | Y | Store_Top Discrete,At_Offset_1 048a 00d8 | | Load_Top At_Offset_0 048b 6803 |h | Jump_Zero 0x48f 048c 00d8 | | Load_Top At_Offset_0 048d a5fd | | Store_Unchecked 0x2,-0x3 048e 4503 |E | Exit_Suprogram New_Top_Offset 0x3 048f 00d9 | | Load_Top At_Offset_1 0490 e005 | | Load 0x0,0x5 0491 180f | | Execute Package,Field_Execute,Field_Number 0xf 0492 6807 |h | Jump_Zero 0x49a 0493 e008 | | Load 0x0,0x8 0494 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0495 67ca |g | Indirect_Literal Discrete,0x460,{0x00000000, 0x00008147} 0496 e002 | | Load 0x0,0x2 0497 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0498 a5fd | | Store_Unchecked 0x2,-0x3 0499 4503 |E | Exit_Suprogram New_Top_Offset 0x3 049a e002 | | Load 0x0,0x2 049b 1b0d | | Execute Package,Field_Read,Field_Number 0xd 049c 00da | | Load_Top At_Offset_2 049d e5fe | | Load 0x2,-0x2 049e e005 | | Load 0x0,0x5 049f 1816 | | Execute Package,Field_Execute,Field_Number 0x16 04a0 003b | ; | Store_Top Access,At_Offset_3 04a1 0059 | Y | Store_Top Discrete,At_Offset_1 04a2 00d8 | | Load_Top At_Offset_0 04a3 a5fd | | Store_Unchecked 0x2,-0x3 04a4 4503 |E | Exit_Suprogram New_Top_Offset 0x3 04a5 TRAP_0468: 04a5 e002 | | Load 0x0,0x2 04a6 1b17 | | Execute Package,Field_Read,Field_Number 0x17 04a7 010f | | Execute Exception,Equal 04a8 6804 |h | Jump_Zero 0x4ad 04a9 e002 | | Load 0x0,0x2 04aa 181b | | Execute Package,Field_Execute,Field_Number 0x1b 04ab a5fd | | Store_Unchecked 0x2,-0x3 04ac 4503 |E | Exit_Suprogram New_Top_Offset 0x3 04ad 0092 05b6 | | Action Push_String_Extended,0x5b6 ; "Refresh_View" 04af e004 | | Load 0x0,0x4 04b0 1810 | | Execute Package,Field_Execute,Field_Number 0x10 04b1 a5fd | | Store_Unchecked 0x2,-0x3 04b2 4503 |E | Exit_Suprogram New_Top_Offset 0x3 04b3 0000 0000 | | .BLANK 0000[0x5] 04b8 ; -------------------------------------------------------------------------------------- 04b8 ; SUBPROGRAM 04b8 ; -------------------------------------------------------------------------------------- 04b8 04bb | | .CONST 0x04bb ; Address of begin 04b9 04c2 | | .CONST 0x04c2 ; Address of exception handler 04ba 0001 | | .CONST 0x0001 ; Number of locals 04bb BODY_04b8: 04bb INIT_04b8: 04bb e002 | | Load 0x0,0x2 04bc 1b0d | | Execute Package,Field_Read,Field_Number 0xd 04bd 00db | | Load_Top At_Offset_3 04be e005 | | Load 0x0,0x5 04bf 1812 | | Execute Package,Field_Execute,Field_Number 0x12 04c0 c5fe | | Store 0x2,-0x2 04c1 4502 |E | Exit_Suprogram New_Top_Offset 0x2 04c2 TRAP_04b8: 04c2 e002 | | Load 0x0,0x2 04c3 1b17 | | Execute Package,Field_Read,Field_Number 0x17 04c4 010f | | Execute Exception,Equal 04c5 6804 |h | Jump_Zero 0x4ca 04c6 e002 | | Load 0x0,0x2 04c7 181b | | Execute Package,Field_Execute,Field_Number 0x1b 04c8 a5fe | | Store_Unchecked 0x2,-0x2 04c9 4502 |E | Exit_Suprogram New_Top_Offset 0x2 04ca 0092 05b7 | | Action Push_String_Extended,0x5b7 ; "Close_Compilation_Domain" 04cc e004 | | Load 0x0,0x4 04cd 1810 | | Execute Package,Field_Execute,Field_Number 0x10 04ce a5fe | | Store_Unchecked 0x2,-0x2 04cf 4502 |E | Exit_Suprogram New_Top_Offset 0x2 04d0 ; -------------------------------------------------------------------------------------- 04d0 ; SUBPROGRAM 04d0 ; -------------------------------------------------------------------------------------- 04d0 04e0 | | .CONST 0x04e0 ; Address of begin 04d1 0004 | | .CONST 0x0004 ; Address of exception handler 04d2 0003 | | .CONST 0x0003 ; Number of locals 04d3 INIT_04d0: 04d3 e5fd | | Load 0x2,-0x3 04d4 e408 | | Load 0x2,0x8 04d5 e5ff | | Load 0x2,-0x1 04d6 e407 | | Load 0x2,0x7 04d7 e003 | | Load 0x0,0x3 04d8 1b18 | | Execute Package,Field_Read,Field_Number 0x18 04d9 1848 | H | Execute Package,Field_Execute,Field_Number 0x48 04da 00d8 | | Load_Top At_Offset_0 04db 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 04dc e20f | | Load 0x1,0xf 04dd 1c08 | | Execute_Immediate Run_Utility,0x8 04de 00d8 | | Load_Top At_Offset_0 04df 1c00 | | Execute_Immediate Run_Utility,0x0 04e0 BODY_04d0: 04e0 00d9 | | Load_Top At_Offset_1 04e1 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 04e2 6807 |h | Jump_Zero 0x4ea 04e3 00d9 | | Load_Top At_Offset_1 04e4 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 04e5 e406 | | Load 0x2,0x6 04e6 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 04e7 e406 | | Load 0x2,0x6 04e8 00cb | | Action Pop_Block_With_Result 04e9 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 04ea 4800 |H | Short_Literal 0x0 04eb 00d9 | | Load_Top At_Offset_1 04ec 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 04ed 00cf | | Action Mark_Auxiliary 04ee 00da | | Load_Top At_Offset_2 04ef 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 04f0 01dc | | Execute Vector,Last 04f1 4801 |H | Short_Literal 0x1 04f2 0263 | c | Execute Discrete,Above_Bound 04f3 700a |p | Jump_Nonzero 0x4fe 04f4 00d8 | | Load_Top At_Offset_0 04f5 e602 | | Load 0x3,0x2 04f6 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 04f7 01d7 | | Execute Vector,Field_Read 04f8 00d9 | | Load_Top At_Offset_1 04f9 e603 | | Load 0x3,0x3 04fa 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 04fb 01d6 | | Execute Vector,Field_Write 04fc 00c8 | | Action Pop_Auxiliary_Range 04fd 3ff6 |? | Loop_Increasing 0x4f4 04fe 00ce | | Action Pop_Auxiliary 04ff 00d8 | | Load_Top At_Offset_0 0500 00cb | | Action Pop_Block_With_Result 0501 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0502 0000 0000 | | .BLANK 0000[0x6] 0508 ; -------------------------------------------------------------------------------------- 0508 ; SUBPROGRAM 0508 ; -------------------------------------------------------------------------------------- 0508 0518 | | .CONST 0x0518 ; Address of begin 0509 0004 | | .CONST 0x0004 ; Address of exception handler 050a 0003 | | .CONST 0x0003 ; Number of locals 050b INIT_0508: 050b e5fd | | Load 0x2,-0x3 050c e405 | | Load 0x2,0x5 050d e5ff | | Load 0x2,-0x1 050e e404 | | Load 0x2,0x4 050f e003 | | Load 0x0,0x3 0510 1b18 | | Execute Package,Field_Read,Field_Number 0x18 0511 1847 | G | Execute Package,Field_Execute,Field_Number 0x47 0512 00d8 | | Load_Top At_Offset_0 0513 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 0514 e20f | | Load 0x1,0xf 0515 1c08 | | Execute_Immediate Run_Utility,0x8 0516 00d8 | | Load_Top At_Offset_0 0517 1c00 | | Execute_Immediate Run_Utility,0x0 0518 BODY_0508: 0518 00d9 | | Load_Top At_Offset_1 0519 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 051a 6807 |h | Jump_Zero 0x522 051b 00d9 | | Load_Top At_Offset_1 051c 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 051d e403 | | Load 0x2,0x3 051e 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 051f e403 | | Load 0x2,0x3 0520 00cb | | Action Pop_Block_With_Result 0521 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0522 4800 |H | Short_Literal 0x0 0523 00d9 | | Load_Top At_Offset_1 0524 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 0525 00cf | | Action Mark_Auxiliary 0526 00da | | Load_Top At_Offset_2 0527 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0528 01dc | | Execute Vector,Last 0529 4801 |H | Short_Literal 0x1 052a 0263 | c | Execute Discrete,Above_Bound 052b 700a |p | Jump_Nonzero 0x536 052c 00d8 | | Load_Top At_Offset_0 052d e602 | | Load 0x3,0x2 052e 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 052f 01d7 | | Execute Vector,Field_Read 0530 00d9 | | Load_Top At_Offset_1 0531 e603 | | Load 0x3,0x3 0532 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0533 01d6 | | Execute Vector,Field_Write 0534 00c8 | | Action Pop_Auxiliary_Range 0535 3ff6 |? | Loop_Increasing 0x52c 0536 00ce | | Action Pop_Auxiliary 0537 00d8 | | Load_Top At_Offset_0 0538 00cb | | Action Pop_Block_With_Result 0539 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 053a 0000 0000 | | .BLANK 0000[0x6] 0540 ; -------------------------------------------------------------------------------------- 0540 ; SUBPROGRAM 0540 ; -------------------------------------------------------------------------------------- 0540 0543 | C | .CONST 0x0543 ; Address of begin 0541 054c | L | .CONST 0x054c ; Address of exception handler 0542 0001 | | .CONST 0x0001 ; Number of locals 0543 BODY_0540: 0543 INIT_0540: 0543 e002 | | Load 0x0,0x2 0544 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0545 e402 | | Load 0x2,0x2 0546 e5fd | | Load 0x2,-0x3 0547 e005 | | Load 0x0,0x5 0548 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0549 c402 | | Store 0x2,0x2 054a c403 | | Store 0x2,0x3 054b 4501 |E | Exit_Suprogram New_Top_Offset 0x1 054c TRAP_0540: 054c 0007 | | Action Break_Optional 054d 4501 |E | Exit_Suprogram New_Top_Offset 0x1 054e 0000 0000 | | .XXX[0x2] 0550 ; -------------------------------------------------------------------------------------- 0550 ; SUBPROGRAM 0550 ; -------------------------------------------------------------------------------------- 0550 0553 | S | .CONST 0x0553 ; Address of begin 0551 055c | \ | .CONST 0x055c ; Address of exception handler 0552 0001 | | .CONST 0x0001 ; Number of locals 0553 BODY_0550: 0553 INIT_0550: 0553 e002 | | Load 0x0,0x2 0554 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0555 e402 | | Load 0x2,0x2 0556 e5fd | | Load 0x2,-0x3 0557 e005 | | Load 0x0,0x5 0558 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0559 c402 | | Store 0x2,0x2 055a c403 | | Store 0x2,0x3 055b 4501 |E | Exit_Suprogram New_Top_Offset 0x1 055c TRAP_0550: 055c 0007 | | Action Break_Optional 055d 4501 |E | Exit_Suprogram New_Top_Offset 0x1 055e 0000 0000 | | .XXX[0x2] 0560 ; -------------------------------------------------------------------------------------- 0560 ; SUBPROGRAM 0560 ; -------------------------------------------------------------------------------------- 0560 0563 | c | .CONST 0x0563 ; Address of begin 0561 056c | l | .CONST 0x056c ; Address of exception handler 0562 0001 | | .CONST 0x0001 ; Number of locals 0563 BODY_0560: 0563 INIT_0560: 0563 e002 | | Load 0x0,0x2 0564 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0565 e402 | | Load 0x2,0x2 0566 e5fd | | Load 0x2,-0x3 0567 e005 | | Load 0x0,0x5 0568 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0569 c402 | | Store 0x2,0x2 056a c403 | | Store 0x2,0x3 056b 4501 |E | Exit_Suprogram New_Top_Offset 0x1 056c TRAP_0560: 056c 0007 | | Action Break_Optional 056d 4501 |E | Exit_Suprogram New_Top_Offset 0x1 056e 0000 0000 | | .XXX[0x2] 0570 ; -------------------------------------------------------------------------------------- 0570 ; SUBPROGRAM 0570 ; -------------------------------------------------------------------------------------- 0570 0573 | s | .CONST 0x0573 ; Address of begin 0571 057c | | | .CONST 0x057c ; Address of exception handler 0572 0001 | | .CONST 0x0001 ; Number of locals 0573 BODY_0570: 0573 INIT_0570: 0573 e002 | | Load 0x0,0x2 0574 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0575 e402 | | Load 0x2,0x2 0576 e5fd | | Load 0x2,-0x3 0577 e005 | | Load 0x0,0x5 0578 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0579 c402 | | Store 0x2,0x2 057a c403 | | Store 0x2,0x3 057b 4501 |E | Exit_Suprogram New_Top_Offset 0x1 057c TRAP_0570: 057c 0007 | | Action Break_Optional 057d 4501 |E | Exit_Suprogram New_Top_Offset 0x1 057e 0000 0000 | | .XXX[0x2] 0580 ; -------------------------------------------------------------------------------------- 0580 ; SUBPROGRAM 0580 ; -------------------------------------------------------------------------------------- 0580 0583 | | .CONST 0x0583 ; Address of begin 0581 0004 | | .CONST 0x0004 ; Address of exception handler 0582 0001 | | .CONST 0x0001 ; Number of locals 0583 BODY_0580: 0583 INIT_0580: 0583 4608 |F | Jump_Case 0x9 0584 7808 |x | Jump 0x58d ; case 0x0 0585 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 0586 781d |x | Jump 0x5a4 ; case 0x2 0587 781c |x | Jump 0x5a4 ; case 0x3 0588 781b |x | Jump 0x5a4 ; case 0x4 0589 781a |x | Jump 0x5a4 ; case 0x5 058a 7819 |x | Jump 0x5a4 ; case 0x6 058b 7805 |x | Jump 0x591 ; case 0x7 058c 780d |x | Jump 0x59a ; case 0x8 058d 00da | | Load_Top At_Offset_2 058e 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 058f 1c00 | | Execute_Immediate Run_Utility,0x0 0590 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0591 00db | | Load_Top At_Offset_3 0592 4801 |H | Short_Literal 0x1 0593 e5fe | | Load 0x2,-0x2 0594 e20e | | Load 0x1,0xe 0595 035b | [ | Declare_Type Array,Constrained 0596 4801 |H | Short_Literal 0x1 0597 e5ff | | Load 0x2,-0x1 0598 031b | | Declare_Type Variant_Record,Constrained 0599 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 059a 00db | | Load_Top At_Offset_3 059b 00db | | Load_Top At_Offset_3 059c 02fc | | Declare_Variable Variant_Record,With_Constraint 059d 4801 |H | Short_Literal 0x1 059e e5fe | | Load 0x2,-0x2 059f e20e | | Load 0x1,0xe 05a0 0334 | 4 | Declare_Variable Array,With_Constraint 05a1 2d03 |- | Execute Variant_Record,Field_Append,Fixed,Indirect,Field_Number 0x3 05a2 016a | j | QQ_execute Variant_Record,XXX 05a3 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 05a4 0869 | i | Execute_Immediate Raise,0x69 05a5 ; -------------------------------------------------------------------------------------- 05a5 ; STRING TABLE 05a5 ; -------------------------------------------------------------------------------------- 05a5 0028 | ( | .STRTAB 0x0028->0x05b9 ; "Convert" 05a6 002d | - | .STRTAB 0x002d->0x05bc ; "Rcf_Compilation.Promotion_Prerequisites" 05a7 0052 | R | .STRTAB 0x0052->0x05d0 ; "Promotion_Prerequisites" 05a8 0067 | g | .STRTAB 0x0067->0x05db ; "Rcf_Compilation.Demotion_Effects" 05a9 0085 | | .STRTAB 0x0085->0x05eb ; "Valid Supplier Domain => " 05aa 009c | | .STRTAB 0x009c->0x05f8 ; "Demotion_Effects" 05ab 00aa | | .STRTAB 0x00aa->0x0600 ; "Rcf_Compilation.Promote" 05ac 00bf | | .STRTAB 0x00bf->0x060b ; "Promote" 05ad 00c4 | | .STRTAB 0x00c4->0x060f ; "Rcf_Compilation.Demote" 05ae 00d8 | | .STRTAB 0x00d8->0x061a ; "Demote" 05af 00dc | | .STRTAB 0x00dc->0x061d ; "Rcf_Compilation.Link" 05b0 00ee | | .STRTAB 0x00ee->0x0627 ; "Link" 05b1 00f0 | | .STRTAB 0x00f0->0x0629 ; "Refresh_Suppliers" 05b2 00ff | | .STRTAB 0x00ff->0x0631 ; "Unregister_Unit" 05b3 010c | | .STRTAB 0x010c->0x0639 ; "TBU error" 05b4 0113 | | .STRTAB 0x0113->0x063d ; "Register" 05b5 0119 | | .STRTAB 0x0119->0x0641 ; "Rcf_Compilation.Refresh_View" 05b6 0133 | 3 | .STRTAB 0x0133->0x064f ; "Refresh_View" 05b7 013d | = | .STRTAB 0x013d->0x0655 ; "Close_Compilation_Domain" 05b8 0153 | S | .STREND 0x0153->0x0661 05b9 436f 6e76 |Conv| .STRTAB_STRINGS 0662 0000 0000 | | .BLANK 0000[0x6] 0668 ; -------------------------------------------------------------------------------------- 0668 ; Debug Table 0668 ; -------------------------------------------------------------------------------------- 0668 0004 000c | | .DEBUG4 0x0004,0x000c,0x2dd7,0x0000,0x0001,0x0000 066e 0000 0000 | | .BLANK 0000[0x11] 067f 0200 009e | | .XXX[0x25] 0681 9c85 c038 | 8| 0683 5c00 0006 |\ | 0685 eeb4 4b80 | K | 0687 8008 0004 | | 0689 c800 0000 | | 068b 8078 0000 | x | 068d 2000 0000 | | 068f 3801 4000 |8 @ | 0691 0000 4000 | @ | 0693 0010 0000 | | 0695 0088 0000 | | 0697 0000 4000 | @ | 0699 0002 9000 | | 069b 0100 d596 | | 069d 5000 0100 |P | 069f d596 9000 | | 06a1 0100 d596 | | 06a3 c000 | | 06a4 0000 0000 | | .BLANK 0000[0x14] 06b8 0040 0013 | @ | .XXX[0x25] 06ba d390 b807 | | 06bc 0b80 0000 | | 06be ddd6 8970 | p| 06c0 1001 0000 | | 06c2 9900 0000 | | 06c4 100f 0000 | | 06c6 0400 0000 | | 06c8 0700 2800 | ( | 06ca 0000 0800 | | 06cc 0002 0000 | | 06ce 0011 0000 | | 06d0 0000 0800 | | 06d2 0000 5200 | R | 06d4 0020 1ab2 | | 06d6 ca00 0020 | | 06d8 1ab2 d200 | | 06da 0020 1ab2 | | 06dc d800 | | 06dd 0000 0000 | | .BLANK 0000[0x14] 06f1 0008 0002 | | .XXX[0x3] 06f3 7a70 |zp | 06f4 0000 0000 | | .BLANK 0000[0xd] 0701 0020 0500 | | .XXX[0xc] 0703 0000 0000 | | 0705 0000 4000 | @ | 0707 0002 2000 | | 0709 0000 0100 | | 070b 0000 0a00 | | 070d 0000 0000 | | .BLANK 0000[0x2d] 073a 0004 00a0 | | .XXX[0xc] 073c 0000 0000 | | 073e 0000 0800 | | 0740 0000 4400 | D | 0742 0000 0020 | | 0744 0000 0140 | @| 0746 0000 0000 | | .BLANK 0000[0x2e] 0774 8014 0000 | | .XXX[0xb] 0776 0000 0000 | | 0778 0100 0000 | | 077a 0880 0000 | | 077c 0004 0000 | | 077e 0028 | ( | 077f 0000 0000 | | .BLANK 0000[0x2e] 07ad 1002 8000 | | .XXX[0xb] 07af 0000 0000 | | 07b1 0020 0000 | | 07b3 0110 0000 | | 07b5 0000 8000 | | 07b7 0005 | | 07b8 0000 0000 | | .BLANK 0000[0x48]