|
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: 2048 (0x800) Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_5850da
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000 └─ ⟦5a81ac88f⟧ »Space Info Vol 1« └─⟦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 0370 | p | .CONST 0x0370 ; 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 8002 | | .CONST 0x8002 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 0039 | 9 | .CONST 0x0039 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0015 | | .CONST 0x0015 ; Number of locals 000b INIT_0008: 000b 00e3 | | Load_Encached Natural_Cache 000c 0266 | f | Execute Discrete,Bounds 000d e001 | | Load 0x0,0x1 000e 1b0f | | Execute Package,Field_Read,Field_Number 0xf 000f 029f 0043 | C| Declare_Subprogram INIT_0040,For_Call 0011 4801 |H | Short_Literal 0x1 0012 0351 | Q | Declare_Type Array,Defined,Visible,Bounds_With_Object 0013 00e3 | | Load_Encached Natural_Cache 0014 e002 | | Load 0x0,0x2 0015 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0016 4801 |H | Short_Literal 0x1 0017 6040 |`@ | Indirect_Literal Discrete,0x58,{0x00000000, 0x7fffffff} 0018 e20d | | Load 0x1,0xd 0019 034f | O | Declare_Type Array,Constrained,Visible,Bounds_With_Object 001a 029f 02fb | | Declare_Subprogram INIT_02f8,For_Call 001c 4800 |H | Short_Literal 0x0 001d 4801 |H | Short_Literal 0x1 001e 4801 |H | Short_Literal 0x1 001f 4800 |H | Short_Literal 0x0 0020 4801 |H | Short_Literal 0x1 0021 4801 |H | Short_Literal 0x1 0022 031e | | Declare_Type Variant_Record,Defined,Visible 0023 00c4 | | Action Make_Default 0024 00c4 | | Action Make_Default 0025 00c4 | | Action Make_Default 0026 029a 0063 | c| Declare_Subprogram INIT_0060,For_Outer_Call,Visible,Unelaborated 0028 c210 | | Store 0x1,0x10 0029 029a 009b | | Declare_Subprogram INIT_0098,For_Outer_Call,Visible,Unelaborated 002b c211 | | Store 0x1,0x11 002c 00bf | | Action Accept_Activation 002d 029d 00d3 | | Declare_Subprogram INIT_00d0,For_Outer_Call 002f 029d 00f3 | | Declare_Subprogram INIT_00f0,For_Outer_Call 0031 029d 01ab | | Declare_Subprogram INIT_01a8,For_Outer_Call 0033 029d 01cb | | Declare_Subprogram INIT_01c8,For_Outer_Call 0035 1d10 | | Execute_Immediate Reference_Lex_1,0x10 0036 00c7 | | Action Elaborate_Subprogram 0037 1d11 | | Execute_Immediate Reference_Lex_1,0x11 0038 00c7 | | Action Elaborate_Subprogram 0039 BODY_0008: 0039 00bc | | Action Signal_Activated 003a 00bb | | Action Signal_Completion 003b 0000 0000 | | .BLANK 0000[0x5] 0040 ; -------------------------------------------------------------------------------------- 0040 ; SUBPROGRAM 0040 ; -------------------------------------------------------------------------------------- 0040 0043 | C | .CONST 0x0043 ; Address of begin 0041 0004 | | .CONST 0x0004 ; Address of exception handler 0042 0001 | | .CONST 0x0001 ; Number of locals 0043 BODY_0040: 0043 INIT_0040: 0043 00d1 | | Pop_Control Pop_Count_1 0044 00da | | Load_Top At_Offset_2 0045 01dc | | Execute Vector,Last 0046 00db | | Load_Top At_Offset_3 0047 01dd | | Execute Vector,First 0048 0263 | c | Execute Discrete,Above_Bound 0049 700a |p | Jump_Nonzero 0x54 004a 00d8 | | Load_Top At_Offset_0 004b e5ff | | Load 0x2,-0x1 004c 01d5 | | Execute Vector,Field_Reference 004d 0125 | % | Execute Any,Set_Constraint 004e 00d8 | | Load_Top At_Offset_0 004f e5ff | | Load 0x2,-0x1 0050 01d5 | | Execute Vector,Field_Reference 0051 1c00 | | Execute_Immediate Run_Utility,0x0 0052 0a01 | | Execute_Immediate Plus,0x1 0053 7ff4 | | Jump 0x48 0054 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0055 0000 0000 | | .XXX[0x3] 0057 0000 | | 0058 0000 0000 | | .LITERAL {0x00000000, 0x7fffffff} 005c 0000 0000 | | .BLANK 0000[0x4] 0060 ; -------------------------------------------------------------------------------------- 0060 ; SUBPROGRAM 0060 ; -------------------------------------------------------------------------------------- 0060 0070 | p | .CONST 0x0070 ; Address of begin 0061 0085 | | .CONST 0x0085 ; Address of exception handler 0062 0005 | | .CONST 0x0005 ; Number of locals 0063 INIT_0060: 0063 4800 |H | Short_Literal 0x0 0064 e20e | | Load 0x1,0xe 0065 1c08 | | Execute_Immediate Run_Utility,0x8 0066 00d8 | | Load_Top At_Offset_0 0067 1c00 | | Execute_Immediate Run_Utility,0x0 0068 e002 | | Load 0x0,0x2 0069 1b0d | | Execute Package,Field_Read,Field_Number 0xd 006a 00ec | | Load_Encached Diana_Tree_Cache 006b 02c7 | | Declare_Variable Any 006c 00d8 | | Load_Top At_Offset_0 006d 1c00 | | Execute_Immediate Run_Utility,0x0 006e 029f 0213 | | Declare_Subprogram INIT_0210,For_Call 0070 BODY_0060: 0070 e002 | | Load 0x0,0x2 0071 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0072 00da | | Load_Top At_Offset_2 0073 0120 | | Execute Any,Is_Value 0074 6802 |h | Jump_Zero 0x77 0075 00ec | | Load_Encached Diana_Tree_Cache 0076 7801 |x | Jump 0x78 0077 00da | | Load_Top At_Offset_2 0078 e5ff | | Load 0x2,-0x1 0079 8213 | | Call 0x1,0x13 007a c404 | | Store 0x2,0x4 007b 005b | [ | Store_Top Discrete,At_Offset_3 007c 4800 |H | Short_Literal 0x0 007d 00db | | Load_Top At_Offset_3 007e e002 | | Load 0x0,0x2 007f 1847 | G | Execute Package,Field_Execute,Field_Number 0x47 0080 7002 |p | Jump_Nonzero 0x83 0081 e003 | | Load 0x0,0x3 0082 0257 | W | Execute Discrete,Raise 0083 8405 | | Call 0x2,0x5 0084 0831 | 1 | Execute_Immediate Raise,0x31 0085 TRAP_0060: 0085 e003 | | Load 0x0,0x3 0086 010f | | Execute Exception,Equal 0087 6805 |h | Jump_Zero 0x8d 0088 00db | | Load_Top At_Offset_3 0089 e402 | | Load 0x2,0x2 008a 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 008b e402 | | Load 0x2,0x2 008c 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 008d 0092 031d | | Action Push_String_Extended,0x31d ; "Dependency_Interface.Promotion_Prerequisites" 008f e004 | | Load 0x0,0x4 0090 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0091 e402 | | Load 0x2,0x2 0092 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 0093 e402 | | Load 0x2,0x2 0094 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0095 0000 0000 | | .XXX[0x3] 0097 0000 | | 0098 ; -------------------------------------------------------------------------------------- 0098 ; SUBPROGRAM 0098 ; -------------------------------------------------------------------------------------- 0098 00a8 | | .CONST 0x00a8 ; Address of begin 0099 00bd | | .CONST 0x00bd ; Address of exception handler 009a 0005 | | .CONST 0x0005 ; Number of locals 009b INIT_0098: 009b 4800 |H | Short_Literal 0x0 009c e20e | | Load 0x1,0xe 009d 1c08 | | Execute_Immediate Run_Utility,0x8 009e 00d8 | | Load_Top At_Offset_0 009f 1c00 | | Execute_Immediate Run_Utility,0x0 00a0 e002 | | Load 0x0,0x2 00a1 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00a2 00ec | | Load_Encached Diana_Tree_Cache 00a3 02c7 | | Declare_Variable Any 00a4 00d8 | | Load_Top At_Offset_0 00a5 1c00 | | Execute_Immediate Run_Utility,0x0 00a6 029f 023b | ;| Declare_Subprogram INIT_0238,For_Call 00a8 BODY_0098: 00a8 e002 | | Load 0x0,0x2 00a9 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00aa 00da | | Load_Top At_Offset_2 00ab 0120 | | Execute Any,Is_Value 00ac 6802 |h | Jump_Zero 0xaf 00ad 00ec | | Load_Encached Diana_Tree_Cache 00ae 7801 |x | Jump 0xb0 00af 00da | | Load_Top At_Offset_2 00b0 e5ff | | Load 0x2,-0x1 00b1 8213 | | Call 0x1,0x13 00b2 c404 | | Store 0x2,0x4 00b3 005b | [ | Store_Top Discrete,At_Offset_3 00b4 4800 |H | Short_Literal 0x0 00b5 00db | | Load_Top At_Offset_3 00b6 e002 | | Load 0x0,0x2 00b7 1847 | G | Execute Package,Field_Execute,Field_Number 0x47 00b8 7002 |p | Jump_Nonzero 0xbb 00b9 e003 | | Load 0x0,0x3 00ba 0257 | W | Execute Discrete,Raise 00bb 8405 | | Call 0x2,0x5 00bc 0831 | 1 | Execute_Immediate Raise,0x31 00bd TRAP_0098: 00bd e003 | | Load 0x0,0x3 00be 010f | | Execute Exception,Equal 00bf 6805 |h | Jump_Zero 0xc5 00c0 00db | | Load_Top At_Offset_3 00c1 e402 | | Load 0x2,0x2 00c2 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 00c3 e402 | | Load 0x2,0x2 00c4 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 00c5 0092 031e | | Action Push_String_Extended,0x31e ; "Dependency_Interface.demotion_effects" 00c7 e004 | | Load 0x0,0x4 00c8 1810 | | Execute Package,Field_Execute,Field_Number 0x10 00c9 e402 | | Load 0x2,0x2 00ca 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 00cb 0831 | 1 | Execute_Immediate Raise,0x31 00cc 0000 0000 | | .BLANK 0000[0x4] 00d0 ; -------------------------------------------------------------------------------------- 00d0 ; SUBPROGRAM 00d0 ; -------------------------------------------------------------------------------------- 00d0 00d8 | | .CONST 0x00d8 ; Address of begin 00d1 00e5 | | .CONST 0x00e5 ; Address of exception handler 00d2 0002 | | .CONST 0x0002 ; Number of locals 00d3 INIT_00d0: 00d3 e005 | | Load 0x0,0x5 00d4 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00d5 02c7 | | Declare_Variable Any 00d6 00d8 | | Load_Top At_Offset_0 00d7 1c00 | | Execute_Immediate Run_Utility,0x0 00d8 BODY_00d0: 00d8 e006 | | Load 0x0,0x6 00d9 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00da 1812 | | Execute Package,Field_Execute,Field_Number 0x12 00db c402 | | Store 0x2,0x2 00dc 00d8 | | Load_Top At_Offset_0 00dd e005 | | Load 0x0,0x5 00de 1812 | | Execute Package,Field_Execute,Field_Number 0x12 00df 6802 |h | Jump_Zero 0xe2 00e0 00d8 | | Load_Top At_Offset_0 00e1 00ca | | Action Exit_Nullary_Function 00e2 e005 | | Load 0x0,0x5 00e3 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00e4 00ca | | Action Exit_Nullary_Function 00e5 TRAP_00d0: 00e5 e006 | | Load 0x0,0x6 00e6 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00e7 1b13 | | Execute Package,Field_Read,Field_Number 0x13 00e8 010f | | Execute Exception,Equal 00e9 6803 |h | Jump_Zero 0xed 00ea e005 | | Load 0x0,0x5 00eb 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00ec 00ca | | Action Exit_Nullary_Function 00ed e005 | | Load 0x0,0x5 00ee 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00ef 00ca | | Action Exit_Nullary_Function 00f0 ; -------------------------------------------------------------------------------------- 00f0 ; SUBPROGRAM 00f0 ; -------------------------------------------------------------------------------------- 00f0 0100 | | .CONST 0x0100 ; Address of begin 00f1 0193 | | .CONST 0x0193 ; Address of exception handler 00f2 0004 | | .CONST 0x0004 ; Number of locals 00f3 INIT_00f0: 00f3 e001 | | Load 0x0,0x1 00f4 1b14 | | Execute Package,Field_Read,Field_Number 0x14 00f5 02ff | | Declare_Variable Variant_Record 00f6 00d8 | | Load_Top At_Offset_0 00f7 1c00 | | Execute_Immediate Run_Utility,0x0 00f8 e001 | | Load 0x0,0x1 00f9 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00fa e001 | | Load 0x0,0x1 00fb 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 00fc 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 00fd 02c7 | | Declare_Variable Any 00fe 00d8 | | Load_Top At_Offset_0 00ff 1c00 | | Execute_Immediate Run_Utility,0x0 0100 BODY_00f0: 0100 4800 |H | Short_Literal 0x0 0101 a5fd | | Store_Unchecked 0x2,-0x3 0102 e001 | | Load 0x0,0x1 0103 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0104 00db | | Load_Top At_Offset_3 0105 609a |` | Indirect_Literal Discrete,0x1a0,{0x00000000, 0x00004000} 0106 e005 | | Load 0x0,0x5 0107 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0108 4800 |H | Short_Literal 0x0 0109 e5ff | | Load 0x2,-0x1 010a e001 | | Load 0x0,0x1 010b 1b39 | 9 | Execute Package,Field_Read,Field_Number 0x39 010c 181a | | Execute Package,Field_Execute,Field_Number 0x1a 010d 00d1 | | Pop_Control Pop_Count_1 010e 005a | Z | Store_Top Discrete,At_Offset_2 010f 00d9 | | Load_Top At_Offset_1 0110 682b |h+ | Jump_Zero 0x13c 0111 4801 |H | Short_Literal 0x1 0112 4803 |H | Short_Literal 0x3 0113 e007 | | Load 0x0,0x7 0114 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0115 035b | [ | Declare_Type Array,Constrained 0116 0337 | 7 | Declare_Variable Array 0117 e5ff | | Load 0x2,-0x1 0118 e001 | | Load 0x0,0x1 0119 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 011a 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 011b e007 | | Load 0x0,0x7 011c 1810 | | Execute Package,Field_Execute,Field_Number 0x10 011d e007 | | Load 0x0,0x7 011e 1b0e | | Execute Package,Field_Read,Field_Number 0xe 011f 0119 | | Execute Any,Check_In_Formal_Type 0120 4801 |H | Short_Literal 0x1 0121 00da | | Load_Top At_Offset_2 0122 01d6 | | Execute Vector,Field_Write 0123 0092 031f | | Action Push_String_Extended,0x31f ; "Get_Needs" 0125 e007 | | Load 0x0,0x7 0126 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0127 e007 | | Load 0x0,0x7 0128 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0129 0119 | | Execute Any,Check_In_Formal_Type 012a 4802 |H | Short_Literal 0x2 012b 00da | | Load_Top At_Offset_2 012c 01d6 | | Execute Vector,Field_Write 012d 00da | | Load_Top At_Offset_2 012e e007 | | Load 0x0,0x7 012f 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 0130 e007 | | Load 0x0,0x7 0131 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0132 0119 | | Execute Any,Check_In_Formal_Type 0133 4803 |H | Short_Literal 0x3 0134 00da | | Load_Top At_Offset_2 0135 01d6 | | Execute Vector,Field_Write 0136 6065 |`e | Indirect_Literal Discrete,0x19c,{0x00000000, 0x00008158} 0137 e002 | | Load 0x0,0x2 0138 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0139 a5fd | | Store_Unchecked 0x2,-0x3 013a e003 | | Load 0x0,0x3 013b 0257 | W | Execute Discrete,Raise 013c e001 | | Load 0x0,0x1 013d 1b0d | | Execute Package,Field_Read,Field_Number 0xd 013e 00d9 | | Load_Top At_Offset_1 013f 0120 | | Execute Any,Is_Value 0140 6804 |h | Jump_Zero 0x145 0141 e001 | | Load 0x0,0x1 0142 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 0143 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 0144 7801 |x | Jump 0x146 0145 00d9 | | Load_Top At_Offset_1 0146 e5fe | | Load 0x2,-0x2 0147 0120 | | Execute Any,Is_Value 0148 6804 |h | Jump_Zero 0x14d 0149 e001 | | Load 0x0,0x1 014a 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 014b 1b16 | | Execute Package,Field_Read,Field_Number 0x16 014c 7801 |x | Jump 0x14e 014d e5fe | | Load 0x2,-0x2 014e e402 | | Load 0x2,0x2 014f 6050 |`P | Indirect_Literal Discrete,0x1a0,{0x00000000, 0x00004000} 0150 4801 |H | Short_Literal 0x1 0151 4800 |H | Short_Literal 0x0 0152 8212 | | Call 0x1,0x12 0153 4801 |H | Short_Literal 0x1 0154 e001 | | Load 0x0,0x1 0155 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 0156 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28 0157 00d1 | | Pop_Control Pop_Count_1 0158 c5fe | | Store 0x2,-0x2 0159 c404 | | Store 0x2,0x4 015a 005a | Z | Store_Top Discrete,At_Offset_2 015b 00d9 | | Load_Top At_Offset_1 015c 6835 |h5 | Jump_Zero 0x192 015d 4801 |H | Short_Literal 0x1 015e 4803 |H | Short_Literal 0x3 015f e007 | | Load 0x0,0x7 0160 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0161 035b | [ | Declare_Type Array,Constrained 0162 0337 | 7 | Declare_Variable Array 0163 0092 031f | | Action Push_String_Extended,0x31f ; "Get_Needs" 0165 e007 | | Load 0x0,0x7 0166 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0167 e007 | | Load 0x0,0x7 0168 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0169 0119 | | Execute Any,Check_In_Formal_Type 016a 4801 |H | Short_Literal 0x1 016b 00da | | Load_Top At_Offset_2 016c 01d6 | | Execute Vector,Field_Write 016d e5ff | | Load 0x2,-0x1 016e e001 | | Load 0x0,0x1 016f 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0170 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 0171 e007 | | Load 0x0,0x7 0172 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0173 e007 | | Load 0x0,0x7 0174 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0175 0119 | | Execute Any,Check_In_Formal_Type 0176 4802 |H | Short_Literal 0x2 0177 00da | | Load_Top At_Offset_2 0178 01d6 | | Execute Vector,Field_Write 0179 0092 0320 | | Action Push_String_Extended,0x320 ; "of " 017b 00db | | Load_Top At_Offset_3 017c e001 | | Load 0x0,0x1 017d 1b0d | | Execute Package,Field_Read,Field_Number 0xd 017e 011c | | Execute Any,Convert_Unchecked 017f 1c01 | | Execute_Immediate Run_Utility,0x1 0180 01cc | | Execute Vector,Catenate 0181 0092 0321 | !| Action Push_String_Extended,0x321 ; " while getting tree" 0183 01cc | | Execute Vector,Catenate 0184 e007 | | Load 0x0,0x7 0185 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0186 e007 | | Load 0x0,0x7 0187 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0188 0119 | | Execute Any,Check_In_Formal_Type 0189 4803 |H | Short_Literal 0x3 018a 00da | | Load_Top At_Offset_2 018b 01d6 | | Execute Vector,Field_Write 018c 600f |` | Indirect_Literal Discrete,0x19c,{0x00000000, 0x00008158} 018d e002 | | Load 0x0,0x2 018e 1813 | | Execute Package,Field_Execute,Field_Number 0x13 018f a5fd | | Store_Unchecked 0x2,-0x3 0190 e003 | | Load 0x0,0x3 0191 0257 | W | Execute Discrete,Raise 0192 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0193 TRAP_00f0: 0193 e003 | | Load 0x0,0x3 0194 010f | | Execute Exception,Equal 0195 6803 |h | Jump_Zero 0x199 0196 00ec | | Load_Encached Diana_Tree_Cache 0197 c5fe | | Store 0x2,-0x2 0198 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0199 0100 | | Execute Exception,Raise 019a 0000 0000 | | .XXX[0x2] 019c 0000 0000 | | .LITERAL {0x00000000, 0x00008158} 01a0 0000 0000 | | .LITERAL {0x00000000, 0x00004000} 01a4 0000 0000 | | .BLANK 0000[0x4] 01a8 ; -------------------------------------------------------------------------------------- 01a8 ; SUBPROGRAM 01a8 ; -------------------------------------------------------------------------------------- 01a8 01b3 | | .CONST 0x01b3 ; Address of begin 01a9 0004 | | .CONST 0x0004 ; Address of exception handler 01aa 0003 | | .CONST 0x0003 ; Number of locals 01ab INIT_01a8: 01ab 00e3 | | Load_Encached Natural_Cache 01ac 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 01ad e008 | | Load 0x0,0x8 01ae 1b14 | | Execute Package,Field_Read,Field_Number 0x14 01af 1b10 | | Execute Package,Field_Read,Field_Number 0x10 01b0 02c7 | | Declare_Variable Any 01b1 e5ff | | Load 0x2,-0x1 01b2 a403 | | Store_Unchecked 0x2,0x3 01b3 BODY_01a8: 01b3 00cf | | Action Mark_Auxiliary 01b4 7809 |x | Jump 0x1be 01b5 00da | | Load_Top At_Offset_2 01b6 0a01 | | Execute_Immediate Plus,0x1 01b7 005b | [ | Store_Top Discrete,At_Offset_3 01b8 00d9 | | Load_Top At_Offset_1 01b9 e008 | | Load 0x0,0x8 01ba 1b14 | | Execute Package,Field_Read,Field_Number 0x14 01bb 1816 | | Execute Package,Field_Execute,Field_Number 0x16 01bc c403 | | Store 0x2,0x3 01bd 00c9 | | Action Pop_Auxiliary_Loop 01be 00d9 | | Load_Top At_Offset_1 01bf e008 | | Load 0x0,0x8 01c0 1b14 | | Execute Package,Field_Read,Field_Number 0x14 01c1 1812 | | Execute Package,Field_Execute,Field_Number 0x12 01c2 012f | / | Execute Any,Equal 01c3 6ff1 |o | Jump_Zero 0x1b5 01c4 00ce | | Action Pop_Auxiliary 01c5 00d9 | | Load_Top At_Offset_1 01c6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01c7 0000 | | .XXX[0x1] 01c8 ; -------------------------------------------------------------------------------------- 01c8 ; SUBPROGRAM 01c8 ; -------------------------------------------------------------------------------------- 01c8 01e3 | | .CONST 0x01e3 ; Address of begin 01c9 0203 | | .CONST 0x0203 ; Address of exception handler 01ca 0007 | | .CONST 0x0007 ; Number of locals 01cb INIT_01c8: 01cb 00e3 | | Load_Encached Natural_Cache 01cc 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 01cd e008 | | Load 0x0,0x8 01ce 1b14 | | Execute Package,Field_Read,Field_Number 0x14 01cf 1b10 | | Execute Package,Field_Read,Field_Number 0x10 01d0 02c7 | | Declare_Variable Any 01d1 e5ff | | Load 0x2,-0x1 01d2 a403 | | Store_Unchecked 0x2,0x3 01d3 4800 |H | Short_Literal 0x0 01d4 e20e | | Load 0x1,0xe 01d5 1c08 | | Execute_Immediate Run_Utility,0x8 01d6 00d8 | | Load_Top At_Offset_0 01d7 1c00 | | Execute_Immediate Run_Utility,0x0 01d8 e5fe | | Load 0x2,-0x2 01d9 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 01da e20e | | Load 0x1,0xe 01db 1c08 | | Execute_Immediate Run_Utility,0x8 01dc e5fe | | Load 0x2,-0x2 01dd 00d9 | | Load_Top At_Offset_1 01de 016d | m | Execute Variant_Record,Structure_Write 01df e002 | | Load 0x0,0x2 01e0 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01e1 029f 0263 | c| Declare_Subprogram INIT_0260,For_Call 01e3 BODY_01c8: 01e3 4800 |H | Short_Literal 0x0 01e4 00db | | Load_Top At_Offset_3 01e5 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 01e6 00cf | | Action Mark_Auxiliary 01e7 7812 |x | Jump 0x1fa 01e8 e403 | | Load 0x2,0x3 01e9 e008 | | Load 0x0,0x8 01ea 1b14 | | Execute Package,Field_Read,Field_Number 0x14 01eb 1813 | | Execute Package,Field_Execute,Field_Number 0x13 01ec 8407 | | Call 0x2,0x7 01ed e402 | | Load 0x2,0x2 01ee e405 | | Load 0x2,0x5 01ef 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 01f0 01d6 | | Execute Vector,Field_Write 01f1 e402 | | Load 0x2,0x2 01f2 0a01 | | Execute_Immediate Plus,0x1 01f3 c402 | | Store 0x2,0x2 01f4 e403 | | Load 0x2,0x3 01f5 e008 | | Load 0x0,0x8 01f6 1b14 | | Execute Package,Field_Read,Field_Number 0x14 01f7 1816 | | Execute Package,Field_Execute,Field_Number 0x16 01f8 c403 | | Store 0x2,0x3 01f9 00c9 | | Action Pop_Auxiliary_Loop 01fa e403 | | Load 0x2,0x3 01fb e008 | | Load 0x0,0x8 01fc 1b14 | | Execute Package,Field_Read,Field_Number 0x14 01fd 1812 | | Execute Package,Field_Execute,Field_Number 0x12 01fe 012f | / | Execute Any,Equal 01ff 6fe8 |o | Jump_Zero 0x1e8 0200 00ce | | Action Pop_Auxiliary 0201 00da | | Load_Top At_Offset_2 0202 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0203 TRAP_01c8: 0203 e003 | | Load 0x0,0x3 0204 010f | | Execute Exception,Equal 0205 6805 |h | Jump_Zero 0x20b 0206 00da | | Load_Top At_Offset_2 0207 e405 | | Load 0x2,0x5 0208 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 0209 00db | | Load_Top At_Offset_3 020a 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 020b 0100 | | Execute Exception,Raise 020c 0000 0000 | | .BLANK 0000[0x4] 0210 ; -------------------------------------------------------------------------------------- 0210 ; SUBPROGRAM 0210 ; -------------------------------------------------------------------------------------- 0210 0227 | ' | .CONST 0x0227 ; Address of begin 0211 022c | , | .CONST 0x022c ; Address of exception handler 0212 0003 | | .CONST 0x0003 ; Number of locals 0213 INIT_0210: 0213 e008 | | Load 0x0,0x8 0214 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0215 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0216 02c7 | | Declare_Variable Any 0217 4801 |H | Short_Literal 0x1 0218 8212 | | Call 0x1,0x12 0219 e008 | | Load 0x0,0x8 021a 1b14 | | Execute Package,Field_Read,Field_Number 0x14 021b 1811 | | Execute Package,Field_Execute,Field_Number 0x11 021c e404 | | Load 0x2,0x4 021d e009 | | Load 0x0,0x9 021e 1b0e | | Execute Package,Field_Read,Field_Number 0xe 021f 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0220 a602 | | Store_Unchecked 0x3,0x2 0221 00d8 | | Load_Top At_Offset_0 0222 8214 | | Call 0x1,0x14 0223 e20e | | Load 0x1,0xe 0224 1c08 | | Execute_Immediate Run_Utility,0x8 0225 00d8 | | Load_Top At_Offset_0 0226 1c00 | | Execute_Immediate Run_Utility,0x0 0227 BODY_0210: 0227 00d8 | | Load_Top At_Offset_0 0228 00da | | Load_Top At_Offset_2 0229 8215 | | Call 0x1,0x15 022a 00cb | | Action Pop_Block_With_Result 022b 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 022c TRAP_0210: 022c 0007 | | Action Break_Optional 022d 0092 031d | | Action Push_String_Extended,0x31d ; "Dependency_Interface.Promotion_Prerequisites" 022f e004 | | Load 0x0,0x4 0230 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0231 e402 | | Load 0x2,0x2 0232 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 0233 e402 | | Load 0x2,0x2 0234 00cb | | Action Pop_Block_With_Result 0235 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0236 0000 0000 | | .XXX[0x2] 0238 ; -------------------------------------------------------------------------------------- 0238 ; SUBPROGRAM 0238 ; -------------------------------------------------------------------------------------- 0238 024f | O | .CONST 0x024f ; Address of begin 0239 0254 | T | .CONST 0x0254 ; Address of exception handler 023a 0003 | | .CONST 0x0003 ; Number of locals 023b INIT_0238: 023b e008 | | Load 0x0,0x8 023c 1b14 | | Execute Package,Field_Read,Field_Number 0x14 023d 1b10 | | Execute Package,Field_Read,Field_Number 0x10 023e 02c7 | | Declare_Variable Any 023f 4801 |H | Short_Literal 0x1 0240 8212 | | Call 0x1,0x12 0241 e008 | | Load 0x0,0x8 0242 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0243 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0244 e404 | | Load 0x2,0x4 0245 e009 | | Load 0x0,0x9 0246 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0247 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0248 a602 | | Store_Unchecked 0x3,0x2 0249 00d8 | | Load_Top At_Offset_0 024a 8214 | | Call 0x1,0x14 024b e20e | | Load 0x1,0xe 024c 1c08 | | Execute_Immediate Run_Utility,0x8 024d 00d8 | | Load_Top At_Offset_0 024e 1c00 | | Execute_Immediate Run_Utility,0x0 024f BODY_0238: 024f 00d8 | | Load_Top At_Offset_0 0250 00da | | Load_Top At_Offset_2 0251 8215 | | Call 0x1,0x15 0252 00cb | | Action Pop_Block_With_Result 0253 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0254 TRAP_0238: 0254 0007 | | Action Break_Optional 0255 0092 0322 | "| Action Push_String_Extended,0x322 ; "Dependency_Interface.Demotion_Effects" 0257 e004 | | Load 0x0,0x4 0258 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0259 e402 | | Load 0x2,0x2 025a 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 025b 4501 |E | Exit_Suprogram New_Top_Offset 0x1 025c 0000 0000 | | .BLANK 0000[0x4] 0260 ; -------------------------------------------------------------------------------------- 0260 ; SUBPROGRAM 0260 ; -------------------------------------------------------------------------------------- 0260 026f | o | .CONST 0x026f ; Address of begin 0261 0004 | | .CONST 0x0004 ; Address of exception handler 0262 0004 | | .CONST 0x0004 ; Number of locals 0263 INIT_0260: 0263 e001 | | Load 0x0,0x1 0264 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0265 02ff | | Declare_Variable Variant_Record 0266 00d8 | | Load_Top At_Offset_0 0267 1c00 | | Execute_Immediate Run_Utility,0x0 0268 e001 | | Load 0x0,0x1 0269 1b0d | | Execute Package,Field_Read,Field_Number 0xd 026a e001 | | Load 0x0,0x1 026b 1b0f | | Execute Package,Field_Read,Field_Number 0xf 026c 02c7 | | Declare_Variable Any 026d 00d8 | | Load_Top At_Offset_0 026e 1c00 | | Execute_Immediate Run_Utility,0x0 026f BODY_0260: 026f e001 | | Load 0x0,0x1 0270 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0271 00db | | Load_Top At_Offset_3 0272 e7ff | | Load 0x3,-0x1 0273 e001 | | Load 0x0,0x1 0274 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 0275 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0276 00d1 | | Pop_Control Pop_Count_1 0277 005a | Z | Store_Top Discrete,At_Offset_2 0278 00d9 | | Load_Top At_Offset_1 0279 6830 |h0 | Jump_Zero 0x2aa 027a 4801 |H | Short_Literal 0x1 027b 4803 |H | Short_Literal 0x3 027c e007 | | Load 0x0,0x7 027d 1b0f | | Execute Package,Field_Read,Field_Number 0xf 027e 035b | [ | Declare_Type Array,Constrained 027f 0337 | 7 | Declare_Variable Array 0280 0092 031f | | Action Push_String_Extended,0x31f ; "Get_Needs" 0282 e007 | | Load 0x0,0x7 0283 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0284 e007 | | Load 0x0,0x7 0285 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0286 0119 | | Execute Any,Check_In_Formal_Type 0287 4801 |H | Short_Literal 0x1 0288 00da | | Load_Top At_Offset_2 0289 01d6 | | Execute Vector,Field_Write 028a e7ff | | Load 0x3,-0x1 028b 4976 |Iv | Short_Literal 0x176 028c 00eb | | Load_Encached Diana_Cache 028d 0098 | | Execute Package,Field_Read_Dynamic 028e 1811 | | Execute Package,Field_Execute,Field_Number 0x11 028f 00eb | | Load_Encached Diana_Cache 0290 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 0291 00eb | | Load_Encached Diana_Cache 0292 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 0293 e007 | | Load 0x0,0x7 0294 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0295 e007 | | Load 0x0,0x7 0296 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0297 0119 | | Execute Any,Check_In_Formal_Type 0298 4802 |H | Short_Literal 0x2 0299 00da | | Load_Top At_Offset_2 029a 01d6 | | Execute Vector,Field_Write 029b 00da | | Load_Top At_Offset_2 029c e007 | | Load 0x0,0x7 029d 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 029e e007 | | Load 0x0,0x7 029f 1b0e | | Execute Package,Field_Read,Field_Number 0xe 02a0 0119 | | Execute Any,Check_In_Formal_Type 02a1 4803 |H | Short_Literal 0x3 02a2 00da | | Load_Top At_Offset_2 02a3 01d6 | | Execute Vector,Field_Write 02a4 604b |`K | Indirect_Literal Discrete,0x2f0,{0x00000000, 0x00008158} 02a5 e002 | | Load 0x0,0x2 02a6 1813 | | Execute Package,Field_Execute,Field_Number 0x13 02a7 a406 | | Store_Unchecked 0x2,0x6 02a8 e003 | | Load 0x0,0x3 02a9 0257 | W | Execute Discrete,Raise 02aa e001 | | Load 0x0,0x1 02ab 1b0d | | Execute Package,Field_Read,Field_Number 0xd 02ac 00d9 | | Load_Top At_Offset_1 02ad 0120 | | Execute Any,Is_Value 02ae 6803 |h | Jump_Zero 0x2b2 02af e001 | | Load 0x0,0x1 02b0 1b0f | | Execute Package,Field_Read,Field_Number 0xf 02b1 7801 |x | Jump 0x2b3 02b2 00d9 | | Load_Top At_Offset_1 02b3 6038 |`8 | Indirect_Literal Discrete,0x2ec,{0x00000000, 0x00004000} 02b4 e005 | | Load 0x0,0x5 02b5 1b0e | | Execute Package,Field_Read,Field_Number 0xe 02b6 e602 | | Load 0x3,0x2 02b7 e001 | | Load 0x0,0x1 02b8 1b39 | 9 | Execute Package,Field_Read,Field_Number 0x39 02b9 181b | | Execute Package,Field_Execute,Field_Number 0x1b 02ba c604 | | Store 0x3,0x4 02bb 005a | Z | Store_Top Discrete,At_Offset_2 02bc 00d9 | | Load_Top At_Offset_1 02bd 6828 |h( | Jump_Zero 0x2e6 02be 4801 |H | Short_Literal 0x1 02bf 4803 |H | Short_Literal 0x3 02c0 e007 | | Load 0x0,0x7 02c1 1b0f | | Execute Package,Field_Read,Field_Number 0xf 02c2 035b | [ | Declare_Type Array,Constrained 02c3 0337 | 7 | Declare_Variable Array 02c4 0092 031f | | Action Push_String_Extended,0x31f ; "Get_Needs" 02c6 e007 | | Load 0x0,0x7 02c7 1810 | | Execute Package,Field_Execute,Field_Number 0x10 02c8 e007 | | Load 0x0,0x7 02c9 1b0e | | Execute Package,Field_Read,Field_Number 0xe 02ca 0119 | | Execute Any,Check_In_Formal_Type 02cb 4801 |H | Short_Literal 0x1 02cc 00da | | Load_Top At_Offset_2 02cd 01d6 | | Execute Vector,Field_Write 02ce 00d9 | | Load_Top At_Offset_1 02cf e007 | | Load 0x0,0x7 02d0 181a | | Execute Package,Field_Execute,Field_Number 0x1a 02d1 e007 | | Load 0x0,0x7 02d2 1b0e | | Execute Package,Field_Read,Field_Number 0xe 02d3 0119 | | Execute Any,Check_In_Formal_Type 02d4 4802 |H | Short_Literal 0x2 02d5 00da | | Load_Top At_Offset_2 02d6 01d6 | | Execute Vector,Field_Write 02d7 00da | | Load_Top At_Offset_2 02d8 e007 | | Load 0x0,0x7 02d9 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 02da e007 | | Load 0x0,0x7 02db 1b0e | | Execute Package,Field_Read,Field_Number 0xe 02dc 0119 | | Execute Any,Check_In_Formal_Type 02dd 4803 |H | Short_Literal 0x3 02de 00da | | Load_Top At_Offset_2 02df 01d6 | | Execute Vector,Field_Write 02e0 6007 |` | Indirect_Literal Discrete,0x2e8,{0x00000000, 0x00008155} 02e1 e002 | | Load 0x0,0x2 02e2 1813 | | Execute Package,Field_Execute,Field_Number 0x13 02e3 a406 | | Store_Unchecked 0x2,0x6 02e4 e003 | | Load 0x0,0x3 02e5 0257 | W | Execute Discrete,Raise 02e6 00d8 | | Load_Top At_Offset_0 02e7 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 02e8 0000 0000 | | .LITERAL {0x00000000, 0x00008155} 02ec 0000 0000 | | .LITERAL {0x00000000, 0x00004000} 02f0 0000 0000 | | .LITERAL {0x00000000, 0x00008158} 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 4608 |F | Jump_Case 0x9 02fc 7808 |x | Jump 0x305 ; case 0x0 02fd 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 02fe 781d |x | Jump 0x31c ; case 0x2 02ff 781c |x | Jump 0x31c ; case 0x3 0300 781b |x | Jump 0x31c ; case 0x4 0301 781a |x | Jump 0x31c ; case 0x5 0302 7819 |x | Jump 0x31c ; case 0x6 0303 7805 |x | Jump 0x309 ; case 0x7 0304 780d |x | Jump 0x312 ; case 0x8 0305 00da | | Load_Top At_Offset_2 0306 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0307 1c00 | | Execute_Immediate Run_Utility,0x0 0308 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0309 00db | | Load_Top At_Offset_3 030a 4801 |H | Short_Literal 0x1 030b e5fe | | Load 0x2,-0x2 030c e20d | | Load 0x1,0xd 030d 035b | [ | Declare_Type Array,Constrained 030e 4801 |H | Short_Literal 0x1 030f e5ff | | Load 0x2,-0x1 0310 031b | | Declare_Type Variant_Record,Constrained 0311 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0312 00db | | Load_Top At_Offset_3 0313 00db | | Load_Top At_Offset_3 0314 02fc | | Declare_Variable Variant_Record,With_Constraint 0315 4801 |H | Short_Literal 0x1 0316 e5fe | | Load 0x2,-0x2 0317 e20d | | Load 0x1,0xd 0318 0334 | 4 | Declare_Variable Array,With_Constraint 0319 2d03 |- | Execute Variant_Record,Field_Append,Fixed,Indirect,Field_Number 0x3 031a 016a | j | QQ_execute Variant_Record,XXX 031b 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 031c 0869 | i | Execute_Immediate Raise,0x69 031d ; -------------------------------------------------------------------------------------- 031d ; STRING TABLE 031d ; -------------------------------------------------------------------------------------- 031d 000e | | .STRTAB 0x000e->0x0324 ; "Dependency_Interface.Promotion_Prerequisites" 031e 0038 | 8 | .STRTAB 0x0038->0x033a ; "Dependency_Interface.demotion_effects" 031f 005b | [ | .STRTAB 0x005b->0x034c ; "Get_Needs" 0320 0062 | b | .STRTAB 0x0062->0x0351 ; "of " 0321 0063 | c | .STRTAB 0x0063->0x0352 ; " while getting tree" 0322 0074 | t | .STRTAB 0x0074->0x035c ; "Dependency_Interface.Demotion_Effects" 0323 0097 | | .STREND 0x0097->0x036e 0324 4465 7065 |Depe| .STRTAB_STRINGS 036f 0000 | | .XXX[0x1] 0370 ; -------------------------------------------------------------------------------------- 0370 ; Debug Table 0370 ; -------------------------------------------------------------------------------------- 0370 0004 000d | | .DEBUG4 0x0004,0x000d,0xced6,0x0000,0x0001,0x0000 0376 0000 0000 | | .BLANK 0000[0x8a]