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

⟦011f5e42a⟧

    Length: 13312 (0x3400)
    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 1888       |    |		.CONST	0x1888								; 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 800e       |    |		.CONST	0x800e								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 012b       | +  |		.CONST	0x012b								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0040       | @  |		.CONST	0x0040								; Number of locals
000b			INIT_0008:
000b 029a 0133  |   3|		Declare_Subprogram	INIT_0130,For_Outer_Call,Visible,Unelaborated
000d 029a 01cb  |    |		Declare_Subprogram	INIT_01c8,For_Outer_Call,Visible,Unelaborated
000f 029a 0243  |   C|		Declare_Subprogram	INIT_0240,For_Outer_Call,Visible,Unelaborated
0011 029a 02bb  |    |		Declare_Subprogram	INIT_02b8,For_Outer_Call,Visible,Unelaborated
0013 029a 0343  |   C|		Declare_Subprogram	INIT_0340,For_Outer_Call,Visible,Unelaborated
0015 029a 03c3  |    |		Declare_Subprogram	INIT_03c0,For_Outer_Call,Visible,Unelaborated
0017 029a 0443  |   C|		Declare_Subprogram	INIT_0440,For_Outer_Call,Visible,Unelaborated
0019 029a 0453  |   S|		Declare_Subprogram	INIT_0450,For_Outer_Call,Visible,Unelaborated
001b 029a 0463  |   c|		Declare_Subprogram	INIT_0460,For_Outer_Call,Visible,Unelaborated
001d 029a 0473  |   s|		Declare_Subprogram	INIT_0470,For_Outer_Call,Visible,Unelaborated
001f 029a 0483  |    |		Declare_Subprogram	INIT_0480,For_Outer_Call,Visible,Unelaborated
0021 029a 0513  |    |		Declare_Subprogram	INIT_0510,For_Outer_Call,Visible,Unelaborated
0023 029a 0523  |   #|		Declare_Subprogram	INIT_0520,For_Outer_Call,Visible,Unelaborated
0025 029a 05db  |    |		Declare_Subprogram	INIT_05d8,For_Outer_Call,Visible,Unelaborated
0027 029a 069b  |    |		Declare_Subprogram	INIT_0698,For_Outer_Call,Visible,Unelaborated
0029 029a 0723  |   #|		Declare_Subprogram	INIT_0720,For_Outer_Call,Visible,Unelaborated
002b 029a 07ab  |    |		Declare_Subprogram	INIT_07a8,For_Outer_Call,Visible,Unelaborated
002d 029a 0823  |   #|		Declare_Subprogram	INIT_0820,For_Outer_Call,Visible,Unelaborated
002f 029a 08a3  |    |		Declare_Subprogram	INIT_08a0,For_Outer_Call,Visible,Unelaborated
0031 029a 093b  |   ;|		Declare_Subprogram	INIT_0938,For_Outer_Call,Visible,Unelaborated
0033 029a 0943  |   C|		Declare_Subprogram	INIT_0940,For_Outer_Call,Visible,Unelaborated
0035 029a 0953  |   S|		Declare_Subprogram	INIT_0950,For_Outer_Call,Visible,Unelaborated
0037 029a 0963  |   c|		Declare_Subprogram	INIT_0960,For_Outer_Call,Visible,Unelaborated
0039 029a 096b  |   k|		Declare_Subprogram	INIT_0968,For_Outer_Call,Visible,Unelaborated
003b 029a 09fb  |    |		Declare_Subprogram	INIT_09f8,For_Outer_Call,Visible,Unelaborated
003d 029a 0b6b  |   k|		Declare_Subprogram	INIT_0b68,For_Outer_Call,Visible,Unelaborated
003f 029a 0beb  |    |		Declare_Subprogram	INIT_0be8,For_Outer_Call,Visible,Unelaborated
0041 029a 0c6b  |   k|		Declare_Subprogram	INIT_0c68,For_Outer_Call,Visible,Unelaborated
0043 029a 0d1b  |    |		Declare_Subprogram	INIT_0d18,For_Outer_Call,Visible,Unelaborated
0045 029a 0ddb  |    |		Declare_Subprogram	INIT_0dd8,For_Outer_Call,Visible,Unelaborated
0047 029a 0e3b  |   ;|		Declare_Subprogram	INIT_0e38,For_Outer_Call,Visible,Unelaborated
0049 029a 0eab  |    |		Declare_Subprogram	INIT_0ea8,For_Outer_Call,Visible,Unelaborated
004b 029a 0f53  |   S|		Declare_Subprogram	INIT_0f50,For_Outer_Call,Visible,Unelaborated
004d 029a 0fc3  |    |		Declare_Subprogram	INIT_0fc0,For_Outer_Call,Visible,Unelaborated
004f 00bf       |    |		Action	Accept_Activation
0050 0092 1578  |   x|		Action	Push_String_Extended,0x1578					; "Rci."
0052 0092 1579  |   y|		Action	Push_String_Extended,0x1579					; "<error>"
0054 029d 103b  |   ;|		Declare_Subprogram	INIT_1038,For_Outer_Call
0056 4800       |H   |		Short_Literal	0x0
0057 e001       |    |		Load	0x0,0x1
0058 02a0       |    |		Declare_Subprogram	Null_Subprogram
0059 038e       |    |		Declare_Type	Package,Defined
005a 0387       |    |		Declare_Variable	Package
005b 4800       |H   |		Short_Literal	0x0
005c e002       |    |		Load	0x0,0x2
005d 02a0       |    |		Declare_Subprogram	Null_Subprogram
005e 038e       |    |		Declare_Type	Package,Defined
005f 0387       |    |		Declare_Variable	Package
0060 4800       |H   |		Short_Literal	0x0
0061 e003       |    |		Load	0x0,0x3
0062 02a0       |    |		Declare_Subprogram	Null_Subprogram
0063 038e       |    |		Declare_Type	Package,Defined
0064 0387       |    |		Declare_Variable	Package
0065 4800       |H   |		Short_Literal	0x0
0066 e004       |    |		Load	0x0,0x4
0067 02a0       |    |		Declare_Subprogram	Null_Subprogram
0068 038e       |    |		Declare_Type	Package,Defined
0069 0387       |    |		Declare_Variable	Package
006a 4800       |H   |		Short_Literal	0x0
006b e005       |    |		Load	0x0,0x5
006c 02a0       |    |		Declare_Subprogram	Null_Subprogram
006d 038e       |    |		Declare_Type	Package,Defined
006e 0387       |    |		Declare_Variable	Package
006f 1d17       |    |		Execute_Immediate	Reference_Lex_1,0x17
0070 00c7       |    |		Action	Elaborate_Subprogram
0071 1d0d       |    |		Execute_Immediate	Reference_Lex_1,0xd
0072 00c7       |    |		Action	Elaborate_Subprogram
0073 1d0e       |    |		Execute_Immediate	Reference_Lex_1,0xe
0074 00c7       |    |		Action	Elaborate_Subprogram
0075 1d0f       |    |		Execute_Immediate	Reference_Lex_1,0xf
0076 00c7       |    |		Action	Elaborate_Subprogram
0077 1d10       |    |		Execute_Immediate	Reference_Lex_1,0x10
0078 00c7       |    |		Action	Elaborate_Subprogram
0079 1d11       |    |		Execute_Immediate	Reference_Lex_1,0x11
007a 00c7       |    |		Action	Elaborate_Subprogram
007b 1d12       |    |		Execute_Immediate	Reference_Lex_1,0x12
007c 00c7       |    |		Action	Elaborate_Subprogram
007d 1d26       | &  |		Execute_Immediate	Reference_Lex_1,0x26
007e 00c7       |    |		Action	Elaborate_Subprogram
007f 1d27       | '  |		Execute_Immediate	Reference_Lex_1,0x27
0080 00c7       |    |		Action	Elaborate_Subprogram
0081 1d13       |    |		Execute_Immediate	Reference_Lex_1,0x13
0082 00c7       |    |		Action	Elaborate_Subprogram
0083 1d14       |    |		Execute_Immediate	Reference_Lex_1,0x14
0084 00c7       |    |		Action	Elaborate_Subprogram
0085 1d15       |    |		Execute_Immediate	Reference_Lex_1,0x15
0086 00c7       |    |		Action	Elaborate_Subprogram
0087 1d16       |    |		Execute_Immediate	Reference_Lex_1,0x16
0088 00c7       |    |		Action	Elaborate_Subprogram
0089 1d18       |    |		Execute_Immediate	Reference_Lex_1,0x18
008a 00c7       |    |		Action	Elaborate_Subprogram
008b 029d 1123  |   #|		Declare_Subprogram	INIT_1120,For_Outer_Call
008d 1d19       |    |		Execute_Immediate	Reference_Lex_1,0x19
008e 00c7       |    |		Action	Elaborate_Subprogram
008f 1d1a       |    |		Execute_Immediate	Reference_Lex_1,0x1a
0090 00c7       |    |		Action	Elaborate_Subprogram
0091 1d1b       |    |		Execute_Immediate	Reference_Lex_1,0x1b
0092 00c7       |    |		Action	Elaborate_Subprogram
0093 1d1c       |    |		Execute_Immediate	Reference_Lex_1,0x1c
0094 00c7       |    |		Action	Elaborate_Subprogram
0095 1d1d       |    |		Execute_Immediate	Reference_Lex_1,0x1d
0096 00c7       |    |		Action	Elaborate_Subprogram
0097 1d1e       |    |		Execute_Immediate	Reference_Lex_1,0x1e
0098 00c7       |    |		Action	Elaborate_Subprogram
0099 029d 1133  |   3|		Declare_Subprogram	INIT_1130,For_Outer_Call
009b 029d 1143  |   C|		Declare_Subprogram	INIT_1140,For_Outer_Call
009d 029d 1153  |   S|		Declare_Subprogram	INIT_1150,For_Outer_Call
009f 029d 1163  |   c|		Declare_Subprogram	INIT_1160,For_Outer_Call
00a1 029d 1173  |   s|		Declare_Subprogram	INIT_1170,For_Outer_Call
00a3 029d 118b  |    |		Declare_Subprogram	INIT_1188,For_Outer_Call
00a5 1d1f       |    |		Execute_Immediate	Reference_Lex_1,0x1f
00a6 00c7       |    |		Action	Elaborate_Subprogram
00a7 1d20       |    |		Execute_Immediate	Reference_Lex_1,0x20
00a8 00c7       |    |		Action	Elaborate_Subprogram
00a9 1d21       | !  |		Execute_Immediate	Reference_Lex_1,0x21
00aa 00c7       |    |		Action	Elaborate_Subprogram
00ab 1d22       | "  |		Execute_Immediate	Reference_Lex_1,0x22
00ac 00c7       |    |		Action	Elaborate_Subprogram
00ad 1d23       | #  |		Execute_Immediate	Reference_Lex_1,0x23
00ae 00c7       |    |		Action	Elaborate_Subprogram
00af 029d 119b  |    |		Declare_Subprogram	INIT_1198,For_Outer_Call
00b1 029d 11d3  |    |		Declare_Subprogram	INIT_11d0,For_Outer_Call
00b3 029d 120b  |    |		Declare_Subprogram	INIT_1208,For_Outer_Call
00b5 1d24       | $  |		Execute_Immediate	Reference_Lex_1,0x24
00b6 00c7       |    |		Action	Elaborate_Subprogram
00b7 1d25       | %  |		Execute_Immediate	Reference_Lex_1,0x25
00b8 00c7       |    |		Action	Elaborate_Subprogram
00b9 1d28       | (  |		Execute_Immediate	Reference_Lex_1,0x28
00ba 00c7       |    |		Action	Elaborate_Subprogram
00bb 1d29       | )  |		Execute_Immediate	Reference_Lex_1,0x29
00bc 00c7       |    |		Action	Elaborate_Subprogram
00bd 1d2a       | *  |		Execute_Immediate	Reference_Lex_1,0x2a
00be 00c7       |    |		Action	Elaborate_Subprogram
00bf 1d2b       | +  |		Execute_Immediate	Reference_Lex_1,0x2b
00c0 00c7       |    |		Action	Elaborate_Subprogram
00c1 1d2c       | ,  |		Execute_Immediate	Reference_Lex_1,0x2c
00c2 00c7       |    |		Action	Elaborate_Subprogram
00c3 1d2d       | -  |		Execute_Immediate	Reference_Lex_1,0x2d
00c4 00c7       |    |		Action	Elaborate_Subprogram
00c5 1d2e       | .  |		Execute_Immediate	Reference_Lex_1,0x2e
00c6 00c7       |    |		Action	Elaborate_Subprogram
00c7 e006       |    |		Load	0x0,0x6
00c8 e007       |    |		Load	0x0,0x7
00c9 e008       |    |		Load	0x0,0x8
00ca e009       |    |		Load	0x0,0x9
00cb e00a       |    |		Load	0x0,0xa
00cc e00b       |    |		Load	0x0,0xb
00cd e00c       |    |		Load	0x0,0xc
00ce e00d       |    |		Load	0x0,0xd
00cf e00e       |    |		Load	0x0,0xe
00d0 e00f       |    |		Load	0x0,0xf
00d1 e010       |    |		Load	0x0,0x10
00d2 e011       |    |		Load	0x0,0x11
00d3 1d40       | @  |		Execute_Immediate	Reference_Lex_1,0x40
00d4 e012       |    |		Load	0x0,0x12
00d5 e013       |    |		Load	0x0,0x13
00d6 e014       |    |		Load	0x0,0x14
00d7 e015       |    |		Load	0x0,0x15
00d8 e016       |    |		Load	0x0,0x16
00d9 e017       |    |		Load	0x0,0x17
00da e018       |    |		Load	0x0,0x18
00db e019       |    |		Load	0x0,0x19
00dc e01a       |    |		Load	0x0,0x1a
00dd e01b       |    |		Load	0x0,0x1b
00de 4817       |H   |		Short_Literal	0x17
00df e232       | 2  |		Load	0x1,0x32
00e0 020e       |    |		Execute	Module,Augment_Imports
00e1 e232       | 2  |		Load	0x1,0x32
00e2 020f       |    |		Execute	Module,Activate
00e3 e007       |    |		Load	0x0,0x7
00e4 e006       |    |		Load	0x0,0x6
00e5 e008       |    |		Load	0x0,0x8
00e6 e00c       |    |		Load	0x0,0xc
00e7 e00d       |    |		Load	0x0,0xd
00e8 e00e       |    |		Load	0x0,0xe
00e9 e00b       |    |		Load	0x0,0xb
00ea e01c       |    |		Load	0x0,0x1c
00eb e010       |    |		Load	0x0,0x10
00ec e01a       |    |		Load	0x0,0x1a
00ed e01d       |    |		Load	0x0,0x1d
00ee e016       |    |		Load	0x0,0x16
00ef 1d40       | @  |		Execute_Immediate	Reference_Lex_1,0x40
00f0 1d3f       | ?  |		Execute_Immediate	Reference_Lex_1,0x3f
00f1 1d3e       | >  |		Execute_Immediate	Reference_Lex_1,0x3e
00f2 a01e       |    |		Store_Unchecked	0x0,0x1e
00f3 e01f       |    |		Load	0x0,0x1f
00f4 e020       |    |		Load	0x0,0x20
00f5 e019       |    |		Load	0x0,0x19
00f6 e021       | !  |		Load	0x0,0x21
00f7 e015       |    |		Load	0x0,0x15
00f8 e22f       | /  |		Load	0x1,0x2f
00f9 4816       |H   |		Short_Literal	0x16
00fa e233       | 3  |		Load	0x1,0x33
00fb 020e       |    |		Execute	Module,Augment_Imports
00fc e233       | 3  |		Load	0x1,0x33
00fd 020f       |    |		Execute	Module,Activate
00fe e008       |    |		Load	0x0,0x8
00ff e00e       |    |		Load	0x0,0xe
0100 e010       |    |		Load	0x0,0x10
0101 e006       |    |		Load	0x0,0x6
0102 e014       |    |		Load	0x0,0x14
0103 e022       | "  |		Load	0x0,0x22
0104 e00d       |    |		Load	0x0,0xd
0105 e019       |    |		Load	0x0,0x19
0106 e007       |    |		Load	0x0,0x7
0107 e015       |    |		Load	0x0,0x15
0108 480a       |H   |		Short_Literal	0xa
0109 e234       | 4  |		Load	0x1,0x34
010a 020e       |    |		Execute	Module,Augment_Imports
010b e234       | 4  |		Load	0x1,0x34
010c 020f       |    |		Execute	Module,Activate
010d e008       |    |		Load	0x0,0x8
010e e006       |    |		Load	0x0,0x6
010f e00e       |    |		Load	0x0,0xe
0110 e007       |    |		Load	0x0,0x7
0111 e010       |    |		Load	0x0,0x10
0112 e00d       |    |		Load	0x0,0xd
0113 e014       |    |		Load	0x0,0x14
0114 4807       |H   |		Short_Literal	0x7
0115 e235       | 5  |		Load	0x1,0x35
0116 020e       |    |		Execute	Module,Augment_Imports
0117 e235       | 5  |		Load	0x1,0x35
0118 020f       |    |		Execute	Module,Activate
0119 e023       | #  |		Load	0x0,0x23
011a e006       |    |		Load	0x0,0x6
011b e010       |    |		Load	0x0,0x10
011c e024       | $  |		Load	0x0,0x24
011d e025       | %  |		Load	0x0,0x25
011e e026       | &  |		Load	0x0,0x26
011f e008       |    |		Load	0x0,0x8
0120 e00e       |    |		Load	0x0,0xe
0121 e027       | '  |		Load	0x0,0x27
0122 e028       | (  |		Load	0x0,0x28
0123 e007       |    |		Load	0x0,0x7
0124 e015       |    |		Load	0x0,0x15
0125 e016       |    |		Load	0x0,0x16
0126 480d       |H   |		Short_Literal	0xd
0127 e236       | 6  |		Load	0x1,0x36
0128 020e       |    |		Execute	Module,Augment_Imports
0129 e236       | 6  |		Load	0x1,0x36
012a 020f       |    |		Execute	Module,Activate
012b			BODY_0008:
012b 00bc       |    |		Action	Signal_Activated
012c 00bb       |    |		Action	Signal_Completion
012d 0000 0000  |    |		.XXX[0x3]
012f 0000       |    |
0130 ; --------------------------------------------------------------------------------------
0130 ; SUBPROGRAM
0130 ; --------------------------------------------------------------------------------------
0130 0145       | E  |		.CONST	0x0145								; Address of begin
0131 018e       |    |		.CONST	0x018e								; Address of exception handler
0132 0005       |    |		.CONST	0x0005								; Number of locals
0133			INIT_0130:
0133 0092 157a  |   z|		Action	Push_String_Extended,0x157a					; "Create_Secondary"
0135 e006       |    |		Load	0x0,0x6
0136 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0137 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0138 e007       |    |		Load	0x0,0x7
0139 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
013a 02c7       |    |		Declare_Variable	Any
013b e5fa       |    |		Load	0x2,-0x6
013c e007       |    |		Load	0x0,0x7
013d 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
013e a404       |    |		Store_Unchecked	0x2,0x4
013f e007       |    |		Load	0x0,0x7
0140 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0141 02c7       |    |		Declare_Variable	Any
0142 e007       |    |		Load	0x0,0x7
0143 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0144 a405       |    |		Store_Unchecked	0x2,0x5
0145			BODY_0130:
0145 00d9       |    |		Load_Top	At_Offset_1
0146 e007       |    |		Load	0x0,0x7
0147 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0148 00d9       |    |		Load_Top	At_Offset_1
0149 e22f       | /  |		Load	0x1,0x2f
014a 0092 157b  |   {|		Action	Push_String_Extended,0x157b					; "Primary_Unit"
014c e5ff       |    |		Load	0x2,-0x1
014d e00c       |    |		Load	0x0,0xc
014e 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
014f 01cc       |    |		Execute	Vector,Catenate
0150 0092 157c  |   ||		Action	Push_String_Extended,0x157c					; "Command"
0152 01cc       |    |		Execute	Vector,Catenate
0153 e5fe       |    |		Load	0x2,-0x2
0154 e00c       |    |		Load	0x0,0xc
0155 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0156 01cc       |    |		Execute	Vector,Catenate
0157 0092 157d  |   }|		Action	Push_String_Extended,0x157d					; "Secondary_Text"
0159 01cc       |    |		Execute	Vector,Catenate
015a e5fd       |    |		Load	0x2,-0x3
015b e00c       |    |		Load	0x0,0xc
015c 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
015d 01cc       |    |		Execute	Vector,Catenate
015e 0092 157e  |   ~|		Action	Push_String_Extended,0x157e					; "Remote_Name"
0160 01cc       |    |		Execute	Vector,Catenate
0161 e5fc       |    |		Load	0x2,-0x4
0162 e00c       |    |		Load	0x0,0xc
0163 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0164 01cc       |    |		Execute	Vector,Catenate
0165 0092 157f  |    |		Action	Push_String_Extended,0x157f					; "Process_Primary => "
0167 01cc       |    |		Execute	Vector,Catenate
0168 e5fb       |    |		Load	0x2,-0x5
0169 00e1       |    |		Load_Encached	Boolean_Cache
016a 011c       |    |		Execute	Any,Convert_Unchecked
016b 1c01       |    |		Execute_Immediate	Run_Utility,0x1
016c 01cc       |    |		Execute	Vector,Catenate
016d 0092 1580  |    |		Action	Push_String_Extended,0x1580					; ", Response"
016f 01cc       |    |		Execute	Vector,Catenate
0170 e5fa       |    |		Load	0x2,-0x6
0171 e00c       |    |		Load	0x0,0xc
0172 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0173 01cc       |    |		Execute	Vector,Catenate
0174 e402       |    |		Load	0x2,0x2
0175 e00c       |    |		Load	0x0,0xc
0176 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0177 00d9       |    |		Load_Top	At_Offset_1
0178 e00d       |    |		Load	0x0,0xd
0179 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
017a 00da       |    |		Load_Top	At_Offset_2
017b 00da       |    |		Load_Top	At_Offset_2
017c e5fb       |    |		Load	0x2,-0x5
017d e5fc       |    |		Load	0x2,-0x4
017e e5fd       |    |		Load	0x2,-0x3
017f e5fe       |    |		Load	0x2,-0x2
0180 e5ff       |    |		Load	0x2,-0x1
0181 e234       | 4  |		Load	0x1,0x34
0182 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
0183 005b       | [  |		Store_Top	Discrete,At_Offset_3
0184 00d9       |    |		Load_Top	At_Offset_1
0185 e22f       | /  |		Load	0x1,0x2f
0186 e402       |    |		Load	0x2,0x2
0187 e403       |    |		Load	0x2,0x3
0188 e00c       |    |		Load	0x0,0xc
0189 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
018a 00d8       |    |		Load_Top	At_Offset_0
018b e007       |    |		Load	0x0,0x7
018c 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
018d 4507       |E   |		Exit_Suprogram	New_Top_Offset 0x7
018e			TRAP_0130:
018e e006       |    |		Load	0x0,0x6
018f 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
0190 010f       |    |		Execute	Exception,Equal
0191 680a       |h   |		Jump_Zero	0x19c
0192 00da       |    |		Load_Top	At_Offset_2
0193 e22f       | /  |		Load	0x1,0x2f
0194 e402       |    |		Load	0x2,0x2
0195 e403       |    |		Load	0x2,0x3
0196 e00c       |    |		Load	0x0,0xc
0197 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0198 00d9       |    |		Load_Top	At_Offset_1
0199 e007       |    |		Load	0x0,0x7
019a 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
019b 4507       |E   |		Exit_Suprogram	New_Top_Offset 0x7
019c 4884       |H   |		Short_Literal	0x84
019d 010f       |    |		Execute	Exception,Equal
019e 680a       |h   |		Jump_Zero	0x1a9
019f 00da       |    |		Load_Top	At_Offset_2
01a0 e22f       | /  |		Load	0x1,0x2f
01a1 e402       |    |		Load	0x2,0x2
01a2 e403       |    |		Load	0x2,0x3
01a3 e00c       |    |		Load	0x0,0xc
01a4 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
01a5 00d9       |    |		Load_Top	At_Offset_1
01a6 e007       |    |		Load	0x0,0x7
01a7 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
01a8 4507       |E   |		Exit_Suprogram	New_Top_Offset 0x7
01a9 e006       |    |		Load	0x0,0x6
01aa 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
01ab 010f       |    |		Execute	Exception,Equal
01ac 680b       |h   |		Jump_Zero	0x1b8
01ad 00da       |    |		Load_Top	At_Offset_2
01ae e22f       | /  |		Load	0x1,0x2f
01af e402       |    |		Load	0x2,0x2
01b0 e403       |    |		Load	0x2,0x3
01b1 e00c       |    |		Load	0x0,0xc
01b2 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
01b3 00d9       |    |		Load_Top	At_Offset_1
01b4 e007       |    |		Load	0x0,0x7
01b5 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
01b6 00d8       |    |		Load_Top	At_Offset_0
01b7 0101       |    |		Execute	Exception,Reraise
01b8 00da       |    |		Load_Top	At_Offset_2
01b9 e22f       | /  |		Load	0x1,0x2f
01ba e402       |    |		Load	0x2,0x2
01bb e403       |    |		Load	0x2,0x3
01bc e00c       |    |		Load	0x0,0xc
01bd 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
01be 00d9       |    |		Load_Top	At_Offset_1
01bf e007       |    |		Load	0x0,0x7
01c0 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
01c1 4507       |E   |		Exit_Suprogram	New_Top_Offset 0x7
01c2 0000 0000  |    |		.BLANK	0000[0x6]
01c8 ; --------------------------------------------------------------------------------------
01c8 ; SUBPROGRAM
01c8 ; --------------------------------------------------------------------------------------
01c8 01dd       |    |		.CONST	0x01dd								; Address of begin
01c9 0205       |    |		.CONST	0x0205								; Address of exception handler
01ca 0005       |    |		.CONST	0x0005								; Number of locals
01cb			INIT_01c8:
01cb 0092 1581  |    |		Action	Push_String_Extended,0x1581					; "Remove_Secondary"
01cd e006       |    |		Load	0x0,0x6
01ce 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
01cf 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
01d0 e007       |    |		Load	0x0,0x7
01d1 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
01d2 02c7       |    |		Declare_Variable	Any
01d3 e5fe       |    |		Load	0x2,-0x2
01d4 e007       |    |		Load	0x0,0x7
01d5 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
01d6 a404       |    |		Store_Unchecked	0x2,0x4
01d7 e007       |    |		Load	0x0,0x7
01d8 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
01d9 02c7       |    |		Declare_Variable	Any
01da e007       |    |		Load	0x0,0x7
01db 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
01dc a405       |    |		Store_Unchecked	0x2,0x5
01dd			BODY_01c8:
01dd 00d9       |    |		Load_Top	At_Offset_1
01de e007       |    |		Load	0x0,0x7
01df 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
01e0 00d9       |    |		Load_Top	At_Offset_1
01e1 e22f       | /  |		Load	0x1,0x2f
01e2 0092 1582  |    |		Action	Push_String_Extended,0x1582					; "Secondary_Referencer"
01e4 e5ff       |    |		Load	0x2,-0x1
01e5 e00c       |    |		Load	0x0,0xc
01e6 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
01e7 01cc       |    |		Execute	Vector,Catenate
01e8 0092 1583  |    |		Action	Push_String_Extended,0x1583					; "Response"
01ea 01cc       |    |		Execute	Vector,Catenate
01eb e5fe       |    |		Load	0x2,-0x2
01ec e00c       |    |		Load	0x0,0xc
01ed 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
01ee 01cc       |    |		Execute	Vector,Catenate
01ef e402       |    |		Load	0x2,0x2
01f0 e00c       |    |		Load	0x0,0xc
01f1 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
01f2 00d9       |    |		Load_Top	At_Offset_1
01f3 e00d       |    |		Load	0x0,0xd
01f4 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
01f5 00da       |    |		Load_Top	At_Offset_2
01f6 00da       |    |		Load_Top	At_Offset_2
01f7 e5ff       |    |		Load	0x2,-0x1
01f8 e234       | 4  |		Load	0x1,0x34
01f9 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
01fa 005b       | [  |		Store_Top	Discrete,At_Offset_3
01fb 00d9       |    |		Load_Top	At_Offset_1
01fc e22f       | /  |		Load	0x1,0x2f
01fd e402       |    |		Load	0x2,0x2
01fe e403       |    |		Load	0x2,0x3
01ff e00c       |    |		Load	0x0,0xc
0200 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0201 00d8       |    |		Load_Top	At_Offset_0
0202 e007       |    |		Load	0x0,0x7
0203 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0204 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0205			TRAP_01c8:
0205 e006       |    |		Load	0x0,0x6
0206 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
0207 010f       |    |		Execute	Exception,Equal
0208 680a       |h   |		Jump_Zero	0x213
0209 00da       |    |		Load_Top	At_Offset_2
020a e22f       | /  |		Load	0x1,0x2f
020b e402       |    |		Load	0x2,0x2
020c e403       |    |		Load	0x2,0x3
020d e00c       |    |		Load	0x0,0xc
020e 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
020f 00d9       |    |		Load_Top	At_Offset_1
0210 e007       |    |		Load	0x0,0x7
0211 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0212 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0213 4884       |H   |		Short_Literal	0x84
0214 010f       |    |		Execute	Exception,Equal
0215 680a       |h   |		Jump_Zero	0x220
0216 00da       |    |		Load_Top	At_Offset_2
0217 e22f       | /  |		Load	0x1,0x2f
0218 e402       |    |		Load	0x2,0x2
0219 e403       |    |		Load	0x2,0x3
021a e00c       |    |		Load	0x0,0xc
021b 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
021c 00d9       |    |		Load_Top	At_Offset_1
021d e007       |    |		Load	0x0,0x7
021e 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
021f 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0220 e006       |    |		Load	0x0,0x6
0221 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
0222 010f       |    |		Execute	Exception,Equal
0223 680b       |h   |		Jump_Zero	0x22f
0224 00da       |    |		Load_Top	At_Offset_2
0225 e22f       | /  |		Load	0x1,0x2f
0226 e402       |    |		Load	0x2,0x2
0227 e403       |    |		Load	0x2,0x3
0228 e00c       |    |		Load	0x0,0xc
0229 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
022a 00d9       |    |		Load_Top	At_Offset_1
022b e007       |    |		Load	0x0,0x7
022c 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
022d 00d8       |    |		Load_Top	At_Offset_0
022e 0101       |    |		Execute	Exception,Reraise
022f 00da       |    |		Load_Top	At_Offset_2
0230 e22f       | /  |		Load	0x1,0x2f
0231 e402       |    |		Load	0x2,0x2
0232 e403       |    |		Load	0x2,0x3
0233 e00c       |    |		Load	0x0,0xc
0234 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0235 00d9       |    |		Load_Top	At_Offset_1
0236 e007       |    |		Load	0x0,0x7
0237 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0238 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0239 0000 0000  |    |		.BLANK	0000[0x7]
0240 ; --------------------------------------------------------------------------------------
0240 ; SUBPROGRAM
0240 ; --------------------------------------------------------------------------------------
0240 0255       | U  |		.CONST	0x0255								; Address of begin
0241 027d       | }  |		.CONST	0x027d								; Address of exception handler
0242 0005       |    |		.CONST	0x0005								; Number of locals
0243			INIT_0240:
0243 0092 1584  |    |		Action	Push_String_Extended,0x1584					; "Show_Secondary"
0245 e006       |    |		Load	0x0,0x6
0246 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0247 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0248 e007       |    |		Load	0x0,0x7
0249 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
024a 02c7       |    |		Declare_Variable	Any
024b e5fe       |    |		Load	0x2,-0x2
024c e007       |    |		Load	0x0,0x7
024d 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
024e a404       |    |		Store_Unchecked	0x2,0x4
024f e007       |    |		Load	0x0,0x7
0250 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0251 02c7       |    |		Declare_Variable	Any
0252 e007       |    |		Load	0x0,0x7
0253 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0254 a405       |    |		Store_Unchecked	0x2,0x5
0255			BODY_0240:
0255 00d9       |    |		Load_Top	At_Offset_1
0256 e007       |    |		Load	0x0,0x7
0257 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0258 00d9       |    |		Load_Top	At_Offset_1
0259 e22f       | /  |		Load	0x1,0x2f
025a 0092 157b  |   {|		Action	Push_String_Extended,0x157b					; "Primary_Unit"
025c e5ff       |    |		Load	0x2,-0x1
025d e00c       |    |		Load	0x0,0xc
025e 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
025f 01cc       |    |		Execute	Vector,Catenate
0260 0092 1583  |    |		Action	Push_String_Extended,0x1583					; "Response"
0262 01cc       |    |		Execute	Vector,Catenate
0263 e5fe       |    |		Load	0x2,-0x2
0264 e00c       |    |		Load	0x0,0xc
0265 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0266 01cc       |    |		Execute	Vector,Catenate
0267 e402       |    |		Load	0x2,0x2
0268 e00c       |    |		Load	0x0,0xc
0269 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
026a 00d9       |    |		Load_Top	At_Offset_1
026b e00d       |    |		Load	0x0,0xd
026c 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
026d 00da       |    |		Load_Top	At_Offset_2
026e 00da       |    |		Load_Top	At_Offset_2
026f e5ff       |    |		Load	0x2,-0x1
0270 e234       | 4  |		Load	0x1,0x34
0271 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0272 005b       | [  |		Store_Top	Discrete,At_Offset_3
0273 00d9       |    |		Load_Top	At_Offset_1
0274 e22f       | /  |		Load	0x1,0x2f
0275 e402       |    |		Load	0x2,0x2
0276 e403       |    |		Load	0x2,0x3
0277 e00c       |    |		Load	0x0,0xc
0278 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0279 00d8       |    |		Load_Top	At_Offset_0
027a e007       |    |		Load	0x0,0x7
027b 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
027c 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
027d			TRAP_0240:
027d e006       |    |		Load	0x0,0x6
027e 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
027f 010f       |    |		Execute	Exception,Equal
0280 680a       |h   |		Jump_Zero	0x28b
0281 00da       |    |		Load_Top	At_Offset_2
0282 e22f       | /  |		Load	0x1,0x2f
0283 e402       |    |		Load	0x2,0x2
0284 e403       |    |		Load	0x2,0x3
0285 e00c       |    |		Load	0x0,0xc
0286 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0287 00d9       |    |		Load_Top	At_Offset_1
0288 e007       |    |		Load	0x0,0x7
0289 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
028a 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
028b 4884       |H   |		Short_Literal	0x84
028c 010f       |    |		Execute	Exception,Equal
028d 680a       |h   |		Jump_Zero	0x298
028e 00da       |    |		Load_Top	At_Offset_2
028f e22f       | /  |		Load	0x1,0x2f
0290 e402       |    |		Load	0x2,0x2
0291 e403       |    |		Load	0x2,0x3
0292 e00c       |    |		Load	0x0,0xc
0293 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0294 00d9       |    |		Load_Top	At_Offset_1
0295 e007       |    |		Load	0x0,0x7
0296 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0297 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0298 e006       |    |		Load	0x0,0x6
0299 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
029a 010f       |    |		Execute	Exception,Equal
029b 680b       |h   |		Jump_Zero	0x2a7
029c 00da       |    |		Load_Top	At_Offset_2
029d e22f       | /  |		Load	0x1,0x2f
029e e402       |    |		Load	0x2,0x2
029f e403       |    |		Load	0x2,0x3
02a0 e00c       |    |		Load	0x0,0xc
02a1 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
02a2 00d9       |    |		Load_Top	At_Offset_1
02a3 e007       |    |		Load	0x0,0x7
02a4 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
02a5 00d8       |    |		Load_Top	At_Offset_0
02a6 0101       |    |		Execute	Exception,Reraise
02a7 00da       |    |		Load_Top	At_Offset_2
02a8 e22f       | /  |		Load	0x1,0x2f
02a9 e402       |    |		Load	0x2,0x2
02aa e403       |    |		Load	0x2,0x3
02ab e00c       |    |		Load	0x0,0xc
02ac 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
02ad 00d9       |    |		Load_Top	At_Offset_1
02ae e007       |    |		Load	0x0,0x7
02af 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
02b0 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
02b1 0000 0000  |    |		.BLANK	0000[0x7]
02b8 ; --------------------------------------------------------------------------------------
02b8 ; SUBPROGRAM
02b8 ; --------------------------------------------------------------------------------------
02b8 02cd       |    |		.CONST	0x02cd								; Address of begin
02b9 0307       |    |		.CONST	0x0307								; Address of exception handler
02ba 0005       |    |		.CONST	0x0005								; Number of locals
02bb			INIT_02b8:
02bb 0092 1585  |    |		Action	Push_String_Extended,0x1585					; "Edit_Secondary"
02bd e006       |    |		Load	0x0,0x6
02be 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
02bf 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
02c0 e007       |    |		Load	0x0,0x7
02c1 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
02c2 02c7       |    |		Declare_Variable	Any
02c3 e5fc       |    |		Load	0x2,-0x4
02c4 e007       |    |		Load	0x0,0x7
02c5 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
02c6 a404       |    |		Store_Unchecked	0x2,0x4
02c7 e007       |    |		Load	0x0,0x7
02c8 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
02c9 02c7       |    |		Declare_Variable	Any
02ca e007       |    |		Load	0x0,0x7
02cb 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
02cc a405       |    |		Store_Unchecked	0x2,0x5
02cd			BODY_02b8:
02cd 00d9       |    |		Load_Top	At_Offset_1
02ce e007       |    |		Load	0x0,0x7
02cf 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
02d0 00d9       |    |		Load_Top	At_Offset_1
02d1 e22f       | /  |		Load	0x1,0x2f
02d2 0092 1582  |    |		Action	Push_String_Extended,0x1582					; "Secondary_Referencer"
02d4 e5ff       |    |		Load	0x2,-0x1
02d5 e00c       |    |		Load	0x0,0xc
02d6 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
02d7 01cc       |    |		Execute	Vector,Catenate
02d8 0092 1586  |    |		Action	Push_String_Extended,0x1586					; "In_Place => "
02da 01cc       |    |		Execute	Vector,Catenate
02db e5fe       |    |		Load	0x2,-0x2
02dc 00e1       |    |		Load_Encached	Boolean_Cache
02dd 011c       |    |		Execute	Any,Convert_Unchecked
02de 1c01       |    |		Execute_Immediate	Run_Utility,0x1
02df 01cc       |    |		Execute	Vector,Catenate
02e0 0092 1587  |    |		Action	Push_String_Extended,0x1587					; ", Visible => "
02e2 01cc       |    |		Execute	Vector,Catenate
02e3 e5fd       |    |		Load	0x2,-0x3
02e4 00e1       |    |		Load_Encached	Boolean_Cache
02e5 011c       |    |		Execute	Any,Convert_Unchecked
02e6 1c01       |    |		Execute_Immediate	Run_Utility,0x1
02e7 01cc       |    |		Execute	Vector,Catenate
02e8 0092 1580  |    |		Action	Push_String_Extended,0x1580					; ", Response"
02ea 01cc       |    |		Execute	Vector,Catenate
02eb e5fc       |    |		Load	0x2,-0x4
02ec e00c       |    |		Load	0x0,0xc
02ed 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
02ee 01cc       |    |		Execute	Vector,Catenate
02ef e402       |    |		Load	0x2,0x2
02f0 e00c       |    |		Load	0x0,0xc
02f1 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
02f2 00d9       |    |		Load_Top	At_Offset_1
02f3 e00d       |    |		Load	0x0,0xd
02f4 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
02f5 00da       |    |		Load_Top	At_Offset_2
02f6 00da       |    |		Load_Top	At_Offset_2
02f7 e5fd       |    |		Load	0x2,-0x3
02f8 e5fe       |    |		Load	0x2,-0x2
02f9 e5ff       |    |		Load	0x2,-0x1
02fa e234       | 4  |		Load	0x1,0x34
02fb 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
02fc 005b       | [  |		Store_Top	Discrete,At_Offset_3
02fd 00d9       |    |		Load_Top	At_Offset_1
02fe e22f       | /  |		Load	0x1,0x2f
02ff e402       |    |		Load	0x2,0x2
0300 e403       |    |		Load	0x2,0x3
0301 e00c       |    |		Load	0x0,0xc
0302 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0303 00d8       |    |		Load_Top	At_Offset_0
0304 e007       |    |		Load	0x0,0x7
0305 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0306 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
0307			TRAP_02b8:
0307 e006       |    |		Load	0x0,0x6
0308 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
0309 010f       |    |		Execute	Exception,Equal
030a 680a       |h   |		Jump_Zero	0x315
030b 00da       |    |		Load_Top	At_Offset_2
030c e22f       | /  |		Load	0x1,0x2f
030d e402       |    |		Load	0x2,0x2
030e e403       |    |		Load	0x2,0x3
030f e00c       |    |		Load	0x0,0xc
0310 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0311 00d9       |    |		Load_Top	At_Offset_1
0312 e007       |    |		Load	0x0,0x7
0313 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0314 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
0315 4884       |H   |		Short_Literal	0x84
0316 010f       |    |		Execute	Exception,Equal
0317 680a       |h   |		Jump_Zero	0x322
0318 00da       |    |		Load_Top	At_Offset_2
0319 e22f       | /  |		Load	0x1,0x2f
031a e402       |    |		Load	0x2,0x2
031b e403       |    |		Load	0x2,0x3
031c e00c       |    |		Load	0x0,0xc
031d 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
031e 00d9       |    |		Load_Top	At_Offset_1
031f e007       |    |		Load	0x0,0x7
0320 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0321 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
0322 e006       |    |		Load	0x0,0x6
0323 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
0324 010f       |    |		Execute	Exception,Equal
0325 680b       |h   |		Jump_Zero	0x331
0326 00da       |    |		Load_Top	At_Offset_2
0327 e22f       | /  |		Load	0x1,0x2f
0328 e402       |    |		Load	0x2,0x2
0329 e403       |    |		Load	0x2,0x3
032a e00c       |    |		Load	0x0,0xc
032b 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
032c 00d9       |    |		Load_Top	At_Offset_1
032d e007       |    |		Load	0x0,0x7
032e 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
032f 00d8       |    |		Load_Top	At_Offset_0
0330 0101       |    |		Execute	Exception,Reraise
0331 00da       |    |		Load_Top	At_Offset_2
0332 e22f       | /  |		Load	0x1,0x2f
0333 e402       |    |		Load	0x2,0x2
0334 e403       |    |		Load	0x2,0x3
0335 e00c       |    |		Load	0x0,0xc
0336 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0337 00d9       |    |		Load_Top	At_Offset_1
0338 e007       |    |		Load	0x0,0x7
0339 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
033a 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
033b 0000 0000  |    |		.BLANK	0000[0x5]
0340 ; --------------------------------------------------------------------------------------
0340 ; SUBPROGRAM
0340 ; --------------------------------------------------------------------------------------
0340 0355       | U  |		.CONST	0x0355								; Address of begin
0341 0386       |    |		.CONST	0x0386								; Address of exception handler
0342 0005       |    |		.CONST	0x0005								; Number of locals
0343			INIT_0340:
0343 0092 1588  |    |		Action	Push_String_Extended,0x1588					; "Set_Process_Primary"
0345 e006       |    |		Load	0x0,0x6
0346 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0347 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0348 e007       |    |		Load	0x0,0x7
0349 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
034a 02c7       |    |		Declare_Variable	Any
034b e5fd       |    |		Load	0x2,-0x3
034c e007       |    |		Load	0x0,0x7
034d 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
034e a404       |    |		Store_Unchecked	0x2,0x4
034f e007       |    |		Load	0x0,0x7
0350 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0351 02c7       |    |		Declare_Variable	Any
0352 e007       |    |		Load	0x0,0x7
0353 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0354 a405       |    |		Store_Unchecked	0x2,0x5
0355			BODY_0340:
0355 00d9       |    |		Load_Top	At_Offset_1
0356 e007       |    |		Load	0x0,0x7
0357 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0358 00d9       |    |		Load_Top	At_Offset_1
0359 e22f       | /  |		Load	0x1,0x2f
035a 0092 157b  |   {|		Action	Push_String_Extended,0x157b					; "Primary_Unit"
035c e5ff       |    |		Load	0x2,-0x1
035d e00c       |    |		Load	0x0,0xc
035e 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
035f 01cc       |    |		Execute	Vector,Catenate
0360 0092 1589  |    |		Action	Push_String_Extended,0x1589					; "Value => "
0362 01cc       |    |		Execute	Vector,Catenate
0363 e5fe       |    |		Load	0x2,-0x2
0364 00e1       |    |		Load_Encached	Boolean_Cache
0365 011c       |    |		Execute	Any,Convert_Unchecked
0366 1c01       |    |		Execute_Immediate	Run_Utility,0x1
0367 01cc       |    |		Execute	Vector,Catenate
0368 0092 1580  |    |		Action	Push_String_Extended,0x1580					; ", Response"
036a 01cc       |    |		Execute	Vector,Catenate
036b e5fd       |    |		Load	0x2,-0x3
036c e00c       |    |		Load	0x0,0xc
036d 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
036e 01cc       |    |		Execute	Vector,Catenate
036f e402       |    |		Load	0x2,0x2
0370 e00c       |    |		Load	0x0,0xc
0371 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0372 00d9       |    |		Load_Top	At_Offset_1
0373 e00d       |    |		Load	0x0,0xd
0374 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0375 00da       |    |		Load_Top	At_Offset_2
0376 00da       |    |		Load_Top	At_Offset_2
0377 e5fe       |    |		Load	0x2,-0x2
0378 e5ff       |    |		Load	0x2,-0x1
0379 e234       | 4  |		Load	0x1,0x34
037a 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
037b 005b       | [  |		Store_Top	Discrete,At_Offset_3
037c 00d9       |    |		Load_Top	At_Offset_1
037d e22f       | /  |		Load	0x1,0x2f
037e e402       |    |		Load	0x2,0x2
037f e403       |    |		Load	0x2,0x3
0380 e00c       |    |		Load	0x0,0xc
0381 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0382 00d8       |    |		Load_Top	At_Offset_0
0383 e007       |    |		Load	0x0,0x7
0384 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0385 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0386			TRAP_0340:
0386 e006       |    |		Load	0x0,0x6
0387 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
0388 010f       |    |		Execute	Exception,Equal
0389 680a       |h   |		Jump_Zero	0x394
038a 00da       |    |		Load_Top	At_Offset_2
038b e22f       | /  |		Load	0x1,0x2f
038c e402       |    |		Load	0x2,0x2
038d e403       |    |		Load	0x2,0x3
038e e00c       |    |		Load	0x0,0xc
038f 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0390 00d9       |    |		Load_Top	At_Offset_1
0391 e007       |    |		Load	0x0,0x7
0392 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0393 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0394 4884       |H   |		Short_Literal	0x84
0395 010f       |    |		Execute	Exception,Equal
0396 680a       |h   |		Jump_Zero	0x3a1
0397 00da       |    |		Load_Top	At_Offset_2
0398 e22f       | /  |		Load	0x1,0x2f
0399 e402       |    |		Load	0x2,0x2
039a e403       |    |		Load	0x2,0x3
039b e00c       |    |		Load	0x0,0xc
039c 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
039d 00d9       |    |		Load_Top	At_Offset_1
039e e007       |    |		Load	0x0,0x7
039f 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
03a0 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
03a1 e006       |    |		Load	0x0,0x6
03a2 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
03a3 010f       |    |		Execute	Exception,Equal
03a4 680b       |h   |		Jump_Zero	0x3b0
03a5 00da       |    |		Load_Top	At_Offset_2
03a6 e22f       | /  |		Load	0x1,0x2f
03a7 e402       |    |		Load	0x2,0x2
03a8 e403       |    |		Load	0x2,0x3
03a9 e00c       |    |		Load	0x0,0xc
03aa 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
03ab 00d9       |    |		Load_Top	At_Offset_1
03ac e007       |    |		Load	0x0,0x7
03ad 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
03ae 00d8       |    |		Load_Top	At_Offset_0
03af 0101       |    |		Execute	Exception,Reraise
03b0 00da       |    |		Load_Top	At_Offset_2
03b1 e22f       | /  |		Load	0x1,0x2f
03b2 e402       |    |		Load	0x2,0x2
03b3 e403       |    |		Load	0x2,0x3
03b4 e00c       |    |		Load	0x0,0xc
03b5 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
03b6 00d9       |    |		Load_Top	At_Offset_1
03b7 e007       |    |		Load	0x0,0x7
03b8 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
03b9 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
03ba 0000 0000  |    |		.BLANK	0000[0x6]
03c0 ; --------------------------------------------------------------------------------------
03c0 ; SUBPROGRAM
03c0 ; --------------------------------------------------------------------------------------
03c0 03d5       |    |		.CONST	0x03d5								; Address of begin
03c1 0405       |    |		.CONST	0x0405								; Address of exception handler
03c2 0005       |    |		.CONST	0x0005								; Number of locals
03c3			INIT_03c0:
03c3 0092 158a  |    |		Action	Push_String_Extended,0x158a					; "Set_Secondary_Command"
03c5 e006       |    |		Load	0x0,0x6
03c6 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
03c7 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
03c8 e007       |    |		Load	0x0,0x7
03c9 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
03ca 02c7       |    |		Declare_Variable	Any
03cb e5fd       |    |		Load	0x2,-0x3
03cc e007       |    |		Load	0x0,0x7
03cd 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
03ce a404       |    |		Store_Unchecked	0x2,0x4
03cf e007       |    |		Load	0x0,0x7
03d0 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
03d1 02c7       |    |		Declare_Variable	Any
03d2 e007       |    |		Load	0x0,0x7
03d3 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
03d4 a405       |    |		Store_Unchecked	0x2,0x5
03d5			BODY_03c0:
03d5 00d9       |    |		Load_Top	At_Offset_1
03d6 e007       |    |		Load	0x0,0x7
03d7 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
03d8 00d9       |    |		Load_Top	At_Offset_1
03d9 e22f       | /  |		Load	0x1,0x2f
03da 0092 157c  |   ||		Action	Push_String_Extended,0x157c					; "Command"
03dc e5ff       |    |		Load	0x2,-0x1
03dd e00c       |    |		Load	0x0,0xc
03de 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
03df 01cc       |    |		Execute	Vector,Catenate
03e0 0092 1582  |    |		Action	Push_String_Extended,0x1582					; "Secondary_Referencer"
03e2 01cc       |    |		Execute	Vector,Catenate
03e3 e5fe       |    |		Load	0x2,-0x2
03e4 e00c       |    |		Load	0x0,0xc
03e5 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
03e6 01cc       |    |		Execute	Vector,Catenate
03e7 0092 1583  |    |		Action	Push_String_Extended,0x1583					; "Response"
03e9 01cc       |    |		Execute	Vector,Catenate
03ea e5fd       |    |		Load	0x2,-0x3
03eb e00c       |    |		Load	0x0,0xc
03ec 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
03ed 01cc       |    |		Execute	Vector,Catenate
03ee e402       |    |		Load	0x2,0x2
03ef e00c       |    |		Load	0x0,0xc
03f0 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
03f1 00d9       |    |		Load_Top	At_Offset_1
03f2 e00d       |    |		Load	0x0,0xd
03f3 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
03f4 00da       |    |		Load_Top	At_Offset_2
03f5 00da       |    |		Load_Top	At_Offset_2
03f6 e5fe       |    |		Load	0x2,-0x2
03f7 e5ff       |    |		Load	0x2,-0x1
03f8 e234       | 4  |		Load	0x1,0x34
03f9 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
03fa 005b       | [  |		Store_Top	Discrete,At_Offset_3
03fb 00d9       |    |		Load_Top	At_Offset_1
03fc e22f       | /  |		Load	0x1,0x2f
03fd e402       |    |		Load	0x2,0x2
03fe e403       |    |		Load	0x2,0x3
03ff e00c       |    |		Load	0x0,0xc
0400 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0401 00d8       |    |		Load_Top	At_Offset_0
0402 e007       |    |		Load	0x0,0x7
0403 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0404 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0405			TRAP_03c0:
0405 e006       |    |		Load	0x0,0x6
0406 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
0407 010f       |    |		Execute	Exception,Equal
0408 680a       |h   |		Jump_Zero	0x413
0409 00da       |    |		Load_Top	At_Offset_2
040a e22f       | /  |		Load	0x1,0x2f
040b e402       |    |		Load	0x2,0x2
040c e403       |    |		Load	0x2,0x3
040d e00c       |    |		Load	0x0,0xc
040e 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
040f 00d9       |    |		Load_Top	At_Offset_1
0410 e007       |    |		Load	0x0,0x7
0411 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0412 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0413 4884       |H   |		Short_Literal	0x84
0414 010f       |    |		Execute	Exception,Equal
0415 680a       |h   |		Jump_Zero	0x420
0416 00da       |    |		Load_Top	At_Offset_2
0417 e22f       | /  |		Load	0x1,0x2f
0418 e402       |    |		Load	0x2,0x2
0419 e403       |    |		Load	0x2,0x3
041a e00c       |    |		Load	0x0,0xc
041b 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
041c 00d9       |    |		Load_Top	At_Offset_1
041d e007       |    |		Load	0x0,0x7
041e 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
041f 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0420 e006       |    |		Load	0x0,0x6
0421 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
0422 010f       |    |		Execute	Exception,Equal
0423 680b       |h   |		Jump_Zero	0x42f
0424 00da       |    |		Load_Top	At_Offset_2
0425 e22f       | /  |		Load	0x1,0x2f
0426 e402       |    |		Load	0x2,0x2
0427 e403       |    |		Load	0x2,0x3
0428 e00c       |    |		Load	0x0,0xc
0429 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
042a 00d9       |    |		Load_Top	At_Offset_1
042b e007       |    |		Load	0x0,0x7
042c 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
042d 00d8       |    |		Load_Top	At_Offset_0
042e 0101       |    |		Execute	Exception,Reraise
042f 00da       |    |		Load_Top	At_Offset_2
0430 e22f       | /  |		Load	0x1,0x2f
0431 e402       |    |		Load	0x2,0x2
0432 e403       |    |		Load	0x2,0x3
0433 e00c       |    |		Load	0x0,0xc
0434 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0435 00d9       |    |		Load_Top	At_Offset_1
0436 e007       |    |		Load	0x0,0x7
0437 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0438 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0439 0000 0000  |    |		.BLANK	0000[0x7]
0440 ; --------------------------------------------------------------------------------------
0440 ; SUBPROGRAM
0440 ; --------------------------------------------------------------------------------------
0440 0443       | C  |		.CONST	0x0443								; Address of begin
0441 0004       |    |		.CONST	0x0004								; Address of exception handler
0442 0001       |    |		.CONST	0x0001								; Number of locals
0443			BODY_0440:
0443			INIT_0440:
0443 e5fd       |    |		Load	0x2,-0x3
0444 e5fe       |    |		Load	0x2,-0x2
0445 e5ff       |    |		Load	0x2,-0x1
0446 e232       | 2  |		Load	0x1,0x32
0447 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
0448 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0449 0000 0000  |    |		.BLANK	0000[0x7]
0450 ; --------------------------------------------------------------------------------------
0450 ; SUBPROGRAM
0450 ; --------------------------------------------------------------------------------------
0450 0453       | S  |		.CONST	0x0453								; Address of begin
0451 0004       |    |		.CONST	0x0004								; Address of exception handler
0452 0001       |    |		.CONST	0x0001								; Number of locals
0453			BODY_0450:
0453			INIT_0450:
0453 e5fa       |    |		Load	0x2,-0x6
0454 e5fb       |    |		Load	0x2,-0x5
0455 e5fc       |    |		Load	0x2,-0x4
0456 e5fd       |    |		Load	0x2,-0x3
0457 e5fe       |    |		Load	0x2,-0x2
0458 e5ff       |    |		Load	0x2,-0x1
0459 e232       | 2  |		Load	0x1,0x32
045a 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
045b 4507       |E   |		Exit_Suprogram	New_Top_Offset 0x7
045c 0000 0000  |    |		.BLANK	0000[0x4]
0460 ; --------------------------------------------------------------------------------------
0460 ; SUBPROGRAM
0460 ; --------------------------------------------------------------------------------------
0460 0463       | c  |		.CONST	0x0463								; Address of begin
0461 0004       |    |		.CONST	0x0004								; Address of exception handler
0462 0001       |    |		.CONST	0x0001								; Number of locals
0463			BODY_0460:
0463			INIT_0460:
0463 e5fb       |    |		Load	0x2,-0x5
0464 e5fc       |    |		Load	0x2,-0x4
0465 e5fd       |    |		Load	0x2,-0x3
0466 e5fe       |    |		Load	0x2,-0x2
0467 e5ff       |    |		Load	0x2,-0x1
0468 e232       | 2  |		Load	0x1,0x32
0469 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
046a 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
046b 0000 0000  |    |		.BLANK	0000[0x5]
0470 ; --------------------------------------------------------------------------------------
0470 ; SUBPROGRAM
0470 ; --------------------------------------------------------------------------------------
0470 0473       | s  |		.CONST	0x0473								; Address of begin
0471 0004       |    |		.CONST	0x0004								; Address of exception handler
0472 0001       |    |		.CONST	0x0001								; Number of locals
0473			BODY_0470:
0473			INIT_0470:
0473 e5fd       |    |		Load	0x2,-0x3
0474 e5fe       |    |		Load	0x2,-0x2
0475 e5ff       |    |		Load	0x2,-0x1
0476 e232       | 2  |		Load	0x1,0x32
0477 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0478 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0479 0000 0000  |    |		.BLANK	0000[0x7]
0480 ; --------------------------------------------------------------------------------------
0480 ; SUBPROGRAM
0480 ; --------------------------------------------------------------------------------------
0480 049d       |    |		.CONST	0x049d								; Address of begin
0481 04d9       |    |		.CONST	0x04d9								; Address of exception handler
0482 0007       |    |		.CONST	0x0007								; Number of locals
0483			INIT_0480:
0483 0092 158b  |    |		Action	Push_String_Extended,0x158b					; "Link"
0485 e006       |    |		Load	0x0,0x6
0486 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0487 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0488 e007       |    |		Load	0x0,0x7
0489 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
048a 02c7       |    |		Declare_Variable	Any
048b e5fc       |    |		Load	0x2,-0x4
048c e007       |    |		Load	0x0,0x7
048d 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
048e a404       |    |		Store_Unchecked	0x2,0x4
048f e007       |    |		Load	0x0,0x7
0490 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0491 02c7       |    |		Declare_Variable	Any
0492 e007       |    |		Load	0x0,0x7
0493 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0494 a405       |    |		Store_Unchecked	0x2,0x5
0495 e008       |    |		Load	0x0,0x8
0496 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0497 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
0498 02c7       |    |		Declare_Variable	Any
0499 00d8       |    |		Load_Top	At_Offset_0
049a 1c00       |    |		Execute_Immediate	Run_Utility,0x0
049b 029f 1243  |   C|		Declare_Subprogram	INIT_1240,For_Call
049d			BODY_0480:
049d 00db       |    |		Load_Top	At_Offset_3
049e e007       |    |		Load	0x0,0x7
049f 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
04a0 00db       |    |		Load_Top	At_Offset_3
04a1 e22f       | /  |		Load	0x1,0x2f
04a2 0092 158c  |    |		Action	Push_String_Extended,0x158c					; "Main_Unit"
04a4 e5ff       |    |		Load	0x2,-0x1
04a5 e00c       |    |		Load	0x0,0xc
04a6 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
04a7 01cc       |    |		Execute	Vector,Catenate
04a8 0092 158d  |    |		Action	Push_String_Extended,0x158d					; "Make_Uncoded_Units => "
04aa 01cc       |    |		Execute	Vector,Catenate
04ab e5fe       |    |		Load	0x2,-0x2
04ac 00e1       |    |		Load_Encached	Boolean_Cache
04ad 011c       |    |		Execute	Any,Convert_Unchecked
04ae 1c01       |    |		Execute_Immediate	Run_Utility,0x1
04af 01cc       |    |		Execute	Vector,Catenate
04b0 0092 158e  |    |		Action	Push_String_Extended,0x158e					; ", Executable_Name"
04b2 01cc       |    |		Execute	Vector,Catenate
04b3 e5fd       |    |		Load	0x2,-0x3
04b4 e00c       |    |		Load	0x0,0xc
04b5 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
04b6 01cc       |    |		Execute	Vector,Catenate
04b7 0092 1583  |    |		Action	Push_String_Extended,0x1583					; "Response"
04b9 01cc       |    |		Execute	Vector,Catenate
04ba e5fc       |    |		Load	0x2,-0x4
04bb e00c       |    |		Load	0x0,0xc
04bc 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
04bd 01cc       |    |		Execute	Vector,Catenate
04be e402       |    |		Load	0x2,0x2
04bf e00c       |    |		Load	0x0,0xc
04c0 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
04c1 00db       |    |		Load_Top	At_Offset_3
04c2 4800       |H   |		Short_Literal	0x0
04c3 e5ff       |    |		Load	0x2,-0x1
04c4 e00e       |    |		Load	0x0,0xe
04c5 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
04c6 c406       |    |		Store	0x2,0x6
04c7 8407       |    |		Call	0x2,0x7
04c8 e403       |    |		Load	0x2,0x3
04c9 e404       |    |		Load	0x2,0x4
04ca e5fd       |    |		Load	0x2,-0x3
04cb e5fe       |    |		Load	0x2,-0x2
04cc e406       |    |		Load	0x2,0x6
04cd 8231       | 1  |		Call	0x1,0x31
04ce c403       |    |		Store	0x2,0x3
04cf 00db       |    |		Load_Top	At_Offset_3
04d0 e22f       | /  |		Load	0x1,0x2f
04d1 e402       |    |		Load	0x2,0x2
04d2 e403       |    |		Load	0x2,0x3
04d3 e00c       |    |		Load	0x0,0xc
04d4 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
04d5 00da       |    |		Load_Top	At_Offset_2
04d6 e007       |    |		Load	0x0,0x7
04d7 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
04d8 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
04d9			TRAP_0480:
04d9 e006       |    |		Load	0x0,0x6
04da 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
04db 010f       |    |		Execute	Exception,Equal
04dc 680a       |h   |		Jump_Zero	0x4e7
04dd e404       |    |		Load	0x2,0x4
04de e22f       | /  |		Load	0x1,0x2f
04df e402       |    |		Load	0x2,0x2
04e0 e403       |    |		Load	0x2,0x3
04e1 e00c       |    |		Load	0x0,0xc
04e2 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
04e3 00db       |    |		Load_Top	At_Offset_3
04e4 e007       |    |		Load	0x0,0x7
04e5 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
04e6 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
04e7 4884       |H   |		Short_Literal	0x84
04e8 010f       |    |		Execute	Exception,Equal
04e9 680a       |h   |		Jump_Zero	0x4f4
04ea e404       |    |		Load	0x2,0x4
04eb e22f       | /  |		Load	0x1,0x2f
04ec e402       |    |		Load	0x2,0x2
04ed e403       |    |		Load	0x2,0x3
04ee e00c       |    |		Load	0x0,0xc
04ef 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
04f0 00db       |    |		Load_Top	At_Offset_3
04f1 e007       |    |		Load	0x0,0x7
04f2 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
04f3 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
04f4 e006       |    |		Load	0x0,0x6
04f5 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
04f6 010f       |    |		Execute	Exception,Equal
04f7 680b       |h   |		Jump_Zero	0x503
04f8 e404       |    |		Load	0x2,0x4
04f9 e22f       | /  |		Load	0x1,0x2f
04fa e402       |    |		Load	0x2,0x2
04fb e403       |    |		Load	0x2,0x3
04fc e00c       |    |		Load	0x0,0xc
04fd 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
04fe 00db       |    |		Load_Top	At_Offset_3
04ff e007       |    |		Load	0x0,0x7
0500 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0501 00d8       |    |		Load_Top	At_Offset_0
0502 0101       |    |		Execute	Exception,Reraise
0503 e404       |    |		Load	0x2,0x4
0504 e22f       | /  |		Load	0x1,0x2f
0505 e402       |    |		Load	0x2,0x2
0506 e403       |    |		Load	0x2,0x3
0507 e00c       |    |		Load	0x0,0xc
0508 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0509 00db       |    |		Load_Top	At_Offset_3
050a e007       |    |		Load	0x0,0x7
050b 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
050c 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
050d 0000 0000  |    |		.XXX[0x3]
050f 0000       |    |
0510 ; --------------------------------------------------------------------------------------
0510 ; SUBPROGRAM
0510 ; --------------------------------------------------------------------------------------
0510 0513       |    |		.CONST	0x0513								; Address of begin
0511 0004       |    |		.CONST	0x0004								; Address of exception handler
0512 0001       |    |		.CONST	0x0001								; Number of locals
0513			BODY_0510:
0513			INIT_0510:
0513 e5fc       |    |		Load	0x2,-0x4
0514 e5fd       |    |		Load	0x2,-0x3
0515 e5fe       |    |		Load	0x2,-0x2
0516 e5ff       |    |		Load	0x2,-0x1
0517 e232       | 2  |		Load	0x1,0x32
0518 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0519 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
051a 0000 0000  |    |		.BLANK	0000[0x6]
0520 ; --------------------------------------------------------------------------------------
0520 ; SUBPROGRAM
0520 ; --------------------------------------------------------------------------------------
0520 054f       | O  |		.CONST	0x054f								; Address of begin
0521 059f       |    |		.CONST	0x059f								; Address of exception handler
0522 000c       |    |		.CONST	0x000c								; Number of locals
0523			INIT_0520:
0523 0092 158f  |    |		Action	Push_String_Extended,0x158f					; "Show_Remote_Unit_Name"
0525 e006       |    |		Load	0x0,0x6
0526 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0527 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0528 e007       |    |		Load	0x0,0x7
0529 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
052a 02c7       |    |		Declare_Variable	Any
052b e5fe       |    |		Load	0x2,-0x2
052c e007       |    |		Load	0x0,0x7
052d 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
052e a404       |    |		Store_Unchecked	0x2,0x4
052f 00e1       |    |		Load_Encached	Boolean_Cache
0530 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0531 00e2       |    |		Load_Encached	Integer_Cache
0532 e008       |    |		Load	0x0,0x8
0533 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0534 02c7       |    |		Declare_Variable	Any
0535 00d8       |    |		Load_Top	At_Offset_0
0536 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0537 e008       |    |		Load	0x0,0x8
0538 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0539 02c7       |    |		Declare_Variable	Any
053a 00d8       |    |		Load_Top	At_Offset_0
053b 1c00       |    |		Execute_Immediate	Run_Utility,0x0
053c e008       |    |		Load	0x0,0x8
053d 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
053e 02c7       |    |		Declare_Variable	Any
053f 00d8       |    |		Load_Top	At_Offset_0
0540 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0541 e008       |    |		Load	0x0,0x8
0542 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0543 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
0544 02c7       |    |		Declare_Variable	Any
0545 00d8       |    |		Load_Top	At_Offset_0
0546 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0547 e007       |    |		Load	0x0,0x7
0548 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0549 02c7       |    |		Declare_Variable	Any
054a e007       |    |		Load	0x0,0x7
054b 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
054c a40b       |    |		Store_Unchecked	0x2,0xb
054d 029f 129b  |    |		Declare_Subprogram	INIT_1298,For_Call
054f			BODY_0520:
054f e404       |    |		Load	0x2,0x4
0550 e007       |    |		Load	0x0,0x7
0551 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0552 e404       |    |		Load	0x2,0x4
0553 e22f       | /  |		Load	0x1,0x2f
0554 0092 1590  |    |		Action	Push_String_Extended,0x1590					; "Unit"
0556 e5ff       |    |		Load	0x2,-0x1
0557 e00c       |    |		Load	0x0,0xc
0558 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0559 01cc       |    |		Execute	Vector,Catenate
055a 0092 1583  |    |		Action	Push_String_Extended,0x1583					; "Response"
055c 01cc       |    |		Execute	Vector,Catenate
055d e5fe       |    |		Load	0x2,-0x2
055e e00c       |    |		Load	0x0,0xc
055f 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0560 01cc       |    |		Execute	Vector,Catenate
0561 e402       |    |		Load	0x2,0x2
0562 e00c       |    |		Load	0x0,0xc
0563 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0564 e404       |    |		Load	0x2,0x4
0565 e00d       |    |		Load	0x0,0xd
0566 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0567 e404       |    |		Load	0x2,0x4
0568 4800       |H   |		Short_Literal	0x0
0569 e5ff       |    |		Load	0x2,-0x1
056a e00e       |    |		Load	0x0,0xe
056b 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
056c c40a       |    |		Store	0x2,0xa
056d 00da       |    |		Load_Top	At_Offset_2
056e e008       |    |		Load	0x0,0x8
056f 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0570 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
0571 6814       |h   |		Jump_Zero	0x586
0572 e404       |    |		Load	0x2,0x4
0573 4801       |H   |		Short_Literal	0x1
0574 4801       |H   |		Short_Literal	0x1
0575 e010       |    |		Load	0x0,0x10
0576 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0577 035b       | [  |		Declare_Type	Array,Constrained
0578 0337       | 7  |		Declare_Variable	Array
0579 e5ff       |    |		Load	0x2,-0x1
057a e010       |    |		Load	0x0,0x10
057b 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
057c e010       |    |		Load	0x0,0x10
057d 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
057e 0119       |    |		Execute	Any,Check_In_Formal_Type
057f 4801       |H   |		Short_Literal	0x1
0580 00da       |    |		Load_Top	At_Offset_2
0581 01d6       |    |		Execute	Vector,Field_Write
0582 6051       |`Q  |		Indirect_Literal	Discrete,0x5d4,{0x00000000, 0x0000882b}
0583 e006       |    |		Load	0x0,0x6
0584 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
0585 780f       |x   |		Jump	0x595
0586 00cf       |    |		Action	Mark_Auxiliary
0587 7807       |x   |		Jump	0x58f
0588 840c       |    |		Call	0x2,0xc
0589 00db       |    |		Load_Top	At_Offset_3
058a e008       |    |		Load	0x0,0x8
058b 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
058c 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
058d c40a       |    |		Store	0x2,0xa
058e 00c9       |    |		Action	Pop_Auxiliary_Loop
058f 00db       |    |		Load_Top	At_Offset_3
0590 e008       |    |		Load	0x0,0x8
0591 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0592 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
0593 6ff4       |o   |		Jump_Zero	0x588
0594 00ce       |    |		Action	Pop_Auxiliary
0595 e404       |    |		Load	0x2,0x4
0596 e22f       | /  |		Load	0x1,0x2f
0597 e402       |    |		Load	0x2,0x2
0598 e403       |    |		Load	0x2,0x3
0599 e00c       |    |		Load	0x0,0xc
059a 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
059b 00d9       |    |		Load_Top	At_Offset_1
059c e007       |    |		Load	0x0,0x7
059d 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
059e 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
059f			TRAP_0520:
059f e006       |    |		Load	0x0,0x6
05a0 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
05a1 010f       |    |		Execute	Exception,Equal
05a2 680a       |h   |		Jump_Zero	0x5ad
05a3 e404       |    |		Load	0x2,0x4
05a4 e22f       | /  |		Load	0x1,0x2f
05a5 e402       |    |		Load	0x2,0x2
05a6 e403       |    |		Load	0x2,0x3
05a7 e00c       |    |		Load	0x0,0xc
05a8 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
05a9 00da       |    |		Load_Top	At_Offset_2
05aa e007       |    |		Load	0x0,0x7
05ab 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
05ac 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
05ad 4884       |H   |		Short_Literal	0x84
05ae 010f       |    |		Execute	Exception,Equal
05af 680a       |h   |		Jump_Zero	0x5ba
05b0 e404       |    |		Load	0x2,0x4
05b1 e22f       | /  |		Load	0x1,0x2f
05b2 e402       |    |		Load	0x2,0x2
05b3 e403       |    |		Load	0x2,0x3
05b4 e00c       |    |		Load	0x0,0xc
05b5 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
05b6 00da       |    |		Load_Top	At_Offset_2
05b7 e007       |    |		Load	0x0,0x7
05b8 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
05b9 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
05ba e006       |    |		Load	0x0,0x6
05bb 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
05bc 010f       |    |		Execute	Exception,Equal
05bd 680b       |h   |		Jump_Zero	0x5c9
05be e404       |    |		Load	0x2,0x4
05bf e22f       | /  |		Load	0x1,0x2f
05c0 e402       |    |		Load	0x2,0x2
05c1 e403       |    |		Load	0x2,0x3
05c2 e00c       |    |		Load	0x0,0xc
05c3 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
05c4 00da       |    |		Load_Top	At_Offset_2
05c5 e007       |    |		Load	0x0,0x7
05c6 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
05c7 00d8       |    |		Load_Top	At_Offset_0
05c8 0101       |    |		Execute	Exception,Reraise
05c9 e404       |    |		Load	0x2,0x4
05ca e22f       | /  |		Load	0x1,0x2f
05cb e402       |    |		Load	0x2,0x2
05cc e403       |    |		Load	0x2,0x3
05cd e00c       |    |		Load	0x0,0xc
05ce 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
05cf 00da       |    |		Load_Top	At_Offset_2
05d0 e007       |    |		Load	0x0,0x7
05d1 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
05d2 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
05d3 0000       |    |		.XXX[0x1]
05d4 0000 0000  |    |		.LITERAL	{0x00000000, 0x0000882b}
05d8 ; --------------------------------------------------------------------------------------
05d8 ; SUBPROGRAM
05d8 ; --------------------------------------------------------------------------------------
05d8 05ff       |    |		.CONST	0x05ff								; Address of begin
05d9 065e       | ^  |		.CONST	0x065e								; Address of exception handler
05da 0009       |    |		.CONST	0x0009								; Number of locals
05db			INIT_05d8:
05db 0092 1591  |    |		Action	Push_String_Extended,0x1591					; "Show_Units"
05dd e006       |    |		Load	0x0,0x6
05de 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
05df 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
05e0 e007       |    |		Load	0x0,0x7
05e1 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
05e2 02c7       |    |		Declare_Variable	Any
05e3 e5fc       |    |		Load	0x2,-0x4
05e4 e007       |    |		Load	0x0,0x7
05e5 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
05e6 a404       |    |		Store_Unchecked	0x2,0x4
05e7 e008       |    |		Load	0x0,0x8
05e8 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
05e9 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
05ea 02c7       |    |		Declare_Variable	Any
05eb 00d8       |    |		Load_Top	At_Offset_0
05ec 1c00       |    |		Execute_Immediate	Run_Utility,0x0
05ed e008       |    |		Load	0x0,0x8
05ee 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
05ef 02c7       |    |		Declare_Variable	Any
05f0 00d8       |    |		Load_Top	At_Offset_0
05f1 1c00       |    |		Execute_Immediate	Run_Utility,0x0
05f2 e008       |    |		Load	0x0,0x8
05f3 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
05f4 02c7       |    |		Declare_Variable	Any
05f5 00d8       |    |		Load_Top	At_Offset_0
05f6 1c00       |    |		Execute_Immediate	Run_Utility,0x0
05f7 e007       |    |		Load	0x0,0x7
05f8 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
05f9 02c7       |    |		Declare_Variable	Any
05fa e007       |    |		Load	0x0,0x7
05fb 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
05fc a408       |    |		Store_Unchecked	0x2,0x8
05fd 029f 12fb  |    |		Declare_Subprogram	INIT_12f8,For_Call
05ff			BODY_05d8:
05ff e404       |    |		Load	0x2,0x4
0600 e007       |    |		Load	0x0,0x7
0601 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0602 e404       |    |		Load	0x2,0x4
0603 e22f       | /  |		Load	0x1,0x2f
0604 0092 1590  |    |		Action	Push_String_Extended,0x1590					; "Unit"
0606 e5ff       |    |		Load	0x2,-0x1
0607 e00c       |    |		Load	0x0,0xc
0608 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0609 01cc       |    |		Execute	Vector,Catenate
060a 0092 1592  |    |		Action	Push_String_Extended,0x1592					; "Remote_Name => "
060c 01cc       |    |		Execute	Vector,Catenate
060d e5fe       |    |		Load	0x2,-0x2
060e 00e1       |    |		Load_Encached	Boolean_Cache
060f 011c       |    |		Execute	Any,Convert_Unchecked
0610 1c01       |    |		Execute_Immediate	Run_Utility,0x1
0611 01cc       |    |		Execute	Vector,Catenate
0612 0092 1593  |    |		Action	Push_String_Extended,0x1593					; ", Consistency => "
0614 01cc       |    |		Execute	Vector,Catenate
0615 e5fd       |    |		Load	0x2,-0x3
0616 00e1       |    |		Load_Encached	Boolean_Cache
0617 011c       |    |		Execute	Any,Convert_Unchecked
0618 1c01       |    |		Execute_Immediate	Run_Utility,0x1
0619 01cc       |    |		Execute	Vector,Catenate
061a 0092 1580  |    |		Action	Push_String_Extended,0x1580					; ", Response"
061c 01cc       |    |		Execute	Vector,Catenate
061d e5fc       |    |		Load	0x2,-0x4
061e e00c       |    |		Load	0x0,0xc
061f 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0620 01cc       |    |		Execute	Vector,Catenate
0621 e402       |    |		Load	0x2,0x2
0622 e00c       |    |		Load	0x0,0xc
0623 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0624 e404       |    |		Load	0x2,0x4
0625 e00d       |    |		Load	0x0,0xd
0626 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0627 e404       |    |		Load	0x2,0x4
0628 4801       |H   |		Short_Literal	0x1
0629 e5ff       |    |		Load	0x2,-0x1
062a e00e       |    |		Load	0x0,0xe
062b 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
062c c405       |    |		Store	0x2,0x5
062d e404       |    |		Load	0x2,0x4
062e 4801       |H   |		Short_Literal	0x1
062f e404       |    |		Load	0x2,0x4
0630 4801       |H   |		Short_Literal	0x1
0631 e405       |    |		Load	0x2,0x5
0632 e00e       |    |		Load	0x0,0xe
0633 1828       | (  |		Execute	Package,Field_Execute,Field_Number 0x28
0634 e00e       |    |		Load	0x0,0xe
0635 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0636 c407       |    |		Store	0x2,0x7
0637 e404       |    |		Load	0x2,0x4
0638 00db       |    |		Load_Top	At_Offset_3
0639 e00d       |    |		Load	0x0,0xd
063a 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
063b e404       |    |		Load	0x2,0x4
063c 00db       |    |		Load_Top	At_Offset_3
063d e00d       |    |		Load	0x0,0xd
063e 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
063f 00cf       |    |		Action	Mark_Auxiliary
0640 780d       |x   |		Jump	0x64e
0641 e404       |    |		Load	0x2,0x4
0642 4801       |H   |		Short_Literal	0x1
0643 e405       |    |		Load	0x2,0x5
0644 e00e       |    |		Load	0x0,0xe
0645 1828       | (  |		Execute	Package,Field_Execute,Field_Number 0x28
0646 c406       |    |		Store	0x2,0x6
0647 8409       |    |		Call	0x2,0x9
0648 e405       |    |		Load	0x2,0x5
0649 e008       |    |		Load	0x0,0x8
064a 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
064b 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
064c c405       |    |		Store	0x2,0x5
064d 00c9       |    |		Action	Pop_Auxiliary_Loop
064e e405       |    |		Load	0x2,0x5
064f e008       |    |		Load	0x0,0x8
0650 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0651 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
0652 6fee       |o   |		Jump_Zero	0x641
0653 00ce       |    |		Action	Pop_Auxiliary
0654 e404       |    |		Load	0x2,0x4
0655 e22f       | /  |		Load	0x1,0x2f
0656 e402       |    |		Load	0x2,0x2
0657 e403       |    |		Load	0x2,0x3
0658 e00c       |    |		Load	0x0,0xc
0659 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
065a 00d9       |    |		Load_Top	At_Offset_1
065b e007       |    |		Load	0x0,0x7
065c 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
065d 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
065e			TRAP_05d8:
065e e006       |    |		Load	0x0,0x6
065f 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
0660 010f       |    |		Execute	Exception,Equal
0661 680a       |h   |		Jump_Zero	0x66c
0662 e404       |    |		Load	0x2,0x4
0663 e22f       | /  |		Load	0x1,0x2f
0664 e402       |    |		Load	0x2,0x2
0665 e403       |    |		Load	0x2,0x3
0666 e00c       |    |		Load	0x0,0xc
0667 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0668 00da       |    |		Load_Top	At_Offset_2
0669 e007       |    |		Load	0x0,0x7
066a 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
066b 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
066c 4884       |H   |		Short_Literal	0x84
066d 010f       |    |		Execute	Exception,Equal
066e 680a       |h   |		Jump_Zero	0x679
066f e404       |    |		Load	0x2,0x4
0670 e22f       | /  |		Load	0x1,0x2f
0671 e402       |    |		Load	0x2,0x2
0672 e403       |    |		Load	0x2,0x3
0673 e00c       |    |		Load	0x0,0xc
0674 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0675 00da       |    |		Load_Top	At_Offset_2
0676 e007       |    |		Load	0x0,0x7
0677 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0678 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
0679 e006       |    |		Load	0x0,0x6
067a 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
067b 010f       |    |		Execute	Exception,Equal
067c 680b       |h   |		Jump_Zero	0x688
067d e404       |    |		Load	0x2,0x4
067e e22f       | /  |		Load	0x1,0x2f
067f e402       |    |		Load	0x2,0x2
0680 e403       |    |		Load	0x2,0x3
0681 e00c       |    |		Load	0x0,0xc
0682 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0683 00da       |    |		Load_Top	At_Offset_2
0684 e007       |    |		Load	0x0,0x7
0685 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0686 00d8       |    |		Load_Top	At_Offset_0
0687 0101       |    |		Execute	Exception,Reraise
0688 e404       |    |		Load	0x2,0x4
0689 e22f       | /  |		Load	0x1,0x2f
068a e402       |    |		Load	0x2,0x2
068b e403       |    |		Load	0x2,0x3
068c e00c       |    |		Load	0x0,0xc
068d 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
068e 00da       |    |		Load_Top	At_Offset_2
068f e007       |    |		Load	0x0,0x7
0690 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0691 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
0692 0000 0000  |    |		.BLANK	0000[0x6]
0698 ; --------------------------------------------------------------------------------------
0698 ; SUBPROGRAM
0698 ; --------------------------------------------------------------------------------------
0698 06ad       |    |		.CONST	0x06ad								; Address of begin
0699 06e7       |    |		.CONST	0x06e7								; Address of exception handler
069a 0005       |    |		.CONST	0x0005								; Number of locals
069b			INIT_0698:
069b 0092 1594  |    |		Action	Push_String_Extended,0x1594					; "Set_Unit_Option"
069d e006       |    |		Load	0x0,0x6
069e 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
069f 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
06a0 e007       |    |		Load	0x0,0x7
06a1 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
06a2 02c7       |    |		Declare_Variable	Any
06a3 e5fc       |    |		Load	0x2,-0x4
06a4 e007       |    |		Load	0x0,0x7
06a5 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
06a6 a404       |    |		Store_Unchecked	0x2,0x4
06a7 e007       |    |		Load	0x0,0x7
06a8 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
06a9 02c7       |    |		Declare_Variable	Any
06aa e007       |    |		Load	0x0,0x7
06ab 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
06ac a405       |    |		Store_Unchecked	0x2,0x5
06ad			BODY_0698:
06ad 00d9       |    |		Load_Top	At_Offset_1
06ae e007       |    |		Load	0x0,0x7
06af 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
06b0 00d9       |    |		Load_Top	At_Offset_1
06b1 e22f       | /  |		Load	0x1,0x2f
06b2 0092 1595  |    |		Action	Push_String_Extended,0x1595					; "Option_Switch"
06b4 e5ff       |    |		Load	0x2,-0x1
06b5 e00c       |    |		Load	0x0,0xc
06b6 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
06b7 01cc       |    |		Execute	Vector,Catenate
06b8 0092 1596  |    |		Action	Push_String_Extended,0x1596					; "Switch_Value => "
06ba 01cc       |    |		Execute	Vector,Catenate
06bb e5fe       |    |		Load	0x2,-0x2
06bc 00e1       |    |		Load_Encached	Boolean_Cache
06bd 011c       |    |		Execute	Any,Convert_Unchecked
06be 1c01       |    |		Execute_Immediate	Run_Utility,0x1
06bf 01cc       |    |		Execute	Vector,Catenate
06c0 0092 1597  |    |		Action	Push_String_Extended,0x1597					; ", Units"
06c2 01cc       |    |		Execute	Vector,Catenate
06c3 e5fd       |    |		Load	0x2,-0x3
06c4 e00c       |    |		Load	0x0,0xc
06c5 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
06c6 01cc       |    |		Execute	Vector,Catenate
06c7 0092 1583  |    |		Action	Push_String_Extended,0x1583					; "Response"
06c9 01cc       |    |		Execute	Vector,Catenate
06ca e5fc       |    |		Load	0x2,-0x4
06cb e00c       |    |		Load	0x0,0xc
06cc 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
06cd 01cc       |    |		Execute	Vector,Catenate
06ce e402       |    |		Load	0x2,0x2
06cf e00c       |    |		Load	0x0,0xc
06d0 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
06d1 00d9       |    |		Load_Top	At_Offset_1
06d2 e00d       |    |		Load	0x0,0xd
06d3 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
06d4 e006       |    |		Load	0x0,0x6
06d5 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
06d6 00da       |    |		Load_Top	At_Offset_2
06d7 e5fd       |    |		Load	0x2,-0x3
06d8 e5fe       |    |		Load	0x2,-0x2
06d9 e5ff       |    |		Load	0x2,-0x1
06da e235       | 5  |		Load	0x1,0x35
06db 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
06dc 005b       | [  |		Store_Top	Discrete,At_Offset_3
06dd 00d9       |    |		Load_Top	At_Offset_1
06de e22f       | /  |		Load	0x1,0x2f
06df e402       |    |		Load	0x2,0x2
06e0 e403       |    |		Load	0x2,0x3
06e1 e00c       |    |		Load	0x0,0xc
06e2 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
06e3 00d8       |    |		Load_Top	At_Offset_0
06e4 e007       |    |		Load	0x0,0x7
06e5 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
06e6 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
06e7			TRAP_0698:
06e7 e006       |    |		Load	0x0,0x6
06e8 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
06e9 010f       |    |		Execute	Exception,Equal
06ea 680a       |h   |		Jump_Zero	0x6f5
06eb 00da       |    |		Load_Top	At_Offset_2
06ec e22f       | /  |		Load	0x1,0x2f
06ed e402       |    |		Load	0x2,0x2
06ee e403       |    |		Load	0x2,0x3
06ef e00c       |    |		Load	0x0,0xc
06f0 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
06f1 00d9       |    |		Load_Top	At_Offset_1
06f2 e007       |    |		Load	0x0,0x7
06f3 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
06f4 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
06f5 4884       |H   |		Short_Literal	0x84
06f6 010f       |    |		Execute	Exception,Equal
06f7 680a       |h   |		Jump_Zero	0x702
06f8 00da       |    |		Load_Top	At_Offset_2
06f9 e22f       | /  |		Load	0x1,0x2f
06fa e402       |    |		Load	0x2,0x2
06fb e403       |    |		Load	0x2,0x3
06fc e00c       |    |		Load	0x0,0xc
06fd 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
06fe 00d9       |    |		Load_Top	At_Offset_1
06ff e007       |    |		Load	0x0,0x7
0700 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0701 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
0702 e006       |    |		Load	0x0,0x6
0703 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
0704 010f       |    |		Execute	Exception,Equal
0705 680b       |h   |		Jump_Zero	0x711
0706 00da       |    |		Load_Top	At_Offset_2
0707 e22f       | /  |		Load	0x1,0x2f
0708 e402       |    |		Load	0x2,0x2
0709 e403       |    |		Load	0x2,0x3
070a e00c       |    |		Load	0x0,0xc
070b 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
070c 00d9       |    |		Load_Top	At_Offset_1
070d e007       |    |		Load	0x0,0x7
070e 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
070f 00d8       |    |		Load_Top	At_Offset_0
0710 0101       |    |		Execute	Exception,Reraise
0711 00da       |    |		Load_Top	At_Offset_2
0712 e22f       | /  |		Load	0x1,0x2f
0713 e402       |    |		Load	0x2,0x2
0714 e403       |    |		Load	0x2,0x3
0715 e00c       |    |		Load	0x0,0xc
0716 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0717 00d9       |    |		Load_Top	At_Offset_1
0718 e007       |    |		Load	0x0,0x7
0719 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
071a 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
071b 0000 0000  |    |		.BLANK	0000[0x5]
0720 ; --------------------------------------------------------------------------------------
0720 ; SUBPROGRAM
0720 ; --------------------------------------------------------------------------------------
0720 0735       | 5  |		.CONST	0x0735								; Address of begin
0721 076e       | n  |		.CONST	0x076e								; Address of exception handler
0722 0005       |    |		.CONST	0x0005								; Number of locals
0723			INIT_0720:
0723 0092 1594  |    |		Action	Push_String_Extended,0x1594					; "Set_Unit_Option"
0725 e006       |    |		Load	0x0,0x6
0726 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0727 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0728 e007       |    |		Load	0x0,0x7
0729 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
072a 02c7       |    |		Declare_Variable	Any
072b e5fc       |    |		Load	0x2,-0x4
072c e007       |    |		Load	0x0,0x7
072d 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
072e a404       |    |		Store_Unchecked	0x2,0x4
072f e007       |    |		Load	0x0,0x7
0730 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0731 02c7       |    |		Declare_Variable	Any
0732 e007       |    |		Load	0x0,0x7
0733 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0734 a405       |    |		Store_Unchecked	0x2,0x5
0735			BODY_0720:
0735 00d9       |    |		Load_Top	At_Offset_1
0736 e007       |    |		Load	0x0,0x7
0737 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0738 00d9       |    |		Load_Top	At_Offset_1
0739 e22f       | /  |		Load	0x1,0x2f
073a 0092 1595  |    |		Action	Push_String_Extended,0x1595					; "Option_Switch"
073c e5ff       |    |		Load	0x2,-0x1
073d e00c       |    |		Load	0x0,0xc
073e 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
073f 01cc       |    |		Execute	Vector,Catenate
0740 0092 1598  |    |		Action	Push_String_Extended,0x1598					; "Switch_Value"
0742 01cc       |    |		Execute	Vector,Catenate
0743 e5fe       |    |		Load	0x2,-0x2
0744 e00c       |    |		Load	0x0,0xc
0745 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0746 01cc       |    |		Execute	Vector,Catenate
0747 0092 1599  |    |		Action	Push_String_Extended,0x1599					; "Units"
0749 01cc       |    |		Execute	Vector,Catenate
074a e5fd       |    |		Load	0x2,-0x3
074b e00c       |    |		Load	0x0,0xc
074c 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
074d 01cc       |    |		Execute	Vector,Catenate
074e 0092 1583  |    |		Action	Push_String_Extended,0x1583					; "Response"
0750 01cc       |    |		Execute	Vector,Catenate
0751 e5fc       |    |		Load	0x2,-0x4
0752 e00c       |    |		Load	0x0,0xc
0753 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0754 01cc       |    |		Execute	Vector,Catenate
0755 e402       |    |		Load	0x2,0x2
0756 e00c       |    |		Load	0x0,0xc
0757 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0758 00d9       |    |		Load_Top	At_Offset_1
0759 e00d       |    |		Load	0x0,0xd
075a 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
075b e006       |    |		Load	0x0,0x6
075c 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
075d 00da       |    |		Load_Top	At_Offset_2
075e e5fd       |    |		Load	0x2,-0x3
075f e5fe       |    |		Load	0x2,-0x2
0760 e5ff       |    |		Load	0x2,-0x1
0761 e235       | 5  |		Load	0x1,0x35
0762 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0763 005b       | [  |		Store_Top	Discrete,At_Offset_3
0764 00d9       |    |		Load_Top	At_Offset_1
0765 e22f       | /  |		Load	0x1,0x2f
0766 e402       |    |		Load	0x2,0x2
0767 e403       |    |		Load	0x2,0x3
0768 e00c       |    |		Load	0x0,0xc
0769 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
076a 00d8       |    |		Load_Top	At_Offset_0
076b e007       |    |		Load	0x0,0x7
076c 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
076d 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
076e			TRAP_0720:
076e e006       |    |		Load	0x0,0x6
076f 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
0770 010f       |    |		Execute	Exception,Equal
0771 680a       |h   |		Jump_Zero	0x77c
0772 00da       |    |		Load_Top	At_Offset_2
0773 e22f       | /  |		Load	0x1,0x2f
0774 e402       |    |		Load	0x2,0x2
0775 e403       |    |		Load	0x2,0x3
0776 e00c       |    |		Load	0x0,0xc
0777 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0778 00d9       |    |		Load_Top	At_Offset_1
0779 e007       |    |		Load	0x0,0x7
077a 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
077b 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
077c 4884       |H   |		Short_Literal	0x84
077d 010f       |    |		Execute	Exception,Equal
077e 680a       |h   |		Jump_Zero	0x789
077f 00da       |    |		Load_Top	At_Offset_2
0780 e22f       | /  |		Load	0x1,0x2f
0781 e402       |    |		Load	0x2,0x2
0782 e403       |    |		Load	0x2,0x3
0783 e00c       |    |		Load	0x0,0xc
0784 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0785 00d9       |    |		Load_Top	At_Offset_1
0786 e007       |    |		Load	0x0,0x7
0787 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0788 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
0789 e006       |    |		Load	0x0,0x6
078a 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
078b 010f       |    |		Execute	Exception,Equal
078c 680b       |h   |		Jump_Zero	0x798
078d 00da       |    |		Load_Top	At_Offset_2
078e e22f       | /  |		Load	0x1,0x2f
078f e402       |    |		Load	0x2,0x2
0790 e403       |    |		Load	0x2,0x3
0791 e00c       |    |		Load	0x0,0xc
0792 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0793 00d9       |    |		Load_Top	At_Offset_1
0794 e007       |    |		Load	0x0,0x7
0795 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0796 00d8       |    |		Load_Top	At_Offset_0
0797 0101       |    |		Execute	Exception,Reraise
0798 00da       |    |		Load_Top	At_Offset_2
0799 e22f       | /  |		Load	0x1,0x2f
079a e402       |    |		Load	0x2,0x2
079b e403       |    |		Load	0x2,0x3
079c e00c       |    |		Load	0x0,0xc
079d 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
079e 00d9       |    |		Load_Top	At_Offset_1
079f e007       |    |		Load	0x0,0x7
07a0 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
07a1 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
07a2 0000 0000  |    |		.BLANK	0000[0x6]
07a8 ; --------------------------------------------------------------------------------------
07a8 ; SUBPROGRAM
07a8 ; --------------------------------------------------------------------------------------
07a8 07bd       |    |		.CONST	0x07bd								; Address of begin
07a9 07e6       |    |		.CONST	0x07e6								; Address of exception handler
07aa 0005       |    |		.CONST	0x0005								; Number of locals
07ab			INIT_07a8:
07ab 0092 159a  |    |		Action	Push_String_Extended,0x159a					; "Display_Unit_Options"
07ad e006       |    |		Load	0x0,0x6
07ae 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
07af 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
07b0 e007       |    |		Load	0x0,0x7
07b1 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
07b2 02c7       |    |		Declare_Variable	Any
07b3 e5fe       |    |		Load	0x2,-0x2
07b4 e007       |    |		Load	0x0,0x7
07b5 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
07b6 a404       |    |		Store_Unchecked	0x2,0x4
07b7 e007       |    |		Load	0x0,0x7
07b8 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
07b9 02c7       |    |		Declare_Variable	Any
07ba e007       |    |		Load	0x0,0x7
07bb 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
07bc a405       |    |		Store_Unchecked	0x2,0x5
07bd			BODY_07a8:
07bd 00d9       |    |		Load_Top	At_Offset_1
07be e007       |    |		Load	0x0,0x7
07bf 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
07c0 00d9       |    |		Load_Top	At_Offset_1
07c1 e22f       | /  |		Load	0x1,0x2f
07c2 0092 1599  |    |		Action	Push_String_Extended,0x1599					; "Units"
07c4 e5ff       |    |		Load	0x2,-0x1
07c5 e00c       |    |		Load	0x0,0xc
07c6 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
07c7 01cc       |    |		Execute	Vector,Catenate
07c8 0092 1583  |    |		Action	Push_String_Extended,0x1583					; "Response"
07ca 01cc       |    |		Execute	Vector,Catenate
07cb e5fe       |    |		Load	0x2,-0x2
07cc e00c       |    |		Load	0x0,0xc
07cd 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
07ce 01cc       |    |		Execute	Vector,Catenate
07cf e402       |    |		Load	0x2,0x2
07d0 e00c       |    |		Load	0x0,0xc
07d1 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
07d2 00d9       |    |		Load_Top	At_Offset_1
07d3 e00d       |    |		Load	0x0,0xd
07d4 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
07d5 e006       |    |		Load	0x0,0x6
07d6 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
07d7 00da       |    |		Load_Top	At_Offset_2
07d8 e5ff       |    |		Load	0x2,-0x1
07d9 e235       | 5  |		Load	0x1,0x35
07da 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
07db 005b       | [  |		Store_Top	Discrete,At_Offset_3
07dc 00d9       |    |		Load_Top	At_Offset_1
07dd e22f       | /  |		Load	0x1,0x2f
07de e402       |    |		Load	0x2,0x2
07df e403       |    |		Load	0x2,0x3
07e0 e00c       |    |		Load	0x0,0xc
07e1 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
07e2 00d8       |    |		Load_Top	At_Offset_0
07e3 e007       |    |		Load	0x0,0x7
07e4 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
07e5 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
07e6			TRAP_07a8:
07e6 e006       |    |		Load	0x0,0x6
07e7 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
07e8 010f       |    |		Execute	Exception,Equal
07e9 680a       |h   |		Jump_Zero	0x7f4
07ea 00da       |    |		Load_Top	At_Offset_2
07eb e22f       | /  |		Load	0x1,0x2f
07ec e402       |    |		Load	0x2,0x2
07ed e403       |    |		Load	0x2,0x3
07ee e00c       |    |		Load	0x0,0xc
07ef 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
07f0 00d9       |    |		Load_Top	At_Offset_1
07f1 e007       |    |		Load	0x0,0x7
07f2 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
07f3 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
07f4 4884       |H   |		Short_Literal	0x84
07f5 010f       |    |		Execute	Exception,Equal
07f6 680a       |h   |		Jump_Zero	0x801
07f7 00da       |    |		Load_Top	At_Offset_2
07f8 e22f       | /  |		Load	0x1,0x2f
07f9 e402       |    |		Load	0x2,0x2
07fa e403       |    |		Load	0x2,0x3
07fb e00c       |    |		Load	0x0,0xc
07fc 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
07fd 00d9       |    |		Load_Top	At_Offset_1
07fe e007       |    |		Load	0x0,0x7
07ff 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0800 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0801 e006       |    |		Load	0x0,0x6
0802 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
0803 010f       |    |		Execute	Exception,Equal
0804 680b       |h   |		Jump_Zero	0x810
0805 00da       |    |		Load_Top	At_Offset_2
0806 e22f       | /  |		Load	0x1,0x2f
0807 e402       |    |		Load	0x2,0x2
0808 e403       |    |		Load	0x2,0x3
0809 e00c       |    |		Load	0x0,0xc
080a 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
080b 00d9       |    |		Load_Top	At_Offset_1
080c e007       |    |		Load	0x0,0x7
080d 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
080e 00d8       |    |		Load_Top	At_Offset_0
080f 0101       |    |		Execute	Exception,Reraise
0810 00da       |    |		Load_Top	At_Offset_2
0811 e22f       | /  |		Load	0x1,0x2f
0812 e402       |    |		Load	0x2,0x2
0813 e403       |    |		Load	0x2,0x3
0814 e00c       |    |		Load	0x0,0xc
0815 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0816 00d9       |    |		Load_Top	At_Offset_1
0817 e007       |    |		Load	0x0,0x7
0818 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0819 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
081a 0000 0000  |    |		.BLANK	0000[0x6]
0820 ; --------------------------------------------------------------------------------------
0820 ; SUBPROGRAM
0820 ; --------------------------------------------------------------------------------------
0820 0835       | 5  |		.CONST	0x0835								; Address of begin
0821 0866       | f  |		.CONST	0x0866								; Address of exception handler
0822 0005       |    |		.CONST	0x0005								; Number of locals
0823			INIT_0820:
0823 0092 159b  |    |		Action	Push_String_Extended,0x159b					; "Remove_Unit_Option"
0825 e006       |    |		Load	0x0,0x6
0826 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0827 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0828 e007       |    |		Load	0x0,0x7
0829 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
082a 02c7       |    |		Declare_Variable	Any
082b e5fd       |    |		Load	0x2,-0x3
082c e007       |    |		Load	0x0,0x7
082d 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
082e a404       |    |		Store_Unchecked	0x2,0x4
082f e007       |    |		Load	0x0,0x7
0830 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0831 02c7       |    |		Declare_Variable	Any
0832 e007       |    |		Load	0x0,0x7
0833 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0834 a405       |    |		Store_Unchecked	0x2,0x5
0835			BODY_0820:
0835 00d9       |    |		Load_Top	At_Offset_1
0836 e007       |    |		Load	0x0,0x7
0837 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0838 00d9       |    |		Load_Top	At_Offset_1
0839 e22f       | /  |		Load	0x1,0x2f
083a 0092 1595  |    |		Action	Push_String_Extended,0x1595					; "Option_Switch"
083c e5ff       |    |		Load	0x2,-0x1
083d e00c       |    |		Load	0x0,0xc
083e 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
083f 01cc       |    |		Execute	Vector,Catenate
0840 0092 1599  |    |		Action	Push_String_Extended,0x1599					; "Units"
0842 01cc       |    |		Execute	Vector,Catenate
0843 e5fe       |    |		Load	0x2,-0x2
0844 e00c       |    |		Load	0x0,0xc
0845 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0846 01cc       |    |		Execute	Vector,Catenate
0847 0092 1583  |    |		Action	Push_String_Extended,0x1583					; "Response"
0849 01cc       |    |		Execute	Vector,Catenate
084a e5fd       |    |		Load	0x2,-0x3
084b e00c       |    |		Load	0x0,0xc
084c 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
084d 01cc       |    |		Execute	Vector,Catenate
084e e402       |    |		Load	0x2,0x2
084f e00c       |    |		Load	0x0,0xc
0850 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0851 00d9       |    |		Load_Top	At_Offset_1
0852 e00d       |    |		Load	0x0,0xd
0853 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0854 e006       |    |		Load	0x0,0x6
0855 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0856 00da       |    |		Load_Top	At_Offset_2
0857 e5fe       |    |		Load	0x2,-0x2
0858 e5ff       |    |		Load	0x2,-0x1
0859 e235       | 5  |		Load	0x1,0x35
085a 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
085b 005b       | [  |		Store_Top	Discrete,At_Offset_3
085c 00d9       |    |		Load_Top	At_Offset_1
085d e22f       | /  |		Load	0x1,0x2f
085e e402       |    |		Load	0x2,0x2
085f e403       |    |		Load	0x2,0x3
0860 e00c       |    |		Load	0x0,0xc
0861 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0862 00d8       |    |		Load_Top	At_Offset_0
0863 e007       |    |		Load	0x0,0x7
0864 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0865 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0866			TRAP_0820:
0866 e006       |    |		Load	0x0,0x6
0867 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
0868 010f       |    |		Execute	Exception,Equal
0869 680a       |h   |		Jump_Zero	0x874
086a 00da       |    |		Load_Top	At_Offset_2
086b e22f       | /  |		Load	0x1,0x2f
086c e402       |    |		Load	0x2,0x2
086d e403       |    |		Load	0x2,0x3
086e e00c       |    |		Load	0x0,0xc
086f 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0870 00d9       |    |		Load_Top	At_Offset_1
0871 e007       |    |		Load	0x0,0x7
0872 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0873 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0874 4884       |H   |		Short_Literal	0x84
0875 010f       |    |		Execute	Exception,Equal
0876 680a       |h   |		Jump_Zero	0x881
0877 00da       |    |		Load_Top	At_Offset_2
0878 e22f       | /  |		Load	0x1,0x2f
0879 e402       |    |		Load	0x2,0x2
087a e403       |    |		Load	0x2,0x3
087b e00c       |    |		Load	0x0,0xc
087c 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
087d 00d9       |    |		Load_Top	At_Offset_1
087e e007       |    |		Load	0x0,0x7
087f 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0880 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0881 e006       |    |		Load	0x0,0x6
0882 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
0883 010f       |    |		Execute	Exception,Equal
0884 680b       |h   |		Jump_Zero	0x890
0885 00da       |    |		Load_Top	At_Offset_2
0886 e22f       | /  |		Load	0x1,0x2f
0887 e402       |    |		Load	0x2,0x2
0888 e403       |    |		Load	0x2,0x3
0889 e00c       |    |		Load	0x0,0xc
088a 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
088b 00d9       |    |		Load_Top	At_Offset_1
088c e007       |    |		Load	0x0,0x7
088d 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
088e 00d8       |    |		Load_Top	At_Offset_0
088f 0101       |    |		Execute	Exception,Reraise
0890 00da       |    |		Load_Top	At_Offset_2
0891 e22f       | /  |		Load	0x1,0x2f
0892 e402       |    |		Load	0x2,0x2
0893 e403       |    |		Load	0x2,0x3
0894 e00c       |    |		Load	0x0,0xc
0895 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0896 00d9       |    |		Load_Top	At_Offset_1
0897 e007       |    |		Load	0x0,0x7
0898 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0899 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
089a 0000 0000  |    |		.BLANK	0000[0x6]
08a0 ; --------------------------------------------------------------------------------------
08a0 ; SUBPROGRAM
08a0 ; --------------------------------------------------------------------------------------
08a0 08bf       |    |		.CONST	0x08bf								; Address of begin
08a1 0904       |    |		.CONST	0x0904								; Address of exception handler
08a2 0008       |    |		.CONST	0x0008								; Number of locals
08a3			INIT_08a0:
08a3 0092 159c  |    |		Action	Push_String_Extended,0x159c					; "Refresh_View"
08a5 e006       |    |		Load	0x0,0x6
08a6 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
08a7 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
08a8 e007       |    |		Load	0x0,0x7
08a9 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
08aa 02c7       |    |		Declare_Variable	Any
08ab e5fd       |    |		Load	0x2,-0x3
08ac e007       |    |		Load	0x0,0x7
08ad 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
08ae a404       |    |		Store_Unchecked	0x2,0x4
08af e008       |    |		Load	0x0,0x8
08b0 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
08b1 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
08b2 02c7       |    |		Declare_Variable	Any
08b3 00d8       |    |		Load_Top	At_Offset_0
08b4 1c00       |    |		Execute_Immediate	Run_Utility,0x0
08b5 00e1       |    |		Load_Encached	Boolean_Cache
08b6 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
08b7 e007       |    |		Load	0x0,0x7
08b8 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
08b9 02c7       |    |		Declare_Variable	Any
08ba e007       |    |		Load	0x0,0x7
08bb 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
08bc a407       |    |		Store_Unchecked	0x2,0x7
08bd 029f 1333  |   3|		Declare_Subprogram	INIT_1330,For_Call
08bf			BODY_08a0:
08bf e404       |    |		Load	0x2,0x4
08c0 e007       |    |		Load	0x0,0x7
08c1 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
08c2 e404       |    |		Load	0x2,0x4
08c3 e22f       | /  |		Load	0x1,0x2f
08c4 0092 159d  |    |		Action	Push_String_Extended,0x159d					; "View"
08c6 e5ff       |    |		Load	0x2,-0x1
08c7 e00c       |    |		Load	0x0,0xc
08c8 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
08c9 01cc       |    |		Execute	Vector,Catenate
08ca 0092 159e  |    |		Action	Push_String_Extended,0x159e					; "Retain_History => "
08cc 01cc       |    |		Execute	Vector,Catenate
08cd e5fe       |    |		Load	0x2,-0x2
08ce 00e1       |    |		Load_Encached	Boolean_Cache
08cf 011c       |    |		Execute	Any,Convert_Unchecked
08d0 1c01       |    |		Execute_Immediate	Run_Utility,0x1
08d1 01cc       |    |		Execute	Vector,Catenate
08d2 0092 1580  |    |		Action	Push_String_Extended,0x1580					; ", Response"
08d4 01cc       |    |		Execute	Vector,Catenate
08d5 e5fd       |    |		Load	0x2,-0x3
08d6 e00c       |    |		Load	0x0,0xc
08d7 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
08d8 01cc       |    |		Execute	Vector,Catenate
08d9 e402       |    |		Load	0x2,0x2
08da e00c       |    |		Load	0x0,0xc
08db 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
08dc e404       |    |		Load	0x2,0x4
08dd e00d       |    |		Load	0x0,0xd
08de 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
08df e404       |    |		Load	0x2,0x4
08e0 0092 159d  |    |		Action	Push_String_Extended,0x159d					; "View"
08e2 e5ff       |    |		Load	0x2,-0x1
08e3 e00d       |    |		Load	0x0,0xd
08e4 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
08e5 e404       |    |		Load	0x2,0x4
08e6 4801       |H   |		Short_Literal	0x1
08e7 e5ff       |    |		Load	0x2,-0x1
08e8 e00e       |    |		Load	0x0,0xe
08e9 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
08ea c405       |    |		Store	0x2,0x5
08eb 00cf       |    |		Action	Mark_Auxiliary
08ec 7807       |x   |		Jump	0x8f4
08ed 8408       |    |		Call	0x2,0x8
08ee e405       |    |		Load	0x2,0x5
08ef e008       |    |		Load	0x0,0x8
08f0 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
08f1 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
08f2 c405       |    |		Store	0x2,0x5
08f3 00c9       |    |		Action	Pop_Auxiliary_Loop
08f4 e405       |    |		Load	0x2,0x5
08f5 e008       |    |		Load	0x0,0x8
08f6 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
08f7 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
08f8 6ff4       |o   |		Jump_Zero	0x8ed
08f9 00ce       |    |		Action	Pop_Auxiliary
08fa e404       |    |		Load	0x2,0x4
08fb e22f       | /  |		Load	0x1,0x2f
08fc e402       |    |		Load	0x2,0x2
08fd e403       |    |		Load	0x2,0x3
08fe e00c       |    |		Load	0x0,0xc
08ff 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0900 00d9       |    |		Load_Top	At_Offset_1
0901 e007       |    |		Load	0x0,0x7
0902 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0903 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0904			TRAP_08a0:
0904 e006       |    |		Load	0x0,0x6
0905 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
0906 010f       |    |		Execute	Exception,Equal
0907 680a       |h   |		Jump_Zero	0x912
0908 e404       |    |		Load	0x2,0x4
0909 e22f       | /  |		Load	0x1,0x2f
090a e402       |    |		Load	0x2,0x2
090b e403       |    |		Load	0x2,0x3
090c e00c       |    |		Load	0x0,0xc
090d 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
090e 00da       |    |		Load_Top	At_Offset_2
090f e007       |    |		Load	0x0,0x7
0910 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0911 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0912 4884       |H   |		Short_Literal	0x84
0913 010f       |    |		Execute	Exception,Equal
0914 680a       |h   |		Jump_Zero	0x91f
0915 e404       |    |		Load	0x2,0x4
0916 e22f       | /  |		Load	0x1,0x2f
0917 e402       |    |		Load	0x2,0x2
0918 e403       |    |		Load	0x2,0x3
0919 e00c       |    |		Load	0x0,0xc
091a 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
091b 00da       |    |		Load_Top	At_Offset_2
091c e007       |    |		Load	0x0,0x7
091d 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
091e 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
091f e006       |    |		Load	0x0,0x6
0920 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
0921 010f       |    |		Execute	Exception,Equal
0922 680b       |h   |		Jump_Zero	0x92e
0923 e404       |    |		Load	0x2,0x4
0924 e22f       | /  |		Load	0x1,0x2f
0925 e402       |    |		Load	0x2,0x2
0926 e403       |    |		Load	0x2,0x3
0927 e00c       |    |		Load	0x0,0xc
0928 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0929 00da       |    |		Load_Top	At_Offset_2
092a e007       |    |		Load	0x0,0x7
092b 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
092c 00d8       |    |		Load_Top	At_Offset_0
092d 0101       |    |		Execute	Exception,Reraise
092e e404       |    |		Load	0x2,0x4
092f e22f       | /  |		Load	0x1,0x2f
0930 e402       |    |		Load	0x2,0x2
0931 e403       |    |		Load	0x2,0x3
0932 e00c       |    |		Load	0x0,0xc
0933 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0934 00da       |    |		Load_Top	At_Offset_2
0935 e007       |    |		Load	0x0,0x7
0936 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0937 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0938 ; --------------------------------------------------------------------------------------
0938 ; SUBPROGRAM
0938 ; --------------------------------------------------------------------------------------
0938 093b       | ;  |		.CONST	0x093b								; Address of begin
0939 0004       |    |		.CONST	0x0004								; Address of exception handler
093a 0001       |    |		.CONST	0x0001								; Number of locals
093b			BODY_0938:
093b			INIT_0938:
093b 00db       |    |		Load_Top	At_Offset_3
093c 00db       |    |		Load_Top	At_Offset_3
093d e233       | 3  |		Load	0x1,0x33
093e 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
093f 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0940 ; --------------------------------------------------------------------------------------
0940 ; SUBPROGRAM
0940 ; --------------------------------------------------------------------------------------
0940 0943       | C  |		.CONST	0x0943								; Address of begin
0941 0004       |    |		.CONST	0x0004								; Address of exception handler
0942 0001       |    |		.CONST	0x0001								; Number of locals
0943			BODY_0940:
0943			INIT_0940:
0943 e5fc       |    |		Load	0x2,-0x4
0944 e5fd       |    |		Load	0x2,-0x3
0945 e5fe       |    |		Load	0x2,-0x2
0946 e5ff       |    |		Load	0x2,-0x1
0947 e233       | 3  |		Load	0x1,0x33
0948 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
0949 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
094a 0000 0000  |    |		.BLANK	0000[0x6]
0950 ; --------------------------------------------------------------------------------------
0950 ; SUBPROGRAM
0950 ; --------------------------------------------------------------------------------------
0950 0953       | S  |		.CONST	0x0953								; Address of begin
0951 0004       |    |		.CONST	0x0004								; Address of exception handler
0952 0001       |    |		.CONST	0x0001								; Number of locals
0953			BODY_0950:
0953			INIT_0950:
0953 e5fb       |    |		Load	0x2,-0x5
0954 e5fc       |    |		Load	0x2,-0x4
0955 e5fd       |    |		Load	0x2,-0x3
0956 e5fe       |    |		Load	0x2,-0x2
0957 e5ff       |    |		Load	0x2,-0x1
0958 e233       | 3  |		Load	0x1,0x33
0959 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
095a 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
095b 0000 0000  |    |		.BLANK	0000[0x5]
0960 ; --------------------------------------------------------------------------------------
0960 ; SUBPROGRAM
0960 ; --------------------------------------------------------------------------------------
0960 0963       | c  |		.CONST	0x0963								; Address of begin
0961 0004       |    |		.CONST	0x0004								; Address of exception handler
0962 0001       |    |		.CONST	0x0001								; Number of locals
0963			BODY_0960:
0963			INIT_0960:
0963 00db       |    |		Load_Top	At_Offset_3
0964 00db       |    |		Load_Top	At_Offset_3
0965 e233       | 3  |		Load	0x1,0x33
0966 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0967 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0968 ; --------------------------------------------------------------------------------------
0968 ; SUBPROGRAM
0968 ; --------------------------------------------------------------------------------------
0968 0985       |    |		.CONST	0x0985								; Address of begin
0969 09bf       |    |		.CONST	0x09bf								; Address of exception handler
096a 0007       |    |		.CONST	0x0007								; Number of locals
096b			INIT_0968:
096b 0092 159f  |    |		Action	Push_String_Extended,0x159f					; "Show_Remote_Information"
096d e006       |    |		Load	0x0,0x6
096e 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
096f 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0970 e007       |    |		Load	0x0,0x7
0971 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0972 02c7       |    |		Declare_Variable	Any
0973 e5fe       |    |		Load	0x2,-0x2
0974 e007       |    |		Load	0x0,0x7
0975 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
0976 a404       |    |		Store_Unchecked	0x2,0x4
0977 e008       |    |		Load	0x0,0x8
0978 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0979 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
097a 02c7       |    |		Declare_Variable	Any
097b 00d8       |    |		Load_Top	At_Offset_0
097c 1c00       |    |		Execute_Immediate	Run_Utility,0x0
097d e007       |    |		Load	0x0,0x7
097e 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
097f 02c7       |    |		Declare_Variable	Any
0980 e007       |    |		Load	0x0,0x7
0981 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0982 a406       |    |		Store_Unchecked	0x2,0x6
0983 029f 13ab  |    |		Declare_Subprogram	INIT_13a8,For_Call
0985			BODY_0968:
0985 00db       |    |		Load_Top	At_Offset_3
0986 e007       |    |		Load	0x0,0x7
0987 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0988 00db       |    |		Load_Top	At_Offset_3
0989 e22f       | /  |		Load	0x1,0x2f
098a 0092 159d  |    |		Action	Push_String_Extended,0x159d					; "View"
098c e5ff       |    |		Load	0x2,-0x1
098d e00c       |    |		Load	0x0,0xc
098e 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
098f 01cc       |    |		Execute	Vector,Catenate
0990 0092 1583  |    |		Action	Push_String_Extended,0x1583					; "Response"
0992 01cc       |    |		Execute	Vector,Catenate
0993 e5fe       |    |		Load	0x2,-0x2
0994 e00c       |    |		Load	0x0,0xc
0995 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0996 01cc       |    |		Execute	Vector,Catenate
0997 e402       |    |		Load	0x2,0x2
0998 e00c       |    |		Load	0x0,0xc
0999 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
099a 00db       |    |		Load_Top	At_Offset_3
099b e00d       |    |		Load	0x0,0xd
099c 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
099d 00db       |    |		Load_Top	At_Offset_3
099e 4801       |H   |		Short_Literal	0x1
099f e5ff       |    |		Load	0x2,-0x1
09a0 e00e       |    |		Load	0x0,0xe
09a1 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
09a2 c405       |    |		Store	0x2,0x5
09a3 00cf       |    |		Action	Mark_Auxiliary
09a4 7807       |x   |		Jump	0x9ac
09a5 8407       |    |		Call	0x2,0x7
09a6 00db       |    |		Load_Top	At_Offset_3
09a7 e008       |    |		Load	0x0,0x8
09a8 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
09a9 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
09aa c405       |    |		Store	0x2,0x5
09ab 00c9       |    |		Action	Pop_Auxiliary_Loop
09ac 00db       |    |		Load_Top	At_Offset_3
09ad e008       |    |		Load	0x0,0x8
09ae 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
09af 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
09b0 6ff4       |o   |		Jump_Zero	0x9a5
09b1 00ce       |    |		Action	Pop_Auxiliary
09b2 4801       |H   |		Short_Literal	0x1
09b3 e017       |    |		Load	0x0,0x17
09b4 1840       | @  |		Execute	Package,Field_Execute,Field_Number 0x40
09b5 00db       |    |		Load_Top	At_Offset_3
09b6 e22f       | /  |		Load	0x1,0x2f
09b7 e402       |    |		Load	0x2,0x2
09b8 e403       |    |		Load	0x2,0x3
09b9 e00c       |    |		Load	0x0,0xc
09ba 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
09bb 00d9       |    |		Load_Top	At_Offset_1
09bc e007       |    |		Load	0x0,0x7
09bd 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
09be 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
09bf			TRAP_0968:
09bf e006       |    |		Load	0x0,0x6
09c0 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
09c1 010f       |    |		Execute	Exception,Equal
09c2 680a       |h   |		Jump_Zero	0x9cd
09c3 e404       |    |		Load	0x2,0x4
09c4 e22f       | /  |		Load	0x1,0x2f
09c5 e402       |    |		Load	0x2,0x2
09c6 e403       |    |		Load	0x2,0x3
09c7 e00c       |    |		Load	0x0,0xc
09c8 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
09c9 00da       |    |		Load_Top	At_Offset_2
09ca e007       |    |		Load	0x0,0x7
09cb 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
09cc 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
09cd 4884       |H   |		Short_Literal	0x84
09ce 010f       |    |		Execute	Exception,Equal
09cf 680a       |h   |		Jump_Zero	0x9da
09d0 e404       |    |		Load	0x2,0x4
09d1 e22f       | /  |		Load	0x1,0x2f
09d2 e402       |    |		Load	0x2,0x2
09d3 e403       |    |		Load	0x2,0x3
09d4 e00c       |    |		Load	0x0,0xc
09d5 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
09d6 00da       |    |		Load_Top	At_Offset_2
09d7 e007       |    |		Load	0x0,0x7
09d8 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
09d9 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
09da e006       |    |		Load	0x0,0x6
09db 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
09dc 010f       |    |		Execute	Exception,Equal
09dd 680b       |h   |		Jump_Zero	0x9e9
09de e404       |    |		Load	0x2,0x4
09df e22f       | /  |		Load	0x1,0x2f
09e0 e402       |    |		Load	0x2,0x2
09e1 e403       |    |		Load	0x2,0x3
09e2 e00c       |    |		Load	0x0,0xc
09e3 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
09e4 00da       |    |		Load_Top	At_Offset_2
09e5 e007       |    |		Load	0x0,0x7
09e6 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
09e7 00d8       |    |		Load_Top	At_Offset_0
09e8 0101       |    |		Execute	Exception,Reraise
09e9 e404       |    |		Load	0x2,0x4
09ea e22f       | /  |		Load	0x1,0x2f
09eb e402       |    |		Load	0x2,0x2
09ec e403       |    |		Load	0x2,0x3
09ed e00c       |    |		Load	0x0,0xc
09ee 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
09ef 00da       |    |		Load_Top	At_Offset_2
09f0 e007       |    |		Load	0x0,0x7
09f1 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
09f2 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
09f3 0000 0000  |    |		.BLANK	0000[0x5]
09f8 ; --------------------------------------------------------------------------------------
09f8 ; SUBPROGRAM
09f8 ; --------------------------------------------------------------------------------------
09f8 0a23       | #  |		.CONST	0x0a23								; Address of begin
09f9 0b0f       |    |		.CONST	0x0b0f								; Address of exception handler
09fa 000d       |    |		.CONST	0x000d								; Number of locals
09fb			INIT_09f8:
09fb 0092 15a0  |    |		Action	Push_String_Extended,0x15a0					; "Execute_Remote_Command"
09fd e006       |    |		Load	0x0,0x6
09fe 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
09ff 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0a00 e007       |    |		Load	0x0,0x7
0a01 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0a02 02c7       |    |		Declare_Variable	Any
0a03 e5f9       |    |		Load	0x2,-0x7
0a04 e007       |    |		Load	0x0,0x7
0a05 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
0a06 a404       |    |		Store_Unchecked	0x2,0x4
0a07 e009       |    |		Load	0x0,0x9
0a08 1b1a       |    |		Execute	Package,Field_Read,Field_Number 0x1a
0a09 02c7       |    |		Declare_Variable	Any
0a0a 00d8       |    |		Load_Top	At_Offset_0
0a0b 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0a0c e027       | '  |		Load	0x0,0x27
0a0d 1b62       | b  |		Execute	Package,Field_Read,Field_Number 0x62
0a0e 02c7       |    |		Declare_Variable	Any
0a0f 00d8       |    |		Load_Top	At_Offset_0
0a10 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0a11 e007       |    |		Load	0x0,0x7
0a12 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0a13 02c7       |    |		Declare_Variable	Any
0a14 e007       |    |		Load	0x0,0x7
0a15 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0a16 a407       |    |		Store_Unchecked	0x2,0x7
0a17 00e1       |    |		Load_Encached	Boolean_Cache
0a18 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0a19 e5fb       |    |		Load	0x2,-0x5
0a1a 8238       | 8  |		Call	0x1,0x38
0a1b e5fe       |    |		Load	0x2,-0x2
0a1c 8239       | 9  |		Call	0x1,0x39
0a1d e5fd       |    |		Load	0x2,-0x3
0a1e 823a       | :  |		Call	0x1,0x3a
0a1f e5fc       |    |		Load	0x2,-0x4
0a20 823b       | ;  |		Call	0x1,0x3b
0a21 029f 142b  |   +|		Declare_Subprogram	INIT_1428,For_Call
0a23			BODY_09f8:
0a23 e404       |    |		Load	0x2,0x4
0a24 e007       |    |		Load	0x0,0x7
0a25 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0a26 e404       |    |		Load	0x2,0x4
0a27 e22f       | /  |		Load	0x1,0x2f
0a28 0092 15a1  |    |		Action	Push_String_Extended,0x15a1					; "Remote_Command"
0a2a e5ff       |    |		Load	0x2,-0x1
0a2b e00c       |    |		Load	0x0,0xc
0a2c 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0a2d 01cc       |    |		Execute	Vector,Catenate
0a2e 0092 15a2  |    |		Action	Push_String_Extended,0x15a2					; "Remote_Machine"
0a30 01cc       |    |		Execute	Vector,Catenate
0a31 e5fe       |    |		Load	0x2,-0x2
0a32 e00c       |    |		Load	0x0,0xc
0a33 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0a34 01cc       |    |		Execute	Vector,Catenate
0a35 0092 15a3  |    |		Action	Push_String_Extended,0x15a3					; "Remote_Username"
0a37 01cc       |    |		Execute	Vector,Catenate
0a38 e5fd       |    |		Load	0x2,-0x3
0a39 e00c       |    |		Load	0x0,0xc
0a3a 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0a3b 01cc       |    |		Execute	Vector,Catenate
0a3c 0092 15a4  |    |		Action	Push_String_Extended,0x15a4					; "Remote_Password"
0a3e 01cc       |    |		Execute	Vector,Catenate
0a3f e5fc       |    |		Load	0x2,-0x4
0a40 e00c       |    |		Load	0x0,0xc
0a41 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0a42 01cc       |    |		Execute	Vector,Catenate
0a43 0092 15a5  |    |		Action	Push_String_Extended,0x15a5					; "Remote_Directory"
0a45 01cc       |    |		Execute	Vector,Catenate
0a46 e5fb       |    |		Load	0x2,-0x5
0a47 e00c       |    |		Load	0x0,0xc
0a48 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0a49 01cc       |    |		Execute	Vector,Catenate
0a4a 0092 15a6  |    |		Action	Push_String_Extended,0x15a6					; "The_Key"
0a4c 01cc       |    |		Execute	Vector,Catenate
0a4d e5fa       |    |		Load	0x2,-0x6
0a4e e00c       |    |		Load	0x0,0xc
0a4f 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0a50 01cc       |    |		Execute	Vector,Catenate
0a51 0092 1583  |    |		Action	Push_String_Extended,0x1583					; "Response"
0a53 01cc       |    |		Execute	Vector,Catenate
0a54 e5f9       |    |		Load	0x2,-0x7
0a55 e00c       |    |		Load	0x0,0xc
0a56 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0a57 01cc       |    |		Execute	Vector,Catenate
0a58 e402       |    |		Load	0x2,0x2
0a59 e00c       |    |		Load	0x0,0xc
0a5a 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0a5b e404       |    |		Load	0x2,0x4
0a5c e00d       |    |		Load	0x0,0xd
0a5d 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0a5e 840d       |    |		Call	0x2,0xd
0a5f 00da       |    |		Load_Top	At_Offset_2
0a60 01db       |    |		Execute	Vector,Length
0a61 701c       |p   |		Jump_Nonzero	0xa7e
0a62 e007       |    |		Load	0x0,0x7
0a63 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0a64 4801       |H   |		Short_Literal	0x1
0a65 4801       |H   |		Short_Literal	0x1
0a66 e010       |    |		Load	0x0,0x10
0a67 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0a68 035b       | [  |		Declare_Type	Array,Constrained
0a69 0337       | 7  |		Declare_Variable	Array
0a6a 00ea       |    |		Load_Encached	Null_String_Cache
0a6b e010       |    |		Load	0x0,0x10
0a6c 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0a6d e010       |    |		Load	0x0,0x10
0a6e 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0a6f 0119       |    |		Execute	Any,Check_In_Formal_Type
0a70 4801       |H   |		Short_Literal	0x1
0a71 00da       |    |		Load_Top	At_Offset_2
0a72 01d6       |    |		Execute	Vector,Field_Write
0a73 60f0       |`   |		Indirect_Literal	Discrete,0xb64,{0x00000000, 0x000088a2}
0a74 e006       |    |		Load	0x0,0x6
0a75 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
0a76 e010       |    |		Load	0x0,0x10
0a77 182b       | +  |		Execute	Package,Field_Execute,Field_Number 0x2b
0a78 60eb       |`   |		Indirect_Literal	Discrete,0xb64,{0x00000000, 0x000088a2}
0a79 e006       |    |		Load	0x0,0x6
0a7a 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0a7b a403       |    |		Store_Unchecked	0x2,0x3
0a7c e029       | )  |		Load	0x0,0x29
0a7d 0257       | W  |		Execute	Discrete,Raise
0a7e 00db       |    |		Load_Top	At_Offset_3
0a7f 01db       |    |		Execute	Vector,Length
0a80 701c       |p   |		Jump_Nonzero	0xa9d
0a81 e007       |    |		Load	0x0,0x7
0a82 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0a83 4801       |H   |		Short_Literal	0x1
0a84 4801       |H   |		Short_Literal	0x1
0a85 e010       |    |		Load	0x0,0x10
0a86 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0a87 035b       | [  |		Declare_Type	Array,Constrained
0a88 0337       | 7  |		Declare_Variable	Array
0a89 00ea       |    |		Load_Encached	Null_String_Cache
0a8a e010       |    |		Load	0x0,0x10
0a8b 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0a8c e010       |    |		Load	0x0,0x10
0a8d 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0a8e 0119       |    |		Execute	Any,Check_In_Formal_Type
0a8f 4801       |H   |		Short_Literal	0x1
0a90 00da       |    |		Load_Top	At_Offset_2
0a91 01d6       |    |		Execute	Vector,Field_Write
0a92 60cd       |`   |		Indirect_Literal	Discrete,0xb60,{0x00000000, 0x000088a3}
0a93 e006       |    |		Load	0x0,0x6
0a94 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
0a95 e010       |    |		Load	0x0,0x10
0a96 182b       | +  |		Execute	Package,Field_Execute,Field_Number 0x2b
0a97 60c8       |`   |		Indirect_Literal	Discrete,0xb60,{0x00000000, 0x000088a3}
0a98 e006       |    |		Load	0x0,0x6
0a99 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0a9a a403       |    |		Store_Unchecked	0x2,0x3
0a9b e029       | )  |		Load	0x0,0x29
0a9c 0257       | W  |		Execute	Discrete,Raise
0a9d e404       |    |		Load	0x2,0x4
0a9e 823d       | =  |		Call	0x1,0x3d
0a9f a408       |    |		Store_Unchecked	0x2,0x8
0aa0 e409       |    |		Load	0x2,0x9
0aa1 01db       |    |		Execute	Vector,Length
0aa2 7027       |p'  |		Jump_Nonzero	0xaca
0aa3 e006       |    |		Load	0x0,0x6
0aa4 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0aa5 e405       |    |		Load	0x2,0x5
0aa6 0120       |    |		Execute	Any,Is_Value
0aa7 6803       |h   |		Jump_Zero	0xaab
0aa8 e009       |    |		Load	0x0,0x9
0aa9 1b1a       |    |		Execute	Package,Field_Read,Field_Number 0x1a
0aaa 7801       |x   |		Jump	0xaac
0aab e405       |    |		Load	0x2,0x5
0aac e408       |    |		Load	0x2,0x8
0aad e40c       |    |		Load	0x2,0xc
0aae e40b       |    |		Load	0x2,0xb
0aaf e40a       |    |		Load	0x2,0xa
0ab0 e406       |    |		Load	0x2,0x6
0ab1 e009       |    |		Load	0x0,0x9
0ab2 1838       | 8  |		Execute	Package,Field_Execute,Field_Number 0x38
0ab3 c405       |    |		Store	0x2,0x5
0ab4 c403       |    |		Store	0x2,0x3
0ab5 e007       |    |		Load	0x0,0x7
0ab6 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0ab7 4801       |H   |		Short_Literal	0x1
0ab8 4801       |H   |		Short_Literal	0x1
0ab9 e010       |    |		Load	0x0,0x10
0aba 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0abb 035b       | [  |		Declare_Type	Array,Constrained
0abc 0337       | 7  |		Declare_Variable	Array
0abd 00ea       |    |		Load_Encached	Null_String_Cache
0abe e010       |    |		Load	0x0,0x10
0abf 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0ac0 e010       |    |		Load	0x0,0x10
0ac1 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0ac2 0119       |    |		Execute	Any,Check_In_Formal_Type
0ac3 4801       |H   |		Short_Literal	0x1
0ac4 00da       |    |		Load_Top	At_Offset_2
0ac5 01d6       |    |		Execute	Vector,Field_Write
0ac6 6095       |`   |		Indirect_Literal	Discrete,0xb5c,{0x00000000, 0x000088a4}
0ac7 e006       |    |		Load	0x0,0x6
0ac8 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
0ac9 7819       |x   |		Jump	0xae3
0aca e006       |    |		Load	0x0,0x6
0acb 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0acc e405       |    |		Load	0x2,0x5
0acd 0120       |    |		Execute	Any,Is_Value
0ace 6803       |h   |		Jump_Zero	0xad2
0acf e009       |    |		Load	0x0,0x9
0ad0 1b1a       |    |		Execute	Package,Field_Read,Field_Number 0x1a
0ad1 7801       |x   |		Jump	0xad3
0ad2 e405       |    |		Load	0x2,0x5
0ad3 e408       |    |		Load	0x2,0x8
0ad4 e40c       |    |		Load	0x2,0xc
0ad5 e40b       |    |		Load	0x2,0xb
0ad6 e40a       |    |		Load	0x2,0xa
0ad7 00ea       |    |		Load_Encached	Null_String_Cache
0ad8 00ea       |    |		Load_Encached	Null_String_Cache
0ad9 e5fb       |    |		Load	0x2,-0x5
0ada 8238       | 8  |		Call	0x1,0x38
0adb e406       |    |		Load	0x2,0x6
0adc e027       | '  |		Load	0x0,0x27
0add 18b8       |    |		Execute	Package,Field_Execute,Field_Number 0xb8
0ade e406       |    |		Load	0x2,0x6
0adf e009       |    |		Load	0x0,0x9
0ae0 1839       | 9  |		Execute	Package,Field_Execute,Field_Number 0x39
0ae1 c405       |    |		Store	0x2,0x5
0ae2 c403       |    |		Store	0x2,0x3
0ae3 4800       |H   |		Short_Literal	0x0
0ae4 e403       |    |		Load	0x2,0x3
0ae5 e006       |    |		Load	0x0,0x6
0ae6 1847       | G  |		Execute	Package,Field_Execute,Field_Number 0x47
0ae7 7006       |p   |		Jump_Nonzero	0xaee
0ae8 e404       |    |		Load	0x2,0x4
0ae9 e403       |    |		Load	0x2,0x3
0aea e006       |    |		Load	0x0,0x6
0aeb 182f       | /  |		Execute	Package,Field_Execute,Field_Number 0x2f
0aec e029       | )  |		Load	0x0,0x29
0aed 0257       | W  |		Execute	Discrete,Raise
0aee e006       |    |		Load	0x0,0x6
0aef 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0af0 4801       |H   |		Short_Literal	0x1
0af1 4801       |H   |		Short_Literal	0x1
0af2 4800       |H   |		Short_Literal	0x0
0af3 4800       |H   |		Short_Literal	0x0
0af4 00ea       |    |		Load_Encached	Null_String_Cache
0af5 e405       |    |		Load	0x2,0x5
0af6 e5ff       |    |		Load	0x2,-0x1
0af7 e009       |    |		Load	0x0,0x9
0af8 1830       | 0  |		Execute	Package,Field_Execute,Field_Number 0x30
0af9 c403       |    |		Store	0x2,0x3
0afa 4800       |H   |		Short_Literal	0x0
0afb e403       |    |		Load	0x2,0x3
0afc e006       |    |		Load	0x0,0x6
0afd 1847       | G  |		Execute	Package,Field_Execute,Field_Number 0x47
0afe 7006       |p   |		Jump_Nonzero	0xb05
0aff e404       |    |		Load	0x2,0x4
0b00 e403       |    |		Load	0x2,0x3
0b01 e006       |    |		Load	0x0,0x6
0b02 182f       | /  |		Execute	Package,Field_Execute,Field_Number 0x2f
0b03 e029       | )  |		Load	0x0,0x29
0b04 0257       | W  |		Execute	Discrete,Raise
0b05 e404       |    |		Load	0x2,0x4
0b06 e22f       | /  |		Load	0x1,0x2f
0b07 e402       |    |		Load	0x2,0x2
0b08 e403       |    |		Load	0x2,0x3
0b09 e00c       |    |		Load	0x0,0xc
0b0a 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0b0b e407       |    |		Load	0x2,0x7
0b0c e007       |    |		Load	0x0,0x7
0b0d 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0b0e 4508       |E   |		Exit_Suprogram	New_Top_Offset 0x8
0b0f			TRAP_09f8:
0b0f e029       | )  |		Load	0x0,0x29
0b10 010f       |    |		Execute	Exception,Equal
0b11 680a       |h   |		Jump_Zero	0xb1c
0b12 e404       |    |		Load	0x2,0x4
0b13 e22f       | /  |		Load	0x1,0x2f
0b14 e402       |    |		Load	0x2,0x2
0b15 e403       |    |		Load	0x2,0x3
0b16 e00c       |    |		Load	0x0,0xc
0b17 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0b18 e407       |    |		Load	0x2,0x7
0b19 e007       |    |		Load	0x0,0x7
0b1a 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0b1b 4508       |E   |		Exit_Suprogram	New_Top_Offset 0x8
0b1c e02a       | *  |		Load	0x0,0x2a
0b1d 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
0b1e 010f       |    |		Execute	Exception,Equal
0b1f 681f       |h   |		Jump_Zero	0xb3f
0b20 e007       |    |		Load	0x0,0x7
0b21 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0b22 4801       |H   |		Short_Literal	0x1
0b23 4801       |H   |		Short_Literal	0x1
0b24 e010       |    |		Load	0x0,0x10
0b25 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0b26 035b       | [  |		Declare_Type	Array,Constrained
0b27 0337       | 7  |		Declare_Variable	Array
0b28 e5fa       |    |		Load	0x2,-0x6
0b29 823c       | <  |		Call	0x1,0x3c
0b2a e010       |    |		Load	0x0,0x10
0b2b 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0b2c e010       |    |		Load	0x0,0x10
0b2d 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0b2e 0119       |    |		Execute	Any,Check_In_Formal_Type
0b2f 4801       |H   |		Short_Literal	0x1
0b30 00da       |    |		Load_Top	At_Offset_2
0b31 01d6       |    |		Execute	Vector,Field_Write
0b32 6025       |`%  |		Indirect_Literal	Discrete,0xb58,{0x00000000, 0x00008891}
0b33 e006       |    |		Load	0x0,0x6
0b34 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
0b35 e404       |    |		Load	0x2,0x4
0b36 e22f       | /  |		Load	0x1,0x2f
0b37 e402       |    |		Load	0x2,0x2
0b38 e403       |    |		Load	0x2,0x3
0b39 e00c       |    |		Load	0x0,0xc
0b3a 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0b3b e407       |    |		Load	0x2,0x7
0b3c e007       |    |		Load	0x0,0x7
0b3d 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0b3e 4508       |E   |		Exit_Suprogram	New_Top_Offset 0x8
0b3f e006       |    |		Load	0x0,0x6
0b40 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
0b41 010f       |    |		Execute	Exception,Equal
0b42 680b       |h   |		Jump_Zero	0xb4e
0b43 e404       |    |		Load	0x2,0x4
0b44 e22f       | /  |		Load	0x1,0x2f
0b45 e402       |    |		Load	0x2,0x2
0b46 e403       |    |		Load	0x2,0x3
0b47 e00c       |    |		Load	0x0,0xc
0b48 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0b49 e407       |    |		Load	0x2,0x7
0b4a e007       |    |		Load	0x0,0x7
0b4b 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0b4c 00d8       |    |		Load_Top	At_Offset_0
0b4d 0101       |    |		Execute	Exception,Reraise
0b4e e404       |    |		Load	0x2,0x4
0b4f e22f       | /  |		Load	0x1,0x2f
0b50 e402       |    |		Load	0x2,0x2
0b51 e403       |    |		Load	0x2,0x3
0b52 e00c       |    |		Load	0x0,0xc
0b53 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0b54 e407       |    |		Load	0x2,0x7
0b55 e007       |    |		Load	0x0,0x7
0b56 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0b57 4508       |E   |		Exit_Suprogram	New_Top_Offset 0x8
0b58 0000 0000  |    |		.LITERAL	{0x00000000, 0x00008891}
0b5c 0000 0000  |    |		.LITERAL	{0x00000000, 0x000088a4}
0b60 0000 0000  |    |		.LITERAL	{0x00000000, 0x000088a3}
0b64 0000 0000  |    |		.LITERAL	{0x00000000, 0x000088a2}
0b68 ; --------------------------------------------------------------------------------------
0b68 ; SUBPROGRAM
0b68 ; --------------------------------------------------------------------------------------
0b68 0b7d       | }  |		.CONST	0x0b7d								; Address of begin
0b69 0bae       |    |		.CONST	0x0bae								; Address of exception handler
0b6a 0005       |    |		.CONST	0x0005								; Number of locals
0b6b			INIT_0b68:
0b6b 0092 15a7  |    |		Action	Push_String_Extended,0x15a7					; "Collapse_Secondary_Referencers"
0b6d e006       |    |		Load	0x0,0x6
0b6e 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0b6f 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0b70 e007       |    |		Load	0x0,0x7
0b71 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0b72 02c7       |    |		Declare_Variable	Any
0b73 e5fe       |    |		Load	0x2,-0x2
0b74 e007       |    |		Load	0x0,0x7
0b75 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
0b76 a404       |    |		Store_Unchecked	0x2,0x4
0b77 e007       |    |		Load	0x0,0x7
0b78 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0b79 02c7       |    |		Declare_Variable	Any
0b7a e007       |    |		Load	0x0,0x7
0b7b 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0b7c a405       |    |		Store_Unchecked	0x2,0x5
0b7d			BODY_0b68:
0b7d 00d9       |    |		Load_Top	At_Offset_1
0b7e e007       |    |		Load	0x0,0x7
0b7f 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0b80 00d9       |    |		Load_Top	At_Offset_1
0b81 e22f       | /  |		Load	0x1,0x2f
0b82 0092 15a8  |    |		Action	Push_String_Extended,0x15a8					; "Directory"
0b84 e5ff       |    |		Load	0x2,-0x1
0b85 e00c       |    |		Load	0x0,0xc
0b86 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0b87 01cc       |    |		Execute	Vector,Catenate
0b88 0092 1583  |    |		Action	Push_String_Extended,0x1583					; "Response"
0b8a 01cc       |    |		Execute	Vector,Catenate
0b8b e5fe       |    |		Load	0x2,-0x2
0b8c e00c       |    |		Load	0x0,0xc
0b8d 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0b8e 01cc       |    |		Execute	Vector,Catenate
0b8f e402       |    |		Load	0x2,0x2
0b90 e00c       |    |		Load	0x0,0xc
0b91 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0b92 00d9       |    |		Load_Top	At_Offset_1
0b93 e00d       |    |		Load	0x0,0xd
0b94 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0b95 e006       |    |		Load	0x0,0x6
0b96 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0b97 00da       |    |		Load_Top	At_Offset_2
0b98 e5ff       |    |		Load	0x2,-0x1
0b99 e014       |    |		Load	0x0,0x14
0b9a 1883       |    |		Execute	Package,Field_Execute,Field_Number 0x83
0b9b 005b       | [  |		Store_Top	Discrete,At_Offset_3
0b9c 4800       |H   |		Short_Literal	0x0
0b9d 00db       |    |		Load_Top	At_Offset_3
0b9e e006       |    |		Load	0x0,0x6
0b9f 1847       | G  |		Execute	Package,Field_Execute,Field_Number 0x47
0ba0 7003       |p   |		Jump_Nonzero	0xba4
0ba1 e006       |    |		Load	0x0,0x6
0ba2 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
0ba3 0257       | W  |		Execute	Discrete,Raise
0ba4 00d9       |    |		Load_Top	At_Offset_1
0ba5 e22f       | /  |		Load	0x1,0x2f
0ba6 e402       |    |		Load	0x2,0x2
0ba7 e403       |    |		Load	0x2,0x3
0ba8 e00c       |    |		Load	0x0,0xc
0ba9 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0baa 00d8       |    |		Load_Top	At_Offset_0
0bab e007       |    |		Load	0x0,0x7
0bac 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0bad 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0bae			TRAP_0b68:
0bae e006       |    |		Load	0x0,0x6
0baf 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
0bb0 010f       |    |		Execute	Exception,Equal
0bb1 680a       |h   |		Jump_Zero	0xbbc
0bb2 00da       |    |		Load_Top	At_Offset_2
0bb3 e22f       | /  |		Load	0x1,0x2f
0bb4 e402       |    |		Load	0x2,0x2
0bb5 e403       |    |		Load	0x2,0x3
0bb6 e00c       |    |		Load	0x0,0xc
0bb7 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0bb8 00d9       |    |		Load_Top	At_Offset_1
0bb9 e007       |    |		Load	0x0,0x7
0bba 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0bbb 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0bbc 4884       |H   |		Short_Literal	0x84
0bbd 010f       |    |		Execute	Exception,Equal
0bbe 680a       |h   |		Jump_Zero	0xbc9
0bbf 00da       |    |		Load_Top	At_Offset_2
0bc0 e22f       | /  |		Load	0x1,0x2f
0bc1 e402       |    |		Load	0x2,0x2
0bc2 e403       |    |		Load	0x2,0x3
0bc3 e00c       |    |		Load	0x0,0xc
0bc4 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0bc5 00d9       |    |		Load_Top	At_Offset_1
0bc6 e007       |    |		Load	0x0,0x7
0bc7 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0bc8 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0bc9 e006       |    |		Load	0x0,0x6
0bca 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
0bcb 010f       |    |		Execute	Exception,Equal
0bcc 680b       |h   |		Jump_Zero	0xbd8
0bcd 00da       |    |		Load_Top	At_Offset_2
0bce e22f       | /  |		Load	0x1,0x2f
0bcf e402       |    |		Load	0x2,0x2
0bd0 e403       |    |		Load	0x2,0x3
0bd1 e00c       |    |		Load	0x0,0xc
0bd2 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0bd3 00d9       |    |		Load_Top	At_Offset_1
0bd4 e007       |    |		Load	0x0,0x7
0bd5 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0bd6 00d8       |    |		Load_Top	At_Offset_0
0bd7 0101       |    |		Execute	Exception,Reraise
0bd8 00da       |    |		Load_Top	At_Offset_2
0bd9 e22f       | /  |		Load	0x1,0x2f
0bda e402       |    |		Load	0x2,0x2
0bdb e403       |    |		Load	0x2,0x3
0bdc e00c       |    |		Load	0x0,0xc
0bdd 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0bde 00d9       |    |		Load_Top	At_Offset_1
0bdf e007       |    |		Load	0x0,0x7
0be0 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0be1 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0be2 0000 0000  |    |		.BLANK	0000[0x6]
0be8 ; --------------------------------------------------------------------------------------
0be8 ; SUBPROGRAM
0be8 ; --------------------------------------------------------------------------------------
0be8 0bfd       |    |		.CONST	0x0bfd								; Address of begin
0be9 0c2f       | /  |		.CONST	0x0c2f								; Address of exception handler
0bea 0005       |    |		.CONST	0x0005								; Number of locals
0beb			INIT_0be8:
0beb 0092 15a9  |    |		Action	Push_String_Extended,0x15a9					; "Expand_Secondary_Referencers"
0bed e006       |    |		Load	0x0,0x6
0bee 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0bef 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0bf0 e007       |    |		Load	0x0,0x7
0bf1 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0bf2 02c7       |    |		Declare_Variable	Any
0bf3 e5fe       |    |		Load	0x2,-0x2
0bf4 e007       |    |		Load	0x0,0x7
0bf5 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
0bf6 a404       |    |		Store_Unchecked	0x2,0x4
0bf7 e007       |    |		Load	0x0,0x7
0bf8 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0bf9 02c7       |    |		Declare_Variable	Any
0bfa e007       |    |		Load	0x0,0x7
0bfb 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0bfc a405       |    |		Store_Unchecked	0x2,0x5
0bfd			BODY_0be8:
0bfd 00d9       |    |		Load_Top	At_Offset_1
0bfe e007       |    |		Load	0x0,0x7
0bff 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0c00 00d9       |    |		Load_Top	At_Offset_1
0c01 e22f       | /  |		Load	0x1,0x2f
0c02 0092 15a8  |    |		Action	Push_String_Extended,0x15a8					; "Directory"
0c04 e5ff       |    |		Load	0x2,-0x1
0c05 e00c       |    |		Load	0x0,0xc
0c06 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0c07 01cc       |    |		Execute	Vector,Catenate
0c08 0092 1583  |    |		Action	Push_String_Extended,0x1583					; "Response"
0c0a 01cc       |    |		Execute	Vector,Catenate
0c0b e5fe       |    |		Load	0x2,-0x2
0c0c e00c       |    |		Load	0x0,0xc
0c0d 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0c0e 01cc       |    |		Execute	Vector,Catenate
0c0f e402       |    |		Load	0x2,0x2
0c10 e00c       |    |		Load	0x0,0xc
0c11 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0c12 00d9       |    |		Load_Top	At_Offset_1
0c13 e00d       |    |		Load	0x0,0xd
0c14 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0c15 e006       |    |		Load	0x0,0x6
0c16 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0c17 4800       |H   |		Short_Literal	0x0
0c18 00db       |    |		Load_Top	At_Offset_3
0c19 e5ff       |    |		Load	0x2,-0x1
0c1a e014       |    |		Load	0x0,0x14
0c1b 188c       |    |		Execute	Package,Field_Execute,Field_Number 0x8c
0c1c 005b       | [  |		Store_Top	Discrete,At_Offset_3
0c1d 4800       |H   |		Short_Literal	0x0
0c1e 00db       |    |		Load_Top	At_Offset_3
0c1f e006       |    |		Load	0x0,0x6
0c20 1847       | G  |		Execute	Package,Field_Execute,Field_Number 0x47
0c21 7003       |p   |		Jump_Nonzero	0xc25
0c22 e006       |    |		Load	0x0,0x6
0c23 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
0c24 0257       | W  |		Execute	Discrete,Raise
0c25 00d9       |    |		Load_Top	At_Offset_1
0c26 e22f       | /  |		Load	0x1,0x2f
0c27 e402       |    |		Load	0x2,0x2
0c28 e403       |    |		Load	0x2,0x3
0c29 e00c       |    |		Load	0x0,0xc
0c2a 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0c2b 00d8       |    |		Load_Top	At_Offset_0
0c2c e007       |    |		Load	0x0,0x7
0c2d 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0c2e 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0c2f			TRAP_0be8:
0c2f e006       |    |		Load	0x0,0x6
0c30 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
0c31 010f       |    |		Execute	Exception,Equal
0c32 680a       |h   |		Jump_Zero	0xc3d
0c33 00da       |    |		Load_Top	At_Offset_2
0c34 e22f       | /  |		Load	0x1,0x2f
0c35 e402       |    |		Load	0x2,0x2
0c36 e403       |    |		Load	0x2,0x3
0c37 e00c       |    |		Load	0x0,0xc
0c38 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0c39 00d9       |    |		Load_Top	At_Offset_1
0c3a e007       |    |		Load	0x0,0x7
0c3b 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0c3c 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0c3d 4884       |H   |		Short_Literal	0x84
0c3e 010f       |    |		Execute	Exception,Equal
0c3f 680a       |h   |		Jump_Zero	0xc4a
0c40 00da       |    |		Load_Top	At_Offset_2
0c41 e22f       | /  |		Load	0x1,0x2f
0c42 e402       |    |		Load	0x2,0x2
0c43 e403       |    |		Load	0x2,0x3
0c44 e00c       |    |		Load	0x0,0xc
0c45 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0c46 00d9       |    |		Load_Top	At_Offset_1
0c47 e007       |    |		Load	0x0,0x7
0c48 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0c49 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0c4a e006       |    |		Load	0x0,0x6
0c4b 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
0c4c 010f       |    |		Execute	Exception,Equal
0c4d 680b       |h   |		Jump_Zero	0xc59
0c4e 00da       |    |		Load_Top	At_Offset_2
0c4f e22f       | /  |		Load	0x1,0x2f
0c50 e402       |    |		Load	0x2,0x2
0c51 e403       |    |		Load	0x2,0x3
0c52 e00c       |    |		Load	0x0,0xc
0c53 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0c54 00d9       |    |		Load_Top	At_Offset_1
0c55 e007       |    |		Load	0x0,0x7
0c56 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0c57 00d8       |    |		Load_Top	At_Offset_0
0c58 0101       |    |		Execute	Exception,Reraise
0c59 00da       |    |		Load_Top	At_Offset_2
0c5a e22f       | /  |		Load	0x1,0x2f
0c5b e402       |    |		Load	0x2,0x2
0c5c e403       |    |		Load	0x2,0x3
0c5d e00c       |    |		Load	0x0,0xc
0c5e 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0c5f 00d9       |    |		Load_Top	At_Offset_1
0c60 e007       |    |		Load	0x0,0x7
0c61 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0c62 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0c63 0000 0000  |    |		.BLANK	0000[0x5]
0c68 ; --------------------------------------------------------------------------------------
0c68 ; SUBPROGRAM
0c68 ; --------------------------------------------------------------------------------------
0c68 0c87       |    |		.CONST	0x0c87								; Address of begin
0c69 0cfe       |    |		.CONST	0x0cfe								; Address of exception handler
0c6a 0007       |    |		.CONST	0x0007								; Number of locals
0c6b			INIT_0c68:
0c6b 0092 15aa  |    |		Action	Push_String_Extended,0x15aa					; "Build_Script"
0c6d e006       |    |		Load	0x0,0x6
0c6e 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0c6f 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0c70 e007       |    |		Load	0x0,0x7
0c71 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0c72 02c7       |    |		Declare_Variable	Any
0c73 e5f5       |    |		Load	0x2,-0xb
0c74 e007       |    |		Load	0x0,0x7
0c75 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
0c76 a404       |    |		Store_Unchecked	0x2,0x4
0c77 e009       |    |		Load	0x0,0x9
0c78 1b1a       |    |		Execute	Package,Field_Read,Field_Number 0x1a
0c79 02c7       |    |		Declare_Variable	Any
0c7a 00d8       |    |		Load_Top	At_Offset_0
0c7b 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0c7c e027       | '  |		Load	0x0,0x27
0c7d 1b62       | b  |		Execute	Package,Field_Read,Field_Number 0x62
0c7e 02c7       |    |		Declare_Variable	Any
0c7f 00d8       |    |		Load_Top	At_Offset_0
0c80 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0c81 e007       |    |		Load	0x0,0x7
0c82 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0c83 02c7       |    |		Declare_Variable	Any
0c84 e007       |    |		Load	0x0,0x7
0c85 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0c86 a407       |    |		Store_Unchecked	0x2,0x7
0c87			BODY_0c68:
0c87 00db       |    |		Load_Top	At_Offset_3
0c88 e007       |    |		Load	0x0,0x7
0c89 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0c8a 00db       |    |		Load_Top	At_Offset_3
0c8b e22f       | /  |		Load	0x1,0x2f
0c8c 0092 15ab  |    |		Action	Push_String_Extended,0x15ab					; "Host_Units"
0c8e e5ff       |    |		Load	0x2,-0x1
0c8f e00c       |    |		Load	0x0,0xc
0c90 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0c91 01cc       |    |		Execute	Vector,Catenate
0c92 0092 15ac  |    |		Action	Push_String_Extended,0x15ac					; "Link_Main_Units => "
0c94 01cc       |    |		Execute	Vector,Catenate
0c95 e5fe       |    |		Load	0x2,-0x2
0c96 00e1       |    |		Load_Encached	Boolean_Cache
0c97 011c       |    |		Execute	Any,Convert_Unchecked
0c98 1c01       |    |		Execute_Immediate	Run_Utility,0x1
0c99 01cc       |    |		Execute	Vector,Catenate
0c9a 0092 15ad  |    |		Action	Push_String_Extended,0x15ad					; ", Transfer_To_Target => "
0c9c 01cc       |    |		Execute	Vector,Catenate
0c9d e5fd       |    |		Load	0x2,-0x3
0c9e 00e1       |    |		Load_Encached	Boolean_Cache
0c9f 011c       |    |		Execute	Any,Convert_Unchecked
0ca0 1c01       |    |		Execute_Immediate	Run_Utility,0x1
0ca1 01cc       |    |		Execute	Vector,Catenate
0ca2 0092 15ae  |    |		Action	Push_String_Extended,0x15ae					; ", Host_Script_File"
0ca4 01cc       |    |		Execute	Vector,Catenate
0ca5 e5fc       |    |		Load	0x2,-0x4
0ca6 e00c       |    |		Load	0x0,0xc
0ca7 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0ca8 01cc       |    |		Execute	Vector,Catenate
0ca9 0092 15af  |    |		Action	Push_String_Extended,0x15af					; "Remote_Script_File"
0cab 01cc       |    |		Execute	Vector,Catenate
0cac e5fb       |    |		Load	0x2,-0x5
0cad e00c       |    |		Load	0x0,0xc
0cae 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0caf 01cc       |    |		Execute	Vector,Catenate
0cb0 0092 15b0  |    |		Action	Push_String_Extended,0x15b0					; "Build_List_File"
0cb2 01cc       |    |		Execute	Vector,Catenate
0cb3 e5fa       |    |		Load	0x2,-0x6
0cb4 e00c       |    |		Load	0x0,0xc
0cb5 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0cb6 01cc       |    |		Execute	Vector,Catenate
0cb7 0092 15b1  |    |		Action	Push_String_Extended,0x15b1					; "Execute_Script => "
0cb9 01cc       |    |		Execute	Vector,Catenate
0cba e5f9       |    |		Load	0x2,-0x7
0cbb 00e1       |    |		Load_Encached	Boolean_Cache
0cbc 011c       |    |		Execute	Any,Convert_Unchecked
0cbd 1c01       |    |		Execute_Immediate	Run_Utility,0x1
0cbe 01cc       |    |		Execute	Vector,Catenate
0cbf 0092 15b2  |    |		Action	Push_String_Extended,0x15b2					; ", Effort_Only => "
0cc1 01cc       |    |		Execute	Vector,Catenate
0cc2 e5f8       |    |		Load	0x2,-0x8
0cc3 00e1       |    |		Load_Encached	Boolean_Cache
0cc4 011c       |    |		Execute	Any,Convert_Unchecked
0cc5 1c01       |    |		Execute_Immediate	Run_Utility,0x1
0cc6 01cc       |    |		Execute	Vector,Catenate
0cc7 0092 15b3  |    |		Action	Push_String_Extended,0x15b3					; ", Minimal_Recompilation => "
0cc9 01cc       |    |		Execute	Vector,Catenate
0cca e5f7       |    |		Load	0x2,-0x9
0ccb 00e1       |    |		Load_Encached	Boolean_Cache
0ccc 011c       |    |		Execute	Any,Convert_Unchecked
0ccd 1c01       |    |		Execute_Immediate	Run_Utility,0x1
0cce 01cc       |    |		Execute	Vector,Catenate
0ccf 0092 15b4  |    |		Action	Push_String_Extended,0x15b4					; ", Make_Units => "
0cd1 01cc       |    |		Execute	Vector,Catenate
0cd2 e5f6       |    |		Load	0x2,-0xa
0cd3 00e1       |    |		Load_Encached	Boolean_Cache
0cd4 011c       |    |		Execute	Any,Convert_Unchecked
0cd5 1c01       |    |		Execute_Immediate	Run_Utility,0x1
0cd6 01cc       |    |		Execute	Vector,Catenate
0cd7 0092 1580  |    |		Action	Push_String_Extended,0x1580					; ", Response"
0cd9 01cc       |    |		Execute	Vector,Catenate
0cda e5f5       |    |		Load	0x2,-0xb
0cdb e00c       |    |		Load	0x0,0xc
0cdc 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0cdd 01cc       |    |		Execute	Vector,Catenate
0cde e402       |    |		Load	0x2,0x2
0cdf e00c       |    |		Load	0x0,0xc
0ce0 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0ce1 00db       |    |		Load_Top	At_Offset_3
0ce2 e00d       |    |		Load	0x0,0xd
0ce3 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0ce4 e006       |    |		Load	0x0,0x6
0ce5 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0ce6 e404       |    |		Load	0x2,0x4
0ce7 e5f6       |    |		Load	0x2,-0xa
0ce8 e5f7       |    |		Load	0x2,-0x9
0ce9 e5f8       |    |		Load	0x2,-0x8
0cea e5f9       |    |		Load	0x2,-0x7
0ceb e5fa       |    |		Load	0x2,-0x6
0cec e5fb       |    |		Load	0x2,-0x5
0ced e5fc       |    |		Load	0x2,-0x4
0cee e5fd       |    |		Load	0x2,-0x3
0cef e5fe       |    |		Load	0x2,-0x2
0cf0 e5ff       |    |		Load	0x2,-0x1
0cf1 e236       | 6  |		Load	0x1,0x36
0cf2 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
0cf3 c403       |    |		Store	0x2,0x3
0cf4 00db       |    |		Load_Top	At_Offset_3
0cf5 e22f       | /  |		Load	0x1,0x2f
0cf6 e402       |    |		Load	0x2,0x2
0cf7 e403       |    |		Load	0x2,0x3
0cf8 e00c       |    |		Load	0x0,0xc
0cf9 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0cfa 00d8       |    |		Load_Top	At_Offset_0
0cfb e007       |    |		Load	0x0,0x7
0cfc 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0cfd 450c       |E   |		Exit_Suprogram	New_Top_Offset 0xc
0cfe			TRAP_0c68:
0cfe e006       |    |		Load	0x0,0x6
0cff 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
0d00 010f       |    |		Execute	Exception,Equal
0d01 680b       |h   |		Jump_Zero	0xd0d
0d02 e404       |    |		Load	0x2,0x4
0d03 e22f       | /  |		Load	0x1,0x2f
0d04 e402       |    |		Load	0x2,0x2
0d05 e403       |    |		Load	0x2,0x3
0d06 e00c       |    |		Load	0x0,0xc
0d07 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0d08 00d9       |    |		Load_Top	At_Offset_1
0d09 e007       |    |		Load	0x0,0x7
0d0a 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0d0b 00d8       |    |		Load_Top	At_Offset_0
0d0c 0101       |    |		Execute	Exception,Reraise
0d0d e404       |    |		Load	0x2,0x4
0d0e e22f       | /  |		Load	0x1,0x2f
0d0f e402       |    |		Load	0x2,0x2
0d10 e403       |    |		Load	0x2,0x3
0d11 e00c       |    |		Load	0x0,0xc
0d12 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0d13 00d9       |    |		Load_Top	At_Offset_1
0d14 e007       |    |		Load	0x0,0x7
0d15 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0d16 450c       |E   |		Exit_Suprogram	New_Top_Offset 0xc
0d17 0000       |    |		.XXX[0x1]
0d18 ; --------------------------------------------------------------------------------------
0d18 ; SUBPROGRAM
0d18 ; --------------------------------------------------------------------------------------
0d18 0d37       | 7  |		.CONST	0x0d37								; Address of begin
0d19 0dbc       |    |		.CONST	0x0dbc								; Address of exception handler
0d1a 0007       |    |		.CONST	0x0007								; Number of locals
0d1b			INIT_0d18:
0d1b 0092 15b5  |    |		Action	Push_String_Extended,0x15b5					; "Build_Script_Via_Tape"
0d1d e006       |    |		Load	0x0,0x6
0d1e 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0d1f 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0d20 e007       |    |		Load	0x0,0x7
0d21 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0d22 02c7       |    |		Declare_Variable	Any
0d23 e5f3       |    |		Load	0x2,-0xd
0d24 e007       |    |		Load	0x0,0x7
0d25 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
0d26 a404       |    |		Store_Unchecked	0x2,0x4
0d27 e009       |    |		Load	0x0,0x9
0d28 1b1a       |    |		Execute	Package,Field_Read,Field_Number 0x1a
0d29 02c7       |    |		Declare_Variable	Any
0d2a 00d8       |    |		Load_Top	At_Offset_0
0d2b 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0d2c e027       | '  |		Load	0x0,0x27
0d2d 1b62       | b  |		Execute	Package,Field_Read,Field_Number 0x62
0d2e 02c7       |    |		Declare_Variable	Any
0d2f 00d8       |    |		Load_Top	At_Offset_0
0d30 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0d31 e007       |    |		Load	0x0,0x7
0d32 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0d33 02c7       |    |		Declare_Variable	Any
0d34 e007       |    |		Load	0x0,0x7
0d35 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0d36 a407       |    |		Store_Unchecked	0x2,0x7
0d37			BODY_0d18:
0d37 00db       |    |		Load_Top	At_Offset_3
0d38 e007       |    |		Load	0x0,0x7
0d39 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0d3a 00db       |    |		Load_Top	At_Offset_3
0d3b e22f       | /  |		Load	0x1,0x2f
0d3c 0092 15ab  |    |		Action	Push_String_Extended,0x15ab					; "Host_Units"
0d3e e5ff       |    |		Load	0x2,-0x1
0d3f e00c       |    |		Load	0x0,0xc
0d40 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0d41 01cc       |    |		Execute	Vector,Catenate
0d42 0092 15ac  |    |		Action	Push_String_Extended,0x15ac					; "Link_Main_Units => "
0d44 01cc       |    |		Execute	Vector,Catenate
0d45 e5fe       |    |		Load	0x2,-0x2
0d46 00e1       |    |		Load_Encached	Boolean_Cache
0d47 011c       |    |		Execute	Any,Convert_Unchecked
0d48 1c01       |    |		Execute_Immediate	Run_Utility,0x1
0d49 01cc       |    |		Execute	Vector,Catenate
0d4a 0092 15ae  |    |		Action	Push_String_Extended,0x15ae					; ", Host_Script_File"
0d4c 01cc       |    |		Execute	Vector,Catenate
0d4d e5fd       |    |		Load	0x2,-0x3
0d4e e00c       |    |		Load	0x0,0xc
0d4f 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0d50 01cc       |    |		Execute	Vector,Catenate
0d51 0092 15af  |    |		Action	Push_String_Extended,0x15af					; "Remote_Script_File"
0d53 01cc       |    |		Execute	Vector,Catenate
0d54 e5fc       |    |		Load	0x2,-0x4
0d55 e00c       |    |		Load	0x0,0xc
0d56 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0d57 01cc       |    |		Execute	Vector,Catenate
0d58 0092 15b0  |    |		Action	Push_String_Extended,0x15b0					; "Build_List_File"
0d5a 01cc       |    |		Execute	Vector,Catenate
0d5b e5fb       |    |		Load	0x2,-0x5
0d5c e00c       |    |		Load	0x0,0xc
0d5d 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0d5e 01cc       |    |		Execute	Vector,Catenate
0d5f 0092 15b6  |    |		Action	Push_String_Extended,0x15b6					; "Format"
0d61 01cc       |    |		Execute	Vector,Catenate
0d62 e5fa       |    |		Load	0x2,-0x6
0d63 e00c       |    |		Load	0x0,0xc
0d64 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0d65 01cc       |    |		Execute	Vector,Catenate
0d66 0092 15b7  |    |		Action	Push_String_Extended,0x15b7					; "Volume"
0d68 01cc       |    |		Execute	Vector,Catenate
0d69 e5f9       |    |		Load	0x2,-0x7
0d6a e00c       |    |		Load	0x0,0xc
0d6b 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0d6c 01cc       |    |		Execute	Vector,Catenate
0d6d 0092 15b8  |    |		Action	Push_String_Extended,0x15b8					; "Label"
0d6f 01cc       |    |		Execute	Vector,Catenate
0d70 e5f8       |    |		Load	0x2,-0x8
0d71 e00c       |    |		Load	0x0,0xc
0d72 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0d73 01cc       |    |		Execute	Vector,Catenate
0d74 0092 15b9  |    |		Action	Push_String_Extended,0x15b9					; "Logical_Device"
0d76 01cc       |    |		Execute	Vector,Catenate
0d77 e5f7       |    |		Load	0x2,-0x9
0d78 e00c       |    |		Load	0x0,0xc
0d79 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0d7a 01cc       |    |		Execute	Vector,Catenate
0d7b 0092 15ba  |    |		Action	Push_String_Extended,0x15ba					; "Effort_Only => "
0d7d 01cc       |    |		Execute	Vector,Catenate
0d7e e5f6       |    |		Load	0x2,-0xa
0d7f 00e1       |    |		Load_Encached	Boolean_Cache
0d80 011c       |    |		Execute	Any,Convert_Unchecked
0d81 1c01       |    |		Execute_Immediate	Run_Utility,0x1
0d82 01cc       |    |		Execute	Vector,Catenate
0d83 0092 15b3  |    |		Action	Push_String_Extended,0x15b3					; ", Minimal_Recompilation => "
0d85 01cc       |    |		Execute	Vector,Catenate
0d86 e5f5       |    |		Load	0x2,-0xb
0d87 00e1       |    |		Load_Encached	Boolean_Cache
0d88 011c       |    |		Execute	Any,Convert_Unchecked
0d89 1c01       |    |		Execute_Immediate	Run_Utility,0x1
0d8a 01cc       |    |		Execute	Vector,Catenate
0d8b 0092 15b4  |    |		Action	Push_String_Extended,0x15b4					; ", Make_Units => "
0d8d 01cc       |    |		Execute	Vector,Catenate
0d8e e5f4       |    |		Load	0x2,-0xc
0d8f 00e1       |    |		Load_Encached	Boolean_Cache
0d90 011c       |    |		Execute	Any,Convert_Unchecked
0d91 1c01       |    |		Execute_Immediate	Run_Utility,0x1
0d92 01cc       |    |		Execute	Vector,Catenate
0d93 0092 1580  |    |		Action	Push_String_Extended,0x1580					; ", Response"
0d95 01cc       |    |		Execute	Vector,Catenate
0d96 e5f3       |    |		Load	0x2,-0xd
0d97 e00c       |    |		Load	0x0,0xc
0d98 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0d99 01cc       |    |		Execute	Vector,Catenate
0d9a e402       |    |		Load	0x2,0x2
0d9b e00c       |    |		Load	0x0,0xc
0d9c 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0d9d 00db       |    |		Load_Top	At_Offset_3
0d9e e00d       |    |		Load	0x0,0xd
0d9f 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0da0 e006       |    |		Load	0x0,0x6
0da1 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0da2 e404       |    |		Load	0x2,0x4
0da3 e5f4       |    |		Load	0x2,-0xc
0da4 e5f5       |    |		Load	0x2,-0xb
0da5 e5f6       |    |		Load	0x2,-0xa
0da6 e5f7       |    |		Load	0x2,-0x9
0da7 e5f8       |    |		Load	0x2,-0x8
0da8 e5f9       |    |		Load	0x2,-0x7
0da9 e5fa       |    |		Load	0x2,-0x6
0daa e5fb       |    |		Load	0x2,-0x5
0dab e5fc       |    |		Load	0x2,-0x4
0dac e5fd       |    |		Load	0x2,-0x3
0dad e5fe       |    |		Load	0x2,-0x2
0dae e5ff       |    |		Load	0x2,-0x1
0daf e236       | 6  |		Load	0x1,0x36
0db0 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0db1 c403       |    |		Store	0x2,0x3
0db2 00db       |    |		Load_Top	At_Offset_3
0db3 e22f       | /  |		Load	0x1,0x2f
0db4 e402       |    |		Load	0x2,0x2
0db5 e403       |    |		Load	0x2,0x3
0db6 e00c       |    |		Load	0x0,0xc
0db7 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0db8 00d8       |    |		Load_Top	At_Offset_0
0db9 e007       |    |		Load	0x0,0x7
0dba 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0dbb 450e       |E   |		Exit_Suprogram	New_Top_Offset 0xe
0dbc			TRAP_0d18:
0dbc e006       |    |		Load	0x0,0x6
0dbd 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
0dbe 010f       |    |		Execute	Exception,Equal
0dbf 680b       |h   |		Jump_Zero	0xdcb
0dc0 e404       |    |		Load	0x2,0x4
0dc1 e22f       | /  |		Load	0x1,0x2f
0dc2 e402       |    |		Load	0x2,0x2
0dc3 e403       |    |		Load	0x2,0x3
0dc4 e00c       |    |		Load	0x0,0xc
0dc5 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0dc6 00d9       |    |		Load_Top	At_Offset_1
0dc7 e007       |    |		Load	0x0,0x7
0dc8 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0dc9 00d8       |    |		Load_Top	At_Offset_0
0dca 0101       |    |		Execute	Exception,Reraise
0dcb e404       |    |		Load	0x2,0x4
0dcc e22f       | /  |		Load	0x1,0x2f
0dcd e402       |    |		Load	0x2,0x2
0dce e403       |    |		Load	0x2,0x3
0dcf e00c       |    |		Load	0x0,0xc
0dd0 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0dd1 00d9       |    |		Load_Top	At_Offset_1
0dd2 e007       |    |		Load	0x0,0x7
0dd3 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0dd4 450e       |E   |		Exit_Suprogram	New_Top_Offset 0xe
0dd5 0000 0000  |    |		.XXX[0x3]
0dd7 0000       |    |
0dd8 ; --------------------------------------------------------------------------------------
0dd8 ; SUBPROGRAM
0dd8 ; --------------------------------------------------------------------------------------
0dd8 0ded       |    |		.CONST	0x0ded								; Address of begin
0dd9 0e1f       |    |		.CONST	0x0e1f								; Address of exception handler
0dda 0005       |    |		.CONST	0x0005								; Number of locals
0ddb			INIT_0dd8:
0ddb e007       |    |		Load	0x0,0x7
0ddc 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0ddd 02c7       |    |		Declare_Variable	Any
0dde e5fd       |    |		Load	0x2,-0x3
0ddf e007       |    |		Load	0x0,0x7
0de0 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
0de1 a402       |    |		Store_Unchecked	0x2,0x2
0de2 0092 15bb  |    |		Action	Push_String_Extended,0x15bb					; "Upload_Associated_Files"
0de4 e006       |    |		Load	0x0,0x6
0de5 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0de6 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0de7 e007       |    |		Load	0x0,0x7
0de8 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0de9 02c7       |    |		Declare_Variable	Any
0dea e007       |    |		Load	0x0,0x7
0deb 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0dec a405       |    |		Store_Unchecked	0x2,0x5
0ded			BODY_0dd8:
0ded 00db       |    |		Load_Top	At_Offset_3
0dee e007       |    |		Load	0x0,0x7
0def 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0df0 00db       |    |		Load_Top	At_Offset_3
0df1 e22f       | /  |		Load	0x1,0x2f
0df2 0092 1599  |    |		Action	Push_String_Extended,0x1599					; "Units"
0df4 e5ff       |    |		Load	0x2,-0x1
0df5 e00c       |    |		Load	0x0,0xc
0df6 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0df7 01cc       |    |		Execute	Vector,Catenate
0df8 0092 15ba  |    |		Action	Push_String_Extended,0x15ba					; "Effort_Only => "
0dfa 01cc       |    |		Execute	Vector,Catenate
0dfb e5fe       |    |		Load	0x2,-0x2
0dfc 00e1       |    |		Load_Encached	Boolean_Cache
0dfd 011c       |    |		Execute	Any,Convert_Unchecked
0dfe 1c01       |    |		Execute_Immediate	Run_Utility,0x1
0dff 01cc       |    |		Execute	Vector,Catenate
0e00 0092 1580  |    |		Action	Push_String_Extended,0x1580					; ", Response"
0e02 01cc       |    |		Execute	Vector,Catenate
0e03 e5fd       |    |		Load	0x2,-0x3
0e04 e00c       |    |		Load	0x0,0xc
0e05 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0e06 01cc       |    |		Execute	Vector,Catenate
0e07 e403       |    |		Load	0x2,0x3
0e08 e00c       |    |		Load	0x0,0xc
0e09 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0e0a 00db       |    |		Load_Top	At_Offset_3
0e0b e00d       |    |		Load	0x0,0xd
0e0c 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0e0d e006       |    |		Load	0x0,0x6
0e0e 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0e0f e402       |    |		Load	0x2,0x2
0e10 e5fe       |    |		Load	0x2,-0x2
0e11 e5ff       |    |		Load	0x2,-0x1
0e12 e236       | 6  |		Load	0x1,0x36
0e13 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0e14 005a       | Z  |		Store_Top	Discrete,At_Offset_2
0e15 00db       |    |		Load_Top	At_Offset_3
0e16 e22f       | /  |		Load	0x1,0x2f
0e17 e403       |    |		Load	0x2,0x3
0e18 e404       |    |		Load	0x2,0x4
0e19 e00c       |    |		Load	0x0,0xc
0e1a 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0e1b 00d8       |    |		Load_Top	At_Offset_0
0e1c e007       |    |		Load	0x0,0x7
0e1d 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0e1e 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0e1f			TRAP_0dd8:
0e1f e006       |    |		Load	0x0,0x6
0e20 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
0e21 010f       |    |		Execute	Exception,Equal
0e22 680b       |h   |		Jump_Zero	0xe2e
0e23 e402       |    |		Load	0x2,0x2
0e24 e22f       | /  |		Load	0x1,0x2f
0e25 e403       |    |		Load	0x2,0x3
0e26 e404       |    |		Load	0x2,0x4
0e27 e00c       |    |		Load	0x0,0xc
0e28 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0e29 00d9       |    |		Load_Top	At_Offset_1
0e2a e007       |    |		Load	0x0,0x7
0e2b 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0e2c 00d8       |    |		Load_Top	At_Offset_0
0e2d 0101       |    |		Execute	Exception,Reraise
0e2e e402       |    |		Load	0x2,0x2
0e2f e22f       | /  |		Load	0x1,0x2f
0e30 e403       |    |		Load	0x2,0x3
0e31 e404       |    |		Load	0x2,0x4
0e32 e00c       |    |		Load	0x0,0xc
0e33 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0e34 00d9       |    |		Load_Top	At_Offset_1
0e35 e007       |    |		Load	0x0,0x7
0e36 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0e37 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0e38 ; --------------------------------------------------------------------------------------
0e38 ; SUBPROGRAM
0e38 ; --------------------------------------------------------------------------------------
0e38 0e4d       | M  |		.CONST	0x0e4d								; Address of begin
0e39 0e88       |    |		.CONST	0x0e88								; Address of exception handler
0e3a 0005       |    |		.CONST	0x0005								; Number of locals
0e3b			INIT_0e38:
0e3b e007       |    |		Load	0x0,0x7
0e3c 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0e3d 02c7       |    |		Declare_Variable	Any
0e3e e5fc       |    |		Load	0x2,-0x4
0e3f e007       |    |		Load	0x0,0x7
0e40 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
0e41 a402       |    |		Store_Unchecked	0x2,0x2
0e42 0092 15bc  |    |		Action	Push_String_Extended,0x15bc					; "Show_Build_State"
0e44 e006       |    |		Load	0x0,0x6
0e45 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0e46 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0e47 e007       |    |		Load	0x0,0x7
0e48 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0e49 02c7       |    |		Declare_Variable	Any
0e4a e007       |    |		Load	0x0,0x7
0e4b 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0e4c a405       |    |		Store_Unchecked	0x2,0x5
0e4d			BODY_0e38:
0e4d 00db       |    |		Load_Top	At_Offset_3
0e4e e007       |    |		Load	0x0,0x7
0e4f 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0e50 00db       |    |		Load_Top	At_Offset_3
0e51 e22f       | /  |		Load	0x1,0x2f
0e52 0092 15ab  |    |		Action	Push_String_Extended,0x15ab					; "Host_Units"
0e54 e5ff       |    |		Load	0x2,-0x1
0e55 e00c       |    |		Load	0x0,0xc
0e56 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0e57 01cc       |    |		Execute	Vector,Catenate
0e58 0092 15bd  |    |		Action	Push_String_Extended,0x15bd					; "Execution_Closure => "
0e5a 01cc       |    |		Execute	Vector,Catenate
0e5b e5fe       |    |		Load	0x2,-0x2
0e5c 00e1       |    |		Load_Encached	Boolean_Cache
0e5d 011c       |    |		Execute	Any,Convert_Unchecked
0e5e 1c01       |    |		Execute_Immediate	Run_Utility,0x1
0e5f 01cc       |    |		Execute	Vector,Catenate
0e60 0092 15be  |    |		Action	Push_String_Extended,0x15be					; ", Obsolete_Units_Only => "
0e62 01cc       |    |		Execute	Vector,Catenate
0e63 e5fd       |    |		Load	0x2,-0x3
0e64 00e1       |    |		Load_Encached	Boolean_Cache
0e65 011c       |    |		Execute	Any,Convert_Unchecked
0e66 1c01       |    |		Execute_Immediate	Run_Utility,0x1
0e67 01cc       |    |		Execute	Vector,Catenate
0e68 0092 1580  |    |		Action	Push_String_Extended,0x1580					; ", Response"
0e6a 01cc       |    |		Execute	Vector,Catenate
0e6b e5fc       |    |		Load	0x2,-0x4
0e6c e00c       |    |		Load	0x0,0xc
0e6d 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0e6e 01cc       |    |		Execute	Vector,Catenate
0e6f e403       |    |		Load	0x2,0x3
0e70 e00c       |    |		Load	0x0,0xc
0e71 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0e72 00db       |    |		Load_Top	At_Offset_3
0e73 e00d       |    |		Load	0x0,0xd
0e74 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0e75 e006       |    |		Load	0x0,0x6
0e76 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0e77 e402       |    |		Load	0x2,0x2
0e78 e5fd       |    |		Load	0x2,-0x3
0e79 e5fe       |    |		Load	0x2,-0x2
0e7a e5ff       |    |		Load	0x2,-0x1
0e7b e236       | 6  |		Load	0x1,0x36
0e7c 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0e7d 005a       | Z  |		Store_Top	Discrete,At_Offset_2
0e7e 00db       |    |		Load_Top	At_Offset_3
0e7f e22f       | /  |		Load	0x1,0x2f
0e80 e403       |    |		Load	0x2,0x3
0e81 e404       |    |		Load	0x2,0x4
0e82 e00c       |    |		Load	0x0,0xc
0e83 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0e84 00d8       |    |		Load_Top	At_Offset_0
0e85 e007       |    |		Load	0x0,0x7
0e86 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0e87 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
0e88			TRAP_0e38:
0e88 e006       |    |		Load	0x0,0x6
0e89 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
0e8a 010f       |    |		Execute	Exception,Equal
0e8b 680b       |h   |		Jump_Zero	0xe97
0e8c e402       |    |		Load	0x2,0x2
0e8d e22f       | /  |		Load	0x1,0x2f
0e8e e403       |    |		Load	0x2,0x3
0e8f e404       |    |		Load	0x2,0x4
0e90 e00c       |    |		Load	0x0,0xc
0e91 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0e92 00d9       |    |		Load_Top	At_Offset_1
0e93 e007       |    |		Load	0x0,0x7
0e94 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0e95 00d8       |    |		Load_Top	At_Offset_0
0e96 0101       |    |		Execute	Exception,Reraise
0e97 e402       |    |		Load	0x2,0x2
0e98 e22f       | /  |		Load	0x1,0x2f
0e99 e403       |    |		Load	0x2,0x3
0e9a e404       |    |		Load	0x2,0x4
0e9b e00c       |    |		Load	0x0,0xc
0e9c 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0e9d 00d9       |    |		Load_Top	At_Offset_1
0e9e e007       |    |		Load	0x0,0x7
0e9f 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0ea0 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
0ea1 0000 0000  |    |		.BLANK	0000[0x7]
0ea8 ; --------------------------------------------------------------------------------------
0ea8 ; SUBPROGRAM
0ea8 ; --------------------------------------------------------------------------------------
0ea8 0ec4       |    |		.CONST	0x0ec4								; Address of begin
0ea9 0f34       | 4  |		.CONST	0x0f34								; Address of exception handler
0eaa 0007       |    |		.CONST	0x0007								; Number of locals
0eab			INIT_0ea8:
0eab e007       |    |		Load	0x0,0x7
0eac 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0ead 02c7       |    |		Declare_Variable	Any
0eae e5f6       |    |		Load	0x2,-0xa
0eaf e007       |    |		Load	0x0,0x7
0eb0 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
0eb1 a402       |    |		Store_Unchecked	0x2,0x2
0eb2 0092 15bf  |    |		Action	Push_String_Extended,0x15bf					; "Execute_Script"
0eb4 e006       |    |		Load	0x0,0x6
0eb5 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0eb6 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0eb7 e008       |    |		Load	0x0,0x8
0eb8 1b2e       | .  |		Execute	Package,Field_Read,Field_Number 0x2e
0eb9 0322       | "  |		Declare_Variable	Record
0eba 00d8       |    |		Load_Top	At_Offset_0
0ebb 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0ebc e007       |    |		Load	0x0,0x7
0ebd 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0ebe 02c7       |    |		Declare_Variable	Any
0ebf e007       |    |		Load	0x0,0x7
0ec0 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0ec1 a406       |    |		Store_Unchecked	0x2,0x6
0ec2 029f 145b  |   [|		Declare_Subprogram	INIT_1458,For_Call
0ec4			BODY_0ea8:
0ec4 e402       |    |		Load	0x2,0x2
0ec5 e007       |    |		Load	0x0,0x7
0ec6 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0ec7 e402       |    |		Load	0x2,0x2
0ec8 e22f       | /  |		Load	0x1,0x2f
0ec9 0092 15c0  |    |		Action	Push_String_Extended,0x15c0					; "Host_Script_File"
0ecb e5ff       |    |		Load	0x2,-0x1
0ecc e00c       |    |		Load	0x0,0xc
0ecd 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0ece 01cc       |    |		Execute	Vector,Catenate
0ecf 0092 15af  |    |		Action	Push_String_Extended,0x15af					; "Remote_Script_File"
0ed1 01cc       |    |		Execute	Vector,Catenate
0ed2 e5fe       |    |		Load	0x2,-0x2
0ed3 e00c       |    |		Load	0x0,0xc
0ed4 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0ed5 01cc       |    |		Execute	Vector,Catenate
0ed6 0092 15a2  |    |		Action	Push_String_Extended,0x15a2					; "Remote_Machine"
0ed8 01cc       |    |		Execute	Vector,Catenate
0ed9 e5fd       |    |		Load	0x2,-0x3
0eda e00c       |    |		Load	0x0,0xc
0edb 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0edc 01cc       |    |		Execute	Vector,Catenate
0edd 0092 15a3  |    |		Action	Push_String_Extended,0x15a3					; "Remote_Username"
0edf 01cc       |    |		Execute	Vector,Catenate
0ee0 e5fc       |    |		Load	0x2,-0x4
0ee1 e00c       |    |		Load	0x0,0xc
0ee2 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0ee3 01cc       |    |		Execute	Vector,Catenate
0ee4 0092 15a4  |    |		Action	Push_String_Extended,0x15a4					; "Remote_Password"
0ee6 01cc       |    |		Execute	Vector,Catenate
0ee7 e5fb       |    |		Load	0x2,-0x5
0ee8 e00c       |    |		Load	0x0,0xc
0ee9 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0eea 01cc       |    |		Execute	Vector,Catenate
0eeb 0092 15a5  |    |		Action	Push_String_Extended,0x15a5					; "Remote_Directory"
0eed 01cc       |    |		Execute	Vector,Catenate
0eee e5fa       |    |		Load	0x2,-0x6
0eef e00c       |    |		Load	0x0,0xc
0ef0 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0ef1 01cc       |    |		Execute	Vector,Catenate
0ef2 0092 15ba  |    |		Action	Push_String_Extended,0x15ba					; "Effort_Only => "
0ef4 01cc       |    |		Execute	Vector,Catenate
0ef5 e5f9       |    |		Load	0x2,-0x7
0ef6 00e1       |    |		Load_Encached	Boolean_Cache
0ef7 011c       |    |		Execute	Any,Convert_Unchecked
0ef8 1c01       |    |		Execute_Immediate	Run_Utility,0x1
0ef9 01cc       |    |		Execute	Vector,Catenate
0efa 0092 15c1  |    |		Action	Push_String_Extended,0x15c1					; ", Display_Remote_Commands => "
0efc 01cc       |    |		Execute	Vector,Catenate
0efd e5f8       |    |		Load	0x2,-0x8
0efe 00e1       |    |		Load_Encached	Boolean_Cache
0eff 011c       |    |		Execute	Any,Convert_Unchecked
0f00 1c01       |    |		Execute_Immediate	Run_Utility,0x1
0f01 01cc       |    |		Execute	Vector,Catenate
0f02 0092 15c2  |    |		Action	Push_String_Extended,0x15c2					; ", The_Key"
0f04 01cc       |    |		Execute	Vector,Catenate
0f05 e5f7       |    |		Load	0x2,-0x9
0f06 e00c       |    |		Load	0x0,0xc
0f07 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0f08 01cc       |    |		Execute	Vector,Catenate
0f09 0092 1583  |    |		Action	Push_String_Extended,0x1583					; "Response"
0f0b 01cc       |    |		Execute	Vector,Catenate
0f0c e5f6       |    |		Load	0x2,-0xa
0f0d e00c       |    |		Load	0x0,0xc
0f0e 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0f0f 01cc       |    |		Execute	Vector,Catenate
0f10 e403       |    |		Load	0x2,0x3
0f11 e00c       |    |		Load	0x0,0xc
0f12 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0f13 e402       |    |		Load	0x2,0x2
0f14 e00d       |    |		Load	0x0,0xd
0f15 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0f16 8407       |    |		Call	0x2,0x7
0f17 e006       |    |		Load	0x0,0x6
0f18 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0f19 e402       |    |		Load	0x2,0x2
0f1a e5f9       |    |		Load	0x2,-0x7
0f1b e405       |    |		Load	0x2,0x5
0f1c e5f8       |    |		Load	0x2,-0x8
0f1d e5fa       |    |		Load	0x2,-0x6
0f1e 8238       | 8  |		Call	0x1,0x38
0f1f e5fb       |    |		Load	0x2,-0x5
0f20 823b       | ;  |		Call	0x1,0x3b
0f21 e5fc       |    |		Load	0x2,-0x4
0f22 823a       | :  |		Call	0x1,0x3a
0f23 e5fd       |    |		Load	0x2,-0x3
0f24 8239       | 9  |		Call	0x1,0x39
0f25 e5fe       |    |		Load	0x2,-0x2
0f26 e5ff       |    |		Load	0x2,-0x1
0f27 e236       | 6  |		Load	0x1,0x36
0f28 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0f29 c404       |    |		Store	0x2,0x4
0f2a e402       |    |		Load	0x2,0x2
0f2b e22f       | /  |		Load	0x1,0x2f
0f2c e403       |    |		Load	0x2,0x3
0f2d e404       |    |		Load	0x2,0x4
0f2e e00c       |    |		Load	0x0,0xc
0f2f 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0f30 00d9       |    |		Load_Top	At_Offset_1
0f31 e007       |    |		Load	0x0,0x7
0f32 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0f33 450b       |E   |		Exit_Suprogram	New_Top_Offset 0xb
0f34			TRAP_0ea8:
0f34 e006       |    |		Load	0x0,0x6
0f35 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
0f36 010f       |    |		Execute	Exception,Equal
0f37 680b       |h   |		Jump_Zero	0xf43
0f38 e402       |    |		Load	0x2,0x2
0f39 e22f       | /  |		Load	0x1,0x2f
0f3a e403       |    |		Load	0x2,0x3
0f3b e404       |    |		Load	0x2,0x4
0f3c e00c       |    |		Load	0x0,0xc
0f3d 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0f3e 00da       |    |		Load_Top	At_Offset_2
0f3f e007       |    |		Load	0x0,0x7
0f40 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0f41 00d8       |    |		Load_Top	At_Offset_0
0f42 0101       |    |		Execute	Exception,Reraise
0f43 e402       |    |		Load	0x2,0x2
0f44 e22f       | /  |		Load	0x1,0x2f
0f45 e403       |    |		Load	0x2,0x3
0f46 e404       |    |		Load	0x2,0x4
0f47 e00c       |    |		Load	0x0,0xc
0f48 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0f49 00da       |    |		Load_Top	At_Offset_2
0f4a e007       |    |		Load	0x0,0x7
0f4b 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0f4c 450b       |E   |		Exit_Suprogram	New_Top_Offset 0xb
0f4d 0000 0000  |    |		.XXX[0x3]
0f4f 0000       |    |
0f50 ; --------------------------------------------------------------------------------------
0f50 ; SUBPROGRAM
0f50 ; --------------------------------------------------------------------------------------
0f50 0f6a       | j  |		.CONST	0x0f6a								; Address of begin
0f51 0fa4       |    |		.CONST	0x0fa4								; Address of exception handler
0f52 0006       |    |		.CONST	0x0006								; Number of locals
0f53			INIT_0f50:
0f53 e007       |    |		Load	0x0,0x7
0f54 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0f55 02c7       |    |		Declare_Variable	Any
0f56 e5fc       |    |		Load	0x2,-0x4
0f57 e007       |    |		Load	0x0,0x7
0f58 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
0f59 a402       |    |		Store_Unchecked	0x2,0x2
0f5a 0092 15c3  |    |		Action	Push_String_Extended,0x15c3					; "Transfer_Units"
0f5c e006       |    |		Load	0x0,0x6
0f5d 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0f5e 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0f5f e008       |    |		Load	0x0,0x8
0f60 1b2e       | .  |		Execute	Package,Field_Read,Field_Number 0x2e
0f61 0322       | "  |		Declare_Variable	Record
0f62 00d8       |    |		Load_Top	At_Offset_0
0f63 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0f64 e007       |    |		Load	0x0,0x7
0f65 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0f66 02c7       |    |		Declare_Variable	Any
0f67 e007       |    |		Load	0x0,0x7
0f68 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0f69 a406       |    |		Store_Unchecked	0x2,0x6
0f6a			BODY_0f50:
0f6a e402       |    |		Load	0x2,0x2
0f6b e007       |    |		Load	0x0,0x7
0f6c 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0f6d e402       |    |		Load	0x2,0x2
0f6e e22f       | /  |		Load	0x1,0x2f
0f6f 0092 1599  |    |		Action	Push_String_Extended,0x1599					; "Units"
0f71 e5ff       |    |		Load	0x2,-0x1
0f72 e00c       |    |		Load	0x0,0xc
0f73 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0f74 01cc       |    |		Execute	Vector,Catenate
0f75 0092 15a2  |    |		Action	Push_String_Extended,0x15a2					; "Remote_Machine"
0f77 01cc       |    |		Execute	Vector,Catenate
0f78 e5fe       |    |		Load	0x2,-0x2
0f79 e00c       |    |		Load	0x0,0xc
0f7a 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0f7b 01cc       |    |		Execute	Vector,Catenate
0f7c 0092 15ba  |    |		Action	Push_String_Extended,0x15ba					; "Effort_Only => "
0f7e 01cc       |    |		Execute	Vector,Catenate
0f7f e5fd       |    |		Load	0x2,-0x3
0f80 00e1       |    |		Load_Encached	Boolean_Cache
0f81 011c       |    |		Execute	Any,Convert_Unchecked
0f82 1c01       |    |		Execute_Immediate	Run_Utility,0x1
0f83 01cc       |    |		Execute	Vector,Catenate
0f84 0092 1580  |    |		Action	Push_String_Extended,0x1580					; ", Response"
0f86 01cc       |    |		Execute	Vector,Catenate
0f87 e5fc       |    |		Load	0x2,-0x4
0f88 e00c       |    |		Load	0x0,0xc
0f89 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0f8a 01cc       |    |		Execute	Vector,Catenate
0f8b e403       |    |		Load	0x2,0x3
0f8c e00c       |    |		Load	0x0,0xc
0f8d 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0f8e e402       |    |		Load	0x2,0x2
0f8f e00d       |    |		Load	0x0,0xd
0f90 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0f91 e006       |    |		Load	0x0,0x6
0f92 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0f93 e402       |    |		Load	0x2,0x2
0f94 e5fd       |    |		Load	0x2,-0x3
0f95 e5fe       |    |		Load	0x2,-0x2
0f96 e5ff       |    |		Load	0x2,-0x1
0f97 e236       | 6  |		Load	0x1,0x36
0f98 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0f99 005b       | [  |		Store_Top	Discrete,At_Offset_3
0f9a e402       |    |		Load	0x2,0x2
0f9b e22f       | /  |		Load	0x1,0x2f
0f9c e403       |    |		Load	0x2,0x3
0f9d e404       |    |		Load	0x2,0x4
0f9e e00c       |    |		Load	0x0,0xc
0f9f 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0fa0 00d8       |    |		Load_Top	At_Offset_0
0fa1 e007       |    |		Load	0x0,0x7
0fa2 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0fa3 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
0fa4			TRAP_0f50:
0fa4 e006       |    |		Load	0x0,0x6
0fa5 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
0fa6 010f       |    |		Execute	Exception,Equal
0fa7 680b       |h   |		Jump_Zero	0xfb3
0fa8 e402       |    |		Load	0x2,0x2
0fa9 e22f       | /  |		Load	0x1,0x2f
0faa e403       |    |		Load	0x2,0x3
0fab e404       |    |		Load	0x2,0x4
0fac e00c       |    |		Load	0x0,0xc
0fad 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0fae 00d9       |    |		Load_Top	At_Offset_1
0faf e007       |    |		Load	0x0,0x7
0fb0 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0fb1 00d8       |    |		Load_Top	At_Offset_0
0fb2 0101       |    |		Execute	Exception,Reraise
0fb3 e402       |    |		Load	0x2,0x2
0fb4 e22f       | /  |		Load	0x1,0x2f
0fb5 e403       |    |		Load	0x2,0x3
0fb6 e404       |    |		Load	0x2,0x4
0fb7 e00c       |    |		Load	0x0,0xc
0fb8 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0fb9 00d9       |    |		Load_Top	At_Offset_1
0fba e007       |    |		Load	0x0,0x7
0fbb 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0fbc 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
0fbd 0000 0000  |    |		.XXX[0x3]
0fbf 0000       |    |
0fc0 ; --------------------------------------------------------------------------------------
0fc0 ; SUBPROGRAM
0fc0 ; --------------------------------------------------------------------------------------
0fc0 0fdc       |    |		.CONST	0x0fdc								; Address of begin
0fc1 101e       |    |		.CONST	0x101e								; Address of exception handler
0fc2 0007       |    |		.CONST	0x0007								; Number of locals
0fc3			INIT_0fc0:
0fc3 e007       |    |		Load	0x0,0x7
0fc4 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0fc5 02c7       |    |		Declare_Variable	Any
0fc6 e5fd       |    |		Load	0x2,-0x3
0fc7 e007       |    |		Load	0x0,0x7
0fc8 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
0fc9 a402       |    |		Store_Unchecked	0x2,0x2
0fca 0092 15c4  |    |		Action	Push_String_Extended,0x15c4					; "Display_Default_Naming"
0fcc e006       |    |		Load	0x0,0x6
0fcd 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0fce 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0fcf e008       |    |		Load	0x0,0x8
0fd0 1b2e       | .  |		Execute	Package,Field_Read,Field_Number 0x2e
0fd1 0322       | "  |		Declare_Variable	Record
0fd2 00d8       |    |		Load_Top	At_Offset_0
0fd3 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0fd4 e007       |    |		Load	0x0,0x7
0fd5 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0fd6 02c7       |    |		Declare_Variable	Any
0fd7 e007       |    |		Load	0x0,0x7
0fd8 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0fd9 a406       |    |		Store_Unchecked	0x2,0x6
0fda 029f 1483  |    |		Declare_Subprogram	INIT_1480,For_Call
0fdc			BODY_0fc0:
0fdc e402       |    |		Load	0x2,0x2
0fdd e007       |    |		Load	0x0,0x7
0fde 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0fdf e402       |    |		Load	0x2,0x2
0fe0 e22f       | /  |		Load	0x1,0x2f
0fe1 0092 15c5  |    |		Action	Push_String_Extended,0x15c5					; "Potential_View"
0fe3 e5ff       |    |		Load	0x2,-0x1
0fe4 e00c       |    |		Load	0x0,0xc
0fe5 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0fe6 01cc       |    |		Execute	Vector,Catenate
0fe7 0092 15c6  |    |		Action	Push_String_Extended,0x15c6					; "Target_Key"
0fe9 01cc       |    |		Execute	Vector,Catenate
0fea e5fe       |    |		Load	0x2,-0x2
0feb e00c       |    |		Load	0x0,0xc
0fec 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0fed 01cc       |    |		Execute	Vector,Catenate
0fee 0092 1583  |    |		Action	Push_String_Extended,0x1583					; "Response"
0ff0 01cc       |    |		Execute	Vector,Catenate
0ff1 e5fd       |    |		Load	0x2,-0x3
0ff2 e00c       |    |		Load	0x0,0xc
0ff3 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0ff4 01cc       |    |		Execute	Vector,Catenate
0ff5 e403       |    |		Load	0x2,0x3
0ff6 e00c       |    |		Load	0x0,0xc
0ff7 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0ff8 e402       |    |		Load	0x2,0x2
0ff9 e00d       |    |		Load	0x0,0xd
0ffa 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0ffb 8407       |    |		Call	0x2,0x7
0ffc e007       |    |		Load	0x0,0x7
0ffd 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0ffe 4802       |H   |		Short_Literal	0x2
0fff 0092 15c7  |    |		Action	Push_String_Extended,0x15c7					; "Remote_Machine => "
1001 e405       |    |		Load	0x2,0x5
1002 e5ff       |    |		Load	0x2,-0x1
1003 e02b       | +  |		Load	0x0,0x2b
1004 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
1005 01cc       |    |		Execute	Vector,Catenate
1006 e02c       | ,  |		Load	0x0,0x2c
1007 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
1008 e007       |    |		Load	0x0,0x7
1009 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
100a 4802       |H   |		Short_Literal	0x2
100b 0092 15c8  |    |		Action	Push_String_Extended,0x15c8					; "Remote_Directory => "
100d e405       |    |		Load	0x2,0x5
100e e5ff       |    |		Load	0x2,-0x1
100f e02b       | +  |		Load	0x0,0x2b
1010 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
1011 01cc       |    |		Execute	Vector,Catenate
1012 e02c       | ,  |		Load	0x0,0x2c
1013 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
1014 e402       |    |		Load	0x2,0x2
1015 e22f       | /  |		Load	0x1,0x2f
1016 e403       |    |		Load	0x2,0x3
1017 e404       |    |		Load	0x2,0x4
1018 e00c       |    |		Load	0x0,0xc
1019 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
101a 00d9       |    |		Load_Top	At_Offset_1
101b e007       |    |		Load	0x0,0x7
101c 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
101d 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
101e			TRAP_0fc0:
101e e006       |    |		Load	0x0,0x6
101f 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
1020 010f       |    |		Execute	Exception,Equal
1021 680b       |h   |		Jump_Zero	0x102d
1022 e402       |    |		Load	0x2,0x2
1023 e22f       | /  |		Load	0x1,0x2f
1024 e403       |    |		Load	0x2,0x3
1025 e404       |    |		Load	0x2,0x4
1026 e00c       |    |		Load	0x0,0xc
1027 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
1028 00da       |    |		Load_Top	At_Offset_2
1029 e007       |    |		Load	0x0,0x7
102a 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
102b 00d8       |    |		Load_Top	At_Offset_0
102c 0101       |    |		Execute	Exception,Reraise
102d e402       |    |		Load	0x2,0x2
102e e22f       | /  |		Load	0x1,0x2f
102f e403       |    |		Load	0x2,0x3
1030 e404       |    |		Load	0x2,0x4
1031 e00c       |    |		Load	0x0,0xc
1032 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
1033 00da       |    |		Load_Top	At_Offset_2
1034 e007       |    |		Load	0x0,0x7
1035 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
1036 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
1037 0000       |    |		.XXX[0x1]
1038 ; --------------------------------------------------------------------------------------
1038 ; SUBPROGRAM
1038 ; --------------------------------------------------------------------------------------
1038 1062       | b  |		.CONST	0x1062								; Address of begin
1039 0004       |    |		.CONST	0x0004								; Address of exception handler
103a 000c       |    |		.CONST	0x000c								; Number of locals
103b			INIT_1038:
103b e02d       | -  |		Load	0x0,0x2d
103c e02e       | .  |		Load	0x0,0x2e
103d e008       |    |		Load	0x0,0x8
103e 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
103f e02f       | /  |		Load	0x0,0x2f
1040 0387       |    |		Declare_Variable	Package
1041 00d8       |    |		Load_Top	At_Offset_0
1042 020f       |    |		Execute	Module,Activate
1043 e006       |    |		Load	0x0,0x6
1044 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
1045 00d9       |    |		Load_Top	At_Offset_1
1046 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
1047 e008       |    |		Load	0x0,0x8
1048 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
1049 02c7       |    |		Declare_Variable	Any
104a 00d8       |    |		Load_Top	At_Offset_0
104b 1c00       |    |		Execute_Immediate	Run_Utility,0x0
104c e008       |    |		Load	0x0,0x8
104d 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
104e 02c7       |    |		Declare_Variable	Any
104f 00d8       |    |		Load_Top	At_Offset_0
1050 1c00       |    |		Execute_Immediate	Run_Utility,0x0
1051 e008       |    |		Load	0x0,0x8
1052 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
1053 02c7       |    |		Declare_Variable	Any
1054 00d8       |    |		Load_Top	At_Offset_0
1055 1c00       |    |		Execute_Immediate	Run_Utility,0x0
1056 00e1       |    |		Load_Encached	Boolean_Cache
1057 e008       |    |		Load	0x0,0x8
1058 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
1059 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
105a 02c7       |    |		Declare_Variable	Any
105b e5ff       |    |		Load	0x2,-0x1
105c a409       |    |		Store_Unchecked	0x2,0x9
105d 00e1       |    |		Load_Encached	Boolean_Cache
105e 029f 14b3  |    |		Declare_Subprogram	INIT_14b0,For_Call
1060 029f 14cb  |    |		Declare_Subprogram	INIT_14c8,For_Call
1062			BODY_1038:
1062 00cf       |    |		Action	Mark_Auxiliary
1063 78a4       |x   |		Jump	0x1108
1064 e5fc       |    |		Load	0x2,-0x4
1065 4800       |H   |		Short_Literal	0x0
1066 e409       |    |		Load	0x2,0x9
1067 e00e       |    |		Load	0x0,0xe
1068 1828       | (  |		Execute	Package,Field_Execute,Field_Number 0x28
1069 c405       |    |		Store	0x2,0x5
106a e405       |    |		Load	0x2,0x5
106b 840c       |    |		Call	0x2,0xc
106c 7014       |p   |		Jump_Nonzero	0x1081
106d e5fc       |    |		Load	0x2,-0x4
106e 4801       |H   |		Short_Literal	0x1
106f 4801       |H   |		Short_Literal	0x1
1070 e010       |    |		Load	0x0,0x10
1071 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
1072 035b       | [  |		Declare_Type	Array,Constrained
1073 0337       | 7  |		Declare_Variable	Array
1074 e405       |    |		Load	0x2,0x5
1075 e010       |    |		Load	0x0,0x10
1076 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
1077 e010       |    |		Load	0x0,0x10
1078 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
1079 0119       |    |		Execute	Any,Check_In_Formal_Type
107a 4801       |H   |		Short_Literal	0x1
107b 00da       |    |		Load_Top	At_Offset_2
107c 01d6       |    |		Execute	Vector,Field_Write
107d 609a       |`   |		Indirect_Literal	Discrete,0x1118,{0x00000000, 0x00008853}
107e e006       |    |		Load	0x0,0x6
107f 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
1080 7881       |x   |		Jump	0x1102
1081 e5fc       |    |		Load	0x2,-0x4
1082 4801       |H   |		Short_Literal	0x1
1083 e405       |    |		Load	0x2,0x5
1084 e00e       |    |		Load	0x0,0xe
1085 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
1086 c407       |    |		Store	0x2,0x7
1087 e5fc       |    |		Load	0x2,-0x4
1088 e407       |    |		Load	0x2,0x7
1089 e00d       |    |		Load	0x0,0xd
108a 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
108b e5fc       |    |		Load	0x2,-0x4
108c e407       |    |		Load	0x2,0x7
108d e00d       |    |		Load	0x0,0xd
108e 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
108f e405       |    |		Load	0x2,0x5
1090 e00e       |    |		Load	0x0,0xe
1091 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
1092 c406       |    |		Store	0x2,0x6
1093 e406       |    |		Load	0x2,0x6
1094 e008       |    |		Load	0x0,0x8
1095 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
1096 6802       |h   |		Jump_Zero	0x1099
1097 e405       |    |		Load	0x2,0x5
1098 c406       |    |		Store	0x2,0x6
1099 00e1       |    |		Load_Encached	Boolean_Cache
109a e404       |    |		Load	0x2,0x4
109b e406       |    |		Load	0x2,0x6
109c 840b       |    |		Call	0x2,0xb
109d c404       |    |		Store	0x2,0x4
109e c408       |    |		Store	0x2,0x8
109f e408       |    |		Load	0x2,0x8
10a0 7061       |pa  |		Jump_Nonzero	0x1102
10a1 e403       |    |		Load	0x2,0x3
10a2 e00f       |    |		Load	0x0,0xf
10a3 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
10a4 e5fc       |    |		Load	0x2,-0x4
10a5 e5fe       |    |		Load	0x2,-0x2
10a6 4800       |H   |		Short_Literal	0x0
10a7 e406       |    |		Load	0x2,0x6
10a8 e030       | 0  |		Load	0x0,0x30
10a9 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
10aa c403       |    |		Store	0x2,0x3
10ab 4800       |H   |		Short_Literal	0x0
10ac e403       |    |		Load	0x2,0x3
10ad e006       |    |		Load	0x0,0x6
10ae 1847       | G  |		Execute	Package,Field_Execute,Field_Number 0x47
10af 683d       |h=  |		Jump_Zero	0x10ed
10b0 e006       |    |		Load	0x0,0x6
10b1 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
10b2 e5fc       |    |		Load	0x2,-0x4
10b3 4800       |H   |		Short_Literal	0x0
10b4 e5fe       |    |		Load	0x2,-0x2
10b5 e5fc       |    |		Load	0x2,-0x4
10b6 e407       |    |		Load	0x2,0x7
10b7 e00e       |    |		Load	0x0,0xe
10b8 182b       | +  |		Execute	Package,Field_Execute,Field_Number 0x2b
10b9 e5fd       |    |		Load	0x2,-0x3
10ba e406       |    |		Load	0x2,0x6
10bb e01b       |    |		Load	0x0,0x1b
10bc 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
10bd c403       |    |		Store	0x2,0x3
10be 4800       |H   |		Short_Literal	0x0
10bf e403       |    |		Load	0x2,0x3
10c0 e006       |    |		Load	0x0,0x6
10c1 1847       | G  |		Execute	Package,Field_Execute,Field_Number 0x47
10c2 6814       |h   |		Jump_Zero	0x10d7
10c3 e5fc       |    |		Load	0x2,-0x4
10c4 4801       |H   |		Short_Literal	0x1
10c5 4801       |H   |		Short_Literal	0x1
10c6 e010       |    |		Load	0x0,0x10
10c7 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
10c8 035b       | [  |		Declare_Type	Array,Constrained
10c9 0337       | 7  |		Declare_Variable	Array
10ca e406       |    |		Load	0x2,0x6
10cb e00e       |    |		Load	0x0,0xe
10cc 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
10cd e010       |    |		Load	0x0,0x10
10ce 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
10cf 0119       |    |		Execute	Any,Check_In_Formal_Type
10d0 4801       |H   |		Short_Literal	0x1
10d1 00da       |    |		Load_Top	At_Offset_2
10d2 01d6       |    |		Execute	Vector,Field_Write
10d3 6040       |`@  |		Indirect_Literal	Discrete,0x1114,{0x00000000, 0x00008827}
10d4 e006       |    |		Load	0x0,0x6
10d5 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
10d6 782b       |x+  |		Jump	0x1102
10d7 e5fc       |    |		Load	0x2,-0x4
10d8 4801       |H   |		Short_Literal	0x1
10d9 4801       |H   |		Short_Literal	0x1
10da e010       |    |		Load	0x0,0x10
10db 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
10dc 035b       | [  |		Declare_Type	Array,Constrained
10dd 0337       | 7  |		Declare_Variable	Array
10de e406       |    |		Load	0x2,0x6
10df e00e       |    |		Load	0x0,0xe
10e0 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
10e1 e010       |    |		Load	0x0,0x10
10e2 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
10e3 0119       |    |		Execute	Any,Check_In_Formal_Type
10e4 4801       |H   |		Short_Literal	0x1
10e5 00da       |    |		Load_Top	At_Offset_2
10e6 01d6       |    |		Execute	Vector,Field_Write
10e7 6028       |`(  |		Indirect_Literal	Discrete,0x1110,{0x00000000, 0x0000880d}
10e8 e006       |    |		Load	0x0,0x6
10e9 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
10ea e403       |    |		Load	0x2,0x3
10eb a5fb       |    |		Store_Unchecked	0x2,-0x5
10ec 7815       |x   |		Jump	0x1102
10ed e5fc       |    |		Load	0x2,-0x4
10ee 4801       |H   |		Short_Literal	0x1
10ef 4801       |H   |		Short_Literal	0x1
10f0 e010       |    |		Load	0x0,0x10
10f1 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
10f2 035b       | [  |		Declare_Type	Array,Constrained
10f3 0337       | 7  |		Declare_Variable	Array
10f4 e406       |    |		Load	0x2,0x6
10f5 e00e       |    |		Load	0x0,0xe
10f6 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
10f7 e010       |    |		Load	0x0,0x10
10f8 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
10f9 0119       |    |		Execute	Any,Check_In_Formal_Type
10fa 4801       |H   |		Short_Literal	0x1
10fb 00da       |    |		Load_Top	At_Offset_2
10fc 01d6       |    |		Execute	Vector,Field_Write
10fd 6012       |`   |		Indirect_Literal	Discrete,0x1110,{0x00000000, 0x0000880d}
10fe e006       |    |		Load	0x0,0x6
10ff 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
1100 e403       |    |		Load	0x2,0x3
1101 a5fb       |    |		Store_Unchecked	0x2,-0x5
1102 e409       |    |		Load	0x2,0x9
1103 e008       |    |		Load	0x0,0x8
1104 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
1105 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
1106 c409       |    |		Store	0x2,0x9
1107 00c9       |    |		Action	Pop_Auxiliary_Loop
1108 e409       |    |		Load	0x2,0x9
1109 e008       |    |		Load	0x0,0x8
110a 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
110b 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
110c 6f57       |oW  |		Jump_Zero	0x1064
110d 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
110e 0000 0000  |    |		.XXX[0x2]
1110 0000 0000  |    |		.LITERAL	{0x00000000, 0x0000880d}
1114 0000 0000  |    |		.LITERAL	{0x00000000, 0x00008827}
1118 0000 0000  |    |		.LITERAL	{0x00000000, 0x00008853}
111c 0000 0000  |    |		.BLANK	0000[0x4]
1120 ; --------------------------------------------------------------------------------------
1120 ; SUBPROGRAM
1120 ; --------------------------------------------------------------------------------------
1120 1127       | '  |		.CONST	0x1127								; Address of begin
1121 0004       |    |		.CONST	0x0004								; Address of exception handler
1122 0003       |    |		.CONST	0x0003								; Number of locals
1123			INIT_1120:
1123 029f 14eb  |    |		Declare_Subprogram	INIT_14e8,For_Call
1125 029f 150b  |    |		Declare_Subprogram	INIT_1508,For_Call
1127			BODY_1120:
1127 e5fd       |    |		Load	0x2,-0x3
1128 7002       |p   |		Jump_Nonzero	0x112b
1129 8402       |    |		Call	0x2,0x2
112a 7801       |x   |		Jump	0x112c
112b 8403       |    |		Call	0x2,0x3
112c 0831       | 1  |		Execute_Immediate	Raise,0x31
112d 0000 0000  |    |		.XXX[0x3]
112f 0000       |    |
1130 ; --------------------------------------------------------------------------------------
1130 ; SUBPROGRAM
1130 ; --------------------------------------------------------------------------------------
1130 1133       | 3  |		.CONST	0x1133								; Address of begin
1131 0004       |    |		.CONST	0x0004								; Address of exception handler
1132 0001       |    |		.CONST	0x0001								; Number of locals
1133			BODY_1130:
1133			INIT_1130:
1133 4801       |H   |		Short_Literal	0x1
1134 0092 15c9  |    |		Action	Push_String_Extended,0x15c9					; "<DEFAULT>"
1136 e5ff       |    |		Load	0x2,-0x1
1137 e016       |    |		Load	0x0,0x16
1138 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
1139 6803       |h   |		Jump_Zero	0x113d
113a e031       | 1  |		Load	0x0,0x31
113b 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
113c 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
113d 00da       |    |		Load_Top	At_Offset_2
113e 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
113f 0000       |    |		.XXX[0x1]
1140 ; --------------------------------------------------------------------------------------
1140 ; SUBPROGRAM
1140 ; --------------------------------------------------------------------------------------
1140 1143       | C  |		.CONST	0x1143								; Address of begin
1141 0004       |    |		.CONST	0x0004								; Address of exception handler
1142 0001       |    |		.CONST	0x0001								; Number of locals
1143			BODY_1140:
1143			INIT_1140:
1143 4801       |H   |		Short_Literal	0x1
1144 0092 15c9  |    |		Action	Push_String_Extended,0x15c9					; "<DEFAULT>"
1146 e5ff       |    |		Load	0x2,-0x1
1147 e016       |    |		Load	0x0,0x16
1148 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
1149 6803       |h   |		Jump_Zero	0x114d
114a e031       | 1  |		Load	0x0,0x31
114b 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
114c 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
114d 00da       |    |		Load_Top	At_Offset_2
114e 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
114f 0000       |    |		.XXX[0x1]
1150 ; --------------------------------------------------------------------------------------
1150 ; SUBPROGRAM
1150 ; --------------------------------------------------------------------------------------
1150 1153       | S  |		.CONST	0x1153								; Address of begin
1151 0004       |    |		.CONST	0x0004								; Address of exception handler
1152 0001       |    |		.CONST	0x0001								; Number of locals
1153			BODY_1150:
1153			INIT_1150:
1153 4801       |H   |		Short_Literal	0x1
1154 0092 15c9  |    |		Action	Push_String_Extended,0x15c9					; "<DEFAULT>"
1156 e5ff       |    |		Load	0x2,-0x1
1157 e016       |    |		Load	0x0,0x16
1158 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
1159 6803       |h   |		Jump_Zero	0x115d
115a e031       | 1  |		Load	0x0,0x31
115b 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
115c 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
115d 00da       |    |		Load_Top	At_Offset_2
115e 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
115f 0000       |    |		.XXX[0x1]
1160 ; --------------------------------------------------------------------------------------
1160 ; SUBPROGRAM
1160 ; --------------------------------------------------------------------------------------
1160 1163       | c  |		.CONST	0x1163								; Address of begin
1161 0004       |    |		.CONST	0x0004								; Address of exception handler
1162 0001       |    |		.CONST	0x0001								; Number of locals
1163			BODY_1160:
1163			INIT_1160:
1163 4801       |H   |		Short_Literal	0x1
1164 0092 15c9  |    |		Action	Push_String_Extended,0x15c9					; "<DEFAULT>"
1166 e5ff       |    |		Load	0x2,-0x1
1167 e016       |    |		Load	0x0,0x16
1168 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
1169 6803       |h   |		Jump_Zero	0x116d
116a e031       | 1  |		Load	0x0,0x31
116b 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
116c 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
116d 00da       |    |		Load_Top	At_Offset_2
116e 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
116f 0000       |    |		.XXX[0x1]
1170 ; --------------------------------------------------------------------------------------
1170 ; SUBPROGRAM
1170 ; --------------------------------------------------------------------------------------
1170 1173       | s  |		.CONST	0x1173								; Address of begin
1171 0004       |    |		.CONST	0x0004								; Address of exception handler
1172 0001       |    |		.CONST	0x0001								; Number of locals
1173			BODY_1170:
1173			INIT_1170:
1173 4801       |H   |		Short_Literal	0x1
1174 0092 15c9  |    |		Action	Push_String_Extended,0x15c9					; "<DEFAULT>"
1176 e5ff       |    |		Load	0x2,-0x1
1177 e016       |    |		Load	0x0,0x16
1178 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
1179 6805       |h   |		Jump_Zero	0x117f
117a 0092 15ca  |    |		Action	Push_String_Extended,0x15ca					; "$"
117c e015       |    |		Load	0x0,0x15
117d 1823       | #  |		Execute	Package,Field_Execute,Field_Number 0x23
117e 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
117f 00da       |    |		Load_Top	At_Offset_2
1180 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
1181 0000 0000  |    |		.BLANK	0000[0x7]
1188 ; --------------------------------------------------------------------------------------
1188 ; SUBPROGRAM
1188 ; --------------------------------------------------------------------------------------
1188 118b       |    |		.CONST	0x118b								; Address of begin
1189 1195       |    |		.CONST	0x1195								; Address of exception handler
118a 0001       |    |		.CONST	0x0001								; Number of locals
118b			BODY_1188:
118b			INIT_1188:
118b 00da       |    |		Load_Top	At_Offset_2
118c 00db       |    |		Load_Top	At_Offset_3
118d 4800       |H   |		Short_Literal	0x0
118e 0092 15ca  |    |		Action	Push_String_Extended,0x15ca					; "$"
1190 e00e       |    |		Load	0x0,0xe
1191 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
1192 e00e       |    |		Load	0x0,0xe
1193 1850       | P  |		Execute	Package,Field_Execute,Field_Number 0x50
1194 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
1195			TRAP_1188:
1195 0007       |    |		Action	Break_Optional
1196 4801       |H   |		Short_Literal	0x1
1197 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
1198 ; --------------------------------------------------------------------------------------
1198 ; SUBPROGRAM
1198 ; --------------------------------------------------------------------------------------
1198 11a3       |    |		.CONST	0x11a3								; Address of begin
1199 0004       |    |		.CONST	0x0004								; Address of exception handler
119a 0002       |    |		.CONST	0x0002								; Number of locals
119b			INIT_1198:
119b 00db       |    |		Load_Top	At_Offset_3
119c e5fe       |    |		Load	0x2,-0x2
119d e5ff       |    |		Load	0x2,-0x1
119e e00e       |    |		Load	0x0,0xe
119f 182b       | +  |		Execute	Package,Field_Execute,Field_Number 0x2b
11a0 e5ff       |    |		Load	0x2,-0x1
11a1 e020       |    |		Load	0x0,0x20
11a2 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
11a3			BODY_1198:
11a3 4800       |H   |		Short_Literal	0x0
11a4 00d9       |    |		Load_Top	At_Offset_1
11a5 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
11a6 e006       |    |		Load	0x0,0x6
11a7 1847       | G  |		Execute	Package,Field_Execute,Field_Number 0x47
11a8 6803       |h   |		Jump_Zero	0x11ac
11a9 00d8       |    |		Load_Top	At_Offset_0
11aa 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
11ab 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
11ac e5fe       |    |		Load	0x2,-0x2
11ad 4801       |H   |		Short_Literal	0x1
11ae 4802       |H   |		Short_Literal	0x2
11af e010       |    |		Load	0x0,0x10
11b0 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
11b1 035b       | [  |		Declare_Type	Array,Constrained
11b2 0337       | 7  |		Declare_Variable	Array
11b3 e5ff       |    |		Load	0x2,-0x1
11b4 e010       |    |		Load	0x0,0x10
11b5 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
11b6 e010       |    |		Load	0x0,0x10
11b7 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
11b8 0119       |    |		Execute	Any,Check_In_Formal_Type
11b9 4801       |H   |		Short_Literal	0x1
11ba 00da       |    |		Load_Top	At_Offset_2
11bb 01d6       |    |		Execute	Vector,Field_Write
11bc 00da       |    |		Load_Top	At_Offset_2
11bd 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
11be e006       |    |		Load	0x0,0x6
11bf 182b       | +  |		Execute	Package,Field_Execute,Field_Number 0x2b
11c0 e010       |    |		Load	0x0,0x10
11c1 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
11c2 0119       |    |		Execute	Any,Check_In_Formal_Type
11c3 4802       |H   |		Short_Literal	0x2
11c4 00da       |    |		Load_Top	At_Offset_2
11c5 01d6       |    |		Execute	Vector,Field_Write
11c6 6005       |`   |		Indirect_Literal	Discrete,0x11cc,{0x00000000, 0x00008809}
11c7 e006       |    |		Load	0x0,0x6
11c8 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
11c9 00ea       |    |		Load_Encached	Null_String_Cache
11ca 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
11cb 0000       |    |		.XXX[0x1]
11cc 0000 0000  |    |		.LITERAL	{0x00000000, 0x00008809}
11d0 ; --------------------------------------------------------------------------------------
11d0 ; SUBPROGRAM
11d0 ; --------------------------------------------------------------------------------------
11d0 11db       |    |		.CONST	0x11db								; Address of begin
11d1 0004       |    |		.CONST	0x0004								; Address of exception handler
11d2 0002       |    |		.CONST	0x0002								; Number of locals
11d3			INIT_11d0:
11d3 00db       |    |		Load_Top	At_Offset_3
11d4 e5fe       |    |		Load	0x2,-0x2
11d5 e5ff       |    |		Load	0x2,-0x1
11d6 e00e       |    |		Load	0x0,0xe
11d7 182b       | +  |		Execute	Package,Field_Execute,Field_Number 0x2b
11d8 e5ff       |    |		Load	0x2,-0x1
11d9 e020       |    |		Load	0x0,0x20
11da 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
11db			BODY_11d0:
11db 4800       |H   |		Short_Literal	0x0
11dc 00d9       |    |		Load_Top	At_Offset_1
11dd 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
11de e006       |    |		Load	0x0,0x6
11df 1847       | G  |		Execute	Package,Field_Execute,Field_Number 0x47
11e0 6803       |h   |		Jump_Zero	0x11e4
11e1 00d8       |    |		Load_Top	At_Offset_0
11e2 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
11e3 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
11e4 e5fe       |    |		Load	0x2,-0x2
11e5 4801       |H   |		Short_Literal	0x1
11e6 4802       |H   |		Short_Literal	0x2
11e7 e010       |    |		Load	0x0,0x10
11e8 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
11e9 035b       | [  |		Declare_Type	Array,Constrained
11ea 0337       | 7  |		Declare_Variable	Array
11eb e5ff       |    |		Load	0x2,-0x1
11ec e010       |    |		Load	0x0,0x10
11ed 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
11ee e010       |    |		Load	0x0,0x10
11ef 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
11f0 0119       |    |		Execute	Any,Check_In_Formal_Type
11f1 4801       |H   |		Short_Literal	0x1
11f2 00da       |    |		Load_Top	At_Offset_2
11f3 01d6       |    |		Execute	Vector,Field_Write
11f4 00da       |    |		Load_Top	At_Offset_2
11f5 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
11f6 e006       |    |		Load	0x0,0x6
11f7 182b       | +  |		Execute	Package,Field_Execute,Field_Number 0x2b
11f8 e010       |    |		Load	0x0,0x10
11f9 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
11fa 0119       |    |		Execute	Any,Check_In_Formal_Type
11fb 4802       |H   |		Short_Literal	0x2
11fc 00da       |    |		Load_Top	At_Offset_2
11fd 01d6       |    |		Execute	Vector,Field_Write
11fe 6005       |`   |		Indirect_Literal	Discrete,0x1204,{0x00000000, 0x00008807}
11ff e006       |    |		Load	0x0,0x6
1200 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
1201 00ea       |    |		Load_Encached	Null_String_Cache
1202 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
1203 0000       |    |		.XXX[0x1]
1204 0000 0000  |    |		.LITERAL	{0x00000000, 0x00008807}
1208 ; --------------------------------------------------------------------------------------
1208 ; SUBPROGRAM
1208 ; --------------------------------------------------------------------------------------
1208 1213       |    |		.CONST	0x1213								; Address of begin
1209 0004       |    |		.CONST	0x0004								; Address of exception handler
120a 0002       |    |		.CONST	0x0002								; Number of locals
120b			INIT_1208:
120b 00db       |    |		Load_Top	At_Offset_3
120c e5fe       |    |		Load	0x2,-0x2
120d e5ff       |    |		Load	0x2,-0x1
120e e00e       |    |		Load	0x0,0xe
120f 182b       | +  |		Execute	Package,Field_Execute,Field_Number 0x2b
1210 e5ff       |    |		Load	0x2,-0x1
1211 e020       |    |		Load	0x0,0x20
1212 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
1213			BODY_1208:
1213 4800       |H   |		Short_Literal	0x0
1214 00d9       |    |		Load_Top	At_Offset_1
1215 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
1216 e006       |    |		Load	0x0,0x6
1217 1847       | G  |		Execute	Package,Field_Execute,Field_Number 0x47
1218 6803       |h   |		Jump_Zero	0x121c
1219 00d8       |    |		Load_Top	At_Offset_0
121a 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
121b 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
121c e5fe       |    |		Load	0x2,-0x2
121d 4801       |H   |		Short_Literal	0x1
121e 4802       |H   |		Short_Literal	0x2
121f e010       |    |		Load	0x0,0x10
1220 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
1221 035b       | [  |		Declare_Type	Array,Constrained
1222 0337       | 7  |		Declare_Variable	Array
1223 e5ff       |    |		Load	0x2,-0x1
1224 e010       |    |		Load	0x0,0x10
1225 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
1226 e010       |    |		Load	0x0,0x10
1227 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
1228 0119       |    |		Execute	Any,Check_In_Formal_Type
1229 4801       |H   |		Short_Literal	0x1
122a 00da       |    |		Load_Top	At_Offset_2
122b 01d6       |    |		Execute	Vector,Field_Write
122c 00da       |    |		Load_Top	At_Offset_2
122d 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
122e e006       |    |		Load	0x0,0x6
122f 182b       | +  |		Execute	Package,Field_Execute,Field_Number 0x2b
1230 e010       |    |		Load	0x0,0x10
1231 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
1232 0119       |    |		Execute	Any,Check_In_Formal_Type
1233 4802       |H   |		Short_Literal	0x2
1234 00da       |    |		Load_Top	At_Offset_2
1235 01d6       |    |		Execute	Vector,Field_Write
1236 6005       |`   |		Indirect_Literal	Discrete,0x123c,{0x00000000, 0x00008808}
1237 e006       |    |		Load	0x0,0x6
1238 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
1239 00ea       |    |		Load_Encached	Null_String_Cache
123a 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
123b 0000       |    |		.XXX[0x1]
123c 0000 0000  |    |		.LITERAL	{0x00000000, 0x00008808}
1240 ; --------------------------------------------------------------------------------------
1240 ; SUBPROGRAM
1240 ; --------------------------------------------------------------------------------------
1240 1243       | C  |		.CONST	0x1243								; Address of begin
1241 0004       |    |		.CONST	0x0004								; Address of exception handler
1242 0001       |    |		.CONST	0x0001								; Number of locals
1243			BODY_1240:
1243			INIT_1240:
1243 e404       |    |		Load	0x2,0x4
1244 e00d       |    |		Load	0x0,0xd
1245 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
1246 e406       |    |		Load	0x2,0x6
1247 e008       |    |		Load	0x0,0x8
1248 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
1249 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
124a 6820       |h   |		Jump_Zero	0x126b
124b e404       |    |		Load	0x2,0x4
124c 4801       |H   |		Short_Literal	0x1
124d 4802       |H   |		Short_Literal	0x2
124e e010       |    |		Load	0x0,0x10
124f 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
1250 035b       | [  |		Declare_Type	Array,Constrained
1251 0337       | 7  |		Declare_Variable	Array
1252 e5ff       |    |		Load	0x2,-0x1
1253 e010       |    |		Load	0x0,0x10
1254 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
1255 e010       |    |		Load	0x0,0x10
1256 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
1257 0119       |    |		Execute	Any,Check_In_Formal_Type
1258 4801       |H   |		Short_Literal	0x1
1259 00da       |    |		Load_Top	At_Offset_2
125a 01d6       |    |		Execute	Vector,Field_Write
125b 0092 15cb  |    |		Action	Push_String_Extended,0x15cb					; "Expression does not name a linkable object"
125d e010       |    |		Load	0x0,0x10
125e 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
125f e010       |    |		Load	0x0,0x10
1260 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
1261 0119       |    |		Execute	Any,Check_In_Formal_Type
1262 4802       |H   |		Short_Literal	0x2
1263 00da       |    |		Load_Top	At_Offset_2
1264 01d6       |    |		Execute	Vector,Field_Write
1265 602e       |`.  |		Indirect_Literal	Discrete,0x1294,{0x00000000, 0x00008814}
1266 e006       |    |		Load	0x0,0x6
1267 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
1268 e006       |    |		Load	0x0,0x6
1269 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
126a 0257       | W  |		Execute	Discrete,Raise
126b e5fd       |    |		Load	0x2,-0x3
126c 01db       |    |		Execute	Vector,Length
126d 6825       |h%  |		Jump_Zero	0x1293
126e e404       |    |		Load	0x2,0x4
126f 4800       |H   |		Short_Literal	0x0
1270 e5ff       |    |		Load	0x2,-0x1
1271 e00e       |    |		Load	0x0,0xe
1272 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
1273 e008       |    |		Load	0x0,0x8
1274 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
1275 681d       |h   |		Jump_Zero	0x1293
1276 e404       |    |		Load	0x2,0x4
1277 4801       |H   |		Short_Literal	0x1
1278 4802       |H   |		Short_Literal	0x2
1279 e010       |    |		Load	0x0,0x10
127a 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
127b 035b       | [  |		Declare_Type	Array,Constrained
127c 0337       | 7  |		Declare_Variable	Array
127d e5ff       |    |		Load	0x2,-0x1
127e e010       |    |		Load	0x0,0x10
127f 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
1280 e010       |    |		Load	0x0,0x10
1281 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
1282 0119       |    |		Execute	Any,Check_In_Formal_Type
1283 4801       |H   |		Short_Literal	0x1
1284 00da       |    |		Load_Top	At_Offset_2
1285 01d6       |    |		Execute	Vector,Field_Write
1286 0092 15cc  |    |		Action	Push_String_Extended,0x15cc					; "Expression names more than one object, but an executable name was specified"
1288 e010       |    |		Load	0x0,0x10
1289 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
128a e010       |    |		Load	0x0,0x10
128b 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
128c 0119       |    |		Execute	Any,Check_In_Formal_Type
128d 4802       |H   |		Short_Literal	0x2
128e 00da       |    |		Load_Top	At_Offset_2
128f 01d6       |    |		Execute	Vector,Field_Write
1290 6003       |`   |		Indirect_Literal	Discrete,0x1294,{0x00000000, 0x00008814}
1291 e006       |    |		Load	0x0,0x6
1292 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
1293 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
1294 0000 0000  |    |		.LITERAL	{0x00000000, 0x00008814}
1298 ; --------------------------------------------------------------------------------------
1298 ; SUBPROGRAM
1298 ; --------------------------------------------------------------------------------------
1298 129d       |    |		.CONST	0x129d								; Address of begin
1299 12e8       |    |		.CONST	0x12e8								; Address of exception handler
129a 0002       |    |		.CONST	0x0002								; Number of locals
129b			INIT_1298:
129b 029f 1523  |   #|		Declare_Subprogram	INIT_1520,For_Call
129d			BODY_1298:
129d e404       |    |		Load	0x2,0x4
129e 4801       |H   |		Short_Literal	0x1
129f e40a       |    |		Load	0x2,0xa
12a0 e00e       |    |		Load	0x0,0xe
12a1 1828       | (  |		Execute	Package,Field_Execute,Field_Number 0x28
12a2 c407       |    |		Store	0x2,0x7
12a3 e404       |    |		Load	0x2,0x4
12a4 4801       |H   |		Short_Literal	0x1
12a5 e407       |    |		Load	0x2,0x7
12a6 e00e       |    |		Load	0x0,0xe
12a7 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
12a8 c409       |    |		Store	0x2,0x9
12a9 e404       |    |		Load	0x2,0x4
12aa e409       |    |		Load	0x2,0x9
12ab e00d       |    |		Load	0x0,0xd
12ac 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
12ad e404       |    |		Load	0x2,0x4
12ae e409       |    |		Load	0x2,0x9
12af e00d       |    |		Load	0x0,0xd
12b0 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
12b1 e407       |    |		Load	0x2,0x7
12b2 e00e       |    |		Load	0x0,0xe
12b3 1838       | 8  |		Execute	Package,Field_Execute,Field_Number 0x38
12b4 7031       |p1  |		Jump_Nonzero	0x12e6
12b5 e006       |    |		Load	0x0,0x6
12b6 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
12b7 00e2       |    |		Load_Encached	Integer_Cache
12b8 00e1       |    |		Load_Encached	Boolean_Cache
12b9 e408       |    |		Load	0x2,0x8
12ba 0120       |    |		Execute	Any,Is_Value
12bb 6803       |h   |		Jump_Zero	0x12bf
12bc e008       |    |		Load	0x0,0x8
12bd 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
12be 7801       |x   |		Jump	0x12c0
12bf e408       |    |		Load	0x2,0x8
12c0 e404       |    |		Load	0x2,0x4
12c1 e407       |    |		Load	0x2,0x7
12c2 e014       |    |		Load	0x0,0x14
12c3 1866       | f  |		Execute	Package,Field_Execute,Field_Number 0x66
12c4 c408       |    |		Store	0x2,0x8
12c5 c405       |    |		Store	0x2,0x5
12c6 c406       |    |		Store	0x2,0x6
12c7 c403       |    |		Store	0x2,0x3
12c8 4800       |H   |		Short_Literal	0x0
12c9 e403       |    |		Load	0x2,0x3
12ca e006       |    |		Load	0x0,0x6
12cb 1847       | G  |		Execute	Package,Field_Execute,Field_Number 0x47
12cc 0f00       |    |		Execute_Immediate	Equal,0x0
12cd e405       |    |		Load	0x2,0x5
12ce 0f00       |    |		Execute_Immediate	Equal,0x0
12cf 0278       | x  |		Execute	Discrete,Or
12d0 6815       |h   |		Jump_Zero	0x12e6
12d1 e404       |    |		Load	0x2,0x4
12d2 4801       |H   |		Short_Literal	0x1
12d3 4801       |H   |		Short_Literal	0x1
12d4 e010       |    |		Load	0x0,0x10
12d5 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
12d6 035b       | [  |		Declare_Type	Array,Constrained
12d7 0337       | 7  |		Declare_Variable	Array
12d8 e407       |    |		Load	0x2,0x7
12d9 e00e       |    |		Load	0x0,0xe
12da 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
12db e010       |    |		Load	0x0,0x10
12dc 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
12dd 0119       |    |		Execute	Any,Check_In_Formal_Type
12de 4801       |H   |		Short_Literal	0x1
12df 00da       |    |		Load_Top	At_Offset_2
12e0 01d6       |    |		Execute	Vector,Field_Write
12e1 600e       |`   |		Indirect_Literal	Discrete,0x12f0,{0x00000000, 0x0000889d}
12e2 e006       |    |		Load	0x0,0x6
12e3 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
12e4 00cc       |    |		Action	Pop_Block
12e5 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
12e6 8602       |    |		Call	0x3,0x2
12e7 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
12e8			TRAP_1298:
12e8 e013       |    |		Load	0x0,0x13
12e9 010f       |    |		Execute	Exception,Equal
12ea 6801       |h   |		Jump_Zero	0x12ec
12eb 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
12ec 0100       |    |		Execute	Exception,Raise
12ed 0000 0000  |    |		.XXX[0x3]
12ef 0000       |    |
12f0 0000 0000  |    |		.LITERAL	{0x00000000, 0x0000889d}
12f4 0000 0000  |    |		.BLANK	0000[0x4]
12f8 ; --------------------------------------------------------------------------------------
12f8 ; SUBPROGRAM
12f8 ; --------------------------------------------------------------------------------------
12f8 12fe       |    |		.CONST	0x12fe								; Address of begin
12f9 0004       |    |		.CONST	0x0004								; Address of exception handler
12fa 0002       |    |		.CONST	0x0002								; Number of locals
12fb			INIT_12f8:
12fb e406       |    |		Load	0x2,0x6
12fc e00e       |    |		Load	0x0,0xe
12fd 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
12fe			BODY_12f8:
12fe e404       |    |		Load	0x2,0x4
12ff 4801       |H   |		Short_Literal	0x1
1300 4801       |H   |		Short_Literal	0x1
1301 e010       |    |		Load	0x0,0x10
1302 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
1303 035b       | [  |		Declare_Type	Array,Constrained
1304 0337       | 7  |		Declare_Variable	Array
1305 e406       |    |		Load	0x2,0x6
1306 e00e       |    |		Load	0x0,0xe
1307 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
1308 e010       |    |		Load	0x0,0x10
1309 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
130a 0119       |    |		Execute	Any,Check_In_Formal_Type
130b 4801       |H   |		Short_Literal	0x1
130c 00da       |    |		Load_Top	At_Offset_2
130d 01d6       |    |		Execute	Vector,Field_Write
130e 601d       |`   |		Indirect_Literal	Discrete,0x132c,{0x00000000, 0x0000886c}
130f e006       |    |		Load	0x0,0x6
1310 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
1311 e5fe       |    |		Load	0x2,-0x2
1312 6809       |h   |		Jump_Zero	0x131c
1313 4801       |H   |		Short_Literal	0x1
1314 4801       |H   |		Short_Literal	0x1
1315 4800       |H   |		Short_Literal	0x0
1316 4801       |H   |		Short_Literal	0x1
1317 e5fc       |    |		Load	0x2,-0x4
1318 e00e       |    |		Load	0x0,0xe
1319 183f       | ?  |		Execute	Package,Field_Execute,Field_Number 0x3f
131a 00d9       |    |		Load_Top	At_Offset_1
131b 8219       |    |		Call	0x1,0x19
131c e5fd       |    |		Load	0x2,-0x3
131d 680a       |h   |		Jump_Zero	0x1328
131e 4801       |H   |		Short_Literal	0x1
131f 4801       |H   |		Short_Literal	0x1
1320 4800       |H   |		Short_Literal	0x0
1321 4801       |H   |		Short_Literal	0x1
1322 e5fc       |    |		Load	0x2,-0x4
1323 e00e       |    |		Load	0x0,0xe
1324 183f       | ?  |		Execute	Package,Field_Execute,Field_Number 0x3f
1325 4800       |H   |		Short_Literal	0x0
1326 00da       |    |		Load_Top	At_Offset_2
1327 8213       |    |		Call	0x1,0x13
1328 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
1329 0000 0000  |    |		.XXX[0x3]
132b 0000       |    |
132c 0000 0000  |    |		.LITERAL	{0x00000000, 0x0000886c}
1330 ; --------------------------------------------------------------------------------------
1330 ; SUBPROGRAM
1330 ; --------------------------------------------------------------------------------------
1330 1356       | V  |		.CONST	0x1356								; Address of begin
1331 1382       |    |		.CONST	0x1382								; Address of exception handler
1332 0006       |    |		.CONST	0x0006								; Number of locals
1333			INIT_1330:
1333 e008       |    |		Load	0x0,0x8
1334 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
1335 02c7       |    |		Declare_Variable	Any
1336 e404       |    |		Load	0x2,0x4
1337 4801       |H   |		Short_Literal	0x1
1338 e404       |    |		Load	0x2,0x4
1339 4801       |H   |		Short_Literal	0x1
133a e405       |    |		Load	0x2,0x5
133b e00e       |    |		Load	0x0,0xe
133c 1828       | (  |		Execute	Package,Field_Execute,Field_Number 0x28
133d e00e       |    |		Load	0x0,0xe
133e 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
133f a602       |    |		Store_Unchecked	0x3,0x2
1340 00d8       |    |		Load_Top	At_Offset_0
1341 e00e       |    |		Load	0x0,0xe
1342 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
1343 e008       |    |		Load	0x0,0x8
1344 1b2e       | .  |		Execute	Package,Field_Read,Field_Number 0x2e
1345 0322       | "  |		Declare_Variable	Record
1346 e404       |    |		Load	0x2,0x4
1347 00db       |    |		Load_Top	At_Offset_3
1348 e00e       |    |		Load	0x0,0xe
1349 182b       | +  |		Execute	Package,Field_Execute,Field_Number 0x2b
134a 00d9       |    |		Load_Top	At_Offset_1
134b 017d       | }  |		Execute	Record,Structure_Write
134c e404       |    |		Load	0x2,0x4
134d 00d9       |    |		Load_Top	At_Offset_1
134e e602       |    |		Load	0x3,0x2
134f e020       |    |		Load	0x0,0x20
1350 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
1351 e404       |    |		Load	0x2,0x4
1352 00da       |    |		Load_Top	At_Offset_2
1353 e602       |    |		Load	0x3,0x2
1354 e020       |    |		Load	0x0,0x20
1355 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
1356			BODY_1330:
1356 e006       |    |		Load	0x0,0x6
1357 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
1358 e404       |    |		Load	0x2,0x4
1359 4801       |H   |		Short_Literal	0x1
135a 0092 15c9  |    |		Action	Push_String_Extended,0x15c9					; "<DEFAULT>"
135c 0092 15c9  |    |		Action	Push_String_Extended,0x15c9					; "<DEFAULT>"
135e 0092 15c9  |    |		Action	Push_String_Extended,0x15c9					; "<DEFAULT>"
1360 0092 15c9  |    |		Action	Push_String_Extended,0x15c9					; "<DEFAULT>"
1362 0092 15c9  |    |		Action	Push_String_Extended,0x15c9					; "<DEFAULT>"
1364 e5fe       |    |		Load	0x2,-0x2
1365 e604       |    |		Load	0x3,0x4
1366 00ea       |    |		Load_Encached	Null_String_Cache
1367 00ea       |    |		Load_Encached	Null_String_Cache
1368 4801       |H   |		Short_Literal	0x1
1369 e606       |    |		Load	0x3,0x6
136a 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
136b e606       |    |		Load	0x3,0x6
136c 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
136d 01cf       |    |		Execute	Vector,Slice_Read
136e 4801       |H   |		Short_Literal	0x1
136f e605       |    |		Load	0x3,0x5
1370 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
1371 e605       |    |		Load	0x3,0x5
1372 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
1373 01cf       |    |		Execute	Vector,Slice_Read
1374 e602       |    |		Load	0x3,0x2
1375 e020       |    |		Load	0x0,0x20
1376 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
1377 c403       |    |		Store	0x2,0x3
1378 4800       |H   |		Short_Literal	0x0
1379 e403       |    |		Load	0x2,0x3
137a e006       |    |		Load	0x0,0x6
137b 1847       | G  |		Execute	Package,Field_Execute,Field_Number 0x47
137c 7004       |p   |		Jump_Nonzero	0x1381
137d e404       |    |		Load	0x2,0x4
137e e403       |    |		Load	0x2,0x3
137f e006       |    |		Load	0x0,0x6
1380 182f       | /  |		Execute	Package,Field_Execute,Field_Number 0x2f
1381 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
1382			TRAP_1330:
1382 e006       |    |		Load	0x0,0x6
1383 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
1384 010f       |    |		Execute	Exception,Equal
1385 6801       |h   |		Jump_Zero	0x1387
1386 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
1387 e007       |    |		Load	0x0,0x7
1388 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
1389 4801       |H   |		Short_Literal	0x1
138a 4801       |H   |		Short_Literal	0x1
138b e010       |    |		Load	0x0,0x10
138c 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
138d 035b       | [  |		Declare_Type	Array,Constrained
138e 0337       | 7  |		Declare_Variable	Array
138f 0092 15cd  |    |		Action	Push_String_Extended,0x15cd					; "Unexpected exception caught while refreshing "
1391 e602       |    |		Load	0x3,0x2
1392 e00e       |    |		Load	0x0,0xe
1393 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
1394 01cc       |    |		Execute	Vector,Catenate
1395 e010       |    |		Load	0x0,0x10
1396 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
1397 e010       |    |		Load	0x0,0x10
1398 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
1399 0119       |    |		Execute	Any,Check_In_Formal_Type
139a 4801       |H   |		Short_Literal	0x1
139b 00da       |    |		Load_Top	At_Offset_2
139c 01d6       |    |		Execute	Vector,Field_Write
139d 6006       |`   |		Indirect_Literal	Discrete,0x13a4,{0x00000000, 0x00008859}
139e e006       |    |		Load	0x0,0x6
139f 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
13a0 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
13a1 0000 0000  |    |		.XXX[0x3]
13a3 0000       |    |
13a4 0000 0000  |    |		.LITERAL	{0x00000000, 0x00008859}
13a8 ; --------------------------------------------------------------------------------------
13a8 ; SUBPROGRAM
13a8 ; --------------------------------------------------------------------------------------
13a8 13b8       |    |		.CONST	0x13b8								; Address of begin
13a9 1412       |    |		.CONST	0x1412								; Address of exception handler
13aa 0002       |    |		.CONST	0x0002								; Number of locals
13ab			INIT_13a8:
13ab e008       |    |		Load	0x0,0x8
13ac 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
13ad 02c7       |    |		Declare_Variable	Any
13ae e404       |    |		Load	0x2,0x4
13af 4801       |H   |		Short_Literal	0x1
13b0 e404       |    |		Load	0x2,0x4
13b1 4801       |H   |		Short_Literal	0x1
13b2 e405       |    |		Load	0x2,0x5
13b3 e00e       |    |		Load	0x0,0xe
13b4 1828       | (  |		Execute	Package,Field_Execute,Field_Number 0x28
13b5 e00e       |    |		Load	0x0,0xe
13b6 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
13b7 a602       |    |		Store_Unchecked	0x3,0x2
13b8			BODY_13a8:
13b8 e404       |    |		Load	0x2,0x4
13b9 00d9       |    |		Load_Top	At_Offset_1
13ba e00d       |    |		Load	0x0,0xd
13bb 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
13bc 4801       |H   |		Short_Literal	0x1
13bd e017       |    |		Load	0x0,0x17
13be 1840       | @  |		Execute	Package,Field_Execute,Field_Number 0x40
13bf e404       |    |		Load	0x2,0x4
13c0 4801       |H   |		Short_Literal	0x1
13c1 4801       |H   |		Short_Literal	0x1
13c2 e010       |    |		Load	0x0,0x10
13c3 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
13c4 035b       | [  |		Declare_Type	Array,Constrained
13c5 0337       | 7  |		Declare_Variable	Array
13c6 00da       |    |		Load_Top	At_Offset_2
13c7 e010       |    |		Load	0x0,0x10
13c8 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
13c9 e010       |    |		Load	0x0,0x10
13ca 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
13cb 0119       |    |		Execute	Any,Check_In_Formal_Type
13cc 4801       |H   |		Short_Literal	0x1
13cd 00da       |    |		Load_Top	At_Offset_2
13ce 01d6       |    |		Execute	Vector,Field_Write
13cf 6054       |`T  |		Indirect_Literal	Discrete,0x1424,{0x00000000, 0x0000888e}
13d0 e006       |    |		Load	0x0,0x6
13d1 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
13d2 e404       |    |		Load	0x2,0x4
13d3 4801       |H   |		Short_Literal	0x1
13d4 4801       |H   |		Short_Literal	0x1
13d5 e010       |    |		Load	0x0,0x10
13d6 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
13d7 035b       | [  |		Declare_Type	Array,Constrained
13d8 0337       | 7  |		Declare_Variable	Array
13d9 e404       |    |		Load	0x2,0x4
13da 00db       |    |		Load_Top	At_Offset_3
13db 8240       | @  |		Call	0x1,0x40
13dc e010       |    |		Load	0x0,0x10
13dd 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
13de e010       |    |		Load	0x0,0x10
13df 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
13e0 0119       |    |		Execute	Any,Check_In_Formal_Type
13e1 4801       |H   |		Short_Literal	0x1
13e2 00da       |    |		Load_Top	At_Offset_2
13e3 01d6       |    |		Execute	Vector,Field_Write
13e4 603b       |`;  |		Indirect_Literal	Discrete,0x1420,{0x00000000, 0x00008843}
13e5 e006       |    |		Load	0x0,0x6
13e6 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
13e7 e404       |    |		Load	0x2,0x4
13e8 4801       |H   |		Short_Literal	0x1
13e9 4801       |H   |		Short_Literal	0x1
13ea e010       |    |		Load	0x0,0x10
13eb 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
13ec 035b       | [  |		Declare_Type	Array,Constrained
13ed 0337       | 7  |		Declare_Variable	Array
13ee e404       |    |		Load	0x2,0x4
13ef 00db       |    |		Load_Top	At_Offset_3
13f0 823f       | ?  |		Call	0x1,0x3f
13f1 e010       |    |		Load	0x0,0x10
13f2 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
13f3 e010       |    |		Load	0x0,0x10
13f4 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
13f5 0119       |    |		Execute	Any,Check_In_Formal_Type
13f6 4801       |H   |		Short_Literal	0x1
13f7 00da       |    |		Load_Top	At_Offset_2
13f8 01d6       |    |		Execute	Vector,Field_Write
13f9 6022       |`"  |		Indirect_Literal	Discrete,0x141c,{0x00000000, 0x00008842}
13fa e006       |    |		Load	0x0,0x6
13fb 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
13fc e404       |    |		Load	0x2,0x4
13fd 4801       |H   |		Short_Literal	0x1
13fe 4801       |H   |		Short_Literal	0x1
13ff e010       |    |		Load	0x0,0x10
1400 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
1401 035b       | [  |		Declare_Type	Array,Constrained
1402 0337       | 7  |		Declare_Variable	Array
1403 e404       |    |		Load	0x2,0x4
1404 00db       |    |		Load_Top	At_Offset_3
1405 823e       | >  |		Call	0x1,0x3e
1406 e010       |    |		Load	0x0,0x10
1407 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
1408 e010       |    |		Load	0x0,0x10
1409 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
140a 0119       |    |		Execute	Any,Check_In_Formal_Type
140b 4801       |H   |		Short_Literal	0x1
140c 00da       |    |		Load_Top	At_Offset_2
140d 01d6       |    |		Execute	Vector,Field_Write
140e 6009       |`   |		Indirect_Literal	Discrete,0x1418,{0x00000000, 0x00008844}
140f e006       |    |		Load	0x0,0x6
1410 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
1411 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
1412			TRAP_13a8:
1412 e006       |    |		Load	0x0,0x6
1413 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
1414 010f       |    |		Execute	Exception,Equal
1415 6801       |h   |		Jump_Zero	0x1417
1416 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
1417 0100       |    |		Execute	Exception,Raise
1418 0000 0000  |    |		.LITERAL	{0x00000000, 0x00008844}
141c 0000 0000  |    |		.LITERAL	{0x00000000, 0x00008842}
1420 0000 0000  |    |		.LITERAL	{0x00000000, 0x00008843}
1424 0000 0000  |    |		.LITERAL	{0x00000000, 0x0000888e}
1428 ; --------------------------------------------------------------------------------------
1428 ; SUBPROGRAM
1428 ; --------------------------------------------------------------------------------------
1428 142b       | +  |		.CONST	0x142b								; Address of begin
1429 1433       | 3  |		.CONST	0x1433								; Address of exception handler
142a 0001       |    |		.CONST	0x0001								; Number of locals
142b			BODY_1428:
142b			INIT_1428:
142b e5fa       |    |		Load	0x2,-0x6
142c 823c       | <  |		Call	0x1,0x3c
142d e032       | 2  |		Load	0x0,0x32
142e 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
142f e027       | '  |		Load	0x0,0x27
1430 1866       | f  |		Execute	Package,Field_Execute,Field_Number 0x66
1431 c406       |    |		Store	0x2,0x6
1432 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
1433			TRAP_1428:
1433 010e       |    |		Execute	Exception,Is_Constraint_Error
1434 681c       |h   |		Jump_Zero	0x1451
1435 e007       |    |		Load	0x0,0x7
1436 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
1437 4801       |H   |		Short_Literal	0x1
1438 4801       |H   |		Short_Literal	0x1
1439 e010       |    |		Load	0x0,0x10
143a 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
143b 035b       | [  |		Declare_Type	Array,Constrained
143c 0337       | 7  |		Declare_Variable	Array
143d e5fa       |    |		Load	0x2,-0x6
143e e010       |    |		Load	0x0,0x10
143f 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
1440 e010       |    |		Load	0x0,0x10
1441 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
1442 0119       |    |		Execute	Any,Check_In_Formal_Type
1443 4801       |H   |		Short_Literal	0x1
1444 00da       |    |		Load_Top	At_Offset_2
1445 01d6       |    |		Execute	Vector,Field_Write
1446 600d       |`   |		Indirect_Literal	Discrete,0x1454,{0x00000000, 0x00008891}
1447 e006       |    |		Load	0x0,0x6
1448 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
1449 e010       |    |		Load	0x0,0x10
144a 182b       | +  |		Execute	Package,Field_Execute,Field_Number 0x2b
144b 6008       |`   |		Indirect_Literal	Discrete,0x1454,{0x00000000, 0x00008891}
144c e006       |    |		Load	0x0,0x6
144d 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
144e a403       |    |		Store_Unchecked	0x2,0x3
144f e029       | )  |		Load	0x0,0x29
1450 0257       | W  |		Execute	Discrete,Raise
1451 0100       |    |		Execute	Exception,Raise
1452 0000 0000  |    |		.XXX[0x2]
1454 0000 0000  |    |		.LITERAL	{0x00000000, 0x00008891}
1458 ; --------------------------------------------------------------------------------------
1458 ; SUBPROGRAM
1458 ; --------------------------------------------------------------------------------------
1458 145b       | [  |		.CONST	0x145b								; Address of begin
1459 1462       | b  |		.CONST	0x1462								; Address of exception handler
145a 0001       |    |		.CONST	0x0001								; Number of locals
145b			BODY_1458:
145b			INIT_1458:
145b e5f7       |    |		Load	0x2,-0x9
145c 823c       | <  |		Call	0x1,0x3c
145d e032       | 2  |		Load	0x0,0x32
145e 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
145f e405       |    |		Load	0x2,0x5
1460 017d       | }  |		Execute	Record,Structure_Write
1461 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
1462			TRAP_1458:
1462 010e       |    |		Execute	Exception,Is_Constraint_Error
1463 6819       |h   |		Jump_Zero	0x147d
1464 e007       |    |		Load	0x0,0x7
1465 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
1466 4801       |H   |		Short_Literal	0x1
1467 4801       |H   |		Short_Literal	0x1
1468 e010       |    |		Load	0x0,0x10
1469 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
146a 035b       | [  |		Declare_Type	Array,Constrained
146b 0337       | 7  |		Declare_Variable	Array
146c e5f7       |    |		Load	0x2,-0x9
146d e010       |    |		Load	0x0,0x10
146e 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
146f e010       |    |		Load	0x0,0x10
1470 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
1471 0119       |    |		Execute	Any,Check_In_Formal_Type
1472 4801       |H   |		Short_Literal	0x1
1473 00da       |    |		Load_Top	At_Offset_2
1474 01d6       |    |		Execute	Vector,Field_Write
1475 67de       |g   |		Indirect_Literal	Discrete,0x1454,{0x00000000, 0x00008891}
1476 e006       |    |		Load	0x0,0x6
1477 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
1478 e406       |    |		Load	0x2,0x6
1479 e007       |    |		Load	0x0,0x7
147a 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
147b 00cc       |    |		Action	Pop_Block
147c 450b       |E   |		Exit_Suprogram	New_Top_Offset 0xb
147d 0100       |    |		Execute	Exception,Raise
147e 0000 0000  |    |		.XXX[0x2]
1480 ; --------------------------------------------------------------------------------------
1480 ; SUBPROGRAM
1480 ; --------------------------------------------------------------------------------------
1480 1483       |    |		.CONST	0x1483								; Address of begin
1481 1489       |    |		.CONST	0x1489								; Address of exception handler
1482 0001       |    |		.CONST	0x0001								; Number of locals
1483			BODY_1480:
1483			INIT_1480:
1483 e5fe       |    |		Load	0x2,-0x2
1484 e032       | 2  |		Load	0x0,0x32
1485 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
1486 e405       |    |		Load	0x2,0x5
1487 017d       | }  |		Execute	Record,Structure_Write
1488 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
1489			TRAP_1480:
1489 010e       |    |		Execute	Exception,Is_Constraint_Error
148a 6819       |h   |		Jump_Zero	0x14a4
148b e007       |    |		Load	0x0,0x7
148c 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
148d 4801       |H   |		Short_Literal	0x1
148e 4801       |H   |		Short_Literal	0x1
148f e010       |    |		Load	0x0,0x10
1490 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
1491 035b       | [  |		Declare_Type	Array,Constrained
1492 0337       | 7  |		Declare_Variable	Array
1493 e5fe       |    |		Load	0x2,-0x2
1494 e010       |    |		Load	0x0,0x10
1495 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
1496 e010       |    |		Load	0x0,0x10
1497 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
1498 0119       |    |		Execute	Any,Check_In_Formal_Type
1499 4801       |H   |		Short_Literal	0x1
149a 00da       |    |		Load_Top	At_Offset_2
149b 01d6       |    |		Execute	Vector,Field_Write
149c 600b       |`   |		Indirect_Literal	Discrete,0x14a8,{0x00000000, 0x00008891}
149d e006       |    |		Load	0x0,0x6
149e 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
149f e406       |    |		Load	0x2,0x6
14a0 e007       |    |		Load	0x0,0x7
14a1 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
14a2 00cc       |    |		Action	Pop_Block
14a3 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
14a4 0100       |    |		Execute	Exception,Raise
14a5 0000 0000  |    |		.XXX[0x3]
14a7 0000       |    |
14a8 0000 0000  |    |		.LITERAL	{0x00000000, 0x00008891}
14ac 0000 0000  |    |		.BLANK	0000[0x4]
14b0 ; --------------------------------------------------------------------------------------
14b0 ; SUBPROGRAM
14b0 ; --------------------------------------------------------------------------------------
14b0 14b3       |    |		.CONST	0x14b3								; Address of begin
14b1 0004       |    |		.CONST	0x0004								; Address of exception handler
14b2 0001       |    |		.CONST	0x0001								; Number of locals
14b3			BODY_14b0:
14b3			INIT_14b0:
14b3 00da       |    |		Load_Top	At_Offset_2
14b4 e7fe       |    |		Load	0x3,-0x2
14b5 e402       |    |		Load	0x2,0x2
14b6 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
14b7 6803       |h   |		Jump_Zero	0x14bb
14b8 4801       |H   |		Short_Literal	0x1
14b9 a7fd       |    |		Store_Unchecked	0x3,-0x3
14ba 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
14bb 4800       |H   |		Short_Literal	0x0
14bc a7fd       |    |		Store_Unchecked	0x3,-0x3
14bd 00db       |    |		Load_Top	At_Offset_3
14be 00db       |    |		Load_Top	At_Offset_3
14bf e402       |    |		Load	0x2,0x2
14c0 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
14c1 c7fe       |    |		Store	0x3,-0x2
14c2 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
14c3 0000 0000  |    |		.BLANK	0000[0x5]
14c8 ; --------------------------------------------------------------------------------------
14c8 ; SUBPROGRAM
14c8 ; --------------------------------------------------------------------------------------
14c8 14cb       |    |		.CONST	0x14cb								; Address of begin
14c9 0004       |    |		.CONST	0x0004								; Address of exception handler
14ca 0001       |    |		.CONST	0x0001								; Number of locals
14cb			BODY_14c8:
14cb			INIT_14c8:
14cb 00da       |    |		Load_Top	At_Offset_2
14cc e008       |    |		Load	0x0,0x8
14cd 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
14ce 7016       |p   |		Jump_Nonzero	0x14e5
14cf 00da       |    |		Load_Top	At_Offset_2
14d0 e00e       |    |		Load	0x0,0xe
14d1 1838       | 8  |		Execute	Package,Field_Execute,Field_Number 0x38
14d2 6810       |h   |		Jump_Zero	0x14e3
14d3 00da       |    |		Load_Top	At_Offset_2
14d4 e00e       |    |		Load	0x0,0xe
14d5 183c       | <  |		Execute	Package,Field_Execute,Field_Number 0x3c
14d6 700a       |p   |		Jump_Nonzero	0x14e1
14d7 00da       |    |		Load_Top	At_Offset_2
14d8 e00e       |    |		Load	0x0,0xe
14d9 1839       | 9  |		Execute	Package,Field_Execute,Field_Number 0x39
14da 7004       |p   |		Jump_Nonzero	0x14df
14db 00da       |    |		Load_Top	At_Offset_2
14dc e00e       |    |		Load	0x0,0xe
14dd 183a       | :  |		Execute	Package,Field_Execute,Field_Number 0x3a
14de 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
14df 4801       |H   |		Short_Literal	0x1
14e0 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
14e1 4800       |H   |		Short_Literal	0x0
14e2 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
14e3 4800       |H   |		Short_Literal	0x0
14e4 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
14e5 4800       |H   |		Short_Literal	0x0
14e6 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
14e7 0000       |    |		.XXX[0x1]
14e8 ; --------------------------------------------------------------------------------------
14e8 ; SUBPROGRAM
14e8 ; --------------------------------------------------------------------------------------
14e8 14f4       |    |		.CONST	0x14f4								; Address of begin
14e9 0004       |    |		.CONST	0x0004								; Address of exception handler
14ea 0002       |    |		.CONST	0x0002								; Number of locals
14eb			INIT_14e8:
14eb e5fc       |    |		Load	0x2,-0x4
14ec 00d8       |    |		Load_Top	At_Offset_0
14ed e5ff       |    |		Load	0x2,-0x1
14ee e00e       |    |		Load	0x0,0xe
14ef 182b       | +  |		Execute	Package,Field_Execute,Field_Number 0x2b
14f0 e5fe       |    |		Load	0x2,-0x2
14f1 e5ff       |    |		Load	0x2,-0x1
14f2 e014       |    |		Load	0x0,0x14
14f3 1827       | '  |		Execute	Package,Field_Execute,Field_Number 0x27
14f4			BODY_14e8:
14f4 4800       |H   |		Short_Literal	0x0
14f5 00d9       |    |		Load_Top	At_Offset_1
14f6 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
14f7 e006       |    |		Load	0x0,0x6
14f8 1847       | G  |		Execute	Package,Field_Execute,Field_Number 0x47
14f9 6804       |h   |		Jump_Zero	0x14fe
14fa 00d8       |    |		Load_Top	At_Offset_0
14fb 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
14fc 00cb       |    |		Action	Pop_Block_With_Result
14fd 4404       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x4
14fe e006       |    |		Load	0x0,0x6
14ff 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
1500 0257       | W  |		Execute	Discrete,Raise
1501 0000 0000  |    |		.BLANK	0000[0x7]
1508 ; --------------------------------------------------------------------------------------
1508 ; SUBPROGRAM
1508 ; --------------------------------------------------------------------------------------
1508 150f       |    |		.CONST	0x150f								; Address of begin
1509 0004       |    |		.CONST	0x0004								; Address of exception handler
150a 0002       |    |		.CONST	0x0002								; Number of locals
150b			INIT_1508:
150b e5fc       |    |		Load	0x2,-0x4
150c e5fe       |    |		Load	0x2,-0x2
150d e014       |    |		Load	0x0,0x14
150e 1871       | q  |		Execute	Package,Field_Execute,Field_Number 0x71
150f			BODY_1508:
150f 4800       |H   |		Short_Literal	0x0
1510 00d9       |    |		Load_Top	At_Offset_1
1511 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
1512 e006       |    |		Load	0x0,0x6
1513 1847       | G  |		Execute	Package,Field_Execute,Field_Number 0x47
1514 6804       |h   |		Jump_Zero	0x1519
1515 00d8       |    |		Load_Top	At_Offset_0
1516 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
1517 00cb       |    |		Action	Pop_Block_With_Result
1518 4404       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x4
1519 e006       |    |		Load	0x0,0x6
151a 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
151b 0257       | W  |		Execute	Discrete,Raise
151c 0000 0000  |    |		.BLANK	0000[0x4]
1520 ; --------------------------------------------------------------------------------------
1520 ; SUBPROGRAM
1520 ; --------------------------------------------------------------------------------------
1520 1528       | (  |		.CONST	0x1528								; Address of begin
1521 0004       |    |		.CONST	0x0004								; Address of exception handler
1522 0002       |    |		.CONST	0x0002								; Number of locals
1523			INIT_1520:
1523 e404       |    |		Load	0x2,0x4
1524 e405       |    |		Load	0x2,0x5
1525 e407       |    |		Load	0x2,0x7
1526 e409       |    |		Load	0x2,0x9
1527 8237       | 7  |		Call	0x1,0x37
1528			BODY_1520:
1528 4801       |H   |		Short_Literal	0x1
1529 e230       | 0  |		Load	0x1,0x30
152a 00da       |    |		Load_Top	At_Offset_2
152b e016       |    |		Load	0x0,0x16
152c 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
152d 7045       |pE  |		Jump_Nonzero	0x1573
152e e405       |    |		Load	0x2,0x5
152f 6827       |h'  |		Jump_Zero	0x1557
1530 e404       |    |		Load	0x2,0x4
1531 4801       |H   |		Short_Literal	0x1
1532 4803       |H   |		Short_Literal	0x3
1533 e010       |    |		Load	0x0,0x10
1534 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
1535 035b       | [  |		Declare_Type	Array,Constrained
1536 0337       | 7  |		Declare_Variable	Array
1537 e407       |    |		Load	0x2,0x7
1538 e00e       |    |		Load	0x0,0xe
1539 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
153a e010       |    |		Load	0x0,0x10
153b 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
153c 0119       |    |		Execute	Any,Check_In_Formal_Type
153d 4801       |H   |		Short_Literal	0x1
153e 00da       |    |		Load_Top	At_Offset_2
153f 01d6       |    |		Execute	Vector,Field_Write
1540 00da       |    |		Load_Top	At_Offset_2
1541 e010       |    |		Load	0x0,0x10
1542 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
1543 e010       |    |		Load	0x0,0x10
1544 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
1545 0119       |    |		Execute	Any,Check_In_Formal_Type
1546 4802       |H   |		Short_Literal	0x2
1547 00da       |    |		Load_Top	At_Offset_2
1548 01d6       |    |		Execute	Vector,Field_Write
1549 0092 15ce  |    |		Action	Push_String_Extended,0x15ce					; "secondary "
154b e010       |    |		Load	0x0,0x10
154c 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
154d e010       |    |		Load	0x0,0x10
154e 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
154f 0119       |    |		Execute	Any,Check_In_Formal_Type
1550 4803       |H   |		Short_Literal	0x3
1551 00da       |    |		Load_Top	At_Offset_2
1552 01d6       |    |		Execute	Vector,Field_Write
1553 6020       |`   |		Indirect_Literal	Discrete,0x1574,{0x00000000, 0x00008845}
1554 e006       |    |		Load	0x0,0x6
1555 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
1556 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
1557 e404       |    |		Load	0x2,0x4
1558 4801       |H   |		Short_Literal	0x1
1559 4802       |H   |		Short_Literal	0x2
155a e010       |    |		Load	0x0,0x10
155b 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
155c 035b       | [  |		Declare_Type	Array,Constrained
155d 0337       | 7  |		Declare_Variable	Array
155e e407       |    |		Load	0x2,0x7
155f e00e       |    |		Load	0x0,0xe
1560 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
1561 e010       |    |		Load	0x0,0x10
1562 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
1563 0119       |    |		Execute	Any,Check_In_Formal_Type
1564 4801       |H   |		Short_Literal	0x1
1565 00da       |    |		Load_Top	At_Offset_2
1566 01d6       |    |		Execute	Vector,Field_Write
1567 00da       |    |		Load_Top	At_Offset_2
1568 e010       |    |		Load	0x0,0x10
1569 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
156a e010       |    |		Load	0x0,0x10
156b 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
156c 0119       |    |		Execute	Any,Check_In_Formal_Type
156d 4802       |H   |		Short_Literal	0x2
156e 00da       |    |		Load_Top	At_Offset_2
156f 01d6       |    |		Execute	Vector,Field_Write
1570 6003       |`   |		Indirect_Literal	Discrete,0x1574,{0x00000000, 0x00008845}
1571 e006       |    |		Load	0x0,0x6
1572 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
1573 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
1574 0000 0000  |    |		.LITERAL	{0x00000000, 0x00008845}
1578 ; --------------------------------------------------------------------------------------
1578 ; STRING TABLE
1578 ; --------------------------------------------------------------------------------------
1578 00b0       |    |		.STRTAB	0x00b0->0x15d0							; "Rci."
1579 00b2       |    |		.STRTAB	0x00b2->0x15d2							; "<error>"
157a 00b7       |    |		.STRTAB	0x00b7->0x15d5							; "Create_Secondary"
157b 00c5       |    |		.STRTAB	0x00c5->0x15dd							; "Primary_Unit"
157c 00cf       |    |		.STRTAB	0x00cf->0x15e3							; "Command"
157d 00d4       |    |		.STRTAB	0x00d4->0x15e7							; "Secondary_Text"
157e 00e0       |    |		.STRTAB	0x00e0->0x15ee							; "Remote_Name"
157f 00e9       |    |		.STRTAB	0x00e9->0x15f3							; "Process_Primary => "
1580 00fa       |    |		.STRTAB	0x00fa->0x15fd							; ", Response"
1581 0102       |    |		.STRTAB	0x0102->0x1602							; "Remove_Secondary"
1582 0110       |    |		.STRTAB	0x0110->0x160a							; "Secondary_Referencer"
1583 0122       | "  |		.STRTAB	0x0122->0x1614							; "Response"
1584 0128       | (  |		.STRTAB	0x0128->0x1618							; "Show_Secondary"
1585 0134       | 4  |		.STRTAB	0x0134->0x161f							; "Edit_Secondary"
1586 0140       | @  |		.STRTAB	0x0140->0x1626							; "In_Place => "
1587 014a       | J  |		.STRTAB	0x014a->0x162c							; ", Visible => "
1588 0155       | U  |		.STRTAB	0x0155->0x1632							; "Set_Process_Primary"
1589 0166       | f  |		.STRTAB	0x0166->0x163c							; "Value => "
158a 016d       | m  |		.STRTAB	0x016d->0x1640							; "Set_Secondary_Command"
158b 0180       |    |		.STRTAB	0x0180->0x164b							; "Link"
158c 0182       |    |		.STRTAB	0x0182->0x164d							; "Main_Unit"
158d 0189       |    |		.STRTAB	0x0189->0x1651							; "Make_Uncoded_Units => "
158e 019d       |    |		.STRTAB	0x019d->0x165c							; ", Executable_Name"
158f 01ac       |    |		.STRTAB	0x01ac->0x1665							; "Show_Remote_Unit_Name"
1590 01bf       |    |		.STRTAB	0x01bf->0x166f							; "Unit"
1591 01c1       |    |		.STRTAB	0x01c1->0x1671							; "Show_Units"
1592 01c9       |    |		.STRTAB	0x01c9->0x1676							; "Remote_Name => "
1593 01d6       |    |		.STRTAB	0x01d6->0x167e							; ", Consistency => "
1594 01e5       |    |		.STRTAB	0x01e5->0x1686							; "Set_Unit_Option"
1595 01f2       |    |		.STRTAB	0x01f2->0x168e							; "Option_Switch"
1596 01fd       |    |		.STRTAB	0x01fd->0x1694							; "Switch_Value => "
1597 020b       |    |		.STRTAB	0x020b->0x169c							; ", Units"
1598 0210       |    |		.STRTAB	0x0210->0x16a0							; "Switch_Value"
1599 021a       |    |		.STRTAB	0x021a->0x16a6							; "Units"
159a 021d       |    |		.STRTAB	0x021d->0x16a8							; "Display_Unit_Options"
159b 022f       | /  |		.STRTAB	0x022f->0x16b2							; "Remove_Unit_Option"
159c 023f       | ?  |		.STRTAB	0x023f->0x16bb							; "Refresh_View"
159d 0249       | I  |		.STRTAB	0x0249->0x16c1							; "View"
159e 024b       | K  |		.STRTAB	0x024b->0x16c3							; "Retain_History => "
159f 025b       | [  |		.STRTAB	0x025b->0x16cc							; "Show_Remote_Information"
15a0 0270       | p  |		.STRTAB	0x0270->0x16d8							; "Execute_Remote_Command"
15a1 0284       |    |		.STRTAB	0x0284->0x16e3							; "Remote_Command"
15a2 0290       |    |		.STRTAB	0x0290->0x16ea							; "Remote_Machine"
15a3 029c       |    |		.STRTAB	0x029c->0x16f1							; "Remote_Username"
15a4 02a9       |    |		.STRTAB	0x02a9->0x16f8							; "Remote_Password"
15a5 02b6       |    |		.STRTAB	0x02b6->0x1700							; "Remote_Directory"
15a6 02c4       |    |		.STRTAB	0x02c4->0x1708							; "The_Key"
15a7 02c9       |    |		.STRTAB	0x02c9->0x170b							; "Collapse_Secondary_Referencers"
15a8 02e5       |    |		.STRTAB	0x02e5->0x171a							; "Directory"
15a9 02ec       |    |		.STRTAB	0x02ec->0x171f							; "Expand_Secondary_Referencers"
15aa 0306       |    |		.STRTAB	0x0306->0x172d							; "Build_Script"
15ab 0310       |    |		.STRTAB	0x0310->0x1733							; "Host_Units"
15ac 0318       |    |		.STRTAB	0x0318->0x1738							; "Link_Main_Units => "
15ad 0329       | )  |		.STRTAB	0x0329->0x1741							; ", Transfer_To_Target => "
15ae 033f       | ?  |		.STRTAB	0x033f->0x174d							; ", Host_Script_File"
15af 034f       | O  |		.STRTAB	0x034f->0x1756							; "Remote_Script_File"
15b0 035f       | _  |		.STRTAB	0x035f->0x175f							; "Build_List_File"
15b1 036c       | l  |		.STRTAB	0x036c->0x1767							; "Execute_Script => "
15b2 037c       | |  |		.STRTAB	0x037c->0x1770							; ", Effort_Only => "
15b3 038b       |    |		.STRTAB	0x038b->0x1778							; ", Minimal_Recompilation => "
15b4 03a4       |    |		.STRTAB	0x03a4->0x1786							; ", Make_Units => "
15b5 03b2       |    |		.STRTAB	0x03b2->0x178e							; "Build_Script_Via_Tape"
15b6 03c5       |    |		.STRTAB	0x03c5->0x1798							; "Format"
15b7 03c9       |    |		.STRTAB	0x03c9->0x179b							; "Volume"
15b8 03cd       |    |		.STRTAB	0x03cd->0x179e							; "Label"
15b9 03d0       |    |		.STRTAB	0x03d0->0x17a1							; "Logical_Device"
15ba 03dc       |    |		.STRTAB	0x03dc->0x17a8							; "Effort_Only => "
15bb 03e9       |    |		.STRTAB	0x03e9->0x17af							; "Upload_Associated_Files"
15bc 03fe       |    |		.STRTAB	0x03fe->0x17bb							; "Show_Build_State"
15bd 040c       |    |		.STRTAB	0x040c->0x17c3							; "Execution_Closure => "
15be 041f       |    |		.STRTAB	0x041f->0x17cd							; ", Obsolete_Units_Only => "
15bf 0436       | 6  |		.STRTAB	0x0436->0x17da							; "Execute_Script"
15c0 0442       | B  |		.STRTAB	0x0442->0x17e1							; "Host_Script_File"
15c1 0450       | P  |		.STRTAB	0x0450->0x17e9							; ", Display_Remote_Commands => "
15c2 046b       | k  |		.STRTAB	0x046b->0x17f7							; ", The_Key"
15c3 0472       | r  |		.STRTAB	0x0472->0x17fc							; "Transfer_Units"
15c4 047e       | ~  |		.STRTAB	0x047e->0x1803							; "Display_Default_Naming"
15c5 0492       |    |		.STRTAB	0x0492->0x180e							; "Potential_View"
15c6 049e       |    |		.STRTAB	0x049e->0x1815							; "Target_Key"
15c7 04a6       |    |		.STRTAB	0x04a6->0x181a							; "Remote_Machine => "
15c8 04b6       |    |		.STRTAB	0x04b6->0x1823							; "Remote_Directory => "
15c9 04c8       |    |		.STRTAB	0x04c8->0x182d							; "<DEFAULT>"
15ca 04cf       |    |		.STRTAB	0x04cf->0x1831							; "$"
15cb 04ce       |    |		.STRTAB	0x04ce->0x1832							; "Expression does not name a linkable object"
15cc 04f6       |    |		.STRTAB	0x04f6->0x1847							; "Expression names more than one object, but an executable name was specified"
15cd 053f       | ?  |		.STRTAB	0x053f->0x186c							; "Unexpected exception caught while refreshing "
15ce 056a       | j  |		.STRTAB	0x056a->0x1883							; "secondary "
15cf 0572       | r  |		.STREND 0x0572->0x1888
15d0 5263 692e  |Rci.|		.STRTAB_STRINGS
1888 ; --------------------------------------------------------------------------------------
1888 ; Debug Table
1888 ; --------------------------------------------------------------------------------------
1888 0004 000e  |    |		.DEBUG4	0x0004,0x000e,0xcc9b,0x0000,0x0001,0x0000
188e 0000 0000  |    |		.BLANK	0000[0x1c]
18aa 0002 0000  |    |		.XXX[0xd]
18ac 0140 0000  | @  |
18ae 0000 0000  |    |
18b0 0200 0000  |    |
18b2 1600 0000  |    |
18b4 0008 0000  |    |
18b6 0280       |    |
18b7 0000 0000  |    |		.BLANK	0000[0x2a]
18e1 8000 0050  |   P|		.XXX[0xc]
18e3 0000 0000  |    |
18e5 0000 0080  |    |
18e7 0000 0580  |    |
18e9 0000 0002  |    |
18eb 0000 00a0  |    |
18ed 0000 0000  |    |		.BLANK	0000[0x2a]
1917 2000 0014  |    |		.XXX[0xc]
1919 0000 0000  |    |
191b 0000 0020  |    |
191d 0000 0160  |   `|
191f 0000 0000  |    |
1921 8000 0028  |   (|
1923 0000 0000  |    |		.BLANK	0000[0x2a]
194d 0800 0005  |    |		.XXX[0xc]
194f 0000 0000  |    |
1951 0000 0008  |    |
1953 0000 0058  |   X|
1955 0000 0000  |    |
1957 2000 000a  |    |
1959 0000 0000  |    |		.BLANK	0000[0x2a]
1983 0200 0001  |    |		.XXX[0xd]
1985 4000 0000  |@   |
1987 0000 0002  |    |
1989 0000 0016  |    |
198b 0000 0000  |    |
198d 0800 0002  |    |
198f 8000       |    |
1990 0000 0000  |    |		.BLANK	0000[0x29]
19b9 0080 0000  |    |		.XXX[0xd]
19bb 5000 0000  |P   |
19bd 0000 0000  |    |
19bf 8000 0005  |    |
19c1 8000 0000  |    |
19c3 0200 0000  |    |
19c5 a000       |    |
19c6 0000 0000  |    |		.BLANK	0000[0x29]
19ef 0020 0000  |    |		.XXX[0xd]
19f1 1400 0000  |    |
19f3 0000 0000  |    |
19f5 2000 0001  |    |
19f7 6000 0000  |`   |
19f9 0080 0000  |    |
19fb 2800       |(   |
19fc 0000 0000  |    |		.BLANK	0000[0x4]