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

⟦a739e3f09⟧

    Length: 3072 (0xc00)
    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 05d8       |    |		.CONST	0x05d8								; Offset of debug table
0004 0100       |    |		.CONST	0x0100								; Default exception handler - raise instruction
0005 00bb       |    |		.CONST	0x00bb								; Module termination instruction - signal completion
0006 0000       |    |		.CONST	0x0000								; Offset to segment table (only in elab segments)
0007 8003       |    |		.CONST	0x8003								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0024       | $  |		.CONST	0x0024								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0014       |    |		.CONST	0x0014								; Number of locals
000b			INIT_0008:
000b 029a 002b  |   +|		Declare_Subprogram	INIT_0028,For_Outer_Call,Visible,Unelaborated
000d 029a 00bb  |    |		Declare_Subprogram	INIT_00b8,For_Outer_Call,Visible,Unelaborated
000f 029a 01cb  |    |		Declare_Subprogram	INIT_01c8,For_Outer_Call,Visible,Unelaborated
0011 029a 023b  |   ;|		Declare_Subprogram	INIT_0238,For_Outer_Call,Visible,Unelaborated
0013 00bf       |    |		Action	Accept_Activation
0014 029d 02b3  |    |		Declare_Subprogram	INIT_02b0,For_Outer_Call
0016 029d 02c3  |    |		Declare_Subprogram	INIT_02c0,For_Outer_Call
0018 029d 02d3  |    |		Declare_Subprogram	INIT_02d0,For_Outer_Call
001a 1d0d       |    |		Execute_Immediate	Reference_Lex_1,0xd
001b 00c7       |    |		Action	Elaborate_Subprogram
001c 029d 036b  |   k|		Declare_Subprogram	INIT_0368,For_Outer_Call
001e 1d0f       |    |		Execute_Immediate	Reference_Lex_1,0xf
001f 00c7       |    |		Action	Elaborate_Subprogram
0020 1d0e       |    |		Execute_Immediate	Reference_Lex_1,0xe
0021 00c7       |    |		Action	Elaborate_Subprogram
0022 1d10       |    |		Execute_Immediate	Reference_Lex_1,0x10
0023 00c7       |    |		Action	Elaborate_Subprogram
0024			BODY_0008:
0024 00bc       |    |		Action	Signal_Activated
0025 00bb       |    |		Action	Signal_Completion
0026 0000 0000  |    |		.XXX[0x2]
0028 ; --------------------------------------------------------------------------------------
0028 ; SUBPROGRAM
0028 ; --------------------------------------------------------------------------------------
0028 0045       | E  |		.CONST	0x0045								; Address of begin
0029 0082       |    |		.CONST	0x0082								; Address of exception handler
002a 0007       |    |		.CONST	0x0007								; Number of locals
002b			INIT_0028:
002b e001       |    |		Load	0x0,0x1
002c 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
002d 02c7       |    |		Declare_Variable	Any
002e e5fc       |    |		Load	0x2,-0x4
002f e001       |    |		Load	0x0,0x1
0030 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
0031 a402       |    |		Store_Unchecked	0x2,0x2
0032 0092 0532  |   2|		Action	Push_String_Extended,0x532					; "Build_Remote_Library"
0034 e002       |    |		Load	0x0,0x2
0035 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0036 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0037 e003       |    |		Load	0x0,0x3
0038 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0039 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
003a 02c7       |    |		Declare_Variable	Any
003b 00d8       |    |		Load_Top	At_Offset_0
003c 1c00       |    |		Execute_Immediate	Run_Utility,0x0
003d e001       |    |		Load	0x0,0x1
003e 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
003f 02c7       |    |		Declare_Variable	Any
0040 e001       |    |		Load	0x0,0x1
0041 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0042 a406       |    |		Store_Unchecked	0x2,0x6
0043 029f 0393  |    |		Declare_Subprogram	INIT_0390,For_Call
0045			BODY_0028:
0045 e402       |    |		Load	0x2,0x2
0046 e001       |    |		Load	0x0,0x1
0047 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0048 e402       |    |		Load	0x2,0x2
0049 e016       |    |		Load	0x0,0x16
004a 0092 0533  |   3|		Action	Push_String_Extended,0x533					; "View"
004c e5ff       |    |		Load	0x2,-0x1
004d e004       |    |		Load	0x0,0x4
004e 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
004f 01cc       |    |		Execute	Vector,Catenate
0050 0092 0534  |   4|		Action	Push_String_Extended,0x534					; "Remote_Machine"
0052 01cc       |    |		Execute	Vector,Catenate
0053 e5fe       |    |		Load	0x2,-0x2
0054 e004       |    |		Load	0x0,0x4
0055 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0056 01cc       |    |		Execute	Vector,Catenate
0057 0092 0535  |   5|		Action	Push_String_Extended,0x535					; "Remote_Directory"
0059 01cc       |    |		Execute	Vector,Catenate
005a e5fd       |    |		Load	0x2,-0x3
005b e004       |    |		Load	0x0,0x4
005c 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
005d 01cc       |    |		Execute	Vector,Catenate
005e 0092 0536  |   6|		Action	Push_String_Extended,0x536					; "Response"
0060 01cc       |    |		Execute	Vector,Catenate
0061 e5fc       |    |		Load	0x2,-0x4
0062 e004       |    |		Load	0x0,0x4
0063 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0064 01cc       |    |		Execute	Vector,Catenate
0065 e403       |    |		Load	0x2,0x3
0066 e004       |    |		Load	0x0,0x4
0067 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0068 e402       |    |		Load	0x2,0x2
0069 e005       |    |		Load	0x0,0x5
006a 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
006b e402       |    |		Load	0x2,0x2
006c 0092 0533  |   3|		Action	Push_String_Extended,0x533					; "View"
006e e5ff       |    |		Load	0x2,-0x1
006f e005       |    |		Load	0x0,0x5
0070 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0071 e402       |    |		Load	0x2,0x2
0072 4801       |H   |		Short_Literal	0x1
0073 e5ff       |    |		Load	0x2,-0x1
0074 e006       |    |		Load	0x0,0x6
0075 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
0076 c405       |    |		Store	0x2,0x5
0077 8407       |    |		Call	0x2,0x7
0078 e402       |    |		Load	0x2,0x2
0079 e016       |    |		Load	0x0,0x16
007a e403       |    |		Load	0x2,0x3
007b e404       |    |		Load	0x2,0x4
007c e004       |    |		Load	0x0,0x4
007d 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
007e 00d9       |    |		Load_Top	At_Offset_1
007f e001       |    |		Load	0x0,0x1
0080 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0081 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
0082			TRAP_0028:
0082 e002       |    |		Load	0x0,0x2
0083 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
0084 010f       |    |		Execute	Exception,Equal
0085 680a       |h   |		Jump_Zero	0x90
0086 e402       |    |		Load	0x2,0x2
0087 e016       |    |		Load	0x0,0x16
0088 e403       |    |		Load	0x2,0x3
0089 e404       |    |		Load	0x2,0x4
008a e004       |    |		Load	0x0,0x4
008b 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
008c 00da       |    |		Load_Top	At_Offset_2
008d e001       |    |		Load	0x0,0x1
008e 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
008f 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
0090 4884       |H   |		Short_Literal	0x84
0091 010f       |    |		Execute	Exception,Equal
0092 680a       |h   |		Jump_Zero	0x9d
0093 e402       |    |		Load	0x2,0x2
0094 e016       |    |		Load	0x0,0x16
0095 e403       |    |		Load	0x2,0x3
0096 e404       |    |		Load	0x2,0x4
0097 e004       |    |		Load	0x0,0x4
0098 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0099 00da       |    |		Load_Top	At_Offset_2
009a e001       |    |		Load	0x0,0x1
009b 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
009c 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
009d e002       |    |		Load	0x0,0x2
009e 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
009f 010f       |    |		Execute	Exception,Equal
00a0 680b       |h   |		Jump_Zero	0xac
00a1 e402       |    |		Load	0x2,0x2
00a2 e016       |    |		Load	0x0,0x16
00a3 e403       |    |		Load	0x2,0x3
00a4 e404       |    |		Load	0x2,0x4
00a5 e004       |    |		Load	0x0,0x4
00a6 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
00a7 00da       |    |		Load_Top	At_Offset_2
00a8 e001       |    |		Load	0x0,0x1
00a9 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
00aa 00d8       |    |		Load_Top	At_Offset_0
00ab 0101       |    |		Execute	Exception,Reraise
00ac e402       |    |		Load	0x2,0x2
00ad e016       |    |		Load	0x0,0x16
00ae e403       |    |		Load	0x2,0x3
00af e404       |    |		Load	0x2,0x4
00b0 e004       |    |		Load	0x0,0x4
00b1 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
00b2 00da       |    |		Load_Top	At_Offset_2
00b3 e001       |    |		Load	0x0,0x1
00b4 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
00b5 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
00b6 0000 0000  |    |		.XXX[0x2]
00b8 ; --------------------------------------------------------------------------------------
00b8 ; SUBPROGRAM
00b8 ; --------------------------------------------------------------------------------------
00b8 00ea       |    |		.CONST	0x00ea								; Address of begin
00b9 018e       |    |		.CONST	0x018e								; Address of exception handler
00ba 000e       |    |		.CONST	0x000e								; Number of locals
00bb			INIT_00b8:
00bb 0092 0537  |   7|		Action	Push_String_Extended,0x537					; "Rebuild_Remote_Library"
00bd e002       |    |		Load	0x0,0x2
00be 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00bf 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
00c0 e001       |    |		Load	0x0,0x1
00c1 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00c2 02c7       |    |		Declare_Variable	Any
00c3 e5fb       |    |		Load	0x2,-0x5
00c4 e001       |    |		Load	0x0,0x1
00c5 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
00c6 a404       |    |		Store_Unchecked	0x2,0x4
00c7 e001       |    |		Load	0x0,0x1
00c8 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00c9 02c7       |    |		Declare_Variable	Any
00ca e001       |    |		Load	0x0,0x1
00cb 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
00cc a405       |    |		Store_Unchecked	0x2,0x5
00cd e003       |    |		Load	0x0,0x3
00ce 1b34       | 4  |		Execute	Package,Field_Read,Field_Number 0x34
00cf 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
00d0 02c7       |    |		Declare_Variable	Any
00d1 00d8       |    |		Load_Top	At_Offset_0
00d2 1c00       |    |		Execute_Immediate	Run_Utility,0x0
00d3 e003       |    |		Load	0x0,0x3
00d4 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
00d5 02c7       |    |		Declare_Variable	Any
00d6 00d8       |    |		Load_Top	At_Offset_0
00d7 1c00       |    |		Execute_Immediate	Run_Utility,0x0
00d8 e003       |    |		Load	0x0,0x3
00d9 1b34       | 4  |		Execute	Package,Field_Read,Field_Number 0x34
00da 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00db 02c7       |    |		Declare_Variable	Any
00dc 00d8       |    |		Load_Top	At_Offset_0
00dd 1c00       |    |		Execute_Immediate	Run_Utility,0x0
00de 00e1       |    |		Load_Encached	Boolean_Cache
00df 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
00e0 00e1       |    |		Load_Encached	Boolean_Cache
00e1 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
00e2 029f 03bb  |    |		Declare_Subprogram	INIT_03b8,For_Call
00e4 029f 03eb  |    |		Declare_Subprogram	INIT_03e8,For_Call
00e6 029f 042b  |   +|		Declare_Subprogram	INIT_0428,For_Call
00e8 029f 0453  |   S|		Declare_Subprogram	INIT_0450,For_Call
00ea			BODY_00b8:
00ea e404       |    |		Load	0x2,0x4
00eb e001       |    |		Load	0x0,0x1
00ec 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
00ed e404       |    |		Load	0x2,0x4
00ee e016       |    |		Load	0x0,0x16
00ef 0092 0533  |   3|		Action	Push_String_Extended,0x533					; "View"
00f1 e5ff       |    |		Load	0x2,-0x1
00f2 e004       |    |		Load	0x0,0x4
00f3 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
00f4 01cc       |    |		Execute	Vector,Catenate
00f5 0092 0538  |   8|		Action	Push_String_Extended,0x538					; "Remake_Demoted_Units => "
00f7 01cc       |    |		Execute	Vector,Catenate
00f8 e5fe       |    |		Load	0x2,-0x2
00f9 00e1       |    |		Load_Encached	Boolean_Cache
00fa 011c       |    |		Execute	Any,Convert_Unchecked
00fb 1c01       |    |		Execute_Immediate	Run_Utility,0x1
00fc 01cc       |    |		Execute	Vector,Catenate
00fd 0092 0539  |   9|		Action	Push_String_Extended,0x539					; ", Remote_Machine"
00ff 01cc       |    |		Execute	Vector,Catenate
0100 e5fd       |    |		Load	0x2,-0x3
0101 e004       |    |		Load	0x0,0x4
0102 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0103 01cc       |    |		Execute	Vector,Catenate
0104 0092 0535  |   5|		Action	Push_String_Extended,0x535					; "Remote_Directory"
0106 01cc       |    |		Execute	Vector,Catenate
0107 e5fc       |    |		Load	0x2,-0x4
0108 e004       |    |		Load	0x0,0x4
0109 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
010a 01cc       |    |		Execute	Vector,Catenate
010b 0092 0536  |   6|		Action	Push_String_Extended,0x536					; "Response"
010d 01cc       |    |		Execute	Vector,Catenate
010e e5fb       |    |		Load	0x2,-0x5
010f e004       |    |		Load	0x0,0x4
0110 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0111 01cc       |    |		Execute	Vector,Catenate
0112 e402       |    |		Load	0x2,0x2
0113 e004       |    |		Load	0x0,0x4
0114 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0115 e404       |    |		Load	0x2,0x4
0116 e005       |    |		Load	0x0,0x5
0117 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0118 e404       |    |		Load	0x2,0x4
0119 0092 0533  |   3|		Action	Push_String_Extended,0x533					; "View"
011b e5ff       |    |		Load	0x2,-0x1
011c e005       |    |		Load	0x0,0x5
011d 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
011e e404       |    |		Load	0x2,0x4
011f 4801       |H   |		Short_Literal	0x1
0120 e5ff       |    |		Load	0x2,-0x1
0121 e006       |    |		Load	0x0,0x6
0122 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
0123 840c       |    |		Call	0x2,0xc
0124 c408       |    |		Store	0x2,0x8
0125 e406       |    |		Load	0x2,0x6
0126 0120       |    |		Execute	Any,Is_Value
0127 6804       |h   |		Jump_Zero	0x12c
0128 e003       |    |		Load	0x0,0x3
0129 1b34       | 4  |		Execute	Package,Field_Read,Field_Number 0x34
012a 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
012b 7801       |x   |		Jump	0x12d
012c e406       |    |		Load	0x2,0x6
012d e007       |    |		Load	0x0,0x7
012e 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
012f e008       |    |		Load	0x0,0x8
0130 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0131 e408       |    |		Load	0x2,0x8
0132 e003       |    |		Load	0x0,0x3
0133 1b34       | 4  |		Execute	Package,Field_Read,Field_Number 0x34
0134 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0135 c406       |    |		Store	0x2,0x6
0136 e406       |    |		Load	0x2,0x6
0137 e003       |    |		Load	0x0,0x3
0138 1b34       | 4  |		Execute	Package,Field_Read,Field_Number 0x34
0139 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
013a 6815       |h   |		Jump_Zero	0x150
013b e001       |    |		Load	0x0,0x1
013c 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
013d 4801       |H   |		Short_Literal	0x1
013e 4801       |H   |		Short_Literal	0x1
013f e009       |    |		Load	0x0,0x9
0140 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0141 035b       | [  |		Declare_Type	Array,Constrained
0142 0337       | 7  |		Declare_Variable	Array
0143 e5ff       |    |		Load	0x2,-0x1
0144 e009       |    |		Load	0x0,0x9
0145 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0146 e009       |    |		Load	0x0,0x9
0147 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0148 0119       |    |		Execute	Any,Check_In_Formal_Type
0149 4801       |H   |		Short_Literal	0x1
014a 00da       |    |		Load_Top	At_Offset_2
014b 01d6       |    |		Execute	Vector,Field_Write
014c 6077       |`w  |		Indirect_Literal	Discrete,0x1c4,{0x00000000, 0x0000882b}
014d e002       |    |		Load	0x0,0x2
014e 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
014f 7834       |x4  |		Jump	0x184
0150 00cf       |    |		Action	Mark_Auxiliary
0151 7816       |x   |		Jump	0x168
0152 e406       |    |		Load	0x2,0x6
0153 e003       |    |		Load	0x0,0x3
0154 1b34       | 4  |		Execute	Package,Field_Read,Field_Number 0x34
0155 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
0156 c407       |    |		Store	0x2,0x7
0157 e407       |    |		Load	0x2,0x7
0158 e003       |    |		Load	0x0,0x3
0159 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
015a 7007       |p   |		Jump_Nonzero	0x162
015b e403       |    |		Load	0x2,0x3
015c e404       |    |		Load	0x2,0x4
015d e5fc       |    |		Load	0x2,-0x4
015e e5fd       |    |		Load	0x2,-0x3
015f e407       |    |		Load	0x2,0x7
0160 840b       |    |		Call	0x2,0xb
0161 c403       |    |		Store	0x2,0x3
0162 e406       |    |		Load	0x2,0x6
0163 e003       |    |		Load	0x0,0x3
0164 1b34       | 4  |		Execute	Package,Field_Read,Field_Number 0x34
0165 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
0166 c406       |    |		Store	0x2,0x6
0167 00c9       |    |		Action	Pop_Auxiliary_Loop
0168 e406       |    |		Load	0x2,0x6
0169 e003       |    |		Load	0x0,0x3
016a 1b34       | 4  |		Execute	Package,Field_Read,Field_Number 0x34
016b 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
016c 6fe5       |o   |		Jump_Zero	0x152
016d 00ce       |    |		Action	Pop_Auxiliary
016e e409       |    |		Load	0x2,0x9
016f 7002       |p   |		Jump_Nonzero	0x172
0170 e40a       |    |		Load	0x2,0xa
0171 6812       |h   |		Jump_Zero	0x184
0172 e406       |    |		Load	0x2,0x6
0173 0120       |    |		Execute	Any,Is_Value
0174 6804       |h   |		Jump_Zero	0x179
0175 e003       |    |		Load	0x0,0x3
0176 1b34       | 4  |		Execute	Package,Field_Read,Field_Number 0x34
0177 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
0178 7801       |x   |		Jump	0x17a
0179 e406       |    |		Load	0x2,0x6
017a e007       |    |		Load	0x0,0x7
017b 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
017c e008       |    |		Load	0x0,0x8
017d 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
017e e408       |    |		Load	0x2,0x8
017f e003       |    |		Load	0x0,0x3
0180 1b34       | 4  |		Execute	Package,Field_Read,Field_Number 0x34
0181 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0182 c406       |    |		Store	0x2,0x6
0183 840e       |    |		Call	0x2,0xe
0184 e404       |    |		Load	0x2,0x4
0185 e016       |    |		Load	0x0,0x16
0186 e402       |    |		Load	0x2,0x2
0187 e403       |    |		Load	0x2,0x3
0188 e004       |    |		Load	0x0,0x4
0189 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
018a e405       |    |		Load	0x2,0x5
018b e001       |    |		Load	0x0,0x1
018c 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
018d 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
018e			TRAP_00b8:
018e e002       |    |		Load	0x0,0x2
018f 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
0190 010f       |    |		Execute	Exception,Equal
0191 680a       |h   |		Jump_Zero	0x19c
0192 e404       |    |		Load	0x2,0x4
0193 e016       |    |		Load	0x0,0x16
0194 e402       |    |		Load	0x2,0x2
0195 e403       |    |		Load	0x2,0x3
0196 e004       |    |		Load	0x0,0x4
0197 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0198 e405       |    |		Load	0x2,0x5
0199 e001       |    |		Load	0x0,0x1
019a 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
019b 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
019c 4884       |H   |		Short_Literal	0x84
019d 010f       |    |		Execute	Exception,Equal
019e 680a       |h   |		Jump_Zero	0x1a9
019f e404       |    |		Load	0x2,0x4
01a0 e016       |    |		Load	0x0,0x16
01a1 e402       |    |		Load	0x2,0x2
01a2 e403       |    |		Load	0x2,0x3
01a3 e004       |    |		Load	0x0,0x4
01a4 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
01a5 e405       |    |		Load	0x2,0x5
01a6 e001       |    |		Load	0x0,0x1
01a7 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
01a8 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
01a9 e002       |    |		Load	0x0,0x2
01aa 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
01ab 010f       |    |		Execute	Exception,Equal
01ac 680b       |h   |		Jump_Zero	0x1b8
01ad e404       |    |		Load	0x2,0x4
01ae e016       |    |		Load	0x0,0x16
01af e402       |    |		Load	0x2,0x2
01b0 e403       |    |		Load	0x2,0x3
01b1 e004       |    |		Load	0x0,0x4
01b2 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
01b3 e405       |    |		Load	0x2,0x5
01b4 e001       |    |		Load	0x0,0x1
01b5 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
01b6 00d8       |    |		Load_Top	At_Offset_0
01b7 0101       |    |		Execute	Exception,Reraise
01b8 e404       |    |		Load	0x2,0x4
01b9 e016       |    |		Load	0x0,0x16
01ba e402       |    |		Load	0x2,0x2
01bb e403       |    |		Load	0x2,0x3
01bc e004       |    |		Load	0x0,0x4
01bd 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
01be e405       |    |		Load	0x2,0x5
01bf e001       |    |		Load	0x0,0x1
01c0 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
01c1 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
01c2 0000 0000  |    |		.XXX[0x2]
01c4 0000 0000  |    |		.LITERAL	{0x00000000, 0x0000882b}
01c8 ; --------------------------------------------------------------------------------------
01c8 ; SUBPROGRAM
01c8 ; --------------------------------------------------------------------------------------
01c8 01e0       |    |		.CONST	0x01e0								; Address of begin
01c9 0203       |    |		.CONST	0x0203								; Address of exception handler
01ca 0007       |    |		.CONST	0x0007								; Number of locals
01cb			INIT_01c8:
01cb 0092 053a  |   :|		Action	Push_String_Extended,0x53a					; "Destroy_Remote_Library"
01cd e002       |    |		Load	0x0,0x2
01ce 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
01cf 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
01d0 e001       |    |		Load	0x0,0x1
01d1 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
01d2 02c7       |    |		Declare_Variable	Any
01d3 e5fe       |    |		Load	0x2,-0x2
01d4 e001       |    |		Load	0x0,0x1
01d5 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
01d6 a404       |    |		Store_Unchecked	0x2,0x4
01d7 00e1       |    |		Load_Encached	Boolean_Cache
01d8 e001       |    |		Load	0x0,0x1
01d9 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
01da 02c7       |    |		Declare_Variable	Any
01db e001       |    |		Load	0x0,0x1
01dc 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
01dd a406       |    |		Store_Unchecked	0x2,0x6
01de 029f 0473  |   s|		Declare_Subprogram	INIT_0470,For_Call
01e0			BODY_01c8:
01e0 00db       |    |		Load_Top	At_Offset_3
01e1 e001       |    |		Load	0x0,0x1
01e2 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
01e3 00db       |    |		Load_Top	At_Offset_3
01e4 e016       |    |		Load	0x0,0x16
01e5 0092 0533  |   3|		Action	Push_String_Extended,0x533					; "View"
01e7 e5ff       |    |		Load	0x2,-0x1
01e8 e004       |    |		Load	0x0,0x4
01e9 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
01ea 01cc       |    |		Execute	Vector,Catenate
01eb 0092 0536  |   6|		Action	Push_String_Extended,0x536					; "Response"
01ed 01cc       |    |		Execute	Vector,Catenate
01ee e5fe       |    |		Load	0x2,-0x2
01ef e004       |    |		Load	0x0,0x4
01f0 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
01f1 01cc       |    |		Execute	Vector,Catenate
01f2 e402       |    |		Load	0x2,0x2
01f3 e004       |    |		Load	0x0,0x4
01f4 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
01f5 00db       |    |		Load_Top	At_Offset_3
01f6 e005       |    |		Load	0x0,0x5
01f7 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
01f8 8407       |    |		Call	0x2,0x7
01f9 00db       |    |		Load_Top	At_Offset_3
01fa e016       |    |		Load	0x0,0x16
01fb e402       |    |		Load	0x2,0x2
01fc e403       |    |		Load	0x2,0x3
01fd e004       |    |		Load	0x0,0x4
01fe 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
01ff 00d9       |    |		Load_Top	At_Offset_1
0200 e001       |    |		Load	0x0,0x1
0201 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0202 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0203			TRAP_01c8:
0203 e002       |    |		Load	0x0,0x2
0204 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
0205 010f       |    |		Execute	Exception,Equal
0206 680a       |h   |		Jump_Zero	0x211
0207 e404       |    |		Load	0x2,0x4
0208 e016       |    |		Load	0x0,0x16
0209 e402       |    |		Load	0x2,0x2
020a e403       |    |		Load	0x2,0x3
020b e004       |    |		Load	0x0,0x4
020c 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
020d 00da       |    |		Load_Top	At_Offset_2
020e e001       |    |		Load	0x0,0x1
020f 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0210 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0211 4884       |H   |		Short_Literal	0x84
0212 010f       |    |		Execute	Exception,Equal
0213 680a       |h   |		Jump_Zero	0x21e
0214 e404       |    |		Load	0x2,0x4
0215 e016       |    |		Load	0x0,0x16
0216 e402       |    |		Load	0x2,0x2
0217 e403       |    |		Load	0x2,0x3
0218 e004       |    |		Load	0x0,0x4
0219 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
021a 00da       |    |		Load_Top	At_Offset_2
021b e001       |    |		Load	0x0,0x1
021c 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
021d 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
021e e002       |    |		Load	0x0,0x2
021f 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
0220 010f       |    |		Execute	Exception,Equal
0221 680b       |h   |		Jump_Zero	0x22d
0222 e404       |    |		Load	0x2,0x4
0223 e016       |    |		Load	0x0,0x16
0224 e402       |    |		Load	0x2,0x2
0225 e403       |    |		Load	0x2,0x3
0226 e004       |    |		Load	0x0,0x4
0227 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0228 00da       |    |		Load_Top	At_Offset_2
0229 e001       |    |		Load	0x0,0x1
022a 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
022b 00d8       |    |		Load_Top	At_Offset_0
022c 0101       |    |		Execute	Exception,Reraise
022d e404       |    |		Load	0x2,0x4
022e e016       |    |		Load	0x0,0x16
022f e402       |    |		Load	0x2,0x2
0230 e403       |    |		Load	0x2,0x3
0231 e004       |    |		Load	0x0,0x4
0232 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0233 00da       |    |		Load_Top	At_Offset_2
0234 e001       |    |		Load	0x0,0x1
0235 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0236 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0237 0000       |    |		.XXX[0x1]
0238 ; --------------------------------------------------------------------------------------
0238 ; SUBPROGRAM
0238 ; --------------------------------------------------------------------------------------
0238 024d       | M  |		.CONST	0x024d								; Address of begin
0239 027a       | z  |		.CONST	0x027a								; Address of exception handler
023a 0005       |    |		.CONST	0x0005								; Number of locals
023b			INIT_0238:
023b 0092 053b  |   ;|		Action	Push_String_Extended,0x53b					; "Refresh_Remote_Imports"
023d e002       |    |		Load	0x0,0x2
023e 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
023f 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0240 e001       |    |		Load	0x0,0x1
0241 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0242 02c7       |    |		Declare_Variable	Any
0243 e5fe       |    |		Load	0x2,-0x2
0244 e001       |    |		Load	0x0,0x1
0245 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
0246 a404       |    |		Store_Unchecked	0x2,0x4
0247 e001       |    |		Load	0x0,0x1
0248 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0249 02c7       |    |		Declare_Variable	Any
024a e001       |    |		Load	0x0,0x1
024b 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
024c a405       |    |		Store_Unchecked	0x2,0x5
024d			BODY_0238:
024d 00d9       |    |		Load_Top	At_Offset_1
024e e001       |    |		Load	0x0,0x1
024f 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0250 00d9       |    |		Load_Top	At_Offset_1
0251 e016       |    |		Load	0x0,0x16
0252 0092 0533  |   3|		Action	Push_String_Extended,0x533					; "View"
0254 e5ff       |    |		Load	0x2,-0x1
0255 e004       |    |		Load	0x0,0x4
0256 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0257 01cc       |    |		Execute	Vector,Catenate
0258 0092 0536  |   6|		Action	Push_String_Extended,0x536					; "Response"
025a 01cc       |    |		Execute	Vector,Catenate
025b e5fe       |    |		Load	0x2,-0x2
025c e004       |    |		Load	0x0,0x4
025d 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
025e 01cc       |    |		Execute	Vector,Catenate
025f e402       |    |		Load	0x2,0x2
0260 e004       |    |		Load	0x0,0x4
0261 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0262 00d9       |    |		Load_Top	At_Offset_1
0263 e005       |    |		Load	0x0,0x5
0264 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0265 00d9       |    |		Load_Top	At_Offset_1
0266 0092 053c  |   <|		Action	Push_String_Extended,0x53c					; "<WARN>"
0268 4800       |H   |		Short_Literal	0x0
0269 4800       |H   |		Short_Literal	0x0
026a e5ff       |    |		Load	0x2,-0x1
026b e00a       |    |		Load	0x0,0xa
026c 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
026d e5ff       |    |		Load	0x2,-0x1
026e e00b       |    |		Load	0x0,0xb
026f 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
0270 00d9       |    |		Load_Top	At_Offset_1
0271 e016       |    |		Load	0x0,0x16
0272 e402       |    |		Load	0x2,0x2
0273 e403       |    |		Load	0x2,0x3
0274 e004       |    |		Load	0x0,0x4
0275 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0276 00d8       |    |		Load_Top	At_Offset_0
0277 e001       |    |		Load	0x0,0x1
0278 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0279 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
027a			TRAP_0238:
027a e002       |    |		Load	0x0,0x2
027b 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
027c 010f       |    |		Execute	Exception,Equal
027d 680a       |h   |		Jump_Zero	0x288
027e 00da       |    |		Load_Top	At_Offset_2
027f e016       |    |		Load	0x0,0x16
0280 e402       |    |		Load	0x2,0x2
0281 e403       |    |		Load	0x2,0x3
0282 e004       |    |		Load	0x0,0x4
0283 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0284 00d9       |    |		Load_Top	At_Offset_1
0285 e001       |    |		Load	0x0,0x1
0286 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0287 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0288 4884       |H   |		Short_Literal	0x84
0289 010f       |    |		Execute	Exception,Equal
028a 680a       |h   |		Jump_Zero	0x295
028b 00da       |    |		Load_Top	At_Offset_2
028c e016       |    |		Load	0x0,0x16
028d e402       |    |		Load	0x2,0x2
028e e403       |    |		Load	0x2,0x3
028f e004       |    |		Load	0x0,0x4
0290 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0291 00d9       |    |		Load_Top	At_Offset_1
0292 e001       |    |		Load	0x0,0x1
0293 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0294 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0295 e002       |    |		Load	0x0,0x2
0296 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
0297 010f       |    |		Execute	Exception,Equal
0298 680b       |h   |		Jump_Zero	0x2a4
0299 00da       |    |		Load_Top	At_Offset_2
029a e016       |    |		Load	0x0,0x16
029b e402       |    |		Load	0x2,0x2
029c e403       |    |		Load	0x2,0x3
029d e004       |    |		Load	0x0,0x4
029e 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
029f 00d9       |    |		Load_Top	At_Offset_1
02a0 e001       |    |		Load	0x0,0x1
02a1 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
02a2 00d8       |    |		Load_Top	At_Offset_0
02a3 0101       |    |		Execute	Exception,Reraise
02a4 00da       |    |		Load_Top	At_Offset_2
02a5 e016       |    |		Load	0x0,0x16
02a6 e402       |    |		Load	0x2,0x2
02a7 e403       |    |		Load	0x2,0x3
02a8 e004       |    |		Load	0x0,0x4
02a9 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
02aa 00d9       |    |		Load_Top	At_Offset_1
02ab e001       |    |		Load	0x0,0x1
02ac 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
02ad 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
02ae 0000 0000  |    |		.XXX[0x2]
02b0 ; --------------------------------------------------------------------------------------
02b0 ; SUBPROGRAM
02b0 ; --------------------------------------------------------------------------------------
02b0 02b3       |    |		.CONST	0x02b3								; Address of begin
02b1 0004       |    |		.CONST	0x0004								; Address of exception handler
02b2 0001       |    |		.CONST	0x0001								; Number of locals
02b3			BODY_02b0:
02b3			INIT_02b0:
02b3 4801       |H   |		Short_Literal	0x1
02b4 0092 053d  |   =|		Action	Push_String_Extended,0x53d					; "<DEFAULT>"
02b6 e5fe       |    |		Load	0x2,-0x2
02b7 e00c       |    |		Load	0x0,0xc
02b8 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
02b9 6804       |h   |		Jump_Zero	0x2be
02ba e5fd       |    |		Load	0x2,-0x3
02bb 00db       |    |		Load_Top	At_Offset_3
02bc 800d       |    |		Call	0x0,0xd
02bd 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
02be 00db       |    |		Load_Top	At_Offset_3
02bf 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
02c0 ; --------------------------------------------------------------------------------------
02c0 ; SUBPROGRAM
02c0 ; --------------------------------------------------------------------------------------
02c0 02c3       |    |		.CONST	0x02c3								; Address of begin
02c1 0004       |    |		.CONST	0x0004								; Address of exception handler
02c2 0001       |    |		.CONST	0x0001								; Number of locals
02c3			BODY_02c0:
02c3			INIT_02c0:
02c3 4801       |H   |		Short_Literal	0x1
02c4 0092 053d  |   =|		Action	Push_String_Extended,0x53d					; "<DEFAULT>"
02c6 e5fe       |    |		Load	0x2,-0x2
02c7 e00c       |    |		Load	0x0,0xc
02c8 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
02c9 6804       |h   |		Jump_Zero	0x2ce
02ca e5fd       |    |		Load	0x2,-0x3
02cb 00db       |    |		Load_Top	At_Offset_3
02cc 800e       |    |		Call	0x0,0xe
02cd 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
02ce 00db       |    |		Load_Top	At_Offset_3
02cf 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
02d0 ; --------------------------------------------------------------------------------------
02d0 ; SUBPROGRAM
02d0 ; --------------------------------------------------------------------------------------
02d0 02e6       |    |		.CONST	0x02e6								; Address of begin
02d1 0004       |    |		.CONST	0x0004								; Address of exception handler
02d2 0006       |    |		.CONST	0x0006								; Number of locals
02d3			INIT_02d0:
02d3 00e1       |    |		Load_Encached	Boolean_Cache
02d4 e003       |    |		Load	0x0,0x3
02d5 1b2e       | .  |		Execute	Package,Field_Read,Field_Number 0x2e
02d6 0322       | "  |		Declare_Variable	Record
02d7 e5fc       |    |		Load	0x2,-0x4
02d8 e5ff       |    |		Load	0x2,-0x1
02d9 e006       |    |		Load	0x0,0x6
02da 182b       | +  |		Execute	Package,Field_Execute,Field_Number 0x2b
02db 00d9       |    |		Load_Top	At_Offset_1
02dc 017d       | }  |		Execute	Record,Structure_Write
02dd e002       |    |		Load	0x0,0x2
02de 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
02df 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
02e0 e002       |    |		Load	0x0,0x2
02e1 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
02e2 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
02e3 e5fc       |    |		Load	0x2,-0x4
02e4 e5ff       |    |		Load	0x2,-0x1
02e5 800f       |    |		Call	0x0,0xf
02e6			BODY_02d0:
02e6 4800       |H   |		Short_Literal	0x0
02e7 a5fb       |    |		Store_Unchecked	0x2,-0x5
02e8 e001       |    |		Load	0x0,0x1
02e9 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
02ea 4801       |H   |		Short_Literal	0x1
02eb 4801       |H   |		Short_Literal	0x1
02ec e009       |    |		Load	0x0,0x9
02ed 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
02ee 035b       | [  |		Declare_Type	Array,Constrained
02ef 0337       | 7  |		Declare_Variable	Array
02f0 0092 053e  |   >|		Action	Push_String_Extended,0x53e					; "WARNING:  All referencers must have remote imports refreshed"
02f2 e009       |    |		Load	0x0,0x9
02f3 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
02f4 e009       |    |		Load	0x0,0x9
02f5 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
02f6 0119       |    |		Execute	Any,Check_In_Formal_Type
02f7 4801       |H   |		Short_Literal	0x1
02f8 00da       |    |		Load_Top	At_Offset_2
02f9 01d6       |    |		Execute	Vector,Field_Write
02fa 6069       |`i  |		Indirect_Literal	Discrete,0x364,{0x00000000, 0x00008857}
02fb e002       |    |		Load	0x0,0x2
02fc 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
02fd e002       |    |		Load	0x0,0x2
02fe 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
02ff e403       |    |		Load	0x2,0x3
0300 e5fd       |    |		Load	0x2,-0x3
0301 e5fe       |    |		Load	0x2,-0x2
0302 e5ff       |    |		Load	0x2,-0x1
0303 8010       |    |		Call	0x0,0x10
0304 005b       | [  |		Store_Top	Discrete,At_Offset_3
0305 4800       |H   |		Short_Literal	0x0
0306 00db       |    |		Load_Top	At_Offset_3
0307 e002       |    |		Load	0x0,0x2
0308 1847       | G  |		Execute	Package,Field_Execute,Field_Number 0x47
0309 7003       |p   |		Jump_Nonzero	0x30d
030a 00da       |    |		Load_Top	At_Offset_2
030b a5fb       |    |		Store_Unchecked	0x2,-0x5
030c 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
030d 00d8       |    |		Load_Top	At_Offset_0
030e e403       |    |		Load	0x2,0x3
030f e5fd       |    |		Load	0x2,-0x3
0310 e5fe       |    |		Load	0x2,-0x2
0311 4800       |H   |		Short_Literal	0x0
0312 e5ff       |    |		Load	0x2,-0x1
0313 e006       |    |		Load	0x0,0x6
0314 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
0315 e011       |    |		Load	0x0,0x11
0316 182a       | *  |		Execute	Package,Field_Execute,Field_Number 0x2a
0317 a402       |    |		Store_Unchecked	0x2,0x2
0318 e402       |    |		Load	0x2,0x2
0319 6849       |hI  |		Jump_Zero	0x363
031a e002       |    |		Load	0x0,0x2
031b 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
031c e5fc       |    |		Load	0x2,-0x4
031d 00d8       |    |		Load_Top	At_Offset_0
031e e5ff       |    |		Load	0x2,-0x1
031f e006       |    |		Load	0x0,0x6
0320 182b       | +  |		Execute	Package,Field_Execute,Field_Number 0x2b
0321 e5fd       |    |		Load	0x2,-0x3
0322 e5ff       |    |		Load	0x2,-0x1
0323 e012       |    |		Load	0x0,0x12
0324 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
0325 005b       | [  |		Store_Top	Discrete,At_Offset_3
0326 4800       |H   |		Short_Literal	0x0
0327 00db       |    |		Load_Top	At_Offset_3
0328 e002       |    |		Load	0x0,0x2
0329 1847       | G  |		Execute	Package,Field_Execute,Field_Number 0x47
032a 7006       |p   |		Jump_Nonzero	0x331
032b e001       |    |		Load	0x0,0x1
032c 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
032d 4806       |H   |		Short_Literal	0x6
032e e404       |    |		Load	0x2,0x4
032f e002       |    |		Load	0x0,0x2
0330 1830       | 0  |		Execute	Package,Field_Execute,Field_Number 0x30
0331 e002       |    |		Load	0x0,0x2
0332 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0333 e5fc       |    |		Load	0x2,-0x4
0334 00d8       |    |		Load_Top	At_Offset_0
0335 e5ff       |    |		Load	0x2,-0x1
0336 e006       |    |		Load	0x0,0x6
0337 182b       | +  |		Execute	Package,Field_Execute,Field_Number 0x2b
0338 e5fe       |    |		Load	0x2,-0x2
0339 e5ff       |    |		Load	0x2,-0x1
033a e012       |    |		Load	0x0,0x12
033b 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
033c 005a       | Z  |		Store_Top	Discrete,At_Offset_2
033d 4800       |H   |		Short_Literal	0x0
033e 00da       |    |		Load_Top	At_Offset_2
033f e002       |    |		Load	0x0,0x2
0340 1847       | G  |		Execute	Package,Field_Execute,Field_Number 0x47
0341 7006       |p   |		Jump_Nonzero	0x348
0342 e001       |    |		Load	0x0,0x1
0343 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0344 4806       |H   |		Short_Literal	0x6
0345 00db       |    |		Load_Top	At_Offset_3
0346 e002       |    |		Load	0x0,0x2
0347 1830       | 0  |		Execute	Package,Field_Execute,Field_Number 0x30
0348 e5fc       |    |		Load	0x2,-0x4
0349 0092 053c  |   <|		Action	Push_String_Extended,0x53c					; "<WARN>"
034b 4800       |H   |		Short_Literal	0x0
034c 4800       |H   |		Short_Literal	0x0
034d e5ff       |    |		Load	0x2,-0x1
034e e006       |    |		Load	0x0,0x6
034f 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
0350 e00a       |    |		Load	0x0,0xa
0351 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0352 e5ff       |    |		Load	0x2,-0x1
0353 e006       |    |		Load	0x0,0x6
0354 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
0355 e00b       |    |		Load	0x0,0xb
0356 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
0357 4801       |H   |		Short_Literal	0x1
0358 4801       |H   |		Short_Literal	0x1
0359 4800       |H   |		Short_Literal	0x0
035a 4801       |H   |		Short_Literal	0x1
035b e5fc       |    |		Load	0x2,-0x4
035c e006       |    |		Load	0x0,0x6
035d 183e       | >  |		Execute	Package,Field_Execute,Field_Number 0x3e
035e 0092 053f  |   ?|		Action	Push_String_Extended,0x53f					; "<ALL_WORLDS>"
0360 e5ff       |    |		Load	0x2,-0x1
0361 e013       |    |		Load	0x0,0x13
0362 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0363 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
0364 0000 0000  |    |		.LITERAL	{0x00000000, 0x00008857}
0368 ; --------------------------------------------------------------------------------------
0368 ; SUBPROGRAM
0368 ; --------------------------------------------------------------------------------------
0368 0375       | u  |		.CONST	0x0375								; Address of begin
0369 0004       |    |		.CONST	0x0004								; Address of exception handler
036a 0003       |    |		.CONST	0x0003								; Number of locals
036b			INIT_0368:
036b 00e1       |    |		Load_Encached	Boolean_Cache
036c e003       |    |		Load	0x0,0x3
036d 1b2e       | .  |		Execute	Package,Field_Read,Field_Number 0x2e
036e 0322       | "  |		Declare_Variable	Record
036f e5fc       |    |		Load	0x2,-0x4
0370 e5ff       |    |		Load	0x2,-0x1
0371 e006       |    |		Load	0x0,0x6
0372 182b       | +  |		Execute	Package,Field_Execute,Field_Number 0x2b
0373 00d9       |    |		Load_Top	At_Offset_1
0374 017d       | }  |		Execute	Record,Structure_Write
0375			BODY_0368:
0375 e5ff       |    |		Load	0x2,-0x1
0376 e014       |    |		Load	0x0,0x14
0377 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0378 00d8       |    |		Load_Top	At_Offset_0
0379 e5ff       |    |		Load	0x2,-0x1
037a e006       |    |		Load	0x0,0x6
037b 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
037c e011       |    |		Load	0x0,0x11
037d 181f       |    |		Execute	Package,Field_Execute,Field_Number 0x1f
037e 0052       | R  |		Store_Top_Unchecked	Discrete,At_Offset_2
037f 00d9       |    |		Load_Top	At_Offset_1
0380 6809       |h   |		Jump_Zero	0x38a
0381 00d8       |    |		Load_Top	At_Offset_0
0382 e5fe       |    |		Load	0x2,-0x2
0383 00d8       |    |		Load_Top	At_Offset_0
0384 e5ff       |    |		Load	0x2,-0x1
0385 e006       |    |		Load	0x0,0x6
0386 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
0387 e011       |    |		Load	0x0,0x11
0388 1829       | )  |		Execute	Package,Field_Execute,Field_Number 0x29
0389 0052       | R  |		Store_Top_Unchecked	Discrete,At_Offset_2
038a 00d9       |    |		Load_Top	At_Offset_1
038b 4404       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x4
038c 0000 0000  |    |		.BLANK	0000[0x4]
0390 ; --------------------------------------------------------------------------------------
0390 ; SUBPROGRAM
0390 ; --------------------------------------------------------------------------------------
0390 03a8       |    |		.CONST	0x03a8								; Address of begin
0391 0004       |    |		.CONST	0x0004								; Address of exception handler
0392 0004       |    |		.CONST	0x0004								; Number of locals
0393			INIT_0390:
0393 e003       |    |		Load	0x0,0x3
0394 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0395 02c7       |    |		Declare_Variable	Any
0396 e402       |    |		Load	0x2,0x2
0397 4801       |H   |		Short_Literal	0x1
0398 e402       |    |		Load	0x2,0x2
0399 4801       |H   |		Short_Literal	0x1
039a e405       |    |		Load	0x2,0x5
039b e006       |    |		Load	0x0,0x6
039c 1828       | (  |		Execute	Package,Field_Execute,Field_Number 0x28
039d e006       |    |		Load	0x0,0x6
039e 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
039f a602       |    |		Store_Unchecked	0x3,0x2
03a0 e402       |    |		Load	0x2,0x2
03a1 e5fe       |    |		Load	0x2,-0x2
03a2 00da       |    |		Load_Top	At_Offset_2
03a3 8211       |    |		Call	0x1,0x11
03a4 e402       |    |		Load	0x2,0x2
03a5 e5fd       |    |		Load	0x2,-0x3
03a6 00db       |    |		Load_Top	At_Offset_3
03a7 8212       |    |		Call	0x1,0x12
03a8			BODY_0390:
03a8 00da       |    |		Load_Top	At_Offset_2
03a9 e014       |    |		Load	0x0,0x14
03aa 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
03ab e002       |    |		Load	0x0,0x2
03ac 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
03ad e402       |    |		Load	0x2,0x2
03ae 00da       |    |		Load_Top	At_Offset_2
03af e603       |    |		Load	0x3,0x3
03b0 e602       |    |		Load	0x3,0x2
03b1 8213       |    |		Call	0x1,0x13
03b2 c404       |    |		Store	0x2,0x4
03b3 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
03b4 0000 0000  |    |		.BLANK	0000[0x4]
03b8 ; --------------------------------------------------------------------------------------
03b8 ; SUBPROGRAM
03b8 ; --------------------------------------------------------------------------------------
03b8 03c4       |    |		.CONST	0x03c4								; Address of begin
03b9 0004       |    |		.CONST	0x0004								; Address of exception handler
03ba 0004       |    |		.CONST	0x0004								; Number of locals
03bb			INIT_03b8:
03bb 00e1       |    |		Load_Encached	Boolean_Cache
03bc e7fc       |    |		Load	0x3,-0x4
03bd e7fe       |    |		Load	0x3,-0x2
03be e7ff       |    |		Load	0x3,-0x1
03bf 8211       |    |		Call	0x1,0x11
03c0 e7fc       |    |		Load	0x3,-0x4
03c1 e7fd       |    |		Load	0x3,-0x3
03c2 e7ff       |    |		Load	0x3,-0x1
03c3 8212       |    |		Call	0x1,0x12
03c4			BODY_03b8:
03c4 e404       |    |		Load	0x2,0x4
03c5 00d8       |    |		Load_Top	At_Offset_0
03c6 e407       |    |		Load	0x2,0x7
03c7 800e       |    |		Call	0x0,0xe
03c8 e404       |    |		Load	0x2,0x4
03c9 e407       |    |		Load	0x2,0x7
03ca 800d       |    |		Call	0x0,0xd
03cb e407       |    |		Load	0x2,0x7
03cc 8214       |    |		Call	0x1,0x14
03cd 0053       | S  |		Store_Top_Uncheched	Discrete,At_Offset_3
03ce 00da       |    |		Load_Top	At_Offset_2
03cf 6802       |h   |		Jump_Zero	0x3d2
03d0 4801       |H   |		Short_Literal	0x1
03d1 a40a       |    |		Store_Unchecked	0x2,0xa
03d2 e002       |    |		Load	0x0,0x2
03d3 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
03d4 e404       |    |		Load	0x2,0x4
03d5 00da       |    |		Load_Top	At_Offset_2
03d6 e603       |    |		Load	0x3,0x3
03d7 e407       |    |		Load	0x2,0x7
03d8 8213       |    |		Call	0x1,0x13
03d9 c7fb       |    |		Store	0x3,-0x5
03da 4800       |H   |		Short_Literal	0x0
03db e7fb       |    |		Load	0x3,-0x5
03dc e002       |    |		Load	0x0,0x2
03dd 1847       | G  |		Execute	Package,Field_Execute,Field_Number 0x47
03de 6803       |h   |		Jump_Zero	0x3e2
03df 4801       |H   |		Short_Literal	0x1
03e0 a409       |    |		Store_Unchecked	0x2,0x9
03e1 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
03e2 4800       |H   |		Short_Literal	0x0
03e3 a7fb       |    |		Store_Unchecked	0x3,-0x5
03e4 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
03e5 0000 0000  |    |		.XXX[0x3]
03e7 0000       |    |
03e8 ; --------------------------------------------------------------------------------------
03e8 ; SUBPROGRAM
03e8 ; --------------------------------------------------------------------------------------
03e8 0400       |    |		.CONST	0x0400								; Address of begin
03e9 0004       |    |		.CONST	0x0004								; Address of exception handler
03ea 0006       |    |		.CONST	0x0006								; Number of locals
03eb			INIT_03e8:
03eb e003       |    |		Load	0x0,0x3
03ec 1b34       | 4  |		Execute	Package,Field_Read,Field_Number 0x34
03ed 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
03ee 02c7       |    |		Declare_Variable	Any
03ef 00d8       |    |		Load_Top	At_Offset_0
03f0 1c00       |    |		Execute_Immediate	Run_Utility,0x0
03f1 e003       |    |		Load	0x0,0x3
03f2 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
03f3 02c7       |    |		Declare_Variable	Any
03f4 00d8       |    |		Load_Top	At_Offset_0
03f5 1c00       |    |		Execute_Immediate	Run_Utility,0x0
03f6 e003       |    |		Load	0x0,0x3
03f7 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
03f8 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
03f9 02c7       |    |		Declare_Variable	Any
03fa e7ff       |    |		Load	0x3,-0x1
03fb a604       |    |		Store_Unchecked	0x3,0x4
03fc 029f 049b  |    |		Declare_Subprogram	INIT_0498,For_Call
03fe 029f 04f3  |    |		Declare_Subprogram	INIT_04f0,For_Call
0400			BODY_03e8:
0400 e602       |    |		Load	0x3,0x2
0401 0120       |    |		Execute	Any,Is_Value
0402 6804       |h   |		Jump_Zero	0x407
0403 e003       |    |		Load	0x0,0x3
0404 1b34       | 4  |		Execute	Package,Field_Read,Field_Number 0x34
0405 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0406 7801       |x   |		Jump	0x408
0407 e602       |    |		Load	0x3,0x2
0408 e007       |    |		Load	0x0,0x7
0409 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
040a e008       |    |		Load	0x0,0x8
040b 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
040c e003       |    |		Load	0x0,0x3
040d 1b34       | 4  |		Execute	Package,Field_Read,Field_Number 0x34
040e 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
040f c602       |    |		Store	0x3,0x2
0410 00cf       |    |		Action	Mark_Auxiliary
0411 7807       |x   |		Jump	0x419
0412 8606       |    |		Call	0x3,0x6
0413 00db       |    |		Load_Top	At_Offset_3
0414 e003       |    |		Load	0x0,0x3
0415 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0416 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
0417 c604       |    |		Store	0x3,0x4
0418 00c9       |    |		Action	Pop_Auxiliary_Loop
0419 00db       |    |		Load_Top	At_Offset_3
041a e003       |    |		Load	0x0,0x3
041b 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
041c 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
041d 6ff4       |o   |		Jump_Zero	0x412
041e 00ce       |    |		Action	Pop_Auxiliary
041f e602       |    |		Load	0x3,0x2
0420 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0421 0000 0000  |    |		.BLANK	0000[0x7]
0428 ; --------------------------------------------------------------------------------------
0428 ; SUBPROGRAM
0428 ; --------------------------------------------------------------------------------------
0428 0438       | 8  |		.CONST	0x0438								; Address of begin
0429 0449       | I  |		.CONST	0x0449								; Address of exception handler
042a 0004       |    |		.CONST	0x0004								; Number of locals
042b			INIT_0428:
042b e003       |    |		Load	0x0,0x3
042c 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
042d 02c7       |    |		Declare_Variable	Any
042e 00d8       |    |		Load_Top	At_Offset_0
042f 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0430 e003       |    |		Load	0x0,0x3
0431 1b34       | 4  |		Execute	Package,Field_Read,Field_Number 0x34
0432 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
0433 02c7       |    |		Declare_Variable	Any
0434 e7ff       |    |		Load	0x3,-0x1
0435 a603       |    |		Store_Unchecked	0x3,0x3
0436 029f 0513  |    |		Declare_Subprogram	INIT_0510,For_Call
0438			BODY_0428:
0438 00d9       |    |		Load_Top	At_Offset_1
0439 e003       |    |		Load	0x0,0x3
043a 1b34       | 4  |		Execute	Package,Field_Read,Field_Number 0x34
043b 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
043c c602       |    |		Store	0x3,0x2
043d 0092 0540  |   @|		Action	Push_String_Extended,0x540					; "["
043f 00db       |    |		Load_Top	At_Offset_3
0440 e003       |    |		Load	0x0,0x3
0441 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0442 183e       | >  |		Execute	Package,Field_Execute,Field_Number 0x3e
0443 8604       |    |		Call	0x3,0x4
0444 01cc       |    |		Execute	Vector,Catenate
0445 0092 0541  |   A|		Action	Push_String_Extended,0x541					; "]"
0447 01cc       |    |		Execute	Vector,Catenate
0448 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0449			TRAP_0428:
0449 0007       |    |		Action	Break_Optional
044a 00ea       |    |		Load_Encached	Null_String_Cache
044b 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
044c 0000 0000  |    |		.BLANK	0000[0x4]
0450 ; --------------------------------------------------------------------------------------
0450 ; SUBPROGRAM
0450 ; --------------------------------------------------------------------------------------
0450 0455       | U  |		.CONST	0x0455								; Address of begin
0451 0004       |    |		.CONST	0x0004								; Address of exception handler
0452 0002       |    |		.CONST	0x0002								; Number of locals
0453			INIT_0450:
0453 e406       |    |		Load	0x2,0x6
0454 840d       |    |		Call	0x2,0xd
0455			BODY_0450:
0455 0092 0542  |   B|		Action	Push_String_Extended,0x542					; "<PROFILE>"
0457 4800       |H   |		Short_Literal	0x0
0458 0092 053f  |   ?|		Action	Push_String_Extended,0x53f					; "<ALL_WORLDS>"
045a 4802       |H   |		Short_Literal	0x2
045b e602       |    |		Load	0x3,0x2
045c e015       |    |		Load	0x0,0x15
045d 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
045e e5fe       |    |		Load	0x2,-0x2
045f 6809       |h   |		Jump_Zero	0x469
0460 e5fb       |    |		Load	0x2,-0x5
0461 4800       |H   |		Short_Literal	0x0
0462 0092 0543  |   C|		Action	Push_String_Extended,0x543					; "<All_WORLDS>"
0464 4803       |H   |		Short_Literal	0x3
0465 4802       |H   |		Short_Literal	0x2
0466 e602       |    |		Load	0x3,0x2
0467 e015       |    |		Load	0x0,0x15
0468 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
0469 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
046a 0000 0000  |    |		.BLANK	0000[0x6]
0470 ; --------------------------------------------------------------------------------------
0470 ; SUBPROGRAM
0470 ; --------------------------------------------------------------------------------------
0470 0482       |    |		.CONST	0x0482								; Address of begin
0471 0004       |    |		.CONST	0x0004								; Address of exception handler
0472 0004       |    |		.CONST	0x0004								; Number of locals
0473			INIT_0470:
0473 e003       |    |		Load	0x0,0x3
0474 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0475 02c7       |    |		Declare_Variable	Any
0476 e404       |    |		Load	0x2,0x4
0477 4801       |H   |		Short_Literal	0x1
0478 e5ff       |    |		Load	0x2,-0x1
0479 e006       |    |		Load	0x0,0x6
047a 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
047b a602       |    |		Store_Unchecked	0x3,0x2
047c e404       |    |		Load	0x2,0x4
047d 00d9       |    |		Load_Top	At_Offset_1
047e 800d       |    |		Call	0x0,0xd
047f e404       |    |		Load	0x2,0x4
0480 00da       |    |		Load_Top	At_Offset_2
0481 800e       |    |		Call	0x0,0xe
0482			BODY_0470:
0482 e404       |    |		Load	0x2,0x4
0483 00db       |    |		Load_Top	At_Offset_3
0484 e005       |    |		Load	0x0,0x5
0485 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0486 e404       |    |		Load	0x2,0x4
0487 00db       |    |		Load_Top	At_Offset_3
0488 e005       |    |		Load	0x0,0x5
0489 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
048a e404       |    |		Load	0x2,0x4
048b 00d9       |    |		Load_Top	At_Offset_1
048c 00db       |    |		Load_Top	At_Offset_3
048d e602       |    |		Load	0x3,0x2
048e 8214       |    |		Call	0x1,0x14
048f a405       |    |		Store_Unchecked	0x2,0x5
0490 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0491 0000 0000  |    |		.BLANK	0000[0x7]
0498 ; --------------------------------------------------------------------------------------
0498 ; SUBPROGRAM
0498 ; --------------------------------------------------------------------------------------
0498 04a7       |    |		.CONST	0x04a7								; Address of begin
0499 0004       |    |		.CONST	0x0004								; Address of exception handler
049a 0004       |    |		.CONST	0x0004								; Number of locals
049b			INIT_0498:
049b e003       |    |		Load	0x0,0x3
049c 1b34       | 4  |		Execute	Package,Field_Read,Field_Number 0x34
049d 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
049e 02c7       |    |		Declare_Variable	Any
049f 00d8       |    |		Load_Top	At_Offset_0
04a0 1c00       |    |		Execute_Immediate	Run_Utility,0x0
04a1 e003       |    |		Load	0x0,0x3
04a2 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
04a3 02c7       |    |		Declare_Variable	Any
04a4 00d8       |    |		Load_Top	At_Offset_0
04a5 1c00       |    |		Execute_Immediate	Run_Utility,0x0
04a6 00e1       |    |		Load_Encached	Boolean_Cache
04a7			BODY_0498:
04a7 00da       |    |		Load_Top	At_Offset_2
04a8 0120       |    |		Execute	Any,Is_Value
04a9 6804       |h   |		Jump_Zero	0x4ae
04aa e003       |    |		Load	0x0,0x3
04ab 1b34       | 4  |		Execute	Package,Field_Read,Field_Number 0x34
04ac 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
04ad 7801       |x   |		Jump	0x4af
04ae 00da       |    |		Load_Top	At_Offset_2
04af e007       |    |		Load	0x0,0x7
04b0 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
04b1 e008       |    |		Load	0x0,0x8
04b2 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
04b3 e9ff       |    |		Load	0x4,-0x1
04b4 e003       |    |		Load	0x0,0x3
04b5 1b34       | 4  |		Execute	Package,Field_Read,Field_Number 0x34
04b6 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
04b7 c802       |    |		Store	0x4,0x2
04b8 00da       |    |		Load_Top	At_Offset_2
04b9 e003       |    |		Load	0x0,0x3
04ba 1b34       | 4  |		Execute	Package,Field_Read,Field_Number 0x34
04bb 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
04bc 6806       |h   |		Jump_Zero	0x4c3
04bd e9fe       |    |		Load	0x4,-0x2
04be e9ff       |    |		Load	0x4,-0x1
04bf e003       |    |		Load	0x0,0x3
04c0 1b34       | 4  |		Execute	Package,Field_Read,Field_Number 0x34
04c1 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
04c2 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
04c3 00cf       |    |		Action	Mark_Auxiliary
04c4 7816       |x   |		Jump	0x4db
04c5 00db       |    |		Load_Top	At_Offset_3
04c6 e003       |    |		Load	0x0,0x3
04c7 1b34       | 4  |		Execute	Package,Field_Read,Field_Number 0x34
04c8 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
04c9 c803       |    |		Store	0x4,0x3
04ca 00da       |    |		Load_Top	At_Offset_2
04cb e006       |    |		Load	0x0,0x6
04cc 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
04cd e9fe       |    |		Load	0x4,-0x2
04ce e006       |    |		Load	0x0,0x6
04cf 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
04d0 01df       |    |		Execute	Vector,Equal
04d1 6803       |h   |		Jump_Zero	0x4d5
04d2 4801       |H   |		Short_Literal	0x1
04d3 0052       | R  |		Store_Top_Unchecked	Discrete,At_Offset_2
04d4 780b       |x   |		Jump	0x4e0
04d5 00db       |    |		Load_Top	At_Offset_3
04d6 e003       |    |		Load	0x0,0x3
04d7 1b34       | 4  |		Execute	Package,Field_Read,Field_Number 0x34
04d8 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
04d9 c802       |    |		Store	0x4,0x2
04da 00c9       |    |		Action	Pop_Auxiliary_Loop
04db 00db       |    |		Load_Top	At_Offset_3
04dc e003       |    |		Load	0x0,0x3
04dd 1b34       | 4  |		Execute	Package,Field_Read,Field_Number 0x34
04de 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
04df 6fe5       |o   |		Jump_Zero	0x4c5
04e0 00ce       |    |		Action	Pop_Auxiliary
04e1 00d8       |    |		Load_Top	At_Offset_0
04e2 7005       |p   |		Jump_Nonzero	0x4e8
04e3 e9fe       |    |		Load	0x4,-0x2
04e4 e9ff       |    |		Load	0x4,-0x1
04e5 e003       |    |		Load	0x0,0x3
04e6 1b34       | 4  |		Execute	Package,Field_Read,Field_Number 0x34
04e7 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
04e8 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
04e9 0000 0000  |    |		.BLANK	0000[0x7]
04f0 ; --------------------------------------------------------------------------------------
04f0 ; SUBPROGRAM
04f0 ; --------------------------------------------------------------------------------------
04f0 04f3       |    |		.CONST	0x04f3								; Address of begin
04f1 050d       |    |		.CONST	0x050d								; Address of exception handler
04f2 0001       |    |		.CONST	0x0001								; Number of locals
04f3			BODY_04f0:
04f3			INIT_04f0:
04f3 e404       |    |		Load	0x2,0x4
04f4 4801       |H   |		Short_Literal	0x1
04f5 e404       |    |		Load	0x2,0x4
04f6 4801       |H   |		Short_Literal	0x1
04f7 e604       |    |		Load	0x3,0x4
04f8 e006       |    |		Load	0x0,0x6
04f9 1828       | (  |		Execute	Package,Field_Execute,Field_Number 0x28
04fa e006       |    |		Load	0x0,0x6
04fb 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
04fc c603       |    |		Store	0x3,0x3
04fd e404       |    |		Load	0x2,0x4
04fe e603       |    |		Load	0x3,0x3
04ff e005       |    |		Load	0x0,0x5
0500 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0501 e404       |    |		Load	0x2,0x4
0502 e603       |    |		Load	0x3,0x3
0503 e005       |    |		Load	0x0,0x5
0504 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0505 e404       |    |		Load	0x2,0x4
0506 4800       |H   |		Short_Literal	0x0
0507 e603       |    |		Load	0x3,0x3
0508 e006       |    |		Load	0x0,0x6
0509 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
050a e602       |    |		Load	0x3,0x2
050b 8605       |    |		Call	0x3,0x5
050c 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
050d			TRAP_04f0:
050d 0007       |    |		Action	Break_Optional
050e 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
050f 0000       |    |		.XXX[0x1]
0510 ; --------------------------------------------------------------------------------------
0510 ; SUBPROGRAM
0510 ; --------------------------------------------------------------------------------------
0510 0513       |    |		.CONST	0x0513								; Address of begin
0511 052f       | /  |		.CONST	0x052f								; Address of exception handler
0512 0001       |    |		.CONST	0x0001								; Number of locals
0513			BODY_0510:
0513			INIT_0510:
0513 e603       |    |		Load	0x3,0x3
0514 e003       |    |		Load	0x0,0x3
0515 1b34       | 4  |		Execute	Package,Field_Read,Field_Number 0x34
0516 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
0517 c603       |    |		Store	0x3,0x3
0518 e603       |    |		Load	0x3,0x3
0519 e003       |    |		Load	0x0,0x3
051a 1b34       | 4  |		Execute	Package,Field_Read,Field_Number 0x34
051b 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
051c 6802       |h   |		Jump_Zero	0x51f
051d 00da       |    |		Load_Top	At_Offset_2
051e 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
051f e603       |    |		Load	0x3,0x3
0520 e003       |    |		Load	0x0,0x3
0521 1b34       | 4  |		Execute	Package,Field_Read,Field_Number 0x34
0522 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
0523 c602       |    |		Store	0x3,0x2
0524 00da       |    |		Load_Top	At_Offset_2
0525 0092 0544  |   D|		Action	Push_String_Extended,0x544					; ","
0527 01cc       |    |		Execute	Vector,Catenate
0528 e602       |    |		Load	0x3,0x2
0529 e003       |    |		Load	0x0,0x3
052a 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
052b 183e       | >  |		Execute	Package,Field_Execute,Field_Number 0x3e
052c 01cc       |    |		Execute	Vector,Catenate
052d 8604       |    |		Call	0x3,0x4
052e 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
052f			TRAP_0510:
052f 0007       |    |		Action	Break_Optional
0530 00ea       |    |		Load_Encached	Null_String_Cache
0531 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0532 ; --------------------------------------------------------------------------------------
0532 ; STRING TABLE
0532 ; --------------------------------------------------------------------------------------
0532 0028       | (  |		.STRTAB	0x0028->0x0546							; "Build_Remote_Library"
0533 003a       | :  |		.STRTAB	0x003a->0x0550							; "View"
0534 003c       | <  |		.STRTAB	0x003c->0x0552							; "Remote_Machine"
0535 0048       | H  |		.STRTAB	0x0048->0x0559							; "Remote_Directory"
0536 0056       | V  |		.STRTAB	0x0056->0x0561							; "Response"
0537 005c       | \  |		.STRTAB	0x005c->0x0565							; "Rebuild_Remote_Library"
0538 0070       | p  |		.STRTAB	0x0070->0x0570							; "Remake_Demoted_Units => "
0539 0086       |    |		.STRTAB	0x0086->0x057c							; ", Remote_Machine"
053a 0094       |    |		.STRTAB	0x0094->0x0584							; "Destroy_Remote_Library"
053b 00a8       |    |		.STRTAB	0x00a8->0x058f							; "Refresh_Remote_Imports"
053c 00bc       |    |		.STRTAB	0x00bc->0x059a							; "<WARN>"
053d 00c0       |    |		.STRTAB	0x00c0->0x059d							; "<DEFAULT>"
053e 00c7       |    |		.STRTAB	0x00c7->0x05a1							; "WARNING:  All referencers must have remote imports refreshed"
053f 0101       |    |		.STRTAB	0x0101->0x05bf							; "<ALL_WORLDS>"
0540 010b       |    |		.STRTAB	0x010b->0x05c5							; "["
0541 010a       |    |		.STRTAB	0x010a->0x05c6							; "]"
0542 0109       |    |		.STRTAB	0x0109->0x05c6							; "<PROFILE>"
0543 0110       |    |		.STRTAB	0x0110->0x05cb							; "<All_WORLDS>"
0544 011a       |    |		.STRTAB	0x011a->0x05d1							; ","
0545 0119       |    |		.STREND 0x0119->0x05d1
0546 4275 696c  |Buil|		.STRTAB_STRINGS
05d2 0000 0000  |    |		.BLANK	0000[0x6]
05d8 ; --------------------------------------------------------------------------------------
05d8 ; Debug Table
05d8 ; --------------------------------------------------------------------------------------
05d8 0004 000f  |    |		.DEBUG4	0x0004,0x000f,0x2feb,0x0000,0x0001,0x0000
05de 0000 0000  |    |		.BLANK	0000[0x22]