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

⟦e019a6989⟧

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

Derivation

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

Disassembly

0000 000f       |    |		.CONST	0x000f								; Version of machine code
0001 5800       |X   |		.CONST	0x5800								; Diana Version, RCG Major Version, RCG minor version
0002 0000       |    |		.CONST	0x0000								; Zero
0003 0cf0       |    |		.CONST	0x0cf0								; Offset of debug table
0004 0100       |    |		.CONST	0x0100								; Default exception handler - raise instruction
0005 00bb       |    |		.CONST	0x00bb								; Module termination instruction - signal completion
0006 0000       |    |		.CONST	0x0000								; Offset to segment table (only in elab segments)
0007 8007       |    |		.CONST	0x8007								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0071       | q  |		.CONST	0x0071								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0020       |    |		.CONST	0x0020								; Number of locals
000b			INIT_0008:
000b e001       |    |		Load	0x0,0x1
000c 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
000d 0129       | )  |		Execute	Any,Make_Visible
000e 029a 007b  |   {|		Declare_Subprogram	INIT_0078,For_Outer_Call,Visible,Unelaborated
0010 029a 018b  |    |		Declare_Subprogram	INIT_0188,For_Outer_Call,Visible,Unelaborated
0012 029a 01ab  |    |		Declare_Subprogram	INIT_01a8,For_Outer_Call,Visible,Unelaborated
0014 029a 01c3  |    |		Declare_Subprogram	INIT_01c0,For_Outer_Call,Visible,Unelaborated
0016 029a 01db  |    |		Declare_Subprogram	INIT_01d8,For_Outer_Call,Visible,Unelaborated
0018 029a 027b  |   {|		Declare_Subprogram	INIT_0278,For_Outer_Call,Visible,Unelaborated
001a 029a 032b  |   +|		Declare_Subprogram	INIT_0328,For_Outer_Call,Visible,Unelaborated
001c 029a 0433  |   3|		Declare_Subprogram	INIT_0430,For_Outer_Call,Visible,Unelaborated
001e 029a 0553  |   S|		Declare_Subprogram	INIT_0550,For_Outer_Call,Visible,Unelaborated
0020 029a 0653  |   S|		Declare_Subprogram	INIT_0650,For_Outer_Call,Visible,Unelaborated
0022 00bf       |    |		Action	Accept_Activation
0023 e002       |    |		Load	0x0,0x2
0024 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0025 02c7       |    |		Declare_Variable	Any
0026 4800       |H   |		Short_Literal	0x0
0027 4801       |H   |		Short_Literal	0x1
0028 4801       |H   |		Short_Literal	0x1
0029 6156       |aV  |		Indirect_Literal	Discrete,0x180,{0x00000000, 0x0000076d}
002a e002       |    |		Load	0x0,0x2
002b 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
002c a218       |    |		Store_Unchecked	0x1,0x18
002d 00e1       |    |		Load_Encached	Boolean_Cache
002e 0601       |    |		Execute_Immediate	Set_Value_Unchecked,0x1
002f e003       |    |		Load	0x0,0x3
0030 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
0031 e004       |    |		Load	0x0,0x4
0032 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0033 00e1       |    |		Load_Encached	Boolean_Cache
0034 e005       |    |		Load	0x0,0x5
0035 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0036 4900       |I   |		Short_Literal	0x100
0037 e006       |    |		Load	0x0,0x6
0038 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0039 1c07       |    |		Execute_Immediate	Run_Utility,0x7
003a 4900       |I   |		Short_Literal	0x100
003b e006       |    |		Load	0x0,0x6
003c 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
003d 1c07       |    |		Execute_Immediate	Run_Utility,0x7
003e 4900       |I   |		Short_Literal	0x100
003f e006       |    |		Load	0x0,0x6
0040 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0041 1c07       |    |		Execute_Immediate	Run_Utility,0x7
0042 4900       |I   |		Short_Literal	0x100
0043 e006       |    |		Load	0x0,0x6
0044 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0045 1c07       |    |		Execute_Immediate	Run_Utility,0x7
0046 029f 06db  |    |		Declare_Subprogram	INIT_06d8,For_Call
0048 4808       |H   |		Short_Literal	0x8
0049 032d       | -  |		Declare_Type	Record,Defined
004a 029d 071b  |    |		Declare_Subprogram	INIT_0718,For_Outer_Call
004c 029d 074b  |   K|		Declare_Subprogram	INIT_0748,For_Outer_Call
004e e007       |    |		Load	0x0,0x7
004f e008       |    |		Load	0x0,0x8
0050 e21a       |    |		Load	0x1,0x1a
0051 1d1b       |    |		Execute_Immediate	Reference_Lex_1,0x1b
0052 1d1c       |    |		Execute_Immediate	Reference_Lex_1,0x1c
0053 e009       |    |		Load	0x0,0x9
0054 0387       |    |		Declare_Variable	Package
0055 00d8       |    |		Load_Top	At_Offset_0
0056 020f       |    |		Execute	Module,Activate
0057 1d0e       |    |		Execute_Immediate	Reference_Lex_1,0xe
0058 00c7       |    |		Action	Elaborate_Subprogram
0059 1d0f       |    |		Execute_Immediate	Reference_Lex_1,0xf
005a 00c7       |    |		Action	Elaborate_Subprogram
005b 1d10       |    |		Execute_Immediate	Reference_Lex_1,0x10
005c 00c7       |    |		Action	Elaborate_Subprogram
005d 1d11       |    |		Execute_Immediate	Reference_Lex_1,0x11
005e 00c7       |    |		Action	Elaborate_Subprogram
005f 029d 079b  |    |		Declare_Subprogram	INIT_0798,For_Outer_Call
0061 029d 07e3  |    |		Declare_Subprogram	INIT_07e0,For_Outer_Call
0063 029d 07f3  |    |		Declare_Subprogram	INIT_07f0,For_Outer_Call
0065 1d12       |    |		Execute_Immediate	Reference_Lex_1,0x12
0066 00c7       |    |		Action	Elaborate_Subprogram
0067 1d13       |    |		Execute_Immediate	Reference_Lex_1,0x13
0068 00c7       |    |		Action	Elaborate_Subprogram
0069 1d14       |    |		Execute_Immediate	Reference_Lex_1,0x14
006a 00c7       |    |		Action	Elaborate_Subprogram
006b 1d15       |    |		Execute_Immediate	Reference_Lex_1,0x15
006c 00c7       |    |		Action	Elaborate_Subprogram
006d 1d16       |    |		Execute_Immediate	Reference_Lex_1,0x16
006e 00c7       |    |		Action	Elaborate_Subprogram
006f 1d17       |    |		Execute_Immediate	Reference_Lex_1,0x17
0070 00c7       |    |		Action	Elaborate_Subprogram
0071			BODY_0008:
0071 00bc       |    |		Action	Signal_Activated
0072 00bb       |    |		Action	Signal_Completion
0073 0000 0000  |    |		.BLANK	0000[0x5]
0078 ; --------------------------------------------------------------------------------------
0078 ; SUBPROGRAM
0078 ; --------------------------------------------------------------------------------------
0078 0091       |    |		.CONST	0x0091								; Address of begin
0079 0004       |    |		.CONST	0x0004								; Address of exception handler
007a 0006       |    |		.CONST	0x0006								; Number of locals
007b			INIT_0078:
007b 4820       |H   |		Short_Literal	0x20
007c 00db       |    |		Load_Top	At_Offset_3
007d e00a       |    |		Load	0x0,0xa
007e 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
007f 4820       |H   |		Short_Literal	0x20
0080 e5fe       |    |		Load	0x2,-0x2
0081 e00a       |    |		Load	0x0,0xa
0082 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0083 e003       |    |		Load	0x0,0x3
0084 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0085 e003       |    |		Load	0x0,0x3
0086 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
0087 03f1       |    |		Declare_Variable	Discrete,With_Value
0088 e21a       |    |		Load	0x1,0x1a
0089 0322       | "  |		Declare_Variable	Record
008a 00d8       |    |		Load_Top	At_Offset_0
008b 1c00       |    |		Execute_Immediate	Run_Utility,0x0
008c e001       |    |		Load	0x0,0x1
008d 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
008e 02c7       |    |		Declare_Variable	Any
008f 00d8       |    |		Load_Top	At_Offset_0
0090 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0091			BODY_0078:
0091 4800       |H   |		Short_Literal	0x0
0092 a5fa       |    |		Store_Unchecked	0x2,-0x6
0093 e402       |    |		Load	0x2,0x2
0094 01db       |    |		Execute	Vector,Length
0095 7007       |p   |		Jump_Nonzero	0x9d
0096 e00b       |    |		Load	0x0,0xb
0097 182b       | +  |		Execute	Package,Field_Execute,Field_Number 0x2b
0098 60e3       |`   |		Indirect_Literal	Discrete,0x17c,{0x00000000, 0x0000812b}
0099 e00c       |    |		Load	0x0,0xc
009a 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
009b a5fa       |    |		Store_Unchecked	0x2,-0x6
009c 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
009d 00da       |    |		Load_Top	At_Offset_2
009e e21d       |    |		Load	0x1,0x1d
009f 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
00a0 7006       |p   |		Jump_Nonzero	0xa7
00a1 00da       |    |		Load_Top	At_Offset_2
00a2 e21d       |    |		Load	0x1,0x1d
00a3 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
00a4 00da       |    |		Load_Top	At_Offset_2
00a5 017d       | }  |		Execute	Record,Structure_Write
00a6 783e       |x>  |		Jump	0xe5
00a7 00da       |    |		Load_Top	At_Offset_2
00a8 e21d       |    |		Load	0x1,0x1d
00a9 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
00aa 703a       |p:  |		Jump_Nonzero	0xe5
00ab e5fb       |    |		Load	0x2,-0x5
00ac e001       |    |		Load	0x0,0x1
00ad 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
00ae 7031       |p1  |		Jump_Nonzero	0xe0
00af e00d       |    |		Load	0x0,0xd
00b0 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
00b1 4801       |H   |		Short_Literal	0x1
00b2 0092 0bad  |    |		Action	Push_String_Extended,0xbad					; "Destroying invalid connection"
00b4 e00e       |    |		Load	0x0,0xe
00b5 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
00b6 00d8       |    |		Load_Top	At_Offset_0
00b7 0120       |    |		Execute	Any,Is_Value
00b8 6803       |h   |		Jump_Zero	0xbc
00b9 e001       |    |		Load	0x0,0x1
00ba 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00bb 7801       |x   |		Jump	0xbd
00bc 00d8       |    |		Load_Top	At_Offset_0
00bd e5fb       |    |		Load	0x2,-0x5
00be e001       |    |		Load	0x0,0x1
00bf 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
00c0 011e       |    |		Execute	Any,Convert
00c1 e001       |    |		Load	0x0,0x1
00c2 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
00c3 c5fb       |    |		Store	0x2,-0x5
00c4 c406       |    |		Store	0x2,0x6
00c5 4802       |H   |		Short_Literal	0x2
00c6 00d9       |    |		Load_Top	At_Offset_1
00c7 e00f       |    |		Load	0x0,0xf
00c8 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
00c9 6816       |h   |		Jump_Zero	0xe0
00ca 4801       |H   |		Short_Literal	0x1
00cb 4801       |H   |		Short_Literal	0x1
00cc e00b       |    |		Load	0x0,0xb
00cd 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
00ce 035b       | [  |		Declare_Type	Array,Constrained
00cf 0337       | 7  |		Declare_Variable	Array
00d0 00d9       |    |		Load_Top	At_Offset_1
00d1 e00f       |    |		Load	0x0,0xf
00d2 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
00d3 e00b       |    |		Load	0x0,0xb
00d4 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
00d5 e00b       |    |		Load	0x0,0xb
00d6 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
00d7 0119       |    |		Execute	Any,Check_In_Formal_Type
00d8 4801       |H   |		Short_Literal	0x1
00d9 00da       |    |		Load_Top	At_Offset_2
00da 01d6       |    |		Execute	Vector,Field_Write
00db 609c       |`   |		Indirect_Literal	Discrete,0x178,{0x00000000, 0x0000812f}
00dc e00c       |    |		Load	0x0,0xc
00dd 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
00de a5fa       |    |		Store_Unchecked	0x2,-0x6
00df 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
00e0 00da       |    |		Load_Top	At_Offset_2
00e1 e21d       |    |		Load	0x1,0x1d
00e2 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
00e3 00da       |    |		Load_Top	At_Offset_2
00e4 017d       | }  |		Execute	Record,Structure_Write
00e5 00db       |    |		Load_Top	At_Offset_3
00e6 01db       |    |		Execute	Vector,Length
00e7 7018       |p   |		Jump_Nonzero	0x100
00e8 00d8       |    |		Load_Top	At_Offset_0
00e9 0120       |    |		Execute	Any,Is_Value
00ea 6803       |h   |		Jump_Zero	0xee
00eb e001       |    |		Load	0x0,0x1
00ec 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00ed 7801       |x   |		Jump	0xef
00ee 00d8       |    |		Load_Top	At_Offset_0
00ef e5fb       |    |		Load	0x2,-0x5
00f0 0120       |    |		Execute	Any,Is_Value
00f1 6803       |h   |		Jump_Zero	0xf5
00f2 e001       |    |		Load	0x0,0x1
00f3 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
00f4 7804       |x   |		Jump	0xf9
00f5 e5fb       |    |		Load	0x2,-0x5
00f6 e001       |    |		Load	0x0,0x1
00f7 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
00f8 011e       |    |		Execute	Any,Convert
00f9 00ea       |    |		Load_Encached	Null_String_Cache
00fa e402       |    |		Load	0x2,0x2
00fb e001       |    |		Load	0x0,0x1
00fc 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
00fd c5fb       |    |		Store	0x2,-0x5
00fe c406       |    |		Store	0x2,0x6
00ff 781a       |x   |		Jump	0x11a
0100 00d8       |    |		Load_Top	At_Offset_0
0101 0120       |    |		Execute	Any,Is_Value
0102 6803       |h   |		Jump_Zero	0x106
0103 e001       |    |		Load	0x0,0x1
0104 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0105 7801       |x   |		Jump	0x107
0106 00d8       |    |		Load_Top	At_Offset_0
0107 e5fb       |    |		Load	0x2,-0x5
0108 0120       |    |		Execute	Any,Is_Value
0109 6803       |h   |		Jump_Zero	0x10d
010a e001       |    |		Load	0x0,0x1
010b 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
010c 7804       |x   |		Jump	0x111
010d e5fb       |    |		Load	0x2,-0x5
010e e001       |    |		Load	0x0,0x1
010f 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0110 011e       |    |		Execute	Any,Convert
0111 00ea       |    |		Load_Encached	Null_String_Cache
0112 00ea       |    |		Load_Encached	Null_String_Cache
0113 e5fd       |    |		Load	0x2,-0x3
0114 e403       |    |		Load	0x2,0x3
0115 e402       |    |		Load	0x2,0x2
0116 e001       |    |		Load	0x0,0x1
0117 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0118 c5fb       |    |		Store	0x2,-0x5
0119 c406       |    |		Store	0x2,0x6
011a 4802       |H   |		Short_Literal	0x2
011b 00d9       |    |		Load_Top	At_Offset_1
011c e00f       |    |		Load	0x0,0xf
011d 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
011e 6823       |h#  |		Jump_Zero	0x142
011f 4801       |H   |		Short_Literal	0x1
0120 4802       |H   |		Short_Literal	0x2
0121 e00b       |    |		Load	0x0,0xb
0122 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0123 035b       | [  |		Declare_Type	Array,Constrained
0124 0337       | 7  |		Declare_Variable	Array
0125 e5ff       |    |		Load	0x2,-0x1
0126 e00b       |    |		Load	0x0,0xb
0127 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0128 e00b       |    |		Load	0x0,0xb
0129 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
012a 0119       |    |		Execute	Any,Check_In_Formal_Type
012b 4801       |H   |		Short_Literal	0x1
012c 00da       |    |		Load_Top	At_Offset_2
012d 01d6       |    |		Execute	Vector,Field_Write
012e 00d9       |    |		Load_Top	At_Offset_1
012f e00f       |    |		Load	0x0,0xf
0130 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0131 e00b       |    |		Load	0x0,0xb
0132 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0133 e00b       |    |		Load	0x0,0xb
0134 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0135 0119       |    |		Execute	Any,Check_In_Formal_Type
0136 4802       |H   |		Short_Literal	0x2
0137 00da       |    |		Load_Top	At_Offset_2
0138 01d6       |    |		Execute	Vector,Field_Write
0139 603a       |`:  |		Indirect_Literal	Discrete,0x174,{0x00000000, 0x0000812a}
013a e00c       |    |		Load	0x0,0xc
013b 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
013c a5fa       |    |		Store_Unchecked	0x2,-0x6
013d e003       |    |		Load	0x0,0x3
013e 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
013f e21d       |    |		Load	0x1,0x1d
0140 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0141 7816       |x   |		Jump	0x158
0142 e5fc       |    |		Load	0x2,-0x4
0143 6814       |h   |		Jump_Zero	0x158
0144 e00d       |    |		Load	0x0,0xd
0145 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0146 4801       |H   |		Short_Literal	0x1
0147 4801       |H   |		Short_Literal	0x1
0148 e00b       |    |		Load	0x0,0xb
0149 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
014a 035b       | [  |		Declare_Type	Array,Constrained
014b 0337       | 7  |		Declare_Variable	Array
014c e5ff       |    |		Load	0x2,-0x1
014d e00b       |    |		Load	0x0,0xb
014e 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
014f e00b       |    |		Load	0x0,0xb
0150 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0151 0119       |    |		Execute	Any,Check_In_Formal_Type
0152 4801       |H   |		Short_Literal	0x1
0153 00da       |    |		Load_Top	At_Offset_2
0154 01d6       |    |		Execute	Vector,Field_Write
0155 601a       |`   |		Indirect_Literal	Discrete,0x170,{0x00000000, 0x00008172}
0156 e00c       |    |		Load	0x0,0xc
0157 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
0158 00d9       |    |		Load_Top	At_Offset_1
0159 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
015a e402       |    |		Load	0x2,0x2
015b e006       |    |		Load	0x0,0x6
015c 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
015d 00d1       |    |		Pop_Control	Pop_Count_1
015e 00d9       |    |		Load_Top	At_Offset_1
015f 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
0160 e403       |    |		Load	0x2,0x3
0161 e006       |    |		Load	0x0,0x6
0162 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0163 00d1       |    |		Pop_Control	Pop_Count_1
0164 00d9       |    |		Load_Top	At_Offset_1
0165 3c06       |<   |		Execute	Record,Field_Read,Field_Number 0x6
0166 e5fd       |    |		Load	0x2,-0x3
0167 e006       |    |		Load	0x0,0x6
0168 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0169 00d1       |    |		Pop_Control	Pop_Count_1
016a 4800       |H   |		Short_Literal	0x0
016b 00db       |    |		Load_Top	At_Offset_3
016c 00db       |    |		Load_Top	At_Offset_3
016d e21d       |    |		Load	0x1,0x1d
016e 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
016f 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
0170 0000 0000  |    |		.LITERAL	{0x00000000, 0x00008172}
0174 0000 0000  |    |		.LITERAL	{0x00000000, 0x0000812a}
0178 0000 0000  |    |		.LITERAL	{0x00000000, 0x0000812f}
017c 0000 0000  |    |		.LITERAL	{0x00000000, 0x0000812b}
0180 0000 0000  |    |		.LITERAL	{0x00000000, 0x0000076d}
0184 0000 0000  |    |		.BLANK	0000[0x4]
0188 ; --------------------------------------------------------------------------------------
0188 ; SUBPROGRAM
0188 ; --------------------------------------------------------------------------------------
0188 018d       |    |		.CONST	0x018d								; Address of begin
0189 0004       |    |		.CONST	0x0004								; Address of exception handler
018a 0002       |    |		.CONST	0x0002								; Number of locals
018b			INIT_0188:
018b e00c       |    |		Load	0x0,0xc
018c 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
018d			BODY_0188:
018d e00c       |    |		Load	0x0,0xc
018e 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
018f e5f9       |    |		Load	0x2,-0x7
0190 e5fa       |    |		Load	0x2,-0x6
0191 e5fb       |    |		Load	0x2,-0x5
0192 e5fc       |    |		Load	0x2,-0x4
0193 e5fd       |    |		Load	0x2,-0x3
0194 820e       |    |		Call	0x1,0xe
0195 c5f9       |    |		Store	0x2,-0x7
0196 0059       | Y  |		Store_Top	Discrete,At_Offset_1
0197 4800       |H   |		Short_Literal	0x0
0198 00d9       |    |		Load_Top	At_Offset_1
0199 e00c       |    |		Load	0x0,0xc
019a 1847       | G  |		Execute	Package,Field_Execute,Field_Number 0x47
019b 6809       |h   |		Jump_Zero	0x1a5
019c e00c       |    |		Load	0x0,0xc
019d 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
019e e5fa       |    |		Load	0x2,-0x6
019f e5fe       |    |		Load	0x2,-0x2
01a0 e5f9       |    |		Load	0x2,-0x7
01a1 e5ff       |    |		Load	0x2,-0x1
01a2 8212       |    |		Call	0x1,0x12
01a3 c5f8       |    |		Store	0x2,-0x8
01a4 4507       |E   |		Exit_Suprogram	New_Top_Offset 0x7
01a5 00d8       |    |		Load_Top	At_Offset_0
01a6 a5f8       |    |		Store_Unchecked	0x2,-0x8
01a7 4507       |E   |		Exit_Suprogram	New_Top_Offset 0x7
01a8 ; --------------------------------------------------------------------------------------
01a8 ; SUBPROGRAM
01a8 ; --------------------------------------------------------------------------------------
01a8 01b2       |    |		.CONST	0x01b2								; Address of begin
01a9 0004       |    |		.CONST	0x0004								; Address of exception handler
01aa 0003       |    |		.CONST	0x0003								; Number of locals
01ab			INIT_01a8:
01ab e001       |    |		Load	0x0,0x1
01ac 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
01ad 02c7       |    |		Declare_Variable	Any
01ae 00d8       |    |		Load_Top	At_Offset_0
01af 1c00       |    |		Execute_Immediate	Run_Utility,0x0
01b0 029f 0823  |   #|		Declare_Subprogram	INIT_0820,For_Call
01b2			BODY_01a8:
01b2 4800       |H   |		Short_Literal	0x0
01b3 a5fd       |    |		Store_Unchecked	0x2,-0x3
01b4 e003       |    |		Load	0x0,0x3
01b5 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
01b6 e21d       |    |		Load	0x1,0x1d
01b7 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
01b8 e5fe       |    |		Load	0x2,-0x2
01b9 e001       |    |		Load	0x0,0x1
01ba 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
01bb 6801       |h   |		Jump_Zero	0x1bd
01bc 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
01bd 8403       |    |		Call	0x2,0x3
01be 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
01bf 0000       |    |		.XXX[0x1]
01c0 ; --------------------------------------------------------------------------------------
01c0 ; SUBPROGRAM
01c0 ; --------------------------------------------------------------------------------------
01c0 01ca       |    |		.CONST	0x01ca								; Address of begin
01c1 0004       |    |		.CONST	0x0004								; Address of exception handler
01c2 0003       |    |		.CONST	0x0003								; Number of locals
01c3			INIT_01c0:
01c3 e001       |    |		Load	0x0,0x1
01c4 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
01c5 02c7       |    |		Declare_Variable	Any
01c6 00d8       |    |		Load_Top	At_Offset_0
01c7 1c00       |    |		Execute_Immediate	Run_Utility,0x0
01c8 029f 087b  |   {|		Declare_Subprogram	INIT_0878,For_Call
01ca			BODY_01c0:
01ca 4800       |H   |		Short_Literal	0x0
01cb a5fd       |    |		Store_Unchecked	0x2,-0x3
01cc e003       |    |		Load	0x0,0x3
01cd 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
01ce e21d       |    |		Load	0x1,0x1d
01cf 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
01d0 e5fe       |    |		Load	0x2,-0x2
01d1 e001       |    |		Load	0x0,0x1
01d2 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
01d3 6801       |h   |		Jump_Zero	0x1d5
01d4 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
01d5 8403       |    |		Call	0x2,0x3
01d6 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
01d7 0000       |    |		.XXX[0x1]
01d8 ; --------------------------------------------------------------------------------------
01d8 ; SUBPROGRAM
01d8 ; --------------------------------------------------------------------------------------
01d8 01f1       |    |		.CONST	0x01f1								; Address of begin
01d9 0004       |    |		.CONST	0x0004								; Address of exception handler
01da 0006       |    |		.CONST	0x0006								; Number of locals
01db			INIT_01d8:
01db e00c       |    |		Load	0x0,0xc
01dc 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
01dd e003       |    |		Load	0x0,0x3
01de 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
01df e003       |    |		Load	0x0,0x3
01e0 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
01e1 03f1       |    |		Declare_Variable	Discrete,With_Value
01e2 e21a       |    |		Load	0x1,0x1a
01e3 0322       | "  |		Declare_Variable	Record
01e4 00d8       |    |		Load_Top	At_Offset_0
01e5 1c01       |    |		Execute_Immediate	Run_Utility,0x1
01e6 00d9       |    |		Load_Top	At_Offset_1
01e7 e21d       |    |		Load	0x1,0x1d
01e8 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
01e9 00d9       |    |		Load_Top	At_Offset_1
01ea 017d       | }  |		Execute	Record,Structure_Write
01eb 00e1       |    |		Load_Encached	Boolean_Cache
01ec 0601       |    |		Execute_Immediate	Set_Value_Unchecked,0x1
01ed e20d       |    |		Load	0x1,0xd
01ee 02c7       |    |		Declare_Variable	Any
01ef e5fe       |    |		Load	0x2,-0x2
01f0 a406       |    |		Store_Unchecked	0x2,0x6
01f1			BODY_01d8:
01f1 4800       |H   |		Short_Literal	0x0
01f2 a5fb       |    |		Store_Unchecked	0x2,-0x5
01f3 00d8       |    |		Load_Top	At_Offset_0
01f4 e001       |    |		Load	0x0,0x1
01f5 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
01f6 6815       |h   |		Jump_Zero	0x20c
01f7 4801       |H   |		Short_Literal	0x1
01f8 4801       |H   |		Short_Literal	0x1
01f9 e00b       |    |		Load	0x0,0xb
01fa 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
01fb 035b       | [  |		Declare_Type	Array,Constrained
01fc 0337       | 7  |		Declare_Variable	Array
01fd 0092 0bae  |    |		Action	Push_String_Extended,0xbae					; "Set_Remote_Directory"
01ff e00b       |    |		Load	0x0,0xb
0200 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0201 e00b       |    |		Load	0x0,0xb
0202 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0203 0119       |    |		Execute	Any,Check_In_Formal_Type
0204 4801       |H   |		Short_Literal	0x1
0205 00da       |    |		Load_Top	At_Offset_2
0206 01d6       |    |		Execute	Vector,Field_Write
0207 606c       |`l  |		Indirect_Literal	Discrete,0x274,{0x00000000, 0x00008138}
0208 e00c       |    |		Load	0x0,0xc
0209 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
020a a5fb       |    |		Store_Unchecked	0x2,-0x5
020b 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
020c 00e1       |    |		Load_Encached	Boolean_Cache
020d 00d9       |    |		Load_Top	At_Offset_1
020e 8220       |    |		Call	0x1,0x20
020f c406       |    |		Store	0x2,0x6
0210 005a       | Z  |		Store_Top	Discrete,At_Offset_2
0211 00d9       |    |		Load_Top	At_Offset_1
0212 7015       |p   |		Jump_Nonzero	0x228
0213 4801       |H   |		Short_Literal	0x1
0214 4801       |H   |		Short_Literal	0x1
0215 e00b       |    |		Load	0x0,0xb
0216 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0217 035b       | [  |		Declare_Type	Array,Constrained
0218 0337       | 7  |		Declare_Variable	Array
0219 0092 0bae  |    |		Action	Push_String_Extended,0xbae					; "Set_Remote_Directory"
021b e00b       |    |		Load	0x0,0xb
021c 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
021d e00b       |    |		Load	0x0,0xb
021e 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
021f 0119       |    |		Execute	Any,Check_In_Formal_Type
0220 4801       |H   |		Short_Literal	0x1
0221 00da       |    |		Load_Top	At_Offset_2
0222 01d6       |    |		Execute	Vector,Field_Write
0223 604c       |`L  |		Indirect_Literal	Discrete,0x270,{0x00000000, 0x000081d8}
0224 e00c       |    |		Load	0x0,0xc
0225 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0226 a5fb       |    |		Store_Unchecked	0x2,-0x5
0227 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
0228 4800       |H   |		Short_Literal	0x0
0229 e5ff       |    |		Load	0x2,-0x1
022a e404       |    |		Load	0x2,0x4
022b 3407       |4   |		Execute	Record,Field_Reference,Field_Number 0x7
022c e006       |    |		Load	0x0,0x6
022d 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
022e e00a       |    |		Load	0x0,0xa
022f 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
0230 680b       |h   |		Jump_Zero	0x23c
0231 e5fd       |    |		Load	0x2,-0x3
0232 01db       |    |		Execute	Vector,Length
0233 7008       |p   |		Jump_Nonzero	0x23c
0234 e00d       |    |		Load	0x0,0xd
0235 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0236 4801       |H   |		Short_Literal	0x1
0237 0092 0baf  |    |		Action	Push_String_Extended,0xbaf					; "Reusing existing directory."
0239 e00e       |    |		Load	0x0,0xe
023a 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
023b 7823       |x#  |		Jump	0x25f
023c e00c       |    |		Load	0x0,0xc
023d 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
023e e5fc       |    |		Load	0x2,-0x4
023f 4801       |H   |		Short_Literal	0x1
0240 4800       |H   |		Short_Literal	0x0
0241 4800       |H   |		Short_Literal	0x0
0242 00ea       |    |		Load_Encached	Null_String_Cache
0243 e406       |    |		Load	0x2,0x6
0244 e5ff       |    |		Load	0x2,-0x1
0245 8215       |    |		Call	0x1,0x15
0246 c402       |    |		Store	0x2,0x2
0247 4800       |H   |		Short_Literal	0x0
0248 e402       |    |		Load	0x2,0x2
0249 e00c       |    |		Load	0x0,0xc
024a 1847       | G  |		Execute	Package,Field_Execute,Field_Number 0x47
024b 7003       |p   |		Jump_Nonzero	0x24f
024c e402       |    |		Load	0x2,0x2
024d a5fb       |    |		Store_Unchecked	0x2,-0x5
024e 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
024f 00db       |    |		Load_Top	At_Offset_3
0250 e21d       |    |		Load	0x1,0x1d
0251 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0252 00db       |    |		Load_Top	At_Offset_3
0253 017d       | }  |		Execute	Record,Structure_Write
0254 00da       |    |		Load_Top	At_Offset_2
0255 3c07       |<   |		Execute	Record,Field_Read,Field_Number 0x7
0256 e5ff       |    |		Load	0x2,-0x1
0257 e006       |    |		Load	0x0,0x6
0258 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0259 00d1       |    |		Pop_Control	Pop_Count_1
025a 4800       |H   |		Short_Literal	0x0
025b e403       |    |		Load	0x2,0x3
025c e404       |    |		Load	0x2,0x4
025d e21d       |    |		Load	0x1,0x1d
025e 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
025f e5fd       |    |		Load	0x2,-0x3
0260 01db       |    |		Execute	Vector,Length
0261 680b       |h   |		Jump_Zero	0x26d
0262 e00c       |    |		Load	0x0,0xc
0263 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0264 e5fc       |    |		Load	0x2,-0x4
0265 4801       |H   |		Short_Literal	0x1
0266 4800       |H   |		Short_Literal	0x0
0267 4800       |H   |		Short_Literal	0x0
0268 00ea       |    |		Load_Encached	Null_String_Cache
0269 e406       |    |		Load	0x2,0x6
026a e5fd       |    |		Load	0x2,-0x3
026b 8215       |    |		Call	0x1,0x15
026c c5fb       |    |		Store	0x2,-0x5
026d 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
026e 0000 0000  |    |		.XXX[0x2]
0270 0000 0000  |    |		.LITERAL	{0x00000000, 0x000081d8}
0274 0000 0000  |    |		.LITERAL	{0x00000000, 0x00008138}
0278 ; --------------------------------------------------------------------------------------
0278 ; SUBPROGRAM
0278 ; --------------------------------------------------------------------------------------
0278 0288       |    |		.CONST	0x0288								; Address of begin
0279 0004       |    |		.CONST	0x0004								; Address of exception handler
027a 0005       |    |		.CONST	0x0005								; Number of locals
027b			INIT_0278:
027b e001       |    |		Load	0x0,0x1
027c 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
027d 02c7       |    |		Declare_Variable	Any
027e 00d8       |    |		Load_Top	At_Offset_0
027f 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0280 00e1       |    |		Load_Encached	Boolean_Cache
0281 0601       |    |		Execute_Immediate	Set_Value_Unchecked,0x1
0282 e20d       |    |		Load	0x1,0xd
0283 02c7       |    |		Declare_Variable	Any
0284 e5fd       |    |		Load	0x2,-0x3
0285 a404       |    |		Store_Unchecked	0x2,0x4
0286 029f 08cb  |    |		Declare_Subprogram	INIT_08c8,For_Call
0288			BODY_0278:
0288 4800       |H   |		Short_Literal	0x0
0289 a5fa       |    |		Store_Unchecked	0x2,-0x6
028a 00d9       |    |		Load_Top	At_Offset_1
028b e001       |    |		Load	0x0,0x1
028c 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
028d 6815       |h   |		Jump_Zero	0x2a3
028e 4801       |H   |		Short_Literal	0x1
028f 4801       |H   |		Short_Literal	0x1
0290 e00b       |    |		Load	0x0,0xb
0291 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0292 035b       | [  |		Declare_Type	Array,Constrained
0293 0337       | 7  |		Declare_Variable	Array
0294 0092 0bb0  |    |		Action	Push_String_Extended,0xbb0					; "Put"
0296 e00b       |    |		Load	0x0,0xb
0297 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0298 e00b       |    |		Load	0x0,0xb
0299 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
029a 0119       |    |		Execute	Any,Check_In_Formal_Type
029b 4801       |H   |		Short_Literal	0x1
029c 00da       |    |		Load_Top	At_Offset_2
029d 01d6       |    |		Execute	Vector,Field_Write
029e 67d5       |g   |		Indirect_Literal	Discrete,0x274,{0x00000000, 0x00008138}
029f e00c       |    |		Load	0x0,0xc
02a0 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
02a1 a5fa       |    |		Store_Unchecked	0x2,-0x6
02a2 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
02a3 00e1       |    |		Load_Encached	Boolean_Cache
02a4 00da       |    |		Load_Top	At_Offset_2
02a5 8220       |    |		Call	0x1,0x20
02a6 c404       |    |		Store	0x2,0x4
02a7 005b       | [  |		Store_Top	Discrete,At_Offset_3
02a8 00da       |    |		Load_Top	At_Offset_2
02a9 7015       |p   |		Jump_Nonzero	0x2bf
02aa 4801       |H   |		Short_Literal	0x1
02ab 4801       |H   |		Short_Literal	0x1
02ac e00b       |    |		Load	0x0,0xb
02ad 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
02ae 035b       | [  |		Declare_Type	Array,Constrained
02af 0337       | 7  |		Declare_Variable	Array
02b0 0092 0bb1  |    |		Action	Push_String_Extended,0xbb1					; "put"
02b2 e00b       |    |		Load	0x0,0xb
02b3 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
02b4 e00b       |    |		Load	0x0,0xb
02b5 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
02b6 0119       |    |		Execute	Any,Check_In_Formal_Type
02b7 4801       |H   |		Short_Literal	0x1
02b8 00da       |    |		Load_Top	At_Offset_2
02b9 01d6       |    |		Execute	Vector,Field_Write
02ba 67b5       |g   |		Indirect_Literal	Discrete,0x270,{0x00000000, 0x000081d8}
02bb e00c       |    |		Load	0x0,0xc
02bc 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
02bd a5fa       |    |		Store_Unchecked	0x2,-0x6
02be 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
02bf e5fc       |    |		Load	0x2,-0x4
02c0 6802       |h   |		Jump_Zero	0x2c3
02c1 8405       |    |		Call	0x2,0x5
02c2 780f       |x   |		Jump	0x2d2
02c3 00db       |    |		Load_Top	At_Offset_3
02c4 0120       |    |		Execute	Any,Is_Value
02c5 6803       |h   |		Jump_Zero	0x2c9
02c6 e001       |    |		Load	0x0,0x1
02c7 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
02c8 7801       |x   |		Jump	0x2ca
02c9 00db       |    |		Load_Top	At_Offset_3
02ca 00ea       |    |		Load_Encached	Null_String_Cache
02cb 4800       |H   |		Short_Literal	0x0
02cc e404       |    |		Load	0x2,0x4
02cd e5fe       |    |		Load	0x2,-0x2
02ce e5ff       |    |		Load	0x2,-0x1
02cf e001       |    |		Load	0x0,0x1
02d0 1823       | #  |		Execute	Package,Field_Execute,Field_Number 0x23
02d1 c402       |    |		Store	0x2,0x2
02d2 4802       |H   |		Short_Literal	0x2
02d3 e402       |    |		Load	0x2,0x2
02d4 e00f       |    |		Load	0x0,0xf
02d5 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
02d6 6828       |h(  |		Jump_Zero	0x2ff
02d7 4801       |H   |		Short_Literal	0x1
02d8 4803       |H   |		Short_Literal	0x3
02d9 e00b       |    |		Load	0x0,0xb
02da 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
02db 035b       | [  |		Declare_Type	Array,Constrained
02dc 0337       | 7  |		Declare_Variable	Array
02dd e5ff       |    |		Load	0x2,-0x1
02de e00b       |    |		Load	0x0,0xb
02df 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
02e0 e00b       |    |		Load	0x0,0xb
02e1 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
02e2 0119       |    |		Execute	Any,Check_In_Formal_Type
02e3 4801       |H   |		Short_Literal	0x1
02e4 00da       |    |		Load_Top	At_Offset_2
02e5 01d6       |    |		Execute	Vector,Field_Write
02e6 e5fe       |    |		Load	0x2,-0x2
02e7 e00b       |    |		Load	0x0,0xb
02e8 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
02e9 e00b       |    |		Load	0x0,0xb
02ea 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
02eb 0119       |    |		Execute	Any,Check_In_Formal_Type
02ec 4802       |H   |		Short_Literal	0x2
02ed 00da       |    |		Load_Top	At_Offset_2
02ee 01d6       |    |		Execute	Vector,Field_Write
02ef e402       |    |		Load	0x2,0x2
02f0 e00f       |    |		Load	0x0,0xf
02f1 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
02f2 e00b       |    |		Load	0x0,0xb
02f3 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
02f4 e00b       |    |		Load	0x0,0xb
02f5 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
02f6 0119       |    |		Execute	Any,Check_In_Formal_Type
02f7 4803       |H   |		Short_Literal	0x3
02f8 00da       |    |		Load_Top	At_Offset_2
02f9 01d6       |    |		Execute	Vector,Field_Write
02fa 6029       |`)  |		Indirect_Literal	Discrete,0x324,{0x00000000, 0x00008134}
02fb e00c       |    |		Load	0x0,0xc
02fc 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
02fd a5fa       |    |		Store_Unchecked	0x2,-0x6
02fe 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
02ff e5fb       |    |		Load	0x2,-0x5
0300 681d       |h   |		Jump_Zero	0x31e
0301 e00d       |    |		Load	0x0,0xd
0302 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0303 4801       |H   |		Short_Literal	0x1
0304 4802       |H   |		Short_Literal	0x2
0305 e00b       |    |		Load	0x0,0xb
0306 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0307 035b       | [  |		Declare_Type	Array,Constrained
0308 0337       | 7  |		Declare_Variable	Array
0309 e5ff       |    |		Load	0x2,-0x1
030a e00b       |    |		Load	0x0,0xb
030b 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
030c e00b       |    |		Load	0x0,0xb
030d 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
030e 0119       |    |		Execute	Any,Check_In_Formal_Type
030f 4801       |H   |		Short_Literal	0x1
0310 00da       |    |		Load_Top	At_Offset_2
0311 01d6       |    |		Execute	Vector,Field_Write
0312 e5fe       |    |		Load	0x2,-0x2
0313 e00b       |    |		Load	0x0,0xb
0314 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0315 e00b       |    |		Load	0x0,0xb
0316 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0317 0119       |    |		Execute	Any,Check_In_Formal_Type
0318 4802       |H   |		Short_Literal	0x2
0319 00da       |    |		Load_Top	At_Offset_2
031a 01d6       |    |		Execute	Vector,Field_Write
031b 6004       |`   |		Indirect_Literal	Discrete,0x320,{0x00000000, 0x00008177}
031c e00c       |    |		Load	0x0,0xc
031d 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
031e 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
031f 0000       |    |		.XXX[0x1]
0320 0000 0000  |    |		.LITERAL	{0x00000000, 0x00008177}
0324 0000 0000  |    |		.LITERAL	{0x00000000, 0x00008134}
0328 ; --------------------------------------------------------------------------------------
0328 ; SUBPROGRAM
0328 ; --------------------------------------------------------------------------------------
0328 0339       | 9  |		.CONST	0x0339								; Address of begin
0329 0004       |    |		.CONST	0x0004								; Address of exception handler
032a 0006       |    |		.CONST	0x0006								; Number of locals
032b			INIT_0328:
032b 00e1       |    |		Load_Encached	Boolean_Cache
032c e001       |    |		Load	0x0,0x1
032d 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
032e 02c7       |    |		Declare_Variable	Any
032f 00d8       |    |		Load_Top	At_Offset_0
0330 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0331 00e1       |    |		Load_Encached	Boolean_Cache
0332 0601       |    |		Execute_Immediate	Set_Value_Unchecked,0x1
0333 e20d       |    |		Load	0x1,0xd
0334 02c7       |    |		Declare_Variable	Any
0335 e5fd       |    |		Load	0x2,-0x3
0336 a405       |    |		Store_Unchecked	0x2,0x5
0337 029f 08f3  |    |		Declare_Subprogram	INIT_08f0,For_Call
0339			BODY_0328:
0339 4800       |H   |		Short_Literal	0x0
033a a5fa       |    |		Store_Unchecked	0x2,-0x6
033b 00d9       |    |		Load_Top	At_Offset_1
033c e001       |    |		Load	0x0,0x1
033d 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
033e 6815       |h   |		Jump_Zero	0x354
033f 4801       |H   |		Short_Literal	0x1
0340 4801       |H   |		Short_Literal	0x1
0341 e00b       |    |		Load	0x0,0xb
0342 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0343 035b       | [  |		Declare_Type	Array,Constrained
0344 0337       | 7  |		Declare_Variable	Array
0345 0092 0bb2  |    |		Action	Push_String_Extended,0xbb2					; "Get"
0347 e00b       |    |		Load	0x0,0xb
0348 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0349 e00b       |    |		Load	0x0,0xb
034a 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
034b 0119       |    |		Execute	Any,Check_In_Formal_Type
034c 4801       |H   |		Short_Literal	0x1
034d 00da       |    |		Load_Top	At_Offset_2
034e 01d6       |    |		Execute	Vector,Field_Write
034f 60dc       |`   |		Indirect_Literal	Discrete,0x42c,{0x00000000, 0x00008138}
0350 e00c       |    |		Load	0x0,0xc
0351 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0352 a5fa       |    |		Store_Unchecked	0x2,-0x6
0353 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
0354 00e1       |    |		Load_Encached	Boolean_Cache
0355 00da       |    |		Load_Top	At_Offset_2
0356 8220       |    |		Call	0x1,0x20
0357 c405       |    |		Store	0x2,0x5
0358 005b       | [  |		Store_Top	Discrete,At_Offset_3
0359 00da       |    |		Load_Top	At_Offset_2
035a 7015       |p   |		Jump_Nonzero	0x370
035b 4801       |H   |		Short_Literal	0x1
035c 4801       |H   |		Short_Literal	0x1
035d e00b       |    |		Load	0x0,0xb
035e 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
035f 035b       | [  |		Declare_Type	Array,Constrained
0360 0337       | 7  |		Declare_Variable	Array
0361 0092 0bb3  |    |		Action	Push_String_Extended,0xbb3					; "get"
0363 e00b       |    |		Load	0x0,0xb
0364 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0365 e00b       |    |		Load	0x0,0xb
0366 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0367 0119       |    |		Execute	Any,Check_In_Formal_Type
0368 4801       |H   |		Short_Literal	0x1
0369 00da       |    |		Load_Top	At_Offset_2
036a 01d6       |    |		Execute	Vector,Field_Write
036b 60bc       |`   |		Indirect_Literal	Discrete,0x428,{0x00000000, 0x000081d8}
036c e00c       |    |		Load	0x0,0xc
036d 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
036e a5fa       |    |		Store_Unchecked	0x2,-0x6
036f 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
0370 00e1       |    |		Load_Encached	Boolean_Cache
0371 e403       |    |		Load	0x2,0x3
0372 0120       |    |		Execute	Any,Is_Value
0373 6803       |h   |		Jump_Zero	0x377
0374 e001       |    |		Load	0x0,0x1
0375 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0376 7801       |x   |		Jump	0x378
0377 e403       |    |		Load	0x2,0x3
0378 00db       |    |		Load_Top	At_Offset_3
0379 e5fe       |    |		Load	0x2,-0x2
037a e001       |    |		Load	0x0,0x1
037b 1828       | (  |		Execute	Package,Field_Execute,Field_Number 0x28
037c c403       |    |		Store	0x2,0x3
037d c402       |    |		Store	0x2,0x2
037e 4802       |H   |		Short_Literal	0x2
037f e403       |    |		Load	0x2,0x3
0380 e00f       |    |		Load	0x0,0xf
0381 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
0382 681f       |h   |		Jump_Zero	0x3a2
0383 4801       |H   |		Short_Literal	0x1
0384 4802       |H   |		Short_Literal	0x2
0385 e00b       |    |		Load	0x0,0xb
0386 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0387 035b       | [  |		Declare_Type	Array,Constrained
0388 0337       | 7  |		Declare_Variable	Array
0389 e403       |    |		Load	0x2,0x3
038a e00f       |    |		Load	0x0,0xf
038b 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
038c e00b       |    |		Load	0x0,0xb
038d 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
038e e00b       |    |		Load	0x0,0xb
038f 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0390 0119       |    |		Execute	Any,Check_In_Formal_Type
0391 4801       |H   |		Short_Literal	0x1
0392 00da       |    |		Load_Top	At_Offset_2
0393 01d6       |    |		Execute	Vector,Field_Write
0394 e5fe       |    |		Load	0x2,-0x2
0395 e00b       |    |		Load	0x0,0xb
0396 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0397 e00b       |    |		Load	0x0,0xb
0398 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0399 0119       |    |		Execute	Any,Check_In_Formal_Type
039a 4802       |H   |		Short_Literal	0x2
039b 00da       |    |		Load_Top	At_Offset_2
039c 01d6       |    |		Execute	Vector,Field_Write
039d 6086       |`   |		Indirect_Literal	Discrete,0x424,{0x00000000, 0x00008162}
039e e00c       |    |		Load	0x0,0xc
039f 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
03a0 a5fa       |    |		Store_Unchecked	0x2,-0x6
03a1 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
03a2 e402       |    |		Load	0x2,0x2
03a3 7014       |p   |		Jump_Nonzero	0x3b8
03a4 4801       |H   |		Short_Literal	0x1
03a5 4801       |H   |		Short_Literal	0x1
03a6 e00b       |    |		Load	0x0,0xb
03a7 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
03a8 035b       | [  |		Declare_Type	Array,Constrained
03a9 0337       | 7  |		Declare_Variable	Array
03aa e5fe       |    |		Load	0x2,-0x2
03ab e00b       |    |		Load	0x0,0xb
03ac 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
03ad e00b       |    |		Load	0x0,0xb
03ae 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
03af 0119       |    |		Execute	Any,Check_In_Formal_Type
03b0 4801       |H   |		Short_Literal	0x1
03b1 00da       |    |		Load_Top	At_Offset_2
03b2 01d6       |    |		Execute	Vector,Field_Write
03b3 606c       |`l  |		Indirect_Literal	Discrete,0x420,{0x00000000, 0x00008171}
03b4 e00c       |    |		Load	0x0,0xc
03b5 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
03b6 a5fa       |    |		Store_Unchecked	0x2,-0x6
03b7 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
03b8 e5fc       |    |		Load	0x2,-0x4
03b9 6802       |h   |		Jump_Zero	0x3bc
03ba 8406       |    |		Call	0x2,0x6
03bb 780f       |x   |		Jump	0x3cb
03bc 00db       |    |		Load_Top	At_Offset_3
03bd 0120       |    |		Execute	Any,Is_Value
03be 6803       |h   |		Jump_Zero	0x3c2
03bf e001       |    |		Load	0x0,0x1
03c0 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
03c1 7801       |x   |		Jump	0x3c3
03c2 00db       |    |		Load_Top	At_Offset_3
03c3 00ea       |    |		Load_Encached	Null_String_Cache
03c4 4800       |H   |		Short_Literal	0x0
03c5 e5ff       |    |		Load	0x2,-0x1
03c6 e405       |    |		Load	0x2,0x5
03c7 e5fe       |    |		Load	0x2,-0x2
03c8 e001       |    |		Load	0x0,0x1
03c9 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
03ca c403       |    |		Store	0x2,0x3
03cb 4802       |H   |		Short_Literal	0x2
03cc e403       |    |		Load	0x2,0x3
03cd e00f       |    |		Load	0x0,0xf
03ce 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
03cf 6828       |h(  |		Jump_Zero	0x3f8
03d0 4801       |H   |		Short_Literal	0x1
03d1 4803       |H   |		Short_Literal	0x3
03d2 e00b       |    |		Load	0x0,0xb
03d3 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
03d4 035b       | [  |		Declare_Type	Array,Constrained
03d5 0337       | 7  |		Declare_Variable	Array
03d6 e5ff       |    |		Load	0x2,-0x1
03d7 e00b       |    |		Load	0x0,0xb
03d8 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
03d9 e00b       |    |		Load	0x0,0xb
03da 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
03db 0119       |    |		Execute	Any,Check_In_Formal_Type
03dc 4801       |H   |		Short_Literal	0x1
03dd 00da       |    |		Load_Top	At_Offset_2
03de 01d6       |    |		Execute	Vector,Field_Write
03df e5fe       |    |		Load	0x2,-0x2
03e0 e00b       |    |		Load	0x0,0xb
03e1 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
03e2 e00b       |    |		Load	0x0,0xb
03e3 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
03e4 0119       |    |		Execute	Any,Check_In_Formal_Type
03e5 4802       |H   |		Short_Literal	0x2
03e6 00da       |    |		Load_Top	At_Offset_2
03e7 01d6       |    |		Execute	Vector,Field_Write
03e8 e403       |    |		Load	0x2,0x3
03e9 e00f       |    |		Load	0x0,0xf
03ea 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
03eb e00b       |    |		Load	0x0,0xb
03ec 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
03ed e00b       |    |		Load	0x0,0xb
03ee 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
03ef 0119       |    |		Execute	Any,Check_In_Formal_Type
03f0 4803       |H   |		Short_Literal	0x3
03f1 00da       |    |		Load_Top	At_Offset_2
03f2 01d6       |    |		Execute	Vector,Field_Write
03f3 6028       |`(  |		Indirect_Literal	Discrete,0x41c,{0x00000000, 0x00008133}
03f4 e00c       |    |		Load	0x0,0xc
03f5 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
03f6 a5fa       |    |		Store_Unchecked	0x2,-0x6
03f7 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
03f8 e5fb       |    |		Load	0x2,-0x5
03f9 681d       |h   |		Jump_Zero	0x417
03fa e00d       |    |		Load	0x0,0xd
03fb 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
03fc 4801       |H   |		Short_Literal	0x1
03fd 4802       |H   |		Short_Literal	0x2
03fe e00b       |    |		Load	0x0,0xb
03ff 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0400 035b       | [  |		Declare_Type	Array,Constrained
0401 0337       | 7  |		Declare_Variable	Array
0402 e5ff       |    |		Load	0x2,-0x1
0403 e00b       |    |		Load	0x0,0xb
0404 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0405 e00b       |    |		Load	0x0,0xb
0406 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0407 0119       |    |		Execute	Any,Check_In_Formal_Type
0408 4801       |H   |		Short_Literal	0x1
0409 00da       |    |		Load_Top	At_Offset_2
040a 01d6       |    |		Execute	Vector,Field_Write
040b e5fe       |    |		Load	0x2,-0x2
040c e00b       |    |		Load	0x0,0xb
040d 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
040e e00b       |    |		Load	0x0,0xb
040f 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0410 0119       |    |		Execute	Any,Check_In_Formal_Type
0411 4802       |H   |		Short_Literal	0x2
0412 00da       |    |		Load_Top	At_Offset_2
0413 01d6       |    |		Execute	Vector,Field_Write
0414 6003       |`   |		Indirect_Literal	Discrete,0x418,{0x00000000, 0x00008175}
0415 e00c       |    |		Load	0x0,0xc
0416 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
0417 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
0418 0000 0000  |    |		.LITERAL	{0x00000000, 0x00008175}
041c 0000 0000  |    |		.LITERAL	{0x00000000, 0x00008133}
0420 0000 0000  |    |		.LITERAL	{0x00000000, 0x00008171}
0424 0000 0000  |    |		.LITERAL	{0x00000000, 0x00008162}
0428 0000 0000  |    |		.LITERAL	{0x00000000, 0x000081d8}
042c 0000 0000  |    |		.LITERAL	{0x00000000, 0x00008138}
0430 ; --------------------------------------------------------------------------------------
0430 ; SUBPROGRAM
0430 ; --------------------------------------------------------------------------------------
0430 0474       | t  |		.CONST	0x0474								; Address of begin
0431 0534       | 4  |		.CONST	0x0534								; Address of exception handler
0432 0012       |    |		.CONST	0x0012								; Number of locals
0433			INIT_0430:
0433 e005       |    |		Load	0x0,0x5
0434 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0435 02c7       |    |		Declare_Variable	Any
0436 00d8       |    |		Load_Top	At_Offset_0
0437 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0438 e001       |    |		Load	0x0,0x1
0439 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
043a 02c7       |    |		Declare_Variable	Any
043b 00d8       |    |		Load_Top	At_Offset_0
043c 1c00       |    |		Execute_Immediate	Run_Utility,0x0
043d e005       |    |		Load	0x0,0x5
043e 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
043f 02c7       |    |		Declare_Variable	Any
0440 e010       |    |		Load	0x0,0x10
0441 182e       | .  |		Execute	Package,Field_Execute,Field_Number 0x2e
0442 e010       |    |		Load	0x0,0x10
0443 187e       | ~  |		Execute	Package,Field_Execute,Field_Number 0x7e
0444 a404       |    |		Store_Unchecked	0x2,0x4
0445 e005       |    |		Load	0x0,0x5
0446 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0447 02c7       |    |		Declare_Variable	Any
0448 e010       |    |		Load	0x0,0x10
0449 182e       | .  |		Execute	Package,Field_Execute,Field_Number 0x2e
044a e010       |    |		Load	0x0,0x10
044b 187e       | ~  |		Execute	Package,Field_Execute,Field_Number 0x7e
044c a405       |    |		Store_Unchecked	0x2,0x5
044d 4801       |H   |		Short_Literal	0x1
044e 4900       |I   |		Short_Literal	0x100
044f 00e9       |    |		Load_Encached	String_Cache
0450 035b       | [  |		Declare_Type	Array,Constrained
0451 0337       | 7  |		Declare_Variable	Array
0452 00e3       |    |		Load_Encached	Natural_Cache
0453 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0454 00e1       |    |		Load_Encached	Boolean_Cache
0455 0601       |    |		Execute_Immediate	Set_Value_Unchecked,0x1
0456 00e3       |    |		Load_Encached	Natural_Cache
0457 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0458 e00c       |    |		Load	0x0,0xc
0459 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
045a 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
045b e5fd       |    |		Load	0x2,-0x3
045c 01db       |    |		Execute	Vector,Length
045d 00e3       |    |		Load_Encached	Natural_Cache
045e 03ec       |    |		Declare_Variable	Discrete,With_Value,With_Constraint
045f 00e1       |    |		Load_Encached	Boolean_Cache
0460 0601       |    |		Execute_Immediate	Set_Value_Unchecked,0x1
0461 e20d       |    |		Load	0x1,0xd
0462 02c7       |    |		Declare_Variable	Any
0463 e5fe       |    |		Load	0x2,-0x2
0464 a40d       |    |		Store_Unchecked	0x2,0xd
0465 e5fc       |    |		Load	0x2,-0x4
0466 7002       |p   |		Jump_Nonzero	0x469
0467 e5fb       |    |		Load	0x2,-0x5
0468 7801       |x   |		Jump	0x46a
0469 4801       |H   |		Short_Literal	0x1
046a 00e1       |    |		Load_Encached	Boolean_Cache
046b 03f1       |    |		Declare_Variable	Discrete,With_Value
046c 029f 091b  |    |		Declare_Subprogram	INIT_0918,For_Call
046e 029f 098b  |    |		Declare_Subprogram	INIT_0988,For_Call
0470 029f 0a33  |   3|		Declare_Subprogram	INIT_0a30,For_Call
0472 029f 0a53  |   S|		Declare_Subprogram	INIT_0a50,For_Call
0474			BODY_0430:
0474 4800       |H   |		Short_Literal	0x0
0475 a5f8       |    |		Store_Unchecked	0x2,-0x8
0476 e40d       |    |		Load	0x2,0xd
0477 e001       |    |		Load	0x0,0x1
0478 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0479 6815       |h   |		Jump_Zero	0x48f
047a 4801       |H   |		Short_Literal	0x1
047b 4801       |H   |		Short_Literal	0x1
047c e00b       |    |		Load	0x0,0xb
047d 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
047e 035b       | [  |		Declare_Type	Array,Constrained
047f 0337       | 7  |		Declare_Variable	Array
0480 0092 0bb4  |    |		Action	Push_String_Extended,0xbb4					; "Execute_Command"
0482 e00b       |    |		Load	0x0,0xb
0483 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0484 e00b       |    |		Load	0x0,0xb
0485 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0486 0119       |    |		Execute	Any,Check_In_Formal_Type
0487 4801       |H   |		Short_Literal	0x1
0488 00da       |    |		Load_Top	At_Offset_2
0489 01d6       |    |		Execute	Vector,Field_Write
048a 67a1       |g   |		Indirect_Literal	Discrete,0x42c,{0x00000000, 0x00008138}
048b e00c       |    |		Load	0x0,0xc
048c 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
048d a5f8       |    |		Store_Unchecked	0x2,-0x8
048e 4508       |E   |		Exit_Suprogram	New_Top_Offset 0x8
048f 00e1       |    |		Load_Encached	Boolean_Cache
0490 e40d       |    |		Load	0x2,0xd
0491 8220       |    |		Call	0x1,0x20
0492 c40d       |    |		Store	0x2,0xd
0493 c40c       |    |		Store	0x2,0xc
0494 e40c       |    |		Load	0x2,0xc
0495 7015       |p   |		Jump_Nonzero	0x4ab
0496 4801       |H   |		Short_Literal	0x1
0497 4801       |H   |		Short_Literal	0x1
0498 e00b       |    |		Load	0x0,0xb
0499 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
049a 035b       | [  |		Declare_Type	Array,Constrained
049b 0337       | 7  |		Declare_Variable	Array
049c 0092 0bb5  |    |		Action	Push_String_Extended,0xbb5					; "execute_command"
049e e00b       |    |		Load	0x0,0xb
049f 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
04a0 e00b       |    |		Load	0x0,0xb
04a1 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
04a2 0119       |    |		Execute	Any,Check_In_Formal_Type
04a3 4801       |H   |		Short_Literal	0x1
04a4 00da       |    |		Load_Top	At_Offset_2
04a5 01d6       |    |		Execute	Vector,Field_Write
04a6 6781       |g   |		Indirect_Literal	Discrete,0x428,{0x00000000, 0x000081d8}
04a7 e00c       |    |		Load	0x0,0xc
04a8 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
04a9 a5f8       |    |		Store_Unchecked	0x2,-0x8
04aa 4508       |E   |		Exit_Suprogram	New_Top_Offset 0x8
04ab e5f9       |    |		Load	0x2,-0x7
04ac 6814       |h   |		Jump_Zero	0x4c1
04ad e00d       |    |		Load	0x0,0xd
04ae 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
04af 4801       |H   |		Short_Literal	0x1
04b0 4801       |H   |		Short_Literal	0x1
04b1 e00b       |    |		Load	0x0,0xb
04b2 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
04b3 035b       | [  |		Declare_Type	Array,Constrained
04b4 0337       | 7  |		Declare_Variable	Array
04b5 e5ff       |    |		Load	0x2,-0x1
04b6 e00b       |    |		Load	0x0,0xb
04b7 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
04b8 e00b       |    |		Load	0x0,0xb
04b9 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
04ba 0119       |    |		Execute	Any,Check_In_Formal_Type
04bb 4801       |H   |		Short_Literal	0x1
04bc 00da       |    |		Load_Top	At_Offset_2
04bd 01d6       |    |		Execute	Vector,Field_Write
04be 6089       |`   |		Indirect_Literal	Discrete,0x548,{0x00000000, 0x00008176}
04bf e00c       |    |		Load	0x0,0xc
04c0 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
04c1 e40e       |    |		Load	0x2,0xe
04c2 6801       |h   |		Jump_Zero	0x4c4
04c3 8410       |    |		Call	0x2,0x10
04c4 e403       |    |		Load	0x2,0x3
04c5 0120       |    |		Execute	Any,Is_Value
04c6 6803       |h   |		Jump_Zero	0x4ca
04c7 e001       |    |		Load	0x0,0x1
04c8 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
04c9 7801       |x   |		Jump	0x4cb
04ca e403       |    |		Load	0x2,0x3
04cb 6078       |`x  |		Indirect_Literal	Discrete,0x544,{0x00007fff, 0xffffffff}
04cc e404       |    |		Load	0x2,0x4
04cd e405       |    |		Load	0x2,0x5
04ce e010       |    |		Load	0x0,0x10
04cf 182d       | -  |		Execute	Package,Field_Execute,Field_Number 0x2d
04d0 e010       |    |		Load	0x0,0x10
04d1 187e       | ~  |		Execute	Package,Field_Execute,Field_Number 0x7e
04d2 e40d       |    |		Load	0x2,0xd
04d3 e5ff       |    |		Load	0x2,-0x1
04d4 e001       |    |		Load	0x0,0x1
04d5 1833       | 3  |		Execute	Package,Field_Execute,Field_Number 0x33
04d6 c403       |    |		Store	0x2,0x3
04d7 4802       |H   |		Short_Literal	0x2
04d8 e403       |    |		Load	0x2,0x3
04d9 e00f       |    |		Load	0x0,0xf
04da 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
04db 6827       |h'  |		Jump_Zero	0x503
04dc e40e       |    |		Load	0x2,0xe
04dd 6805       |h   |		Jump_Zero	0x4e3
04de e402       |    |		Load	0x2,0x2
04df e005       |    |		Load	0x0,0x5
04e0 1830       | 0  |		Execute	Package,Field_Execute,Field_Number 0x30
04e1 7001       |p   |		Jump_Nonzero	0x4e3
04e2 8412       |    |		Call	0x2,0x12
04e3 8411       |    |		Call	0x2,0x11
04e4 4801       |H   |		Short_Literal	0x1
04e5 4802       |H   |		Short_Literal	0x2
04e6 e00b       |    |		Load	0x0,0xb
04e7 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
04e8 035b       | [  |		Declare_Type	Array,Constrained
04e9 0337       | 7  |		Declare_Variable	Array
04ea e5ff       |    |		Load	0x2,-0x1
04eb e00b       |    |		Load	0x0,0xb
04ec 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
04ed e00b       |    |		Load	0x0,0xb
04ee 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
04ef 0119       |    |		Execute	Any,Check_In_Formal_Type
04f0 4801       |H   |		Short_Literal	0x1
04f1 00da       |    |		Load_Top	At_Offset_2
04f2 01d6       |    |		Execute	Vector,Field_Write
04f3 e403       |    |		Load	0x2,0x3
04f4 e00f       |    |		Load	0x0,0xf
04f5 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
04f6 e00b       |    |		Load	0x0,0xb
04f7 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
04f8 e00b       |    |		Load	0x0,0xb
04f9 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
04fa 0119       |    |		Execute	Any,Check_In_Formal_Type
04fb 4802       |H   |		Short_Literal	0x2
04fc 00da       |    |		Load_Top	At_Offset_2
04fd 01d6       |    |		Execute	Vector,Field_Write
04fe 6041       |`A  |		Indirect_Literal	Discrete,0x540,{0x00000000, 0x00008132}
04ff e00c       |    |		Load	0x0,0xc
0500 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0501 a5f8       |    |		Store_Unchecked	0x2,-0x8
0502 4508       |E   |		Exit_Suprogram	New_Top_Offset 0x8
0503 4801       |H   |		Short_Literal	0x1
0504 0092 0bb6  |    |		Action	Push_String_Extended,0xbb6					; "VMS"
0506 e5fd       |    |		Load	0x2,-0x3
0507 e00a       |    |		Load	0x0,0xa
0508 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
0509 6804       |h   |		Jump_Zero	0x50e
050a e40d       |    |		Load	0x2,0xd
050b 840f       |    |		Call	0x2,0xf
050c a40a       |    |		Store_Unchecked	0x2,0xa
050d 7808       |x   |		Jump	0x516
050e e40e       |    |		Load	0x2,0xe
050f 6806       |h   |		Jump_Zero	0x516
0510 e402       |    |		Load	0x2,0x2
0511 e005       |    |		Load	0x0,0x5
0512 1830       | 0  |		Execute	Package,Field_Execute,Field_Number 0x30
0513 7001       |p   |		Jump_Nonzero	0x515
0514 8412       |    |		Call	0x2,0x12
0515 8411       |    |		Call	0x2,0x11
0516 e5f9       |    |		Load	0x2,-0x7
0517 6819       |h   |		Jump_Zero	0x531
0518 4800       |H   |		Short_Literal	0x0
0519 e40a       |    |		Load	0x2,0xa
051a e00c       |    |		Load	0x0,0xc
051b 1847       | G  |		Execute	Package,Field_Execute,Field_Number 0x47
051c 6814       |h   |		Jump_Zero	0x531
051d e00d       |    |		Load	0x0,0xd
051e 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
051f 4801       |H   |		Short_Literal	0x1
0520 4801       |H   |		Short_Literal	0x1
0521 e00b       |    |		Load	0x0,0xb
0522 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0523 035b       | [  |		Declare_Type	Array,Constrained
0524 0337       | 7  |		Declare_Variable	Array
0525 e5ff       |    |		Load	0x2,-0x1
0526 e00b       |    |		Load	0x0,0xb
0527 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0528 e00b       |    |		Load	0x0,0xb
0529 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
052a 0119       |    |		Execute	Any,Check_In_Formal_Type
052b 4801       |H   |		Short_Literal	0x1
052c 00da       |    |		Load_Top	At_Offset_2
052d 01d6       |    |		Execute	Vector,Field_Write
052e 600d       |`   |		Indirect_Literal	Discrete,0x53c,{0x00000000, 0x00008174}
052f e00c       |    |		Load	0x0,0xc
0530 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
0531 e40a       |    |		Load	0x2,0xa
0532 a5f8       |    |		Store_Unchecked	0x2,-0x8
0533 4508       |E   |		Exit_Suprogram	New_Top_Offset 0x8
0534			TRAP_0430:
0534 e011       |    |		Load	0x0,0x11
0535 010f       |    |		Execute	Exception,Equal
0536 6801       |h   |		Jump_Zero	0x538
0537 4508       |E   |		Exit_Suprogram	New_Top_Offset 0x8
0538 8411       |    |		Call	0x2,0x11
0539 00d8       |    |		Load_Top	At_Offset_0
053a 0101       |    |		Execute	Exception,Reraise
053b 0000       |    |		.XXX[0x1]
053c 0000 0000  |    |		.LITERAL	{0x00000000, 0x00008174}
0540 0000 0000  |    |		.LITERAL	{0x00000000, 0x00008132}
0544 0000 7fff  |    |		.LITERAL	{0x00007fff, 0xffffffff}
0548 0000 0000  |    |		.LITERAL	{0x00000000, 0x00008176}
054c 0000 0000  |    |		.BLANK	0000[0x4]
0550 ; --------------------------------------------------------------------------------------
0550 ; SUBPROGRAM
0550 ; --------------------------------------------------------------------------------------
0550 055f       | _  |		.CONST	0x055f								; Address of begin
0551 0004       |    |		.CONST	0x0004								; Address of exception handler
0552 0005       |    |		.CONST	0x0005								; Number of locals
0553			INIT_0550:
0553 00e1       |    |		Load_Encached	Boolean_Cache
0554 e001       |    |		Load	0x0,0x1
0555 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0556 02c7       |    |		Declare_Variable	Any
0557 00d8       |    |		Load_Top	At_Offset_0
0558 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0559 00e1       |    |		Load_Encached	Boolean_Cache
055a 0601       |    |		Execute_Immediate	Set_Value_Unchecked,0x1
055b e20d       |    |		Load	0x1,0xd
055c 02c7       |    |		Declare_Variable	Any
055d e5fe       |    |		Load	0x2,-0x2
055e a405       |    |		Store_Unchecked	0x2,0x5
055f			BODY_0550:
055f 4800       |H   |		Short_Literal	0x0
0560 a5fc       |    |		Store_Unchecked	0x2,-0x4
0561 e218       |    |		Load	0x1,0x18
0562 c5fb       |    |		Store	0x2,-0x5
0563 00d8       |    |		Load_Top	At_Offset_0
0564 e001       |    |		Load	0x0,0x1
0565 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0566 6815       |h   |		Jump_Zero	0x57c
0567 4801       |H   |		Short_Literal	0x1
0568 4801       |H   |		Short_Literal	0x1
0569 e00b       |    |		Load	0x0,0xb
056a 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
056b 035b       | [  |		Declare_Type	Array,Constrained
056c 0337       | 7  |		Declare_Variable	Array
056d 0092 0bb7  |    |		Action	Push_String_Extended,0xbb7					; "Unit_Update_Time"
056f e00b       |    |		Load	0x0,0xb
0570 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0571 e00b       |    |		Load	0x0,0xb
0572 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0573 0119       |    |		Execute	Any,Check_In_Formal_Type
0574 4801       |H   |		Short_Literal	0x1
0575 00da       |    |		Load_Top	At_Offset_2
0576 01d6       |    |		Execute	Vector,Field_Write
0577 60d0       |`   |		Indirect_Literal	Discrete,0x648,{0x00000000, 0x00008138}
0578 e00c       |    |		Load	0x0,0xc
0579 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
057a a5fc       |    |		Store_Unchecked	0x2,-0x4
057b 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
057c 00e1       |    |		Load_Encached	Boolean_Cache
057d 00d9       |    |		Load_Top	At_Offset_1
057e 8220       |    |		Call	0x1,0x20
057f c405       |    |		Store	0x2,0x5
0580 005a       | Z  |		Store_Top	Discrete,At_Offset_2
0581 00d9       |    |		Load_Top	At_Offset_1
0582 7015       |p   |		Jump_Nonzero	0x598
0583 4801       |H   |		Short_Literal	0x1
0584 4801       |H   |		Short_Literal	0x1
0585 e00b       |    |		Load	0x0,0xb
0586 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0587 035b       | [  |		Declare_Type	Array,Constrained
0588 0337       | 7  |		Declare_Variable	Array
0589 0092 0bb8  |    |		Action	Push_String_Extended,0xbb8					; "Unit_update_time"
058b e00b       |    |		Load	0x0,0xb
058c 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
058d e00b       |    |		Load	0x0,0xb
058e 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
058f 0119       |    |		Execute	Any,Check_In_Formal_Type
0590 4801       |H   |		Short_Literal	0x1
0591 00da       |    |		Load_Top	At_Offset_2
0592 01d6       |    |		Execute	Vector,Field_Write
0593 60b0       |`   |		Indirect_Literal	Discrete,0x644,{0x00000000, 0x000081d8}
0594 e00c       |    |		Load	0x0,0xc
0595 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0596 a5fc       |    |		Store_Unchecked	0x2,-0x4
0597 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0598 00e1       |    |		Load_Encached	Boolean_Cache
0599 00db       |    |		Load_Top	At_Offset_3
059a 0120       |    |		Execute	Any,Is_Value
059b 6803       |h   |		Jump_Zero	0x59f
059c e001       |    |		Load	0x0,0x1
059d 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
059e 7801       |x   |		Jump	0x5a0
059f 00db       |    |		Load_Top	At_Offset_3
05a0 00da       |    |		Load_Top	At_Offset_2
05a1 e5ff       |    |		Load	0x2,-0x1
05a2 e001       |    |		Load	0x0,0x1
05a3 1828       | (  |		Execute	Package,Field_Execute,Field_Number 0x28
05a4 c403       |    |		Store	0x2,0x3
05a5 c402       |    |		Store	0x2,0x2
05a6 4802       |H   |		Short_Literal	0x2
05a7 00db       |    |		Load_Top	At_Offset_3
05a8 e00f       |    |		Load	0x0,0xf
05a9 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
05aa 681f       |h   |		Jump_Zero	0x5ca
05ab 4801       |H   |		Short_Literal	0x1
05ac 4802       |H   |		Short_Literal	0x2
05ad e00b       |    |		Load	0x0,0xb
05ae 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
05af 035b       | [  |		Declare_Type	Array,Constrained
05b0 0337       | 7  |		Declare_Variable	Array
05b1 00db       |    |		Load_Top	At_Offset_3
05b2 e00f       |    |		Load	0x0,0xf
05b3 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
05b4 e00b       |    |		Load	0x0,0xb
05b5 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
05b6 e00b       |    |		Load	0x0,0xb
05b7 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
05b8 0119       |    |		Execute	Any,Check_In_Formal_Type
05b9 4801       |H   |		Short_Literal	0x1
05ba 00da       |    |		Load_Top	At_Offset_2
05bb 01d6       |    |		Execute	Vector,Field_Write
05bc e5ff       |    |		Load	0x2,-0x1
05bd e00b       |    |		Load	0x0,0xb
05be 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
05bf e00b       |    |		Load	0x0,0xb
05c0 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
05c1 0119       |    |		Execute	Any,Check_In_Formal_Type
05c2 4802       |H   |		Short_Literal	0x2
05c3 00da       |    |		Load_Top	At_Offset_2
05c4 01d6       |    |		Execute	Vector,Field_Write
05c5 607a       |`z  |		Indirect_Literal	Discrete,0x640,{0x00000000, 0x00008162}
05c6 e00c       |    |		Load	0x0,0xc
05c7 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
05c8 a5fc       |    |		Store_Unchecked	0x2,-0x4
05c9 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
05ca 00db       |    |		Load_Top	At_Offset_3
05cb 7014       |p   |		Jump_Nonzero	0x5e0
05cc 4801       |H   |		Short_Literal	0x1
05cd 4801       |H   |		Short_Literal	0x1
05ce e00b       |    |		Load	0x0,0xb
05cf 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
05d0 035b       | [  |		Declare_Type	Array,Constrained
05d1 0337       | 7  |		Declare_Variable	Array
05d2 e5ff       |    |		Load	0x2,-0x1
05d3 e00b       |    |		Load	0x0,0xb
05d4 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
05d5 e00b       |    |		Load	0x0,0xb
05d6 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
05d7 0119       |    |		Execute	Any,Check_In_Formal_Type
05d8 4801       |H   |		Short_Literal	0x1
05d9 00da       |    |		Load_Top	At_Offset_2
05da 01d6       |    |		Execute	Vector,Field_Write
05db 6060       |``  |		Indirect_Literal	Discrete,0x63c,{0x00000000, 0x00008171}
05dc e00c       |    |		Load	0x0,0xc
05dd 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
05de a5fc       |    |		Store_Unchecked	0x2,-0x4
05df 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
05e0 00da       |    |		Load_Top	At_Offset_2
05e1 0120       |    |		Execute	Any,Is_Value
05e2 6803       |h   |		Jump_Zero	0x5e6
05e3 e001       |    |		Load	0x0,0x1
05e4 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
05e5 7801       |x   |		Jump	0x5e7
05e6 00da       |    |		Load_Top	At_Offset_2
05e7 e5fb       |    |		Load	0x2,-0x5
05e8 0120       |    |		Execute	Any,Is_Value
05e9 6803       |h   |		Jump_Zero	0x5ed
05ea e002       |    |		Load	0x0,0x2
05eb 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
05ec 7801       |x   |		Jump	0x5ee
05ed e5fb       |    |		Load	0x2,-0x5
05ee 00ea       |    |		Load_Encached	Null_String_Cache
05ef 00db       |    |		Load_Top	At_Offset_3
05f0 e5ff       |    |		Load	0x2,-0x1
05f1 e001       |    |		Load	0x0,0x1
05f2 1827       | '  |		Execute	Package,Field_Execute,Field_Number 0x27
05f3 c5fb       |    |		Store	0x2,-0x5
05f4 c403       |    |		Store	0x2,0x3
05f5 4802       |H   |		Short_Literal	0x2
05f6 00db       |    |		Load_Top	At_Offset_3
05f7 e00f       |    |		Load	0x0,0xf
05f8 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
05f9 6821       |h!  |		Jump_Zero	0x61b
05fa 4801       |H   |		Short_Literal	0x1
05fb 4802       |H   |		Short_Literal	0x2
05fc e00b       |    |		Load	0x0,0xb
05fd 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
05fe 035b       | [  |		Declare_Type	Array,Constrained
05ff 0337       | 7  |		Declare_Variable	Array
0600 e5ff       |    |		Load	0x2,-0x1
0601 e00b       |    |		Load	0x0,0xb
0602 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0603 e00b       |    |		Load	0x0,0xb
0604 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0605 0119       |    |		Execute	Any,Check_In_Formal_Type
0606 4801       |H   |		Short_Literal	0x1
0607 00da       |    |		Load_Top	At_Offset_2
0608 01d6       |    |		Execute	Vector,Field_Write
0609 00db       |    |		Load_Top	At_Offset_3
060a e00f       |    |		Load	0x0,0xf
060b 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
060c e00b       |    |		Load	0x0,0xb
060d 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
060e e00b       |    |		Load	0x0,0xb
060f 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0610 0119       |    |		Execute	Any,Check_In_Formal_Type
0611 4802       |H   |		Short_Literal	0x2
0612 00da       |    |		Load_Top	At_Offset_2
0613 01d6       |    |		Execute	Vector,Field_Write
0614 6023       |`#  |		Indirect_Literal	Discrete,0x638,{0x00000000, 0x00008137}
0615 e00c       |    |		Load	0x0,0xc
0616 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0617 a5fc       |    |		Store_Unchecked	0x2,-0x4
0618 e218       |    |		Load	0x1,0x18
0619 c5fb       |    |		Store	0x2,-0x5
061a 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
061b e5fd       |    |		Load	0x2,-0x3
061c 6814       |h   |		Jump_Zero	0x631
061d e00d       |    |		Load	0x0,0xd
061e 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
061f 4801       |H   |		Short_Literal	0x1
0620 4801       |H   |		Short_Literal	0x1
0621 e00b       |    |		Load	0x0,0xb
0622 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0623 035b       | [  |		Declare_Type	Array,Constrained
0624 0337       | 7  |		Declare_Variable	Array
0625 e5ff       |    |		Load	0x2,-0x1
0626 e00b       |    |		Load	0x0,0xb
0627 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0628 e00b       |    |		Load	0x0,0xb
0629 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
062a 0119       |    |		Execute	Any,Check_In_Formal_Type
062b 4801       |H   |		Short_Literal	0x1
062c 00da       |    |		Load_Top	At_Offset_2
062d 01d6       |    |		Execute	Vector,Field_Write
062e 6005       |`   |		Indirect_Literal	Discrete,0x634,{0x00000000, 0x00008179}
062f e00c       |    |		Load	0x0,0xc
0630 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
0631 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0632 0000 0000  |    |		.XXX[0x2]
0634 0000 0000  |    |		.LITERAL	{0x00000000, 0x00008179}
0638 0000 0000  |    |		.LITERAL	{0x00000000, 0x00008137}
063c 0000 0000  |    |		.LITERAL	{0x00000000, 0x00008171}
0640 0000 0000  |    |		.LITERAL	{0x00000000, 0x00008162}
0644 0000 0000  |    |		.LITERAL	{0x00000000, 0x000081d8}
0648 0000 0000  |    |		.LITERAL	{0x00000000, 0x00008138}
064c 0000 0000  |    |		.BLANK	0000[0x4]
0650 ; --------------------------------------------------------------------------------------
0650 ; SUBPROGRAM
0650 ; --------------------------------------------------------------------------------------
0650 065e       | ^  |		.CONST	0x065e								; Address of begin
0651 0004       |    |		.CONST	0x0004								; Address of exception handler
0652 0004       |    |		.CONST	0x0004								; Number of locals
0653			INIT_0650:
0653 e00f       |    |		Load	0x0,0xf
0654 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0655 02c7       |    |		Declare_Variable	Any
0656 00d8       |    |		Load_Top	At_Offset_0
0657 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0658 00e1       |    |		Load_Encached	Boolean_Cache
0659 0601       |    |		Execute_Immediate	Set_Value_Unchecked,0x1
065a e20d       |    |		Load	0x1,0xd
065b 02c7       |    |		Declare_Variable	Any
065c e5fe       |    |		Load	0x2,-0x2
065d a404       |    |		Store_Unchecked	0x2,0x4
065e			BODY_0650:
065e 4800       |H   |		Short_Literal	0x0
065f a5fc       |    |		Store_Unchecked	0x2,-0x4
0660 4800       |H   |		Short_Literal	0x0
0661 a5fb       |    |		Store_Unchecked	0x2,-0x5
0662 00e1       |    |		Load_Encached	Boolean_Cache
0663 00d9       |    |		Load_Top	At_Offset_1
0664 8220       |    |		Call	0x1,0x20
0665 c404       |    |		Store	0x2,0x4
0666 005a       | Z  |		Store_Top	Discrete,At_Offset_2
0667 00d9       |    |		Load_Top	At_Offset_1
0668 7015       |p   |		Jump_Nonzero	0x67e
0669 4801       |H   |		Short_Literal	0x1
066a 4801       |H   |		Short_Literal	0x1
066b e00b       |    |		Load	0x0,0xb
066c 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
066d 035b       | [  |		Declare_Type	Array,Constrained
066e 0337       | 7  |		Declare_Variable	Array
066f 0092 0bb9  |    |		Action	Push_String_Extended,0xbb9					; "file_exists"
0671 e00b       |    |		Load	0x0,0xb
0672 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0673 e00b       |    |		Load	0x0,0xb
0674 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0675 0119       |    |		Execute	Any,Check_In_Formal_Type
0676 4801       |H   |		Short_Literal	0x1
0677 00da       |    |		Load_Top	At_Offset_2
0678 01d6       |    |		Execute	Vector,Field_Write
0679 67ca       |g   |		Indirect_Literal	Discrete,0x644,{0x00000000, 0x000081d8}
067a e00c       |    |		Load	0x0,0xc
067b 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
067c a5fc       |    |		Store_Unchecked	0x2,-0x4
067d 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
067e 00e1       |    |		Load_Encached	Boolean_Cache
067f 00db       |    |		Load_Top	At_Offset_3
0680 0120       |    |		Execute	Any,Is_Value
0681 6803       |h   |		Jump_Zero	0x685
0682 e001       |    |		Load	0x0,0x1
0683 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0684 7801       |x   |		Jump	0x686
0685 00db       |    |		Load_Top	At_Offset_3
0686 00da       |    |		Load_Top	At_Offset_2
0687 e5ff       |    |		Load	0x2,-0x1
0688 e001       |    |		Load	0x0,0x1
0689 1828       | (  |		Execute	Package,Field_Execute,Field_Number 0x28
068a c402       |    |		Store	0x2,0x2
068b c5fb       |    |		Store	0x2,-0x5
068c 4802       |H   |		Short_Literal	0x2
068d 00db       |    |		Load_Top	At_Offset_3
068e e00f       |    |		Load	0x0,0xf
068f 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
0690 681f       |h   |		Jump_Zero	0x6b0
0691 4801       |H   |		Short_Literal	0x1
0692 4802       |H   |		Short_Literal	0x2
0693 e00b       |    |		Load	0x0,0xb
0694 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0695 035b       | [  |		Declare_Type	Array,Constrained
0696 0337       | 7  |		Declare_Variable	Array
0697 00db       |    |		Load_Top	At_Offset_3
0698 e00f       |    |		Load	0x0,0xf
0699 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
069a e00b       |    |		Load	0x0,0xb
069b 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
069c e00b       |    |		Load	0x0,0xb
069d 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
069e 0119       |    |		Execute	Any,Check_In_Formal_Type
069f 4801       |H   |		Short_Literal	0x1
06a0 00da       |    |		Load_Top	At_Offset_2
06a1 01d6       |    |		Execute	Vector,Field_Write
06a2 e5ff       |    |		Load	0x2,-0x1
06a3 e00b       |    |		Load	0x0,0xb
06a4 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
06a5 e00b       |    |		Load	0x0,0xb
06a6 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
06a7 0119       |    |		Execute	Any,Check_In_Formal_Type
06a8 4802       |H   |		Short_Literal	0x2
06a9 00da       |    |		Load_Top	At_Offset_2
06aa 01d6       |    |		Execute	Vector,Field_Write
06ab 6794       |g   |		Indirect_Literal	Discrete,0x640,{0x00000000, 0x00008162}
06ac e00c       |    |		Load	0x0,0xc
06ad 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
06ae a5fc       |    |		Store_Unchecked	0x2,-0x4
06af 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
06b0 e5fd       |    |		Load	0x2,-0x3
06b1 681a       |h   |		Jump_Zero	0x6cc
06b2 e00d       |    |		Load	0x0,0xd
06b3 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
06b4 4801       |H   |		Short_Literal	0x1
06b5 4801       |H   |		Short_Literal	0x1
06b6 e00b       |    |		Load	0x0,0xb
06b7 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
06b8 035b       | [  |		Declare_Type	Array,Constrained
06b9 0337       | 7  |		Declare_Variable	Array
06ba 0092 0bba  |    |		Action	Push_String_Extended,0xbba					; "Successfully determined the existence of remote file \x22"
06bc e5ff       |    |		Load	0x2,-0x1
06bd 01cc       |    |		Execute	Vector,Catenate
06be 0092 0bbb  |    |		Action	Push_String_Extended,0xbbb					; "\x22."
06c0 01cc       |    |		Execute	Vector,Catenate
06c1 e00b       |    |		Load	0x0,0xb
06c2 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
06c3 e00b       |    |		Load	0x0,0xb
06c4 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
06c5 0119       |    |		Execute	Any,Check_In_Formal_Type
06c6 4801       |H   |		Short_Literal	0x1
06c7 00da       |    |		Load_Top	At_Offset_2
06c8 01d6       |    |		Execute	Vector,Field_Write
06c9 6006       |`   |		Indirect_Literal	Discrete,0x6d0,{0x00000000, 0x00008136}
06ca e00c       |    |		Load	0x0,0xc
06cb 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
06cc 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
06cd 0000 0000  |    |		.XXX[0x3]
06cf 0000       |    |
06d0 0000 0000  |    |		.LITERAL	{0x00000000, 0x00008136}
06d4 0000 0000  |    |		.BLANK	0000[0x4]
06d8 ; --------------------------------------------------------------------------------------
06d8 ; SUBPROGRAM
06d8 ; --------------------------------------------------------------------------------------
06d8 06db       |    |		.CONST	0x06db								; Address of begin
06d9 0004       |    |		.CONST	0x0004								; Address of exception handler
06da 0001       |    |		.CONST	0x0001								; Number of locals
06db			BODY_06d8:
06db			INIT_06d8:
06db 4608       |F   |		Jump_Case	0x9
06dc 7808       |x   |		Jump	0x6e5								; case 0x0
06dd 7826       |x&  |		Jump	0x704								; case 0x1
06de 7832       |x2  |		Jump	0x711								; case 0x2
06df 7831       |x1  |		Jump	0x711								; case 0x3
06e0 7830       |x0  |		Jump	0x711								; case 0x4
06e1 782f       |x/  |		Jump	0x711								; case 0x5
06e2 782e       |x.  |		Jump	0x711								; case 0x6
06e3 782d       |x-  |		Jump	0x711								; case 0x7
06e4 782c       |x,  |		Jump	0x711								; case 0x8
06e5 00da       |    |		Load_Top	At_Offset_2
06e6 3403       |4   |		Execute	Record,Field_Reference,Field_Number 0x3
06e7 0125       | %  |		Execute	Any,Set_Constraint
06e8 00da       |    |		Load_Top	At_Offset_2
06e9 3403       |4   |		Execute	Record,Field_Reference,Field_Number 0x3
06ea 1c00       |    |		Execute_Immediate	Run_Utility,0x0
06eb 00da       |    |		Load_Top	At_Offset_2
06ec 3404       |4   |		Execute	Record,Field_Reference,Field_Number 0x4
06ed 0125       | %  |		Execute	Any,Set_Constraint
06ee 00da       |    |		Load_Top	At_Offset_2
06ef 3404       |4   |		Execute	Record,Field_Reference,Field_Number 0x4
06f0 1c00       |    |		Execute_Immediate	Run_Utility,0x0
06f1 00da       |    |		Load_Top	At_Offset_2
06f2 3405       |4   |		Execute	Record,Field_Reference,Field_Number 0x5
06f3 0125       | %  |		Execute	Any,Set_Constraint
06f4 00da       |    |		Load_Top	At_Offset_2
06f5 3405       |4   |		Execute	Record,Field_Reference,Field_Number 0x5
06f6 1c00       |    |		Execute_Immediate	Run_Utility,0x0
06f7 00da       |    |		Load_Top	At_Offset_2
06f8 3406       |4   |		Execute	Record,Field_Reference,Field_Number 0x6
06f9 0125       | %  |		Execute	Any,Set_Constraint
06fa 00da       |    |		Load_Top	At_Offset_2
06fb 3406       |4   |		Execute	Record,Field_Reference,Field_Number 0x6
06fc 1c00       |    |		Execute_Immediate	Run_Utility,0x0
06fd 00da       |    |		Load_Top	At_Offset_2
06fe 3407       |4   |		Execute	Record,Field_Reference,Field_Number 0x7
06ff 0125       | %  |		Execute	Any,Set_Constraint
0700 00da       |    |		Load_Top	At_Offset_2
0701 3407       |4   |		Execute	Record,Field_Reference,Field_Number 0x7
0702 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0703 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
0704 00da       |    |		Load_Top	At_Offset_2
0705 3404       |4   |		Execute	Record,Field_Reference,Field_Number 0x4
0706 0125       | %  |		Execute	Any,Set_Constraint
0707 00da       |    |		Load_Top	At_Offset_2
0708 3405       |4   |		Execute	Record,Field_Reference,Field_Number 0x5
0709 0125       | %  |		Execute	Any,Set_Constraint
070a 00da       |    |		Load_Top	At_Offset_2
070b 3406       |4   |		Execute	Record,Field_Reference,Field_Number 0x6
070c 0125       | %  |		Execute	Any,Set_Constraint
070d 00da       |    |		Load_Top	At_Offset_2
070e 3407       |4   |		Execute	Record,Field_Reference,Field_Number 0x7
070f 0125       | %  |		Execute	Any,Set_Constraint
0710 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
0711 0869       | i  |		Execute_Immediate	Raise,0x69
0712 0000 0000  |    |		.BLANK	0000[0x6]
0718 ; --------------------------------------------------------------------------------------
0718 ; SUBPROGRAM
0718 ; --------------------------------------------------------------------------------------
0718 0727       | '  |		.CONST	0x0727								; Address of begin
0719 0004       |    |		.CONST	0x0004								; Address of exception handler
071a 0003       |    |		.CONST	0x0003								; Number of locals
071b			INIT_0718:
071b e003       |    |		Load	0x0,0x3
071c 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
071d e003       |    |		Load	0x0,0x3
071e 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
071f 03f1       |    |		Declare_Variable	Discrete,With_Value
0720 e003       |    |		Load	0x0,0x3
0721 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0722 e012       |    |		Load	0x0,0x12
0723 1827       | '  |		Execute	Package,Field_Execute,Field_Number 0x27
0724 e004       |    |		Load	0x0,0x4
0725 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0726 03f1       |    |		Declare_Variable	Discrete,With_Value
0727			BODY_0718:
0727 00d9       |    |		Load_Top	At_Offset_1
0728 e5ff       |    |		Load	0x2,-0x1
0729 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
072a 00d8       |    |		Load_Top	At_Offset_0
072b e5ff       |    |		Load	0x2,-0x1
072c 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
072d 4800       |H   |		Short_Literal	0x0
072e e5ff       |    |		Load	0x2,-0x1
072f 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0730 e00d       |    |		Load	0x0,0xd
0731 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0732 4801       |H   |		Short_Literal	0x1
0733 0092 0bbc  |    |		Action	Push_String_Extended,0xbbc					; "Initialized Job_Record for job"
0735 e402       |    |		Load	0x2,0x2
0736 00e0       |    |		Load_Encached	Standard_Cache
0737 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0738 01cc       |    |		Execute	Vector,Catenate
0739 0092 0bbd  |    |		Action	Push_String_Extended,0xbbd					; ", task"
073b 01cc       |    |		Execute	Vector,Catenate
073c 00db       |    |		Load_Top	At_Offset_3
073d 00d8       |    |		Load_Top	At_Offset_0
073e 00e2       |    |		Load_Encached	Integer_Cache
073f 0260       | `  |		Execute	Discrete,In_Type
0740 7001       |p   |		Jump_Nonzero	0x742
0741 0801       |    |		Execute_Immediate	Raise,0x1
0742 00e0       |    |		Load_Encached	Standard_Cache
0743 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0744 01cc       |    |		Execute	Vector,Catenate
0745 e00e       |    |		Load	0x0,0xe
0746 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0747 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0748 ; --------------------------------------------------------------------------------------
0748 ; SUBPROGRAM
0748 ; --------------------------------------------------------------------------------------
0748 074b       | K  |		.CONST	0x074b								; Address of begin
0749 0004       |    |		.CONST	0x0004								; Address of exception handler
074a 0001       |    |		.CONST	0x0001								; Number of locals
074b			BODY_0748:
074b			INIT_0748:
074b e00d       |    |		Load	0x0,0xd
074c 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
074d 4801       |H   |		Short_Literal	0x1
074e 0092 0bbe  |    |		Action	Push_String_Extended,0xbbe					; "Finalizing Job_Record"
0750 e00e       |    |		Load	0x0,0xe
0751 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0752 00da       |    |		Load_Top	At_Offset_2
0753 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0754 6822       |h"  |		Jump_Zero	0x777
0755 00da       |    |		Load_Top	At_Offset_2
0756 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
0757 e005       |    |		Load	0x0,0x5
0758 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
0759 00db       |    |		Load_Top	At_Offset_3
075a 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
075b e00d       |    |		Load	0x0,0xd
075c 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
075d 4801       |H   |		Short_Literal	0x1
075e 0092 0bbf  |    |		Action	Push_String_Extended,0xbbf					; "Deleting temporary file for process"
0760 e5ff       |    |		Load	0x2,-0x1
0761 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0762 00e0       |    |		Load_Encached	Standard_Cache
0763 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0764 01cc       |    |		Execute	Vector,Catenate
0765 0092 0bbd  |    |		Action	Push_String_Extended,0xbbd					; ", task"
0767 01cc       |    |		Execute	Vector,Catenate
0768 e5ff       |    |		Load	0x2,-0x1
0769 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
076a 00d8       |    |		Load_Top	At_Offset_0
076b 00e2       |    |		Load_Encached	Integer_Cache
076c 0260       | `  |		Execute	Discrete,In_Type
076d 7001       |p   |		Jump_Nonzero	0x76f
076e 0801       |    |		Execute_Immediate	Raise,0x1
076f 00e0       |    |		Load_Encached	Standard_Cache
0770 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0771 01cc       |    |		Execute	Vector,Catenate
0772 e00e       |    |		Load	0x0,0xe
0773 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0774 4800       |H   |		Short_Literal	0x0
0775 00db       |    |		Load_Top	At_Offset_3
0776 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0777 4800       |H   |		Short_Literal	0x0
0778 00db       |    |		Load_Top	At_Offset_3
0779 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
077a 4800       |H   |		Short_Literal	0x0
077b 00db       |    |		Load_Top	At_Offset_3
077c 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
077d 00da       |    |		Load_Top	At_Offset_2
077e 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
077f 00ea       |    |		Load_Encached	Null_String_Cache
0780 e006       |    |		Load	0x0,0x6
0781 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0782 00d1       |    |		Pop_Control	Pop_Count_1
0783 00da       |    |		Load_Top	At_Offset_2
0784 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
0785 00ea       |    |		Load_Encached	Null_String_Cache
0786 e006       |    |		Load	0x0,0x6
0787 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0788 00d1       |    |		Pop_Control	Pop_Count_1
0789 00da       |    |		Load_Top	At_Offset_2
078a 3c06       |<   |		Execute	Record,Field_Read,Field_Number 0x6
078b 00ea       |    |		Load_Encached	Null_String_Cache
078c e006       |    |		Load	0x0,0x6
078d 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
078e 00d1       |    |		Pop_Control	Pop_Count_1
078f 00da       |    |		Load_Top	At_Offset_2
0790 3c07       |<   |		Execute	Record,Field_Read,Field_Number 0x7
0791 00ea       |    |		Load_Encached	Null_String_Cache
0792 e006       |    |		Load	0x0,0x6
0793 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0794 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0795 0000 0000  |    |		.XXX[0x3]
0797 0000       |    |
0798 ; --------------------------------------------------------------------------------------
0798 ; SUBPROGRAM
0798 ; --------------------------------------------------------------------------------------
0798 07b0       |    |		.CONST	0x07b0								; Address of begin
0799 0004       |    |		.CONST	0x0004								; Address of exception handler
079a 0005       |    |		.CONST	0x0005								; Number of locals
079b			INIT_0798:
079b e001       |    |		Load	0x0,0x1
079c 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
079d 02c7       |    |		Declare_Variable	Any
079e 00d8       |    |		Load_Top	At_Offset_0
079f 1c00       |    |		Execute_Immediate	Run_Utility,0x0
07a0 e003       |    |		Load	0x0,0x3
07a1 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
07a2 e003       |    |		Load	0x0,0x3
07a3 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
07a4 03f1       |    |		Declare_Variable	Discrete,With_Value
07a5 e21a       |    |		Load	0x1,0x1a
07a6 0322       | "  |		Declare_Variable	Record
07a7 00d8       |    |		Load_Top	At_Offset_0
07a8 1c01       |    |		Execute_Immediate	Run_Utility,0x1
07a9 00d9       |    |		Load_Top	At_Offset_1
07aa e21d       |    |		Load	0x1,0x1d
07ab 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
07ac 00d9       |    |		Load_Top	At_Offset_1
07ad 017d       | }  |		Execute	Record,Structure_Write
07ae 029f 0b33  |   3|		Declare_Subprogram	INIT_0b30,For_Call
07b0			BODY_0798:
07b0 e00d       |    |		Load	0x0,0xd
07b1 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
07b2 4801       |H   |		Short_Literal	0x1
07b3 4801       |H   |		Short_Literal	0x1
07b4 e00b       |    |		Load	0x0,0xb
07b5 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
07b6 035b       | [  |		Declare_Type	Array,Constrained
07b7 0337       | 7  |		Declare_Variable	Array
07b8 00db       |    |		Load_Top	At_Offset_3
07b9 3404       |4   |		Execute	Record,Field_Reference,Field_Number 0x4
07ba e006       |    |		Load	0x0,0x6
07bb 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
07bc e00b       |    |		Load	0x0,0xb
07bd 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
07be e00b       |    |		Load	0x0,0xb
07bf 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
07c0 0119       |    |		Execute	Any,Check_In_Formal_Type
07c1 4801       |H   |		Short_Literal	0x1
07c2 00da       |    |		Load_Top	At_Offset_2
07c3 01d6       |    |		Execute	Vector,Field_Write
07c4 6017       |`   |		Indirect_Literal	Discrete,0x7dc,{0x00000000, 0x000081d9}
07c5 e00c       |    |		Load	0x0,0xc
07c6 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
07c7 8405       |    |		Call	0x2,0x5
07c8 e00c       |    |		Load	0x0,0xc
07c9 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
07ca e5fe       |    |		Load	0x2,-0x2
07cb e5ff       |    |		Load	0x2,-0x1
07cc e404       |    |		Load	0x2,0x4
07cd 3406       |4   |		Execute	Record,Field_Reference,Field_Number 0x6
07ce e006       |    |		Load	0x0,0x6
07cf 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
07d0 e404       |    |		Load	0x2,0x4
07d1 3405       |4   |		Execute	Record,Field_Reference,Field_Number 0x5
07d2 e006       |    |		Load	0x0,0x6
07d3 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
07d4 e404       |    |		Load	0x2,0x4
07d5 3404       |4   |		Execute	Record,Field_Reference,Field_Number 0x4
07d6 e006       |    |		Load	0x0,0x6
07d7 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
07d8 820e       |    |		Call	0x1,0xe
07d9 c5fe       |    |		Store	0x2,-0x2
07da c5fd       |    |		Store	0x2,-0x3
07db 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
07dc 0000 0000  |    |		.LITERAL	{0x00000000, 0x000081d9}
07e0 ; --------------------------------------------------------------------------------------
07e0 ; SUBPROGRAM
07e0 ; --------------------------------------------------------------------------------------
07e0 07e3       |    |		.CONST	0x07e3								; Address of begin
07e1 07e7       |    |		.CONST	0x07e7								; Address of exception handler
07e2 0001       |    |		.CONST	0x0001								; Number of locals
07e3			BODY_07e0:
07e3			INIT_07e0:
07e3 00da       |    |		Load_Top	At_Offset_2
07e4 e001       |    |		Load	0x0,0x1
07e5 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
07e6 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
07e7			TRAP_07e0:
07e7 0007       |    |		Action	Break_Optional
07e8 4800       |H   |		Short_Literal	0x0
07e9 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
07ea 0000 0000  |    |		.BLANK	0000[0x6]
07f0 ; --------------------------------------------------------------------------------------
07f0 ; SUBPROGRAM
07f0 ; --------------------------------------------------------------------------------------
07f0 07f5       |    |		.CONST	0x07f5								; Address of begin
07f1 0817       |    |		.CONST	0x0817								; Address of exception handler
07f2 0002       |    |		.CONST	0x0002								; Number of locals
07f3			INIT_07f0:
07f3 e00c       |    |		Load	0x0,0xc
07f4 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
07f5			BODY_07f0:
07f5 4801       |H   |		Short_Literal	0x1
07f6 a5fe       |    |		Store_Unchecked	0x2,-0x2
07f7 00db       |    |		Load_Top	At_Offset_3
07f8 821f       |    |		Call	0x1,0x1f
07f9 701c       |p   |		Jump_Nonzero	0x816
07fa 00cf       |    |		Action	Mark_Auxiliary
07fb 4803       |H   |		Short_Literal	0x3
07fc 4801       |H   |		Short_Literal	0x1
07fd 0007       |    |		Action	Break_Optional
07fe e00c       |    |		Load	0x0,0xc
07ff 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0800 e5ff       |    |		Load	0x2,-0x1
0801 4800       |H   |		Short_Literal	0x0
0802 821e       |    |		Call	0x1,0x1e
0803 c5ff       |    |		Store	0x2,-0x1
0804 c402       |    |		Store	0x2,0x2
0805 4800       |H   |		Short_Literal	0x0
0806 e402       |    |		Load	0x2,0x2
0807 e00c       |    |		Load	0x0,0xc
0808 1847       | G  |		Execute	Package,Field_Execute,Field_Number 0x47
0809 6807       |h   |		Jump_Zero	0x811
080a e5ff       |    |		Load	0x2,-0x1
080b e001       |    |		Load	0x0,0x1
080c 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
080d 6803       |h   |		Jump_Zero	0x811
080e 4801       |H   |		Short_Literal	0x1
080f a5fe       |    |		Store_Unchecked	0x2,-0x2
0810 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0811 00c8       |    |		Action	Pop_Auxiliary_Range
0812 3feb       |?   |		Loop_Increasing	0x7fe
0813 00ce       |    |		Action	Pop_Auxiliary
0814 4800       |H   |		Short_Literal	0x0
0815 a5fe       |    |		Store_Unchecked	0x2,-0x2
0816 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0817			TRAP_07f0:
0817 0007       |    |		Action	Break_Optional
0818 4800       |H   |		Short_Literal	0x0
0819 a5fe       |    |		Store_Unchecked	0x2,-0x2
081a 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
081b 0000 0000  |    |		.BLANK	0000[0x5]
0820 ; --------------------------------------------------------------------------------------
0820 ; SUBPROGRAM
0820 ; --------------------------------------------------------------------------------------
0820 0826       | &  |		.CONST	0x0826								; Address of begin
0821 0004       |    |		.CONST	0x0004								; Address of exception handler
0822 0002       |    |		.CONST	0x0002								; Number of locals
0823			INIT_0820:
0823 e5fe       |    |		Load	0x2,-0x2
0824 e001       |    |		Load	0x0,0x1
0825 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0826			BODY_0820:
0826 e402       |    |		Load	0x2,0x2
0827 0120       |    |		Execute	Any,Is_Value
0828 6803       |h   |		Jump_Zero	0x82c
0829 e001       |    |		Load	0x0,0x1
082a 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
082b 7801       |x   |		Jump	0x82d
082c e402       |    |		Load	0x2,0x2
082d e5fe       |    |		Load	0x2,-0x2
082e e001       |    |		Load	0x0,0x1
082f 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0830 011e       |    |		Execute	Any,Convert
0831 603e       |`>  |		Indirect_Literal	Discrete,0x870,{0x00000000, 0x000a0000}
0832 e001       |    |		Load	0x0,0x1
0833 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0834 c5fe       |    |		Store	0x2,-0x2
0835 c402       |    |		Store	0x2,0x2
0836 4802       |H   |		Short_Literal	0x2
0837 e402       |    |		Load	0x2,0x2
0838 e00f       |    |		Load	0x0,0xf
0839 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
083a 6816       |h   |		Jump_Zero	0x851
083b 4801       |H   |		Short_Literal	0x1
083c 4801       |H   |		Short_Literal	0x1
083d e00b       |    |		Load	0x0,0xb
083e 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
083f 035b       | [  |		Declare_Type	Array,Constrained
0840 0337       | 7  |		Declare_Variable	Array
0841 e402       |    |		Load	0x2,0x2
0842 e00f       |    |		Load	0x0,0xf
0843 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0844 e00b       |    |		Load	0x0,0xb
0845 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0846 e00b       |    |		Load	0x0,0xb
0847 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0848 0119       |    |		Execute	Any,Check_In_Formal_Type
0849 4801       |H   |		Short_Literal	0x1
084a 00da       |    |		Load_Top	At_Offset_2
084b 01d6       |    |		Execute	Vector,Field_Write
084c 601f       |`   |		Indirect_Literal	Discrete,0x86c,{0x00000000, 0x00008135}
084d e00c       |    |		Load	0x0,0xc
084e 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
084f a5fd       |    |		Store_Unchecked	0x2,-0x3
0850 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0851 e5ff       |    |		Load	0x2,-0x1
0852 6814       |h   |		Jump_Zero	0x867
0853 e00d       |    |		Load	0x0,0xd
0854 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0855 4801       |H   |		Short_Literal	0x1
0856 4801       |H   |		Short_Literal	0x1
0857 e00b       |    |		Load	0x0,0xb
0858 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0859 035b       | [  |		Declare_Type	Array,Constrained
085a 0337       | 7  |		Declare_Variable	Array
085b 00da       |    |		Load_Top	At_Offset_2
085c e00b       |    |		Load	0x0,0xb
085d 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
085e e00b       |    |		Load	0x0,0xb
085f 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0860 0119       |    |		Execute	Any,Check_In_Formal_Type
0861 4801       |H   |		Short_Literal	0x1
0862 00da       |    |		Load_Top	At_Offset_2
0863 01d6       |    |		Execute	Vector,Field_Write
0864 6003       |`   |		Indirect_Literal	Discrete,0x868,{0x00000000, 0x00008178}
0865 e00c       |    |		Load	0x0,0xc
0866 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
0867 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0868 0000 0000  |    |		.LITERAL	{0x00000000, 0x00008178}
086c 0000 0000  |    |		.LITERAL	{0x00000000, 0x00008135}
0870 0000 0000  |    |		.LITERAL	{0x00000000, 0x000a0000}
0874 0000 0000  |    |		.BLANK	0000[0x4]
0878 ; --------------------------------------------------------------------------------------
0878 ; SUBPROGRAM
0878 ; --------------------------------------------------------------------------------------
0878 087e       | ~  |		.CONST	0x087e								; Address of begin
0879 0004       |    |		.CONST	0x0004								; Address of exception handler
087a 0002       |    |		.CONST	0x0002								; Number of locals
087b			INIT_0878:
087b e5fe       |    |		Load	0x2,-0x2
087c e001       |    |		Load	0x0,0x1
087d 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
087e			BODY_0878:
087e e402       |    |		Load	0x2,0x2
087f 0120       |    |		Execute	Any,Is_Value
0880 6803       |h   |		Jump_Zero	0x884
0881 e001       |    |		Load	0x0,0x1
0882 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0883 7801       |x   |		Jump	0x885
0884 e402       |    |		Load	0x2,0x2
0885 e5fe       |    |		Load	0x2,-0x2
0886 e001       |    |		Load	0x0,0x1
0887 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0888 011e       |    |		Execute	Any,Convert
0889 e001       |    |		Load	0x0,0x1
088a 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
088b c5fe       |    |		Store	0x2,-0x2
088c c402       |    |		Store	0x2,0x2
088d 4802       |H   |		Short_Literal	0x2
088e e402       |    |		Load	0x2,0x2
088f e00f       |    |		Load	0x0,0xf
0890 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
0891 6816       |h   |		Jump_Zero	0x8a8
0892 4801       |H   |		Short_Literal	0x1
0893 4801       |H   |		Short_Literal	0x1
0894 e00b       |    |		Load	0x0,0xb
0895 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0896 035b       | [  |		Declare_Type	Array,Constrained
0897 0337       | 7  |		Declare_Variable	Array
0898 e402       |    |		Load	0x2,0x2
0899 e00f       |    |		Load	0x0,0xf
089a 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
089b e00b       |    |		Load	0x0,0xb
089c 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
089d e00b       |    |		Load	0x0,0xb
089e 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
089f 0119       |    |		Execute	Any,Check_In_Formal_Type
08a0 4801       |H   |		Short_Literal	0x1
08a1 00da       |    |		Load_Top	At_Offset_2
08a2 01d6       |    |		Execute	Vector,Field_Write
08a3 67c8       |g   |		Indirect_Literal	Discrete,0x86c,{0x00000000, 0x00008135}
08a4 e00c       |    |		Load	0x0,0xc
08a5 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
08a6 a5fd       |    |		Store_Unchecked	0x2,-0x3
08a7 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
08a8 e5ff       |    |		Load	0x2,-0x1
08a9 6814       |h   |		Jump_Zero	0x8be
08aa e00d       |    |		Load	0x0,0xd
08ab 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
08ac 4801       |H   |		Short_Literal	0x1
08ad 4801       |H   |		Short_Literal	0x1
08ae e00b       |    |		Load	0x0,0xb
08af 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
08b0 035b       | [  |		Declare_Type	Array,Constrained
08b1 0337       | 7  |		Declare_Variable	Array
08b2 00da       |    |		Load_Top	At_Offset_2
08b3 e00b       |    |		Load	0x0,0xb
08b4 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
08b5 e00b       |    |		Load	0x0,0xb
08b6 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
08b7 0119       |    |		Execute	Any,Check_In_Formal_Type
08b8 4801       |H   |		Short_Literal	0x1
08b9 00da       |    |		Load_Top	At_Offset_2
08ba 01d6       |    |		Execute	Vector,Field_Write
08bb 6004       |`   |		Indirect_Literal	Discrete,0x8c0,{0x00000000, 0x00008173}
08bc e00c       |    |		Load	0x0,0xc
08bd 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
08be 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
08bf 0000       |    |		.XXX[0x1]
08c0 0000 0000  |    |		.LITERAL	{0x00000000, 0x00008173}
08c4 0000 0000  |    |		.BLANK	0000[0x4]
08c8 ; --------------------------------------------------------------------------------------
08c8 ; SUBPROGRAM
08c8 ; --------------------------------------------------------------------------------------
08c8 08d0       |    |		.CONST	0x08d0								; Address of begin
08c9 0004       |    |		.CONST	0x0004								; Address of exception handler
08ca 0002       |    |		.CONST	0x0002								; Number of locals
08cb			INIT_08c8:
08cb e005       |    |		Load	0x0,0x5
08cc 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
08cd 02c7       |    |		Declare_Variable	Any
08ce 00d8       |    |		Load_Top	At_Offset_0
08cf 1c00       |    |		Execute_Immediate	Run_Utility,0x0
08d0			BODY_08c8:
08d0 00d8       |    |		Load_Top	At_Offset_0
08d1 e013       |    |		Load	0x0,0x13
08d2 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
08d3 e014       |    |		Load	0x0,0x14
08d4 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
08d5 00ea       |    |		Load_Encached	Null_String_Cache
08d6 e5ff       |    |		Load	0x2,-0x1
08d7 4800       |H   |		Short_Literal	0x0
08d8 e005       |    |		Load	0x0,0x5
08d9 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
08da c602       |    |		Store	0x3,0x2
08db e402       |    |		Load	0x2,0x2
08dc 0120       |    |		Execute	Any,Is_Value
08dd 6803       |h   |		Jump_Zero	0x8e1
08de e001       |    |		Load	0x0,0x1
08df 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
08e0 7801       |x   |		Jump	0x8e2
08e1 e402       |    |		Load	0x2,0x2
08e2 00ea       |    |		Load_Encached	Null_String_Cache
08e3 4800       |H   |		Short_Literal	0x0
08e4 e404       |    |		Load	0x2,0x4
08e5 e5fe       |    |		Load	0x2,-0x2
08e6 e602       |    |		Load	0x3,0x2
08e7 e001       |    |		Load	0x0,0x1
08e8 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
08e9 c402       |    |		Store	0x2,0x2
08ea 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
08eb 0000 0000  |    |		.BLANK	0000[0x5]
08f0 ; --------------------------------------------------------------------------------------
08f0 ; SUBPROGRAM
08f0 ; --------------------------------------------------------------------------------------
08f0 08f8       |    |		.CONST	0x08f8								; Address of begin
08f1 0004       |    |		.CONST	0x0004								; Address of exception handler
08f2 0002       |    |		.CONST	0x0002								; Number of locals
08f3			INIT_08f0:
08f3 e005       |    |		Load	0x0,0x5
08f4 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
08f5 02c7       |    |		Declare_Variable	Any
08f6 00d8       |    |		Load_Top	At_Offset_0
08f7 1c00       |    |		Execute_Immediate	Run_Utility,0x0
08f8			BODY_08f0:
08f8 00d8       |    |		Load_Top	At_Offset_0
08f9 e013       |    |		Load	0x0,0x13
08fa 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
08fb e015       |    |		Load	0x0,0x15
08fc 1841       | A  |		Execute	Package,Field_Execute,Field_Number 0x41
08fd e014       |    |		Load	0x0,0x14
08fe 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
08ff 00ea       |    |		Load_Encached	Null_String_Cache
0900 e5ff       |    |		Load	0x2,-0x1
0901 4801       |H   |		Short_Literal	0x1
0902 e005       |    |		Load	0x0,0x5
0903 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0904 c602       |    |		Store	0x3,0x2
0905 e403       |    |		Load	0x2,0x3
0906 0120       |    |		Execute	Any,Is_Value
0907 6803       |h   |		Jump_Zero	0x90b
0908 e001       |    |		Load	0x0,0x1
0909 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
090a 7801       |x   |		Jump	0x90c
090b e403       |    |		Load	0x2,0x3
090c 00ea       |    |		Load_Encached	Null_String_Cache
090d 00da       |    |		Load_Top	At_Offset_2
090e e405       |    |		Load	0x2,0x5
090f e5fe       |    |		Load	0x2,-0x2
0910 e001       |    |		Load	0x0,0x1
0911 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
0912 c403       |    |		Store	0x2,0x3
0913 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0914 0000 0000  |    |		.BLANK	0000[0x4]
0918 ; --------------------------------------------------------------------------------------
0918 ; SUBPROGRAM
0918 ; --------------------------------------------------------------------------------------
0918 093a       | :  |		.CONST	0x093a								; Address of begin
0919 0004       |    |		.CONST	0x0004								; Address of exception handler
091a 000e       |    |		.CONST	0x000e								; Number of locals
091b			INIT_0918:
091b 00e1       |    |		Load_Encached	Boolean_Cache
091c 00d8       |    |		Load_Top	At_Offset_0
091d 0601       |    |		Execute_Immediate	Set_Value_Unchecked,0x1
091e e00f       |    |		Load	0x0,0xf
091f 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0920 02c7       |    |		Declare_Variable	Any
0921 00d8       |    |		Load_Top	At_Offset_0
0922 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0923 029f 0b4b  |   K|		Declare_Subprogram	INIT_0b48,For_Call
0925 029f 0b7b  |   {|		Declare_Subprogram	INIT_0b78,For_Call
0927 029f 0b83  |    |		Declare_Subprogram	INIT_0b80,For_Call
0929 e001       |    |		Load	0x0,0x1
092a 1935       | 5  |		Execute	Package,Field_Reference,Field_Number 0x35
092b 00c6       |    |		Action	Check_Subprogram_Elaborated
092c e602       |    |		Load	0x3,0x2
092d 4805       |H   |		Short_Literal	0x5
092e 4803       |H   |		Short_Literal	0x3
092f 0099       |    |		Action	Reference_Dynamic
0930 4806       |H   |		Short_Literal	0x6
0931 4803       |H   |		Short_Literal	0x3
0932 0099       |    |		Action	Reference_Dynamic
0933 4807       |H   |		Short_Literal	0x7
0934 4803       |H   |		Short_Literal	0x3
0935 0099       |    |		Action	Reference_Dynamic
0936 e016       |    |		Load	0x0,0x16
0937 e017       |    |		Load	0x0,0x17
0938 480e       |H   |		Short_Literal	0xe
0939 0007       |    |		Action	Break_Optional
093a			BODY_0918:
093a e604       |    |		Load	0x3,0x4
093b 0120       |    |		Execute	Any,Is_Value
093c 6803       |h   |		Jump_Zero	0x940
093d e001       |    |		Load	0x0,0x1
093e 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
093f 7801       |x   |		Jump	0x941
0940 e604       |    |		Load	0x3,0x4
0941 e603       |    |		Load	0x3,0x3
0942 6041       |`A  |		Indirect_Literal	Discrete,0x984,{0x00007fff, 0xffffffff}
0943 e7ff       |    |		Load	0x3,-0x1
0944 0092 0bc0  |    |		Action	Push_String_Extended,0xbc0					; "write sys$output $status"
0946 e608       |    |		Load	0x3,0x8
0947 4809       |H   |		Short_Literal	0x9
0948 4803       |H   |		Short_Literal	0x3
0949 0099       |    |		Action	Reference_Dynamic
094a 480a       |H   |		Short_Literal	0xa
094b 4803       |H   |		Short_Literal	0x3
094c 0099       |    |		Action	Reference_Dynamic
094d 480b       |H   |		Short_Literal	0xb
094e 4803       |H   |		Short_Literal	0x3
094f 0099       |    |		Action	Reference_Dynamic
0950 480c       |H   |		Short_Literal	0xc
0951 4803       |H   |		Short_Literal	0x3
0952 0099       |    |		Action	Reference_Dynamic
0953 e001       |    |		Load	0x0,0x1
0954 1835       | 5  |		Execute	Package,Field_Execute,Field_Number 0x35
0955 c603       |    |		Store	0x3,0x3
0956 c604       |    |		Store	0x3,0x4
0957 e604       |    |		Load	0x3,0x4
0958 e00f       |    |		Load	0x0,0xf
0959 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
095a 0c01       |    |		Execute_Immediate	Greater_Equal,0x1
095b 680a       |h   |		Jump_Zero	0x966
095c e00d       |    |		Load	0x0,0xd
095d 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
095e 4806       |H   |		Short_Literal	0x6
095f e604       |    |		Load	0x3,0x4
0960 e00f       |    |		Load	0x0,0xf
0961 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0962 e00e       |    |		Load	0x0,0xe
0963 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0964 4800       |H   |		Short_Literal	0x0
0965 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0966 e603       |    |		Load	0x3,0x3
0967 6802       |h   |		Jump_Zero	0x96a
0968 4800       |H   |		Short_Literal	0x0
0969 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
096a 4801       |H   |		Short_Literal	0x1
096b 4801       |H   |		Short_Literal	0x1
096c e00b       |    |		Load	0x0,0xb
096d 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
096e 035b       | [  |		Declare_Type	Array,Constrained
096f 0337       | 7  |		Declare_Variable	Array
0970 e5ff       |    |		Load	0x2,-0x1
0971 e00b       |    |		Load	0x0,0xb
0972 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0973 e00b       |    |		Load	0x0,0xb
0974 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0975 0119       |    |		Execute	Any,Check_In_Formal_Type
0976 4801       |H   |		Short_Literal	0x1
0977 00da       |    |		Load_Top	At_Offset_2
0978 01d6       |    |		Execute	Vector,Field_Write
0979 6006       |`   |		Indirect_Literal	Discrete,0x980,{0x00000000, 0x00008130}
097a e00c       |    |		Load	0x0,0xc
097b 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
097c 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
097d 0000 0000  |    |		.XXX[0x3]
097f 0000       |    |
0980 0000 0000  |    |		.LITERAL	{0x00000000, 0x00008130}
0984 0000 7fff  |    |		.LITERAL	{0x00007fff, 0xffffffff}
0988 ; --------------------------------------------------------------------------------------
0988 ; SUBPROGRAM
0988 ; --------------------------------------------------------------------------------------
0988 099e       |    |		.CONST	0x099e								; Address of begin
0989 0a10       |    |		.CONST	0x0a10								; Address of exception handler
098a 0005       |    |		.CONST	0x0005								; Number of locals
098b			INIT_0988:
098b e003       |    |		Load	0x0,0x3
098c 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
098d e003       |    |		Load	0x0,0x3
098e 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
098f 03f1       |    |		Declare_Variable	Discrete,With_Value
0990 00d8       |    |		Load_Top	At_Offset_0
0991 00e0       |    |		Load_Encached	Standard_Cache
0992 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0993 e21a       |    |		Load	0x1,0x1a
0994 0322       | "  |		Declare_Variable	Record
0995 00d8       |    |		Load_Top	At_Offset_0
0996 1c01       |    |		Execute_Immediate	Run_Utility,0x1
0997 00da       |    |		Load_Top	At_Offset_2
0998 e21d       |    |		Load	0x1,0x1d
0999 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
099a 00d9       |    |		Load_Top	At_Offset_1
099b 017d       | }  |		Execute	Record,Structure_Write
099c 029f 0b8b  |    |		Declare_Subprogram	INIT_0b88,For_Call
099e			BODY_0988:
099e e219       |    |		Load	0x1,0x19
099f 6832       |h2  |		Jump_Zero	0x9d2
09a0 e402       |    |		Load	0x2,0x2
09a1 e013       |    |		Load	0x0,0x13
09a2 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
09a3 e018       |    |		Load	0x0,0x18
09a4 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
09a5 e018       |    |		Load	0x0,0x18
09a6 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
09a7 00ea       |    |		Load_Encached	Null_String_Cache
09a8 0092 0bc1  |    |		Action	Push_String_Extended,0xbc1					; "!Machine.Temporary.Rci_Output_"
09aa e603       |    |		Load	0x3,0x3
09ab 01dd       |    |		Execute	Vector,First
09ac 0a01       |    |		Execute_Immediate	Plus,0x1
09ad 00d8       |    |		Load_Top	At_Offset_0
09ae 00e2       |    |		Load_Encached	Integer_Cache
09af 0260       | `  |		Execute	Discrete,In_Type
09b0 7001       |p   |		Jump_Nonzero	0x9b2
09b1 0801       |    |		Execute_Immediate	Raise,0x1
09b2 e603       |    |		Load	0x3,0x3
09b3 01dc       |    |		Execute	Vector,Last
09b4 e603       |    |		Load	0x3,0x3
09b5 01cf       |    |		Execute	Vector,Slice_Read
09b6 01cc       |    |		Execute	Vector,Catenate
09b7 4801       |H   |		Short_Literal	0x1
09b8 e005       |    |		Load	0x0,0x5
09b9 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
09ba c402       |    |		Store	0x2,0x2
09bb e00d       |    |		Load	0x0,0xd
09bc 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
09bd 4801       |H   |		Short_Literal	0x1
09be 0092 0bc2  |    |		Action	Push_String_Extended,0xbc2					; "Created temp file "
09c0 e402       |    |		Load	0x2,0x2
09c1 e005       |    |		Load	0x0,0x5
09c2 181f       |    |		Execute	Package,Field_Execute,Field_Number 0x1f
09c3 01cc       |    |		Execute	Vector,Catenate
09c4 e00e       |    |		Load	0x0,0xe
09c5 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
09c6 e402       |    |		Load	0x2,0x2
09c7 00da       |    |		Load_Top	At_Offset_2
09c8 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
09c9 4801       |H   |		Short_Literal	0x1
09ca 00da       |    |		Load_Top	At_Offset_2
09cb 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
09cc 4800       |H   |		Short_Literal	0x0
09cd e602       |    |		Load	0x3,0x2
09ce 00db       |    |		Load_Top	At_Offset_3
09cf e21d       |    |		Load	0x1,0x1d
09d0 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
09d1 7836       |x6  |		Jump	0xa08
09d2 00d9       |    |		Load_Top	At_Offset_1
09d3 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
09d4 7032       |p2  |		Jump_Nonzero	0xa07
09d5 e402       |    |		Load	0x2,0x2
09d6 e013       |    |		Load	0x0,0x13
09d7 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
09d8 e018       |    |		Load	0x0,0x18
09d9 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
09da e018       |    |		Load	0x0,0x18
09db 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
09dc 00ea       |    |		Load_Encached	Null_String_Cache
09dd 0092 0bc3  |    |		Action	Push_String_Extended,0xbc3					; "!Machine.Temporary.Rcf_Output_"
09df e603       |    |		Load	0x3,0x3
09e0 01dd       |    |		Execute	Vector,First
09e1 0a01       |    |		Execute_Immediate	Plus,0x1
09e2 00d8       |    |		Load_Top	At_Offset_0
09e3 00e2       |    |		Load_Encached	Integer_Cache
09e4 0260       | `  |		Execute	Discrete,In_Type
09e5 7001       |p   |		Jump_Nonzero	0x9e7
09e6 0801       |    |		Execute_Immediate	Raise,0x1
09e7 e603       |    |		Load	0x3,0x3
09e8 01dc       |    |		Execute	Vector,Last
09e9 e603       |    |		Load	0x3,0x3
09ea 01cf       |    |		Execute	Vector,Slice_Read
09eb 01cc       |    |		Execute	Vector,Catenate
09ec 4801       |H   |		Short_Literal	0x1
09ed e005       |    |		Load	0x0,0x5
09ee 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
09ef c402       |    |		Store	0x2,0x2
09f0 e00d       |    |		Load	0x0,0xd
09f1 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
09f2 4801       |H   |		Short_Literal	0x1
09f3 0092 0bc4  |    |		Action	Push_String_Extended,0xbc4					; "Created temporary file "
09f5 e402       |    |		Load	0x2,0x2
09f6 e005       |    |		Load	0x0,0x5
09f7 181f       |    |		Execute	Package,Field_Execute,Field_Number 0x1f
09f8 01cc       |    |		Execute	Vector,Catenate
09f9 e00e       |    |		Load	0x0,0xe
09fa 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
09fb e402       |    |		Load	0x2,0x2
09fc 00da       |    |		Load_Top	At_Offset_2
09fd 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
09fe 4801       |H   |		Short_Literal	0x1
09ff 00da       |    |		Load_Top	At_Offset_2
0a00 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0a01 4800       |H   |		Short_Literal	0x0
0a02 e602       |    |		Load	0x3,0x2
0a03 00db       |    |		Load_Top	At_Offset_3
0a04 e21d       |    |		Load	0x1,0x1d
0a05 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0a06 7801       |x   |		Jump	0xa08
0a07 8605       |    |		Call	0x3,0x5
0a08 e5fc       |    |		Load	0x2,-0x4
0a09 6803       |h   |		Jump_Zero	0xa0d
0a0a e402       |    |		Load	0x2,0x2
0a0b c404       |    |		Store	0x2,0x4
0a0c 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0a0d e402       |    |		Load	0x2,0x2
0a0e c405       |    |		Store	0x2,0x5
0a0f 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0a10			TRAP_0988:
0a10 0007       |    |		Action	Break_Optional
0a11 4801       |H   |		Short_Literal	0x1
0a12 4801       |H   |		Short_Literal	0x1
0a13 e00b       |    |		Load	0x0,0xb
0a14 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0a15 035b       | [  |		Declare_Type	Array,Constrained
0a16 0337       | 7  |		Declare_Variable	Array
0a17 e5ff       |    |		Load	0x2,-0x1
0a18 e00b       |    |		Load	0x0,0xb
0a19 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0a1a e00b       |    |		Load	0x0,0xb
0a1b 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0a1c 0119       |    |		Execute	Any,Check_In_Formal_Type
0a1d 4801       |H   |		Short_Literal	0x1
0a1e 00da       |    |		Load_Top	At_Offset_2
0a1f 01d6       |    |		Execute	Vector,Field_Write
0a20 6007       |`   |		Indirect_Literal	Discrete,0xa28,{0x00000000, 0x00008119}
0a21 e00c       |    |		Load	0x0,0xc
0a22 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0a23 a5f8       |    |		Store_Unchecked	0x2,-0x8
0a24 e011       |    |		Load	0x0,0x11
0a25 0257       | W  |		Execute	Discrete,Raise
0a26 0000 0000  |    |		.XXX[0x2]
0a28 0000 0000  |    |		.LITERAL	{0x00000000, 0x00008119}
0a2c 0000 0000  |    |		.BLANK	0000[0x4]
0a30 ; --------------------------------------------------------------------------------------
0a30 ; SUBPROGRAM
0a30 ; --------------------------------------------------------------------------------------
0a30 0a33       | 3  |		.CONST	0x0a33								; Address of begin
0a31 0004       |    |		.CONST	0x0004								; Address of exception handler
0a32 0001       |    |		.CONST	0x0001								; Number of locals
0a33			BODY_0a30:
0a33			INIT_0a30:
0a33 e40e       |    |		Load	0x2,0xe
0a34 681a       |h   |		Jump_Zero	0xa4f
0a35 e219       |    |		Load	0x1,0x19
0a36 680c       |h   |		Jump_Zero	0xa43
0a37 e00d       |    |		Load	0x0,0xd
0a38 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0a39 4801       |H   |		Short_Literal	0x1
0a3a 0092 0bc5  |    |		Action	Push_String_Extended,0xbc5					; "Close temp file"
0a3c e00e       |    |		Load	0x0,0xe
0a3d 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0a3e e402       |    |		Load	0x2,0x2
0a3f e005       |    |		Load	0x0,0x5
0a40 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
0a41 c402       |    |		Store	0x2,0x2
0a42 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0a43 e00d       |    |		Load	0x0,0xd
0a44 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0a45 4801       |H   |		Short_Literal	0x1
0a46 0092 0bc6  |    |		Action	Push_String_Extended,0xbc6					; "Reset temp file"
0a48 e00e       |    |		Load	0x0,0xe
0a49 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0a4a e402       |    |		Load	0x2,0x2
0a4b 4801       |H   |		Short_Literal	0x1
0a4c e005       |    |		Load	0x0,0x5
0a4d 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0a4e c402       |    |		Store	0x2,0x2
0a4f 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0a50 ; --------------------------------------------------------------------------------------
0a50 ; SUBPROGRAM
0a50 ; --------------------------------------------------------------------------------------
0a50 0a59       | Y  |		.CONST	0x0a59								; Address of begin
0a51 0004       |    |		.CONST	0x0004								; Address of exception handler
0a52 0005       |    |		.CONST	0x0005								; Number of locals
0a53			INIT_0a50:
0a53 00e3       |    |		Load_Encached	Natural_Cache
0a54 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0a55 00e3       |    |		Load_Encached	Natural_Cache
0a56 00e3       |    |		Load_Encached	Natural_Cache
0a57 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0a58 00e3       |    |		Load_Encached	Natural_Cache
0a59			BODY_0a50:
0a59 e00d       |    |		Load	0x0,0xd
0a5a 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0a5b 4801       |H   |		Short_Literal	0x1
0a5c 0092 0bc7  |    |		Action	Push_String_Extended,0xbc7					; "Resetting temp file"
0a5e e00e       |    |		Load	0x0,0xe
0a5f 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0a60 e402       |    |		Load	0x2,0x2
0a61 4800       |H   |		Short_Literal	0x0
0a62 e005       |    |		Load	0x0,0x5
0a63 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0a64 c402       |    |		Store	0x2,0x2
0a65 00cf       |    |		Action	Mark_Auxiliary
0a66 e40b       |    |		Load	0x2,0xb
0a67 0aff       |    |		Execute_Immediate	Plus,-0x1
0a68 4801       |H   |		Short_Literal	0x1
0a69 0263       | c  |		Execute	Discrete,Above_Bound
0a6a 7006       |p   |		Jump_Nonzero	0xa71
0a6b 4820       |H   |		Short_Literal	0x20
0a6c 00d9       |    |		Load_Top	At_Offset_1
0a6d e406       |    |		Load	0x2,0x6
0a6e 01d6       |    |		Execute	Vector,Field_Write
0a6f 00c8       |    |		Action	Pop_Auxiliary_Range
0a70 3ffa       |?   |		Loop_Increasing	0xa6b
0a71 00c9       |    |		Action	Pop_Auxiliary_Loop
0a72 7891       |x   |		Jump	0xb04
0a73 e406       |    |		Load	0x2,0x6
0a74 e40b       |    |		Load	0x2,0xb
0a75 4900       |I   |		Short_Literal	0x100
0a76 00da       |    |		Load_Top	At_Offset_2
0a77 035b       | [  |		Declare_Type	Array,Constrained
0a78 00d0       |    |		Action	Swap_Control
0a79 01cd       |    |		Execute	Vector,Slice_Reference
0a7a 00e3       |    |		Load_Encached	Natural_Cache
0a7b 00d9       |    |		Load_Top	At_Offset_1
0a7c e402       |    |		Load	0x2,0x2
0a7d e005       |    |		Load	0x0,0x5
0a7e 1829       | )  |		Execute	Package,Field_Execute,Field_Number 0x29
0a7f 00d1       |    |		Pop_Control	Pop_Count_1
0a80 c407       |    |		Store	0x2,0x7
0a81 00d1       |    |		Pop_Control	Pop_Count_1
0a82 4801       |H   |		Short_Literal	0x1
0a83 0052       | R  |		Store_Top_Unchecked	Discrete,At_Offset_2
0a84 e40b       |    |		Load	0x2,0xb
0a85 0aff       |    |		Execute_Immediate	Plus,-0x1
0a86 e407       |    |		Load	0x2,0x7
0a87 0273       | s  |		Execute	Discrete,Plus
0a88 c603       |    |		Store	0x3,0x3
0a89 e5fa       |    |		Load	0x2,-0x6
0a8a 6806       |h   |		Jump_Zero	0xa91
0a8b e40b       |    |		Load	0x2,0xb
0a8c e603       |    |		Load	0x3,0x3
0a8d e406       |    |		Load	0x2,0x6
0a8e 01cf       |    |		Execute	Vector,Slice_Read
0a8f e010       |    |		Load	0x0,0x10
0a90 185f       | _  |		Execute	Package,Field_Execute,Field_Number 0x5f
0a91 00cf       |    |		Action	Mark_Auxiliary
0a92 786b       |xk  |		Jump	0xafe
0a93 e408       |    |		Load	0x2,0x8
0a94 6852       |hR  |		Jump_Zero	0xae7
0a95 4801       |H   |		Short_Literal	0x1
0a96 00db       |    |		Load_Top	At_Offset_3
0a97 e603       |    |		Load	0x3,0x3
0a98 e406       |    |		Load	0x2,0x6
0a99 01cf       |    |		Execute	Vector,Slice_Read
0a9a e5fd       |    |		Load	0x2,-0x3
0a9b e00a       |    |		Load	0x0,0xa
0a9c 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
0a9d a604       |    |		Store_Unchecked	0x3,0x4
0a9e 00db       |    |		Load_Top	At_Offset_3
0a9f 6832       |h2  |		Jump_Zero	0xad2
0aa0 e409       |    |		Load	0x2,0x9
0aa1 0a01       |    |		Execute_Immediate	Plus,0x1
0aa2 c409       |    |		Store	0x2,0x9
0aa3 e409       |    |		Load	0x2,0x9
0aa4 0f01       |    |		Execute_Immediate	Equal,0x1
0aa5 6813       |h   |		Jump_Zero	0xab9
0aa6 4801       |H   |		Short_Literal	0x1
0aa7 4801       |H   |		Short_Literal	0x1
0aa8 e00b       |    |		Load	0x0,0xb
0aa9 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0aaa 035b       | [  |		Declare_Type	Array,Constrained
0aab 0337       | 7  |		Declare_Variable	Array
0aac e5ff       |    |		Load	0x2,-0x1
0aad e00b       |    |		Load	0x0,0xb
0aae 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0aaf e00b       |    |		Load	0x0,0xb
0ab0 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0ab1 0119       |    |		Execute	Any,Check_In_Formal_Type
0ab2 4801       |H   |		Short_Literal	0x1
0ab3 00da       |    |		Load_Top	At_Offset_2
0ab4 01d6       |    |		Execute	Vector,Field_Write
0ab5 6072       |`r  |		Indirect_Literal	Discrete,0xb28,{0x00000000, 0x00008130}
0ab6 e00c       |    |		Load	0x0,0xc
0ab7 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0ab8 a40a       |    |		Store_Unchecked	0x2,0xa
0ab9 4800       |H   |		Short_Literal	0x0
0aba e604       |    |		Load	0x3,0x4
0abb e603       |    |		Load	0x3,0x3
0abc e406       |    |		Load	0x2,0x6
0abd 01cf       |    |		Execute	Vector,Slice_Read
0abe 480a       |H   |		Short_Literal	0xa
0abf e00a       |    |		Load	0x0,0xa
0ac0 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
0ac1 a602       |    |		Store_Unchecked	0x3,0x2
0ac2 e602       |    |		Load	0x3,0x2
0ac3 7008       |p   |		Jump_Nonzero	0xacc
0ac4 e603       |    |		Load	0x3,0x3
0ac5 0a01       |    |		Execute_Immediate	Plus,0x1
0ac6 c602       |    |		Store	0x3,0x2
0ac7 4800       |H   |		Short_Literal	0x0
0ac8 a408       |    |		Store_Unchecked	0x2,0x8
0ac9 e602       |    |		Load	0x3,0x2
0aca 0053       | S  |		Store_Top_Uncheched	Discrete,At_Offset_3
0acb 7831       |x1  |		Jump	0xafd
0acc 4801       |H   |		Short_Literal	0x1
0acd a408       |    |		Store_Unchecked	0x2,0x8
0ace e602       |    |		Load	0x3,0x2
0acf 0a01       |    |		Execute_Immediate	Plus,0x1
0ad0 005b       | [  |		Store_Top	Discrete,At_Offset_3
0ad1 782b       |x+  |		Jump	0xafd
0ad2 e603       |    |		Load	0x3,0x3
0ad3 e40b       |    |		Load	0x2,0xb
0ad4 0272       | r  |		Execute	Discrete,Minus
0ad5 0a02       |    |		Execute_Immediate	Plus,0x2
0ad6 00d8       |    |		Load_Top	At_Offset_0
0ad7 00e2       |    |		Load_Encached	Integer_Cache
0ad8 0260       | `  |		Execute	Discrete,In_Type
0ad9 7001       |p   |		Jump_Nonzero	0xadb
0ada 0801       |    |		Execute_Immediate	Raise,0x1
0adb e603       |    |		Load	0x3,0x3
0adc e406       |    |		Load	0x2,0x6
0add 01cf       |    |		Execute	Vector,Slice_Read
0ade 4801       |H   |		Short_Literal	0x1
0adf e40b       |    |		Load	0x2,0xb
0ae0 0aff       |    |		Execute_Immediate	Plus,-0x1
0ae1 e406       |    |		Load	0x2,0x6
0ae2 01ce       |    |		Execute	Vector,Slice_Write
0ae3 e603       |    |		Load	0x3,0x3
0ae4 0a01       |    |		Execute_Immediate	Plus,0x1
0ae5 005b       | [  |		Store_Top	Discrete,At_Offset_3
0ae6 7816       |x   |		Jump	0xafd
0ae7 4800       |H   |		Short_Literal	0x0
0ae8 e40b       |    |		Load	0x2,0xb
0ae9 e603       |    |		Load	0x3,0x3
0aea e406       |    |		Load	0x2,0x6
0aeb 01cf       |    |		Execute	Vector,Slice_Read
0aec 480a       |H   |		Short_Literal	0xa
0aed e00a       |    |		Load	0x0,0xa
0aee 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
0aef a602       |    |		Store_Unchecked	0x3,0x2
0af0 e602       |    |		Load	0x3,0x2
0af1 7006       |p   |		Jump_Nonzero	0xaf8
0af2 e603       |    |		Load	0x3,0x3
0af3 0a01       |    |		Execute_Immediate	Plus,0x1
0af4 c602       |    |		Store	0x3,0x2
0af5 e602       |    |		Load	0x3,0x2
0af6 0053       | S  |		Store_Top_Uncheched	Discrete,At_Offset_3
0af7 7805       |x   |		Jump	0xafd
0af8 4801       |H   |		Short_Literal	0x1
0af9 a408       |    |		Store_Unchecked	0x2,0x8
0afa e602       |    |		Load	0x3,0x2
0afb 0a01       |    |		Execute_Immediate	Plus,0x1
0afc 005b       | [  |		Store_Top	Discrete,At_Offset_3
0afd 00c9       |    |		Action	Pop_Auxiliary_Loop
0afe 00da       |    |		Load_Top	At_Offset_2
0aff e603       |    |		Load	0x3,0x3
0b00 027a       | z  |		Execute	Discrete,Less_Equal
0b01 7791       |w   |		Jump_Nonzero	0xa93
0b02 00ce       |    |		Action	Pop_Auxiliary
0b03 00c9       |    |		Action	Pop_Auxiliary_Loop
0b04 e402       |    |		Load	0x2,0x2
0b05 e005       |    |		Load	0x0,0x5
0b06 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
0b07 6f6b       |ok  |		Jump_Zero	0xa73
0b08 00ce       |    |		Action	Pop_Auxiliary
0b09 e409       |    |		Load	0x2,0x9
0b0a 0c02       |    |		Execute_Immediate	Greater_Equal,0x2
0b0b 6814       |h   |		Jump_Zero	0xb20
0b0c e00d       |    |		Load	0x0,0xd
0b0d 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0b0e 4801       |H   |		Short_Literal	0x1
0b0f 4801       |H   |		Short_Literal	0x1
0b10 e00b       |    |		Load	0x0,0xb
0b11 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0b12 035b       | [  |		Declare_Type	Array,Constrained
0b13 0337       | 7  |		Declare_Variable	Array
0b14 e409       |    |		Load	0x2,0x9
0b15 e00b       |    |		Load	0x0,0xb
0b16 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0b17 e00b       |    |		Load	0x0,0xb
0b18 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0b19 0119       |    |		Execute	Any,Check_In_Formal_Type
0b1a 4801       |H   |		Short_Literal	0x1
0b1b 00da       |    |		Load_Top	At_Offset_2
0b1c 01d6       |    |		Execute	Vector,Field_Write
0b1d 6006       |`   |		Indirect_Literal	Discrete,0xb24,{0x00000000, 0x00008131}
0b1e e00c       |    |		Load	0x0,0xc
0b1f 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
0b20 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0b21 0000 0000  |    |		.XXX[0x3]
0b23 0000       |    |
0b24 0000 0000  |    |		.LITERAL	{0x00000000, 0x00008131}
0b28 0000 0000  |    |		.LITERAL	{0x00000000, 0x00008130}
0b2c 0000 0000  |    |		.BLANK	0000[0x4]
0b30 ; --------------------------------------------------------------------------------------
0b30 ; SUBPROGRAM
0b30 ; --------------------------------------------------------------------------------------
0b30 0b33       | 3  |		.CONST	0x0b33								; Address of begin
0b31 0b43       | C  |		.CONST	0x0b43								; Address of exception handler
0b32 0001       |    |		.CONST	0x0001								; Number of locals
0b33			BODY_0b30:
0b33			INIT_0b30:
0b33 e402       |    |		Load	0x2,0x2
0b34 0120       |    |		Execute	Any,Is_Value
0b35 6803       |h   |		Jump_Zero	0xb39
0b36 e001       |    |		Load	0x0,0x1
0b37 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0b38 7801       |x   |		Jump	0xb3a
0b39 e402       |    |		Load	0x2,0x2
0b3a e5fe       |    |		Load	0x2,-0x2
0b3b e001       |    |		Load	0x0,0x1
0b3c 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0b3d 011e       |    |		Execute	Any,Convert
0b3e e001       |    |		Load	0x0,0x1
0b3f 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0b40 c5fe       |    |		Store	0x2,-0x2
0b41 c402       |    |		Store	0x2,0x2
0b42 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0b43			TRAP_0b30:
0b43 0007       |    |		Action	Break_Optional
0b44 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0b45 0000 0000  |    |		.XXX[0x3]
0b47 0000       |    |
0b48 ; --------------------------------------------------------------------------------------
0b48 ; SUBPROGRAM
0b48 ; --------------------------------------------------------------------------------------
0b48 0b53       | S  |		.CONST	0x0b53								; Address of begin
0b49 0b64       | d  |		.CONST	0x0b64								; Address of exception handler
0b4a 0003       |    |		.CONST	0x0003								; Number of locals
0b4b			INIT_0b48:
0b4b 480a       |H   |		Short_Literal	0xa
0b4c 4820       |H   |		Short_Literal	0x20
0b4d e9ff       |    |		Load	0x4,-0x1
0b4e e00a       |    |		Load	0x0,0xa
0b4f 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0b50 e00a       |    |		Load	0x0,0xa
0b51 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0b52 00e3       |    |		Load_Encached	Natural_Cache
0b53			BODY_0b48:
0b53 00d9       |    |		Load_Top	At_Offset_1
0b54 01dc       |    |		Execute	Vector,Last
0b55 00da       |    |		Load_Top	At_Offset_2
0b56 01dc       |    |		Execute	Vector,Last
0b57 00db       |    |		Load_Top	At_Offset_3
0b58 01cf       |    |		Execute	Vector,Slice_Read
0b59 00e2       |    |		Load_Encached	Integer_Cache
0b5a 00e0       |    |		Load_Encached	Standard_Cache
0b5b 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
0b5c 0059       | Y  |		Store_Top	Discrete,At_Offset_1
0b5d 00d8       |    |		Load_Top	At_Offset_0
0b5e 00d9       |    |		Load_Top	At_Offset_1
0b5f 09ff       |    |		Execute_Immediate	Binary_Scale,-0x1
0b60 0901       |    |		Execute_Immediate	Binary_Scale,0x1
0b61 027e       | ~  |		Execute	Discrete,Not_Equal
0b62 a9fd       |    |		Store_Unchecked	0x4,-0x3
0b63 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0b64			TRAP_0b48:
0b64 010e       |    |		Execute	Exception,Is_Constraint_Error
0b65 680a       |h   |		Jump_Zero	0xb70
0b66 e00d       |    |		Load	0x0,0xd
0b67 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0b68 4806       |H   |		Short_Literal	0x6
0b69 0092 0bc8  |    |		Action	Push_String_Extended,0xbc8					; "Unexpected output found during compilation success check"
0b6b e00e       |    |		Load	0x0,0xe
0b6c 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0b6d 4801       |H   |		Short_Literal	0x1
0b6e a9fd       |    |		Store_Unchecked	0x4,-0x3
0b6f 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0b70 0100       |    |		Execute	Exception,Raise
0b71 0000 0000  |    |		.BLANK	0000[0x7]
0b78 ; --------------------------------------------------------------------------------------
0b78 ; SUBPROGRAM
0b78 ; --------------------------------------------------------------------------------------
0b78 0b7b       | {  |		.CONST	0x0b7b								; Address of begin
0b79 0004       |    |		.CONST	0x0004								; Address of exception handler
0b7a 0001       |    |		.CONST	0x0001								; Number of locals
0b7b			BODY_0b78:
0b7b			INIT_0b78:
0b7b 08e2       |    |		Execute_Immediate	Raise,0xe2
0b7c 0000 0000  |    |		.BLANK	0000[0x4]
0b80 ; --------------------------------------------------------------------------------------
0b80 ; SUBPROGRAM
0b80 ; --------------------------------------------------------------------------------------
0b80 0b83       |    |		.CONST	0x0b83								; Address of begin
0b81 0004       |    |		.CONST	0x0004								; Address of exception handler
0b82 0001       |    |		.CONST	0x0001								; Number of locals
0b83			BODY_0b80:
0b83			INIT_0b80:
0b83 08e2       |    |		Execute_Immediate	Raise,0xe2
0b84 0000 0000  |    |		.BLANK	0000[0x4]
0b88 ; --------------------------------------------------------------------------------------
0b88 ; SUBPROGRAM
0b88 ; --------------------------------------------------------------------------------------
0b88 0b8b       |    |		.CONST	0x0b8b								; Address of begin
0b89 0ba2       |    |		.CONST	0x0ba2								; Address of exception handler
0b8a 0001       |    |		.CONST	0x0001								; Number of locals
0b8b			BODY_0b88:
0b8b			INIT_0b88:
0b8b e00d       |    |		Load	0x0,0xd
0b8c 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0b8d 4801       |H   |		Short_Literal	0x1
0b8e 0092 0bc7  |    |		Action	Push_String_Extended,0xbc7					; "Resetting temp file"
0b90 e00e       |    |		Load	0x0,0xe
0b91 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0b92 e604       |    |		Load	0x3,0x4
0b93 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
0b94 c402       |    |		Store	0x2,0x2
0b95 e402       |    |		Load	0x2,0x2
0b96 4801       |H   |		Short_Literal	0x1
0b97 e005       |    |		Load	0x0,0x5
0b98 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0b99 c402       |    |		Store	0x2,0x2
0b9a e00d       |    |		Load	0x0,0xd
0b9b 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0b9c 4801       |H   |		Short_Literal	0x1
0b9d 0092 0bc9  |    |		Action	Push_String_Extended,0xbc9					; "Reusing existing temporary file."
0b9f e00e       |    |		Load	0x0,0xe
0ba0 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0ba1 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0ba2			TRAP_0b88:
0ba2 0007       |    |		Action	Break_Optional
0ba3 4800       |H   |		Short_Literal	0x0
0ba4 e604       |    |		Load	0x3,0x4
0ba5 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0ba6 4800       |H   |		Short_Literal	0x0
0ba7 e602       |    |		Load	0x3,0x2
0ba8 e604       |    |		Load	0x3,0x4
0ba9 e21d       |    |		Load	0x1,0x1d
0baa 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0bab 8410       |    |		Call	0x2,0x10
0bac 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0bad ; --------------------------------------------------------------------------------------
0bad ; STRING TABLE
0bad ; --------------------------------------------------------------------------------------
0bad 003c       | <  |		.STRTAB	0x003c->0x0bcb							; "Destroying invalid connection"
0bae 0057       | W  |		.STRTAB	0x0057->0x0bd9							; "Set_Remote_Directory"
0baf 0069       | i  |		.STRTAB	0x0069->0x0be3							; "Reusing existing directory."
0bb0 0082       |    |		.STRTAB	0x0082->0x0bf1							; "Put"
0bb1 0083       |    |		.STRTAB	0x0083->0x0bf2							; "put"
0bb2 0084       |    |		.STRTAB	0x0084->0x0bf4							; "Get"
0bb3 0085       |    |		.STRTAB	0x0085->0x0bf5							; "get"
0bb4 0086       |    |		.STRTAB	0x0086->0x0bf7							; "Execute_Command"
0bb5 0093       |    |		.STRTAB	0x0093->0x0bfe							; "execute_command"
0bb6 00a0       |    |		.STRTAB	0x00a0->0x0c06							; "VMS"
0bb7 00a1       |    |		.STRTAB	0x00a1->0x0c07							; "Unit_Update_Time"
0bb8 00af       |    |		.STRTAB	0x00af->0x0c0f							; "Unit_update_time"
0bb9 00bd       |    |		.STRTAB	0x00bd->0x0c17							; "file_exists"
0bba 00c6       |    |		.STRTAB	0x00c6->0x0c1d							; "Successfully determined the existence of remote file \x22"
0bbb 00fa       |    |		.STRTAB	0x00fa->0x0c38							; "\x22."
0bbc 00fa       |    |		.STRTAB	0x00fa->0x0c39							; "Initialized Job_Record for job"
0bbd 0116       |    |		.STRTAB	0x0116->0x0c48							; ", task"
0bbe 011a       |    |		.STRTAB	0x011a->0x0c4b							; "Finalizing Job_Record"
0bbf 012d       | -  |		.STRTAB	0x012d->0x0c55							; "Deleting temporary file for process"
0bc0 014e       | N  |		.STRTAB	0x014e->0x0c67							; "write sys$output $status"
0bc1 0164       | d  |		.STRTAB	0x0164->0x0c73							; "!Machine.Temporary.Rci_Output_"
0bc2 0180       |    |		.STRTAB	0x0180->0x0c82							; "Created temp file "
0bc3 0190       |    |		.STRTAB	0x0190->0x0c8b							; "!Machine.Temporary.Rcf_Output_"
0bc4 01ac       |    |		.STRTAB	0x01ac->0x0c9a							; "Created temporary file "
0bc5 01c1       |    |		.STRTAB	0x01c1->0x0ca5							; "Close temp file"
0bc6 01ce       |    |		.STRTAB	0x01ce->0x0cad							; "Reset temp file"
0bc7 01db       |    |		.STRTAB	0x01db->0x0cb4							; "Resetting temp file"
0bc8 01ec       |    |		.STRTAB	0x01ec->0x0cbe							; "Unexpected output found during compilation success check"
0bc9 0222       | "  |		.STRTAB	0x0222->0x0cda							; "Reusing existing temporary file."
0bca 0240       | @  |		.STREND 0x0240->0x0cea
0bcb 4465 7374  |Dest|		.STRTAB_STRINGS
0cea 0000 0000  |    |		.BLANK	0000[0x6]
0cf0 ; --------------------------------------------------------------------------------------
0cf0 ; Debug Table
0cf0 ; --------------------------------------------------------------------------------------
0cf0 0004 000e  |    |		.DEBUG4	0x0004,0x000e,0x935d,0x0000,0x0001,0x0000
0cf6 0000 1a32  |   2|		.XXX[0x86]
0cf8 00ce 68b3  |  h |
0cfa 0000 0036  |   6|
0cfc 004a 500e  | JP |
0cfe 0000 1b32  |   2|
0d00 00ce 68b3  |  h |
0d02 0000 0036  |   6|
0d04 004a 500e  | JP |
0d06 0000 1c32  |   2|
0d08 00ce 68b3  |  h |
0d0a 0000 0036  |   6|
0d0c 004a 500e  | JP |
0d0e 0000 1d32  |   2|
0d10 00ce 68b3  |  h |
0d12 0000 0036  |   6|
0d14 004a 500e  | JP |
0d16 0000 1e32  |   2|
0d18 00ce 68b3  |  h |
0d1a 0000 0036  |   6|
0d1c 004a 500e  | JP |
0d1e 0000 1f32  |   2|
0d20 00ce 68b3  |  h |
0d22 0000 0036  |   6|
0d24 004a 500e  | JP |
0d26 0000 20b2  |    |
0d28 00ce 68b3  |  h |
0d2a 0000 0036  |   6|
0d2c 004a 500e  | JP |
0d2e 0000 2232  |  "2|
0d30 00ce 68b3  |  h |
0d32 0000 0036  |   6|
0d34 004a 500e  | JP |
0d36 0000 23b2  |  # |
0d38 00ce 68b3  |  h |
0d3a 0000 0036  |   6|
0d3c 004a 500e  | JP |
0d3e 0000 2532  |  %2|
0d40 00ce 68b3  |  h |
0d42 0000 0036  |   6|
0d44 004a 500e  | JP |
0d46 0000 2732  |  '2|
0d48 00ce 68b3  |  h |
0d4a 0000 0036  |   6|
0d4c 004a 500e  | JP |
0d4e 0000 28b2  |  ( |
0d50 00ce 68b3  |  h |
0d52 0000 0036  |   6|
0d54 004a 500e  | JP |
0d56 0000 2ab2  |  * |
0d58 00ce 68b3  |  h |
0d5a 0000 0036  |   6|
0d5c 004a 500e  | JP |
0d5e 0000 2d32  |  -2|
0d60 00ce 68b3  |  h |
0d62 0000 07d8  |    |
0d64 00ce 70b3  |  p |
0d66 0000 0000  |    |
0d68 0006 f804  |    |
0d6a 0000 0032  |   2|
0d6c 0006 f804  |    |
0d6e 0000 0720  |    |
0d70 0006 f804  |    |
0d72 0000 0032  |   2|
0d74 0006 f804  |    |
0d76 0000 06a0  |    |
0d78 0001 0404  |    |
0d7a 0800 0888  |    |
0d7c 0000 0000  |    |		.BLANK	0000[0xa]
0d86 0057 26c5  | W& |		.XXX[0x2]
0d88 0000 0000  |    |		.BLANK	0000[0x7]
0d8f 0048       | H  |		.XXX[0x1]
0d90 0000 0000  |    |		.BLANK	0000[0x8]
0d98 00ce 68b3  |  h |		.XXX[0x5]
0d9a 0800 0480  |    |
0d9c 8000       |    |
0d9d 0000 0000  |    |		.BLANK	0000[0x9]
0da6 0057 26c5  | W& |		.XXX[0x2]
0da8 0000 0000  |    |		.BLANK	0000[0x7]
0daf 0054       | T  |		.XXX[0x1]
0db0 0000 0000  |    |		.BLANK	0000[0x8]
0db8 00ce 68b3  |  h |		.XXX[0x5]
0dba 0800 0600  |    |
0dbc 8000       |    |
0dbd 0000 0000  |    |		.BLANK	0000[0x9]
0dc6 0057 26c5  | W& |		.XXX[0x2]
0dc8 0000 0000  |    |		.BLANK	0000[0x7]
0dcf 0060       | `  |		.XXX[0x1]
0dd0 0000 0000  |    |		.BLANK	0000[0x8]
0dd8 0001 0404  |    |		.XXX[0x5]
0dda 0000 0280  |    |
0ddc 8000       |    |
0ddd 0000 0000  |    |		.BLANK	0000[0x9]
0de6 0057 26c5  | W& |		.XXX[0x2]
0de8 0000 0000  |    |		.BLANK	0000[0x7]
0def 006c       | l  |		.XXX[0x1]
0df0 0000 0000  |    |		.BLANK	0000[0x8]
0df8 0001 0404  |    |		.XXX[0x8]
0dfa 0000 0700  |    |
0dfc 8000 0000  |    |
0dfe 0000 0000  |    |