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

⟦552e6fc1e⟧

    Length: 6144 (0x1800)
    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 0b20       |    |		.CONST	0x0b20								; 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 8006       |    |		.CONST	0x8006								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0098       |    |		.CONST	0x0098								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0041       | A  |		.CONST	0x0041								; Number of locals
000b			INIT_0008:
000b 00c4       |    |		Action	Make_Default
000c 00c4       |    |		Action	Make_Default
000d 00c4       |    |		Action	Make_Default
000e 00c4       |    |		Action	Make_Default
000f 00c4       |    |		Action	Make_Default
0010 00c4       |    |		Action	Make_Default
0011 00c4       |    |		Action	Make_Default
0012 00c4       |    |		Action	Make_Default
0013 00c4       |    |		Action	Make_Default
0014 00c4       |    |		Action	Make_Default
0015 00c4       |    |		Action	Make_Default
0016 00c4       |    |		Action	Make_Default
0017 00c4       |    |		Action	Make_Default
0018 00c4       |    |		Action	Make_Default
0019 00c4       |    |		Action	Make_Default
001a 00c4       |    |		Action	Make_Default
001b 00c4       |    |		Action	Make_Default
001c 00c4       |    |		Action	Make_Default
001d 00c4       |    |		Action	Make_Default
001e 00c4       |    |		Action	Make_Default
001f 00c4       |    |		Action	Make_Default
0020 00c4       |    |		Action	Make_Default
0021 00c4       |    |		Action	Make_Default
0022 00c4       |    |		Action	Make_Default
0023 00c4       |    |		Action	Make_Default
0024 00c4       |    |		Action	Make_Default
0025 00c4       |    |		Action	Make_Default
0026 00c4       |    |		Action	Make_Default
0027 00c4       |    |		Action	Make_Default
0028 00c4       |    |		Action	Make_Default
0029 00c4       |    |		Action	Make_Default
002a 00c4       |    |		Action	Make_Default
002b 00c4       |    |		Action	Make_Default
002c 00c4       |    |		Action	Make_Default
002d 00c4       |    |		Action	Make_Default
002e 00c4       |    |		Action	Make_Default
002f 00c4       |    |		Action	Make_Default
0030 00c4       |    |		Action	Make_Default
0031 00c4       |    |		Action	Make_Default
0032 00c4       |    |		Action	Make_Default
0033 00c4       |    |		Action	Make_Default
0034 00c4       |    |		Action	Make_Default
0035 00c4       |    |		Action	Make_Default
0036 00c4       |    |		Action	Make_Default
0037 00c4       |    |		Action	Make_Default
0038 00c4       |    |		Action	Make_Default
0039 00c4       |    |		Action	Make_Default
003a 00c4       |    |		Action	Make_Default
003b 00c4       |    |		Action	Make_Default
003c 00c4       |    |		Action	Make_Default
003d 00c4       |    |		Action	Make_Default
003e 03a9       |    |		Declare_Type	Heap_Access,Indirect_Literal,Visible
003f c21a       |    |		Store	0x1,0x1a
0040 00c4       |    |		Action	Make_Default
0041 00d1       |    |		Pop_Control	Pop_Count_1
0042 029a 00a3  |    |		Declare_Subprogram	INIT_00a0,For_Outer_Call,Visible,Unelaborated
0044 c238       | 8  |		Store	0x1,0x38
0045 029a 01d3  |    |		Declare_Subprogram	INIT_01d0,For_Outer_Call,Visible,Unelaborated
0047 c239       | 9  |		Store	0x1,0x39
0048 029a 02fb  |    |		Declare_Subprogram	INIT_02f8,For_Outer_Call,Visible,Unelaborated
004a c23a       | :  |		Store	0x1,0x3a
004b 029a 039b  |    |		Declare_Subprogram	INIT_0398,For_Outer_Call,Visible,Unelaborated
004d c23b       | ;  |		Store	0x1,0x3b
004e 029a 0433  |   3|		Declare_Subprogram	INIT_0430,For_Outer_Call,Visible,Unelaborated
0050 c22d       | -  |		Store	0x1,0x2d
0051 029a 04eb  |    |		Declare_Subprogram	INIT_04e8,For_Outer_Call,Visible,Unelaborated
0053 c23c       | <  |		Store	0x1,0x3c
0054 029a 05ab  |    |		Declare_Subprogram	INIT_05a8,For_Outer_Call,Visible,Unelaborated
0056 c23d       | =  |		Store	0x1,0x3d
0057 029a 066b  |   k|		Declare_Subprogram	INIT_0668,For_Outer_Call,Visible,Unelaborated
0059 c230       | 0  |		Store	0x1,0x30
005a 029a 073b  |   ;|		Declare_Subprogram	INIT_0738,For_Outer_Call,Visible,Unelaborated
005c c231       | 1  |		Store	0x1,0x31
005d 029a 07db  |    |		Declare_Subprogram	INIT_07d8,For_Outer_Call,Visible,Unelaborated
005f c23e       | >  |		Store	0x1,0x3e
0060 e001       |    |		Load	0x0,0x1
0061 1bc9       |    |		Execute	Package,Field_Read,Field_Number 0xc9
0062 4802       |H   |		Short_Literal	0x2
0063 4800       |H   |		Short_Literal	0x0
0064 4801       |H   |		Short_Literal	0x1
0065 4803       |H   |		Short_Literal	0x3
0066 0318       |    |		Declare_Type	Variant_Record,Incomplete
0067 029f 088b  |    |		Declare_Subprogram	INIT_0888,For_Call
0069 00d9       |    |		Load_Top	At_Offset_1
006a 012a       | *  |		Execute	Any,Change_Utility
006b c23f       | ?  |		Store	0x1,0x3f
006c 00d8       |    |		Load_Top	At_Offset_0
006d 02a0       |    |		Declare_Subprogram	Null_Subprogram
006e e21a       |    |		Load	0x1,0x1a
006f 03a3       |    |		Complete_Type	Heap_Access,By_Defining
0070 e21a       |    |		Load	0x1,0x1a
0071 0129       | )  |		Execute	Any,Make_Visible
0072 c237       | 7  |		Store	0x1,0x37
0073 00bf       |    |		Action	Accept_Activation
0074 4801       |H   |		Short_Literal	0x1
0075 e002       |    |		Load	0x0,0x2
0076 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0077 4801       |H   |		Short_Literal	0x1
0078 e003       |    |		Load	0x0,0x3
0079 1b2d       | -  |		Execute	Package,Field_Read,Field_Number 0x2d
007a 029f 088b  |    |		Declare_Subprogram	INIT_0888,For_Call
007c 4802       |H   |		Short_Literal	0x2
007d 4800       |H   |		Short_Literal	0x0
007e e23f       | ?  |		Load	0x1,0x3f
007f 0307       |    |		Complete_Type	Variant_Record,By_Defining
0080 029d 08c3  |    |		Declare_Subprogram	INIT_08c0,For_Outer_Call
0082 029d 08e3  |    |		Declare_Subprogram	INIT_08e0,For_Outer_Call
0084 1d38       | 8  |		Execute_Immediate	Reference_Lex_1,0x38
0085 00c7       |    |		Action	Elaborate_Subprogram
0086 1d39       | 9  |		Execute_Immediate	Reference_Lex_1,0x39
0087 00c7       |    |		Action	Elaborate_Subprogram
0088 1d3a       | :  |		Execute_Immediate	Reference_Lex_1,0x3a
0089 00c7       |    |		Action	Elaborate_Subprogram
008a 1d3b       | ;  |		Execute_Immediate	Reference_Lex_1,0x3b
008b 00c7       |    |		Action	Elaborate_Subprogram
008c 1d2d       | -  |		Execute_Immediate	Reference_Lex_1,0x2d
008d 00c7       |    |		Action	Elaborate_Subprogram
008e 1d3c       | <  |		Execute_Immediate	Reference_Lex_1,0x3c
008f 00c7       |    |		Action	Elaborate_Subprogram
0090 1d3d       | =  |		Execute_Immediate	Reference_Lex_1,0x3d
0091 00c7       |    |		Action	Elaborate_Subprogram
0092 1d30       | 0  |		Execute_Immediate	Reference_Lex_1,0x30
0093 00c7       |    |		Action	Elaborate_Subprogram
0094 1d31       | 1  |		Execute_Immediate	Reference_Lex_1,0x31
0095 00c7       |    |		Action	Elaborate_Subprogram
0096 1d3e       | >  |		Execute_Immediate	Reference_Lex_1,0x3e
0097 00c7       |    |		Action	Elaborate_Subprogram
0098			BODY_0008:
0098 00bc       |    |		Action	Signal_Activated
0099 00bb       |    |		Action	Signal_Completion
009a 0000 0000  |    |		.BLANK	0000[0x6]
00a0 ; --------------------------------------------------------------------------------------
00a0 ; SUBPROGRAM
00a0 ; --------------------------------------------------------------------------------------
00a0 00b4       |    |		.CONST	0x00b4								; Address of begin
00a1 0177       | w  |		.CONST	0x0177								; Address of exception handler
00a2 0005       |    |		.CONST	0x0005								; Number of locals
00a3			INIT_00a0:
00a3 e002       |    |		Load	0x0,0x2
00a4 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00a5 02c7       |    |		Declare_Variable	Any
00a6 00d8       |    |		Load_Top	At_Offset_0
00a7 1c00       |    |		Execute_Immediate	Run_Utility,0x0
00a8 e003       |    |		Load	0x0,0x3
00a9 1b2d       | -  |		Execute	Package,Field_Read,Field_Number 0x2d
00aa 0322       | "  |		Declare_Variable	Record
00ab 00d8       |    |		Load_Top	At_Offset_0
00ac 1c00       |    |		Execute_Immediate	Run_Utility,0x0
00ad e004       |    |		Load	0x0,0x4
00ae 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
00af 02c7       |    |		Declare_Variable	Any
00b0 00d8       |    |		Load_Top	At_Offset_0
00b1 1c00       |    |		Execute_Immediate	Run_Utility,0x0
00b2 e005       |    |		Load	0x0,0x5
00b3 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00b4			BODY_00a0:
00b4 4800       |H   |		Short_Literal	0x0
00b5 a5f9       |    |		Store_Unchecked	0x2,-0x7
00b6 e21a       |    |		Load	0x1,0x1a
00b7 a5fa       |    |		Store_Unchecked	0x2,-0x6
00b8 e005       |    |		Load	0x0,0x5
00b9 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00ba e006       |    |		Load	0x0,0x6
00bb 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
00bc 0059       | Y  |		Store_Top	Discrete,At_Offset_1
00bd 4800       |H   |		Short_Literal	0x0
00be 00d9       |    |		Load_Top	At_Offset_1
00bf e005       |    |		Load	0x0,0x5
00c0 1847       | G  |		Execute	Package,Field_Execute,Field_Number 0x47
00c1 7003       |p   |		Jump_Nonzero	0xc5
00c2 00d8       |    |		Load_Top	At_Offset_0
00c3 a5f9       |    |		Store_Unchecked	0x2,-0x7
00c4 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
00c5 e007       |    |		Load	0x0,0x7
00c6 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
00c7 4801       |H   |		Short_Literal	0x1
00c8 0092 099a  |    |		Action	Push_String_Extended,0x99a					; "Acquire (Remote_Machine => \x22"
00ca e5fe       |    |		Load	0x2,-0x2
00cb 01cc       |    |		Execute	Vector,Catenate
00cc 0092 099b  |    |		Action	Push_String_Extended,0x99b					; "\x22, Username => \x22"
00ce 01cc       |    |		Execute	Vector,Catenate
00cf e5fd       |    |		Load	0x2,-0x3
00d0 01cc       |    |		Execute	Vector,Catenate
00d1 0092 099c  |    |		Action	Push_String_Extended,0x99c					; "\x22, Password => ???"
00d3 01cc       |    |		Execute	Vector,Catenate
00d4 0092 099d  |    |		Action	Push_String_Extended,0x99d					; ", Trace_Command => "
00d6 01cc       |    |		Execute	Vector,Catenate
00d7 e5fb       |    |		Load	0x2,-0x5
00d8 00e1       |    |		Load_Encached	Boolean_Cache
00d9 011c       |    |		Execute	Any,Convert_Unchecked
00da 1c01       |    |		Execute_Immediate	Run_Utility,0x1
00db 01cc       |    |		Execute	Vector,Catenate
00dc 0092 099e  |    |		Action	Push_String_Extended,0x99e					; ")."
00de 01cc       |    |		Execute	Vector,Catenate
00df e008       |    |		Load	0x0,0x8
00e0 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
00e1 e5ff       |    |		Load	0x2,-0x1
00e2 e001       |    |		Load	0x0,0x1
00e3 18ca       |    |		Execute	Package,Field_Execute,Field_Number 0xca
00e4 0f01       |    |		Execute_Immediate	Equal,0x1
00e5 7069       |pi  |		Jump_Nonzero	0x14f
00e6 e5ff       |    |		Load	0x2,-0x1
00e7 e001       |    |		Load	0x0,0x1
00e8 1863       | c  |		Execute	Package,Field_Execute,Field_Number 0x63
00e9 00db       |    |		Load_Top	At_Offset_3
00ea 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
00eb 00d9       |    |		Load_Top	At_Offset_1
00ec 00db       |    |		Load_Top	At_Offset_3
00ed e5fb       |    |		Load	0x2,-0x5
00ee e5fc       |    |		Load	0x2,-0x4
00ef e5fd       |    |		Load	0x2,-0x3
00f0 e5fe       |    |		Load	0x2,-0x2
00f1 8241       | A  |		Call	0x1,0x41
00f2 e5fc       |    |		Load	0x2,-0x4
00f3 e5fd       |    |		Load	0x2,-0x3
00f4 e5fe       |    |		Load	0x2,-0x2
00f5 8240       | @  |		Call	0x1,0x40
00f6 e5fe       |    |		Load	0x2,-0x2
00f7 e003       |    |		Load	0x0,0x3
00f8 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
00f9 00d1       |    |		Pop_Control	Pop_Count_1
00fa c404       |    |		Store	0x2,0x4
00fb 4802       |H   |		Short_Literal	0x2
00fc 00da       |    |		Load_Top	At_Offset_2
00fd e004       |    |		Load	0x0,0x4
00fe 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
00ff 681f       |h   |		Jump_Zero	0x11f
0100 4801       |H   |		Short_Literal	0x1
0101 4802       |H   |		Short_Literal	0x2
0102 e009       |    |		Load	0x0,0x9
0103 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0104 035b       | [  |		Declare_Type	Array,Constrained
0105 0337       | 7  |		Declare_Variable	Array
0106 e5fe       |    |		Load	0x2,-0x2
0107 e009       |    |		Load	0x0,0x9
0108 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0109 e009       |    |		Load	0x0,0x9
010a 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
010b 0119       |    |		Execute	Any,Check_In_Formal_Type
010c 4801       |H   |		Short_Literal	0x1
010d 00da       |    |		Load_Top	At_Offset_2
010e 01d6       |    |		Execute	Vector,Field_Write
010f 00da       |    |		Load_Top	At_Offset_2
0110 e004       |    |		Load	0x0,0x4
0111 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0112 e009       |    |		Load	0x0,0x9
0113 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0114 e009       |    |		Load	0x0,0x9
0115 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0116 0119       |    |		Execute	Any,Check_In_Formal_Type
0117 4802       |H   |		Short_Literal	0x2
0118 00da       |    |		Load_Top	At_Offset_2
0119 01d6       |    |		Execute	Vector,Field_Write
011a 60b1       |`   |		Indirect_Literal	Discrete,0x1cc,{0x00000000, 0x0000812a}
011b e005       |    |		Load	0x0,0x5
011c 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
011d a5f9       |    |		Store_Unchecked	0x2,-0x7
011e 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
011f 4801       |H   |		Short_Literal	0x1
0120 00da       |    |		Load_Top	At_Offset_2
0121 e004       |    |		Load	0x0,0x4
0122 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
0123 681f       |h   |		Jump_Zero	0x143
0124 4801       |H   |		Short_Literal	0x1
0125 4802       |H   |		Short_Literal	0x2
0126 e009       |    |		Load	0x0,0x9
0127 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0128 035b       | [  |		Declare_Type	Array,Constrained
0129 0337       | 7  |		Declare_Variable	Array
012a e5fe       |    |		Load	0x2,-0x2
012b e009       |    |		Load	0x0,0x9
012c 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
012d e009       |    |		Load	0x0,0x9
012e 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
012f 0119       |    |		Execute	Any,Check_In_Formal_Type
0130 4801       |H   |		Short_Literal	0x1
0131 00da       |    |		Load_Top	At_Offset_2
0132 01d6       |    |		Execute	Vector,Field_Write
0133 00da       |    |		Load_Top	At_Offset_2
0134 e004       |    |		Load	0x0,0x4
0135 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0136 e009       |    |		Load	0x0,0x9
0137 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0138 e009       |    |		Load	0x0,0x9
0139 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
013a 0119       |    |		Execute	Any,Check_In_Formal_Type
013b 4802       |H   |		Short_Literal	0x2
013c 00da       |    |		Load_Top	At_Offset_2
013d 01d6       |    |		Execute	Vector,Field_Write
013e 4806       |H   |		Short_Literal	0x6
013f 6088       |`   |		Indirect_Literal	Discrete,0x1c8,{0x00000000, 0x000081d1}
0140 e005       |    |		Load	0x0,0x5
0141 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0142 a5f9       |    |		Store_Unchecked	0x2,-0x7
0143 4800       |H   |		Short_Literal	0x0
0144 e23f       | ?  |		Load	0x1,0x3f
0145 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0146 00db       |    |		Load_Top	At_Offset_3
0147 00d9       |    |		Load_Top	At_Offset_1
0148 2a03       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
0149 e21a       |    |		Load	0x1,0x1a
014a e00a       |    |		Load	0x0,0xa
014b 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
014c 0396       |    |		Declare_Variable	Heap_Access,By_Allocation,With_Value
014d a5fa       |    |		Store_Unchecked	0x2,-0x6
014e 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
014f e005       |    |		Load	0x0,0x5
0150 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0151 e402       |    |		Load	0x2,0x2
0152 e5fb       |    |		Load	0x2,-0x5
0153 e5fc       |    |		Load	0x2,-0x4
0154 e5fd       |    |		Load	0x2,-0x3
0155 e5fe       |    |		Load	0x2,-0x2
0156 8241       | A  |		Call	0x1,0x41
0157 e5fc       |    |		Load	0x2,-0x4
0158 e5fd       |    |		Load	0x2,-0x3
0159 e5fe       |    |		Load	0x2,-0x2
015a 8240       | @  |		Call	0x1,0x40
015b e5fe       |    |		Load	0x2,-0x2
015c e002       |    |		Load	0x0,0x2
015d 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
015e c402       |    |		Store	0x2,0x2
015f 0059       | Y  |		Store_Top	Discrete,At_Offset_1
0160 4800       |H   |		Short_Literal	0x0
0161 00d9       |    |		Load_Top	At_Offset_1
0162 e005       |    |		Load	0x0,0x5
0163 1847       | G  |		Execute	Package,Field_Execute,Field_Number 0x47
0164 7003       |p   |		Jump_Nonzero	0x168
0165 00d8       |    |		Load_Top	At_Offset_0
0166 a5f9       |    |		Store_Unchecked	0x2,-0x7
0167 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
0168 4801       |H   |		Short_Literal	0x1
0169 e23f       | ?  |		Load	0x1,0x3f
016a 1c08       |    |		Execute_Immediate	Run_Utility,0x8
016b e402       |    |		Load	0x2,0x2
016c e23f       | ?  |		Load	0x1,0x3f
016d 2302       |#   |		Execute	Variant_Record,Field_Type,Field_Number 0x2
016e 0119       |    |		Execute	Any,Check_In_Formal_Type
016f 00d9       |    |		Load_Top	At_Offset_1
0170 2a02       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
0171 e21a       |    |		Load	0x1,0x1a
0172 e00a       |    |		Load	0x0,0xa
0173 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
0174 0396       |    |		Declare_Variable	Heap_Access,By_Allocation,With_Value
0175 a5fa       |    |		Store_Unchecked	0x2,-0x6
0176 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
0177			TRAP_00a0:
0177 e00b       |    |		Load	0x0,0xb
0178 010f       |    |		Execute	Exception,Equal
0179 6807       |h   |		Jump_Zero	0x181
017a e009       |    |		Load	0x0,0x9
017b 182b       | +  |		Execute	Package,Field_Execute,Field_Number 0x2b
017c 6047       |`G  |		Indirect_Literal	Discrete,0x1c4,{0x00000000, 0x000081cd}
017d e005       |    |		Load	0x0,0x5
017e 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
017f a5f9       |    |		Store_Unchecked	0x2,-0x7
0180 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
0181 e00c       |    |		Load	0x0,0xc
0182 010f       |    |		Execute	Exception,Equal
0183 6807       |h   |		Jump_Zero	0x18b
0184 e009       |    |		Load	0x0,0x9
0185 182b       | +  |		Execute	Package,Field_Execute,Field_Number 0x2b
0186 6039       |`9  |		Indirect_Literal	Discrete,0x1c0,{0x00000000, 0x000081ce}
0187 e005       |    |		Load	0x0,0x5
0188 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0189 a5f9       |    |		Store_Unchecked	0x2,-0x7
018a 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
018b e00d       |    |		Load	0x0,0xd
018c 010f       |    |		Execute	Exception,Equal
018d 6807       |h   |		Jump_Zero	0x195
018e e009       |    |		Load	0x0,0x9
018f 182b       | +  |		Execute	Package,Field_Execute,Field_Number 0x2b
0190 602b       |`+  |		Indirect_Literal	Discrete,0x1bc,{0x00000000, 0x000081cf}
0191 e005       |    |		Load	0x0,0x5
0192 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0193 a5f9       |    |		Store_Unchecked	0x2,-0x7
0194 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
0195 4801       |H   |		Short_Literal	0x1
0196 4802       |H   |		Short_Literal	0x2
0197 e009       |    |		Load	0x0,0x9
0198 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0199 035b       | [  |		Declare_Type	Array,Constrained
019a 0337       | 7  |		Declare_Variable	Array
019b 0092 099f  |    |		Action	Push_String_Extended,0x99f					; "Acquire"
019d e009       |    |		Load	0x0,0x9
019e 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
019f e009       |    |		Load	0x0,0x9
01a0 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
01a1 0119       |    |		Execute	Any,Check_In_Formal_Type
01a2 4801       |H   |		Short_Literal	0x1
01a3 00da       |    |		Load_Top	At_Offset_2
01a4 01d6       |    |		Execute	Vector,Field_Write
01a5 4800       |H   |		Short_Literal	0x0
01a6 4801       |H   |		Short_Literal	0x1
01a7 e00e       |    |		Load	0x0,0xe
01a8 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
01a9 e009       |    |		Load	0x0,0x9
01aa 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
01ab e009       |    |		Load	0x0,0x9
01ac 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
01ad 0119       |    |		Execute	Any,Check_In_Formal_Type
01ae 4802       |H   |		Short_Literal	0x2
01af 00da       |    |		Load_Top	At_Offset_2
01b0 01d6       |    |		Execute	Vector,Field_Write
01b1 6006       |`   |		Indirect_Literal	Discrete,0x1b8,{0x00000000, 0x0000812d}
01b2 e005       |    |		Load	0x0,0x5
01b3 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
01b4 a5f9       |    |		Store_Unchecked	0x2,-0x7
01b5 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
01b6 0000 0000  |    |		.XXX[0x2]
01b8 0000 0000  |    |		.LITERAL	{0x00000000, 0x0000812d}
01bc 0000 0000  |    |		.LITERAL	{0x00000000, 0x000081cf}
01c0 0000 0000  |    |		.LITERAL	{0x00000000, 0x000081ce}
01c4 0000 0000  |    |		.LITERAL	{0x00000000, 0x000081cd}
01c8 0000 0000  |    |		.LITERAL	{0x00000000, 0x000081d1}
01cc 0000 0000  |    |		.LITERAL	{0x00000000, 0x0000812a}
01d0 ; --------------------------------------------------------------------------------------
01d0 ; SUBPROGRAM
01d0 ; --------------------------------------------------------------------------------------
01d0 01e4       |    |		.CONST	0x01e4								; Address of begin
01d1 02b5       |    |		.CONST	0x02b5								; Address of exception handler
01d2 0005       |    |		.CONST	0x0005								; Number of locals
01d3			INIT_01d0:
01d3 e002       |    |		Load	0x0,0x2
01d4 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
01d5 02c7       |    |		Declare_Variable	Any
01d6 00d8       |    |		Load_Top	At_Offset_0
01d7 1c00       |    |		Execute_Immediate	Run_Utility,0x0
01d8 e003       |    |		Load	0x0,0x3
01d9 1b2d       | -  |		Execute	Package,Field_Read,Field_Number 0x2d
01da 0322       | "  |		Declare_Variable	Record
01db 00d8       |    |		Load_Top	At_Offset_0
01dc 1c00       |    |		Execute_Immediate	Run_Utility,0x0
01dd e004       |    |		Load	0x0,0x4
01de 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
01df 02c7       |    |		Declare_Variable	Any
01e0 00d8       |    |		Load_Top	At_Offset_0
01e1 1c00       |    |		Execute_Immediate	Run_Utility,0x0
01e2 e005       |    |		Load	0x0,0x5
01e3 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
01e4			BODY_01d0:
01e4 4800       |H   |		Short_Literal	0x0
01e5 a5f7       |    |		Store_Unchecked	0x2,-0x9
01e6 e21a       |    |		Load	0x1,0x1a
01e7 a5f8       |    |		Store_Unchecked	0x2,-0x8
01e8 e005       |    |		Load	0x0,0x5
01e9 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
01ea e006       |    |		Load	0x0,0x6
01eb 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
01ec 0059       | Y  |		Store_Top	Discrete,At_Offset_1
01ed 4800       |H   |		Short_Literal	0x0
01ee 00d9       |    |		Load_Top	At_Offset_1
01ef e005       |    |		Load	0x0,0x5
01f0 1847       | G  |		Execute	Package,Field_Execute,Field_Number 0x47
01f1 7003       |p   |		Jump_Nonzero	0x1f5
01f2 00d8       |    |		Load_Top	At_Offset_0
01f3 a5f7       |    |		Store_Unchecked	0x2,-0x9
01f4 4508       |E   |		Exit_Suprogram	New_Top_Offset 0x8
01f5 e007       |    |		Load	0x0,0x7
01f6 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
01f7 4801       |H   |		Short_Literal	0x1
01f8 0092 09a0  |    |		Action	Push_String_Extended,0x9a0					; "Acquire (Set_Directory => \x22"
01fa e5fe       |    |		Load	0x2,-0x2
01fb 01cc       |    |		Execute	Vector,Catenate
01fc 0092 09a1  |    |		Action	Push_String_Extended,0x9a1					; "\x22, Set_Library => \x22"
01fe 01cc       |    |		Execute	Vector,Catenate
01ff e5fd       |    |		Load	0x2,-0x3
0200 01cc       |    |		Execute	Vector,Catenate
0201 0092 09a2  |    |		Action	Push_String_Extended,0x9a2					; "\x22, Remote_Machine => \x22"
0203 01cc       |    |		Execute	Vector,Catenate
0204 e5fc       |    |		Load	0x2,-0x4
0205 01cc       |    |		Execute	Vector,Catenate
0206 0092 099b  |    |		Action	Push_String_Extended,0x99b					; "\x22, Username => \x22"
0208 01cc       |    |		Execute	Vector,Catenate
0209 e5fb       |    |		Load	0x2,-0x5
020a 01cc       |    |		Execute	Vector,Catenate
020b 0092 099c  |    |		Action	Push_String_Extended,0x99c					; "\x22, Password => ???"
020d 01cc       |    |		Execute	Vector,Catenate
020e 0092 099d  |    |		Action	Push_String_Extended,0x99d					; ", Trace_Command => "
0210 01cc       |    |		Execute	Vector,Catenate
0211 e5f9       |    |		Load	0x2,-0x7
0212 00e1       |    |		Load_Encached	Boolean_Cache
0213 011c       |    |		Execute	Any,Convert_Unchecked
0214 1c01       |    |		Execute_Immediate	Run_Utility,0x1
0215 01cc       |    |		Execute	Vector,Catenate
0216 0092 099e  |    |		Action	Push_String_Extended,0x99e					; ")."
0218 01cc       |    |		Execute	Vector,Catenate
0219 e008       |    |		Load	0x0,0x8
021a 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
021b e5ff       |    |		Load	0x2,-0x1
021c e001       |    |		Load	0x0,0x1
021d 18ca       |    |		Execute	Package,Field_Execute,Field_Number 0xca
021e 0f01       |    |		Execute_Immediate	Equal,0x1
021f 706b       |pk  |		Jump_Nonzero	0x28b
0220 e5ff       |    |		Load	0x2,-0x1
0221 e001       |    |		Load	0x0,0x1
0222 1863       | c  |		Execute	Package,Field_Execute,Field_Number 0x63
0223 00db       |    |		Load_Top	At_Offset_3
0224 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0225 00d9       |    |		Load_Top	At_Offset_1
0226 00db       |    |		Load_Top	At_Offset_3
0227 e5f9       |    |		Load	0x2,-0x7
0228 e5fa       |    |		Load	0x2,-0x6
0229 e5fb       |    |		Load	0x2,-0x5
022a e5fc       |    |		Load	0x2,-0x4
022b 8241       | A  |		Call	0x1,0x41
022c e5fa       |    |		Load	0x2,-0x6
022d e5fb       |    |		Load	0x2,-0x5
022e e5fc       |    |		Load	0x2,-0x4
022f 8240       | @  |		Call	0x1,0x40
0230 e5fc       |    |		Load	0x2,-0x4
0231 e5fd       |    |		Load	0x2,-0x3
0232 e5fe       |    |		Load	0x2,-0x2
0233 e003       |    |		Load	0x0,0x3
0234 181f       |    |		Execute	Package,Field_Execute,Field_Number 0x1f
0235 00d1       |    |		Pop_Control	Pop_Count_1
0236 c404       |    |		Store	0x2,0x4
0237 4802       |H   |		Short_Literal	0x2
0238 00da       |    |		Load_Top	At_Offset_2
0239 e004       |    |		Load	0x0,0x4
023a 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
023b 681f       |h   |		Jump_Zero	0x25b
023c 4801       |H   |		Short_Literal	0x1
023d 4802       |H   |		Short_Literal	0x2
023e e009       |    |		Load	0x0,0x9
023f 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0240 035b       | [  |		Declare_Type	Array,Constrained
0241 0337       | 7  |		Declare_Variable	Array
0242 e5fc       |    |		Load	0x2,-0x4
0243 e009       |    |		Load	0x0,0x9
0244 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0245 e009       |    |		Load	0x0,0x9
0246 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0247 0119       |    |		Execute	Any,Check_In_Formal_Type
0248 4801       |H   |		Short_Literal	0x1
0249 00da       |    |		Load_Top	At_Offset_2
024a 01d6       |    |		Execute	Vector,Field_Write
024b 00da       |    |		Load_Top	At_Offset_2
024c e004       |    |		Load	0x0,0x4
024d 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
024e e009       |    |		Load	0x0,0x9
024f 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0250 e009       |    |		Load	0x0,0x9
0251 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0252 0119       |    |		Execute	Any,Check_In_Formal_Type
0253 4802       |H   |		Short_Literal	0x2
0254 00da       |    |		Load_Top	At_Offset_2
0255 01d6       |    |		Execute	Vector,Field_Write
0256 6775       |gu  |		Indirect_Literal	Discrete,0x1cc,{0x00000000, 0x0000812a}
0257 e005       |    |		Load	0x0,0x5
0258 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0259 a5f7       |    |		Store_Unchecked	0x2,-0x9
025a 4508       |E   |		Exit_Suprogram	New_Top_Offset 0x8
025b 4801       |H   |		Short_Literal	0x1
025c 00da       |    |		Load_Top	At_Offset_2
025d e004       |    |		Load	0x0,0x4
025e 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
025f 681f       |h   |		Jump_Zero	0x27f
0260 4801       |H   |		Short_Literal	0x1
0261 4802       |H   |		Short_Literal	0x2
0262 e009       |    |		Load	0x0,0x9
0263 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0264 035b       | [  |		Declare_Type	Array,Constrained
0265 0337       | 7  |		Declare_Variable	Array
0266 e5fc       |    |		Load	0x2,-0x4
0267 e009       |    |		Load	0x0,0x9
0268 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0269 e009       |    |		Load	0x0,0x9
026a 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
026b 0119       |    |		Execute	Any,Check_In_Formal_Type
026c 4801       |H   |		Short_Literal	0x1
026d 00da       |    |		Load_Top	At_Offset_2
026e 01d6       |    |		Execute	Vector,Field_Write
026f 00da       |    |		Load_Top	At_Offset_2
0270 e004       |    |		Load	0x0,0x4
0271 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0272 e009       |    |		Load	0x0,0x9
0273 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0274 e009       |    |		Load	0x0,0x9
0275 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0276 0119       |    |		Execute	Any,Check_In_Formal_Type
0277 4802       |H   |		Short_Literal	0x2
0278 00da       |    |		Load_Top	At_Offset_2
0279 01d6       |    |		Execute	Vector,Field_Write
027a 4806       |H   |		Short_Literal	0x6
027b 674c       |gL  |		Indirect_Literal	Discrete,0x1c8,{0x00000000, 0x000081d1}
027c e005       |    |		Load	0x0,0x5
027d 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
027e a5f7       |    |		Store_Unchecked	0x2,-0x9
027f 4800       |H   |		Short_Literal	0x0
0280 e23f       | ?  |		Load	0x1,0x3f
0281 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0282 00db       |    |		Load_Top	At_Offset_3
0283 00d9       |    |		Load_Top	At_Offset_1
0284 2a03       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
0285 e21a       |    |		Load	0x1,0x1a
0286 e00a       |    |		Load	0x0,0xa
0287 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
0288 0396       |    |		Declare_Variable	Heap_Access,By_Allocation,With_Value
0289 a5f8       |    |		Store_Unchecked	0x2,-0x8
028a 4508       |E   |		Exit_Suprogram	New_Top_Offset 0x8
028b e005       |    |		Load	0x0,0x5
028c 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
028d e402       |    |		Load	0x2,0x2
028e e5f9       |    |		Load	0x2,-0x7
028f e5fa       |    |		Load	0x2,-0x6
0290 e5fb       |    |		Load	0x2,-0x5
0291 e5fc       |    |		Load	0x2,-0x4
0292 8241       | A  |		Call	0x1,0x41
0293 e5fa       |    |		Load	0x2,-0x6
0294 e5fb       |    |		Load	0x2,-0x5
0295 e5fc       |    |		Load	0x2,-0x4
0296 8240       | @  |		Call	0x1,0x40
0297 e5fc       |    |		Load	0x2,-0x4
0298 e5fd       |    |		Load	0x2,-0x3
0299 e5fe       |    |		Load	0x2,-0x2
029a e002       |    |		Load	0x0,0x2
029b 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
029c c402       |    |		Store	0x2,0x2
029d 0059       | Y  |		Store_Top	Discrete,At_Offset_1
029e 4800       |H   |		Short_Literal	0x0
029f 00d9       |    |		Load_Top	At_Offset_1
02a0 e005       |    |		Load	0x0,0x5
02a1 1847       | G  |		Execute	Package,Field_Execute,Field_Number 0x47
02a2 7003       |p   |		Jump_Nonzero	0x2a6
02a3 00d8       |    |		Load_Top	At_Offset_0
02a4 a5f7       |    |		Store_Unchecked	0x2,-0x9
02a5 4508       |E   |		Exit_Suprogram	New_Top_Offset 0x8
02a6 4801       |H   |		Short_Literal	0x1
02a7 e23f       | ?  |		Load	0x1,0x3f
02a8 1c08       |    |		Execute_Immediate	Run_Utility,0x8
02a9 e402       |    |		Load	0x2,0x2
02aa e23f       | ?  |		Load	0x1,0x3f
02ab 2302       |#   |		Execute	Variant_Record,Field_Type,Field_Number 0x2
02ac 0119       |    |		Execute	Any,Check_In_Formal_Type
02ad 00d9       |    |		Load_Top	At_Offset_1
02ae 2a02       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
02af e21a       |    |		Load	0x1,0x1a
02b0 e00a       |    |		Load	0x0,0xa
02b1 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
02b2 0396       |    |		Declare_Variable	Heap_Access,By_Allocation,With_Value
02b3 a5f8       |    |		Store_Unchecked	0x2,-0x8
02b4 4508       |E   |		Exit_Suprogram	New_Top_Offset 0x8
02b5			TRAP_01d0:
02b5 e00b       |    |		Load	0x0,0xb
02b6 010f       |    |		Execute	Exception,Equal
02b7 6807       |h   |		Jump_Zero	0x2bf
02b8 e009       |    |		Load	0x0,0x9
02b9 182b       | +  |		Execute	Package,Field_Execute,Field_Number 0x2b
02ba 6709       |g   |		Indirect_Literal	Discrete,0x1c4,{0x00000000, 0x000081cd}
02bb e005       |    |		Load	0x0,0x5
02bc 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
02bd a5f7       |    |		Store_Unchecked	0x2,-0x9
02be 4508       |E   |		Exit_Suprogram	New_Top_Offset 0x8
02bf e00c       |    |		Load	0x0,0xc
02c0 010f       |    |		Execute	Exception,Equal
02c1 6807       |h   |		Jump_Zero	0x2c9
02c2 e009       |    |		Load	0x0,0x9
02c3 182b       | +  |		Execute	Package,Field_Execute,Field_Number 0x2b
02c4 66fb       |f   |		Indirect_Literal	Discrete,0x1c0,{0x00000000, 0x000081ce}
02c5 e005       |    |		Load	0x0,0x5
02c6 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
02c7 a5f7       |    |		Store_Unchecked	0x2,-0x9
02c8 4508       |E   |		Exit_Suprogram	New_Top_Offset 0x8
02c9 e00d       |    |		Load	0x0,0xd
02ca 010f       |    |		Execute	Exception,Equal
02cb 6807       |h   |		Jump_Zero	0x2d3
02cc e009       |    |		Load	0x0,0x9
02cd 182b       | +  |		Execute	Package,Field_Execute,Field_Number 0x2b
02ce 66ed       |f   |		Indirect_Literal	Discrete,0x1bc,{0x00000000, 0x000081cf}
02cf e005       |    |		Load	0x0,0x5
02d0 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
02d1 a5f7       |    |		Store_Unchecked	0x2,-0x9
02d2 4508       |E   |		Exit_Suprogram	New_Top_Offset 0x8
02d3 4801       |H   |		Short_Literal	0x1
02d4 4802       |H   |		Short_Literal	0x2
02d5 e009       |    |		Load	0x0,0x9
02d6 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
02d7 035b       | [  |		Declare_Type	Array,Constrained
02d8 0337       | 7  |		Declare_Variable	Array
02d9 0092 09a3  |    |		Action	Push_String_Extended,0x9a3					; "Acquire (Directory)"
02db e009       |    |		Load	0x0,0x9
02dc 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
02dd e009       |    |		Load	0x0,0x9
02de 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
02df 0119       |    |		Execute	Any,Check_In_Formal_Type
02e0 4801       |H   |		Short_Literal	0x1
02e1 00da       |    |		Load_Top	At_Offset_2
02e2 01d6       |    |		Execute	Vector,Field_Write
02e3 4800       |H   |		Short_Literal	0x0
02e4 4801       |H   |		Short_Literal	0x1
02e5 e00e       |    |		Load	0x0,0xe
02e6 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
02e7 e009       |    |		Load	0x0,0x9
02e8 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
02e9 e009       |    |		Load	0x0,0x9
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 66c8       |f   |		Indirect_Literal	Discrete,0x1b8,{0x00000000, 0x0000812d}
02f0 e005       |    |		Load	0x0,0x5
02f1 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
02f2 a5f7       |    |		Store_Unchecked	0x2,-0x9
02f3 4508       |E   |		Exit_Suprogram	New_Top_Offset 0x8
02f4 0000 0000  |    |		.BLANK	0000[0x4]
02f8 ; --------------------------------------------------------------------------------------
02f8 ; SUBPROGRAM
02f8 ; --------------------------------------------------------------------------------------
02f8 0300       |    |		.CONST	0x0300								; Address of begin
02f9 0366       | f  |		.CONST	0x0366								; Address of exception handler
02fa 0002       |    |		.CONST	0x0002								; Number of locals
02fb			INIT_02f8:
02fb e004       |    |		Load	0x0,0x4
02fc 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
02fd 02c7       |    |		Declare_Variable	Any
02fe 00d8       |    |		Load_Top	At_Offset_0
02ff 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0300			BODY_02f8:
0300 4800       |H   |		Short_Literal	0x0
0301 a5fd       |    |		Store_Unchecked	0x2,-0x3
0302 e007       |    |		Load	0x0,0x7
0303 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0304 4801       |H   |		Short_Literal	0x1
0305 0092 09a4  |    |		Action	Push_String_Extended,0x9a4					; "Release (Trace_Command => "
0307 e5fe       |    |		Load	0x2,-0x2
0308 00e1       |    |		Load_Encached	Boolean_Cache
0309 011c       |    |		Execute	Any,Convert_Unchecked
030a 1c01       |    |		Execute_Immediate	Run_Utility,0x1
030b 01cc       |    |		Execute	Vector,Catenate
030c 0092 099e  |    |		Action	Push_String_Extended,0x99e					; ")."
030e 01cc       |    |		Execute	Vector,Catenate
030f e008       |    |		Load	0x0,0x8
0310 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0311 00db       |    |		Load_Top	At_Offset_3
0312 0217       |    |		Execute	Heap_Access,All_Reference
0313 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0314 0f01       |    |		Execute_Immediate	Equal,0x1
0315 7042       |pB  |		Jump_Nonzero	0x358
0316 00db       |    |		Load_Top	At_Offset_3
0317 0219       |    |		Execute	Heap_Access,All_Read
0318 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
0319 00d9       |    |		Load_Top	At_Offset_1
031a 00d9       |    |		Load_Top	At_Offset_1
031b e5fe       |    |		Load	0x2,-0x2
031c e003       |    |		Load	0x0,0x3
031d 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
031e 00d1       |    |		Pop_Control	Pop_Count_1
031f c402       |    |		Store	0x2,0x2
0320 00d1       |    |		Pop_Control	Pop_Count_1
0321 4802       |H   |		Short_Literal	0x2
0322 00d9       |    |		Load_Top	At_Offset_1
0323 e004       |    |		Load	0x0,0x4
0324 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
0325 6816       |h   |		Jump_Zero	0x33c
0326 4801       |H   |		Short_Literal	0x1
0327 4801       |H   |		Short_Literal	0x1
0328 e009       |    |		Load	0x0,0x9
0329 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
032a 035b       | [  |		Declare_Type	Array,Constrained
032b 0337       | 7  |		Declare_Variable	Array
032c 00d9       |    |		Load_Top	At_Offset_1
032d e004       |    |		Load	0x0,0x4
032e 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
032f e009       |    |		Load	0x0,0x9
0330 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0331 e009       |    |		Load	0x0,0x9
0332 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0333 0119       |    |		Execute	Any,Check_In_Formal_Type
0334 4801       |H   |		Short_Literal	0x1
0335 00da       |    |		Load_Top	At_Offset_2
0336 01d6       |    |		Execute	Vector,Field_Write
0337 6058       |`X  |		Indirect_Literal	Discrete,0x390,{0x00000000, 0x00008135}
0338 e005       |    |		Load	0x0,0x5
0339 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
033a a5fd       |    |		Store_Unchecked	0x2,-0x3
033b 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
033c 4801       |H   |		Short_Literal	0x1
033d 00d9       |    |		Load_Top	At_Offset_1
033e e004       |    |		Load	0x0,0x4
033f 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
0340 6816       |h   |		Jump_Zero	0x357
0341 4801       |H   |		Short_Literal	0x1
0342 4801       |H   |		Short_Literal	0x1
0343 e009       |    |		Load	0x0,0x9
0344 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0345 035b       | [  |		Declare_Type	Array,Constrained
0346 0337       | 7  |		Declare_Variable	Array
0347 00d9       |    |		Load_Top	At_Offset_1
0348 e004       |    |		Load	0x0,0x4
0349 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
034a e009       |    |		Load	0x0,0x9
034b 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
034c e009       |    |		Load	0x0,0x9
034d 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
034e 0119       |    |		Execute	Any,Check_In_Formal_Type
034f 4801       |H   |		Short_Literal	0x1
0350 00da       |    |		Load_Top	At_Offset_2
0351 01d6       |    |		Execute	Vector,Field_Write
0352 4806       |H   |		Short_Literal	0x6
0353 6038       |`8  |		Indirect_Literal	Discrete,0x38c,{0x00000000, 0x000081d2}
0354 e005       |    |		Load	0x0,0x5
0355 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0356 a5fd       |    |		Store_Unchecked	0x2,-0x3
0357 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0358 00db       |    |		Load_Top	At_Offset_3
0359 0219       |    |		Execute	Heap_Access,All_Read
035a e005       |    |		Load	0x0,0x5
035b 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
035c 00d9       |    |		Load_Top	At_Offset_1
035d 2e02       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
035e e5fe       |    |		Load	0x2,-0x2
035f e002       |    |		Load	0x0,0x2
0360 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0361 00da       |    |		Load_Top	At_Offset_2
0362 2a02       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
0363 c5fd       |    |		Store	0x2,-0x3
0364 00d1       |    |		Pop_Control	Pop_Count_1
0365 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0366			TRAP_02f8:
0366 0007       |    |		Action	Break_Optional
0367 4801       |H   |		Short_Literal	0x1
0368 4802       |H   |		Short_Literal	0x2
0369 e009       |    |		Load	0x0,0x9
036a 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
036b 035b       | [  |		Declare_Type	Array,Constrained
036c 0337       | 7  |		Declare_Variable	Array
036d 0092 09a5  |    |		Action	Push_String_Extended,0x9a5					; "Release"
036f e009       |    |		Load	0x0,0x9
0370 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0371 e009       |    |		Load	0x0,0x9
0372 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0373 0119       |    |		Execute	Any,Check_In_Formal_Type
0374 4801       |H   |		Short_Literal	0x1
0375 00da       |    |		Load_Top	At_Offset_2
0376 01d6       |    |		Execute	Vector,Field_Write
0377 4800       |H   |		Short_Literal	0x0
0378 4801       |H   |		Short_Literal	0x1
0379 e00e       |    |		Load	0x0,0xe
037a 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
037b e009       |    |		Load	0x0,0x9
037c 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
037d e009       |    |		Load	0x0,0x9
037e 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
037f 0119       |    |		Execute	Any,Check_In_Formal_Type
0380 4802       |H   |		Short_Literal	0x2
0381 00da       |    |		Load_Top	At_Offset_2
0382 01d6       |    |		Execute	Vector,Field_Write
0383 6004       |`   |		Indirect_Literal	Discrete,0x388,{0x00000000, 0x0000812d}
0384 e005       |    |		Load	0x0,0x5
0385 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0386 a5fd       |    |		Store_Unchecked	0x2,-0x3
0387 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0388 0000 0000  |    |		.LITERAL	{0x00000000, 0x0000812d}
038c 0000 0000  |    |		.LITERAL	{0x00000000, 0x000081d2}
0390 0000 0000  |    |		.LITERAL	{0x00000000, 0x00008135}
0394 0000 0000  |    |		.BLANK	0000[0x4]
0398 ; --------------------------------------------------------------------------------------
0398 ; SUBPROGRAM
0398 ; --------------------------------------------------------------------------------------
0398 03a0       |    |		.CONST	0x03a0								; Address of begin
0399 0406       |    |		.CONST	0x0406								; Address of exception handler
039a 0002       |    |		.CONST	0x0002								; Number of locals
039b			INIT_0398:
039b e004       |    |		Load	0x0,0x4
039c 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
039d 02c7       |    |		Declare_Variable	Any
039e 00d8       |    |		Load_Top	At_Offset_0
039f 1c00       |    |		Execute_Immediate	Run_Utility,0x0
03a0			BODY_0398:
03a0 4800       |H   |		Short_Literal	0x0
03a1 a5fd       |    |		Store_Unchecked	0x2,-0x3
03a2 e007       |    |		Load	0x0,0x7
03a3 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
03a4 4801       |H   |		Short_Literal	0x1
03a5 0092 09a6  |    |		Action	Push_String_Extended,0x9a6					; "Destroy (Trace_Command => "
03a7 e5fe       |    |		Load	0x2,-0x2
03a8 00e1       |    |		Load_Encached	Boolean_Cache
03a9 011c       |    |		Execute	Any,Convert_Unchecked
03aa 1c01       |    |		Execute_Immediate	Run_Utility,0x1
03ab 01cc       |    |		Execute	Vector,Catenate
03ac 0092 099e  |    |		Action	Push_String_Extended,0x99e					; ")."
03ae 01cc       |    |		Execute	Vector,Catenate
03af e008       |    |		Load	0x0,0x8
03b0 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
03b1 00db       |    |		Load_Top	At_Offset_3
03b2 0217       |    |		Execute	Heap_Access,All_Reference
03b3 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
03b4 0f01       |    |		Execute_Immediate	Equal,0x1
03b5 7042       |pB  |		Jump_Nonzero	0x3f8
03b6 00db       |    |		Load_Top	At_Offset_3
03b7 0219       |    |		Execute	Heap_Access,All_Read
03b8 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
03b9 00d9       |    |		Load_Top	At_Offset_1
03ba 00d9       |    |		Load_Top	At_Offset_1
03bb e5fe       |    |		Load	0x2,-0x2
03bc e003       |    |		Load	0x0,0x3
03bd 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
03be 00d1       |    |		Pop_Control	Pop_Count_1
03bf c402       |    |		Store	0x2,0x2
03c0 00d1       |    |		Pop_Control	Pop_Count_1
03c1 4802       |H   |		Short_Literal	0x2
03c2 00d9       |    |		Load_Top	At_Offset_1
03c3 e004       |    |		Load	0x0,0x4
03c4 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
03c5 6816       |h   |		Jump_Zero	0x3dc
03c6 4801       |H   |		Short_Literal	0x1
03c7 4801       |H   |		Short_Literal	0x1
03c8 e009       |    |		Load	0x0,0x9
03c9 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
03ca 035b       | [  |		Declare_Type	Array,Constrained
03cb 0337       | 7  |		Declare_Variable	Array
03cc 00d9       |    |		Load_Top	At_Offset_1
03cd e004       |    |		Load	0x0,0x4
03ce 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
03cf e009       |    |		Load	0x0,0x9
03d0 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
03d1 e009       |    |		Load	0x0,0x9
03d2 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
03d3 0119       |    |		Execute	Any,Check_In_Formal_Type
03d4 4801       |H   |		Short_Literal	0x1
03d5 00da       |    |		Load_Top	At_Offset_2
03d6 01d6       |    |		Execute	Vector,Field_Write
03d7 6054       |`T  |		Indirect_Literal	Discrete,0x42c,{0x00000000, 0x0000812f}
03d8 e005       |    |		Load	0x0,0x5
03d9 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
03da a5fd       |    |		Store_Unchecked	0x2,-0x3
03db 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
03dc 4801       |H   |		Short_Literal	0x1
03dd 00d9       |    |		Load_Top	At_Offset_1
03de e004       |    |		Load	0x0,0x4
03df 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
03e0 6824       |h$  |		Jump_Zero	0x405
03e1 4801       |H   |		Short_Literal	0x1
03e2 4801       |H   |		Short_Literal	0x1
03e3 e009       |    |		Load	0x0,0x9
03e4 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
03e5 035b       | [  |		Declare_Type	Array,Constrained
03e6 0337       | 7  |		Declare_Variable	Array
03e7 00d9       |    |		Load_Top	At_Offset_1
03e8 e004       |    |		Load	0x0,0x4
03e9 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
03ea e009       |    |		Load	0x0,0x9
03eb 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
03ec e009       |    |		Load	0x0,0x9
03ed 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
03ee 0119       |    |		Execute	Any,Check_In_Formal_Type
03ef 4801       |H   |		Short_Literal	0x1
03f0 00da       |    |		Load_Top	At_Offset_2
03f1 01d6       |    |		Execute	Vector,Field_Write
03f2 4806       |H   |		Short_Literal	0x6
03f3 6034       |`4  |		Indirect_Literal	Discrete,0x428,{0x00000000, 0x000081d3}
03f4 e005       |    |		Load	0x0,0x5
03f5 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
03f6 a5fd       |    |		Store_Unchecked	0x2,-0x3
03f7 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
03f8 00db       |    |		Load_Top	At_Offset_3
03f9 0219       |    |		Execute	Heap_Access,All_Read
03fa e005       |    |		Load	0x0,0x5
03fb 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
03fc 00d9       |    |		Load_Top	At_Offset_1
03fd 2e02       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
03fe e5fe       |    |		Load	0x2,-0x2
03ff e002       |    |		Load	0x0,0x2
0400 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0401 00da       |    |		Load_Top	At_Offset_2
0402 2a02       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
0403 c5fd       |    |		Store	0x2,-0x3
0404 00d1       |    |		Pop_Control	Pop_Count_1
0405 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0406			TRAP_0398:
0406 0007       |    |		Action	Break_Optional
0407 4801       |H   |		Short_Literal	0x1
0408 4802       |H   |		Short_Literal	0x2
0409 e009       |    |		Load	0x0,0x9
040a 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
040b 035b       | [  |		Declare_Type	Array,Constrained
040c 0337       | 7  |		Declare_Variable	Array
040d 0092 09a7  |    |		Action	Push_String_Extended,0x9a7					; "Destroy"
040f e009       |    |		Load	0x0,0x9
0410 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0411 e009       |    |		Load	0x0,0x9
0412 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0413 0119       |    |		Execute	Any,Check_In_Formal_Type
0414 4801       |H   |		Short_Literal	0x1
0415 00da       |    |		Load_Top	At_Offset_2
0416 01d6       |    |		Execute	Vector,Field_Write
0417 4800       |H   |		Short_Literal	0x0
0418 4801       |H   |		Short_Literal	0x1
0419 e00e       |    |		Load	0x0,0xe
041a 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
041b e009       |    |		Load	0x0,0x9
041c 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
041d e009       |    |		Load	0x0,0x9
041e 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
041f 0119       |    |		Execute	Any,Check_In_Formal_Type
0420 4802       |H   |		Short_Literal	0x2
0421 00da       |    |		Load_Top	At_Offset_2
0422 01d6       |    |		Execute	Vector,Field_Write
0423 6764       |gd  |		Indirect_Literal	Discrete,0x388,{0x00000000, 0x0000812d}
0424 e005       |    |		Load	0x0,0x5
0425 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0426 a5fd       |    |		Store_Unchecked	0x2,-0x3
0427 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0428 0000 0000  |    |		.LITERAL	{0x00000000, 0x000081d3}
042c 0000 0000  |    |		.LITERAL	{0x00000000, 0x0000812f}
0430 ; --------------------------------------------------------------------------------------
0430 ; SUBPROGRAM
0430 ; --------------------------------------------------------------------------------------
0430 0438       | 8  |		.CONST	0x0438								; Address of begin
0431 04ba       |    |		.CONST	0x04ba								; Address of exception handler
0432 0002       |    |		.CONST	0x0002								; Number of locals
0433			INIT_0430:
0433 e004       |    |		Load	0x0,0x4
0434 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0435 02c7       |    |		Declare_Variable	Any
0436 00d8       |    |		Load_Top	At_Offset_0
0437 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0438			BODY_0430:
0438 4800       |H   |		Short_Literal	0x0
0439 a5fb       |    |		Store_Unchecked	0x2,-0x5
043a e007       |    |		Load	0x0,0x7
043b 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
043c 4801       |H   |		Short_Literal	0x1
043d 0092 09a8  |    |		Action	Push_String_Extended,0x9a8					; "Set_Remote_Directory (Set_Directory => \x22"
043f e5ff       |    |		Load	0x2,-0x1
0440 01cc       |    |		Execute	Vector,Catenate
0441 0092 09a1  |    |		Action	Push_String_Extended,0x9a1					; "\x22, Set_Library => \x22"
0443 01cc       |    |		Execute	Vector,Catenate
0444 e5fd       |    |		Load	0x2,-0x3
0445 01cc       |    |		Execute	Vector,Catenate
0446 0092 09a9  |    |		Action	Push_String_Extended,0x9a9					; "\x22, Trace_Command => "
0448 01cc       |    |		Execute	Vector,Catenate
0449 e5fc       |    |		Load	0x2,-0x4
044a 00e1       |    |		Load_Encached	Boolean_Cache
044b 011c       |    |		Execute	Any,Convert_Unchecked
044c 1c01       |    |		Execute_Immediate	Run_Utility,0x1
044d 01cc       |    |		Execute	Vector,Catenate
044e 0092 099e  |    |		Action	Push_String_Extended,0x99e					; ")."
0450 01cc       |    |		Execute	Vector,Catenate
0451 e008       |    |		Load	0x0,0x8
0452 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0453 e5fe       |    |		Load	0x2,-0x2
0454 0217       |    |		Execute	Heap_Access,All_Reference
0455 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0456 0f01       |    |		Execute_Immediate	Equal,0x1
0457 7056       |pV  |		Jump_Nonzero	0x4ae
0458 00d8       |    |		Load_Top	At_Offset_0
0459 e5fc       |    |		Load	0x2,-0x4
045a e5fd       |    |		Load	0x2,-0x3
045b e5fe       |    |		Load	0x2,-0x2
045c 0217       |    |		Execute	Heap_Access,All_Reference
045d 2603       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3
045e e5ff       |    |		Load	0x2,-0x1
045f e003       |    |		Load	0x0,0x3
0460 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
0461 c402       |    |		Store	0x2,0x2
0462 4802       |H   |		Short_Literal	0x2
0463 00d9       |    |		Load_Top	At_Offset_1
0464 e004       |    |		Load	0x0,0x4
0465 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
0466 6822       |h"  |		Jump_Zero	0x489
0467 4801       |H   |		Short_Literal	0x1
0468 4801       |H   |		Short_Literal	0x1
0469 e009       |    |		Load	0x0,0x9
046a 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
046b 035b       | [  |		Declare_Type	Array,Constrained
046c 0337       | 7  |		Declare_Variable	Array
046d 0092 09aa  |    |		Action	Push_String_Extended,0x9aa					; "Command \x22"
046f e5ff       |    |		Load	0x2,-0x1
0470 01cc       |    |		Execute	Vector,Catenate
0471 0092 09ab  |    |		Action	Push_String_Extended,0x9ab					; "\x22 failed to set remote directory."
0473 01cc       |    |		Execute	Vector,Catenate
0474 0092 09ac  |    |		Action	Push_String_Extended,0x9ac					; "  Got bad status code = "
0476 01cc       |    |		Execute	Vector,Catenate
0477 00da       |    |		Load_Top	At_Offset_2
0478 e004       |    |		Load	0x0,0x4
0479 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
047a 01cc       |    |		Execute	Vector,Catenate
047b e009       |    |		Load	0x0,0x9
047c 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
047d e009       |    |		Load	0x0,0x9
047e 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
047f 0119       |    |		Execute	Any,Check_In_Formal_Type
0480 4801       |H   |		Short_Literal	0x1
0481 00da       |    |		Load_Top	At_Offset_2
0482 01d6       |    |		Execute	Vector,Field_Write
0483 4807       |H   |		Short_Literal	0x7
0484 605f       |`_  |		Indirect_Literal	Discrete,0x4e4,{0x00000000, 0x00008128}
0485 e005       |    |		Load	0x0,0x5
0486 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0487 a5fb       |    |		Store_Unchecked	0x2,-0x5
0488 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
0489 4801       |H   |		Short_Literal	0x1
048a 00d9       |    |		Load_Top	At_Offset_1
048b e004       |    |		Load	0x0,0x4
048c 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
048d 681f       |h   |		Jump_Zero	0x4ad
048e 4801       |H   |		Short_Literal	0x1
048f 4802       |H   |		Short_Literal	0x2
0490 e009       |    |		Load	0x0,0x9
0491 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0492 035b       | [  |		Declare_Type	Array,Constrained
0493 0337       | 7  |		Declare_Variable	Array
0494 e5ff       |    |		Load	0x2,-0x1
0495 e009       |    |		Load	0x0,0x9
0496 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0497 e009       |    |		Load	0x0,0x9
0498 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0499 0119       |    |		Execute	Any,Check_In_Formal_Type
049a 4801       |H   |		Short_Literal	0x1
049b 00da       |    |		Load_Top	At_Offset_2
049c 01d6       |    |		Execute	Vector,Field_Write
049d 00d9       |    |		Load_Top	At_Offset_1
049e e004       |    |		Load	0x0,0x4
049f 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
04a0 e009       |    |		Load	0x0,0x9
04a1 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
04a2 e009       |    |		Load	0x0,0x9
04a3 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
04a4 0119       |    |		Execute	Any,Check_In_Formal_Type
04a5 4802       |H   |		Short_Literal	0x2
04a6 00da       |    |		Load_Top	At_Offset_2
04a7 01d6       |    |		Execute	Vector,Field_Write
04a8 4806       |H   |		Short_Literal	0x6
04a9 6036       |`6  |		Indirect_Literal	Discrete,0x4e0,{0x00000000, 0x000081d4}
04aa e005       |    |		Load	0x0,0x5
04ab 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
04ac a5fb       |    |		Store_Unchecked	0x2,-0x5
04ad 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
04ae e005       |    |		Load	0x0,0x5
04af 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
04b0 e5fc       |    |		Load	0x2,-0x4
04b1 e5fd       |    |		Load	0x2,-0x3
04b2 e5fe       |    |		Load	0x2,-0x2
04b3 0217       |    |		Execute	Heap_Access,All_Reference
04b4 2e02       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
04b5 e5ff       |    |		Load	0x2,-0x1
04b6 e002       |    |		Load	0x0,0x2
04b7 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
04b8 c5fb       |    |		Store	0x2,-0x5
04b9 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
04ba			TRAP_0430:
04ba 0007       |    |		Action	Break_Optional
04bb 4801       |H   |		Short_Literal	0x1
04bc 4802       |H   |		Short_Literal	0x2
04bd e009       |    |		Load	0x0,0x9
04be 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
04bf 035b       | [  |		Declare_Type	Array,Constrained
04c0 0337       | 7  |		Declare_Variable	Array
04c1 0092 09ad  |    |		Action	Push_String_Extended,0x9ad					; "Set_Remote_Directory"
04c3 e009       |    |		Load	0x0,0x9
04c4 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
04c5 e009       |    |		Load	0x0,0x9
04c6 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
04c7 0119       |    |		Execute	Any,Check_In_Formal_Type
04c8 4801       |H   |		Short_Literal	0x1
04c9 00da       |    |		Load_Top	At_Offset_2
04ca 01d6       |    |		Execute	Vector,Field_Write
04cb 4800       |H   |		Short_Literal	0x0
04cc 4801       |H   |		Short_Literal	0x1
04cd e00e       |    |		Load	0x0,0xe
04ce 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
04cf e009       |    |		Load	0x0,0x9
04d0 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
04d1 e009       |    |		Load	0x0,0x9
04d2 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
04d3 0119       |    |		Execute	Any,Check_In_Formal_Type
04d4 4802       |H   |		Short_Literal	0x2
04d5 00da       |    |		Load_Top	At_Offset_2
04d6 01d6       |    |		Execute	Vector,Field_Write
04d7 6004       |`   |		Indirect_Literal	Discrete,0x4dc,{0x00000000, 0x0000812d}
04d8 e005       |    |		Load	0x0,0x5
04d9 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
04da a5fb       |    |		Store_Unchecked	0x2,-0x5
04db 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
04dc 0000 0000  |    |		.LITERAL	{0x00000000, 0x0000812d}
04e0 0000 0000  |    |		.LITERAL	{0x00000000, 0x000081d4}
04e4 0000 0000  |    |		.LITERAL	{0x00000000, 0x00008128}
04e8 ; --------------------------------------------------------------------------------------
04e8 ; SUBPROGRAM
04e8 ; --------------------------------------------------------------------------------------
04e8 04f2       |    |		.CONST	0x04f2								; Address of begin
04e9 057a       | z  |		.CONST	0x057a								; Address of exception handler
04ea 0003       |    |		.CONST	0x0003								; Number of locals
04eb			INIT_04e8:
04eb e004       |    |		Load	0x0,0x4
04ec 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
04ed 02c7       |    |		Declare_Variable	Any
04ee 00d8       |    |		Load_Top	At_Offset_0
04ef 1c00       |    |		Execute_Immediate	Run_Utility,0x0
04f0 e003       |    |		Load	0x0,0x3
04f1 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
04f2			BODY_04e8:
04f2 4800       |H   |		Short_Literal	0x0
04f3 a5fa       |    |		Store_Unchecked	0x2,-0x6
04f4 e007       |    |		Load	0x0,0x7
04f5 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
04f6 4801       |H   |		Short_Literal	0x1
04f7 0092 09ae  |    |		Action	Push_String_Extended,0x9ae					; "Put (Host_File_Name => \x22"
04f9 e5ff       |    |		Load	0x2,-0x1
04fa 01cc       |    |		Execute	Vector,Catenate
04fb 0092 09af  |    |		Action	Push_String_Extended,0x9af					; "\x22, Target_File_Name => \x22"
04fd 01cc       |    |		Execute	Vector,Catenate
04fe e5fe       |    |		Load	0x2,-0x2
04ff 01cc       |    |		Execute	Vector,Catenate
0500 0092 09a9  |    |		Action	Push_String_Extended,0x9a9					; "\x22, Trace_Command => "
0502 01cc       |    |		Execute	Vector,Catenate
0503 e5fb       |    |		Load	0x2,-0x5
0504 00e1       |    |		Load_Encached	Boolean_Cache
0505 011c       |    |		Execute	Any,Convert_Unchecked
0506 1c01       |    |		Execute_Immediate	Run_Utility,0x1
0507 01cc       |    |		Execute	Vector,Catenate
0508 0092 099e  |    |		Action	Push_String_Extended,0x99e					; ")."
050a 01cc       |    |		Execute	Vector,Catenate
050b e008       |    |		Load	0x0,0x8
050c 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
050d e5fd       |    |		Load	0x2,-0x3
050e 0217       |    |		Execute	Heap_Access,All_Reference
050f 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0510 0f01       |    |		Execute_Immediate	Equal,0x1
0511 705b       |p[  |		Jump_Nonzero	0x56d
0512 e5fc       |    |		Load	0x2,-0x4
0513 7003       |p   |		Jump_Nonzero	0x517
0514 4800       |H   |		Short_Literal	0x0
0515 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
0516 7802       |x   |		Jump	0x519
0517 4801       |H   |		Short_Literal	0x1
0518 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
0519 00d9       |    |		Load_Top	At_Offset_1
051a e5fb       |    |		Load	0x2,-0x5
051b 00da       |    |		Load_Top	At_Offset_2
051c e5fd       |    |		Load	0x2,-0x3
051d 0217       |    |		Execute	Heap_Access,All_Reference
051e 2603       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3
051f e5fe       |    |		Load	0x2,-0x2
0520 e5ff       |    |		Load	0x2,-0x1
0521 e003       |    |		Load	0x0,0x3
0522 182b       | +  |		Execute	Package,Field_Execute,Field_Number 0x2b
0523 c402       |    |		Store	0x2,0x2
0524 4802       |H   |		Short_Literal	0x2
0525 00da       |    |		Load_Top	At_Offset_2
0526 e004       |    |		Load	0x0,0x4
0527 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
0528 6828       |h(  |		Jump_Zero	0x551
0529 4801       |H   |		Short_Literal	0x1
052a 4803       |H   |		Short_Literal	0x3
052b e009       |    |		Load	0x0,0x9
052c 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
052d 035b       | [  |		Declare_Type	Array,Constrained
052e 0337       | 7  |		Declare_Variable	Array
052f e5ff       |    |		Load	0x2,-0x1
0530 e009       |    |		Load	0x0,0x9
0531 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0532 e009       |    |		Load	0x0,0x9
0533 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0534 0119       |    |		Execute	Any,Check_In_Formal_Type
0535 4801       |H   |		Short_Literal	0x1
0536 00da       |    |		Load_Top	At_Offset_2
0537 01d6       |    |		Execute	Vector,Field_Write
0538 e5fe       |    |		Load	0x2,-0x2
0539 e009       |    |		Load	0x0,0x9
053a 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
053b e009       |    |		Load	0x0,0x9
053c 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
053d 0119       |    |		Execute	Any,Check_In_Formal_Type
053e 4802       |H   |		Short_Literal	0x2
053f 00da       |    |		Load_Top	At_Offset_2
0540 01d6       |    |		Execute	Vector,Field_Write
0541 00da       |    |		Load_Top	At_Offset_2
0542 e004       |    |		Load	0x0,0x4
0543 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0544 e009       |    |		Load	0x0,0x9
0545 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0546 e009       |    |		Load	0x0,0x9
0547 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0548 0119       |    |		Execute	Any,Check_In_Formal_Type
0549 4803       |H   |		Short_Literal	0x3
054a 00da       |    |		Load_Top	At_Offset_2
054b 01d6       |    |		Execute	Vector,Field_Write
054c 6053       |`S  |		Indirect_Literal	Discrete,0x5a0,{0x00000000, 0x00008134}
054d e005       |    |		Load	0x0,0x5
054e 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
054f a5fa       |    |		Store_Unchecked	0x2,-0x6
0550 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
0551 4801       |H   |		Short_Literal	0x1
0552 00da       |    |		Load_Top	At_Offset_2
0553 e004       |    |		Load	0x0,0x4
0554 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
0555 6816       |h   |		Jump_Zero	0x56c
0556 4801       |H   |		Short_Literal	0x1
0557 4801       |H   |		Short_Literal	0x1
0558 e009       |    |		Load	0x0,0x9
0559 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
055a 035b       | [  |		Declare_Type	Array,Constrained
055b 0337       | 7  |		Declare_Variable	Array
055c 00da       |    |		Load_Top	At_Offset_2
055d e004       |    |		Load	0x0,0x4
055e 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
055f e009       |    |		Load	0x0,0x9
0560 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0561 e009       |    |		Load	0x0,0x9
0562 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0563 0119       |    |		Execute	Any,Check_In_Formal_Type
0564 4801       |H   |		Short_Literal	0x1
0565 00da       |    |		Load_Top	At_Offset_2
0566 01d6       |    |		Execute	Vector,Field_Write
0567 4806       |H   |		Short_Literal	0x6
0568 6033       |`3  |		Indirect_Literal	Discrete,0x59c,{0x00000000, 0x000081d5}
0569 e005       |    |		Load	0x0,0x5
056a 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
056b a5fa       |    |		Store_Unchecked	0x2,-0x6
056c 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
056d e005       |    |		Load	0x0,0x5
056e 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
056f e5fb       |    |		Load	0x2,-0x5
0570 e5fc       |    |		Load	0x2,-0x4
0571 e5fd       |    |		Load	0x2,-0x3
0572 0217       |    |		Execute	Heap_Access,All_Reference
0573 2e02       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
0574 e5fe       |    |		Load	0x2,-0x2
0575 e5ff       |    |		Load	0x2,-0x1
0576 e002       |    |		Load	0x0,0x2
0577 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0578 c5fa       |    |		Store	0x2,-0x6
0579 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
057a			TRAP_04e8:
057a 0007       |    |		Action	Break_Optional
057b 4801       |H   |		Short_Literal	0x1
057c 4802       |H   |		Short_Literal	0x2
057d e009       |    |		Load	0x0,0x9
057e 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
057f 035b       | [  |		Declare_Type	Array,Constrained
0580 0337       | 7  |		Declare_Variable	Array
0581 0092 09b0  |    |		Action	Push_String_Extended,0x9b0					; "Put"
0583 e009       |    |		Load	0x0,0x9
0584 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0585 e009       |    |		Load	0x0,0x9
0586 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0587 0119       |    |		Execute	Any,Check_In_Formal_Type
0588 4801       |H   |		Short_Literal	0x1
0589 00da       |    |		Load_Top	At_Offset_2
058a 01d6       |    |		Execute	Vector,Field_Write
058b 4800       |H   |		Short_Literal	0x0
058c 4801       |H   |		Short_Literal	0x1
058d e00e       |    |		Load	0x0,0xe
058e 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
058f e009       |    |		Load	0x0,0x9
0590 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0591 e009       |    |		Load	0x0,0x9
0592 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0593 0119       |    |		Execute	Any,Check_In_Formal_Type
0594 4802       |H   |		Short_Literal	0x2
0595 00da       |    |		Load_Top	At_Offset_2
0596 01d6       |    |		Execute	Vector,Field_Write
0597 6744       |gD  |		Indirect_Literal	Discrete,0x4dc,{0x00000000, 0x0000812d}
0598 e005       |    |		Load	0x0,0x5
0599 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
059a a5fa       |    |		Store_Unchecked	0x2,-0x6
059b 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
059c 0000 0000  |    |		.LITERAL	{0x00000000, 0x000081d5}
05a0 0000 0000  |    |		.LITERAL	{0x00000000, 0x00008134}
05a4 0000 0000  |    |		.BLANK	0000[0x4]
05a8 ; --------------------------------------------------------------------------------------
05a8 ; SUBPROGRAM
05a8 ; --------------------------------------------------------------------------------------
05a8 05b2       |    |		.CONST	0x05b2								; Address of begin
05a9 063a       | :  |		.CONST	0x063a								; Address of exception handler
05aa 0003       |    |		.CONST	0x0003								; Number of locals
05ab			INIT_05a8:
05ab e004       |    |		Load	0x0,0x4
05ac 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
05ad 02c7       |    |		Declare_Variable	Any
05ae 00d8       |    |		Load_Top	At_Offset_0
05af 1c00       |    |		Execute_Immediate	Run_Utility,0x0
05b0 e003       |    |		Load	0x0,0x3
05b1 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
05b2			BODY_05a8:
05b2 4800       |H   |		Short_Literal	0x0
05b3 a5fa       |    |		Store_Unchecked	0x2,-0x6
05b4 e007       |    |		Load	0x0,0x7
05b5 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
05b6 4801       |H   |		Short_Literal	0x1
05b7 0092 09b1  |    |		Action	Push_String_Extended,0x9b1					; "Get (Host_File_Name => \x22"
05b9 e5ff       |    |		Load	0x2,-0x1
05ba 01cc       |    |		Execute	Vector,Catenate
05bb 0092 09af  |    |		Action	Push_String_Extended,0x9af					; "\x22, Target_File_Name => \x22"
05bd 01cc       |    |		Execute	Vector,Catenate
05be e5fe       |    |		Load	0x2,-0x2
05bf 01cc       |    |		Execute	Vector,Catenate
05c0 0092 09a9  |    |		Action	Push_String_Extended,0x9a9					; "\x22, Trace_Command => "
05c2 01cc       |    |		Execute	Vector,Catenate
05c3 e5fb       |    |		Load	0x2,-0x5
05c4 00e1       |    |		Load_Encached	Boolean_Cache
05c5 011c       |    |		Execute	Any,Convert_Unchecked
05c6 1c01       |    |		Execute_Immediate	Run_Utility,0x1
05c7 01cc       |    |		Execute	Vector,Catenate
05c8 0092 099e  |    |		Action	Push_String_Extended,0x99e					; ")."
05ca 01cc       |    |		Execute	Vector,Catenate
05cb e008       |    |		Load	0x0,0x8
05cc 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
05cd e5fd       |    |		Load	0x2,-0x3
05ce 0217       |    |		Execute	Heap_Access,All_Reference
05cf 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
05d0 0f01       |    |		Execute_Immediate	Equal,0x1
05d1 705b       |p[  |		Jump_Nonzero	0x62d
05d2 e5fc       |    |		Load	0x2,-0x4
05d3 7003       |p   |		Jump_Nonzero	0x5d7
05d4 4800       |H   |		Short_Literal	0x0
05d5 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
05d6 7802       |x   |		Jump	0x5d9
05d7 4801       |H   |		Short_Literal	0x1
05d8 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
05d9 00d9       |    |		Load_Top	At_Offset_1
05da e5fb       |    |		Load	0x2,-0x5
05db 00da       |    |		Load_Top	At_Offset_2
05dc e5fd       |    |		Load	0x2,-0x3
05dd 0217       |    |		Execute	Heap_Access,All_Reference
05de 2603       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3
05df e5fe       |    |		Load	0x2,-0x2
05e0 e5ff       |    |		Load	0x2,-0x1
05e1 e003       |    |		Load	0x0,0x3
05e2 182c       | ,  |		Execute	Package,Field_Execute,Field_Number 0x2c
05e3 c402       |    |		Store	0x2,0x2
05e4 4802       |H   |		Short_Literal	0x2
05e5 00da       |    |		Load_Top	At_Offset_2
05e6 e004       |    |		Load	0x0,0x4
05e7 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
05e8 6828       |h(  |		Jump_Zero	0x611
05e9 4801       |H   |		Short_Literal	0x1
05ea 4803       |H   |		Short_Literal	0x3
05eb e009       |    |		Load	0x0,0x9
05ec 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
05ed 035b       | [  |		Declare_Type	Array,Constrained
05ee 0337       | 7  |		Declare_Variable	Array
05ef e5ff       |    |		Load	0x2,-0x1
05f0 e009       |    |		Load	0x0,0x9
05f1 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
05f2 e009       |    |		Load	0x0,0x9
05f3 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
05f4 0119       |    |		Execute	Any,Check_In_Formal_Type
05f5 4801       |H   |		Short_Literal	0x1
05f6 00da       |    |		Load_Top	At_Offset_2
05f7 01d6       |    |		Execute	Vector,Field_Write
05f8 e5fe       |    |		Load	0x2,-0x2
05f9 e009       |    |		Load	0x0,0x9
05fa 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
05fb e009       |    |		Load	0x0,0x9
05fc 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
05fd 0119       |    |		Execute	Any,Check_In_Formal_Type
05fe 4802       |H   |		Short_Literal	0x2
05ff 00da       |    |		Load_Top	At_Offset_2
0600 01d6       |    |		Execute	Vector,Field_Write
0601 00da       |    |		Load_Top	At_Offset_2
0602 e004       |    |		Load	0x0,0x4
0603 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0604 e009       |    |		Load	0x0,0x9
0605 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0606 e009       |    |		Load	0x0,0x9
0607 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0608 0119       |    |		Execute	Any,Check_In_Formal_Type
0609 4803       |H   |		Short_Literal	0x3
060a 00da       |    |		Load_Top	At_Offset_2
060b 01d6       |    |		Execute	Vector,Field_Write
060c 6057       |`W  |		Indirect_Literal	Discrete,0x664,{0x00000000, 0x00008133}
060d e005       |    |		Load	0x0,0x5
060e 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
060f a5fa       |    |		Store_Unchecked	0x2,-0x6
0610 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
0611 4801       |H   |		Short_Literal	0x1
0612 00da       |    |		Load_Top	At_Offset_2
0613 e004       |    |		Load	0x0,0x4
0614 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
0615 6816       |h   |		Jump_Zero	0x62c
0616 4801       |H   |		Short_Literal	0x1
0617 4801       |H   |		Short_Literal	0x1
0618 e009       |    |		Load	0x0,0x9
0619 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
061a 035b       | [  |		Declare_Type	Array,Constrained
061b 0337       | 7  |		Declare_Variable	Array
061c 00da       |    |		Load_Top	At_Offset_2
061d e004       |    |		Load	0x0,0x4
061e 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
061f e009       |    |		Load	0x0,0x9
0620 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0621 e009       |    |		Load	0x0,0x9
0622 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0623 0119       |    |		Execute	Any,Check_In_Formal_Type
0624 4801       |H   |		Short_Literal	0x1
0625 00da       |    |		Load_Top	At_Offset_2
0626 01d6       |    |		Execute	Vector,Field_Write
0627 4806       |H   |		Short_Literal	0x6
0628 6037       |`7  |		Indirect_Literal	Discrete,0x660,{0x00000000, 0x000081d6}
0629 e005       |    |		Load	0x0,0x5
062a 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
062b a5fa       |    |		Store_Unchecked	0x2,-0x6
062c 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
062d e005       |    |		Load	0x0,0x5
062e 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
062f e5fb       |    |		Load	0x2,-0x5
0630 e5fc       |    |		Load	0x2,-0x4
0631 e5fd       |    |		Load	0x2,-0x3
0632 0217       |    |		Execute	Heap_Access,All_Reference
0633 2e02       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
0634 e5fe       |    |		Load	0x2,-0x2
0635 e5ff       |    |		Load	0x2,-0x1
0636 e002       |    |		Load	0x0,0x2
0637 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0638 c5fa       |    |		Store	0x2,-0x6
0639 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
063a			TRAP_05a8:
063a 0007       |    |		Action	Break_Optional
063b 4801       |H   |		Short_Literal	0x1
063c 4802       |H   |		Short_Literal	0x2
063d e009       |    |		Load	0x0,0x9
063e 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
063f 035b       | [  |		Declare_Type	Array,Constrained
0640 0337       | 7  |		Declare_Variable	Array
0641 0092 09b2  |    |		Action	Push_String_Extended,0x9b2					; "Get"
0643 e009       |    |		Load	0x0,0x9
0644 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0645 e009       |    |		Load	0x0,0x9
0646 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0647 0119       |    |		Execute	Any,Check_In_Formal_Type
0648 4801       |H   |		Short_Literal	0x1
0649 00da       |    |		Load_Top	At_Offset_2
064a 01d6       |    |		Execute	Vector,Field_Write
064b 4800       |H   |		Short_Literal	0x0
064c 4801       |H   |		Short_Literal	0x1
064d e00e       |    |		Load	0x0,0xe
064e 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
064f e009       |    |		Load	0x0,0x9
0650 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0651 e009       |    |		Load	0x0,0x9
0652 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0653 0119       |    |		Execute	Any,Check_In_Formal_Type
0654 4802       |H   |		Short_Literal	0x2
0655 00da       |    |		Load_Top	At_Offset_2
0656 01d6       |    |		Execute	Vector,Field_Write
0657 6004       |`   |		Indirect_Literal	Discrete,0x65c,{0x00000000, 0x0000812d}
0658 e005       |    |		Load	0x0,0x5
0659 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
065a a5fa       |    |		Store_Unchecked	0x2,-0x6
065b 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
065c 0000 0000  |    |		.LITERAL	{0x00000000, 0x0000812d}
0660 0000 0000  |    |		.LITERAL	{0x00000000, 0x000081d6}
0664 0000 0000  |    |		.LITERAL	{0x00000000, 0x00008133}
0668 ; --------------------------------------------------------------------------------------
0668 ; SUBPROGRAM
0668 ; --------------------------------------------------------------------------------------
0668 0670       | p  |		.CONST	0x0670								; Address of begin
0669 070d       |    |		.CONST	0x070d								; Address of exception handler
066a 0002       |    |		.CONST	0x0002								; Number of locals
066b			INIT_0668:
066b e004       |    |		Load	0x0,0x4
066c 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
066d 02c7       |    |		Declare_Variable	Any
066e 00d8       |    |		Load_Top	At_Offset_0
066f 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0670			BODY_0668:
0670 4800       |H   |		Short_Literal	0x0
0671 a5f8       |    |		Store_Unchecked	0x2,-0x8
0672 e007       |    |		Load	0x0,0x7
0673 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0674 4801       |H   |		Short_Literal	0x1
0675 0092 09b3  |    |		Action	Push_String_Extended,0x9b3					; "Execute_Command (Command_Line => \x22"
0677 e5ff       |    |		Load	0x2,-0x1
0678 01cc       |    |		Execute	Vector,Catenate
0679 0092 09b4  |    |		Action	Push_String_Extended,0x9b4					; "\x22, Error_Pattern => \x22"
067b 01cc       |    |		Execute	Vector,Catenate
067c e5fd       |    |		Load	0x2,-0x3
067d 01cc       |    |		Execute	Vector,Catenate
067e 0092 09b5  |    |		Action	Push_String_Extended,0x9b5					; "\x22, Parse_Error_Output => "
0680 01cc       |    |		Execute	Vector,Catenate
0681 e5fc       |    |		Load	0x2,-0x4
0682 00e1       |    |		Load_Encached	Boolean_Cache
0683 011c       |    |		Execute	Any,Convert_Unchecked
0684 1c01       |    |		Execute_Immediate	Run_Utility,0x1
0685 01cc       |    |		Execute	Vector,Catenate
0686 0092 09b6  |    |		Action	Push_String_Extended,0x9b6					; ", Parse_Standard_Output => "
0688 01cc       |    |		Execute	Vector,Catenate
0689 e5fb       |    |		Load	0x2,-0x5
068a 00e1       |    |		Load_Encached	Boolean_Cache
068b 011c       |    |		Execute	Any,Convert_Unchecked
068c 1c01       |    |		Execute_Immediate	Run_Utility,0x1
068d 01cc       |    |		Execute	Vector,Catenate
068e 0092 09b7  |    |		Action	Push_String_Extended,0x9b7					; ", Show_Parsed_Output => "
0690 01cc       |    |		Execute	Vector,Catenate
0691 e5fa       |    |		Load	0x2,-0x6
0692 00e1       |    |		Load_Encached	Boolean_Cache
0693 011c       |    |		Execute	Any,Convert_Unchecked
0694 1c01       |    |		Execute_Immediate	Run_Utility,0x1
0695 01cc       |    |		Execute	Vector,Catenate
0696 0092 099d  |    |		Action	Push_String_Extended,0x99d					; ", Trace_Command => "
0698 01cc       |    |		Execute	Vector,Catenate
0699 e5f9       |    |		Load	0x2,-0x7
069a 00e1       |    |		Load_Encached	Boolean_Cache
069b 011c       |    |		Execute	Any,Convert_Unchecked
069c 1c01       |    |		Execute_Immediate	Run_Utility,0x1
069d 01cc       |    |		Execute	Vector,Catenate
069e 0092 099e  |    |		Action	Push_String_Extended,0x99e					; ")."
06a0 01cc       |    |		Execute	Vector,Catenate
06a1 e008       |    |		Load	0x0,0x8
06a2 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
06a3 e5fe       |    |		Load	0x2,-0x2
06a4 0217       |    |		Execute	Heap_Access,All_Reference
06a5 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
06a6 0f01       |    |		Execute_Immediate	Equal,0x1
06a7 7056       |pV  |		Jump_Nonzero	0x6fe
06a8 00d8       |    |		Load_Top	At_Offset_0
06a9 e5f9       |    |		Load	0x2,-0x7
06aa e5fa       |    |		Load	0x2,-0x6
06ab e5fb       |    |		Load	0x2,-0x5
06ac e5fc       |    |		Load	0x2,-0x4
06ad e5fd       |    |		Load	0x2,-0x3
06ae e5fe       |    |		Load	0x2,-0x2
06af 0217       |    |		Execute	Heap_Access,All_Reference
06b0 2603       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3
06b1 e5ff       |    |		Load	0x2,-0x1
06b2 e003       |    |		Load	0x0,0x3
06b3 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
06b4 c402       |    |		Store	0x2,0x2
06b5 4802       |H   |		Short_Literal	0x2
06b6 00d9       |    |		Load_Top	At_Offset_1
06b7 e004       |    |		Load	0x0,0x4
06b8 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
06b9 681f       |h   |		Jump_Zero	0x6d9
06ba 4801       |H   |		Short_Literal	0x1
06bb 4802       |H   |		Short_Literal	0x2
06bc e009       |    |		Load	0x0,0x9
06bd 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
06be 035b       | [  |		Declare_Type	Array,Constrained
06bf 0337       | 7  |		Declare_Variable	Array
06c0 e5ff       |    |		Load	0x2,-0x1
06c1 e009       |    |		Load	0x0,0x9
06c2 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
06c3 e009       |    |		Load	0x0,0x9
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 00d9       |    |		Load_Top	At_Offset_1
06ca e004       |    |		Load	0x0,0x4
06cb 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
06cc e009       |    |		Load	0x0,0x9
06cd 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
06ce e009       |    |		Load	0x0,0x9
06cf 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
06d0 0119       |    |		Execute	Any,Check_In_Formal_Type
06d1 4802       |H   |		Short_Literal	0x2
06d2 00da       |    |		Load_Top	At_Offset_2
06d3 01d6       |    |		Execute	Vector,Field_Write
06d4 605f       |`_  |		Indirect_Literal	Discrete,0x734,{0x00000000, 0x00008132}
06d5 e005       |    |		Load	0x0,0x5
06d6 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
06d7 a5f8       |    |		Store_Unchecked	0x2,-0x8
06d8 4508       |E   |		Exit_Suprogram	New_Top_Offset 0x8
06d9 4801       |H   |		Short_Literal	0x1
06da 00d9       |    |		Load_Top	At_Offset_1
06db e004       |    |		Load	0x0,0x4
06dc 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
06dd 681f       |h   |		Jump_Zero	0x6fd
06de 4801       |H   |		Short_Literal	0x1
06df 4802       |H   |		Short_Literal	0x2
06e0 e009       |    |		Load	0x0,0x9
06e1 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
06e2 035b       | [  |		Declare_Type	Array,Constrained
06e3 0337       | 7  |		Declare_Variable	Array
06e4 e5ff       |    |		Load	0x2,-0x1
06e5 e009       |    |		Load	0x0,0x9
06e6 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
06e7 e009       |    |		Load	0x0,0x9
06e8 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
06e9 0119       |    |		Execute	Any,Check_In_Formal_Type
06ea 4801       |H   |		Short_Literal	0x1
06eb 00da       |    |		Load_Top	At_Offset_2
06ec 01d6       |    |		Execute	Vector,Field_Write
06ed 00d9       |    |		Load_Top	At_Offset_1
06ee e004       |    |		Load	0x0,0x4
06ef 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
06f0 e009       |    |		Load	0x0,0x9
06f1 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
06f2 e009       |    |		Load	0x0,0x9
06f3 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
06f4 0119       |    |		Execute	Any,Check_In_Formal_Type
06f5 4802       |H   |		Short_Literal	0x2
06f6 00da       |    |		Load_Top	At_Offset_2
06f7 01d6       |    |		Execute	Vector,Field_Write
06f8 4806       |H   |		Short_Literal	0x6
06f9 6036       |`6  |		Indirect_Literal	Discrete,0x730,{0x00000000, 0x000081d0}
06fa e005       |    |		Load	0x0,0x5
06fb 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
06fc a5f8       |    |		Store_Unchecked	0x2,-0x8
06fd 4508       |E   |		Exit_Suprogram	New_Top_Offset 0x8
06fe e005       |    |		Load	0x0,0x5
06ff 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0700 e5f9       |    |		Load	0x2,-0x7
0701 e5fa       |    |		Load	0x2,-0x6
0702 e5fb       |    |		Load	0x2,-0x5
0703 e5fc       |    |		Load	0x2,-0x4
0704 e5fd       |    |		Load	0x2,-0x3
0705 e5fe       |    |		Load	0x2,-0x2
0706 0217       |    |		Execute	Heap_Access,All_Reference
0707 2e02       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
0708 e5ff       |    |		Load	0x2,-0x1
0709 e002       |    |		Load	0x0,0x2
070a 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
070b c5f8       |    |		Store	0x2,-0x8
070c 4508       |E   |		Exit_Suprogram	New_Top_Offset 0x8
070d			TRAP_0668:
070d 0007       |    |		Action	Break_Optional
070e 4801       |H   |		Short_Literal	0x1
070f 4802       |H   |		Short_Literal	0x2
0710 e009       |    |		Load	0x0,0x9
0711 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0712 035b       | [  |		Declare_Type	Array,Constrained
0713 0337       | 7  |		Declare_Variable	Array
0714 0092 09b8  |    |		Action	Push_String_Extended,0x9b8					; "Execute_Command"
0716 e009       |    |		Load	0x0,0x9
0717 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0718 e009       |    |		Load	0x0,0x9
0719 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
071a 0119       |    |		Execute	Any,Check_In_Formal_Type
071b 4801       |H   |		Short_Literal	0x1
071c 00da       |    |		Load_Top	At_Offset_2
071d 01d6       |    |		Execute	Vector,Field_Write
071e 4800       |H   |		Short_Literal	0x0
071f 4801       |H   |		Short_Literal	0x1
0720 e00e       |    |		Load	0x0,0xe
0721 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0722 e009       |    |		Load	0x0,0x9
0723 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0724 e009       |    |		Load	0x0,0x9
0725 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0726 0119       |    |		Execute	Any,Check_In_Formal_Type
0727 4802       |H   |		Short_Literal	0x2
0728 00da       |    |		Load_Top	At_Offset_2
0729 01d6       |    |		Execute	Vector,Field_Write
072a 6731       |g1  |		Indirect_Literal	Discrete,0x65c,{0x00000000, 0x0000812d}
072b e005       |    |		Load	0x0,0x5
072c 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
072d a5f8       |    |		Store_Unchecked	0x2,-0x8
072e 4508       |E   |		Exit_Suprogram	New_Top_Offset 0x8
072f 0000       |    |		.XXX[0x1]
0730 0000 0000  |    |		.LITERAL	{0x00000000, 0x000081d0}
0734 0000 0000  |    |		.LITERAL	{0x00000000, 0x00008132}
0738 ; --------------------------------------------------------------------------------------
0738 ; SUBPROGRAM
0738 ; --------------------------------------------------------------------------------------
0738 0740       | @  |		.CONST	0x0740								; Address of begin
0739 07aa       |    |		.CONST	0x07aa								; Address of exception handler
073a 0002       |    |		.CONST	0x0002								; Number of locals
073b			INIT_0738:
073b e004       |    |		Load	0x0,0x4
073c 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
073d 02c7       |    |		Declare_Variable	Any
073e 00d8       |    |		Load_Top	At_Offset_0
073f 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0740			BODY_0738:
0740 4800       |H   |		Short_Literal	0x0
0741 a5fc       |    |		Store_Unchecked	0x2,-0x4
0742 4800       |H   |		Short_Literal	0x0
0743 4801       |H   |		Short_Literal	0x1
0744 4801       |H   |		Short_Literal	0x1
0745 608e       |`   |		Indirect_Literal	Discrete,0x7d4,{0x00000000, 0x0000076d}
0746 e00f       |    |		Load	0x0,0xf
0747 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0748 c5fb       |    |		Store	0x2,-0x5
0749 e007       |    |		Load	0x0,0x7
074a 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
074b 4801       |H   |		Short_Literal	0x1
074c 0092 09b9  |    |		Action	Push_String_Extended,0x9b9					; "Unit_Update_Time (Target_File_Name => \x22"
074e e5ff       |    |		Load	0x2,-0x1
074f 01cc       |    |		Execute	Vector,Catenate
0750 0092 09a9  |    |		Action	Push_String_Extended,0x9a9					; "\x22, Trace_Command => "
0752 01cc       |    |		Execute	Vector,Catenate
0753 e5fd       |    |		Load	0x2,-0x3
0754 00e1       |    |		Load_Encached	Boolean_Cache
0755 011c       |    |		Execute	Any,Convert_Unchecked
0756 1c01       |    |		Execute_Immediate	Run_Utility,0x1
0757 01cc       |    |		Execute	Vector,Catenate
0758 0092 099e  |    |		Action	Push_String_Extended,0x99e					; ")."
075a 01cc       |    |		Execute	Vector,Catenate
075b e008       |    |		Load	0x0,0x8
075c 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
075d e5fe       |    |		Load	0x2,-0x2
075e 0217       |    |		Execute	Heap_Access,All_Reference
075f 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0760 0f01       |    |		Execute_Immediate	Equal,0x1
0761 7035       |p5  |		Jump_Nonzero	0x797
0762 e5fb       |    |		Load	0x2,-0x5
0763 0120       |    |		Execute	Any,Is_Value
0764 6803       |h   |		Jump_Zero	0x768
0765 e00f       |    |		Load	0x0,0xf
0766 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0767 7801       |x   |		Jump	0x769
0768 e5fb       |    |		Load	0x2,-0x5
0769 00d9       |    |		Load_Top	At_Offset_1
076a e5fd       |    |		Load	0x2,-0x3
076b e5fe       |    |		Load	0x2,-0x2
076c 0217       |    |		Execute	Heap_Access,All_Reference
076d 2603       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3
076e e5ff       |    |		Load	0x2,-0x1
076f e003       |    |		Load	0x0,0x3
0770 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
0771 c402       |    |		Store	0x2,0x2
0772 c5fb       |    |		Store	0x2,-0x5
0773 4802       |H   |		Short_Literal	0x2
0774 00d9       |    |		Load_Top	At_Offset_1
0775 e004       |    |		Load	0x0,0x4
0776 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
0777 681e       |h   |		Jump_Zero	0x796
0778 4801       |H   |		Short_Literal	0x1
0779 4802       |H   |		Short_Literal	0x2
077a e009       |    |		Load	0x0,0x9
077b 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
077c 035b       | [  |		Declare_Type	Array,Constrained
077d 0337       | 7  |		Declare_Variable	Array
077e e5ff       |    |		Load	0x2,-0x1
077f e009       |    |		Load	0x0,0x9
0780 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0781 e009       |    |		Load	0x0,0x9
0782 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0783 0119       |    |		Execute	Any,Check_In_Formal_Type
0784 4801       |H   |		Short_Literal	0x1
0785 00da       |    |		Load_Top	At_Offset_2
0786 01d6       |    |		Execute	Vector,Field_Write
0787 00d9       |    |		Load_Top	At_Offset_1
0788 e004       |    |		Load	0x0,0x4
0789 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
078a e009       |    |		Load	0x0,0x9
078b 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
078c e009       |    |		Load	0x0,0x9
078d 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
078e 0119       |    |		Execute	Any,Check_In_Formal_Type
078f 4802       |H   |		Short_Literal	0x2
0790 00da       |    |		Load_Top	At_Offset_2
0791 01d6       |    |		Execute	Vector,Field_Write
0792 603d       |`=  |		Indirect_Literal	Discrete,0x7d0,{0x00000000, 0x00008137}
0793 e005       |    |		Load	0x0,0x5
0794 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0795 a5fc       |    |		Store_Unchecked	0x2,-0x4
0796 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0797 e5fb       |    |		Load	0x2,-0x5
0798 0120       |    |		Execute	Any,Is_Value
0799 6803       |h   |		Jump_Zero	0x79d
079a e00f       |    |		Load	0x0,0xf
079b 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
079c 7801       |x   |		Jump	0x79e
079d e5fb       |    |		Load	0x2,-0x5
079e e005       |    |		Load	0x0,0x5
079f 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
07a0 e5fd       |    |		Load	0x2,-0x3
07a1 e5fe       |    |		Load	0x2,-0x2
07a2 0217       |    |		Execute	Heap_Access,All_Reference
07a3 2e02       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
07a4 e5ff       |    |		Load	0x2,-0x1
07a5 e002       |    |		Load	0x0,0x2
07a6 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
07a7 c5fc       |    |		Store	0x2,-0x4
07a8 c5fb       |    |		Store	0x2,-0x5
07a9 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
07aa			TRAP_0738:
07aa 0007       |    |		Action	Break_Optional
07ab 4801       |H   |		Short_Literal	0x1
07ac 4802       |H   |		Short_Literal	0x2
07ad e009       |    |		Load	0x0,0x9
07ae 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
07af 035b       | [  |		Declare_Type	Array,Constrained
07b0 0337       | 7  |		Declare_Variable	Array
07b1 0092 09ba  |    |		Action	Push_String_Extended,0x9ba					; "Unit_Update_Time"
07b3 e009       |    |		Load	0x0,0x9
07b4 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
07b5 e009       |    |		Load	0x0,0x9
07b6 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
07b7 0119       |    |		Execute	Any,Check_In_Formal_Type
07b8 4801       |H   |		Short_Literal	0x1
07b9 00da       |    |		Load_Top	At_Offset_2
07ba 01d6       |    |		Execute	Vector,Field_Write
07bb 4800       |H   |		Short_Literal	0x0
07bc 4801       |H   |		Short_Literal	0x1
07bd e00e       |    |		Load	0x0,0xe
07be 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
07bf e009       |    |		Load	0x0,0x9
07c0 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
07c1 e009       |    |		Load	0x0,0x9
07c2 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
07c3 0119       |    |		Execute	Any,Check_In_Formal_Type
07c4 4802       |H   |		Short_Literal	0x2
07c5 00da       |    |		Load_Top	At_Offset_2
07c6 01d6       |    |		Execute	Vector,Field_Write
07c7 6004       |`   |		Indirect_Literal	Discrete,0x7cc,{0x00000000, 0x0000812d}
07c8 e005       |    |		Load	0x0,0x5
07c9 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
07ca a5fc       |    |		Store_Unchecked	0x2,-0x4
07cb 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
07cc 0000 0000  |    |		.LITERAL	{0x00000000, 0x0000812d}
07d0 0000 0000  |    |		.LITERAL	{0x00000000, 0x00008137}
07d4 0000 0000  |    |		.LITERAL	{0x00000000, 0x0000076d}
07d8 ; --------------------------------------------------------------------------------------
07d8 ; SUBPROGRAM
07d8 ; --------------------------------------------------------------------------------------
07d8 07e0       |    |		.CONST	0x07e0								; Address of begin
07d9 085e       | ^  |		.CONST	0x085e								; Address of exception handler
07da 0002       |    |		.CONST	0x0002								; Number of locals
07db			INIT_07d8:
07db e004       |    |		Load	0x0,0x4
07dc 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
07dd 02c7       |    |		Declare_Variable	Any
07de 00d8       |    |		Load_Top	At_Offset_0
07df 1c00       |    |		Execute_Immediate	Run_Utility,0x0
07e0			BODY_07d8:
07e0 4800       |H   |		Short_Literal	0x0
07e1 a5fc       |    |		Store_Unchecked	0x2,-0x4
07e2 4800       |H   |		Short_Literal	0x0
07e3 a5fb       |    |		Store_Unchecked	0x2,-0x5
07e4 e007       |    |		Load	0x0,0x7
07e5 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
07e6 4801       |H   |		Short_Literal	0x1
07e7 0092 09bb  |    |		Action	Push_String_Extended,0x9bb					; "File_Exists (The_File => \x22"
07e9 e5ff       |    |		Load	0x2,-0x1
07ea 01cc       |    |		Execute	Vector,Catenate
07eb 0092 09a9  |    |		Action	Push_String_Extended,0x9a9					; "\x22, Trace_Command => "
07ed 01cc       |    |		Execute	Vector,Catenate
07ee e5fd       |    |		Load	0x2,-0x3
07ef 00e1       |    |		Load_Encached	Boolean_Cache
07f0 011c       |    |		Execute	Any,Convert_Unchecked
07f1 1c01       |    |		Execute_Immediate	Run_Utility,0x1
07f2 01cc       |    |		Execute	Vector,Catenate
07f3 0092 099e  |    |		Action	Push_String_Extended,0x99e					; ")."
07f5 01cc       |    |		Execute	Vector,Catenate
07f6 e008       |    |		Load	0x0,0x8
07f7 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
07f8 e5fe       |    |		Load	0x2,-0x2
07f9 0217       |    |		Execute	Heap_Access,All_Reference
07fa 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
07fb 0f01       |    |		Execute_Immediate	Equal,0x1
07fc 7054       |pT  |		Jump_Nonzero	0x851
07fd 00e1       |    |		Load_Encached	Boolean_Cache
07fe 00d9       |    |		Load_Top	At_Offset_1
07ff e5fd       |    |		Load	0x2,-0x3
0800 e5fe       |    |		Load	0x2,-0x2
0801 0217       |    |		Execute	Heap_Access,All_Reference
0802 2603       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3
0803 e5ff       |    |		Load	0x2,-0x1
0804 e003       |    |		Load	0x0,0x3
0805 182a       | *  |		Execute	Package,Field_Execute,Field_Number 0x2a
0806 c402       |    |		Store	0x2,0x2
0807 c5fb       |    |		Store	0x2,-0x5
0808 4802       |H   |		Short_Literal	0x2
0809 00d9       |    |		Load_Top	At_Offset_1
080a e004       |    |		Load	0x0,0x4
080b 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
080c 681f       |h   |		Jump_Zero	0x82c
080d 4801       |H   |		Short_Literal	0x1
080e 4802       |H   |		Short_Literal	0x2
080f e009       |    |		Load	0x0,0x9
0810 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0811 035b       | [  |		Declare_Type	Array,Constrained
0812 0337       | 7  |		Declare_Variable	Array
0813 e5ff       |    |		Load	0x2,-0x1
0814 e009       |    |		Load	0x0,0x9
0815 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0816 e009       |    |		Load	0x0,0x9
0817 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0818 0119       |    |		Execute	Any,Check_In_Formal_Type
0819 4801       |H   |		Short_Literal	0x1
081a 00da       |    |		Load_Top	At_Offset_2
081b 01d6       |    |		Execute	Vector,Field_Write
081c 00d9       |    |		Load_Top	At_Offset_1
081d e004       |    |		Load	0x0,0x4
081e 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
081f e009       |    |		Load	0x0,0x9
0820 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0821 e009       |    |		Load	0x0,0x9
0822 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0823 0119       |    |		Execute	Any,Check_In_Formal_Type
0824 4802       |H   |		Short_Literal	0x2
0825 00da       |    |		Load_Top	At_Offset_2
0826 01d6       |    |		Execute	Vector,Field_Write
0827 605c       |`\  |		Indirect_Literal	Discrete,0x884,{0x00000000, 0x00008162}
0828 e005       |    |		Load	0x0,0x5
0829 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
082a a5fc       |    |		Store_Unchecked	0x2,-0x4
082b 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
082c 4801       |H   |		Short_Literal	0x1
082d 00d9       |    |		Load_Top	At_Offset_1
082e e004       |    |		Load	0x0,0x4
082f 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
0830 682c       |h,  |		Jump_Zero	0x85d
0831 4801       |H   |		Short_Literal	0x1
0832 4802       |H   |		Short_Literal	0x2
0833 e009       |    |		Load	0x0,0x9
0834 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0835 035b       | [  |		Declare_Type	Array,Constrained
0836 0337       | 7  |		Declare_Variable	Array
0837 e5ff       |    |		Load	0x2,-0x1
0838 e009       |    |		Load	0x0,0x9
0839 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
083a e009       |    |		Load	0x0,0x9
083b 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
083c 0119       |    |		Execute	Any,Check_In_Formal_Type
083d 4801       |H   |		Short_Literal	0x1
083e 00da       |    |		Load_Top	At_Offset_2
083f 01d6       |    |		Execute	Vector,Field_Write
0840 00d9       |    |		Load_Top	At_Offset_1
0841 e004       |    |		Load	0x0,0x4
0842 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0843 e009       |    |		Load	0x0,0x9
0844 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0845 e009       |    |		Load	0x0,0x9
0846 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0847 0119       |    |		Execute	Any,Check_In_Formal_Type
0848 4802       |H   |		Short_Literal	0x2
0849 00da       |    |		Load_Top	At_Offset_2
084a 01d6       |    |		Execute	Vector,Field_Write
084b 4806       |H   |		Short_Literal	0x6
084c 6033       |`3  |		Indirect_Literal	Discrete,0x880,{0x00000000, 0x000081d7}
084d e005       |    |		Load	0x0,0x5
084e 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
084f a5fc       |    |		Store_Unchecked	0x2,-0x4
0850 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0851 00e1       |    |		Load_Encached	Boolean_Cache
0852 e005       |    |		Load	0x0,0x5
0853 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0854 e5fd       |    |		Load	0x2,-0x3
0855 e5fe       |    |		Load	0x2,-0x2
0856 0217       |    |		Execute	Heap_Access,All_Reference
0857 2e02       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
0858 e5ff       |    |		Load	0x2,-0x1
0859 e002       |    |		Load	0x0,0x2
085a 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
085b c5fc       |    |		Store	0x2,-0x4
085c c5fb       |    |		Store	0x2,-0x5
085d 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
085e			TRAP_07d8:
085e 0007       |    |		Action	Break_Optional
085f 4801       |H   |		Short_Literal	0x1
0860 4802       |H   |		Short_Literal	0x2
0861 e009       |    |		Load	0x0,0x9
0862 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0863 035b       | [  |		Declare_Type	Array,Constrained
0864 0337       | 7  |		Declare_Variable	Array
0865 0092 09bc  |    |		Action	Push_String_Extended,0x9bc					; "File Exists"
0867 e009       |    |		Load	0x0,0x9
0868 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0869 e009       |    |		Load	0x0,0x9
086a 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
086b 0119       |    |		Execute	Any,Check_In_Formal_Type
086c 4801       |H   |		Short_Literal	0x1
086d 00da       |    |		Load_Top	At_Offset_2
086e 01d6       |    |		Execute	Vector,Field_Write
086f 4800       |H   |		Short_Literal	0x0
0870 4801       |H   |		Short_Literal	0x1
0871 e00e       |    |		Load	0x0,0xe
0872 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0873 e009       |    |		Load	0x0,0x9
0874 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0875 e009       |    |		Load	0x0,0x9
0876 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0877 0119       |    |		Execute	Any,Check_In_Formal_Type
0878 4802       |H   |		Short_Literal	0x2
0879 00da       |    |		Load_Top	At_Offset_2
087a 01d6       |    |		Execute	Vector,Field_Write
087b 6750       |gP  |		Indirect_Literal	Discrete,0x7cc,{0x00000000, 0x0000812d}
087c e005       |    |		Load	0x0,0x5
087d 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
087e a5fc       |    |		Store_Unchecked	0x2,-0x4
087f 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0880 0000 0000  |    |		.LITERAL	{0x00000000, 0x000081d7}
0884 0000 0000  |    |		.LITERAL	{0x00000000, 0x00008162}
0888 ; --------------------------------------------------------------------------------------
0888 ; SUBPROGRAM
0888 ; SUBPROGRAM
0888 ; --------------------------------------------------------------------------------------
0888 088b       |    |		.CONST	0x088b								; Address of begin
0889 0004       |    |		.CONST	0x0004								; Address of exception handler
088a 0001       |    |		.CONST	0x0001								; Number of locals
088b			BODY_0888:
088b			BODY_0888:
088b			INIT_0888:
088b			INIT_0888:
088b 4608       |F   |		Jump_Case	0x9
088c 7808       |x   |		Jump	0x895								; case 0x0
088d 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
088e 782c       |x,  |		Jump	0x8bb								; case 0x2
088f 782b       |x+  |		Jump	0x8bb								; case 0x3
0890 782a       |x*  |		Jump	0x8bb								; case 0x4
0891 7829       |x)  |		Jump	0x8bb								; case 0x5
0892 7810       |x   |		Jump	0x8a3								; case 0x6
0893 7816       |x   |		Jump	0x8aa								; case 0x7
0894 781f       |x   |		Jump	0x8b4								; case 0x8
0895 00da       |    |		Load_Top	At_Offset_2
0896 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0897 0f01       |    |		Execute_Immediate	Equal,0x1
0898 7004       |p   |		Jump_Nonzero	0x89d
0899 00da       |    |		Load_Top	At_Offset_2
089a 2603       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3
089b 1c00       |    |		Execute_Immediate	Run_Utility,0x0
089c 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
089d 00da       |    |		Load_Top	At_Offset_2
089e 2202       |"   |		Execute	Variant_Record,Field_Constrain,Field_Number 0x2
089f 00da       |    |		Load_Top	At_Offset_2
08a0 2602       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x2
08a1 1c00       |    |		Execute_Immediate	Run_Utility,0x0
08a2 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
08a3 00db       |    |		Load_Top	At_Offset_3
08a4 0f01       |    |		Execute_Immediate	Equal,0x1
08a5 7002       |p   |		Jump_Nonzero	0x8a8
08a6 4802       |H   |		Short_Literal	0x2
08a7 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
08a8 4801       |H   |		Short_Literal	0x1
08a9 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
08aa 00db       |    |		Load_Top	At_Offset_3
08ab e5fe       |    |		Load	0x2,-0x2
08ac 0f01       |    |		Execute_Immediate	Equal,0x1
08ad 7002       |p   |		Jump_Nonzero	0x8b0
08ae 4802       |H   |		Short_Literal	0x2
08af 7801       |x   |		Jump	0x8b1
08b0 4801       |H   |		Short_Literal	0x1
08b1 e5ff       |    |		Load	0x2,-0x1
08b2 031b       |    |		Declare_Type	Variant_Record,Constrained
08b3 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
08b4 00db       |    |		Load_Top	At_Offset_3
08b5 e5fe       |    |		Load	0x2,-0x2
08b6 e5ff       |    |		Load	0x2,-0x1
08b7 1c06       |    |		Execute_Immediate	Run_Utility,0x6
08b8 e5ff       |    |		Load	0x2,-0x1
08b9 02fc       |    |		Declare_Variable	Variant_Record,With_Constraint
08ba 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
08bb 0869       | i  |		Execute_Immediate	Raise,0x69
08bc 0000 0000  |    |		.BLANK	0000[0x4]
08c0 ; --------------------------------------------------------------------------------------
08c0 ; SUBPROGRAM
08c0 ; --------------------------------------------------------------------------------------
08c0 08c5       |    |		.CONST	0x08c5								; Address of begin
08c1 0004       |    |		.CONST	0x0004								; Address of exception handler
08c2 0002       |    |		.CONST	0x0002								; Number of locals
08c3			INIT_08c0:
08c3 029f 0903  |    |		Declare_Subprogram	INIT_0900,For_Call
08c5			BODY_08c0:
08c5 00db       |    |		Load_Top	At_Offset_3
08c6 01db       |    |		Execute	Vector,Length
08c7 7002       |p   |		Jump_Nonzero	0x8ca
08c8 e00b       |    |		Load	0x0,0xb
08c9 0257       | W  |		Execute	Discrete,Raise
08ca 4820       |H   |		Short_Literal	0x20
08cb e5fe       |    |		Load	0x2,-0x2
08cc e010       |    |		Load	0x0,0x10
08cd 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
08ce 01db       |    |		Execute	Vector,Length
08cf 7002       |p   |		Jump_Nonzero	0x8d2
08d0 8402       |    |		Call	0x2,0x2
08d1 7808       |x   |		Jump	0x8da
08d2 4820       |H   |		Short_Literal	0x20
08d3 e5fd       |    |		Load	0x2,-0x3
08d4 e010       |    |		Load	0x0,0x10
08d5 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
08d6 01db       |    |		Execute	Vector,Length
08d7 7002       |p   |		Jump_Nonzero	0x8da
08d8 e00d       |    |		Load	0x0,0xd
08d9 0257       | W  |		Execute	Discrete,Raise
08da e5fe       |    |		Load	0x2,-0x2
08db 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
08dc 0000 0000  |    |		.BLANK	0000[0x4]
08e0 ; --------------------------------------------------------------------------------------
08e0 ; SUBPROGRAM
08e0 ; --------------------------------------------------------------------------------------
08e0 08e5       |    |		.CONST	0x08e5								; Address of begin
08e1 0004       |    |		.CONST	0x0004								; Address of exception handler
08e2 0002       |    |		.CONST	0x0002								; Number of locals
08e3			INIT_08e0:
08e3 029f 0953  |   S|		Declare_Subprogram	INIT_0950,For_Call
08e5			BODY_08e0:
08e5 00db       |    |		Load_Top	At_Offset_3
08e6 01db       |    |		Execute	Vector,Length
08e7 7002       |p   |		Jump_Nonzero	0x8ea
08e8 e00b       |    |		Load	0x0,0xb
08e9 0257       | W  |		Execute	Discrete,Raise
08ea 4820       |H   |		Short_Literal	0x20
08eb e5fe       |    |		Load	0x2,-0x2
08ec e010       |    |		Load	0x0,0x10
08ed 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
08ee 01db       |    |		Execute	Vector,Length
08ef 7002       |p   |		Jump_Nonzero	0x8f2
08f0 8402       |    |		Call	0x2,0x2
08f1 7808       |x   |		Jump	0x8fa
08f2 4820       |H   |		Short_Literal	0x20
08f3 e5fd       |    |		Load	0x2,-0x3
08f4 e010       |    |		Load	0x0,0x10
08f5 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
08f6 01db       |    |		Execute	Vector,Length
08f7 7002       |p   |		Jump_Nonzero	0x8fa
08f8 e00d       |    |		Load	0x0,0xd
08f9 0257       | W  |		Execute	Discrete,Raise
08fa e5fd       |    |		Load	0x2,-0x3
08fb 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
08fc 0000 0000  |    |		.BLANK	0000[0x4]
0900 ; --------------------------------------------------------------------------------------
0900 ; SUBPROGRAM
0900 ; --------------------------------------------------------------------------------------
0900 093d       | =  |		.CONST	0x093d								; Address of begin
0901 0004       |    |		.CONST	0x0004								; Address of exception handler
0902 0003       |    |		.CONST	0x0003								; Number of locals
0903			INIT_0900:
0903 e007       |    |		Load	0x0,0x7
0904 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0905 e007       |    |		Load	0x0,0x7
0906 183d       | =  |		Execute	Package,Field_Execute,Field_Number 0x3d
0907 e007       |    |		Load	0x0,0x7
0908 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0909 e007       |    |		Load	0x0,0x7
090a 1839       | 9  |		Execute	Package,Field_Execute,Field_Number 0x39
090b e007       |    |		Load	0x0,0x7
090c 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
090d e007       |    |		Load	0x0,0x7
090e 1834       | 4  |		Execute	Package,Field_Execute,Field_Number 0x34
090f e007       |    |		Load	0x0,0x7
0910 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0911 e007       |    |		Load	0x0,0x7
0912 182d       | -  |		Execute	Package,Field_Execute,Field_Number 0x2d
0913 e007       |    |		Load	0x0,0x7
0914 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0915 e007       |    |		Load	0x0,0x7
0916 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
0917 e007       |    |		Load	0x0,0x7
0918 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0919 e007       |    |		Load	0x0,0x7
091a 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
091b e007       |    |		Load	0x0,0x7
091c 183e       | >  |		Execute	Package,Field_Execute,Field_Number 0x3e
091d e5ff       |    |		Load	0x2,-0x1
091e e011       |    |		Load	0x0,0x11
091f 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0920 e007       |    |		Load	0x0,0x7
0921 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0922 e007       |    |		Load	0x0,0x7
0923 183d       | =  |		Execute	Package,Field_Execute,Field_Number 0x3d
0924 e007       |    |		Load	0x0,0x7
0925 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0926 e007       |    |		Load	0x0,0x7
0927 1839       | 9  |		Execute	Package,Field_Execute,Field_Number 0x39
0928 e007       |    |		Load	0x0,0x7
0929 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
092a e007       |    |		Load	0x0,0x7
092b 1834       | 4  |		Execute	Package,Field_Execute,Field_Number 0x34
092c e007       |    |		Load	0x0,0x7
092d 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
092e e007       |    |		Load	0x0,0x7
092f 182d       | -  |		Execute	Package,Field_Execute,Field_Number 0x2d
0930 e007       |    |		Load	0x0,0x7
0931 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0932 e007       |    |		Load	0x0,0x7
0933 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
0934 e007       |    |		Load	0x0,0x7
0935 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0936 e007       |    |		Load	0x0,0x7
0937 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
0938 e007       |    |		Load	0x0,0x7
0939 183e       | >  |		Execute	Package,Field_Execute,Field_Number 0x3e
093a e5ff       |    |		Load	0x2,-0x1
093b e011       |    |		Load	0x0,0x11
093c 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
093d			BODY_0900:
093d 00d9       |    |		Load_Top	At_Offset_1
093e 01db       |    |		Execute	Vector,Length
093f 7002       |p   |		Jump_Nonzero	0x942
0940 e00c       |    |		Load	0x0,0xc
0941 0257       | W  |		Execute	Discrete,Raise
0942 00d8       |    |		Load_Top	At_Offset_0
0943 01db       |    |		Execute	Vector,Length
0944 7002       |p   |		Jump_Nonzero	0x947
0945 e00d       |    |		Load	0x0,0xd
0946 0257       | W  |		Execute	Discrete,Raise
0947 00d9       |    |		Load_Top	At_Offset_1
0948 00cb       |    |		Action	Pop_Block_With_Result
0949 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
094a 0000 0000  |    |		.BLANK	0000[0x6]
0950 ; --------------------------------------------------------------------------------------
0950 ; SUBPROGRAM
0950 ; --------------------------------------------------------------------------------------
0950 098d       |    |		.CONST	0x098d								; Address of begin
0951 0004       |    |		.CONST	0x0004								; Address of exception handler
0952 0003       |    |		.CONST	0x0003								; Number of locals
0953			INIT_0950:
0953 e007       |    |		Load	0x0,0x7
0954 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0955 e007       |    |		Load	0x0,0x7
0956 183d       | =  |		Execute	Package,Field_Execute,Field_Number 0x3d
0957 e007       |    |		Load	0x0,0x7
0958 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0959 e007       |    |		Load	0x0,0x7
095a 1839       | 9  |		Execute	Package,Field_Execute,Field_Number 0x39
095b e007       |    |		Load	0x0,0x7
095c 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
095d e007       |    |		Load	0x0,0x7
095e 1834       | 4  |		Execute	Package,Field_Execute,Field_Number 0x34
095f e007       |    |		Load	0x0,0x7
0960 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0961 e007       |    |		Load	0x0,0x7
0962 182d       | -  |		Execute	Package,Field_Execute,Field_Number 0x2d
0963 e007       |    |		Load	0x0,0x7
0964 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0965 e007       |    |		Load	0x0,0x7
0966 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
0967 e007       |    |		Load	0x0,0x7
0968 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0969 e007       |    |		Load	0x0,0x7
096a 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
096b e007       |    |		Load	0x0,0x7
096c 183e       | >  |		Execute	Package,Field_Execute,Field_Number 0x3e
096d e5ff       |    |		Load	0x2,-0x1
096e e011       |    |		Load	0x0,0x11
096f 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0970 e007       |    |		Load	0x0,0x7
0971 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0972 e007       |    |		Load	0x0,0x7
0973 183d       | =  |		Execute	Package,Field_Execute,Field_Number 0x3d
0974 e007       |    |		Load	0x0,0x7
0975 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0976 e007       |    |		Load	0x0,0x7
0977 1839       | 9  |		Execute	Package,Field_Execute,Field_Number 0x39
0978 e007       |    |		Load	0x0,0x7
0979 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
097a e007       |    |		Load	0x0,0x7
097b 1834       | 4  |		Execute	Package,Field_Execute,Field_Number 0x34
097c e007       |    |		Load	0x0,0x7
097d 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
097e e007       |    |		Load	0x0,0x7
097f 182d       | -  |		Execute	Package,Field_Execute,Field_Number 0x2d
0980 e007       |    |		Load	0x0,0x7
0981 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0982 e007       |    |		Load	0x0,0x7
0983 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
0984 e007       |    |		Load	0x0,0x7
0985 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0986 e007       |    |		Load	0x0,0x7
0987 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
0988 e007       |    |		Load	0x0,0x7
0989 183e       | >  |		Execute	Package,Field_Execute,Field_Number 0x3e
098a e5ff       |    |		Load	0x2,-0x1
098b e011       |    |		Load	0x0,0x11
098c 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
098d			BODY_0950:
098d 00d9       |    |		Load_Top	At_Offset_1
098e 01db       |    |		Execute	Vector,Length
098f 7002       |p   |		Jump_Nonzero	0x992
0990 e00c       |    |		Load	0x0,0xc
0991 0257       | W  |		Execute	Discrete,Raise
0992 00d8       |    |		Load_Top	At_Offset_0
0993 01db       |    |		Execute	Vector,Length
0994 7002       |p   |		Jump_Nonzero	0x997
0995 e00d       |    |		Load	0x0,0xd
0996 0257       | W  |		Execute	Discrete,Raise
0997 00d8       |    |		Load_Top	At_Offset_0
0998 00cb       |    |		Action	Pop_Block_With_Result
0999 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
099a ; --------------------------------------------------------------------------------------
099a ; STRING TABLE
099a ; --------------------------------------------------------------------------------------
099a 0048       | H  |		.STRTAB	0x0048->0x09be							; "Acquire (Remote_Machine => \x22"
099b 0062       | b  |		.STRTAB	0x0062->0x09cc							; "\x22, Username => \x22"
099c 0070       | p  |		.STRTAB	0x0070->0x09d4							; "\x22, Password => ???"
099d 0080       |    |		.STRTAB	0x0080->0x09dd							; ", Trace_Command => "
099e 0091       |    |		.STRTAB	0x0091->0x09e6							; ")."
099f 0091       |    |		.STRTAB	0x0091->0x09e7							; "Acquire"
09a0 0096       |    |		.STRTAB	0x0096->0x09eb							; "Acquire (Set_Directory => \x22"
09a1 00af       |    |		.STRTAB	0x00af->0x09f8							; "\x22, Set_Library => \x22"
09a2 00c0       |    |		.STRTAB	0x00c0->0x0a02							; "\x22, Remote_Machine => \x22"
09a3 00d4       |    |		.STRTAB	0x00d4->0x0a0d							; "Acquire (Directory)"
09a4 00e5       |    |		.STRTAB	0x00e5->0x0a16							; "Release (Trace_Command => "
09a5 00fd       |    |		.STRTAB	0x00fd->0x0a23							; "Release"
09a6 0102       |    |		.STRTAB	0x0102->0x0a27							; "Destroy (Trace_Command => "
09a7 011a       |    |		.STRTAB	0x011a->0x0a34							; "Destroy"
09a8 011f       |    |		.STRTAB	0x011f->0x0a37							; "Set_Remote_Directory (Set_Directory => \x22"
09a9 0145       | E  |		.STRTAB	0x0145->0x0a4b							; "\x22, Trace_Command => "
09aa 0157       | W  |		.STRTAB	0x0157->0x0a55							; "Command \x22"
09ab 015e       | ^  |		.STRTAB	0x015e->0x0a5a							; "\x22 failed to set remote directory."
09ac 017d       | }  |		.STRTAB	0x017d->0x0a6a							; "  Got bad status code = "
09ad 0193       |    |		.STRTAB	0x0193->0x0a76							; "Set_Remote_Directory"
09ae 01a5       |    |		.STRTAB	0x01a5->0x0a80							; "Put (Host_File_Name => \x22"
09af 01bb       |    |		.STRTAB	0x01bb->0x0a8c							; "\x22, Target_File_Name => \x22"
09b0 01d1       |    |		.STRTAB	0x01d1->0x0a98							; "Put"
09b1 01d2       |    |		.STRTAB	0x01d2->0x0a9a							; "Get (Host_File_Name => \x22"
09b2 01e8       |    |		.STRTAB	0x01e8->0x0aa6							; "Get"
09b3 01e9       |    |		.STRTAB	0x01e9->0x0aa7							; "Execute_Command (Command_Line => \x22"
09b4 0209       |    |		.STRTAB	0x0209->0x0ab8							; "\x22, Error_Pattern => \x22"
09b5 021c       |    |		.STRTAB	0x021c->0x0ac3							; "\x22, Parse_Error_Output => "
09b6 0233       | 3  |		.STRTAB	0x0233->0x0acf							; ", Parse_Standard_Output => "
09b7 024c       | L  |		.STRTAB	0x024c->0x0add							; ", Show_Parsed_Output => "
09b8 0262       | b  |		.STRTAB	0x0262->0x0ae9							; "Execute_Command"
09b9 026f       | o  |		.STRTAB	0x026f->0x0af0							; "Unit_Update_Time (Target_File_Name => \x22"
09ba 0294       |    |		.STRTAB	0x0294->0x0b04							; "Unit_Update_Time"
09bb 02a2       |    |		.STRTAB	0x02a2->0x0b0c							; "File_Exists (The_File => \x22"
09bc 02ba       |    |		.STRTAB	0x02ba->0x0b19							; "File Exists"
09bd 02c3       |    |		.STREND 0x02c3->0x0b1e
09be 4163 7175  |Acqu|		.STRTAB_STRINGS
0b1f 0000       |    |		.XXX[0x1]
0b20 ; --------------------------------------------------------------------------------------
0b20 ; Debug Table
0b20 ; --------------------------------------------------------------------------------------
0b20 0004 000e  |    |		.DEBUG4	0x0004,0x000e,0xa63c,0x0000,0x0001,0x0000
0b26 e000 0deb  |    |		.XXX[0x19]
0b28 158d d685  |    |
0b2a 0000 0040  |   @|
0b2c 158d d485  |    |
0b2e 0000 0040  |   @|
0b30 158d d685  |    |
0b32 0000 0040  |   @|
0b34 0000 0000  |    |
0b36 02b1 ba90  |    |
0b38 a000 0008  |    |
0b3a 041a c380  |    |
0b3c 5a69 c800  |Zi  |
0b3e 0008       |    |
0b3f 0000 0000  |    |		.BLANK	0000[0x5]
0b44 0010       |    |		.XXX[0x1]
0b45 0000 0000  |    |		.BLANK	0000[0x8]
0b4d 0001 0708  |    |		.XXX[0x2]
0b4f 0000 0000  |    |		.BLANK	0000[0x8]
0b57 0200 0000  |    |		.XXX[0x3b]
0b59 0000 0000  |    |
0b5b 0200 05bf  |    |
0b5d 6800 e5a3  |h   |
0b5f 4c00 e5a2  |L   |
0b61 0a01 820f  |    |
0b63 1f00 72d6  |  r |
0b65 7b60 03e0  |{`  |
0b67 d8e8 35e6  |  5 |
0b69 cf85 9340  |   @|
0b6b 0008 541b  |  T |
0b6d 1b19 570b  |  W |
0b6f 0000 0428  |   (|
0b71 2000 0000  |    |
0b73 0000 0000  |    |
0b75 061a bd21  |   !|
0b77 6000 0010  |`   |
0b79 061b 4321  |  C!|
0b7b 6000 0010  |`   |
0b7d 0000 0685  |    |
0b7f d800 0000  |    |
0b81 0000 0000  |    |
0b83 0106 c6c6  |    |
0b85 4dcd 1800  |M   |
0b87 010a 0000  |    |
0b89 0012 0003  |    |
0b8b 8b90 0000  |    |
0b8d 0004 0000  |    |
0b8f 0004 0000  |    |
0b91 d0bb       |    |
0b92 0000 0000  |    |		.BLANK	0000[0x4]
0b96 20d8 d8ab  |    |		.XXX[0x24]
0b98 fba0 c000  |    |
0b9a 2140 0000  |!@  |
0b9c 0240 0071  | @ q|
0b9e 7200 0000  |r   |
0ba0 0080 0000  |    |
0ba2 0080 0000  |    |
0ba4 0080 0194  |    |
0ba6 ef00 d8c7  |    |
0ba8 3d00 0000  |=   |
0baa 0000 e0fb  |    |
0bac 46c0 1cb6  |F   |
0bae c340 00ef  | @  |
0bb0 abb2 0d81  |    |
0bb2 7b57 e194  |{W  |
0bb4 0002 bd06  |    |
0bb6 c427 5ca5  | '\ |
0bb8 0a00 0002  |    |
0bba 0000 0000  |    |		.BLANK	0000[0x4]
0bbe 0177 b028  | w (|		.XXX[0x34]
0bc0 5000 0004  |P   |
0bc2 0177 b1e8  | w  |
0bc4 5000 0004  |P   |
0bc6 0000 01a9  |    |
0bc8 da2e f605  | .  |
0bca 0a00 0000  |    |
0bcc 8041 b030  | A 0|
0bce 6050 5d00  |`P] |
0bd0 0057 8000  | W  |
0bd2 0004 8000  |    |
0bd4 e89d 0000  |    |
0bd6 0001 0000  |    |
0bd8 0007 0000  |    |
0bda 353b 4000  |5;@ |
0bdc 0000 0000  |    |
0bde 0000 0836  |   6|
0be0 060c 0a0b  |    |
0be2 a000 0af0  |    |
0be4 0000 0090  |    |
0be6 001d 13a0  |    |
0be8 0000 0020  |    |
0bea 0000 00e0  |    |
0bec 0000 0020  |    |
0bee 0063 d880  | c  |
0bf0 0e5b 5940  | [Y@|
0bf2 0000 0000  |    |		.BLANK	0000[0x4]
0bf6 072d f9f0  | -  |		.XXX[0xa]
0bf8 0001 7e6e  |  ~n|
0bfa 7da1 621e  |} b |
0bfc 8000 0000  |    |
0bfe 0440 e1a4  | @  |