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

⟦883bb79fa⟧

    Length: 15360 (0x3c00)
    Notes: 00_class, 5900_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_0694fc

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 5900       |Y   |		.CONST	0x5900								; Diana Version, RCG Major Version, RCG minor version
0002 0000       |    |		.CONST	0x0000								; Zero
0003 1db8       |    |		.CONST	0x1db8								; 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 8012       |    |		.CONST	0x8012								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 019a       |    |		.CONST	0x019a								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0063       | c  |		.CONST	0x0063								; Number of locals
000b			INIT_0008:
000b 029a 01a3  |    |		Declare_Subprogram	INIT_01a0,For_Outer_Call,Visible,Unelaborated
000d 029a 01bb  |    |		Declare_Subprogram	INIT_01b8,For_Outer_Call,Visible,Unelaborated
000f 029a 01c3  |    |		Declare_Subprogram	INIT_01c0,For_Outer_Call,Visible,Unelaborated
0011 029a 01d3  |    |		Declare_Subprogram	INIT_01d0,For_Outer_Call,Visible,Unelaborated
0013 00c4       |    |		Action	Make_Default
0014 00c4       |    |		Action	Make_Default
0015 00c4       |    |		Action	Make_Default
0016 00c4       |    |		Action	Make_Default
0017 00c4       |    |		Action	Make_Default
0018 00c4       |    |		Action	Make_Default
0019 00c4       |    |		Action	Make_Default
001a 00c4       |    |		Action	Make_Default
001b 00c4       |    |		Action	Make_Default
001c 00c4       |    |		Action	Make_Default
001d 00c4       |    |		Action	Make_Default
001e 00c4       |    |		Action	Make_Default
001f 00c4       |    |		Action	Make_Default
0020 00c4       |    |		Action	Make_Default
0021 00c4       |    |		Action	Make_Default
0022 00c4       |    |		Action	Make_Default
0023 00c4       |    |		Action	Make_Default
0024 00c4       |    |		Action	Make_Default
0025 00c4       |    |		Action	Make_Default
0026 00c4       |    |		Action	Make_Default
0027 00c4       |    |		Action	Make_Default
0028 00c4       |    |		Action	Make_Default
0029 00c4       |    |		Action	Make_Default
002a 00c4       |    |		Action	Make_Default
002b 00c4       |    |		Action	Make_Default
002c 00c4       |    |		Action	Make_Default
002d 00c4       |    |		Action	Make_Default
002e 00c4       |    |		Action	Make_Default
002f 00c4       |    |		Action	Make_Default
0030 00c4       |    |		Action	Make_Default
0031 00c4       |    |		Action	Make_Default
0032 00c4       |    |		Action	Make_Default
0033 00c4       |    |		Action	Make_Default
0034 00c4       |    |		Action	Make_Default
0035 00c4       |    |		Action	Make_Default
0036 00c4       |    |		Action	Make_Default
0037 00c4       |    |		Action	Make_Default
0038 00c4       |    |		Action	Make_Default
0039 00c4       |    |		Action	Make_Default
003a 00c4       |    |		Action	Make_Default
003b 00c4       |    |		Action	Make_Default
003c 00c4       |    |		Action	Make_Default
003d 00c4       |    |		Action	Make_Default
003e 00c4       |    |		Action	Make_Default
003f 00c4       |    |		Action	Make_Default
0040 00c4       |    |		Action	Make_Default
0041 00c4       |    |		Action	Make_Default
0042 00c4       |    |		Action	Make_Default
0043 00c4       |    |		Action	Make_Default
0044 00c4       |    |		Action	Make_Default
0045 00c4       |    |		Action	Make_Default
0046 00c4       |    |		Action	Make_Default
0047 00c4       |    |		Action	Make_Default
0048 00c4       |    |		Action	Make_Default
0049 00c4       |    |		Action	Make_Default
004a 00c4       |    |		Action	Make_Default
004b 00c4       |    |		Action	Make_Default
004c 00c4       |    |		Action	Make_Default
004d 00c4       |    |		Action	Make_Default
004e 00c4       |    |		Action	Make_Default
004f 00c4       |    |		Action	Make_Default
0050 00c4       |    |		Action	Make_Default
0051 00c4       |    |		Action	Make_Default
0052 00c4       |    |		Action	Make_Default
0053 00c4       |    |		Action	Make_Default
0054 00c4       |    |		Action	Make_Default
0055 00c4       |    |		Action	Make_Default
0056 00c4       |    |		Action	Make_Default
0057 00c4       |    |		Action	Make_Default
0058 00c4       |    |		Action	Make_Default
0059 00c4       |    |		Action	Make_Default
005a 00c4       |    |		Action	Make_Default
005b 00c4       |    |		Action	Make_Default
005c 00c4       |    |		Action	Make_Default
005d 029a 01eb  |    |		Declare_Subprogram	INIT_01e8,For_Outer_Call,Visible,Unelaborated
005f c249       | I  |		Store	0x1,0x49
0060 029a 01fb  |    |		Declare_Subprogram	INIT_01f8,For_Outer_Call,Visible,Unelaborated
0062 c212       |    |		Store	0x1,0x12
0063 029a 0213  |    |		Declare_Subprogram	INIT_0210,For_Outer_Call,Visible,Unelaborated
0065 c213       |    |		Store	0x1,0x13
0066 029a 0223  |   #|		Declare_Subprogram	INIT_0220,For_Outer_Call,Visible,Unelaborated
0068 c214       |    |		Store	0x1,0x14
0069 029a 023b  |   ;|		Declare_Subprogram	INIT_0238,For_Outer_Call,Visible,Unelaborated
006b c24a       | J  |		Store	0x1,0x4a
006c 029a 025b  |   [|		Declare_Subprogram	INIT_0258,For_Outer_Call,Visible,Unelaborated
006e c216       |    |		Store	0x1,0x16
006f 029a 027b  |   {|		Declare_Subprogram	INIT_0278,For_Outer_Call,Visible,Unelaborated
0071 c217       |    |		Store	0x1,0x17
0072 029a 0283  |    |		Declare_Subprogram	INIT_0280,For_Outer_Call,Visible,Unelaborated
0074 c218       |    |		Store	0x1,0x18
0075 029a 02a3  |    |		Declare_Subprogram	INIT_02a0,For_Outer_Call,Visible,Unelaborated
0077 c219       |    |		Store	0x1,0x19
0078 029a 02c3  |    |		Declare_Subprogram	INIT_02c0,For_Outer_Call,Visible,Unelaborated
007a c21a       |    |		Store	0x1,0x1a
007b 029a 02e3  |    |		Declare_Subprogram	INIT_02e0,For_Outer_Call,Visible,Unelaborated
007d c21b       |    |		Store	0x1,0x1b
007e 029a 0303  |    |		Declare_Subprogram	INIT_0300,For_Outer_Call,Visible,Unelaborated
0080 c21c       |    |		Store	0x1,0x1c
0081 029a 031b  |    |		Declare_Subprogram	INIT_0318,For_Outer_Call,Visible,Unelaborated
0083 c21d       |    |		Store	0x1,0x1d
0084 029a 032b  |   +|		Declare_Subprogram	INIT_0328,For_Outer_Call,Visible,Unelaborated
0086 c21e       |    |		Store	0x1,0x1e
0087 029a 0343  |   C|		Declare_Subprogram	INIT_0340,For_Outer_Call,Visible,Unelaborated
0089 c21f       |    |		Store	0x1,0x1f
008a 029a 035b  |   [|		Declare_Subprogram	INIT_0358,For_Outer_Call,Visible,Unelaborated
008c c220       |    |		Store	0x1,0x20
008d 029a 0373  |   s|		Declare_Subprogram	INIT_0370,For_Outer_Call,Visible,Unelaborated
008f c221       | !  |		Store	0x1,0x21
0090 029a 03ab  |    |		Declare_Subprogram	INIT_03a8,For_Outer_Call,Visible,Unelaborated
0092 c222       | "  |		Store	0x1,0x22
0093 029a 03bb  |    |		Declare_Subprogram	INIT_03b8,For_Outer_Call,Visible,Unelaborated
0095 c223       | #  |		Store	0x1,0x23
0096 029a 03cb  |    |		Declare_Subprogram	INIT_03c8,For_Outer_Call,Visible,Unelaborated
0098 c224       | $  |		Store	0x1,0x24
0099 029a 03e3  |    |		Declare_Subprogram	INIT_03e0,For_Outer_Call,Visible,Unelaborated
009b c225       | %  |		Store	0x1,0x25
009c 029a 03f3  |    |		Declare_Subprogram	INIT_03f0,For_Outer_Call,Visible,Unelaborated
009e c226       | &  |		Store	0x1,0x26
009f 029a 040b  |    |		Declare_Subprogram	INIT_0408,For_Outer_Call,Visible,Unelaborated
00a1 c227       | '  |		Store	0x1,0x27
00a2 029a 041b  |    |		Declare_Subprogram	INIT_0418,For_Outer_Call,Visible,Unelaborated
00a4 c228       | (  |		Store	0x1,0x28
00a5 029a 0433  |   3|		Declare_Subprogram	INIT_0430,For_Outer_Call,Visible,Unelaborated
00a7 c229       | )  |		Store	0x1,0x29
00a8 029a 0443  |   C|		Declare_Subprogram	INIT_0440,For_Outer_Call,Visible,Unelaborated
00aa c22a       | *  |		Store	0x1,0x2a
00ab 029a 045b  |   [|		Declare_Subprogram	INIT_0458,For_Outer_Call,Visible,Unelaborated
00ad c22b       | +  |		Store	0x1,0x2b
00ae 029a 0473  |   s|		Declare_Subprogram	INIT_0470,For_Outer_Call,Visible,Unelaborated
00b0 c22e       | .  |		Store	0x1,0x2e
00b1 029a 04bb  |    |		Declare_Subprogram	INIT_04b8,For_Outer_Call,Visible,Unelaborated
00b3 c22f       | /  |		Store	0x1,0x2f
00b4 029a 0553  |   S|		Declare_Subprogram	INIT_0550,For_Outer_Call,Visible,Unelaborated
00b6 c258       | X  |		Store	0x1,0x58
00b7 029a 057b  |   {|		Declare_Subprogram	INIT_0578,For_Outer_Call,Visible,Unelaborated
00b9 c231       | 1  |		Store	0x1,0x31
00ba 029a 069b  |    |		Declare_Subprogram	INIT_0698,For_Outer_Call,Visible,Unelaborated
00bc c24c       | L  |		Store	0x1,0x4c
00bd 029a 06ab  |    |		Declare_Subprogram	INIT_06a8,For_Outer_Call,Visible,Unelaborated
00bf c24d       | M  |		Store	0x1,0x4d
00c0 029a 06bb  |    |		Declare_Subprogram	INIT_06b8,For_Outer_Call,Visible,Unelaborated
00c2 c232       | 2  |		Store	0x1,0x32
00c3 029a 0713  |    |		Declare_Subprogram	INIT_0710,For_Outer_Call,Visible,Unelaborated
00c5 c233       | 3  |		Store	0x1,0x33
00c6 029a 072b  |   +|		Declare_Subprogram	INIT_0728,For_Outer_Call,Visible,Unelaborated
00c8 c234       | 4  |		Store	0x1,0x34
00c9 029a 0753  |   S|		Declare_Subprogram	INIT_0750,For_Outer_Call,Visible,Unelaborated
00cb c235       | 5  |		Store	0x1,0x35
00cc 029a 0793  |    |		Declare_Subprogram	INIT_0790,For_Outer_Call,Visible,Unelaborated
00ce c236       | 6  |		Store	0x1,0x36
00cf 029a 079b  |    |		Declare_Subprogram	INIT_0798,For_Outer_Call,Visible,Unelaborated
00d1 c237       | 7  |		Store	0x1,0x37
00d2 029a 07a3  |    |		Declare_Subprogram	INIT_07a0,For_Outer_Call,Visible,Unelaborated
00d4 c257       | W  |		Store	0x1,0x57
00d5 029a 07ab  |    |		Declare_Subprogram	INIT_07a8,For_Outer_Call,Visible,Unelaborated
00d7 c259       | Y  |		Store	0x1,0x59
00d8 029a 083b  |   ;|		Declare_Subprogram	INIT_0838,For_Outer_Call,Visible,Unelaborated
00da c239       | 9  |		Store	0x1,0x39
00db 029a 0843  |   C|		Declare_Subprogram	INIT_0840,For_Outer_Call,Visible,Unelaborated
00dd c23a       | :  |		Store	0x1,0x3a
00de 029a 0883  |    |		Declare_Subprogram	INIT_0880,For_Outer_Call,Visible,Unelaborated
00e0 c252       | R  |		Store	0x1,0x52
00e1 029a 088b  |    |		Declare_Subprogram	INIT_0888,For_Outer_Call,Visible,Unelaborated
00e3 c251       | Q  |		Store	0x1,0x51
00e4 029a 08cb  |    |		Declare_Subprogram	INIT_08c8,For_Outer_Call,Visible,Unelaborated
00e6 c23e       | >  |		Store	0x1,0x3e
00e7 029a 0933  |   3|		Declare_Subprogram	INIT_0930,For_Outer_Call,Visible,Unelaborated
00e9 c23f       | ?  |		Store	0x1,0x3f
00ea 029a 0943  |   C|		Declare_Subprogram	INIT_0940,For_Outer_Call,Visible,Unelaborated
00ec c240       | @  |		Store	0x1,0x40
00ed 029a 09ab  |    |		Declare_Subprogram	INIT_09a8,For_Outer_Call,Visible,Unelaborated
00ef c241       | A  |		Store	0x1,0x41
00f0 029a 09bb  |    |		Declare_Subprogram	INIT_09b8,For_Outer_Call,Visible,Unelaborated
00f2 c242       | B  |		Store	0x1,0x42
00f3 029a 09eb  |    |		Declare_Subprogram	INIT_09e8,For_Outer_Call,Visible,Unelaborated
00f5 c243       | C  |		Store	0x1,0x43
00f6 029a 0b5b  |   [|		Declare_Subprogram	INIT_0b58,For_Outer_Call,Visible,Unelaborated
00f8 c244       | D  |		Store	0x1,0x44
00f9 029a 0beb  |    |		Declare_Subprogram	INIT_0be8,For_Outer_Call,Visible,Unelaborated
00fb c245       | E  |		Store	0x1,0x45
00fc 029a 0bf3  |    |		Declare_Subprogram	INIT_0bf0,For_Outer_Call,Visible,Unelaborated
00fe c24f       | O  |		Store	0x1,0x4f
00ff 029a 0c1b  |    |		Declare_Subprogram	INIT_0c18,For_Outer_Call,Visible,Unelaborated
0101 c247       | G  |		Store	0x1,0x47
0102 029a 0c3b  |   ;|		Declare_Subprogram	INIT_0c38,For_Outer_Call,Visible,Unelaborated
0104 c255       | U  |		Store	0x1,0x55
0105 029a 0c6b  |   k|		Declare_Subprogram	INIT_0c68,For_Outer_Call,Visible,Unelaborated
0107 c253       | S  |		Store	0x1,0x53
0108 029a 0cf3  |    |		Declare_Subprogram	INIT_0cf0,For_Outer_Call,Visible,Unelaborated
010a c256       | V  |		Store	0x1,0x56
010b 00bf       |    |		Action	Accept_Activation
010c 0092 1995  |    |		Action	Push_String_Extended,0x1995					; "\x1b]"
010e 0092 1996  |    |		Action	Push_String_Extended,0x1996					; "\x07"
0110 029d 0d2b  |   +|		Declare_Subprogram	INIT_0d28,For_Outer_Call
0112 1d0d       |    |		Execute_Immediate	Reference_Lex_1,0xd
0113 00c7       |    |		Action	Elaborate_Subprogram
0114 1d0e       |    |		Execute_Immediate	Reference_Lex_1,0xe
0115 00c7       |    |		Action	Elaborate_Subprogram
0116 1d0f       |    |		Execute_Immediate	Reference_Lex_1,0xf
0117 00c7       |    |		Action	Elaborate_Subprogram
0118 1d10       |    |		Execute_Immediate	Reference_Lex_1,0x10
0119 00c7       |    |		Action	Elaborate_Subprogram
011a 1d49       | I  |		Execute_Immediate	Reference_Lex_1,0x49
011b 00c7       |    |		Action	Elaborate_Subprogram
011c 1d12       |    |		Execute_Immediate	Reference_Lex_1,0x12
011d 00c7       |    |		Action	Elaborate_Subprogram
011e 1d13       |    |		Execute_Immediate	Reference_Lex_1,0x13
011f 00c7       |    |		Action	Elaborate_Subprogram
0120 1d14       |    |		Execute_Immediate	Reference_Lex_1,0x14
0121 00c7       |    |		Action	Elaborate_Subprogram
0122 1d4a       | J  |		Execute_Immediate	Reference_Lex_1,0x4a
0123 00c7       |    |		Action	Elaborate_Subprogram
0124 1d16       |    |		Execute_Immediate	Reference_Lex_1,0x16
0125 00c7       |    |		Action	Elaborate_Subprogram
0126 1d17       |    |		Execute_Immediate	Reference_Lex_1,0x17
0127 00c7       |    |		Action	Elaborate_Subprogram
0128 1d18       |    |		Execute_Immediate	Reference_Lex_1,0x18
0129 00c7       |    |		Action	Elaborate_Subprogram
012a 1d19       |    |		Execute_Immediate	Reference_Lex_1,0x19
012b 00c7       |    |		Action	Elaborate_Subprogram
012c 1d1a       |    |		Execute_Immediate	Reference_Lex_1,0x1a
012d 00c7       |    |		Action	Elaborate_Subprogram
012e 1d1b       |    |		Execute_Immediate	Reference_Lex_1,0x1b
012f 00c7       |    |		Action	Elaborate_Subprogram
0130 1d1c       |    |		Execute_Immediate	Reference_Lex_1,0x1c
0131 00c7       |    |		Action	Elaborate_Subprogram
0132 1d1d       |    |		Execute_Immediate	Reference_Lex_1,0x1d
0133 00c7       |    |		Action	Elaborate_Subprogram
0134 1d1e       |    |		Execute_Immediate	Reference_Lex_1,0x1e
0135 00c7       |    |		Action	Elaborate_Subprogram
0136 1d1f       |    |		Execute_Immediate	Reference_Lex_1,0x1f
0137 00c7       |    |		Action	Elaborate_Subprogram
0138 1d20       |    |		Execute_Immediate	Reference_Lex_1,0x20
0139 00c7       |    |		Action	Elaborate_Subprogram
013a 1d21       | !  |		Execute_Immediate	Reference_Lex_1,0x21
013b 00c7       |    |		Action	Elaborate_Subprogram
013c 1d22       | "  |		Execute_Immediate	Reference_Lex_1,0x22
013d 00c7       |    |		Action	Elaborate_Subprogram
013e 1d23       | #  |		Execute_Immediate	Reference_Lex_1,0x23
013f 00c7       |    |		Action	Elaborate_Subprogram
0140 1d24       | $  |		Execute_Immediate	Reference_Lex_1,0x24
0141 00c7       |    |		Action	Elaborate_Subprogram
0142 1d25       | %  |		Execute_Immediate	Reference_Lex_1,0x25
0143 00c7       |    |		Action	Elaborate_Subprogram
0144 1d26       | &  |		Execute_Immediate	Reference_Lex_1,0x26
0145 00c7       |    |		Action	Elaborate_Subprogram
0146 1d27       | '  |		Execute_Immediate	Reference_Lex_1,0x27
0147 00c7       |    |		Action	Elaborate_Subprogram
0148 1d28       | (  |		Execute_Immediate	Reference_Lex_1,0x28
0149 00c7       |    |		Action	Elaborate_Subprogram
014a 1d29       | )  |		Execute_Immediate	Reference_Lex_1,0x29
014b 00c7       |    |		Action	Elaborate_Subprogram
014c 1d2a       | *  |		Execute_Immediate	Reference_Lex_1,0x2a
014d 00c7       |    |		Action	Elaborate_Subprogram
014e 1d2b       | +  |		Execute_Immediate	Reference_Lex_1,0x2b
014f 00c7       |    |		Action	Elaborate_Subprogram
0150 029d 0d3b  |   ;|		Declare_Subprogram	INIT_0d38,For_Outer_Call
0152 1d2e       | .  |		Execute_Immediate	Reference_Lex_1,0x2e
0153 00c7       |    |		Action	Elaborate_Subprogram
0154 1d4c       | L  |		Execute_Immediate	Reference_Lex_1,0x4c
0155 00c7       |    |		Action	Elaborate_Subprogram
0156 1d4d       | M  |		Execute_Immediate	Reference_Lex_1,0x4d
0157 00c7       |    |		Action	Elaborate_Subprogram
0158 1d2f       | /  |		Execute_Immediate	Reference_Lex_1,0x2f
0159 00c7       |    |		Action	Elaborate_Subprogram
015a 029d 0d83  |    |		Declare_Subprogram	INIT_0d80,For_Outer_Call
015c 1d58       | X  |		Execute_Immediate	Reference_Lex_1,0x58
015d 00c7       |    |		Action	Elaborate_Subprogram
015e 1d31       | 1  |		Execute_Immediate	Reference_Lex_1,0x31
015f 00c7       |    |		Action	Elaborate_Subprogram
0160 1d32       | 2  |		Execute_Immediate	Reference_Lex_1,0x32
0161 00c7       |    |		Action	Elaborate_Subprogram
0162 1d33       | 3  |		Execute_Immediate	Reference_Lex_1,0x33
0163 00c7       |    |		Action	Elaborate_Subprogram
0164 1d34       | 4  |		Execute_Immediate	Reference_Lex_1,0x34
0165 00c7       |    |		Action	Elaborate_Subprogram
0166 1d35       | 5  |		Execute_Immediate	Reference_Lex_1,0x35
0167 00c7       |    |		Action	Elaborate_Subprogram
0168 1d36       | 6  |		Execute_Immediate	Reference_Lex_1,0x36
0169 00c7       |    |		Action	Elaborate_Subprogram
016a 029d 0dab  |    |		Declare_Subprogram	INIT_0da8,For_Outer_Call
016c 1d37       | 7  |		Execute_Immediate	Reference_Lex_1,0x37
016d 00c7       |    |		Action	Elaborate_Subprogram
016e 1d57       | W  |		Execute_Immediate	Reference_Lex_1,0x57
016f 00c7       |    |		Action	Elaborate_Subprogram
0170 1d59       | Y  |		Execute_Immediate	Reference_Lex_1,0x59
0171 00c7       |    |		Action	Elaborate_Subprogram
0172 1d39       | 9  |		Execute_Immediate	Reference_Lex_1,0x39
0173 00c7       |    |		Action	Elaborate_Subprogram
0174 1d3a       | :  |		Execute_Immediate	Reference_Lex_1,0x3a
0175 00c7       |    |		Action	Elaborate_Subprogram
0176 1d52       | R  |		Execute_Immediate	Reference_Lex_1,0x52
0177 00c7       |    |		Action	Elaborate_Subprogram
0178 1d51       | Q  |		Execute_Immediate	Reference_Lex_1,0x51
0179 00c7       |    |		Action	Elaborate_Subprogram
017a 1d3e       | >  |		Execute_Immediate	Reference_Lex_1,0x3e
017b 00c7       |    |		Action	Elaborate_Subprogram
017c 1d3f       | ?  |		Execute_Immediate	Reference_Lex_1,0x3f
017d 00c7       |    |		Action	Elaborate_Subprogram
017e 1d40       | @  |		Execute_Immediate	Reference_Lex_1,0x40
017f 00c7       |    |		Action	Elaborate_Subprogram
0180 1d41       | A  |		Execute_Immediate	Reference_Lex_1,0x41
0181 00c7       |    |		Action	Elaborate_Subprogram
0182 1d42       | B  |		Execute_Immediate	Reference_Lex_1,0x42
0183 00c7       |    |		Action	Elaborate_Subprogram
0184 029d 0df3  |    |		Declare_Subprogram	INIT_0df0,For_Outer_Call
0186 029d 0e03  |    |		Declare_Subprogram	INIT_0e00,For_Outer_Call
0188 029d 0e13  |    |		Declare_Subprogram	INIT_0e10,For_Outer_Call
018a 1d43       | C  |		Execute_Immediate	Reference_Lex_1,0x43
018b 00c7       |    |		Action	Elaborate_Subprogram
018c 1d44       | D  |		Execute_Immediate	Reference_Lex_1,0x44
018d 00c7       |    |		Action	Elaborate_Subprogram
018e 1d45       | E  |		Execute_Immediate	Reference_Lex_1,0x45
018f 00c7       |    |		Action	Elaborate_Subprogram
0190 1d4f       | O  |		Execute_Immediate	Reference_Lex_1,0x4f
0191 00c7       |    |		Action	Elaborate_Subprogram
0192 1d47       | G  |		Execute_Immediate	Reference_Lex_1,0x47
0193 00c7       |    |		Action	Elaborate_Subprogram
0194 1d55       | U  |		Execute_Immediate	Reference_Lex_1,0x55
0195 00c7       |    |		Action	Elaborate_Subprogram
0196 1d53       | S  |		Execute_Immediate	Reference_Lex_1,0x53
0197 00c7       |    |		Action	Elaborate_Subprogram
0198 1d56       | V  |		Execute_Immediate	Reference_Lex_1,0x56
0199 00c7       |    |		Action	Elaborate_Subprogram
019a			BODY_0008:
019a 00bc       |    |		Action	Signal_Activated
019b 00bb       |    |		Action	Signal_Completion
019c 0000 0000  |    |		.BLANK	0000[0x4]
01a0 ; --------------------------------------------------------------------------------------
01a0 ; SUBPROGRAM
01a0 ; --------------------------------------------------------------------------------------
01a0 01a3       |    |		.CONST	0x01a3								; Address of begin
01a1 0004       |    |		.CONST	0x0004								; Address of exception handler
01a2 0001       |    |		.CONST	0x0001								; Number of locals
01a3			BODY_01a0:
01a3			INIT_01a0:
01a3 00ea       |    |		Load_Encached	Null_String_Cache
01a4 00ea       |    |		Load_Encached	Null_String_Cache
01a5 0092 1997  |    |		Action	Push_String_Extended,0x1997					; "Name:"
01a7 e001       |    |		Load	0x0,0x1
01a8 1823       | #  |		Execute	Package,Field_Execute,Field_Number 0x23
01a9 0092 1998  |    |		Action	Push_String_Extended,0x1998					; ".New_File"
01ab 01cc       |    |		Execute	Vector,Catenate
01ac 0092 1999  |    |		Action	Push_String_Extended,0x1999					; "New Text File"
01ae 4abd       |J   |		Short_Literal	0x2bd
01af e002       |    |		Load	0x0,0x2
01b0 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
01b1 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
01b2 0000 0000  |    |		.BLANK	0000[0x6]
01b8 ; --------------------------------------------------------------------------------------
01b8 ; SUBPROGRAM
01b8 ; --------------------------------------------------------------------------------------
01b8 01bb       |    |		.CONST	0x01bb								; Address of begin
01b9 0004       |    |		.CONST	0x0004								; Address of exception handler
01ba 0001       |    |		.CONST	0x0001								; Number of locals
01bb			BODY_01b8:
01bb			INIT_01b8:
01bb 4800       |H   |		Short_Literal	0x0
01bc 00db       |    |		Load_Top	At_Offset_3
01bd e003       |    |		Load	0x0,0x3
01be 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
01bf 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
01c0 ; --------------------------------------------------------------------------------------
01c0 ; SUBPROGRAM
01c0 ; --------------------------------------------------------------------------------------
01c0 01c3       |    |		.CONST	0x01c3								; Address of begin
01c1 0004       |    |		.CONST	0x0004								; Address of exception handler
01c2 0001       |    |		.CONST	0x0001								; Number of locals
01c3			BODY_01c0:
01c3			INIT_01c0:
01c3 e001       |    |		Load	0x0,0x1
01c4 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
01c5 0f05       |    |		Execute_Immediate	Equal,0x5
01c6 7005       |p   |		Jump_Nonzero	0x1cc
01c7 0092 199a  |    |		Action	Push_String_Extended,0x199a					; "The context must be a library or view to create an Ada unit."
01c9 e004       |    |		Load	0x0,0x4
01ca 1865       | e  |		Execute	Package,Field_Execute,Field_Number 0x65
01cb 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
01cc e005       |    |		Load	0x0,0x5
01cd 1b23       | #  |		Execute	Package,Field_Read,Field_Number 0x23
01ce 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
01cf 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
01d0 ; --------------------------------------------------------------------------------------
01d0 ; SUBPROGRAM
01d0 ; --------------------------------------------------------------------------------------
01d0 01d3       |    |		.CONST	0x01d3								; Address of begin
01d1 0004       |    |		.CONST	0x0004								; Address of exception handler
01d2 0001       |    |		.CONST	0x0001								; Number of locals
01d3			BODY_01d0:
01d3			INIT_01d0:
01d3 00ea       |    |		Load_Encached	Null_String_Cache
01d4 00ea       |    |		Load_Encached	Null_String_Cache
01d5 00ea       |    |		Load_Encached	Null_String_Cache
01d6 00ea       |    |		Load_Encached	Null_String_Cache
01d7 00ea       |    |		Load_Encached	Null_String_Cache
01d8 00ea       |    |		Load_Encached	Null_String_Cache
01d9 0092 199b  |    |		Action	Push_String_Extended,0x199b					; "New World"
01db e001       |    |		Load	0x0,0x1
01dc 1823       | #  |		Execute	Package,Field_Execute,Field_Number 0x23
01dd 0092 199c  |    |		Action	Push_String_Extended,0x199c					; ".New_World"
01df 01cc       |    |		Execute	Vector,Catenate
01e0 4abf       |J   |		Short_Literal	0x2bf
01e1 480b       |H   |		Short_Literal	0xb
01e2 e002       |    |		Load	0x0,0x2
01e3 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
01e4 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
01e5 0000 0000  |    |		.XXX[0x3]
01e7 0000       |    |
01e8 ; --------------------------------------------------------------------------------------
01e8 ; SUBPROGRAM
01e8 ; --------------------------------------------------------------------------------------
01e8 01eb       |    |		.CONST	0x01eb								; Address of begin
01e9 0004       |    |		.CONST	0x0004								; Address of exception handler
01ea 0001       |    |		.CONST	0x0001								; Number of locals
01eb			BODY_01e8:
01eb			INIT_01e8:
01eb 0092 199d  |    |		Action	Push_String_Extended,0x199d					; "<PROFILE>"
01ed e5fe       |    |		Load	0x2,-0x2
01ee 4800       |H   |		Short_Literal	0x0
01ef 4800       |H   |		Short_Literal	0x0
01f0 e5ff       |    |		Load	0x2,-0x1
01f1 e006       |    |		Load	0x0,0x6
01f2 182e       | .  |		Execute	Package,Field_Execute,Field_Number 0x2e
01f3 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
01f4 0000 0000  |    |		.BLANK	0000[0x4]
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 00ea       |    |		Load_Encached	Null_String_Cache
01fc 00ea       |    |		Load_Encached	Null_String_Cache
01fd 0092 199e  |    |		Action	Push_String_Extended,0x199e					; "Directory Name:"
01ff e001       |    |		Load	0x0,0x1
0200 1823       | #  |		Execute	Package,Field_Execute,Field_Number 0x23
0201 0092 199f  |    |		Action	Push_String_Extended,0x199f					; ".New_Directory"
0203 01cc       |    |		Execute	Vector,Catenate
0204 0092 19a0  |    |		Action	Push_String_Extended,0x19a0					; "New Directory"
0206 4ac0       |J   |		Short_Literal	0x2c0
0207 e002       |    |		Load	0x0,0x2
0208 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
0209 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
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 0092 199d  |    |		Action	Push_String_Extended,0x199d					; "<PROFILE>"
0215 00ea       |    |		Load_Encached	Null_String_Cache
0216 4800       |H   |		Short_Literal	0x0
0217 4801       |H   |		Short_Literal	0x1
0218 e5ff       |    |		Load	0x2,-0x1
0219 e006       |    |		Load	0x0,0x6
021a 182f       | /  |		Execute	Package,Field_Execute,Field_Number 0x2f
021b 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
021c 0000 0000  |    |		.BLANK	0000[0x4]
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 00ea       |    |		Load_Encached	Null_String_Cache
0224 00ea       |    |		Load_Encached	Null_String_Cache
0225 00ea       |    |		Load_Encached	Null_String_Cache
0226 00ea       |    |		Load_Encached	Null_String_Cache
0227 00ea       |    |		Load_Encached	Null_String_Cache
0228 0092 19a1  |    |		Action	Push_String_Extended,0x19a1					; "!Model.R1000"
022a e001       |    |		Load	0x0,0x1
022b 1823       | #  |		Execute	Package,Field_Execute,Field_Number 0x23
022c 0092 19a2  |    |		Action	Push_String_Extended,0x19a2					; ".New_Subsystem"
022e 01cc       |    |		Execute	Vector,Catenate
022f 0092 19a3  |    |		Action	Push_String_Extended,0x19a3					; "New Subsystem"
0231 4ac1       |J   |		Short_Literal	0x2c1
0232 480c       |H   |		Short_Literal	0xc
0233 e002       |    |		Load	0x0,0x2
0234 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0235 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0236 0000 0000  |    |		.XXX[0x2]
0238 ; --------------------------------------------------------------------------------------
0238 ; SUBPROGRAM
0238 ; --------------------------------------------------------------------------------------
0238 023d       | =  |		.CONST	0x023d								; Address of begin
0239 0004       |    |		.CONST	0x0004								; Address of exception handler
023a 0002       |    |		.CONST	0x0002								; Number of locals
023b			INIT_0238:
023b 00e1       |    |		Load_Encached	Boolean_Cache
023c 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
023d			BODY_0238:
023d e5fe       |    |		Load	0x2,-0x2
023e 6803       |h   |		Jump_Zero	0x242
023f 4800       |H   |		Short_Literal	0x0
0240 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
0241 7802       |x   |		Jump	0x244
0242 4801       |H   |		Short_Literal	0x1
0243 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
0244 0092 199d  |    |		Action	Push_String_Extended,0x199d					; "<PROFILE>"
0246 4800       |H   |		Short_Literal	0x0
0247 0092 19a4  |    |		Action	Push_String_Extended,0x19a4					; "<DEFAULT>"
0249 e5fb       |    |		Load	0x2,-0x5
024a e5fc       |    |		Load	0x2,-0x4
024b e402       |    |		Load	0x2,0x2
024c 00ea       |    |		Load_Encached	Null_String_Cache
024d 4800       |H   |		Short_Literal	0x0
024e e5fd       |    |		Load	0x2,-0x3
024f e5ff       |    |		Load	0x2,-0x1
0250 e007       |    |		Load	0x0,0x7
0251 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
0252 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
0253 0000 0000  |    |		.BLANK	0000[0x5]
0258 ; --------------------------------------------------------------------------------------
0258 ; SUBPROGRAM
0258 ; --------------------------------------------------------------------------------------
0258 0261       | a  |		.CONST	0x0261								; Address of begin
0259 0004       |    |		.CONST	0x0004								; Address of exception handler
025a 0002       |    |		.CONST	0x0002								; Number of locals
025b			INIT_0258:
025b 0092 19a5  |    |		Action	Push_String_Extended,0x19a5					; "<Cursor>"
025d e001       |    |		Load	0x0,0x1
025e 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
025f e008       |    |		Load	0x0,0x8
0260 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0261			BODY_0258:
0261 00ea       |    |		Load_Encached	Null_String_Cache
0262 00ea       |    |		Load_Encached	Null_String_Cache
0263 00ea       |    |		Load_Encached	Null_String_Cache
0264 00ea       |    |		Load_Encached	Null_String_Cache
0265 e402       |    |		Load	0x2,0x2
0266 e008       |    |		Load	0x0,0x8
0267 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0268 0092 19a6  |    |		Action	Push_String_Extended,0x19a6					; "New Working View"
026a e402       |    |		Load	0x2,0x2
026b 00d8       |    |		Load_Top	At_Offset_0
026c e008       |    |		Load	0x0,0x8
026d 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
026e 0092 19a7  |    |		Action	Push_String_Extended,0x19a7					; "_Working"
0270 01cc       |    |		Execute	Vector,Catenate
0271 4ac2       |J   |		Short_Literal	0x2c2
0272 480d       |H   |		Short_Literal	0xd
0273 e002       |    |		Load	0x0,0x2
0274 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0275 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0276 0000 0000  |    |		.XXX[0x2]
0278 ; --------------------------------------------------------------------------------------
0278 ; SUBPROGRAM
0278 ; --------------------------------------------------------------------------------------
0278 027d       | }  |		.CONST	0x027d								; Address of begin
0279 0004       |    |		.CONST	0x0004								; Address of exception handler
027a 0002       |    |		.CONST	0x0002								; Number of locals
027b			INIT_0278:
027b 029f 0e3b  |   ;|		Declare_Subprogram	INIT_0e38,For_Call
027d			BODY_0278:
027d 8402       |    |		Call	0x2,0x2
027e 4508       |E   |		Exit_Suprogram	New_Top_Offset 0x8
027f 0000       |    |		.XXX[0x1]
0280 ; --------------------------------------------------------------------------------------
0280 ; SUBPROGRAM
0280 ; --------------------------------------------------------------------------------------
0280 0289       |    |		.CONST	0x0289								; Address of begin
0281 0004       |    |		.CONST	0x0004								; Address of exception handler
0282 0002       |    |		.CONST	0x0002								; Number of locals
0283			INIT_0280:
0283 0092 19a5  |    |		Action	Push_String_Extended,0x19a5					; "<Cursor>"
0285 e001       |    |		Load	0x0,0x1
0286 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0287 e008       |    |		Load	0x0,0x8
0288 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0289			BODY_0280:
0289 00ea       |    |		Load_Encached	Null_String_Cache
028a 00ea       |    |		Load_Encached	Null_String_Cache
028b 00ea       |    |		Load_Encached	Null_String_Cache
028c 00ea       |    |		Load_Encached	Null_String_Cache
028d 0092 19a8  |    |		Action	Push_String_Extended,0x19a8					; "New Spec View"
028f e402       |    |		Load	0x2,0x2
0290 e008       |    |		Load	0x0,0x8
0291 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0292 e402       |    |		Load	0x2,0x2
0293 00d8       |    |		Load_Top	At_Offset_0
0294 e008       |    |		Load	0x0,0x8
0295 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0296 0092 19a9  |    |		Action	Push_String_Extended,0x19a9					; "_Spec"
0298 01cc       |    |		Execute	Vector,Catenate
0299 4ac3       |J   |		Short_Literal	0x2c3
029a 480e       |H   |		Short_Literal	0xe
029b e002       |    |		Load	0x0,0x2
029c 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
029d 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
029e 0000 0000  |    |		.XXX[0x2]
02a0 ; --------------------------------------------------------------------------------------
02a0 ; SUBPROGRAM
02a0 ; --------------------------------------------------------------------------------------
02a0 02a3       |    |		.CONST	0x02a3								; Address of begin
02a1 0004       |    |		.CONST	0x0004								; Address of exception handler
02a2 0001       |    |		.CONST	0x0001								; Number of locals
02a3			BODY_02a0:
02a3			INIT_02a0:
02a3 0092 199d  |    |		Action	Push_String_Extended,0x199d					; "<PROFILE>"
02a5 4800       |H   |		Short_Literal	0x0
02a6 0092 19a4  |    |		Action	Push_String_Extended,0x19a4					; "<DEFAULT>"
02a8 e5fa       |    |		Load	0x2,-0x6
02a9 4803       |H   |		Short_Literal	0x3
02aa 4801       |H   |		Short_Literal	0x1
02ab e5fb       |    |		Load	0x2,-0x5
02ac 600f       |`   |		Indirect_Literal	Discrete,0x2bc,{0x00000000, 0x7fffffff}
02ad 4800       |H   |		Short_Literal	0x0
02ae 4800       |H   |		Short_Literal	0x0
02af 4801       |H   |		Short_Literal	0x1
02b0 4800       |H   |		Short_Literal	0x0
02b1 0092 19aa  |    |		Action	Push_String_Extended,0x19aa					; "<AUTO_GENERATE>"
02b3 e5fd       |    |		Load	0x2,-0x3
02b4 4801       |H   |		Short_Literal	0x1
02b5 e5fc       |    |		Load	0x2,-0x4
02b6 00ea       |    |		Load_Encached	Null_String_Cache
02b7 e5ff       |    |		Load	0x2,-0x1
02b8 e5fe       |    |		Load	0x2,-0x2
02b9 e007       |    |		Load	0x0,0x7
02ba 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
02bb 4507       |E   |		Exit_Suprogram	New_Top_Offset 0x7
02bc 0000 0000  |    |		.LITERAL	{0x00000000, 0x7fffffff}
02c0 ; --------------------------------------------------------------------------------------
02c0 ; SUBPROGRAM
02c0 ; --------------------------------------------------------------------------------------
02c0 02c9       |    |		.CONST	0x02c9								; Address of begin
02c1 0004       |    |		.CONST	0x0004								; Address of exception handler
02c2 0002       |    |		.CONST	0x0002								; Number of locals
02c3			INIT_02c0:
02c3 0092 19a5  |    |		Action	Push_String_Extended,0x19a5					; "<Cursor>"
02c5 e001       |    |		Load	0x0,0x1
02c6 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
02c7 e008       |    |		Load	0x0,0x8
02c8 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
02c9			BODY_02c0:
02c9 00ea       |    |		Load_Encached	Null_String_Cache
02ca 00ea       |    |		Load_Encached	Null_String_Cache
02cb 00ea       |    |		Load_Encached	Null_String_Cache
02cc 00ea       |    |		Load_Encached	Null_String_Cache
02cd 00ea       |    |		Load_Encached	Null_String_Cache
02ce e402       |    |		Load	0x2,0x2
02cf e008       |    |		Load	0x0,0x8
02d0 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
02d1 e402       |    |		Load	0x2,0x2
02d2 00d8       |    |		Load_Top	At_Offset_0
02d3 e008       |    |		Load	0x0,0x8
02d4 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
02d5 4ac4       |J   |		Short_Literal	0x2c4
02d6 480f       |H   |		Short_Literal	0xf
02d7 e002       |    |		Load	0x0,0x2
02d8 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
02d9 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
02da 0000 0000  |    |		.BLANK	0000[0x6]
02e0 ; --------------------------------------------------------------------------------------
02e0 ; SUBPROGRAM
02e0 ; --------------------------------------------------------------------------------------
02e0 02e5       |    |		.CONST	0x02e5								; Address of begin
02e1 0004       |    |		.CONST	0x0004								; Address of exception handler
02e2 0002       |    |		.CONST	0x0002								; Number of locals
02e3			INIT_02e0:
02e3 029f 0e63  |   c|		Declare_Subprogram	INIT_0e60,For_Call
02e5			BODY_02e0:
02e5 e5f8       |    |		Load	0x2,-0x8
02e6 7002       |p   |		Jump_Nonzero	0x2e9
02e7 8402       |    |		Call	0x2,0x2
02e8 4509       |E   |		Exit_Suprogram	New_Top_Offset 0x9
02e9 0092 199d  |    |		Action	Push_String_Extended,0x199d					; "<PROFILE>"
02eb 4800       |H   |		Short_Literal	0x0
02ec 0092 19a4  |    |		Action	Push_String_Extended,0x19a4					; "<DEFAULT>"
02ee e5f9       |    |		Load	0x2,-0x7
02ef 4803       |H   |		Short_Literal	0x3
02f0 4801       |H   |		Short_Literal	0x1
02f1 e5f8       |    |		Load	0x2,-0x8
02f2 e5fc       |    |		Load	0x2,-0x4
02f3 6008       |`   |		Indirect_Literal	Discrete,0x2fc,{0x00000000, 0x7fffffff}
02f4 e5ff       |    |		Load	0x2,-0x1
02f5 e5fe       |    |		Load	0x2,-0x2
02f6 e007       |    |		Load	0x0,0x7
02f7 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
02f8 4509       |E   |		Exit_Suprogram	New_Top_Offset 0x9
02f9 0000 0000  |    |		.XXX[0x3]
02fb 0000       |    |
02fc 0000 0000  |    |		.LITERAL	{0x00000000, 0x7fffffff}
0300 ; --------------------------------------------------------------------------------------
0300 ; SUBPROGRAM
0300 ; --------------------------------------------------------------------------------------
0300 0309       |    |		.CONST	0x0309								; Address of begin
0301 0004       |    |		.CONST	0x0004								; Address of exception handler
0302 0002       |    |		.CONST	0x0002								; Number of locals
0303			INIT_0300:
0303 0092 19a5  |    |		Action	Push_String_Extended,0x19a5					; "<Cursor>"
0305 e001       |    |		Load	0x0,0x1
0306 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0307 e008       |    |		Load	0x0,0x8
0308 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0309			BODY_0300:
0309 00ea       |    |		Load_Encached	Null_String_Cache
030a 00ea       |    |		Load_Encached	Null_String_Cache
030b 00ea       |    |		Load_Encached	Null_String_Cache
030c 00ea       |    |		Load_Encached	Null_String_Cache
030d 00ea       |    |		Load_Encached	Null_String_Cache
030e 00ea       |    |		Load_Encached	Null_String_Cache
030f e402       |    |		Load	0x2,0x2
0310 00d8       |    |		Load_Top	At_Offset_0
0311 e008       |    |		Load	0x0,0x8
0312 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0313 4ac5       |J   |		Short_Literal	0x2c5
0314 4810       |H   |		Short_Literal	0x10
0315 e002       |    |		Load	0x0,0x2
0316 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0317 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0318 ; --------------------------------------------------------------------------------------
0318 ; SUBPROGRAM
0318 ; --------------------------------------------------------------------------------------
0318 031b       |    |		.CONST	0x031b								; Address of begin
0319 0004       |    |		.CONST	0x0004								; Address of exception handler
031a 0001       |    |		.CONST	0x0001								; Number of locals
031b			BODY_0318:
031b			INIT_0318:
031b 0092 199d  |    |		Action	Push_String_Extended,0x199d					; "<PROFILE>"
031d 4800       |H   |		Short_Literal	0x0
031e 0092 19a4  |    |		Action	Push_String_Extended,0x19a4					; "<DEFAULT>"
0320 e5fd       |    |		Load	0x2,-0x3
0321 e5ff       |    |		Load	0x2,-0x1
0322 e5fe       |    |		Load	0x2,-0x2
0323 e007       |    |		Load	0x0,0x7
0324 1836       | 6  |		Execute	Package,Field_Execute,Field_Number 0x36
0325 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0326 0000 0000  |    |		.XXX[0x2]
0328 ; --------------------------------------------------------------------------------------
0328 ; SUBPROGRAM
0328 ; --------------------------------------------------------------------------------------
0328 032b       | +  |		.CONST	0x032b								; Address of begin
0329 0004       |    |		.CONST	0x0004								; Address of exception handler
032a 0001       |    |		.CONST	0x0001								; Number of locals
032b			BODY_0328:
032b			INIT_0328:
032b 00ea       |    |		Load_Encached	Null_String_Cache
032c 0092 19ab  |    |		Action	Push_String_Extended,0x19ab					; "Enter library switch file name"
032e 00ea       |    |		Load_Encached	Null_String_Cache
032f e001       |    |		Load	0x0,0x1
0330 1823       | #  |		Execute	Package,Field_Execute,Field_Number 0x23
0331 0092 19ac  |    |		Action	Push_String_Extended,0x19ac					; ".Compiler_Switches"
0333 01cc       |    |		Execute	Vector,Catenate
0334 0092 19ad  |    |		Action	Push_String_Extended,0x19ad					; "New Switch File"
0336 4ac6       |J   |		Short_Literal	0x2c6
0337 e002       |    |		Load	0x0,0x2
0338 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
0339 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
033a 0000 0000  |    |		.BLANK	0000[0x6]
0340 ; --------------------------------------------------------------------------------------
0340 ; SUBPROGRAM
0340 ; --------------------------------------------------------------------------------------
0340 0343       | C  |		.CONST	0x0343								; Address of begin
0341 0004       |    |		.CONST	0x0004								; Address of exception handler
0342 0001       |    |		.CONST	0x0001								; Number of locals
0343			BODY_0340:
0343			INIT_0340:
0343 00db       |    |		Load_Top	At_Offset_3
0344 6807       |h   |		Jump_Zero	0x34c
0345 0092 199d  |    |		Action	Push_String_Extended,0x199d					; "<PROFILE>"
0347 4853       |HS  |		Short_Literal	0x53
0348 e5ff       |    |		Load	0x2,-0x1
0349 e009       |    |		Load	0x0,0x9
034a 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
034b 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
034c 0092 199d  |    |		Action	Push_String_Extended,0x199d					; "<PROFILE>"
034e 484c       |HL  |		Short_Literal	0x4c
034f e5ff       |    |		Load	0x2,-0x1
0350 e009       |    |		Load	0x0,0x9
0351 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0352 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0353 0000 0000  |    |		.BLANK	0000[0x5]
0358 ; --------------------------------------------------------------------------------------
0358 ; SUBPROGRAM
0358 ; --------------------------------------------------------------------------------------
0358 035b       | [  |		.CONST	0x035b								; Address of begin
0359 0004       |    |		.CONST	0x0004								; Address of exception handler
035a 0001       |    |		.CONST	0x0001								; Number of locals
035b			BODY_0358:
035b			INIT_0358:
035b 00ea       |    |		Load_Encached	Null_String_Cache
035c 00ea       |    |		Load_Encached	Null_String_Cache
035d 00ea       |    |		Load_Encached	Null_String_Cache
035e 00ea       |    |		Load_Encached	Null_String_Cache
035f 00ea       |    |		Load_Encached	Null_String_Cache
0360 00ea       |    |		Load_Encached	Null_String_Cache
0361 e00a       |    |		Load	0x0,0xa
0362 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0363 e001       |    |		Load	0x0,0x1
0364 1823       | #  |		Execute	Package,Field_Execute,Field_Number 0x23
0365 0092 19ae  |    |		Action	Push_String_Extended,0x19ae					; ".New_Activity"
0367 01cc       |    |		Execute	Vector,Catenate
0368 4ac7       |J   |		Short_Literal	0x2c7
0369 4835       |H5  |		Short_Literal	0x35
036a e002       |    |		Load	0x0,0x2
036b 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
036c 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
036d 0000 0000  |    |		.XXX[0x3]
036f 0000       |    |
0370 ; --------------------------------------------------------------------------------------
0370 ; SUBPROGRAM
0370 ; --------------------------------------------------------------------------------------
0370 0375       | u  |		.CONST	0x0375								; Address of begin
0371 0004       |    |		.CONST	0x0004								; Address of exception handler
0372 0002       |    |		.CONST	0x0002								; Number of locals
0373			INIT_0370:
0373 e00a       |    |		Load	0x0,0xa
0374 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0375			BODY_0370:
0375 e5fd       |    |		Load	0x2,-0x3
0376 4602       |F   |		Jump_Case	0x3
0377 7805       |x   |		Jump	0x37d								; case 0x0
0378 7807       |x   |		Jump	0x380								; case 0x1
0379 7800       |x   |		Jump	0x37a								; case 0x2
037a 4800       |H   |		Short_Literal	0x0
037b 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
037c 7805       |x   |		Jump	0x382
037d 4801       |H   |		Short_Literal	0x1
037e 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
037f 7802       |x   |		Jump	0x382
0380 4802       |H   |		Short_Literal	0x2
0381 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
0382 e5fe       |    |		Load	0x2,-0x2
0383 01db       |    |		Execute	Vector,Length
0384 680c       |h   |		Jump_Zero	0x391
0385 e5fe       |    |		Load	0x2,-0x2
0386 0092 19af  |    |		Action	Push_String_Extended,0x19af					; "<>"
0388 01df       |    |		Execute	Vector,Equal
0389 7007       |p   |		Jump_Nonzero	0x391
038a 4801       |H   |		Short_Literal	0x1
038b 0092 19b0  |    |		Action	Push_String_Extended,0x19b0					; "nil"
038d e5fe       |    |		Load	0x2,-0x2
038e e00b       |    |		Load	0x0,0xb
038f 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
0390 6809       |h   |		Jump_Zero	0x39a
0391 0092 199d  |    |		Action	Push_String_Extended,0x199d					; "<PROFILE>"
0393 00d9       |    |		Load_Top	At_Offset_1
0394 e00a       |    |		Load	0x0,0xa
0395 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0396 e5ff       |    |		Load	0x2,-0x1
0397 e00a       |    |		Load	0x0,0xa
0398 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
0399 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
039a 0092 199d  |    |		Action	Push_String_Extended,0x199d					; "<PROFILE>"
039c 00d9       |    |		Load_Top	At_Offset_1
039d e5fe       |    |		Load	0x2,-0x2
039e e5ff       |    |		Load	0x2,-0x1
039f e00a       |    |		Load	0x0,0xa
03a0 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
03a1 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
03a2 0000 0000  |    |		.BLANK	0000[0x6]
03a8 ; --------------------------------------------------------------------------------------
03a8 ; SUBPROGRAM
03a8 ; --------------------------------------------------------------------------------------
03a8 03ab       |    |		.CONST	0x03ab								; Address of begin
03a9 0004       |    |		.CONST	0x0004								; Address of exception handler
03aa 0001       |    |		.CONST	0x0001								; Number of locals
03ab			BODY_03a8:
03ab			INIT_03a8:
03ab 00ea       |    |		Load_Encached	Null_String_Cache
03ac 00ea       |    |		Load_Encached	Null_String_Cache
03ad 0092 19b1  |    |		Action	Push_String_Extended,0x19b1					; "Mailbox simple name:"
03af 00ea       |    |		Load_Encached	Null_String_Cache
03b0 0092 19b2  |    |		Action	Push_String_Extended,0x19b2					; "New Mailbox"
03b2 4ac8       |J   |		Short_Literal	0x2c8
03b3 e002       |    |		Load	0x0,0x2
03b4 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
03b5 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
03b6 0000 0000  |    |		.XXX[0x2]
03b8 ; --------------------------------------------------------------------------------------
03b8 ; SUBPROGRAM
03b8 ; --------------------------------------------------------------------------------------
03b8 03bb       |    |		.CONST	0x03bb								; Address of begin
03b9 0004       |    |		.CONST	0x0004								; Address of exception handler
03ba 0001       |    |		.CONST	0x0001								; Number of locals
03bb			BODY_03b8:
03bb			INIT_03b8:
03bb e00c       |    |		Load	0x0,0xc
03bc 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
03bd e00c       |    |		Load	0x0,0xc
03be 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
03bf 00db       |    |		Load_Top	At_Offset_3
03c0 e00d       |    |		Load	0x0,0xd
03c1 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
03c2 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
03c3 0000 0000  |    |		.BLANK	0000[0x5]
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 00ea       |    |		Load_Encached	Null_String_Cache
03cc 00ea       |    |		Load_Encached	Null_String_Cache
03cd 00ea       |    |		Load_Encached	Null_String_Cache
03ce 00ea       |    |		Load_Encached	Null_String_Cache
03cf 00ea       |    |		Load_Encached	Null_String_Cache
03d0 00ea       |    |		Load_Encached	Null_String_Cache
03d1 00ea       |    |		Load_Encached	Null_String_Cache
03d2 e001       |    |		Load	0x0,0x1
03d3 1823       | #  |		Execute	Package,Field_Execute,Field_Number 0x23
03d4 0092 19b3  |    |		Action	Push_String_Extended,0x19b3					; ".New_Venture"
03d6 01cc       |    |		Execute	Vector,Catenate
03d7 4ac9       |J   |		Short_Literal	0x2c9
03d8 4811       |H   |		Short_Literal	0x11
03d9 e002       |    |		Load	0x0,0x2
03da 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
03db 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
03dc 0000 0000  |    |		.BLANK	0000[0x4]
03e0 ; --------------------------------------------------------------------------------------
03e0 ; SUBPROGRAM
03e0 ; --------------------------------------------------------------------------------------
03e0 03e3       |    |		.CONST	0x03e3								; Address of begin
03e1 0004       |    |		.CONST	0x0004								; Address of exception handler
03e2 0001       |    |		.CONST	0x0001								; Number of locals
03e3			BODY_03e0:
03e3			INIT_03e0:
03e3 0092 199d  |    |		Action	Push_String_Extended,0x199d					; "<PROFILE>"
03e5 e5fd       |    |		Load	0x2,-0x3
03e6 e5fe       |    |		Load	0x2,-0x2
03e7 e5ff       |    |		Load	0x2,-0x1
03e8 e00e       |    |		Load	0x0,0xe
03e9 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
03ea 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
03eb 0000 0000  |    |		.BLANK	0000[0x5]
03f0 ; --------------------------------------------------------------------------------------
03f0 ; SUBPROGRAM
03f0 ; --------------------------------------------------------------------------------------
03f0 03f3       |    |		.CONST	0x03f3								; Address of begin
03f1 0004       |    |		.CONST	0x0004								; Address of exception handler
03f2 0001       |    |		.CONST	0x0001								; Number of locals
03f3			BODY_03f0:
03f3			INIT_03f0:
03f3 00ea       |    |		Load_Encached	Null_String_Cache
03f4 00ea       |    |		Load_Encached	Null_String_Cache
03f5 00ea       |    |		Load_Encached	Null_String_Cache
03f6 00ea       |    |		Load_Encached	Null_String_Cache
03f7 00ea       |    |		Load_Encached	Null_String_Cache
03f8 00ea       |    |		Load_Encached	Null_String_Cache
03f9 00ea       |    |		Load_Encached	Null_String_Cache
03fa e001       |    |		Load	0x0,0x1
03fb 1823       | #  |		Execute	Package,Field_Execute,Field_Number 0x23
03fc 0092 19b4  |    |		Action	Push_String_Extended,0x19b4					; ".New_Work_Order"
03fe 01cc       |    |		Execute	Vector,Catenate
03ff 4aca       |J   |		Short_Literal	0x2ca
0400 4812       |H   |		Short_Literal	0x12
0401 e002       |    |		Load	0x0,0x2
0402 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0403 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0404 0000 0000  |    |		.BLANK	0000[0x4]
0408 ; --------------------------------------------------------------------------------------
0408 ; SUBPROGRAM
0408 ; --------------------------------------------------------------------------------------
0408 040b       |    |		.CONST	0x040b								; Address of begin
0409 0004       |    |		.CONST	0x0004								; Address of exception handler
040a 0001       |    |		.CONST	0x0001								; Number of locals
040b			BODY_0408:
040b			INIT_0408:
040b 0092 199d  |    |		Action	Push_String_Extended,0x199d					; "<PROFILE>"
040d 4801       |H   |		Short_Literal	0x1
040e e5fd       |    |		Load	0x2,-0x3
040f e5fc       |    |		Load	0x2,-0x4
0410 e5fe       |    |		Load	0x2,-0x2
0411 e5ff       |    |		Load	0x2,-0x1
0412 e00e       |    |		Load	0x0,0xe
0413 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
0414 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
0415 0000 0000  |    |		.XXX[0x3]
0417 0000       |    |
0418 ; --------------------------------------------------------------------------------------
0418 ; SUBPROGRAM
0418 ; --------------------------------------------------------------------------------------
0418 041b       |    |		.CONST	0x041b								; Address of begin
0419 0004       |    |		.CONST	0x0004								; Address of exception handler
041a 0001       |    |		.CONST	0x0001								; Number of locals
041b			BODY_0418:
041b			INIT_0418:
041b 00ea       |    |		Load_Encached	Null_String_Cache
041c 00ea       |    |		Load_Encached	Null_String_Cache
041d 00ea       |    |		Load_Encached	Null_String_Cache
041e 00ea       |    |		Load_Encached	Null_String_Cache
041f 00ea       |    |		Load_Encached	Null_String_Cache
0420 00ea       |    |		Load_Encached	Null_String_Cache
0421 00ea       |    |		Load_Encached	Null_String_Cache
0422 e001       |    |		Load	0x0,0x1
0423 1823       | #  |		Execute	Package,Field_Execute,Field_Number 0x23
0424 0092 19b5  |    |		Action	Push_String_Extended,0x19b5					; ".New_Work_Order_List"
0426 01cc       |    |		Execute	Vector,Catenate
0427 4acb       |J   |		Short_Literal	0x2cb
0428 4813       |H   |		Short_Literal	0x13
0429 e002       |    |		Load	0x0,0x2
042a 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
042b 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
042c 0000 0000  |    |		.BLANK	0000[0x4]
0430 ; --------------------------------------------------------------------------------------
0430 ; SUBPROGRAM
0430 ; --------------------------------------------------------------------------------------
0430 0433       | 3  |		.CONST	0x0433								; Address of begin
0431 0004       |    |		.CONST	0x0004								; Address of exception handler
0432 0001       |    |		.CONST	0x0001								; Number of locals
0433			BODY_0430:
0433			INIT_0430:
0433 0092 199d  |    |		Action	Push_String_Extended,0x199d					; "<PROFILE>"
0435 e5fd       |    |		Load	0x2,-0x3
0436 e5fe       |    |		Load	0x2,-0x2
0437 00ea       |    |		Load_Encached	Null_String_Cache
0438 e5ff       |    |		Load	0x2,-0x1
0439 e00e       |    |		Load	0x0,0xe
043a 1828       | (  |		Execute	Package,Field_Execute,Field_Number 0x28
043b 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
043c 0000 0000  |    |		.BLANK	0000[0x4]
0440 ; --------------------------------------------------------------------------------------
0440 ; SUBPROGRAM
0440 ; --------------------------------------------------------------------------------------
0440 0443       | C  |		.CONST	0x0443								; Address of begin
0441 0004       |    |		.CONST	0x0004								; Address of exception handler
0442 0001       |    |		.CONST	0x0001								; Number of locals
0443			BODY_0440:
0443			INIT_0440:
0443 00ea       |    |		Load_Encached	Null_String_Cache
0444 00ea       |    |		Load_Encached	Null_String_Cache
0445 00ea       |    |		Load_Encached	Null_String_Cache
0446 00ea       |    |		Load_Encached	Null_String_Cache
0447 00ea       |    |		Load_Encached	Null_String_Cache
0448 00ea       |    |		Load_Encached	Null_String_Cache
0449 00ea       |    |		Load_Encached	Null_String_Cache
044a e001       |    |		Load	0x0,0x1
044b 1823       | #  |		Execute	Package,Field_Execute,Field_Number 0x23
044c 0092 19b6  |    |		Action	Push_String_Extended,0x19b6					; ".New_System"
044e 01cc       |    |		Execute	Vector,Catenate
044f 4acc       |J   |		Short_Literal	0x2cc
0450 4814       |H   |		Short_Literal	0x14
0451 e002       |    |		Load	0x0,0x2
0452 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0453 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0454 0000 0000  |    |		.BLANK	0000[0x4]
0458 ; --------------------------------------------------------------------------------------
0458 ; SUBPROGRAM
0458 ; --------------------------------------------------------------------------------------
0458 045b       | [  |		.CONST	0x045b								; Address of begin
0459 0004       |    |		.CONST	0x0004								; Address of exception handler
045a 0001       |    |		.CONST	0x0001								; Number of locals
045b			BODY_0458:
045b			INIT_0458:
045b 0092 199d  |    |		Action	Push_String_Extended,0x199d					; "<PROFILE>"
045d 4800       |H   |		Short_Literal	0x0
045e 0092 19a4  |    |		Action	Push_String_Extended,0x19a4					; "<DEFAULT>"
0460 00ea       |    |		Load_Encached	Null_String_Cache
0461 0092 19b7  |    |		Action	Push_String_Extended,0x19b7					; "R1000"
0463 4801       |H   |		Short_Literal	0x1
0464 00ea       |    |		Load_Encached	Null_String_Cache
0465 4802       |H   |		Short_Literal	0x2
0466 e5fe       |    |		Load	0x2,-0x2
0467 e5ff       |    |		Load	0x2,-0x1
0468 e007       |    |		Load	0x0,0x7
0469 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
046a 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
046b 0000 0000  |    |		.BLANK	0000[0x5]
0470 ; --------------------------------------------------------------------------------------
0470 ; SUBPROGRAM
0470 ; --------------------------------------------------------------------------------------
0470 0477       | w  |		.CONST	0x0477								; Address of begin
0471 0004       |    |		.CONST	0x0004								; Address of exception handler
0472 0003       |    |		.CONST	0x0003								; Number of locals
0473			INIT_0470:
0473 029f 0e9b  |    |		Declare_Subprogram	INIT_0e98,For_Call
0475 029f 0ecb  |    |		Declare_Subprogram	INIT_0ec8,For_Call
0477			BODY_0470:
0477 e001       |    |		Load	0x0,0x1
0478 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0479 4610       |F   |		Jump_Case	0x11
047a 7810       |x   |		Jump	0x48b								; case 0x0
047b 782f       |x/  |		Jump	0x4ab								; case 0x1
047c 782e       |x.  |		Jump	0x4ab								; case 0x2
047d 7814       |x   |		Jump	0x492								; case 0x3
047e 781c       |x   |		Jump	0x49b								; case 0x4
047f 7829       |x)  |		Jump	0x4a9								; case 0x5
0480 781a       |x   |		Jump	0x49b								; case 0x6
0481 7812       |x   |		Jump	0x494								; case 0x7
0482 7811       |x   |		Jump	0x494								; case 0x8
0483 7817       |x   |		Jump	0x49b								; case 0x9
0484 7816       |x   |		Jump	0x49b								; case 0xa
0485 7815       |x   |		Jump	0x49b								; case 0xb
0486 7814       |x   |		Jump	0x49b								; case 0xc
0487 780c       |x   |		Jump	0x494								; case 0xd
0488 7802       |x   |		Jump	0x48b								; case 0xe
0489 7801       |x   |		Jump	0x48b								; case 0xf
048a 7800       |x   |		Jump	0x48b								; case 0x10
048b 4801       |H   |		Short_Literal	0x1
048c 4800       |H   |		Short_Literal	0x0
048d 0092 19b8  |    |		Action	Push_String_Extended,0x19b8					; "<IMAGE>"
048f e005       |    |		Load	0x0,0x5
0490 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0491 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0492 8402       |    |		Call	0x2,0x2
0493 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0494 4801       |H   |		Short_Literal	0x1
0495 4800       |H   |		Short_Literal	0x0
0496 0092 19b8  |    |		Action	Push_String_Extended,0x19b8					; "<IMAGE>"
0498 e005       |    |		Load	0x0,0x5
0499 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
049a 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
049b 00ea       |    |		Load_Encached	Null_String_Cache
049c 00ea       |    |		Load_Encached	Null_String_Cache
049d 0092 1997  |    |		Action	Push_String_Extended,0x1997					; "Name:"
049f 0092 19a5  |    |		Action	Push_String_Extended,0x19a5					; "<Cursor>"
04a1 e001       |    |		Load	0x0,0x1
04a2 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
04a3 0092 19b9  |    |		Action	Push_String_Extended,0x19b9					; "Open"
04a5 4ace       |J   |		Short_Literal	0x2ce
04a6 e002       |    |		Load	0x0,0x2
04a7 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
04a8 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
04a9 8403       |    |		Call	0x2,0x3
04aa 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
04ab 4801       |H   |		Short_Literal	0x1
04ac 0092 19a5  |    |		Action	Push_String_Extended,0x19a5					; "<Cursor>"
04ae e001       |    |		Load	0x0,0x1
04af 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
04b0 822f       | /  |		Call	0x1,0x2f
04b1 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
04b2 0000 0000  |    |		.BLANK	0000[0x6]
04b8 ; --------------------------------------------------------------------------------------
04b8 ; SUBPROGRAM
04b8 ; --------------------------------------------------------------------------------------
04b8 04c5       |    |		.CONST	0x04c5								; Address of begin
04b9 0004       |    |		.CONST	0x0004								; Address of exception handler
04ba 0004       |    |		.CONST	0x0004								; Number of locals
04bb			INIT_04b8:
04bb e00f       |    |		Load	0x0,0xf
04bc 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
04bd 02c7       |    |		Declare_Variable	Any
04be 00d8       |    |		Load_Top	At_Offset_0
04bf 1c00       |    |		Execute_Immediate	Run_Utility,0x0
04c0 e001       |    |		Load	0x0,0x1
04c1 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
04c2 e00f       |    |		Load	0x0,0xf
04c3 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
04c4 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
04c5			BODY_04b8:
04c5 e00f       |    |		Load	0x0,0xf
04c6 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
04c7 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
04c8 00db       |    |		Load_Top	At_Offset_3
04c9 0120       |    |		Execute	Any,Is_Value
04ca 6803       |h   |		Jump_Zero	0x4ce
04cb e00f       |    |		Load	0x0,0xf
04cc 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
04cd 7801       |x   |		Jump	0x4cf
04ce 00db       |    |		Load_Top	At_Offset_3
04cf 6078       |`x  |		Indirect_Literal	Discrete,0x548,{0x00000000, 0x00004000}
04d0 e010       |    |		Load	0x0,0x10
04d1 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
04d2 e011       |    |		Load	0x0,0x11
04d3 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
04d4 e00f       |    |		Load	0x0,0xf
04d5 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
04d6 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
04d7 e5ff       |    |		Load	0x2,-0x1
04d8 e00f       |    |		Load	0x0,0xf
04d9 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
04da 182c       | ,  |		Execute	Package,Field_Execute,Field_Number 0x2c
04db c402       |    |		Store	0x2,0x2
04dc 0059       | Y  |		Store_Top	Discrete,At_Offset_1
04dd 00d8       |    |		Load_Top	At_Offset_0
04de 6816       |h   |		Jump_Zero	0x4f5
04df 6068       |`h  |		Indirect_Literal	Discrete,0x548,{0x00000000, 0x00004000}
04e0 e010       |    |		Load	0x0,0x10
04e1 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
04e2 e011       |    |		Load	0x0,0x11
04e3 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
04e4 e012       |    |		Load	0x0,0x12
04e5 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
04e6 4801       |H   |		Short_Literal	0x1
04e7 4800       |H   |		Short_Literal	0x0
04e8 e011       |    |		Load	0x0,0x11
04e9 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
04ea e00f       |    |		Load	0x0,0xf
04eb 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
04ec 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
04ed e5ff       |    |		Load	0x2,-0x1
04ee e404       |    |		Load	0x2,0x4
04ef e00f       |    |		Load	0x0,0xf
04f0 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
04f1 1851       | Q  |		Execute	Package,Field_Execute,Field_Number 0x51
04f2 e004       |    |		Load	0x0,0x4
04f3 1865       | e  |		Execute	Package,Field_Execute,Field_Number 0x65
04f4 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
04f5 00da       |    |		Load_Top	At_Offset_2
04f6 e001       |    |		Load	0x0,0x1
04f7 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
04f8 0052       | R  |		Store_Top_Unchecked	Discrete,At_Offset_2
04f9 00d9       |    |		Load_Top	At_Offset_1
04fa 460f       |F   |		Jump_Case	0x10
04fb 780f       |x   |		Jump	0x50b								; case 0x0
04fc 7832       |x2  |		Jump	0x52f								; case 0x1
04fd 7813       |x   |		Jump	0x511								; case 0x2
04fe 7818       |x   |		Jump	0x517								; case 0x3
04ff 780b       |x   |		Jump	0x50b								; case 0x4
0500 780a       |x   |		Jump	0x50b								; case 0x5
0501 7809       |x   |		Jump	0x50b								; case 0x6
0502 7808       |x   |		Jump	0x50b								; case 0x7
0503 7807       |x   |		Jump	0x50b								; case 0x8
0504 7806       |x   |		Jump	0x50b								; case 0x9
0505 7805       |x   |		Jump	0x50b								; case 0xa
0506 7804       |x   |		Jump	0x50b								; case 0xb
0507 7803       |x   |		Jump	0x50b								; case 0xc
0508 7802       |x   |		Jump	0x50b								; case 0xd
0509 7801       |x   |		Jump	0x50b								; case 0xe
050a 7800       |x   |		Jump	0x50b								; case 0xf
050b 4801       |H   |		Short_Literal	0x1
050c 4800       |H   |		Short_Literal	0x0
050d e5ff       |    |		Load	0x2,-0x1
050e e005       |    |		Load	0x0,0x5
050f 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0510 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0511 4801       |H   |		Short_Literal	0x1
0512 4800       |H   |		Short_Literal	0x0
0513 e5ff       |    |		Load	0x2,-0x1
0514 e005       |    |		Load	0x0,0x5
0515 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0516 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0517 e5ff       |    |		Load	0x2,-0x1
0518 e008       |    |		Load	0x0,0x8
0519 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
051a 6806       |h   |		Jump_Zero	0x521
051b 4801       |H   |		Short_Literal	0x1
051c 4800       |H   |		Short_Literal	0x0
051d e5ff       |    |		Load	0x2,-0x1
051e e005       |    |		Load	0x0,0x5
051f 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0520 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0521 00ea       |    |		Load_Encached	Null_String_Cache
0522 00ea       |    |		Load_Encached	Null_String_Cache
0523 00ea       |    |		Load_Encached	Null_String_Cache
0524 00ea       |    |		Load_Encached	Null_String_Cache
0525 00ea       |    |		Load_Encached	Null_String_Cache
0526 00ea       |    |		Load_Encached	Null_String_Cache
0527 0092 19ba  |    |		Action	Push_String_Extended,0x19ba					; "Open Check Out"
0529 e5ff       |    |		Load	0x2,-0x1
052a 4aee       |J   |		Short_Literal	0x2ee
052b 4820       |H   |		Short_Literal	0x20
052c e002       |    |		Load	0x0,0x2
052d 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
052e 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
052f e5ff       |    |		Load	0x2,-0x1
0530 e008       |    |		Load	0x0,0x8
0531 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0532 6804       |h   |		Jump_Zero	0x537
0533 00ea       |    |		Load_Encached	Null_String_Cache
0534 e5ff       |    |		Load	0x2,-0x1
0535 8231       | 1  |		Call	0x1,0x31
0536 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0537 00ea       |    |		Load_Encached	Null_String_Cache
0538 00ea       |    |		Load_Encached	Null_String_Cache
0539 00ea       |    |		Load_Encached	Null_String_Cache
053a 00ea       |    |		Load_Encached	Null_String_Cache
053b 00ea       |    |		Load_Encached	Null_String_Cache
053c 00ea       |    |		Load_Encached	Null_String_Cache
053d 0092 19ba  |    |		Action	Push_String_Extended,0x19ba					; "Open Check Out"
053f e5ff       |    |		Load	0x2,-0x1
0540 4aee       |J   |		Short_Literal	0x2ee
0541 4820       |H   |		Short_Literal	0x20
0542 e002       |    |		Load	0x0,0x2
0543 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0544 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0545 0000 0000  |    |		.XXX[0x3]
0547 0000       |    |
0548 0000 0000  |    |		.LITERAL	{0x00000000, 0x00004000}
054c 0000 0000  |    |		.BLANK	0000[0x4]
0550 ; --------------------------------------------------------------------------------------
0550 ; SUBPROGRAM
0550 ; --------------------------------------------------------------------------------------
0550 0553       | S  |		.CONST	0x0553								; Address of begin
0551 0004       |    |		.CONST	0x0004								; Address of exception handler
0552 0001       |    |		.CONST	0x0001								; Number of locals
0553			BODY_0550:
0553			INIT_0550:
0553 00da       |    |		Load_Top	At_Offset_2
0554 e008       |    |		Load	0x0,0x8
0555 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0556 700f       |p   |		Jump_Nonzero	0x566
0557 0092 199d  |    |		Action	Push_String_Extended,0x199d					; "<PROFILE>"
0559 0092 19a4  |    |		Action	Push_String_Extended,0x19a4					; "<DEFAULT>"
055b 0092 19bb  |    |		Action	Push_String_Extended,0x19bb					; "<TOMORROW>"
055d 4803       |H   |		Short_Literal	0x3
055e 4800       |H   |		Short_Literal	0x0
055f 4801       |H   |		Short_Literal	0x1
0560 4801       |H   |		Short_Literal	0x1
0561 e5fe       |    |		Load	0x2,-0x2
0562 825f       | _  |		Call	0x1,0x5f
0563 e5ff       |    |		Load	0x2,-0x1
0564 e007       |    |		Load	0x0,0x7
0565 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
0566 0092 199d  |    |		Action	Push_String_Extended,0x199d					; "<PROFILE>"
0568 4800       |H   |		Short_Literal	0x0
0569 0092 19bc  |    |		Action	Push_String_Extended,0x19bc					; "<ALL_WORLDS>"
056b 4801       |H   |		Short_Literal	0x1
056c e5ff       |    |		Load	0x2,-0x1
056d e013       |    |		Load	0x0,0x13
056e 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
056f 00da       |    |		Load_Top	At_Offset_2
0570 825e       | ^  |		Call	0x1,0x5e
0571 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0572 0000 0000  |    |		.BLANK	0000[0x6]
0578 ; --------------------------------------------------------------------------------------
0578 ; SUBPROGRAM
0578 ; --------------------------------------------------------------------------------------
0578 0596       |    |		.CONST	0x0596								; Address of begin
0579 0004       |    |		.CONST	0x0004								; Address of exception handler
057a 000b       |    |		.CONST	0x000b								; Number of locals
057b			INIT_0578:
057b e00f       |    |		Load	0x0,0xf
057c 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
057d 02c7       |    |		Declare_Variable	Any
057e 00d8       |    |		Load_Top	At_Offset_0
057f 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0580 e001       |    |		Load	0x0,0x1
0581 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
0582 e00f       |    |		Load	0x0,0xf
0583 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0584 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0585 00e3       |    |		Load_Encached	Natural_Cache
0586 03e9       |    |		Declare_Variable	Discrete,Duplicate
0587 03e9       |    |		Declare_Variable	Discrete,Duplicate
0588 e00f       |    |		Load	0x0,0xf
0589 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
058a e00f       |    |		Load	0x0,0xf
058b 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
058c 02ff       |    |		Declare_Variable	Variant_Record
058d 00d8       |    |		Load_Top	At_Offset_0
058e 1c00       |    |		Execute_Immediate	Run_Utility,0x0
058f 00e1       |    |		Load_Encached	Boolean_Cache
0590 4a00       |J   |		Short_Literal	0x200
0591 e014       |    |		Load	0x0,0x14
0592 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0593 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0594 00d8       |    |		Load_Top	At_Offset_0
0595 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0596			BODY_0578:
0596 e00f       |    |		Load	0x0,0xf
0597 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0598 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0599 e402       |    |		Load	0x2,0x2
059a 0120       |    |		Execute	Any,Is_Value
059b 6803       |h   |		Jump_Zero	0x59f
059c e00f       |    |		Load	0x0,0xf
059d 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
059e 7801       |x   |		Jump	0x5a0
059f e402       |    |		Load	0x2,0x2
05a0 60f3       |`   |		Indirect_Literal	Discrete,0x694,{0x00000000, 0x00004000}
05a1 e010       |    |		Load	0x0,0x10
05a2 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
05a3 e011       |    |		Load	0x0,0x11
05a4 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
05a5 e00f       |    |		Load	0x0,0xf
05a6 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
05a7 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
05a8 e5ff       |    |		Load	0x2,-0x1
05a9 e00f       |    |		Load	0x0,0xf
05aa 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
05ab 182c       | ,  |		Execute	Package,Field_Execute,Field_Number 0x2c
05ac c402       |    |		Store	0x2,0x2
05ad c404       |    |		Store	0x2,0x4
05ae e404       |    |		Load	0x2,0x4
05af 6816       |h   |		Jump_Zero	0x5c6
05b0 60e3       |`   |		Indirect_Literal	Discrete,0x694,{0x00000000, 0x00004000}
05b1 e010       |    |		Load	0x0,0x10
05b2 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
05b3 e011       |    |		Load	0x0,0x11
05b4 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
05b5 e012       |    |		Load	0x0,0x12
05b6 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
05b7 4801       |H   |		Short_Literal	0x1
05b8 4800       |H   |		Short_Literal	0x0
05b9 e011       |    |		Load	0x0,0x11
05ba 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
05bb e00f       |    |		Load	0x0,0xf
05bc 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
05bd 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
05be e5ff       |    |		Load	0x2,-0x1
05bf e404       |    |		Load	0x2,0x4
05c0 e00f       |    |		Load	0x0,0xf
05c1 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
05c2 1851       | Q  |		Execute	Package,Field_Execute,Field_Number 0x51
05c3 e004       |    |		Load	0x0,0x4
05c4 1865       | e  |		Execute	Package,Field_Execute,Field_Number 0x65
05c5 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
05c6 e402       |    |		Load	0x2,0x2
05c7 e001       |    |		Load	0x0,0x1
05c8 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
05c9 a403       |    |		Store_Unchecked	0x2,0x3
05ca e403       |    |		Load	0x2,0x3
05cb 460f       |F   |		Jump_Case	0x10
05cc 780f       |x   |		Jump	0x5dc								; case 0x0
05cd 782d       |x-  |		Jump	0x5fb								; case 0x1
05ce 780d       |x   |		Jump	0x5dc								; case 0x2
05cf 7812       |x   |		Jump	0x5e2								; case 0x3
05d0 780b       |x   |		Jump	0x5dc								; case 0x4
05d1 780a       |x   |		Jump	0x5dc								; case 0x5
05d2 7809       |x   |		Jump	0x5dc								; case 0x6
05d3 7808       |x   |		Jump	0x5dc								; case 0x7
05d4 7807       |x   |		Jump	0x5dc								; case 0x8
05d5 7806       |x   |		Jump	0x5dc								; case 0x9
05d6 7805       |x   |		Jump	0x5dc								; case 0xa
05d7 7804       |x   |		Jump	0x5dc								; case 0xb
05d8 7803       |x   |		Jump	0x5dc								; case 0xc
05d9 7802       |x   |		Jump	0x5dc								; case 0xd
05da 7801       |x   |		Jump	0x5dc								; case 0xe
05db 7800       |x   |		Jump	0x5dc								; case 0xf
05dc 4801       |H   |		Short_Literal	0x1
05dd 4800       |H   |		Short_Literal	0x0
05de e5ff       |    |		Load	0x2,-0x1
05df e005       |    |		Load	0x0,0x5
05e0 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
05e1 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
05e2 e5ff       |    |		Load	0x2,-0x1
05e3 e008       |    |		Load	0x0,0x8
05e4 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
05e5 700f       |p   |		Jump_Nonzero	0x5f5
05e6 0092 199d  |    |		Action	Push_String_Extended,0x199d					; "<PROFILE>"
05e8 0092 19a4  |    |		Action	Push_String_Extended,0x19a4					; "<DEFAULT>"
05ea 0092 19bb  |    |		Action	Push_String_Extended,0x19bb					; "<TOMORROW>"
05ec 4803       |H   |		Short_Literal	0x3
05ed 4800       |H   |		Short_Literal	0x0
05ee 4801       |H   |		Short_Literal	0x1
05ef 4801       |H   |		Short_Literal	0x1
05f0 e5fe       |    |		Load	0x2,-0x2
05f1 825f       | _  |		Call	0x1,0x5f
05f2 e5ff       |    |		Load	0x2,-0x1
05f3 e007       |    |		Load	0x0,0x7
05f4 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
05f5 4801       |H   |		Short_Literal	0x1
05f6 4800       |H   |		Short_Literal	0x0
05f7 e5ff       |    |		Load	0x2,-0x1
05f8 e005       |    |		Load	0x0,0x5
05f9 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
05fa 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
05fb e00f       |    |		Load	0x0,0xf
05fc 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
05fd 00db       |    |		Load_Top	At_Offset_3
05fe 6095       |`   |		Indirect_Literal	Discrete,0x694,{0x00000000, 0x00004000}
05ff e010       |    |		Load	0x0,0x10
0600 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0601 4800       |H   |		Short_Literal	0x0
0602 e402       |    |		Load	0x2,0x2
0603 e00f       |    |		Load	0x0,0xf
0604 1b39       | 9  |		Execute	Package,Field_Read,Field_Number 0x39
0605 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
0606 00d1       |    |		Pop_Control	Pop_Count_1
0607 c408       |    |		Store	0x2,0x8
0608 00da       |    |		Load_Top	At_Offset_2
0609 e00f       |    |		Load	0x0,0xf
060a 1b3a       | :  |		Execute	Package,Field_Read,Field_Number 0x3a
060b 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
060c 6803       |h   |		Jump_Zero	0x610
060d 4800       |H   |		Short_Literal	0x0
060e 0052       | R  |		Store_Top_Unchecked	Discrete,At_Offset_2
060f 7812       |x   |		Jump	0x622
0610 00e3       |    |		Load_Encached	Natural_Cache
0611 00e3       |    |		Load_Encached	Natural_Cache
0612 00e3       |    |		Load_Encached	Natural_Cache
0613 4800       |H   |		Short_Literal	0x0
0614 e5ff       |    |		Load	0x2,-0x1
0615 e015       |    |		Load	0x0,0x15
0616 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0617 c405       |    |		Store	0x2,0x5
0618 c406       |    |		Store	0x2,0x6
0619 c407       |    |		Store	0x2,0x7
061a e405       |    |		Load	0x2,0x5
061b 0c01       |    |		Execute_Immediate	Greater_Equal,0x1
061c 6803       |h   |		Jump_Zero	0x620
061d 4801       |H   |		Short_Literal	0x1
061e 0052       | R  |		Store_Top_Unchecked	Discrete,At_Offset_2
061f 7802       |x   |		Jump	0x622
0620 4800       |H   |		Short_Literal	0x0
0621 0052       | R  |		Store_Top_Unchecked	Discrete,At_Offset_2
0622 00d9       |    |		Load_Top	At_Offset_1
0623 6858       |hX  |		Jump_Zero	0x67c
0624 00d8       |    |		Load_Top	At_Offset_0
0625 0092 19bd  |    |		Action	Push_String_Extended,0x19bd					; "Editing "
0627 e5ff       |    |		Load	0x2,-0x1
0628 01cc       |    |		Execute	Vector,Catenate
0629 0092 19be  |    |		Action	Push_String_Extended,0x19be					; "\x5c  will result in demotion of "
062b 01cc       |    |		Execute	Vector,Catenate
062c e014       |    |		Load	0x0,0x14
062d 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
062e 00d1       |    |		Pop_Control	Pop_Count_1
062f e405       |    |		Load	0x2,0x5
0630 0c01       |    |		Execute_Immediate	Greater_Equal,0x1
0631 680d       |h   |		Jump_Zero	0x63f
0632 00d8       |    |		Load_Top	At_Offset_0
0633 4820       |H   |		Short_Literal	0x20
0634 4800       |H   |		Short_Literal	0x0
0635 480a       |H   |		Short_Literal	0xa
0636 e405       |    |		Load	0x2,0x5
0637 e00b       |    |		Load	0x0,0xb
0638 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0639 0092 19bf  |    |		Action	Push_String_Extended,0x19bf					; " units\x5c"
063b 01cc       |    |		Execute	Vector,Catenate
063c e014       |    |		Load	0x0,0x14
063d 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
063e 00d1       |    |		Pop_Control	Pop_Count_1
063f e406       |    |		Load	0x2,0x6
0640 0f01       |    |		Execute_Immediate	Equal,0x1
0641 6807       |h   |		Jump_Zero	0x649
0642 00d8       |    |		Load_Top	At_Offset_0
0643 0092 19c0  |    |		Action	Push_String_Extended,0x19c0					; "in 1 library, \x5c "
0645 e014       |    |		Load	0x0,0x14
0646 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0647 00d1       |    |		Pop_Control	Pop_Count_1
0648 7813       |x   |		Jump	0x65c
0649 e406       |    |		Load	0x2,0x6
064a 0c02       |    |		Execute_Immediate	Greater_Equal,0x2
064b 6810       |h   |		Jump_Zero	0x65c
064c 00d8       |    |		Load_Top	At_Offset_0
064d 0092 19c1  |    |		Action	Push_String_Extended,0x19c1					; "in "
064f 4820       |H   |		Short_Literal	0x20
0650 4800       |H   |		Short_Literal	0x0
0651 480a       |H   |		Short_Literal	0xa
0652 e406       |    |		Load	0x2,0x6
0653 e00b       |    |		Load	0x0,0xb
0654 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0655 01cc       |    |		Execute	Vector,Catenate
0656 0092 19c2  |    |		Action	Push_String_Extended,0x19c2					; " libraries, \x5c "
0658 01cc       |    |		Execute	Vector,Catenate
0659 e014       |    |		Load	0x0,0x14
065a 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
065b 00d1       |    |		Pop_Control	Pop_Count_1
065c 00d8       |    |		Load_Top	At_Offset_0
065d 0092 19c3  |    |		Action	Push_String_Extended,0x19c3					; " demoting "
065f 4820       |H   |		Short_Literal	0x20
0660 4800       |H   |		Short_Literal	0x0
0661 480a       |H   |		Short_Literal	0xa
0662 e407       |    |		Load	0x2,0x7
0663 e00b       |    |		Load	0x0,0xb
0664 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0665 01cc       |    |		Execute	Vector,Catenate
0666 0092 19c4  |    |		Action	Push_String_Extended,0x19c4					; " lines in total.  Ok?"
0668 01cc       |    |		Execute	Vector,Catenate
0669 e014       |    |		Load	0x0,0x14
066a 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
066b 00d1       |    |		Pop_Control	Pop_Count_1
066c 00ea       |    |		Load_Encached	Null_String_Cache
066d 00ea       |    |		Load_Encached	Null_String_Cache
066e 00ea       |    |		Load_Encached	Null_String_Cache
066f 00ea       |    |		Load_Encached	Null_String_Cache
0670 e5fe       |    |		Load	0x2,-0x2
0671 e5ff       |    |		Load	0x2,-0x1
0672 e40b       |    |		Load	0x2,0xb
0673 e014       |    |		Load	0x0,0x14
0674 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0675 0092 19c5  |    |		Action	Push_String_Extended,0x19c5					; "Open Demote"
0677 4af0       |J   |		Short_Literal	0x2f0
0678 4815       |H   |		Short_Literal	0x15
0679 e002       |    |		Load	0x0,0x2
067a 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
067b 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
067c e5ff       |    |		Load	0x2,-0x1
067d e008       |    |		Load	0x0,0x8
067e 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
067f 700f       |p   |		Jump_Nonzero	0x68f
0680 0092 199d  |    |		Action	Push_String_Extended,0x199d					; "<PROFILE>"
0682 0092 19a4  |    |		Action	Push_String_Extended,0x19a4					; "<DEFAULT>"
0684 0092 19bb  |    |		Action	Push_String_Extended,0x19bb					; "<TOMORROW>"
0686 4803       |H   |		Short_Literal	0x3
0687 4800       |H   |		Short_Literal	0x0
0688 4801       |H   |		Short_Literal	0x1
0689 4801       |H   |		Short_Literal	0x1
068a e5fe       |    |		Load	0x2,-0x2
068b 825f       | _  |		Call	0x1,0x5f
068c e5ff       |    |		Load	0x2,-0x1
068d e007       |    |		Load	0x0,0x7
068e 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
068f e5ff       |    |		Load	0x2,-0x1
0690 825e       | ^  |		Call	0x1,0x5e
0691 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0692 0000 0000  |    |		.XXX[0x2]
0694 0000 0000  |    |		.LITERAL	{0x00000000, 0x00004000}
0698 ; --------------------------------------------------------------------------------------
0698 ; SUBPROGRAM
0698 ; --------------------------------------------------------------------------------------
0698 069b       |    |		.CONST	0x069b								; Address of begin
0699 0004       |    |		.CONST	0x0004								; Address of exception handler
069a 0001       |    |		.CONST	0x0001								; Number of locals
069b			BODY_0698:
069b			INIT_0698:
069b 00ea       |    |		Load_Encached	Null_String_Cache
069c 00ea       |    |		Load_Encached	Null_String_Cache
069d 00ea       |    |		Load_Encached	Null_String_Cache
069e 00ea       |    |		Load_Encached	Null_String_Cache
069f 00ea       |    |		Load_Encached	Null_String_Cache
06a0 00ea       |    |		Load_Encached	Null_String_Cache
06a1 00ea       |    |		Load_Encached	Null_String_Cache
06a2 00ea       |    |		Load_Encached	Null_String_Cache
06a3 4b02       |K   |		Short_Literal	0x302
06a4 4852       |HR  |		Short_Literal	0x52
06a5 e002       |    |		Load	0x0,0x2
06a6 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
06a7 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
06a8 ; --------------------------------------------------------------------------------------
06a8 ; SUBPROGRAM
06a8 ; --------------------------------------------------------------------------------------
06a8 06ab       |    |		.CONST	0x06ab								; Address of begin
06a9 0004       |    |		.CONST	0x0004								; Address of exception handler
06aa 0001       |    |		.CONST	0x0001								; Number of locals
06ab			BODY_06a8:
06ab			INIT_06a8:
06ab 4801       |H   |		Short_Literal	0x1
06ac 4800       |H   |		Short_Literal	0x0
06ad e5ff       |    |		Load	0x2,-0x1
06ae e005       |    |		Load	0x0,0x5
06af 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
06b0 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
06b1 0000 0000  |    |		.BLANK	0000[0x7]
06b8 ; --------------------------------------------------------------------------------------
06b8 ; SUBPROGRAM
06b8 ; --------------------------------------------------------------------------------------
06b8 06bb       |    |		.CONST	0x06bb								; Address of begin
06b9 0004       |    |		.CONST	0x0004								; Address of exception handler
06ba 0001       |    |		.CONST	0x0001								; Number of locals
06bb			BODY_06b8:
06bb			INIT_06b8:
06bb e001       |    |		Load	0x0,0x1
06bc 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
06bd 4610       |F   |		Jump_Case	0x11
06be 7810       |x   |		Jump	0x6cf								; case 0x0
06bf 780f       |x   |		Jump	0x6cf								; case 0x1
06c0 780e       |x   |		Jump	0x6cf								; case 0x2
06c1 782c       |x,  |		Jump	0x6ee								; case 0x3
06c2 780c       |x   |		Jump	0x6cf								; case 0x4
06c3 7847       |xG  |		Jump	0x70b								; case 0x5
06c4 780a       |x   |		Jump	0x6cf								; case 0x6
06c5 7809       |x   |		Jump	0x6cf								; case 0x7
06c6 7808       |x   |		Jump	0x6cf								; case 0x8
06c7 7807       |x   |		Jump	0x6cf								; case 0x9
06c8 7806       |x   |		Jump	0x6cf								; case 0xa
06c9 7805       |x   |		Jump	0x6cf								; case 0xb
06ca 781e       |x   |		Jump	0x6e9								; case 0xc
06cb 7803       |x   |		Jump	0x6cf								; case 0xd
06cc 7802       |x   |		Jump	0x6cf								; case 0xe
06cd 783d       |x=  |		Jump	0x70b								; case 0xf
06ce 7800       |x   |		Jump	0x6cf								; case 0x10
06cf e001       |    |		Load	0x0,0x1
06d0 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
06d1 6812       |h   |		Jump_Zero	0x6e4
06d2 00ea       |    |		Load_Encached	Null_String_Cache
06d3 00ea       |    |		Load_Encached	Null_String_Cache
06d4 00ea       |    |		Load_Encached	Null_String_Cache
06d5 00ea       |    |		Load_Encached	Null_String_Cache
06d6 00ea       |    |		Load_Encached	Null_String_Cache
06d7 0092 19a5  |    |		Action	Push_String_Extended,0x19a5					; "<Cursor>"
06d9 e001       |    |		Load	0x0,0x1
06da 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
06db 0092 19c6  |    |		Action	Push_String_Extended,0x19c6					; "Save Changes?"
06dd 0092 19c7  |    |		Action	Push_String_Extended,0x19c7					; "File Close"
06df 4acf       |J   |		Short_Literal	0x2cf
06e0 4837       |H7  |		Short_Literal	0x37
06e1 e002       |    |		Load	0x0,0x2
06e2 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
06e3 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
06e4 0092 19c8  |    |		Action	Push_String_Extended,0x19c8					; "<image>"
06e6 e005       |    |		Load	0x0,0x5
06e7 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
06e8 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
06e9 0092 19b8  |    |		Action	Push_String_Extended,0x19b8					; "<IMAGE>"
06eb e005       |    |		Load	0x0,0x5
06ec 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
06ed 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
06ee e001       |    |		Load	0x0,0x1
06ef 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
06f0 6812       |h   |		Jump_Zero	0x703
06f1 00ea       |    |		Load_Encached	Null_String_Cache
06f2 00ea       |    |		Load_Encached	Null_String_Cache
06f3 00ea       |    |		Load_Encached	Null_String_Cache
06f4 00ea       |    |		Load_Encached	Null_String_Cache
06f5 00ea       |    |		Load_Encached	Null_String_Cache
06f6 0092 19a5  |    |		Action	Push_String_Extended,0x19a5					; "<Cursor>"
06f8 e001       |    |		Load	0x0,0x1
06f9 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
06fa 0092 19c9  |    |		Action	Push_String_Extended,0x19c9					; "Send Message?"
06fc 0092 19c7  |    |		Action	Push_String_Extended,0x19c7					; "File Close"
06fe 4acf       |J   |		Short_Literal	0x2cf
06ff 4837       |H7  |		Short_Literal	0x37
0700 e002       |    |		Load	0x0,0x2
0701 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0702 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0703 e016       |    |		Load	0x0,0x16
0704 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
0705 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0706 0092 19b8  |    |		Action	Push_String_Extended,0x19b8					; "<IMAGE>"
0708 e005       |    |		Load	0x0,0x5
0709 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
070a 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
070b e001       |    |		Load	0x0,0x1
070c 1823       | #  |		Execute	Package,Field_Execute,Field_Number 0x23
070d e005       |    |		Load	0x0,0x5
070e 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
070f 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0710 ; --------------------------------------------------------------------------------------
0710 ; SUBPROGRAM
0710 ; --------------------------------------------------------------------------------------
0710 0713       |    |		.CONST	0x0713								; Address of begin
0711 0004       |    |		.CONST	0x0004								; Address of exception handler
0712 0001       |    |		.CONST	0x0001								; Number of locals
0713			BODY_0710:
0713			INIT_0710:
0713 00da       |    |		Load_Top	At_Offset_2
0714 6808       |h   |		Jump_Zero	0x71d
0715 e016       |    |		Load	0x0,0x16
0716 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
0717 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0718 0092 19b8  |    |		Action	Push_String_Extended,0x19b8					; "<IMAGE>"
071a e005       |    |		Load	0x0,0x5
071b 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
071c 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
071d 0092 19b8  |    |		Action	Push_String_Extended,0x19b8					; "<IMAGE>"
071f e005       |    |		Load	0x0,0x5
0720 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
0721 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0722 0000 0000  |    |		.BLANK	0000[0x6]
0728 ; --------------------------------------------------------------------------------------
0728 ; SUBPROGRAM
0728 ; --------------------------------------------------------------------------------------
0728 072b       | +  |		.CONST	0x072b								; Address of begin
0729 0004       |    |		.CONST	0x0004								; Address of exception handler
072a 0001       |    |		.CONST	0x0001								; Number of locals
072b			BODY_0728:
072b			INIT_0728:
072b e001       |    |		Load	0x0,0x1
072c 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
072d 4610       |F   |		Jump_Case	0x11
072e 7810       |x   |		Jump	0x73f								; case 0x0
072f 780f       |x   |		Jump	0x73f								; case 0x1
0730 780e       |x   |		Jump	0x73f								; case 0x2
0731 7815       |x   |		Jump	0x747								; case 0x3
0732 780c       |x   |		Jump	0x73f								; case 0x4
0733 780b       |x   |		Jump	0x73f								; case 0x5
0734 780a       |x   |		Jump	0x73f								; case 0x6
0735 7809       |x   |		Jump	0x73f								; case 0x7
0736 7808       |x   |		Jump	0x73f								; case 0x8
0737 7807       |x   |		Jump	0x73f								; case 0x9
0738 7806       |x   |		Jump	0x73f								; case 0xa
0739 7805       |x   |		Jump	0x73f								; case 0xb
073a 7807       |x   |		Jump	0x742								; case 0xc
073b 7803       |x   |		Jump	0x73f								; case 0xd
073c 7802       |x   |		Jump	0x73f								; case 0xe
073d 7801       |x   |		Jump	0x73f								; case 0xf
073e 7800       |x   |		Jump	0x73f								; case 0x10
073f e005       |    |		Load	0x0,0x5
0740 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0741 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0742 0092 19ca  |    |		Action	Push_String_Extended,0x19ca					; "Command windows cannot be saved."
0744 e004       |    |		Load	0x0,0x4
0745 1865       | e  |		Execute	Package,Field_Execute,Field_Number 0x65
0746 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0747 0092 19cb  |    |		Action	Push_String_Extended,0x19cb					; "Mail windows cannot be saved.  Use Send_Message to send."
0749 e004       |    |		Load	0x0,0x4
074a 1865       | e  |		Execute	Package,Field_Execute,Field_Number 0x65
074b 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
074c 0000 0000  |    |		.BLANK	0000[0x4]
0750 ; --------------------------------------------------------------------------------------
0750 ; SUBPROGRAM
0750 ; --------------------------------------------------------------------------------------
0750 0753       | S  |		.CONST	0x0753								; Address of begin
0751 0004       |    |		.CONST	0x0004								; Address of exception handler
0752 0001       |    |		.CONST	0x0001								; Number of locals
0753			BODY_0750:
0753			INIT_0750:
0753 e001       |    |		Load	0x0,0x1
0754 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0755 4610       |F   |		Jump_Case	0x11
0756 7810       |x   |		Jump	0x767								; case 0x0
0757 781f       |x   |		Jump	0x777								; case 0x1
0758 781e       |x   |		Jump	0x777								; case 0x2
0759 7817       |x   |		Jump	0x771								; case 0x3
075a 7819       |x   |		Jump	0x774								; case 0x4
075b 7815       |x   |		Jump	0x771								; case 0x5
075c 7817       |x   |		Jump	0x774								; case 0x6
075d 7816       |x   |		Jump	0x774								; case 0x7
075e 7815       |x   |		Jump	0x774								; case 0x8
075f 7807       |x   |		Jump	0x767								; case 0x9
0760 7806       |x   |		Jump	0x767								; case 0xa
0761 7805       |x   |		Jump	0x767								; case 0xb
0762 7807       |x   |		Jump	0x76a								; case 0xc
0763 7803       |x   |		Jump	0x767								; case 0xd
0764 7802       |x   |		Jump	0x767								; case 0xe
0765 7801       |x   |		Jump	0x767								; case 0xf
0766 7800       |x   |		Jump	0x767								; case 0x10
0767 e005       |    |		Load	0x0,0x5
0768 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
0769 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
076a 4801       |H   |		Short_Literal	0x1
076b 4800       |H   |		Short_Literal	0x0
076c 0092 19b8  |    |		Action	Push_String_Extended,0x19b8					; "<IMAGE>"
076e e005       |    |		Load	0x0,0x5
076f 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0770 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0771 e005       |    |		Load	0x0,0x5
0772 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0773 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0774 e005       |    |		Load	0x0,0x5
0775 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
0776 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0777 e001       |    |		Load	0x0,0x1
0778 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
0779 680c       |h   |		Jump_Zero	0x786
077a 00ea       |    |		Load_Encached	Null_String_Cache
077b e001       |    |		Load	0x0,0x1
077c 1829       | )  |		Execute	Package,Field_Execute,Field_Number 0x29
077d 0092 19cc  |    |		Action	Push_String_Extended,0x19cc					; " is modified.\x5cLose changes?"
077f 01cc       |    |		Execute	Vector,Catenate
0780 0092 19cd  |    |		Action	Push_String_Extended,0x19cd					; "File Revert"
0782 4ad1       |J   |		Short_Literal	0x2d1
0783 e002       |    |		Load	0x0,0x2
0784 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
0785 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0786 e005       |    |		Load	0x0,0x5
0787 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
0788 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0789 0000 0000  |    |		.BLANK	0000[0x7]
0790 ; --------------------------------------------------------------------------------------
0790 ; SUBPROGRAM
0790 ; --------------------------------------------------------------------------------------
0790 0793       |    |		.CONST	0x0793								; Address of begin
0791 0004       |    |		.CONST	0x0004								; Address of exception handler
0792 0001       |    |		.CONST	0x0001								; Number of locals
0793			BODY_0790:
0793			INIT_0790:
0793 e005       |    |		Load	0x0,0x5
0794 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
0795 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0796 0000 0000  |    |		.XXX[0x2]
0798 ; --------------------------------------------------------------------------------------
0798 ; SUBPROGRAM
0798 ; --------------------------------------------------------------------------------------
0798 079b       |    |		.CONST	0x079b								; Address of begin
0799 0004       |    |		.CONST	0x0004								; Address of exception handler
079a 0001       |    |		.CONST	0x0001								; Number of locals
079b			BODY_0798:
079b			INIT_0798:
079b 0092 19ce  |    |		Action	Push_String_Extended,0x19ce					; "F"
079d 8260       | `  |		Call	0x1,0x60
079e 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
079f 0000       |    |		.XXX[0x1]
07a0 ; --------------------------------------------------------------------------------------
07a0 ; SUBPROGRAM
07a0 ; --------------------------------------------------------------------------------------
07a0 07a3       |    |		.CONST	0x07a3								; Address of begin
07a1 0004       |    |		.CONST	0x0004								; Address of exception handler
07a2 0001       |    |		.CONST	0x0001								; Number of locals
07a3			BODY_07a0:
07a3			INIT_07a0:
07a3 0092 19cf  |    |		Action	Push_String_Extended,0x19cf					; "T"
07a5 8260       | `  |		Call	0x1,0x60
07a6 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
07a7 0000       |    |		.XXX[0x1]
07a8 ; --------------------------------------------------------------------------------------
07a8 ; SUBPROGRAM
07a8 ; --------------------------------------------------------------------------------------
07a8 07b8       |    |		.CONST	0x07b8								; Address of begin
07a9 0004       |    |		.CONST	0x0004								; Address of exception handler
07aa 0004       |    |		.CONST	0x0004								; Number of locals
07ab			INIT_07a8:
07ab 00da       |    |		Load_Top	At_Offset_2
07ac 01db       |    |		Execute	Vector,Length
07ad e014       |    |		Load	0x0,0x14
07ae 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
07af 1c08       |    |		Execute_Immediate	Run_Utility,0x8
07b0 00d8       |    |		Load_Top	At_Offset_0
07b1 1c00       |    |		Execute_Immediate	Run_Utility,0x0
07b2 e5f7       |    |		Load	0x2,-0x9
07b3 00e3       |    |		Load_Encached	Natural_Cache
07b4 03f1       |    |		Declare_Variable	Discrete,With_Value
07b5 e5f6       |    |		Load	0x2,-0xa
07b6 00e3       |    |		Load_Encached	Natural_Cache
07b7 03f1       |    |		Declare_Variable	Discrete,With_Value
07b8			BODY_07a8:
07b8 4801       |H   |		Short_Literal	0x1
07b9 0092 19d0  |    |		Action	Push_String_Extended,0x19d0					; "<CURRENT_WINDOW_CONTENTS>"
07bb 4820       |H   |		Short_Literal	0x20
07bc e5ff       |    |		Load	0x2,-0x1
07bd e00b       |    |		Load	0x0,0xb
07be 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
07bf e00b       |    |		Load	0x0,0xb
07c0 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
07c1 6807       |h   |		Jump_Zero	0x7c9
07c2 00da       |    |		Load_Top	At_Offset_2
07c3 0092 19d1  |    |		Action	Push_String_Extended,0x19d1					; "<CURSOR>"
07c5 e014       |    |		Load	0x0,0x14
07c6 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
07c7 00d1       |    |		Pop_Control	Pop_Count_1
07c8 7805       |x   |		Jump	0x7ce
07c9 00da       |    |		Load_Top	At_Offset_2
07ca e5ff       |    |		Load	0x2,-0x1
07cb e014       |    |		Load	0x0,0x14
07cc 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
07cd 00d1       |    |		Pop_Control	Pop_Count_1
07ce e5f8       |    |		Load	0x2,-0x8
07cf 6804       |h   |		Jump_Zero	0x7d4
07d0 4801       |H   |		Short_Literal	0x1
07d1 0052       | R  |		Store_Top_Unchecked	Discrete,At_Offset_2
07d2 4be7       |K   |		Short_Literal	0x3e7
07d3 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
07d4 e5fd       |    |		Load	0x2,-0x3
07d5 0b31       | 1  |		Execute_Immediate	Case_Compare,0x31
07d6 703f       |p?  |		Jump_Nonzero	0x816
07d7 0b32       | 2  |		Execute_Immediate	Case_Compare,0x32
07d8 7003       |p   |		Jump_Nonzero	0x7dc
07d9 0f33       | 3  |		Execute_Immediate	Equal,0x33
07da 701d       |p   |		Jump_Nonzero	0x7f8
07db 450c       |E   |		Exit_Suprogram	New_Top_Offset 0xc
07dc 00d1       |    |		Pop_Control	Pop_Count_1
07dd 4800       |H   |		Short_Literal	0x0
07de e5fe       |    |		Load	0x2,-0x2
07df 4801       |H   |		Short_Literal	0x1
07e0 e5f5       |    |		Load	0x2,-0xb
07e1 e5f9       |    |		Load	0x2,-0x7
07e2 4800       |H   |		Short_Literal	0x0
07e3 e5fb       |    |		Load	0x2,-0x5
07e4 e5fa       |    |		Load	0x2,-0x6
07e5 e5fc       |    |		Load	0x2,-0x4
07e6 4800       |H   |		Short_Literal	0x0
07e7 e404       |    |		Load	0x2,0x4
07e8 00d8       |    |		Load_Top	At_Offset_0
07e9 00e4       |    |		Load_Encached	Positive_Cache
07ea 0260       | `  |		Execute	Discrete,In_Type
07eb 7001       |p   |		Jump_Nonzero	0x7ed
07ec 0801       |    |		Execute_Immediate	Raise,0x1
07ed e403       |    |		Load	0x2,0x3
07ee 00d8       |    |		Load_Top	At_Offset_0
07ef 00e4       |    |		Load_Encached	Positive_Cache
07f0 0260       | `  |		Execute	Discrete,In_Type
07f1 7001       |p   |		Jump_Nonzero	0x7f3
07f2 0801       |    |		Execute_Immediate	Raise,0x1
07f3 e402       |    |		Load	0x2,0x2
07f4 e014       |    |		Load	0x0,0x14
07f5 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
07f6 8017       |    |		Call	0x0,0x17
07f7 450c       |E   |		Exit_Suprogram	New_Top_Offset 0xc
07f8 4800       |H   |		Short_Literal	0x0
07f9 e5fe       |    |		Load	0x2,-0x2
07fa 4801       |H   |		Short_Literal	0x1
07fb 0092 19d2  |    |		Action	Push_String_Extended,0x19d2					; "Postscript=>(Wide,Spacing=10,Size=10)"
07fd e5f5       |    |		Load	0x2,-0xb
07fe 01cc       |    |		Execute	Vector,Catenate
07ff e5f9       |    |		Load	0x2,-0x7
0800 4800       |H   |		Short_Literal	0x0
0801 e5fb       |    |		Load	0x2,-0x5
0802 e5fa       |    |		Load	0x2,-0x6
0803 e5fc       |    |		Load	0x2,-0x4
0804 4800       |H   |		Short_Literal	0x0
0805 e404       |    |		Load	0x2,0x4
0806 00d8       |    |		Load_Top	At_Offset_0
0807 00e4       |    |		Load_Encached	Positive_Cache
0808 0260       | `  |		Execute	Discrete,In_Type
0809 7001       |p   |		Jump_Nonzero	0x80b
080a 0801       |    |		Execute_Immediate	Raise,0x1
080b e403       |    |		Load	0x2,0x3
080c 00d8       |    |		Load_Top	At_Offset_0
080d 00e4       |    |		Load_Encached	Positive_Cache
080e 0260       | `  |		Execute	Discrete,In_Type
080f 7001       |p   |		Jump_Nonzero	0x811
0810 0801       |    |		Execute_Immediate	Raise,0x1
0811 e402       |    |		Load	0x2,0x2
0812 e014       |    |		Load	0x0,0x14
0813 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0814 8017       |    |		Call	0x0,0x17
0815 450c       |E   |		Exit_Suprogram	New_Top_Offset 0xc
0816 00d1       |    |		Pop_Control	Pop_Count_1
0817 4800       |H   |		Short_Literal	0x0
0818 e5fe       |    |		Load	0x2,-0x2
0819 4801       |H   |		Short_Literal	0x1
081a e5f5       |    |		Load	0x2,-0xb
081b e5f9       |    |		Load	0x2,-0x7
081c 4800       |H   |		Short_Literal	0x0
081d e5fb       |    |		Load	0x2,-0x5
081e e5fa       |    |		Load	0x2,-0x6
081f e5fc       |    |		Load	0x2,-0x4
0820 4801       |H   |		Short_Literal	0x1
0821 e404       |    |		Load	0x2,0x4
0822 00d8       |    |		Load_Top	At_Offset_0
0823 00e4       |    |		Load_Encached	Positive_Cache
0824 0260       | `  |		Execute	Discrete,In_Type
0825 7001       |p   |		Jump_Nonzero	0x827
0826 0801       |    |		Execute_Immediate	Raise,0x1
0827 e403       |    |		Load	0x2,0x3
0828 00d8       |    |		Load_Top	At_Offset_0
0829 00e4       |    |		Load_Encached	Positive_Cache
082a 0260       | `  |		Execute	Discrete,In_Type
082b 7001       |p   |		Jump_Nonzero	0x82d
082c 0801       |    |		Execute_Immediate	Raise,0x1
082d e402       |    |		Load	0x2,0x2
082e e014       |    |		Load	0x0,0x14
082f 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0830 8017       |    |		Call	0x0,0x17
0831 450c       |E   |		Exit_Suprogram	New_Top_Offset 0xc
0832 0000 0000  |    |		.BLANK	0000[0x6]
0838 ; --------------------------------------------------------------------------------------
0838 ; SUBPROGRAM
0838 ; --------------------------------------------------------------------------------------
0838 083d       | =  |		.CONST	0x083d								; Address of begin
0839 0004       |    |		.CONST	0x0004								; Address of exception handler
083a 0002       |    |		.CONST	0x0002								; Number of locals
083b			INIT_0838:
083b 029f 0eeb  |    |		Declare_Subprogram	INIT_0ee8,For_Call
083d			BODY_0838:
083d 8402       |    |		Call	0x2,0x2
083e 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
083f 0000       |    |		.XXX[0x1]
0840 ; --------------------------------------------------------------------------------------
0840 ; SUBPROGRAM
0840 ; --------------------------------------------------------------------------------------
0840 084e       | N  |		.CONST	0x084e								; Address of begin
0841 0004       |    |		.CONST	0x0004								; Address of exception handler
0842 0004       |    |		.CONST	0x0004								; Number of locals
0843			INIT_0840:
0843 e00f       |    |		Load	0x0,0xf
0844 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0845 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
0846 02c7       |    |		Declare_Variable	Any
0847 00d8       |    |		Load_Top	At_Offset_0
0848 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0849 e00f       |    |		Load	0x0,0xf
084a 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
084b 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
084c 029f 0feb  |    |		Declare_Subprogram	INIT_0fe8,For_Call
084e			BODY_0840:
084e e00f       |    |		Load	0x0,0xf
084f 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0850 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0851 00db       |    |		Load_Top	At_Offset_3
0852 6025       |`%  |		Indirect_Literal	Discrete,0x878,{0x00000000, 0x00004000}
0853 e010       |    |		Load	0x0,0x10
0854 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0855 e011       |    |		Load	0x0,0x11
0856 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0857 e012       |    |		Load	0x0,0x12
0858 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0859 4801       |H   |		Short_Literal	0x1
085a 4800       |H   |		Short_Literal	0x0
085b e011       |    |		Load	0x0,0x11
085c 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
085d e00f       |    |		Load	0x0,0xf
085e 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
085f 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0860 e5ff       |    |		Load	0x2,-0x1
0861 e00f       |    |		Load	0x0,0xf
0862 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0863 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0864 c402       |    |		Store	0x2,0x2
0865 005a       | Z  |		Store_Top	Discrete,At_Offset_2
0866 00cf       |    |		Action	Mark_Auxiliary
0867 7807       |x   |		Jump	0x86f
0868 8404       |    |		Call	0x2,0x4
0869 00db       |    |		Load_Top	At_Offset_3
086a e00f       |    |		Load	0x0,0xf
086b 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
086c 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
086d c402       |    |		Store	0x2,0x2
086e 00c9       |    |		Action	Pop_Auxiliary_Loop
086f 00db       |    |		Load_Top	At_Offset_3
0870 e00f       |    |		Load	0x0,0xf
0871 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0872 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
0873 6ff4       |o   |		Jump_Zero	0x868
0874 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
0875 0000 0000  |    |		.XXX[0x3]
0877 0000       |    |
0878 0000 0000  |    |		.LITERAL	{0x00000000, 0x00004000}
087c 0000 0000  |    |		.BLANK	0000[0x4]
0880 ; --------------------------------------------------------------------------------------
0880 ; SUBPROGRAM
0880 ; --------------------------------------------------------------------------------------
0880 0885       |    |		.CONST	0x0885								; Address of begin
0881 0004       |    |		.CONST	0x0004								; Address of exception handler
0882 0002       |    |		.CONST	0x0002								; Number of locals
0883			INIT_0880:
0883 029f 10d3  |    |		Declare_Subprogram	INIT_10d0,For_Call
0885			BODY_0880:
0885 8402       |    |		Call	0x2,0x2
0886 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
0887 0000       |    |		.XXX[0x1]
0888 ; --------------------------------------------------------------------------------------
0888 ; SUBPROGRAM
0888 ; --------------------------------------------------------------------------------------
0888 0896       |    |		.CONST	0x0896								; Address of begin
0889 0004       |    |		.CONST	0x0004								; Address of exception handler
088a 0004       |    |		.CONST	0x0004								; Number of locals
088b			INIT_0888:
088b e00f       |    |		Load	0x0,0xf
088c 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
088d 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
088e 02c7       |    |		Declare_Variable	Any
088f 00d8       |    |		Load_Top	At_Offset_0
0890 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0891 e00f       |    |		Load	0x0,0xf
0892 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0893 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0894 029f 1113  |    |		Declare_Subprogram	INIT_1110,For_Call
0896			BODY_0888:
0896 e00f       |    |		Load	0x0,0xf
0897 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0898 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0899 00db       |    |		Load_Top	At_Offset_3
089a 6025       |`%  |		Indirect_Literal	Discrete,0x8c0,{0x00000000, 0x00004000}
089b e010       |    |		Load	0x0,0x10
089c 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
089d e011       |    |		Load	0x0,0x11
089e 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
089f e012       |    |		Load	0x0,0x12
08a0 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
08a1 4801       |H   |		Short_Literal	0x1
08a2 4800       |H   |		Short_Literal	0x0
08a3 e011       |    |		Load	0x0,0x11
08a4 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
08a5 e00f       |    |		Load	0x0,0xf
08a6 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
08a7 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
08a8 e5ff       |    |		Load	0x2,-0x1
08a9 e00f       |    |		Load	0x0,0xf
08aa 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
08ab 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
08ac c402       |    |		Store	0x2,0x2
08ad 005a       | Z  |		Store_Top	Discrete,At_Offset_2
08ae 00cf       |    |		Action	Mark_Auxiliary
08af 7807       |x   |		Jump	0x8b7
08b0 8404       |    |		Call	0x2,0x4
08b1 00db       |    |		Load_Top	At_Offset_3
08b2 e00f       |    |		Load	0x0,0xf
08b3 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
08b4 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
08b5 c402       |    |		Store	0x2,0x2
08b6 00c9       |    |		Action	Pop_Auxiliary_Loop
08b7 00db       |    |		Load_Top	At_Offset_3
08b8 e00f       |    |		Load	0x0,0xf
08b9 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
08ba 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
08bb 6ff4       |o   |		Jump_Zero	0x8b0
08bc 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
08bd 0000 0000  |    |		.XXX[0x3]
08bf 0000       |    |
08c0 0000 0000  |    |		.LITERAL	{0x00000000, 0x00004000}
08c4 0000 0000  |    |		.BLANK	0000[0x4]
08c8 ; --------------------------------------------------------------------------------------
08c8 ; SUBPROGRAM
08c8 ; --------------------------------------------------------------------------------------
08c8 08e0       |    |		.CONST	0x08e0								; Address of begin
08c9 0004       |    |		.CONST	0x0004								; Address of exception handler
08ca 0004       |    |		.CONST	0x0004								; Number of locals
08cb			INIT_08c8:
08cb e00f       |    |		Load	0x0,0xf
08cc 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
08cd 02c7       |    |		Declare_Variable	Any
08ce 0092 19a5  |    |		Action	Push_String_Extended,0x19a5					; "<Cursor>"
08d0 e001       |    |		Load	0x0,0x1
08d1 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
08d2 a402       |    |		Store_Unchecked	0x2,0x2
08d3 e00f       |    |		Load	0x0,0xf
08d4 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
08d5 02c7       |    |		Declare_Variable	Any
08d6 0092 19d3  |    |		Action	Push_String_Extended,0x19d3					; "<REGION>"
08d8 e001       |    |		Load	0x0,0x1
08d9 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
08da a403       |    |		Store_Unchecked	0x2,0x3
08db e001       |    |		Load	0x0,0x1
08dc 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
08dd e001       |    |		Load	0x0,0x1
08de 1b2c       | ,  |		Execute	Package,Field_Read,Field_Number 0x2c
08df 03f1       |    |		Declare_Variable	Discrete,With_Value
08e0			BODY_08c8:
08e0 e001       |    |		Load	0x0,0x1
08e1 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
08e2 0f03       |    |		Execute_Immediate	Equal,0x3
08e3 6804       |h   |		Jump_Zero	0x8e8
08e4 e005       |    |		Load	0x0,0x5
08e5 1b23       | #  |		Execute	Package,Field_Read,Field_Number 0x23
08e6 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
08e7 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
08e8 00da       |    |		Load_Top	At_Offset_2
08e9 e00f       |    |		Load	0x0,0xf
08ea 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
08eb 7031       |p1  |		Jump_Nonzero	0x91d
08ec 00d9       |    |		Load_Top	At_Offset_1
08ed e00f       |    |		Load	0x0,0xf
08ee 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
08ef 7018       |p   |		Jump_Nonzero	0x908
08f0 00d9       |    |		Load_Top	At_Offset_1
08f1 00db       |    |		Load_Top	At_Offset_3
08f2 012e       | .  |		Execute	Any,Not_Equal
08f3 6814       |h   |		Jump_Zero	0x908
08f4 00ea       |    |		Load_Encached	Null_String_Cache
08f5 00ea       |    |		Load_Encached	Null_String_Cache
08f6 00ea       |    |		Load_Encached	Null_String_Cache
08f7 00ea       |    |		Load_Encached	Null_String_Cache
08f8 00ea       |    |		Load_Encached	Null_String_Cache
08f9 0092 19b8  |    |		Action	Push_String_Extended,0x19b8					; "<IMAGE>"
08fb e001       |    |		Load	0x0,0x1
08fc 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
08fd 0092 19d3  |    |		Action	Push_String_Extended,0x19d3					; "<REGION>"
08ff e001       |    |		Load	0x0,0x1
0900 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0901 0092 19d4  |    |		Action	Push_String_Extended,0x19d4					; "Copy File"
0903 4ad4       |J   |		Short_Literal	0x2d4
0904 4819       |H   |		Short_Literal	0x19
0905 e002       |    |		Load	0x0,0x2
0906 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0907 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0908 00ea       |    |		Load_Encached	Null_String_Cache
0909 00ea       |    |		Load_Encached	Null_String_Cache
090a 00ea       |    |		Load_Encached	Null_String_Cache
090b 00ea       |    |		Load_Encached	Null_String_Cache
090c 00ea       |    |		Load_Encached	Null_String_Cache
090d e001       |    |		Load	0x0,0x1
090e 1823       | #  |		Execute	Package,Field_Execute,Field_Number 0x23
090f 0092 19d5  |    |		Action	Push_String_Extended,0x19d5					; ".NewFile"
0911 01cc       |    |		Execute	Vector,Catenate
0912 e402       |    |		Load	0x2,0x2
0913 e00f       |    |		Load	0x0,0xf
0914 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0915 1838       | 8  |		Execute	Package,Field_Execute,Field_Number 0x38
0916 0092 19d4  |    |		Action	Push_String_Extended,0x19d4					; "Copy File"
0918 4ad4       |J   |		Short_Literal	0x2d4
0919 4819       |H   |		Short_Literal	0x19
091a e002       |    |		Load	0x0,0x2
091b 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
091c 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
091d 00ea       |    |		Load_Encached	Null_String_Cache
091e 00ea       |    |		Load_Encached	Null_String_Cache
091f 00ea       |    |		Load_Encached	Null_String_Cache
0920 00ea       |    |		Load_Encached	Null_String_Cache
0921 00ea       |    |		Load_Encached	Null_String_Cache
0922 e001       |    |		Load	0x0,0x1
0923 1823       | #  |		Execute	Package,Field_Execute,Field_Number 0x23
0924 0092 19d5  |    |		Action	Push_String_Extended,0x19d5					; ".NewFile"
0926 01cc       |    |		Execute	Vector,Catenate
0927 00ea       |    |		Load_Encached	Null_String_Cache
0928 0092 19d4  |    |		Action	Push_String_Extended,0x19d4					; "Copy File"
092a 4ad4       |J   |		Short_Literal	0x2d4
092b 4819       |H   |		Short_Literal	0x19
092c e002       |    |		Load	0x0,0x2
092d 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
092e 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
092f 0000       |    |		.XXX[0x1]
0930 ; --------------------------------------------------------------------------------------
0930 ; SUBPROGRAM
0930 ; --------------------------------------------------------------------------------------
0930 0933       | 3  |		.CONST	0x0933								; Address of begin
0931 0004       |    |		.CONST	0x0004								; Address of exception handler
0932 0001       |    |		.CONST	0x0001								; Number of locals
0933			BODY_0930:
0933			INIT_0930:
0933 00ea       |    |		Load_Encached	Null_String_Cache
0934 4801       |H   |		Short_Literal	0x1
0935 0092 199d  |    |		Action	Push_String_Extended,0x199d					; "<PROFILE>"
0937 4801       |H   |		Short_Literal	0x1
0938 e5fe       |    |		Load	0x2,-0x2
0939 e5ff       |    |		Load	0x2,-0x1
093a e006       |    |		Load	0x0,0x6
093b 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
093c 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
093d 0000 0000  |    |		.XXX[0x3]
093f 0000       |    |
0940 ; --------------------------------------------------------------------------------------
0940 ; SUBPROGRAM
0940 ; --------------------------------------------------------------------------------------
0940 0958       | X  |		.CONST	0x0958								; Address of begin
0941 0004       |    |		.CONST	0x0004								; Address of exception handler
0942 0004       |    |		.CONST	0x0004								; Number of locals
0943			INIT_0940:
0943 e00f       |    |		Load	0x0,0xf
0944 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0945 02c7       |    |		Declare_Variable	Any
0946 0092 19a5  |    |		Action	Push_String_Extended,0x19a5					; "<Cursor>"
0948 e001       |    |		Load	0x0,0x1
0949 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
094a a402       |    |		Store_Unchecked	0x2,0x2
094b e00f       |    |		Load	0x0,0xf
094c 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
094d 02c7       |    |		Declare_Variable	Any
094e 0092 19d3  |    |		Action	Push_String_Extended,0x19d3					; "<REGION>"
0950 e001       |    |		Load	0x0,0x1
0951 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0952 a403       |    |		Store_Unchecked	0x2,0x3
0953 e001       |    |		Load	0x0,0x1
0954 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0955 e001       |    |		Load	0x0,0x1
0956 1b2c       | ,  |		Execute	Package,Field_Read,Field_Number 0x2c
0957 03f1       |    |		Declare_Variable	Discrete,With_Value
0958			BODY_0940:
0958 e001       |    |		Load	0x0,0x1
0959 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
095a 0f03       |    |		Execute_Immediate	Equal,0x3
095b 6804       |h   |		Jump_Zero	0x960
095c e005       |    |		Load	0x0,0x5
095d 1b23       | #  |		Execute	Package,Field_Read,Field_Number 0x23
095e 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
095f 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0960 00da       |    |		Load_Top	At_Offset_2
0961 e00f       |    |		Load	0x0,0xf
0962 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0963 7031       |p1  |		Jump_Nonzero	0x995
0964 00d9       |    |		Load_Top	At_Offset_1
0965 e00f       |    |		Load	0x0,0xf
0966 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0967 7018       |p   |		Jump_Nonzero	0x980
0968 00d9       |    |		Load_Top	At_Offset_1
0969 00db       |    |		Load_Top	At_Offset_3
096a 012e       | .  |		Execute	Any,Not_Equal
096b 6814       |h   |		Jump_Zero	0x980
096c 00ea       |    |		Load_Encached	Null_String_Cache
096d 00ea       |    |		Load_Encached	Null_String_Cache
096e 00ea       |    |		Load_Encached	Null_String_Cache
096f 00ea       |    |		Load_Encached	Null_String_Cache
0970 00ea       |    |		Load_Encached	Null_String_Cache
0971 0092 19b8  |    |		Action	Push_String_Extended,0x19b8					; "<IMAGE>"
0973 e001       |    |		Load	0x0,0x1
0974 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0975 0092 19d3  |    |		Action	Push_String_Extended,0x19d3					; "<REGION>"
0977 e001       |    |		Load	0x0,0x1
0978 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0979 0092 19d6  |    |		Action	Push_String_Extended,0x19d6					; "Move File"
097b 4ad5       |J   |		Short_Literal	0x2d5
097c 4819       |H   |		Short_Literal	0x19
097d e002       |    |		Load	0x0,0x2
097e 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
097f 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0980 00ea       |    |		Load_Encached	Null_String_Cache
0981 00ea       |    |		Load_Encached	Null_String_Cache
0982 00ea       |    |		Load_Encached	Null_String_Cache
0983 00ea       |    |		Load_Encached	Null_String_Cache
0984 00ea       |    |		Load_Encached	Null_String_Cache
0985 e001       |    |		Load	0x0,0x1
0986 1823       | #  |		Execute	Package,Field_Execute,Field_Number 0x23
0987 0092 19d5  |    |		Action	Push_String_Extended,0x19d5					; ".NewFile"
0989 01cc       |    |		Execute	Vector,Catenate
098a e402       |    |		Load	0x2,0x2
098b e00f       |    |		Load	0x0,0xf
098c 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
098d 1838       | 8  |		Execute	Package,Field_Execute,Field_Number 0x38
098e 0092 19d6  |    |		Action	Push_String_Extended,0x19d6					; "Move File"
0990 4ad5       |J   |		Short_Literal	0x2d5
0991 4819       |H   |		Short_Literal	0x19
0992 e002       |    |		Load	0x0,0x2
0993 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0994 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0995 00ea       |    |		Load_Encached	Null_String_Cache
0996 00ea       |    |		Load_Encached	Null_String_Cache
0997 00ea       |    |		Load_Encached	Null_String_Cache
0998 00ea       |    |		Load_Encached	Null_String_Cache
0999 00ea       |    |		Load_Encached	Null_String_Cache
099a e001       |    |		Load	0x0,0x1
099b 1823       | #  |		Execute	Package,Field_Execute,Field_Number 0x23
099c 0092 19d5  |    |		Action	Push_String_Extended,0x19d5					; ".NewFile"
099e 01cc       |    |		Execute	Vector,Catenate
099f 00ea       |    |		Load_Encached	Null_String_Cache
09a0 0092 19d6  |    |		Action	Push_String_Extended,0x19d6					; "Move File"
09a2 4ad5       |J   |		Short_Literal	0x2d5
09a3 4819       |H   |		Short_Literal	0x19
09a4 e002       |    |		Load	0x0,0x2
09a5 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
09a6 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
09a7 0000       |    |		.XXX[0x1]
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 00ea       |    |		Load_Encached	Null_String_Cache
09ac 4801       |H   |		Short_Literal	0x1
09ad 0092 199d  |    |		Action	Push_String_Extended,0x199d					; "<PROFILE>"
09af 4801       |H   |		Short_Literal	0x1
09b0 e5fe       |    |		Load	0x2,-0x2
09b1 e5ff       |    |		Load	0x2,-0x1
09b2 e006       |    |		Load	0x0,0x6
09b3 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
09b4 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
09b5 0000 0000  |    |		.XXX[0x3]
09b7 0000       |    |
09b8 ; --------------------------------------------------------------------------------------
09b8 ; SUBPROGRAM
09b8 ; --------------------------------------------------------------------------------------
09b8 09bb       |    |		.CONST	0x09bb								; Address of begin
09b9 0004       |    |		.CONST	0x0004								; Address of exception handler
09ba 0001       |    |		.CONST	0x0001								; Number of locals
09bb			BODY_09b8:
09bb			INIT_09b8:
09bb e001       |    |		Load	0x0,0x1
09bc 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
09bd 4610       |F   |		Jump_Case	0x11
09be 7810       |x   |		Jump	0x9cf								; case 0x0
09bf 780f       |x   |		Jump	0x9cf								; case 0x1
09c0 780e       |x   |		Jump	0x9cf								; case 0x2
09c1 781b       |x   |		Jump	0x9dd								; case 0x3
09c2 781a       |x   |		Jump	0x9dd								; case 0x4
09c3 780b       |x   |		Jump	0x9cf								; case 0x5
09c4 780a       |x   |		Jump	0x9cf								; case 0x6
09c5 7817       |x   |		Jump	0x9dd								; case 0x7
09c6 7816       |x   |		Jump	0x9dd								; case 0x8
09c7 7815       |x   |		Jump	0x9dd								; case 0x9
09c8 7806       |x   |		Jump	0x9cf								; case 0xa
09c9 7805       |x   |		Jump	0x9cf								; case 0xb
09ca 7816       |x   |		Jump	0x9e1								; case 0xc
09cb 7811       |x   |		Jump	0x9dd								; case 0xd
09cc 7802       |x   |		Jump	0x9cf								; case 0xe
09cd 7801       |x   |		Jump	0x9cf								; case 0xf
09ce 7800       |x   |		Jump	0x9cf								; case 0x10
09cf 00ea       |    |		Load_Encached	Null_String_Cache
09d0 0092 19d7  |    |		Action	Push_String_Extended,0x19d7					; "Enter names of objects to delete."
09d2 00ea       |    |		Load_Encached	Null_String_Cache
09d3 0092 19d8  |    |		Action	Push_String_Extended,0x19d8					; "{<Cursor>}"
09d5 e001       |    |		Load	0x0,0x1
09d6 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
09d7 0092 19d9  |    |		Action	Push_String_Extended,0x19d9					; "Delete File"
09d9 4ad6       |J   |		Short_Literal	0x2d6
09da e002       |    |		Load	0x0,0x2
09db 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
09dc 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
09dd e005       |    |		Load	0x0,0x5
09de 1b23       | #  |		Execute	Package,Field_Read,Field_Number 0x23
09df 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
09e0 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
09e1 4801       |H   |		Short_Literal	0x1
09e2 4800       |H   |		Short_Literal	0x0
09e3 0092 19b8  |    |		Action	Push_String_Extended,0x19b8					; "<IMAGE>"
09e5 e005       |    |		Load	0x0,0x5
09e6 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
09e7 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
09e8 ; --------------------------------------------------------------------------------------
09e8 ; SUBPROGRAM
09e8 ; --------------------------------------------------------------------------------------
09e8 0a1d       |    |		.CONST	0x0a1d								; Address of begin
09e9 0004       |    |		.CONST	0x0004								; Address of exception handler
09ea 0014       |    |		.CONST	0x0014								; Number of locals
09eb			INIT_09e8:
09eb e00f       |    |		Load	0x0,0xf
09ec 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
09ed 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
09ee 02c7       |    |		Declare_Variable	Any
09ef 00d8       |    |		Load_Top	At_Offset_0
09f0 1c00       |    |		Execute_Immediate	Run_Utility,0x0
09f1 e00f       |    |		Load	0x0,0xf
09f2 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
09f3 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
09f4 e00f       |    |		Load	0x0,0xf
09f5 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
09f6 e00f       |    |		Load	0x0,0xf
09f7 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
09f8 02c7       |    |		Declare_Variable	Any
09f9 00d8       |    |		Load_Top	At_Offset_0
09fa 1c00       |    |		Execute_Immediate	Run_Utility,0x0
09fb e001       |    |		Load	0x0,0x1
09fc 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
09fd e001       |    |		Load	0x0,0x1
09fe 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
09ff 00e3       |    |		Load_Encached	Natural_Cache
0a00 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0a01 00e3       |    |		Load_Encached	Natural_Cache
0a02 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0a03 00e3       |    |		Load_Encached	Natural_Cache
0a04 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0a05 00e3       |    |		Load_Encached	Natural_Cache
0a06 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0a07 00e3       |    |		Load_Encached	Natural_Cache
0a08 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0a09 00e3       |    |		Load_Encached	Natural_Cache
0a0a 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0a0b 00e3       |    |		Load_Encached	Natural_Cache
0a0c 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0a0d 00e3       |    |		Load_Encached	Natural_Cache
0a0e 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0a0f 00e3       |    |		Load_Encached	Natural_Cache
0a10 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0a11 4900       |I   |		Short_Literal	0x100
0a12 e014       |    |		Load	0x0,0x14
0a13 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0a14 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0a15 00d8       |    |		Load_Top	At_Offset_0
0a16 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0a17 029f 116b  |   k|		Declare_Subprogram	INIT_1168,For_Call
0a19 029f 123b  |   ;|		Declare_Subprogram	INIT_1238,For_Call
0a1b 029f 1263  |   c|		Declare_Subprogram	INIT_1260,For_Call
0a1d			BODY_09e8:
0a1d e5ff       |    |		Load	0x2,-0x1
0a1e 01db       |    |		Execute	Vector,Length
0a1f 701b       |p   |		Jump_Nonzero	0xa3b
0a20 e00f       |    |		Load	0x0,0xf
0a21 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0a22 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0a23 e402       |    |		Load	0x2,0x2
0a24 612f       |a/  |		Indirect_Literal	Discrete,0xb54,{0x00000000, 0x00004000}
0a25 e010       |    |		Load	0x0,0x10
0a26 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0a27 e011       |    |		Load	0x0,0x11
0a28 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0a29 e012       |    |		Load	0x0,0x12
0a2a 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0a2b 4801       |H   |		Short_Literal	0x1
0a2c 4800       |H   |		Short_Literal	0x0
0a2d e011       |    |		Load	0x0,0x11
0a2e 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0a2f e00f       |    |		Load	0x0,0xf
0a30 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0a31 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0a32 e5ff       |    |		Load	0x2,-0x1
0a33 e001       |    |		Load	0x0,0x1
0a34 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0a35 e00f       |    |		Load	0x0,0xf
0a36 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0a37 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0a38 c402       |    |		Store	0x2,0x2
0a39 c403       |    |		Store	0x2,0x3
0a3a 7818       |x   |		Jump	0xa53
0a3b e00f       |    |		Load	0x0,0xf
0a3c 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0a3d 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0a3e e402       |    |		Load	0x2,0x2
0a3f 6114       |a   |		Indirect_Literal	Discrete,0xb54,{0x00000000, 0x00004000}
0a40 e010       |    |		Load	0x0,0x10
0a41 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0a42 e011       |    |		Load	0x0,0x11
0a43 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0a44 e012       |    |		Load	0x0,0x12
0a45 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0a46 4801       |H   |		Short_Literal	0x1
0a47 4800       |H   |		Short_Literal	0x0
0a48 e011       |    |		Load	0x0,0x11
0a49 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0a4a e00f       |    |		Load	0x0,0xf
0a4b 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0a4c 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0a4d e5ff       |    |		Load	0x2,-0x1
0a4e e00f       |    |		Load	0x0,0xf
0a4f 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0a50 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0a51 c402       |    |		Store	0x2,0x2
0a52 c403       |    |		Store	0x2,0x3
0a53 e403       |    |		Load	0x2,0x3
0a54 680c       |h   |		Jump_Zero	0xa61
0a55 0092 19da  |    |		Action	Push_String_Extended,0x19da					; "Error resolving name: "
0a57 e403       |    |		Load	0x2,0x3
0a58 e00f       |    |		Load	0x0,0xf
0a59 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0a5a 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0a5b 011c       |    |		Execute	Any,Convert_Unchecked
0a5c 1c01       |    |		Execute_Immediate	Run_Utility,0x1
0a5d 01cc       |    |		Execute	Vector,Catenate
0a5e e004       |    |		Load	0x0,0x4
0a5f 1865       | e  |		Execute	Package,Field_Execute,Field_Number 0x65
0a60 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0a61 00cf       |    |		Action	Mark_Auxiliary
0a62 7878       |xx  |		Jump	0xadb
0a63 e00f       |    |		Load	0x0,0xf
0a64 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0a65 e405       |    |		Load	0x2,0x5
0a66 0120       |    |		Execute	Any,Is_Value
0a67 6803       |h   |		Jump_Zero	0xa6b
0a68 e00f       |    |		Load	0x0,0xf
0a69 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0a6a 7801       |x   |		Jump	0xa6c
0a6b e405       |    |		Load	0x2,0x5
0a6c e402       |    |		Load	0x2,0x2
0a6d e00f       |    |		Load	0x0,0xf
0a6e 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0a6f 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
0a70 c405       |    |		Store	0x2,0x5
0a71 c404       |    |		Store	0x2,0x4
0a72 e404       |    |		Load	0x2,0x4
0a73 6801       |h   |		Jump_Zero	0xa75
0a74 786b       |xk  |		Jump	0xae0
0a75 e405       |    |		Load	0x2,0x5
0a76 8261       | a  |		Call	0x1,0x61
0a77 a406       |    |		Store_Unchecked	0x2,0x6
0a78 e405       |    |		Load	0x2,0x5
0a79 8262       | b  |		Call	0x1,0x62
0a7a a407       |    |		Store_Unchecked	0x2,0x7
0a7b e410       |    |		Load	0x2,0x10
0a7c 0a01       |    |		Execute_Immediate	Plus,0x1
0a7d c410       |    |		Store	0x2,0x10
0a7e e406       |    |		Load	0x2,0x6
0a7f 460f       |F   |		Jump_Case	0x10
0a80 780f       |x   |		Jump	0xa90								; case 0x0
0a81 7819       |x   |		Jump	0xa9b								; case 0x1
0a82 781c       |x   |		Jump	0xa9f								; case 0x2
0a83 780c       |x   |		Jump	0xa90								; case 0x3
0a84 780b       |x   |		Jump	0xa90								; case 0x4
0a85 780a       |x   |		Jump	0xa90								; case 0x5
0a86 7809       |x   |		Jump	0xa90								; case 0x6
0a87 7808       |x   |		Jump	0xa90								; case 0x7
0a88 7807       |x   |		Jump	0xa90								; case 0x8
0a89 7806       |x   |		Jump	0xa90								; case 0x9
0a8a 7805       |x   |		Jump	0xa90								; case 0xa
0a8b 7804       |x   |		Jump	0xa90								; case 0xb
0a8c 7803       |x   |		Jump	0xa90								; case 0xc
0a8d 7802       |x   |		Jump	0xa90								; case 0xd
0a8e 7801       |x   |		Jump	0xa90								; case 0xe
0a8f 7800       |x   |		Jump	0xa90								; case 0xf
0a90 e407       |    |		Load	0x2,0x7
0a91 0f2a       | *  |		Execute_Immediate	Equal,0x2a
0a92 7004       |p   |		Jump_Nonzero	0xa97
0a93 e40f       |    |		Load	0x2,0xf
0a94 0a01       |    |		Execute_Immediate	Plus,0x1
0a95 c40f       |    |		Store	0x2,0xf
0a96 782a       |x*  |		Jump	0xac1
0a97 e408       |    |		Load	0x2,0x8
0a98 0a01       |    |		Execute_Immediate	Plus,0x1
0a99 c408       |    |		Store	0x2,0x8
0a9a 7826       |x&  |		Jump	0xac1
0a9b e409       |    |		Load	0x2,0x9
0a9c 0a01       |    |		Execute_Immediate	Plus,0x1
0a9d c409       |    |		Store	0x2,0x9
0a9e 7822       |x"  |		Jump	0xac1
0a9f e407       |    |		Load	0x2,0x7
0aa0 00d8       |    |		Load_Top	At_Offset_0
0aa1 0d03       |    |		Execute_Immediate	Less,0x3
0aa2 700d       |p   |		Jump_Nonzero	0xab0
0aa3 00d8       |    |		Load_Top	At_Offset_0
0aa4 0c07       |    |		Execute_Immediate	Greater_Equal,0x7
0aa5 7007       |p   |		Jump_Nonzero	0xaad
0aa6 0b04       |    |		Execute_Immediate	Case_Compare,0x4
0aa7 700d       |p   |		Jump_Nonzero	0xab5
0aa8 4805       |H   |		Short_Literal	0x5
0aa9 4806       |H   |		Short_Literal	0x6
0aaa 0262       | b  |		Execute	Discrete,In_Range
0aab 700e       |p   |		Jump_Nonzero	0xaba
0aac 7811       |x   |		Jump	0xabe
0aad 0f42       | B  |		Execute_Immediate	Equal,0x42
0aae 700b       |p   |		Jump_Nonzero	0xaba
0aaf 7801       |x   |		Jump	0xab1
0ab0 00d1       |    |		Pop_Control	Pop_Count_1
0ab1 e40e       |    |		Load	0x2,0xe
0ab2 0a01       |    |		Execute_Immediate	Plus,0x1
0ab3 c40e       |    |		Store	0x2,0xe
0ab4 780c       |x   |		Jump	0xac1
0ab5 00d1       |    |		Pop_Control	Pop_Count_1
0ab6 e40d       |    |		Load	0x2,0xd
0ab7 0a01       |    |		Execute_Immediate	Plus,0x1
0ab8 c40d       |    |		Store	0x2,0xd
0ab9 7807       |x   |		Jump	0xac1
0aba e40c       |    |		Load	0x2,0xc
0abb 0a01       |    |		Execute_Immediate	Plus,0x1
0abc c40c       |    |		Store	0x2,0xc
0abd 7803       |x   |		Jump	0xac1
0abe e40b       |    |		Load	0x2,0xb
0abf 0a01       |    |		Execute_Immediate	Plus,0x1
0ac0 c40b       |    |		Store	0x2,0xb
0ac1 e410       |    |		Load	0x2,0x10
0ac2 e40f       |    |		Load	0x2,0xf
0ac3 e40e       |    |		Load	0x2,0xe
0ac4 e40d       |    |		Load	0x2,0xd
0ac5 e40c       |    |		Load	0x2,0xc
0ac6 e40b       |    |		Load	0x2,0xb
0ac7 e409       |    |		Load	0x2,0x9
0ac8 e40a       |    |		Load	0x2,0xa
0ac9 e408       |    |		Load	0x2,0x8
0aca e405       |    |		Load	0x2,0x5
0acb 8412       |    |		Call	0x2,0x12
0acc c408       |    |		Store	0x2,0x8
0acd c40a       |    |		Store	0x2,0xa
0ace c409       |    |		Store	0x2,0x9
0acf c40b       |    |		Store	0x2,0xb
0ad0 c40c       |    |		Store	0x2,0xc
0ad1 c40d       |    |		Store	0x2,0xd
0ad2 c40e       |    |		Store	0x2,0xe
0ad3 c40f       |    |		Store	0x2,0xf
0ad4 c410       |    |		Store	0x2,0x10
0ad5 e402       |    |		Load	0x2,0x2
0ad6 e00f       |    |		Load	0x0,0xf
0ad7 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0ad8 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
0ad9 c402       |    |		Store	0x2,0x2
0ada 00c9       |    |		Action	Pop_Auxiliary_Loop
0adb e402       |    |		Load	0x2,0x2
0adc e00f       |    |		Load	0x0,0xf
0add 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0ade 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
0adf 6f83       |o   |		Jump_Zero	0xa63
0ae0 00ce       |    |		Action	Pop_Auxiliary
0ae1 e402       |    |		Load	0x2,0x2
0ae2 e00f       |    |		Load	0x0,0xf
0ae3 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0ae4 1852       | R  |		Execute	Package,Field_Execute,Field_Number 0x52
0ae5 c402       |    |		Store	0x2,0x2
0ae6 e410       |    |		Load	0x2,0x10
0ae7 0c02       |    |		Execute_Immediate	Greater_Equal,0x2
0ae8 6864       |hd  |		Jump_Zero	0xb4d
0ae9 00db       |    |		Load_Top	At_Offset_3
0aea 0092 19db  |    |		Action	Push_String_Extended,0x19db					; " will delete\x5c"
0aec e014       |    |		Load	0x0,0x14
0aed 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0aee 00d1       |    |		Pop_Control	Pop_Count_1
0aef 00db       |    |		Load_Top	At_Offset_3
0af0 0092 19dc  |    |		Action	Push_String_Extended,0x19dc					; " Dependent objects\x5c"
0af2 0092 19dd  |    |		Action	Push_String_Extended,0x19dd					; " Dependent object\x5c"
0af4 00ea       |    |		Load_Encached	Null_String_Cache
0af5 e40a       |    |		Load	0x2,0xa
0af6 8413       |    |		Call	0x2,0x13
0af7 00d1       |    |		Pop_Control	Pop_Count_1
0af8 00db       |    |		Load_Top	At_Offset_3
0af9 0092 19de  |    |		Action	Push_String_Extended,0x19de					; " Text objects\x5c"
0afb 0092 19df  |    |		Action	Push_String_Extended,0x19df					; " Text object\x5c"
0afd 00ea       |    |		Load_Encached	Null_String_Cache
0afe e408       |    |		Load	0x2,0x8
0aff 8413       |    |		Call	0x2,0x13
0b00 00d1       |    |		Pop_Control	Pop_Count_1
0b01 00db       |    |		Load_Top	At_Offset_3
0b02 0092 19e0  |    |		Action	Push_String_Extended,0x19e0					; " Ada objects\x5c"
0b04 0092 19e1  |    |		Action	Push_String_Extended,0x19e1					; " Ada object\x5c"
0b06 00ea       |    |		Load_Encached	Null_String_Cache
0b07 e409       |    |		Load	0x2,0x9
0b08 8413       |    |		Call	0x2,0x13
0b09 00d1       |    |		Pop_Control	Pop_Count_1
0b0a 00db       |    |		Load_Top	At_Offset_3
0b0b 0092 19e2  |    |		Action	Push_String_Extended,0x19e2					; " Directories\x5c"
0b0d 0092 19e3  |    |		Action	Push_String_Extended,0x19e3					; " Directory\x5c"
0b0f 00ea       |    |		Load_Encached	Null_String_Cache
0b10 e40b       |    |		Load	0x2,0xb
0b11 8413       |    |		Call	0x2,0x13
0b12 00d1       |    |		Pop_Control	Pop_Count_1
0b13 00db       |    |		Load_Top	At_Offset_3
0b14 0092 19e4  |    |		Action	Push_String_Extended,0x19e4					; " Libraries\x5c"
0b16 0092 19e5  |    |		Action	Push_String_Extended,0x19e5					; " Library\x5c"
0b18 00ea       |    |		Load_Encached	Null_String_Cache
0b19 e40e       |    |		Load	0x2,0xe
0b1a 8413       |    |		Call	0x2,0x13
0b1b 00d1       |    |		Pop_Control	Pop_Count_1
0b1c 00db       |    |		Load_Top	At_Offset_3
0b1d 0092 19e6  |    |		Action	Push_String_Extended,0x19e6					; " Views\x5c"
0b1f 0092 19e7  |    |		Action	Push_String_Extended,0x19e7					; " View\x5c"
0b21 00ea       |    |		Load_Encached	Null_String_Cache
0b22 e40c       |    |		Load	0x2,0xc
0b23 8413       |    |		Call	0x2,0x13
0b24 00d1       |    |		Pop_Control	Pop_Count_1
0b25 00db       |    |		Load_Top	At_Offset_3
0b26 0092 19e8  |    |		Action	Push_String_Extended,0x19e8					; " Subsystems\x5c"
0b28 0092 19e9  |    |		Action	Push_String_Extended,0x19e9					; " Subsystem\x5c"
0b2a 00ea       |    |		Load_Encached	Null_String_Cache
0b2b e40d       |    |		Load	0x2,0xd
0b2c 8413       |    |		Call	0x2,0x13
0b2d 00d1       |    |		Pop_Control	Pop_Count_1
0b2e 00db       |    |		Load_Top	At_Offset_3
0b2f 0092 19ea  |    |		Action	Push_String_Extended,0x19ea					; " miscellaneous objects\x5c"
0b31 0092 19eb  |    |		Action	Push_String_Extended,0x19eb					; " miscellaneous object\x5c"
0b33 00ea       |    |		Load_Encached	Null_String_Cache
0b34 e40f       |    |		Load	0x2,0xf
0b35 8413       |    |		Call	0x2,0x13
0b36 00d1       |    |		Pop_Control	Pop_Count_1
0b37 00db       |    |		Load_Top	At_Offset_3
0b38 0092 19ec  |    |		Action	Push_String_Extended,0x19ec					; "\x5c Delete?"
0b3a e014       |    |		Load	0x0,0x14
0b3b 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0b3c 00d1       |    |		Pop_Control	Pop_Count_1
0b3d e5ff       |    |		Load	0x2,-0x1
0b3e 0092 19ed  |    |		Action	Push_String_Extended,0x19ed					; "Deleting \x5c"
0b40 e5ff       |    |		Load	0x2,-0x1
0b41 8414       |    |		Call	0x2,0x14
0b42 01cc       |    |		Execute	Vector,Catenate
0b43 e411       |    |		Load	0x2,0x11
0b44 e014       |    |		Load	0x0,0x14
0b45 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0b46 01cc       |    |		Execute	Vector,Catenate
0b47 0092 19ee  |    |		Action	Push_String_Extended,0x19ee					; "Delete File Confirmation"
0b49 6006       |`   |		Indirect_Literal	Discrete,0xb50,{0x00000000, 0x00001c5d}
0b4a e002       |    |		Load	0x0,0x2
0b4b 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
0b4c 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0b4d e5ff       |    |		Load	0x2,-0x1
0b4e 8244       | D  |		Call	0x1,0x44
0b4f 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0b50 0000 0000  |    |		.LITERAL	{0x00000000, 0x00001c5d}
0b54 0000 0000  |    |		.LITERAL	{0x00000000, 0x00004000}
0b58 ; --------------------------------------------------------------------------------------
0b58 ; SUBPROGRAM
0b58 ; --------------------------------------------------------------------------------------
0b58 0b7b       | {  |		.CONST	0x0b7b								; Address of begin
0b59 0004       |    |		.CONST	0x0004								; Address of exception handler
0b5a 000d       |    |		.CONST	0x000d								; Number of locals
0b5b			INIT_0b58:
0b5b e00f       |    |		Load	0x0,0xf
0b5c 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0b5d 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
0b5e 02c7       |    |		Declare_Variable	Any
0b5f 00d8       |    |		Load_Top	At_Offset_0
0b60 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0b61 e00f       |    |		Load	0x0,0xf
0b62 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0b63 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0b64 e00f       |    |		Load	0x0,0xf
0b65 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0b66 e00f       |    |		Load	0x0,0xf
0b67 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0b68 02c7       |    |		Declare_Variable	Any
0b69 00d8       |    |		Load_Top	At_Offset_0
0b6a 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0b6b e001       |    |		Load	0x0,0x1
0b6c 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
0b6d e001       |    |		Load	0x0,0x1
0b6e 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
0b6f 029f 12d3  |    |		Declare_Subprogram	INIT_12d0,For_Call
0b71 029f 12f3  |    |		Declare_Subprogram	INIT_12f0,For_Call
0b73 029f 1353  |   S|		Declare_Subprogram	INIT_1350,For_Call
0b75 029f 13b3  |    |		Declare_Subprogram	INIT_13b0,For_Call
0b77 029f 142b  |   +|		Declare_Subprogram	INIT_1428,For_Call
0b79 029f 1493  |    |		Declare_Subprogram	INIT_1490,For_Call
0b7b			BODY_0b58:
0b7b e5ff       |    |		Load	0x2,-0x1
0b7c 01db       |    |		Execute	Vector,Length
0b7d 701b       |p   |		Jump_Nonzero	0xb99
0b7e e00f       |    |		Load	0x0,0xf
0b7f 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0b80 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0b81 e402       |    |		Load	0x2,0x2
0b82 67d1       |g   |		Indirect_Literal	Discrete,0xb54,{0x00000000, 0x00004000}
0b83 e010       |    |		Load	0x0,0x10
0b84 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0b85 e011       |    |		Load	0x0,0x11
0b86 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0b87 e012       |    |		Load	0x0,0x12
0b88 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0b89 4801       |H   |		Short_Literal	0x1
0b8a 4800       |H   |		Short_Literal	0x0
0b8b e011       |    |		Load	0x0,0x11
0b8c 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0b8d e00f       |    |		Load	0x0,0xf
0b8e 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0b8f 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0b90 e5ff       |    |		Load	0x2,-0x1
0b91 e001       |    |		Load	0x0,0x1
0b92 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0b93 e00f       |    |		Load	0x0,0xf
0b94 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0b95 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0b96 c402       |    |		Store	0x2,0x2
0b97 c403       |    |		Store	0x2,0x3
0b98 7818       |x   |		Jump	0xbb1
0b99 e00f       |    |		Load	0x0,0xf
0b9a 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0b9b 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0b9c e402       |    |		Load	0x2,0x2
0b9d 67b6       |g   |		Indirect_Literal	Discrete,0xb54,{0x00000000, 0x00004000}
0b9e e010       |    |		Load	0x0,0x10
0b9f 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0ba0 e011       |    |		Load	0x0,0x11
0ba1 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0ba2 e012       |    |		Load	0x0,0x12
0ba3 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0ba4 4801       |H   |		Short_Literal	0x1
0ba5 4800       |H   |		Short_Literal	0x0
0ba6 e011       |    |		Load	0x0,0x11
0ba7 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0ba8 e00f       |    |		Load	0x0,0xf
0ba9 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0baa 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0bab e5ff       |    |		Load	0x2,-0x1
0bac e00f       |    |		Load	0x0,0xf
0bad 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0bae 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0baf c402       |    |		Store	0x2,0x2
0bb0 c403       |    |		Store	0x2,0x3
0bb1 e403       |    |		Load	0x2,0x3
0bb2 680c       |h   |		Jump_Zero	0xbbf
0bb3 0092 19da  |    |		Action	Push_String_Extended,0x19da					; "Error resolving name: "
0bb5 e403       |    |		Load	0x2,0x3
0bb6 e00f       |    |		Load	0x0,0xf
0bb7 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0bb8 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0bb9 011c       |    |		Execute	Any,Convert_Unchecked
0bba 1c01       |    |		Execute_Immediate	Run_Utility,0x1
0bbb 01cc       |    |		Execute	Vector,Catenate
0bbc e004       |    |		Load	0x0,0x4
0bbd 1865       | e  |		Execute	Package,Field_Execute,Field_Number 0x65
0bbe 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0bbf 00cf       |    |		Action	Mark_Auxiliary
0bc0 781a       |x   |		Jump	0xbdb
0bc1 e00f       |    |		Load	0x0,0xf
0bc2 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0bc3 e405       |    |		Load	0x2,0x5
0bc4 0120       |    |		Execute	Any,Is_Value
0bc5 6803       |h   |		Jump_Zero	0xbc9
0bc6 e00f       |    |		Load	0x0,0xf
0bc7 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0bc8 7801       |x   |		Jump	0xbca
0bc9 e405       |    |		Load	0x2,0x5
0bca e402       |    |		Load	0x2,0x2
0bcb e00f       |    |		Load	0x0,0xf
0bcc 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0bcd 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
0bce c405       |    |		Store	0x2,0x5
0bcf c404       |    |		Store	0x2,0x4
0bd0 e404       |    |		Load	0x2,0x4
0bd1 6801       |h   |		Jump_Zero	0xbd3
0bd2 780d       |x   |		Jump	0xbe0
0bd3 e405       |    |		Load	0x2,0x5
0bd4 8261       | a  |		Call	0x1,0x61
0bd5 a406       |    |		Store_Unchecked	0x2,0x6
0bd6 e406       |    |		Load	0x2,0x6
0bd7 7001       |p   |		Jump_Nonzero	0xbd9
0bd8 7807       |x   |		Jump	0xbe0
0bd9 840d       |    |		Call	0x2,0xd
0bda 00c9       |    |		Action	Pop_Auxiliary_Loop
0bdb e402       |    |		Load	0x2,0x2
0bdc e00f       |    |		Load	0x0,0xf
0bdd 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0bde 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
0bdf 6fe1       |o   |		Jump_Zero	0xbc1
0be0 00ce       |    |		Action	Pop_Auxiliary
0be1 e402       |    |		Load	0x2,0x2
0be2 e00f       |    |		Load	0x0,0xf
0be3 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0be4 1852       | R  |		Execute	Package,Field_Execute,Field_Number 0x52
0be5 c402       |    |		Store	0x2,0x2
0be6 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0be7 0000       |    |		.XXX[0x1]
0be8 ; --------------------------------------------------------------------------------------
0be8 ; SUBPROGRAM
0be8 ; --------------------------------------------------------------------------------------
0be8 0bed       |    |		.CONST	0x0bed								; Address of begin
0be9 0004       |    |		.CONST	0x0004								; Address of exception handler
0bea 0002       |    |		.CONST	0x0002								; Number of locals
0beb			INIT_0be8:
0beb 029f 153b  |   ;|		Declare_Subprogram	INIT_1538,For_Call
0bed			BODY_0be8:
0bed 8402       |    |		Call	0x2,0x2
0bee 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0bef 0000       |    |		.XXX[0x1]
0bf0 ; --------------------------------------------------------------------------------------
0bf0 ; SUBPROGRAM
0bf0 ; --------------------------------------------------------------------------------------
0bf0 0bf5       |    |		.CONST	0x0bf5								; Address of begin
0bf1 0004       |    |		.CONST	0x0004								; Address of exception handler
0bf2 0002       |    |		.CONST	0x0002								; Number of locals
0bf3			INIT_0bf0:
0bf3 029f 158b  |    |		Declare_Subprogram	INIT_1588,For_Call
0bf5			BODY_0bf0:
0bf5 e5fd       |    |		Load	0x2,-0x3
0bf6 01db       |    |		Execute	Vector,Length
0bf7 700c       |p   |		Jump_Nonzero	0xc04
0bf8 e5fe       |    |		Load	0x2,-0x2
0bf9 6802       |h   |		Jump_Zero	0xbfc
0bfa 8402       |    |		Call	0x2,0x2
0bfb 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0bfc 0092 199d  |    |		Action	Push_String_Extended,0x199d					; "<PROFILE>"
0bfe 0092 19ef  |    |		Action	Push_String_Extended,0x19ef					; "$"
0c00 e5ff       |    |		Load	0x2,-0x1
0c01 e018       |    |		Load	0x0,0x18
0c02 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0c03 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0c04 e5fe       |    |		Load	0x2,-0x2
0c05 6804       |h   |		Jump_Zero	0xc0a
0c06 0092 19f0  |    |		Action	Push_String_Extended,0x19f0					; "Cannot debug on another machine; will run without debug."
0c08 e004       |    |		Load	0x0,0x4
0c09 1865       | e  |		Execute	Package,Field_Execute,Field_Number 0x65
0c0a 0092 199d  |    |		Action	Push_String_Extended,0x199d					; "<PROFILE>"
0c0c 00ea       |    |		Load_Encached	Null_String_Cache
0c0d 0092 19a4  |    |		Action	Push_String_Extended,0x19a4					; "<DEFAULT>"
0c0f 0092 19ef  |    |		Action	Push_String_Extended,0x19ef					; "$"
0c11 e5ff       |    |		Load	0x2,-0x1
0c12 e5fd       |    |		Load	0x2,-0x3
0c13 e019       |    |		Load	0x0,0x19
0c14 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
0c15 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0c16 0000 0000  |    |		.XXX[0x2]
0c18 ; --------------------------------------------------------------------------------------
0c18 ; SUBPROGRAM
0c18 ; --------------------------------------------------------------------------------------
0c18 0c2d       | -  |		.CONST	0x0c2d								; Address of begin
0c19 0004       |    |		.CONST	0x0004								; Address of exception handler
0c1a 0006       |    |		.CONST	0x0006								; Number of locals
0c1b			INIT_0c18:
0c1b e01a       |    |		Load	0x0,0x1a
0c1c 1b7e       | ~  |		Execute	Package,Field_Read,Field_Number 0x7e
0c1d 02c7       |    |		Declare_Variable	Any
0c1e 00d8       |    |		Load_Top	At_Offset_0
0c1f 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0c20 e01a       |    |		Load	0x0,0x1a
0c21 1b36       | 6  |		Execute	Package,Field_Read,Field_Number 0x36
0c22 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0c23 00e3       |    |		Load_Encached	Natural_Cache
0c24 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0c25 600a       |`   |		Indirect_Literal	Discrete,0xc30,{0x00000000, 0x00000800}
0c26 e014       |    |		Load	0x0,0x14
0c27 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0c28 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0c29 00d8       |    |		Load_Top	At_Offset_0
0c2a 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0c2b e01b       |    |		Load	0x0,0x1b
0c2c 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
0c2d			BODY_0c18:
0c2d 00be       |    |		Action	Activate_Tasks
0c2e 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0c2f 0000       |    |		.XXX[0x1]
0c30 0000 0000  |    |		.LITERAL	{0x00000000, 0x00000800}
0c34 0000 0000  |    |		.BLANK	0000[0x4]
0c38 ; --------------------------------------------------------------------------------------
0c38 ; SUBPROGRAM
0c38 ; --------------------------------------------------------------------------------------
0c38 0c41       | A  |		.CONST	0x0c41								; Address of begin
0c39 0004       |    |		.CONST	0x0004								; Address of exception handler
0c3a 0003       |    |		.CONST	0x0003								; Number of locals
0c3b			INIT_0c38:
0c3b e01c       |    |		Load	0x0,0x1c
0c3c 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
0c3d 02ff       |    |		Declare_Variable	Variant_Record
0c3e 00d8       |    |		Load_Top	At_Offset_0
0c3f 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0c40 00e1       |    |		Load_Encached	Boolean_Cache
0c41			BODY_0c38:
0c41 4801       |H   |		Short_Literal	0x1
0c42 e5ff       |    |		Load	0x2,-0x1
0c43 0092 19f1  |    |		Action	Push_String_Extended,0x19f1					; "true"
0c45 e00b       |    |		Load	0x0,0xb
0c46 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
0c47 6819       |h   |		Jump_Zero	0xc61
0c48 e011       |    |		Load	0x0,0x11
0c49 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0c4a e01a       |    |		Load	0x0,0x1a
0c4b 1837       | 7  |		Execute	Package,Field_Execute,Field_Number 0x37
0c4c e01a       |    |		Load	0x0,0x1a
0c4d 1874       | t  |		Execute	Package,Field_Execute,Field_Number 0x74
0c4e e01c       |    |		Load	0x0,0x1c
0c4f 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0c50 00da       |    |		Load_Top	At_Offset_2
0c51 016d       | m  |		Execute	Variant_Record,Structure_Write
0c52 00e1       |    |		Load_Encached	Boolean_Cache
0c53 00da       |    |		Load_Top	At_Offset_2
0c54 801d       |    |		Call	0x0,0x1d
0c55 0059       | Y  |		Store_Top	Discrete,At_Offset_1
0c56 00d8       |    |		Load_Top	At_Offset_0
0c57 6804       |h   |		Jump_Zero	0xc5c
0c58 4801       |H   |		Short_Literal	0x1
0c59 e016       |    |		Load	0x0,0x16
0c5a 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0c5b 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0c5c 0092 19f2  |    |		Action	Push_String_Extended,0x19f2					; "Unable to commit buffers.  Session not logged off"
0c5e e004       |    |		Load	0x0,0x4
0c5f 1860       | `  |		Execute	Package,Field_Execute,Field_Number 0x60
0c60 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0c61 4801       |H   |		Short_Literal	0x1
0c62 e016       |    |		Load	0x0,0x16
0c63 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0c64 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0c65 0000 0000  |    |		.XXX[0x3]
0c67 0000       |    |
0c68 ; --------------------------------------------------------------------------------------
0c68 ; SUBPROGRAM
0c68 ; --------------------------------------------------------------------------------------
0c68 0c7d       | }  |		.CONST	0x0c7d								; Address of begin
0c69 0004       |    |		.CONST	0x0004								; Address of exception handler
0c6a 0006       |    |		.CONST	0x0006								; Number of locals
0c6b			INIT_0c68:
0c6b e01a       |    |		Load	0x0,0x1a
0c6c 1b7e       | ~  |		Execute	Package,Field_Read,Field_Number 0x7e
0c6d 02c7       |    |		Declare_Variable	Any
0c6e 00d8       |    |		Load_Top	At_Offset_0
0c6f 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0c70 e01a       |    |		Load	0x0,0x1a
0c71 1b36       | 6  |		Execute	Package,Field_Read,Field_Number 0x36
0c72 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0c73 00e3       |    |		Load_Encached	Natural_Cache
0c74 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0c75 6076       |`v  |		Indirect_Literal	Discrete,0xcec,{0x00000000, 0x00000800}
0c76 e014       |    |		Load	0x0,0x14
0c77 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0c78 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0c79 00d8       |    |		Load_Top	At_Offset_0
0c7a 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0c7b e01b       |    |		Load	0x0,0x1b
0c7c 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
0c7d			BODY_0c68:
0c7d 00be       |    |		Action	Activate_Tasks
0c7e e402       |    |		Load	0x2,0x2
0c7f e011       |    |		Load	0x0,0x11
0c80 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0c81 e01a       |    |		Load	0x0,0x1a
0c82 1837       | 7  |		Execute	Package,Field_Execute,Field_Number 0x37
0c83 e01a       |    |		Load	0x0,0x1a
0c84 187f       |    |		Execute	Package,Field_Execute,Field_Number 0x7f
0c85 c402       |    |		Store	0x2,0x2
0c86 00cf       |    |		Action	Mark_Auxiliary
0c87 783b       |x;  |		Jump	0xcc3
0c88 e402       |    |		Load	0x2,0x2
0c89 e01a       |    |		Load	0x0,0x1a
0c8a 1881       |    |		Execute	Package,Field_Execute,Field_Number 0x81
0c8b e01a       |    |		Load	0x0,0x1a
0c8c 1b36       | 6  |		Execute	Package,Field_Read,Field_Number 0x36
0c8d 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0c8e a403       |    |		Store_Unchecked	0x2,0x3
0c8f e403       |    |		Load	0x2,0x3
0c90 4801       |H   |		Short_Literal	0x1
0c91 4802       |H   |		Short_Literal	0x2
0c92 0262       | b  |		Execute	Discrete,In_Range
0c93 7001       |p   |		Jump_Nonzero	0xc95
0c94 7829       |x)  |		Jump	0xcbe
0c95 00db       |    |		Load_Top	At_Offset_3
0c96 0a01       |    |		Execute_Immediate	Plus,0x1
0c97 c404       |    |		Store	0x2,0x4
0c98 00da       |    |		Load_Top	At_Offset_2
0c99 e402       |    |		Load	0x2,0x2
0c9a e01a       |    |		Load	0x0,0x1a
0c9b 1881       |    |		Execute	Package,Field_Execute,Field_Number 0x81
0c9c e01a       |    |		Load	0x0,0x1a
0c9d 1b36       | 6  |		Execute	Package,Field_Read,Field_Number 0x36
0c9e 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
0c9f 0092 19f3  |    |		Action	Push_String_Extended,0x19f3					; " \x5c"
0ca1 01cc       |    |		Execute	Vector,Catenate
0ca2 e014       |    |		Load	0x0,0x14
0ca3 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0ca4 00d1       |    |		Pop_Control	Pop_Count_1
0ca5 00db       |    |		Load_Top	At_Offset_3
0ca6 0d04       |    |		Execute_Immediate	Less,0x4
0ca7 6816       |h   |		Jump_Zero	0xcbe
0ca8 e01b       |    |		Load	0x0,0x1b
0ca9 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
0caa e011       |    |		Load	0x0,0x11
0cab 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0cac 4800       |H   |		Short_Literal	0x0
0cad 4800       |H   |		Short_Literal	0x0
0cae 4801       |H   |		Short_Literal	0x1
0caf e01e       |    |		Load	0x0,0x1e
0cb0 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0cb1 e011       |    |		Load	0x0,0x11
0cb2 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0cb3 e01b       |    |		Load	0x0,0x1b
0cb4 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
0cb5 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0cb6 e402       |    |		Load	0x2,0x2
0cb7 e01a       |    |		Load	0x0,0x1a
0cb8 1881       |    |		Execute	Package,Field_Execute,Field_Number 0x81
0cb9 e01b       |    |		Load	0x0,0x1b
0cba 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
0cbb e01b       |    |		Load	0x0,0x1b
0cbc 182a       | *  |		Execute	Package,Field_Execute,Field_Number 0x2a
0cbd 005a       | Z  |		Store_Top	Discrete,At_Offset_2
0cbe e402       |    |		Load	0x2,0x2
0cbf e01a       |    |		Load	0x0,0x1a
0cc0 1880       |    |		Execute	Package,Field_Execute,Field_Number 0x80
0cc1 c402       |    |		Store	0x2,0x2
0cc2 00c9       |    |		Action	Pop_Auxiliary_Loop
0cc3 e402       |    |		Load	0x2,0x2
0cc4 e01a       |    |		Load	0x0,0x1a
0cc5 1882       |    |		Execute	Package,Field_Execute,Field_Number 0x82
0cc6 6fc1       |o   |		Jump_Zero	0xc88
0cc7 00ce       |    |		Action	Pop_Auxiliary
0cc8 00da       |    |		Load_Top	At_Offset_2
0cc9 7008       |p   |		Jump_Nonzero	0xcd2
0cca 0092 19f4  |    |		Action	Push_String_Extended,0x19f4					; "\x1b]63;\x07"
0ccc e01f       |    |		Load	0x0,0x1f
0ccd 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0cce 4800       |H   |		Short_Literal	0x0
0ccf e016       |    |		Load	0x0,0x16
0cd0 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0cd1 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0cd2 00ea       |    |		Load_Encached	Null_String_Cache
0cd3 00ea       |    |		Load_Encached	Null_String_Cache
0cd4 00ea       |    |		Load_Encached	Null_String_Cache
0cd5 00ea       |    |		Load_Encached	Null_String_Cache
0cd6 00ea       |    |		Load_Encached	Null_String_Cache
0cd7 00ea       |    |		Load_Encached	Null_String_Cache
0cd8 00ea       |    |		Load_Encached	Null_String_Cache
0cd9 0092 19f5  |    |		Action	Push_String_Extended,0x19f5					; "The following buffer(s) are modified:\x5c"
0cdb e405       |    |		Load	0x2,0x5
0cdc e014       |    |		Load	0x0,0x14
0cdd 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0cde 01cc       |    |		Execute	Vector,Catenate
0cdf 0092 19f6  |    |		Action	Push_String_Extended,0x19f6					; "Quit anyway?"
0ce1 01cc       |    |		Execute	Vector,Catenate
0ce2 6005       |`   |		Indirect_Literal	Discrete,0xce8,{0x00000000, 0x00001c71}
0ce3 4842       |HB  |		Short_Literal	0x42
0ce4 e002       |    |		Load	0x0,0x2
0ce5 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0ce6 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0ce7 0000       |    |		.XXX[0x1]
0ce8 0000 0000  |    |		.LITERAL	{0x00000000, 0x00001c71}
0cec 0000 0000  |    |		.LITERAL	{0x00000000, 0x00000800}
0cf0 ; --------------------------------------------------------------------------------------
0cf0 ; SUBPROGRAM
0cf0 ; --------------------------------------------------------------------------------------
0cf0 0cf9       |    |		.CONST	0x0cf9								; Address of begin
0cf1 0004       |    |		.CONST	0x0004								; Address of exception handler
0cf2 0003       |    |		.CONST	0x0003								; Number of locals
0cf3			INIT_0cf0:
0cf3 e01c       |    |		Load	0x0,0x1c
0cf4 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
0cf5 02ff       |    |		Declare_Variable	Variant_Record
0cf6 00d8       |    |		Load_Top	At_Offset_0
0cf7 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0cf8 00e1       |    |		Load_Encached	Boolean_Cache
0cf9			BODY_0cf0:
0cf9 4801       |H   |		Short_Literal	0x1
0cfa e5ff       |    |		Load	0x2,-0x1
0cfb 0092 19f1  |    |		Action	Push_String_Extended,0x19f1					; "true"
0cfd e00b       |    |		Load	0x0,0xb
0cfe 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
0cff 681d       |h   |		Jump_Zero	0xd1d
0d00 e011       |    |		Load	0x0,0x11
0d01 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0d02 e01a       |    |		Load	0x0,0x1a
0d03 1837       | 7  |		Execute	Package,Field_Execute,Field_Number 0x37
0d04 e01a       |    |		Load	0x0,0x1a
0d05 1874       | t  |		Execute	Package,Field_Execute,Field_Number 0x74
0d06 e01c       |    |		Load	0x0,0x1c
0d07 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0d08 00da       |    |		Load_Top	At_Offset_2
0d09 016d       | m  |		Execute	Variant_Record,Structure_Write
0d0a 00e1       |    |		Load_Encached	Boolean_Cache
0d0b 00da       |    |		Load_Top	At_Offset_2
0d0c 801d       |    |		Call	0x0,0x1d
0d0d 0059       | Y  |		Store_Top	Discrete,At_Offset_1
0d0e 00d8       |    |		Load_Top	At_Offset_0
0d0f 6808       |h   |		Jump_Zero	0xd18
0d10 0092 19f4  |    |		Action	Push_String_Extended,0x19f4					; "\x1b]63;\x07"
0d12 e01f       |    |		Load	0x0,0x1f
0d13 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0d14 4801       |H   |		Short_Literal	0x1
0d15 e016       |    |		Load	0x0,0x16
0d16 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0d17 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0d18 0092 19f2  |    |		Action	Push_String_Extended,0x19f2					; "Unable to commit buffers.  Session not logged off"
0d1a e004       |    |		Load	0x0,0x4
0d1b 1860       | `  |		Execute	Package,Field_Execute,Field_Number 0x60
0d1c 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0d1d 0092 19f4  |    |		Action	Push_String_Extended,0x19f4					; "\x1b]63;\x07"
0d1f e01f       |    |		Load	0x0,0x1f
0d20 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0d21 4801       |H   |		Short_Literal	0x1
0d22 e016       |    |		Load	0x0,0x16
0d23 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0d24 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0d25 0000 0000  |    |		.XXX[0x3]
0d27 0000       |    |
0d28 ; --------------------------------------------------------------------------------------
0d28 ; SUBPROGRAM
0d28 ; --------------------------------------------------------------------------------------
0d28 0d2b       | +  |		.CONST	0x0d2b								; Address of begin
0d29 0004       |    |		.CONST	0x0004								; Address of exception handler
0d2a 0001       |    |		.CONST	0x0001								; Number of locals
0d2b			BODY_0d28:
0d2b			INIT_0d28:
0d2b 00da       |    |		Load_Top	At_Offset_2
0d2c e004       |    |		Load	0x0,0x4
0d2d 182b       | +  |		Execute	Package,Field_Execute,Field_Number 0x2b
0d2e e004       |    |		Load	0x0,0x4
0d2f 1863       | c  |		Execute	Package,Field_Execute,Field_Number 0x63
0d30 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0d31 0000 0000  |    |		.BLANK	0000[0x7]
0d38 ; --------------------------------------------------------------------------------------
0d38 ; SUBPROGRAM
0d38 ; --------------------------------------------------------------------------------------
0d38 0d43       | C  |		.CONST	0x0d43								; Address of begin
0d39 0004       |    |		.CONST	0x0004								; Address of exception handler
0d3a 0003       |    |		.CONST	0x0003								; Number of locals
0d3b			INIT_0d38:
0d3b e00f       |    |		Load	0x0,0xf
0d3c 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
0d3d 02ff       |    |		Declare_Variable	Variant_Record
0d3e 00d8       |    |		Load_Top	At_Offset_0
0d3f 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0d40 e00f       |    |		Load	0x0,0xf
0d41 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0d42 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0d43			BODY_0d38:
0d43 e00f       |    |		Load	0x0,0xf
0d44 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0d45 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0d46 00da       |    |		Load_Top	At_Offset_2
0d47 6030       |`0  |		Indirect_Literal	Discrete,0xd78,{0x00000000, 0x00004000}
0d48 e010       |    |		Load	0x0,0x10
0d49 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0d4a 4800       |H   |		Short_Literal	0x0
0d4b e011       |    |		Load	0x0,0x11
0d4c 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0d4d e00f       |    |		Load	0x0,0xf
0d4e 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0d4f 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0d50 e5ff       |    |		Load	0x2,-0x1
0d51 e00f       |    |		Load	0x0,0xf
0d52 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0d53 182e       | .  |		Execute	Package,Field_Execute,Field_Number 0x2e
0d54 00d1       |    |		Pop_Control	Pop_Count_1
0d55 0059       | Y  |		Store_Top	Discrete,At_Offset_1
0d56 00d8       |    |		Load_Top	At_Offset_0
0d57 6816       |h   |		Jump_Zero	0xd6e
0d58 601f       |`   |		Indirect_Literal	Discrete,0xd78,{0x00000000, 0x00004000}
0d59 e010       |    |		Load	0x0,0x10
0d5a 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0d5b e011       |    |		Load	0x0,0x11
0d5c 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0d5d e012       |    |		Load	0x0,0x12
0d5e 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0d5f 4801       |H   |		Short_Literal	0x1
0d60 4800       |H   |		Short_Literal	0x0
0d61 e011       |    |		Load	0x0,0x11
0d62 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0d63 e00f       |    |		Load	0x0,0xf
0d64 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0d65 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0d66 e5ff       |    |		Load	0x2,-0x1
0d67 e403       |    |		Load	0x2,0x3
0d68 e00f       |    |		Load	0x0,0xf
0d69 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0d6a 1851       | Q  |		Execute	Package,Field_Execute,Field_Number 0x51
0d6b e004       |    |		Load	0x0,0x4
0d6c 1865       | e  |		Execute	Package,Field_Execute,Field_Number 0x65
0d6d 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0d6e 00d9       |    |		Load_Top	At_Offset_1
0d6f e011       |    |		Load	0x0,0x11
0d70 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0d71 4800       |H   |		Short_Literal	0x0
0d72 4800       |H   |		Short_Literal	0x0
0d73 e020       |    |		Load	0x0,0x20
0d74 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
0d75 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0d76 0000 0000  |    |		.XXX[0x2]
0d78 0000 0000  |    |		.LITERAL	{0x00000000, 0x00004000}
0d7c 0000 0000  |    |		.BLANK	0000[0x4]
0d80 ; --------------------------------------------------------------------------------------
0d80 ; SUBPROGRAM
0d80 ; --------------------------------------------------------------------------------------
0d80 0d91       |    |		.CONST	0x0d91								; Address of begin
0d81 0004       |    |		.CONST	0x0004								; Address of exception handler
0d82 0002       |    |		.CONST	0x0002								; Number of locals
0d83			INIT_0d80:
0d83 4801       |H   |		Short_Literal	0x1
0d84 00db       |    |		Load_Top	At_Offset_3
0d85 01db       |    |		Execute	Vector,Length
0d86 00d8       |    |		Load_Top	At_Offset_0
0d87 00e2       |    |		Load_Encached	Integer_Cache
0d88 0260       | `  |		Execute	Discrete,In_Type
0d89 7001       |p   |		Jump_Nonzero	0xd8b
0d8a 0801       |    |		Execute_Immediate	Raise,0x1
0d8b 00e9       |    |		Load_Encached	String_Cache
0d8c 035b       | [  |		Declare_Type	Array,Constrained
0d8d 0337       | 7  |		Declare_Variable	Array
0d8e 00db       |    |		Load_Top	At_Offset_3
0d8f 00d9       |    |		Load_Top	At_Offset_1
0d90 01d4       |    |		Execute	Vector,Structure_Write
0d91			BODY_0d80:
0d91 00cf       |    |		Action	Mark_Auxiliary
0d92 e5ff       |    |		Load	0x2,-0x1
0d93 01dc       |    |		Execute	Vector,Last
0d94 e5ff       |    |		Load	0x2,-0x1
0d95 01dd       |    |		Execute	Vector,First
0d96 0263       | c  |		Execute	Discrete,Above_Bound
0d97 700b       |p   |		Jump_Nonzero	0xda3
0d98 00d8       |    |		Load_Top	At_Offset_0
0d99 e402       |    |		Load	0x2,0x2
0d9a 01d7       |    |		Execute	Vector,Field_Read
0d9b 0f5c       | \  |		Execute_Immediate	Equal,0x5c
0d9c 6804       |h   |		Jump_Zero	0xda1
0d9d 480a       |H   |		Short_Literal	0xa
0d9e 00d9       |    |		Load_Top	At_Offset_1
0d9f e402       |    |		Load	0x2,0x2
0da0 01d6       |    |		Execute	Vector,Field_Write
0da1 00c8       |    |		Action	Pop_Auxiliary_Range
0da2 3ff5       |?   |		Loop_Increasing	0xd98
0da3 00ce       |    |		Action	Pop_Auxiliary
0da4 00d8       |    |		Load_Top	At_Offset_0
0da5 00e9       |    |		Load_Encached	String_Cache
0da6 01c6       |    |		Execute	Vector,Convert_To_Formal
0da7 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0da8 ; --------------------------------------------------------------------------------------
0da8 ; SUBPROGRAM
0da8 ; --------------------------------------------------------------------------------------
0da8 0dc3       |    |		.CONST	0x0dc3								; Address of begin
0da9 0004       |    |		.CONST	0x0004								; Address of exception handler
0daa 0007       |    |		.CONST	0x0007								; Number of locals
0dab			INIT_0da8:
0dab 4be8       |K   |		Short_Literal	0x3e8
0dac e014       |    |		Load	0x0,0x14
0dad 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0dae 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0daf 00d8       |    |		Load_Top	At_Offset_0
0db0 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0db1 4be8       |K   |		Short_Literal	0x3e8
0db2 e014       |    |		Load	0x0,0x14
0db3 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0db4 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0db5 00d8       |    |		Load_Top	At_Offset_0
0db6 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0db7 48c8       |H   |		Short_Literal	0xc8
0db8 e014       |    |		Load	0x0,0x14
0db9 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0dba 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0dbb 00d8       |    |		Load_Top	At_Offset_0
0dbc 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0dbd 00e3       |    |		Load_Encached	Natural_Cache
0dbe 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0dbf 029f 15ab  |    |		Declare_Subprogram	INIT_15a8,For_Call
0dc1 029f 15d3  |    |		Declare_Subprogram	INIT_15d0,For_Call
0dc3			BODY_0da8:
0dc3 8406       |    |		Call	0x2,0x6
0dc4 e402       |    |		Load	0x2,0x2
0dc5 e014       |    |		Load	0x0,0x14
0dc6 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
0dc7 0c02       |    |		Execute_Immediate	Greater_Equal,0x2
0dc8 6811       |h   |		Jump_Zero	0xdda
0dc9 e403       |    |		Load	0x2,0x3
0dca e402       |    |		Load	0x2,0x2
0dcb e014       |    |		Load	0x0,0x14
0dcc 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
0dcd 0aff       |    |		Execute_Immediate	Plus,-0x1
0dce 00d8       |    |		Load_Top	At_Offset_0
0dcf 00e3       |    |		Load_Encached	Natural_Cache
0dd0 0260       | `  |		Execute	Discrete,In_Type
0dd1 7001       |p   |		Jump_Nonzero	0xdd3
0dd2 0801       |    |		Execute_Immediate	Raise,0x1
0dd3 4801       |H   |		Short_Literal	0x1
0dd4 e402       |    |		Load	0x2,0x2
0dd5 e014       |    |		Load	0x0,0x14
0dd6 1827       | '  |		Execute	Package,Field_Execute,Field_Number 0x27
0dd7 e014       |    |		Load	0x0,0x14
0dd8 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0dd9 00d1       |    |		Pop_Control	Pop_Count_1
0dda 00ea       |    |		Load_Encached	Null_String_Cache
0ddb 00ea       |    |		Load_Encached	Null_String_Cache
0ddc 00ea       |    |		Load_Encached	Null_String_Cache
0ddd e5ff       |    |		Load	0x2,-0x1
0dde e404       |    |		Load	0x2,0x4
0ddf e014       |    |		Load	0x0,0x14
0de0 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0de1 4820       |H   |		Short_Literal	0x20
0de2 4800       |H   |		Short_Literal	0x0
0de3 480a       |H   |		Short_Literal	0xa
0de4 e405       |    |		Load	0x2,0x5
0de5 e00b       |    |		Load	0x0,0xb
0de6 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0de7 e403       |    |		Load	0x2,0x3
0de8 e014       |    |		Load	0x0,0x14
0de9 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0dea 8407       |    |		Call	0x2,0x7
0deb 4ad2       |J   |		Short_Literal	0x2d2
0dec 4817       |H   |		Short_Literal	0x17
0ded e002       |    |		Load	0x0,0x2
0dee 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0def 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0df0 ; --------------------------------------------------------------------------------------
0df0 ; SUBPROGRAM
0df0 ; --------------------------------------------------------------------------------------
0df0 0df3       |    |		.CONST	0x0df3								; Address of begin
0df1 0df7       |    |		.CONST	0x0df7								; Address of exception handler
0df2 0001       |    |		.CONST	0x0001								; Number of locals
0df3			BODY_0df0:
0df3			INIT_0df0:
0df3 00da       |    |		Load_Top	At_Offset_2
0df4 e001       |    |		Load	0x0,0x1
0df5 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0df6 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0df7			TRAP_0df0:
0df7 0007       |    |		Action	Break_Optional
0df8 4800       |H   |		Short_Literal	0x0
0df9 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0dfa 0000 0000  |    |		.BLANK	0000[0x6]
0e00 ; --------------------------------------------------------------------------------------
0e00 ; SUBPROGRAM
0e00 ; --------------------------------------------------------------------------------------
0e00 0e03       |    |		.CONST	0x0e03								; Address of begin
0e01 0e07       |    |		.CONST	0x0e07								; Address of exception handler
0e02 0001       |    |		.CONST	0x0001								; Number of locals
0e03			BODY_0e00:
0e03			INIT_0e00:
0e03 00da       |    |		Load_Top	At_Offset_2
0e04 e001       |    |		Load	0x0,0x1
0e05 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
0e06 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0e07			TRAP_0e00:
0e07 0007       |    |		Action	Break_Optional
0e08 4800       |H   |		Short_Literal	0x0
0e09 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0e0a 0000 0000  |    |		.BLANK	0000[0x6]
0e10 ; --------------------------------------------------------------------------------------
0e10 ; SUBPROGRAM
0e10 ; --------------------------------------------------------------------------------------
0e10 0e1b       |    |		.CONST	0x0e1b								; Address of begin
0e11 0004       |    |		.CONST	0x0004								; Address of exception handler
0e12 0003       |    |		.CONST	0x0003								; Number of locals
0e13			INIT_0e10:
0e13 e00f       |    |		Load	0x0,0xf
0e14 1b3f       | ?  |		Execute	Package,Field_Read,Field_Number 0x3f
0e15 1b21       | !  |		Execute	Package,Field_Read,Field_Number 0x21
0e16 02c7       |    |		Declare_Variable	Any
0e17 00d8       |    |		Load_Top	At_Offset_0
0e18 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0e19 e00f       |    |		Load	0x0,0xf
0e1a 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0e1b			BODY_0e10:
0e1b e00f       |    |		Load	0x0,0xf
0e1c 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0e1d 00da       |    |		Load_Top	At_Offset_2
0e1e 0120       |    |		Execute	Any,Is_Value
0e1f 6804       |h   |		Jump_Zero	0xe24
0e20 e00f       |    |		Load	0x0,0xf
0e21 1b3f       | ?  |		Execute	Package,Field_Read,Field_Number 0x3f
0e22 1b21       | !  |		Execute	Package,Field_Read,Field_Number 0x21
0e23 7801       |x   |		Jump	0xe25
0e24 00da       |    |		Load_Top	At_Offset_2
0e25 600e       |`   |		Indirect_Literal	Discrete,0xe34,{0x00000000, 0x00004000}
0e26 e010       |    |		Load	0x0,0x10
0e27 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0e28 4800       |H   |		Short_Literal	0x0
0e29 e5ff       |    |		Load	0x2,-0x1
0e2a e00f       |    |		Load	0x0,0xf
0e2b 1b3f       | ?  |		Execute	Package,Field_Read,Field_Number 0x3f
0e2c 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
0e2d c402       |    |		Store	0x2,0x2
0e2e 0059       | Y  |		Store_Top	Discrete,At_Offset_1
0e2f 00d9       |    |		Load_Top	At_Offset_1
0e30 e00f       |    |		Load	0x0,0xf
0e31 1b3f       | ?  |		Execute	Package,Field_Read,Field_Number 0x3f
0e32 182c       | ,  |		Execute	Package,Field_Execute,Field_Number 0x2c
0e33 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0e34 0000 0000  |    |		.LITERAL	{0x00000000, 0x00004000}
0e38 ; --------------------------------------------------------------------------------------
0e38 ; SUBPROGRAM
0e38 ; --------------------------------------------------------------------------------------
0e38 0e3d       | =  |		.CONST	0x0e3d								; Address of begin
0e39 0004       |    |		.CONST	0x0004								; Address of exception handler
0e3a 0002       |    |		.CONST	0x0002								; Number of locals
0e3b			INIT_0e38:
0e3b 00e1       |    |		Load_Encached	Boolean_Cache
0e3c 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0e3d			BODY_0e38:
0e3d e5fd       |    |		Load	0x2,-0x3
0e3e 6803       |h   |		Jump_Zero	0xe42
0e3f 4801       |H   |		Short_Literal	0x1
0e40 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
0e41 7803       |x   |		Jump	0xe45
0e42 4800       |H   |		Short_Literal	0x0
0e43 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
0e44 7800       |x   |		Jump	0xe45
0e45 0092 199d  |    |		Action	Push_String_Extended,0x199d					; "<PROFILE>"
0e47 4800       |H   |		Short_Literal	0x0
0e48 0092 19a4  |    |		Action	Push_String_Extended,0x19a4					; "<DEFAULT>"
0e4a e5f9       |    |		Load	0x2,-0x7
0e4b 4803       |H   |		Short_Literal	0x3
0e4c 4800       |H   |		Short_Literal	0x0
0e4d e5fc       |    |		Load	0x2,-0x4
0e4e e5fa       |    |		Load	0x2,-0x6
0e4f e602       |    |		Load	0x3,0x2
0e50 4800       |H   |		Short_Literal	0x0
0e51 4801       |H   |		Short_Literal	0x1
0e52 e5fb       |    |		Load	0x2,-0x5
0e53 00ea       |    |		Load_Encached	Null_String_Cache
0e54 e5ff       |    |		Load	0x2,-0x1
0e55 e5fe       |    |		Load	0x2,-0x2
0e56 e007       |    |		Load	0x0,0x7
0e57 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
0e58 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0e59 0000 0000  |    |		.BLANK	0000[0x7]
0e60 ; --------------------------------------------------------------------------------------
0e60 ; SUBPROGRAM
0e60 ; --------------------------------------------------------------------------------------
0e60 0e69       | i  |		.CONST	0x0e69								; Address of begin
0e61 0004       |    |		.CONST	0x0004								; Address of exception handler
0e62 0004       |    |		.CONST	0x0004								; Number of locals
0e63			INIT_0e60:
0e63 00e1       |    |		Load_Encached	Boolean_Cache
0e64 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0e65 00e1       |    |		Load_Encached	Boolean_Cache
0e66 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0e67 00e1       |    |		Load_Encached	Boolean_Cache
0e68 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0e69			BODY_0e60:
0e69 e5fb       |    |		Load	0x2,-0x5
0e6a 6807       |h   |		Jump_Zero	0xe72
0e6b 4800       |H   |		Short_Literal	0x0
0e6c 0053       | S  |		Store_Top_Uncheched	Discrete,At_Offset_3
0e6d 4800       |H   |		Short_Literal	0x0
0e6e 0052       | R  |		Store_Top_Unchecked	Discrete,At_Offset_2
0e6f 4801       |H   |		Short_Literal	0x1
0e70 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
0e71 7806       |x   |		Jump	0xe78
0e72 4800       |H   |		Short_Literal	0x0
0e73 0053       | S  |		Store_Top_Uncheched	Discrete,At_Offset_3
0e74 4801       |H   |		Short_Literal	0x1
0e75 0052       | R  |		Store_Top_Unchecked	Discrete,At_Offset_2
0e76 4800       |H   |		Short_Literal	0x0
0e77 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
0e78 0092 199d  |    |		Action	Push_String_Extended,0x199d					; "<PROFILE>"
0e7a 4800       |H   |		Short_Literal	0x0
0e7b 0092 19a4  |    |		Action	Push_String_Extended,0x19a4					; "<DEFAULT>"
0e7d e5f9       |    |		Load	0x2,-0x7
0e7e 4803       |H   |		Short_Literal	0x3
0e7f 4801       |H   |		Short_Literal	0x1
0e80 e5fa       |    |		Load	0x2,-0x6
0e81 6012       |`   |		Indirect_Literal	Discrete,0xe94,{0x00000000, 0x7fffffff}
0e82 e604       |    |		Load	0x3,0x4
0e83 e603       |    |		Load	0x3,0x3
0e84 e602       |    |		Load	0x3,0x2
0e85 4800       |H   |		Short_Literal	0x0
0e86 0092 19aa  |    |		Action	Push_String_Extended,0x19aa					; "<AUTO_GENERATE>"
0e88 e5fd       |    |		Load	0x2,-0x3
0e89 4801       |H   |		Short_Literal	0x1
0e8a e5fc       |    |		Load	0x2,-0x4
0e8b 00ea       |    |		Load_Encached	Null_String_Cache
0e8c e5ff       |    |		Load	0x2,-0x1
0e8d e5fe       |    |		Load	0x2,-0x2
0e8e e007       |    |		Load	0x0,0x7
0e8f 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
0e90 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0e91 0000 0000  |    |		.XXX[0x3]
0e93 0000       |    |
0e94 0000 0000  |    |		.LITERAL	{0x00000000, 0x7fffffff}
0e98 ; --------------------------------------------------------------------------------------
0e98 ; SUBPROGRAM
0e98 ; --------------------------------------------------------------------------------------
0e98 0ea5       |    |		.CONST	0x0ea5								; Address of begin
0e99 0004       |    |		.CONST	0x0004								; Address of exception handler
0e9a 0003       |    |		.CONST	0x0003								; Number of locals
0e9b			INIT_0e98:
0e9b e001       |    |		Load	0x0,0x1
0e9c 1829       | )  |		Execute	Package,Field_Execute,Field_Number 0x29
0e9d 4800       |H   |		Short_Literal	0x0
0e9e 00d9       |    |		Load_Top	At_Offset_1
0e9f 0092 19f7  |    |		Action	Push_String_Extended,0x19f7					; " "
0ea1 e00b       |    |		Load	0x0,0xb
0ea2 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
0ea3 00e3       |    |		Load_Encached	Natural_Cache
0ea4 03f1       |    |		Declare_Variable	Discrete,With_Value
0ea5			BODY_0e98:
0ea5 00d8       |    |		Load_Top	At_Offset_0
0ea6 0c01       |    |		Execute_Immediate	Greater_Equal,0x1
0ea7 6818       |h   |		Jump_Zero	0xec0
0ea8 4801       |H   |		Short_Literal	0x1
0ea9 00d9       |    |		Load_Top	At_Offset_1
0eaa 00db       |    |		Load_Top	At_Offset_3
0eab 01db       |    |		Execute	Vector,Length
0eac 00d8       |    |		Load_Top	At_Offset_0
0ead 00e2       |    |		Load_Encached	Integer_Cache
0eae 0260       | `  |		Execute	Discrete,In_Type
0eaf 7001       |p   |		Jump_Nonzero	0xeb1
0eb0 0801       |    |		Execute_Immediate	Raise,0x1
0eb1 e602       |    |		Load	0x3,0x2
0eb2 01cf       |    |		Execute	Vector,Slice_Read
0eb3 0092 19f8  |    |		Action	Push_String_Extended,0x19f8					; "Mailbox"
0eb5 e00b       |    |		Load	0x0,0xb
0eb6 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
0eb7 0c01       |    |		Execute_Immediate	Greater_Equal,0x1
0eb8 6807       |h   |		Jump_Zero	0xec0
0eb9 4801       |H   |		Short_Literal	0x1
0eba 4800       |H   |		Short_Literal	0x0
0ebb 0092 19d1  |    |		Action	Push_String_Extended,0x19d1					; "<CURSOR>"
0ebd e005       |    |		Load	0x0,0x5
0ebe 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0ebf 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0ec0 4801       |H   |		Short_Literal	0x1
0ec1 4800       |H   |		Short_Literal	0x0
0ec2 0092 19b8  |    |		Action	Push_String_Extended,0x19b8					; "<IMAGE>"
0ec4 e005       |    |		Load	0x0,0x5
0ec5 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0ec6 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0ec7 0000       |    |		.XXX[0x1]
0ec8 ; --------------------------------------------------------------------------------------
0ec8 ; SUBPROGRAM
0ec8 ; --------------------------------------------------------------------------------------
0ec8 0ecf       |    |		.CONST	0x0ecf								; Address of begin
0ec9 0004       |    |		.CONST	0x0004								; Address of exception handler
0eca 0002       |    |		.CONST	0x0002								; Number of locals
0ecb			INIT_0ec8:
0ecb 0092 19f9  |    |		Action	Push_String_Extended,0x19f9					; "<Selection>"
0ecd e001       |    |		Load	0x0,0x1
0ece 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0ecf			BODY_0ec8:
0ecf 00d8       |    |		Load_Top	At_Offset_0
0ed0 0092 19af  |    |		Action	Push_String_Extended,0x19af					; "<>"
0ed2 01df       |    |		Execute	Vector,Equal
0ed3 680e       |h   |		Jump_Zero	0xee2
0ed4 00ea       |    |		Load_Encached	Null_String_Cache
0ed5 00ea       |    |		Load_Encached	Null_String_Cache
0ed6 0092 1997  |    |		Action	Push_String_Extended,0x1997					; "Name:"
0ed8 0092 19a5  |    |		Action	Push_String_Extended,0x19a5					; "<Cursor>"
0eda e001       |    |		Load	0x0,0x1
0edb 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0edc 0092 19b9  |    |		Action	Push_String_Extended,0x19b9					; "Open"
0ede 4ace       |J   |		Short_Literal	0x2ce
0edf e002       |    |		Load	0x0,0x2
0ee0 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
0ee1 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0ee2 4801       |H   |		Short_Literal	0x1
0ee3 00d9       |    |		Load_Top	At_Offset_1
0ee4 822f       | /  |		Call	0x1,0x2f
0ee5 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0ee6 0000 0000  |    |		.XXX[0x2]
0ee8 ; --------------------------------------------------------------------------------------
0ee8 ; SUBPROGRAM
0ee8 ; --------------------------------------------------------------------------------------
0ee8 0f98       |    |		.CONST	0x0f98								; Address of begin
0ee9 0fd8       |    |		.CONST	0x0fd8								; Address of exception handler
0eea 0019       |    |		.CONST	0x0019								; Number of locals
0eeb			INIT_0ee8:
0eeb e00f       |    |		Load	0x0,0xf
0eec 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0eed 02c7       |    |		Declare_Variable	Any
0eee 0092 19a5  |    |		Action	Push_String_Extended,0x19a5					; "<Cursor>"
0ef0 e001       |    |		Load	0x0,0x1
0ef1 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0ef2 a602       |    |		Store_Unchecked	0x3,0x2
0ef3 00d8       |    |		Load_Top	At_Offset_0
0ef4 e00f       |    |		Load	0x0,0xf
0ef5 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0ef6 183e       | >  |		Execute	Package,Field_Execute,Field_Number 0x3e
0ef7 e00f       |    |		Load	0x0,0xf
0ef8 1b3f       | ?  |		Execute	Package,Field_Read,Field_Number 0x3f
0ef9 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0efa 02c7       |    |		Declare_Variable	Any
0efb 00da       |    |		Load_Top	At_Offset_2
0efc e001       |    |		Load	0x0,0x1
0efd 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0efe a604       |    |		Store_Unchecked	0x3,0x4
0eff e00f       |    |		Load	0x0,0xf
0f00 1b3f       | ?  |		Execute	Package,Field_Read,Field_Number 0x3f
0f01 1b21       | !  |		Execute	Package,Field_Read,Field_Number 0x21
0f02 02c7       |    |		Declare_Variable	Any
0f03 00db       |    |		Load_Top	At_Offset_3
0f04 e001       |    |		Load	0x0,0x1
0f05 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0f06 a605       |    |		Store_Unchecked	0x3,0x5
0f07 00db       |    |		Load_Top	At_Offset_3
0f08 e001       |    |		Load	0x0,0x1
0f09 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0f0a e001       |    |		Load	0x0,0x1
0f0b 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
0f0c 03f1       |    |		Declare_Variable	Discrete,With_Value
0f0d 00d8       |    |		Load_Top	At_Offset_0
0f0e e001       |    |		Load	0x0,0x1
0f0f 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
0f10 011c       |    |		Execute	Any,Convert_Unchecked
0f11 1c01       |    |		Execute_Immediate	Run_Utility,0x1
0f12 e602       |    |		Load	0x3,0x2
0f13 e001       |    |		Load	0x0,0x1
0f14 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
0f15 e001       |    |		Load	0x0,0x1
0f16 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
0f17 03f1       |    |		Declare_Variable	Discrete,With_Value
0f18 00d8       |    |		Load_Top	At_Offset_0
0f19 e001       |    |		Load	0x0,0x1
0f1a 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
0f1b 011c       |    |		Execute	Any,Convert_Unchecked
0f1c 1c01       |    |		Execute_Immediate	Run_Utility,0x1
0f1d e602       |    |		Load	0x3,0x2
0f1e e00f       |    |		Load	0x0,0xf
0f1f 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0f20 1838       | 8  |		Execute	Package,Field_Execute,Field_Number 0x38
0f21 e021       | !  |		Load	0x0,0x21
0f22 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0f23 e605       |    |		Load	0x3,0x5
0f24 e00f       |    |		Load	0x0,0xf
0f25 1b3f       | ?  |		Execute	Package,Field_Read,Field_Number 0x3f
0f26 182a       | *  |		Execute	Package,Field_Execute,Field_Number 0x2a
0f27 00e1       |    |		Load_Encached	Boolean_Cache
0f28 011c       |    |		Execute	Any,Convert_Unchecked
0f29 1c01       |    |		Execute_Immediate	Run_Utility,0x1
0f2a 0092 19fa  |    |		Action	Push_String_Extended,0x19fa					; "Creator => "
0f2c e604       |    |		Load	0x3,0x4
0f2d e00f       |    |		Load	0x0,0xf
0f2e 1b3f       | ?  |		Execute	Package,Field_Read,Field_Number 0x3f
0f2f 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
0f30 e00f       |    |		Load	0x0,0xf
0f31 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0f32 183b       | ;  |		Execute	Package,Field_Execute,Field_Number 0x3b
0f33 01cc       |    |		Execute	Vector,Catenate
0f34 0007       |    |		Action	Break_Optional
0f35 e022       | "  |		Load	0x0,0x22
0f36 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
0f37 0322       | "  |		Declare_Variable	Record
0f38 e604       |    |		Load	0x3,0x4
0f39 e00f       |    |		Load	0x0,0xf
0f3a 1b3f       | ?  |		Execute	Package,Field_Read,Field_Number 0x3f
0f3b 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0f3c e022       | "  |		Load	0x0,0x22
0f3d 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0f3e 00d9       |    |		Load_Top	At_Offset_1
0f3f 017d       | }  |		Execute	Record,Structure_Write
0f40 0092 19fb  |    |		Action	Push_String_Extended,0x19fb					; "Create Date => "
0f42 4802       |H   |		Short_Literal	0x2
0f43 4800       |H   |		Short_Literal	0x0
0f44 4800       |H   |		Short_Literal	0x0
0f45 e60d       |    |		Load	0x3,0xd
0f46 e022       | "  |		Load	0x0,0x22
0f47 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0f48 01cc       |    |		Execute	Vector,Catenate
0f49 0007       |    |		Action	Break_Optional
0f4a 0092 19fc  |    |		Action	Push_String_Extended,0x19fc					; "Subclass => "
0f4c e609       |    |		Load	0x3,0x9
0f4d 01cc       |    |		Execute	Vector,Catenate
0f4e 0007       |    |		Action	Break_Optional
0f4f 0092 19fd  |    |		Action	Push_String_Extended,0x19fd					; "Total Size => "
0f51 4820       |H   |		Short_Literal	0x20
0f52 4800       |H   |		Short_Literal	0x0
0f53 480a       |H   |		Short_Literal	0xa
0f54 e604       |    |		Load	0x3,0x4
0f55 e00f       |    |		Load	0x0,0xf
0f56 1b3f       | ?  |		Execute	Package,Field_Read,Field_Number 0x3f
0f57 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0f58 e00b       |    |		Load	0x0,0xb
0f59 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
0f5a 01cc       |    |		Execute	Vector,Catenate
0f5b 0007       |    |		Action	Break_Optional
0f5c e605       |    |		Load	0x3,0x5
0f5d e00f       |    |		Load	0x0,0xf
0f5e 1b3f       | ?  |		Execute	Package,Field_Read,Field_Number 0x3f
0f5f 182c       | ,  |		Execute	Package,Field_Execute,Field_Number 0x2c
0f60 00e1       |    |		Load_Encached	Boolean_Cache
0f61 03f1       |    |		Declare_Variable	Discrete,With_Value
0f62 00d8       |    |		Load_Top	At_Offset_0
0f63 00e1       |    |		Load_Encached	Boolean_Cache
0f64 011c       |    |		Execute	Any,Convert_Unchecked
0f65 1c01       |    |		Execute_Immediate	Run_Utility,0x1
0f66 e605       |    |		Load	0x3,0x5
0f67 e00f       |    |		Load	0x0,0xf
0f68 1b3f       | ?  |		Execute	Package,Field_Read,Field_Number 0x3f
0f69 1834       | 4  |		Execute	Package,Field_Execute,Field_Number 0x34
0f6a 00e1       |    |		Load_Encached	Boolean_Cache
0f6b 011c       |    |		Execute	Any,Convert_Unchecked
0f6c 1c01       |    |		Execute_Immediate	Run_Utility,0x1
0f6d e605       |    |		Load	0x3,0x5
0f6e e00f       |    |		Load	0x0,0xf
0f6f 1b3f       | ?  |		Execute	Package,Field_Read,Field_Number 0x3f
0f70 1834       | 4  |		Execute	Package,Field_Execute,Field_Number 0x34
0f71 0f00       |    |		Execute_Immediate	Equal,0x0
0f72 00e1       |    |		Load_Encached	Boolean_Cache
0f73 011c       |    |		Execute	Any,Convert_Unchecked
0f74 1c01       |    |		Execute_Immediate	Run_Utility,0x1
0f75 0092 19fe  |    |		Action	Push_String_Extended,0x19fe					; "Updater => "
0f77 e604       |    |		Load	0x3,0x4
0f78 e00f       |    |		Load	0x0,0xf
0f79 1b3f       | ?  |		Execute	Package,Field_Read,Field_Number 0x3f
0f7a 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0f7b e00f       |    |		Load	0x0,0xf
0f7c 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0f7d 183b       | ;  |		Execute	Package,Field_Execute,Field_Number 0x3b
0f7e 01cc       |    |		Execute	Vector,Catenate
0f7f 0007       |    |		Action	Break_Optional
0f80 e022       | "  |		Load	0x0,0x22
0f81 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
0f82 0322       | "  |		Declare_Variable	Record
0f83 e604       |    |		Load	0x3,0x4
0f84 e00f       |    |		Load	0x0,0xf
0f85 1b3f       | ?  |		Execute	Package,Field_Read,Field_Number 0x3f
0f86 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0f87 e022       | "  |		Load	0x0,0x22
0f88 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0f89 00d9       |    |		Load_Top	At_Offset_1
0f8a 017d       | }  |		Execute	Record,Structure_Write
0f8b 0092 19ff  |    |		Action	Push_String_Extended,0x19ff					; "Update Date => "
0f8d 4802       |H   |		Short_Literal	0x2
0f8e 4800       |H   |		Short_Literal	0x0
0f8f 4800       |H   |		Short_Literal	0x0
0f90 e616       |    |		Load	0x3,0x16
0f91 e022       | "  |		Load	0x0,0x22
0f92 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0f93 01cc       |    |		Execute	Vector,Catenate
0f94 029f 15eb  |    |		Declare_Subprogram	INIT_15e8,For_Call
0f96 029f 173b  |   ;|		Declare_Subprogram	INIT_1738,For_Call
0f98			BODY_0ee8:
0f98 e602       |    |		Load	0x3,0x2
0f99 e00f       |    |		Load	0x0,0xf
0f9a 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0f9b 6805       |h   |		Jump_Zero	0xfa1
0f9c 0092 1a00  |    |		Action	Push_String_Extended,0x1a00					; "No object selected"
0f9e 825d       | ]  |		Call	0x1,0x5d
0f9f 00cc       |    |		Action	Pop_Block
0fa0 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0fa1 e606       |    |		Load	0x3,0x6
0fa2 460f       |F   |		Jump_Case	0x10
0fa3 780f       |x   |		Jump	0xfb3								; case 0x0
0fa4 782c       |x,  |		Jump	0xfd1								; case 0x1
0fa5 7829       |x)  |		Jump	0xfcf								; case 0x2
0fa6 782a       |x*  |		Jump	0xfd1								; case 0x3
0fa7 780b       |x   |		Jump	0xfb3								; case 0x4
0fa8 780a       |x   |		Jump	0xfb3								; case 0x5
0fa9 7809       |x   |		Jump	0xfb3								; case 0x6
0faa 7808       |x   |		Jump	0xfb3								; case 0x7
0fab 7827       |x'  |		Jump	0xfd3								; case 0x8
0fac 7806       |x   |		Jump	0xfb3								; case 0x9
0fad 7805       |x   |		Jump	0xfb3								; case 0xa
0fae 7804       |x   |		Jump	0xfb3								; case 0xb
0faf 7803       |x   |		Jump	0xfb3								; case 0xc
0fb0 7802       |x   |		Jump	0xfb3								; case 0xd
0fb1 7801       |x   |		Jump	0xfb3								; case 0xe
0fb2 7800       |x   |		Jump	0xfb3								; case 0xf
0fb3 00ea       |    |		Load_Encached	Null_String_Cache
0fb4 00ea       |    |		Load_Encached	Null_String_Cache
0fb5 e60c       |    |		Load	0x3,0xc
0fb6 0092 1a01  |    |		Action	Push_String_Extended,0x1a01					; "\x5c"
0fb8 01cc       |    |		Execute	Vector,Catenate
0fb9 e60e       |    |		Load	0x3,0xe
0fba 01cc       |    |		Execute	Vector,Catenate
0fbb 0092 1a01  |    |		Action	Push_String_Extended,0x1a01					; "\x5c"
0fbd 01cc       |    |		Execute	Vector,Catenate
0fbe e609       |    |		Load	0x3,0x9
0fbf 01cc       |    |		Execute	Vector,Catenate
0fc0 0092 1a01  |    |		Action	Push_String_Extended,0x1a01					; "\x5c"
0fc2 01cc       |    |		Execute	Vector,Catenate
0fc3 e610       |    |		Load	0x3,0x10
0fc4 01cc       |    |		Execute	Vector,Catenate
0fc5 e614       |    |		Load	0x3,0x14
0fc6 e612       |    |		Load	0x3,0x12
0fc7 e60b       |    |		Load	0x3,0xb
0fc8 e60a       |    |		Load	0x3,0xa
0fc9 e603       |    |		Load	0x3,0x3
0fca 4af1       |J   |		Short_Literal	0x2f1
0fcb 4818       |H   |		Short_Literal	0x18
0fcc e002       |    |		Load	0x0,0x2
0fcd 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0fce 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0fcf 8618       |    |		Call	0x3,0x18
0fd0 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0fd1 8619       |    |		Call	0x3,0x19
0fd2 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0fd3 0092 1a02  |    |		Action	Push_String_Extended,0x1a02					; "<SESSION>"
0fd5 e009       |    |		Load	0x0,0x9
0fd6 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
0fd7 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0fd8			TRAP_0ee8:
0fd8 e021       | !  |		Load	0x0,0x21
0fd9 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
0fda 010f       |    |		Execute	Exception,Equal
0fdb 6804       |h   |		Jump_Zero	0xfe0
0fdc 0092 1a03  |    |		Action	Push_String_Extended,0x1a03					; "Error getting access list"
0fde 825d       | ]  |		Call	0x1,0x5d
0fdf 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0fe0 0100       |    |		Execute	Exception,Raise
0fe1 0000 0000  |    |		.BLANK	0000[0x7]
0fe8 ; --------------------------------------------------------------------------------------
0fe8 ; SUBPROGRAM
0fe8 ; --------------------------------------------------------------------------------------
0fe8 1007       |    |		.CONST	0x1007								; Address of begin
0fe9 0004       |    |		.CONST	0x0004								; Address of exception handler
0fea 0006       |    |		.CONST	0x0006								; Number of locals
0feb			INIT_0fe8:
0feb e402       |    |		Load	0x2,0x2
0fec e00f       |    |		Load	0x0,0xf
0fed 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0fee 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
0fef e00f       |    |		Load	0x0,0xf
0ff0 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0ff1 02c7       |    |		Declare_Variable	Any
0ff2 0092 19a5  |    |		Action	Push_String_Extended,0x19a5					; "<Cursor>"
0ff4 e001       |    |		Load	0x0,0x1
0ff5 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0ff6 a603       |    |		Store_Unchecked	0x3,0x3
0ff7 e00f       |    |		Load	0x0,0xf
0ff8 1b3f       | ?  |		Execute	Package,Field_Read,Field_Number 0x3f
0ff9 1b21       | !  |		Execute	Package,Field_Read,Field_Number 0x21
0ffa 02c7       |    |		Declare_Variable	Any
0ffb 00d9       |    |		Load_Top	At_Offset_1
0ffc e001       |    |		Load	0x0,0x1
0ffd 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0ffe a604       |    |		Store_Unchecked	0x3,0x4
0fff e00f       |    |		Load	0x0,0xf
1000 1b3d       | =  |		Execute	Package,Field_Read,Field_Number 0x3d
1001 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
1002 02c7       |    |		Declare_Variable	Any
1003 00d8       |    |		Load_Top	At_Offset_0
1004 1c00       |    |		Execute_Immediate	Run_Utility,0x0
1005 e00f       |    |		Load	0x0,0xf
1006 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
1007			BODY_0fe8:
1007 e00f       |    |		Load	0x0,0xf
1008 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
1009 00da       |    |		Load_Top	At_Offset_2
100a 0120       |    |		Execute	Any,Is_Value
100b 6804       |h   |		Jump_Zero	0x1010
100c e00f       |    |		Load	0x0,0xf
100d 1b3d       | =  |		Execute	Package,Field_Read,Field_Number 0x3d
100e 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
100f 7801       |x   |		Jump	0x1011
1010 00da       |    |		Load_Top	At_Offset_2
1011 e603       |    |		Load	0x3,0x3
1012 e00f       |    |		Load	0x0,0xf
1013 1b3d       | =  |		Execute	Package,Field_Read,Field_Number 0x3d
1014 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
1015 c605       |    |		Store	0x3,0x5
1016 0059       | Y  |		Store_Top	Discrete,At_Offset_1
1017 4801       |H   |		Short_Literal	0x1
1018 e5fe       |    |		Load	0x2,-0x2
1019 e602       |    |		Load	0x3,0x2
101a e021       | !  |		Load	0x0,0x21
101b 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
101c e00b       |    |		Load	0x0,0xb
101d 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
101e 7006       |p   |		Jump_Nonzero	0x1025
101f 0092 199d  |    |		Action	Push_String_Extended,0x199d					; "<PROFILE>"
1021 e602       |    |		Load	0x3,0x2
1022 e5fe       |    |		Load	0x2,-0x2
1023 e023       | #  |		Load	0x0,0x23
1024 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
1025 e5fd       |    |		Load	0x2,-0x3
1026 0f01       |    |		Execute_Immediate	Equal,0x1
1027 700c       |p   |		Jump_Nonzero	0x1034
1028 00da       |    |		Load_Top	At_Offset_2
1029 e00f       |    |		Load	0x0,0xf
102a 1b3f       | ?  |		Execute	Package,Field_Read,Field_Number 0x3f
102b 182a       | *  |		Execute	Package,Field_Execute,Field_Number 0x2a
102c 6812       |h   |		Jump_Zero	0x103f
102d 0092 199d  |    |		Action	Push_String_Extended,0x199d					; "<PROFILE>"
102f 4801       |H   |		Short_Literal	0x1
1030 e602       |    |		Load	0x3,0x2
1031 e006       |    |		Load	0x0,0x6
1032 181f       |    |		Execute	Package,Field_Execute,Field_Number 0x1f
1033 780b       |x   |		Jump	0x103f
1034 00da       |    |		Load_Top	At_Offset_2
1035 e00f       |    |		Load	0x0,0xf
1036 1b3f       | ?  |		Execute	Package,Field_Read,Field_Number 0x3f
1037 182a       | *  |		Execute	Package,Field_Execute,Field_Number 0x2a
1038 7006       |p   |		Jump_Nonzero	0x103f
1039 0092 199d  |    |		Action	Push_String_Extended,0x199d					; "<PROFILE>"
103b 4801       |H   |		Short_Literal	0x1
103c e602       |    |		Load	0x3,0x2
103d e006       |    |		Load	0x0,0x6
103e 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
103f e5fc       |    |		Load	0x2,-0x4
1040 0f01       |    |		Execute_Immediate	Equal,0x1
1041 7023       |p#  |		Jump_Nonzero	0x1065
1042 00d9       |    |		Load_Top	At_Offset_1
1043 e00f       |    |		Load	0x0,0xf
1044 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
1045 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
1046 e001       |    |		Load	0x0,0x1
1047 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
1048 e001       |    |		Load	0x0,0x1
1049 1828       | (  |		Execute	Package,Field_Execute,Field_Number 0x28
104a 6839       |h9  |		Jump_Zero	0x1084
104b e602       |    |		Load	0x3,0x2
104c e008       |    |		Load	0x0,0x8
104d 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
104e 6835       |h5  |		Jump_Zero	0x1084
104f 0092 19a5  |    |		Action	Push_String_Extended,0x19a5					; "<Cursor>"
1051 e008       |    |		Load	0x0,0x8
1052 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
1053 6808       |h   |		Jump_Zero	0x105c
1054 0092 199d  |    |		Action	Push_String_Extended,0x199d					; "<PROFILE>"
1056 0092 19a4  |    |		Action	Push_String_Extended,0x19a4					; "<DEFAULT>"
1058 00ea       |    |		Load_Encached	Null_String_Cache
1059 e602       |    |		Load	0x3,0x2
105a e007       |    |		Load	0x0,0x7
105b 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
105c 0092 199d  |    |		Action	Push_String_Extended,0x199d					; "<PROFILE>"
105e 0092 19a4  |    |		Action	Push_String_Extended,0x19a4					; "<DEFAULT>"
1060 00ea       |    |		Load_Encached	Null_String_Cache
1061 e602       |    |		Load	0x3,0x2
1062 e007       |    |		Load	0x0,0x7
1063 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
1064 781f       |x   |		Jump	0x1084
1065 00d9       |    |		Load_Top	At_Offset_1
1066 e00f       |    |		Load	0x0,0xf
1067 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
1068 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
1069 e001       |    |		Load	0x0,0x1
106a 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
106b e001       |    |		Load	0x0,0x1
106c 1828       | (  |		Execute	Package,Field_Execute,Field_Number 0x28
106d 6812       |h   |		Jump_Zero	0x1080
106e e602       |    |		Load	0x3,0x2
106f e008       |    |		Load	0x0,0x8
1070 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
1071 7012       |p   |		Jump_Nonzero	0x1084
1072 0092 199d  |    |		Action	Push_String_Extended,0x199d					; "<PROFILE>"
1074 0092 19a4  |    |		Action	Push_String_Extended,0x19a4					; "<DEFAULT>"
1076 00ea       |    |		Load_Encached	Null_String_Cache
1077 4801       |H   |		Short_Literal	0x1
1078 0092 1a04  |    |		Action	Push_String_Extended,0x1a04					; "<NONE>"
107a 0092 19aa  |    |		Action	Push_String_Extended,0x19aa					; "<AUTO_GENERATE>"
107c e602       |    |		Load	0x3,0x2
107d e007       |    |		Load	0x0,0x7
107e 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
107f 7804       |x   |		Jump	0x1084
1080 0092 1a05  |    |		Action	Push_String_Extended,0x1a05					; "Object is not in a subsystem view"
1082 e024       | $  |		Load	0x0,0x24
1083 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
1084 e5fb       |    |		Load	0x2,-0x5
1085 0f01       |    |		Execute_Immediate	Equal,0x1
1086 701a       |p   |		Jump_Nonzero	0x10a1
1087 00d9       |    |		Load_Top	At_Offset_1
1088 e00f       |    |		Load	0x0,0xf
1089 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
108a 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
108b e001       |    |		Load	0x0,0x1
108c 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
108d e001       |    |		Load	0x0,0x1
108e 1828       | (  |		Execute	Package,Field_Execute,Field_Number 0x28
108f 6810       |h   |		Jump_Zero	0x10a0
1090 e602       |    |		Load	0x3,0x2
1091 e008       |    |		Load	0x0,0x8
1092 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
1093 680c       |h   |		Jump_Zero	0x10a0
1094 e602       |    |		Load	0x3,0x2
1095 e008       |    |		Load	0x0,0x8
1096 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
1097 6808       |h   |		Jump_Zero	0x10a0
1098 0092 199d  |    |		Action	Push_String_Extended,0x199d					; "<PROFILE>"
109a 0092 19a4  |    |		Action	Push_String_Extended,0x19a4					; "<DEFAULT>"
109c 00ea       |    |		Load_Encached	Null_String_Cache
109d e602       |    |		Load	0x3,0x2
109e e007       |    |		Load	0x0,0x7
109f 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
10a0 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
10a1 00d9       |    |		Load_Top	At_Offset_1
10a2 e00f       |    |		Load	0x0,0xf
10a3 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
10a4 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
10a5 e001       |    |		Load	0x0,0x1
10a6 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
10a7 e001       |    |		Load	0x0,0x1
10a8 1828       | (  |		Execute	Package,Field_Execute,Field_Number 0x28
10a9 681c       |h   |		Jump_Zero	0x10c6
10aa e602       |    |		Load	0x3,0x2
10ab e008       |    |		Load	0x0,0x8
10ac 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
10ad 6813       |h   |		Jump_Zero	0x10c1
10ae e602       |    |		Load	0x3,0x2
10af e008       |    |		Load	0x0,0x8
10b0 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
10b1 700e       |p   |		Jump_Nonzero	0x10c0
10b2 0092 199d  |    |		Action	Push_String_Extended,0x199d					; "<PROFILE>"
10b4 0092 19a4  |    |		Action	Push_String_Extended,0x19a4					; "<DEFAULT>"
10b6 0092 19bb  |    |		Action	Push_String_Extended,0x19bb					; "<TOMORROW>"
10b8 4803       |H   |		Short_Literal	0x3
10b9 4801       |H   |		Short_Literal	0x1
10ba 4800       |H   |		Short_Literal	0x0
10bb 4801       |H   |		Short_Literal	0x1
10bc 00ea       |    |		Load_Encached	Null_String_Cache
10bd e602       |    |		Load	0x3,0x2
10be e007       |    |		Load	0x0,0x7
10bf 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
10c0 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
10c1 0092 1a06  |    |		Action	Push_String_Extended,0x1a06					; "Object is not controlled"
10c3 e024       | $  |		Load	0x0,0x24
10c4 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
10c5 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
10c6 0092 1a05  |    |		Action	Push_String_Extended,0x1a05					; "Object is not in a subsystem view"
10c8 e024       | $  |		Load	0x0,0x24
10c9 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
10ca 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
10cb 0000 0000  |    |		.BLANK	0000[0x5]
10d0 ; --------------------------------------------------------------------------------------
10d0 ; SUBPROGRAM
10d0 ; --------------------------------------------------------------------------------------
10d0 10de       |    |		.CONST	0x10de								; Address of begin
10d1 0004       |    |		.CONST	0x0004								; Address of exception handler
10d2 0004       |    |		.CONST	0x0004								; Number of locals
10d3			INIT_10d0:
10d3 e00f       |    |		Load	0x0,0xf
10d4 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
10d5 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
10d6 02c7       |    |		Declare_Variable	Any
10d7 00d8       |    |		Load_Top	At_Offset_0
10d8 1c00       |    |		Execute_Immediate	Run_Utility,0x0
10d9 e00f       |    |		Load	0x0,0xf
10da 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
10db 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
10dc 029f 17a3  |    |		Declare_Subprogram	INIT_17a0,For_Call
10de			BODY_10d0:
10de e00f       |    |		Load	0x0,0xf
10df 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
10e0 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
10e1 00db       |    |		Load_Top	At_Offset_3
10e2 6025       |`%  |		Indirect_Literal	Discrete,0x1108,{0x00000000, 0x00004000}
10e3 e010       |    |		Load	0x0,0x10
10e4 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
10e5 e011       |    |		Load	0x0,0x11
10e6 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
10e7 e012       |    |		Load	0x0,0x12
10e8 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
10e9 4801       |H   |		Short_Literal	0x1
10ea 4800       |H   |		Short_Literal	0x0
10eb e011       |    |		Load	0x0,0x11
10ec 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
10ed e00f       |    |		Load	0x0,0xf
10ee 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
10ef 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
10f0 e5ff       |    |		Load	0x2,-0x1
10f1 e00f       |    |		Load	0x0,0xf
10f2 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
10f3 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
10f4 c602       |    |		Store	0x3,0x2
10f5 005a       | Z  |		Store_Top	Discrete,At_Offset_2
10f6 00cf       |    |		Action	Mark_Auxiliary
10f7 7807       |x   |		Jump	0x10ff
10f8 8604       |    |		Call	0x3,0x4
10f9 00db       |    |		Load_Top	At_Offset_3
10fa e00f       |    |		Load	0x0,0xf
10fb 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
10fc 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
10fd c602       |    |		Store	0x3,0x2
10fe 00c9       |    |		Action	Pop_Auxiliary_Loop
10ff 00db       |    |		Load_Top	At_Offset_3
1100 e00f       |    |		Load	0x0,0xf
1101 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
1102 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
1103 6ff4       |o   |		Jump_Zero	0x10f8
1104 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
1105 0000 0000  |    |		.XXX[0x3]
1107 0000       |    |
1108 0000 0000  |    |		.LITERAL	{0x00000000, 0x00004000}
110c 0000 0000  |    |		.BLANK	0000[0x4]
1110 ; --------------------------------------------------------------------------------------
1110 ; SUBPROGRAM
1110 ; --------------------------------------------------------------------------------------
1110 1127       | '  |		.CONST	0x1127								; Address of begin
1111 0004       |    |		.CONST	0x0004								; Address of exception handler
1112 0004       |    |		.CONST	0x0004								; Number of locals
1113			INIT_1110:
1113 e402       |    |		Load	0x2,0x2
1114 e00f       |    |		Load	0x0,0xf
1115 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
1116 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
1117 e00f       |    |		Load	0x0,0xf
1118 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
1119 02c7       |    |		Declare_Variable	Any
111a 0092 19a5  |    |		Action	Push_String_Extended,0x19a5					; "<Cursor>"
111c e001       |    |		Load	0x0,0x1
111d 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
111e a603       |    |		Store_Unchecked	0x3,0x3
111f e00f       |    |		Load	0x0,0xf
1120 1b3f       | ?  |		Execute	Package,Field_Read,Field_Number 0x3f
1121 1b21       | !  |		Execute	Package,Field_Read,Field_Number 0x21
1122 02c7       |    |		Declare_Variable	Any
1123 00d9       |    |		Load_Top	At_Offset_1
1124 e001       |    |		Load	0x0,0x1
1125 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
1126 a604       |    |		Store_Unchecked	0x3,0x4
1127			BODY_1110:
1127 00da       |    |		Load_Top	At_Offset_2
1128 e001       |    |		Load	0x0,0x1
1129 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
112a 6835       |h5  |		Jump_Zero	0x1160
112b e5fe       |    |		Load	0x2,-0x2
112c 0f01       |    |		Execute_Immediate	Equal,0x1
112d 700c       |p   |		Jump_Nonzero	0x113a
112e 00d8       |    |		Load_Top	At_Offset_0
112f e00f       |    |		Load	0x0,0xf
1130 1b3f       | ?  |		Execute	Package,Field_Read,Field_Number 0x3f
1131 182a       | *  |		Execute	Package,Field_Execute,Field_Number 0x2a
1132 6812       |h   |		Jump_Zero	0x1145
1133 0092 199d  |    |		Action	Push_String_Extended,0x199d					; "<PROFILE>"
1135 4801       |H   |		Short_Literal	0x1
1136 e602       |    |		Load	0x3,0x2
1137 e006       |    |		Load	0x0,0x6
1138 181f       |    |		Execute	Package,Field_Execute,Field_Number 0x1f
1139 780b       |x   |		Jump	0x1145
113a 00d8       |    |		Load_Top	At_Offset_0
113b e00f       |    |		Load	0x0,0xf
113c 1b3f       | ?  |		Execute	Package,Field_Read,Field_Number 0x3f
113d 182a       | *  |		Execute	Package,Field_Execute,Field_Number 0x2a
113e 7006       |p   |		Jump_Nonzero	0x1145
113f 0092 199d  |    |		Action	Push_String_Extended,0x199d					; "<PROFILE>"
1141 4801       |H   |		Short_Literal	0x1
1142 e602       |    |		Load	0x3,0x2
1143 e006       |    |		Load	0x0,0x6
1144 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
1145 4800       |H   |		Short_Literal	0x0
1146 00ea       |    |		Load_Encached	Null_String_Cache
1147 4820       |H   |		Short_Literal	0x20
1148 4820       |H   |		Short_Literal	0x20
1149 e5fd       |    |		Load	0x2,-0x3
114a e00b       |    |		Load	0x0,0xb
114b 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
114c e00b       |    |		Load	0x0,0xb
114d 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
114e e00b       |    |		Load	0x0,0xb
114f 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
1150 700f       |p   |		Jump_Nonzero	0x1160
1151 e5fd       |    |		Load	0x2,-0x3
1152 e001       |    |		Load	0x0,0x1
1153 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
1154 6807       |h   |		Jump_Zero	0x115c
1155 0092 199d  |    |		Action	Push_String_Extended,0x199d					; "<PROFILE>"
1157 00db       |    |		Load_Top	At_Offset_3
1158 e5fd       |    |		Load	0x2,-0x3
1159 e009       |    |		Load	0x0,0x9
115a 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
115b 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
115c 0092 1a07  |    |		Action	Push_String_Extended,0x1a07					; "Switch file does not exist"
115e e024       | $  |		Load	0x0,0x24
115f 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
1160 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
1161 0000 0000  |    |		.BLANK	0000[0x7]
1168 ; --------------------------------------------------------------------------------------
1168 ; SUBPROGRAM
1168 ; --------------------------------------------------------------------------------------
1168 1181       |    |		.CONST	0x1181								; Address of begin
1169 0004       |    |		.CONST	0x0004								; Address of exception handler
116a 0007       |    |		.CONST	0x0007								; Number of locals
116b			INIT_1168:
116b e00f       |    |		Load	0x0,0xf
116c 1b1d       |    |		Execute	Package,Field_Read,Field_Number 0x1d
116d 02c7       |    |		Declare_Variable	Any
116e 00d8       |    |		Load_Top	At_Offset_0
116f 1c00       |    |		Execute_Immediate	Run_Utility,0x0
1170 00e1       |    |		Load_Encached	Boolean_Cache
1171 e00f       |    |		Load	0x0,0xf
1172 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
1173 02c7       |    |		Declare_Variable	Any
1174 00d8       |    |		Load_Top	At_Offset_0
1175 1c00       |    |		Execute_Immediate	Run_Utility,0x0
1176 e00f       |    |		Load	0x0,0xf
1177 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
1178 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
1179 02c7       |    |		Declare_Variable	Any
117a 00d8       |    |		Load_Top	At_Offset_0
117b 1c00       |    |		Execute_Immediate	Run_Utility,0x0
117c e00f       |    |		Load	0x0,0xf
117d 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
117e 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
117f e00f       |    |		Load	0x0,0xf
1180 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
1181			BODY_1168:
1181 e7ff       |    |		Load	0x3,-0x1
1182 e00f       |    |		Load	0x0,0xf
1183 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
1184 c602       |    |		Store	0x3,0x2
1185 e602       |    |		Load	0x3,0x2
1186 e00f       |    |		Load	0x0,0xf
1187 1b3d       | =  |		Execute	Package,Field_Read,Field_Number 0x3d
1188 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
1189 012f       | /  |		Execute	Any,Equal
118a a603       |    |		Store_Unchecked	0x3,0x3
118b e603       |    |		Load	0x3,0x3
118c 68a1       |h   |		Jump_Zero	0x122e
118d e00f       |    |		Load	0x0,0xf
118e 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
118f 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
1190 00db       |    |		Load_Top	At_Offset_3
1191 60a2       |`   |		Indirect_Literal	Discrete,0x1234,{0x00000000, 0x00004000}
1192 e010       |    |		Load	0x0,0x10
1193 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
1194 e011       |    |		Load	0x0,0x11
1195 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
1196 e012       |    |		Load	0x0,0x12
1197 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
1198 4801       |H   |		Short_Literal	0x1
1199 4800       |H   |		Short_Literal	0x0
119a e011       |    |		Load	0x0,0x11
119b 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
119c e00f       |    |		Load	0x0,0xf
119d 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
119e 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
119f 0092 1a08  |    |		Action	Push_String_Extended,0x1a08					; "{"
11a1 e7ff       |    |		Load	0x3,-0x1
11a2 e00f       |    |		Load	0x0,0xf
11a3 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
11a4 1838       | 8  |		Execute	Package,Field_Execute,Field_Number 0x38
11a5 01cc       |    |		Execute	Vector,Catenate
11a6 0092 1a09  |    |		Action	Push_String_Extended,0x1a09					; ".@['c(~library)?,'c(library)]}"
11a8 01cc       |    |		Execute	Vector,Catenate
11a9 e00f       |    |		Load	0x0,0xf
11aa 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
11ab 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
11ac c605       |    |		Store	0x3,0x5
11ad 005a       | Z  |		Store_Top	Discrete,At_Offset_2
11ae 00cf       |    |		Action	Mark_Auxiliary
11af 7878       |xx  |		Jump	0x1228
11b0 e00f       |    |		Load	0x0,0xf
11b1 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
11b2 e604       |    |		Load	0x3,0x4
11b3 0120       |    |		Execute	Any,Is_Value
11b4 6803       |h   |		Jump_Zero	0x11b8
11b5 e00f       |    |		Load	0x0,0xf
11b6 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
11b7 7801       |x   |		Jump	0x11b9
11b8 e604       |    |		Load	0x3,0x4
11b9 e605       |    |		Load	0x3,0x5
11ba e00f       |    |		Load	0x0,0xf
11bb 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
11bc 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
11bd c604       |    |		Store	0x3,0x4
11be 005a       | Z  |		Store_Top	Discrete,At_Offset_2
11bf 00d9       |    |		Load_Top	At_Offset_1
11c0 6801       |h   |		Jump_Zero	0x11c2
11c1 786b       |xk  |		Jump	0x122d
11c2 e604       |    |		Load	0x3,0x4
11c3 8261       | a  |		Call	0x1,0x61
11c4 a406       |    |		Store_Unchecked	0x2,0x6
11c5 e604       |    |		Load	0x3,0x4
11c6 8262       | b  |		Call	0x1,0x62
11c7 a407       |    |		Store_Unchecked	0x2,0x7
11c8 e7f6       |    |		Load	0x3,-0xa
11c9 e7f7       |    |		Load	0x3,-0x9
11ca e7f8       |    |		Load	0x3,-0x8
11cb e7f9       |    |		Load	0x3,-0x7
11cc e7fa       |    |		Load	0x3,-0x6
11cd e7fb       |    |		Load	0x3,-0x5
11ce e7fc       |    |		Load	0x3,-0x4
11cf e7fd       |    |		Load	0x3,-0x3
11d0 e7fe       |    |		Load	0x3,-0x2
11d1 e604       |    |		Load	0x3,0x4
11d2 8412       |    |		Call	0x2,0x12
11d3 c7fe       |    |		Store	0x3,-0x2
11d4 c7fd       |    |		Store	0x3,-0x3
11d5 c7fc       |    |		Store	0x3,-0x4
11d6 c7fb       |    |		Store	0x3,-0x5
11d7 c7fa       |    |		Store	0x3,-0x6
11d8 c7f9       |    |		Store	0x3,-0x7
11d9 c7f8       |    |		Store	0x3,-0x8
11da c7f7       |    |		Store	0x3,-0x9
11db c7f6       |    |		Store	0x3,-0xa
11dc e7f6       |    |		Load	0x3,-0xa
11dd 0a01       |    |		Execute_Immediate	Plus,0x1
11de c7f6       |    |		Store	0x3,-0xa
11df e406       |    |		Load	0x2,0x6
11e0 460f       |F   |		Jump_Case	0x10
11e1 780f       |x   |		Jump	0x11f1								; case 0x0
11e2 7819       |x   |		Jump	0x11fc								; case 0x1
11e3 781c       |x   |		Jump	0x1200								; case 0x2
11e4 780c       |x   |		Jump	0x11f1								; case 0x3
11e5 780b       |x   |		Jump	0x11f1								; case 0x4
11e6 780a       |x   |		Jump	0x11f1								; case 0x5
11e7 7809       |x   |		Jump	0x11f1								; case 0x6
11e8 7808       |x   |		Jump	0x11f1								; case 0x7
11e9 7807       |x   |		Jump	0x11f1								; case 0x8
11ea 7806       |x   |		Jump	0x11f1								; case 0x9
11eb 7805       |x   |		Jump	0x11f1								; case 0xa
11ec 7804       |x   |		Jump	0x11f1								; case 0xb
11ed 7803       |x   |		Jump	0x11f1								; case 0xc
11ee 7802       |x   |		Jump	0x11f1								; case 0xd
11ef 7801       |x   |		Jump	0x11f1								; case 0xe
11f0 7800       |x   |		Jump	0x11f1								; case 0xf
11f1 e407       |    |		Load	0x2,0x7
11f2 0f2a       | *  |		Execute_Immediate	Equal,0x2a
11f3 7004       |p   |		Jump_Nonzero	0x11f8
11f4 e7f7       |    |		Load	0x3,-0x9
11f5 0a01       |    |		Execute_Immediate	Plus,0x1
11f6 c7f7       |    |		Store	0x3,-0x9
11f7 782a       |x*  |		Jump	0x1222
11f8 e7fe       |    |		Load	0x3,-0x2
11f9 0a01       |    |		Execute_Immediate	Plus,0x1
11fa c7fe       |    |		Store	0x3,-0x2
11fb 7826       |x&  |		Jump	0x1222
11fc e7fc       |    |		Load	0x3,-0x4
11fd 0a01       |    |		Execute_Immediate	Plus,0x1
11fe c7fc       |    |		Store	0x3,-0x4
11ff 7822       |x"  |		Jump	0x1222
1200 e407       |    |		Load	0x2,0x7
1201 00d8       |    |		Load_Top	At_Offset_0
1202 0d03       |    |		Execute_Immediate	Less,0x3
1203 700d       |p   |		Jump_Nonzero	0x1211
1204 00d8       |    |		Load_Top	At_Offset_0
1205 0c07       |    |		Execute_Immediate	Greater_Equal,0x7
1206 7007       |p   |		Jump_Nonzero	0x120e
1207 0b04       |    |		Execute_Immediate	Case_Compare,0x4
1208 700d       |p   |		Jump_Nonzero	0x1216
1209 4805       |H   |		Short_Literal	0x5
120a 4806       |H   |		Short_Literal	0x6
120b 0262       | b  |		Execute	Discrete,In_Range
120c 700e       |p   |		Jump_Nonzero	0x121b
120d 7811       |x   |		Jump	0x121f
120e 0f42       | B  |		Execute_Immediate	Equal,0x42
120f 700b       |p   |		Jump_Nonzero	0x121b
1210 7801       |x   |		Jump	0x1212
1211 00d1       |    |		Pop_Control	Pop_Count_1
1212 e7f8       |    |		Load	0x3,-0x8
1213 0a01       |    |		Execute_Immediate	Plus,0x1
1214 c7f8       |    |		Store	0x3,-0x8
1215 780c       |x   |		Jump	0x1222
1216 00d1       |    |		Pop_Control	Pop_Count_1
1217 e7f9       |    |		Load	0x3,-0x7
1218 0a01       |    |		Execute_Immediate	Plus,0x1
1219 c7f9       |    |		Store	0x3,-0x7
121a 7807       |x   |		Jump	0x1222
121b e7fa       |    |		Load	0x3,-0x6
121c 0a01       |    |		Execute_Immediate	Plus,0x1
121d c7fa       |    |		Store	0x3,-0x6
121e 7803       |x   |		Jump	0x1222
121f e7fb       |    |		Load	0x3,-0x5
1220 0a01       |    |		Execute_Immediate	Plus,0x1
1221 c7fb       |    |		Store	0x3,-0x5
1222 00db       |    |		Load_Top	At_Offset_3
1223 e00f       |    |		Load	0x0,0xf
1224 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
1225 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
1226 c605       |    |		Store	0x3,0x5
1227 00c9       |    |		Action	Pop_Auxiliary_Loop
1228 00db       |    |		Load_Top	At_Offset_3
1229 e00f       |    |		Load	0x0,0xf
122a 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
122b 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
122c 6f83       |o   |		Jump_Zero	0x11b0
122d 00ce       |    |		Action	Pop_Auxiliary
122e 00da       |    |		Load_Top	At_Offset_2
122f e00f       |    |		Load	0x0,0xf
1230 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
1231 1852       | R  |		Execute	Package,Field_Execute,Field_Number 0x52
1232 c605       |    |		Store	0x3,0x5
1233 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
1234 0000 0000  |    |		.LITERAL	{0x00000000, 0x00004000}
1238 ; --------------------------------------------------------------------------------------
1238 ; SUBPROGRAM
1238 ; --------------------------------------------------------------------------------------
1238 123b       | ;  |		.CONST	0x123b								; Address of begin
1239 0004       |    |		.CONST	0x0004								; Address of exception handler
123a 0001       |    |		.CONST	0x0001								; Number of locals
123b			BODY_1238:
123b			INIT_1238:
123b 00da       |    |		Load_Top	At_Offset_2
123c 7006       |p   |		Jump_Nonzero	0x1243
123d e7fb       |    |		Load	0x3,-0x5
123e e7fe       |    |		Load	0x3,-0x2
123f e014       |    |		Load	0x0,0x14
1240 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
1241 00d1       |    |		Pop_Control	Pop_Count_1
1242 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
1243 00da       |    |		Load_Top	At_Offset_2
1244 0f01       |    |		Execute_Immediate	Equal,0x1
1245 680a       |h   |		Jump_Zero	0x1250
1246 e7fb       |    |		Load	0x3,-0x5
1247 00db       |    |		Load_Top	At_Offset_3
1248 00e0       |    |		Load_Encached	Standard_Cache
1249 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
124a e7fd       |    |		Load	0x3,-0x3
124b 01cc       |    |		Execute	Vector,Catenate
124c e014       |    |		Load	0x0,0x14
124d 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
124e 00d1       |    |		Pop_Control	Pop_Count_1
124f 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
1250 00da       |    |		Load_Top	At_Offset_2
1251 0c02       |    |		Execute_Immediate	Greater_Equal,0x2
1252 6809       |h   |		Jump_Zero	0x125c
1253 e7fb       |    |		Load	0x3,-0x5
1254 00db       |    |		Load_Top	At_Offset_3
1255 00e0       |    |		Load_Encached	Standard_Cache
1256 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
1257 e7fc       |    |		Load	0x3,-0x4
1258 01cc       |    |		Execute	Vector,Catenate
1259 e014       |    |		Load	0x0,0x14
125a 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
125b 00d1       |    |		Pop_Control	Pop_Count_1
125c 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
125d 0000 0000  |    |		.XXX[0x3]
125f 0000       |    |
1260 ; --------------------------------------------------------------------------------------
1260 ; SUBPROGRAM
1260 ; --------------------------------------------------------------------------------------
1260 127b       | {  |		.CONST	0x127b								; Address of begin
1261 0004       |    |		.CONST	0x0004								; Address of exception handler
1262 0005       |    |		.CONST	0x0005								; Number of locals
1263			INIT_1260:
1263 00da       |    |		Load_Top	At_Offset_2
1264 01db       |    |		Execute	Vector,Length
1265 4846       |HF  |		Short_Literal	0x46
1266 0270       | p  |		Execute	Discrete,Divide
1267 00e2       |    |		Load_Encached	Integer_Cache
1268 03ec       |    |		Declare_Variable	Discrete,With_Value,With_Constraint
1269 4801       |H   |		Short_Literal	0x1
126a e7ff       |    |		Load	0x3,-0x1
126b 01db       |    |		Execute	Vector,Length
126c 0a01       |    |		Execute_Immediate	Plus,0x1
126d 00da       |    |		Load_Top	At_Offset_2
126e 0273       | s  |		Execute	Discrete,Plus
126f 00d8       |    |		Load_Top	At_Offset_0
1270 00e2       |    |		Load_Encached	Integer_Cache
1271 0260       | `  |		Execute	Discrete,In_Type
1272 7001       |p   |		Jump_Nonzero	0x1274
1273 0801       |    |		Execute_Immediate	Raise,0x1
1274 00e9       |    |		Load_Encached	String_Cache
1275 035b       | [  |		Declare_Type	Array,Constrained
1276 0337       | 7  |		Declare_Variable	Array
1277 00e2       |    |		Load_Encached	Integer_Cache
1278 0601       |    |		Execute_Immediate	Set_Value_Unchecked,0x1
1279 00e2       |    |		Load_Encached	Integer_Cache
127a 0601       |    |		Execute_Immediate	Set_Value_Unchecked,0x1
127b			BODY_1260:
127b e7ff       |    |		Load	0x3,-0x1
127c 01db       |    |		Execute	Vector,Length
127d 0c46       | F  |		Execute_Immediate	Greater_Equal,0x46
127e 682b       |h+  |		Jump_Zero	0x12aa
127f 00cf       |    |		Action	Mark_Auxiliary
1280 e602       |    |		Load	0x3,0x2
1281 4801       |H   |		Short_Literal	0x1
1282 0263       | c  |		Execute	Discrete,Above_Bound
1283 7022       |p"  |		Jump_Nonzero	0x12a6
1284 00d8       |    |		Load_Top	At_Offset_0
1285 0aff       |    |		Execute_Immediate	Plus,-0x1
1286 4846       |HF  |		Short_Literal	0x46
1287 0271       | q  |		Execute	Discrete,Times
1288 0a01       |    |		Execute_Immediate	Plus,0x1
1289 c605       |    |		Store	0x3,0x5
128a 00db       |    |		Load_Top	At_Offset_3
128b e605       |    |		Load	0x3,0x5
128c 0a45       | E  |		Execute_Immediate	Plus,0x45
128d 00d8       |    |		Load_Top	At_Offset_0
128e 00e2       |    |		Load_Encached	Integer_Cache
128f 0260       | `  |		Execute	Discrete,In_Type
1290 7001       |p   |		Jump_Nonzero	0x1292
1291 0801       |    |		Execute_Immediate	Raise,0x1
1292 e7ff       |    |		Load	0x3,-0x1
1293 01cf       |    |		Execute	Vector,Slice_Read
1294 0092 1a01  |    |		Action	Push_String_Extended,0x1a01					; "\x5c"
1296 01cc       |    |		Execute	Vector,Catenate
1297 e604       |    |		Load	0x3,0x4
1298 00d8       |    |		Load_Top	At_Offset_0
1299 0a46       | F  |		Execute_Immediate	Plus,0x46
129a 00d8       |    |		Load_Top	At_Offset_0
129b 00e2       |    |		Load_Encached	Integer_Cache
129c 0260       | `  |		Execute	Discrete,In_Type
129d 7001       |p   |		Jump_Nonzero	0x129f
129e 0801       |    |		Execute_Immediate	Raise,0x1
129f e603       |    |		Load	0x3,0x3
12a0 01ce       |    |		Execute	Vector,Slice_Write
12a1 e604       |    |		Load	0x3,0x4
12a2 0a47       | G  |		Execute_Immediate	Plus,0x47
12a3 c604       |    |		Store	0x3,0x4
12a4 00c8       |    |		Action	Pop_Auxiliary_Range
12a5 3fde       |?   |		Loop_Increasing	0x1284
12a6 00ce       |    |		Action	Pop_Auxiliary
12a7 00d8       |    |		Load_Top	At_Offset_0
12a8 0a46       | F  |		Execute_Immediate	Plus,0x46
12a9 0059       | Y  |		Store_Top	Discrete,At_Offset_1
12aa 00db       |    |		Load_Top	At_Offset_3
12ab 4846       |HF  |		Short_Literal	0x46
12ac 0271       | q  |		Execute	Discrete,Times
12ad e7ff       |    |		Load	0x3,-0x1
12ae 01db       |    |		Execute	Vector,Length
12af 027e       | ~  |		Execute	Discrete,Not_Equal
12b0 6817       |h   |		Jump_Zero	0x12c8
12b1 00d8       |    |		Load_Top	At_Offset_0
12b2 e7ff       |    |		Load	0x3,-0x1
12b3 01db       |    |		Execute	Vector,Length
12b4 00d8       |    |		Load_Top	At_Offset_0
12b5 00e2       |    |		Load_Encached	Integer_Cache
12b6 0260       | `  |		Execute	Discrete,In_Type
12b7 7001       |p   |		Jump_Nonzero	0x12b9
12b8 0801       |    |		Execute_Immediate	Raise,0x1
12b9 e7ff       |    |		Load	0x3,-0x1
12ba 01cf       |    |		Execute	Vector,Slice_Read
12bb 0092 1a01  |    |		Action	Push_String_Extended,0x1a01					; "\x5c"
12bd 01cc       |    |		Execute	Vector,Catenate
12be 00da       |    |		Load_Top	At_Offset_2
12bf e603       |    |		Load	0x3,0x3
12c0 01db       |    |		Execute	Vector,Length
12c1 00d8       |    |		Load_Top	At_Offset_0
12c2 00e2       |    |		Load_Encached	Integer_Cache
12c3 0260       | `  |		Execute	Discrete,In_Type
12c4 7001       |p   |		Jump_Nonzero	0x12c6
12c5 0801       |    |		Execute_Immediate	Raise,0x1
12c6 e603       |    |		Load	0x3,0x3
12c7 01ce       |    |		Execute	Vector,Slice_Write
12c8 00da       |    |		Load_Top	At_Offset_2
12c9 00e9       |    |		Load_Encached	String_Cache
12ca 01c6       |    |		Execute	Vector,Convert_To_Formal
12cb 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
12cc 0000 0000  |    |		.BLANK	0000[0x4]
12d0 ; --------------------------------------------------------------------------------------
12d0 ; SUBPROGRAM
12d0 ; --------------------------------------------------------------------------------------
12d0 12dc       |    |		.CONST	0x12dc								; Address of begin
12d1 0004       |    |		.CONST	0x0004								; Address of exception handler
12d2 0004       |    |		.CONST	0x0004								; Number of locals
12d3			INIT_12d0:
12d3 e00f       |    |		Load	0x0,0xf
12d4 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
12d5 02ff       |    |		Declare_Variable	Variant_Record
12d6 00d8       |    |		Load_Top	At_Offset_0
12d7 1c00       |    |		Execute_Immediate	Run_Utility,0x0
12d8 e00f       |    |		Load	0x0,0xf
12d9 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
12da 029f 1813  |    |		Declare_Subprogram	INIT_1810,For_Call
12dc			BODY_12d0:
12dc e00f       |    |		Load	0x0,0xf
12dd 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
12de 00db       |    |		Load_Top	At_Offset_3
12df 600c       |`   |		Indirect_Literal	Discrete,0x12ec,{0x00000000, 0x00004000}
12e0 e010       |    |		Load	0x0,0x10
12e1 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
12e2 e7ff       |    |		Load	0x3,-0x1
12e3 e00f       |    |		Load	0x0,0xf
12e4 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
12e5 1823       | #  |		Execute	Package,Field_Execute,Field_Number 0x23
12e6 00d1       |    |		Pop_Control	Pop_Count_1
12e7 005a       | Z  |		Store_Top	Discrete,At_Offset_2
12e8 8604       |    |		Call	0x3,0x4
12e9 0831       | 1  |		Execute_Immediate	Raise,0x31
12ea 0000 0000  |    |		.XXX[0x2]
12ec 0000 0000  |    |		.LITERAL	{0x00000000, 0x00004000}
12f0 ; --------------------------------------------------------------------------------------
12f0 ; SUBPROGRAM
12f0 ; --------------------------------------------------------------------------------------
12f0 1305       |    |		.CONST	0x1305								; Address of begin
12f1 0004       |    |		.CONST	0x0004								; Address of exception handler
12f2 0006       |    |		.CONST	0x0006								; Number of locals
12f3			INIT_12f0:
12f3 e00f       |    |		Load	0x0,0xf
12f4 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
12f5 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
12f6 e00f       |    |		Load	0x0,0xf
12f7 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
12f8 e00f       |    |		Load	0x0,0xf
12f9 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
12fa 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
12fb 02c7       |    |		Declare_Variable	Any
12fc 00d8       |    |		Load_Top	At_Offset_0
12fd 1c00       |    |		Execute_Immediate	Run_Utility,0x0
12fe e00f       |    |		Load	0x0,0xf
12ff 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
1300 02c7       |    |		Declare_Variable	Any
1301 00d8       |    |		Load_Top	At_Offset_0
1302 1c00       |    |		Execute_Immediate	Run_Utility,0x0
1303 029f 1833  |   3|		Declare_Subprogram	INIT_1830,For_Call
1305			BODY_12f0:
1305 e00f       |    |		Load	0x0,0xf
1306 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
1307 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
1308 00db       |    |		Load_Top	At_Offset_3
1309 67e2       |g   |		Indirect_Literal	Discrete,0x12ec,{0x00000000, 0x00004000}
130a e010       |    |		Load	0x0,0x10
130b 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
130c e011       |    |		Load	0x0,0x11
130d 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
130e e012       |    |		Load	0x0,0x12
130f 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
1310 4801       |H   |		Short_Literal	0x1
1311 4800       |H   |		Short_Literal	0x0
1312 e011       |    |		Load	0x0,0x11
1313 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
1314 e00f       |    |		Load	0x0,0xf
1315 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
1316 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
1317 0092 1a08  |    |		Action	Push_String_Extended,0x1a08					; "{"
1319 e7ff       |    |		Load	0x3,-0x1
131a 01cc       |    |		Execute	Vector,Catenate
131b 0092 1a0a  |    |		Action	Push_String_Extended,0x1a0a					; ".??@}"
131d 01cc       |    |		Execute	Vector,Catenate
131e e00f       |    |		Load	0x0,0xf
131f 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
1320 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
1321 c604       |    |		Store	0x3,0x4
1322 c602       |    |		Store	0x3,0x2
1323 00cf       |    |		Action	Mark_Auxiliary
1324 7819       |x   |		Jump	0x133e
1325 e00f       |    |		Load	0x0,0xf
1326 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
1327 00db       |    |		Load_Top	At_Offset_3
1328 0120       |    |		Execute	Any,Is_Value
1329 6803       |h   |		Jump_Zero	0x132d
132a e00f       |    |		Load	0x0,0xf
132b 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
132c 7801       |x   |		Jump	0x132e
132d 00db       |    |		Load_Top	At_Offset_3
132e e604       |    |		Load	0x3,0x4
132f e00f       |    |		Load	0x0,0xf
1330 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
1331 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
1332 c605       |    |		Store	0x3,0x5
1333 c603       |    |		Store	0x3,0x3
1334 e603       |    |		Load	0x3,0x3
1335 6801       |h   |		Jump_Zero	0x1337
1336 780c       |x   |		Jump	0x1343
1337 8606       |    |		Call	0x3,0x6
1338 00db       |    |		Load_Top	At_Offset_3
1339 e00f       |    |		Load	0x0,0xf
133a 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
133b 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
133c c604       |    |		Store	0x3,0x4
133d 00c9       |    |		Action	Pop_Auxiliary_Loop
133e 00db       |    |		Load_Top	At_Offset_3
133f e00f       |    |		Load	0x0,0xf
1340 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
1341 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
1342 6fe2       |o   |		Jump_Zero	0x1325
1343 00ce       |    |		Action	Pop_Auxiliary
1344 00da       |    |		Load_Top	At_Offset_2
1345 e00f       |    |		Load	0x0,0xf
1346 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
1347 1852       | R  |		Execute	Package,Field_Execute,Field_Number 0x52
1348 c604       |    |		Store	0x3,0x4
1349 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
134a 0000 0000  |    |		.BLANK	0000[0x6]
1350 ; --------------------------------------------------------------------------------------
1350 ; SUBPROGRAM
1350 ; --------------------------------------------------------------------------------------
1350 1367       | g  |		.CONST	0x1367								; Address of begin
1351 0004       |    |		.CONST	0x0004								; Address of exception handler
1352 0007       |    |		.CONST	0x0007								; Number of locals
1353			INIT_1350:
1353 e00f       |    |		Load	0x0,0xf
1354 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
1355 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
1356 e00f       |    |		Load	0x0,0xf
1357 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
1358 e00f       |    |		Load	0x0,0xf
1359 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
135a 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
135b 02c7       |    |		Declare_Variable	Any
135c 00d8       |    |		Load_Top	At_Offset_0
135d 1c00       |    |		Execute_Immediate	Run_Utility,0x0
135e e001       |    |		Load	0x0,0x1
135f 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
1360 e00f       |    |		Load	0x0,0xf
1361 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
1362 02c7       |    |		Declare_Variable	Any
1363 00d8       |    |		Load_Top	At_Offset_0
1364 1c00       |    |		Execute_Immediate	Run_Utility,0x0
1365 029f 184b  |   K|		Declare_Subprogram	INIT_1848,For_Call
1367			BODY_1350:
1367 e00f       |    |		Load	0x0,0xf
1368 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
1369 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
136a e604       |    |		Load	0x3,0x4
136b 6040       |`@  |		Indirect_Literal	Discrete,0x13ac,{0x00000000, 0x00004000}
136c e010       |    |		Load	0x0,0x10
136d 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
136e e011       |    |		Load	0x0,0x11
136f 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
1370 e012       |    |		Load	0x0,0x12
1371 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
1372 4801       |H   |		Short_Literal	0x1
1373 4800       |H   |		Short_Literal	0x0
1374 e011       |    |		Load	0x0,0x11
1375 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
1376 e00f       |    |		Load	0x0,0xf
1377 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
1378 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
1379 0092 1a08  |    |		Action	Push_String_Extended,0x1a08					; "{"
137b e7ff       |    |		Load	0x3,-0x1
137c 01cc       |    |		Execute	Vector,Catenate
137d 0092 1a0b  |    |		Action	Push_String_Extended,0x1a0b					; ".@'c(library)}"
137f 01cc       |    |		Execute	Vector,Catenate
1380 e00f       |    |		Load	0x0,0xf
1381 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
1382 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
1383 c604       |    |		Store	0x3,0x4
1384 c602       |    |		Store	0x3,0x2
1385 00cf       |    |		Action	Mark_Auxiliary
1386 7819       |x   |		Jump	0x13a0
1387 e00f       |    |		Load	0x0,0xf
1388 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
1389 00db       |    |		Load_Top	At_Offset_3
138a 0120       |    |		Execute	Any,Is_Value
138b 6803       |h   |		Jump_Zero	0x138f
138c e00f       |    |		Load	0x0,0xf
138d 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
138e 7801       |x   |		Jump	0x1390
138f 00db       |    |		Load_Top	At_Offset_3
1390 e604       |    |		Load	0x3,0x4
1391 e00f       |    |		Load	0x0,0xf
1392 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
1393 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
1394 c606       |    |		Store	0x3,0x6
1395 c603       |    |		Store	0x3,0x3
1396 e603       |    |		Load	0x3,0x3
1397 6801       |h   |		Jump_Zero	0x1399
1398 780c       |x   |		Jump	0x13a5
1399 8607       |    |		Call	0x3,0x7
139a e604       |    |		Load	0x3,0x4
139b e00f       |    |		Load	0x0,0xf
139c 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
139d 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
139e c604       |    |		Store	0x3,0x4
139f 00c9       |    |		Action	Pop_Auxiliary_Loop
13a0 e604       |    |		Load	0x3,0x4
13a1 e00f       |    |		Load	0x0,0xf
13a2 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
13a3 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
13a4 6fe2       |o   |		Jump_Zero	0x1387
13a5 00ce       |    |		Action	Pop_Auxiliary
13a6 00db       |    |		Load_Top	At_Offset_3
13a7 e00f       |    |		Load	0x0,0xf
13a8 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
13a9 1852       | R  |		Execute	Package,Field_Execute,Field_Number 0x52
13aa c604       |    |		Store	0x3,0x4
13ab 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
13ac 0000 0000  |    |		.LITERAL	{0x00000000, 0x00004000}
13b0 ; --------------------------------------------------------------------------------------
13b0 ; SUBPROGRAM
13b0 ; --------------------------------------------------------------------------------------
13b0 13cb       |    |		.CONST	0x13cb								; Address of begin
13b1 0004       |    |		.CONST	0x0004								; Address of exception handler
13b2 0008       |    |		.CONST	0x0008								; Number of locals
13b3			INIT_13b0:
13b3 e00f       |    |		Load	0x0,0xf
13b4 1b1d       |    |		Execute	Package,Field_Read,Field_Number 0x1d
13b5 02c7       |    |		Declare_Variable	Any
13b6 00d8       |    |		Load_Top	At_Offset_0
13b7 1c00       |    |		Execute_Immediate	Run_Utility,0x0
13b8 00e1       |    |		Load_Encached	Boolean_Cache
13b9 e00f       |    |		Load	0x0,0xf
13ba 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
13bb 02c7       |    |		Declare_Variable	Any
13bc 00d8       |    |		Load_Top	At_Offset_0
13bd 1c00       |    |		Execute_Immediate	Run_Utility,0x0
13be e00f       |    |		Load	0x0,0xf
13bf 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
13c0 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
13c1 02c7       |    |		Declare_Variable	Any
13c2 00d8       |    |		Load_Top	At_Offset_0
13c3 1c00       |    |		Execute_Immediate	Run_Utility,0x0
13c4 e00f       |    |		Load	0x0,0xf
13c5 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
13c6 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
13c7 e00f       |    |		Load	0x0,0xf
13c8 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
13c9 029f 1873  |   s|		Declare_Subprogram	INIT_1870,For_Call
13cb			BODY_13b0:
13cb e7ff       |    |		Load	0x3,-0x1
13cc e00f       |    |		Load	0x0,0xf
13cd 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
13ce c602       |    |		Store	0x3,0x2
13cf e602       |    |		Load	0x3,0x2
13d0 e00f       |    |		Load	0x0,0xf
13d1 1b3d       | =  |		Execute	Package,Field_Read,Field_Number 0x3d
13d2 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
13d3 012f       | /  |		Execute	Any,Equal
13d4 a603       |    |		Store_Unchecked	0x3,0x3
13d5 e603       |    |		Load	0x3,0x3
13d6 684b       |hK  |		Jump_Zero	0x1422
13d7 e00f       |    |		Load	0x0,0xf
13d8 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
13d9 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
13da e605       |    |		Load	0x3,0x5
13db 67d0       |g   |		Indirect_Literal	Discrete,0x13ac,{0x00000000, 0x00004000}
13dc e010       |    |		Load	0x0,0x10
13dd 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
13de e011       |    |		Load	0x0,0x11
13df 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
13e0 e012       |    |		Load	0x0,0x12
13e1 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
13e2 4801       |H   |		Short_Literal	0x1
13e3 4800       |H   |		Short_Literal	0x0
13e4 e011       |    |		Load	0x0,0x11
13e5 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
13e6 e00f       |    |		Load	0x0,0xf
13e7 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
13e8 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
13e9 0092 1a08  |    |		Action	Push_String_Extended,0x1a08					; "{"
13eb e7ff       |    |		Load	0x3,-0x1
13ec e00f       |    |		Load	0x0,0xf
13ed 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
13ee 1838       | 8  |		Execute	Package,Field_Execute,Field_Number 0x38
13ef 01cc       |    |		Execute	Vector,Catenate
13f0 0092 1a0c  |    |		Action	Push_String_Extended,0x1a0c					; ".@['c(library),'c(~library)?]}"
13f2 01cc       |    |		Execute	Vector,Catenate
13f3 e00f       |    |		Load	0x0,0xf
13f4 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
13f5 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
13f6 c605       |    |		Store	0x3,0x5
13f7 005b       | [  |		Store_Top	Discrete,At_Offset_3
13f8 00cf       |    |		Action	Mark_Auxiliary
13f9 7822       |x"  |		Jump	0x141c
13fa e00f       |    |		Load	0x0,0xf
13fb 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
13fc e604       |    |		Load	0x3,0x4
13fd 0120       |    |		Execute	Any,Is_Value
13fe 6803       |h   |		Jump_Zero	0x1402
13ff e00f       |    |		Load	0x0,0xf
1400 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
1401 7801       |x   |		Jump	0x1403
1402 e604       |    |		Load	0x3,0x4
1403 e605       |    |		Load	0x3,0x5
1404 e00f       |    |		Load	0x0,0xf
1405 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
1406 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
1407 c604       |    |		Store	0x3,0x4
1408 005b       | [  |		Store_Top	Discrete,At_Offset_3
1409 00da       |    |		Load_Top	At_Offset_2
140a 6801       |h   |		Jump_Zero	0x140c
140b 7815       |x   |		Jump	0x1421
140c e604       |    |		Load	0x3,0x4
140d 8261       | a  |		Call	0x1,0x61
140e a406       |    |		Store_Unchecked	0x2,0x6
140f e406       |    |		Load	0x2,0x6
1410 7001       |p   |		Jump_Nonzero	0x1412
1411 780f       |x   |		Jump	0x1421
1412 e604       |    |		Load	0x3,0x4
1413 8262       | b  |		Call	0x1,0x62
1414 a407       |    |		Store_Unchecked	0x2,0x7
1415 8608       |    |		Call	0x3,0x8
1416 e605       |    |		Load	0x3,0x5
1417 e00f       |    |		Load	0x0,0xf
1418 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
1419 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
141a c605       |    |		Store	0x3,0x5
141b 00c9       |    |		Action	Pop_Auxiliary_Loop
141c e605       |    |		Load	0x3,0x5
141d e00f       |    |		Load	0x0,0xf
141e 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
141f 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
1420 6fd9       |o   |		Jump_Zero	0x13fa
1421 00ce       |    |		Action	Pop_Auxiliary
1422 00db       |    |		Load_Top	At_Offset_3
1423 e00f       |    |		Load	0x0,0xf
1424 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
1425 1852       | R  |		Execute	Package,Field_Execute,Field_Number 0x52
1426 c605       |    |		Store	0x3,0x5
1427 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
1428 ; --------------------------------------------------------------------------------------
1428 ; SUBPROGRAM
1428 ; --------------------------------------------------------------------------------------
1428 143d       | =  |		.CONST	0x143d								; Address of begin
1429 0004       |    |		.CONST	0x0004								; Address of exception handler
142a 0006       |    |		.CONST	0x0006								; Number of locals
142b			INIT_1428:
142b e00f       |    |		Load	0x0,0xf
142c 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
142d 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
142e 02c7       |    |		Declare_Variable	Any
142f 00d8       |    |		Load_Top	At_Offset_0
1430 1c00       |    |		Execute_Immediate	Run_Utility,0x0
1431 e00f       |    |		Load	0x0,0xf
1432 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
1433 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
1434 e00f       |    |		Load	0x0,0xf
1435 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
1436 e00f       |    |		Load	0x0,0xf
1437 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
1438 02c7       |    |		Declare_Variable	Any
1439 00d8       |    |		Load_Top	At_Offset_0
143a 1c00       |    |		Execute_Immediate	Run_Utility,0x0
143b 029f 18bb  |    |		Declare_Subprogram	INIT_18b8,For_Call
143d			BODY_1428:
143d e00f       |    |		Load	0x0,0xf
143e 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
143f 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
1440 e602       |    |		Load	0x3,0x2
1441 604a       |`J  |		Indirect_Literal	Discrete,0x148c,{0x00000000, 0x00004000}
1442 e010       |    |		Load	0x0,0x10
1443 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
1444 e011       |    |		Load	0x0,0x11
1445 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
1446 e012       |    |		Load	0x0,0x12
1447 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
1448 4801       |H   |		Short_Literal	0x1
1449 4800       |H   |		Short_Literal	0x0
144a e011       |    |		Load	0x0,0x11
144b 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
144c e00f       |    |		Load	0x0,0xf
144d 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
144e 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
144f 0092 1a08  |    |		Action	Push_String_Extended,0x1a08					; "{"
1451 e7ff       |    |		Load	0x3,-0x1
1452 e00f       |    |		Load	0x0,0xf
1453 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
1454 1838       | 8  |		Execute	Package,Field_Execute,Field_Number 0x38
1455 01cc       |    |		Execute	Vector,Catenate
1456 0092 1a0a  |    |		Action	Push_String_Extended,0x1a0a					; ".??@}"
1458 01cc       |    |		Execute	Vector,Catenate
1459 e00f       |    |		Load	0x0,0xf
145a 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
145b 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
145c c602       |    |		Store	0x3,0x2
145d c603       |    |		Store	0x3,0x3
145e 00db       |    |		Load_Top	At_Offset_3
145f 6801       |h   |		Jump_Zero	0x1461
1460 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
1461 00cf       |    |		Action	Mark_Auxiliary
1462 781c       |x   |		Jump	0x147f
1463 e00f       |    |		Load	0x0,0xf
1464 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
1465 00db       |    |		Load_Top	At_Offset_3
1466 0120       |    |		Execute	Any,Is_Value
1467 6803       |h   |		Jump_Zero	0x146b
1468 e00f       |    |		Load	0x0,0xf
1469 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
146a 7801       |x   |		Jump	0x146c
146b 00db       |    |		Load_Top	At_Offset_3
146c e602       |    |		Load	0x3,0x2
146d e00f       |    |		Load	0x0,0xf
146e 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
146f 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
1470 c605       |    |		Store	0x3,0x5
1471 c604       |    |		Store	0x3,0x4
1472 00db       |    |		Load_Top	At_Offset_3
1473 6801       |h   |		Jump_Zero	0x1475
1474 780f       |x   |		Jump	0x1484
1475 00da       |    |		Load_Top	At_Offset_2
1476 8263       | c  |		Call	0x1,0x63
1477 6801       |h   |		Jump_Zero	0x1479
1478 8606       |    |		Call	0x3,0x6
1479 e602       |    |		Load	0x3,0x2
147a e00f       |    |		Load	0x0,0xf
147b 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
147c 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
147d c602       |    |		Store	0x3,0x2
147e 00c9       |    |		Action	Pop_Auxiliary_Loop
147f e602       |    |		Load	0x3,0x2
1480 e00f       |    |		Load	0x0,0xf
1481 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
1482 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
1483 6fdf       |o   |		Jump_Zero	0x1463
1484 00ce       |    |		Action	Pop_Auxiliary
1485 e602       |    |		Load	0x3,0x2
1486 e00f       |    |		Load	0x0,0xf
1487 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
1488 1852       | R  |		Execute	Package,Field_Execute,Field_Number 0x52
1489 c602       |    |		Store	0x3,0x2
148a 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
148b 0000       |    |		.XXX[0x1]
148c 0000 0000  |    |		.LITERAL	{0x00000000, 0x00004000}
1490 ; --------------------------------------------------------------------------------------
1490 ; SUBPROGRAM
1490 ; --------------------------------------------------------------------------------------
1490 1499       |    |		.CONST	0x1499								; Address of begin
1491 0004       |    |		.CONST	0x0004								; Address of exception handler
1492 0003       |    |		.CONST	0x0003								; Number of locals
1493			INIT_1490:
1493 e405       |    |		Load	0x2,0x5
1494 e00f       |    |		Load	0x0,0xf
1495 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
1496 183e       | >  |		Execute	Package,Field_Execute,Field_Number 0x3e
1497 029f 18db  |    |		Declare_Subprogram	INIT_18d8,For_Call
1499			BODY_1490:
1499 e406       |    |		Load	0x2,0x6
149a 0f02       |    |		Execute_Immediate	Equal,0x2
149b 6802       |h   |		Jump_Zero	0x149e
149c e405       |    |		Load	0x2,0x5
149d 840b       |    |		Call	0x2,0xb
149e e405       |    |		Load	0x2,0x5
149f 8263       | c  |		Call	0x1,0x63
14a0 6874       |ht  |		Jump_Zero	0x1515
14a1 e405       |    |		Load	0x2,0x5
14a2 8262       | b  |		Call	0x1,0x62
14a3 4658       |FX  |		Jump_Case	0x59
14a4 785c       |x\  |		Jump	0x1501								; case 0x0
14a5 785b       |x[  |		Jump	0x1501								; case 0x1
14a6 7856       |xV  |		Jump	0x14fd								; case 0x2
14a7 7855       |xU  |		Jump	0x14fd								; case 0x3
14a8 7858       |xX  |		Jump	0x1501								; case 0x4
14a9 7857       |xW  |		Jump	0x1501								; case 0x5
14aa 7856       |xV  |		Jump	0x1501								; case 0x6
14ab 7855       |xU  |		Jump	0x1501								; case 0x7
14ac 7854       |xT  |		Jump	0x1501								; case 0x8
14ad 7853       |xS  |		Jump	0x1501								; case 0x9
14ae 7852       |xR  |		Jump	0x1501								; case 0xa
14af 7851       |xQ  |		Jump	0x1501								; case 0xb
14b0 7850       |xP  |		Jump	0x1501								; case 0xc
14b1 784e       |xN  |		Jump	0x1500								; case 0xd
14b2 784e       |xN  |		Jump	0x1501								; case 0xe
14b3 784c       |xL  |		Jump	0x1500								; case 0xf
14b4 784c       |xL  |		Jump	0x1501								; case 0x10
14b5 784a       |xJ  |		Jump	0x1500								; case 0x11
14b6 784a       |xJ  |		Jump	0x1501								; case 0x12
14b7 7848       |xH  |		Jump	0x1500								; case 0x13
14b8 7848       |xH  |		Jump	0x1501								; case 0x14
14b9 7846       |xF  |		Jump	0x1500								; case 0x15
14ba 7846       |xF  |		Jump	0x1501								; case 0x16
14bb 7844       |xD  |		Jump	0x1500								; case 0x17
14bc 7844       |xD  |		Jump	0x1501								; case 0x18
14bd 7842       |xB  |		Jump	0x1500								; case 0x19
14be 7842       |xB  |		Jump	0x1501								; case 0x1a
14bf 7840       |x@  |		Jump	0x1500								; case 0x1b
14c0 7840       |x@  |		Jump	0x1501								; case 0x1c
14c1 783f       |x?  |		Jump	0x1501								; case 0x1d
14c2 783e       |x>  |		Jump	0x1501								; case 0x1e
14c3 783d       |x=  |		Jump	0x1501								; case 0x1f
14c4 783c       |x<  |		Jump	0x1501								; case 0x20
14c5 783b       |x;  |		Jump	0x1501								; case 0x21
14c6 783a       |x:  |		Jump	0x1501								; case 0x22
14c7 7839       |x9  |		Jump	0x1501								; case 0x23
14c8 7838       |x8  |		Jump	0x1501								; case 0x24
14c9 7837       |x7  |		Jump	0x1501								; case 0x25
14ca 7836       |x6  |		Jump	0x1501								; case 0x26
14cb 7835       |x5  |		Jump	0x1501								; case 0x27
14cc 7834       |x4  |		Jump	0x1501								; case 0x28
14cd 7833       |x3  |		Jump	0x1501								; case 0x29
14ce 7832       |x2  |		Jump	0x1501								; case 0x2a
14cf 7831       |x1  |		Jump	0x1501								; case 0x2b
14d0 7830       |x0  |		Jump	0x1501								; case 0x2c
14d1 782f       |x/  |		Jump	0x1501								; case 0x2d
14d2 782e       |x.  |		Jump	0x1501								; case 0x2e
14d3 782d       |x-  |		Jump	0x1501								; case 0x2f
14d4 782c       |x,  |		Jump	0x1501								; case 0x30
14d5 782b       |x+  |		Jump	0x1501								; case 0x31
14d6 782a       |x*  |		Jump	0x1501								; case 0x32
14d7 7829       |x)  |		Jump	0x1501								; case 0x33
14d8 7828       |x(  |		Jump	0x1501								; case 0x34
14d9 7827       |x'  |		Jump	0x1501								; case 0x35
14da 7826       |x&  |		Jump	0x1501								; case 0x36
14db 7825       |x%  |		Jump	0x1501								; case 0x37
14dc 7824       |x$  |		Jump	0x1501								; case 0x38
14dd 7823       |x#  |		Jump	0x1501								; case 0x39
14de 7822       |x"  |		Jump	0x1501								; case 0x3a
14df 7821       |x!  |		Jump	0x1501								; case 0x3b
14e0 7820       |x   |		Jump	0x1501								; case 0x3c
14e1 781f       |x   |		Jump	0x1501								; case 0x3d
14e2 781e       |x   |		Jump	0x1501								; case 0x3e
14e3 781d       |x   |		Jump	0x1501								; case 0x3f
14e4 781c       |x   |		Jump	0x1501								; case 0x40
14e5 781b       |x   |		Jump	0x1501								; case 0x41
14e6 781a       |x   |		Jump	0x1501								; case 0x42
14e7 7819       |x   |		Jump	0x1501								; case 0x43
14e8 7818       |x   |		Jump	0x1501								; case 0x44
14e9 7817       |x   |		Jump	0x1501								; case 0x45
14ea 7816       |x   |		Jump	0x1501								; case 0x46
14eb 7815       |x   |		Jump	0x1501								; case 0x47
14ec 7814       |x   |		Jump	0x1501								; case 0x48
14ed 7813       |x   |		Jump	0x1501								; case 0x49
14ee 7812       |x   |		Jump	0x1501								; case 0x4a
14ef 7811       |x   |		Jump	0x1501								; case 0x4b
14f0 7810       |x   |		Jump	0x1501								; case 0x4c
14f1 780f       |x   |		Jump	0x1501								; case 0x4d
14f2 780e       |x   |		Jump	0x1501								; case 0x4e
14f3 780d       |x   |		Jump	0x1501								; case 0x4f
14f4 780c       |x   |		Jump	0x1501								; case 0x50
14f5 780b       |x   |		Jump	0x1501								; case 0x51
14f6 780a       |x   |		Jump	0x1501								; case 0x52
14f7 7809       |x   |		Jump	0x1501								; case 0x53
14f8 7808       |x   |		Jump	0x1501								; case 0x54
14f9 7807       |x   |		Jump	0x1501								; case 0x55
14fa 7806       |x   |		Jump	0x1501								; case 0x56
14fb 7805       |x   |		Jump	0x1501								; case 0x57
14fc 7804       |x   |		Jump	0x1501								; case 0x58
14fd e405       |    |		Load	0x2,0x5
14fe 840c       |    |		Call	0x2,0xc
14ff 7801       |x   |		Jump	0x1501
1500 8603       |    |		Call	0x3,0x3
1501 00d9       |    |		Load_Top	At_Offset_1
1502 e008       |    |		Load	0x0,0x8
1503 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
1504 6808       |h   |		Jump_Zero	0x150d
1505 0092 199d  |    |		Action	Push_String_Extended,0x199d					; "<PROFILE>"
1507 0092 19a4  |    |		Action	Push_String_Extended,0x19a4					; "<DEFAULT>"
1509 00ea       |    |		Load_Encached	Null_String_Cache
150a e602       |    |		Load	0x3,0x2
150b e007       |    |		Load	0x0,0x7
150c 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
150d 0092 199d  |    |		Action	Push_String_Extended,0x199d					; "<PROFILE>"
150f 0092 19a4  |    |		Action	Push_String_Extended,0x19a4					; "<DEFAULT>"
1511 00ea       |    |		Load_Encached	Null_String_Cache
1512 e602       |    |		Load	0x3,0x2
1513 e007       |    |		Load	0x0,0x7
1514 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
1515 e405       |    |		Load	0x2,0x5
1516 8261       | a  |		Call	0x1,0x61
1517 a406       |    |		Store_Unchecked	0x2,0x6
1518 e406       |    |		Load	0x2,0x6
1519 6814       |h   |		Jump_Zero	0x152e
151a e406       |    |		Load	0x2,0x6
151b 0f01       |    |		Execute_Immediate	Equal,0x1
151c 7003       |p   |		Jump_Nonzero	0x1520
151d e402       |    |		Load	0x2,0x2
151e 8408       |    |		Call	0x2,0x8
151f 6809       |h   |		Jump_Zero	0x1529
1520 0092 199d  |    |		Action	Push_String_Extended,0x199d					; "<PROFILE>"
1522 0092 1a0d  |    |		Action	Push_String_Extended,0x1a0d					; "<DIRECTORIES>"
1524 4be7       |K   |		Short_Literal	0x3e7
1525 e602       |    |		Load	0x3,0x2
1526 e006       |    |		Load	0x0,0x6
1527 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
1528 7805       |x   |		Jump	0x152e
1529 0092 199d  |    |		Action	Push_String_Extended,0x199d					; "<PROFILE>"
152b 4800       |H   |		Short_Literal	0x0
152c 00db       |    |		Load_Top	At_Offset_3
152d 8025       | %  |		Call	0x0,0x25
152e e402       |    |		Load	0x2,0x2
152f e00f       |    |		Load	0x0,0xf
1530 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
1531 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
1532 c402       |    |		Store	0x2,0x2
1533 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
1534 0000 0000  |    |		.BLANK	0000[0x4]
1538 ; --------------------------------------------------------------------------------------
1538 ; SUBPROGRAM
1538 ; --------------------------------------------------------------------------------------
1538 154d       | M  |		.CONST	0x154d								; Address of begin
1539 0004       |    |		.CONST	0x0004								; Address of exception handler
153a 0004       |    |		.CONST	0x0004								; Number of locals
153b			INIT_1538:
153b e00f       |    |		Load	0x0,0xf
153c 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
153d 02c7       |    |		Declare_Variable	Any
153e 0092 19a5  |    |		Action	Push_String_Extended,0x19a5					; "<Cursor>"
1540 e001       |    |		Load	0x0,0x1
1541 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
1542 a602       |    |		Store_Unchecked	0x3,0x2
1543 e00f       |    |		Load	0x0,0xf
1544 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
1545 02c7       |    |		Declare_Variable	Any
1546 0092 1a0e  |    |		Action	Push_String_Extended,0x1a0e					; "<SELECTION>"
1548 e001       |    |		Load	0x0,0x1
1549 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
154a a603       |    |		Store_Unchecked	0x3,0x3
154b e001       |    |		Load	0x0,0x1
154c 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
154d			BODY_1538:
154d 00d9       |    |		Load_Top	At_Offset_1
154e e00f       |    |		Load	0x0,0xf
154f 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
1550 7005       |p   |		Jump_Nonzero	0x1556
1551 00d9       |    |		Load_Top	At_Offset_1
1552 e001       |    |		Load	0x0,0x1
1553 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
1554 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
1555 7804       |x   |		Jump	0x155a
1556 00da       |    |		Load_Top	At_Offset_2
1557 e001       |    |		Load	0x0,0x1
1558 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
1559 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
155a 00d8       |    |		Load_Top	At_Offset_0
155b 00d8       |    |		Load_Top	At_Offset_0
155c 0d1d       |    |		Execute_Immediate	Less,0x1d
155d 701a       |p   |		Jump_Nonzero	0x1578
155e 00d8       |    |		Load_Top	At_Offset_0
155f 0c38       | 8  |		Execute_Immediate	Greater_Equal,0x38
1560 7011       |p   |		Jump_Nonzero	0x1572
1561 00d1       |    |		Pop_Control	Pop_Count_1
1562 00ea       |    |		Load_Encached	Null_String_Cache
1563 00ea       |    |		Load_Encached	Null_String_Cache
1564 00ea       |    |		Load_Encached	Null_String_Cache
1565 00ea       |    |		Load_Encached	Null_String_Cache
1566 00ea       |    |		Load_Encached	Null_String_Cache
1567 00ea       |    |		Load_Encached	Null_String_Cache
1568 00ea       |    |		Load_Encached	Null_String_Cache
1569 0092 19a5  |    |		Action	Push_String_Extended,0x19a5					; "<Cursor>"
156b e001       |    |		Load	0x0,0x1
156c 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
156d 4ad7       |J   |		Short_Literal	0x2d7
156e 481a       |H   |		Short_Literal	0x1a
156f e002       |    |		Load	0x0,0x2
1570 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
1571 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
1572 00d8       |    |		Load_Top	At_Offset_0
1573 0c3a       | :  |		Execute_Immediate	Greater_Equal,0x3a
1574 6808       |h   |		Jump_Zero	0x157d
1575 0f3e       | >  |		Execute_Immediate	Equal,0x3e
1576 7007       |p   |		Jump_Nonzero	0x157e
1577 7fea       |    |		Jump	0x1562
1578 0b11       |    |		Execute_Immediate	Case_Compare,0x11
1579 7003       |p   |		Jump_Nonzero	0x157d
157a 0f1c       |    |		Execute_Immediate	Equal,0x1c
157b 7002       |p   |		Jump_Nonzero	0x157e
157c 7fe5       |    |		Jump	0x1562
157d 00d1       |    |		Pop_Control	Pop_Count_1
157e e005       |    |		Load	0x0,0x5
157f 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
1580 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
1581 0000 0000  |    |		.BLANK	0000[0x7]
1588 ; --------------------------------------------------------------------------------------
1588 ; SUBPROGRAM
1588 ; --------------------------------------------------------------------------------------
1588 1592       |    |		.CONST	0x1592								; Address of begin
1589 0004       |    |		.CONST	0x0004								; Address of exception handler
158a 0003       |    |		.CONST	0x0003								; Number of locals
158b			INIT_1588:
158b e026       | &  |		Load	0x0,0x26
158c 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
158d 02c7       |    |		Declare_Variable	Any
158e 00d8       |    |		Load_Top	At_Offset_0
158f 1c00       |    |		Execute_Immediate	Run_Utility,0x0
1590 e018       |    |		Load	0x0,0x18
1591 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
1592			BODY_1588:
1592 00d9       |    |		Load_Top	At_Offset_1
1593 e018       |    |		Load	0x0,0x18
1594 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
1595 0092 199d  |    |		Action	Push_String_Extended,0x199d					; "<PROFILE>"
1597 00ea       |    |		Load_Encached	Null_String_Cache
1598 4800       |H   |		Short_Literal	0x0
1599 0092 19ef  |    |		Action	Push_String_Extended,0x19ef					; "$"
159b 4801       |H   |		Short_Literal	0x1
159c e5ff       |    |		Load	0x2,-0x1
159d e018       |    |		Load	0x0,0x18
159e 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
159f 005a       | Z  |		Store_Top	Discrete,At_Offset_2
15a0 c602       |    |		Store	0x3,0x2
15a1 00d8       |    |		Load_Top	At_Offset_0
15a2 e027       | '  |		Load	0x0,0x27
15a3 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
15a4 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
15a5 0000 0000  |    |		.XXX[0x3]
15a7 0000       |    |
15a8 ; --------------------------------------------------------------------------------------
15a8 ; SUBPROGRAM
15a8 ; --------------------------------------------------------------------------------------
15a8 15b8       |    |		.CONST	0x15b8								; Address of begin
15a9 15cd       |    |		.CONST	0x15cd								; Address of exception handler
15aa 0006       |    |		.CONST	0x0006								; Number of locals
15ab			INIT_15a8:
15ab e001       |    |		Load	0x0,0x1
15ac 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
15ad 0092 1a0f  |    |		Action	Push_String_Extended,0x1a0f					; "!Machine.Queues.User_To_Printer_Map"
15af e004       |    |		Load	0x0,0x4
15b0 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
15b1 02c7       |    |		Declare_Variable	Any
15b2 00d8       |    |		Load_Top	At_Offset_0
15b3 1c00       |    |		Execute_Immediate	Run_Utility,0x0
15b4 029f 18fb  |    |		Declare_Subprogram	INIT_18f8,For_Call
15b6 029f 192b  |   +|		Declare_Subprogram	INIT_1928,For_Call
15b8			BODY_15a8:
15b8 00da       |    |		Load_Top	At_Offset_2
15b9 00ea       |    |		Load_Encached	Null_String_Cache
15ba e603       |    |		Load	0x3,0x3
15bb 4800       |H   |		Short_Literal	0x0
15bc e004       |    |		Load	0x0,0x4
15bd 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
15be c604       |    |		Store	0x3,0x4
15bf 00cf       |    |		Action	Mark_Auxiliary
15c0 7802       |x   |		Jump	0x15c3
15c1 8606       |    |		Call	0x3,0x6
15c2 00c9       |    |		Action	Pop_Auxiliary_Loop
15c3 00db       |    |		Load_Top	At_Offset_3
15c4 e004       |    |		Load	0x0,0x4
15c5 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
15c6 6ffa       |o   |		Jump_Zero	0x15c1
15c7 00ce       |    |		Action	Pop_Auxiliary
15c8 00da       |    |		Load_Top	At_Offset_2
15c9 e004       |    |		Load	0x0,0x4
15ca 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
15cb c604       |    |		Store	0x3,0x4
15cc 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
15cd			TRAP_15a8:
15cd 0007       |    |		Action	Break_Optional
15ce 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
15cf 0000       |    |		.XXX[0x1]
15d0 ; --------------------------------------------------------------------------------------
15d0 ; SUBPROGRAM
15d0 ; --------------------------------------------------------------------------------------
15d0 15d7       |    |		.CONST	0x15d7								; Address of begin
15d1 0004       |    |		.CONST	0x0004								; Address of exception handler
15d2 0002       |    |		.CONST	0x0002								; Number of locals
15d3			INIT_15d0:
15d3 0092 19a5  |    |		Action	Push_String_Extended,0x19a5					; "<Cursor>"
15d5 e001       |    |		Load	0x0,0x1
15d6 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
15d7			BODY_15d0:
15d7 00d8       |    |		Load_Top	At_Offset_0
15d8 0092 19af  |    |		Action	Push_String_Extended,0x19af					; "<>"
15da 01df       |    |		Execute	Vector,Equal
15db 6803       |h   |		Jump_Zero	0x15df
15dc 0092 19d0  |    |		Action	Push_String_Extended,0x19d0					; "<CURRENT_WINDOW_CONTENTS>"
15de 00ca       |    |		Action	Exit_Nullary_Function
15df 00d8       |    |		Load_Top	At_Offset_0
15e0 00ca       |    |		Action	Exit_Nullary_Function
15e1 0000 0000  |    |		.BLANK	0000[0x7]
15e8 ; --------------------------------------------------------------------------------------
15e8 ; SUBPROGRAM
15e8 ; --------------------------------------------------------------------------------------
15e8 160f       |    |		.CONST	0x160f								; Address of begin
15e9 0004       |    |		.CONST	0x0004								; Address of exception handler
15ea 0008       |    |		.CONST	0x0008								; Number of locals
15eb			INIT_15e8:
15eb 0092 19a5  |    |		Action	Push_String_Extended,0x19a5					; "<Cursor>"
15ed e001       |    |		Load	0x0,0x1
15ee 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
15ef e021       | !  |		Load	0x0,0x21
15f0 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
15f1 e00f       |    |		Load	0x0,0xf
15f2 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
15f3 02c7       |    |		Declare_Variable	Any
15f4 e605       |    |		Load	0x3,0x5
15f5 e00f       |    |		Load	0x0,0xf
15f6 1b3f       | ?  |		Execute	Package,Field_Read,Field_Number 0x3f
15f7 1832       | 2  |		Execute	Package,Field_Execute,Field_Number 0x32
15f8 a803       |    |		Store_Unchecked	0x4,0x3
15f9 0092 1a10  |    |		Action	Push_String_Extended,0x1a10					; "Volume => "
15fb e605       |    |		Load	0x3,0x5
15fc e00f       |    |		Load	0x0,0xf
15fd 1b3f       | ?  |		Execute	Package,Field_Read,Field_Number 0x3f
15fe 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
15ff 00e0       |    |		Load_Encached	Standard_Cache
1600 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
1601 01cc       |    |		Execute	Vector,Catenate
1602 0007       |    |		Action	Break_Optional
1603 e00f       |    |		Load	0x0,0xf
1604 1b2e       | .  |		Execute	Package,Field_Read,Field_Number 0x2e
1605 0322       | "  |		Declare_Variable	Record
1606 00d8       |    |		Load_Top	At_Offset_0
1607 1c00       |    |		Execute_Immediate	Run_Utility,0x0
1608 e00f       |    |		Load	0x0,0xf
1609 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
160a e00f       |    |		Load	0x0,0xf
160b 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
160c e00f       |    |		Load	0x0,0xf
160d 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
160e 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
160f			BODY_15e8:
160f e00f       |    |		Load	0x0,0xf
1610 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
1611 e00f       |    |		Load	0x0,0xf
1612 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
1613 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
1614 611b       |a   |		Indirect_Literal	Discrete,0x1730,{0x00000000, 0x00004000}
1615 e010       |    |		Load	0x0,0x10
1616 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
1617 4800       |H   |		Short_Literal	0x0
1618 e803       |    |		Load	0x4,0x3
1619 e00f       |    |		Load	0x0,0xf
161a 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
161b 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
161c 0032       | 2  |		Store_Top	Heap_Access,At_Offset_2
161d 005a       | Z  |		Store_Top	Discrete,At_Offset_2
161e e608       |    |		Load	0x3,0x8
161f 00d8       |    |		Load_Top	At_Offset_0
1620 0c08       |    |		Execute_Immediate	Greater_Equal,0x8
1621 7008       |p   |		Jump_Nonzero	0x162a
1622 00d8       |    |		Load_Top	At_Offset_0
1623 0c02       |    |		Execute_Immediate	Greater_Equal,0x2
1624 68fd       |h   |		Jump_Zero	0x1722
1625 0b03       |    |		Execute_Immediate	Case_Compare,0x3
1626 700d       |p   |		Jump_Nonzero	0x1634
1627 0f07       |    |		Execute_Immediate	Equal,0x7
1628 70d3       |p   |		Jump_Nonzero	0x16fc
1629 7862       |xb  |		Jump	0x168c
162a 00d8       |    |		Load_Top	At_Offset_0
162b 4841       |HA  |		Short_Literal	0x41
162c 4842       |HB  |		Short_Literal	0x42
162d 0262       | b  |		Execute	Discrete,In_Range
162e 705c       |p\  |		Jump_Nonzero	0x168b
162f 484c       |HL  |		Short_Literal	0x4c
1630 484d       |HM  |		Short_Literal	0x4d
1631 0262       | b  |		Execute	Discrete,In_Range
1632 7059       |pY  |		Jump_Nonzero	0x168c
1633 78ef       |x   |		Jump	0x1723
1634 00d1       |    |		Pop_Control	Pop_Count_1
1635 00d9       |    |		Load_Top	At_Offset_1
1636 0e00       |    |		Execute_Immediate	Not_Equal,0x0
1637 e803       |    |		Load	0x4,0x3
1638 e00f       |    |		Load	0x0,0xf
1639 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
163a 0278       | x  |		Execute	Discrete,Or
163b 6826       |h&  |		Jump_Zero	0x1662
163c 00ea       |    |		Load_Encached	Null_String_Cache
163d 00ea       |    |		Load_Encached	Null_String_Cache
163e 00ea       |    |		Load_Encached	Null_String_Cache
163f 00ea       |    |		Load_Encached	Null_String_Cache
1640 e60c       |    |		Load	0x3,0xc
1641 0092 1a01  |    |		Action	Push_String_Extended,0x1a01					; "\x5c"
1643 01cc       |    |		Execute	Vector,Catenate
1644 e60e       |    |		Load	0x3,0xe
1645 01cc       |    |		Execute	Vector,Catenate
1646 0092 1a01  |    |		Action	Push_String_Extended,0x1a01					; "\x5c"
1648 01cc       |    |		Execute	Vector,Catenate
1649 e609       |    |		Load	0x3,0x9
164a 01cc       |    |		Execute	Vector,Catenate
164b 0092 1a01  |    |		Action	Push_String_Extended,0x1a01					; "\x5c"
164d 01cc       |    |		Execute	Vector,Catenate
164e e615       |    |		Load	0x3,0x15
164f 01cc       |    |		Execute	Vector,Catenate
1650 0092 1a01  |    |		Action	Push_String_Extended,0x1a01					; "\x5c"
1652 01cc       |    |		Execute	Vector,Catenate
1653 e617       |    |		Load	0x3,0x17
1654 01cc       |    |		Execute	Vector,Catenate
1655 0092 1a01  |    |		Action	Push_String_Extended,0x1a01					; "\x5c"
1657 01cc       |    |		Execute	Vector,Catenate
1658 e804       |    |		Load	0x4,0x4
1659 01cc       |    |		Execute	Vector,Catenate
165a 00ea       |    |		Load_Encached	Null_String_Cache
165b e60b       |    |		Load	0x3,0xb
165c e603       |    |		Load	0x3,0x3
165d 60ce       |`   |		Indirect_Literal	Discrete,0x172c,{0x00000000, 0x00001d6b}
165e 483a       |H:  |		Short_Literal	0x3a
165f e002       |    |		Load	0x0,0x2
1660 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
1661 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
1662 00ea       |    |		Load_Encached	Null_String_Cache
1663 00ea       |    |		Load_Encached	Null_String_Cache
1664 00ea       |    |		Load_Encached	Null_String_Cache
1665 00ea       |    |		Load_Encached	Null_String_Cache
1666 e60c       |    |		Load	0x3,0xc
1667 0092 1a01  |    |		Action	Push_String_Extended,0x1a01					; "\x5c"
1669 01cc       |    |		Execute	Vector,Catenate
166a e60e       |    |		Load	0x3,0xe
166b 01cc       |    |		Execute	Vector,Catenate
166c 0092 1a01  |    |		Action	Push_String_Extended,0x1a01					; "\x5c"
166e 01cc       |    |		Execute	Vector,Catenate
166f e609       |    |		Load	0x3,0x9
1670 01cc       |    |		Execute	Vector,Catenate
1671 0092 1a01  |    |		Action	Push_String_Extended,0x1a01					; "\x5c"
1673 01cc       |    |		Execute	Vector,Catenate
1674 e615       |    |		Load	0x3,0x15
1675 01cc       |    |		Execute	Vector,Catenate
1676 0092 1a01  |    |		Action	Push_String_Extended,0x1a01					; "\x5c"
1678 01cc       |    |		Execute	Vector,Catenate
1679 e617       |    |		Load	0x3,0x17
167a 01cc       |    |		Execute	Vector,Catenate
167b 0092 1a01  |    |		Action	Push_String_Extended,0x1a01					; "\x5c"
167d 01cc       |    |		Execute	Vector,Catenate
167e e804       |    |		Load	0x4,0x4
167f 01cc       |    |		Execute	Vector,Catenate
1680 e803       |    |		Load	0x4,0x3
1681 e00f       |    |		Load	0x0,0xf
1682 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
1683 1838       | 8  |		Execute	Package,Field_Execute,Field_Number 0x38
1684 e60b       |    |		Load	0x3,0xb
1685 e603       |    |		Load	0x3,0x3
1686 60a5       |`   |		Indirect_Literal	Discrete,0x172c,{0x00000000, 0x00001d6b}
1687 483a       |H:  |		Short_Literal	0x3a
1688 e002       |    |		Load	0x0,0x2
1689 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
168a 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
168b 00d1       |    |		Pop_Control	Pop_Count_1
168c e00f       |    |		Load	0x0,0xf
168d 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
168e e805       |    |		Load	0x4,0x5
168f 60a0       |`   |		Indirect_Literal	Discrete,0x1730,{0x00000000, 0x00004000}
1690 e010       |    |		Load	0x0,0x10
1691 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
1692 e602       |    |		Load	0x3,0x2
1693 e00f       |    |		Load	0x0,0xf
1694 1b3d       | =  |		Execute	Package,Field_Read,Field_Number 0x3d
1695 1827       | '  |		Execute	Package,Field_Execute,Field_Number 0x27
1696 00d1       |    |		Pop_Control	Pop_Count_1
1697 005b       | [  |		Store_Top	Discrete,At_Offset_3
1698 00d9       |    |		Load_Top	At_Offset_1
1699 0e00       |    |		Execute_Immediate	Not_Equal,0x0
169a e803       |    |		Load	0x4,0x3
169b e00f       |    |		Load	0x0,0xf
169c 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
169d 0278       | x  |		Execute	Discrete,Or
169e 682d       |h-  |		Jump_Zero	0x16cc
169f 00ea       |    |		Load_Encached	Null_String_Cache
16a0 00ea       |    |		Load_Encached	Null_String_Cache
16a1 e60c       |    |		Load	0x3,0xc
16a2 0092 1a01  |    |		Action	Push_String_Extended,0x1a01					; "\x5c"
16a4 01cc       |    |		Execute	Vector,Catenate
16a5 e60e       |    |		Load	0x3,0xe
16a6 01cc       |    |		Execute	Vector,Catenate
16a7 0092 1a01  |    |		Action	Push_String_Extended,0x1a01					; "\x5c"
16a9 01cc       |    |		Execute	Vector,Catenate
16aa e609       |    |		Load	0x3,0x9
16ab 01cc       |    |		Execute	Vector,Catenate
16ac 0092 1a01  |    |		Action	Push_String_Extended,0x1a01					; "\x5c"
16ae 01cc       |    |		Execute	Vector,Catenate
16af e615       |    |		Load	0x3,0x15
16b0 01cc       |    |		Execute	Vector,Catenate
16b1 0092 1a01  |    |		Action	Push_String_Extended,0x1a01					; "\x5c"
16b3 01cc       |    |		Execute	Vector,Catenate
16b4 e617       |    |		Load	0x3,0x17
16b5 01cc       |    |		Execute	Vector,Catenate
16b6 0092 1a01  |    |		Action	Push_String_Extended,0x1a01					; "\x5c"
16b8 01cc       |    |		Execute	Vector,Catenate
16b9 e804       |    |		Load	0x4,0x4
16ba 01cc       |    |		Execute	Vector,Catenate
16bb 0092 1a01  |    |		Action	Push_String_Extended,0x1a01					; "\x5c"
16bd 01cc       |    |		Execute	Vector,Catenate
16be e805       |    |		Load	0x4,0x5
16bf e028       | (  |		Load	0x0,0x28
16c0 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
16c1 01cc       |    |		Execute	Vector,Catenate
16c2 e802       |    |		Load	0x4,0x2
16c3 e60a       |    |		Load	0x3,0xa
16c4 00ea       |    |		Load_Encached	Null_String_Cache
16c5 e60b       |    |		Load	0x3,0xb
16c6 e603       |    |		Load	0x3,0x3
16c7 6060       |``  |		Indirect_Literal	Discrete,0x1728,{0x00000000, 0x00001d6c}
16c8 483b       |H;  |		Short_Literal	0x3b
16c9 e002       |    |		Load	0x0,0x2
16ca 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
16cb 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
16cc 00ea       |    |		Load_Encached	Null_String_Cache
16cd 00ea       |    |		Load_Encached	Null_String_Cache
16ce e60c       |    |		Load	0x3,0xc
16cf 0092 1a01  |    |		Action	Push_String_Extended,0x1a01					; "\x5c"
16d1 01cc       |    |		Execute	Vector,Catenate
16d2 e60e       |    |		Load	0x3,0xe
16d3 01cc       |    |		Execute	Vector,Catenate
16d4 0092 1a01  |    |		Action	Push_String_Extended,0x1a01					; "\x5c"
16d6 01cc       |    |		Execute	Vector,Catenate
16d7 e609       |    |		Load	0x3,0x9
16d8 01cc       |    |		Execute	Vector,Catenate
16d9 0092 1a01  |    |		Action	Push_String_Extended,0x1a01					; "\x5c"
16db 01cc       |    |		Execute	Vector,Catenate
16dc e615       |    |		Load	0x3,0x15
16dd 01cc       |    |		Execute	Vector,Catenate
16de 0092 1a01  |    |		Action	Push_String_Extended,0x1a01					; "\x5c"
16e0 01cc       |    |		Execute	Vector,Catenate
16e1 e617       |    |		Load	0x3,0x17
16e2 01cc       |    |		Execute	Vector,Catenate
16e3 0092 1a01  |    |		Action	Push_String_Extended,0x1a01					; "\x5c"
16e5 01cc       |    |		Execute	Vector,Catenate
16e6 e804       |    |		Load	0x4,0x4
16e7 01cc       |    |		Execute	Vector,Catenate
16e8 0092 1a01  |    |		Action	Push_String_Extended,0x1a01					; "\x5c"
16ea 01cc       |    |		Execute	Vector,Catenate
16eb e805       |    |		Load	0x4,0x5
16ec e028       | (  |		Load	0x0,0x28
16ed 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
16ee 01cc       |    |		Execute	Vector,Catenate
16ef e802       |    |		Load	0x4,0x2
16f0 e60a       |    |		Load	0x3,0xa
16f1 e803       |    |		Load	0x4,0x3
16f2 e00f       |    |		Load	0x0,0xf
16f3 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
16f4 1838       | 8  |		Execute	Package,Field_Execute,Field_Number 0x38
16f5 e60b       |    |		Load	0x3,0xb
16f6 e603       |    |		Load	0x3,0x3
16f7 6030       |`0  |		Indirect_Literal	Discrete,0x1728,{0x00000000, 0x00001d6c}
16f8 483b       |H;  |		Short_Literal	0x3b
16f9 e002       |    |		Load	0x0,0x2
16fa 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
16fb 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
16fc 00ea       |    |		Load_Encached	Null_String_Cache
16fd 00ea       |    |		Load_Encached	Null_String_Cache
16fe e60c       |    |		Load	0x3,0xc
16ff 0092 1a01  |    |		Action	Push_String_Extended,0x1a01					; "\x5c"
1701 01cc       |    |		Execute	Vector,Catenate
1702 e60e       |    |		Load	0x3,0xe
1703 01cc       |    |		Execute	Vector,Catenate
1704 0092 1a01  |    |		Action	Push_String_Extended,0x1a01					; "\x5c"
1706 01cc       |    |		Execute	Vector,Catenate
1707 e609       |    |		Load	0x3,0x9
1708 01cc       |    |		Execute	Vector,Catenate
1709 0092 1a01  |    |		Action	Push_String_Extended,0x1a01					; "\x5c"
170b 01cc       |    |		Execute	Vector,Catenate
170c e610       |    |		Load	0x3,0x10
170d 01cc       |    |		Execute	Vector,Catenate
170e 0092 1a01  |    |		Action	Push_String_Extended,0x1a01					; "\x5c"
1710 01cc       |    |		Execute	Vector,Catenate
1711 e615       |    |		Load	0x3,0x15
1712 01cc       |    |		Execute	Vector,Catenate
1713 0092 1a01  |    |		Action	Push_String_Extended,0x1a01					; "\x5c"
1715 01cc       |    |		Execute	Vector,Catenate
1716 e617       |    |		Load	0x3,0x17
1717 01cc       |    |		Execute	Vector,Catenate
1718 e614       |    |		Load	0x3,0x14
1719 e612       |    |		Load	0x3,0x12
171a e60b       |    |		Load	0x3,0xb
171b e60a       |    |		Load	0x3,0xa
171c e603       |    |		Load	0x3,0x3
171d 4af1       |J   |		Short_Literal	0x2f1
171e 4818       |H   |		Short_Literal	0x18
171f e002       |    |		Load	0x0,0x2
1720 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
1721 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
1722 00d1       |    |		Pop_Control	Pop_Count_1
1723 0092 1a11  |    |		Action	Push_String_Extended,0x1a11					; "Cannot edit that type of object"
1725 825d       | ]  |		Call	0x1,0x5d
1726 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
1727 0000       |    |		.XXX[0x1]
1728 0000 0000  |    |		.LITERAL	{0x00000000, 0x00001d6c}
172c 0000 0000  |    |		.LITERAL	{0x00000000, 0x00001d6b}
1730 0000 0000  |    |		.LITERAL	{0x00000000, 0x00004000}
1734 0000 0000  |    |		.BLANK	0000[0x4]
1738 ; --------------------------------------------------------------------------------------
1738 ; SUBPROGRAM
1738 ; --------------------------------------------------------------------------------------
1738 1748       | H  |		.CONST	0x1748								; Address of begin
1739 0004       |    |		.CONST	0x0004								; Address of exception handler
173a 0002       |    |		.CONST	0x0002								; Number of locals
173b			INIT_1738:
173b 0092 1a12  |    |		Action	Push_String_Extended,0x1a12					; "State => "
173d e605       |    |		Load	0x3,0x5
173e e00f       |    |		Load	0x0,0xf
173f 1b3f       | ?  |		Execute	Package,Field_Read,Field_Number 0x3f
1740 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
1741 e00f       |    |		Load	0x0,0xf
1742 1b3a       | :  |		Execute	Package,Field_Read,Field_Number 0x3a
1743 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
1744 011c       |    |		Execute	Any,Convert_Unchecked
1745 1c01       |    |		Execute_Immediate	Run_Utility,0x1
1746 01cc       |    |		Execute	Vector,Catenate
1747 0007       |    |		Action	Break_Optional
1748			BODY_1738:
1748 e606       |    |		Load	0x3,0x6
1749 0f03       |    |		Execute_Immediate	Equal,0x3
174a 702b       |p+  |		Jump_Nonzero	0x1776
174b 00ea       |    |		Load_Encached	Null_String_Cache
174c 00ea       |    |		Load_Encached	Null_String_Cache
174d 00da       |    |		Load_Top	At_Offset_2
174e 0092 1a01  |    |		Action	Push_String_Extended,0x1a01					; "\x5c"
1750 01cc       |    |		Execute	Vector,Catenate
1751 e60c       |    |		Load	0x3,0xc
1752 01cc       |    |		Execute	Vector,Catenate
1753 0092 1a01  |    |		Action	Push_String_Extended,0x1a01					; "\x5c"
1755 01cc       |    |		Execute	Vector,Catenate
1756 e60e       |    |		Load	0x3,0xe
1757 01cc       |    |		Execute	Vector,Catenate
1758 0092 1a01  |    |		Action	Push_String_Extended,0x1a01					; "\x5c"
175a 01cc       |    |		Execute	Vector,Catenate
175b e609       |    |		Load	0x3,0x9
175c 01cc       |    |		Execute	Vector,Catenate
175d 0092 1a01  |    |		Action	Push_String_Extended,0x1a01					; "\x5c"
175f 01cc       |    |		Execute	Vector,Catenate
1760 e610       |    |		Load	0x3,0x10
1761 01cc       |    |		Execute	Vector,Catenate
1762 0092 1a01  |    |		Action	Push_String_Extended,0x1a01					; "\x5c"
1764 01cc       |    |		Execute	Vector,Catenate
1765 e615       |    |		Load	0x3,0x15
1766 01cc       |    |		Execute	Vector,Catenate
1767 0092 1a01  |    |		Action	Push_String_Extended,0x1a01					; "\x5c"
1769 01cc       |    |		Execute	Vector,Catenate
176a e617       |    |		Load	0x3,0x17
176b 01cc       |    |		Execute	Vector,Catenate
176c e614       |    |		Load	0x3,0x14
176d e612       |    |		Load	0x3,0x12
176e e60b       |    |		Load	0x3,0xb
176f e60a       |    |		Load	0x3,0xa
1770 e603       |    |		Load	0x3,0x3
1771 4af1       |J   |		Short_Literal	0x2f1
1772 4818       |H   |		Short_Literal	0x18
1773 e002       |    |		Load	0x0,0x2
1774 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
1775 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
1776 00ea       |    |		Load_Encached	Null_String_Cache
1777 00ea       |    |		Load_Encached	Null_String_Cache
1778 e60c       |    |		Load	0x3,0xc
1779 0092 1a01  |    |		Action	Push_String_Extended,0x1a01					; "\x5c"
177b 01cc       |    |		Execute	Vector,Catenate
177c e60e       |    |		Load	0x3,0xe
177d 01cc       |    |		Execute	Vector,Catenate
177e 0092 1a01  |    |		Action	Push_String_Extended,0x1a01					; "\x5c"
1780 01cc       |    |		Execute	Vector,Catenate
1781 e609       |    |		Load	0x3,0x9
1782 01cc       |    |		Execute	Vector,Catenate
1783 0092 1a01  |    |		Action	Push_String_Extended,0x1a01					; "\x5c"
1785 01cc       |    |		Execute	Vector,Catenate
1786 e610       |    |		Load	0x3,0x10
1787 01cc       |    |		Execute	Vector,Catenate
1788 0092 1a01  |    |		Action	Push_String_Extended,0x1a01					; "\x5c"
178a 01cc       |    |		Execute	Vector,Catenate
178b e615       |    |		Load	0x3,0x15
178c 01cc       |    |		Execute	Vector,Catenate
178d 0092 1a01  |    |		Action	Push_String_Extended,0x1a01					; "\x5c"
178f 01cc       |    |		Execute	Vector,Catenate
1790 e617       |    |		Load	0x3,0x17
1791 01cc       |    |		Execute	Vector,Catenate
1792 e614       |    |		Load	0x3,0x14
1793 e612       |    |		Load	0x3,0x12
1794 e60b       |    |		Load	0x3,0xb
1795 e60a       |    |		Load	0x3,0xa
1796 e603       |    |		Load	0x3,0x3
1797 4af1       |J   |		Short_Literal	0x2f1
1798 4818       |H   |		Short_Literal	0x18
1799 e002       |    |		Load	0x0,0x2
179a 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
179b 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
179c 0000 0000  |    |		.BLANK	0000[0x4]
17a0 ; --------------------------------------------------------------------------------------
17a0 ; SUBPROGRAM
17a0 ; --------------------------------------------------------------------------------------
17a0 17b7       |    |		.CONST	0x17b7								; Address of begin
17a1 0004       |    |		.CONST	0x0004								; Address of exception handler
17a2 0004       |    |		.CONST	0x0004								; Number of locals
17a3			INIT_17a0:
17a3 e602       |    |		Load	0x3,0x2
17a4 e00f       |    |		Load	0x0,0xf
17a5 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
17a6 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
17a7 e00f       |    |		Load	0x0,0xf
17a8 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
17a9 02c7       |    |		Declare_Variable	Any
17aa 0092 19a5  |    |		Action	Push_String_Extended,0x19a5					; "<Cursor>"
17ac e001       |    |		Load	0x0,0x1
17ad 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
17ae a803       |    |		Store_Unchecked	0x4,0x3
17af e00f       |    |		Load	0x0,0xf
17b0 1b3f       | ?  |		Execute	Package,Field_Read,Field_Number 0x3f
17b1 1b21       | !  |		Execute	Package,Field_Read,Field_Number 0x21
17b2 02c7       |    |		Declare_Variable	Any
17b3 00d9       |    |		Load_Top	At_Offset_1
17b4 e001       |    |		Load	0x0,0x1
17b5 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
17b6 a804       |    |		Store_Unchecked	0x4,0x4
17b7			BODY_17a0:
17b7 e5fe       |    |		Load	0x2,-0x2
17b8 0f01       |    |		Execute_Immediate	Equal,0x1
17b9 700c       |p   |		Jump_Nonzero	0x17c6
17ba 00d8       |    |		Load_Top	At_Offset_0
17bb e00f       |    |		Load	0x0,0xf
17bc 1b3f       | ?  |		Execute	Package,Field_Read,Field_Number 0x3f
17bd 182a       | *  |		Execute	Package,Field_Execute,Field_Number 0x2a
17be 6812       |h   |		Jump_Zero	0x17d1
17bf 0092 199d  |    |		Action	Push_String_Extended,0x199d					; "<PROFILE>"
17c1 4801       |H   |		Short_Literal	0x1
17c2 e802       |    |		Load	0x4,0x2
17c3 e006       |    |		Load	0x0,0x6
17c4 181f       |    |		Execute	Package,Field_Execute,Field_Number 0x1f
17c5 780b       |x   |		Jump	0x17d1
17c6 00d8       |    |		Load_Top	At_Offset_0
17c7 e00f       |    |		Load	0x0,0xf
17c8 1b3f       | ?  |		Execute	Package,Field_Read,Field_Number 0x3f
17c9 182a       | *  |		Execute	Package,Field_Execute,Field_Number 0x2a
17ca 7006       |p   |		Jump_Nonzero	0x17d1
17cb 0092 199d  |    |		Action	Push_String_Extended,0x199d					; "<PROFILE>"
17cd 4801       |H   |		Short_Literal	0x1
17ce e802       |    |		Load	0x4,0x2
17cf e006       |    |		Load	0x0,0x6
17d0 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
17d1 4800       |H   |		Short_Literal	0x0
17d2 00ea       |    |		Load_Encached	Null_String_Cache
17d3 4820       |H   |		Short_Literal	0x20
17d4 4820       |H   |		Short_Literal	0x20
17d5 e5fd       |    |		Load	0x2,-0x3
17d6 e00b       |    |		Load	0x0,0xb
17d7 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
17d8 e00b       |    |		Load	0x0,0xb
17d9 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
17da e00b       |    |		Load	0x0,0xb
17db 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
17dc 700f       |p   |		Jump_Nonzero	0x17ec
17dd e5fd       |    |		Load	0x2,-0x3
17de e001       |    |		Load	0x0,0x1
17df 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
17e0 6807       |h   |		Jump_Zero	0x17e8
17e1 0092 199d  |    |		Action	Push_String_Extended,0x199d					; "<PROFILE>"
17e3 00db       |    |		Load_Top	At_Offset_3
17e4 e5fd       |    |		Load	0x2,-0x3
17e5 e009       |    |		Load	0x0,0x9
17e6 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
17e7 7804       |x   |		Jump	0x17ec
17e8 0092 1a07  |    |		Action	Push_String_Extended,0x1a07					; "Switch file does not exist"
17ea e024       | $  |		Load	0x0,0x24
17eb 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
17ec 4801       |H   |		Short_Literal	0x1
17ed e5fc       |    |		Load	0x2,-0x4
17ee e802       |    |		Load	0x4,0x2
17ef e021       | !  |		Load	0x0,0x21
17f0 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
17f1 e00b       |    |		Load	0x0,0xb
17f2 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
17f3 7006       |p   |		Jump_Nonzero	0x17fa
17f4 0092 199d  |    |		Action	Push_String_Extended,0x199d					; "<PROFILE>"
17f6 00db       |    |		Load_Top	At_Offset_3
17f7 e5fc       |    |		Load	0x2,-0x4
17f8 e023       | #  |		Load	0x0,0x23
17f9 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
17fa 4801       |H   |		Short_Literal	0x1
17fb e5fb       |    |		Load	0x2,-0x5
17fc e802       |    |		Load	0x4,0x2
17fd e021       | !  |		Load	0x0,0x21
17fe 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
17ff e00b       |    |		Load	0x0,0xb
1800 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
1801 7006       |p   |		Jump_Nonzero	0x1808
1802 0092 199d  |    |		Action	Push_String_Extended,0x199d					; "<PROFILE>"
1804 00db       |    |		Load_Top	At_Offset_3
1805 e5fb       |    |		Load	0x2,-0x5
1806 e023       | #  |		Load	0x0,0x23
1807 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
1808 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
1809 0000 0000  |    |		.BLANK	0000[0x7]
1810 ; --------------------------------------------------------------------------------------
1810 ; SUBPROGRAM
1810 ; --------------------------------------------------------------------------------------
1810 1817       |    |		.CONST	0x1817								; Address of begin
1811 0004       |    |		.CONST	0x0004								; Address of exception handler
1812 0002       |    |		.CONST	0x0002								; Number of locals
1813			INIT_1810:
1813 e602       |    |		Load	0x3,0x2
1814 e029       | )  |		Load	0x0,0x29
1815 1b1f       |    |		Execute	Package,Field_Read,Field_Number 0x1f
1816 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
1817			BODY_1810:
1817 00d8       |    |		Load_Top	At_Offset_0
1818 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
1819 700c       |p   |		Jump_Nonzero	0x1826
181a 00d8       |    |		Load_Top	At_Offset_0
181b 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
181c 7009       |p   |		Jump_Nonzero	0x1826
181d 00d8       |    |		Load_Top	At_Offset_0
181e 2c03       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
181f 7006       |p   |		Jump_Nonzero	0x1826
1820 00d8       |    |		Load_Top	At_Offset_0
1821 2c04       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x4
1822 7003       |p   |		Jump_Nonzero	0x1826
1823 4800       |H   |		Short_Literal	0x0
1824 00cb       |    |		Action	Pop_Block_With_Result
1825 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
1826 4801       |H   |		Short_Literal	0x1
1827 00cb       |    |		Action	Pop_Block_With_Result
1828 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
1829 0000 0000  |    |		.BLANK	0000[0x7]
1830 ; --------------------------------------------------------------------------------------
1830 ; SUBPROGRAM
1830 ; --------------------------------------------------------------------------------------
1830 1837       | 7  |		.CONST	0x1837								; Address of begin
1831 0004       |    |		.CONST	0x0004								; Address of exception handler
1832 0002       |    |		.CONST	0x0002								; Number of locals
1833			INIT_1830:
1833 e605       |    |		Load	0x3,0x5
1834 e00f       |    |		Load	0x0,0xf
1835 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
1836 183e       | >  |		Execute	Package,Field_Execute,Field_Number 0x3e
1837			BODY_1830:
1837 e605       |    |		Load	0x3,0x5
1838 8263       | c  |		Call	0x1,0x63
1839 680c       |h   |		Jump_Zero	0x1846
183a 00d8       |    |		Load_Top	At_Offset_0
183b e008       |    |		Load	0x0,0x8
183c 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
183d 6808       |h   |		Jump_Zero	0x1846
183e 0092 199d  |    |		Action	Push_String_Extended,0x199d					; "<PROFILE>"
1840 0092 19a4  |    |		Action	Push_String_Extended,0x19a4					; "<DEFAULT>"
1842 00ea       |    |		Load_Encached	Null_String_Cache
1843 00db       |    |		Load_Top	At_Offset_3
1844 e007       |    |		Load	0x0,0x7
1845 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
1846 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
1847 0000       |    |		.XXX[0x1]
1848 ; --------------------------------------------------------------------------------------
1848 ; SUBPROGRAM
1848 ; --------------------------------------------------------------------------------------
1848 184f       | O  |		.CONST	0x184f								; Address of begin
1849 0004       |    |		.CONST	0x0004								; Address of exception handler
184a 0002       |    |		.CONST	0x0002								; Number of locals
184b			INIT_1848:
184b e606       |    |		Load	0x3,0x6
184c e00f       |    |		Load	0x0,0xf
184d 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
184e 183e       | >  |		Execute	Package,Field_Execute,Field_Number 0x3e
184f			BODY_1848:
184f e606       |    |		Load	0x3,0x6
1850 8262       | b  |		Call	0x1,0x62
1851 a605       |    |		Store_Unchecked	0x3,0x5
1852 e605       |    |		Load	0x3,0x5
1853 00d8       |    |		Load_Top	At_Offset_0
1854 4805       |H   |		Short_Literal	0x5
1855 4806       |H   |		Short_Literal	0x6
1856 0262       | b  |		Execute	Discrete,In_Range
1857 7003       |p   |		Jump_Nonzero	0x185b
1858 0f42       | B  |		Execute_Immediate	Equal,0x42
1859 7002       |p   |		Jump_Nonzero	0x185c
185a 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
185b 00d1       |    |		Pop_Control	Pop_Count_1
185c 00d8       |    |		Load_Top	At_Offset_0
185d 8409       |    |		Call	0x2,0x9
185e 0092 199d  |    |		Action	Push_String_Extended,0x199d					; "<PROFILE>"
1860 0092 19a4  |    |		Action	Push_String_Extended,0x19a4					; "<DEFAULT>"
1862 00ea       |    |		Load_Encached	Null_String_Cache
1863 4800       |H   |		Short_Literal	0x0
1864 4800       |H   |		Short_Literal	0x0
1865 e802       |    |		Load	0x4,0x2
1866 e007       |    |		Load	0x0,0x7
1867 1828       | (  |		Execute	Package,Field_Execute,Field_Number 0x28
1868 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
1869 0000 0000  |    |		.BLANK	0000[0x7]
1870 ; --------------------------------------------------------------------------------------
1870 ; SUBPROGRAM
1870 ; --------------------------------------------------------------------------------------
1870 1877       | w  |		.CONST	0x1877								; Address of begin
1871 0004       |    |		.CONST	0x0004								; Address of exception handler
1872 0002       |    |		.CONST	0x0002								; Number of locals
1873			INIT_1870:
1873 e604       |    |		Load	0x3,0x4
1874 e00f       |    |		Load	0x0,0xf
1875 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
1876 183e       | >  |		Execute	Package,Field_Execute,Field_Number 0x3e
1877			BODY_1870:
1877 e406       |    |		Load	0x2,0x6
1878 0f02       |    |		Execute_Immediate	Equal,0x2
1879 683b       |h;  |		Jump_Zero	0x18b5
187a e407       |    |		Load	0x2,0x7
187b 00d8       |    |		Load_Top	At_Offset_0
187c 0d07       |    |		Execute_Immediate	Less,0x7
187d 700c       |p   |		Jump_Nonzero	0x188a
187e 00d8       |    |		Load_Top	At_Offset_0
187f 0c42       | B  |		Execute_Immediate	Greater_Equal,0x42
1880 7004       |p   |		Jump_Nonzero	0x1885
1881 00d1       |    |		Pop_Control	Pop_Count_1
1882 e604       |    |		Load	0x3,0x4
1883 840b       |    |		Call	0x2,0xb
1884 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
1885 0b42       | B  |		Execute_Immediate	Case_Compare,0x42
1886 7021       |p!  |		Jump_Nonzero	0x18a8
1887 0f4d       | M  |		Execute_Immediate	Equal,0x4d
1888 7008       |p   |		Jump_Nonzero	0x1891
1889 7ff8       |    |		Jump	0x1882
188a 0b04       |    |		Execute_Immediate	Case_Compare,0x4
188b 7010       |p   |		Jump_Nonzero	0x189c
188c 4805       |H   |		Short_Literal	0x5
188d 4806       |H   |		Short_Literal	0x6
188e 0262       | b  |		Execute	Discrete,In_Range
188f 7019       |p   |		Jump_Nonzero	0x18a9
1890 7ff1       |    |		Jump	0x1882
1891 00d8       |    |		Load_Top	At_Offset_0
1892 840a       |    |		Call	0x2,0xa
1893 0092 199d  |    |		Action	Push_String_Extended,0x199d					; "<PROFILE>"
1895 0092 19a4  |    |		Action	Push_String_Extended,0x19a4					; "<DEFAULT>"
1897 00ea       |    |		Load_Encached	Null_String_Cache
1898 00db       |    |		Load_Top	At_Offset_3
1899 e007       |    |		Load	0x0,0x7
189a 182a       | *  |		Execute	Package,Field_Execute,Field_Number 0x2a
189b 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
189c 00d1       |    |		Pop_Control	Pop_Count_1
189d 00d8       |    |		Load_Top	At_Offset_0
189e 840a       |    |		Call	0x2,0xa
189f 0092 199d  |    |		Action	Push_String_Extended,0x199d					; "<PROFILE>"
18a1 0092 19a4  |    |		Action	Push_String_Extended,0x19a4					; "<DEFAULT>"
18a3 00ea       |    |		Load_Encached	Null_String_Cache
18a4 00db       |    |		Load_Top	At_Offset_3
18a5 e007       |    |		Load	0x0,0x7
18a6 1829       | )  |		Execute	Package,Field_Execute,Field_Number 0x29
18a7 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
18a8 00d1       |    |		Pop_Control	Pop_Count_1
18a9 00d8       |    |		Load_Top	At_Offset_0
18aa 8409       |    |		Call	0x2,0x9
18ab 0092 199d  |    |		Action	Push_String_Extended,0x199d					; "<PROFILE>"
18ad 0092 19a4  |    |		Action	Push_String_Extended,0x19a4					; "<DEFAULT>"
18af 00ea       |    |		Load_Encached	Null_String_Cache
18b0 4800       |H   |		Short_Literal	0x0
18b1 4800       |H   |		Short_Literal	0x0
18b2 e802       |    |		Load	0x4,0x2
18b3 e007       |    |		Load	0x0,0x7
18b4 1828       | (  |		Execute	Package,Field_Execute,Field_Number 0x28
18b5 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
18b6 0000 0000  |    |		.XXX[0x2]
18b8 ; --------------------------------------------------------------------------------------
18b8 ; SUBPROGRAM
18b8 ; --------------------------------------------------------------------------------------
18b8 18bf       |    |		.CONST	0x18bf								; Address of begin
18b9 0004       |    |		.CONST	0x0004								; Address of exception handler
18ba 0002       |    |		.CONST	0x0002								; Number of locals
18bb			INIT_18b8:
18bb e605       |    |		Load	0x3,0x5
18bc e00f       |    |		Load	0x0,0xf
18bd 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
18be 1838       | 8  |		Execute	Package,Field_Execute,Field_Number 0x38
18bf			BODY_18b8:
18bf e605       |    |		Load	0x3,0x5
18c0 840c       |    |		Call	0x2,0xc
18c1 00d8       |    |		Load_Top	At_Offset_0
18c2 e008       |    |		Load	0x0,0x8
18c3 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
18c4 6808       |h   |		Jump_Zero	0x18cd
18c5 0092 199d  |    |		Action	Push_String_Extended,0x199d					; "<PROFILE>"
18c7 0092 19a4  |    |		Action	Push_String_Extended,0x19a4					; "<DEFAULT>"
18c9 00ea       |    |		Load_Encached	Null_String_Cache
18ca 00db       |    |		Load_Top	At_Offset_3
18cb e007       |    |		Load	0x0,0x7
18cc 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
18cd 0092 199d  |    |		Action	Push_String_Extended,0x199d					; "<PROFILE>"
18cf 0092 19a4  |    |		Action	Push_String_Extended,0x19a4					; "<DEFAULT>"
18d1 00ea       |    |		Load_Encached	Null_String_Cache
18d2 00db       |    |		Load_Top	At_Offset_3
18d3 e007       |    |		Load	0x0,0x7
18d4 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
18d5 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
18d6 0000 0000  |    |		.XXX[0x2]
18d8 ; --------------------------------------------------------------------------------------
18d8 ; SUBPROGRAM
18d8 ; --------------------------------------------------------------------------------------
18d8 18e3       |    |		.CONST	0x18e3								; Address of begin
18d9 0004       |    |		.CONST	0x0004								; Address of exception handler
18da 0002       |    |		.CONST	0x0002								; Number of locals
18db			INIT_18d8:
18db e405       |    |		Load	0x2,0x5
18dc e00f       |    |		Load	0x0,0xf
18dd 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
18de 1838       | 8  |		Execute	Package,Field_Execute,Field_Number 0x38
18df 0092 1a13  |    |		Action	Push_String_Extended,0x1a13					; "'body"
18e1 01cc       |    |		Execute	Vector,Catenate
18e2 0007       |    |		Action	Break_Optional
18e3			BODY_18d8:
18e3 00d8       |    |		Load_Top	At_Offset_0
18e4 e008       |    |		Load	0x0,0x8
18e5 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
18e6 6808       |h   |		Jump_Zero	0x18ef
18e7 0092 199d  |    |		Action	Push_String_Extended,0x199d					; "<PROFILE>"
18e9 0092 19a4  |    |		Action	Push_String_Extended,0x19a4					; "<DEFAULT>"
18eb 00ea       |    |		Load_Encached	Null_String_Cache
18ec 00db       |    |		Load_Top	At_Offset_3
18ed e007       |    |		Load	0x0,0x7
18ee 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
18ef 0092 199d  |    |		Action	Push_String_Extended,0x199d					; "<PROFILE>"
18f1 0092 19a4  |    |		Action	Push_String_Extended,0x19a4					; "<DEFAULT>"
18f3 00ea       |    |		Load_Encached	Null_String_Cache
18f4 00db       |    |		Load_Top	At_Offset_3
18f5 e007       |    |		Load	0x0,0x7
18f6 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
18f7 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
18f8 ; --------------------------------------------------------------------------------------
18f8 ; SUBPROGRAM
18f8 ; --------------------------------------------------------------------------------------
18f8 190b       |    |		.CONST	0x190b								; Address of begin
18f9 0004       |    |		.CONST	0x0004								; Address of exception handler
18fa 0003       |    |		.CONST	0x0003								; Number of locals
18fb			INIT_18f8:
18fb 4800       |H   |		Short_Literal	0x0
18fc 00db       |    |		Load_Top	At_Offset_3
18fd 0092 1a14  |    |		Action	Push_String_Extended,0x1a14					; "!!"
18ff e00b       |    |		Load	0x0,0xb
1900 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
1901 00e3       |    |		Load_Encached	Natural_Cache
1902 03f1       |    |		Declare_Variable	Discrete,With_Value
1903 4800       |H   |		Short_Literal	0x0
1904 e9ff       |    |		Load	0x4,-0x1
1905 0092 1a15  |    |		Action	Push_String_Extended,0x1a15					; "."
1907 e00b       |    |		Load	0x0,0xb
1908 181f       |    |		Execute	Package,Field_Execute,Field_Number 0x1f
1909 00e3       |    |		Load_Encached	Natural_Cache
190a 03f1       |    |		Declare_Variable	Discrete,With_Value
190b			BODY_18f8:
190b 00d9       |    |		Load_Top	At_Offset_1
190c 0c01       |    |		Execute_Immediate	Greater_Equal,0x1
190d 6810       |h   |		Jump_Zero	0x191e
190e e9fe       |    |		Load	0x4,-0x2
190f 00d9       |    |		Load_Top	At_Offset_1
1910 0a01       |    |		Execute_Immediate	Plus,0x1
1911 00d8       |    |		Load_Top	At_Offset_0
1912 00e2       |    |		Load_Encached	Integer_Cache
1913 0260       | `  |		Execute	Discrete,In_Type
1914 7001       |p   |		Jump_Nonzero	0x1916
1915 0801       |    |		Execute_Immediate	Raise,0x1
1916 e9ff       |    |		Load	0x4,-0x1
1917 01dc       |    |		Execute	Vector,Last
1918 e9ff       |    |		Load	0x4,-0x1
1919 01cf       |    |		Execute	Vector,Slice_Read
191a e014       |    |		Load	0x0,0x14
191b 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
191c 00d1       |    |		Pop_Control	Pop_Count_1
191d 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
191e e9fe       |    |		Load	0x4,-0x2
191f e9ff       |    |		Load	0x4,-0x1
1920 e014       |    |		Load	0x0,0x14
1921 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
1922 00d1       |    |		Pop_Control	Pop_Count_1
1923 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
1924 0000 0000  |    |		.BLANK	0000[0x4]
1928 ; --------------------------------------------------------------------------------------
1928 ; SUBPROGRAM
1928 ; --------------------------------------------------------------------------------------
1928 195e       | ^  |		.CONST	0x195e								; Address of begin
1929 0004       |    |		.CONST	0x0004								; Address of exception handler
192a 0006       |    |		.CONST	0x0006								; Number of locals
192b			INIT_1928:
192b 4820       |H   |		Short_Literal	0x20
192c e604       |    |		Load	0x3,0x4
192d e004       |    |		Load	0x0,0x4
192e 1866       | f  |		Execute	Package,Field_Execute,Field_Number 0x66
192f e00b       |    |		Load	0x0,0xb
1930 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
1931 4801       |H   |		Short_Literal	0x1
1932 00d9       |    |		Load_Top	At_Offset_1
1933 e602       |    |		Load	0x3,0x2
1934 e00b       |    |		Load	0x0,0xb
1935 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
1936 00d9       |    |		Load_Top	At_Offset_1
1937 01dd       |    |		Execute	Vector,First
1938 027f       |    |		Execute	Discrete,Equal
1939 00e1       |    |		Load_Encached	Boolean_Cache
193a 03f1       |    |		Declare_Variable	Discrete,With_Value
193b 4801       |H   |		Short_Literal	0x1
193c 00da       |    |		Load_Top	At_Offset_2
193d 0092 1a16  |    |		Action	Push_String_Extended,0x1a16					; "others"
193f e00b       |    |		Load	0x0,0xb
1940 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
1941 00da       |    |		Load_Top	At_Offset_2
1942 01dd       |    |		Execute	Vector,First
1943 027f       |    |		Execute	Discrete,Equal
1944 00e1       |    |		Load_Encached	Boolean_Cache
1945 03f1       |    |		Declare_Variable	Discrete,With_Value
1946 4801       |H   |		Short_Literal	0x1
1947 00db       |    |		Load_Top	At_Offset_3
1948 4820       |H   |		Short_Literal	0x20
1949 e00b       |    |		Load	0x0,0xb
194a 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
194b 00e3       |    |		Load_Encached	Natural_Cache
194c 03f1       |    |		Declare_Variable	Discrete,With_Value
194d 4801       |H   |		Short_Literal	0x1
194e 00d9       |    |		Load_Top	At_Offset_1
194f 0a01       |    |		Execute_Immediate	Plus,0x1
1950 00d8       |    |		Load_Top	At_Offset_0
1951 00e2       |    |		Load_Encached	Integer_Cache
1952 0260       | `  |		Execute	Discrete,In_Type
1953 7001       |p   |		Jump_Nonzero	0x1955
1954 0801       |    |		Execute_Immediate	Raise,0x1
1955 e802       |    |		Load	0x4,0x2
1956 01dc       |    |		Execute	Vector,Last
1957 e802       |    |		Load	0x4,0x2
1958 01cf       |    |		Execute	Vector,Slice_Read
1959 4820       |H   |		Short_Literal	0x20
195a e00b       |    |		Load	0x0,0xb
195b 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
195c 00e3       |    |		Load_Encached	Natural_Cache
195d 03f1       |    |		Declare_Variable	Discrete,With_Value
195e			BODY_1928:
195e 00db       |    |		Load_Top	At_Offset_3
195f 7006       |p   |		Jump_Nonzero	0x1966
1960 00da       |    |		Load_Top	At_Offset_2
1961 6813       |h   |		Jump_Zero	0x1975
1962 e404       |    |		Load	0x2,0x4
1963 e014       |    |		Load	0x0,0x14
1964 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
1965 700f       |p   |		Jump_Nonzero	0x1975
1966 e404       |    |		Load	0x2,0x4
1967 00da       |    |		Load_Top	At_Offset_2
1968 0a01       |    |		Execute_Immediate	Plus,0x1
1969 00d8       |    |		Load_Top	At_Offset_0
196a 00e2       |    |		Load_Encached	Integer_Cache
196b 0260       | `  |		Execute	Discrete,In_Type
196c 7001       |p   |		Jump_Nonzero	0x196e
196d 0801       |    |		Execute_Immediate	Raise,0x1
196e 00da       |    |		Load_Top	At_Offset_2
196f 0aff       |    |		Execute_Immediate	Plus,-0x1
1970 e802       |    |		Load	0x4,0x2
1971 01cf       |    |		Execute	Vector,Slice_Read
1972 8605       |    |		Call	0x3,0x5
1973 00d1       |    |		Pop_Control	Pop_Count_1
1974 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
1975 e802       |    |		Load	0x4,0x2
1976 01db       |    |		Execute	Vector,Length
1977 0c01       |    |		Execute_Immediate	Greater_Equal,0x1
1978 681b       |h   |		Jump_Zero	0x1994
1979 e802       |    |		Load	0x4,0x2
197a 01dd       |    |		Execute	Vector,First
197b e802       |    |		Load	0x4,0x2
197c 01d7       |    |		Execute	Vector,Field_Read
197d 0f2a       | *  |		Execute_Immediate	Equal,0x2a
197e 6815       |h   |		Jump_Zero	0x1994
197f e402       |    |		Load	0x2,0x2
1980 482c       |H,  |		Short_Literal	0x2c
1981 e802       |    |		Load	0x4,0x2
1982 01dd       |    |		Execute	Vector,First
1983 0a01       |    |		Execute_Immediate	Plus,0x1
1984 00d8       |    |		Load_Top	At_Offset_0
1985 00e2       |    |		Load_Encached	Integer_Cache
1986 0260       | `  |		Execute	Discrete,In_Type
1987 7001       |p   |		Jump_Nonzero	0x1989
1988 0801       |    |		Execute_Immediate	Raise,0x1
1989 e805       |    |		Load	0x4,0x5
198a 0aff       |    |		Execute_Immediate	Plus,-0x1
198b e802       |    |		Load	0x4,0x2
198c 01cf       |    |		Execute	Vector,Slice_Read
198d 01cb       |    |		Execute	Vector,Append
198e e014       |    |		Load	0x0,0x14
198f 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
1990 00d1       |    |		Pop_Control	Pop_Count_1
1991 e405       |    |		Load	0x2,0x5
1992 0a01       |    |		Execute_Immediate	Plus,0x1
1993 c405       |    |		Store	0x2,0x5
1994 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
1995 ; --------------------------------------------------------------------------------------
1995 ; STRING TABLE
1995 ; --------------------------------------------------------------------------------------
1995 0106       |    |		.STRTAB	0x0106->0x1a18							; "\x1b]"
1996 0106       |    |		.STRTAB	0x0106->0x1a19							; "\x07"
1997 0105       |    |		.STRTAB	0x0105->0x1a19							; "Name:"
1998 0108       |    |		.STRTAB	0x0108->0x1a1c							; ".New_File"
1999 010f       |    |		.STRTAB	0x010f->0x1a20							; "New Text File"
199a 011a       |    |		.STRTAB	0x011a->0x1a27							; "The context must be a library or view to create an Ada unit."
199b 0154       | T  |		.STRTAB	0x0154->0x1a45							; "New World"
199c 015b       | [  |		.STRTAB	0x015b->0x1a49							; ".New_World"
199d 0163       | c  |		.STRTAB	0x0163->0x1a4e							; "<PROFILE>"
199e 016a       | j  |		.STRTAB	0x016a->0x1a53							; "Directory Name:"
199f 0177       | w  |		.STRTAB	0x0177->0x1a5a							; ".New_Directory"
19a0 0183       |    |		.STRTAB	0x0183->0x1a61							; "New Directory"
19a1 018e       |    |		.STRTAB	0x018e->0x1a68							; "!Model.R1000"
19a2 0198       |    |		.STRTAB	0x0198->0x1a6e							; ".New_Subsystem"
19a3 01a4       |    |		.STRTAB	0x01a4->0x1a75							; "New Subsystem"
19a4 01af       |    |		.STRTAB	0x01af->0x1a7b							; "<DEFAULT>"
19a5 01b6       |    |		.STRTAB	0x01b6->0x1a80							; "<Cursor>"
19a6 01bc       |    |		.STRTAB	0x01bc->0x1a84							; "New Working View"
19a7 01ca       |    |		.STRTAB	0x01ca->0x1a8c							; "_Working"
19a8 01d0       |    |		.STRTAB	0x01d0->0x1a90							; "New Spec View"
19a9 01db       |    |		.STRTAB	0x01db->0x1a96							; "_Spec"
19aa 01de       |    |		.STRTAB	0x01de->0x1a99							; "<AUTO_GENERATE>"
19ab 01eb       |    |		.STRTAB	0x01eb->0x1aa0							; "Enter library switch file name"
19ac 0207       |    |		.STRTAB	0x0207->0x1aaf							; ".Compiler_Switches"
19ad 0217       |    |		.STRTAB	0x0217->0x1ab8							; "New Switch File"
19ae 0224       | $  |		.STRTAB	0x0224->0x1ac0							; ".New_Activity"
19af 022f       | /  |		.STRTAB	0x022f->0x1ac6							; "<>"
19b0 022f       | /  |		.STRTAB	0x022f->0x1ac7							; "nil"
19b1 0230       | 0  |		.STRTAB	0x0230->0x1ac9							; "Mailbox simple name:"
19b2 0242       | B  |		.STRTAB	0x0242->0x1ad3							; "New Mailbox"
19b3 024b       | K  |		.STRTAB	0x024b->0x1ad8							; ".New_Venture"
19b4 0255       | U  |		.STRTAB	0x0255->0x1ade							; ".New_Work_Order"
19b5 0262       | b  |		.STRTAB	0x0262->0x1ae6							; ".New_Work_Order_List"
19b6 0274       | t  |		.STRTAB	0x0274->0x1af0							; ".New_System"
19b7 027d       | }  |		.STRTAB	0x027d->0x1af5							; "R1000"
19b8 0280       |    |		.STRTAB	0x0280->0x1af8							; "<IMAGE>"
19b9 0285       |    |		.STRTAB	0x0285->0x1afb							; "Open"
19ba 0287       |    |		.STRTAB	0x0287->0x1afd							; "Open Check Out"
19bb 0293       |    |		.STRTAB	0x0293->0x1b04							; "<TOMORROW>"
19bc 029b       |    |		.STRTAB	0x029b->0x1b09							; "<ALL_WORLDS>"
19bd 02a5       |    |		.STRTAB	0x02a5->0x1b0f							; "Editing "
19be 02ab       |    |		.STRTAB	0x02ab->0x1b13							; "\x5c  will result in demotion of "
19bf 02c7       |    |		.STRTAB	0x02c7->0x1b22							; " units\x5c"
19c0 02cc       |    |		.STRTAB	0x02cc->0x1b26							; "in 1 library, \x5c "
19c1 02da       |    |		.STRTAB	0x02da->0x1b2e							; "in "
19c2 02db       |    |		.STRTAB	0x02db->0x1b2f							; " libraries, \x5c "
19c3 02e7       |    |		.STRTAB	0x02e7->0x1b36							; " demoting "
19c4 02ef       |    |		.STRTAB	0x02ef->0x1b3b							; " lines in total.  Ok?"
19c5 0302       |    |		.STRTAB	0x0302->0x1b46							; "Open Demote"
19c6 030b       |    |		.STRTAB	0x030b->0x1b4b							; "Save Changes?"
19c7 0316       |    |		.STRTAB	0x0316->0x1b52							; "File Close"
19c8 031e       |    |		.STRTAB	0x031e->0x1b57							; "<image>"
19c9 0323       | #  |		.STRTAB	0x0323->0x1b5a							; "Send Message?"
19ca 032e       | .  |		.STRTAB	0x032e->0x1b61							; "Command windows cannot be saved."
19cb 034c       | L  |		.STRTAB	0x034c->0x1b71							; "Mail windows cannot be saved.  Use Send_Message to send."
19cc 0382       |    |		.STRTAB	0x0382->0x1b8d							; " is modified.\x5cLose changes?"
19cd 039b       |    |		.STRTAB	0x039b->0x1b9a							; "File Revert"
19ce 03a4       |    |		.STRTAB	0x03a4->0x1ba0							; "F"
19cf 03a3       |    |		.STRTAB	0x03a3->0x1ba0							; "T"
19d0 03a2       |    |		.STRTAB	0x03a2->0x1ba1							; "<CURRENT_WINDOW_CONTENTS>"
19d1 03b9       |    |		.STRTAB	0x03b9->0x1bad							; "<CURSOR>"
19d2 03bf       |    |		.STRTAB	0x03bf->0x1bb1							; "Postscript=>(Wide,Spacing=10,Size=10)"
19d3 03e2       |    |		.STRTAB	0x03e2->0x1bc4							; "<REGION>"
19d4 03e8       |    |		.STRTAB	0x03e8->0x1bc8							; "Copy File"
19d5 03ef       |    |		.STRTAB	0x03ef->0x1bcc							; ".NewFile"
19d6 03f5       |    |		.STRTAB	0x03f5->0x1bd0							; "Move File"
19d7 03fc       |    |		.STRTAB	0x03fc->0x1bd5							; "Enter names of objects to delete."
19d8 041b       |    |		.STRTAB	0x041b->0x1be5							; "{<Cursor>}"
19d9 0423       | #  |		.STRTAB	0x0423->0x1bea							; "Delete File"
19da 042c       | ,  |		.STRTAB	0x042c->0x1bf0							; "Error resolving name: "
19db 0440       | @  |		.STRTAB	0x0440->0x1bfb							; " will delete\x5c"
19dc 044b       | K  |		.STRTAB	0x044b->0x1c01							; " Dependent objects\x5c"
19dd 045c       | \  |		.STRTAB	0x045c->0x1c0b							; " Dependent object\x5c"
19de 046c       | l  |		.STRTAB	0x046c->0x1c14							; " Text objects\x5c"
19df 0478       | x  |		.STRTAB	0x0478->0x1c1b							; " Text object\x5c"
19e0 0483       |    |		.STRTAB	0x0483->0x1c21							; " Ada objects\x5c"
19e1 048e       |    |		.STRTAB	0x048e->0x1c28							; " Ada object\x5c"
19e2 0498       |    |		.STRTAB	0x0498->0x1c2e							; " Directories\x5c"
19e3 04a3       |    |		.STRTAB	0x04a3->0x1c34							; " Directory\x5c"
19e4 04ac       |    |		.STRTAB	0x04ac->0x1c3a							; " Libraries\x5c"
19e5 04b5       |    |		.STRTAB	0x04b5->0x1c3f							; " Library\x5c"
19e6 04bc       |    |		.STRTAB	0x04bc->0x1c44							; " Views\x5c"
19e7 04c1       |    |		.STRTAB	0x04c1->0x1c47							; " View\x5c"
19e8 04c5       |    |		.STRTAB	0x04c5->0x1c4a							; " Subsystems\x5c"
19e9 04cf       |    |		.STRTAB	0x04cf->0x1c50							; " Subsystem\x5c"
19ea 04d8       |    |		.STRTAB	0x04d8->0x1c56							; " miscellaneous objects\x5c"
19eb 04ed       |    |		.STRTAB	0x04ed->0x1c61							; " miscellaneous object\x5c"
19ec 0501       |    |		.STRTAB	0x0501->0x1c6c							; "\x5c Delete?"
19ed 0508       |    |		.STRTAB	0x0508->0x1c71							; "Deleting \x5c"
19ee 0510       |    |		.STRTAB	0x0510->0x1c76							; "Delete File Confirmation"
19ef 0526       | &  |		.STRTAB	0x0526->0x1c82							; "$"
19f0 0525       | %  |		.STRTAB	0x0525->0x1c82							; "Cannot debug on another machine; will run without debug."
19f1 055b       | [  |		.STRTAB	0x055b->0x1c9e							; "true"
19f2 055d       | ]  |		.STRTAB	0x055d->0x1ca0							; "Unable to commit buffers.  Session not logged off"
19f3 058c       |    |		.STRTAB	0x058c->0x1cb9							; " \x5c"
19f4 058c       |    |		.STRTAB	0x058c->0x1cba							; "\x1b]63;\x07"
19f5 0590       |    |		.STRTAB	0x0590->0x1cbd							; "The following buffer(s) are modified:\x5c"
19f6 05b4       |    |		.STRTAB	0x05b4->0x1cd0							; "Quit anyway?"
19f7 05be       |    |		.STRTAB	0x05be->0x1cd6							; " "
19f8 05bd       |    |		.STRTAB	0x05bd->0x1cd6							; "Mailbox"
19f9 05c2       |    |		.STRTAB	0x05c2->0x1cda							; "<Selection>"
19fa 05cb       |    |		.STRTAB	0x05cb->0x1cdf							; "Creator => "
19fb 05d4       |    |		.STRTAB	0x05d4->0x1ce5							; "Create Date => "
19fc 05e1       |    |		.STRTAB	0x05e1->0x1cec							; "Subclass => "
19fd 05eb       |    |		.STRTAB	0x05eb->0x1cf2							; "Total Size => "
19fe 05f7       |    |		.STRTAB	0x05f7->0x1cf9							; "Updater => "
19ff 0600       |    |		.STRTAB	0x0600->0x1cff							; "Update Date => "
1a00 060d       |    |		.STRTAB	0x060d->0x1d06							; "No object selected"
1a01 061d       |    |		.STRTAB	0x061d->0x1d0f							; "\x5c"
1a02 061c       |    |		.STRTAB	0x061c->0x1d10							; "<SESSION>"
1a03 0623       | #  |		.STRTAB	0x0623->0x1d14							; "Error getting access list"
1a04 063a       | :  |		.STRTAB	0x063a->0x1d21							; "<NONE>"
1a05 063e       | >  |		.STRTAB	0x063e->0x1d24							; "Object is not in a subsystem view"
1a06 065d       | ]  |		.STRTAB	0x065d->0x1d34							; "Object is not controlled"
1a07 0673       | s  |		.STRTAB	0x0673->0x1d40							; "Switch file does not exist"
1a08 068b       |    |		.STRTAB	0x068b->0x1d4d							; "{"
1a09 068a       |    |		.STRTAB	0x068a->0x1d4e							; ".@['c(~library)?,'c(library)]}"
1a0a 06a6       |    |		.STRTAB	0x06a6->0x1d5d							; ".??@}"
1a0b 06a9       |    |		.STRTAB	0x06a9->0x1d5f							; ".@'c(library)}"
1a0c 06b5       |    |		.STRTAB	0x06b5->0x1d66							; ".@['c(library),'c(~library)?]}"
1a0d 06d1       |    |		.STRTAB	0x06d1->0x1d75							; "<DIRECTORIES>"
1a0e 06dc       |    |		.STRTAB	0x06dc->0x1d7c							; "<SELECTION>"
1a0f 06e5       |    |		.STRTAB	0x06e5->0x1d81							; "!Machine.Queues.User_To_Printer_Map"
1a10 0706       |    |		.STRTAB	0x0706->0x1d93							; "Volume => "
1a11 070e       |    |		.STRTAB	0x070e->0x1d98							; "Cannot edit that type of object"
1a12 072b       | +  |		.STRTAB	0x072b->0x1da7							; "State => "
1a13 0732       | 2  |		.STRTAB	0x0732->0x1dac							; "'body"
1a14 0735       | 5  |		.STRTAB	0x0735->0x1dae							; "!!"
1a15 0735       | 5  |		.STRTAB	0x0735->0x1daf							; "."
1a16 0734       | 4  |		.STRTAB	0x0734->0x1db0							; "others"
1a17 0738       | 8  |		.STREND 0x0738->0x1db3
1a18 1b5d 074e  | ] N|		.STRTAB_STRINGS
1db3 0000 0000  |    |		.BLANK	0000[0x5]
1db8 ; --------------------------------------------------------------------------------------
1db8 ; Debug Table
1db8 ; --------------------------------------------------------------------------------------
1db8 0004 0012  |    |		.DEBUG4	0x0004,0x0012,0x7ba3,0x0000,0x0001,0x0000
1dbe 0000 0009  |    |		.XXX[0xf]
1dc0 5c00 0069  |\  i|
1dc2 4fc0 0000  |O   |
1dc4 0000 0038  |   8|
1dc6 d390 0000  |    |
1dc8 0000 0001  |    |
1dca 2b90 000d  |+   |
1dcc 29f8       |)   |
1dcd 0000 0000  |    |		.BLANK	0000[0x7]
1dd4 2574 0001  |%t  |		.XXX[0x2c]
1dd6 a53f 0000  | ?  |
1dd8 0000 0000  |    |
1dda e34e 4000  | N@ |
1ddc 0000 0000  |    |
1dde 04ae c000  |    |
1de0 34a7 e000  |4   |
1de2 0000 0000  |    |
1de4 1c69 c800  | i  |
1de6 0000 0000  |    |
1de8 0095 e000  |    |
1dea 0694 fc00  |    |
1dec 0451 2b00  | Q+ |
1dee 038a 5800  |  X |
1df0 0000 0000  |    |
1df2 0012 bd00  |    |
1df4 00d2 9f80  |    |
1df6 008a 2560  |  %`|
1df8 0071 4b00  | qK |
1dfa 0000 0000  |    |
1dfc 0002 57c0  |  W |
1dfe 001a 53f0  |  S |