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

⟦c8cb2fb4e⟧

    Length: 4096 (0x1000)
    Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_0a7cf5

Derivation

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

Disassembly

0000 000f       |    |		.CONST	0x000f								; Version of machine code
0001 5800       |X   |		.CONST	0x5800								; Diana Version, RCG Major Version, RCG minor version
0002 0000       |    |		.CONST	0x0000								; Zero
0003 06e0       |    |		.CONST	0x06e0								; 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 8004       |    |		.CONST	0x8004								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 00cc       |    |		.CONST	0x00cc								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 002f       | /  |		.CONST	0x002f								; Number of locals
000b			INIT_0008:
000b 029a 00d3  |    |		Declare_Subprogram	INIT_00d0,For_Outer_Call,Visible,Unelaborated
000d 029a 0113  |    |		Declare_Subprogram	INIT_0110,For_Outer_Call,Visible,Unelaborated
000f 029a 0123  |   #|		Declare_Subprogram	INIT_0120,For_Outer_Call,Visible,Unelaborated
0011 029a 019b  |    |		Declare_Subprogram	INIT_0198,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 029a 01e3  |    |		Declare_Subprogram	INIT_01e0,For_Outer_Call,Visible,Unelaborated
0034 c21d       |    |		Store	0x1,0x1d
0035 029a 025b  |   [|		Declare_Subprogram	INIT_0258,For_Outer_Call,Visible,Unelaborated
0037 c21e       |    |		Store	0x1,0x1e
0038 029a 02a3  |    |		Declare_Subprogram	INIT_02a0,For_Outer_Call,Visible,Unelaborated
003a c21b       |    |		Store	0x1,0x1b
003b 029a 02e3  |    |		Declare_Subprogram	INIT_02e0,For_Outer_Call,Visible,Unelaborated
003d c21c       |    |		Store	0x1,0x1c
003e 029a 032b  |   +|		Declare_Subprogram	INIT_0328,For_Outer_Call,Visible,Unelaborated
0040 c211       |    |		Store	0x1,0x11
0041 029a 035b  |   [|		Declare_Subprogram	INIT_0358,For_Outer_Call,Visible,Unelaborated
0043 c225       | %  |		Store	0x1,0x25
0044 029a 038b  |    |		Declare_Subprogram	INIT_0388,For_Outer_Call,Visible,Unelaborated
0046 c226       | &  |		Store	0x1,0x26
0047 029a 03ab  |    |		Declare_Subprogram	INIT_03a8,For_Outer_Call,Visible,Unelaborated
0049 c212       |    |		Store	0x1,0x12
004a 029a 03b3  |    |		Declare_Subprogram	INIT_03b0,For_Outer_Call,Visible,Unelaborated
004c c215       |    |		Store	0x1,0x15
004d 029a 03bb  |    |		Declare_Subprogram	INIT_03b8,For_Outer_Call,Visible,Unelaborated
004f c227       | '  |		Store	0x1,0x27
0050 029a 03cb  |    |		Declare_Subprogram	INIT_03c8,For_Outer_Call,Visible,Unelaborated
0052 c213       |    |		Store	0x1,0x13
0053 029a 03d3  |    |		Declare_Subprogram	INIT_03d0,For_Outer_Call,Visible,Unelaborated
0055 c216       |    |		Store	0x1,0x16
0056 029a 03db  |    |		Declare_Subprogram	INIT_03d8,For_Outer_Call,Visible,Unelaborated
0058 c21a       |    |		Store	0x1,0x1a
0059 029a 03e3  |    |		Declare_Subprogram	INIT_03e0,For_Outer_Call,Visible,Unelaborated
005b c228       | (  |		Store	0x1,0x28
005c 029a 03f3  |    |		Declare_Subprogram	INIT_03f0,For_Outer_Call,Visible,Unelaborated
005e c214       |    |		Store	0x1,0x14
005f 029a 0423  |   #|		Declare_Subprogram	INIT_0420,For_Outer_Call,Visible,Unelaborated
0061 c229       | )  |		Store	0x1,0x29
0062 029a 0453  |   S|		Declare_Subprogram	INIT_0450,For_Outer_Call,Visible,Unelaborated
0064 c217       |    |		Store	0x1,0x17
0065 029a 045b  |   [|		Declare_Subprogram	INIT_0458,For_Outer_Call,Visible,Unelaborated
0067 c218       |    |		Store	0x1,0x18
0068 029a 0463  |   c|		Declare_Subprogram	INIT_0460,For_Outer_Call,Visible,Unelaborated
006a c219       |    |		Store	0x1,0x19
006b 029a 046b  |   k|		Declare_Subprogram	INIT_0468,For_Outer_Call,Visible,Unelaborated
006d c21f       |    |		Store	0x1,0x1f
006e 029a 047b  |   {|		Declare_Subprogram	INIT_0478,For_Outer_Call,Visible,Unelaborated
0070 c220       |    |		Store	0x1,0x20
0071 029a 0483  |    |		Declare_Subprogram	INIT_0480,For_Outer_Call,Visible,Unelaborated
0073 c221       | !  |		Store	0x1,0x21
0074 029a 0493  |    |		Declare_Subprogram	INIT_0490,For_Outer_Call,Visible,Unelaborated
0076 c222       | "  |		Store	0x1,0x22
0077 029a 049b  |    |		Declare_Subprogram	INIT_0498,For_Outer_Call,Visible,Unelaborated
0079 c223       | #  |		Store	0x1,0x23
007a 029a 04ab  |    |		Declare_Subprogram	INIT_04a8,For_Outer_Call,Visible,Unelaborated
007c c224       | $  |		Store	0x1,0x24
007d 029a 04cb  |    |		Declare_Subprogram	INIT_04c8,For_Outer_Call,Visible,Unelaborated
007f c22c       | ,  |		Store	0x1,0x2c
0080 029a 0583  |    |		Declare_Subprogram	INIT_0580,For_Outer_Call,Visible,Unelaborated
0082 c22d       | -  |		Store	0x1,0x2d
0083 029a 059b  |    |		Declare_Subprogram	INIT_0598,For_Outer_Call,Visible,Unelaborated
0085 c22e       | .  |		Store	0x1,0x2e
0086 029a 0613  |    |		Declare_Subprogram	INIT_0610,For_Outer_Call,Visible,Unelaborated
0088 c22f       | /  |		Store	0x1,0x2f
0089 00bf       |    |		Action	Accept_Activation
008a 1d0d       |    |		Execute_Immediate	Reference_Lex_1,0xd
008b 00c7       |    |		Action	Elaborate_Subprogram
008c 1d0e       |    |		Execute_Immediate	Reference_Lex_1,0xe
008d 00c7       |    |		Action	Elaborate_Subprogram
008e 1d0f       |    |		Execute_Immediate	Reference_Lex_1,0xf
008f 00c7       |    |		Action	Elaborate_Subprogram
0090 1d10       |    |		Execute_Immediate	Reference_Lex_1,0x10
0091 00c7       |    |		Action	Elaborate_Subprogram
0092 1d1d       |    |		Execute_Immediate	Reference_Lex_1,0x1d
0093 00c7       |    |		Action	Elaborate_Subprogram
0094 1d1e       |    |		Execute_Immediate	Reference_Lex_1,0x1e
0095 00c7       |    |		Action	Elaborate_Subprogram
0096 1d1b       |    |		Execute_Immediate	Reference_Lex_1,0x1b
0097 00c7       |    |		Action	Elaborate_Subprogram
0098 1d1c       |    |		Execute_Immediate	Reference_Lex_1,0x1c
0099 00c7       |    |		Action	Elaborate_Subprogram
009a 1d11       |    |		Execute_Immediate	Reference_Lex_1,0x11
009b 00c7       |    |		Action	Elaborate_Subprogram
009c 1d25       | %  |		Execute_Immediate	Reference_Lex_1,0x25
009d 00c7       |    |		Action	Elaborate_Subprogram
009e 1d26       | &  |		Execute_Immediate	Reference_Lex_1,0x26
009f 00c7       |    |		Action	Elaborate_Subprogram
00a0 1d12       |    |		Execute_Immediate	Reference_Lex_1,0x12
00a1 00c7       |    |		Action	Elaborate_Subprogram
00a2 1d15       |    |		Execute_Immediate	Reference_Lex_1,0x15
00a3 00c7       |    |		Action	Elaborate_Subprogram
00a4 1d27       | '  |		Execute_Immediate	Reference_Lex_1,0x27
00a5 00c7       |    |		Action	Elaborate_Subprogram
00a6 1d13       |    |		Execute_Immediate	Reference_Lex_1,0x13
00a7 00c7       |    |		Action	Elaborate_Subprogram
00a8 1d16       |    |		Execute_Immediate	Reference_Lex_1,0x16
00a9 00c7       |    |		Action	Elaborate_Subprogram
00aa 1d1a       |    |		Execute_Immediate	Reference_Lex_1,0x1a
00ab 00c7       |    |		Action	Elaborate_Subprogram
00ac 1d28       | (  |		Execute_Immediate	Reference_Lex_1,0x28
00ad 00c7       |    |		Action	Elaborate_Subprogram
00ae 1d14       |    |		Execute_Immediate	Reference_Lex_1,0x14
00af 00c7       |    |		Action	Elaborate_Subprogram
00b0 1d29       | )  |		Execute_Immediate	Reference_Lex_1,0x29
00b1 00c7       |    |		Action	Elaborate_Subprogram
00b2 1d17       |    |		Execute_Immediate	Reference_Lex_1,0x17
00b3 00c7       |    |		Action	Elaborate_Subprogram
00b4 1d18       |    |		Execute_Immediate	Reference_Lex_1,0x18
00b5 00c7       |    |		Action	Elaborate_Subprogram
00b6 1d19       |    |		Execute_Immediate	Reference_Lex_1,0x19
00b7 00c7       |    |		Action	Elaborate_Subprogram
00b8 1d1f       |    |		Execute_Immediate	Reference_Lex_1,0x1f
00b9 00c7       |    |		Action	Elaborate_Subprogram
00ba 1d20       |    |		Execute_Immediate	Reference_Lex_1,0x20
00bb 00c7       |    |		Action	Elaborate_Subprogram
00bc 1d21       | !  |		Execute_Immediate	Reference_Lex_1,0x21
00bd 00c7       |    |		Action	Elaborate_Subprogram
00be 1d22       | "  |		Execute_Immediate	Reference_Lex_1,0x22
00bf 00c7       |    |		Action	Elaborate_Subprogram
00c0 1d24       | $  |		Execute_Immediate	Reference_Lex_1,0x24
00c1 00c7       |    |		Action	Elaborate_Subprogram
00c2 1d23       | #  |		Execute_Immediate	Reference_Lex_1,0x23
00c3 00c7       |    |		Action	Elaborate_Subprogram
00c4 1d2c       | ,  |		Execute_Immediate	Reference_Lex_1,0x2c
00c5 00c7       |    |		Action	Elaborate_Subprogram
00c6 1d2d       | -  |		Execute_Immediate	Reference_Lex_1,0x2d
00c7 00c7       |    |		Action	Elaborate_Subprogram
00c8 1d2e       | .  |		Execute_Immediate	Reference_Lex_1,0x2e
00c9 00c7       |    |		Action	Elaborate_Subprogram
00ca 1d2f       | /  |		Execute_Immediate	Reference_Lex_1,0x2f
00cb 00c7       |    |		Action	Elaborate_Subprogram
00cc			BODY_0008:
00cc 00bc       |    |		Action	Signal_Activated
00cd 00bb       |    |		Action	Signal_Completion
00ce 0000 0000  |    |		.XXX[0x2]
00d0 ; --------------------------------------------------------------------------------------
00d0 ; SUBPROGRAM
00d0 ; --------------------------------------------------------------------------------------
00d0 00db       |    |		.CONST	0x00db								; Address of begin
00d1 0004       |    |		.CONST	0x0004								; Address of exception handler
00d2 0003       |    |		.CONST	0x0003								; Number of locals
00d3			INIT_00d0:
00d3 e001       |    |		Load	0x0,0x1
00d4 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
00d5 02c7       |    |		Declare_Variable	Any
00d6 00d8       |    |		Load_Top	At_Offset_0
00d7 1c00       |    |		Execute_Immediate	Run_Utility,0x0
00d8 e001       |    |		Load	0x0,0x1
00d9 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
00da 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
00db			BODY_00d0:
00db e001       |    |		Load	0x0,0x1
00dc 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
00dd 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
00de e402       |    |		Load	0x2,0x2
00df 0120       |    |		Execute	Any,Is_Value
00e0 6803       |h   |		Jump_Zero	0xe4
00e1 e001       |    |		Load	0x0,0x1
00e2 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
00e3 7801       |x   |		Jump	0xe5
00e4 e402       |    |		Load	0x2,0x2
00e5 6022       |`"  |		Indirect_Literal	Discrete,0x108,{0x00000000, 0x00004000}
00e6 e002       |    |		Load	0x0,0x2
00e7 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
00e8 e003       |    |		Load	0x0,0x3
00e9 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
00ea e001       |    |		Load	0x0,0x1
00eb 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
00ec 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
00ed e5ff       |    |		Load	0x2,-0x1
00ee e001       |    |		Load	0x0,0x1
00ef 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
00f0 182c       | ,  |		Execute	Package,Field_Execute,Field_Number 0x2c
00f1 c402       |    |		Store	0x2,0x2
00f2 c403       |    |		Store	0x2,0x3
00f3 00d8       |    |		Load_Top	At_Offset_0
00f4 460e       |F   |		Jump_Case	0xf
00f5 7810       |x   |		Jump	0x106								; case 0x0
00f6 780d       |x   |		Jump	0x104								; case 0x1
00f7 780c       |x   |		Jump	0x104								; case 0x2
00f8 780b       |x   |		Jump	0x104								; case 0x3
00f9 780a       |x   |		Jump	0x104								; case 0x4
00fa 7809       |x   |		Jump	0x104								; case 0x5
00fb 780a       |x   |		Jump	0x106								; case 0x6
00fc 7807       |x   |		Jump	0x104								; case 0x7
00fd 7806       |x   |		Jump	0x104								; case 0x8
00fe 7805       |x   |		Jump	0x104								; case 0x9
00ff 7804       |x   |		Jump	0x104								; case 0xa
0100 7803       |x   |		Jump	0x104								; case 0xb
0101 7802       |x   |		Jump	0x104								; case 0xc
0102 7801       |x   |		Jump	0x104								; case 0xd
0103 7800       |x   |		Jump	0x104								; case 0xe
0104 4800       |H   |		Short_Literal	0x0
0105 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0106 4801       |H   |		Short_Literal	0x1
0107 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0108 0000 0000  |    |		.LITERAL	{0x00000000, 0x00004000}
010c 0000 0000  |    |		.BLANK	0000[0x4]
0110 ; --------------------------------------------------------------------------------------
0110 ; SUBPROGRAM
0110 ; --------------------------------------------------------------------------------------
0110 0113       |    |		.CONST	0x0113								; Address of begin
0111 0004       |    |		.CONST	0x0004								; Address of exception handler
0112 0001       |    |		.CONST	0x0001								; Number of locals
0113			BODY_0110:
0113			INIT_0110:
0113 e5ff       |    |		Load	0x2,-0x1
0114 e004       |    |		Load	0x0,0x4
0115 182a       | *  |		Execute	Package,Field_Execute,Field_Number 0x2a
0116 012f       | /  |		Execute	Any,Equal
0117 0f00       |    |		Execute_Immediate	Equal,0x0
0118 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0119 0000 0000  |    |		.BLANK	0000[0x7]
0120 ; --------------------------------------------------------------------------------------
0120 ; SUBPROGRAM
0120 ; --------------------------------------------------------------------------------------
0120 0131       | 1  |		.CONST	0x0131								; Address of begin
0121 0004       |    |		.CONST	0x0004								; Address of exception handler
0122 0004       |    |		.CONST	0x0004								; Number of locals
0123			INIT_0120:
0123 e001       |    |		Load	0x0,0x1
0124 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
0125 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0126 02c7       |    |		Declare_Variable	Any
0127 00d8       |    |		Load_Top	At_Offset_0
0128 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0129 e001       |    |		Load	0x0,0x1
012a 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
012b e001       |    |		Load	0x0,0x1
012c 1b3d       | =  |		Execute	Package,Field_Read,Field_Number 0x3d
012d 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
012e 02c7       |    |		Declare_Variable	Any
012f 00d8       |    |		Load_Top	At_Offset_0
0130 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0131			BODY_0120:
0131 e001       |    |		Load	0x0,0x1
0132 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0133 e402       |    |		Load	0x2,0x2
0134 0120       |    |		Execute	Any,Is_Value
0135 6804       |h   |		Jump_Zero	0x13a
0136 e001       |    |		Load	0x0,0x1
0137 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
0138 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0139 7801       |x   |		Jump	0x13b
013a e402       |    |		Load	0x2,0x2
013b e5ff       |    |		Load	0x2,-0x1
013c e001       |    |		Load	0x0,0x1
013d 1b39       | 9  |		Execute	Package,Field_Read,Field_Number 0x39
013e 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
013f c402       |    |		Store	0x2,0x2
0140 c403       |    |		Store	0x2,0x3
0141 e403       |    |		Load	0x2,0x3
0142 681a       |h   |		Jump_Zero	0x15d
0143 e005       |    |		Load	0x0,0x5
0144 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0145 4807       |H   |		Short_Literal	0x7
0146 4829       |H)  |		Short_Literal	0x29
0147 0092 0644  |   D|		Action	Push_String_Extended,0x644					; "Unable to get parent of "
0149 e5ff       |    |		Load	0x2,-0x1
014a e001       |    |		Load	0x0,0x1
014b 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
014c 183e       | >  |		Execute	Package,Field_Execute,Field_Number 0x3e
014d 01cc       |    |		Execute	Vector,Catenate
014e 0092 0645  |   E|		Action	Push_String_Extended,0x645					; " ("
0150 01cc       |    |		Execute	Vector,Catenate
0151 e403       |    |		Load	0x2,0x3
0152 e001       |    |		Load	0x0,0x1
0153 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0154 011c       |    |		Execute	Any,Convert_Unchecked
0155 1c01       |    |		Execute_Immediate	Run_Utility,0x1
0156 01cc       |    |		Execute	Vector,Catenate
0157 01cb       |    |		Execute	Vector,Append
0158 e006       |    |		Load	0x0,0x6
0159 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
015a e005       |    |		Load	0x0,0x5
015b 1b47       | G  |		Execute	Package,Field_Read,Field_Number 0x47
015c 0257       | W  |		Execute	Discrete,Raise
015d e001       |    |		Load	0x0,0x1
015e 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
015f e404       |    |		Load	0x2,0x4
0160 0120       |    |		Execute	Any,Is_Value
0161 6804       |h   |		Jump_Zero	0x166
0162 e001       |    |		Load	0x0,0x1
0163 1b3d       | =  |		Execute	Package,Field_Read,Field_Number 0x3d
0164 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0165 7801       |x   |		Jump	0x167
0166 e404       |    |		Load	0x2,0x4
0167 e402       |    |		Load	0x2,0x2
0168 e001       |    |		Load	0x0,0x1
0169 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
016a 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
016b e001       |    |		Load	0x0,0x1
016c 1b3d       | =  |		Execute	Package,Field_Read,Field_Number 0x3d
016d 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
016e c404       |    |		Store	0x2,0x4
016f c403       |    |		Store	0x2,0x3
0170 e403       |    |		Load	0x2,0x3
0171 681a       |h   |		Jump_Zero	0x18c
0172 e005       |    |		Load	0x0,0x5
0173 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0174 4807       |H   |		Short_Literal	0x7
0175 4829       |H)  |		Short_Literal	0x29
0176 0092 0646  |   F|		Action	Push_String_Extended,0x646					; "Unable to obtain enclosing world context of "
0178 e5ff       |    |		Load	0x2,-0x1
0179 e001       |    |		Load	0x0,0x1
017a 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
017b 183e       | >  |		Execute	Package,Field_Execute,Field_Number 0x3e
017c 01cc       |    |		Execute	Vector,Catenate
017d 0092 0645  |   E|		Action	Push_String_Extended,0x645					; " ("
017f 01cc       |    |		Execute	Vector,Catenate
0180 e403       |    |		Load	0x2,0x3
0181 e001       |    |		Load	0x0,0x1
0182 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0183 011c       |    |		Execute	Any,Convert_Unchecked
0184 1c01       |    |		Execute_Immediate	Run_Utility,0x1
0185 01cc       |    |		Execute	Vector,Catenate
0186 01cb       |    |		Execute	Vector,Append
0187 e006       |    |		Load	0x0,0x6
0188 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0189 e005       |    |		Load	0x0,0x5
018a 1b47       | G  |		Execute	Package,Field_Read,Field_Number 0x47
018b 0257       | W  |		Execute	Discrete,Raise
018c 00d8       |    |		Load_Top	At_Offset_0
018d e001       |    |		Load	0x0,0x1
018e 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
018f 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0190 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0191 0000 0000  |    |		.BLANK	0000[0x7]
0198 ; --------------------------------------------------------------------------------------
0198 ; SUBPROGRAM
0198 ; --------------------------------------------------------------------------------------
0198 01a3       |    |		.CONST	0x01a3								; Address of begin
0199 0004       |    |		.CONST	0x0004								; Address of exception handler
019a 0003       |    |		.CONST	0x0003								; Number of locals
019b			INIT_0198:
019b e001       |    |		Load	0x0,0x1
019c 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
019d 02c7       |    |		Declare_Variable	Any
019e 00d8       |    |		Load_Top	At_Offset_0
019f 1c00       |    |		Execute_Immediate	Run_Utility,0x0
01a0 e001       |    |		Load	0x0,0x1
01a1 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
01a2 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
01a3			BODY_0198:
01a3 e001       |    |		Load	0x0,0x1
01a4 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
01a5 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
01a6 e402       |    |		Load	0x2,0x2
01a7 0120       |    |		Execute	Any,Is_Value
01a8 6803       |h   |		Jump_Zero	0x1ac
01a9 e001       |    |		Load	0x0,0x1
01aa 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
01ab 7801       |x   |		Jump	0x1ad
01ac e402       |    |		Load	0x2,0x2
01ad 602a       |`*  |		Indirect_Literal	Discrete,0x1d8,{0x00000000, 0x00004000}
01ae e002       |    |		Load	0x0,0x2
01af 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
01b0 e003       |    |		Load	0x0,0x3
01b1 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
01b2 e001       |    |		Load	0x0,0x1
01b3 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
01b4 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
01b5 e5ff       |    |		Load	0x2,-0x1
01b6 e001       |    |		Load	0x0,0x1
01b7 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
01b8 182c       | ,  |		Execute	Package,Field_Execute,Field_Number 0x2c
01b9 c402       |    |		Store	0x2,0x2
01ba c403       |    |		Store	0x2,0x3
01bb 00d8       |    |		Load_Top	At_Offset_0
01bc 7003       |p   |		Jump_Nonzero	0x1c0
01bd e402       |    |		Load	0x2,0x2
01be 820f       |    |		Call	0x1,0xf
01bf 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01c0 e005       |    |		Load	0x0,0x5
01c1 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
01c2 4807       |H   |		Short_Literal	0x7
01c3 4829       |H)  |		Short_Literal	0x29
01c4 0092 0647  |   G|		Action	Push_String_Extended,0x647					; "Unable to resolve \x22"
01c6 e5ff       |    |		Load	0x2,-0x1
01c7 01cc       |    |		Execute	Vector,Catenate
01c8 0092 0648  |   H|		Action	Push_String_Extended,0x648					; "\x22 ("
01ca 01cc       |    |		Execute	Vector,Catenate
01cb e403       |    |		Load	0x2,0x3
01cc e001       |    |		Load	0x0,0x1
01cd 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
01ce 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
01cf 011c       |    |		Execute	Any,Convert_Unchecked
01d0 1c01       |    |		Execute_Immediate	Run_Utility,0x1
01d1 01cc       |    |		Execute	Vector,Catenate
01d2 01cb       |    |		Execute	Vector,Append
01d3 e006       |    |		Load	0x0,0x6
01d4 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
01d5 e005       |    |		Load	0x0,0x5
01d6 1b47       | G  |		Execute	Package,Field_Read,Field_Number 0x47
01d7 0257       | W  |		Execute	Discrete,Raise
01d8 0000 0000  |    |		.LITERAL	{0x00000000, 0x00004000}
01dc 0000 0000  |    |		.BLANK	0000[0x4]
01e0 ; --------------------------------------------------------------------------------------
01e0 ; SUBPROGRAM
01e0 ; --------------------------------------------------------------------------------------
01e0 01f1       |    |		.CONST	0x01f1								; Address of begin
01e1 0004       |    |		.CONST	0x0004								; Address of exception handler
01e2 0004       |    |		.CONST	0x0004								; Number of locals
01e3			INIT_01e0:
01e3 e001       |    |		Load	0x0,0x1
01e4 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
01e5 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
01e6 02c7       |    |		Declare_Variable	Any
01e7 00d8       |    |		Load_Top	At_Offset_0
01e8 1c00       |    |		Execute_Immediate	Run_Utility,0x0
01e9 e001       |    |		Load	0x0,0x1
01ea 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
01eb e001       |    |		Load	0x0,0x1
01ec 1b3d       | =  |		Execute	Package,Field_Read,Field_Number 0x3d
01ed 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
01ee 02c7       |    |		Declare_Variable	Any
01ef 00d8       |    |		Load_Top	At_Offset_0
01f0 1c00       |    |		Execute_Immediate	Run_Utility,0x0
01f1			BODY_01e0:
01f1 e001       |    |		Load	0x0,0x1
01f2 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
01f3 e402       |    |		Load	0x2,0x2
01f4 0120       |    |		Execute	Any,Is_Value
01f5 6804       |h   |		Jump_Zero	0x1fa
01f6 e001       |    |		Load	0x0,0x1
01f7 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
01f8 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
01f9 7801       |x   |		Jump	0x1fb
01fa e402       |    |		Load	0x2,0x2
01fb e5ff       |    |		Load	0x2,-0x1
01fc e001       |    |		Load	0x0,0x1
01fd 1b39       | 9  |		Execute	Package,Field_Read,Field_Number 0x39
01fe 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
01ff c402       |    |		Store	0x2,0x2
0200 c403       |    |		Store	0x2,0x3
0201 e403       |    |		Load	0x2,0x3
0202 681a       |h   |		Jump_Zero	0x21d
0203 e005       |    |		Load	0x0,0x5
0204 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0205 4807       |H   |		Short_Literal	0x7
0206 4829       |H)  |		Short_Literal	0x29
0207 0092 0644  |   D|		Action	Push_String_Extended,0x644					; "Unable to get parent of "
0209 e5ff       |    |		Load	0x2,-0x1
020a e001       |    |		Load	0x0,0x1
020b 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
020c 183e       | >  |		Execute	Package,Field_Execute,Field_Number 0x3e
020d 01cc       |    |		Execute	Vector,Catenate
020e 0092 0645  |   E|		Action	Push_String_Extended,0x645					; " ("
0210 01cc       |    |		Execute	Vector,Catenate
0211 e403       |    |		Load	0x2,0x3
0212 e001       |    |		Load	0x0,0x1
0213 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0214 011c       |    |		Execute	Any,Convert_Unchecked
0215 1c01       |    |		Execute_Immediate	Run_Utility,0x1
0216 01cc       |    |		Execute	Vector,Catenate
0217 01cb       |    |		Execute	Vector,Append
0218 e006       |    |		Load	0x0,0x6
0219 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
021a e005       |    |		Load	0x0,0x5
021b 1b47       | G  |		Execute	Package,Field_Read,Field_Number 0x47
021c 0257       | W  |		Execute	Discrete,Raise
021d e001       |    |		Load	0x0,0x1
021e 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
021f e404       |    |		Load	0x2,0x4
0220 0120       |    |		Execute	Any,Is_Value
0221 6804       |h   |		Jump_Zero	0x226
0222 e001       |    |		Load	0x0,0x1
0223 1b3d       | =  |		Execute	Package,Field_Read,Field_Number 0x3d
0224 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0225 7801       |x   |		Jump	0x227
0226 e404       |    |		Load	0x2,0x4
0227 e402       |    |		Load	0x2,0x2
0228 e001       |    |		Load	0x0,0x1
0229 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
022a 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
022b e001       |    |		Load	0x0,0x1
022c 1b3d       | =  |		Execute	Package,Field_Read,Field_Number 0x3d
022d 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
022e c404       |    |		Store	0x2,0x4
022f c403       |    |		Store	0x2,0x3
0230 e403       |    |		Load	0x2,0x3
0231 681a       |h   |		Jump_Zero	0x24c
0232 e005       |    |		Load	0x0,0x5
0233 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0234 4807       |H   |		Short_Literal	0x7
0235 4829       |H)  |		Short_Literal	0x29
0236 0092 0649  |   I|		Action	Push_String_Extended,0x649					; "Unable to obtain enclosing directory context of "
0238 e5ff       |    |		Load	0x2,-0x1
0239 e001       |    |		Load	0x0,0x1
023a 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
023b 183e       | >  |		Execute	Package,Field_Execute,Field_Number 0x3e
023c 01cc       |    |		Execute	Vector,Catenate
023d 0092 0645  |   E|		Action	Push_String_Extended,0x645					; " ("
023f 01cc       |    |		Execute	Vector,Catenate
0240 e403       |    |		Load	0x2,0x3
0241 e001       |    |		Load	0x0,0x1
0242 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0243 011c       |    |		Execute	Any,Convert_Unchecked
0244 1c01       |    |		Execute_Immediate	Run_Utility,0x1
0245 01cc       |    |		Execute	Vector,Catenate
0246 01cb       |    |		Execute	Vector,Append
0247 e006       |    |		Load	0x0,0x6
0248 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0249 e005       |    |		Load	0x0,0x5
024a 1b47       | G  |		Execute	Package,Field_Read,Field_Number 0x47
024b 0257       | W  |		Execute	Discrete,Raise
024c 00d8       |    |		Load_Top	At_Offset_0
024d e001       |    |		Load	0x0,0x1
024e 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
024f 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0250 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0251 0000 0000  |    |		.BLANK	0000[0x7]
0258 ; --------------------------------------------------------------------------------------
0258 ; SUBPROGRAM
0258 ; --------------------------------------------------------------------------------------
0258 0263       | c  |		.CONST	0x0263								; Address of begin
0259 0004       |    |		.CONST	0x0004								; Address of exception handler
025a 0003       |    |		.CONST	0x0003								; Number of locals
025b			INIT_0258:
025b e001       |    |		Load	0x0,0x1
025c 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
025d 02c7       |    |		Declare_Variable	Any
025e 00d8       |    |		Load_Top	At_Offset_0
025f 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0260 e001       |    |		Load	0x0,0x1
0261 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0262 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0263			BODY_0258:
0263 e001       |    |		Load	0x0,0x1
0264 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0265 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0266 e402       |    |		Load	0x2,0x2
0267 0120       |    |		Execute	Any,Is_Value
0268 6803       |h   |		Jump_Zero	0x26c
0269 e001       |    |		Load	0x0,0x1
026a 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
026b 7801       |x   |		Jump	0x26d
026c e402       |    |		Load	0x2,0x2
026d 602a       |`*  |		Indirect_Literal	Discrete,0x298,{0x00000000, 0x00004000}
026e e002       |    |		Load	0x0,0x2
026f 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0270 e003       |    |		Load	0x0,0x3
0271 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0272 e001       |    |		Load	0x0,0x1
0273 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0274 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0275 e5ff       |    |		Load	0x2,-0x1
0276 e001       |    |		Load	0x0,0x1
0277 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0278 182c       | ,  |		Execute	Package,Field_Execute,Field_Number 0x2c
0279 c402       |    |		Store	0x2,0x2
027a c403       |    |		Store	0x2,0x3
027b 00d8       |    |		Load_Top	At_Offset_0
027c 7003       |p   |		Jump_Nonzero	0x280
027d e402       |    |		Load	0x2,0x2
027e 821d       |    |		Call	0x1,0x1d
027f 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0280 e005       |    |		Load	0x0,0x5
0281 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0282 4807       |H   |		Short_Literal	0x7
0283 4829       |H)  |		Short_Literal	0x29
0284 0092 0647  |   G|		Action	Push_String_Extended,0x647					; "Unable to resolve \x22"
0286 e5ff       |    |		Load	0x2,-0x1
0287 01cc       |    |		Execute	Vector,Catenate
0288 0092 0648  |   H|		Action	Push_String_Extended,0x648					; "\x22 ("
028a 01cc       |    |		Execute	Vector,Catenate
028b e403       |    |		Load	0x2,0x3
028c e001       |    |		Load	0x0,0x1
028d 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
028e 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
028f 011c       |    |		Execute	Any,Convert_Unchecked
0290 1c01       |    |		Execute_Immediate	Run_Utility,0x1
0291 01cc       |    |		Execute	Vector,Catenate
0292 01cb       |    |		Execute	Vector,Append
0293 e006       |    |		Load	0x0,0x6
0294 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0295 e005       |    |		Load	0x0,0x5
0296 1b47       | G  |		Execute	Package,Field_Read,Field_Number 0x47
0297 0257       | W  |		Execute	Discrete,Raise
0298 0000 0000  |    |		.LITERAL	{0x00000000, 0x00004000}
029c 0000 0000  |    |		.BLANK	0000[0x4]
02a0 ; --------------------------------------------------------------------------------------
02a0 ; SUBPROGRAM
02a0 ; --------------------------------------------------------------------------------------
02a0 02ab       |    |		.CONST	0x02ab								; Address of begin
02a1 0004       |    |		.CONST	0x0004								; Address of exception handler
02a2 0003       |    |		.CONST	0x0003								; Number of locals
02a3			INIT_02a0:
02a3 e001       |    |		Load	0x0,0x1
02a4 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
02a5 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
02a6 02c7       |    |		Declare_Variable	Any
02a7 00d8       |    |		Load_Top	At_Offset_0
02a8 1c00       |    |		Execute_Immediate	Run_Utility,0x0
02a9 e001       |    |		Load	0x0,0x1
02aa 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
02ab			BODY_02a0:
02ab e001       |    |		Load	0x0,0x1
02ac 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
02ad e402       |    |		Load	0x2,0x2
02ae 0120       |    |		Execute	Any,Is_Value
02af 6804       |h   |		Jump_Zero	0x2b4
02b0 e001       |    |		Load	0x0,0x1
02b1 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
02b2 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
02b3 7801       |x   |		Jump	0x2b5
02b4 e402       |    |		Load	0x2,0x2
02b5 e5ff       |    |		Load	0x2,-0x1
02b6 e001       |    |		Load	0x0,0x1
02b7 1b39       | 9  |		Execute	Package,Field_Read,Field_Number 0x39
02b8 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
02b9 c402       |    |		Store	0x2,0x2
02ba c403       |    |		Store	0x2,0x3
02bb 00d8       |    |		Load_Top	At_Offset_0
02bc 681a       |h   |		Jump_Zero	0x2d7
02bd e005       |    |		Load	0x0,0x5
02be 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
02bf 4807       |H   |		Short_Literal	0x7
02c0 4829       |H)  |		Short_Literal	0x29
02c1 0092 0644  |   D|		Action	Push_String_Extended,0x644					; "Unable to get parent of "
02c3 e5ff       |    |		Load	0x2,-0x1
02c4 e001       |    |		Load	0x0,0x1
02c5 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
02c6 183e       | >  |		Execute	Package,Field_Execute,Field_Number 0x3e
02c7 01cc       |    |		Execute	Vector,Catenate
02c8 0092 0645  |   E|		Action	Push_String_Extended,0x645					; " ("
02ca 01cc       |    |		Execute	Vector,Catenate
02cb e403       |    |		Load	0x2,0x3
02cc e001       |    |		Load	0x0,0x1
02cd 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
02ce 011c       |    |		Execute	Any,Convert_Unchecked
02cf 1c01       |    |		Execute_Immediate	Run_Utility,0x1
02d0 01cc       |    |		Execute	Vector,Catenate
02d1 01cb       |    |		Execute	Vector,Append
02d2 e006       |    |		Load	0x0,0x6
02d3 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
02d4 e001       |    |		Load	0x0,0x1
02d5 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
02d6 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
02d7 e402       |    |		Load	0x2,0x2
02d8 e001       |    |		Load	0x0,0x1
02d9 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
02da 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
02db 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
02dc 0000 0000  |    |		.BLANK	0000[0x4]
02e0 ; --------------------------------------------------------------------------------------
02e0 ; SUBPROGRAM
02e0 ; --------------------------------------------------------------------------------------
02e0 02eb       |    |		.CONST	0x02eb								; Address of begin
02e1 0004       |    |		.CONST	0x0004								; Address of exception handler
02e2 0003       |    |		.CONST	0x0003								; Number of locals
02e3			INIT_02e0:
02e3 e001       |    |		Load	0x0,0x1
02e4 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
02e5 02c7       |    |		Declare_Variable	Any
02e6 00d8       |    |		Load_Top	At_Offset_0
02e7 1c00       |    |		Execute_Immediate	Run_Utility,0x0
02e8 e001       |    |		Load	0x0,0x1
02e9 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
02ea 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
02eb			BODY_02e0:
02eb e001       |    |		Load	0x0,0x1
02ec 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
02ed 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
02ee e402       |    |		Load	0x2,0x2
02ef 0120       |    |		Execute	Any,Is_Value
02f0 6803       |h   |		Jump_Zero	0x2f4
02f1 e001       |    |		Load	0x0,0x1
02f2 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
02f3 7801       |x   |		Jump	0x2f5
02f4 e402       |    |		Load	0x2,0x2
02f5 602a       |`*  |		Indirect_Literal	Discrete,0x320,{0x00000000, 0x00004000}
02f6 e002       |    |		Load	0x0,0x2
02f7 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
02f8 e003       |    |		Load	0x0,0x3
02f9 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
02fa e001       |    |		Load	0x0,0x1
02fb 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
02fc 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
02fd e5ff       |    |		Load	0x2,-0x1
02fe e001       |    |		Load	0x0,0x1
02ff 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0300 182c       | ,  |		Execute	Package,Field_Execute,Field_Number 0x2c
0301 c402       |    |		Store	0x2,0x2
0302 c403       |    |		Store	0x2,0x3
0303 00d8       |    |		Load_Top	At_Offset_0
0304 7003       |p   |		Jump_Nonzero	0x308
0305 e402       |    |		Load	0x2,0x2
0306 821b       |    |		Call	0x1,0x1b
0307 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0308 e005       |    |		Load	0x0,0x5
0309 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
030a 4807       |H   |		Short_Literal	0x7
030b 4829       |H)  |		Short_Literal	0x29
030c 0092 0647  |   G|		Action	Push_String_Extended,0x647					; "Unable to resolve \x22"
030e e5ff       |    |		Load	0x2,-0x1
030f 01cc       |    |		Execute	Vector,Catenate
0310 0092 0648  |   H|		Action	Push_String_Extended,0x648					; "\x22 ("
0312 01cc       |    |		Execute	Vector,Catenate
0313 e403       |    |		Load	0x2,0x3
0314 e001       |    |		Load	0x0,0x1
0315 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0316 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0317 011c       |    |		Execute	Any,Convert_Unchecked
0318 1c01       |    |		Execute_Immediate	Run_Utility,0x1
0319 01cc       |    |		Execute	Vector,Catenate
031a 01cb       |    |		Execute	Vector,Append
031b e006       |    |		Load	0x0,0x6
031c 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
031d e005       |    |		Load	0x0,0x5
031e 1b47       | G  |		Execute	Package,Field_Read,Field_Number 0x47
031f 0257       | W  |		Execute	Discrete,Raise
0320 0000 0000  |    |		.LITERAL	{0x00000000, 0x00004000}
0324 0000 0000  |    |		.BLANK	0000[0x4]
0328 ; --------------------------------------------------------------------------------------
0328 ; SUBPROGRAM
0328 ; --------------------------------------------------------------------------------------
0328 0333       | 3  |		.CONST	0x0333								; Address of begin
0329 0004       |    |		.CONST	0x0004								; Address of exception handler
032a 0003       |    |		.CONST	0x0003								; Number of locals
032b			INIT_0328:
032b e001       |    |		Load	0x0,0x1
032c 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
032d 02c7       |    |		Declare_Variable	Any
032e 00d8       |    |		Load_Top	At_Offset_0
032f 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0330 e001       |    |		Load	0x0,0x1
0331 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0332 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0333			BODY_0328:
0333 e001       |    |		Load	0x0,0x1
0334 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0335 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0336 e402       |    |		Load	0x2,0x2
0337 0120       |    |		Execute	Any,Is_Value
0338 6803       |h   |		Jump_Zero	0x33c
0339 e001       |    |		Load	0x0,0x1
033a 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
033b 7801       |x   |		Jump	0x33d
033c e402       |    |		Load	0x2,0x2
033d 67e2       |g   |		Indirect_Literal	Discrete,0x320,{0x00000000, 0x00004000}
033e e002       |    |		Load	0x0,0x2
033f 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0340 e003       |    |		Load	0x0,0x3
0341 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0342 e001       |    |		Load	0x0,0x1
0343 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0344 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0345 e5ff       |    |		Load	0x2,-0x1
0346 e001       |    |		Load	0x0,0x1
0347 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0348 182c       | ,  |		Execute	Package,Field_Execute,Field_Number 0x2c
0349 c402       |    |		Store	0x2,0x2
034a c403       |    |		Store	0x2,0x3
034b 00d8       |    |		Load_Top	At_Offset_0
034c 7002       |p   |		Jump_Nonzero	0x34f
034d e402       |    |		Load	0x2,0x2
034e 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
034f e001       |    |		Load	0x0,0x1
0350 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0351 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0352 0000 0000  |    |		.BLANK	0000[0x6]
0358 ; --------------------------------------------------------------------------------------
0358 ; SUBPROGRAM
0358 ; --------------------------------------------------------------------------------------
0358 0364       | d  |		.CONST	0x0364								; Address of begin
0359 0004       |    |		.CONST	0x0004								; Address of exception handler
035a 0003       |    |		.CONST	0x0003								; Number of locals
035b			INIT_0358:
035b e001       |    |		Load	0x0,0x1
035c 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
035d 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
035e 02c7       |    |		Declare_Variable	Any
035f 00d8       |    |		Load_Top	At_Offset_0
0360 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0361 e001       |    |		Load	0x0,0x1
0362 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0363 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0364			BODY_0358:
0364 e001       |    |		Load	0x0,0x1
0365 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0366 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0367 e402       |    |		Load	0x2,0x2
0368 601b       |`   |		Indirect_Literal	Discrete,0x384,{0x00000000, 0x00004000}
0369 e002       |    |		Load	0x0,0x2
036a 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
036b e003       |    |		Load	0x0,0x3
036c 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
036d e007       |    |		Load	0x0,0x7
036e 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
036f 4801       |H   |		Short_Literal	0x1
0370 4800       |H   |		Short_Literal	0x0
0371 e003       |    |		Load	0x0,0x3
0372 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0373 e001       |    |		Load	0x0,0x1
0374 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0375 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0376 e5ff       |    |		Load	0x2,-0x1
0377 e001       |    |		Load	0x0,0x1
0378 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0379 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
037a c402       |    |		Store	0x2,0x2
037b c403       |    |		Store	0x2,0x3
037c 00d8       |    |		Load_Top	At_Offset_0
037d 7002       |p   |		Jump_Nonzero	0x380
037e e402       |    |		Load	0x2,0x2
037f 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0380 e001       |    |		Load	0x0,0x1
0381 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0382 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
0383 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0384 0000 0000  |    |		.LITERAL	{0x00000000, 0x00004000}
0388 ; --------------------------------------------------------------------------------------
0388 ; SUBPROGRAM
0388 ; --------------------------------------------------------------------------------------
0388 0392       |    |		.CONST	0x0392								; Address of begin
0389 0004       |    |		.CONST	0x0004								; Address of exception handler
038a 0003       |    |		.CONST	0x0003								; Number of locals
038b			INIT_0388:
038b e001       |    |		Load	0x0,0x1
038c 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
038d e001       |    |		Load	0x0,0x1
038e 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
038f 02c7       |    |		Declare_Variable	Any
0390 00d8       |    |		Load_Top	At_Offset_0
0391 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0392			BODY_0388:
0392 e001       |    |		Load	0x0,0x1
0393 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0394 e403       |    |		Load	0x2,0x3
0395 0120       |    |		Execute	Any,Is_Value
0396 6803       |h   |		Jump_Zero	0x39a
0397 e001       |    |		Load	0x0,0x1
0398 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0399 7801       |x   |		Jump	0x39b
039a e403       |    |		Load	0x2,0x3
039b e5ff       |    |		Load	0x2,-0x1
039c e001       |    |		Load	0x0,0x1
039d 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
039e 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
039f c403       |    |		Store	0x2,0x3
03a0 c402       |    |		Store	0x2,0x2
03a1 e402       |    |		Load	0x2,0x2
03a2 6803       |h   |		Jump_Zero	0x3a6
03a3 e001       |    |		Load	0x0,0x1
03a4 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
03a5 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
03a6 00d8       |    |		Load_Top	At_Offset_0
03a7 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
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 e5ff       |    |		Load	0x2,-0x1
03ac e001       |    |		Load	0x0,0x1
03ad 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
03ae 1838       | 8  |		Execute	Package,Field_Execute,Field_Number 0x38
03af 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
03b0 ; --------------------------------------------------------------------------------------
03b0 ; SUBPROGRAM
03b0 ; --------------------------------------------------------------------------------------
03b0 03b3       |    |		.CONST	0x03b3								; Address of begin
03b1 0004       |    |		.CONST	0x0004								; Address of exception handler
03b2 0001       |    |		.CONST	0x0001								; Number of locals
03b3			BODY_03b0:
03b3			INIT_03b0:
03b3 e5ff       |    |		Load	0x2,-0x1
03b4 e001       |    |		Load	0x0,0x1
03b5 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
03b6 1839       | 9  |		Execute	Package,Field_Execute,Field_Number 0x39
03b7 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
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 e5ff       |    |		Load	0x2,-0x1
03bc 8226       | &  |		Call	0x1,0x26
03bd e001       |    |		Load	0x0,0x1
03be 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
03bf 1838       | 8  |		Execute	Package,Field_Execute,Field_Number 0x38
03c0 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
03c1 0000 0000  |    |		.BLANK	0000[0x7]
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 e5ff       |    |		Load	0x2,-0x1
03cc e001       |    |		Load	0x0,0x1
03cd 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
03ce 183b       | ;  |		Execute	Package,Field_Execute,Field_Number 0x3b
03cf 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
03d0 ; --------------------------------------------------------------------------------------
03d0 ; SUBPROGRAM
03d0 ; --------------------------------------------------------------------------------------
03d0 03d3       |    |		.CONST	0x03d3								; Address of begin
03d1 0004       |    |		.CONST	0x0004								; Address of exception handler
03d2 0001       |    |		.CONST	0x0001								; Number of locals
03d3			BODY_03d0:
03d3			INIT_03d0:
03d3 e5ff       |    |		Load	0x2,-0x1
03d4 e001       |    |		Load	0x0,0x1
03d5 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
03d6 183c       | <  |		Execute	Package,Field_Execute,Field_Number 0x3c
03d7 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
03d8 ; --------------------------------------------------------------------------------------
03d8 ; SUBPROGRAM
03d8 ; --------------------------------------------------------------------------------------
03d8 03db       |    |		.CONST	0x03db								; Address of begin
03d9 0004       |    |		.CONST	0x0004								; Address of exception handler
03da 0001       |    |		.CONST	0x0001								; Number of locals
03db			BODY_03d8:
03db			INIT_03d8:
03db e5ff       |    |		Load	0x2,-0x1
03dc e001       |    |		Load	0x0,0x1
03dd 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
03de 1833       | 3  |		Execute	Package,Field_Execute,Field_Number 0x33
03df 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
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 e5ff       |    |		Load	0x2,-0x1
03e4 8226       | &  |		Call	0x1,0x26
03e5 e001       |    |		Load	0x0,0x1
03e6 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
03e7 183b       | ;  |		Execute	Package,Field_Execute,Field_Number 0x3b
03e8 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
03e9 0000 0000  |    |		.BLANK	0000[0x7]
03f0 ; --------------------------------------------------------------------------------------
03f0 ; SUBPROGRAM
03f0 ; --------------------------------------------------------------------------------------
03f0 03fe       |    |		.CONST	0x03fe								; Address of begin
03f1 0004       |    |		.CONST	0x0004								; Address of exception handler
03f2 0004       |    |		.CONST	0x0004								; Number of locals
03f3			INIT_03f0:
03f3 e5ff       |    |		Load	0x2,-0x1
03f4 8212       |    |		Call	0x1,0x12
03f5 e5fe       |    |		Load	0x2,-0x2
03f6 8212       |    |		Call	0x1,0x12
03f7 4801       |H   |		Short_Literal	0x1
03f8 e402       |    |		Load	0x2,0x2
03f9 e403       |    |		Load	0x2,0x3
03fa e008       |    |		Load	0x0,0x8
03fb 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
03fc 00e3       |    |		Load_Encached	Natural_Cache
03fd 03f1       |    |		Declare_Variable	Discrete,With_Value
03fe			BODY_03f0:
03fe 00d8       |    |		Load_Top	At_Offset_0
03ff 7002       |p   |		Jump_Nonzero	0x402
0400 e402       |    |		Load	0x2,0x2
0401 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0402 e403       |    |		Load	0x2,0x3
0403 01db       |    |		Execute	Vector,Length
0404 e402       |    |		Load	0x2,0x2
0405 01db       |    |		Execute	Vector,Length
0406 027f       |    |		Execute	Discrete,Equal
0407 6802       |h   |		Jump_Zero	0x40a
0408 00ea       |    |		Load_Encached	Null_String_Cache
0409 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
040a e402       |    |		Load	0x2,0x2
040b 01dd       |    |		Execute	Vector,First
040c e403       |    |		Load	0x2,0x3
040d 01db       |    |		Execute	Vector,Length
040e 0273       | s  |		Execute	Discrete,Plus
040f 0a01       |    |		Execute_Immediate	Plus,0x1
0410 00d8       |    |		Load_Top	At_Offset_0
0411 00e2       |    |		Load_Encached	Integer_Cache
0412 0260       | `  |		Execute	Discrete,In_Type
0413 7001       |p   |		Jump_Nonzero	0x415
0414 0801       |    |		Execute_Immediate	Raise,0x1
0415 e402       |    |		Load	0x2,0x2
0416 01dc       |    |		Execute	Vector,Last
0417 e402       |    |		Load	0x2,0x2
0418 01cf       |    |		Execute	Vector,Slice_Read
0419 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
041a 0000 0000  |    |		.BLANK	0000[0x6]
0420 ; --------------------------------------------------------------------------------------
0420 ; SUBPROGRAM
0420 ; --------------------------------------------------------------------------------------
0420 042a       | *  |		.CONST	0x042a								; Address of begin
0421 0004       |    |		.CONST	0x0004								; Address of exception handler
0422 0002       |    |		.CONST	0x0002								; Number of locals
0423			INIT_0420:
0423 4801       |H   |		Short_Literal	0x1
0424 e5ff       |    |		Load	0x2,-0x1
0425 e5fe       |    |		Load	0x2,-0x2
0426 e008       |    |		Load	0x0,0x8
0427 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
0428 00e3       |    |		Load_Encached	Natural_Cache
0429 03f1       |    |		Declare_Variable	Discrete,With_Value
042a			BODY_0420:
042a 00d8       |    |		Load_Top	At_Offset_0
042b 7004       |p   |		Jump_Nonzero	0x430
042c e5ff       |    |		Load	0x2,-0x1
042d 0335       | 5  |		Declare_Variable	Array,Duplicate
042e 00cd       |    |		Action	Spare6_Action
042f 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0430 e5fe       |    |		Load	0x2,-0x2
0431 01db       |    |		Execute	Vector,Length
0432 e5ff       |    |		Load	0x2,-0x1
0433 01db       |    |		Execute	Vector,Length
0434 027f       |    |		Execute	Discrete,Equal
0435 6802       |h   |		Jump_Zero	0x438
0436 00ea       |    |		Load_Encached	Null_String_Cache
0437 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0438 e5ff       |    |		Load	0x2,-0x1
0439 01dd       |    |		Execute	Vector,First
043a e5fe       |    |		Load	0x2,-0x2
043b 01db       |    |		Execute	Vector,Length
043c 0273       | s  |		Execute	Discrete,Plus
043d 0a01       |    |		Execute_Immediate	Plus,0x1
043e 00d8       |    |		Load_Top	At_Offset_0
043f 00e2       |    |		Load_Encached	Integer_Cache
0440 0260       | `  |		Execute	Discrete,In_Type
0441 7001       |p   |		Jump_Nonzero	0x443
0442 0801       |    |		Execute_Immediate	Raise,0x1
0443 e5ff       |    |		Load	0x2,-0x1
0444 01dc       |    |		Execute	Vector,Last
0445 e5ff       |    |		Load	0x2,-0x1
0446 01cf       |    |		Execute	Vector,Slice_Read
0447 0335       | 5  |		Declare_Variable	Array,Duplicate
0448 00cd       |    |		Action	Spare6_Action
0449 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
044a 0000 0000  |    |		.BLANK	0000[0x6]
0450 ; --------------------------------------------------------------------------------------
0450 ; SUBPROGRAM
0450 ; --------------------------------------------------------------------------------------
0450 0453       | S  |		.CONST	0x0453								; Address of begin
0451 0004       |    |		.CONST	0x0004								; Address of exception handler
0452 0001       |    |		.CONST	0x0001								; Number of locals
0453			BODY_0450:
0453			INIT_0450:
0453 e5ff       |    |		Load	0x2,-0x1
0454 e001       |    |		Load	0x0,0x1
0455 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0456 1832       | 2  |		Execute	Package,Field_Execute,Field_Number 0x32
0457 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
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 e5ff       |    |		Load	0x2,-0x1
045c e001       |    |		Load	0x0,0x1
045d 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
045e 1834       | 4  |		Execute	Package,Field_Execute,Field_Number 0x34
045f 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0460 ; --------------------------------------------------------------------------------------
0460 ; SUBPROGRAM
0460 ; --------------------------------------------------------------------------------------
0460 0463       | c  |		.CONST	0x0463								; Address of begin
0461 0004       |    |		.CONST	0x0004								; Address of exception handler
0462 0001       |    |		.CONST	0x0001								; Number of locals
0463			BODY_0460:
0463			INIT_0460:
0463 e5ff       |    |		Load	0x2,-0x1
0464 e001       |    |		Load	0x0,0x1
0465 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0466 1835       | 5  |		Execute	Package,Field_Execute,Field_Number 0x35
0467 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0468 ; --------------------------------------------------------------------------------------
0468 ; SUBPROGRAM
0468 ; --------------------------------------------------------------------------------------
0468 046b       | k  |		.CONST	0x046b								; Address of begin
0469 0004       |    |		.CONST	0x0004								; Address of exception handler
046a 0001       |    |		.CONST	0x0001								; Number of locals
046b			BODY_0468:
046b			INIT_0468:
046b e5ff       |    |		Load	0x2,-0x1
046c e001       |    |		Load	0x0,0x1
046d 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
046e 6803       |h   |		Jump_Zero	0x472
046f e001       |    |		Load	0x0,0x1
0470 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
0471 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0472 e5ff       |    |		Load	0x2,-0x1
0473 e001       |    |		Load	0x0,0x1
0474 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
0475 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0476 0000 0000  |    |		.XXX[0x2]
0478 ; --------------------------------------------------------------------------------------
0478 ; SUBPROGRAM
0478 ; --------------------------------------------------------------------------------------
0478 047b       | {  |		.CONST	0x047b								; Address of begin
0479 0004       |    |		.CONST	0x0004								; Address of exception handler
047a 0001       |    |		.CONST	0x0001								; Number of locals
047b			BODY_0478:
047b			INIT_0478:
047b e5ff       |    |		Load	0x2,-0x1
047c 8211       |    |		Call	0x1,0x11
047d 821f       |    |		Call	0x1,0x1f
047e 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
047f 0000       |    |		.XXX[0x1]
0480 ; --------------------------------------------------------------------------------------
0480 ; SUBPROGRAM
0480 ; --------------------------------------------------------------------------------------
0480 0483       |    |		.CONST	0x0483								; Address of begin
0481 0004       |    |		.CONST	0x0004								; Address of exception handler
0482 0001       |    |		.CONST	0x0001								; Number of locals
0483			BODY_0480:
0483			INIT_0480:
0483 e5ff       |    |		Load	0x2,-0x1
0484 e001       |    |		Load	0x0,0x1
0485 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0486 6803       |h   |		Jump_Zero	0x48a
0487 e001       |    |		Load	0x0,0x1
0488 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
0489 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
048a e5ff       |    |		Load	0x2,-0x1
048b e001       |    |		Load	0x0,0x1
048c 182c       | ,  |		Execute	Package,Field_Execute,Field_Number 0x2c
048d 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
048e 0000 0000  |    |		.XXX[0x2]
0490 ; --------------------------------------------------------------------------------------
0490 ; SUBPROGRAM
0490 ; --------------------------------------------------------------------------------------
0490 0493       |    |		.CONST	0x0493								; Address of begin
0491 0004       |    |		.CONST	0x0004								; Address of exception handler
0492 0001       |    |		.CONST	0x0001								; Number of locals
0493			BODY_0490:
0493			INIT_0490:
0493 e5ff       |    |		Load	0x2,-0x1
0494 8211       |    |		Call	0x1,0x11
0495 8221       | !  |		Call	0x1,0x21
0496 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0497 0000       |    |		.XXX[0x1]
0498 ; --------------------------------------------------------------------------------------
0498 ; SUBPROGRAM
0498 ; --------------------------------------------------------------------------------------
0498 049b       |    |		.CONST	0x049b								; Address of begin
0499 0004       |    |		.CONST	0x0004								; Address of exception handler
049a 0001       |    |		.CONST	0x0001								; Number of locals
049b			BODY_0498:
049b			INIT_0498:
049b 00e1       |    |		Load_Encached	Boolean_Cache
049c e5fe       |    |		Load	0x2,-0x2
049d e5ff       |    |		Load	0x2,-0x1
049e 8211       |    |		Call	0x1,0x11
049f 8224       | $  |		Call	0x1,0x24
04a0 c5fd       |    |		Store	0x2,-0x3
04a1 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
04a2 0000 0000  |    |		.BLANK	0000[0x6]
04a8 ; --------------------------------------------------------------------------------------
04a8 ; SUBPROGRAM
04a8 ; --------------------------------------------------------------------------------------
04a8 04ad       |    |		.CONST	0x04ad								; Address of begin
04a9 0004       |    |		.CONST	0x0004								; Address of exception handler
04aa 0002       |    |		.CONST	0x0002								; Number of locals
04ab			INIT_04a8:
04ab e001       |    |		Load	0x0,0x1
04ac 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
04ad			BODY_04a8:
04ad e5ff       |    |		Load	0x2,-0x1
04ae e001       |    |		Load	0x0,0x1
04af 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
04b0 6803       |h   |		Jump_Zero	0x4b4
04b1 4800       |H   |		Short_Literal	0x0
04b2 a5fd       |    |		Store_Unchecked	0x2,-0x3
04b3 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
04b4 e001       |    |		Load	0x0,0x1
04b5 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
04b6 600d       |`   |		Indirect_Literal	Discrete,0x4c4,{0x00000000, 0x00004000}
04b7 e002       |    |		Load	0x0,0x2
04b8 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
04b9 e5fe       |    |		Load	0x2,-0x2
04ba e5ff       |    |		Load	0x2,-0x1
04bb e001       |    |		Load	0x0,0x1
04bc 1b3b       | ;  |		Execute	Package,Field_Read,Field_Number 0x3b
04bd 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
04be c402       |    |		Store	0x2,0x2
04bf 00d8       |    |		Load_Top	At_Offset_0
04c0 0f00       |    |		Execute_Immediate	Equal,0x0
04c1 a5fd       |    |		Store_Unchecked	0x2,-0x3
04c2 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
04c3 0000       |    |		.XXX[0x1]
04c4 0000 0000  |    |		.LITERAL	{0x00000000, 0x00004000}
04c8 ; --------------------------------------------------------------------------------------
04c8 ; SUBPROGRAM
04c8 ; --------------------------------------------------------------------------------------
04c8 04e1       |    |		.CONST	0x04e1								; Address of begin
04c9 0004       |    |		.CONST	0x0004								; Address of exception handler
04ca 0006       |    |		.CONST	0x0006								; Number of locals
04cb			INIT_04c8:
04cb e001       |    |		Load	0x0,0x1
04cc 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
04cd 02c7       |    |		Declare_Variable	Any
04ce 00d8       |    |		Load_Top	At_Offset_0
04cf 1c00       |    |		Execute_Immediate	Run_Utility,0x0
04d0 e009       |    |		Load	0x0,0x9
04d1 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
04d2 02c7       |    |		Declare_Variable	Any
04d3 00d8       |    |		Load_Top	At_Offset_0
04d4 1c00       |    |		Execute_Immediate	Run_Utility,0x0
04d5 e001       |    |		Load	0x0,0x1
04d6 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
04d7 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
04d8 02c7       |    |		Declare_Variable	Any
04d9 00d8       |    |		Load_Top	At_Offset_0
04da 1c00       |    |		Execute_Immediate	Run_Utility,0x0
04db 00f1       |    |		Load_Encached	Diana_Temp_Seq
04dc 02c7       |    |		Declare_Variable	Any
04dd 00d8       |    |		Load_Top	At_Offset_0
04de 1c00       |    |		Execute_Immediate	Run_Utility,0x0
04df e001       |    |		Load	0x0,0x1
04e0 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
04e1			BODY_04c8:
04e1 e5fd       |    |		Load	0x2,-0x3
04e2 7017       |p   |		Jump_Nonzero	0x4fa
04e3 e5fe       |    |		Load	0x2,-0x2
04e4 820d       |    |		Call	0x1,0xd
04e5 6814       |h   |		Jump_Zero	0x4fa
04e6 e5fb       |    |		Load	0x2,-0x5
04e7 4802       |H   |		Short_Literal	0x2
04e8 4822       |H"  |		Short_Literal	0x22
04e9 e5ff       |    |		Load	0x2,-0x1
04ea 8212       |    |		Call	0x1,0x12
04eb 01ca       |    |		Execute	Vector,Prepend
04ec 0092 064a  |   J|		Action	Push_String_Extended,0x64a					; "\x22 to \x22"
04ee 01cc       |    |		Execute	Vector,Catenate
04ef e5fe       |    |		Load	0x2,-0x2
04f0 01cc       |    |		Execute	Vector,Catenate
04f1 0092 064b  |   K|		Action	Push_String_Extended,0x64b					; "\x22 (Destination object already exists)"
04f3 01cc       |    |		Execute	Vector,Catenate
04f4 0092 064c  |   L|		Action	Push_String_Extended,0x64c					; "Unable to copy object"
04f6 e00a       |    |		Load	0x0,0xa
04f7 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
04f8 c5fb       |    |		Store	0x2,-0x5
04f9 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
04fa e001       |    |		Load	0x0,0x1
04fb 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
04fc e405       |    |		Load	0x2,0x5
04fd 0120       |    |		Execute	Any,Is_Value
04fe 6802       |h   |		Jump_Zero	0x501
04ff 00f1       |    |		Load_Encached	Diana_Temp_Seq
0500 7801       |x   |		Jump	0x502
0501 e405       |    |		Load	0x2,0x5
0502 e404       |    |		Load	0x2,0x4
0503 0120       |    |		Execute	Any,Is_Value
0504 6804       |h   |		Jump_Zero	0x509
0505 e001       |    |		Load	0x0,0x1
0506 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
0507 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
0508 7801       |x   |		Jump	0x50a
0509 e404       |    |		Load	0x2,0x4
050a e403       |    |		Load	0x2,0x3
050b 0120       |    |		Execute	Any,Is_Value
050c 6803       |h   |		Jump_Zero	0x510
050d e009       |    |		Load	0x0,0x9
050e 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
050f 7801       |x   |		Jump	0x511
0510 e403       |    |		Load	0x2,0x3
0511 e402       |    |		Load	0x2,0x2
0512 0120       |    |		Execute	Any,Is_Value
0513 6803       |h   |		Jump_Zero	0x517
0514 e001       |    |		Load	0x0,0x1
0515 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0516 7801       |x   |		Jump	0x518
0517 e402       |    |		Load	0x2,0x2
0518 67ab       |g   |		Indirect_Literal	Discrete,0x4c4,{0x00000000, 0x00004000}
0519 e5fc       |    |		Load	0x2,-0x4
051a 4800       |H   |		Short_Literal	0x0
051b e001       |    |		Load	0x0,0x1
051c 1b34       | 4  |		Execute	Package,Field_Read,Field_Number 0x34
051d 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
051e e001       |    |		Load	0x0,0x1
051f 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0520 6057       |`W  |		Indirect_Literal	Discrete,0x578,{0x00000000, 0x7fffffff}
0521 4801       |H   |		Short_Literal	0x1
0522 4ffc       |O   |		Short_Literal	-0x4
0523 e003       |    |		Load	0x0,0x3
0524 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0525 e001       |    |		Load	0x0,0x1
0526 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0527 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0528 4800       |H   |		Short_Literal	0x0
0529 e003       |    |		Load	0x0,0x3
052a 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
052b e001       |    |		Load	0x0,0x1
052c 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
052d 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
052e e5fe       |    |		Load	0x2,-0x2
052f e5ff       |    |		Load	0x2,-0x1
0530 8212       |    |		Call	0x1,0x12
0531 e001       |    |		Load	0x0,0x1
0532 1b3b       | ;  |		Execute	Package,Field_Read,Field_Number 0x3b
0533 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0534 c402       |    |		Store	0x2,0x2
0535 c403       |    |		Store	0x2,0x3
0536 c404       |    |		Store	0x2,0x4
0537 c405       |    |		Store	0x2,0x5
0538 c406       |    |		Store	0x2,0x6
0539 e403       |    |		Load	0x2,0x3
053a e009       |    |		Load	0x0,0x9
053b 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
053c 701a       |p   |		Jump_Nonzero	0x557
053d e5fb       |    |		Load	0x2,-0x5
053e 4802       |H   |		Short_Literal	0x2
053f 4829       |H)  |		Short_Literal	0x29
0540 4822       |H"  |		Short_Literal	0x22
0541 e5ff       |    |		Load	0x2,-0x1
0542 8212       |    |		Call	0x1,0x12
0543 01ca       |    |		Execute	Vector,Prepend
0544 0092 064a  |   J|		Action	Push_String_Extended,0x64a					; "\x22 to \x22"
0546 01cc       |    |		Execute	Vector,Catenate
0547 e5fe       |    |		Load	0x2,-0x2
0548 01cc       |    |		Execute	Vector,Catenate
0549 0092 0648  |   H|		Action	Push_String_Extended,0x648					; "\x22 ("
054b 01cc       |    |		Execute	Vector,Catenate
054c e403       |    |		Load	0x2,0x3
054d e009       |    |		Load	0x0,0x9
054e 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
054f 01cc       |    |		Execute	Vector,Catenate
0550 01cb       |    |		Execute	Vector,Append
0551 0092 064c  |   L|		Action	Push_String_Extended,0x64c					; "Unable to copy object"
0553 e00a       |    |		Load	0x0,0xa
0554 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
0555 c5fb       |    |		Store	0x2,-0x5
0556 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
0557 00d8       |    |		Load_Top	At_Offset_0
0558 681b       |h   |		Jump_Zero	0x574
0559 e5fb       |    |		Load	0x2,-0x5
055a 4802       |H   |		Short_Literal	0x2
055b 4829       |H)  |		Short_Literal	0x29
055c 4822       |H"  |		Short_Literal	0x22
055d e5ff       |    |		Load	0x2,-0x1
055e 8212       |    |		Call	0x1,0x12
055f 01ca       |    |		Execute	Vector,Prepend
0560 0092 064a  |   J|		Action	Push_String_Extended,0x64a					; "\x22 to \x22"
0562 01cc       |    |		Execute	Vector,Catenate
0563 e5fe       |    |		Load	0x2,-0x2
0564 01cc       |    |		Execute	Vector,Catenate
0565 0092 0648  |   H|		Action	Push_String_Extended,0x648					; "\x22 ("
0567 01cc       |    |		Execute	Vector,Catenate
0568 e406       |    |		Load	0x2,0x6
0569 e001       |    |		Load	0x0,0x1
056a 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
056b 011c       |    |		Execute	Any,Convert_Unchecked
056c 1c01       |    |		Execute_Immediate	Run_Utility,0x1
056d 01cc       |    |		Execute	Vector,Catenate
056e 01cb       |    |		Execute	Vector,Append
056f 0092 064c  |   L|		Action	Push_String_Extended,0x64c					; "Unable to copy object"
0571 e00a       |    |		Load	0x0,0xa
0572 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
0573 c5fb       |    |		Store	0x2,-0x5
0574 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
0575 0000 0000  |    |		.XXX[0x3]
0577 0000       |    |
0578 0000 0000  |    |		.LITERAL	{0x00000000, 0x7fffffff}
057c 0000 0000  |    |		.BLANK	0000[0x4]
0580 ; --------------------------------------------------------------------------------------
0580 ; SUBPROGRAM
0580 ; --------------------------------------------------------------------------------------
0580 0583       |    |		.CONST	0x0583								; Address of begin
0581 0004       |    |		.CONST	0x0004								; Address of exception handler
0582 0001       |    |		.CONST	0x0001								; Number of locals
0583			BODY_0580:
0583			INIT_0580:
0583 e5fb       |    |		Load	0x2,-0x5
0584 e5fc       |    |		Load	0x2,-0x4
0585 e5fd       |    |		Load	0x2,-0x3
0586 e5fe       |    |		Load	0x2,-0x2
0587 e5ff       |    |		Load	0x2,-0x1
0588 822c       | ,  |		Call	0x1,0x2c
0589 c5fb       |    |		Store	0x2,-0x5
058a 4801       |H   |		Short_Literal	0x1
058b e5fb       |    |		Load	0x2,-0x5
058c e00a       |    |		Load	0x0,0xa
058d 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
058e 7005       |p   |		Jump_Nonzero	0x594
058f e5fb       |    |		Load	0x2,-0x5
0590 e5fc       |    |		Load	0x2,-0x4
0591 e5ff       |    |		Load	0x2,-0x1
0592 822e       | .  |		Call	0x1,0x2e
0593 c5fb       |    |		Store	0x2,-0x5
0594 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
0595 0000 0000  |    |		.XXX[0x3]
0597 0000       |    |
0598 ; --------------------------------------------------------------------------------------
0598 ; SUBPROGRAM
0598 ; --------------------------------------------------------------------------------------
0598 05b1       |    |		.CONST	0x05b1								; Address of begin
0599 0004       |    |		.CONST	0x0004								; Address of exception handler
059a 0006       |    |		.CONST	0x0006								; Number of locals
059b			INIT_0598:
059b e001       |    |		Load	0x0,0x1
059c 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
059d 02c7       |    |		Declare_Variable	Any
059e 00d8       |    |		Load_Top	At_Offset_0
059f 1c00       |    |		Execute_Immediate	Run_Utility,0x0
05a0 e009       |    |		Load	0x0,0x9
05a1 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
05a2 02c7       |    |		Declare_Variable	Any
05a3 00d8       |    |		Load_Top	At_Offset_0
05a4 1c00       |    |		Execute_Immediate	Run_Utility,0x0
05a5 e001       |    |		Load	0x0,0x1
05a6 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
05a7 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
05a8 02c7       |    |		Declare_Variable	Any
05a9 00d8       |    |		Load_Top	At_Offset_0
05aa 1c00       |    |		Execute_Immediate	Run_Utility,0x0
05ab 00f1       |    |		Load_Encached	Diana_Temp_Seq
05ac 02c7       |    |		Declare_Variable	Any
05ad 00d8       |    |		Load_Top	At_Offset_0
05ae 1c00       |    |		Execute_Immediate	Run_Utility,0x0
05af e001       |    |		Load	0x0,0x1
05b0 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
05b1			BODY_0598:
05b1 e001       |    |		Load	0x0,0x1
05b2 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
05b3 e405       |    |		Load	0x2,0x5
05b4 0120       |    |		Execute	Any,Is_Value
05b5 6802       |h   |		Jump_Zero	0x5b8
05b6 00f1       |    |		Load_Encached	Diana_Temp_Seq
05b7 7801       |x   |		Jump	0x5b9
05b8 e405       |    |		Load	0x2,0x5
05b9 e404       |    |		Load	0x2,0x4
05ba 0120       |    |		Execute	Any,Is_Value
05bb 6804       |h   |		Jump_Zero	0x5c0
05bc e001       |    |		Load	0x0,0x1
05bd 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
05be 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
05bf 7801       |x   |		Jump	0x5c1
05c0 e404       |    |		Load	0x2,0x4
05c1 e403       |    |		Load	0x2,0x3
05c2 0120       |    |		Execute	Any,Is_Value
05c3 6803       |h   |		Jump_Zero	0x5c7
05c4 e009       |    |		Load	0x0,0x9
05c5 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
05c6 7801       |x   |		Jump	0x5c8
05c7 e403       |    |		Load	0x2,0x3
05c8 6043       |`C  |		Indirect_Literal	Discrete,0x60c,{0x00000000, 0x00004000}
05c9 e5fe       |    |		Load	0x2,-0x2
05ca 4800       |H   |		Short_Literal	0x0
05cb e001       |    |		Load	0x0,0x1
05cc 1b34       | 4  |		Execute	Package,Field_Read,Field_Number 0x34
05cd 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
05ce e001       |    |		Load	0x0,0x1
05cf 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
05d0 4800       |H   |		Short_Literal	0x0
05d1 e5ff       |    |		Load	0x2,-0x1
05d2 e001       |    |		Load	0x0,0x1
05d3 1b3b       | ;  |		Execute	Package,Field_Read,Field_Number 0x3b
05d4 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
05d5 c403       |    |		Store	0x2,0x3
05d6 c404       |    |		Store	0x2,0x4
05d7 c405       |    |		Store	0x2,0x5
05d8 c406       |    |		Store	0x2,0x6
05d9 e403       |    |		Load	0x2,0x3
05da e009       |    |		Load	0x0,0x9
05db 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
05dc 7015       |p   |		Jump_Nonzero	0x5f2
05dd e5fd       |    |		Load	0x2,-0x3
05de 4802       |H   |		Short_Literal	0x2
05df 4829       |H)  |		Short_Literal	0x29
05e0 4822       |H"  |		Short_Literal	0x22
05e1 e5ff       |    |		Load	0x2,-0x1
05e2 8212       |    |		Call	0x1,0x12
05e3 01ca       |    |		Execute	Vector,Prepend
05e4 0092 0648  |   H|		Action	Push_String_Extended,0x648					; "\x22 ("
05e6 01cc       |    |		Execute	Vector,Catenate
05e7 e403       |    |		Load	0x2,0x3
05e8 e009       |    |		Load	0x0,0x9
05e9 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
05ea 01cc       |    |		Execute	Vector,Catenate
05eb 01cb       |    |		Execute	Vector,Append
05ec 0092 064d  |   M|		Action	Push_String_Extended,0x64d					; "Unable to destroy object"
05ee e00a       |    |		Load	0x0,0xa
05ef 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
05f0 c5fd       |    |		Store	0x2,-0x3
05f1 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
05f2 00d8       |    |		Load_Top	At_Offset_0
05f3 6816       |h   |		Jump_Zero	0x60a
05f4 e5fd       |    |		Load	0x2,-0x3
05f5 4802       |H   |		Short_Literal	0x2
05f6 4829       |H)  |		Short_Literal	0x29
05f7 4822       |H"  |		Short_Literal	0x22
05f8 e5ff       |    |		Load	0x2,-0x1
05f9 8212       |    |		Call	0x1,0x12
05fa 01ca       |    |		Execute	Vector,Prepend
05fb 0092 0648  |   H|		Action	Push_String_Extended,0x648					; "\x22 ("
05fd 01cc       |    |		Execute	Vector,Catenate
05fe e406       |    |		Load	0x2,0x6
05ff e001       |    |		Load	0x0,0x1
0600 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0601 011c       |    |		Execute	Any,Convert_Unchecked
0602 1c01       |    |		Execute_Immediate	Run_Utility,0x1
0603 01cc       |    |		Execute	Vector,Catenate
0604 01cb       |    |		Execute	Vector,Append
0605 0092 064d  |   M|		Action	Push_String_Extended,0x64d					; "Unable to destroy object"
0607 e00a       |    |		Load	0x0,0xa
0608 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
0609 c5fd       |    |		Store	0x2,-0x3
060a 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
060b 0000       |    |		.XXX[0x1]
060c 0000 0000  |    |		.LITERAL	{0x00000000, 0x00004000}
0610 ; --------------------------------------------------------------------------------------
0610 ; SUBPROGRAM
0610 ; --------------------------------------------------------------------------------------
0610 061a       |    |		.CONST	0x061a								; Address of begin
0611 0004       |    |		.CONST	0x0004								; Address of exception handler
0612 0003       |    |		.CONST	0x0003								; Number of locals
0613			INIT_0610:
0613 e001       |    |		Load	0x0,0x1
0614 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0615 02c7       |    |		Declare_Variable	Any
0616 00d8       |    |		Load_Top	At_Offset_0
0617 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0618 e001       |    |		Load	0x0,0x1
0619 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
061a			BODY_0610:
061a e001       |    |		Load	0x0,0x1
061b 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
061c e402       |    |		Load	0x2,0x2
061d 0120       |    |		Execute	Any,Is_Value
061e 6803       |h   |		Jump_Zero	0x622
061f e001       |    |		Load	0x0,0x1
0620 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0621 7801       |x   |		Jump	0x623
0622 e402       |    |		Load	0x2,0x2
0623 e5ff       |    |		Load	0x2,-0x1
0624 e001       |    |		Load	0x0,0x1
0625 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0626 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
0627 c402       |    |		Store	0x2,0x2
0628 c403       |    |		Store	0x2,0x3
0629 00d8       |    |		Load_Top	At_Offset_0
062a 7007       |p   |		Jump_Nonzero	0x632
062b e5fd       |    |		Load	0x2,-0x3
062c e002       |    |		Load	0x0,0x2
062d 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
062e e402       |    |		Load	0x2,0x2
062f 822e       | .  |		Call	0x1,0x2e
0630 c5fd       |    |		Store	0x2,-0x3
0631 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0632 e5fd       |    |		Load	0x2,-0x3
0633 4802       |H   |		Short_Literal	0x2
0634 4829       |H)  |		Short_Literal	0x29
0635 0092 064e  |   N|		Action	Push_String_Extended,0x64e					; "Unable to resolve directory iterator ("
0637 e403       |    |		Load	0x2,0x3
0638 e001       |    |		Load	0x0,0x1
0639 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
063a 011c       |    |		Execute	Any,Convert_Unchecked
063b 1c01       |    |		Execute_Immediate	Run_Utility,0x1
063c 01cc       |    |		Execute	Vector,Catenate
063d 01cb       |    |		Execute	Vector,Append
063e 0092 064f  |   O|		Action	Push_String_Extended,0x64f					; "Internal error"
0640 e00a       |    |		Load	0x0,0xa
0641 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
0642 c5fd       |    |		Store	0x2,-0x3
0643 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0644 ; --------------------------------------------------------------------------------------
0644 ; STRING TABLE
0644 ; --------------------------------------------------------------------------------------
0644 001a       |    |		.STRTAB	0x001a->0x0651							; "Unable to get parent of "
0645 0030       | 0  |		.STRTAB	0x0030->0x065d							; " ("
0646 0030       | 0  |		.STRTAB	0x0030->0x065e							; "Unable to obtain enclosing world context of "
0647 005a       | Z  |		.STRTAB	0x005a->0x0674							; "Unable to resolve \x22"
0648 006b       | k  |		.STRTAB	0x006b->0x067d							; "\x22 ("
0649 006c       | l  |		.STRTAB	0x006c->0x067f							; "Unable to obtain enclosing directory context of "
064a 009a       |    |		.STRTAB	0x009a->0x0697							; "\x22 to \x22"
064b 009e       |    |		.STRTAB	0x009e->0x069a							; "\x22 (Destination object already exists)"
064c 00c1       |    |		.STRTAB	0x00c1->0x06ac							; "Unable to copy object"
064d 00d4       |    |		.STRTAB	0x00d4->0x06b7							; "Unable to destroy object"
064e 00ea       |    |		.STRTAB	0x00ea->0x06c3							; "Unable to resolve directory iterator ("
064f 010e       |    |		.STRTAB	0x010e->0x06d6							; "Internal error"
0650 011a       |    |		.STREND 0x011a->0x06dd
0651 556e 6162  |Unab|		.STRTAB_STRINGS
06dd 0000 0000  |    |		.XXX[0x3]
06df 0000       |    |
06e0 ; --------------------------------------------------------------------------------------
06e0 ; Debug Table
06e0 ; --------------------------------------------------------------------------------------
06e0 0004 0012  |    |		.DEBUG4	0x0004,0x0012,0xce7c,0x0000,0x0001,0x0000
06e6 9a95 886c  |   l|		.XXX[0x11a]
06e8 e89a da5c  |   \|
06ea e4a0 a8a8  |    |
06ec df86 9b8e  |    |
06ee a200 5ad4  |  Z |
06f0 7a09 7f79  |z  y|
06f2 ad67 e1a2  | g  |
06f4 6e29 a3e4  |n)  |
06f6 67d0 3a91  |g : |
06f8 8094 24e7  |  $ |
06fa d046 a3bf  | F  |
06fc 80e6 e953  |   S|
06fe 9661 dd90  | a  |
0700 6320 12c5  |c   |
0702 f24a 8463  | J c|
0704 6482 b268  |d  h|
0706 cb90 a069  |   i|
0708 c790 0cbd  |    |
070a 7fa3 1954  |   T|
070c 8cdd 398f  |  9 |
070e 6658 0536  |fX 6|
0710 110c 08ed  |    |
0712 aa49 66b1  | If |
0714 9900 764b  |  vK|
0716 00fe 2c4b  |  ,K|
0718 82cd 6013  |  ` |
071a 8890 eb0a  |    |
071c 9ca0 15ed  |    |
071e e34b 8f04  | K  |
0720 5a52 41ed  |ZRA |
0722 fe7e 5297  | ~R |
0724 c246 0546  | F F|
0726 a02d 64f4  | -d |
0728 a251 ba0c  | Q  |
072a 2de0 174c  |-  L|
072c 096a 7c25  | j|%|
072e 29f7 4c01  |) L |
0730 b7bf 1797  |    |
0732 9624 046a  | $ j|
0734 ac2e e7d7  | .  |
0736 0809 7f72  |   r|
0738 0e2b 17ee  | +  |
073a 826a 8177  | j w|
073c 9796 6c05  |  l |
073e f147 b8a9  | G  |
0740 961e c424  |   $|
0742 84f0 a804  |    |
0744 7a10 a350  |z  P|
0746 4f49 270a  |OI' |
0748 add4 77ad  |  w |
074a e8c6 7e8b  |  ~ |
074c a5a1 05a9  |    |
074e 538a 1a1e  |S   |
0750 705d c8bd  |p]  |
0752 5815 41a2  |X A |
0754 15db 29ea  |  ) |
0756 a175 0075  | u u|
0758 c9d4 ea11  |    |
075a 7f00 328a  |  2 |
075c 9056 1b01  | V  |
075e 9671 2848  | q(H|
0760 1a68 078a  | h  |
0762 6469 778a  |diw |
0764 ba24 8073  | $ s|
0766 4485 9282  |D   |
0768 ab9c 0569  |   i|
076a 5882 5185  |X Q |
076c a513 6966  |  if|
076e 1ab6 7b8c  |  { |
0770 4daa 5042  |M PB|
0772 93ce a30e  |    |
0774 29dc 21f1  |) ! |
0776 5201 ee91  |R   |
0778 c1d1 2d61  |  -a|
077a 7a53 29b8  |zS) |
077c 0608 5940  |  Y@|
077e 6d8a 411a  |m A |
0780 82eb bfad  |    |
0782 594b d2c5  |YK  |
0784 8ca2 1e10  |    |
0786 1341 faa2  | A  |
0788 879a 27ca  |  ' |
078a adf3 3880  |  8 |
078c 2d40 0298  |-@  |
078e 0188 9f40  |   @|
0790 c8f6 869b  |    |
0792 c7a7 dd6a  |   j|
0794 f281 f813  |    |
0796 4029 c914  |@)  |
0798 e21c a27f  |    |
079a 69db 337a  |i 3z|
079c 4040 9c1a  |@@  |
079e 2ac0 a6b1  |*   |
07a0 b080 a2aa  |    |
07a2 faaa ae36  |   6|
07a4 97fb 28f7  |  ( |
07a6 b238 5792  | 8W |
07a8 b029 c436  | ) 6|
07aa 43cc a026  |C  &|
07ac eaa5 dab9  |    |
07ae 65a5 0ca7  |e   |
07b0 cf7e 6c19  | ~l |
07b2 93eb e004  |    |
07b4 ce51 8f00  | Q  |
07b6 2808 28c2  |( ( |
07b8 6c4c 767c  |lLv||
07ba eb39 12bb  | 9  |
07bc 5597 5b6a  |U [j|
07be aaae bffc  |    |
07c0 7cf8 28a2  || ( |
07c2 6e63 fdb0  |nc  |
07c4 976a d23e  | j >|
07c6 2185 3d0b  |! = |
07c8 69a2 81f4  |i   |
07ca 2dbc 62eb  |- b |
07cc 4062 c1ce  |@b  |
07ce 0d03 6ae2  |  j |
07d0 d801 dc0a  |    |
07d2 f768 bf52  | h R|
07d4 cb58 af58  | X X|
07d6 97ee c1e0  |    |
07d8 04a0 74ea  |  t |
07da e344 5f31  | D_1|
07dc 85fe a8ae  |    |
07de ae15 5e81  |  ^ |
07e0 59a7 d6c2  |Y   |
07e2 401f 9ee7  |@   |
07e4 d7e6 6e0a  |  n |
07e6 7f88 76ea  |  v |
07e8 ece6 c064  |   d|
07ea 8058 299c  | X) |
07ec 222b a082  |"+  |
07ee a2eb 27a1  |  ' |
07f0 19cd a02b  |   +|
07f2 c05d 9a8d  | ]  |
07f4 4728 a4e7  |G(  |
07f6 f7d6 843f  |   ?|
07f8 81c3 a487  |    |
07fa ca4c 907c  | L ||
07fc f428 b8aa  | (  |
07fe 14a4 bcfd  |    |