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

⟦b1cc6687e⟧

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

Derivation

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

Disassembly

0000 000f       |    |		.CONST	0x000f								; Version of machine code
0001 5800       |X   |		.CONST	0x5800								; Diana Version, RCG Major Version, RCG minor version
0002 0000       |    |		.CONST	0x0000								; Zero
0003 08e0       |    |		.CONST	0x08e0								; 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 0353  |   S|		Declare_Subprogram	INIT_0350,For_Outer_Call,Visible,Unelaborated
0011 029a 03b3  |    |		Declare_Subprogram	INIT_03b0,For_Outer_Call,Visible,Unelaborated
0013 029a 0443  |   C|		Declare_Subprogram	INIT_0440,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 04ab  |    |		Declare_Subprogram	INIT_04a8,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 06de  |    |		Action	Push_String_Extended,0x6de					; "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 06df  |    |		Action	Push_String_Extended,0x6df					; "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 06e0  |    |		Action	Push_String_Extended,0x6e0					; "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 06e1  |    |		Action	Push_String_Extended,0x6e1					; "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 06e2  |    |		Action	Push_String_Extended,0x6e2					; "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 06e3  |    |		Action	Push_String_Extended,0x6e3					; "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 06e4  |    |		Action	Push_String_Extended,0x6e4					; "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 06e5  |    |		Action	Push_String_Extended,0x6e5					; "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 04db  |    |		Declare_Subprogram	INIT_04d8,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 04fb  |    |		Declare_Subprogram	INIT_04f8,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 06e6  |    |		Action	Push_String_Extended,0x6e6					; "Create_Predefined_Library"
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 055b  |   [|		Declare_Subprogram	INIT_0558,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 06e7  |    |		Action	Push_String_Extended,0x6e7					; "!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 06e8  |    |		Action	Push_String_Extended,0x6e8					; "!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 06e9  |    |		Action	Push_String_Extended,0x6e9					; "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 06ea  |    |		Action	Push_String_Extended,0x6ea					; "!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 06eb  |    |		Action	Push_String_Extended,0x6eb					; "!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 06ec  |    |		Action	Push_String_Extended,0x6ec					; "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 06e8  |    |		Action	Push_String_Extended,0x6e8					; "!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 06ec  |    |		Action	Push_String_Extended,0x6ec					; "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 06e8  |    |		Action	Push_String_Extended,0x6e8					; "!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 06ec  |    |		Action	Push_String_Extended,0x6ec					; "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 06ed  |    |		Action	Push_String_Extended,0x6ed					; "Io"
0258 840e       |    |		Call	0x2,0xe
0259 0092 06ee  |    |		Action	Push_String_Extended,0x6ee					; "Lrm"
025b 840e       |    |		Call	0x2,0xe
025c 0092 06ef  |    |		Action	Push_String_Extended,0x6ef					; "Reusable_Components"
025e 840e       |    |		Call	0x2,0xe
025f 0092 06f0  |    |		Action	Push_String_Extended,0x6f0					; "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 06e9  |    |		Action	Push_String_Extended,0x6e9					; "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 02a1       |    |		.CONST	0x02a1								; Address of begin
0299 0325       | %  |		.CONST	0x0325								; Address of exception handler
029a 0003       |    |		.CONST	0x0003								; 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 00e1       |    |		Load_Encached	Boolean_Cache
02a1			BODY_0298:
02a1 e5ff       |    |		Load	0x2,-0x1
02a2 01db       |    |		Execute	Vector,Length
02a3 0c11       |    |		Execute_Immediate	Greater_Equal,0x11
02a4 681e       |h   |		Jump_Zero	0x2c3
02a5 e003       |    |		Load	0x0,0x3
02a6 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
02a7 4801       |H   |		Short_Literal	0x1
02a8 4802       |H   |		Short_Literal	0x2
02a9 e005       |    |		Load	0x0,0x5
02aa 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
02ab 035b       | [  |		Declare_Type	Array,Constrained
02ac 0337       | 7  |		Declare_Variable	Array
02ad e5ff       |    |		Load	0x2,-0x1
02ae e005       |    |		Load	0x0,0x5
02af 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
02b0 e005       |    |		Load	0x0,0x5
02b1 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
02b2 0119       |    |		Execute	Any,Check_In_Formal_Type
02b3 4801       |H   |		Short_Literal	0x1
02b4 00da       |    |		Load_Top	At_Offset_2
02b5 01d6       |    |		Execute	Vector,Field_Write
02b6 4810       |H   |		Short_Literal	0x10
02b7 e005       |    |		Load	0x0,0x5
02b8 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
02b9 e005       |    |		Load	0x0,0x5
02ba 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
02bb 0119       |    |		Execute	Any,Check_In_Formal_Type
02bc 4802       |H   |		Short_Literal	0x2
02bd 00da       |    |		Load_Top	At_Offset_2
02be 01d6       |    |		Execute	Vector,Field_Write
02bf 67d0       |g   |		Indirect_Literal	Discrete,0x290,{0x00000000, 0x00008899}
02c0 e006       |    |		Load	0x0,0x6
02c1 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
02c2 4509       |E   |		Exit_Suprogram	New_Top_Offset 0x9
02c3 e5ff       |    |		Load	0x2,-0x1
02c4 8216       |    |		Call	0x1,0x16
02c5 7019       |p   |		Jump_Nonzero	0x2df
02c6 e003       |    |		Load	0x0,0x3
02c7 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
02c8 4807       |H   |		Short_Literal	0x7
02c9 0092 06f1  |    |		Action	Push_String_Extended,0x6f1					; "The "
02cb e5ff       |    |		Load	0x2,-0x1
02cc 01cc       |    |		Execute	Vector,Catenate
02cd 0092 06f2  |    |		Action	Push_String_Extended,0x6f2					; " target is not authorized for this machine."
02cf 01cc       |    |		Execute	Vector,Catenate
02d0 e00c       |    |		Load	0x0,0xc
02d1 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
02d2 e003       |    |		Load	0x0,0x3
02d3 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
02d4 4803       |H   |		Short_Literal	0x3
02d5 0092 06f3  |    |		Action	Push_String_Extended,0x6f3					; "Registration of "
02d7 e5ff       |    |		Load	0x2,-0x1
02d8 01cc       |    |		Execute	Vector,Catenate
02d9 0092 06f4  |    |		Action	Push_String_Extended,0x6f4					; " has failed."
02db 01cc       |    |		Execute	Vector,Catenate
02dc e00c       |    |		Load	0x0,0xc
02dd 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
02de 4509       |E   |		Exit_Suprogram	New_Top_Offset 0x9
02df 00d9       |    |		Load_Top	At_Offset_1
02e0 e5f9       |    |		Load	0x2,-0x7
02e1 e5fa       |    |		Load	0x2,-0x6
02e2 e5fb       |    |		Load	0x2,-0x5
02e3 e5fc       |    |		Load	0x2,-0x4
02e4 e5fd       |    |		Load	0x2,-0x3
02e5 e5fe       |    |		Load	0x2,-0x2
02e6 e5ff       |    |		Load	0x2,-0x1
02e7 e00d       |    |		Load	0x0,0xd
02e8 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
02e9 c402       |    |		Store	0x2,0x2
02ea 4801       |H   |		Short_Literal	0x1
02eb 00da       |    |		Load_Top	At_Offset_2
02ec e00b       |    |		Load	0x0,0xb
02ed 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
02ee 6806       |h   |		Jump_Zero	0x2f5
02ef e003       |    |		Load	0x0,0x3
02f0 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
02f1 00da       |    |		Load_Top	At_Offset_2
02f2 e00c       |    |		Load	0x0,0xc
02f3 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
02f4 4509       |E   |		Exit_Suprogram	New_Top_Offset 0x9
02f5 00e1       |    |		Load_Encached	Boolean_Cache
02f6 0092 06f5  |    |		Action	Push_String_Extended,0x6f5					; "<PROFILE>"
02f8 4801       |H   |		Short_Literal	0x1
02f9 4801       |H   |		Short_Literal	0x1
02fa 00ea       |    |		Load_Encached	Null_String_Cache
02fb 00ea       |    |		Load_Encached	Null_String_Cache
02fc 00ea       |    |		Load_Encached	Null_String_Cache
02fd 4800       |H   |		Short_Literal	0x0
02fe 4800       |H   |		Short_Literal	0x0
02ff e5f8       |    |		Load	0x2,-0x8
0300 00ea       |    |		Load_Encached	Null_String_Cache
0301 00ea       |    |		Load_Encached	Null_String_Cache
0302 e5ff       |    |		Load	0x2,-0x1
0303 e00e       |    |		Load	0x0,0xe
0304 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0305 0059       | Y  |		Store_Top	Discrete,At_Offset_1
0306 00d8       |    |		Load_Top	At_Offset_0
0307 6810       |h   |		Jump_Zero	0x318
0308 e5ff       |    |		Load	0x2,-0x1
0309 e00f       |    |		Load	0x0,0xf
030a 189e       |    |		Execute	Package,Field_Execute,Field_Number 0x9e
030b e003       |    |		Load	0x0,0x3
030c 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
030d 4803       |H   |		Short_Literal	0x3
030e 0092 06f3  |    |		Action	Push_String_Extended,0x6f3					; "Registration of "
0310 e5ff       |    |		Load	0x2,-0x1
0311 01cc       |    |		Execute	Vector,Catenate
0312 0092 06f6  |    |		Action	Push_String_Extended,0x6f6					; " has completed."
0314 01cc       |    |		Execute	Vector,Catenate
0315 e00c       |    |		Load	0x0,0xc
0316 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0317 4509       |E   |		Exit_Suprogram	New_Top_Offset 0x9
0318 e003       |    |		Load	0x0,0x3
0319 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
031a 4805       |H   |		Short_Literal	0x5
031b 0092 06f3  |    |		Action	Push_String_Extended,0x6f3					; "Registration of "
031d e5ff       |    |		Load	0x2,-0x1
031e 01cc       |    |		Execute	Vector,Catenate
031f 0092 06f7  |    |		Action	Push_String_Extended,0x6f7					; " failed."
0321 01cc       |    |		Execute	Vector,Catenate
0322 e00c       |    |		Load	0x0,0xc
0323 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0324 4509       |E   |		Exit_Suprogram	New_Top_Offset 0x9
0325			TRAP_0298:
0325 0007       |    |		Action	Break_Optional
0326 e003       |    |		Load	0x0,0x3
0327 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0328 4807       |H   |		Short_Literal	0x7
0329 0092 06f8  |    |		Action	Push_String_Extended,0x6f8					; "Exception "
032b 4800       |H   |		Short_Literal	0x0
032c 4801       |H   |		Short_Literal	0x1
032d e010       |    |		Load	0x0,0x10
032e 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
032f 01cc       |    |		Execute	Vector,Catenate
0330 0092 06f9  |    |		Action	Push_String_Extended,0x6f9					; " caught in Register."
0332 01cc       |    |		Execute	Vector,Catenate
0333 e00c       |    |		Load	0x0,0xc
0334 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0335 e003       |    |		Load	0x0,0x3
0336 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0337 4807       |H   |		Short_Literal	0x7
0338 4800       |H   |		Short_Literal	0x0
0339 4801       |H   |		Short_Literal	0x1
033a e010       |    |		Load	0x0,0x10
033b 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
033c 0092 06fa  |    |		Action	Push_String_Extended,0x6fa					; " was raised in "
033e 01cc       |    |		Execute	Vector,Catenate
033f 4800       |H   |		Short_Literal	0x0
0340 4801       |H   |		Short_Literal	0x1
0341 e010       |    |		Load	0x0,0x10
0342 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0343 01cc       |    |		Execute	Vector,Catenate
0344 0092 06fb  |    |		Action	Push_String_Extended,0x6fb					; "."
0346 01cc       |    |		Execute	Vector,Catenate
0347 e00c       |    |		Load	0x0,0xc
0348 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0349 4509       |E   |		Exit_Suprogram	New_Top_Offset 0x9
034a 0000 0000  |    |		.BLANK	0000[0x6]
0350 ; --------------------------------------------------------------------------------------
0350 ; SUBPROGRAM
0350 ; --------------------------------------------------------------------------------------
0350 0358       | X  |		.CONST	0x0358								; Address of begin
0351 038a       |    |		.CONST	0x038a								; Address of exception handler
0352 0002       |    |		.CONST	0x0002								; Number of locals
0353			INIT_0350:
0353 e00b       |    |		Load	0x0,0xb
0354 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0355 02c7       |    |		Declare_Variable	Any
0356 00d8       |    |		Load_Top	At_Offset_0
0357 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0358			BODY_0350:
0358 00db       |    |		Load_Top	At_Offset_3
0359 e00f       |    |		Load	0x0,0xf
035a 18a0       |    |		Execute	Package,Field_Execute,Field_Number 0xa0
035b 00db       |    |		Load_Top	At_Offset_3
035c e00e       |    |		Load	0x0,0xe
035d 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
035e 00d8       |    |		Load_Top	At_Offset_0
035f e5fe       |    |		Load	0x2,-0x2
0360 e5ff       |    |		Load	0x2,-0x1
0361 e00d       |    |		Load	0x0,0xd
0362 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0363 c402       |    |		Store	0x2,0x2
0364 4801       |H   |		Short_Literal	0x1
0365 00d9       |    |		Load_Top	At_Offset_1
0366 e00b       |    |		Load	0x0,0xb
0367 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
0368 6806       |h   |		Jump_Zero	0x36f
0369 e003       |    |		Load	0x0,0x3
036a 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
036b 00d9       |    |		Load_Top	At_Offset_1
036c e00c       |    |		Load	0x0,0xc
036d 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
036e 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
036f e003       |    |		Load	0x0,0x3
0370 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0371 4803       |H   |		Short_Literal	0x3
0372 0092 06fc  |    |		Action	Push_String_Extended,0x6fc					; "Unregistered "
0374 e5ff       |    |		Load	0x2,-0x1
0375 01cc       |    |		Execute	Vector,Catenate
0376 0092 06fd  |    |		Action	Push_String_Extended,0x6fd					; " RCI."
0378 01cc       |    |		Execute	Vector,Catenate
0379 e00c       |    |		Load	0x0,0xc
037a 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
037b e5fe       |    |		Load	0x2,-0x2
037c 680c       |h   |		Jump_Zero	0x389
037d e003       |    |		Load	0x0,0x3
037e 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
037f 4803       |H   |		Short_Literal	0x3
0380 0092 06fe  |    |		Action	Push_String_Extended,0x6fe					; "Destroyed "
0382 e5ff       |    |		Load	0x2,-0x1
0383 01cc       |    |		Execute	Vector,Catenate
0384 0092 06fd  |    |		Action	Push_String_Extended,0x6fd					; " RCI."
0386 01cc       |    |		Execute	Vector,Catenate
0387 e00c       |    |		Load	0x0,0xc
0388 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0389 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
038a			TRAP_0350:
038a 0007       |    |		Action	Break_Optional
038b e003       |    |		Load	0x0,0x3
038c 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
038d 4807       |H   |		Short_Literal	0x7
038e 0092 06f8  |    |		Action	Push_String_Extended,0x6f8					; "Exception "
0390 4800       |H   |		Short_Literal	0x0
0391 4801       |H   |		Short_Literal	0x1
0392 e010       |    |		Load	0x0,0x10
0393 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0394 01cc       |    |		Execute	Vector,Catenate
0395 0092 06ff  |    |		Action	Push_String_Extended,0x6ff					; " caught in UnRegister."
0397 01cc       |    |		Execute	Vector,Catenate
0398 e00c       |    |		Load	0x0,0xc
0399 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
039a e003       |    |		Load	0x0,0x3
039b 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
039c 4807       |H   |		Short_Literal	0x7
039d 4800       |H   |		Short_Literal	0x0
039e 4801       |H   |		Short_Literal	0x1
039f e010       |    |		Load	0x0,0x10
03a0 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
03a1 0092 06fa  |    |		Action	Push_String_Extended,0x6fa					; " was raised in "
03a3 01cc       |    |		Execute	Vector,Catenate
03a4 4800       |H   |		Short_Literal	0x0
03a5 4801       |H   |		Short_Literal	0x1
03a6 e010       |    |		Load	0x0,0x10
03a7 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
03a8 01cc       |    |		Execute	Vector,Catenate
03a9 0092 06fb  |    |		Action	Push_String_Extended,0x6fb					; "."
03ab 01cc       |    |		Execute	Vector,Catenate
03ac e00c       |    |		Load	0x0,0xc
03ad 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
03ae 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
03af 0000       |    |		.XXX[0x1]
03b0 ; --------------------------------------------------------------------------------------
03b0 ; SUBPROGRAM
03b0 ; --------------------------------------------------------------------------------------
03b0 03c9       |    |		.CONST	0x03c9								; Address of begin
03b1 041a       |    |		.CONST	0x041a								; Address of exception handler
03b2 0009       |    |		.CONST	0x0009								; Number of locals
03b3			INIT_03b0:
03b3 e011       |    |		Load	0x0,0x11
03b4 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
03b5 0322       | "  |		Declare_Variable	Record
03b6 00d8       |    |		Load_Top	At_Offset_0
03b7 1c00       |    |		Execute_Immediate	Run_Utility,0x0
03b8 e00b       |    |		Load	0x0,0xb
03b9 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
03ba 02c7       |    |		Declare_Variable	Any
03bb 00d8       |    |		Load_Top	At_Offset_0
03bc 1c00       |    |		Execute_Immediate	Run_Utility,0x0
03bd 029f 0633  |   3|		Declare_Subprogram	INIT_0630,For_Call
03bf 029f 064b  |   K|		Declare_Subprogram	INIT_0648,For_Call
03c1 029f 0663  |   c|		Declare_Subprogram	INIT_0660,For_Call
03c3 029f 067b  |   {|		Declare_Subprogram	INIT_0678,For_Call
03c5 029f 0693  |    |		Declare_Subprogram	INIT_0690,For_Call
03c7 029f 06ab  |    |		Declare_Subprogram	INIT_06a8,For_Call
03c9			BODY_03b0:
03c9 e403       |    |		Load	0x2,0x3
03ca 0120       |    |		Execute	Any,Is_Value
03cb 6803       |h   |		Jump_Zero	0x3cf
03cc e00b       |    |		Load	0x0,0xb
03cd 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
03ce 7801       |x   |		Jump	0x3d0
03cf e403       |    |		Load	0x2,0x3
03d0 e402       |    |		Load	0x2,0x2
03d1 e5ff       |    |		Load	0x2,-0x1
03d2 e011       |    |		Load	0x0,0x11
03d3 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
03d4 00d1       |    |		Pop_Control	Pop_Count_1
03d5 c403       |    |		Store	0x2,0x3
03d6 4802       |H   |		Short_Literal	0x2
03d7 e403       |    |		Load	0x2,0x3
03d8 e00b       |    |		Load	0x0,0xb
03d9 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
03da 6806       |h   |		Jump_Zero	0x3e1
03db e003       |    |		Load	0x0,0x3
03dc 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
03dd e403       |    |		Load	0x2,0x3
03de e00c       |    |		Load	0x0,0xc
03df 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
03e0 4508       |E   |		Exit_Suprogram	New_Top_Offset 0x8
03e1 e5ff       |    |		Load	0x2,-0x1
03e2 e00d       |    |		Load	0x0,0xd
03e3 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
03e4 700a       |p   |		Jump_Nonzero	0x3ef
03e5 e003       |    |		Load	0x0,0x3
03e6 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
03e7 4806       |H   |		Short_Literal	0x6
03e8 e5ff       |    |		Load	0x2,-0x1
03e9 0092 0700  |    |		Action	Push_String_Extended,0x700					; " is not registered"
03eb 01cc       |    |		Execute	Vector,Catenate
03ec e00c       |    |		Load	0x0,0xc
03ed 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
03ee 4508       |E   |		Exit_Suprogram	New_Top_Offset 0x8
03ef 0092 0701  |    |		Action	Push_String_Extended,0x701					; "Information on RCI customization for "
03f1 e5ff       |    |		Load	0x2,-0x1
03f2 01cc       |    |		Execute	Vector,Catenate
03f3 e012       |    |		Load	0x0,0x12
03f4 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
03f5 e5fe       |    |		Load	0x2,-0x2
03f6 6804       |h   |		Jump_Zero	0x3fb
03f7 e402       |    |		Load	0x2,0x2
03f8 e00d       |    |		Load	0x0,0xd
03f9 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
03fa 8404       |    |		Call	0x2,0x4
03fb e5fc       |    |		Load	0x2,-0x4
03fc 6804       |h   |		Jump_Zero	0x401
03fd e402       |    |		Load	0x2,0x2
03fe e00d       |    |		Load	0x0,0xd
03ff 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0400 8405       |    |		Call	0x2,0x5
0401 e5fa       |    |		Load	0x2,-0x6
0402 6804       |h   |		Jump_Zero	0x407
0403 e402       |    |		Load	0x2,0x2
0404 e00d       |    |		Load	0x0,0xd
0405 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0406 8408       |    |		Call	0x2,0x8
0407 e5fb       |    |		Load	0x2,-0x5
0408 6804       |h   |		Jump_Zero	0x40d
0409 e402       |    |		Load	0x2,0x2
040a e00d       |    |		Load	0x0,0xd
040b 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
040c 8406       |    |		Call	0x2,0x6
040d e5fd       |    |		Load	0x2,-0x3
040e 6804       |h   |		Jump_Zero	0x413
040f e402       |    |		Load	0x2,0x2
0410 e00d       |    |		Load	0x0,0xd
0411 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0412 8407       |    |		Call	0x2,0x7
0413 e5f9       |    |		Load	0x2,-0x7
0414 6804       |h   |		Jump_Zero	0x419
0415 e402       |    |		Load	0x2,0x2
0416 e00d       |    |		Load	0x0,0xd
0417 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0418 8409       |    |		Call	0x2,0x9
0419 4508       |E   |		Exit_Suprogram	New_Top_Offset 0x8
041a			TRAP_03b0:
041a 0007       |    |		Action	Break_Optional
041b e003       |    |		Load	0x0,0x3
041c 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
041d 4807       |H   |		Short_Literal	0x7
041e 0092 06f8  |    |		Action	Push_String_Extended,0x6f8					; "Exception "
0420 4800       |H   |		Short_Literal	0x0
0421 4801       |H   |		Short_Literal	0x1
0422 e010       |    |		Load	0x0,0x10
0423 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0424 01cc       |    |		Execute	Vector,Catenate
0425 0092 0702  |    |		Action	Push_String_Extended,0x702					; " caught in Information."
0427 01cc       |    |		Execute	Vector,Catenate
0428 e00c       |    |		Load	0x0,0xc
0429 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
042a e003       |    |		Load	0x0,0x3
042b 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
042c 4807       |H   |		Short_Literal	0x7
042d 4800       |H   |		Short_Literal	0x0
042e 4801       |H   |		Short_Literal	0x1
042f e010       |    |		Load	0x0,0x10
0430 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0431 0092 06fa  |    |		Action	Push_String_Extended,0x6fa					; " was raised in "
0433 01cc       |    |		Execute	Vector,Catenate
0434 4800       |H   |		Short_Literal	0x0
0435 4801       |H   |		Short_Literal	0x1
0436 e010       |    |		Load	0x0,0x10
0437 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0438 01cc       |    |		Execute	Vector,Catenate
0439 0092 06fb  |    |		Action	Push_String_Extended,0x6fb					; "."
043b 01cc       |    |		Execute	Vector,Catenate
043c e00c       |    |		Load	0x0,0xc
043d 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
043e 4508       |E   |		Exit_Suprogram	New_Top_Offset 0x8
043f 0000       |    |		.XXX[0x1]
0440 ; --------------------------------------------------------------------------------------
0440 ; SUBPROGRAM
0440 ; --------------------------------------------------------------------------------------
0440 044a       | J  |		.CONST	0x044a								; Address of begin
0441 0480       |    |		.CONST	0x0480								; Address of exception handler
0442 0003       |    |		.CONST	0x0003								; Number of locals
0443			INIT_0440:
0443 e00d       |    |		Load	0x0,0xd
0444 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
0445 02c7       |    |		Declare_Variable	Any
0446 00d8       |    |		Load_Top	At_Offset_0
0447 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0448 00e1       |    |		Load_Encached	Boolean_Cache
0449 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
044a			BODY_0440:
044a 00d9       |    |		Load_Top	At_Offset_1
044b 0120       |    |		Execute	Any,Is_Value
044c 6803       |h   |		Jump_Zero	0x450
044d e00d       |    |		Load	0x0,0xd
044e 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
044f 7801       |x   |		Jump	0x451
0450 00d9       |    |		Load_Top	At_Offset_1
0451 e00d       |    |		Load	0x0,0xd
0452 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
0453 c402       |    |		Store	0x2,0x2
0454 00cf       |    |		Action	Mark_Auxiliary
0455 781b       |x   |		Jump	0x471
0456 00da       |    |		Load_Top	At_Offset_2
0457 e00d       |    |		Load	0x0,0xd
0458 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0459 e00d       |    |		Load	0x0,0xd
045a 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
045b 6810       |h   |		Jump_Zero	0x46c
045c 00d9       |    |		Load_Top	At_Offset_1
045d 7004       |p   |		Jump_Nonzero	0x462
045e 0092 0703  |    |		Action	Push_String_Extended,0x703					; "Registered RCI Customizations:  "
0460 e012       |    |		Load	0x0,0x12
0461 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
0462 4801       |H   |		Short_Literal	0x1
0463 0052       | R  |		Store_Top_Unchecked	Discrete,At_Offset_2
0464 0092 0704  |    |		Action	Push_String_Extended,0x704					; "   "
0466 00db       |    |		Load_Top	At_Offset_3
0467 e00d       |    |		Load	0x0,0xd
0468 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0469 01cc       |    |		Execute	Vector,Catenate
046a e012       |    |		Load	0x0,0x12
046b 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
046c 00da       |    |		Load_Top	At_Offset_2
046d e00d       |    |		Load	0x0,0xd
046e 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
046f c402       |    |		Store	0x2,0x2
0470 00c9       |    |		Action	Pop_Auxiliary_Loop
0471 00da       |    |		Load_Top	At_Offset_2
0472 e00d       |    |		Load	0x0,0xd
0473 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0474 6fe1       |o   |		Jump_Zero	0x456
0475 00ce       |    |		Action	Pop_Auxiliary
0476 00d8       |    |		Load_Top	At_Offset_0
0477 7007       |p   |		Jump_Nonzero	0x47f
0478 e003       |    |		Load	0x0,0x3
0479 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
047a 4806       |H   |		Short_Literal	0x6
047b 0092 0705  |    |		Action	Push_String_Extended,0x705					; "No registered RCI Customizations"
047d e00c       |    |		Load	0x0,0xc
047e 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
047f 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0480			TRAP_0440:
0480 0007       |    |		Action	Break_Optional
0481 e003       |    |		Load	0x0,0x3
0482 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0483 4807       |H   |		Short_Literal	0x7
0484 0092 06f8  |    |		Action	Push_String_Extended,0x6f8					; "Exception "
0486 4800       |H   |		Short_Literal	0x0
0487 4801       |H   |		Short_Literal	0x1
0488 e010       |    |		Load	0x0,0x10
0489 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
048a 01cc       |    |		Execute	Vector,Catenate
048b 0092 0706  |    |		Action	Push_String_Extended,0x706					; " caught in Display_All_Registered_Targets."
048d 01cc       |    |		Execute	Vector,Catenate
048e e00c       |    |		Load	0x0,0xc
048f 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0490 e003       |    |		Load	0x0,0x3
0491 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0492 4807       |H   |		Short_Literal	0x7
0493 4800       |H   |		Short_Literal	0x0
0494 4801       |H   |		Short_Literal	0x1
0495 e010       |    |		Load	0x0,0x10
0496 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0497 0092 06fa  |    |		Action	Push_String_Extended,0x6fa					; " was raised in "
0499 01cc       |    |		Execute	Vector,Catenate
049a 4800       |H   |		Short_Literal	0x0
049b 4801       |H   |		Short_Literal	0x1
049c e010       |    |		Load	0x0,0x10
049d 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
049e 01cc       |    |		Execute	Vector,Catenate
049f 0092 06fb  |    |		Action	Push_String_Extended,0x6fb					; "."
04a1 01cc       |    |		Execute	Vector,Catenate
04a2 e00c       |    |		Load	0x0,0xc
04a3 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
04a4 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
04a5 0000 0000  |    |		.XXX[0x3]
04a7 0000       |    |
04a8 ; --------------------------------------------------------------------------------------
04a8 ; SUBPROGRAM
04a8 ; --------------------------------------------------------------------------------------
04a8 04ab       |    |		.CONST	0x04ab								; Address of begin
04a9 0004       |    |		.CONST	0x0004								; Address of exception handler
04aa 0001       |    |		.CONST	0x0001								; Number of locals
04ab			BODY_04a8:
04ab			INIT_04a8:
04ab 4605       |F   |		Jump_Case	0x6
04ac 7804       |x   |		Jump	0x4b1								; case 0x0
04ad 7814       |x   |		Jump	0x4c2								; case 0x1
04ae 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x2
04af 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x3
04b0 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x4
04b1 00da       |    |		Load_Top	At_Offset_2						; case 0x5
04b2 01dc       |    |		Execute	Vector,Last
04b3 00db       |    |		Load_Top	At_Offset_3
04b4 01dd       |    |		Execute	Vector,First
04b5 0263       | c  |		Execute	Discrete,Above_Bound
04b6 700a       |p   |		Jump_Nonzero	0x4c1
04b7 00d8       |    |		Load_Top	At_Offset_0
04b8 e5ff       |    |		Load	0x2,-0x1
04b9 01d5       |    |		Execute	Vector,Field_Reference
04ba 0125       | %  |		Execute	Any,Set_Constraint
04bb 00d8       |    |		Load_Top	At_Offset_0
04bc e5ff       |    |		Load	0x2,-0x1
04bd 01d5       |    |		Execute	Vector,Field_Reference
04be 1c00       |    |		Execute_Immediate	Run_Utility,0x0
04bf 0a01       |    |		Execute_Immediate	Plus,0x1
04c0 7ff4       |    |		Jump	0x4b5
04c1 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
04c2 00da       |    |		Load_Top	At_Offset_2
04c3 01dc       |    |		Execute	Vector,Last
04c4 00db       |    |		Load_Top	At_Offset_3
04c5 01dd       |    |		Execute	Vector,First
04c6 0263       | c  |		Execute	Discrete,Above_Bound
04c7 700a       |p   |		Jump_Nonzero	0x4d2
04c8 00d8       |    |		Load_Top	At_Offset_0
04c9 e5ff       |    |		Load	0x2,-0x1
04ca 01d5       |    |		Execute	Vector,Field_Reference
04cb 0125       | %  |		Execute	Any,Set_Constraint
04cc 00d8       |    |		Load_Top	At_Offset_0
04cd e5ff       |    |		Load	0x2,-0x1
04ce 01d7       |    |		Execute	Vector,Field_Read
04cf 1c00       |    |		Execute_Immediate	Run_Utility,0x0
04d0 0a01       |    |		Execute_Immediate	Plus,0x1
04d1 7ff4       |    |		Jump	0x4c6
04d2 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
04d3 0000 0000  |    |		.BLANK	0000[0x5]
04d8 ; --------------------------------------------------------------------------------------
04d8 ; SUBPROGRAM
04d8 ; --------------------------------------------------------------------------------------
04d8 04db       |    |		.CONST	0x04db								; Address of begin
04d9 0004       |    |		.CONST	0x0004								; Address of exception handler
04da 0001       |    |		.CONST	0x0001								; Number of locals
04db			BODY_04d8:
04db			INIT_04d8:
04db 00cf       |    |		Action	Mark_Auxiliary
04dc 4808       |H   |		Short_Literal	0x8
04dd 4801       |H   |		Short_Literal	0x1
04de 0007       |    |		Action	Break_Optional
04df 4801       |H   |		Short_Literal	0x1
04e0 4820       |H   |		Short_Literal	0x20
04e1 00da       |    |		Load_Top	At_Offset_2
04e2 e215       |    |		Load	0x1,0x15
04e3 01d5       |    |		Execute	Vector,Field_Reference
04e4 e009       |    |		Load	0x0,0x9
04e5 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
04e6 4820       |H   |		Short_Literal	0x20
04e7 e5ff       |    |		Load	0x2,-0x1
04e8 e009       |    |		Load	0x0,0x9
04e9 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
04ea e009       |    |		Load	0x0,0x9
04eb 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
04ec 6804       |h   |		Jump_Zero	0x4f1
04ed e5ff       |    |		Load	0x2,-0x1
04ee e013       |    |		Load	0x0,0x13
04ef 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
04f0 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
04f1 00c8       |    |		Action	Pop_Auxiliary_Range
04f2 3fec       |?   |		Loop_Increasing	0x4df
04f3 00ce       |    |		Action	Pop_Auxiliary
04f4 4801       |H   |		Short_Literal	0x1
04f5 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
04f6 0000 0000  |    |		.XXX[0x2]
04f8 ; --------------------------------------------------------------------------------------
04f8 ; SUBPROGRAM
04f8 ; --------------------------------------------------------------------------------------
04f8 050f       |    |		.CONST	0x050f								; Address of begin
04f9 0004       |    |		.CONST	0x0004								; Address of exception handler
04fa 0007       |    |		.CONST	0x0007								; Number of locals
04fb			INIT_04f8:
04fb e002       |    |		Load	0x0,0x2
04fc 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
04fd 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
04fe 02c7       |    |		Declare_Variable	Any
04ff 00d8       |    |		Load_Top	At_Offset_0
0500 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0501 e002       |    |		Load	0x0,0x2
0502 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0503 e002       |    |		Load	0x0,0x2
0504 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0505 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0506 e002       |    |		Load	0x0,0x2
0507 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0508 02c7       |    |		Declare_Variable	Any
0509 00d8       |    |		Load_Top	At_Offset_0
050a 1c00       |    |		Execute_Immediate	Run_Utility,0x0
050b 00e3       |    |		Load_Encached	Natural_Cache
050c 0601       |    |		Execute_Immediate	Set_Value_Unchecked,0x1
050d 029f 06c3  |    |		Declare_Subprogram	INIT_06c0,For_Call
050f			BODY_04f8:
050f e002       |    |		Load	0x0,0x2
0510 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0511 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0512 e402       |    |		Load	0x2,0x2
0513 6040       |`@  |		Indirect_Literal	Discrete,0x554,{0x00000000, 0x00004000}
0514 e007       |    |		Load	0x0,0x7
0515 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0516 e008       |    |		Load	0x0,0x8
0517 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0518 e014       |    |		Load	0x0,0x14
0519 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
051a 4801       |H   |		Short_Literal	0x1
051b 4800       |H   |		Short_Literal	0x0
051c e008       |    |		Load	0x0,0x8
051d 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
051e e002       |    |		Load	0x0,0x2
051f 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0520 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0521 0092 0707  |    |		Action	Push_String_Extended,0x707					; "!machine.rci.@_defs"
0523 e002       |    |		Load	0x0,0x2
0524 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0525 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0526 c402       |    |		Store	0x2,0x2
0527 c404       |    |		Store	0x2,0x4
0528 00cf       |    |		Action	Mark_Auxiliary
0529 781a       |x   |		Jump	0x544
052a e002       |    |		Load	0x0,0x2
052b 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
052c e405       |    |		Load	0x2,0x5
052d 0120       |    |		Execute	Any,Is_Value
052e 6803       |h   |		Jump_Zero	0x532
052f e002       |    |		Load	0x0,0x2
0530 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0531 7801       |x   |		Jump	0x533
0532 e405       |    |		Load	0x2,0x5
0533 e402       |    |		Load	0x2,0x2
0534 e002       |    |		Load	0x0,0x2
0535 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0536 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
0537 c405       |    |		Store	0x2,0x5
0538 c403       |    |		Store	0x2,0x3
0539 00db       |    |		Load_Top	At_Offset_3
053a e002       |    |		Load	0x0,0x2
053b 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
053c 7001       |p   |		Jump_Nonzero	0x53e
053d 8407       |    |		Call	0x2,0x7
053e e402       |    |		Load	0x2,0x2
053f e002       |    |		Load	0x0,0x2
0540 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0541 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
0542 c402       |    |		Store	0x2,0x2
0543 00c9       |    |		Action	Pop_Auxiliary_Loop
0544 e402       |    |		Load	0x2,0x2
0545 e002       |    |		Load	0x0,0x2
0546 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0547 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
0548 6fe1       |o   |		Jump_Zero	0x52a
0549 00ce       |    |		Action	Pop_Auxiliary
054a 4801       |H   |		Short_Literal	0x1
054b 00da       |    |		Load_Top	At_Offset_2
054c 0aff       |    |		Execute_Immediate	Plus,-0x1
054d e213       |    |		Load	0x1,0x13
054e 01cf       |    |		Execute	Vector,Slice_Read
054f 0335       | 5  |		Declare_Variable	Array,Duplicate
0550 00cd       |    |		Action	Spare6_Action
0551 00ca       |    |		Action	Exit_Nullary_Function
0552 0000 0000  |    |		.XXX[0x2]
0554 0000 0000  |    |		.LITERAL	{0x00000000, 0x00004000}
0558 ; --------------------------------------------------------------------------------------
0558 ; SUBPROGRAM
0558 ; --------------------------------------------------------------------------------------
0558 057a       | z  |		.CONST	0x057a								; Address of begin
0559 0004       |    |		.CONST	0x0004								; Address of exception handler
055a 0007       |    |		.CONST	0x0007								; Number of locals
055b			INIT_0558:
055b e002       |    |		Load	0x0,0x2
055c 1b3d       | =  |		Execute	Package,Field_Read,Field_Number 0x3d
055d 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
055e 02c7       |    |		Declare_Variable	Any
055f 00d8       |    |		Load_Top	At_Offset_0
0560 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0561 e002       |    |		Load	0x0,0x2
0562 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0563 02c7       |    |		Declare_Variable	Any
0564 00d8       |    |		Load_Top	At_Offset_0
0565 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0566 e002       |    |		Load	0x0,0x2
0567 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
0568 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
0569 02c7       |    |		Declare_Variable	Any
056a 00d8       |    |		Load_Top	At_Offset_0
056b 1c00       |    |		Execute_Immediate	Run_Utility,0x0
056c 00f1       |    |		Load_Encached	Diana_Temp_Seq
056d 02c7       |    |		Declare_Variable	Any
056e 00d8       |    |		Load_Top	At_Offset_0
056f 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0570 e002       |    |		Load	0x0,0x2
0571 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
0572 02ff       |    |		Declare_Variable	Variant_Record
0573 00d8       |    |		Load_Top	At_Offset_0
0574 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0575 e004       |    |		Load	0x0,0x4
0576 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0577 02c7       |    |		Declare_Variable	Any
0578 00d8       |    |		Load_Top	At_Offset_0
0579 1c00       |    |		Execute_Immediate	Run_Utility,0x0
057a			BODY_0558:
057a e002       |    |		Load	0x0,0x2
057b 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
057c e602       |    |		Load	0x3,0x2
057d 0120       |    |		Execute	Any,Is_Value
057e 6804       |h   |		Jump_Zero	0x583
057f e002       |    |		Load	0x0,0x2
0580 1b3d       | =  |		Execute	Package,Field_Read,Field_Number 0x3d
0581 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0582 7801       |x   |		Jump	0x584
0583 e602       |    |		Load	0x3,0x2
0584 67cf       |g   |		Indirect_Literal	Discrete,0x554,{0x00000000, 0x00004000}
0585 e007       |    |		Load	0x0,0x7
0586 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0587 e002       |    |		Load	0x0,0x2
0588 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0589 4802       |H   |		Short_Literal	0x2
058a 609d       |`   |		Indirect_Literal	Discrete,0x628,{0x00000000, 0x7fffffff}
058b 609c       |`   |		Indirect_Literal	Discrete,0x628,{0x00000000, 0x7fffffff}
058c e002       |    |		Load	0x0,0x2
058d 1b3d       | =  |		Execute	Package,Field_Read,Field_Number 0x3d
058e 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
058f e00a       |    |		Load	0x0,0xa
0590 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0591 e405       |    |		Load	0x2,0x5
0592 4801       |H   |		Short_Literal	0x1
0593 e7ff       |    |		Load	0x3,-0x1
0594 e002       |    |		Load	0x0,0x2
0595 1b3d       | =  |		Execute	Package,Field_Read,Field_Number 0x3d
0596 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
0597 c602       |    |		Store	0x3,0x2
0598 c406       |    |		Store	0x2,0x6
0599 e406       |    |		Load	0x2,0x6
059a 682a       |h*  |		Jump_Zero	0x5c5
059b e003       |    |		Load	0x0,0x3
059c 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
059d 4801       |H   |		Short_Literal	0x1
059e 4802       |H   |		Short_Literal	0x2
059f e005       |    |		Load	0x0,0x5
05a0 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
05a1 035b       | [  |		Declare_Type	Array,Constrained
05a2 0337       | 7  |		Declare_Variable	Array
05a3 0092 06e8  |    |		Action	Push_String_Extended,0x6e8					; "!Targets."
05a5 e5ff       |    |		Load	0x2,-0x1
05a6 01cc       |    |		Execute	Vector,Catenate
05a7 0092 06fb  |    |		Action	Push_String_Extended,0x6fb					; "."
05a9 01cc       |    |		Execute	Vector,Catenate
05aa e7ff       |    |		Load	0x3,-0x1
05ab 01cc       |    |		Execute	Vector,Catenate
05ac e005       |    |		Load	0x0,0x5
05ad 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
05ae e005       |    |		Load	0x0,0x5
05af 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
05b0 0119       |    |		Execute	Any,Check_In_Formal_Type
05b1 4801       |H   |		Short_Literal	0x1
05b2 00da       |    |		Load_Top	At_Offset_2
05b3 01d6       |    |		Execute	Vector,Field_Write
05b4 e406       |    |		Load	0x2,0x6
05b5 e002       |    |		Load	0x0,0x2
05b6 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
05b7 011c       |    |		Execute	Any,Convert_Unchecked
05b8 1c01       |    |		Execute_Immediate	Run_Utility,0x1
05b9 e005       |    |		Load	0x0,0x5
05ba 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
05bb e005       |    |		Load	0x0,0x5
05bc 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
05bd 0119       |    |		Execute	Any,Check_In_Formal_Type
05be 4802       |H   |		Short_Literal	0x2
05bf 00da       |    |		Load_Top	At_Offset_2
05c0 01d6       |    |		Execute	Vector,Field_Write
05c1 6062       |`b  |		Indirect_Literal	Discrete,0x624,{0x00000000, 0x00008895}
05c2 e006       |    |		Load	0x0,0x6
05c3 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
05c4 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
05c5 e602       |    |		Load	0x3,0x2
05c6 e002       |    |		Load	0x0,0x2
05c7 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
05c8 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
05c9 c603       |    |		Store	0x3,0x3
05ca e002       |    |		Load	0x0,0x2
05cb 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
05cc 00db       |    |		Load_Top	At_Offset_3
05cd 0120       |    |		Execute	Any,Is_Value
05ce 6802       |h   |		Jump_Zero	0x5d1
05cf 00f1       |    |		Load_Encached	Diana_Temp_Seq
05d0 7801       |x   |		Jump	0x5d2
05d1 00db       |    |		Load_Top	At_Offset_3
05d2 e604       |    |		Load	0x3,0x4
05d3 0120       |    |		Execute	Any,Is_Value
05d4 6804       |h   |		Jump_Zero	0x5d9
05d5 e002       |    |		Load	0x0,0x2
05d6 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
05d7 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
05d8 7801       |x   |		Jump	0x5da
05d9 e604       |    |		Load	0x3,0x4
05da 00db       |    |		Load_Top	At_Offset_3
05db 0120       |    |		Execute	Any,Is_Value
05dc 6803       |h   |		Jump_Zero	0x5e0
05dd e004       |    |		Load	0x0,0x4
05de 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
05df 7801       |x   |		Jump	0x5e1
05e0 00db       |    |		Load_Top	At_Offset_3
05e1 e606       |    |		Load	0x3,0x6
05e2 6771       |gq  |		Indirect_Literal	Discrete,0x554,{0x00000000, 0x00004000}
05e3 e007       |    |		Load	0x0,0x7
05e4 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
05e5 4800       |H   |		Short_Literal	0x0
05e6 e002       |    |		Load	0x0,0x2
05e7 1b34       | 4  |		Execute	Package,Field_Read,Field_Number 0x34
05e8 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
05e9 e002       |    |		Load	0x0,0x2
05ea 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
05eb 4ffc       |O   |		Short_Literal	-0x4
05ec 4ffd       |O   |		Short_Literal	-0x3
05ed e603       |    |		Load	0x3,0x3
05ee e002       |    |		Load	0x0,0x2
05ef 1b3b       | ;  |		Execute	Package,Field_Read,Field_Number 0x3b
05f0 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
05f1 00d1       |    |		Pop_Control	Pop_Count_1
05f2 c607       |    |		Store	0x3,0x7
05f3 c604       |    |		Store	0x3,0x4
05f4 c605       |    |		Store	0x3,0x5
05f5 c406       |    |		Store	0x2,0x6
05f6 e406       |    |		Load	0x2,0x6
05f7 682a       |h*  |		Jump_Zero	0x622
05f8 e003       |    |		Load	0x0,0x3
05f9 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
05fa 4801       |H   |		Short_Literal	0x1
05fb 4802       |H   |		Short_Literal	0x2
05fc e005       |    |		Load	0x0,0x5
05fd 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
05fe 035b       | [  |		Declare_Type	Array,Constrained
05ff 0337       | 7  |		Declare_Variable	Array
0600 0092 06e8  |    |		Action	Push_String_Extended,0x6e8					; "!Targets."
0602 e5ff       |    |		Load	0x2,-0x1
0603 01cc       |    |		Execute	Vector,Catenate
0604 0092 06fb  |    |		Action	Push_String_Extended,0x6fb					; "."
0606 01cc       |    |		Execute	Vector,Catenate
0607 e7ff       |    |		Load	0x3,-0x1
0608 01cc       |    |		Execute	Vector,Catenate
0609 e005       |    |		Load	0x0,0x5
060a 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
060b e005       |    |		Load	0x0,0x5
060c 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
060d 0119       |    |		Execute	Any,Check_In_Formal_Type
060e 4801       |H   |		Short_Literal	0x1
060f 00da       |    |		Load_Top	At_Offset_2
0610 01d6       |    |		Execute	Vector,Field_Write
0611 e406       |    |		Load	0x2,0x6
0612 e002       |    |		Load	0x0,0x2
0613 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0614 011c       |    |		Execute	Any,Convert_Unchecked
0615 1c01       |    |		Execute_Immediate	Run_Utility,0x1
0616 e005       |    |		Load	0x0,0x5
0617 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0618 e005       |    |		Load	0x0,0x5
0619 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
061a 0119       |    |		Execute	Any,Check_In_Formal_Type
061b 4802       |H   |		Short_Literal	0x2
061c 00da       |    |		Load_Top	At_Offset_2
061d 01d6       |    |		Execute	Vector,Field_Write
061e 6005       |`   |		Indirect_Literal	Discrete,0x624,{0x00000000, 0x00008895}
061f e006       |    |		Load	0x0,0x6
0620 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
0621 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0622 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0623 0000       |    |		.XXX[0x1]
0624 0000 0000  |    |		.LITERAL	{0x00000000, 0x00008895}
0628 0000 0000  |    |		.LITERAL	{0x00000000, 0x7fffffff}
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 e015       |    |		Load	0x0,0x15
0635 183a       | :  |		Execute	Package,Field_Execute,Field_Number 0x3a
0636 6805       |h   |		Jump_Zero	0x63c
0637 0092 0708  |    |		Action	Push_String_Extended,0x708					; "No Operational Customizations Defined."
0639 e012       |    |		Load	0x0,0x12
063a 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
063b 7803       |x   |		Jump	0x63f
063c 00da       |    |		Load_Top	At_Offset_2
063d e015       |    |		Load	0x0,0x15
063e 183d       | =  |		Execute	Package,Field_Execute,Field_Number 0x3d
063f 0092 0704  |    |		Action	Push_String_Extended,0x704					; "   "
0641 e012       |    |		Load	0x0,0x12
0642 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
0643 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0644 0000 0000  |    |		.BLANK	0000[0x4]
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 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
064e 182d       | -  |		Execute	Package,Field_Execute,Field_Number 0x2d
064f 6805       |h   |		Jump_Zero	0x655
0650 0092 0709  |    |		Action	Push_String_Extended,0x709					; "No Pragma 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 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
0658 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
0659 0092 0704  |    |		Action	Push_String_Extended,0x704					; "   "
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 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
0666 1830       | 0  |		Execute	Package,Field_Execute,Field_Number 0x30
0667 6805       |h   |		Jump_Zero	0x66d
0668 0092 070a  |    |		Action	Push_String_Extended,0x70a					; "No Attribute 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 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
0670 1834       | 4  |		Execute	Package,Field_Execute,Field_Number 0x34
0671 0092 0704  |    |		Action	Push_String_Extended,0x704					; "   "
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 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
067e 1833       | 3  |		Execute	Package,Field_Execute,Field_Number 0x33
067f 6805       |h   |		Jump_Zero	0x685
0680 0092 070b  |    |		Action	Push_String_Extended,0x70b					; "No Predefined Environment 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 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
0688 1837       | 7  |		Execute	Package,Field_Execute,Field_Number 0x37
0689 0092 0704  |    |		Action	Push_String_Extended,0x704					; "   "
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 e016       |    |		Load	0x0,0x16
0695 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
0696 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
0697 6805       |h   |		Jump_Zero	0x69d
0698 0092 070c  |    |		Action	Push_String_Extended,0x70c					; "No Rep Spec Customizations Defined."
069a e012       |    |		Load	0x0,0x12
069b 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
069c 7804       |x   |		Jump	0x6a1
069d 00da       |    |		Load_Top	At_Offset_2
069e e016       |    |		Load	0x0,0x16
069f 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
06a0 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
06a1 0092 0704  |    |		Action	Push_String_Extended,0x704					; "   "
06a3 e012       |    |		Load	0x0,0x12
06a4 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
06a5 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
06a6 0000 0000  |    |		.XXX[0x2]
06a8 ; --------------------------------------------------------------------------------------
06a8 ; SUBPROGRAM
06a8 ; --------------------------------------------------------------------------------------
06a8 06ab       |    |		.CONST	0x06ab								; Address of begin
06a9 0004       |    |		.CONST	0x0004								; Address of exception handler
06aa 0001       |    |		.CONST	0x0001								; Number of locals
06ab			BODY_06a8:
06ab			INIT_06a8:
06ab 00da       |    |		Load_Top	At_Offset_2
06ac e017       |    |		Load	0x0,0x17
06ad 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
06ae 012f       | /  |		Execute	Any,Equal
06af 6805       |h   |		Jump_Zero	0x6b5
06b0 0092 070d  |    |		Action	Push_String_Extended,0x70d					; "No Telnet Customizations Defined."
06b2 e012       |    |		Load	0x0,0x12
06b3 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
06b4 7803       |x   |		Jump	0x6b8
06b5 00da       |    |		Load_Top	At_Offset_2
06b6 e017       |    |		Load	0x0,0x17
06b7 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
06b8 0092 0704  |    |		Action	Push_String_Extended,0x704					; "   "
06ba e012       |    |		Load	0x0,0x12
06bb 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
06bc 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
06bd 0000 0000  |    |		.XXX[0x3]
06bf 0000       |    |
06c0 ; --------------------------------------------------------------------------------------
06c0 ; SUBPROGRAM
06c0 ; --------------------------------------------------------------------------------------
06c0 06c7       |    |		.CONST	0x06c7								; Address of begin
06c1 0004       |    |		.CONST	0x0004								; Address of exception handler
06c2 0002       |    |		.CONST	0x0002								; Number of locals
06c3			INIT_06c0:
06c3 e405       |    |		Load	0x2,0x5
06c4 e002       |    |		Load	0x0,0x2
06c5 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
06c6 183b       | ;  |		Execute	Package,Field_Execute,Field_Number 0x3b
06c7			BODY_06c0:
06c7 e406       |    |		Load	0x2,0x6
06c8 e213       |    |		Load	0x1,0x13
06c9 01d5       |    |		Execute	Vector,Field_Reference
06ca 00d8       |    |		Load_Top	At_Offset_0
06cb 00da       |    |		Load_Top	At_Offset_2
06cc 01dd       |    |		Execute	Vector,First
06cd 00db       |    |		Load_Top	At_Offset_3
06ce 01dc       |    |		Execute	Vector,Last
06cf 0afb       |    |		Execute_Immediate	Plus,-0x5
06d0 00d8       |    |		Load_Top	At_Offset_0
06d1 00e2       |    |		Load_Encached	Integer_Cache
06d2 0260       | `  |		Execute	Discrete,In_Type
06d3 7001       |p   |		Jump_Nonzero	0x6d5
06d4 0801       |    |		Execute_Immediate	Raise,0x1
06d5 e602       |    |		Load	0x3,0x2
06d6 01cf       |    |		Execute	Vector,Slice_Read
06d7 e001       |    |		Load	0x0,0x1
06d8 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
06d9 00d2       |    |		Pop_Control	Pop_Count_2
06da e406       |    |		Load	0x2,0x6
06db 0a01       |    |		Execute_Immediate	Plus,0x1
06dc c406       |    |		Store	0x2,0x6
06dd 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
06de ; --------------------------------------------------------------------------------------
06de ; STRING TABLE
06de ; --------------------------------------------------------------------------------------
06de 0062       | b  |		.STRTAB	0x0062->0x070f							; "Rs6000_Aix_Ibm  "
06df 0070       | p  |		.STRTAB	0x0070->0x0717							; "Vax_Vms_Dec_Xt  "
06e0 007e       | ~  |		.STRTAB	0x007e->0x071f							; "I386_Lynx_Als_Xt"
06e1 008c       |    |		.STRTAB	0x008c->0x0727							; "I486_Iux_Als_Xt "
06e2 009a       |    |		.STRTAB	0x009a->0x072f							; "I960_Vms_Tar_Xt "
06e3 00a8       |    |		.STRTAB	0x00a8->0x0737							; "IC30_Vms_Tar_Xt "
06e4 00b6       |    |		.STRTAB	0x00b6->0x073f							; "Sparc_Sun_Xt    "
06e5 00c4       |    |		.STRTAB	0x00c4->0x0747							; "Ix86_Unix_Als_Xt"
06e6 00d2       |    |		.STRTAB	0x00d2->0x074f							; "Create_Predefined_Library"
06e7 00e9       |    |		.STRTAB	0x00e9->0x075b							; "!targets."
06e8 00f0       |    |		.STRTAB	0x00f0->0x0760							; "!Targets."
06e9 00f7       |    |		.STRTAB	0x00f7->0x0764							; "Create_Predefined_Library completed"
06ea 0118       |    |		.STRTAB	0x0118->0x0776							; "!targets"
06eb 011e       |    |		.STRTAB	0x011e->0x077a							; "!Targets"
06ec 0124       | $  |		.STRTAB	0x0124->0x077e							; "Create_Predefined_Library failed"
06ed 0142       | B  |		.STRTAB	0x0142->0x078e							; "Io"
06ee 0142       | B  |		.STRTAB	0x0142->0x078f							; "Lrm"
06ef 0143       | C  |		.STRTAB	0x0143->0x0790							; "Reusable_Components"
06f0 0154       | T  |		.STRTAB	0x0154->0x079a							; "Target_Interface"
06f1 0162       | b  |		.STRTAB	0x0162->0x07a2							; "The "
06f2 0164       | d  |		.STRTAB	0x0164->0x07a4							; " target is not authorized for this machine."
06f3 018d       |    |		.STRTAB	0x018d->0x07b9							; "Registration of "
06f4 019b       |    |		.STRTAB	0x019b->0x07c1							; " has failed."
06f5 01a5       |    |		.STRTAB	0x01a5->0x07c7							; "<PROFILE>"
06f6 01ac       |    |		.STRTAB	0x01ac->0x07cc							; " has completed."
06f7 01b9       |    |		.STRTAB	0x01b9->0x07d3							; " failed."
06f8 01bf       |    |		.STRTAB	0x01bf->0x07d7							; "Exception "
06f9 01c7       |    |		.STRTAB	0x01c7->0x07dc							; " caught in Register."
06fa 01d9       |    |		.STRTAB	0x01d9->0x07e6							; " was raised in "
06fb 01e6       |    |		.STRTAB	0x01e6->0x07ee							; "."
06fc 01e5       |    |		.STRTAB	0x01e5->0x07ee							; "Unregistered "
06fd 01f0       |    |		.STRTAB	0x01f0->0x07f5							; " RCI."
06fe 01f3       |    |		.STRTAB	0x01f3->0x07f7							; "Destroyed "
06ff 01fb       |    |		.STRTAB	0x01fb->0x07fc							; " caught in UnRegister."
0700 020f       |    |		.STRTAB	0x020f->0x0807							; " is not registered"
0701 021f       |    |		.STRTAB	0x021f->0x0810							; "Information on RCI customization for "
0702 0242       | B  |		.STRTAB	0x0242->0x0823							; " caught in Information."
0703 0257       | W  |		.STRTAB	0x0257->0x082e							; "Registered RCI Customizations:  "
0704 0275       | u  |		.STRTAB	0x0275->0x083e							; "   "
0705 0276       | v  |		.STRTAB	0x0276->0x0840							; "No registered RCI Customizations"
0706 0294       |    |		.STRTAB	0x0294->0x0850							; " caught in Display_All_Registered_Targets."
0707 02bc       |    |		.STRTAB	0x02bc->0x0865							; "!machine.rci.@_defs"
0708 02cd       |    |		.STRTAB	0x02cd->0x086e							; "No Operational Customizations Defined."
0709 02f1       |    |		.STRTAB	0x02f1->0x0881							; "No Pragma Customizations Defined."
070a 0310       |    |		.STRTAB	0x0310->0x0892							; "No Attribute Customizations Defined."
070b 0332       | 2  |		.STRTAB	0x0332->0x08a4							; "No Predefined Environment Customizations Defined."
070c 0361       | a  |		.STRTAB	0x0361->0x08bc							; "No Rep Spec Customizations Defined."
070d 0382       |    |		.STRTAB	0x0382->0x08ce							; "No Telnet Customizations Defined."
070e 03a1       |    |		.STREND 0x03a1->0x08de
070f 5273 3630  |Rs60|		.STRTAB_STRINGS
08df 0000       |    |		.XXX[0x1]
08e0 ; --------------------------------------------------------------------------------------
08e0 ; Debug Table
08e0 ; --------------------------------------------------------------------------------------
08e0 0004 000e  |    |		.DEBUG4	0x0004,0x000e,0xedf1,0x0000,0x0001,0x0000
08e6 006a 02c0  | j  |		.XXX[0x28]
08e8 006b b680  | k  |
08ea 0012 cb40  |   @|
08ec 006a 02c0  | j  |
08ee 006b ce80  | k  |
08f0 0003 b280  |    |
08f2 006a 02c0  | j  |
08f4 006b e680  | k  |
08f6 001a 8940  |   @|
08f8 006a 02c0  | j  |
08fa 006b fe80  | k  |
08fc 001c 51c0  |  Q |
08fe 006a 02c0  | j  |
0900 0000 0000  |    |
0902 0007 2780  |  ' |
0904 006a 02c0  | j  |
0906 00b4 e440  |   @|
0908 0000 0000  |    |
090a 0000 0015  |    |
090c 5242 c000  |RB  |
090e 0000 0000  |    |		.BLANK	0000[0xa]
0918 00fc 0000  |    |		.XXX[0x7]
091a fa00 000b  |    |
091c 0ed8 000d  |    |
091e 8d68       | h  |
091f 0000 0000  |    |		.BLANK	0000[0xa]
0929 006d c100  | m  |		.XXX[0x8]
092b 0000 0000  |    |
092d 0000 7780  |  w |
092f 0036 be60  | 6 `|
0931 0000 0000  |    |		.BLANK	0000[0x5]
0936 0040 0000  | @  |		.XXX[0x13]
0938 0580 0000  |    |
093a 3200 0000  |2   |
093c 0d00 0000  |    |
093e 1200 03ad  |    |
0940 d000 0000  |    |
0942 04c4 6db4  |  m |
0944 2c00 0380  |,   |
0946 ad80 005b  |   [|
0948 9c70       | p  |
0949 0000 0000  |    |		.BLANK	0000[0x11]
095a 374c 8000  |7L  |		.XXX[0x2]
095c 0000 0000  |    |		.BLANK	0000[0x5]
0961 4000 0001  |@   |		.XXX[0x4d]
0963 4849 89e9  |HI  |
0965 6a64 e849  |jd I|
0967 e88b 2000  |    |
0969 36be 6000  |6 ` |
096b 3635 a000  |65  |
096d 0000 0000  |    |
096f 4649 3000  |FI0 |
0971 1b76 4000  | v@ |
0973 02fa 9000  |    |
0975 1b1a d000  |    |
0977 1b7c 4000  | |@ |
0979 00ec a000  |    |
097b 1b1a d000  |    |
097d 1b82 4000  |  @ |
097f 0447 b000  | G  |
0981 1b1a d000  |    |
0983 1b88 4000  |  @ |
0985 159b 9000  |    |
0987 1b1a d000  |    |
0989 1b8e 4000  |  @ |
098b 06a2 5000  |  P |
098d 1b1a d000  |    |
098f 1b94 4000  |  @ |
0991 0714 7000  |  p |
0993 1b1a d000  |    |
0995 1b9a 4000  |  @ |
0997 11fa 3000  |  0 |
0999 1b1a d000  |    |
099b 1ba0 4000  |  @ |
099d 117d 9000  | }  |
099f 1b1a d000  |    |
09a1 0000 0000  |    |
09a3 01c9 e000  |    |
09a5 1b1a d000  |    |
09a7 2dd6 2000  |-   |
09a9 0000 0000  |    |
09ab 0000 0554  |   T|
09ad d0b0       |    |
09ae 0000 0000  |    |		.BLANK	0000[0xb]
09b9 3f00 003e  |?  >|		.XXX[0x7]
09bb 8000 0377  |   w|
09bd 6e00 0410  |n   |
09bf 8600       |    |
09c0 0000 0000  |    |		.BLANK	0000[0xa]
09ca 1c11 e000  |    |		.XXX[0x8]
09cc 0000 0000  |    |
09ce 001d e000  |    |
09d0 0dff e800  |    |
09d2 0000 0000  |    |		.BLANK	0000[0x5]
09d7 1000 0001  |    |		.XXX[0x17]
09d9 6000 000c  |`   |
09db 8000 0003  |    |
09dd 4000 0004  |@   |
09df 8000 eba1  |    |
09e1 0000 0001  |    |
09e3 311b d50b  |1   |
09e5 0000 d201  |    |
09e7 5800 0000  |X   |
09e9 0400 0000  |    |
09eb 0000 0000  |    |
09ed 0040       | @  |
09ee 0000 0000  |    |		.BLANK	0000[0xc]
09fa 000e 0ef0  |    |		.XXX[0x2]
09fc 0000 0000  |    |		.BLANK	0000[0x4]