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

⟦3348bc8d5⟧

    Length: 5120 (0x1400)
    Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_5850da

Derivation

└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
    └─ ⟦5a81ac88f⟧ »Space Info Vol 1« 
        └─⟦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 08d0       |    |		.CONST	0x08d0								; 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 8005       |    |		.CONST	0x8005								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0085       |    |		.CONST	0x0085								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0017       |    |		.CONST	0x0017								; Number of locals
000b			INIT_0008:
000b 029a 008b  |    |		Declare_Subprogram	INIT_0088,For_Outer_Call,Visible,Unelaborated
000d 029a 029b  |    |		Declare_Subprogram	INIT_0298,For_Outer_Call,Visible,Unelaborated
000f 029a 033b  |   ;|		Declare_Subprogram	INIT_0338,For_Outer_Call,Visible,Unelaborated
0011 029a 039b  |    |		Declare_Subprogram	INIT_0398,For_Outer_Call,Visible,Unelaborated
0013 029a 042b  |   +|		Declare_Subprogram	INIT_0428,For_Outer_Call,Visible,Unelaborated
0015 00bf       |    |		Action	Accept_Activation
0016 00e3       |    |		Load_Encached	Natural_Cache
0017 0266       | f  |		Execute	Discrete,Bounds
0018 4820       |H   |		Short_Literal	0x20
0019 e001       |    |		Load	0x0,0x1
001a 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
001b 1c07       |    |		Execute_Immediate	Run_Utility,0x7
001c 029f 0493  |    |		Declare_Subprogram	INIT_0490,For_Call
001e 4801       |H   |		Short_Literal	0x1
001f 0350       | P  |		Declare_Type	Array,Defined,Bounds_With_Object
0020 4801       |H   |		Short_Literal	0x1
0021 4840       |H@  |		Short_Literal	0x40
0022 00da       |    |		Load_Top	At_Offset_2
0023 035b       | [  |		Declare_Type	Array,Constrained
0024 0337       | 7  |		Declare_Variable	Array
0025 00d8       |    |		Load_Top	At_Offset_0
0026 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0027 4801       |H   |		Short_Literal	0x1
0028 4808       |H   |		Short_Literal	0x8
0029 4801       |H   |		Short_Literal	0x1
002a 4810       |H   |		Short_Literal	0x10
002b 00e9       |    |		Load_Encached	String_Cache
002c 035b       | [  |		Declare_Type	Array,Constrained
002d 02a0       |    |		Declare_Subprogram	Null_Subprogram
002e 4801       |H   |		Short_Literal	0x1
002f 035d       | ]  |		Declare_Type	Array,Defined
0030 00d8       |    |		Load_Top	At_Offset_0
0031 0337       | 7  |		Declare_Variable	Array
0032 00d8       |    |		Load_Top	At_Offset_0
0033 0335       | 5  |		Declare_Variable	Array,Duplicate
0034 00cd       |    |		Action	Spare6_Action
0035 0092 06c6  |    |		Action	Push_String_Extended,0x6c6					; "Rs6000_Aix_Ibm  "
0037 00da       |    |		Load_Top	At_Offset_2
0038 01d8       |    |		Execute	Vector,Element_Type
0039 0119       |    |		Execute	Any,Check_In_Formal_Type
003a 4801       |H   |		Short_Literal	0x1
003b 00da       |    |		Load_Top	At_Offset_2
003c 01d6       |    |		Execute	Vector,Field_Write
003d 0092 06c7  |    |		Action	Push_String_Extended,0x6c7					; "Vax_Vms_Dec_Xt  "
003f 00da       |    |		Load_Top	At_Offset_2
0040 01d8       |    |		Execute	Vector,Element_Type
0041 0119       |    |		Execute	Any,Check_In_Formal_Type
0042 4802       |H   |		Short_Literal	0x2
0043 00da       |    |		Load_Top	At_Offset_2
0044 01d6       |    |		Execute	Vector,Field_Write
0045 0092 06c8  |    |		Action	Push_String_Extended,0x6c8					; "I386_Lynx_Als_Xt"
0047 00da       |    |		Load_Top	At_Offset_2
0048 01d8       |    |		Execute	Vector,Element_Type
0049 0119       |    |		Execute	Any,Check_In_Formal_Type
004a 4803       |H   |		Short_Literal	0x3
004b 00da       |    |		Load_Top	At_Offset_2
004c 01d6       |    |		Execute	Vector,Field_Write
004d 0092 06c9  |    |		Action	Push_String_Extended,0x6c9					; "I486_Iux_Als_Xt "
004f 00da       |    |		Load_Top	At_Offset_2
0050 01d8       |    |		Execute	Vector,Element_Type
0051 0119       |    |		Execute	Any,Check_In_Formal_Type
0052 4804       |H   |		Short_Literal	0x4
0053 00da       |    |		Load_Top	At_Offset_2
0054 01d6       |    |		Execute	Vector,Field_Write
0055 0092 06ca  |    |		Action	Push_String_Extended,0x6ca					; "I960_Vms_Tar_Xt "
0057 00da       |    |		Load_Top	At_Offset_2
0058 01d8       |    |		Execute	Vector,Element_Type
0059 0119       |    |		Execute	Any,Check_In_Formal_Type
005a 4805       |H   |		Short_Literal	0x5
005b 00da       |    |		Load_Top	At_Offset_2
005c 01d6       |    |		Execute	Vector,Field_Write
005d 0092 06cb  |    |		Action	Push_String_Extended,0x6cb					; "IC30_Vms_Tar_Xt "
005f 00da       |    |		Load_Top	At_Offset_2
0060 01d8       |    |		Execute	Vector,Element_Type
0061 0119       |    |		Execute	Any,Check_In_Formal_Type
0062 4806       |H   |		Short_Literal	0x6
0063 00da       |    |		Load_Top	At_Offset_2
0064 01d6       |    |		Execute	Vector,Field_Write
0065 0092 06cc  |    |		Action	Push_String_Extended,0x6cc					; "Sparc_Sun_Xt    "
0067 00da       |    |		Load_Top	At_Offset_2
0068 01d8       |    |		Execute	Vector,Element_Type
0069 0119       |    |		Execute	Any,Check_In_Formal_Type
006a 4807       |H   |		Short_Literal	0x7
006b 00da       |    |		Load_Top	At_Offset_2
006c 01d6       |    |		Execute	Vector,Field_Write
006d 0092 06cd  |    |		Action	Push_String_Extended,0x6cd					; "Ix86_Unix_Als_Xt"
006f 00da       |    |		Load_Top	At_Offset_2
0070 01d8       |    |		Execute	Vector,Element_Type
0071 0119       |    |		Execute	Any,Check_In_Formal_Type
0072 4808       |H   |		Short_Literal	0x8
0073 00da       |    |		Load_Top	At_Offset_2
0074 01d6       |    |		Execute	Vector,Field_Write
0075 00d9       |    |		Load_Top	At_Offset_1
0076 01d4       |    |		Execute	Vector,Structure_Write
0077 029d 04c3  |    |		Declare_Subprogram	INIT_04c0,For_Outer_Call
0079 1d0d       |    |		Execute_Immediate	Reference_Lex_1,0xd
007a 00c7       |    |		Action	Elaborate_Subprogram
007b 1d0e       |    |		Execute_Immediate	Reference_Lex_1,0xe
007c 00c7       |    |		Action	Elaborate_Subprogram
007d 1d0f       |    |		Execute_Immediate	Reference_Lex_1,0xf
007e 00c7       |    |		Action	Elaborate_Subprogram
007f 1d10       |    |		Execute_Immediate	Reference_Lex_1,0x10
0080 00c7       |    |		Action	Elaborate_Subprogram
0081 1d11       |    |		Execute_Immediate	Reference_Lex_1,0x11
0082 00c7       |    |		Action	Elaborate_Subprogram
0083 029d 04e3  |    |		Declare_Subprogram	INIT_04e0,For_Outer_Call
0085			BODY_0008:
0085 00bc       |    |		Action	Signal_Activated
0086 00bb       |    |		Action	Signal_Completion
0087 0000       |    |		.XXX[0x1]
0088 ; --------------------------------------------------------------------------------------
0088 ; SUBPROGRAM
0088 ; --------------------------------------------------------------------------------------
0088 00c4       |    |		.CONST	0x00c4								; Address of begin
0089 0004       |    |		.CONST	0x0004								; Address of exception handler
008a 000e       |    |		.CONST	0x000e								; Number of locals
008b			INIT_0088:
008b 0092 06ce  |    |		Action	Push_String_Extended,0x6ce					; "Build_Predefined_World"
008d e002       |    |		Load	0x0,0x2
008e 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
008f 02c7       |    |		Declare_Variable	Any
0090 00d8       |    |		Load_Top	At_Offset_0
0091 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0092 e002       |    |		Load	0x0,0x2
0093 1b3d       | =  |		Execute	Package,Field_Read,Field_Number 0x3d
0094 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0095 02c7       |    |		Declare_Variable	Any
0096 00d8       |    |		Load_Top	At_Offset_0
0097 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0098 e002       |    |		Load	0x0,0x2
0099 1b3d       | =  |		Execute	Package,Field_Read,Field_Number 0x3d
009a 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
009b 02c7       |    |		Declare_Variable	Any
009c 00d8       |    |		Load_Top	At_Offset_0
009d 1c00       |    |		Execute_Immediate	Run_Utility,0x0
009e e002       |    |		Load	0x0,0x2
009f 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00a0 e002       |    |		Load	0x0,0x2
00a1 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
00a2 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
00a3 e003       |    |		Load	0x0,0x3
00a4 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00a5 02c7       |    |		Declare_Variable	Any
00a6 e003       |    |		Load	0x0,0x3
00a7 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
00a8 a408       |    |		Store_Unchecked	0x2,0x8
00a9 e002       |    |		Load	0x0,0x2
00aa 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
00ab 02c7       |    |		Declare_Variable	Any
00ac 00d8       |    |		Load_Top	At_Offset_0
00ad 1c00       |    |		Execute_Immediate	Run_Utility,0x0
00ae e002       |    |		Load	0x0,0x2
00af 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
00b0 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
00b1 02c7       |    |		Declare_Variable	Any
00b2 00d8       |    |		Load_Top	At_Offset_0
00b3 1c00       |    |		Execute_Immediate	Run_Utility,0x0
00b4 00f1       |    |		Load_Encached	Diana_Temp_Seq
00b5 02c7       |    |		Declare_Variable	Any
00b6 00d8       |    |		Load_Top	At_Offset_0
00b7 1c00       |    |		Execute_Immediate	Run_Utility,0x0
00b8 e002       |    |		Load	0x0,0x2
00b9 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
00ba 02ff       |    |		Declare_Variable	Variant_Record
00bb 00d8       |    |		Load_Top	At_Offset_0
00bc 1c00       |    |		Execute_Immediate	Run_Utility,0x0
00bd e004       |    |		Load	0x0,0x4
00be 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00bf 02c7       |    |		Declare_Variable	Any
00c0 00d8       |    |		Load_Top	At_Offset_0
00c1 1c00       |    |		Execute_Immediate	Run_Utility,0x0
00c2 029f 0543  |   C|		Declare_Subprogram	INIT_0540,For_Call
00c4			BODY_0088:
00c4 e5ff       |    |		Load	0x2,-0x1
00c5 01db       |    |		Execute	Vector,Length
00c6 0c11       |    |		Execute_Immediate	Greater_Equal,0x11
00c7 681e       |h   |		Jump_Zero	0xe6
00c8 e003       |    |		Load	0x0,0x3
00c9 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
00ca 4801       |H   |		Short_Literal	0x1
00cb 4802       |H   |		Short_Literal	0x2
00cc e005       |    |		Load	0x0,0x5
00cd 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
00ce 035b       | [  |		Declare_Type	Array,Constrained
00cf 0337       | 7  |		Declare_Variable	Array
00d0 e5ff       |    |		Load	0x2,-0x1
00d1 e005       |    |		Load	0x0,0x5
00d2 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
00d3 e005       |    |		Load	0x0,0x5
00d4 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
00d5 0119       |    |		Execute	Any,Check_In_Formal_Type
00d6 4801       |H   |		Short_Literal	0x1
00d7 00da       |    |		Load_Top	At_Offset_2
00d8 01d6       |    |		Execute	Vector,Field_Write
00d9 4810       |H   |		Short_Literal	0x10
00da e005       |    |		Load	0x0,0x5
00db 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
00dc e005       |    |		Load	0x0,0x5
00dd 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
00de 0119       |    |		Execute	Any,Check_In_Formal_Type
00df 4802       |H   |		Short_Literal	0x2
00e0 00da       |    |		Load_Top	At_Offset_2
00e1 01d6       |    |		Execute	Vector,Field_Write
00e2 61ad       |a   |		Indirect_Literal	Discrete,0x290,{0x00000000, 0x00008899}
00e3 e006       |    |		Load	0x0,0x6
00e4 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
00e5 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
00e6 e002       |    |		Load	0x0,0x2
00e7 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
00e8 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
00e9 e403       |    |		Load	0x2,0x3
00ea 0120       |    |		Execute	Any,Is_Value
00eb 6803       |h   |		Jump_Zero	0xef
00ec e002       |    |		Load	0x0,0x2
00ed 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
00ee 7801       |x   |		Jump	0xf0
00ef e403       |    |		Load	0x2,0x3
00f0 619b       |a   |		Indirect_Literal	Discrete,0x28c,{0x00000000, 0x00004000}
00f1 e007       |    |		Load	0x0,0x7
00f2 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
00f3 e008       |    |		Load	0x0,0x8
00f4 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
00f5 e002       |    |		Load	0x0,0x2
00f6 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
00f7 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
00f8 0092 06cf  |    |		Action	Push_String_Extended,0x6cf					; "!targets."
00fa e5ff       |    |		Load	0x2,-0x1
00fb 01cc       |    |		Execute	Vector,Catenate
00fc e002       |    |		Load	0x0,0x2
00fd 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
00fe 182c       | ,  |		Execute	Package,Field_Execute,Field_Number 0x2c
00ff c403       |    |		Store	0x2,0x3
0100 c407       |    |		Store	0x2,0x7
0101 e407       |    |		Load	0x2,0x7
0102 702f       |p/  |		Jump_Nonzero	0x132
0103 e003       |    |		Load	0x0,0x3
0104 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0105 4801       |H   |		Short_Literal	0x1
0106 4801       |H   |		Short_Literal	0x1
0107 e005       |    |		Load	0x0,0x5
0108 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0109 035b       | [  |		Declare_Type	Array,Constrained
010a 0337       | 7  |		Declare_Variable	Array
010b 0092 06d0  |    |		Action	Push_String_Extended,0x6d0					; "!Targets."
010d e5ff       |    |		Load	0x2,-0x1
010e e009       |    |		Load	0x0,0x9
010f 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
0110 01cc       |    |		Execute	Vector,Catenate
0111 e005       |    |		Load	0x0,0x5
0112 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0113 e005       |    |		Load	0x0,0x5
0114 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0115 0119       |    |		Execute	Any,Check_In_Formal_Type
0116 4801       |H   |		Short_Literal	0x1
0117 00da       |    |		Load_Top	At_Offset_2
0118 01d6       |    |		Execute	Vector,Field_Write
0119 616e       |an  |		Indirect_Literal	Discrete,0x288,{0x00000000, 0x00008898}
011a e006       |    |		Load	0x0,0x6
011b 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
011c e003       |    |		Load	0x0,0x3
011d 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
011e 4801       |H   |		Short_Literal	0x1
011f 4801       |H   |		Short_Literal	0x1
0120 e005       |    |		Load	0x0,0x5
0121 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0122 035b       | [  |		Declare_Type	Array,Constrained
0123 0337       | 7  |		Declare_Variable	Array
0124 0092 06d1  |    |		Action	Push_String_Extended,0x6d1					; "Create_Predefined_Library completed"
0126 e005       |    |		Load	0x0,0x5
0127 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0128 e005       |    |		Load	0x0,0x5
0129 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
012a 0119       |    |		Execute	Any,Check_In_Formal_Type
012b 4801       |H   |		Short_Literal	0x1
012c 00da       |    |		Load_Top	At_Offset_2
012d 01d6       |    |		Execute	Vector,Field_Write
012e 6155       |aU  |		Indirect_Literal	Discrete,0x284,{0x00000000, 0x00008821}
012f e006       |    |		Load	0x0,0x6
0130 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
0131 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0132 e002       |    |		Load	0x0,0x2
0133 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0134 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0135 e403       |    |		Load	0x2,0x3
0136 0120       |    |		Execute	Any,Is_Value
0137 6803       |h   |		Jump_Zero	0x13b
0138 e002       |    |		Load	0x0,0x2
0139 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
013a 7801       |x   |		Jump	0x13c
013b e403       |    |		Load	0x2,0x3
013c 614f       |aO  |		Indirect_Literal	Discrete,0x28c,{0x00000000, 0x00004000}
013d e007       |    |		Load	0x0,0x7
013e 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
013f e008       |    |		Load	0x0,0x8
0140 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0141 e002       |    |		Load	0x0,0x2
0142 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0143 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0144 0092 06d2  |    |		Action	Push_String_Extended,0x6d2					; "!targets"
0146 e002       |    |		Load	0x0,0x2
0147 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0148 182c       | ,  |		Execute	Package,Field_Execute,Field_Number 0x2c
0149 c403       |    |		Store	0x2,0x3
014a c407       |    |		Store	0x2,0x7
014b e407       |    |		Load	0x2,0x7
014c 683a       |h:  |		Jump_Zero	0x187
014d e003       |    |		Load	0x0,0x3
014e 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
014f 4801       |H   |		Short_Literal	0x1
0150 4802       |H   |		Short_Literal	0x2
0151 e005       |    |		Load	0x0,0x5
0152 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0153 035b       | [  |		Declare_Type	Array,Constrained
0154 0337       | 7  |		Declare_Variable	Array
0155 0092 06d3  |    |		Action	Push_String_Extended,0x6d3					; "!Targets"
0157 e005       |    |		Load	0x0,0x5
0158 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0159 e005       |    |		Load	0x0,0x5
015a 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
015b 0119       |    |		Execute	Any,Check_In_Formal_Type
015c 4801       |H   |		Short_Literal	0x1
015d 00da       |    |		Load_Top	At_Offset_2
015e 01d6       |    |		Execute	Vector,Field_Write
015f e407       |    |		Load	0x2,0x7
0160 e002       |    |		Load	0x0,0x2
0161 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0162 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0163 011c       |    |		Execute	Any,Convert_Unchecked
0164 1c01       |    |		Execute_Immediate	Run_Utility,0x1
0165 e005       |    |		Load	0x0,0x5
0166 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0167 e005       |    |		Load	0x0,0x5
0168 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0169 0119       |    |		Execute	Any,Check_In_Formal_Type
016a 4802       |H   |		Short_Literal	0x2
016b 00da       |    |		Load_Top	At_Offset_2
016c 01d6       |    |		Execute	Vector,Field_Write
016d 6112       |a   |		Indirect_Literal	Discrete,0x280,{0x00000000, 0x00008814}
016e e006       |    |		Load	0x0,0x6
016f 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
0170 e003       |    |		Load	0x0,0x3
0171 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0172 4801       |H   |		Short_Literal	0x1
0173 4801       |H   |		Short_Literal	0x1
0174 e005       |    |		Load	0x0,0x5
0175 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0176 035b       | [  |		Declare_Type	Array,Constrained
0177 0337       | 7  |		Declare_Variable	Array
0178 0092 06d4  |    |		Action	Push_String_Extended,0x6d4					; "Create_Predefined_Library failed"
017a e005       |    |		Load	0x0,0x5
017b 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
017c e005       |    |		Load	0x0,0x5
017d 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
017e 0119       |    |		Execute	Any,Check_In_Formal_Type
017f 4801       |H   |		Short_Literal	0x1
0180 00da       |    |		Load_Top	At_Offset_2
0181 01d6       |    |		Execute	Vector,Field_Write
0182 4805       |H   |		Short_Literal	0x5
0183 6100       |a   |		Indirect_Literal	Discrete,0x284,{0x00000000, 0x00008821}
0184 e006       |    |		Load	0x0,0x6
0185 1832       | 2  |		Execute	Package,Field_Execute,Field_Number 0x32
0186 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0187 e403       |    |		Load	0x2,0x3
0188 e002       |    |		Load	0x0,0x2
0189 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
018a 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
018b c404       |    |		Store	0x2,0x4
018c e002       |    |		Load	0x0,0x2
018d 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
018e e405       |    |		Load	0x2,0x5
018f 0120       |    |		Execute	Any,Is_Value
0190 6804       |h   |		Jump_Zero	0x195
0191 e002       |    |		Load	0x0,0x2
0192 1b3d       | =  |		Execute	Package,Field_Read,Field_Number 0x3d
0193 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0194 7801       |x   |		Jump	0x196
0195 e405       |    |		Load	0x2,0x5
0196 60f5       |`   |		Indirect_Literal	Discrete,0x28c,{0x00000000, 0x00004000}
0197 e007       |    |		Load	0x0,0x7
0198 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0199 e002       |    |		Load	0x0,0x2
019a 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
019b 4802       |H   |		Short_Literal	0x2
019c 60df       |`   |		Indirect_Literal	Discrete,0x27c,{0x00000000, 0x7fffffff}
019d 60de       |`   |		Indirect_Literal	Discrete,0x27c,{0x00000000, 0x7fffffff}
019e e002       |    |		Load	0x0,0x2
019f 1b3d       | =  |		Execute	Package,Field_Read,Field_Number 0x3d
01a0 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
01a1 e00a       |    |		Load	0x0,0xa
01a2 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
01a3 e404       |    |		Load	0x2,0x4
01a4 4800       |H   |		Short_Literal	0x0
01a5 e5ff       |    |		Load	0x2,-0x1
01a6 e002       |    |		Load	0x0,0x2
01a7 1b3d       | =  |		Execute	Package,Field_Read,Field_Number 0x3d
01a8 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
01a9 c405       |    |		Store	0x2,0x5
01aa c406       |    |		Store	0x2,0x6
01ab e406       |    |		Load	0x2,0x6
01ac 683b       |h;  |		Jump_Zero	0x1e8
01ad e003       |    |		Load	0x0,0x3
01ae 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
01af 4801       |H   |		Short_Literal	0x1
01b0 4802       |H   |		Short_Literal	0x2
01b1 e005       |    |		Load	0x0,0x5
01b2 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
01b3 035b       | [  |		Declare_Type	Array,Constrained
01b4 0337       | 7  |		Declare_Variable	Array
01b5 0092 06d0  |    |		Action	Push_String_Extended,0x6d0					; "!Targets."
01b7 e5ff       |    |		Load	0x2,-0x1
01b8 01cc       |    |		Execute	Vector,Catenate
01b9 e005       |    |		Load	0x0,0x5
01ba 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
01bb e005       |    |		Load	0x0,0x5
01bc 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
01bd 0119       |    |		Execute	Any,Check_In_Formal_Type
01be 4801       |H   |		Short_Literal	0x1
01bf 00da       |    |		Load_Top	At_Offset_2
01c0 01d6       |    |		Execute	Vector,Field_Write
01c1 e406       |    |		Load	0x2,0x6
01c2 e002       |    |		Load	0x0,0x2
01c3 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
01c4 011c       |    |		Execute	Any,Convert_Unchecked
01c5 1c01       |    |		Execute_Immediate	Run_Utility,0x1
01c6 e005       |    |		Load	0x0,0x5
01c7 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
01c8 e005       |    |		Load	0x0,0x5
01c9 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
01ca 0119       |    |		Execute	Any,Check_In_Formal_Type
01cb 4802       |H   |		Short_Literal	0x2
01cc 00da       |    |		Load_Top	At_Offset_2
01cd 01d6       |    |		Execute	Vector,Field_Write
01ce 60a9       |`   |		Indirect_Literal	Discrete,0x278,{0x00000000, 0x00008894}
01cf e006       |    |		Load	0x0,0x6
01d0 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
01d1 e003       |    |		Load	0x0,0x3
01d2 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
01d3 4801       |H   |		Short_Literal	0x1
01d4 4801       |H   |		Short_Literal	0x1
01d5 e005       |    |		Load	0x0,0x5
01d6 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
01d7 035b       | [  |		Declare_Type	Array,Constrained
01d8 0337       | 7  |		Declare_Variable	Array
01d9 0092 06d4  |    |		Action	Push_String_Extended,0x6d4					; "Create_Predefined_Library failed"
01db e005       |    |		Load	0x0,0x5
01dc 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
01dd e005       |    |		Load	0x0,0x5
01de 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
01df 0119       |    |		Execute	Any,Check_In_Formal_Type
01e0 4801       |H   |		Short_Literal	0x1
01e1 00da       |    |		Load_Top	At_Offset_2
01e2 01d6       |    |		Execute	Vector,Field_Write
01e3 4805       |H   |		Short_Literal	0x5
01e4 609f       |`   |		Indirect_Literal	Discrete,0x284,{0x00000000, 0x00008821}
01e5 e006       |    |		Load	0x0,0x6
01e6 1832       | 2  |		Execute	Package,Field_Execute,Field_Number 0x32
01e7 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
01e8 e405       |    |		Load	0x2,0x5
01e9 e002       |    |		Load	0x0,0x2
01ea 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
01eb 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
01ec c409       |    |		Store	0x2,0x9
01ed e002       |    |		Load	0x0,0x2
01ee 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
01ef e40b       |    |		Load	0x2,0xb
01f0 0120       |    |		Execute	Any,Is_Value
01f1 6802       |h   |		Jump_Zero	0x1f4
01f2 00f1       |    |		Load_Encached	Diana_Temp_Seq
01f3 7801       |x   |		Jump	0x1f5
01f4 e40b       |    |		Load	0x2,0xb
01f5 e40a       |    |		Load	0x2,0xa
01f6 0120       |    |		Execute	Any,Is_Value
01f7 6804       |h   |		Jump_Zero	0x1fc
01f8 e002       |    |		Load	0x0,0x2
01f9 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
01fa 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
01fb 7801       |x   |		Jump	0x1fd
01fc e40a       |    |		Load	0x2,0xa
01fd e40d       |    |		Load	0x2,0xd
01fe 0120       |    |		Execute	Any,Is_Value
01ff 6803       |h   |		Jump_Zero	0x203
0200 e004       |    |		Load	0x0,0x4
0201 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0202 7801       |x   |		Jump	0x204
0203 e40d       |    |		Load	0x2,0xd
0204 e40c       |    |		Load	0x2,0xc
0205 6086       |`   |		Indirect_Literal	Discrete,0x28c,{0x00000000, 0x00004000}
0206 e007       |    |		Load	0x0,0x7
0207 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0208 4800       |H   |		Short_Literal	0x0
0209 e002       |    |		Load	0x0,0x2
020a 1b34       | 4  |		Execute	Package,Field_Read,Field_Number 0x34
020b 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
020c e002       |    |		Load	0x0,0x2
020d 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
020e 4ffc       |O   |		Short_Literal	-0x4
020f 4ffd       |O   |		Short_Literal	-0x3
0210 e409       |    |		Load	0x2,0x9
0211 e002       |    |		Load	0x0,0x2
0212 1b3b       | ;  |		Execute	Package,Field_Read,Field_Number 0x3b
0213 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
0214 00d1       |    |		Pop_Control	Pop_Count_1
0215 c40d       |    |		Store	0x2,0xd
0216 c40a       |    |		Store	0x2,0xa
0217 c40b       |    |		Store	0x2,0xb
0218 c406       |    |		Store	0x2,0x6
0219 e406       |    |		Load	0x2,0x6
021a 683b       |h;  |		Jump_Zero	0x256
021b e003       |    |		Load	0x0,0x3
021c 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
021d 4801       |H   |		Short_Literal	0x1
021e 4802       |H   |		Short_Literal	0x2
021f e005       |    |		Load	0x0,0x5
0220 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0221 035b       | [  |		Declare_Type	Array,Constrained
0222 0337       | 7  |		Declare_Variable	Array
0223 0092 06d0  |    |		Action	Push_String_Extended,0x6d0					; "!Targets."
0225 e5ff       |    |		Load	0x2,-0x1
0226 01cc       |    |		Execute	Vector,Catenate
0227 e005       |    |		Load	0x0,0x5
0228 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0229 e005       |    |		Load	0x0,0x5
022a 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
022b 0119       |    |		Execute	Any,Check_In_Formal_Type
022c 4801       |H   |		Short_Literal	0x1
022d 00da       |    |		Load_Top	At_Offset_2
022e 01d6       |    |		Execute	Vector,Field_Write
022f e406       |    |		Load	0x2,0x6
0230 e002       |    |		Load	0x0,0x2
0231 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0232 011c       |    |		Execute	Any,Convert_Unchecked
0233 1c01       |    |		Execute_Immediate	Run_Utility,0x1
0234 e005       |    |		Load	0x0,0x5
0235 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0236 e005       |    |		Load	0x0,0x5
0237 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0238 0119       |    |		Execute	Any,Check_In_Formal_Type
0239 4802       |H   |		Short_Literal	0x2
023a 00da       |    |		Load_Top	At_Offset_2
023b 01d6       |    |		Execute	Vector,Field_Write
023c 603b       |`;  |		Indirect_Literal	Discrete,0x278,{0x00000000, 0x00008894}
023d e006       |    |		Load	0x0,0x6
023e 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
023f e003       |    |		Load	0x0,0x3
0240 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0241 4801       |H   |		Short_Literal	0x1
0242 4801       |H   |		Short_Literal	0x1
0243 e005       |    |		Load	0x0,0x5
0244 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0245 035b       | [  |		Declare_Type	Array,Constrained
0246 0337       | 7  |		Declare_Variable	Array
0247 0092 06d4  |    |		Action	Push_String_Extended,0x6d4					; "Create_Predefined_Library failed"
0249 e005       |    |		Load	0x0,0x5
024a 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
024b e005       |    |		Load	0x0,0x5
024c 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
024d 0119       |    |		Execute	Any,Check_In_Formal_Type
024e 4801       |H   |		Short_Literal	0x1
024f 00da       |    |		Load_Top	At_Offset_2
0250 01d6       |    |		Execute	Vector,Field_Write
0251 4805       |H   |		Short_Literal	0x5
0252 6031       |`1  |		Indirect_Literal	Discrete,0x284,{0x00000000, 0x00008821}
0253 e006       |    |		Load	0x0,0x6
0254 1832       | 2  |		Execute	Package,Field_Execute,Field_Number 0x32
0255 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0256 0092 06d5  |    |		Action	Push_String_Extended,0x6d5					; "Io"
0258 840e       |    |		Call	0x2,0xe
0259 0092 06d6  |    |		Action	Push_String_Extended,0x6d6					; "Lrm"
025b 840e       |    |		Call	0x2,0xe
025c 0092 06d7  |    |		Action	Push_String_Extended,0x6d7					; "Reusable_Components"
025e 840e       |    |		Call	0x2,0xe
025f 0092 06d8  |    |		Action	Push_String_Extended,0x6d8					; "Target_Interface"
0261 840e       |    |		Call	0x2,0xe
0262 e003       |    |		Load	0x0,0x3
0263 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0264 4801       |H   |		Short_Literal	0x1
0265 4801       |H   |		Short_Literal	0x1
0266 e005       |    |		Load	0x0,0x5
0267 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0268 035b       | [  |		Declare_Type	Array,Constrained
0269 0337       | 7  |		Declare_Variable	Array
026a 0092 06d1  |    |		Action	Push_String_Extended,0x6d1					; "Create_Predefined_Library completed"
026c e005       |    |		Load	0x0,0x5
026d 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
026e e005       |    |		Load	0x0,0x5
026f 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0270 0119       |    |		Execute	Any,Check_In_Formal_Type
0271 4801       |H   |		Short_Literal	0x1
0272 00da       |    |		Load_Top	At_Offset_2
0273 01d6       |    |		Execute	Vector,Field_Write
0274 600f       |`   |		Indirect_Literal	Discrete,0x284,{0x00000000, 0x00008821}
0275 e006       |    |		Load	0x0,0x6
0276 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
0277 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0278 0000 0000  |    |		.LITERAL	{0x00000000, 0x00008894}
027c 0000 0000  |    |		.LITERAL	{0x00000000, 0x7fffffff}
0280 0000 0000  |    |		.LITERAL	{0x00000000, 0x00008814}
0284 0000 0000  |    |		.LITERAL	{0x00000000, 0x00008821}
0288 0000 0000  |    |		.LITERAL	{0x00000000, 0x00008898}
028c 0000 0000  |    |		.LITERAL	{0x00000000, 0x00004000}
0290 0000 0000  |    |		.LITERAL	{0x00000000, 0x00008899}
0294 0000 0000  |    |		.BLANK	0000[0x4]
0298 ; --------------------------------------------------------------------------------------
0298 ; SUBPROGRAM
0298 ; --------------------------------------------------------------------------------------
0298 02a0       |    |		.CONST	0x02a0								; Address of begin
0299 0313       |    |		.CONST	0x0313								; Address of exception handler
029a 0002       |    |		.CONST	0x0002								; Number of locals
029b			INIT_0298:
029b e00b       |    |		Load	0x0,0xb
029c 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
029d 02c7       |    |		Declare_Variable	Any
029e 00d8       |    |		Load_Top	At_Offset_0
029f 1c00       |    |		Execute_Immediate	Run_Utility,0x0
02a0			BODY_0298:
02a0 00db       |    |		Load_Top	At_Offset_3
02a1 01db       |    |		Execute	Vector,Length
02a2 0c11       |    |		Execute_Immediate	Greater_Equal,0x11
02a3 681e       |h   |		Jump_Zero	0x2c2
02a4 e003       |    |		Load	0x0,0x3
02a5 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
02a6 4801       |H   |		Short_Literal	0x1
02a7 4802       |H   |		Short_Literal	0x2
02a8 e005       |    |		Load	0x0,0x5
02a9 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
02aa 035b       | [  |		Declare_Type	Array,Constrained
02ab 0337       | 7  |		Declare_Variable	Array
02ac e5ff       |    |		Load	0x2,-0x1
02ad e005       |    |		Load	0x0,0x5
02ae 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
02af e005       |    |		Load	0x0,0x5
02b0 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
02b1 0119       |    |		Execute	Any,Check_In_Formal_Type
02b2 4801       |H   |		Short_Literal	0x1
02b3 00da       |    |		Load_Top	At_Offset_2
02b4 01d6       |    |		Execute	Vector,Field_Write
02b5 4810       |H   |		Short_Literal	0x10
02b6 e005       |    |		Load	0x0,0x5
02b7 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
02b8 e005       |    |		Load	0x0,0x5
02b9 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
02ba 0119       |    |		Execute	Any,Check_In_Formal_Type
02bb 4802       |H   |		Short_Literal	0x2
02bc 00da       |    |		Load_Top	At_Offset_2
02bd 01d6       |    |		Execute	Vector,Field_Write
02be 67d1       |g   |		Indirect_Literal	Discrete,0x290,{0x00000000, 0x00008899}
02bf e006       |    |		Load	0x0,0x6
02c0 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
02c1 4508       |E   |		Exit_Suprogram	New_Top_Offset 0x8
02c2 00db       |    |		Load_Top	At_Offset_3
02c3 8216       |    |		Call	0x1,0x16
02c4 7019       |p   |		Jump_Nonzero	0x2de
02c5 e003       |    |		Load	0x0,0x3
02c6 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
02c7 4807       |H   |		Short_Literal	0x7
02c8 0092 06d9  |    |		Action	Push_String_Extended,0x6d9					; "The "
02ca e5ff       |    |		Load	0x2,-0x1
02cb 01cc       |    |		Execute	Vector,Catenate
02cc 0092 06da  |    |		Action	Push_String_Extended,0x6da					; " target is not authorized for this machine."
02ce 01cc       |    |		Execute	Vector,Catenate
02cf e00c       |    |		Load	0x0,0xc
02d0 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
02d1 e003       |    |		Load	0x0,0x3
02d2 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
02d3 4803       |H   |		Short_Literal	0x3
02d4 0092 06db  |    |		Action	Push_String_Extended,0x6db					; "Registration of  "
02d6 e5ff       |    |		Load	0x2,-0x1
02d7 01cc       |    |		Execute	Vector,Catenate
02d8 0092 06dc  |    |		Action	Push_String_Extended,0x6dc					; " has failed.  "
02da 01cc       |    |		Execute	Vector,Catenate
02db e00c       |    |		Load	0x0,0xc
02dc 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
02dd 4508       |E   |		Exit_Suprogram	New_Top_Offset 0x8
02de 00d8       |    |		Load_Top	At_Offset_0
02df e5f9       |    |		Load	0x2,-0x7
02e0 e5fa       |    |		Load	0x2,-0x6
02e1 e5fb       |    |		Load	0x2,-0x5
02e2 e5fc       |    |		Load	0x2,-0x4
02e3 e5fd       |    |		Load	0x2,-0x3
02e4 e5fe       |    |		Load	0x2,-0x2
02e5 e5ff       |    |		Load	0x2,-0x1
02e6 e00d       |    |		Load	0x0,0xd
02e7 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
02e8 c402       |    |		Store	0x2,0x2
02e9 4801       |H   |		Short_Literal	0x1
02ea 00d9       |    |		Load_Top	At_Offset_1
02eb e00b       |    |		Load	0x0,0xb
02ec 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
02ed 6806       |h   |		Jump_Zero	0x2f4
02ee e003       |    |		Load	0x0,0x3
02ef 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
02f0 00d9       |    |		Load_Top	At_Offset_1
02f1 e00c       |    |		Load	0x0,0xc
02f2 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
02f3 4508       |E   |		Exit_Suprogram	New_Top_Offset 0x8
02f4 0092 06dd  |    |		Action	Push_String_Extended,0x6dd					; "<PROFILE>"
02f6 4801       |H   |		Short_Literal	0x1
02f7 4801       |H   |		Short_Literal	0x1
02f8 00ea       |    |		Load_Encached	Null_String_Cache
02f9 00ea       |    |		Load_Encached	Null_String_Cache
02fa 00ea       |    |		Load_Encached	Null_String_Cache
02fb 4800       |H   |		Short_Literal	0x0
02fc 4800       |H   |		Short_Literal	0x0
02fd 4801       |H   |		Short_Literal	0x1
02fe 00ea       |    |		Load_Encached	Null_String_Cache
02ff 00ea       |    |		Load_Encached	Null_String_Cache
0300 e5ff       |    |		Load	0x2,-0x1
0301 e00e       |    |		Load	0x0,0xe
0302 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0303 00db       |    |		Load_Top	At_Offset_3
0304 e00f       |    |		Load	0x0,0xf
0305 189e       |    |		Execute	Package,Field_Execute,Field_Number 0x9e
0306 e003       |    |		Load	0x0,0x3
0307 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0308 4803       |H   |		Short_Literal	0x3
0309 0092 06db  |    |		Action	Push_String_Extended,0x6db					; "Registration of  "
030b e5ff       |    |		Load	0x2,-0x1
030c 01cc       |    |		Execute	Vector,Catenate
030d 0092 06de  |    |		Action	Push_String_Extended,0x6de					; " has completed.  "
030f 01cc       |    |		Execute	Vector,Catenate
0310 e00c       |    |		Load	0x0,0xc
0311 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0312 4508       |E   |		Exit_Suprogram	New_Top_Offset 0x8
0313			TRAP_0298:
0313 0007       |    |		Action	Break_Optional
0314 e003       |    |		Load	0x0,0x3
0315 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0316 4807       |H   |		Short_Literal	0x7
0317 0092 06df  |    |		Action	Push_String_Extended,0x6df					; "Exception "
0319 4800       |H   |		Short_Literal	0x0
031a 4801       |H   |		Short_Literal	0x1
031b e010       |    |		Load	0x0,0x10
031c 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
031d 01cc       |    |		Execute	Vector,Catenate
031e 0092 06e0  |    |		Action	Push_String_Extended,0x6e0					; " caught in Register."
0320 01cc       |    |		Execute	Vector,Catenate
0321 e00c       |    |		Load	0x0,0xc
0322 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0323 e003       |    |		Load	0x0,0x3
0324 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0325 4807       |H   |		Short_Literal	0x7
0326 4800       |H   |		Short_Literal	0x0
0327 4801       |H   |		Short_Literal	0x1
0328 e010       |    |		Load	0x0,0x10
0329 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
032a 0092 06e1  |    |		Action	Push_String_Extended,0x6e1					; " was raised in "
032c 01cc       |    |		Execute	Vector,Catenate
032d 4800       |H   |		Short_Literal	0x0
032e 4801       |H   |		Short_Literal	0x1
032f e010       |    |		Load	0x0,0x10
0330 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0331 01cc       |    |		Execute	Vector,Catenate
0332 0092 06e2  |    |		Action	Push_String_Extended,0x6e2					; ".  "
0334 01cc       |    |		Execute	Vector,Catenate
0335 e00c       |    |		Load	0x0,0xc
0336 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0337 4508       |E   |		Exit_Suprogram	New_Top_Offset 0x8
0338 ; --------------------------------------------------------------------------------------
0338 ; SUBPROGRAM
0338 ; --------------------------------------------------------------------------------------
0338 0340       | @  |		.CONST	0x0340								; Address of begin
0339 0372       | r  |		.CONST	0x0372								; Address of exception handler
033a 0002       |    |		.CONST	0x0002								; Number of locals
033b			INIT_0338:
033b e00b       |    |		Load	0x0,0xb
033c 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
033d 02c7       |    |		Declare_Variable	Any
033e 00d8       |    |		Load_Top	At_Offset_0
033f 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0340			BODY_0338:
0340 00db       |    |		Load_Top	At_Offset_3
0341 e00f       |    |		Load	0x0,0xf
0342 18a0       |    |		Execute	Package,Field_Execute,Field_Number 0xa0
0343 00db       |    |		Load_Top	At_Offset_3
0344 e00e       |    |		Load	0x0,0xe
0345 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0346 00d8       |    |		Load_Top	At_Offset_0
0347 e5fe       |    |		Load	0x2,-0x2
0348 e5ff       |    |		Load	0x2,-0x1
0349 e00d       |    |		Load	0x0,0xd
034a 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
034b c402       |    |		Store	0x2,0x2
034c 4801       |H   |		Short_Literal	0x1
034d 00d9       |    |		Load_Top	At_Offset_1
034e e00b       |    |		Load	0x0,0xb
034f 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
0350 6806       |h   |		Jump_Zero	0x357
0351 e003       |    |		Load	0x0,0x3
0352 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0353 00d9       |    |		Load_Top	At_Offset_1
0354 e00c       |    |		Load	0x0,0xc
0355 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0356 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0357 e003       |    |		Load	0x0,0x3
0358 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0359 4803       |H   |		Short_Literal	0x3
035a 0092 06e3  |    |		Action	Push_String_Extended,0x6e3					; "Unregistered "
035c e5ff       |    |		Load	0x2,-0x1
035d 01cc       |    |		Execute	Vector,Catenate
035e 0092 06e4  |    |		Action	Push_String_Extended,0x6e4					; " RCF."
0360 01cc       |    |		Execute	Vector,Catenate
0361 e00c       |    |		Load	0x0,0xc
0362 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0363 e5fe       |    |		Load	0x2,-0x2
0364 680c       |h   |		Jump_Zero	0x371
0365 e003       |    |		Load	0x0,0x3
0366 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0367 4803       |H   |		Short_Literal	0x3
0368 0092 06e5  |    |		Action	Push_String_Extended,0x6e5					; "Destroyed "
036a e5ff       |    |		Load	0x2,-0x1
036b 01cc       |    |		Execute	Vector,Catenate
036c 0092 06e6  |    |		Action	Push_String_Extended,0x6e6					; "RCF ."
036e 01cc       |    |		Execute	Vector,Catenate
036f e00c       |    |		Load	0x0,0xc
0370 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0371 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0372			TRAP_0338:
0372 0007       |    |		Action	Break_Optional
0373 e003       |    |		Load	0x0,0x3
0374 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0375 4807       |H   |		Short_Literal	0x7
0376 0092 06df  |    |		Action	Push_String_Extended,0x6df					; "Exception "
0378 4800       |H   |		Short_Literal	0x0
0379 4801       |H   |		Short_Literal	0x1
037a e010       |    |		Load	0x0,0x10
037b 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
037c 01cc       |    |		Execute	Vector,Catenate
037d 0092 06e7  |    |		Action	Push_String_Extended,0x6e7					; " caught in UnRegister."
037f 01cc       |    |		Execute	Vector,Catenate
0380 e00c       |    |		Load	0x0,0xc
0381 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0382 e003       |    |		Load	0x0,0x3
0383 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0384 4807       |H   |		Short_Literal	0x7
0385 4800       |H   |		Short_Literal	0x0
0386 4801       |H   |		Short_Literal	0x1
0387 e010       |    |		Load	0x0,0x10
0388 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0389 0092 06e1  |    |		Action	Push_String_Extended,0x6e1					; " was raised in "
038b 01cc       |    |		Execute	Vector,Catenate
038c 4800       |H   |		Short_Literal	0x0
038d 4801       |H   |		Short_Literal	0x1
038e e010       |    |		Load	0x0,0x10
038f 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0390 01cc       |    |		Execute	Vector,Catenate
0391 0092 06e2  |    |		Action	Push_String_Extended,0x6e2					; ".  "
0393 01cc       |    |		Execute	Vector,Catenate
0394 e00c       |    |		Load	0x0,0xc
0395 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0396 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0397 0000       |    |		.XXX[0x1]
0398 ; --------------------------------------------------------------------------------------
0398 ; SUBPROGRAM
0398 ; --------------------------------------------------------------------------------------
0398 03b1       |    |		.CONST	0x03b1								; Address of begin
0399 0402       |    |		.CONST	0x0402								; Address of exception handler
039a 0009       |    |		.CONST	0x0009								; Number of locals
039b			INIT_0398:
039b e011       |    |		Load	0x0,0x11
039c 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
039d 0322       | "  |		Declare_Variable	Record
039e 00d8       |    |		Load_Top	At_Offset_0
039f 1c00       |    |		Execute_Immediate	Run_Utility,0x0
03a0 e00b       |    |		Load	0x0,0xb
03a1 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
03a2 02c7       |    |		Declare_Variable	Any
03a3 00d8       |    |		Load_Top	At_Offset_0
03a4 1c00       |    |		Execute_Immediate	Run_Utility,0x0
03a5 029f 061b  |    |		Declare_Subprogram	INIT_0618,For_Call
03a7 029f 0633  |   3|		Declare_Subprogram	INIT_0630,For_Call
03a9 029f 064b  |   K|		Declare_Subprogram	INIT_0648,For_Call
03ab 029f 0663  |   c|		Declare_Subprogram	INIT_0660,For_Call
03ad 029f 067b  |   {|		Declare_Subprogram	INIT_0678,For_Call
03af 029f 0693  |    |		Declare_Subprogram	INIT_0690,For_Call
03b1			BODY_0398:
03b1 e403       |    |		Load	0x2,0x3
03b2 0120       |    |		Execute	Any,Is_Value
03b3 6803       |h   |		Jump_Zero	0x3b7
03b4 e00b       |    |		Load	0x0,0xb
03b5 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
03b6 7801       |x   |		Jump	0x3b8
03b7 e403       |    |		Load	0x2,0x3
03b8 e402       |    |		Load	0x2,0x2
03b9 e5ff       |    |		Load	0x2,-0x1
03ba e011       |    |		Load	0x0,0x11
03bb 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
03bc 00d1       |    |		Pop_Control	Pop_Count_1
03bd c403       |    |		Store	0x2,0x3
03be 4802       |H   |		Short_Literal	0x2
03bf e403       |    |		Load	0x2,0x3
03c0 e00b       |    |		Load	0x0,0xb
03c1 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
03c2 6806       |h   |		Jump_Zero	0x3c9
03c3 e003       |    |		Load	0x0,0x3
03c4 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
03c5 e403       |    |		Load	0x2,0x3
03c6 e00c       |    |		Load	0x0,0xc
03c7 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
03c8 4508       |E   |		Exit_Suprogram	New_Top_Offset 0x8
03c9 e5ff       |    |		Load	0x2,-0x1
03ca e00d       |    |		Load	0x0,0xd
03cb 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
03cc 700a       |p   |		Jump_Nonzero	0x3d7
03cd e003       |    |		Load	0x0,0x3
03ce 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
03cf 4806       |H   |		Short_Literal	0x6
03d0 e5ff       |    |		Load	0x2,-0x1
03d1 0092 06e8  |    |		Action	Push_String_Extended,0x6e8					; " is not registered"
03d3 01cc       |    |		Execute	Vector,Catenate
03d4 e00c       |    |		Load	0x0,0xc
03d5 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
03d6 4508       |E   |		Exit_Suprogram	New_Top_Offset 0x8
03d7 0092 06e9  |    |		Action	Push_String_Extended,0x6e9					; "Information on RCF customization for "
03d9 e5ff       |    |		Load	0x2,-0x1
03da 01cc       |    |		Execute	Vector,Catenate
03db e012       |    |		Load	0x0,0x12
03dc 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
03dd e5fe       |    |		Load	0x2,-0x2
03de 6804       |h   |		Jump_Zero	0x3e3
03df e402       |    |		Load	0x2,0x2
03e0 e00d       |    |		Load	0x0,0xd
03e1 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
03e2 8404       |    |		Call	0x2,0x4
03e3 e5fc       |    |		Load	0x2,-0x4
03e4 6804       |h   |		Jump_Zero	0x3e9
03e5 e402       |    |		Load	0x2,0x2
03e6 e00d       |    |		Load	0x0,0xd
03e7 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
03e8 8405       |    |		Call	0x2,0x5
03e9 e5fa       |    |		Load	0x2,-0x6
03ea 6804       |h   |		Jump_Zero	0x3ef
03eb e402       |    |		Load	0x2,0x2
03ec e00d       |    |		Load	0x0,0xd
03ed 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
03ee 8408       |    |		Call	0x2,0x8
03ef e5fb       |    |		Load	0x2,-0x5
03f0 6804       |h   |		Jump_Zero	0x3f5
03f1 e402       |    |		Load	0x2,0x2
03f2 e00d       |    |		Load	0x0,0xd
03f3 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
03f4 8406       |    |		Call	0x2,0x6
03f5 e5fd       |    |		Load	0x2,-0x3
03f6 6804       |h   |		Jump_Zero	0x3fb
03f7 e402       |    |		Load	0x2,0x2
03f8 e00d       |    |		Load	0x0,0xd
03f9 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
03fa 8407       |    |		Call	0x2,0x7
03fb e5f9       |    |		Load	0x2,-0x7
03fc 6804       |h   |		Jump_Zero	0x401
03fd e402       |    |		Load	0x2,0x2
03fe e00d       |    |		Load	0x0,0xd
03ff 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0400 8409       |    |		Call	0x2,0x9
0401 4508       |E   |		Exit_Suprogram	New_Top_Offset 0x8
0402			TRAP_0398:
0402 0007       |    |		Action	Break_Optional
0403 e003       |    |		Load	0x0,0x3
0404 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0405 4807       |H   |		Short_Literal	0x7
0406 0092 06df  |    |		Action	Push_String_Extended,0x6df					; "Exception "
0408 4800       |H   |		Short_Literal	0x0
0409 4801       |H   |		Short_Literal	0x1
040a e010       |    |		Load	0x0,0x10
040b 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
040c 01cc       |    |		Execute	Vector,Catenate
040d 0092 06ea  |    |		Action	Push_String_Extended,0x6ea					; " caught in Information."
040f 01cc       |    |		Execute	Vector,Catenate
0410 e00c       |    |		Load	0x0,0xc
0411 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0412 e003       |    |		Load	0x0,0x3
0413 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0414 4807       |H   |		Short_Literal	0x7
0415 4800       |H   |		Short_Literal	0x0
0416 4801       |H   |		Short_Literal	0x1
0417 e010       |    |		Load	0x0,0x10
0418 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0419 0092 06e1  |    |		Action	Push_String_Extended,0x6e1					; " was raised in "
041b 01cc       |    |		Execute	Vector,Catenate
041c 4800       |H   |		Short_Literal	0x0
041d 4801       |H   |		Short_Literal	0x1
041e e010       |    |		Load	0x0,0x10
041f 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0420 01cc       |    |		Execute	Vector,Catenate
0421 0092 06e2  |    |		Action	Push_String_Extended,0x6e2					; ".  "
0423 01cc       |    |		Execute	Vector,Catenate
0424 e00c       |    |		Load	0x0,0xc
0425 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0426 4508       |E   |		Exit_Suprogram	New_Top_Offset 0x8
0427 0000       |    |		.XXX[0x1]
0428 ; --------------------------------------------------------------------------------------
0428 ; SUBPROGRAM
0428 ; --------------------------------------------------------------------------------------
0428 0432       | 2  |		.CONST	0x0432								; Address of begin
0429 0468       | h  |		.CONST	0x0468								; Address of exception handler
042a 0003       |    |		.CONST	0x0003								; Number of locals
042b			INIT_0428:
042b e00d       |    |		Load	0x0,0xd
042c 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
042d 02c7       |    |		Declare_Variable	Any
042e 00d8       |    |		Load_Top	At_Offset_0
042f 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0430 00e1       |    |		Load_Encached	Boolean_Cache
0431 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0432			BODY_0428:
0432 00d9       |    |		Load_Top	At_Offset_1
0433 0120       |    |		Execute	Any,Is_Value
0434 6803       |h   |		Jump_Zero	0x438
0435 e00d       |    |		Load	0x0,0xd
0436 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
0437 7801       |x   |		Jump	0x439
0438 00d9       |    |		Load_Top	At_Offset_1
0439 e00d       |    |		Load	0x0,0xd
043a 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
043b c402       |    |		Store	0x2,0x2
043c 00cf       |    |		Action	Mark_Auxiliary
043d 781b       |x   |		Jump	0x459
043e 00da       |    |		Load_Top	At_Offset_2
043f e00d       |    |		Load	0x0,0xd
0440 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0441 e00d       |    |		Load	0x0,0xd
0442 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0443 6810       |h   |		Jump_Zero	0x454
0444 00d9       |    |		Load_Top	At_Offset_1
0445 7004       |p   |		Jump_Nonzero	0x44a
0446 0092 06eb  |    |		Action	Push_String_Extended,0x6eb					; "Registered RCF Customizations:  "
0448 e012       |    |		Load	0x0,0x12
0449 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
044a 4801       |H   |		Short_Literal	0x1
044b 0052       | R  |		Store_Top_Unchecked	Discrete,At_Offset_2
044c 0092 06ec  |    |		Action	Push_String_Extended,0x6ec					; "   "
044e 00db       |    |		Load_Top	At_Offset_3
044f e00d       |    |		Load	0x0,0xd
0450 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0451 01cc       |    |		Execute	Vector,Catenate
0452 e012       |    |		Load	0x0,0x12
0453 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
0454 00da       |    |		Load_Top	At_Offset_2
0455 e00d       |    |		Load	0x0,0xd
0456 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
0457 c402       |    |		Store	0x2,0x2
0458 00c9       |    |		Action	Pop_Auxiliary_Loop
0459 00da       |    |		Load_Top	At_Offset_2
045a e00d       |    |		Load	0x0,0xd
045b 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
045c 6fe1       |o   |		Jump_Zero	0x43e
045d 00ce       |    |		Action	Pop_Auxiliary
045e 00d8       |    |		Load_Top	At_Offset_0
045f 7007       |p   |		Jump_Nonzero	0x467
0460 e003       |    |		Load	0x0,0x3
0461 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0462 4806       |H   |		Short_Literal	0x6
0463 0092 06ed  |    |		Action	Push_String_Extended,0x6ed					; "No registered RCF Customizations"
0465 e00c       |    |		Load	0x0,0xc
0466 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0467 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0468			TRAP_0428:
0468 0007       |    |		Action	Break_Optional
0469 e003       |    |		Load	0x0,0x3
046a 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
046b 4807       |H   |		Short_Literal	0x7
046c 0092 06df  |    |		Action	Push_String_Extended,0x6df					; "Exception "
046e 4800       |H   |		Short_Literal	0x0
046f 4801       |H   |		Short_Literal	0x1
0470 e010       |    |		Load	0x0,0x10
0471 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0472 01cc       |    |		Execute	Vector,Catenate
0473 0092 06ee  |    |		Action	Push_String_Extended,0x6ee					; " caught in Display_All_Registered_Targets."
0475 01cc       |    |		Execute	Vector,Catenate
0476 e00c       |    |		Load	0x0,0xc
0477 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0478 e003       |    |		Load	0x0,0x3
0479 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
047a 4807       |H   |		Short_Literal	0x7
047b 4800       |H   |		Short_Literal	0x0
047c 4801       |H   |		Short_Literal	0x1
047d e010       |    |		Load	0x0,0x10
047e 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
047f 0092 06e1  |    |		Action	Push_String_Extended,0x6e1					; " was raised in "
0481 01cc       |    |		Execute	Vector,Catenate
0482 4800       |H   |		Short_Literal	0x0
0483 4801       |H   |		Short_Literal	0x1
0484 e010       |    |		Load	0x0,0x10
0485 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0486 01cc       |    |		Execute	Vector,Catenate
0487 0092 06e2  |    |		Action	Push_String_Extended,0x6e2					; ".  "
0489 01cc       |    |		Execute	Vector,Catenate
048a e00c       |    |		Load	0x0,0xc
048b 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
048c 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
048d 0000 0000  |    |		.XXX[0x3]
048f 0000       |    |
0490 ; --------------------------------------------------------------------------------------
0490 ; SUBPROGRAM
0490 ; --------------------------------------------------------------------------------------
0490 0493       |    |		.CONST	0x0493								; Address of begin
0491 0004       |    |		.CONST	0x0004								; Address of exception handler
0492 0001       |    |		.CONST	0x0001								; Number of locals
0493			BODY_0490:
0493			INIT_0490:
0493 4605       |F   |		Jump_Case	0x6
0494 7804       |x   |		Jump	0x499								; case 0x0
0495 7814       |x   |		Jump	0x4aa								; case 0x1
0496 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x2
0497 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x3
0498 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x4
0499 00da       |    |		Load_Top	At_Offset_2						; case 0x5
049a 01dc       |    |		Execute	Vector,Last
049b 00db       |    |		Load_Top	At_Offset_3
049c 01dd       |    |		Execute	Vector,First
049d 0263       | c  |		Execute	Discrete,Above_Bound
049e 700a       |p   |		Jump_Nonzero	0x4a9
049f 00d8       |    |		Load_Top	At_Offset_0
04a0 e5ff       |    |		Load	0x2,-0x1
04a1 01d5       |    |		Execute	Vector,Field_Reference
04a2 0125       | %  |		Execute	Any,Set_Constraint
04a3 00d8       |    |		Load_Top	At_Offset_0
04a4 e5ff       |    |		Load	0x2,-0x1
04a5 01d5       |    |		Execute	Vector,Field_Reference
04a6 1c00       |    |		Execute_Immediate	Run_Utility,0x0
04a7 0a01       |    |		Execute_Immediate	Plus,0x1
04a8 7ff4       |    |		Jump	0x49d
04a9 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
04aa 00da       |    |		Load_Top	At_Offset_2
04ab 01dc       |    |		Execute	Vector,Last
04ac 00db       |    |		Load_Top	At_Offset_3
04ad 01dd       |    |		Execute	Vector,First
04ae 0263       | c  |		Execute	Discrete,Above_Bound
04af 700a       |p   |		Jump_Nonzero	0x4ba
04b0 00d8       |    |		Load_Top	At_Offset_0
04b1 e5ff       |    |		Load	0x2,-0x1
04b2 01d5       |    |		Execute	Vector,Field_Reference
04b3 0125       | %  |		Execute	Any,Set_Constraint
04b4 00d8       |    |		Load_Top	At_Offset_0
04b5 e5ff       |    |		Load	0x2,-0x1
04b6 01d7       |    |		Execute	Vector,Field_Read
04b7 1c00       |    |		Execute_Immediate	Run_Utility,0x0
04b8 0a01       |    |		Execute_Immediate	Plus,0x1
04b9 7ff4       |    |		Jump	0x4ae
04ba 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
04bb 0000 0000  |    |		.BLANK	0000[0x5]
04c0 ; --------------------------------------------------------------------------------------
04c0 ; SUBPROGRAM
04c0 ; --------------------------------------------------------------------------------------
04c0 04c3       |    |		.CONST	0x04c3								; Address of begin
04c1 0004       |    |		.CONST	0x0004								; Address of exception handler
04c2 0001       |    |		.CONST	0x0001								; Number of locals
04c3			BODY_04c0:
04c3			INIT_04c0:
04c3 00cf       |    |		Action	Mark_Auxiliary
04c4 4808       |H   |		Short_Literal	0x8
04c5 4801       |H   |		Short_Literal	0x1
04c6 0007       |    |		Action	Break_Optional
04c7 4801       |H   |		Short_Literal	0x1
04c8 4820       |H   |		Short_Literal	0x20
04c9 00da       |    |		Load_Top	At_Offset_2
04ca e215       |    |		Load	0x1,0x15
04cb 01d5       |    |		Execute	Vector,Field_Reference
04cc e009       |    |		Load	0x0,0x9
04cd 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
04ce 4820       |H   |		Short_Literal	0x20
04cf e5ff       |    |		Load	0x2,-0x1
04d0 e009       |    |		Load	0x0,0x9
04d1 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
04d2 e009       |    |		Load	0x0,0x9
04d3 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
04d4 6804       |h   |		Jump_Zero	0x4d9
04d5 e5ff       |    |		Load	0x2,-0x1
04d6 e013       |    |		Load	0x0,0x13
04d7 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
04d8 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
04d9 00c8       |    |		Action	Pop_Auxiliary_Range
04da 3fec       |?   |		Loop_Increasing	0x4c7
04db 00ce       |    |		Action	Pop_Auxiliary
04dc 4801       |H   |		Short_Literal	0x1
04dd 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
04de 0000 0000  |    |		.XXX[0x2]
04e0 ; --------------------------------------------------------------------------------------
04e0 ; SUBPROGRAM
04e0 ; --------------------------------------------------------------------------------------
04e0 04f7       |    |		.CONST	0x04f7								; Address of begin
04e1 0004       |    |		.CONST	0x0004								; Address of exception handler
04e2 0007       |    |		.CONST	0x0007								; Number of locals
04e3			INIT_04e0:
04e3 e002       |    |		Load	0x0,0x2
04e4 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
04e5 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
04e6 02c7       |    |		Declare_Variable	Any
04e7 00d8       |    |		Load_Top	At_Offset_0
04e8 1c00       |    |		Execute_Immediate	Run_Utility,0x0
04e9 e002       |    |		Load	0x0,0x2
04ea 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
04eb e002       |    |		Load	0x0,0x2
04ec 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
04ed 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
04ee e002       |    |		Load	0x0,0x2
04ef 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
04f0 02c7       |    |		Declare_Variable	Any
04f1 00d8       |    |		Load_Top	At_Offset_0
04f2 1c00       |    |		Execute_Immediate	Run_Utility,0x0
04f3 00e3       |    |		Load_Encached	Natural_Cache
04f4 0601       |    |		Execute_Immediate	Set_Value_Unchecked,0x1
04f5 029f 06ab  |    |		Declare_Subprogram	INIT_06a8,For_Call
04f7			BODY_04e0:
04f7 e002       |    |		Load	0x0,0x2
04f8 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
04f9 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
04fa e402       |    |		Load	0x2,0x2
04fb 6040       |`@  |		Indirect_Literal	Discrete,0x53c,{0x00000000, 0x00004000}
04fc e007       |    |		Load	0x0,0x7
04fd 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
04fe e008       |    |		Load	0x0,0x8
04ff 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0500 e014       |    |		Load	0x0,0x14
0501 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0502 4801       |H   |		Short_Literal	0x1
0503 4800       |H   |		Short_Literal	0x0
0504 e008       |    |		Load	0x0,0x8
0505 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0506 e002       |    |		Load	0x0,0x2
0507 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0508 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0509 0092 06ef  |    |		Action	Push_String_Extended,0x6ef					; "!machine.rcf.@_defs"
050b e002       |    |		Load	0x0,0x2
050c 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
050d 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
050e c402       |    |		Store	0x2,0x2
050f c404       |    |		Store	0x2,0x4
0510 00cf       |    |		Action	Mark_Auxiliary
0511 781a       |x   |		Jump	0x52c
0512 e002       |    |		Load	0x0,0x2
0513 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0514 e405       |    |		Load	0x2,0x5
0515 0120       |    |		Execute	Any,Is_Value
0516 6803       |h   |		Jump_Zero	0x51a
0517 e002       |    |		Load	0x0,0x2
0518 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0519 7801       |x   |		Jump	0x51b
051a e405       |    |		Load	0x2,0x5
051b e402       |    |		Load	0x2,0x2
051c e002       |    |		Load	0x0,0x2
051d 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
051e 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
051f c405       |    |		Store	0x2,0x5
0520 c403       |    |		Store	0x2,0x3
0521 00db       |    |		Load_Top	At_Offset_3
0522 e002       |    |		Load	0x0,0x2
0523 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0524 7001       |p   |		Jump_Nonzero	0x526
0525 8407       |    |		Call	0x2,0x7
0526 e402       |    |		Load	0x2,0x2
0527 e002       |    |		Load	0x0,0x2
0528 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0529 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
052a c402       |    |		Store	0x2,0x2
052b 00c9       |    |		Action	Pop_Auxiliary_Loop
052c e402       |    |		Load	0x2,0x2
052d e002       |    |		Load	0x0,0x2
052e 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
052f 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
0530 6fe1       |o   |		Jump_Zero	0x512
0531 00ce       |    |		Action	Pop_Auxiliary
0532 4801       |H   |		Short_Literal	0x1
0533 00da       |    |		Load_Top	At_Offset_2
0534 0aff       |    |		Execute_Immediate	Plus,-0x1
0535 e213       |    |		Load	0x1,0x13
0536 01cf       |    |		Execute	Vector,Slice_Read
0537 0335       | 5  |		Declare_Variable	Array,Duplicate
0538 00cd       |    |		Action	Spare6_Action
0539 00ca       |    |		Action	Exit_Nullary_Function
053a 0000 0000  |    |		.XXX[0x2]
053c 0000 0000  |    |		.LITERAL	{0x00000000, 0x00004000}
0540 ; --------------------------------------------------------------------------------------
0540 ; SUBPROGRAM
0540 ; --------------------------------------------------------------------------------------
0540 0562       | b  |		.CONST	0x0562								; Address of begin
0541 0004       |    |		.CONST	0x0004								; Address of exception handler
0542 0007       |    |		.CONST	0x0007								; Number of locals
0543			INIT_0540:
0543 e002       |    |		Load	0x0,0x2
0544 1b3d       | =  |		Execute	Package,Field_Read,Field_Number 0x3d
0545 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0546 02c7       |    |		Declare_Variable	Any
0547 00d8       |    |		Load_Top	At_Offset_0
0548 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0549 e002       |    |		Load	0x0,0x2
054a 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
054b 02c7       |    |		Declare_Variable	Any
054c 00d8       |    |		Load_Top	At_Offset_0
054d 1c00       |    |		Execute_Immediate	Run_Utility,0x0
054e e002       |    |		Load	0x0,0x2
054f 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
0550 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
0551 02c7       |    |		Declare_Variable	Any
0552 00d8       |    |		Load_Top	At_Offset_0
0553 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0554 00f1       |    |		Load_Encached	Diana_Temp_Seq
0555 02c7       |    |		Declare_Variable	Any
0556 00d8       |    |		Load_Top	At_Offset_0
0557 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0558 e002       |    |		Load	0x0,0x2
0559 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
055a 02ff       |    |		Declare_Variable	Variant_Record
055b 00d8       |    |		Load_Top	At_Offset_0
055c 1c00       |    |		Execute_Immediate	Run_Utility,0x0
055d e004       |    |		Load	0x0,0x4
055e 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
055f 02c7       |    |		Declare_Variable	Any
0560 00d8       |    |		Load_Top	At_Offset_0
0561 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0562			BODY_0540:
0562 e002       |    |		Load	0x0,0x2
0563 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0564 e602       |    |		Load	0x3,0x2
0565 0120       |    |		Execute	Any,Is_Value
0566 6804       |h   |		Jump_Zero	0x56b
0567 e002       |    |		Load	0x0,0x2
0568 1b3d       | =  |		Execute	Package,Field_Read,Field_Number 0x3d
0569 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
056a 7801       |x   |		Jump	0x56c
056b e602       |    |		Load	0x3,0x2
056c 67cf       |g   |		Indirect_Literal	Discrete,0x53c,{0x00000000, 0x00004000}
056d e007       |    |		Load	0x0,0x7
056e 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
056f e002       |    |		Load	0x0,0x2
0570 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0571 4802       |H   |		Short_Literal	0x2
0572 609d       |`   |		Indirect_Literal	Discrete,0x610,{0x00000000, 0x7fffffff}
0573 609c       |`   |		Indirect_Literal	Discrete,0x610,{0x00000000, 0x7fffffff}
0574 e002       |    |		Load	0x0,0x2
0575 1b3d       | =  |		Execute	Package,Field_Read,Field_Number 0x3d
0576 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
0577 e00a       |    |		Load	0x0,0xa
0578 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0579 e405       |    |		Load	0x2,0x5
057a 4801       |H   |		Short_Literal	0x1
057b e7ff       |    |		Load	0x3,-0x1
057c e002       |    |		Load	0x0,0x2
057d 1b3d       | =  |		Execute	Package,Field_Read,Field_Number 0x3d
057e 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
057f c602       |    |		Store	0x3,0x2
0580 c406       |    |		Store	0x2,0x6
0581 e406       |    |		Load	0x2,0x6
0582 682a       |h*  |		Jump_Zero	0x5ad
0583 e003       |    |		Load	0x0,0x3
0584 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0585 4801       |H   |		Short_Literal	0x1
0586 4802       |H   |		Short_Literal	0x2
0587 e005       |    |		Load	0x0,0x5
0588 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0589 035b       | [  |		Declare_Type	Array,Constrained
058a 0337       | 7  |		Declare_Variable	Array
058b 0092 06d0  |    |		Action	Push_String_Extended,0x6d0					; "!Targets."
058d e5ff       |    |		Load	0x2,-0x1
058e 01cc       |    |		Execute	Vector,Catenate
058f 0092 06f0  |    |		Action	Push_String_Extended,0x6f0					; "."
0591 01cc       |    |		Execute	Vector,Catenate
0592 e7ff       |    |		Load	0x3,-0x1
0593 01cc       |    |		Execute	Vector,Catenate
0594 e005       |    |		Load	0x0,0x5
0595 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0596 e005       |    |		Load	0x0,0x5
0597 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0598 0119       |    |		Execute	Any,Check_In_Formal_Type
0599 4801       |H   |		Short_Literal	0x1
059a 00da       |    |		Load_Top	At_Offset_2
059b 01d6       |    |		Execute	Vector,Field_Write
059c e406       |    |		Load	0x2,0x6
059d e002       |    |		Load	0x0,0x2
059e 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
059f 011c       |    |		Execute	Any,Convert_Unchecked
05a0 1c01       |    |		Execute_Immediate	Run_Utility,0x1
05a1 e005       |    |		Load	0x0,0x5
05a2 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
05a3 e005       |    |		Load	0x0,0x5
05a4 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
05a5 0119       |    |		Execute	Any,Check_In_Formal_Type
05a6 4802       |H   |		Short_Literal	0x2
05a7 00da       |    |		Load_Top	At_Offset_2
05a8 01d6       |    |		Execute	Vector,Field_Write
05a9 6062       |`b  |		Indirect_Literal	Discrete,0x60c,{0x00000000, 0x00008895}
05aa e006       |    |		Load	0x0,0x6
05ab 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
05ac 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
05ad e602       |    |		Load	0x3,0x2
05ae e002       |    |		Load	0x0,0x2
05af 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
05b0 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
05b1 c603       |    |		Store	0x3,0x3
05b2 e002       |    |		Load	0x0,0x2
05b3 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
05b4 00db       |    |		Load_Top	At_Offset_3
05b5 0120       |    |		Execute	Any,Is_Value
05b6 6802       |h   |		Jump_Zero	0x5b9
05b7 00f1       |    |		Load_Encached	Diana_Temp_Seq
05b8 7801       |x   |		Jump	0x5ba
05b9 00db       |    |		Load_Top	At_Offset_3
05ba e604       |    |		Load	0x3,0x4
05bb 0120       |    |		Execute	Any,Is_Value
05bc 6804       |h   |		Jump_Zero	0x5c1
05bd e002       |    |		Load	0x0,0x2
05be 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
05bf 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
05c0 7801       |x   |		Jump	0x5c2
05c1 e604       |    |		Load	0x3,0x4
05c2 00db       |    |		Load_Top	At_Offset_3
05c3 0120       |    |		Execute	Any,Is_Value
05c4 6803       |h   |		Jump_Zero	0x5c8
05c5 e004       |    |		Load	0x0,0x4
05c6 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
05c7 7801       |x   |		Jump	0x5c9
05c8 00db       |    |		Load_Top	At_Offset_3
05c9 e606       |    |		Load	0x3,0x6
05ca 6771       |gq  |		Indirect_Literal	Discrete,0x53c,{0x00000000, 0x00004000}
05cb e007       |    |		Load	0x0,0x7
05cc 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
05cd 4800       |H   |		Short_Literal	0x0
05ce e002       |    |		Load	0x0,0x2
05cf 1b34       | 4  |		Execute	Package,Field_Read,Field_Number 0x34
05d0 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
05d1 e002       |    |		Load	0x0,0x2
05d2 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
05d3 4ffc       |O   |		Short_Literal	-0x4
05d4 4ffd       |O   |		Short_Literal	-0x3
05d5 e603       |    |		Load	0x3,0x3
05d6 e002       |    |		Load	0x0,0x2
05d7 1b3b       | ;  |		Execute	Package,Field_Read,Field_Number 0x3b
05d8 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
05d9 00d1       |    |		Pop_Control	Pop_Count_1
05da c607       |    |		Store	0x3,0x7
05db c604       |    |		Store	0x3,0x4
05dc c605       |    |		Store	0x3,0x5
05dd c406       |    |		Store	0x2,0x6
05de e406       |    |		Load	0x2,0x6
05df 682a       |h*  |		Jump_Zero	0x60a
05e0 e003       |    |		Load	0x0,0x3
05e1 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
05e2 4801       |H   |		Short_Literal	0x1
05e3 4802       |H   |		Short_Literal	0x2
05e4 e005       |    |		Load	0x0,0x5
05e5 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
05e6 035b       | [  |		Declare_Type	Array,Constrained
05e7 0337       | 7  |		Declare_Variable	Array
05e8 0092 06d0  |    |		Action	Push_String_Extended,0x6d0					; "!Targets."
05ea e5ff       |    |		Load	0x2,-0x1
05eb 01cc       |    |		Execute	Vector,Catenate
05ec 0092 06f0  |    |		Action	Push_String_Extended,0x6f0					; "."
05ee 01cc       |    |		Execute	Vector,Catenate
05ef e7ff       |    |		Load	0x3,-0x1
05f0 01cc       |    |		Execute	Vector,Catenate
05f1 e005       |    |		Load	0x0,0x5
05f2 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
05f3 e005       |    |		Load	0x0,0x5
05f4 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
05f5 0119       |    |		Execute	Any,Check_In_Formal_Type
05f6 4801       |H   |		Short_Literal	0x1
05f7 00da       |    |		Load_Top	At_Offset_2
05f8 01d6       |    |		Execute	Vector,Field_Write
05f9 e406       |    |		Load	0x2,0x6
05fa e002       |    |		Load	0x0,0x2
05fb 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
05fc 011c       |    |		Execute	Any,Convert_Unchecked
05fd 1c01       |    |		Execute_Immediate	Run_Utility,0x1
05fe e005       |    |		Load	0x0,0x5
05ff 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0600 e005       |    |		Load	0x0,0x5
0601 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0602 0119       |    |		Execute	Any,Check_In_Formal_Type
0603 4802       |H   |		Short_Literal	0x2
0604 00da       |    |		Load_Top	At_Offset_2
0605 01d6       |    |		Execute	Vector,Field_Write
0606 6005       |`   |		Indirect_Literal	Discrete,0x60c,{0x00000000, 0x00008895}
0607 e006       |    |		Load	0x0,0x6
0608 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
0609 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
060a 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
060b 0000       |    |		.XXX[0x1]
060c 0000 0000  |    |		.LITERAL	{0x00000000, 0x00008895}
0610 0000 0000  |    |		.LITERAL	{0x00000000, 0x7fffffff}
0614 0000 0000  |    |		.BLANK	0000[0x4]
0618 ; --------------------------------------------------------------------------------------
0618 ; SUBPROGRAM
0618 ; --------------------------------------------------------------------------------------
0618 061b       |    |		.CONST	0x061b								; Address of begin
0619 0004       |    |		.CONST	0x0004								; Address of exception handler
061a 0001       |    |		.CONST	0x0001								; Number of locals
061b			BODY_0618:
061b			INIT_0618:
061b 00da       |    |		Load_Top	At_Offset_2
061c e015       |    |		Load	0x0,0x15
061d 1839       | 9  |		Execute	Package,Field_Execute,Field_Number 0x39
061e 6805       |h   |		Jump_Zero	0x624
061f 0092 06f1  |    |		Action	Push_String_Extended,0x6f1					; "No Operational Customizations Defined."
0621 e012       |    |		Load	0x0,0x12
0622 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
0623 7803       |x   |		Jump	0x627
0624 00da       |    |		Load_Top	At_Offset_2
0625 e015       |    |		Load	0x0,0x15
0626 183c       | <  |		Execute	Package,Field_Execute,Field_Number 0x3c
0627 0092 06ec  |    |		Action	Push_String_Extended,0x6ec					; "   "
0629 e012       |    |		Load	0x0,0x12
062a 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
062b 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
062c 0000 0000  |    |		.BLANK	0000[0x4]
0630 ; --------------------------------------------------------------------------------------
0630 ; SUBPROGRAM
0630 ; --------------------------------------------------------------------------------------
0630 0633       | 3  |		.CONST	0x0633								; Address of begin
0631 0004       |    |		.CONST	0x0004								; Address of exception handler
0632 0001       |    |		.CONST	0x0001								; Number of locals
0633			BODY_0630:
0633			INIT_0630:
0633 00da       |    |		Load_Top	At_Offset_2
0634 e016       |    |		Load	0x0,0x16
0635 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
0636 182d       | -  |		Execute	Package,Field_Execute,Field_Number 0x2d
0637 6805       |h   |		Jump_Zero	0x63d
0638 0092 06f2  |    |		Action	Push_String_Extended,0x6f2					; "No Pragma Customizations Defined."
063a e012       |    |		Load	0x0,0x12
063b 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
063c 7804       |x   |		Jump	0x641
063d 00da       |    |		Load_Top	At_Offset_2
063e e016       |    |		Load	0x0,0x16
063f 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
0640 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
0641 0092 06ec  |    |		Action	Push_String_Extended,0x6ec					; "   "
0643 e012       |    |		Load	0x0,0x12
0644 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
0645 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0646 0000 0000  |    |		.XXX[0x2]
0648 ; --------------------------------------------------------------------------------------
0648 ; SUBPROGRAM
0648 ; --------------------------------------------------------------------------------------
0648 064b       | K  |		.CONST	0x064b								; Address of begin
0649 0004       |    |		.CONST	0x0004								; Address of exception handler
064a 0001       |    |		.CONST	0x0001								; Number of locals
064b			BODY_0648:
064b			INIT_0648:
064b 00da       |    |		Load_Top	At_Offset_2
064c e016       |    |		Load	0x0,0x16
064d 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
064e 1830       | 0  |		Execute	Package,Field_Execute,Field_Number 0x30
064f 6805       |h   |		Jump_Zero	0x655
0650 0092 06f3  |    |		Action	Push_String_Extended,0x6f3					; "No Attribute Customizations Defined."
0652 e012       |    |		Load	0x0,0x12
0653 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
0654 7804       |x   |		Jump	0x659
0655 00da       |    |		Load_Top	At_Offset_2
0656 e016       |    |		Load	0x0,0x16
0657 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
0658 1834       | 4  |		Execute	Package,Field_Execute,Field_Number 0x34
0659 0092 06ec  |    |		Action	Push_String_Extended,0x6ec					; "   "
065b e012       |    |		Load	0x0,0x12
065c 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
065d 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
065e 0000 0000  |    |		.XXX[0x2]
0660 ; --------------------------------------------------------------------------------------
0660 ; SUBPROGRAM
0660 ; --------------------------------------------------------------------------------------
0660 0663       | c  |		.CONST	0x0663								; Address of begin
0661 0004       |    |		.CONST	0x0004								; Address of exception handler
0662 0001       |    |		.CONST	0x0001								; Number of locals
0663			BODY_0660:
0663			INIT_0660:
0663 00da       |    |		Load_Top	At_Offset_2
0664 e016       |    |		Load	0x0,0x16
0665 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
0666 1833       | 3  |		Execute	Package,Field_Execute,Field_Number 0x33
0667 6805       |h   |		Jump_Zero	0x66d
0668 0092 06f4  |    |		Action	Push_String_Extended,0x6f4					; "No Predefined Environment Customizations Defined."
066a e012       |    |		Load	0x0,0x12
066b 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
066c 7804       |x   |		Jump	0x671
066d 00da       |    |		Load_Top	At_Offset_2
066e e016       |    |		Load	0x0,0x16
066f 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
0670 1837       | 7  |		Execute	Package,Field_Execute,Field_Number 0x37
0671 0092 06ec  |    |		Action	Push_String_Extended,0x6ec					; "   "
0673 e012       |    |		Load	0x0,0x12
0674 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
0675 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0676 0000 0000  |    |		.XXX[0x2]
0678 ; --------------------------------------------------------------------------------------
0678 ; SUBPROGRAM
0678 ; --------------------------------------------------------------------------------------
0678 067b       | {  |		.CONST	0x067b								; Address of begin
0679 0004       |    |		.CONST	0x0004								; Address of exception handler
067a 0001       |    |		.CONST	0x0001								; Number of locals
067b			BODY_0678:
067b			INIT_0678:
067b 00da       |    |		Load_Top	At_Offset_2
067c e016       |    |		Load	0x0,0x16
067d 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
067e 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
067f 6805       |h   |		Jump_Zero	0x685
0680 0092 06f5  |    |		Action	Push_String_Extended,0x6f5					; "No Rep Spec Customizations Defined."
0682 e012       |    |		Load	0x0,0x12
0683 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
0684 7804       |x   |		Jump	0x689
0685 00da       |    |		Load_Top	At_Offset_2
0686 e016       |    |		Load	0x0,0x16
0687 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
0688 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
0689 0092 06ec  |    |		Action	Push_String_Extended,0x6ec					; "   "
068b e012       |    |		Load	0x0,0x12
068c 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
068d 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
068e 0000 0000  |    |		.XXX[0x2]
0690 ; --------------------------------------------------------------------------------------
0690 ; SUBPROGRAM
0690 ; --------------------------------------------------------------------------------------
0690 0693       |    |		.CONST	0x0693								; Address of begin
0691 0004       |    |		.CONST	0x0004								; Address of exception handler
0692 0001       |    |		.CONST	0x0001								; Number of locals
0693			BODY_0690:
0693			INIT_0690:
0693 00da       |    |		Load_Top	At_Offset_2
0694 e017       |    |		Load	0x0,0x17
0695 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
0696 012f       | /  |		Execute	Any,Equal
0697 6805       |h   |		Jump_Zero	0x69d
0698 0092 06f6  |    |		Action	Push_String_Extended,0x6f6					; "No telnet Customizations Defined."
069a e012       |    |		Load	0x0,0x12
069b 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
069c 7803       |x   |		Jump	0x6a0
069d 00da       |    |		Load_Top	At_Offset_2
069e e017       |    |		Load	0x0,0x17
069f 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
06a0 0092 06ec  |    |		Action	Push_String_Extended,0x6ec					; "   "
06a2 e012       |    |		Load	0x0,0x12
06a3 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
06a4 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
06a5 0000 0000  |    |		.XXX[0x3]
06a7 0000       |    |
06a8 ; --------------------------------------------------------------------------------------
06a8 ; SUBPROGRAM
06a8 ; --------------------------------------------------------------------------------------
06a8 06af       |    |		.CONST	0x06af								; Address of begin
06a9 0004       |    |		.CONST	0x0004								; Address of exception handler
06aa 0002       |    |		.CONST	0x0002								; Number of locals
06ab			INIT_06a8:
06ab e405       |    |		Load	0x2,0x5
06ac e002       |    |		Load	0x0,0x2
06ad 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
06ae 183b       | ;  |		Execute	Package,Field_Execute,Field_Number 0x3b
06af			BODY_06a8:
06af e406       |    |		Load	0x2,0x6
06b0 e213       |    |		Load	0x1,0x13
06b1 01d5       |    |		Execute	Vector,Field_Reference
06b2 00d8       |    |		Load_Top	At_Offset_0
06b3 00da       |    |		Load_Top	At_Offset_2
06b4 01dd       |    |		Execute	Vector,First
06b5 00db       |    |		Load_Top	At_Offset_3
06b6 01dc       |    |		Execute	Vector,Last
06b7 0afb       |    |		Execute_Immediate	Plus,-0x5
06b8 00d8       |    |		Load_Top	At_Offset_0
06b9 00e2       |    |		Load_Encached	Integer_Cache
06ba 0260       | `  |		Execute	Discrete,In_Type
06bb 7001       |p   |		Jump_Nonzero	0x6bd
06bc 0801       |    |		Execute_Immediate	Raise,0x1
06bd e602       |    |		Load	0x3,0x2
06be 01cf       |    |		Execute	Vector,Slice_Read
06bf e001       |    |		Load	0x0,0x1
06c0 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
06c1 00d2       |    |		Pop_Control	Pop_Count_2
06c2 e406       |    |		Load	0x2,0x6
06c3 0a01       |    |		Execute_Immediate	Plus,0x1
06c4 c406       |    |		Store	0x2,0x6
06c5 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
06c6 ; --------------------------------------------------------------------------------------
06c6 ; STRING TABLE
06c6 ; --------------------------------------------------------------------------------------
06c6 0064       | d  |		.STRTAB	0x0064->0x06f8							; "Rs6000_Aix_Ibm  "
06c7 0072       | r  |		.STRTAB	0x0072->0x0700							; "Vax_Vms_Dec_Xt  "
06c8 0080       |    |		.STRTAB	0x0080->0x0708							; "I386_Lynx_Als_Xt"
06c9 008e       |    |		.STRTAB	0x008e->0x0710							; "I486_Iux_Als_Xt "
06ca 009c       |    |		.STRTAB	0x009c->0x0718							; "I960_Vms_Tar_Xt "
06cb 00aa       |    |		.STRTAB	0x00aa->0x0720							; "IC30_Vms_Tar_Xt "
06cc 00b8       |    |		.STRTAB	0x00b8->0x0728							; "Sparc_Sun_Xt    "
06cd 00c6       |    |		.STRTAB	0x00c6->0x0730							; "Ix86_Unix_Als_Xt"
06ce 00d4       |    |		.STRTAB	0x00d4->0x0738							; "Build_Predefined_World"
06cf 00e8       |    |		.STRTAB	0x00e8->0x0743							; "!targets."
06d0 00ef       |    |		.STRTAB	0x00ef->0x0747							; "!Targets."
06d1 00f6       |    |		.STRTAB	0x00f6->0x074c							; "Create_Predefined_Library completed"
06d2 0117       |    |		.STRTAB	0x0117->0x075d							; "!targets"
06d3 011d       |    |		.STRTAB	0x011d->0x0761							; "!Targets"
06d4 0123       | #  |		.STRTAB	0x0123->0x0765							; "Create_Predefined_Library failed"
06d5 0141       | A  |		.STRTAB	0x0141->0x0775							; "Io"
06d6 0141       | A  |		.STRTAB	0x0141->0x0776							; "Lrm"
06d7 0142       | B  |		.STRTAB	0x0142->0x0778							; "Reusable_Components"
06d8 0153       | S  |		.STRTAB	0x0153->0x0781							; "Target_Interface"
06d9 0161       | a  |		.STRTAB	0x0161->0x0789							; "The "
06da 0163       | c  |		.STRTAB	0x0163->0x078b							; " target is not authorized for this machine."
06db 018c       |    |		.STRTAB	0x018c->0x07a1							; "Registration of  "
06dc 019b       |    |		.STRTAB	0x019b->0x07a9							; " has failed.  "
06dd 01a7       |    |		.STRTAB	0x01a7->0x07b0							; "<PROFILE>"
06de 01ae       |    |		.STRTAB	0x01ae->0x07b5							; " has completed.  "
06df 01bd       |    |		.STRTAB	0x01bd->0x07bd							; "Exception "
06e0 01c5       |    |		.STRTAB	0x01c5->0x07c2							; " caught in Register."
06e1 01d7       |    |		.STRTAB	0x01d7->0x07cc							; " was raised in "
06e2 01e4       |    |		.STRTAB	0x01e4->0x07d4							; ".  "
06e3 01e5       |    |		.STRTAB	0x01e5->0x07d5							; "Unregistered "
06e4 01f0       |    |		.STRTAB	0x01f0->0x07dc							; " RCF."
06e5 01f3       |    |		.STRTAB	0x01f3->0x07de							; "Destroyed "
06e6 01fb       |    |		.STRTAB	0x01fb->0x07e3							; "RCF ."
06e7 01fe       |    |		.STRTAB	0x01fe->0x07e6							; " caught in UnRegister."
06e8 0212       |    |		.STRTAB	0x0212->0x07f1							; " is not registered"
06e9 0222       | "  |		.STRTAB	0x0222->0x07fa							; "Information on RCF customization for "
06ea 0245       | E  |		.STRTAB	0x0245->0x080c							; " caught in Information."
06eb 025a       | Z  |		.STRTAB	0x025a->0x0818							; "Registered RCF Customizations:  "
06ec 0278       | x  |		.STRTAB	0x0278->0x0828							; "   "
06ed 0279       | y  |		.STRTAB	0x0279->0x0829							; "No registered RCF Customizations"
06ee 0297       |    |		.STRTAB	0x0297->0x0839							; " caught in Display_All_Registered_Targets."
06ef 02bf       |    |		.STRTAB	0x02bf->0x084e							; "!machine.rcf.@_defs"
06f0 02d0       |    |		.STRTAB	0x02d0->0x0858							; "."
06f1 02cf       |    |		.STRTAB	0x02cf->0x0858							; "No Operational Customizations Defined."
06f2 02f3       |    |		.STRTAB	0x02f3->0x086b							; "No Pragma Customizations Defined."
06f3 0312       |    |		.STRTAB	0x0312->0x087c							; "No Attribute Customizations Defined."
06f4 0334       | 4  |		.STRTAB	0x0334->0x088e							; "No Predefined Environment Customizations Defined."
06f5 0363       | c  |		.STRTAB	0x0363->0x08a6							; "No Rep Spec Customizations Defined."
06f6 0384       |    |		.STRTAB	0x0384->0x08b8							; "No telnet Customizations Defined."
06f7 03a3       |    |		.STREND 0x03a3->0x08c8
06f8 5273 3630  |Rs60|		.STRTAB_STRINGS
08c9 0000 0000  |    |		.BLANK	0000[0x7]
08d0 ; --------------------------------------------------------------------------------------
08d0 ; Debug Table
08d0 ; --------------------------------------------------------------------------------------
08d0 0004 000d  |    |		.DEBUG4	0x0004,0x000d,0x6df7,0x0000,0x0001,0x0000
08d6 0000 0000  |    |		.BLANK	0000[0x12a]