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

⟦cfa2ab0b5⟧

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

Derivation

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

Disassembly

0000 000f       |    |		.CONST	0x000f								; Version of machine code
0001 5800       |X   |		.CONST	0x5800								; Diana Version, RCG Major Version, RCG minor version
0002 0000       |    |		.CONST	0x0000								; Zero
0003 0c80       |    |		.CONST	0x0c80								; 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 8007       |    |		.CONST	0x8007								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0105       |    |		.CONST	0x0105								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 004a       | J  |		.CONST	0x004a								; Number of locals
000b			INIT_0008:
000b e001       |    |		Load	0x0,0x1
000c 190d       |    |		Execute	Package,Field_Reference,Field_Number 0xd
000d 0129       | )  |		Execute	Any,Make_Visible
000e e001       |    |		Load	0x0,0x1
000f 190e       |    |		Execute	Package,Field_Reference,Field_Number 0xe
0010 0129       | )  |		Execute	Any,Make_Visible
0011 029a 010b  |    |		Declare_Subprogram	INIT_0108,For_Outer_Call,Visible,Unelaborated
0013 029a 011b  |    |		Declare_Subprogram	INIT_0118,For_Outer_Call,Visible,Unelaborated
0015 029a 012b  |   +|		Declare_Subprogram	INIT_0128,For_Outer_Call,Visible,Unelaborated
0017 e001       |    |		Load	0x0,0x1
0018 1912       |    |		Execute	Package,Field_Reference,Field_Number 0x12
0019 0129       | )  |		Execute	Any,Make_Visible
001a e001       |    |		Load	0x0,0x1
001b 1913       |    |		Execute	Package,Field_Reference,Field_Number 0x13
001c 0129       | )  |		Execute	Any,Make_Visible
001d e001       |    |		Load	0x0,0x1
001e 1914       |    |		Execute	Package,Field_Reference,Field_Number 0x14
001f 0129       | )  |		Execute	Any,Make_Visible
0020 e001       |    |		Load	0x0,0x1
0021 1915       |    |		Execute	Package,Field_Reference,Field_Number 0x15
0022 0129       | )  |		Execute	Any,Make_Visible
0023 e001       |    |		Load	0x0,0x1
0024 1916       |    |		Execute	Package,Field_Reference,Field_Number 0x16
0025 0129       | )  |		Execute	Any,Make_Visible
0026 e001       |    |		Load	0x0,0x1
0027 1917       |    |		Execute	Package,Field_Reference,Field_Number 0x17
0028 0129       | )  |		Execute	Any,Make_Visible
0029 e001       |    |		Load	0x0,0x1
002a 1918       |    |		Execute	Package,Field_Reference,Field_Number 0x18
002b 0129       | )  |		Execute	Any,Make_Visible
002c e001       |    |		Load	0x0,0x1
002d 1919       |    |		Execute	Package,Field_Reference,Field_Number 0x19
002e 0129       | )  |		Execute	Any,Make_Visible
002f e001       |    |		Load	0x0,0x1
0030 191a       |    |		Execute	Package,Field_Reference,Field_Number 0x1a
0031 0129       | )  |		Execute	Any,Make_Visible
0032 e001       |    |		Load	0x0,0x1
0033 191b       |    |		Execute	Package,Field_Reference,Field_Number 0x1b
0034 0129       | )  |		Execute	Any,Make_Visible
0035 029a 013b  |   ;|		Declare_Subprogram	INIT_0138,For_Outer_Call,Visible,Unelaborated
0037 029a 01e3  |    |		Declare_Subprogram	INIT_01e0,For_Outer_Call,Visible,Unelaborated
0039 029a 01fb  |    |		Declare_Subprogram	INIT_01f8,For_Outer_Call,Visible,Unelaborated
003b 029a 0213  |    |		Declare_Subprogram	INIT_0210,For_Outer_Call,Visible,Unelaborated
003d 029a 0223  |   #|		Declare_Subprogram	INIT_0220,For_Outer_Call,Visible,Unelaborated
003f e001       |    |		Load	0x0,0x1
0040 1923       | #  |		Execute	Package,Field_Reference,Field_Number 0x23
0041 0129       | )  |		Execute	Any,Make_Visible
0042 e001       |    |		Load	0x0,0x1
0043 1924       | $  |		Execute	Package,Field_Reference,Field_Number 0x24
0044 0129       | )  |		Execute	Any,Make_Visible
0045 4800       |H   |		Short_Literal	0x0
0046 4802       |H   |		Short_Literal	0x2
0047 029f 0233  |   3|		Declare_Subprogram	INIT_0230,For_Call
0049 03fe       |    |		Declare_Type	Discrete,Defined,Visible
004a 029a 025b  |   [|		Declare_Subprogram	INIT_0258,For_Outer_Call,Visible,Unelaborated
004c e001       |    |		Load	0x0,0x1
004d 1927       | '  |		Execute	Package,Field_Reference,Field_Number 0x27
004e 0129       | )  |		Execute	Any,Make_Visible
004f 029a 0273  |   s|		Declare_Subprogram	INIT_0270,For_Outer_Call,Visible,Unelaborated
0051 e001       |    |		Load	0x0,0x1
0052 1929       | )  |		Execute	Package,Field_Reference,Field_Number 0x29
0053 0129       | )  |		Execute	Any,Make_Visible
0054 e001       |    |		Load	0x0,0x1
0055 192a       | *  |		Execute	Package,Field_Reference,Field_Number 0x2a
0056 0129       | )  |		Execute	Any,Make_Visible
0057 e001       |    |		Load	0x0,0x1
0058 192b       | +  |		Execute	Package,Field_Reference,Field_Number 0x2b
0059 0129       | )  |		Execute	Any,Make_Visible
005a e001       |    |		Load	0x0,0x1
005b 192c       | ,  |		Execute	Package,Field_Reference,Field_Number 0x2c
005c 0129       | )  |		Execute	Any,Make_Visible
005d e001       |    |		Load	0x0,0x1
005e 192d       | -  |		Execute	Package,Field_Reference,Field_Number 0x2d
005f 0129       | )  |		Execute	Any,Make_Visible
0060 e001       |    |		Load	0x0,0x1
0061 192e       | .  |		Execute	Package,Field_Reference,Field_Number 0x2e
0062 0129       | )  |		Execute	Any,Make_Visible
0063 e001       |    |		Load	0x0,0x1
0064 192f       | /  |		Execute	Package,Field_Reference,Field_Number 0x2f
0065 0129       | )  |		Execute	Any,Make_Visible
0066 e001       |    |		Load	0x0,0x1
0067 1930       | 0  |		Execute	Package,Field_Reference,Field_Number 0x30
0068 0129       | )  |		Execute	Any,Make_Visible
0069 e001       |    |		Load	0x0,0x1
006a 1931       | 1  |		Execute	Package,Field_Reference,Field_Number 0x31
006b 0129       | )  |		Execute	Any,Make_Visible
006c e001       |    |		Load	0x0,0x1
006d 1932       | 2  |		Execute	Package,Field_Reference,Field_Number 0x32
006e 0129       | )  |		Execute	Any,Make_Visible
006f e001       |    |		Load	0x0,0x1
0070 1933       | 3  |		Execute	Package,Field_Reference,Field_Number 0x33
0071 0129       | )  |		Execute	Any,Make_Visible
0072 e001       |    |		Load	0x0,0x1
0073 1934       | 4  |		Execute	Package,Field_Reference,Field_Number 0x34
0074 0129       | )  |		Execute	Any,Make_Visible
0075 e001       |    |		Load	0x0,0x1
0076 1935       | 5  |		Execute	Package,Field_Reference,Field_Number 0x35
0077 0129       | )  |		Execute	Any,Make_Visible
0078 e001       |    |		Load	0x0,0x1
0079 1937       | 7  |		Execute	Package,Field_Reference,Field_Number 0x37
007a 0129       | )  |		Execute	Any,Make_Visible
007b e001       |    |		Load	0x0,0x1
007c 1938       | 8  |		Execute	Package,Field_Reference,Field_Number 0x38
007d 0129       | )  |		Execute	Any,Make_Visible
007e e001       |    |		Load	0x0,0x1
007f 1939       | 9  |		Execute	Package,Field_Reference,Field_Number 0x39
0080 0129       | )  |		Execute	Any,Make_Visible
0081 e001       |    |		Load	0x0,0x1
0082 193a       | :  |		Execute	Package,Field_Reference,Field_Number 0x3a
0083 0129       | )  |		Execute	Any,Make_Visible
0084 1d37       | 7  |		Execute_Immediate	Reference_Lex_1,0x37
0085 0129       | )  |		Execute	Any,Make_Visible
0086 00bf       |    |		Action	Accept_Activation
0087 0092 0b53  |   S|		Action	Push_String_Extended,0xb53					; "Rcf_Cmvc."
0089 0092 0b54  |   T|		Action	Push_String_Extended,0xb54					; "<error>"
008b 4800       |H   |		Short_Literal	0x0
008c e002       |    |		Load	0x0,0x2
008d 02a0       |    |		Declare_Subprogram	Null_Subprogram
008e 038e       |    |		Declare_Type	Package,Defined
008f 0387       |    |		Declare_Variable	Package
0090 4800       |H   |		Short_Literal	0x0
0091 e003       |    |		Load	0x0,0x3
0092 02a0       |    |		Declare_Subprogram	Null_Subprogram
0093 038e       |    |		Declare_Type	Package,Defined
0094 0387       |    |		Declare_Variable	Package
0095 4800       |H   |		Short_Literal	0x0
0096 e004       |    |		Load	0x0,0x4
0097 02a0       |    |		Declare_Subprogram	Null_Subprogram
0098 038e       |    |		Declare_Type	Package,Defined
0099 0387       |    |		Declare_Variable	Package
009a 029d 0283  |    |		Declare_Subprogram	INIT_0280,For_Outer_Call
009c 029d 02bb  |    |		Declare_Subprogram	INIT_02b8,For_Outer_Call
009e 029d 02f3  |    |		Declare_Subprogram	INIT_02f0,For_Outer_Call
00a0 029d 032b  |   +|		Declare_Subprogram	INIT_0328,For_Outer_Call
00a2 029d 033b  |   ;|		Declare_Subprogram	INIT_0338,For_Outer_Call
00a4 029d 0373  |   s|		Declare_Subprogram	INIT_0370,For_Outer_Call
00a6 029d 03cb  |    |		Declare_Subprogram	INIT_03c8,For_Outer_Call
00a8 029d 0403  |    |		Declare_Subprogram	INIT_0400,For_Outer_Call
00aa 029d 043b  |   ;|		Declare_Subprogram	INIT_0438,For_Outer_Call
00ac 1d0f       |    |		Execute_Immediate	Reference_Lex_1,0xf
00ad 00c7       |    |		Action	Elaborate_Subprogram
00ae 1d10       |    |		Execute_Immediate	Reference_Lex_1,0x10
00af 00c7       |    |		Action	Elaborate_Subprogram
00b0 1d11       |    |		Execute_Immediate	Reference_Lex_1,0x11
00b1 00c7       |    |		Action	Elaborate_Subprogram
00b2 1d1d       |    |		Execute_Immediate	Reference_Lex_1,0x1d
00b3 00c7       |    |		Action	Elaborate_Subprogram
00b4 1d1e       |    |		Execute_Immediate	Reference_Lex_1,0x1e
00b5 00c7       |    |		Action	Elaborate_Subprogram
00b6 1d1f       |    |		Execute_Immediate	Reference_Lex_1,0x1f
00b7 00c7       |    |		Action	Elaborate_Subprogram
00b8 1d20       |    |		Execute_Immediate	Reference_Lex_1,0x20
00b9 00c7       |    |		Action	Elaborate_Subprogram
00ba 1d24       | $  |		Execute_Immediate	Reference_Lex_1,0x24
00bb 00c7       |    |		Action	Elaborate_Subprogram
00bc 1d26       | &  |		Execute_Immediate	Reference_Lex_1,0x26
00bd 00c7       |    |		Action	Elaborate_Subprogram
00be 029d 0473  |   s|		Declare_Subprogram	INIT_0470,For_Outer_Call
00c0 1d1c       |    |		Execute_Immediate	Reference_Lex_1,0x1c
00c1 00c7       |    |		Action	Elaborate_Subprogram
00c2 029d 055b  |   [|		Declare_Subprogram	INIT_0558,For_Outer_Call
00c4 029d 05e3  |    |		Declare_Subprogram	INIT_05e0,For_Outer_Call
00c6 029d 0663  |   c|		Declare_Subprogram	INIT_0660,For_Outer_Call
00c8 e005       |    |		Load	0x0,0x5
00c9 e006       |    |		Load	0x0,0x6
00ca e007       |    |		Load	0x0,0x7
00cb e008       |    |		Load	0x0,0x8
00cc e009       |    |		Load	0x0,0x9
00cd e00a       |    |		Load	0x0,0xa
00ce e00b       |    |		Load	0x0,0xb
00cf e00c       |    |		Load	0x0,0xc
00d0 e00d       |    |		Load	0x0,0xd
00d1 e00e       |    |		Load	0x0,0xe
00d2 e001       |    |		Load	0x0,0x1
00d3 480b       |H   |		Short_Literal	0xb
00d4 e23b       | ;  |		Load	0x1,0x3b
00d5 020e       |    |		Execute	Module,Augment_Imports
00d6 e23b       | ;  |		Load	0x1,0x3b
00d7 020f       |    |		Execute	Module,Activate
00d8 e006       |    |		Load	0x0,0x6
00d9 e005       |    |		Load	0x0,0x5
00da e008       |    |		Load	0x0,0x8
00db e001       |    |		Load	0x0,0x1
00dc e009       |    |		Load	0x0,0x9
00dd e007       |    |		Load	0x0,0x7
00de e00c       |    |		Load	0x0,0xc
00df e00a       |    |		Load	0x0,0xa
00e0 1d3e       | >  |		Execute_Immediate	Reference_Lex_1,0x3e
00e1 1d47       | G  |		Execute_Immediate	Reference_Lex_1,0x47
00e2 1d3f       | ?  |		Execute_Immediate	Reference_Lex_1,0x3f
00e3 e00f       |    |		Load	0x0,0xf
00e4 1d40       | @  |		Execute_Immediate	Reference_Lex_1,0x40
00e5 1d46       | F  |		Execute_Immediate	Reference_Lex_1,0x46
00e6 e010       |    |		Load	0x0,0x10
00e7 e011       |    |		Load	0x0,0x11
00e8 e012       |    |		Load	0x0,0x12
00e9 e013       |    |		Load	0x0,0x13
00ea e014       |    |		Load	0x0,0x14
00eb e015       |    |		Load	0x0,0x15
00ec e00e       |    |		Load	0x0,0xe
00ed e016       |    |		Load	0x0,0x16
00ee 4816       |H   |		Short_Literal	0x16
00ef e23c       | <  |		Load	0x1,0x3c
00f0 020e       |    |		Execute	Module,Augment_Imports
00f1 e23c       | <  |		Load	0x1,0x3c
00f2 020f       |    |		Execute	Module,Activate
00f3 e006       |    |		Load	0x0,0x6
00f4 e005       |    |		Load	0x0,0x5
00f5 e008       |    |		Load	0x0,0x8
00f6 e009       |    |		Load	0x0,0x9
00f7 e00c       |    |		Load	0x0,0xc
00f8 e017       |    |		Load	0x0,0x17
00f9 e007       |    |		Load	0x0,0x7
00fa e00a       |    |		Load	0x0,0xa
00fb e001       |    |		Load	0x0,0x1
00fc e00f       |    |		Load	0x0,0xf
00fd e013       |    |		Load	0x0,0x13
00fe e018       |    |		Load	0x0,0x18
00ff e239       | 9  |		Load	0x1,0x39
0100 480d       |H   |		Short_Literal	0xd
0101 e23d       | =  |		Load	0x1,0x3d
0102 020e       |    |		Execute	Module,Augment_Imports
0103 e23d       | =  |		Load	0x1,0x3d
0104 020f       |    |		Execute	Module,Activate
0105			BODY_0008:
0105 00bc       |    |		Action	Signal_Activated
0106 00bb       |    |		Action	Signal_Completion
0107 0000       |    |		.XXX[0x1]
0108 ; --------------------------------------------------------------------------------------
0108 ; SUBPROGRAM
0108 ; --------------------------------------------------------------------------------------
0108 010b       |    |		.CONST	0x010b								; Address of begin
0109 0004       |    |		.CONST	0x0004								; Address of exception handler
010a 0001       |    |		.CONST	0x0001								; Number of locals
010b			BODY_0108:
010b			INIT_0108:
010b e5f8       |    |		Load	0x2,-0x8
010c e5f9       |    |		Load	0x2,-0x7
010d e5fa       |    |		Load	0x2,-0x6
010e e5fb       |    |		Load	0x2,-0x5
010f e5fc       |    |		Load	0x2,-0x4
0110 e5fd       |    |		Load	0x2,-0x3
0111 e5fe       |    |		Load	0x2,-0x2
0112 e5ff       |    |		Load	0x2,-0x1
0113 e23b       | ;  |		Load	0x1,0x3b
0114 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
0115 4509       |E   |		Exit_Suprogram	New_Top_Offset 0x9
0116 0000 0000  |    |		.XXX[0x2]
0118 ; --------------------------------------------------------------------------------------
0118 ; SUBPROGRAM
0118 ; --------------------------------------------------------------------------------------
0118 011b       |    |		.CONST	0x011b								; Address of begin
0119 0004       |    |		.CONST	0x0004								; Address of exception handler
011a 0001       |    |		.CONST	0x0001								; Number of locals
011b			BODY_0118:
011b			INIT_0118:
011b e5f9       |    |		Load	0x2,-0x7
011c e5fa       |    |		Load	0x2,-0x6
011d e5fb       |    |		Load	0x2,-0x5
011e e5fc       |    |		Load	0x2,-0x4
011f e5fd       |    |		Load	0x2,-0x3
0120 e5fe       |    |		Load	0x2,-0x2
0121 e5ff       |    |		Load	0x2,-0x1
0122 e23b       | ;  |		Load	0x1,0x3b
0123 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0124 4508       |E   |		Exit_Suprogram	New_Top_Offset 0x8
0125 0000 0000  |    |		.XXX[0x3]
0127 0000       |    |
0128 ; --------------------------------------------------------------------------------------
0128 ; SUBPROGRAM
0128 ; --------------------------------------------------------------------------------------
0128 012b       | +  |		.CONST	0x012b								; Address of begin
0129 0004       |    |		.CONST	0x0004								; Address of exception handler
012a 0001       |    |		.CONST	0x0001								; Number of locals
012b			BODY_0128:
012b			INIT_0128:
012b e5f7       |    |		Load	0x2,-0x9
012c e5f8       |    |		Load	0x2,-0x8
012d e5f9       |    |		Load	0x2,-0x7
012e e5fa       |    |		Load	0x2,-0x6
012f e5fb       |    |		Load	0x2,-0x5
0130 e5fc       |    |		Load	0x2,-0x4
0131 e5fd       |    |		Load	0x2,-0x3
0132 e5fe       |    |		Load	0x2,-0x2
0133 e5ff       |    |		Load	0x2,-0x1
0134 e23b       | ;  |		Load	0x1,0x3b
0135 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0136 450a       |E   |		Exit_Suprogram	New_Top_Offset 0xa
0137 0000       |    |		.XXX[0x1]
0138 ; --------------------------------------------------------------------------------------
0138 ; SUBPROGRAM
0138 ; --------------------------------------------------------------------------------------
0138 014e       | N  |		.CONST	0x014e								; Address of begin
0139 01c2       |    |		.CONST	0x01c2								; Address of exception handler
013a 0008       |    |		.CONST	0x0008								; Number of locals
013b			INIT_0138:
013b 0092 0b55  |   U|		Action	Push_String_Extended,0xb55					; "Release"
013d e006       |    |		Load	0x0,0x6
013e 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
013f 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0140 e005       |    |		Load	0x0,0x5
0141 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0142 02c7       |    |		Declare_Variable	Any
0143 e5f4       |    |		Load	0x2,-0xc
0144 e005       |    |		Load	0x0,0x5
0145 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
0146 a404       |    |		Store_Unchecked	0x2,0x4
0147 00ea       |    |		Load_Encached	Null_String_Cache
0148 029f 06e3  |    |		Declare_Subprogram	INIT_06e0,For_Call
014a 029f 06fb  |    |		Declare_Subprogram	INIT_06f8,For_Call
014c 029f 072b  |   +|		Declare_Subprogram	INIT_0728,For_Call
014e			BODY_0138:
014e e404       |    |		Load	0x2,0x4
014f e239       | 9  |		Load	0x1,0x39
0150 0092 0b56  |   V|		Action	Push_String_Extended,0xb56					; "From_Working_View"
0152 e5ff       |    |		Load	0x2,-0x1
0153 e008       |    |		Load	0x0,0x8
0154 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0155 01cc       |    |		Execute	Vector,Catenate
0156 0092 0b57  |   W|		Action	Push_String_Extended,0xb57					; "Release_Name"
0158 01cc       |    |		Execute	Vector,Catenate
0159 e5fe       |    |		Load	0x2,-0x2
015a e008       |    |		Load	0x0,0x8
015b 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
015c 01cc       |    |		Execute	Vector,Catenate
015d 0092 0b58  |   X|		Action	Push_String_Extended,0xb58					; "Remote_Directory"
015f 01cc       |    |		Execute	Vector,Catenate
0160 e5fd       |    |		Load	0x2,-0x3
0161 e008       |    |		Load	0x0,0x8
0162 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0163 01cc       |    |		Execute	Vector,Catenate
0164 0092 0b59  |   Y|		Action	Push_String_Extended,0xb59					; "Level =>"
0166 01cc       |    |		Execute	Vector,Catenate
0167 e5fc       |    |		Load	0x2,-0x4
0168 00e0       |    |		Load_Encached	Standard_Cache
0169 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
016a 01cc       |    |		Execute	Vector,Catenate
016b 0092 0b5a  |   Z|		Action	Push_String_Extended,0xb5a					; ", Views_To_Import"
016d 01cc       |    |		Execute	Vector,Catenate
016e e5fb       |    |		Load	0x2,-0x5
016f e008       |    |		Load	0x0,0x8
0170 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0171 01cc       |    |		Execute	Vector,Catenate
0172 0092 0b5b  |   [|		Action	Push_String_Extended,0xb5b					; "Create_Configuration_Only => "
0174 01cc       |    |		Execute	Vector,Catenate
0175 e5fa       |    |		Load	0x2,-0x6
0176 00e1       |    |		Load_Encached	Boolean_Cache
0177 011c       |    |		Execute	Any,Convert_Unchecked
0178 1c01       |    |		Execute_Immediate	Run_Utility,0x1
0179 01cc       |    |		Execute	Vector,Catenate
017a 0092 0b5c  |   \|		Action	Push_String_Extended,0xb5c					; ", Compile_The_View => "
017c 01cc       |    |		Execute	Vector,Catenate
017d e5f9       |    |		Load	0x2,-0x7
017e 00e1       |    |		Load_Encached	Boolean_Cache
017f 011c       |    |		Execute	Any,Convert_Unchecked
0180 1c01       |    |		Execute_Immediate	Run_Utility,0x1
0181 01cc       |    |		Execute	Vector,Catenate
0182 0092 0b5d  |   ]|		Action	Push_String_Extended,0xb5d					; ", Goal => "
0184 01cc       |    |		Execute	Vector,Catenate
0185 e5f8       |    |		Load	0x2,-0x8
0186 e009       |    |		Load	0x0,0x9
0187 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0188 011c       |    |		Execute	Any,Convert_Unchecked
0189 1c01       |    |		Execute_Immediate	Run_Utility,0x1
018a 01cc       |    |		Execute	Vector,Catenate
018b 0092 0b5e  |   ^|		Action	Push_String_Extended,0xb5e					; ", Comments"
018d 01cc       |    |		Execute	Vector,Catenate
018e e5f7       |    |		Load	0x2,-0x9
018f e008       |    |		Load	0x0,0x8
0190 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0191 01cc       |    |		Execute	Vector,Catenate
0192 0092 0b5f  |   _|		Action	Push_String_Extended,0xb5f					; "Work_Order"
0194 01cc       |    |		Execute	Vector,Catenate
0195 e5f6       |    |		Load	0x2,-0xa
0196 e008       |    |		Load	0x0,0x8
0197 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0198 01cc       |    |		Execute	Vector,Catenate
0199 0092 0b60  |   `|		Action	Push_String_Extended,0xb60					; "Volume =>"
019b 01cc       |    |		Execute	Vector,Catenate
019c e5f5       |    |		Load	0x2,-0xb
019d 00e0       |    |		Load_Encached	Standard_Cache
019e 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
019f 01cc       |    |		Execute	Vector,Catenate
01a0 0092 0b61  |   a|		Action	Push_String_Extended,0xb61					; ", Response"
01a2 01cc       |    |		Execute	Vector,Catenate
01a3 e5f4       |    |		Load	0x2,-0xc
01a4 e008       |    |		Load	0x0,0x8
01a5 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
01a6 01cc       |    |		Execute	Vector,Catenate
01a7 e402       |    |		Load	0x2,0x2
01a8 e008       |    |		Load	0x0,0x8
01a9 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
01aa 8406       |    |		Call	0x2,0x6
01ab e403       |    |		Load	0x2,0x3
01ac e404       |    |		Load	0x2,0x4
01ad e5f5       |    |		Load	0x2,-0xb
01ae e5f6       |    |		Load	0x2,-0xa
01af e5f7       |    |		Load	0x2,-0x9
01b0 e5f8       |    |		Load	0x2,-0x8
01b1 e5f9       |    |		Load	0x2,-0x7
01b2 e5fa       |    |		Load	0x2,-0x6
01b3 e5fb       |    |		Load	0x2,-0x5
01b4 e5fc       |    |		Load	0x2,-0x4
01b5 e405       |    |		Load	0x2,0x5
01b6 e5fd       |    |		Load	0x2,-0x3
01b7 e5fe       |    |		Load	0x2,-0x2
01b8 e5ff       |    |		Load	0x2,-0x1
01b9 8408       |    |		Call	0x2,0x8
01ba c403       |    |		Store	0x2,0x3
01bb e404       |    |		Load	0x2,0x4
01bc e239       | 9  |		Load	0x1,0x39
01bd e402       |    |		Load	0x2,0x2
01be e403       |    |		Load	0x2,0x3
01bf e008       |    |		Load	0x0,0x8
01c0 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
01c1 450d       |E   |		Exit_Suprogram	New_Top_Offset 0xd
01c2			TRAP_0138:
01c2 e006       |    |		Load	0x0,0x6
01c3 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
01c4 010f       |    |		Execute	Exception,Equal
01c5 6807       |h   |		Jump_Zero	0x1cd
01c6 e404       |    |		Load	0x2,0x4
01c7 e239       | 9  |		Load	0x1,0x39
01c8 e402       |    |		Load	0x2,0x2
01c9 e403       |    |		Load	0x2,0x3
01ca e008       |    |		Load	0x0,0x8
01cb 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
01cc 450d       |E   |		Exit_Suprogram	New_Top_Offset 0xd
01cd 4884       |H   |		Short_Literal	0x84
01ce 010f       |    |		Execute	Exception,Equal
01cf 6807       |h   |		Jump_Zero	0x1d7
01d0 e404       |    |		Load	0x2,0x4
01d1 e239       | 9  |		Load	0x1,0x39
01d2 e402       |    |		Load	0x2,0x2
01d3 e403       |    |		Load	0x2,0x3
01d4 e008       |    |		Load	0x0,0x8
01d5 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
01d6 450d       |E   |		Exit_Suprogram	New_Top_Offset 0xd
01d7 e404       |    |		Load	0x2,0x4
01d8 e239       | 9  |		Load	0x1,0x39
01d9 e402       |    |		Load	0x2,0x2
01da e403       |    |		Load	0x2,0x3
01db e008       |    |		Load	0x0,0x8
01dc 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
01dd 450d       |E   |		Exit_Suprogram	New_Top_Offset 0xd
01de 0000 0000  |    |		.XXX[0x2]
01e0 ; --------------------------------------------------------------------------------------
01e0 ; SUBPROGRAM
01e0 ; --------------------------------------------------------------------------------------
01e0 01e3       |    |		.CONST	0x01e3								; Address of begin
01e1 0004       |    |		.CONST	0x0004								; Address of exception handler
01e2 0001       |    |		.CONST	0x0001								; Number of locals
01e3			BODY_01e0:
01e3			INIT_01e0:
01e3 e5f1       |    |		Load	0x2,-0xf
01e4 e5f2       |    |		Load	0x2,-0xe
01e5 e5f3       |    |		Load	0x2,-0xd
01e6 e5f4       |    |		Load	0x2,-0xc
01e7 e5f5       |    |		Load	0x2,-0xb
01e8 e5f6       |    |		Load	0x2,-0xa
01e9 e5f7       |    |		Load	0x2,-0x9
01ea e5f8       |    |		Load	0x2,-0x8
01eb e5f9       |    |		Load	0x2,-0x7
01ec e5fa       |    |		Load	0x2,-0x6
01ed e5fb       |    |		Load	0x2,-0x5
01ee e5fc       |    |		Load	0x2,-0x4
01ef e5fd       |    |		Load	0x2,-0x3
01f0 e5fe       |    |		Load	0x2,-0x2
01f1 e5ff       |    |		Load	0x2,-0x1
01f2 e23c       | <  |		Load	0x1,0x3c
01f3 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
01f4 4510       |E   |		Exit_Suprogram	New_Top_Offset 0x10
01f5 0000 0000  |    |		.XXX[0x3]
01f7 0000       |    |
01f8 ; --------------------------------------------------------------------------------------
01f8 ; SUBPROGRAM
01f8 ; --------------------------------------------------------------------------------------
01f8 01fb       |    |		.CONST	0x01fb								; Address of begin
01f9 0004       |    |		.CONST	0x0004								; Address of exception handler
01fa 0001       |    |		.CONST	0x0001								; Number of locals
01fb			BODY_01f8:
01fb			INIT_01f8:
01fb e5f4       |    |		Load	0x2,-0xc
01fc e5f5       |    |		Load	0x2,-0xb
01fd e5f6       |    |		Load	0x2,-0xa
01fe e5f7       |    |		Load	0x2,-0x9
01ff e5f8       |    |		Load	0x2,-0x8
0200 e5f9       |    |		Load	0x2,-0x7
0201 e5fa       |    |		Load	0x2,-0x6
0202 e5fb       |    |		Load	0x2,-0x5
0203 e5fc       |    |		Load	0x2,-0x4
0204 e5fd       |    |		Load	0x2,-0x3
0205 e5fe       |    |		Load	0x2,-0x2
0206 e5ff       |    |		Load	0x2,-0x1
0207 e23c       | <  |		Load	0x1,0x3c
0208 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0209 450d       |E   |		Exit_Suprogram	New_Top_Offset 0xd
020a 0000 0000  |    |		.BLANK	0000[0x6]
0210 ; --------------------------------------------------------------------------------------
0210 ; SUBPROGRAM
0210 ; --------------------------------------------------------------------------------------
0210 0213       |    |		.CONST	0x0213								; Address of begin
0211 0004       |    |		.CONST	0x0004								; Address of exception handler
0212 0001       |    |		.CONST	0x0001								; Number of locals
0213			BODY_0210:
0213			INIT_0210:
0213 e5f7       |    |		Load	0x2,-0x9
0214 e5f8       |    |		Load	0x2,-0x8
0215 e5f9       |    |		Load	0x2,-0x7
0216 e5fa       |    |		Load	0x2,-0x6
0217 e5fb       |    |		Load	0x2,-0x5
0218 e5fc       |    |		Load	0x2,-0x4
0219 e5fd       |    |		Load	0x2,-0x3
021a e5fe       |    |		Load	0x2,-0x2
021b e5ff       |    |		Load	0x2,-0x1
021c e23d       | =  |		Load	0x1,0x3d
021d 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
021e 450a       |E   |		Exit_Suprogram	New_Top_Offset 0xa
021f 0000       |    |		.XXX[0x1]
0220 ; --------------------------------------------------------------------------------------
0220 ; SUBPROGRAM
0220 ; --------------------------------------------------------------------------------------
0220 0223       | #  |		.CONST	0x0223								; Address of begin
0221 0004       |    |		.CONST	0x0004								; Address of exception handler
0222 0001       |    |		.CONST	0x0001								; Number of locals
0223			BODY_0220:
0223			INIT_0220:
0223 e5fb       |    |		Load	0x2,-0x5
0224 e5fc       |    |		Load	0x2,-0x4
0225 e5fd       |    |		Load	0x2,-0x3
0226 e5fe       |    |		Load	0x2,-0x2
0227 e5ff       |    |		Load	0x2,-0x1
0228 e23d       | =  |		Load	0x1,0x3d
0229 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
022a 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
022b 0000 0000  |    |		.BLANK	0000[0x5]
0230 ; --------------------------------------------------------------------------------------
0230 ; SUBPROGRAM
0230 ; --------------------------------------------------------------------------------------
0230 0233       | 3  |		.CONST	0x0233								; Address of begin
0231 0004       |    |		.CONST	0x0004								; Address of exception handler
0232 0001       |    |		.CONST	0x0001								; Number of locals
0233			BODY_0230:
0233			INIT_0230:
0233 4607       |F   |		Jump_Case	0x8
0234 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
0235 7806       |x   |		Jump	0x23c								; case 0x1
0236 7809       |x   |		Jump	0x240								; case 0x2
0237 780d       |x   |		Jump	0x245								; case 0x3
0238 7810       |x   |		Jump	0x249								; case 0x4
0239 7811       |x   |		Jump	0x24b								; case 0x5
023a 7812       |x   |		Jump	0x24d								; case 0x6
023b 7815       |x   |		Jump	0x251								; case 0x7
023c 00da       |    |		Load_Top	At_Offset_2
023d 0091 0b50  |   P|		Action	Push_String_Extended_Indexed,0xb50				; "SPEC_LOAD_SUBSYSTEM"
023f 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0240 00db       |    |		Load_Top	At_Offset_3
0241 00db       |    |		Load_Top	At_Offset_3
0242 00e0       |    |		Load_Encached	Standard_Cache
0243 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0244 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0245 00da       |    |		Load_Top	At_Offset_2
0246 00e0       |    |		Load_Encached	Standard_Cache
0247 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0248 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0249 00db       |    |		Load_Top	At_Offset_3
024a 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
024b 00db       |    |		Load_Top	At_Offset_3
024c 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
024d e223       | #  |		Load	0x1,0x23
024e 00dc       |    |		Load_Top	At_Offset_4
024f 0267       | g  |		Execute	Discrete,Predecessor
0250 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0251 e223       | #  |		Load	0x1,0x23
0252 00dc       |    |		Load_Top	At_Offset_4
0253 0268       | h  |		Execute	Discrete,Successor
0254 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0255 0000 0000  |    |		.XXX[0x3]
0257 0000       |    |
0258 ; --------------------------------------------------------------------------------------
0258 ; SUBPROGRAM
0258 ; --------------------------------------------------------------------------------------
0258 025b       | [  |		.CONST	0x025b								; Address of begin
0259 0004       |    |		.CONST	0x0004								; Address of exception handler
025a 0001       |    |		.CONST	0x0001								; Number of locals
025b			BODY_0258:
025b			INIT_0258:
025b e5f5       |    |		Load	0x2,-0xb
025c e5f6       |    |		Load	0x2,-0xa
025d e5f7       |    |		Load	0x2,-0x9
025e e5f8       |    |		Load	0x2,-0x8
025f e5f9       |    |		Load	0x2,-0x7
0260 e5fa       |    |		Load	0x2,-0x6
0261 e5fb       |    |		Load	0x2,-0x5
0262 e5fc       |    |		Load	0x2,-0x4
0263 e5fd       |    |		Load	0x2,-0x3
0264 e5fe       |    |		Load	0x2,-0x2
0265 e5ff       |    |		Load	0x2,-0x1
0266 e23c       | <  |		Load	0x1,0x3c
0267 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
0268 450c       |E   |		Exit_Suprogram	New_Top_Offset 0xc
0269 0000 0000  |    |		.BLANK	0000[0x7]
0270 ; --------------------------------------------------------------------------------------
0270 ; SUBPROGRAM
0270 ; --------------------------------------------------------------------------------------
0270 0273       | s  |		.CONST	0x0273								; Address of begin
0271 0004       |    |		.CONST	0x0004								; Address of exception handler
0272 0001       |    |		.CONST	0x0001								; Number of locals
0273			BODY_0270:
0273			INIT_0270:
0273 e5f9       |    |		Load	0x2,-0x7
0274 e5fa       |    |		Load	0x2,-0x6
0275 e5fb       |    |		Load	0x2,-0x5
0276 e5fc       |    |		Load	0x2,-0x4
0277 e5fd       |    |		Load	0x2,-0x3
0278 e5fe       |    |		Load	0x2,-0x2
0279 e5ff       |    |		Load	0x2,-0x1
027a e23c       | <  |		Load	0x1,0x3c
027b 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
027c 4508       |E   |		Exit_Suprogram	New_Top_Offset 0x8
027d 0000 0000  |    |		.XXX[0x3]
027f 0000       |    |
0280 ; --------------------------------------------------------------------------------------
0280 ; SUBPROGRAM
0280 ; --------------------------------------------------------------------------------------
0280 0283       |    |		.CONST	0x0283								; Address of begin
0281 0004       |    |		.CONST	0x0004								; Address of exception handler
0282 0001       |    |		.CONST	0x0001								; Number of locals
0283			BODY_0280:
0283			INIT_0280:
0283 4801       |H   |		Short_Literal	0x1
0284 e5fe       |    |		Load	0x2,-0x2
0285 0092 0b62  |   b|		Action	Push_String_Extended,0xb62					; "Working"
0287 e00b       |    |		Load	0x0,0xb
0288 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
0289 6811       |h   |		Jump_Zero	0x29b
028a 482e       |H.  |		Short_Literal	0x2e
028b 6024       |`$  |		Indirect_Literal	Discrete,0x2b0,{0x00000000, 0x00004000}
028c e015       |    |		Load	0x0,0x15
028d 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
028e e010       |    |		Load	0x0,0x10
028f 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0290 e007       |    |		Load	0x0,0x7
0291 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0292 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0293 e5ff       |    |		Load	0x2,-0x1
0294 e007       |    |		Load	0x0,0x7
0295 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0296 1836       | 6  |		Execute	Package,Field_Execute,Field_Number 0x36
0297 01cb       |    |		Execute	Vector,Append
0298 e5fe       |    |		Load	0x2,-0x2
0299 01cc       |    |		Execute	Vector,Catenate
029a 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
029b 482e       |H.  |		Short_Literal	0x2e
029c 6013       |`   |		Indirect_Literal	Discrete,0x2b0,{0x00000000, 0x00004000}
029d e015       |    |		Load	0x0,0x15
029e 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
029f e010       |    |		Load	0x0,0x10
02a0 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
02a1 e007       |    |		Load	0x0,0x7
02a2 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
02a3 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
02a4 e5ff       |    |		Load	0x2,-0x1
02a5 e007       |    |		Load	0x0,0x7
02a6 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
02a7 1836       | 6  |		Execute	Package,Field_Execute,Field_Number 0x36
02a8 01cb       |    |		Execute	Vector,Append
02a9 e5fe       |    |		Load	0x2,-0x2
02aa 01cc       |    |		Execute	Vector,Catenate
02ab 0092 0b63  |   c|		Action	Push_String_Extended,0xb63					; "_Working"
02ad 01cc       |    |		Execute	Vector,Catenate
02ae 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
02af 0000       |    |		.XXX[0x1]
02b0 0000 0000  |    |		.LITERAL	{0x00000000, 0x00004000}
02b4 0000 0000  |    |		.BLANK	0000[0x4]
02b8 ; --------------------------------------------------------------------------------------
02b8 ; SUBPROGRAM
02b8 ; --------------------------------------------------------------------------------------
02b8 02bb       |    |		.CONST	0x02bb								; Address of begin
02b9 0004       |    |		.CONST	0x0004								; Address of exception handler
02ba 0001       |    |		.CONST	0x0001								; Number of locals
02bb			BODY_02b8:
02bb			INIT_02b8:
02bb 4801       |H   |		Short_Literal	0x1
02bc e5fe       |    |		Load	0x2,-0x2
02bd 0092 0b62  |   b|		Action	Push_String_Extended,0xb62					; "Working"
02bf e00b       |    |		Load	0x0,0xb
02c0 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
02c1 6814       |h   |		Jump_Zero	0x2d6
02c2 482e       |H.  |		Short_Literal	0x2e
02c3 67ec       |g   |		Indirect_Literal	Discrete,0x2b0,{0x00000000, 0x00004000}
02c4 e015       |    |		Load	0x0,0x15
02c5 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
02c6 e010       |    |		Load	0x0,0x10
02c7 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
02c8 e007       |    |		Load	0x0,0x7
02c9 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
02ca 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
02cb e5ff       |    |		Load	0x2,-0x1
02cc e007       |    |		Load	0x0,0x7
02cd 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
02ce 1836       | 6  |		Execute	Package,Field_Execute,Field_Number 0x36
02cf e007       |    |		Load	0x0,0x7
02d0 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
02d1 1832       | 2  |		Execute	Package,Field_Execute,Field_Number 0x32
02d2 01cb       |    |		Execute	Vector,Append
02d3 e5fe       |    |		Load	0x2,-0x2
02d4 01cc       |    |		Execute	Vector,Catenate
02d5 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
02d6 482e       |H.  |		Short_Literal	0x2e
02d7 67d8       |g   |		Indirect_Literal	Discrete,0x2b0,{0x00000000, 0x00004000}
02d8 e015       |    |		Load	0x0,0x15
02d9 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
02da e010       |    |		Load	0x0,0x10
02db 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
02dc e007       |    |		Load	0x0,0x7
02dd 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
02de 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
02df e5ff       |    |		Load	0x2,-0x1
02e0 e007       |    |		Load	0x0,0x7
02e1 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
02e2 1836       | 6  |		Execute	Package,Field_Execute,Field_Number 0x36
02e3 e007       |    |		Load	0x0,0x7
02e4 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
02e5 1832       | 2  |		Execute	Package,Field_Execute,Field_Number 0x32
02e6 01cb       |    |		Execute	Vector,Append
02e7 e5fe       |    |		Load	0x2,-0x2
02e8 01cc       |    |		Execute	Vector,Catenate
02e9 0092 0b63  |   c|		Action	Push_String_Extended,0xb63					; "_Working"
02eb 01cc       |    |		Execute	Vector,Catenate
02ec 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
02ed 0000 0000  |    |		.XXX[0x3]
02ef 0000       |    |
02f0 ; --------------------------------------------------------------------------------------
02f0 ; SUBPROGRAM
02f0 ; --------------------------------------------------------------------------------------
02f0 030b       |    |		.CONST	0x030b								; Address of begin
02f1 0004       |    |		.CONST	0x0004								; Address of exception handler
02f2 0005       |    |		.CONST	0x0005								; Number of locals
02f3			INIT_02f0:
02f3 e5fd       |    |		Load	0x2,-0x3
02f4 4801       |H   |		Short_Literal	0x1
02f5 e5ff       |    |		Load	0x2,-0x1
02f6 e00a       |    |		Load	0x0,0xa
02f7 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
02f8 00d8       |    |		Load_Top	At_Offset_0
02f9 e007       |    |		Load	0x0,0x7
02fa 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
02fb 1832       | 2  |		Execute	Package,Field_Execute,Field_Number 0x32
02fc 00d9       |    |		Load_Top	At_Offset_1
02fd e007       |    |		Load	0x0,0x7
02fe 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
02ff 1833       | 3  |		Execute	Package,Field_Execute,Field_Number 0x33
0300 00d8       |    |		Load_Top	At_Offset_0
0301 01dd       |    |		Execute	Vector,First
0302 4801       |H   |		Short_Literal	0x1
0303 00da       |    |		Load_Top	At_Offset_2
0304 0092 0b64  |   d|		Action	Push_String_Extended,0xb64					; "_"
0306 e00b       |    |		Load	0x0,0xb
0307 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
0308 00da       |    |		Load_Top	At_Offset_2
0309 01cf       |    |		Execute	Vector,Slice_Read
030a 0007       |    |		Action	Break_Optional
030b			BODY_02f0:
030b 4801       |H   |		Short_Literal	0x1
030c e5fe       |    |		Load	0x2,-0x2
030d 0092 0b62  |   b|		Action	Push_String_Extended,0xb62					; "Working"
030f e00b       |    |		Load	0x0,0xb
0310 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
0311 6808       |h   |		Jump_Zero	0x31a
0312 482e       |H.  |		Short_Literal	0x2e
0313 00db       |    |		Load_Top	At_Offset_3
0314 01cb       |    |		Execute	Vector,Append
0315 00d9       |    |		Load_Top	At_Offset_1
0316 01cc       |    |		Execute	Vector,Catenate
0317 e5fe       |    |		Load	0x2,-0x2
0318 01cc       |    |		Execute	Vector,Catenate
0319 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
031a 482e       |H.  |		Short_Literal	0x2e
031b 00db       |    |		Load_Top	At_Offset_3
031c 01cb       |    |		Execute	Vector,Append
031d 00d9       |    |		Load_Top	At_Offset_1
031e 01cc       |    |		Execute	Vector,Catenate
031f e5fe       |    |		Load	0x2,-0x2
0320 01cc       |    |		Execute	Vector,Catenate
0321 0092 0b63  |   c|		Action	Push_String_Extended,0xb63					; "_Working"
0323 01cc       |    |		Execute	Vector,Catenate
0324 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
0325 0000 0000  |    |		.XXX[0x3]
0327 0000       |    |
0328 ; --------------------------------------------------------------------------------------
0328 ; SUBPROGRAM
0328 ; --------------------------------------------------------------------------------------
0328 032f       | /  |		.CONST	0x032f								; Address of begin
0329 0004       |    |		.CONST	0x0004								; Address of exception handler
032a 0003       |    |		.CONST	0x0003								; Number of locals
032b			INIT_0328:
032b 029f 0763  |   c|		Declare_Subprogram	INIT_0760,For_Call
032d 029f 077b  |   {|		Declare_Subprogram	INIT_0778,For_Call
032f			BODY_0328:
032f e5fc       |    |		Load	0x2,-0x4
0330 7002       |p   |		Jump_Nonzero	0x333
0331 8402       |    |		Call	0x2,0x2
0332 7801       |x   |		Jump	0x334
0333 8403       |    |		Call	0x2,0x3
0334 0831       | 1  |		Execute_Immediate	Raise,0x31
0335 0000 0000  |    |		.XXX[0x3]
0337 0000       |    |
0338 ; --------------------------------------------------------------------------------------
0338 ; SUBPROGRAM
0338 ; --------------------------------------------------------------------------------------
0338 0343       | C  |		.CONST	0x0343								; Address of begin
0339 0004       |    |		.CONST	0x0004								; Address of exception handler
033a 0002       |    |		.CONST	0x0002								; Number of locals
033b			INIT_0338:
033b 00db       |    |		Load_Top	At_Offset_3
033c e5fe       |    |		Load	0x2,-0x2
033d e5ff       |    |		Load	0x2,-0x1
033e e00a       |    |		Load	0x0,0xa
033f 182b       | +  |		Execute	Package,Field_Execute,Field_Number 0x2b
0340 e5ff       |    |		Load	0x2,-0x1
0341 e019       |    |		Load	0x0,0x19
0342 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
0343			BODY_0338:
0343 4800       |H   |		Short_Literal	0x0
0344 00d9       |    |		Load_Top	At_Offset_1
0345 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0346 e006       |    |		Load	0x0,0x6
0347 1847       | G  |		Execute	Package,Field_Execute,Field_Number 0x47
0348 6803       |h   |		Jump_Zero	0x34c
0349 00d8       |    |		Load_Top	At_Offset_0
034a 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
034b 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
034c e5fe       |    |		Load	0x2,-0x2
034d 4801       |H   |		Short_Literal	0x1
034e 4802       |H   |		Short_Literal	0x2
034f e00f       |    |		Load	0x0,0xf
0350 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0351 035b       | [  |		Declare_Type	Array,Constrained
0352 0337       | 7  |		Declare_Variable	Array
0353 e5ff       |    |		Load	0x2,-0x1
0354 e00f       |    |		Load	0x0,0xf
0355 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
0356 e00f       |    |		Load	0x0,0xf
0357 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0358 0119       |    |		Execute	Any,Check_In_Formal_Type
0359 4801       |H   |		Short_Literal	0x1
035a 00da       |    |		Load_Top	At_Offset_2
035b 01d6       |    |		Execute	Vector,Field_Write
035c 00da       |    |		Load_Top	At_Offset_2
035d 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
035e e006       |    |		Load	0x0,0x6
035f 182b       | +  |		Execute	Package,Field_Execute,Field_Number 0x2b
0360 e00f       |    |		Load	0x0,0xf
0361 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0362 0119       |    |		Execute	Any,Check_In_Formal_Type
0363 4802       |H   |		Short_Literal	0x2
0364 00da       |    |		Load_Top	At_Offset_2
0365 01d6       |    |		Execute	Vector,Field_Write
0366 6005       |`   |		Indirect_Literal	Discrete,0x36c,{0x00000000, 0x00008809}
0367 e006       |    |		Load	0x0,0x6
0368 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
0369 00ea       |    |		Load_Encached	Null_String_Cache
036a 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
036b 0000       |    |		.XXX[0x1]
036c 0000 0000  |    |		.LITERAL	{0x00000000, 0x00008809}
0370 ; --------------------------------------------------------------------------------------
0370 ; SUBPROGRAM
0370 ; --------------------------------------------------------------------------------------
0370 0373       | s  |		.CONST	0x0373								; Address of begin
0371 0004       |    |		.CONST	0x0004								; Address of exception handler
0372 0001       |    |		.CONST	0x0001								; Number of locals
0373			BODY_0370:
0373			INIT_0370:
0373 00da       |    |		Load_Top	At_Offset_2
0374 e014       |    |		Load	0x0,0x14
0375 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0376 6845       |hE  |		Jump_Zero	0x3bc
0377 00db       |    |		Load_Top	At_Offset_3
0378 682d       |h-  |		Jump_Zero	0x3a6
0379 4801       |H   |		Short_Literal	0x1
037a 4801       |H   |		Short_Literal	0x1
037b 4800       |H   |		Short_Literal	0x0
037c 4801       |H   |		Short_Literal	0x1
037d e5fd       |    |		Load	0x2,-0x3
037e e00a       |    |		Load	0x0,0xa
037f 183e       | >  |		Execute	Package,Field_Execute,Field_Number 0x3e
0380 e005       |    |		Load	0x0,0x5
0381 184a       | J  |		Execute	Package,Field_Execute,Field_Number 0x4a
0382 4800       |H   |		Short_Literal	0x0
0383 0092 0b65  |   e|		Action	Push_String_Extended,0xb65					; "<ALL_WORLDS>"
0385 4802       |H   |		Short_Literal	0x2
0386 e5ff       |    |		Load	0x2,-0x1
0387 e00a       |    |		Load	0x0,0xa
0388 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
0389 e009       |    |		Load	0x0,0x9
038a 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
038b 00da       |    |		Load_Top	At_Offset_2
038c e014       |    |		Load	0x0,0x14
038d 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
038e 6816       |h   |		Jump_Zero	0x3a5
038f e5fd       |    |		Load	0x2,-0x3
0390 4801       |H   |		Short_Literal	0x1
0391 4801       |H   |		Short_Literal	0x1
0392 e00f       |    |		Load	0x0,0xf
0393 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0394 035b       | [  |		Declare_Type	Array,Constrained
0395 0337       | 7  |		Declare_Variable	Array
0396 e5ff       |    |		Load	0x2,-0x1
0397 e00a       |    |		Load	0x0,0xa
0398 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
0399 e00f       |    |		Load	0x0,0xf
039a 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
039b 0119       |    |		Execute	Any,Check_In_Formal_Type
039c 4801       |H   |		Short_Literal	0x1
039d 00da       |    |		Load_Top	At_Offset_2
039e 01d6       |    |		Execute	Vector,Field_Write
039f 6020       |`   |		Indirect_Literal	Discrete,0x3c0,{0x00000000, 0x00008805}
03a0 e006       |    |		Load	0x0,0x6
03a1 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
03a2 e006       |    |		Load	0x0,0x6
03a3 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
03a4 0257       | W  |		Execute	Discrete,Raise
03a5 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
03a6 e5fd       |    |		Load	0x2,-0x3
03a7 4801       |H   |		Short_Literal	0x1
03a8 4801       |H   |		Short_Literal	0x1
03a9 e00f       |    |		Load	0x0,0xf
03aa 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
03ab 035b       | [  |		Declare_Type	Array,Constrained
03ac 0337       | 7  |		Declare_Variable	Array
03ad e5ff       |    |		Load	0x2,-0x1
03ae e00a       |    |		Load	0x0,0xa
03af 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
03b0 e00f       |    |		Load	0x0,0xf
03b1 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
03b2 0119       |    |		Execute	Any,Check_In_Formal_Type
03b3 4801       |H   |		Short_Literal	0x1
03b4 00da       |    |		Load_Top	At_Offset_2
03b5 01d6       |    |		Execute	Vector,Field_Write
03b6 6009       |`   |		Indirect_Literal	Discrete,0x3c0,{0x00000000, 0x00008805}
03b7 e006       |    |		Load	0x0,0x6
03b8 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
03b9 e006       |    |		Load	0x0,0x6
03ba 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
03bb 0257       | W  |		Execute	Discrete,Raise
03bc 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
03bd 0000 0000  |    |		.XXX[0x3]
03bf 0000       |    |
03c0 0000 0000  |    |		.LITERAL	{0x00000000, 0x00008805}
03c4 0000 0000  |    |		.BLANK	0000[0x4]
03c8 ; --------------------------------------------------------------------------------------
03c8 ; SUBPROGRAM
03c8 ; --------------------------------------------------------------------------------------
03c8 03cb       |    |		.CONST	0x03cb								; Address of begin
03c9 0004       |    |		.CONST	0x0004								; Address of exception handler
03ca 0001       |    |		.CONST	0x0001								; Number of locals
03cb			BODY_03c8:
03cb			INIT_03c8:
03cb 00da       |    |		Load_Top	At_Offset_2
03cc e014       |    |		Load	0x0,0x14
03cd 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
03ce 00db       |    |		Load_Top	At_Offset_3
03cf e014       |    |		Load	0x0,0x14
03d0 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
03d1 0278       | x  |		Execute	Discrete,Or
03d2 682c       |h,  |		Jump_Zero	0x3ff
03d3 4801       |H   |		Short_Literal	0x1
03d4 4801       |H   |		Short_Literal	0x1
03d5 4800       |H   |		Short_Literal	0x0
03d6 4801       |H   |		Short_Literal	0x1
03d7 e5fe       |    |		Load	0x2,-0x2
03d8 e00a       |    |		Load	0x0,0xa
03d9 183e       | >  |		Execute	Package,Field_Execute,Field_Number 0x3e
03da e005       |    |		Load	0x0,0x5
03db 184a       | J  |		Execute	Package,Field_Execute,Field_Number 0x4a
03dc 4800       |H   |		Short_Literal	0x0
03dd 0092 0b65  |   e|		Action	Push_String_Extended,0xb65					; "<ALL_WORLDS>"
03df 4801       |H   |		Short_Literal	0x1
03e0 e5ff       |    |		Load	0x2,-0x1
03e1 e00a       |    |		Load	0x0,0xa
03e2 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
03e3 e009       |    |		Load	0x0,0x9
03e4 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
03e5 00da       |    |		Load_Top	At_Offset_2
03e6 e014       |    |		Load	0x0,0x14
03e7 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
03e8 6816       |h   |		Jump_Zero	0x3ff
03e9 00db       |    |		Load_Top	At_Offset_3
03ea 4801       |H   |		Short_Literal	0x1
03eb 4801       |H   |		Short_Literal	0x1
03ec e00f       |    |		Load	0x0,0xf
03ed 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
03ee 035b       | [  |		Declare_Type	Array,Constrained
03ef 0337       | 7  |		Declare_Variable	Array
03f0 e5ff       |    |		Load	0x2,-0x1
03f1 e00a       |    |		Load	0x0,0xa
03f2 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
03f3 e00f       |    |		Load	0x0,0xf
03f4 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
03f5 0119       |    |		Execute	Any,Check_In_Formal_Type
03f6 4801       |H   |		Short_Literal	0x1
03f7 00da       |    |		Load_Top	At_Offset_2
03f8 01d6       |    |		Execute	Vector,Field_Write
03f9 67c6       |g   |		Indirect_Literal	Discrete,0x3c0,{0x00000000, 0x00008805}
03fa e006       |    |		Load	0x0,0x6
03fb 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
03fc e006       |    |		Load	0x0,0x6
03fd 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
03fe 0257       | W  |		Execute	Discrete,Raise
03ff 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0400 ; --------------------------------------------------------------------------------------
0400 ; SUBPROGRAM
0400 ; --------------------------------------------------------------------------------------
0400 040b       |    |		.CONST	0x040b								; Address of begin
0401 0004       |    |		.CONST	0x0004								; Address of exception handler
0402 0002       |    |		.CONST	0x0002								; Number of locals
0403			INIT_0400:
0403 00db       |    |		Load_Top	At_Offset_3
0404 e5fe       |    |		Load	0x2,-0x2
0405 e5ff       |    |		Load	0x2,-0x1
0406 e00a       |    |		Load	0x0,0xa
0407 182b       | +  |		Execute	Package,Field_Execute,Field_Number 0x2b
0408 e5ff       |    |		Load	0x2,-0x1
0409 e019       |    |		Load	0x0,0x19
040a 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
040b			BODY_0400:
040b 4800       |H   |		Short_Literal	0x0
040c 00d9       |    |		Load_Top	At_Offset_1
040d 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
040e e006       |    |		Load	0x0,0x6
040f 1847       | G  |		Execute	Package,Field_Execute,Field_Number 0x47
0410 6803       |h   |		Jump_Zero	0x414
0411 00d8       |    |		Load_Top	At_Offset_0
0412 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0413 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0414 e5fe       |    |		Load	0x2,-0x2
0415 4801       |H   |		Short_Literal	0x1
0416 4802       |H   |		Short_Literal	0x2
0417 e00f       |    |		Load	0x0,0xf
0418 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0419 035b       | [  |		Declare_Type	Array,Constrained
041a 0337       | 7  |		Declare_Variable	Array
041b e5ff       |    |		Load	0x2,-0x1
041c e00f       |    |		Load	0x0,0xf
041d 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
041e e00f       |    |		Load	0x0,0xf
041f 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0420 0119       |    |		Execute	Any,Check_In_Formal_Type
0421 4801       |H   |		Short_Literal	0x1
0422 00da       |    |		Load_Top	At_Offset_2
0423 01d6       |    |		Execute	Vector,Field_Write
0424 00da       |    |		Load_Top	At_Offset_2
0425 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0426 e006       |    |		Load	0x0,0x6
0427 182b       | +  |		Execute	Package,Field_Execute,Field_Number 0x2b
0428 e00f       |    |		Load	0x0,0xf
0429 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
042a 0119       |    |		Execute	Any,Check_In_Formal_Type
042b 4802       |H   |		Short_Literal	0x2
042c 00da       |    |		Load_Top	At_Offset_2
042d 01d6       |    |		Execute	Vector,Field_Write
042e 6005       |`   |		Indirect_Literal	Discrete,0x434,{0x00000000, 0x00008807}
042f e006       |    |		Load	0x0,0x6
0430 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
0431 00ea       |    |		Load_Encached	Null_String_Cache
0432 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0433 0000       |    |		.XXX[0x1]
0434 0000 0000  |    |		.LITERAL	{0x00000000, 0x00008807}
0438 ; --------------------------------------------------------------------------------------
0438 ; SUBPROGRAM
0438 ; --------------------------------------------------------------------------------------
0438 0443       | C  |		.CONST	0x0443								; Address of begin
0439 0004       |    |		.CONST	0x0004								; Address of exception handler
043a 0002       |    |		.CONST	0x0002								; Number of locals
043b			INIT_0438:
043b 00db       |    |		Load_Top	At_Offset_3
043c e5fe       |    |		Load	0x2,-0x2
043d e5ff       |    |		Load	0x2,-0x1
043e e00a       |    |		Load	0x0,0xa
043f 182b       | +  |		Execute	Package,Field_Execute,Field_Number 0x2b
0440 e5ff       |    |		Load	0x2,-0x1
0441 e019       |    |		Load	0x0,0x19
0442 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0443			BODY_0438:
0443 4800       |H   |		Short_Literal	0x0
0444 00d9       |    |		Load_Top	At_Offset_1
0445 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0446 e006       |    |		Load	0x0,0x6
0447 1847       | G  |		Execute	Package,Field_Execute,Field_Number 0x47
0448 6803       |h   |		Jump_Zero	0x44c
0449 00d8       |    |		Load_Top	At_Offset_0
044a 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
044b 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
044c e5fe       |    |		Load	0x2,-0x2
044d 4801       |H   |		Short_Literal	0x1
044e 4802       |H   |		Short_Literal	0x2
044f e00f       |    |		Load	0x0,0xf
0450 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0451 035b       | [  |		Declare_Type	Array,Constrained
0452 0337       | 7  |		Declare_Variable	Array
0453 e5ff       |    |		Load	0x2,-0x1
0454 e00f       |    |		Load	0x0,0xf
0455 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
0456 e00f       |    |		Load	0x0,0xf
0457 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0458 0119       |    |		Execute	Any,Check_In_Formal_Type
0459 4801       |H   |		Short_Literal	0x1
045a 00da       |    |		Load_Top	At_Offset_2
045b 01d6       |    |		Execute	Vector,Field_Write
045c 00da       |    |		Load_Top	At_Offset_2
045d 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
045e e006       |    |		Load	0x0,0x6
045f 182b       | +  |		Execute	Package,Field_Execute,Field_Number 0x2b
0460 e00f       |    |		Load	0x0,0xf
0461 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0462 0119       |    |		Execute	Any,Check_In_Formal_Type
0463 4802       |H   |		Short_Literal	0x2
0464 00da       |    |		Load_Top	At_Offset_2
0465 01d6       |    |		Execute	Vector,Field_Write
0466 6005       |`   |		Indirect_Literal	Discrete,0x46c,{0x00000000, 0x00008808}
0467 e006       |    |		Load	0x0,0x6
0468 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
0469 00ea       |    |		Load_Encached	Null_String_Cache
046a 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
046b 0000       |    |		.XXX[0x1]
046c 0000 0000  |    |		.LITERAL	{0x00000000, 0x00008808}
0470 ; --------------------------------------------------------------------------------------
0470 ; SUBPROGRAM
0470 ; --------------------------------------------------------------------------------------
0470 0483       |    |		.CONST	0x0483								; Address of begin
0471 0004       |    |		.CONST	0x0004								; Address of exception handler
0472 0005       |    |		.CONST	0x0005								; Number of locals
0473			INIT_0470:
0473 00e1       |    |		Load_Encached	Boolean_Cache
0474 0601       |    |		Execute_Immediate	Set_Value_Unchecked,0x1
0475 4820       |H   |		Short_Literal	0x20
0476 e5fd       |    |		Load	0x2,-0x3
0477 e00b       |    |		Load	0x0,0xb
0478 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0479 01db       |    |		Execute	Vector,Length
047a 0f00       |    |		Execute_Immediate	Equal,0x0
047b 00e1       |    |		Load_Encached	Boolean_Cache
047c 03f1       |    |		Declare_Variable	Discrete,With_Value
047d e5f9       |    |		Load	0x2,-0x7
047e e009       |    |		Load	0x0,0x9
047f 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0480 03f1       |    |		Declare_Variable	Discrete,With_Value
0481 029f 0793  |    |		Declare_Subprogram	INIT_0790,For_Call
0483			BODY_0470:
0483 e5f7       |    |		Load	0x2,-0x9
0484 e5ff       |    |		Load	0x2,-0x1
0485 e00c       |    |		Load	0x0,0xc
0486 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0487 e5f7       |    |		Load	0x2,-0x9
0488 e5ff       |    |		Load	0x2,-0x1
0489 e00c       |    |		Load	0x0,0xc
048a 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
048b e5fb       |    |		Load	0x2,-0x5
048c 680a       |h   |		Jump_Zero	0x497
048d e5fc       |    |		Load	0x2,-0x4
048e e5fa       |    |		Load	0x2,-0x6
048f e5fd       |    |		Load	0x2,-0x3
0490 e5fe       |    |		Load	0x2,-0x2
0491 e5ff       |    |		Load	0x2,-0x1
0492 e00a       |    |		Load	0x0,0xa
0493 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
0494 e013       |    |		Load	0x0,0x13
0495 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
0496 a402       |    |		Store_Unchecked	0x2,0x2
0497 00db       |    |		Load_Top	At_Offset_3
0498 701a       |p   |		Jump_Nonzero	0x4b3
0499 e5f7       |    |		Load	0x2,-0x9
049a 4801       |H   |		Short_Literal	0x1
049b 4801       |H   |		Short_Literal	0x1
049c e00f       |    |		Load	0x0,0xf
049d 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
049e 035b       | [  |		Declare_Type	Array,Constrained
049f 0337       | 7  |		Declare_Variable	Array
04a0 e5ff       |    |		Load	0x2,-0x1
04a1 e00f       |    |		Load	0x0,0xf
04a2 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
04a3 e00f       |    |		Load	0x0,0xf
04a4 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
04a5 0119       |    |		Execute	Any,Check_In_Formal_Type
04a6 4801       |H   |		Short_Literal	0x1
04a7 00da       |    |		Load_Top	At_Offset_2
04a8 01d6       |    |		Execute	Vector,Field_Write
04a9 60a6       |`   |		Indirect_Literal	Discrete,0x550,{0x00000000, 0x000088a1}
04aa e006       |    |		Load	0x0,0x6
04ab 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
04ac e00f       |    |		Load	0x0,0xf
04ad 182b       | +  |		Execute	Package,Field_Execute,Field_Number 0x2b
04ae 60a1       |`   |		Indirect_Literal	Discrete,0x550,{0x00000000, 0x000088a1}
04af e006       |    |		Load	0x0,0x6
04b0 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
04b1 a5f6       |    |		Store_Unchecked	0x2,-0xa
04b2 450a       |E   |		Exit_Suprogram	New_Top_Offset 0xa
04b3 8405       |    |		Call	0x2,0x5
04b4 e5f7       |    |		Load	0x2,-0x9
04b5 4801       |H   |		Short_Literal	0x1
04b6 4801       |H   |		Short_Literal	0x1
04b7 e00f       |    |		Load	0x0,0xf
04b8 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
04b9 035b       | [  |		Declare_Type	Array,Constrained
04ba 0337       | 7  |		Declare_Variable	Array
04bb e5ff       |    |		Load	0x2,-0x1
04bc e00f       |    |		Load	0x0,0xf
04bd 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
04be e00f       |    |		Load	0x0,0xf
04bf 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
04c0 0119       |    |		Execute	Any,Check_In_Formal_Type
04c1 4801       |H   |		Short_Literal	0x1
04c2 00da       |    |		Load_Top	At_Offset_2
04c3 01d6       |    |		Execute	Vector,Field_Write
04c4 6087       |`   |		Indirect_Literal	Discrete,0x54c,{0x00000000, 0x00008826}
04c5 e006       |    |		Load	0x0,0x6
04c6 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
04c7 e5fb       |    |		Load	0x2,-0x5
04c8 6823       |h#  |		Jump_Zero	0x4ec
04c9 00db       |    |		Load_Top	At_Offset_3
04ca 6821       |h!  |		Jump_Zero	0x4ec
04cb 00da       |    |		Load_Top	At_Offset_2
04cc 6803       |h   |		Jump_Zero	0x4d0
04cd 4800       |H   |		Short_Literal	0x0
04ce a402       |    |		Store_Unchecked	0x2,0x2
04cf 781c       |x   |		Jump	0x4ec
04d0 e5fc       |    |		Load	0x2,-0x4
04d1 e5fa       |    |		Load	0x2,-0x6
04d2 e5fd       |    |		Load	0x2,-0x3
04d3 e5fe       |    |		Load	0x2,-0x2
04d4 e5ff       |    |		Load	0x2,-0x1
04d5 e00a       |    |		Load	0x0,0xa
04d6 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
04d7 e013       |    |		Load	0x0,0x13
04d8 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
04d9 a402       |    |		Store_Unchecked	0x2,0x2
04da 00db       |    |		Load_Top	At_Offset_3
04db 6810       |h   |		Jump_Zero	0x4ec
04dc e5f7       |    |		Load	0x2,-0x9
04dd 0092 0b66  |   f|		Action	Push_String_Extended,0xb66					; "<WARN>"
04df 4800       |H   |		Short_Literal	0x0
04e0 4800       |H   |		Short_Literal	0x0
04e1 e5ff       |    |		Load	0x2,-0x1
04e2 e00a       |    |		Load	0x0,0xa
04e3 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
04e4 e001       |    |		Load	0x0,0x1
04e5 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
04e6 e5ff       |    |		Load	0x2,-0x1
04e7 e007       |    |		Load	0x0,0x7
04e8 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
04e9 1838       | 8  |		Execute	Package,Field_Execute,Field_Number 0x38
04ea e017       |    |		Load	0x0,0x17
04eb 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
04ec 00da       |    |		Load_Top	At_Offset_2
04ed 681a       |h   |		Jump_Zero	0x508
04ee 00d9       |    |		Load_Top	At_Offset_1
04ef 0f03       |    |		Execute_Immediate	Equal,0x3
04f0 6817       |h   |		Jump_Zero	0x508
04f1 e5f7       |    |		Load	0x2,-0x9
04f2 4801       |H   |		Short_Literal	0x1
04f3 4801       |H   |		Short_Literal	0x1
04f4 e00f       |    |		Load	0x0,0xf
04f5 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
04f6 035b       | [  |		Declare_Type	Array,Constrained
04f7 0337       | 7  |		Declare_Variable	Array
04f8 0092 0b67  |   g|		Action	Push_String_Extended,0xb67					; "null remote directory"
04fa e00f       |    |		Load	0x0,0xf
04fb 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
04fc e00f       |    |		Load	0x0,0xf
04fd 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
04fe 0119       |    |		Execute	Any,Check_In_Formal_Type
04ff 4801       |H   |		Short_Literal	0x1
0500 00da       |    |		Load_Top	At_Offset_2
0501 01d6       |    |		Execute	Vector,Field_Write
0502 6045       |`E  |		Indirect_Literal	Discrete,0x548,{0x00000000, 0x0000881e}
0503 e006       |    |		Load	0x0,0x6
0504 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
0505 4802       |H   |		Short_Literal	0x2
0506 0052       | R  |		Store_Top_Unchecked	Discrete,At_Offset_2
0507 781b       |x   |		Jump	0x523
0508 00db       |    |		Load_Top	At_Offset_3
0509 7019       |p   |		Jump_Nonzero	0x523
050a 00d9       |    |		Load_Top	At_Offset_1
050b 0f03       |    |		Execute_Immediate	Equal,0x3
050c 6816       |h   |		Jump_Zero	0x523
050d e5f7       |    |		Load	0x2,-0x9
050e 4801       |H   |		Short_Literal	0x1
050f 4801       |H   |		Short_Literal	0x1
0510 e00f       |    |		Load	0x0,0xf
0511 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0512 035b       | [  |		Declare_Type	Array,Constrained
0513 0337       | 7  |		Declare_Variable	Array
0514 0092 0b68  |   h|		Action	Push_String_Extended,0xb68					; "error during postprocess command"
0516 e00f       |    |		Load	0x0,0xf
0517 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0518 e00f       |    |		Load	0x0,0xf
0519 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
051a 0119       |    |		Execute	Any,Check_In_Formal_Type
051b 4801       |H   |		Short_Literal	0x1
051c 00da       |    |		Load_Top	At_Offset_2
051d 01d6       |    |		Execute	Vector,Field_Write
051e 6029       |`)  |		Indirect_Literal	Discrete,0x548,{0x00000000, 0x0000881e}
051f e006       |    |		Load	0x0,0x6
0520 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
0521 4802       |H   |		Short_Literal	0x2
0522 0052       | R  |		Store_Top_Unchecked	Discrete,At_Offset_2
0523 00d9       |    |		Load_Top	At_Offset_1
0524 0c02       |    |		Execute_Immediate	Greater_Equal,0x2
0525 6821       |h!  |		Jump_Zero	0x547
0526 e5f7       |    |		Load	0x2,-0x9
0527 4800       |H   |		Short_Literal	0x0
0528 e5ff       |    |		Load	0x2,-0x1
0529 e00a       |    |		Load	0x0,0xa
052a 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
052b 0092 0b69  |   i|		Action	Push_String_Extended,0xb69					; ".??'c(Ada)"
052d 01cc       |    |		Execute	Vector,Catenate
052e e00a       |    |		Load	0x0,0xa
052f 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
0530 e007       |    |		Load	0x0,0x7
0531 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0532 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
0533 7013       |p   |		Jump_Nonzero	0x547
0534 4800       |H   |		Short_Literal	0x0
0535 4801       |H   |		Short_Literal	0x1
0536 4800       |H   |		Short_Literal	0x0
0537 4801       |H   |		Short_Literal	0x1
0538 e5f7       |    |		Load	0x2,-0x9
0539 e00a       |    |		Load	0x0,0xa
053a 183e       | >  |		Execute	Package,Field_Execute,Field_Number 0x3e
053b e005       |    |		Load	0x0,0x5
053c 184a       | J  |		Execute	Package,Field_Execute,Field_Number 0x4a
053d 4800       |H   |		Short_Literal	0x0
053e 0092 0b6a  |   j|		Action	Push_String_Extended,0xb6a					; "<WORLDS>"
0540 e404       |    |		Load	0x2,0x4
0541 4803       |H   |		Short_Literal	0x3
0542 e5ff       |    |		Load	0x2,-0x1
0543 e00a       |    |		Load	0x0,0xa
0544 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
0545 e009       |    |		Load	0x0,0x9
0546 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
0547 450a       |E   |		Exit_Suprogram	New_Top_Offset 0xa
0548 0000 0000  |    |		.LITERAL	{0x00000000, 0x0000881e}
054c 0000 0000  |    |		.LITERAL	{0x00000000, 0x00008826}
0550 0000 0000  |    |		.LITERAL	{0x00000000, 0x000088a1}
0554 0000 0000  |    |		.BLANK	0000[0x4]
0558 ; --------------------------------------------------------------------------------------
0558 ; SUBPROGRAM
0558 ; --------------------------------------------------------------------------------------
0558 0570       | p  |		.CONST	0x0570								; Address of begin
0559 05c4       |    |		.CONST	0x05c4								; Address of exception handler
055a 0007       |    |		.CONST	0x0007								; Number of locals
055b			INIT_0558:
055b 0092 0b6b  |   k|		Action	Push_String_Extended,0xb6b					; "Initialize"
055d e006       |    |		Load	0x0,0x6
055e 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
055f 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0560 e005       |    |		Load	0x0,0x5
0561 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0562 02c7       |    |		Declare_Variable	Any
0563 e5fb       |    |		Load	0x2,-0x5
0564 e005       |    |		Load	0x0,0x5
0565 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
0566 a404       |    |		Store_Unchecked	0x2,0x4
0567 00ea       |    |		Load_Encached	Null_String_Cache
0568 e007       |    |		Load	0x0,0x7
0569 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
056a 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
056b 02c7       |    |		Declare_Variable	Any
056c 00d8       |    |		Load_Top	At_Offset_0
056d 1c00       |    |		Execute_Immediate	Run_Utility,0x0
056e 029f 07db  |    |		Declare_Subprogram	INIT_07d8,For_Call
0570			BODY_0558:
0570 00db       |    |		Load_Top	At_Offset_3
0571 e239       | 9  |		Load	0x1,0x39
0572 0092 0b6c  |   l|		Action	Push_String_Extended,0xb6c					; "View"
0574 e5ff       |    |		Load	0x2,-0x1
0575 e008       |    |		Load	0x0,0x8
0576 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0577 01cc       |    |		Execute	Vector,Catenate
0578 0092 0b6d  |   m|		Action	Push_String_Extended,0xb6d					; "Remote_Machine"
057a 01cc       |    |		Execute	Vector,Catenate
057b e5fe       |    |		Load	0x2,-0x2
057c e008       |    |		Load	0x0,0x8
057d 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
057e 01cc       |    |		Execute	Vector,Catenate
057f 0092 0b58  |   X|		Action	Push_String_Extended,0xb58					; "Remote_Directory"
0581 01cc       |    |		Execute	Vector,Catenate
0582 e5fd       |    |		Load	0x2,-0x3
0583 e008       |    |		Load	0x0,0x8
0584 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0585 01cc       |    |		Execute	Vector,Catenate
0586 0092 0b6e  |   n|		Action	Push_String_Extended,0xb6e					; "Allow_Demotion => "
0588 01cc       |    |		Execute	Vector,Catenate
0589 e5fc       |    |		Load	0x2,-0x4
058a 00e1       |    |		Load_Encached	Boolean_Cache
058b 011c       |    |		Execute	Any,Convert_Unchecked
058c 1c01       |    |		Execute_Immediate	Run_Utility,0x1
058d 01cc       |    |		Execute	Vector,Catenate
058e 0092 0b61  |   a|		Action	Push_String_Extended,0xb61					; ", Response"
0590 01cc       |    |		Execute	Vector,Catenate
0591 e5fb       |    |		Load	0x2,-0x5
0592 e008       |    |		Load	0x0,0x8
0593 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0594 01cc       |    |		Execute	Vector,Catenate
0595 e402       |    |		Load	0x2,0x2
0596 e008       |    |		Load	0x0,0x8
0597 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0598 00db       |    |		Load_Top	At_Offset_3
0599 e00c       |    |		Load	0x0,0xc
059a 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
059b 00db       |    |		Load_Top	At_Offset_3
059c 0092 0b6c  |   l|		Action	Push_String_Extended,0xb6c					; "View"
059e e5ff       |    |		Load	0x2,-0x1
059f e00c       |    |		Load	0x0,0xc
05a0 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
05a1 00db       |    |		Load_Top	At_Offset_3
05a2 0092 0b58  |   X|		Action	Push_String_Extended,0xb58					; "Remote_Directory"
05a4 4800       |H   |		Short_Literal	0x0
05a5 e5fd       |    |		Load	0x2,-0x3
05a6 e00c       |    |		Load	0x0,0xc
05a7 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
05a8 00db       |    |		Load_Top	At_Offset_3
05a9 4801       |H   |		Short_Literal	0x1
05aa e5ff       |    |		Load	0x2,-0x1
05ab e00a       |    |		Load	0x0,0xa
05ac 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
05ad c406       |    |		Store	0x2,0x6
05ae 00cf       |    |		Action	Mark_Auxiliary
05af 7807       |x   |		Jump	0x5b7
05b0 8407       |    |		Call	0x2,0x7
05b1 00da       |    |		Load_Top	At_Offset_2
05b2 e007       |    |		Load	0x0,0x7
05b3 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
05b4 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
05b5 c406       |    |		Store	0x2,0x6
05b6 00c9       |    |		Action	Pop_Auxiliary_Loop
05b7 00da       |    |		Load_Top	At_Offset_2
05b8 e007       |    |		Load	0x0,0x7
05b9 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
05ba 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
05bb 6ff4       |o   |		Jump_Zero	0x5b0
05bc 00ce       |    |		Action	Pop_Auxiliary
05bd 00db       |    |		Load_Top	At_Offset_3
05be e239       | 9  |		Load	0x1,0x39
05bf e402       |    |		Load	0x2,0x2
05c0 e403       |    |		Load	0x2,0x3
05c1 e008       |    |		Load	0x0,0x8
05c2 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
05c3 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
05c4			TRAP_0558:
05c4 e006       |    |		Load	0x0,0x6
05c5 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
05c6 010f       |    |		Execute	Exception,Equal
05c7 6807       |h   |		Jump_Zero	0x5cf
05c8 e404       |    |		Load	0x2,0x4
05c9 e239       | 9  |		Load	0x1,0x39
05ca e402       |    |		Load	0x2,0x2
05cb e403       |    |		Load	0x2,0x3
05cc e008       |    |		Load	0x0,0x8
05cd 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
05ce 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
05cf 4884       |H   |		Short_Literal	0x84
05d0 010f       |    |		Execute	Exception,Equal
05d1 6807       |h   |		Jump_Zero	0x5d9
05d2 e404       |    |		Load	0x2,0x4
05d3 e239       | 9  |		Load	0x1,0x39
05d4 e402       |    |		Load	0x2,0x2
05d5 e403       |    |		Load	0x2,0x3
05d6 e008       |    |		Load	0x0,0x8
05d7 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
05d8 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
05d9 e404       |    |		Load	0x2,0x4
05da e239       | 9  |		Load	0x1,0x39
05db e402       |    |		Load	0x2,0x2
05dc e403       |    |		Load	0x2,0x3
05dd e008       |    |		Load	0x0,0x8
05de 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
05df 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
05e0 ; --------------------------------------------------------------------------------------
05e0 ; SUBPROGRAM
05e0 ; --------------------------------------------------------------------------------------
05e0 05f7       |    |		.CONST	0x05f7								; Address of begin
05e1 063e       | >  |		.CONST	0x063e								; Address of exception handler
05e2 0006       |    |		.CONST	0x0006								; Number of locals
05e3			INIT_05e0:
05e3 0092 0b6f  |   o|		Action	Push_String_Extended,0xb6f					; "Set_Remote_Machine"
05e5 e006       |    |		Load	0x0,0x6
05e6 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
05e7 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
05e8 e005       |    |		Load	0x0,0x5
05e9 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
05ea 02c7       |    |		Declare_Variable	Any
05eb e5fc       |    |		Load	0x2,-0x4
05ec e005       |    |		Load	0x0,0x5
05ed 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
05ee a404       |    |		Store_Unchecked	0x2,0x4
05ef e007       |    |		Load	0x0,0x7
05f0 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
05f1 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
05f2 02c7       |    |		Declare_Variable	Any
05f3 00d8       |    |		Load_Top	At_Offset_0
05f4 1c00       |    |		Execute_Immediate	Run_Utility,0x0
05f5 029f 0823  |   #|		Declare_Subprogram	INIT_0820,For_Call
05f7			BODY_05e0:
05f7 00da       |    |		Load_Top	At_Offset_2
05f8 e239       | 9  |		Load	0x1,0x39
05f9 0092 0b6d  |   m|		Action	Push_String_Extended,0xb6d					; "Remote_Machine"
05fb e5ff       |    |		Load	0x2,-0x1
05fc e008       |    |		Load	0x0,0x8
05fd 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
05fe 01cc       |    |		Execute	Vector,Catenate
05ff 0092 0b6c  |   l|		Action	Push_String_Extended,0xb6c					; "View"
0601 01cc       |    |		Execute	Vector,Catenate
0602 e5fe       |    |		Load	0x2,-0x2
0603 e008       |    |		Load	0x0,0x8
0604 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0605 01cc       |    |		Execute	Vector,Catenate
0606 0092 0b6e  |   n|		Action	Push_String_Extended,0xb6e					; "Allow_Demotion => "
0608 01cc       |    |		Execute	Vector,Catenate
0609 e5fd       |    |		Load	0x2,-0x3
060a 00e1       |    |		Load_Encached	Boolean_Cache
060b 011c       |    |		Execute	Any,Convert_Unchecked
060c 1c01       |    |		Execute_Immediate	Run_Utility,0x1
060d 01cc       |    |		Execute	Vector,Catenate
060e 0092 0b61  |   a|		Action	Push_String_Extended,0xb61					; ", Response"
0610 01cc       |    |		Execute	Vector,Catenate
0611 e5fc       |    |		Load	0x2,-0x4
0612 e008       |    |		Load	0x0,0x8
0613 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0614 01cc       |    |		Execute	Vector,Catenate
0615 e402       |    |		Load	0x2,0x2
0616 e008       |    |		Load	0x0,0x8
0617 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0618 00da       |    |		Load_Top	At_Offset_2
0619 e00c       |    |		Load	0x0,0xc
061a 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
061b 00da       |    |		Load_Top	At_Offset_2
061c 0092 0b6d  |   m|		Action	Push_String_Extended,0xb6d					; "Remote_Machine"
061e 4800       |H   |		Short_Literal	0x0
061f e5ff       |    |		Load	0x2,-0x1
0620 e00c       |    |		Load	0x0,0xc
0621 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
0622 00da       |    |		Load_Top	At_Offset_2
0623 4801       |H   |		Short_Literal	0x1
0624 e5fe       |    |		Load	0x2,-0x2
0625 e00a       |    |		Load	0x0,0xa
0626 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
0627 c405       |    |		Store	0x2,0x5
0628 00cf       |    |		Action	Mark_Auxiliary
0629 7807       |x   |		Jump	0x631
062a 8406       |    |		Call	0x2,0x6
062b 00da       |    |		Load_Top	At_Offset_2
062c e007       |    |		Load	0x0,0x7
062d 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
062e 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
062f c405       |    |		Store	0x2,0x5
0630 00c9       |    |		Action	Pop_Auxiliary_Loop
0631 00da       |    |		Load_Top	At_Offset_2
0632 e007       |    |		Load	0x0,0x7
0633 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0634 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
0635 6ff4       |o   |		Jump_Zero	0x62a
0636 00ce       |    |		Action	Pop_Auxiliary
0637 00da       |    |		Load_Top	At_Offset_2
0638 e239       | 9  |		Load	0x1,0x39
0639 e402       |    |		Load	0x2,0x2
063a e403       |    |		Load	0x2,0x3
063b e008       |    |		Load	0x0,0x8
063c 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
063d 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
063e			TRAP_05e0:
063e e006       |    |		Load	0x0,0x6
063f 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
0640 010f       |    |		Execute	Exception,Equal
0641 6807       |h   |		Jump_Zero	0x649
0642 00db       |    |		Load_Top	At_Offset_3
0643 e239       | 9  |		Load	0x1,0x39
0644 e402       |    |		Load	0x2,0x2
0645 e403       |    |		Load	0x2,0x3
0646 e008       |    |		Load	0x0,0x8
0647 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0648 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
0649 4884       |H   |		Short_Literal	0x84
064a 010f       |    |		Execute	Exception,Equal
064b 6807       |h   |		Jump_Zero	0x653
064c 00db       |    |		Load_Top	At_Offset_3
064d e239       | 9  |		Load	0x1,0x39
064e e402       |    |		Load	0x2,0x2
064f e403       |    |		Load	0x2,0x3
0650 e008       |    |		Load	0x0,0x8
0651 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0652 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
0653 00db       |    |		Load_Top	At_Offset_3
0654 e239       | 9  |		Load	0x1,0x39
0655 e402       |    |		Load	0x2,0x2
0656 e403       |    |		Load	0x2,0x3
0657 e008       |    |		Load	0x0,0x8
0658 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0659 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
065a 0000 0000  |    |		.BLANK	0000[0x6]
0660 ; --------------------------------------------------------------------------------------
0660 ; SUBPROGRAM
0660 ; --------------------------------------------------------------------------------------
0660 0677       | w  |		.CONST	0x0677								; Address of begin
0661 06be       |    |		.CONST	0x06be								; Address of exception handler
0662 0006       |    |		.CONST	0x0006								; Number of locals
0663			INIT_0660:
0663 0092 0b70  |   p|		Action	Push_String_Extended,0xb70					; "Set_Remote_Directory"
0665 e006       |    |		Load	0x0,0x6
0666 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0667 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0668 e005       |    |		Load	0x0,0x5
0669 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
066a 02c7       |    |		Declare_Variable	Any
066b e5fc       |    |		Load	0x2,-0x4
066c e005       |    |		Load	0x0,0x5
066d 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
066e a404       |    |		Store_Unchecked	0x2,0x4
066f e007       |    |		Load	0x0,0x7
0670 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0671 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
0672 02c7       |    |		Declare_Variable	Any
0673 00d8       |    |		Load_Top	At_Offset_0
0674 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0675 029f 08eb  |    |		Declare_Subprogram	INIT_08e8,For_Call
0677			BODY_0660:
0677 00da       |    |		Load_Top	At_Offset_2
0678 e239       | 9  |		Load	0x1,0x39
0679 0092 0b58  |   X|		Action	Push_String_Extended,0xb58					; "Remote_Directory"
067b e5ff       |    |		Load	0x2,-0x1
067c e008       |    |		Load	0x0,0x8
067d 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
067e 01cc       |    |		Execute	Vector,Catenate
067f 0092 0b6c  |   l|		Action	Push_String_Extended,0xb6c					; "View"
0681 01cc       |    |		Execute	Vector,Catenate
0682 e5fe       |    |		Load	0x2,-0x2
0683 e008       |    |		Load	0x0,0x8
0684 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0685 01cc       |    |		Execute	Vector,Catenate
0686 0092 0b6e  |   n|		Action	Push_String_Extended,0xb6e					; "Allow_Demotion => "
0688 01cc       |    |		Execute	Vector,Catenate
0689 e5fd       |    |		Load	0x2,-0x3
068a 00e1       |    |		Load_Encached	Boolean_Cache
068b 011c       |    |		Execute	Any,Convert_Unchecked
068c 1c01       |    |		Execute_Immediate	Run_Utility,0x1
068d 01cc       |    |		Execute	Vector,Catenate
068e 0092 0b61  |   a|		Action	Push_String_Extended,0xb61					; ", Response"
0690 01cc       |    |		Execute	Vector,Catenate
0691 e5fc       |    |		Load	0x2,-0x4
0692 e008       |    |		Load	0x0,0x8
0693 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0694 01cc       |    |		Execute	Vector,Catenate
0695 e402       |    |		Load	0x2,0x2
0696 e008       |    |		Load	0x0,0x8
0697 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0698 00da       |    |		Load_Top	At_Offset_2
0699 e00c       |    |		Load	0x0,0xc
069a 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
069b 00da       |    |		Load_Top	At_Offset_2
069c 0092 0b58  |   X|		Action	Push_String_Extended,0xb58					; "Remote_Directory"
069e 4800       |H   |		Short_Literal	0x0
069f e5ff       |    |		Load	0x2,-0x1
06a0 e00c       |    |		Load	0x0,0xc
06a1 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
06a2 00da       |    |		Load_Top	At_Offset_2
06a3 4801       |H   |		Short_Literal	0x1
06a4 e5fe       |    |		Load	0x2,-0x2
06a5 e00a       |    |		Load	0x0,0xa
06a6 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
06a7 c405       |    |		Store	0x2,0x5
06a8 00cf       |    |		Action	Mark_Auxiliary
06a9 7807       |x   |		Jump	0x6b1
06aa 8406       |    |		Call	0x2,0x6
06ab 00da       |    |		Load_Top	At_Offset_2
06ac e007       |    |		Load	0x0,0x7
06ad 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
06ae 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
06af c405       |    |		Store	0x2,0x5
06b0 00c9       |    |		Action	Pop_Auxiliary_Loop
06b1 00da       |    |		Load_Top	At_Offset_2
06b2 e007       |    |		Load	0x0,0x7
06b3 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
06b4 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
06b5 6ff4       |o   |		Jump_Zero	0x6aa
06b6 00ce       |    |		Action	Pop_Auxiliary
06b7 00da       |    |		Load_Top	At_Offset_2
06b8 e239       | 9  |		Load	0x1,0x39
06b9 e402       |    |		Load	0x2,0x2
06ba e403       |    |		Load	0x2,0x3
06bb e008       |    |		Load	0x0,0x8
06bc 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
06bd 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
06be			TRAP_0660:
06be e006       |    |		Load	0x0,0x6
06bf 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
06c0 010f       |    |		Execute	Exception,Equal
06c1 6807       |h   |		Jump_Zero	0x6c9
06c2 00db       |    |		Load_Top	At_Offset_3
06c3 e239       | 9  |		Load	0x1,0x39
06c4 e402       |    |		Load	0x2,0x2
06c5 e403       |    |		Load	0x2,0x3
06c6 e008       |    |		Load	0x0,0x8
06c7 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
06c8 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
06c9 4884       |H   |		Short_Literal	0x84
06ca 010f       |    |		Execute	Exception,Equal
06cb 6807       |h   |		Jump_Zero	0x6d3
06cc 00db       |    |		Load_Top	At_Offset_3
06cd e239       | 9  |		Load	0x1,0x39
06ce e402       |    |		Load	0x2,0x2
06cf e403       |    |		Load	0x2,0x3
06d0 e008       |    |		Load	0x0,0x8
06d1 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
06d2 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
06d3 00db       |    |		Load_Top	At_Offset_3
06d4 e239       | 9  |		Load	0x1,0x39
06d5 e402       |    |		Load	0x2,0x2
06d6 e403       |    |		Load	0x2,0x3
06d7 e008       |    |		Load	0x0,0x8
06d8 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
06d9 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
06da 0000 0000  |    |		.BLANK	0000[0x6]
06e0 ; --------------------------------------------------------------------------------------
06e0 ; SUBPROGRAM
06e0 ; --------------------------------------------------------------------------------------
06e0 06e3       |    |		.CONST	0x06e3								; Address of begin
06e1 0004       |    |		.CONST	0x0004								; Address of exception handler
06e2 0001       |    |		.CONST	0x0001								; Number of locals
06e3			BODY_06e0:
06e3			INIT_06e0:
06e3 e404       |    |		Load	0x2,0x4
06e4 e00c       |    |		Load	0x0,0xc
06e5 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
06e6 e404       |    |		Load	0x2,0x4
06e7 00d8       |    |		Load_Top	At_Offset_0
06e8 4801       |H   |		Short_Literal	0x1
06e9 e5ff       |    |		Load	0x2,-0x1
06ea e00a       |    |		Load	0x0,0xa
06eb 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
06ec e00c       |    |		Load	0x0,0xc
06ed 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
06ee e404       |    |		Load	0x2,0x4
06ef 0092 0b57  |   W|		Action	Push_String_Extended,0xb57					; "Release_Name"
06f1 e5fe       |    |		Load	0x2,-0x2
06f2 e00c       |    |		Load	0x0,0xc
06f3 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
06f4 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
06f5 0000 0000  |    |		.XXX[0x3]
06f7 0000       |    |
06f8 ; --------------------------------------------------------------------------------------
06f8 ; SUBPROGRAM
06f8 ; --------------------------------------------------------------------------------------
06f8 0700       |    |		.CONST	0x0700								; Address of begin
06f9 0004       |    |		.CONST	0x0004								; Address of exception handler
06fa 0002       |    |		.CONST	0x0002								; Number of locals
06fb			INIT_06f8:
06fb e007       |    |		Load	0x0,0x7
06fc 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
06fd 02c7       |    |		Declare_Variable	Any
06fe 00d8       |    |		Load_Top	At_Offset_0
06ff 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0700			BODY_06f8:
0700 e7fb       |    |		Load	0x3,-0x5
0701 4801       |H   |		Short_Literal	0x1
0702 e7ff       |    |		Load	0x3,-0x1
0703 e00a       |    |		Load	0x0,0xa
0704 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
0705 c602       |    |		Store	0x3,0x2
0706 4801       |H   |		Short_Literal	0x1
0707 0092 0b71  |   q|		Action	Push_String_Extended,0xb71					; "<AUTO_GENERATE>"
0709 e7fe       |    |		Load	0x3,-0x2
070a e00b       |    |		Load	0x0,0xb
070b 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
070c 6807       |h   |		Jump_Zero	0x714
070d e7fb       |    |		Load	0x3,-0x5
070e e7fc       |    |		Load	0x3,-0x4
070f e7fd       |    |		Load	0x3,-0x3
0710 00db       |    |		Load_Top	At_Offset_3
0711 e00a       |    |		Load	0x0,0xa
0712 1835       | 5  |		Execute	Package,Field_Execute,Field_Number 0x35
0713 4405       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x5
0714 00d8       |    |		Load_Top	At_Offset_0
0715 e007       |    |		Load	0x0,0x7
0716 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0717 183e       | >  |		Execute	Package,Field_Execute,Field_Number 0x3e
0718 e007       |    |		Load	0x0,0x7
0719 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
071a 1832       | 2  |		Execute	Package,Field_Execute,Field_Number 0x32
071b 0092 0b72  |   r|		Action	Push_String_Extended,0xb72					; "."
071d 01cc       |    |		Execute	Vector,Catenate
071e e7fe       |    |		Load	0x3,-0x2
071f 01cc       |    |		Execute	Vector,Catenate
0720 4405       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x5
0721 0000 0000  |    |		.BLANK	0000[0x7]
0728 ; --------------------------------------------------------------------------------------
0728 ; SUBPROGRAM
0728 ; --------------------------------------------------------------------------------------
0728 074d       | M  |		.CONST	0x074d								; Address of begin
0729 0004       |    |		.CONST	0x0004								; Address of exception handler
072a 000b       |    |		.CONST	0x000b								; Number of locals
072b			INIT_0728:
072b e009       |    |		Load	0x0,0x9
072c 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
072d e007       |    |		Load	0x0,0x7
072e 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
072f 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
0730 02c7       |    |		Declare_Variable	Any
0731 e010       |    |		Load	0x0,0x10
0732 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0733 e007       |    |		Load	0x0,0x7
0734 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0735 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0736 a603       |    |		Store_Unchecked	0x3,0x3
0737 e7f3       |    |		Load	0x3,-0xd
0738 4800       |H   |		Short_Literal	0x0
0739 e7fb       |    |		Load	0x3,-0x5
073a e7fe       |    |		Load	0x3,-0x2
073b e7ff       |    |		Load	0x3,-0x1
073c 8407       |    |		Call	0x2,0x7
073d 00d8       |    |		Load_Top	At_Offset_0
073e e007       |    |		Load	0x0,0x7
073f 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0740 1833       | 3  |		Execute	Package,Field_Execute,Field_Number 0x33
0741 e007       |    |		Load	0x0,0x7
0742 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0743 029f 09ab  |    |		Declare_Subprogram	INIT_09a8,For_Call
0745 029f 09c3  |    |		Declare_Subprogram	INIT_09c0,For_Call
0747 029f 09f3  |    |		Declare_Subprogram	INIT_09f0,For_Call
0749 029f 0a53  |   S|		Declare_Subprogram	INIT_0a50,For_Call
074b 029f 0a9b  |    |		Declare_Subprogram	INIT_0a98,For_Call
074d			BODY_0728:
074d e7f8       |    |		Load	0x3,-0x8
074e 7003       |p   |		Jump_Nonzero	0x752
074f 4801       |H   |		Short_Literal	0x1
0750 a602       |    |		Store_Unchecked	0x3,0x2
0751 780b       |x   |		Jump	0x75d
0752 4820       |H   |		Short_Literal	0x20
0753 e7fd       |    |		Load	0x3,-0x3
0754 e00b       |    |		Load	0x0,0xb
0755 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0756 01db       |    |		Execute	Vector,Length
0757 7003       |p   |		Jump_Nonzero	0x75b
0758 4802       |H   |		Short_Literal	0x2
0759 a602       |    |		Store_Unchecked	0x3,0x2
075a 7802       |x   |		Jump	0x75d
075b e7f7       |    |		Load	0x3,-0x9
075c a602       |    |		Store_Unchecked	0x3,0x2
075d 8609       |    |		Call	0x3,0x9
075e 860b       |    |		Call	0x3,0xb
075f 450e       |E   |		Exit_Suprogram	New_Top_Offset 0xe
0760 ; --------------------------------------------------------------------------------------
0760 ; SUBPROGRAM
0760 ; --------------------------------------------------------------------------------------
0760 0769       | i  |		.CONST	0x0769								; Address of begin
0761 0004       |    |		.CONST	0x0004								; Address of exception handler
0762 0002       |    |		.CONST	0x0002								; Number of locals
0763			INIT_0760:
0763 e5fb       |    |		Load	0x2,-0x5
0764 e5fd       |    |		Load	0x2,-0x3
0765 e5fe       |    |		Load	0x2,-0x2
0766 e5ff       |    |		Load	0x2,-0x1
0767 e012       |    |		Load	0x0,0x12
0768 1827       | '  |		Execute	Package,Field_Execute,Field_Number 0x27
0769			BODY_0760:
0769 4800       |H   |		Short_Literal	0x0
076a 00d9       |    |		Load_Top	At_Offset_1
076b 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
076c e006       |    |		Load	0x0,0x6
076d 1847       | G  |		Execute	Package,Field_Execute,Field_Number 0x47
076e 7003       |p   |		Jump_Nonzero	0x772
076f e006       |    |		Load	0x0,0x6
0770 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
0771 0257       | W  |		Execute	Discrete,Raise
0772 00d8       |    |		Load_Top	At_Offset_0
0773 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0774 00cb       |    |		Action	Pop_Block_With_Result
0775 4405       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x5
0776 0000 0000  |    |		.XXX[0x2]
0778 ; --------------------------------------------------------------------------------------
0778 ; SUBPROGRAM
0778 ; --------------------------------------------------------------------------------------
0778 077f       |    |		.CONST	0x077f								; Address of begin
0779 0004       |    |		.CONST	0x0004								; Address of exception handler
077a 0002       |    |		.CONST	0x0002								; Number of locals
077b			INIT_0778:
077b e5fb       |    |		Load	0x2,-0x5
077c e5fe       |    |		Load	0x2,-0x2
077d e012       |    |		Load	0x0,0x12
077e 1871       | q  |		Execute	Package,Field_Execute,Field_Number 0x71
077f			BODY_0778:
077f 4800       |H   |		Short_Literal	0x0
0780 00d9       |    |		Load_Top	At_Offset_1
0781 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0782 e006       |    |		Load	0x0,0x6
0783 1847       | G  |		Execute	Package,Field_Execute,Field_Number 0x47
0784 7003       |p   |		Jump_Nonzero	0x788
0785 e006       |    |		Load	0x0,0x6
0786 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
0787 0257       | W  |		Execute	Discrete,Raise
0788 00d8       |    |		Load_Top	At_Offset_0
0789 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
078a 00cb       |    |		Action	Pop_Block_With_Result
078b 4405       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x5
078c 0000 0000  |    |		.BLANK	0000[0x4]
0790 ; --------------------------------------------------------------------------------------
0790 ; SUBPROGRAM
0790 ; --------------------------------------------------------------------------------------
0790 0793       |    |		.CONST	0x0793								; Address of begin
0791 07b1       |    |		.CONST	0x07b1								; Address of exception handler
0792 0001       |    |		.CONST	0x0001								; Number of locals
0793			BODY_0790:
0793			INIT_0790:
0793 e5f7       |    |		Load	0x2,-0x9
0794 e5fd       |    |		Load	0x2,-0x3
0795 e5ff       |    |		Load	0x2,-0x1
0796 e00c       |    |		Load	0x0,0xc
0797 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0798 e006       |    |		Load	0x0,0x6
0799 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
079a e5f7       |    |		Load	0x2,-0x9
079b 4801       |H   |		Short_Literal	0x1
079c 0092 0b73  |   s|		Action	Push_String_Extended,0xb73					; "<DEFAULT>"
079e 0092 0b73  |   s|		Action	Push_String_Extended,0xb73					; "<DEFAULT>"
07a0 0092 0b73  |   s|		Action	Push_String_Extended,0xb73					; "<DEFAULT>"
07a2 0092 0b73  |   s|		Action	Push_String_Extended,0xb73					; "<DEFAULT>"
07a4 0092 0b73  |   s|		Action	Push_String_Extended,0xb73					; "<DEFAULT>"
07a6 e5f8       |    |		Load	0x2,-0x8
07a7 e5fa       |    |		Load	0x2,-0x6
07a8 e5fc       |    |		Load	0x2,-0x4
07a9 00ea       |    |		Load_Encached	Null_String_Cache
07aa e5fd       |    |		Load	0x2,-0x3
07ab e5fe       |    |		Load	0x2,-0x2
07ac e5ff       |    |		Load	0x2,-0x1
07ad e019       |    |		Load	0x0,0x19
07ae 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
07af c5f6       |    |		Store	0x2,-0xa
07b0 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
07b1			TRAP_0790:
07b1 e006       |    |		Load	0x0,0x6
07b2 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
07b3 010f       |    |		Execute	Exception,Equal
07b4 681b       |h   |		Jump_Zero	0x7d0
07b5 4801       |H   |		Short_Literal	0x1
07b6 a403       |    |		Store_Unchecked	0x2,0x3
07b7 e006       |    |		Load	0x0,0x6
07b8 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
07b9 e5f7       |    |		Load	0x2,-0x9
07ba 4801       |H   |		Short_Literal	0x1
07bb 0092 0b73  |   s|		Action	Push_String_Extended,0xb73					; "<DEFAULT>"
07bd 0092 0b73  |   s|		Action	Push_String_Extended,0xb73					; "<DEFAULT>"
07bf 0092 0b73  |   s|		Action	Push_String_Extended,0xb73					; "<DEFAULT>"
07c1 0092 0b73  |   s|		Action	Push_String_Extended,0xb73					; "<DEFAULT>"
07c3 0092 0b73  |   s|		Action	Push_String_Extended,0xb73					; "<DEFAULT>"
07c5 e5f8       |    |		Load	0x2,-0x8
07c6 e5fa       |    |		Load	0x2,-0x6
07c7 e5fc       |    |		Load	0x2,-0x4
07c8 00ea       |    |		Load_Encached	Null_String_Cache
07c9 00ea       |    |		Load_Encached	Null_String_Cache
07ca e5fe       |    |		Load	0x2,-0x2
07cb e5ff       |    |		Load	0x2,-0x1
07cc e019       |    |		Load	0x0,0x19
07cd 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
07ce c5f6       |    |		Store	0x2,-0xa
07cf 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
07d0 0100       |    |		Execute	Exception,Raise
07d1 0000 0000  |    |		.BLANK	0000[0x7]
07d8 ; --------------------------------------------------------------------------------------
07d8 ; SUBPROGRAM
07d8 ; --------------------------------------------------------------------------------------
07d8 07e8       |    |		.CONST	0x07e8								; Address of begin
07d9 0819       |    |		.CONST	0x0819								; Address of exception handler
07da 0002       |    |		.CONST	0x0002								; Number of locals
07db			INIT_07d8:
07db e007       |    |		Load	0x0,0x7
07dc 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
07dd 02c7       |    |		Declare_Variable	Any
07de e404       |    |		Load	0x2,0x4
07df 4801       |H   |		Short_Literal	0x1
07e0 e404       |    |		Load	0x2,0x4
07e1 4801       |H   |		Short_Literal	0x1
07e2 e406       |    |		Load	0x2,0x6
07e3 e00a       |    |		Load	0x0,0xa
07e4 1828       | (  |		Execute	Package,Field_Execute,Field_Number 0x28
07e5 e00a       |    |		Load	0x0,0xa
07e6 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
07e7 a602       |    |		Store_Unchecked	0x3,0x2
07e8			BODY_07d8:
07e8 e403       |    |		Load	0x2,0x3
07e9 e404       |    |		Load	0x2,0x4
07ea 4800       |H   |		Short_Literal	0x0
07eb 4801       |H   |		Short_Literal	0x1
07ec e404       |    |		Load	0x2,0x4
07ed e602       |    |		Load	0x3,0x2
07ee e00a       |    |		Load	0x0,0xa
07ef 182b       | +  |		Execute	Package,Field_Execute,Field_Number 0x2b
07f0 4801       |H   |		Short_Literal	0x1
07f1 e405       |    |		Load	0x2,0x5
07f2 e5fd       |    |		Load	0x2,-0x3
07f3 e5fe       |    |		Load	0x2,-0x2
07f4 e602       |    |		Load	0x3,0x2
07f5 8247       | G  |		Call	0x1,0x47
07f6 c403       |    |		Store	0x2,0x3
07f7 4800       |H   |		Short_Literal	0x0
07f8 e403       |    |		Load	0x2,0x3
07f9 e006       |    |		Load	0x0,0x6
07fa 1847       | G  |		Execute	Package,Field_Execute,Field_Number 0x47
07fb 681c       |h   |		Jump_Zero	0x818
07fc e5fc       |    |		Load	0x2,-0x4
07fd 681a       |h   |		Jump_Zero	0x818
07fe e404       |    |		Load	0x2,0x4
07ff 4800       |H   |		Short_Literal	0x0
0800 00da       |    |		Load_Top	At_Offset_2
0801 e00a       |    |		Load	0x0,0xa
0802 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
0803 0092 0b69  |   i|		Action	Push_String_Extended,0xb69					; ".??'c(Ada)"
0805 01cc       |    |		Execute	Vector,Catenate
0806 e00a       |    |		Load	0x0,0xa
0807 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
0808 e007       |    |		Load	0x0,0x7
0809 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
080a 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
080b 700c       |p   |		Jump_Nonzero	0x818
080c 4801       |H   |		Short_Literal	0x1
080d 4801       |H   |		Short_Literal	0x1
080e 4800       |H   |		Short_Literal	0x0
080f 4801       |H   |		Short_Literal	0x1
0810 e404       |    |		Load	0x2,0x4
0811 e00a       |    |		Load	0x0,0xa
0812 183e       | >  |		Execute	Package,Field_Execute,Field_Number 0x3e
0813 0092 0b65  |   e|		Action	Push_String_Extended,0xb65					; "<ALL_WORLDS>"
0815 00da       |    |		Load_Top	At_Offset_2
0816 e014       |    |		Load	0x0,0x14
0817 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
0818 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0819			TRAP_07d8:
0819 e006       |    |		Load	0x0,0x6
081a 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
081b 010f       |    |		Execute	Exception,Equal
081c 6801       |h   |		Jump_Zero	0x81e
081d 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
081e 0100       |    |		Execute	Exception,Raise
081f 0000       |    |		.XXX[0x1]
0820 ; --------------------------------------------------------------------------------------
0820 ; SUBPROGRAM
0820 ; --------------------------------------------------------------------------------------
0820 0830       | 0  |		.CONST	0x0830								; Address of begin
0821 08cb       |    |		.CONST	0x08cb								; Address of exception handler
0822 0002       |    |		.CONST	0x0002								; Number of locals
0823			INIT_0820:
0823 e007       |    |		Load	0x0,0x7
0824 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0825 02c7       |    |		Declare_Variable	Any
0826 e404       |    |		Load	0x2,0x4
0827 4801       |H   |		Short_Literal	0x1
0828 e404       |    |		Load	0x2,0x4
0829 4801       |H   |		Short_Literal	0x1
082a e405       |    |		Load	0x2,0x5
082b e00a       |    |		Load	0x0,0xa
082c 1828       | (  |		Execute	Package,Field_Execute,Field_Number 0x28
082d e00a       |    |		Load	0x0,0xa
082e 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
082f a602       |    |		Store_Unchecked	0x3,0x2
0830			BODY_0820:
0830 e404       |    |		Load	0x2,0x4
0831 00d9       |    |		Load_Top	At_Offset_1
0832 e00c       |    |		Load	0x0,0xc
0833 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0834 4800       |H   |		Short_Literal	0x0
0835 e5ff       |    |		Load	0x2,-0x1
0836 e404       |    |		Load	0x2,0x4
0837 00db       |    |		Load_Top	At_Offset_3
0838 8246       | F  |		Call	0x1,0x46
0839 e00b       |    |		Load	0x0,0xb
083a 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
083b 681e       |h   |		Jump_Zero	0x85a
083c e404       |    |		Load	0x2,0x4
083d 4801       |H   |		Short_Literal	0x1
083e 4802       |H   |		Short_Literal	0x2
083f e00f       |    |		Load	0x0,0xf
0840 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0841 035b       | [  |		Declare_Type	Array,Constrained
0842 0337       | 7  |		Declare_Variable	Array
0843 0092 0b6d  |   m|		Action	Push_String_Extended,0xb6d					; "Remote_Machine"
0845 e00f       |    |		Load	0x0,0xf
0846 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0847 e00f       |    |		Load	0x0,0xf
0848 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0849 0119       |    |		Execute	Any,Check_In_Formal_Type
084a 4801       |H   |		Short_Literal	0x1
084b 00da       |    |		Load_Top	At_Offset_2
084c 01d6       |    |		Execute	Vector,Field_Write
084d e5ff       |    |		Load	0x2,-0x1
084e e00f       |    |		Load	0x0,0xf
084f 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0850 e00f       |    |		Load	0x0,0xf
0851 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0852 0119       |    |		Execute	Any,Check_In_Formal_Type
0853 4802       |H   |		Short_Literal	0x2
0854 00da       |    |		Load_Top	At_Offset_2
0855 01d6       |    |		Execute	Vector,Field_Write
0856 6089       |`   |		Indirect_Literal	Discrete,0x8e0,{0x00000000, 0x0000884f}
0857 e006       |    |		Load	0x0,0x6
0858 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
0859 784e       |xN  |		Jump	0x8a8
085a e006       |    |		Load	0x0,0x6
085b 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
085c e404       |    |		Load	0x2,0x4
085d 00d8       |    |		Load_Top	At_Offset_0
085e 00db       |    |		Load_Top	At_Offset_3
085f e00a       |    |		Load	0x0,0xa
0860 182b       | +  |		Execute	Package,Field_Execute,Field_Number 0x2b
0861 e5ff       |    |		Load	0x2,-0x1
0862 e602       |    |		Load	0x3,0x2
0863 e019       |    |		Load	0x0,0x19
0864 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
0865 c403       |    |		Store	0x2,0x3
0866 4800       |H   |		Short_Literal	0x0
0867 e403       |    |		Load	0x2,0x3
0868 e006       |    |		Load	0x0,0x6
0869 1847       | G  |		Execute	Package,Field_Execute,Field_Number 0x47
086a 681d       |h   |		Jump_Zero	0x888
086b e404       |    |		Load	0x2,0x4
086c 4801       |H   |		Short_Literal	0x1
086d 4802       |H   |		Short_Literal	0x2
086e e00f       |    |		Load	0x0,0xf
086f 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0870 035b       | [  |		Declare_Type	Array,Constrained
0871 0337       | 7  |		Declare_Variable	Array
0872 00da       |    |		Load_Top	At_Offset_2
0873 e00f       |    |		Load	0x0,0xf
0874 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
0875 e00f       |    |		Load	0x0,0xf
0876 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0877 0119       |    |		Execute	Any,Check_In_Formal_Type
0878 4801       |H   |		Short_Literal	0x1
0879 00da       |    |		Load_Top	At_Offset_2
087a 01d6       |    |		Execute	Vector,Field_Write
087b e5ff       |    |		Load	0x2,-0x1
087c e00f       |    |		Load	0x0,0xf
087d 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
087e e00f       |    |		Load	0x0,0xf
087f 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0880 0119       |    |		Execute	Any,Check_In_Formal_Type
0881 4802       |H   |		Short_Literal	0x2
0882 00da       |    |		Load_Top	At_Offset_2
0883 01d6       |    |		Execute	Vector,Field_Write
0884 6057       |`W  |		Indirect_Literal	Discrete,0x8dc,{0x00000000, 0x0000883b}
0885 e006       |    |		Load	0x0,0x6
0886 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
0887 7820       |x   |		Jump	0x8a8
0888 e404       |    |		Load	0x2,0x4
0889 4801       |H   |		Short_Literal	0x1
088a 4802       |H   |		Short_Literal	0x2
088b e00f       |    |		Load	0x0,0xf
088c 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
088d 035b       | [  |		Declare_Type	Array,Constrained
088e 0337       | 7  |		Declare_Variable	Array
088f 00da       |    |		Load_Top	At_Offset_2
0890 e00f       |    |		Load	0x0,0xf
0891 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
0892 e00f       |    |		Load	0x0,0xf
0893 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0894 0119       |    |		Execute	Any,Check_In_Formal_Type
0895 4801       |H   |		Short_Literal	0x1
0896 00da       |    |		Load_Top	At_Offset_2
0897 01d6       |    |		Execute	Vector,Field_Write
0898 e403       |    |		Load	0x2,0x3
0899 e006       |    |		Load	0x0,0x6
089a 182e       | .  |		Execute	Package,Field_Execute,Field_Number 0x2e
089b e00f       |    |		Load	0x0,0xf
089c 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
089d e00f       |    |		Load	0x0,0xf
089e 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
089f 0119       |    |		Execute	Any,Check_In_Formal_Type
08a0 4802       |H   |		Short_Literal	0x2
08a1 00da       |    |		Load_Top	At_Offset_2
08a2 01d6       |    |		Execute	Vector,Field_Write
08a3 6034       |`4  |		Indirect_Literal	Discrete,0x8d8,{0x00000000, 0x0000881a}
08a4 e006       |    |		Load	0x0,0x6
08a5 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
08a6 00cc       |    |		Action	Pop_Block
08a7 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
08a8 e5fd       |    |		Load	0x2,-0x3
08a9 680d       |h   |		Jump_Zero	0x8b7
08aa 4801       |H   |		Short_Literal	0x1
08ab 4801       |H   |		Short_Literal	0x1
08ac 4800       |H   |		Short_Literal	0x0
08ad 4801       |H   |		Short_Literal	0x1
08ae e404       |    |		Load	0x2,0x4
08af e00a       |    |		Load	0x0,0xa
08b0 183e       | >  |		Execute	Package,Field_Execute,Field_Number 0x3e
08b1 0092 0b65  |   e|		Action	Push_String_Extended,0xb65					; "<ALL_WORLDS>"
08b3 00da       |    |		Load_Top	At_Offset_2
08b4 e014       |    |		Load	0x0,0x14
08b5 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
08b6 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
08b7 e404       |    |		Load	0x2,0x4
08b8 4801       |H   |		Short_Literal	0x1
08b9 4801       |H   |		Short_Literal	0x1
08ba e00f       |    |		Load	0x0,0xf
08bb 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
08bc 035b       | [  |		Declare_Type	Array,Constrained
08bd 0337       | 7  |		Declare_Variable	Array
08be 00da       |    |		Load_Top	At_Offset_2
08bf e00f       |    |		Load	0x0,0xf
08c0 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
08c1 e00f       |    |		Load	0x0,0xf
08c2 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
08c3 0119       |    |		Execute	Any,Check_In_Formal_Type
08c4 4801       |H   |		Short_Literal	0x1
08c5 00da       |    |		Load_Top	At_Offset_2
08c6 01d6       |    |		Execute	Vector,Field_Write
08c7 600c       |`   |		Indirect_Literal	Discrete,0x8d4,{0x00000000, 0x00008872}
08c8 e006       |    |		Load	0x0,0x6
08c9 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
08ca 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
08cb			TRAP_0820:
08cb e006       |    |		Load	0x0,0x6
08cc 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
08cd 010f       |    |		Execute	Exception,Equal
08ce 6801       |h   |		Jump_Zero	0x8d0
08cf 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
08d0 0100       |    |		Execute	Exception,Raise
08d1 0000 0000  |    |		.XXX[0x3]
08d3 0000       |    |
08d4 0000 0000  |    |		.LITERAL	{0x00000000, 0x00008872}
08d8 0000 0000  |    |		.LITERAL	{0x00000000, 0x0000881a}
08dc 0000 0000  |    |		.LITERAL	{0x00000000, 0x0000883b}
08e0 0000 0000  |    |		.LITERAL	{0x00000000, 0x0000884f}
08e4 0000 0000  |    |		.BLANK	0000[0x4]
08e8 ; --------------------------------------------------------------------------------------
08e8 ; SUBPROGRAM
08e8 ; --------------------------------------------------------------------------------------
08e8 08f8       |    |		.CONST	0x08f8								; Address of begin
08e9 0998       |    |		.CONST	0x0998								; Address of exception handler
08ea 0002       |    |		.CONST	0x0002								; Number of locals
08eb			INIT_08e8:
08eb e007       |    |		Load	0x0,0x7
08ec 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
08ed 02c7       |    |		Declare_Variable	Any
08ee e404       |    |		Load	0x2,0x4
08ef 4801       |H   |		Short_Literal	0x1
08f0 e404       |    |		Load	0x2,0x4
08f1 4801       |H   |		Short_Literal	0x1
08f2 e405       |    |		Load	0x2,0x5
08f3 e00a       |    |		Load	0x0,0xa
08f4 1828       | (  |		Execute	Package,Field_Execute,Field_Number 0x28
08f5 e00a       |    |		Load	0x0,0xa
08f6 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
08f7 a602       |    |		Store_Unchecked	0x3,0x2
08f8			BODY_08e8:
08f8 e404       |    |		Load	0x2,0x4
08f9 00d9       |    |		Load_Top	At_Offset_1
08fa e00c       |    |		Load	0x0,0xc
08fb 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
08fc 4800       |H   |		Short_Literal	0x0
08fd e5ff       |    |		Load	0x2,-0x1
08fe e404       |    |		Load	0x2,0x4
08ff 00db       |    |		Load_Top	At_Offset_3
0900 8245       | E  |		Call	0x1,0x45
0901 e00b       |    |		Load	0x0,0xb
0902 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
0903 681e       |h   |		Jump_Zero	0x922
0904 e404       |    |		Load	0x2,0x4
0905 4801       |H   |		Short_Literal	0x1
0906 4802       |H   |		Short_Literal	0x2
0907 e00f       |    |		Load	0x0,0xf
0908 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0909 035b       | [  |		Declare_Type	Array,Constrained
090a 0337       | 7  |		Declare_Variable	Array
090b 0092 0b58  |   X|		Action	Push_String_Extended,0xb58					; "Remote_Directory"
090d e00f       |    |		Load	0x0,0xf
090e 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
090f e00f       |    |		Load	0x0,0xf
0910 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0911 0119       |    |		Execute	Any,Check_In_Formal_Type
0912 4801       |H   |		Short_Literal	0x1
0913 00da       |    |		Load_Top	At_Offset_2
0914 01d6       |    |		Execute	Vector,Field_Write
0915 e5ff       |    |		Load	0x2,-0x1
0916 e00f       |    |		Load	0x0,0xf
0917 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0918 e00f       |    |		Load	0x0,0xf
0919 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
091a 0119       |    |		Execute	Any,Check_In_Formal_Type
091b 4802       |H   |		Short_Literal	0x2
091c 00da       |    |		Load_Top	At_Offset_2
091d 01d6       |    |		Execute	Vector,Field_Write
091e 67c1       |g   |		Indirect_Literal	Discrete,0x8e0,{0x00000000, 0x0000884f}
091f e006       |    |		Load	0x0,0x6
0920 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
0921 7853       |xS  |		Jump	0x975
0922 e404       |    |		Load	0x2,0x4
0923 e5ff       |    |		Load	0x2,-0x1
0924 00da       |    |		Load_Top	At_Offset_2
0925 e00c       |    |		Load	0x0,0xc
0926 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0927 e006       |    |		Load	0x0,0x6
0928 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0929 e404       |    |		Load	0x2,0x4
092a 00d8       |    |		Load_Top	At_Offset_0
092b 00db       |    |		Load_Top	At_Offset_3
092c e00a       |    |		Load	0x0,0xa
092d 182b       | +  |		Execute	Package,Field_Execute,Field_Number 0x2b
092e e5ff       |    |		Load	0x2,-0x1
092f e602       |    |		Load	0x3,0x2
0930 e019       |    |		Load	0x0,0x19
0931 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
0932 c403       |    |		Store	0x2,0x3
0933 4800       |H   |		Short_Literal	0x0
0934 e403       |    |		Load	0x2,0x3
0935 e006       |    |		Load	0x0,0x6
0936 1847       | G  |		Execute	Package,Field_Execute,Field_Number 0x47
0937 681d       |h   |		Jump_Zero	0x955
0938 e404       |    |		Load	0x2,0x4
0939 4801       |H   |		Short_Literal	0x1
093a 4802       |H   |		Short_Literal	0x2
093b e00f       |    |		Load	0x0,0xf
093c 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
093d 035b       | [  |		Declare_Type	Array,Constrained
093e 0337       | 7  |		Declare_Variable	Array
093f 00da       |    |		Load_Top	At_Offset_2
0940 e00f       |    |		Load	0x0,0xf
0941 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
0942 e00f       |    |		Load	0x0,0xf
0943 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0944 0119       |    |		Execute	Any,Check_In_Formal_Type
0945 4801       |H   |		Short_Literal	0x1
0946 00da       |    |		Load_Top	At_Offset_2
0947 01d6       |    |		Execute	Vector,Field_Write
0948 e5ff       |    |		Load	0x2,-0x1
0949 e00f       |    |		Load	0x0,0xf
094a 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
094b e00f       |    |		Load	0x0,0xf
094c 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
094d 0119       |    |		Execute	Any,Check_In_Formal_Type
094e 4802       |H   |		Short_Literal	0x2
094f 00da       |    |		Load_Top	At_Offset_2
0950 01d6       |    |		Execute	Vector,Field_Write
0951 6052       |`R  |		Indirect_Literal	Discrete,0x9a4,{0x00000000, 0x0000883a}
0952 e006       |    |		Load	0x0,0x6
0953 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
0954 7820       |x   |		Jump	0x975
0955 e404       |    |		Load	0x2,0x4
0956 4801       |H   |		Short_Literal	0x1
0957 4802       |H   |		Short_Literal	0x2
0958 e00f       |    |		Load	0x0,0xf
0959 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
095a 035b       | [  |		Declare_Type	Array,Constrained
095b 0337       | 7  |		Declare_Variable	Array
095c 00da       |    |		Load_Top	At_Offset_2
095d e00f       |    |		Load	0x0,0xf
095e 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
095f e00f       |    |		Load	0x0,0xf
0960 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0961 0119       |    |		Execute	Any,Check_In_Formal_Type
0962 4801       |H   |		Short_Literal	0x1
0963 00da       |    |		Load_Top	At_Offset_2
0964 01d6       |    |		Execute	Vector,Field_Write
0965 e403       |    |		Load	0x2,0x3
0966 e006       |    |		Load	0x0,0x6
0967 182e       | .  |		Execute	Package,Field_Execute,Field_Number 0x2e
0968 e00f       |    |		Load	0x0,0xf
0969 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
096a e00f       |    |		Load	0x0,0xf
096b 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
096c 0119       |    |		Execute	Any,Check_In_Formal_Type
096d 4802       |H   |		Short_Literal	0x2
096e 00da       |    |		Load_Top	At_Offset_2
096f 01d6       |    |		Execute	Vector,Field_Write
0970 602f       |`/  |		Indirect_Literal	Discrete,0x9a0,{0x00000000, 0x00008819}
0971 e006       |    |		Load	0x0,0x6
0972 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
0973 00cc       |    |		Action	Pop_Block
0974 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
0975 e5fd       |    |		Load	0x2,-0x3
0976 680d       |h   |		Jump_Zero	0x984
0977 4801       |H   |		Short_Literal	0x1
0978 4801       |H   |		Short_Literal	0x1
0979 4800       |H   |		Short_Literal	0x0
097a 4801       |H   |		Short_Literal	0x1
097b e404       |    |		Load	0x2,0x4
097c e00a       |    |		Load	0x0,0xa
097d 183e       | >  |		Execute	Package,Field_Execute,Field_Number 0x3e
097e 0092 0b65  |   e|		Action	Push_String_Extended,0xb65					; "<ALL_WORLDS>"
0980 00da       |    |		Load_Top	At_Offset_2
0981 e014       |    |		Load	0x0,0x14
0982 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0983 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0984 e404       |    |		Load	0x2,0x4
0985 4801       |H   |		Short_Literal	0x1
0986 4801       |H   |		Short_Literal	0x1
0987 e00f       |    |		Load	0x0,0xf
0988 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0989 035b       | [  |		Declare_Type	Array,Constrained
098a 0337       | 7  |		Declare_Variable	Array
098b 00da       |    |		Load_Top	At_Offset_2
098c e00f       |    |		Load	0x0,0xf
098d 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
098e e00f       |    |		Load	0x0,0xf
098f 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0990 0119       |    |		Execute	Any,Check_In_Formal_Type
0991 4801       |H   |		Short_Literal	0x1
0992 00da       |    |		Load_Top	At_Offset_2
0993 01d6       |    |		Execute	Vector,Field_Write
0994 673f       |g?  |		Indirect_Literal	Discrete,0x8d4,{0x00000000, 0x00008872}
0995 e006       |    |		Load	0x0,0x6
0996 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
0997 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0998			TRAP_08e8:
0998 e006       |    |		Load	0x0,0x6
0999 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
099a 010f       |    |		Execute	Exception,Equal
099b 6801       |h   |		Jump_Zero	0x99d
099c 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
099d 0100       |    |		Execute	Exception,Raise
099e 0000 0000  |    |		.XXX[0x2]
09a0 0000 0000  |    |		.LITERAL	{0x00000000, 0x00008819}
09a4 0000 0000  |    |		.LITERAL	{0x00000000, 0x0000883a}
09a8 ; --------------------------------------------------------------------------------------
09a8 ; SUBPROGRAM
09a8 ; --------------------------------------------------------------------------------------
09a8 09ab       |    |		.CONST	0x09ab								; Address of begin
09a9 0004       |    |		.CONST	0x0004								; Address of exception handler
09aa 0001       |    |		.CONST	0x0001								; Number of locals
09ab			BODY_09a8:
09ab			INIT_09a8:
09ab 4800       |H   |		Short_Literal	0x0
09ac 4800       |H   |		Short_Literal	0x0
09ad 4800       |H   |		Short_Literal	0x0
09ae 4801       |H   |		Short_Literal	0x1
09af e7f3       |    |		Load	0x3,-0xd
09b0 e005       |    |		Load	0x0,0x5
09b1 184a       | J  |		Execute	Package,Field_Execute,Field_Number 0x4a
09b2 e00a       |    |		Load	0x0,0xa
09b3 183f       | ?  |		Execute	Package,Field_Execute,Field_Number 0x3f
09b4 4801       |H   |		Short_Literal	0x1
09b5 e604       |    |		Load	0x3,0x4
09b6 e00e       |    |		Load	0x0,0xe
09b7 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
09b8 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
09b9 0000 0000  |    |		.BLANK	0000[0x7]
09c0 ; --------------------------------------------------------------------------------------
09c0 ; SUBPROGRAM
09c0 ; --------------------------------------------------------------------------------------
09c0 09c3       |    |		.CONST	0x09c3								; Address of begin
09c1 09d1       |    |		.CONST	0x09d1								; Address of exception handler
09c2 0001       |    |		.CONST	0x0001								; Number of locals
09c3			BODY_09c0:
09c3			INIT_09c0:
09c3 4800       |H   |		Short_Literal	0x0
09c4 4800       |H   |		Short_Literal	0x0
09c5 4800       |H   |		Short_Literal	0x0
09c6 4801       |H   |		Short_Literal	0x1
09c7 e7f3       |    |		Load	0x3,-0xd
09c8 e005       |    |		Load	0x0,0x5
09c9 184a       | J  |		Execute	Package,Field_Execute,Field_Number 0x4a
09ca e00a       |    |		Load	0x0,0xa
09cb 183f       | ?  |		Execute	Package,Field_Execute,Field_Number 0x3f
09cc 4801       |H   |		Short_Literal	0x1
09cd e604       |    |		Load	0x3,0x4
09ce e00e       |    |		Load	0x0,0xe
09cf 181f       |    |		Execute	Package,Field_Execute,Field_Number 0x1f
09d0 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
09d1			TRAP_09c0:
09d1 0007       |    |		Action	Break_Optional
09d2 e005       |    |		Load	0x0,0x5
09d3 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
09d4 4801       |H   |		Short_Literal	0x1
09d5 4801       |H   |		Short_Literal	0x1
09d6 e00f       |    |		Load	0x0,0xf
09d7 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
09d8 035b       | [  |		Declare_Type	Array,Constrained
09d9 0337       | 7  |		Declare_Variable	Array
09da 0092 0b74  |   t|		Action	Push_String_Extended,0xb74					; "Library.Unfreeze"
09dc e00f       |    |		Load	0x0,0xf
09dd 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
09de e00f       |    |		Load	0x0,0xf
09df 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
09e0 0119       |    |		Execute	Any,Check_In_Formal_Type
09e1 4801       |H   |		Short_Literal	0x1
09e2 00da       |    |		Load_Top	At_Offset_2
09e3 01d6       |    |		Execute	Vector,Field_Write
09e4 6007       |`   |		Indirect_Literal	Discrete,0x9ec,{0x00000000, 0x0000881f}
09e5 e006       |    |		Load	0x0,0x6
09e6 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
09e7 e006       |    |		Load	0x0,0x6
09e8 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
09e9 0257       | W  |		Execute	Discrete,Raise
09ea 0000 0000  |    |		.XXX[0x2]
09ec 0000 0000  |    |		.LITERAL	{0x00000000, 0x0000881f}
09f0 ; --------------------------------------------------------------------------------------
09f0 ; SUBPROGRAM
09f0 ; --------------------------------------------------------------------------------------
09f0 09f5       |    |		.CONST	0x09f5								; Address of begin
09f1 0a38       | 8  |		.CONST	0x0a38								; Address of exception handler
09f2 0002       |    |		.CONST	0x0002								; Number of locals
09f3			INIT_09f0:
09f3 029f 0b1b  |    |		Declare_Subprogram	INIT_0b18,For_Call
09f5			BODY_09f0:
09f5 e7f3       |    |		Load	0x3,-0xd
09f6 4801       |H   |		Short_Literal	0x1
09f7 4801       |H   |		Short_Literal	0x1
09f8 e00f       |    |		Load	0x0,0xf
09f9 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
09fa 035b       | [  |		Declare_Type	Array,Constrained
09fb 0337       | 7  |		Declare_Variable	Array
09fc 0092 0b75  |   u|		Action	Push_String_Extended,0xb75					; "New Path is "
09fe e604       |    |		Load	0x3,0x4
09ff 01cc       |    |		Execute	Vector,Catenate
0a00 e00f       |    |		Load	0x0,0xf
0a01 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0a02 e00f       |    |		Load	0x0,0xf
0a03 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0a04 0119       |    |		Execute	Any,Check_In_Formal_Type
0a05 4801       |H   |		Short_Literal	0x1
0a06 00da       |    |		Load_Top	At_Offset_2
0a07 01d6       |    |		Execute	Vector,Field_Write
0a08 603f       |`?  |		Indirect_Literal	Discrete,0xa48,{0x00000000, 0x00008876}
0a09 e006       |    |		Load	0x0,0x6
0a0a 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
0a0b e006       |    |		Load	0x0,0x6
0a0c 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0a0d e7f9       |    |		Load	0x3,-0x7
0a0e e404       |    |		Load	0x2,0x4
0a0f e7ff       |    |		Load	0x3,-0x1
0a10 0092 0b76  |   v|		Action	Push_String_Extended,0xb76					; ".units"
0a12 01cc       |    |		Execute	Vector,Catenate
0a13 e012       |    |		Load	0x0,0x12
0a14 188c       |    |		Execute	Package,Field_Execute,Field_Number 0x8c
0a15 c7f2       |    |		Store	0x3,-0xe
0a16 4800       |H   |		Short_Literal	0x0
0a17 e7f2       |    |		Load	0x3,-0xe
0a18 e006       |    |		Load	0x0,0x6
0a19 1847       | G  |		Execute	Package,Field_Execute,Field_Number 0x47
0a1a 7003       |p   |		Jump_Nonzero	0xa1e
0a1b e006       |    |		Load	0x0,0x6
0a1c 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
0a1d 0257       | W  |		Execute	Discrete,Raise
0a1e 8802       |    |		Call	0x4,0x2
0a1f e7f9       |    |		Load	0x3,-0x7
0a20 700c       |p   |		Jump_Nonzero	0xa2d
0a21 8608       |    |		Call	0x3,0x8
0a22 e006       |    |		Load	0x0,0x6
0a23 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0a24 e404       |    |		Load	0x2,0x4
0a25 e604       |    |		Load	0x3,0x4
0a26 0092 0b76  |   v|		Action	Push_String_Extended,0xb76					; ".units"
0a28 01cc       |    |		Execute	Vector,Catenate
0a29 e012       |    |		Load	0x0,0x12
0a2a 1883       |    |		Execute	Package,Field_Execute,Field_Number 0x83
0a2b c7f2       |    |		Store	0x3,-0xe
0a2c 8607       |    |		Call	0x3,0x7
0a2d e006       |    |		Load	0x0,0x6
0a2e 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0a2f e404       |    |		Load	0x2,0x4
0a30 e7ff       |    |		Load	0x3,-0x1
0a31 0092 0b76  |   v|		Action	Push_String_Extended,0xb76					; ".units"
0a33 01cc       |    |		Execute	Vector,Catenate
0a34 e012       |    |		Load	0x0,0x12
0a35 1884       |    |		Execute	Package,Field_Execute,Field_Number 0x84
0a36 c7f2       |    |		Store	0x3,-0xe
0a37 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0a38			TRAP_09f0:
0a38 0007       |    |		Action	Break_Optional
0a39 e006       |    |		Load	0x0,0x6
0a3a 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0a3b e404       |    |		Load	0x2,0x4
0a3c e7ff       |    |		Load	0x3,-0x1
0a3d 0092 0b76  |   v|		Action	Push_String_Extended,0xb76					; ".units"
0a3f 01cc       |    |		Execute	Vector,Catenate
0a40 e012       |    |		Load	0x0,0x12
0a41 1884       |    |		Execute	Package,Field_Execute,Field_Number 0x84
0a42 c7f2       |    |		Store	0x3,-0xe
0a43 e006       |    |		Load	0x0,0x6
0a44 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
0a45 0257       | W  |		Execute	Discrete,Raise
0a46 0000 0000  |    |		.XXX[0x2]
0a48 0000 0000  |    |		.LITERAL	{0x00000000, 0x00008876}
0a4c 0000 0000  |    |		.BLANK	0000[0x4]
0a50 ; --------------------------------------------------------------------------------------
0a50 ; SUBPROGRAM
0a50 ; --------------------------------------------------------------------------------------
0a50 0a53       | S  |		.CONST	0x0a53								; Address of begin
0a51 0a7b       | {  |		.CONST	0x0a7b								; Address of exception handler
0a52 0001       |    |		.CONST	0x0001								; Number of locals
0a53			BODY_0a50:
0a53			INIT_0a50:
0a53 4800       |H   |		Short_Literal	0x0
0a54 4800       |H   |		Short_Literal	0x0
0a55 4800       |H   |		Short_Literal	0x0
0a56 4801       |H   |		Short_Literal	0x1
0a57 e7f3       |    |		Load	0x3,-0xd
0a58 e005       |    |		Load	0x0,0x5
0a59 184a       | J  |		Execute	Package,Field_Execute,Field_Number 0x4a
0a5a e00a       |    |		Load	0x0,0xa
0a5b 183f       | ?  |		Execute	Package,Field_Execute,Field_Number 0x3f
0a5c 4801       |H   |		Short_Literal	0x1
0a5d e604       |    |		Load	0x3,0x4
0a5e 0092 0b77  |   w|		Action	Push_String_Extended,0xb77					; ".state.tool_state.alib_list"
0a60 01cc       |    |		Execute	Vector,Catenate
0a61 e00e       |    |		Load	0x0,0xe
0a62 181f       |    |		Execute	Package,Field_Execute,Field_Number 0x1f
0a63 4800       |H   |		Short_Literal	0x0
0a64 4800       |H   |		Short_Literal	0x0
0a65 4800       |H   |		Short_Literal	0x0
0a66 4801       |H   |		Short_Literal	0x1
0a67 e7f3       |    |		Load	0x3,-0xd
0a68 e005       |    |		Load	0x0,0x5
0a69 184a       | J  |		Execute	Package,Field_Execute,Field_Number 0x4a
0a6a e00a       |    |		Load	0x0,0xa
0a6b 183f       | ?  |		Execute	Package,Field_Execute,Field_Number 0x3f
0a6c 4801       |H   |		Short_Literal	0x1
0a6d e7f3       |    |		Load	0x3,-0xd
0a6e e604       |    |		Load	0x3,0x4
0a6f e00a       |    |		Load	0x0,0xa
0a70 182d       | -  |		Execute	Package,Field_Execute,Field_Number 0x2d
0a71 e7f3       |    |		Load	0x3,-0xd
0a72 4801       |H   |		Short_Literal	0x1
0a73 e604       |    |		Load	0x3,0x4
0a74 e00a       |    |		Load	0x0,0xa
0a75 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
0a76 e00a       |    |		Load	0x0,0xa
0a77 1848       | H  |		Execute	Package,Field_Execute,Field_Number 0x48
0a78 e00e       |    |		Load	0x0,0xe
0a79 181f       |    |		Execute	Package,Field_Execute,Field_Number 0x1f
0a7a 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0a7b			TRAP_0a50:
0a7b 0007       |    |		Action	Break_Optional
0a7c e7f3       |    |		Load	0x3,-0xd
0a7d 4801       |H   |		Short_Literal	0x1
0a7e 4801       |H   |		Short_Literal	0x1
0a7f e00f       |    |		Load	0x0,0xf
0a80 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0a81 035b       | [  |		Declare_Type	Array,Constrained
0a82 0337       | 7  |		Declare_Variable	Array
0a83 0092 0b74  |   t|		Action	Push_String_Extended,0xb74					; "Library.Unfreeze"
0a85 e00f       |    |		Load	0x0,0xf
0a86 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0a87 e00f       |    |		Load	0x0,0xf
0a88 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0a89 0119       |    |		Execute	Any,Check_In_Formal_Type
0a8a 4801       |H   |		Short_Literal	0x1
0a8b 00da       |    |		Load_Top	At_Offset_2
0a8c 01d6       |    |		Execute	Vector,Field_Write
0a8d 6006       |`   |		Indirect_Literal	Discrete,0xa94,{0x00000000, 0x0000881f}
0a8e e006       |    |		Load	0x0,0x6
0a8f 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
0a90 e006       |    |		Load	0x0,0x6
0a91 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
0a92 0257       | W  |		Execute	Discrete,Raise
0a93 0000       |    |		.XXX[0x1]
0a94 0000 0000  |    |		.LITERAL	{0x00000000, 0x0000881f}
0a98 ; --------------------------------------------------------------------------------------
0a98 ; SUBPROGRAM
0a98 ; --------------------------------------------------------------------------------------
0a98 0ab2       |    |		.CONST	0x0ab2								; Address of begin
0a99 0004       |    |		.CONST	0x0004								; Address of exception handler
0a9a 0005       |    |		.CONST	0x0005								; Number of locals
0a9b			INIT_0a98:
0a9b e007       |    |		Load	0x0,0x7
0a9c 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0a9d 02c7       |    |		Declare_Variable	Any
0a9e e7f3       |    |		Load	0x3,-0xd
0a9f 4801       |H   |		Short_Literal	0x1
0aa0 e7ff       |    |		Load	0x3,-0x1
0aa1 e00a       |    |		Load	0x0,0xa
0aa2 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
0aa3 a802       |    |		Store_Unchecked	0x4,0x2
0aa4 e007       |    |		Load	0x0,0x7
0aa5 1b2e       | .  |		Execute	Package,Field_Read,Field_Number 0x2e
0aa6 0322       | "  |		Declare_Variable	Record
0aa7 e7f3       |    |		Load	0x3,-0xd
0aa8 00da       |    |		Load_Top	At_Offset_2
0aa9 e00a       |    |		Load	0x0,0xa
0aaa 182b       | +  |		Execute	Package,Field_Execute,Field_Number 0x2b
0aab 00d9       |    |		Load_Top	At_Offset_1
0aac 017d       | }  |		Execute	Record,Structure_Write
0aad e7f3       |    |		Load	0x3,-0xd
0aae 00da       |    |		Load_Top	At_Offset_2
0aaf 8246       | F  |		Call	0x1,0x46
0ab0 00e1       |    |		Load_Encached	Boolean_Cache
0ab1 0601       |    |		Execute_Immediate	Set_Value_Unchecked,0x1
0ab2			BODY_0a98:
0ab2 4820       |H   |		Short_Literal	0x20
0ab3 e7fd       |    |		Load	0x3,-0x3
0ab4 e00b       |    |		Load	0x0,0xb
0ab5 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0ab6 01db       |    |		Execute	Vector,Length
0ab7 6809       |h   |		Jump_Zero	0xac1
0ab8 e7fc       |    |		Load	0x3,-0x4
0ab9 00db       |    |		Load_Top	At_Offset_3
0aba e7fd       |    |		Load	0x3,-0x3
0abb e804       |    |		Load	0x4,0x4
0abc e604       |    |		Load	0x3,0x4
0abd e7ff       |    |		Load	0x3,-0x1
0abe e013       |    |		Load	0x0,0x13
0abf 1827       | '  |		Execute	Package,Field_Execute,Field_Number 0x27
0ac0 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
0ac1 00d8       |    |		Load_Top	At_Offset_0
0ac2 7002       |p   |		Jump_Nonzero	0xac5
0ac3 00cc       |    |		Action	Pop_Block
0ac4 450e       |E   |		Exit_Suprogram	New_Top_Offset 0xe
0ac5 e7f9       |    |		Load	0x3,-0x7
0ac6 701a       |p   |		Jump_Nonzero	0xae1
0ac7 8608       |    |		Call	0x3,0x8
0ac8 e7f2       |    |		Load	0x3,-0xe
0ac9 e7f3       |    |		Load	0x3,-0xd
0aca 4800       |H   |		Short_Literal	0x0
0acb 4801       |H   |		Short_Literal	0x1
0acc e803       |    |		Load	0x4,0x3
0acd 4800       |H   |		Short_Literal	0x0
0ace e7fc       |    |		Load	0x3,-0x4
0acf e7fd       |    |		Load	0x3,-0x3
0ad0 e804       |    |		Load	0x4,0x4
0ad1 e7f3       |    |		Load	0x3,-0xd
0ad2 4801       |H   |		Short_Literal	0x1
0ad3 e604       |    |		Load	0x3,0x4
0ad4 e00a       |    |		Load	0x0,0xa
0ad5 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
0ad6 8247       | G  |		Call	0x1,0x47
0ad7 c7f2       |    |		Store	0x3,-0xe
0ad8 e007       |    |		Load	0x0,0x7
0ad9 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0ada e010       |    |		Load	0x0,0x10
0adb 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0adc e603       |    |		Load	0x3,0x3
0add e007       |    |		Load	0x0,0x7
0ade 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0adf 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0ae0 c606       |    |		Store	0x3,0x6
0ae1 4820       |H   |		Short_Literal	0x20
0ae2 e7fd       |    |		Load	0x3,-0x3
0ae3 e00b       |    |		Load	0x0,0xb
0ae4 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0ae5 01db       |    |		Execute	Vector,Length
0ae6 682a       |h*  |		Jump_Zero	0xb11
0ae7 e7fc       |    |		Load	0x3,-0x4
0ae8 00db       |    |		Load_Top	At_Offset_3
0ae9 e7fd       |    |		Load	0x3,-0x3
0aea e804       |    |		Load	0x4,0x4
0aeb e604       |    |		Load	0x3,0x4
0aec e7ff       |    |		Load	0x3,-0x1
0aed e013       |    |		Load	0x0,0x13
0aee 1828       | (  |		Execute	Package,Field_Execute,Field_Number 0x28
0aef 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
0af0 00d8       |    |		Load_Top	At_Offset_0
0af1 681f       |h   |		Jump_Zero	0xb11
0af2 e404       |    |		Load	0x2,0x4
0af3 0092 0b66  |   f|		Action	Push_String_Extended,0xb66					; "<WARN>"
0af5 4800       |H   |		Short_Literal	0x0
0af6 4800       |H   |		Short_Literal	0x0
0af7 e604       |    |		Load	0x3,0x4
0af8 e001       |    |		Load	0x0,0x1
0af9 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0afa e604       |    |		Load	0x3,0x4
0afb e017       |    |		Load	0x0,0x17
0afc 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
0afd e7f9       |    |		Load	0x3,-0x7
0afe 7012       |p   |		Jump_Nonzero	0xb11
0aff 4800       |H   |		Short_Literal	0x0
0b00 4801       |H   |		Short_Literal	0x1
0b01 4800       |H   |		Short_Literal	0x0
0b02 4801       |H   |		Short_Literal	0x1
0b03 e404       |    |		Load	0x2,0x4
0b04 e00a       |    |		Load	0x0,0xa
0b05 183e       | >  |		Execute	Package,Field_Execute,Field_Number 0x3e
0b06 e005       |    |		Load	0x0,0x5
0b07 184a       | J  |		Execute	Package,Field_Execute,Field_Number 0x4a
0b08 4800       |H   |		Short_Literal	0x0
0b09 0092 0b6a  |   j|		Action	Push_String_Extended,0xb6a					; "<WORLDS>"
0b0b e602       |    |		Load	0x3,0x2
0b0c 4803       |H   |		Short_Literal	0x3
0b0d e604       |    |		Load	0x3,0x4
0b0e e009       |    |		Load	0x0,0x9
0b0f 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
0b10 8607       |    |		Call	0x3,0x7
0b11 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0b12 0000 0000  |    |		.BLANK	0000[0x6]
0b18 ; --------------------------------------------------------------------------------------
0b18 ; SUBPROGRAM
0b18 ; --------------------------------------------------------------------------------------
0b18 0b1b       |    |		.CONST	0x0b1b								; Address of begin
0b19 0b31       | 1  |		.CONST	0x0b31								; Address of exception handler
0b1a 0001       |    |		.CONST	0x0001								; Number of locals
0b1b			BODY_0b18:
0b1b			INIT_0b18:
0b1b 4801       |H   |		Short_Literal	0x1
0b1c 4801       |H   |		Short_Literal	0x1
0b1d 4800       |H   |		Short_Literal	0x0
0b1e 4801       |H   |		Short_Literal	0x1
0b1f e7f3       |    |		Load	0x3,-0xd
0b20 e005       |    |		Load	0x0,0x5
0b21 184a       | J  |		Execute	Package,Field_Execute,Field_Number 0x4a
0b22 e00a       |    |		Load	0x0,0xa
0b23 183f       | ?  |		Execute	Package,Field_Execute,Field_Number 0x3f
0b24 e7f4       |    |		Load	0x3,-0xc
0b25 e7f5       |    |		Load	0x3,-0xb
0b26 e7f6       |    |		Load	0x3,-0xa
0b27 4801       |H   |		Short_Literal	0x1
0b28 e7f8       |    |		Load	0x3,-0x8
0b29 e7f9       |    |		Load	0x3,-0x7
0b2a e7fa       |    |		Load	0x3,-0x6
0b2b e7fb       |    |		Load	0x3,-0x5
0b2c e605       |    |		Load	0x3,0x5
0b2d e7ff       |    |		Load	0x3,-0x1
0b2e e001       |    |		Load	0x0,0x1
0b2f 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0b30 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0b31			TRAP_0b18:
0b31 0007       |    |		Action	Break_Optional
0b32 e7f3       |    |		Load	0x3,-0xd
0b33 4801       |H   |		Short_Literal	0x1
0b34 4801       |H   |		Short_Literal	0x1
0b35 e00f       |    |		Load	0x0,0xf
0b36 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0b37 035b       | [  |		Declare_Type	Array,Constrained
0b38 0337       | 7  |		Declare_Variable	Array
0b39 0092 0b78  |   x|		Action	Push_String_Extended,0xb78					; "Cmvc.Release"
0b3b e00f       |    |		Load	0x0,0xf
0b3c 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0b3d e00f       |    |		Load	0x0,0xf
0b3e 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0b3f 0119       |    |		Execute	Any,Check_In_Formal_Type
0b40 4801       |H   |		Short_Literal	0x1
0b41 00da       |    |		Load_Top	At_Offset_2
0b42 01d6       |    |		Execute	Vector,Field_Write
0b43 6008       |`   |		Indirect_Literal	Discrete,0xb4c,{0x00000000, 0x0000881f}
0b44 e006       |    |		Load	0x0,0x6
0b45 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
0b46 e006       |    |		Load	0x0,0x6
0b47 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
0b48 0257       | W  |		Execute	Discrete,Raise
0b49 0000 0000  |    |		.XXX[0x3]
0b4b 0000       |    |
0b4c 0000 0000  |    |		.LITERAL	{0x00000000, 0x0000881f}
0b50 ; --------------------------------------------------------------------------------------
0b50 ; STRING TABLE
0b50 ; --------------------------------------------------------------------------------------
0b50 0054       | T  |		.STRTAB	0x0054->0x0b7a							; "SPEC_LOAD_SUBSYSTEM"
0b51 0065       | e  |		.STRTAB	0x0065->0x0b83							; "COMBINED_SUBSYSTEM"
0b52 0075       | u  |		.STRTAB	0x0075->0x0b8c							; "SYSTEM"
0b53 0079       | y  |		.STRTAB	0x0079->0x0b8f							; "Rcf_Cmvc."
0b54 0080       |    |		.STRTAB	0x0080->0x0b94							; "<error>"
0b55 0085       |    |		.STRTAB	0x0085->0x0b97							; "Release"
0b56 008a       |    |		.STRTAB	0x008a->0x0b9b							; "From_Working_View"
0b57 0099       |    |		.STRTAB	0x0099->0x0ba3							; "Release_Name"
0b58 00a3       |    |		.STRTAB	0x00a3->0x0ba9							; "Remote_Directory"
0b59 00b1       |    |		.STRTAB	0x00b1->0x0bb1							; "Level =>"
0b5a 00b7       |    |		.STRTAB	0x00b7->0x0bb5							; ", Views_To_Import"
0b5b 00c6       |    |		.STRTAB	0x00c6->0x0bbe							; "Create_Configuration_Only => "
0b5c 00e1       |    |		.STRTAB	0x00e1->0x0bcc							; ", Compile_The_View => "
0b5d 00f5       |    |		.STRTAB	0x00f5->0x0bd7							; ", Goal => "
0b5e 00fd       |    |		.STRTAB	0x00fd->0x0bdc							; ", Comments"
0b5f 0105       |    |		.STRTAB	0x0105->0x0be1							; "Work_Order"
0b60 010d       |    |		.STRTAB	0x010d->0x0be6							; "Volume =>"
0b61 0114       |    |		.STRTAB	0x0114->0x0beb							; ", Response"
0b62 011c       |    |		.STRTAB	0x011c->0x0bf0							; "Working"
0b63 0121       | !  |		.STRTAB	0x0121->0x0bf3							; "_Working"
0b64 0127       | '  |		.STRTAB	0x0127->0x0bf7							; "_"
0b65 0126       | &  |		.STRTAB	0x0126->0x0bf8							; "<ALL_WORLDS>"
0b66 0130       | 0  |		.STRTAB	0x0130->0x0bfe							; "<WARN>"
0b67 0134       | 4  |		.STRTAB	0x0134->0x0c01							; "null remote directory"
0b68 0147       | G  |		.STRTAB	0x0147->0x0c0b							; "error during postprocess command"
0b69 0165       | e  |		.STRTAB	0x0165->0x0c1b							; ".??'c(Ada)"
0b6a 016d       | m  |		.STRTAB	0x016d->0x0c20							; "<WORLDS>"
0b6b 0173       | s  |		.STRTAB	0x0173->0x0c24							; "Initialize"
0b6c 017b       | {  |		.STRTAB	0x017b->0x0c29							; "View"
0b6d 017d       | }  |		.STRTAB	0x017d->0x0c2b							; "Remote_Machine"
0b6e 0189       |    |		.STRTAB	0x0189->0x0c32							; "Allow_Demotion => "
0b6f 0199       |    |		.STRTAB	0x0199->0x0c3b							; "Set_Remote_Machine"
0b70 01a9       |    |		.STRTAB	0x01a9->0x0c44							; "Set_Remote_Directory"
0b71 01bb       |    |		.STRTAB	0x01bb->0x0c4e							; "<AUTO_GENERATE>"
0b72 01c8       |    |		.STRTAB	0x01c8->0x0c56							; "."
0b73 01c7       |    |		.STRTAB	0x01c7->0x0c56							; "<DEFAULT>"
0b74 01ce       |    |		.STRTAB	0x01ce->0x0c5b							; "Library.Unfreeze"
0b75 01dc       |    |		.STRTAB	0x01dc->0x0c63							; "New Path is "
0b76 01e6       |    |		.STRTAB	0x01e6->0x0c69							; ".units"
0b77 01ea       |    |		.STRTAB	0x01ea->0x0c6c							; ".state.tool_state.alib_list"
0b78 0203       |    |		.STRTAB	0x0203->0x0c79							; "Cmvc.Release"
0b79 020d       |    |		.STREND 0x020d->0x0c7f
0b7a 5350 4543  |SPEC|		.STRTAB_STRINGS
0c80 ; --------------------------------------------------------------------------------------
0c80 ; Debug Table
0c80 ; --------------------------------------------------------------------------------------
0c80 0004 000d  |    |		.DEBUG4	0x0004,0x000d,0x50a4,0x0000,0x0001,0x0000
0c86 0000 8006  |    |		.XXX[0x17]
0c88 0005 8800  |    |
0c8a 0000 2490  |  $ |
0c8c 0000 1000  |    |
0c8e 0000 1801  |    |
0c90 4000 0000  |@   |
0c92 4000 0010  |@   |
0c94 0000 0088  |    |
0c96 0000 0000  |    |
0c98 4000 0002  |@   |
0c9a 9000 0080  |    |
0c9c babb       |    |
0c9d 0000 0000  |    |		.BLANK	0000[0x1e]
0cbb 4427 7650  |D'vP|		.XXX[0x1c]
0cbd 0007 1089  |    |
0cbf 0000 1000  |    |
0cc1 c000 b100  |    |
0cc3 0000 0496  |    |
0cc5 4000 0200  |@   |
0cc7 0000 0300  |    |
0cc9 2800 0000  |(   |
0ccb 0800 0002  |    |
0ccd 0000 0011  |    |
0ccf 0000 0000  |    |
0cd1 0800 0000  |    |
0cd3 5200 0010  |R   |
0cd5 175b c800  | [  |
0cd7 0000 0000  |    |		.BLANK	0000[0x1d]
0cf4 0884 eecc  |    |		.XXX[0x1c]
0cf6 0000 e211  |    |
0cf8 2000 0200  |    |
0cfa 1800 1620  |    |
0cfc 0000 00b6  |    |
0cfe d000 0040  |   @|
0d00 0000 0060  |   `|
0d02 0500 0000  |    |
0d04 0100 0000  |    |
0d06 4000 0002  |@   |
0d08 2000 0000  |    |
0d0a 0100 0000  |    |
0d0c 0a40 0002  | @  |
0d0e 03ed c300  |    |
0d10 0000 0000  |    |		.BLANK	0000[0x2a]
0d3a 0004 00a0  |    |		.XXX[0xc]
0d3c 0000 0000  |    |
0d3e 0000 0800  |    |
0d40 0000 4400  |  D |
0d42 0000 0020  |    |
0d44 0000 0140  |   @|
0d46 0000 0000  |    |		.BLANK	0000[0x2e]
0d74 8014 0000  |    |		.XXX[0xb]
0d76 0000 0000  |    |
0d78 0100 0000  |    |
0d7a 0880 0000  |    |
0d7c 0004 0000  |    |
0d7e 0028       | (  |
0d7f 0000 0000  |    |		.BLANK	0000[0x2e]
0dad 1002 8000  |    |		.XXX[0xb]
0daf 0000 0000  |    |
0db1 0020 0000  |    |
0db3 0110 0000  |    |
0db5 0000 8000  |    |
0db7 0005       |    |
0db8 0000 0000  |    |		.BLANK	0000[0x48]