DataMuseum.dk

Presents historical artifacts from the history of:

Rational R1000/400

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about Rational R1000/400

Excavated with: AutoArchaeologist - Free & Open Source Software.


top - download

⟦37e566cc3⟧

    Length: 2048 (0x800)
    Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_ccb0b3

Derivation

└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
    └─ ⟦cfc2e13cd⟧ »Space Info Vol 2« 
        └─⟦this⟧ 

Disassembly

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 0360       | `  |		.CONST	0x0360								; 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 02eb  |    |		Declare_Subprogram	INIT_02e8,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 00e3  |    |		Declare_Subprogram	INIT_00e0,For_Outer_Call
0031 029d 019b  |    |		Declare_Subprogram	INIT_0198,For_Outer_Call
0033 029d 01bb  |    |		Declare_Subprogram	INIT_01b8,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 0203  |    |		Declare_Subprogram	INIT_0200,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 030d  |    |		Action	Push_String_Extended,0x30d					; "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 022b  |   +|		Declare_Subprogram	INIT_0228,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 030e  |    |		Action	Push_String_Extended,0x30e					; "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 0004       |    |		.CONST	0x0004								; 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 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
00da 00ca       |    |		Action	Exit_Nullary_Function
00db 0000 0000  |    |		.BLANK	0000[0x5]
00e0 ; --------------------------------------------------------------------------------------
00e0 ; SUBPROGRAM
00e0 ; --------------------------------------------------------------------------------------
00e0 00f0       |    |		.CONST	0x00f0								; Address of begin
00e1 0183       |    |		.CONST	0x0183								; Address of exception handler
00e2 0004       |    |		.CONST	0x0004								; Number of locals
00e3			INIT_00e0:
00e3 e001       |    |		Load	0x0,0x1
00e4 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
00e5 02ff       |    |		Declare_Variable	Variant_Record
00e6 00d8       |    |		Load_Top	At_Offset_0
00e7 1c00       |    |		Execute_Immediate	Run_Utility,0x0
00e8 e001       |    |		Load	0x0,0x1
00e9 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00ea e001       |    |		Load	0x0,0x1
00eb 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
00ec 1b21       | !  |		Execute	Package,Field_Read,Field_Number 0x21
00ed 02c7       |    |		Declare_Variable	Any
00ee 00d8       |    |		Load_Top	At_Offset_0
00ef 1c00       |    |		Execute_Immediate	Run_Utility,0x0
00f0			BODY_00e0:
00f0 4800       |H   |		Short_Literal	0x0
00f1 a5fd       |    |		Store_Unchecked	0x2,-0x3
00f2 e001       |    |		Load	0x0,0x1
00f3 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00f4 00db       |    |		Load_Top	At_Offset_3
00f5 609a       |`   |		Indirect_Literal	Discrete,0x190,{0x00000000, 0x00004000}
00f6 e005       |    |		Load	0x0,0x5
00f7 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
00f8 4800       |H   |		Short_Literal	0x0
00f9 e5ff       |    |		Load	0x2,-0x1
00fa e001       |    |		Load	0x0,0x1
00fb 1b39       | 9  |		Execute	Package,Field_Read,Field_Number 0x39
00fc 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
00fd 00d1       |    |		Pop_Control	Pop_Count_1
00fe 005a       | Z  |		Store_Top	Discrete,At_Offset_2
00ff 00d9       |    |		Load_Top	At_Offset_1
0100 682b       |h+  |		Jump_Zero	0x12c
0101 4801       |H   |		Short_Literal	0x1
0102 4803       |H   |		Short_Literal	0x3
0103 e007       |    |		Load	0x0,0x7
0104 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0105 035b       | [  |		Declare_Type	Array,Constrained
0106 0337       | 7  |		Declare_Variable	Array
0107 e5ff       |    |		Load	0x2,-0x1
0108 e001       |    |		Load	0x0,0x1
0109 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
010a 1838       | 8  |		Execute	Package,Field_Execute,Field_Number 0x38
010b e007       |    |		Load	0x0,0x7
010c 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
010d e007       |    |		Load	0x0,0x7
010e 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
010f 0119       |    |		Execute	Any,Check_In_Formal_Type
0110 4801       |H   |		Short_Literal	0x1
0111 00da       |    |		Load_Top	At_Offset_2
0112 01d6       |    |		Execute	Vector,Field_Write
0113 0092 030f  |    |		Action	Push_String_Extended,0x30f					; "Get_Needs"
0115 e007       |    |		Load	0x0,0x7
0116 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0117 e007       |    |		Load	0x0,0x7
0118 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0119 0119       |    |		Execute	Any,Check_In_Formal_Type
011a 4802       |H   |		Short_Literal	0x2
011b 00da       |    |		Load_Top	At_Offset_2
011c 01d6       |    |		Execute	Vector,Field_Write
011d 00da       |    |		Load_Top	At_Offset_2
011e e007       |    |		Load	0x0,0x7
011f 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
0120 e007       |    |		Load	0x0,0x7
0121 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0122 0119       |    |		Execute	Any,Check_In_Formal_Type
0123 4803       |H   |		Short_Literal	0x3
0124 00da       |    |		Load_Top	At_Offset_2
0125 01d6       |    |		Execute	Vector,Field_Write
0126 6065       |`e  |		Indirect_Literal	Discrete,0x18c,{0x00000000, 0x00008158}
0127 e002       |    |		Load	0x0,0x2
0128 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0129 a5fd       |    |		Store_Unchecked	0x2,-0x3
012a e003       |    |		Load	0x0,0x3
012b 0257       | W  |		Execute	Discrete,Raise
012c e001       |    |		Load	0x0,0x1
012d 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
012e 00d9       |    |		Load_Top	At_Offset_1
012f 0120       |    |		Execute	Any,Is_Value
0130 6804       |h   |		Jump_Zero	0x135
0131 e001       |    |		Load	0x0,0x1
0132 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
0133 1b21       | !  |		Execute	Package,Field_Read,Field_Number 0x21
0134 7801       |x   |		Jump	0x136
0135 00d9       |    |		Load_Top	At_Offset_1
0136 e5fe       |    |		Load	0x2,-0x2
0137 0120       |    |		Execute	Any,Is_Value
0138 6804       |h   |		Jump_Zero	0x13d
0139 e001       |    |		Load	0x0,0x1
013a 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
013b 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
013c 7801       |x   |		Jump	0x13e
013d e5fe       |    |		Load	0x2,-0x2
013e e402       |    |		Load	0x2,0x2
013f 6050       |`P  |		Indirect_Literal	Discrete,0x190,{0x00000000, 0x00004000}
0140 4801       |H   |		Short_Literal	0x1
0141 4800       |H   |		Short_Literal	0x0
0142 8212       |    |		Call	0x1,0x12
0143 4801       |H   |		Short_Literal	0x1
0144 e001       |    |		Load	0x0,0x1
0145 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
0146 1828       | (  |		Execute	Package,Field_Execute,Field_Number 0x28
0147 00d1       |    |		Pop_Control	Pop_Count_1
0148 c5fe       |    |		Store	0x2,-0x2
0149 c404       |    |		Store	0x2,0x4
014a 005a       | Z  |		Store_Top	Discrete,At_Offset_2
014b 00d9       |    |		Load_Top	At_Offset_1
014c 6835       |h5  |		Jump_Zero	0x182
014d 4801       |H   |		Short_Literal	0x1
014e 4803       |H   |		Short_Literal	0x3
014f e007       |    |		Load	0x0,0x7
0150 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0151 035b       | [  |		Declare_Type	Array,Constrained
0152 0337       | 7  |		Declare_Variable	Array
0153 0092 030f  |    |		Action	Push_String_Extended,0x30f					; "Get_Needs"
0155 e007       |    |		Load	0x0,0x7
0156 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0157 e007       |    |		Load	0x0,0x7
0158 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0159 0119       |    |		Execute	Any,Check_In_Formal_Type
015a 4801       |H   |		Short_Literal	0x1
015b 00da       |    |		Load_Top	At_Offset_2
015c 01d6       |    |		Execute	Vector,Field_Write
015d e5ff       |    |		Load	0x2,-0x1
015e e001       |    |		Load	0x0,0x1
015f 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0160 1838       | 8  |		Execute	Package,Field_Execute,Field_Number 0x38
0161 e007       |    |		Load	0x0,0x7
0162 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0163 e007       |    |		Load	0x0,0x7
0164 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0165 0119       |    |		Execute	Any,Check_In_Formal_Type
0166 4802       |H   |		Short_Literal	0x2
0167 00da       |    |		Load_Top	At_Offset_2
0168 01d6       |    |		Execute	Vector,Field_Write
0169 0092 0310  |    |		Action	Push_String_Extended,0x310					; "of "
016b 00db       |    |		Load_Top	At_Offset_3
016c e001       |    |		Load	0x0,0x1
016d 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
016e 011c       |    |		Execute	Any,Convert_Unchecked
016f 1c01       |    |		Execute_Immediate	Run_Utility,0x1
0170 01cc       |    |		Execute	Vector,Catenate
0171 0092 0311  |    |		Action	Push_String_Extended,0x311					; " while getting tree"
0173 01cc       |    |		Execute	Vector,Catenate
0174 e007       |    |		Load	0x0,0x7
0175 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0176 e007       |    |		Load	0x0,0x7
0177 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0178 0119       |    |		Execute	Any,Check_In_Formal_Type
0179 4803       |H   |		Short_Literal	0x3
017a 00da       |    |		Load_Top	At_Offset_2
017b 01d6       |    |		Execute	Vector,Field_Write
017c 600f       |`   |		Indirect_Literal	Discrete,0x18c,{0x00000000, 0x00008158}
017d e002       |    |		Load	0x0,0x2
017e 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
017f a5fd       |    |		Store_Unchecked	0x2,-0x3
0180 e003       |    |		Load	0x0,0x3
0181 0257       | W  |		Execute	Discrete,Raise
0182 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0183			TRAP_00e0:
0183 e003       |    |		Load	0x0,0x3
0184 010f       |    |		Execute	Exception,Equal
0185 6803       |h   |		Jump_Zero	0x189
0186 00ec       |    |		Load_Encached	Diana_Tree_Cache
0187 c5fe       |    |		Store	0x2,-0x2
0188 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0189 0100       |    |		Execute	Exception,Raise
018a 0000 0000  |    |		.XXX[0x2]
018c 0000 0000  |    |		.LITERAL	{0x00000000, 0x00008158}
0190 0000 0000  |    |		.LITERAL	{0x00000000, 0x00004000}
0194 0000 0000  |    |		.BLANK	0000[0x4]
0198 ; --------------------------------------------------------------------------------------
0198 ; SUBPROGRAM
0198 ; --------------------------------------------------------------------------------------
0198 01a3       |    |		.CONST	0x01a3								; Address of begin
0199 0004       |    |		.CONST	0x0004								; Address of exception handler
019a 0003       |    |		.CONST	0x0003								; Number of locals
019b			INIT_0198:
019b 00e3       |    |		Load_Encached	Natural_Cache
019c 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
019d e008       |    |		Load	0x0,0x8
019e 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
019f 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
01a0 02c7       |    |		Declare_Variable	Any
01a1 e5ff       |    |		Load	0x2,-0x1
01a2 a403       |    |		Store_Unchecked	0x2,0x3
01a3			BODY_0198:
01a3 00cf       |    |		Action	Mark_Auxiliary
01a4 7809       |x   |		Jump	0x1ae
01a5 00da       |    |		Load_Top	At_Offset_2
01a6 0a01       |    |		Execute_Immediate	Plus,0x1
01a7 005b       | [  |		Store_Top	Discrete,At_Offset_3
01a8 00d9       |    |		Load_Top	At_Offset_1
01a9 e008       |    |		Load	0x0,0x8
01aa 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
01ab 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
01ac c403       |    |		Store	0x2,0x3
01ad 00c9       |    |		Action	Pop_Auxiliary_Loop
01ae 00d9       |    |		Load_Top	At_Offset_1
01af e008       |    |		Load	0x0,0x8
01b0 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
01b1 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
01b2 012f       | /  |		Execute	Any,Equal
01b3 6ff1       |o   |		Jump_Zero	0x1a5
01b4 00ce       |    |		Action	Pop_Auxiliary
01b5 00d9       |    |		Load_Top	At_Offset_1
01b6 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01b7 0000       |    |		.XXX[0x1]
01b8 ; --------------------------------------------------------------------------------------
01b8 ; SUBPROGRAM
01b8 ; --------------------------------------------------------------------------------------
01b8 01d3       |    |		.CONST	0x01d3								; Address of begin
01b9 01f3       |    |		.CONST	0x01f3								; Address of exception handler
01ba 0007       |    |		.CONST	0x0007								; Number of locals
01bb			INIT_01b8:
01bb 00e3       |    |		Load_Encached	Natural_Cache
01bc 0601       |    |		Execute_Immediate	Set_Value_Unchecked,0x1
01bd e008       |    |		Load	0x0,0x8
01be 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
01bf 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
01c0 02c7       |    |		Declare_Variable	Any
01c1 e5ff       |    |		Load	0x2,-0x1
01c2 a403       |    |		Store_Unchecked	0x2,0x3
01c3 4800       |H   |		Short_Literal	0x0
01c4 e20e       |    |		Load	0x1,0xe
01c5 1c08       |    |		Execute_Immediate	Run_Utility,0x8
01c6 00d8       |    |		Load_Top	At_Offset_0
01c7 1c00       |    |		Execute_Immediate	Run_Utility,0x0
01c8 e5fe       |    |		Load	0x2,-0x2
01c9 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
01ca e20e       |    |		Load	0x1,0xe
01cb 1c08       |    |		Execute_Immediate	Run_Utility,0x8
01cc e5fe       |    |		Load	0x2,-0x2
01cd 00d9       |    |		Load_Top	At_Offset_1
01ce 016d       | m  |		Execute	Variant_Record,Structure_Write
01cf e002       |    |		Load	0x0,0x2
01d0 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
01d1 029f 0253  |   S|		Declare_Subprogram	INIT_0250,For_Call
01d3			BODY_01b8:
01d3 4800       |H   |		Short_Literal	0x0
01d4 00db       |    |		Load_Top	At_Offset_3
01d5 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
01d6 00cf       |    |		Action	Mark_Auxiliary
01d7 7812       |x   |		Jump	0x1ea
01d8 e403       |    |		Load	0x2,0x3
01d9 e008       |    |		Load	0x0,0x8
01da 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
01db 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
01dc 8407       |    |		Call	0x2,0x7
01dd e402       |    |		Load	0x2,0x2
01de e405       |    |		Load	0x2,0x5
01df 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
01e0 01d6       |    |		Execute	Vector,Field_Write
01e1 e402       |    |		Load	0x2,0x2
01e2 0a01       |    |		Execute_Immediate	Plus,0x1
01e3 c402       |    |		Store	0x2,0x2
01e4 e403       |    |		Load	0x2,0x3
01e5 e008       |    |		Load	0x0,0x8
01e6 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
01e7 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
01e8 c403       |    |		Store	0x2,0x3
01e9 00c9       |    |		Action	Pop_Auxiliary_Loop
01ea e403       |    |		Load	0x2,0x3
01eb e008       |    |		Load	0x0,0x8
01ec 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
01ed 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
01ee 012f       | /  |		Execute	Any,Equal
01ef 6fe8       |o   |		Jump_Zero	0x1d8
01f0 00ce       |    |		Action	Pop_Auxiliary
01f1 00da       |    |		Load_Top	At_Offset_2
01f2 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
01f3			TRAP_01b8:
01f3 e003       |    |		Load	0x0,0x3
01f4 010f       |    |		Execute	Exception,Equal
01f5 6805       |h   |		Jump_Zero	0x1fb
01f6 00da       |    |		Load_Top	At_Offset_2
01f7 e405       |    |		Load	0x2,0x5
01f8 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
01f9 00db       |    |		Load_Top	At_Offset_3
01fa 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
01fb 0100       |    |		Execute	Exception,Raise
01fc 0000 0000  |    |		.BLANK	0000[0x4]
0200 ; --------------------------------------------------------------------------------------
0200 ; SUBPROGRAM
0200 ; --------------------------------------------------------------------------------------
0200 0217       |    |		.CONST	0x0217								; Address of begin
0201 021c       |    |		.CONST	0x021c								; Address of exception handler
0202 0003       |    |		.CONST	0x0003								; Number of locals
0203			INIT_0200:
0203 e008       |    |		Load	0x0,0x8
0204 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
0205 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
0206 02c7       |    |		Declare_Variable	Any
0207 4801       |H   |		Short_Literal	0x1
0208 8212       |    |		Call	0x1,0x12
0209 e008       |    |		Load	0x0,0x8
020a 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
020b 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
020c e404       |    |		Load	0x2,0x4
020d e009       |    |		Load	0x0,0x9
020e 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
020f 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0210 a602       |    |		Store_Unchecked	0x3,0x2
0211 00d8       |    |		Load_Top	At_Offset_0
0212 8214       |    |		Call	0x1,0x14
0213 e20e       |    |		Load	0x1,0xe
0214 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0215 00d8       |    |		Load_Top	At_Offset_0
0216 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0217			BODY_0200:
0217 00d8       |    |		Load_Top	At_Offset_0
0218 00da       |    |		Load_Top	At_Offset_2
0219 8215       |    |		Call	0x1,0x15
021a 00cb       |    |		Action	Pop_Block_With_Result
021b 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
021c			TRAP_0200:
021c 0007       |    |		Action	Break_Optional
021d 0092 030d  |    |		Action	Push_String_Extended,0x30d					; "Dependency_Interface.Promotion_Prerequisites"
021f e004       |    |		Load	0x0,0x4
0220 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0221 e402       |    |		Load	0x2,0x2
0222 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0223 e402       |    |		Load	0x2,0x2
0224 00cb       |    |		Action	Pop_Block_With_Result
0225 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0226 0000 0000  |    |		.XXX[0x2]
0228 ; --------------------------------------------------------------------------------------
0228 ; SUBPROGRAM
0228 ; --------------------------------------------------------------------------------------
0228 023f       | ?  |		.CONST	0x023f								; Address of begin
0229 0244       | D  |		.CONST	0x0244								; Address of exception handler
022a 0003       |    |		.CONST	0x0003								; Number of locals
022b			INIT_0228:
022b e008       |    |		Load	0x0,0x8
022c 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
022d 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
022e 02c7       |    |		Declare_Variable	Any
022f 4801       |H   |		Short_Literal	0x1
0230 8212       |    |		Call	0x1,0x12
0231 e008       |    |		Load	0x0,0x8
0232 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
0233 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0234 e404       |    |		Load	0x2,0x4
0235 e009       |    |		Load	0x0,0x9
0236 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0237 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0238 a602       |    |		Store_Unchecked	0x3,0x2
0239 00d8       |    |		Load_Top	At_Offset_0
023a 8214       |    |		Call	0x1,0x14
023b e20e       |    |		Load	0x1,0xe
023c 1c08       |    |		Execute_Immediate	Run_Utility,0x8
023d 00d8       |    |		Load_Top	At_Offset_0
023e 1c00       |    |		Execute_Immediate	Run_Utility,0x0
023f			BODY_0228:
023f 00d8       |    |		Load_Top	At_Offset_0
0240 00da       |    |		Load_Top	At_Offset_2
0241 8215       |    |		Call	0x1,0x15
0242 00cb       |    |		Action	Pop_Block_With_Result
0243 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0244			TRAP_0228:
0244 0007       |    |		Action	Break_Optional
0245 0092 0312  |    |		Action	Push_String_Extended,0x312					; "Dependency_Interface.Demotion_Effects"
0247 e004       |    |		Load	0x0,0x4
0248 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0249 e402       |    |		Load	0x2,0x2
024a 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
024b 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
024c 0000 0000  |    |		.BLANK	0000[0x4]
0250 ; --------------------------------------------------------------------------------------
0250 ; SUBPROGRAM
0250 ; --------------------------------------------------------------------------------------
0250 025f       | _  |		.CONST	0x025f								; Address of begin
0251 0004       |    |		.CONST	0x0004								; Address of exception handler
0252 0004       |    |		.CONST	0x0004								; Number of locals
0253			INIT_0250:
0253 e001       |    |		Load	0x0,0x1
0254 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
0255 02ff       |    |		Declare_Variable	Variant_Record
0256 00d8       |    |		Load_Top	At_Offset_0
0257 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0258 e001       |    |		Load	0x0,0x1
0259 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
025a e001       |    |		Load	0x0,0x1
025b 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
025c 02c7       |    |		Declare_Variable	Any
025d 00d8       |    |		Load_Top	At_Offset_0
025e 1c00       |    |		Execute_Immediate	Run_Utility,0x0
025f			BODY_0250:
025f e001       |    |		Load	0x0,0x1
0260 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0261 00db       |    |		Load_Top	At_Offset_3
0262 e7ff       |    |		Load	0x3,-0x1
0263 e001       |    |		Load	0x0,0x1
0264 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
0265 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0266 00d1       |    |		Pop_Control	Pop_Count_1
0267 005a       | Z  |		Store_Top	Discrete,At_Offset_2
0268 00d9       |    |		Load_Top	At_Offset_1
0269 6830       |h0  |		Jump_Zero	0x29a
026a 4801       |H   |		Short_Literal	0x1
026b 4803       |H   |		Short_Literal	0x3
026c e007       |    |		Load	0x0,0x7
026d 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
026e 035b       | [  |		Declare_Type	Array,Constrained
026f 0337       | 7  |		Declare_Variable	Array
0270 0092 030f  |    |		Action	Push_String_Extended,0x30f					; "Get_Needs"
0272 e007       |    |		Load	0x0,0x7
0273 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0274 e007       |    |		Load	0x0,0x7
0275 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0276 0119       |    |		Execute	Any,Check_In_Formal_Type
0277 4801       |H   |		Short_Literal	0x1
0278 00da       |    |		Load_Top	At_Offset_2
0279 01d6       |    |		Execute	Vector,Field_Write
027a e7ff       |    |		Load	0x3,-0x1
027b 4976       |Iv  |		Short_Literal	0x176
027c 00eb       |    |		Load_Encached	Diana_Cache
027d 0098       |    |		Execute	Package,Field_Read_Dynamic
027e 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
027f 00eb       |    |		Load_Encached	Diana_Cache
0280 182a       | *  |		Execute	Package,Field_Execute,Field_Number 0x2a
0281 00eb       |    |		Load_Encached	Diana_Cache
0282 182d       | -  |		Execute	Package,Field_Execute,Field_Number 0x2d
0283 e007       |    |		Load	0x0,0x7
0284 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0285 e007       |    |		Load	0x0,0x7
0286 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0287 0119       |    |		Execute	Any,Check_In_Formal_Type
0288 4802       |H   |		Short_Literal	0x2
0289 00da       |    |		Load_Top	At_Offset_2
028a 01d6       |    |		Execute	Vector,Field_Write
028b 00da       |    |		Load_Top	At_Offset_2
028c e007       |    |		Load	0x0,0x7
028d 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
028e e007       |    |		Load	0x0,0x7
028f 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0290 0119       |    |		Execute	Any,Check_In_Formal_Type
0291 4803       |H   |		Short_Literal	0x3
0292 00da       |    |		Load_Top	At_Offset_2
0293 01d6       |    |		Execute	Vector,Field_Write
0294 604b       |`K  |		Indirect_Literal	Discrete,0x2e0,{0x00000000, 0x00008158}
0295 e002       |    |		Load	0x0,0x2
0296 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0297 a406       |    |		Store_Unchecked	0x2,0x6
0298 e003       |    |		Load	0x0,0x3
0299 0257       | W  |		Execute	Discrete,Raise
029a e001       |    |		Load	0x0,0x1
029b 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
029c 00d9       |    |		Load_Top	At_Offset_1
029d 0120       |    |		Execute	Any,Is_Value
029e 6803       |h   |		Jump_Zero	0x2a2
029f e001       |    |		Load	0x0,0x1
02a0 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
02a1 7801       |x   |		Jump	0x2a3
02a2 00d9       |    |		Load_Top	At_Offset_1
02a3 6038       |`8  |		Indirect_Literal	Discrete,0x2dc,{0x00000000, 0x00004000}
02a4 e005       |    |		Load	0x0,0x5
02a5 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
02a6 e602       |    |		Load	0x3,0x2
02a7 e001       |    |		Load	0x0,0x1
02a8 1b39       | 9  |		Execute	Package,Field_Read,Field_Number 0x39
02a9 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
02aa c604       |    |		Store	0x3,0x4
02ab 005a       | Z  |		Store_Top	Discrete,At_Offset_2
02ac 00d9       |    |		Load_Top	At_Offset_1
02ad 6828       |h(  |		Jump_Zero	0x2d6
02ae 4801       |H   |		Short_Literal	0x1
02af 4803       |H   |		Short_Literal	0x3
02b0 e007       |    |		Load	0x0,0x7
02b1 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
02b2 035b       | [  |		Declare_Type	Array,Constrained
02b3 0337       | 7  |		Declare_Variable	Array
02b4 0092 030f  |    |		Action	Push_String_Extended,0x30f					; "Get_Needs"
02b6 e007       |    |		Load	0x0,0x7
02b7 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
02b8 e007       |    |		Load	0x0,0x7
02b9 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
02ba 0119       |    |		Execute	Any,Check_In_Formal_Type
02bb 4801       |H   |		Short_Literal	0x1
02bc 00da       |    |		Load_Top	At_Offset_2
02bd 01d6       |    |		Execute	Vector,Field_Write
02be 00d9       |    |		Load_Top	At_Offset_1
02bf e007       |    |		Load	0x0,0x7
02c0 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
02c1 e007       |    |		Load	0x0,0x7
02c2 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
02c3 0119       |    |		Execute	Any,Check_In_Formal_Type
02c4 4802       |H   |		Short_Literal	0x2
02c5 00da       |    |		Load_Top	At_Offset_2
02c6 01d6       |    |		Execute	Vector,Field_Write
02c7 00da       |    |		Load_Top	At_Offset_2
02c8 e007       |    |		Load	0x0,0x7
02c9 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
02ca e007       |    |		Load	0x0,0x7
02cb 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
02cc 0119       |    |		Execute	Any,Check_In_Formal_Type
02cd 4803       |H   |		Short_Literal	0x3
02ce 00da       |    |		Load_Top	At_Offset_2
02cf 01d6       |    |		Execute	Vector,Field_Write
02d0 6007       |`   |		Indirect_Literal	Discrete,0x2d8,{0x00000000, 0x00008155}
02d1 e002       |    |		Load	0x0,0x2
02d2 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
02d3 a406       |    |		Store_Unchecked	0x2,0x6
02d4 e003       |    |		Load	0x0,0x3
02d5 0257       | W  |		Execute	Discrete,Raise
02d6 00d8       |    |		Load_Top	At_Offset_0
02d7 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
02d8 0000 0000  |    |		.LITERAL	{0x00000000, 0x00008155}
02dc 0000 0000  |    |		.LITERAL	{0x00000000, 0x00004000}
02e0 0000 0000  |    |		.LITERAL	{0x00000000, 0x00008158}
02e4 0000 0000  |    |		.BLANK	0000[0x4]
02e8 ; --------------------------------------------------------------------------------------
02e8 ; SUBPROGRAM
02e8 ; --------------------------------------------------------------------------------------
02e8 02eb       |    |		.CONST	0x02eb								; Address of begin
02e9 0004       |    |		.CONST	0x0004								; Address of exception handler
02ea 0001       |    |		.CONST	0x0001								; Number of locals
02eb			BODY_02e8:
02eb			INIT_02e8:
02eb 4608       |F   |		Jump_Case	0x9
02ec 7808       |x   |		Jump	0x2f5								; case 0x0
02ed 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
02ee 781d       |x   |		Jump	0x30c								; case 0x2
02ef 781c       |x   |		Jump	0x30c								; case 0x3
02f0 781b       |x   |		Jump	0x30c								; case 0x4
02f1 781a       |x   |		Jump	0x30c								; case 0x5
02f2 7819       |x   |		Jump	0x30c								; case 0x6
02f3 7805       |x   |		Jump	0x2f9								; case 0x7
02f4 780d       |x   |		Jump	0x302								; case 0x8
02f5 00da       |    |		Load_Top	At_Offset_2
02f6 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
02f7 1c00       |    |		Execute_Immediate	Run_Utility,0x0
02f8 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
02f9 00db       |    |		Load_Top	At_Offset_3
02fa 4801       |H   |		Short_Literal	0x1
02fb e5fe       |    |		Load	0x2,-0x2
02fc e20d       |    |		Load	0x1,0xd
02fd 035b       | [  |		Declare_Type	Array,Constrained
02fe 4801       |H   |		Short_Literal	0x1
02ff e5ff       |    |		Load	0x2,-0x1
0300 031b       |    |		Declare_Type	Variant_Record,Constrained
0301 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0302 00db       |    |		Load_Top	At_Offset_3
0303 00db       |    |		Load_Top	At_Offset_3
0304 02fc       |    |		Declare_Variable	Variant_Record,With_Constraint
0305 4801       |H   |		Short_Literal	0x1
0306 e5fe       |    |		Load	0x2,-0x2
0307 e20d       |    |		Load	0x1,0xd
0308 0334       | 4  |		Declare_Variable	Array,With_Constraint
0309 2d03       |-   |		Execute	Variant_Record,Field_Append,Fixed,Indirect,Field_Number 0x3
030a 016a       | j  |		QQ_execute	Variant_Record,XXX
030b 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
030c 0869       | i  |		Execute_Immediate	Raise,0x69
030d ; --------------------------------------------------------------------------------------
030d ; STRING TABLE
030d ; --------------------------------------------------------------------------------------
030d 000e       |    |		.STRTAB	0x000e->0x0314							; "Dependency_Interface.Promotion_Prerequisites"
030e 0038       | 8  |		.STRTAB	0x0038->0x032a							; "Dependency_Interface.demotion_effects"
030f 005b       | [  |		.STRTAB	0x005b->0x033c							; "Get_Needs"
0310 0062       | b  |		.STRTAB	0x0062->0x0341							; "of "
0311 0063       | c  |		.STRTAB	0x0063->0x0342							; " while getting tree"
0312 0074       | t  |		.STRTAB	0x0074->0x034c							; "Dependency_Interface.Demotion_Effects"
0313 0097       |    |		.STREND 0x0097->0x035e
0314 4465 7065  |Depe|		.STRTAB_STRINGS
035f 0000       |    |		.XXX[0x1]
0360 ; --------------------------------------------------------------------------------------
0360 ; Debug Table
0360 ; --------------------------------------------------------------------------------------
0360 0004 000e  |    |		.DEBUG4	0x0004,0x000e,0xcc8b,0x0000,0x0001,0x0000
0366 0227 3c28  | '<(|		.XXX[0x9a]
0368 4402 e402  |D   |
036a e5ff 0227  |   '|
036c 3434 2503  |44% |
036e 01d7 0c80  |    |
0370 680b 4801  |h H |
0372 a405 e402  |    |
0374 e5ff 0227  |   '|
0376 3434 2503  |44% |
0378 01d7 0a80  |    |
037a c406 7809  |  x |
037c 4800 a405  |H   |
037e e402 e5ff  |    |
0380 0227 3434  | '44|
0382 2503 01d7  |%   |
0384 c406 e406  |    |
0386 e402 e5ff  |    |
0388 0227 3434  | '44|
038a 2503 01d6  |%   |
038c e406 0b00  |    |
038e 701d 0f01  |p   |
0390 702a e00a  |p*  |
0392 e408 e405  |    |
0394 e402 e404  |    |
0396 e5ff 0227  |   '|
0398 3434 2503  |44% |
039a 01cf e5ff  |    |
039c e406 e5ff  |    |
039e 0227 343b  | '4;|
03a0 01d7 800b  |    |
03a2 800c 00d1  |    |
03a4 c409 00db  |    |
03a6 0f01 6814  |  h |
03a8 e408 e5ff  |    |
03aa 800d 7810  |  x |
03ac 00d1 e407  |    |
03ae e405 e402  |    |
03b0 e404 e5ff  |    |
03b2 0227 3434  | '44|
03b4 2503 01cf  |%   |
03b6 e5ff 800e  |    |
03b8 00d1 840a  |    |
03ba 7801 840b  |x   |
03bc e404 0a01  |    |
03be c402 00c9  |    |
03c0 e402 e5ff  |    |
03c2 0227 3434  | '44|
03c4 2c02 027a  |,  z|
03c6 76f8 00ce  |v   |
03c8 4800 e5ff  |H   |
03ca 0227 3434  | '44|
03cc 2802 e5ff  |(   |
03ce 0227 3c28  | '<(|
03d0 4402 0000  |D   |
03d2 0000 0000  |    |
03d4 5265 706c  |Repl|
03d6 795f 4576  |y_Ev|
03d8 656e 7420  |ent |
03da 7265 6365  |rece|
03dc 6976 6564  |ived|
03de 2077 6865  | whe|
03e0 6e20 6e6f  |n no|
03e2 7420 6578  |t ex|
03e4 7065 6374  |pect|
03e6 6564 2e20  |ed. |
03e8 204f 7574  | Out|
03ea 206f 6620  | of |
03ec 7379 6e63  |sync|
03ee 3f00 0000  |?   |
03f0 486f 7374  |Host|
03f2 206e 616d  | nam|
03f4 6520 286f  |e (o|
03f6 7220 6e75  |r nu|
03f8 6d62 6572  |mber|
03fa 2920 6973  |) is|
03fc 2075 6e6b  | unk|
03fe 6e6f 776e  |nown|