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

⟦bcf016d06⟧

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

Derivation

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

Disassembly

0000 000f       |    |		.CONST	0x000f								; Version of machine code
0001 5800       |X   |		.CONST	0x5800								; Diana Version, RCG Major Version, RCG minor version
0002 0000       |    |		.CONST	0x0000								; Zero
0003 0b78       | x  |		.CONST	0x0b78								; 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 017c       | |  |		.CONST	0x017c								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0094       |    |		.CONST	0x0094								; 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 00c4       |    |		Action	Make_Default
003f 00c4       |    |		Action	Make_Default
0040 00c4       |    |		Action	Make_Default
0041 00c4       |    |		Action	Make_Default
0042 00c4       |    |		Action	Make_Default
0043 00c4       |    |		Action	Make_Default
0044 00c4       |    |		Action	Make_Default
0045 00c4       |    |		Action	Make_Default
0046 00c4       |    |		Action	Make_Default
0047 00c4       |    |		Action	Make_Default
0048 00c4       |    |		Action	Make_Default
0049 00c4       |    |		Action	Make_Default
004a 00c4       |    |		Action	Make_Default
004b 00c4       |    |		Action	Make_Default
004c 00c4       |    |		Action	Make_Default
004d 00c4       |    |		Action	Make_Default
004e 00c4       |    |		Action	Make_Default
004f 00c4       |    |		Action	Make_Default
0050 00c4       |    |		Action	Make_Default
0051 00c4       |    |		Action	Make_Default
0052 00c4       |    |		Action	Make_Default
0053 00c4       |    |		Action	Make_Default
0054 00c4       |    |		Action	Make_Default
0055 00c4       |    |		Action	Make_Default
0056 00c4       |    |		Action	Make_Default
0057 00c4       |    |		Action	Make_Default
0058 00c4       |    |		Action	Make_Default
0059 00c4       |    |		Action	Make_Default
005a 00c4       |    |		Action	Make_Default
005b 00c4       |    |		Action	Make_Default
005c 00c4       |    |		Action	Make_Default
005d 00c4       |    |		Action	Make_Default
005e 00c4       |    |		Action	Make_Default
005f 00c4       |    |		Action	Make_Default
0060 00c4       |    |		Action	Make_Default
0061 00c4       |    |		Action	Make_Default
0062 00c4       |    |		Action	Make_Default
0063 00c4       |    |		Action	Make_Default
0064 00c4       |    |		Action	Make_Default
0065 00c4       |    |		Action	Make_Default
0066 00c4       |    |		Action	Make_Default
0067 00c4       |    |		Action	Make_Default
0068 00c4       |    |		Action	Make_Default
0069 00c4       |    |		Action	Make_Default
006a 00c4       |    |		Action	Make_Default
006b 00c4       |    |		Action	Make_Default
006c 00c4       |    |		Action	Make_Default
006d 00c4       |    |		Action	Make_Default
006e 00c4       |    |		Action	Make_Default
006f 00c4       |    |		Action	Make_Default
0070 00c4       |    |		Action	Make_Default
0071 00c4       |    |		Action	Make_Default
0072 00c4       |    |		Action	Make_Default
0073 00c4       |    |		Action	Make_Default
0074 00c4       |    |		Action	Make_Default
0075 00c4       |    |		Action	Make_Default
0076 00c4       |    |		Action	Make_Default
0077 00c4       |    |		Action	Make_Default
0078 00c4       |    |		Action	Make_Default
0079 00c4       |    |		Action	Make_Default
007a 00c4       |    |		Action	Make_Default
007b 00c4       |    |		Action	Make_Default
007c 00c4       |    |		Action	Make_Default
007d 00c4       |    |		Action	Make_Default
007e 00c4       |    |		Action	Make_Default
007f 00c4       |    |		Action	Make_Default
0080 00c4       |    |		Action	Make_Default
0081 00c4       |    |		Action	Make_Default
0082 00c4       |    |		Action	Make_Default
0083 00c4       |    |		Action	Make_Default
0084 00c4       |    |		Action	Make_Default
0085 00c4       |    |		Action	Make_Default
0086 00c4       |    |		Action	Make_Default
0087 00c4       |    |		Action	Make_Default
0088 00c4       |    |		Action	Make_Default
0089 00c4       |    |		Action	Make_Default
008a 00c4       |    |		Action	Make_Default
008b 00c4       |    |		Action	Make_Default
008c 00c4       |    |		Action	Make_Default
008d 4800       |H   |		Short_Literal	0x0
008e 4815       |H   |		Short_Literal	0x15
008f 029f 0183  |    |		Declare_Subprogram	INIT_0180,For_Call
0091 03fe       |    |		Declare_Type	Discrete,Defined,Visible
0092 c27a       | z  |		Store	0x1,0x7a
0093 4800       |H   |		Short_Literal	0x0
0094 4802       |H   |		Short_Literal	0x2
0095 029f 01ab  |    |		Declare_Subprogram	INIT_01a8,For_Call
0097 03fe       |    |		Declare_Type	Discrete,Defined,Visible
0098 c24e       | N  |		Store	0x1,0x4e
0099 00e9       |    |		Load_Encached	String_Cache
009a 0129       | )  |		Execute	Any,Make_Visible
009b c261       | a  |		Store	0x1,0x61
009c 00e9       |    |		Load_Encached	String_Cache
009d 0129       | )  |		Execute	Any,Make_Visible
009e c21e       |    |		Store	0x1,0x1e
009f 00e9       |    |		Load_Encached	String_Cache
00a0 0129       | )  |		Execute	Any,Make_Visible
00a1 c21f       |    |		Store	0x1,0x1f
00a2 029a 01d3  |    |		Declare_Subprogram	INIT_01d0,For_Outer_Call,Visible,Unelaborated
00a4 c28a       |    |		Store	0x1,0x8a
00a5 029a 020b  |    |		Declare_Subprogram	INIT_0208,For_Outer_Call,Visible,Unelaborated
00a7 c26b       | k  |		Store	0x1,0x6b
00a8 029a 0243  |   C|		Declare_Subprogram	INIT_0240,For_Outer_Call,Visible,Unelaborated
00aa c26c       | l  |		Store	0x1,0x6c
00ab 029a 027b  |   {|		Declare_Subprogram	INIT_0278,For_Outer_Call,Visible,Unelaborated
00ad c26d       | m  |		Store	0x1,0x6d
00ae 029a 02b3  |    |		Declare_Subprogram	INIT_02b0,For_Outer_Call,Visible,Unelaborated
00b0 c26e       | n  |		Store	0x1,0x6e
00b1 029a 02eb  |    |		Declare_Subprogram	INIT_02e8,For_Outer_Call,Visible,Unelaborated
00b3 c26f       | o  |		Store	0x1,0x6f
00b4 0092 083b  |   ;|		Action	Push_String_Extended,0x83b					; "$$.Tps_View"
00b6 0129       | )  |		Execute	Any,Make_Visible
00b7 c28b       |    |		Store	0x1,0x8b
00b8 0092 083c  |   <|		Action	Push_String_Extended,0x83c					; "<DEFAULT VIEW CABINET>"
00ba 0129       | )  |		Execute	Any,Make_Visible
00bb c271       | q  |		Store	0x1,0x71
00bc 1d8a       |    |		Execute_Immediate	Reference_Lex_1,0x8a
00bd 0129       | )  |		Execute	Any,Make_Visible
00be c28c       |    |		Store	0x1,0x8c
00bf 029a 0323  |   #|		Declare_Subprogram	INIT_0320,For_Outer_Call,Visible,Unelaborated
00c1 c27d       | }  |		Store	0x1,0x7d
00c2 029a 035b  |   [|		Declare_Subprogram	INIT_0358,For_Outer_Call,Visible,Unelaborated
00c4 c27e       | ~  |		Store	0x1,0x7e
00c5 1d8a       |    |		Execute_Immediate	Reference_Lex_1,0x8a
00c6 0129       | )  |		Execute	Any,Make_Visible
00c7 c28d       |    |		Store	0x1,0x8d
00c8 029a 0393  |    |		Declare_Subprogram	INIT_0390,For_Outer_Call,Visible,Unelaborated
00ca c288       |    |		Store	0x1,0x88
00cb 1d8a       |    |		Execute_Immediate	Reference_Lex_1,0x8a
00cc 0129       | )  |		Execute	Any,Make_Visible
00cd c28e       |    |		Store	0x1,0x8e
00ce 029a 03d3  |    |		Declare_Subprogram	INIT_03d0,For_Outer_Call,Visible,Unelaborated
00d0 c289       |    |		Store	0x1,0x89
00d1 00bf       |    |		Action	Accept_Activation
00d2 e001       |    |		Load	0x0,0x1
00d3 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
00d4 e001       |    |		Load	0x0,0x1
00d5 183d       | =  |		Execute	Package,Field_Execute,Field_Number 0x3d
00d6 e001       |    |		Load	0x0,0x1
00d7 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
00d8 e001       |    |		Load	0x0,0x1
00d9 1839       | 9  |		Execute	Package,Field_Execute,Field_Number 0x39
00da e001       |    |		Load	0x0,0x1
00db 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
00dc e001       |    |		Load	0x0,0x1
00dd 1834       | 4  |		Execute	Package,Field_Execute,Field_Number 0x34
00de e001       |    |		Load	0x0,0x1
00df 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
00e0 e001       |    |		Load	0x0,0x1
00e1 182d       | -  |		Execute	Package,Field_Execute,Field_Number 0x2d
00e2 e001       |    |		Load	0x0,0x1
00e3 1b1e       |    |		Execute	Package,Field_Read,Field_Number 0x1e
00e4 4801       |H   |		Short_Literal	0x1
00e5 e001       |    |		Load	0x0,0x1
00e6 1844       | D  |		Execute	Package,Field_Execute,Field_Number 0x44
00e7 e001       |    |		Load	0x0,0x1
00e8 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00e9 011e       |    |		Execute	Any,Convert
00ea e24e       | N  |		Load	0x1,0x4e
00eb 0266       | f  |		Execute	Discrete,Bounds
00ec e002       |    |		Load	0x0,0x2
00ed 1b26       | &  |		Execute	Package,Field_Read,Field_Number 0x26
00ee 02a0       |    |		Declare_Subprogram	Null_Subprogram
00ef 4801       |H   |		Short_Literal	0x1
00f0 035d       | ]  |		Declare_Type	Array,Defined
00f1 00d8       |    |		Load_Top	At_Offset_0
00f2 0337       | 7  |		Declare_Variable	Array
00f3 4800       |H   |		Short_Literal	0x0
00f4 4800       |H   |		Short_Literal	0x0
00f5 e291       |    |		Load	0x1,0x91
00f6 01d6       |    |		Execute	Vector,Field_Write
00f7 4801       |H   |		Short_Literal	0x1
00f8 4801       |H   |		Short_Literal	0x1
00f9 e291       |    |		Load	0x1,0x91
00fa 01d6       |    |		Execute	Vector,Field_Write
00fb 4802       |H   |		Short_Literal	0x2
00fc 4802       |H   |		Short_Literal	0x2
00fd e291       |    |		Load	0x1,0x91
00fe 01d6       |    |		Execute	Vector,Field_Write
00ff e290       |    |		Load	0x1,0x90
0100 01c3       |    |		Execute	Vector,Check_In_Type
0101 0007       |    |		Action	Break_Optional
0102 e27a       | z  |		Load	0x1,0x7a
0103 0266       | f  |		Execute	Discrete,Bounds
0104 e002       |    |		Load	0x0,0x2
0105 1b25       | %  |		Execute	Package,Field_Read,Field_Number 0x25
0106 02a0       |    |		Declare_Subprogram	Null_Subprogram
0107 4801       |H   |		Short_Literal	0x1
0108 035d       | ]  |		Declare_Type	Array,Defined
0109 00d8       |    |		Load_Top	At_Offset_0
010a 0337       | 7  |		Declare_Variable	Array
010b 4800       |H   |		Short_Literal	0x0
010c 4800       |H   |		Short_Literal	0x0
010d e293       |    |		Load	0x1,0x93
010e 01d6       |    |		Execute	Vector,Field_Write
010f 4801       |H   |		Short_Literal	0x1
0110 4801       |H   |		Short_Literal	0x1
0111 e293       |    |		Load	0x1,0x93
0112 01d6       |    |		Execute	Vector,Field_Write
0113 4802       |H   |		Short_Literal	0x2
0114 4802       |H   |		Short_Literal	0x2
0115 e293       |    |		Load	0x1,0x93
0116 01d6       |    |		Execute	Vector,Field_Write
0117 4803       |H   |		Short_Literal	0x3
0118 4803       |H   |		Short_Literal	0x3
0119 e293       |    |		Load	0x1,0x93
011a 01d6       |    |		Execute	Vector,Field_Write
011b 4804       |H   |		Short_Literal	0x4
011c 4804       |H   |		Short_Literal	0x4
011d e293       |    |		Load	0x1,0x93
011e 01d6       |    |		Execute	Vector,Field_Write
011f 4805       |H   |		Short_Literal	0x5
0120 4805       |H   |		Short_Literal	0x5
0121 e293       |    |		Load	0x1,0x93
0122 01d6       |    |		Execute	Vector,Field_Write
0123 4806       |H   |		Short_Literal	0x6
0124 4806       |H   |		Short_Literal	0x6
0125 e293       |    |		Load	0x1,0x93
0126 01d6       |    |		Execute	Vector,Field_Write
0127 4807       |H   |		Short_Literal	0x7
0128 4807       |H   |		Short_Literal	0x7
0129 e293       |    |		Load	0x1,0x93
012a 01d6       |    |		Execute	Vector,Field_Write
012b 4808       |H   |		Short_Literal	0x8
012c 4808       |H   |		Short_Literal	0x8
012d e293       |    |		Load	0x1,0x93
012e 01d6       |    |		Execute	Vector,Field_Write
012f 4809       |H   |		Short_Literal	0x9
0130 4809       |H   |		Short_Literal	0x9
0131 e293       |    |		Load	0x1,0x93
0132 01d6       |    |		Execute	Vector,Field_Write
0133 480a       |H   |		Short_Literal	0xa
0134 480a       |H   |		Short_Literal	0xa
0135 e293       |    |		Load	0x1,0x93
0136 01d6       |    |		Execute	Vector,Field_Write
0137 480b       |H   |		Short_Literal	0xb
0138 480b       |H   |		Short_Literal	0xb
0139 e293       |    |		Load	0x1,0x93
013a 01d6       |    |		Execute	Vector,Field_Write
013b 480c       |H   |		Short_Literal	0xc
013c 480c       |H   |		Short_Literal	0xc
013d e293       |    |		Load	0x1,0x93
013e 01d6       |    |		Execute	Vector,Field_Write
013f 480d       |H   |		Short_Literal	0xd
0140 480d       |H   |		Short_Literal	0xd
0141 e293       |    |		Load	0x1,0x93
0142 01d6       |    |		Execute	Vector,Field_Write
0143 480e       |H   |		Short_Literal	0xe
0144 480e       |H   |		Short_Literal	0xe
0145 e293       |    |		Load	0x1,0x93
0146 01d6       |    |		Execute	Vector,Field_Write
0147 480f       |H   |		Short_Literal	0xf
0148 480f       |H   |		Short_Literal	0xf
0149 e293       |    |		Load	0x1,0x93
014a 01d6       |    |		Execute	Vector,Field_Write
014b 4810       |H   |		Short_Literal	0x10
014c 4810       |H   |		Short_Literal	0x10
014d e293       |    |		Load	0x1,0x93
014e 01d6       |    |		Execute	Vector,Field_Write
014f 4811       |H   |		Short_Literal	0x11
0150 4811       |H   |		Short_Literal	0x11
0151 e293       |    |		Load	0x1,0x93
0152 01d6       |    |		Execute	Vector,Field_Write
0153 4812       |H   |		Short_Literal	0x12
0154 4812       |H   |		Short_Literal	0x12
0155 e293       |    |		Load	0x1,0x93
0156 01d6       |    |		Execute	Vector,Field_Write
0157 4813       |H   |		Short_Literal	0x13
0158 4813       |H   |		Short_Literal	0x13
0159 e293       |    |		Load	0x1,0x93
015a 01d6       |    |		Execute	Vector,Field_Write
015b 4814       |H   |		Short_Literal	0x14
015c 4814       |H   |		Short_Literal	0x14
015d e293       |    |		Load	0x1,0x93
015e 01d6       |    |		Execute	Vector,Field_Write
015f 4815       |H   |		Short_Literal	0x15
0160 4815       |H   |		Short_Literal	0x15
0161 e293       |    |		Load	0x1,0x93
0162 01d6       |    |		Execute	Vector,Field_Write
0163 e292       |    |		Load	0x1,0x92
0164 01c3       |    |		Execute	Vector,Check_In_Type
0165 0007       |    |		Action	Break_Optional
0166 1d8a       |    |		Execute_Immediate	Reference_Lex_1,0x8a
0167 00c7       |    |		Action	Elaborate_Subprogram
0168 029d 0413  |    |		Declare_Subprogram	INIT_0410,For_Outer_Call
016a 1d88       |    |		Execute_Immediate	Reference_Lex_1,0x88
016b 00c7       |    |		Action	Elaborate_Subprogram
016c 1d89       |    |		Execute_Immediate	Reference_Lex_1,0x89
016d 00c7       |    |		Action	Elaborate_Subprogram
016e 1d6b       | k  |		Execute_Immediate	Reference_Lex_1,0x6b
016f 00c7       |    |		Action	Elaborate_Subprogram
0170 1d6c       | l  |		Execute_Immediate	Reference_Lex_1,0x6c
0171 00c7       |    |		Action	Elaborate_Subprogram
0172 1d6d       | m  |		Execute_Immediate	Reference_Lex_1,0x6d
0173 00c7       |    |		Action	Elaborate_Subprogram
0174 1d6e       | n  |		Execute_Immediate	Reference_Lex_1,0x6e
0175 00c7       |    |		Action	Elaborate_Subprogram
0176 1d6f       | o  |		Execute_Immediate	Reference_Lex_1,0x6f
0177 00c7       |    |		Action	Elaborate_Subprogram
0178 1d7d       | }  |		Execute_Immediate	Reference_Lex_1,0x7d
0179 00c7       |    |		Action	Elaborate_Subprogram
017a 1d7e       | ~  |		Execute_Immediate	Reference_Lex_1,0x7e
017b 00c7       |    |		Action	Elaborate_Subprogram
017c			BODY_0008:
017c 00bc       |    |		Action	Signal_Activated
017d 00bb       |    |		Action	Signal_Completion
017e 0000 0000  |    |		.XXX[0x2]
0180 ; --------------------------------------------------------------------------------------
0180 ; SUBPROGRAM
0180 ; --------------------------------------------------------------------------------------
0180 0183       |    |		.CONST	0x0183								; Address of begin
0181 0004       |    |		.CONST	0x0004								; Address of exception handler
0182 0001       |    |		.CONST	0x0001								; Number of locals
0183			BODY_0180:
0183			INIT_0180:
0183 4607       |F   |		Jump_Case	0x8
0184 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
0185 7806       |x   |		Jump	0x18c								; case 0x1
0186 7809       |x   |		Jump	0x190								; case 0x2
0187 780d       |x   |		Jump	0x195								; case 0x3
0188 7810       |x   |		Jump	0x199								; case 0x4
0189 7811       |x   |		Jump	0x19b								; case 0x5
018a 7812       |x   |		Jump	0x19d								; case 0x6
018b 7815       |x   |		Jump	0x1a1								; case 0x7
018c 00da       |    |		Load_Top	At_Offset_2
018d 0091 0822  |   "|		Action	Push_String_Extended_Indexed,0x822				; "DESKTOP"
018f 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0190 00db       |    |		Load_Top	At_Offset_3
0191 00db       |    |		Load_Top	At_Offset_3
0192 00e0       |    |		Load_Encached	Standard_Cache
0193 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0194 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0195 00da       |    |		Load_Top	At_Offset_2
0196 00e0       |    |		Load_Encached	Standard_Cache
0197 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0198 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0199 00db       |    |		Load_Top	At_Offset_3
019a 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
019b 00db       |    |		Load_Top	At_Offset_3
019c 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
019d e27a       | z  |		Load	0x1,0x7a
019e 00dc       |    |		Load_Top	At_Offset_4
019f 0267       | g  |		Execute	Discrete,Predecessor
01a0 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
01a1 e27a       | z  |		Load	0x1,0x7a
01a2 00dc       |    |		Load_Top	At_Offset_4
01a3 0268       | h  |		Execute	Discrete,Successor
01a4 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
01a5 0000 0000  |    |		.XXX[0x3]
01a7 0000       |    |
01a8 ; --------------------------------------------------------------------------------------
01a8 ; SUBPROGRAM
01a8 ; --------------------------------------------------------------------------------------
01a8 01ab       |    |		.CONST	0x01ab								; Address of begin
01a9 0004       |    |		.CONST	0x0004								; Address of exception handler
01aa 0001       |    |		.CONST	0x0001								; Number of locals
01ab			BODY_01a8:
01ab			INIT_01a8:
01ab 4607       |F   |		Jump_Case	0x8
01ac 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
01ad 7806       |x   |		Jump	0x1b4								; case 0x1
01ae 7809       |x   |		Jump	0x1b8								; case 0x2
01af 780d       |x   |		Jump	0x1bd								; case 0x3
01b0 7810       |x   |		Jump	0x1c1								; case 0x4
01b1 7811       |x   |		Jump	0x1c3								; case 0x5
01b2 7812       |x   |		Jump	0x1c5								; case 0x6
01b3 7815       |x   |		Jump	0x1c9								; case 0x7
01b4 00da       |    |		Load_Top	At_Offset_2
01b5 0091 0838  |   8|		Action	Push_String_Extended_Indexed,0x838				; "ON_COMMAND"
01b7 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
01b8 00db       |    |		Load_Top	At_Offset_3
01b9 00db       |    |		Load_Top	At_Offset_3
01ba 00e0       |    |		Load_Encached	Standard_Cache
01bb 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
01bc 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
01bd 00da       |    |		Load_Top	At_Offset_2
01be 00e0       |    |		Load_Encached	Standard_Cache
01bf 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
01c0 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
01c1 00db       |    |		Load_Top	At_Offset_3
01c2 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
01c3 00db       |    |		Load_Top	At_Offset_3
01c4 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
01c5 e24e       | N  |		Load	0x1,0x4e
01c6 00dc       |    |		Load_Top	At_Offset_4
01c7 0267       | g  |		Execute	Discrete,Predecessor
01c8 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
01c9 e24e       | N  |		Load	0x1,0x4e
01ca 00dc       |    |		Load_Top	At_Offset_4
01cb 0268       | h  |		Execute	Discrete,Successor
01cc 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
01cd 0000 0000  |    |		.XXX[0x3]
01cf 0000       |    |
01d0 ; --------------------------------------------------------------------------------------
01d0 ; SUBPROGRAM
01d0 ; --------------------------------------------------------------------------------------
01d0 01f1       |    |		.CONST	0x01f1								; Address of begin
01d1 0004       |    |		.CONST	0x0004								; Address of exception handler
01d2 000d       |    |		.CONST	0x000d								; Number of locals
01d3			INIT_01d0:
01d3 e003       |    |		Load	0x0,0x3
01d4 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
01d5 02c7       |    |		Declare_Variable	Any
01d6 00d8       |    |		Load_Top	At_Offset_0
01d7 1c00       |    |		Execute_Immediate	Run_Utility,0x0
01d8 0092 083d  |   =|		Action	Push_String_Extended,0x83d					; "Tps.Create"
01da 00e1       |    |		Load_Encached	Boolean_Cache
01db 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
01dc 00e1       |    |		Load_Encached	Boolean_Cache
01dd 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
01de 029f 045b  |   [|		Declare_Subprogram	INIT_0458,For_Call
01e0 e004       |    |		Load	0x0,0x4
01e1 1916       |    |		Execute	Package,Field_Reference,Field_Number 0x16
01e2 00c6       |    |		Action	Check_Subprogram_Elaborated
01e3 e403       |    |		Load	0x2,0x3
01e4 4806       |H   |		Short_Literal	0x6
01e5 4802       |H   |		Short_Literal	0x2
01e6 0099       |    |		Action	Reference_Dynamic
01e7 4804       |H   |		Short_Literal	0x4
01e8 4802       |H   |		Short_Literal	0x2
01e9 0099       |    |		Action	Reference_Dynamic
01ea 4805       |H   |		Short_Literal	0x5
01eb 4802       |H   |		Short_Literal	0x2
01ec 0099       |    |		Action	Reference_Dynamic
01ed e005       |    |		Load	0x0,0x5
01ee e006       |    |		Load	0x0,0x6
01ef 480d       |H   |		Short_Literal	0xd
01f0 0007       |    |		Action	Break_Optional
01f1			BODY_01d0:
01f1 e5f3       |    |		Load	0x2,-0xd
01f2 e407       |    |		Load	0x2,0x7
01f3 4808       |H   |		Short_Literal	0x8
01f4 4802       |H   |		Short_Literal	0x2
01f5 0099       |    |		Action	Reference_Dynamic
01f6 4809       |H   |		Short_Literal	0x9
01f7 4802       |H   |		Short_Literal	0x2
01f8 0099       |    |		Action	Reference_Dynamic
01f9 480a       |H   |		Short_Literal	0xa
01fa 4802       |H   |		Short_Literal	0x2
01fb 0099       |    |		Action	Reference_Dynamic
01fc 480b       |H   |		Short_Literal	0xb
01fd 4802       |H   |		Short_Literal	0x2
01fe 0099       |    |		Action	Reference_Dynamic
01ff e004       |    |		Load	0x0,0x4
0200 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0201 450e       |E   |		Exit_Suprogram	New_Top_Offset 0xe
0202 0000 0000  |    |		.BLANK	0000[0x6]
0208 ; --------------------------------------------------------------------------------------
0208 ; SUBPROGRAM
0208 ; --------------------------------------------------------------------------------------
0208 0229       | )  |		.CONST	0x0229								; Address of begin
0209 0004       |    |		.CONST	0x0004								; Address of exception handler
020a 000d       |    |		.CONST	0x000d								; Number of locals
020b			INIT_0208:
020b 0092 083e  |   >|		Action	Push_String_Extended,0x83e					; "Tps.Accept_Changes"
020d 00e1       |    |		Load_Encached	Boolean_Cache
020e 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
020f 00e1       |    |		Load_Encached	Boolean_Cache
0210 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0211 e003       |    |		Load	0x0,0x3
0212 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0213 02c7       |    |		Declare_Variable	Any
0214 00d8       |    |		Load_Top	At_Offset_0
0215 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0216 029f 04d3  |    |		Declare_Subprogram	INIT_04d0,For_Call
0218 e004       |    |		Load	0x0,0x4
0219 1916       |    |		Execute	Package,Field_Reference,Field_Number 0x16
021a 00c6       |    |		Action	Check_Subprogram_Elaborated
021b e402       |    |		Load	0x2,0x2
021c 4806       |H   |		Short_Literal	0x6
021d 4802       |H   |		Short_Literal	0x2
021e 0099       |    |		Action	Reference_Dynamic
021f 4803       |H   |		Short_Literal	0x3
0220 4802       |H   |		Short_Literal	0x2
0221 0099       |    |		Action	Reference_Dynamic
0222 4804       |H   |		Short_Literal	0x4
0223 4802       |H   |		Short_Literal	0x2
0224 0099       |    |		Action	Reference_Dynamic
0225 e007       |    |		Load	0x0,0x7
0226 e008       |    |		Load	0x0,0x8
0227 480d       |H   |		Short_Literal	0xd
0228 0007       |    |		Action	Break_Optional
0229			BODY_0208:
0229 e5fb       |    |		Load	0x2,-0x5
022a e407       |    |		Load	0x2,0x7
022b 4808       |H   |		Short_Literal	0x8
022c 4802       |H   |		Short_Literal	0x2
022d 0099       |    |		Action	Reference_Dynamic
022e 4809       |H   |		Short_Literal	0x9
022f 4802       |H   |		Short_Literal	0x2
0230 0099       |    |		Action	Reference_Dynamic
0231 480a       |H   |		Short_Literal	0xa
0232 4802       |H   |		Short_Literal	0x2
0233 0099       |    |		Action	Reference_Dynamic
0234 480b       |H   |		Short_Literal	0xb
0235 4802       |H   |		Short_Literal	0x2
0236 0099       |    |		Action	Reference_Dynamic
0237 e004       |    |		Load	0x0,0x4
0238 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0239 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
023a 0000 0000  |    |		.BLANK	0000[0x6]
0240 ; --------------------------------------------------------------------------------------
0240 ; SUBPROGRAM
0240 ; --------------------------------------------------------------------------------------
0240 0261       | a  |		.CONST	0x0261								; Address of begin
0241 0004       |    |		.CONST	0x0004								; Address of exception handler
0242 000d       |    |		.CONST	0x000d								; Number of locals
0243			INIT_0240:
0243 0092 083f  |   ?|		Action	Push_String_Extended,0x83f					; "Tps.Put_Changes"
0245 00e1       |    |		Load_Encached	Boolean_Cache
0246 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0247 00e1       |    |		Load_Encached	Boolean_Cache
0248 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0249 e003       |    |		Load	0x0,0x3
024a 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
024b 02c7       |    |		Declare_Variable	Any
024c 00d8       |    |		Load_Top	At_Offset_0
024d 1c00       |    |		Execute_Immediate	Run_Utility,0x0
024e 029f 0513  |    |		Declare_Subprogram	INIT_0510,For_Call
0250 e004       |    |		Load	0x0,0x4
0251 1916       |    |		Execute	Package,Field_Reference,Field_Number 0x16
0252 00c6       |    |		Action	Check_Subprogram_Elaborated
0253 e402       |    |		Load	0x2,0x2
0254 4806       |H   |		Short_Literal	0x6
0255 4802       |H   |		Short_Literal	0x2
0256 0099       |    |		Action	Reference_Dynamic
0257 4803       |H   |		Short_Literal	0x3
0258 4802       |H   |		Short_Literal	0x2
0259 0099       |    |		Action	Reference_Dynamic
025a 4804       |H   |		Short_Literal	0x4
025b 4802       |H   |		Short_Literal	0x2
025c 0099       |    |		Action	Reference_Dynamic
025d e009       |    |		Load	0x0,0x9
025e e00a       |    |		Load	0x0,0xa
025f 480d       |H   |		Short_Literal	0xd
0260 0007       |    |		Action	Break_Optional
0261			BODY_0240:
0261 e5fb       |    |		Load	0x2,-0x5
0262 e407       |    |		Load	0x2,0x7
0263 4808       |H   |		Short_Literal	0x8
0264 4802       |H   |		Short_Literal	0x2
0265 0099       |    |		Action	Reference_Dynamic
0266 4809       |H   |		Short_Literal	0x9
0267 4802       |H   |		Short_Literal	0x2
0268 0099       |    |		Action	Reference_Dynamic
0269 480a       |H   |		Short_Literal	0xa
026a 4802       |H   |		Short_Literal	0x2
026b 0099       |    |		Action	Reference_Dynamic
026c 480b       |H   |		Short_Literal	0xb
026d 4802       |H   |		Short_Literal	0x2
026e 0099       |    |		Action	Reference_Dynamic
026f e004       |    |		Load	0x0,0x4
0270 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0271 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
0272 0000 0000  |    |		.BLANK	0000[0x6]
0278 ; --------------------------------------------------------------------------------------
0278 ; SUBPROGRAM
0278 ; --------------------------------------------------------------------------------------
0278 0299       |    |		.CONST	0x0299								; Address of begin
0279 0004       |    |		.CONST	0x0004								; Address of exception handler
027a 000d       |    |		.CONST	0x000d								; Number of locals
027b			INIT_0278:
027b 0092 0840  |   @|		Action	Push_String_Extended,0x840					; "Tps.Show_Out_Of_Date"
027d 00e1       |    |		Load_Encached	Boolean_Cache
027e 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
027f 00e1       |    |		Load_Encached	Boolean_Cache
0280 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0281 e003       |    |		Load	0x0,0x3
0282 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0283 02c7       |    |		Declare_Variable	Any
0284 00d8       |    |		Load_Top	At_Offset_0
0285 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0286 029f 0553  |   S|		Declare_Subprogram	INIT_0550,For_Call
0288 e004       |    |		Load	0x0,0x4
0289 1916       |    |		Execute	Package,Field_Reference,Field_Number 0x16
028a 00c6       |    |		Action	Check_Subprogram_Elaborated
028b e402       |    |		Load	0x2,0x2
028c 4806       |H   |		Short_Literal	0x6
028d 4802       |H   |		Short_Literal	0x2
028e 0099       |    |		Action	Reference_Dynamic
028f 4803       |H   |		Short_Literal	0x3
0290 4802       |H   |		Short_Literal	0x2
0291 0099       |    |		Action	Reference_Dynamic
0292 4804       |H   |		Short_Literal	0x4
0293 4802       |H   |		Short_Literal	0x2
0294 0099       |    |		Action	Reference_Dynamic
0295 e00b       |    |		Load	0x0,0xb
0296 e00c       |    |		Load	0x0,0xc
0297 480d       |H   |		Short_Literal	0xd
0298 0007       |    |		Action	Break_Optional
0299			BODY_0278:
0299 e5fd       |    |		Load	0x2,-0x3
029a e407       |    |		Load	0x2,0x7
029b 4808       |H   |		Short_Literal	0x8
029c 4802       |H   |		Short_Literal	0x2
029d 0099       |    |		Action	Reference_Dynamic
029e 4809       |H   |		Short_Literal	0x9
029f 4802       |H   |		Short_Literal	0x2
02a0 0099       |    |		Action	Reference_Dynamic
02a1 480a       |H   |		Short_Literal	0xa
02a2 4802       |H   |		Short_Literal	0x2
02a3 0099       |    |		Action	Reference_Dynamic
02a4 480b       |H   |		Short_Literal	0xb
02a5 4802       |H   |		Short_Literal	0x2
02a6 0099       |    |		Action	Reference_Dynamic
02a7 e004       |    |		Load	0x0,0x4
02a8 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
02a9 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
02aa 0000 0000  |    |		.BLANK	0000[0x6]
02b0 ; --------------------------------------------------------------------------------------
02b0 ; SUBPROGRAM
02b0 ; --------------------------------------------------------------------------------------
02b0 02d1       |    |		.CONST	0x02d1								; Address of begin
02b1 0004       |    |		.CONST	0x0004								; Address of exception handler
02b2 000d       |    |		.CONST	0x000d								; Number of locals
02b3			INIT_02b0:
02b3 0092 0841  |   A|		Action	Push_String_Extended,0x841					; "Tps.Save_Archive"
02b5 00e1       |    |		Load_Encached	Boolean_Cache
02b6 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
02b7 00e1       |    |		Load_Encached	Boolean_Cache
02b8 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
02b9 e003       |    |		Load	0x0,0x3
02ba 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
02bb 02c7       |    |		Declare_Variable	Any
02bc 00d8       |    |		Load_Top	At_Offset_0
02bd 1c00       |    |		Execute_Immediate	Run_Utility,0x0
02be 029f 057b  |   {|		Declare_Subprogram	INIT_0578,For_Call
02c0 e004       |    |		Load	0x0,0x4
02c1 1916       |    |		Execute	Package,Field_Reference,Field_Number 0x16
02c2 00c6       |    |		Action	Check_Subprogram_Elaborated
02c3 e402       |    |		Load	0x2,0x2
02c4 4806       |H   |		Short_Literal	0x6
02c5 4802       |H   |		Short_Literal	0x2
02c6 0099       |    |		Action	Reference_Dynamic
02c7 4803       |H   |		Short_Literal	0x3
02c8 4802       |H   |		Short_Literal	0x2
02c9 0099       |    |		Action	Reference_Dynamic
02ca 4804       |H   |		Short_Literal	0x4
02cb 4802       |H   |		Short_Literal	0x2
02cc 0099       |    |		Action	Reference_Dynamic
02cd e00d       |    |		Load	0x0,0xd
02ce e00e       |    |		Load	0x0,0xe
02cf 480d       |H   |		Short_Literal	0xd
02d0 0007       |    |		Action	Break_Optional
02d1			BODY_02b0:
02d1 e5fd       |    |		Load	0x2,-0x3
02d2 e407       |    |		Load	0x2,0x7
02d3 4808       |H   |		Short_Literal	0x8
02d4 4802       |H   |		Short_Literal	0x2
02d5 0099       |    |		Action	Reference_Dynamic
02d6 4809       |H   |		Short_Literal	0x9
02d7 4802       |H   |		Short_Literal	0x2
02d8 0099       |    |		Action	Reference_Dynamic
02d9 480a       |H   |		Short_Literal	0xa
02da 4802       |H   |		Short_Literal	0x2
02db 0099       |    |		Action	Reference_Dynamic
02dc 480b       |H   |		Short_Literal	0xb
02dd 4802       |H   |		Short_Literal	0x2
02de 0099       |    |		Action	Reference_Dynamic
02df e004       |    |		Load	0x0,0x4
02e0 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
02e1 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
02e2 0000 0000  |    |		.BLANK	0000[0x6]
02e8 ; --------------------------------------------------------------------------------------
02e8 ; SUBPROGRAM
02e8 ; --------------------------------------------------------------------------------------
02e8 0309       |    |		.CONST	0x0309								; Address of begin
02e9 0004       |    |		.CONST	0x0004								; Address of exception handler
02ea 000d       |    |		.CONST	0x000d								; Number of locals
02eb			INIT_02e8:
02eb 0092 0842  |   B|		Action	Push_String_Extended,0x842					; "Tps.Restore_Archive"
02ed 00e1       |    |		Load_Encached	Boolean_Cache
02ee 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
02ef 00e1       |    |		Load_Encached	Boolean_Cache
02f0 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
02f1 e003       |    |		Load	0x0,0x3
02f2 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
02f3 02c7       |    |		Declare_Variable	Any
02f4 00d8       |    |		Load_Top	At_Offset_0
02f5 1c00       |    |		Execute_Immediate	Run_Utility,0x0
02f6 029f 05a3  |    |		Declare_Subprogram	INIT_05a0,For_Call
02f8 e004       |    |		Load	0x0,0x4
02f9 1916       |    |		Execute	Package,Field_Reference,Field_Number 0x16
02fa 00c6       |    |		Action	Check_Subprogram_Elaborated
02fb e402       |    |		Load	0x2,0x2
02fc 4806       |H   |		Short_Literal	0x6
02fd 4802       |H   |		Short_Literal	0x2
02fe 0099       |    |		Action	Reference_Dynamic
02ff 4803       |H   |		Short_Literal	0x3
0300 4802       |H   |		Short_Literal	0x2
0301 0099       |    |		Action	Reference_Dynamic
0302 4804       |H   |		Short_Literal	0x4
0303 4802       |H   |		Short_Literal	0x2
0304 0099       |    |		Action	Reference_Dynamic
0305 e00f       |    |		Load	0x0,0xf
0306 e010       |    |		Load	0x0,0x10
0307 480d       |H   |		Short_Literal	0xd
0308 0007       |    |		Action	Break_Optional
0309			BODY_02e8:
0309 e5fd       |    |		Load	0x2,-0x3
030a e407       |    |		Load	0x2,0x7
030b 4808       |H   |		Short_Literal	0x8
030c 4802       |H   |		Short_Literal	0x2
030d 0099       |    |		Action	Reference_Dynamic
030e 4809       |H   |		Short_Literal	0x9
030f 4802       |H   |		Short_Literal	0x2
0310 0099       |    |		Action	Reference_Dynamic
0311 480a       |H   |		Short_Literal	0xa
0312 4802       |H   |		Short_Literal	0x2
0313 0099       |    |		Action	Reference_Dynamic
0314 480b       |H   |		Short_Literal	0xb
0315 4802       |H   |		Short_Literal	0x2
0316 0099       |    |		Action	Reference_Dynamic
0317 e004       |    |		Load	0x0,0x4
0318 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0319 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
031a 0000 0000  |    |		.BLANK	0000[0x6]
0320 ; --------------------------------------------------------------------------------------
0320 ; SUBPROGRAM
0320 ; --------------------------------------------------------------------------------------
0320 0341       | A  |		.CONST	0x0341								; Address of begin
0321 0004       |    |		.CONST	0x0004								; Address of exception handler
0322 000d       |    |		.CONST	0x000d								; Number of locals
0323			INIT_0320:
0323 0092 0843  |   C|		Action	Push_String_Extended,0x843					; "Tps.Connect"
0325 00e1       |    |		Load_Encached	Boolean_Cache
0326 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0327 00e1       |    |		Load_Encached	Boolean_Cache
0328 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0329 e003       |    |		Load	0x0,0x3
032a 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
032b 02c7       |    |		Declare_Variable	Any
032c 00d8       |    |		Load_Top	At_Offset_0
032d 1c00       |    |		Execute_Immediate	Run_Utility,0x0
032e 029f 05cb  |    |		Declare_Subprogram	INIT_05c8,For_Call
0330 e004       |    |		Load	0x0,0x4
0331 1916       |    |		Execute	Package,Field_Reference,Field_Number 0x16
0332 00c6       |    |		Action	Check_Subprogram_Elaborated
0333 e402       |    |		Load	0x2,0x2
0334 4806       |H   |		Short_Literal	0x6
0335 4802       |H   |		Short_Literal	0x2
0336 0099       |    |		Action	Reference_Dynamic
0337 4803       |H   |		Short_Literal	0x3
0338 4802       |H   |		Short_Literal	0x2
0339 0099       |    |		Action	Reference_Dynamic
033a 4804       |H   |		Short_Literal	0x4
033b 4802       |H   |		Short_Literal	0x2
033c 0099       |    |		Action	Reference_Dynamic
033d e011       |    |		Load	0x0,0x11
033e e012       |    |		Load	0x0,0x12
033f 480d       |H   |		Short_Literal	0xd
0340 0007       |    |		Action	Break_Optional
0341			BODY_0320:
0341 e5fe       |    |		Load	0x2,-0x2
0342 e407       |    |		Load	0x2,0x7
0343 4808       |H   |		Short_Literal	0x8
0344 4802       |H   |		Short_Literal	0x2
0345 0099       |    |		Action	Reference_Dynamic
0346 4809       |H   |		Short_Literal	0x9
0347 4802       |H   |		Short_Literal	0x2
0348 0099       |    |		Action	Reference_Dynamic
0349 480a       |H   |		Short_Literal	0xa
034a 4802       |H   |		Short_Literal	0x2
034b 0099       |    |		Action	Reference_Dynamic
034c 480b       |H   |		Short_Literal	0xb
034d 4802       |H   |		Short_Literal	0x2
034e 0099       |    |		Action	Reference_Dynamic
034f e004       |    |		Load	0x0,0x4
0350 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0351 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0352 0000 0000  |    |		.BLANK	0000[0x6]
0358 ; --------------------------------------------------------------------------------------
0358 ; SUBPROGRAM
0358 ; --------------------------------------------------------------------------------------
0358 0379       | y  |		.CONST	0x0379								; Address of begin
0359 0004       |    |		.CONST	0x0004								; Address of exception handler
035a 000d       |    |		.CONST	0x000d								; Number of locals
035b			INIT_0358:
035b 0092 0844  |   D|		Action	Push_String_Extended,0x844					; "Tps.Disconnect"
035d 00e1       |    |		Load_Encached	Boolean_Cache
035e 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
035f 00e1       |    |		Load_Encached	Boolean_Cache
0360 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0361 e003       |    |		Load	0x0,0x3
0362 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0363 02c7       |    |		Declare_Variable	Any
0364 00d8       |    |		Load_Top	At_Offset_0
0365 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0366 029f 05fb  |    |		Declare_Subprogram	INIT_05f8,For_Call
0368 e004       |    |		Load	0x0,0x4
0369 1916       |    |		Execute	Package,Field_Reference,Field_Number 0x16
036a 00c6       |    |		Action	Check_Subprogram_Elaborated
036b e402       |    |		Load	0x2,0x2
036c 4806       |H   |		Short_Literal	0x6
036d 4802       |H   |		Short_Literal	0x2
036e 0099       |    |		Action	Reference_Dynamic
036f 4803       |H   |		Short_Literal	0x3
0370 4802       |H   |		Short_Literal	0x2
0371 0099       |    |		Action	Reference_Dynamic
0372 4804       |H   |		Short_Literal	0x4
0373 4802       |H   |		Short_Literal	0x2
0374 0099       |    |		Action	Reference_Dynamic
0375 e013       |    |		Load	0x0,0x13
0376 e014       |    |		Load	0x0,0x14
0377 480d       |H   |		Short_Literal	0xd
0378 0007       |    |		Action	Break_Optional
0379			BODY_0358:
0379 e5fe       |    |		Load	0x2,-0x2
037a e407       |    |		Load	0x2,0x7
037b 4808       |H   |		Short_Literal	0x8
037c 4802       |H   |		Short_Literal	0x2
037d 0099       |    |		Action	Reference_Dynamic
037e 4809       |H   |		Short_Literal	0x9
037f 4802       |H   |		Short_Literal	0x2
0380 0099       |    |		Action	Reference_Dynamic
0381 480a       |H   |		Short_Literal	0xa
0382 4802       |H   |		Short_Literal	0x2
0383 0099       |    |		Action	Reference_Dynamic
0384 480b       |H   |		Short_Literal	0xb
0385 4802       |H   |		Short_Literal	0x2
0386 0099       |    |		Action	Reference_Dynamic
0387 e004       |    |		Load	0x0,0x4
0388 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0389 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
038a 0000 0000  |    |		.BLANK	0000[0x6]
0390 ; --------------------------------------------------------------------------------------
0390 ; SUBPROGRAM
0390 ; --------------------------------------------------------------------------------------
0390 03be       |    |		.CONST	0x03be								; Address of begin
0391 0004       |    |		.CONST	0x0004								; Address of exception handler
0392 0013       |    |		.CONST	0x0013								; Number of locals
0393			INIT_0390:
0393 0092 0845  |   E|		Action	Push_String_Extended,0x845					; "Tps.Create_Files"
0395 00e1       |    |		Load_Encached	Boolean_Cache
0396 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0397 00e1       |    |		Load_Encached	Boolean_Cache
0398 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0399 029f 062b  |   +|		Declare_Subprogram	INIT_0628,For_Call
039b e004       |    |		Load	0x0,0x4
039c 1918       |    |		Execute	Package,Field_Reference,Field_Number 0x18
039d 00c6       |    |		Action	Check_Subprogram_Elaborated
039e 4805       |H   |		Short_Literal	0x5
039f 4802       |H   |		Short_Literal	0x2
03a0 0099       |    |		Action	Reference_Dynamic
03a1 4803       |H   |		Short_Literal	0x3
03a2 4802       |H   |		Short_Literal	0x2
03a3 0099       |    |		Action	Reference_Dynamic
03a4 4804       |H   |		Short_Literal	0x4
03a5 4802       |H   |		Short_Literal	0x2
03a6 0099       |    |		Action	Reference_Dynamic
03a7 e015       |    |		Load	0x0,0x15
03a8 e016       |    |		Load	0x0,0x16
03a9 480b       |H   |		Short_Literal	0xb
03aa 0007       |    |		Action	Break_Optional
03ab 029f 06a3  |    |		Declare_Subprogram	INIT_06a0,For_Call
03ad e004       |    |		Load	0x0,0x4
03ae 1916       |    |		Execute	Package,Field_Reference,Field_Number 0x16
03af 00c6       |    |		Action	Check_Subprogram_Elaborated
03b0 e402       |    |		Load	0x2,0x2
03b1 480c       |H   |		Short_Literal	0xc
03b2 4802       |H   |		Short_Literal	0x2
03b3 0099       |    |		Action	Reference_Dynamic
03b4 4803       |H   |		Short_Literal	0x3
03b5 4802       |H   |		Short_Literal	0x2
03b6 0099       |    |		Action	Reference_Dynamic
03b7 4804       |H   |		Short_Literal	0x4
03b8 4802       |H   |		Short_Literal	0x2
03b9 0099       |    |		Action	Reference_Dynamic
03ba e017       |    |		Load	0x0,0x17
03bb e018       |    |		Load	0x0,0x18
03bc 4813       |H   |		Short_Literal	0x13
03bd 0007       |    |		Action	Break_Optional
03be			BODY_0390:
03be e5f9       |    |		Load	0x2,-0x7
03bf e40d       |    |		Load	0x2,0xd
03c0 480e       |H   |		Short_Literal	0xe
03c1 4802       |H   |		Short_Literal	0x2
03c2 0099       |    |		Action	Reference_Dynamic
03c3 480f       |H   |		Short_Literal	0xf
03c4 4802       |H   |		Short_Literal	0x2
03c5 0099       |    |		Action	Reference_Dynamic
03c6 4810       |H   |		Short_Literal	0x10
03c7 4802       |H   |		Short_Literal	0x2
03c8 0099       |    |		Action	Reference_Dynamic
03c9 4811       |H   |		Short_Literal	0x11
03ca 4802       |H   |		Short_Literal	0x2
03cb 0099       |    |		Action	Reference_Dynamic
03cc e004       |    |		Load	0x0,0x4
03cd 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
03ce 4508       |E   |		Exit_Suprogram	New_Top_Offset 0x8
03cf 0000       |    |		.XXX[0x1]
03d0 ; --------------------------------------------------------------------------------------
03d0 ; SUBPROGRAM
03d0 ; --------------------------------------------------------------------------------------
03d0 03fe       |    |		.CONST	0x03fe								; Address of begin
03d1 0004       |    |		.CONST	0x0004								; Address of exception handler
03d2 0013       |    |		.CONST	0x0013								; Number of locals
03d3			INIT_03d0:
03d3 0092 0846  |   F|		Action	Push_String_Extended,0x846					; "Tps.Create_Graphics"
03d5 00e1       |    |		Load_Encached	Boolean_Cache
03d6 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
03d7 00e1       |    |		Load_Encached	Boolean_Cache
03d8 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
03d9 029f 06f3  |    |		Declare_Subprogram	INIT_06f0,For_Call
03db e004       |    |		Load	0x0,0x4
03dc 1918       |    |		Execute	Package,Field_Reference,Field_Number 0x18
03dd 00c6       |    |		Action	Check_Subprogram_Elaborated
03de 4805       |H   |		Short_Literal	0x5
03df 4802       |H   |		Short_Literal	0x2
03e0 0099       |    |		Action	Reference_Dynamic
03e1 4803       |H   |		Short_Literal	0x3
03e2 4802       |H   |		Short_Literal	0x2
03e3 0099       |    |		Action	Reference_Dynamic
03e4 4804       |H   |		Short_Literal	0x4
03e5 4802       |H   |		Short_Literal	0x2
03e6 0099       |    |		Action	Reference_Dynamic
03e7 e019       |    |		Load	0x0,0x19
03e8 e01a       |    |		Load	0x0,0x1a
03e9 480b       |H   |		Short_Literal	0xb
03ea 0007       |    |		Action	Break_Optional
03eb 029f 076b  |   k|		Declare_Subprogram	INIT_0768,For_Call
03ed e004       |    |		Load	0x0,0x4
03ee 1916       |    |		Execute	Package,Field_Reference,Field_Number 0x16
03ef 00c6       |    |		Action	Check_Subprogram_Elaborated
03f0 e402       |    |		Load	0x2,0x2
03f1 480c       |H   |		Short_Literal	0xc
03f2 4802       |H   |		Short_Literal	0x2
03f3 0099       |    |		Action	Reference_Dynamic
03f4 4803       |H   |		Short_Literal	0x3
03f5 4802       |H   |		Short_Literal	0x2
03f6 0099       |    |		Action	Reference_Dynamic
03f7 4804       |H   |		Short_Literal	0x4
03f8 4802       |H   |		Short_Literal	0x2
03f9 0099       |    |		Action	Reference_Dynamic
03fa e01b       |    |		Load	0x0,0x1b
03fb e01c       |    |		Load	0x0,0x1c
03fc 4813       |H   |		Short_Literal	0x13
03fd 0007       |    |		Action	Break_Optional
03fe			BODY_03d0:
03fe e5f9       |    |		Load	0x2,-0x7
03ff e40d       |    |		Load	0x2,0xd
0400 480e       |H   |		Short_Literal	0xe
0401 4802       |H   |		Short_Literal	0x2
0402 0099       |    |		Action	Reference_Dynamic
0403 480f       |H   |		Short_Literal	0xf
0404 4802       |H   |		Short_Literal	0x2
0405 0099       |    |		Action	Reference_Dynamic
0406 4810       |H   |		Short_Literal	0x10
0407 4802       |H   |		Short_Literal	0x2
0408 0099       |    |		Action	Reference_Dynamic
0409 4811       |H   |		Short_Literal	0x11
040a 4802       |H   |		Short_Literal	0x2
040b 0099       |    |		Action	Reference_Dynamic
040c e004       |    |		Load	0x0,0x4
040d 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
040e 4508       |E   |		Exit_Suprogram	New_Top_Offset 0x8
040f 0000       |    |		.XXX[0x1]
0410 ; --------------------------------------------------------------------------------------
0410 ; SUBPROGRAM
0410 ; --------------------------------------------------------------------------------------
0410 041a       |    |		.CONST	0x041a								; Address of begin
0411 0004       |    |		.CONST	0x0004								; Address of exception handler
0412 0002       |    |		.CONST	0x0002								; Number of locals
0413			INIT_0410:
0413 e01d       |    |		Load	0x0,0x1d
0414 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0415 02c7       |    |		Declare_Variable	Any
0416 e5ff       |    |		Load	0x2,-0x1
0417 e01e       |    |		Load	0x0,0x1e
0418 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0419 a402       |    |		Store_Unchecked	0x2,0x2
041a			BODY_0410:
041a 00d8       |    |		Load_Top	At_Offset_0
041b e01d       |    |		Load	0x0,0x1d
041c 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
041d 6820       |h   |		Jump_Zero	0x43e
041e e5ff       |    |		Load	0x2,-0x1
041f e01e       |    |		Load	0x0,0x1e
0420 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
0421 680d       |h   |		Jump_Zero	0x42f
0422 e001       |    |		Load	0x0,0x1
0423 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0424 4807       |H   |		Short_Literal	0x7
0425 0092 0847  |   G|		Action	Push_String_Extended,0x847					; "View gateway \x22"
0427 e5ff       |    |		Load	0x2,-0x1
0428 01cc       |    |		Execute	Vector,Catenate
0429 0092 0848  |   H|		Action	Push_String_Extended,0x848					; "\x22 is ambiguous; unable to create gateways."
042b 01cc       |    |		Execute	Vector,Catenate
042c e01f       |    |		Load	0x0,0x1f
042d 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
042e 780c       |x   |		Jump	0x43b
042f e001       |    |		Load	0x0,0x1
0430 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0431 4807       |H   |		Short_Literal	0x7
0432 0092 0847  |   G|		Action	Push_String_Extended,0x847					; "View gateway \x22"
0434 e5ff       |    |		Load	0x2,-0x1
0435 01cc       |    |		Execute	Vector,Catenate
0436 0092 0849  |   I|		Action	Push_String_Extended,0x849					; "\x22 does not exist; unable to create gateways."
0438 01cc       |    |		Execute	Vector,Catenate
0439 e01f       |    |		Load	0x0,0x1f
043a 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
043b 4801       |H   |		Short_Literal	0x1
043c a5fe       |    |		Store_Unchecked	0x2,-0x2
043d 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
043e e5ff       |    |		Load	0x2,-0x1
043f e020       |    |		Load	0x0,0x20
0440 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
0441 700f       |p   |		Jump_Nonzero	0x451
0442 e001       |    |		Load	0x0,0x1
0443 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0444 4807       |H   |		Short_Literal	0x7
0445 0092 0847  |   G|		Action	Push_String_Extended,0x847					; "View gateway \x22"
0447 e5ff       |    |		Load	0x2,-0x1
0448 01cc       |    |		Execute	Vector,Catenate
0449 0092 084a  |   J|		Action	Push_String_Extended,0x84a					; "\x22 exists, but is not a TPS directory gateway; unable to create gateways."
044b 01cc       |    |		Execute	Vector,Catenate
044c e01f       |    |		Load	0x0,0x1f
044d 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
044e 4801       |H   |		Short_Literal	0x1
044f a5fe       |    |		Store_Unchecked	0x2,-0x2
0450 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0451 4800       |H   |		Short_Literal	0x0
0452 a5fe       |    |		Store_Unchecked	0x2,-0x2
0453 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0454 0000 0000  |    |		.BLANK	0000[0x4]
0458 ; --------------------------------------------------------------------------------------
0458 ; SUBPROGRAM
0458 ; --------------------------------------------------------------------------------------
0458 045b       | [  |		.CONST	0x045b								; Address of begin
0459 0004       |    |		.CONST	0x0004								; Address of exception handler
045a 0001       |    |		.CONST	0x0001								; Number of locals
045b			BODY_0458:
045b			INIT_0458:
045b e001       |    |		Load	0x0,0x1
045c 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
045d 4800       |H   |		Short_Literal	0x0
045e 0092 084b  |   K|		Action	Push_String_Extended,0x84b					; "[Tps.Create (Gateway_Name => \x22"
0460 e5ff       |    |		Load	0x2,-0x1
0461 01cc       |    |		Execute	Vector,Catenate
0462 0092 084c  |   L|		Action	Push_String_Extended,0x84c					; "\x22, Parent_Gateway_Name => \x22"
0464 01cc       |    |		Execute	Vector,Catenate
0465 e5fe       |    |		Load	0x2,-0x2
0466 01cc       |    |		Execute	Vector,Catenate
0467 0092 084d  |   M|		Action	Push_String_Extended,0x84d					; "\x22, Host => \x22"
0469 01cc       |    |		Execute	Vector,Catenate
046a e5fd       |    |		Load	0x2,-0x3
046b 01cc       |    |		Execute	Vector,Catenate
046c 0092 084e  |   N|		Action	Push_String_Extended,0x84e					; "\x22, Desktop => \x22"
046e 01cc       |    |		Execute	Vector,Catenate
046f e5fc       |    |		Load	0x2,-0x4
0470 01cc       |    |		Execute	Vector,Catenate
0471 0092 084f  |   O|		Action	Push_String_Extended,0x84f					; "\x22, Icon_Name => \x22"
0473 01cc       |    |		Execute	Vector,Catenate
0474 e5fb       |    |		Load	0x2,-0x5
0475 01cc       |    |		Execute	Vector,Catenate
0476 0092 0850  |   P|		Action	Push_String_Extended,0x850					; "\x22, Icon_Type => "
0478 01cc       |    |		Execute	Vector,Catenate
0479 e5fa       |    |		Load	0x2,-0x6
047a e27a       | z  |		Load	0x1,0x7a
047b 011c       |    |		Execute	Any,Convert_Unchecked
047c 1c01       |    |		Execute_Immediate	Run_Utility,0x1
047d 01cc       |    |		Execute	Vector,Catenate
047e 0092 0851  |   Q|		Action	Push_String_Extended,0x851					; ", Allow_Accept_Changes => "
0480 01cc       |    |		Execute	Vector,Catenate
0481 e5f9       |    |		Load	0x2,-0x7
0482 00e1       |    |		Load_Encached	Boolean_Cache
0483 011c       |    |		Execute	Any,Convert_Unchecked
0484 1c01       |    |		Execute_Immediate	Run_Utility,0x1
0485 01cc       |    |		Execute	Vector,Catenate
0486 0092 0852  |   R|		Action	Push_String_Extended,0x852					; ", Allow_Put_Changes => "
0488 01cc       |    |		Execute	Vector,Catenate
0489 e5f8       |    |		Load	0x2,-0x8
048a 00e1       |    |		Load_Encached	Boolean_Cache
048b 011c       |    |		Execute	Any,Convert_Unchecked
048c 1c01       |    |		Execute_Immediate	Run_Utility,0x1
048d 01cc       |    |		Execute	Vector,Catenate
048e 0092 0853  |   S|		Action	Push_String_Extended,0x853					; ", Refresh_Mode => "
0490 01cc       |    |		Execute	Vector,Catenate
0491 e5f7       |    |		Load	0x2,-0x9
0492 e24e       | N  |		Load	0x1,0x4e
0493 011c       |    |		Execute	Any,Convert_Unchecked
0494 1c01       |    |		Execute_Immediate	Run_Utility,0x1
0495 01cc       |    |		Execute	Vector,Catenate
0496 0092 0854  |   T|		Action	Push_String_Extended,0x854					; ", Frame_Name => \x22"
0498 01cc       |    |		Execute	Vector,Catenate
0499 e5f6       |    |		Load	0x2,-0xa
049a 01cc       |    |		Execute	Vector,Catenate
049b 0092 0855  |   U|		Action	Push_String_Extended,0x855					; "\x22, Traverse_To_Desktop => "
049d 01cc       |    |		Execute	Vector,Catenate
049e e5f5       |    |		Load	0x2,-0xb
049f 00e1       |    |		Load_Encached	Boolean_Cache
04a0 011c       |    |		Execute	Any,Convert_Unchecked
04a1 1c01       |    |		Execute_Immediate	Run_Utility,0x1
04a2 01cc       |    |		Execute	Vector,Catenate
04a3 0092 0856  |   V|		Action	Push_String_Extended,0x856					; ", Connected => \x22"
04a5 01cc       |    |		Execute	Vector,Catenate
04a6 e5f4       |    |		Load	0x2,-0xc
04a7 01cc       |    |		Execute	Vector,Catenate
04a8 0092 0857  |   W|		Action	Push_String_Extended,0x857					; "\x22, Response => \x22"
04aa 01cc       |    |		Execute	Vector,Catenate
04ab e5f3       |    |		Load	0x2,-0xd
04ac 01cc       |    |		Execute	Vector,Catenate
04ad 0092 0858  |   X|		Action	Push_String_Extended,0x858					; "\x22)]"
04af 01cc       |    |		Execute	Vector,Catenate
04b0 e01f       |    |		Load	0x0,0x1f
04b1 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
04b2 e402       |    |		Load	0x2,0x2
04b3 e405       |    |		Load	0x2,0x5
04b4 e404       |    |		Load	0x2,0x4
04b5 4801       |H   |		Short_Literal	0x1
04b6 4801       |H   |		Short_Literal	0x1
04b7 e021       | !  |		Load	0x0,0x21
04b8 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
04b9 e5f4       |    |		Load	0x2,-0xc
04ba e5f5       |    |		Load	0x2,-0xb
04bb e5f6       |    |		Load	0x2,-0xa
04bc e5f7       |    |		Load	0x2,-0x9
04bd e291       |    |		Load	0x1,0x91
04be 01d7       |    |		Execute	Vector,Field_Read
04bf e5f8       |    |		Load	0x2,-0x8
04c0 e5f9       |    |		Load	0x2,-0x7
04c1 e5fa       |    |		Load	0x2,-0x6
04c2 e293       |    |		Load	0x1,0x93
04c3 01d7       |    |		Execute	Vector,Field_Read
04c4 e5fb       |    |		Load	0x2,-0x5
04c5 e5fc       |    |		Load	0x2,-0x4
04c6 e5fd       |    |		Load	0x2,-0x3
04c7 e5fe       |    |		Load	0x2,-0x2
04c8 e5ff       |    |		Load	0x2,-0x1
04c9 e020       |    |		Load	0x0,0x20
04ca 1829       | )  |		Execute	Package,Field_Execute,Field_Number 0x29
04cb c404       |    |		Store	0x2,0x4
04cc c405       |    |		Store	0x2,0x5
04cd c402       |    |		Store	0x2,0x2
04ce 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
04cf 0000       |    |		.XXX[0x1]
04d0 ; --------------------------------------------------------------------------------------
04d0 ; SUBPROGRAM
04d0 ; --------------------------------------------------------------------------------------
04d0 04d3       |    |		.CONST	0x04d3								; Address of begin
04d1 0004       |    |		.CONST	0x0004								; Address of exception handler
04d2 0001       |    |		.CONST	0x0001								; Number of locals
04d3			BODY_04d0:
04d3			INIT_04d0:
04d3 e001       |    |		Load	0x0,0x1
04d4 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
04d5 4800       |H   |		Short_Literal	0x0
04d6 0092 0859  |   Y|		Action	Push_String_Extended,0x859					; "[Tps.Accept_Changes (Into_Gateways => \x22"
04d8 e5ff       |    |		Load	0x2,-0x1
04d9 01cc       |    |		Execute	Vector,Catenate
04da 0092 085a  |   Z|		Action	Push_String_Extended,0x85a					; "\x22, Recursive => "
04dc 01cc       |    |		Execute	Vector,Catenate
04dd e5fe       |    |		Load	0x2,-0x2
04de 00e1       |    |		Load_Encached	Boolean_Cache
04df 011c       |    |		Execute	Any,Convert_Unchecked
04e0 1c01       |    |		Execute_Immediate	Run_Utility,0x1
04e1 01cc       |    |		Execute	Vector,Catenate
04e2 0092 085b  |   [|		Action	Push_String_Extended,0x85b					; ", Force => "
04e4 01cc       |    |		Execute	Vector,Catenate
04e5 e5fd       |    |		Load	0x2,-0x3
04e6 00e1       |    |		Load_Encached	Boolean_Cache
04e7 011c       |    |		Execute	Any,Convert_Unchecked
04e8 1c01       |    |		Execute_Immediate	Run_Utility,0x1
04e9 01cc       |    |		Execute	Vector,Catenate
04ea 0092 085c  |   \|		Action	Push_String_Extended,0x85c					; ", Effort_Only => "
04ec 01cc       |    |		Execute	Vector,Catenate
04ed e5fc       |    |		Load	0x2,-0x4
04ee 00e1       |    |		Load_Encached	Boolean_Cache
04ef 011c       |    |		Execute	Any,Convert_Unchecked
04f0 1c01       |    |		Execute_Immediate	Run_Utility,0x1
04f1 01cc       |    |		Execute	Vector,Catenate
04f2 0092 085d  |   ]|		Action	Push_String_Extended,0x85d					; ", Response => \x22"
04f4 01cc       |    |		Execute	Vector,Catenate
04f5 e5fb       |    |		Load	0x2,-0x5
04f6 01cc       |    |		Execute	Vector,Catenate
04f7 0092 0858  |   X|		Action	Push_String_Extended,0x858					; "\x22)]"
04f9 01cc       |    |		Execute	Vector,Catenate
04fa e01f       |    |		Load	0x0,0x1f
04fb 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
04fc e405       |    |		Load	0x2,0x5
04fd e404       |    |		Load	0x2,0x4
04fe e403       |    |		Load	0x2,0x3
04ff e5fc       |    |		Load	0x2,-0x4
0500 e5fd       |    |		Load	0x2,-0x3
0501 e5fe       |    |		Load	0x2,-0x2
0502 e5ff       |    |		Load	0x2,-0x1
0503 e020       |    |		Load	0x0,0x20
0504 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0505 c403       |    |		Store	0x2,0x3
0506 c404       |    |		Store	0x2,0x4
0507 c405       |    |		Store	0x2,0x5
0508 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0509 0000 0000  |    |		.BLANK	0000[0x7]
0510 ; --------------------------------------------------------------------------------------
0510 ; SUBPROGRAM
0510 ; --------------------------------------------------------------------------------------
0510 0513       |    |		.CONST	0x0513								; Address of begin
0511 0004       |    |		.CONST	0x0004								; Address of exception handler
0512 0001       |    |		.CONST	0x0001								; Number of locals
0513			BODY_0510:
0513			INIT_0510:
0513 e001       |    |		Load	0x0,0x1
0514 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0515 4800       |H   |		Short_Literal	0x0
0516 0092 085e  |   ^|		Action	Push_String_Extended,0x85e					; "[Tps.Put_Changes (From_Gateways => \x22"
0518 e5ff       |    |		Load	0x2,-0x1
0519 01cc       |    |		Execute	Vector,Catenate
051a 0092 085a  |   Z|		Action	Push_String_Extended,0x85a					; "\x22, Recursive => "
051c 01cc       |    |		Execute	Vector,Catenate
051d e5fe       |    |		Load	0x2,-0x2
051e 00e1       |    |		Load_Encached	Boolean_Cache
051f 011c       |    |		Execute	Any,Convert_Unchecked
0520 1c01       |    |		Execute_Immediate	Run_Utility,0x1
0521 01cc       |    |		Execute	Vector,Catenate
0522 0092 085b  |   [|		Action	Push_String_Extended,0x85b					; ", Force => "
0524 01cc       |    |		Execute	Vector,Catenate
0525 e5fd       |    |		Load	0x2,-0x3
0526 00e1       |    |		Load_Encached	Boolean_Cache
0527 011c       |    |		Execute	Any,Convert_Unchecked
0528 1c01       |    |		Execute_Immediate	Run_Utility,0x1
0529 01cc       |    |		Execute	Vector,Catenate
052a 0092 085c  |   \|		Action	Push_String_Extended,0x85c					; ", Effort_Only => "
052c 01cc       |    |		Execute	Vector,Catenate
052d e5fc       |    |		Load	0x2,-0x4
052e 00e1       |    |		Load_Encached	Boolean_Cache
052f 011c       |    |		Execute	Any,Convert_Unchecked
0530 1c01       |    |		Execute_Immediate	Run_Utility,0x1
0531 01cc       |    |		Execute	Vector,Catenate
0532 0092 085d  |   ]|		Action	Push_String_Extended,0x85d					; ", Response => \x22"
0534 01cc       |    |		Execute	Vector,Catenate
0535 e5fb       |    |		Load	0x2,-0x5
0536 01cc       |    |		Execute	Vector,Catenate
0537 0092 0858  |   X|		Action	Push_String_Extended,0x858					; "\x22)]"
0539 01cc       |    |		Execute	Vector,Catenate
053a e01f       |    |		Load	0x0,0x1f
053b 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
053c e405       |    |		Load	0x2,0x5
053d e404       |    |		Load	0x2,0x4
053e e403       |    |		Load	0x2,0x3
053f e5fc       |    |		Load	0x2,-0x4
0540 e5fd       |    |		Load	0x2,-0x3
0541 e5fe       |    |		Load	0x2,-0x2
0542 e5ff       |    |		Load	0x2,-0x1
0543 e020       |    |		Load	0x0,0x20
0544 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
0545 c403       |    |		Store	0x2,0x3
0546 c404       |    |		Store	0x2,0x4
0547 c405       |    |		Store	0x2,0x5
0548 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0549 0000 0000  |    |		.BLANK	0000[0x7]
0550 ; --------------------------------------------------------------------------------------
0550 ; SUBPROGRAM
0550 ; --------------------------------------------------------------------------------------
0550 0553       | S  |		.CONST	0x0553								; Address of begin
0551 0004       |    |		.CONST	0x0004								; Address of exception handler
0552 0001       |    |		.CONST	0x0001								; Number of locals
0553			BODY_0550:
0553			INIT_0550:
0553 e001       |    |		Load	0x0,0x1
0554 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0555 4800       |H   |		Short_Literal	0x0
0556 0092 085f  |   _|		Action	Push_String_Extended,0x85f					; "[Tps.Show_Out_Of_Date (Gateways => \x22"
0558 e5ff       |    |		Load	0x2,-0x1
0559 01cc       |    |		Execute	Vector,Catenate
055a 0092 085a  |   Z|		Action	Push_String_Extended,0x85a					; "\x22, Recursive => "
055c 01cc       |    |		Execute	Vector,Catenate
055d e5fe       |    |		Load	0x2,-0x2
055e 00e1       |    |		Load_Encached	Boolean_Cache
055f 011c       |    |		Execute	Any,Convert_Unchecked
0560 1c01       |    |		Execute_Immediate	Run_Utility,0x1
0561 01cc       |    |		Execute	Vector,Catenate
0562 0092 085d  |   ]|		Action	Push_String_Extended,0x85d					; ", Response => \x22"
0564 01cc       |    |		Execute	Vector,Catenate
0565 e5fd       |    |		Load	0x2,-0x3
0566 01cc       |    |		Execute	Vector,Catenate
0567 0092 0858  |   X|		Action	Push_String_Extended,0x858					; "\x22)]"
0569 01cc       |    |		Execute	Vector,Catenate
056a e01f       |    |		Load	0x0,0x1f
056b 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
056c e405       |    |		Load	0x2,0x5
056d e404       |    |		Load	0x2,0x4
056e e403       |    |		Load	0x2,0x3
056f e5fe       |    |		Load	0x2,-0x2
0570 e5ff       |    |		Load	0x2,-0x1
0571 e020       |    |		Load	0x0,0x20
0572 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0573 c403       |    |		Store	0x2,0x3
0574 c404       |    |		Store	0x2,0x4
0575 c405       |    |		Store	0x2,0x5
0576 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0577 0000       |    |		.XXX[0x1]
0578 ; --------------------------------------------------------------------------------------
0578 ; SUBPROGRAM
0578 ; --------------------------------------------------------------------------------------
0578 057b       | {  |		.CONST	0x057b								; Address of begin
0579 0004       |    |		.CONST	0x0004								; Address of exception handler
057a 0001       |    |		.CONST	0x0001								; Number of locals
057b			BODY_0578:
057b			INIT_0578:
057b e001       |    |		Load	0x0,0x1
057c 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
057d 4800       |H   |		Short_Literal	0x0
057e 0092 0860  |   `|		Action	Push_String_Extended,0x860					; "[Tps.Save_Archive (Tps_Directory_Gateways => \x22"
0580 e5ff       |    |		Load	0x2,-0x1
0581 01cc       |    |		Execute	Vector,Catenate
0582 0092 0861  |   a|		Action	Push_String_Extended,0x861					; "\x22, Effort_Only => "
0584 01cc       |    |		Execute	Vector,Catenate
0585 e5fe       |    |		Load	0x2,-0x2
0586 00e1       |    |		Load_Encached	Boolean_Cache
0587 011c       |    |		Execute	Any,Convert_Unchecked
0588 1c01       |    |		Execute_Immediate	Run_Utility,0x1
0589 01cc       |    |		Execute	Vector,Catenate
058a 0092 085d  |   ]|		Action	Push_String_Extended,0x85d					; ", Response => \x22"
058c 01cc       |    |		Execute	Vector,Catenate
058d e5fd       |    |		Load	0x2,-0x3
058e 01cc       |    |		Execute	Vector,Catenate
058f 0092 0858  |   X|		Action	Push_String_Extended,0x858					; "\x22)]"
0591 01cc       |    |		Execute	Vector,Catenate
0592 e01f       |    |		Load	0x0,0x1f
0593 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0594 e405       |    |		Load	0x2,0x5
0595 e404       |    |		Load	0x2,0x4
0596 e403       |    |		Load	0x2,0x3
0597 e5fe       |    |		Load	0x2,-0x2
0598 e5ff       |    |		Load	0x2,-0x1
0599 e020       |    |		Load	0x0,0x20
059a 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
059b c403       |    |		Store	0x2,0x3
059c c404       |    |		Store	0x2,0x4
059d c405       |    |		Store	0x2,0x5
059e 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
059f 0000       |    |		.XXX[0x1]
05a0 ; --------------------------------------------------------------------------------------
05a0 ; SUBPROGRAM
05a0 ; --------------------------------------------------------------------------------------
05a0 05a3       |    |		.CONST	0x05a3								; Address of begin
05a1 0004       |    |		.CONST	0x0004								; Address of exception handler
05a2 0001       |    |		.CONST	0x0001								; Number of locals
05a3			BODY_05a0:
05a3			INIT_05a0:
05a3 e001       |    |		Load	0x0,0x1
05a4 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
05a5 4800       |H   |		Short_Literal	0x0
05a6 0092 0862  |   b|		Action	Push_String_Extended,0x862					; "[Tps.Restore_Archive (Tps_Directory_Gateways => \x22"
05a8 e5ff       |    |		Load	0x2,-0x1
05a9 01cc       |    |		Execute	Vector,Catenate
05aa 0092 0861  |   a|		Action	Push_String_Extended,0x861					; "\x22, Effort_Only => "
05ac 01cc       |    |		Execute	Vector,Catenate
05ad e5fe       |    |		Load	0x2,-0x2
05ae 00e1       |    |		Load_Encached	Boolean_Cache
05af 011c       |    |		Execute	Any,Convert_Unchecked
05b0 1c01       |    |		Execute_Immediate	Run_Utility,0x1
05b1 01cc       |    |		Execute	Vector,Catenate
05b2 0092 085d  |   ]|		Action	Push_String_Extended,0x85d					; ", Response => \x22"
05b4 01cc       |    |		Execute	Vector,Catenate
05b5 e5fd       |    |		Load	0x2,-0x3
05b6 01cc       |    |		Execute	Vector,Catenate
05b7 0092 0858  |   X|		Action	Push_String_Extended,0x858					; "\x22)]"
05b9 01cc       |    |		Execute	Vector,Catenate
05ba e01f       |    |		Load	0x0,0x1f
05bb 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
05bc e405       |    |		Load	0x2,0x5
05bd e404       |    |		Load	0x2,0x4
05be e403       |    |		Load	0x2,0x3
05bf e5fe       |    |		Load	0x2,-0x2
05c0 e5ff       |    |		Load	0x2,-0x1
05c1 e020       |    |		Load	0x0,0x20
05c2 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
05c3 c403       |    |		Store	0x2,0x3
05c4 c404       |    |		Store	0x2,0x4
05c5 c405       |    |		Store	0x2,0x5
05c6 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
05c7 0000       |    |		.XXX[0x1]
05c8 ; --------------------------------------------------------------------------------------
05c8 ; SUBPROGRAM
05c8 ; --------------------------------------------------------------------------------------
05c8 05cb       |    |		.CONST	0x05cb								; Address of begin
05c9 0004       |    |		.CONST	0x0004								; Address of exception handler
05ca 0001       |    |		.CONST	0x0001								; Number of locals
05cb			BODY_05c8:
05cb			INIT_05c8:
05cb e001       |    |		Load	0x0,0x1
05cc 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
05cd 4800       |H   |		Short_Literal	0x0
05ce 0092 0863  |   c|		Action	Push_String_Extended,0x863					; "[Tps.Connect (View_Gateway => \x22"
05d0 e5ff       |    |		Load	0x2,-0x1
05d1 01cc       |    |		Execute	Vector,Catenate
05d2 0092 0857  |   W|		Action	Push_String_Extended,0x857					; "\x22, Response => \x22"
05d4 01cc       |    |		Execute	Vector,Catenate
05d5 e5fe       |    |		Load	0x2,-0x2
05d6 01cc       |    |		Execute	Vector,Catenate
05d7 0092 0858  |   X|		Action	Push_String_Extended,0x858					; "\x22)]"
05d9 01cc       |    |		Execute	Vector,Catenate
05da e01f       |    |		Load	0x0,0x1f
05db 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
05dc e405       |    |		Load	0x2,0x5
05dd e404       |    |		Load	0x2,0x4
05de e403       |    |		Load	0x2,0x3
05df e5ff       |    |		Load	0x2,-0x1
05e0 e020       |    |		Load	0x0,0x20
05e1 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
05e2 c403       |    |		Store	0x2,0x3
05e3 c404       |    |		Store	0x2,0x4
05e4 c405       |    |		Store	0x2,0x5
05e5 4801       |H   |		Short_Literal	0x1
05e6 e405       |    |		Load	0x2,0x5
05e7 e003       |    |		Load	0x0,0x3
05e8 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
05e9 700c       |p   |		Jump_Nonzero	0x5f6
05ea e001       |    |		Load	0x0,0x1
05eb 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
05ec 4803       |H   |		Short_Literal	0x3
05ed 0092 0864  |   d|		Action	Push_String_Extended,0x864					; "The gateway \x22"
05ef e5ff       |    |		Load	0x2,-0x1
05f0 01cc       |    |		Execute	Vector,Catenate
05f1 0092 0865  |   e|		Action	Push_String_Extended,0x865					; "\x22 has been connected."
05f3 01cc       |    |		Execute	Vector,Catenate
05f4 e01f       |    |		Load	0x0,0x1f
05f5 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
05f6 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
05f7 0000       |    |		.XXX[0x1]
05f8 ; --------------------------------------------------------------------------------------
05f8 ; SUBPROGRAM
05f8 ; --------------------------------------------------------------------------------------
05f8 05fb       |    |		.CONST	0x05fb								; Address of begin
05f9 0004       |    |		.CONST	0x0004								; Address of exception handler
05fa 0001       |    |		.CONST	0x0001								; Number of locals
05fb			BODY_05f8:
05fb			INIT_05f8:
05fb e001       |    |		Load	0x0,0x1
05fc 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
05fd 4800       |H   |		Short_Literal	0x0
05fe 0092 0866  |   f|		Action	Push_String_Extended,0x866					; "[Tps.Disconnect (View_Gateway => \x22"
0600 e5ff       |    |		Load	0x2,-0x1
0601 01cc       |    |		Execute	Vector,Catenate
0602 0092 0857  |   W|		Action	Push_String_Extended,0x857					; "\x22, Response => \x22"
0604 01cc       |    |		Execute	Vector,Catenate
0605 e5fe       |    |		Load	0x2,-0x2
0606 01cc       |    |		Execute	Vector,Catenate
0607 0092 0858  |   X|		Action	Push_String_Extended,0x858					; "\x22)]"
0609 01cc       |    |		Execute	Vector,Catenate
060a e01f       |    |		Load	0x0,0x1f
060b 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
060c e405       |    |		Load	0x2,0x5
060d e404       |    |		Load	0x2,0x4
060e e403       |    |		Load	0x2,0x3
060f e5ff       |    |		Load	0x2,-0x1
0610 e020       |    |		Load	0x0,0x20
0611 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0612 c403       |    |		Store	0x2,0x3
0613 c404       |    |		Store	0x2,0x4
0614 c405       |    |		Store	0x2,0x5
0615 4801       |H   |		Short_Literal	0x1
0616 e405       |    |		Load	0x2,0x5
0617 e003       |    |		Load	0x0,0x3
0618 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
0619 700c       |p   |		Jump_Nonzero	0x626
061a e001       |    |		Load	0x0,0x1
061b 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
061c 4803       |H   |		Short_Literal	0x3
061d 0092 0864  |   d|		Action	Push_String_Extended,0x864					; "The gateway \x22"
061f e5ff       |    |		Load	0x2,-0x1
0620 01cc       |    |		Execute	Vector,Catenate
0621 0092 0867  |   g|		Action	Push_String_Extended,0x867					; "\x22 has been disconnected."
0623 01cc       |    |		Execute	Vector,Catenate
0624 e01f       |    |		Load	0x0,0x1f
0625 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0626 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0627 0000       |    |		.XXX[0x1]
0628 ; --------------------------------------------------------------------------------------
0628 ; SUBPROGRAM
0628 ; --------------------------------------------------------------------------------------
0628 064c       | L  |		.CONST	0x064c								; Address of begin
0629 0004       |    |		.CONST	0x0004								; Address of exception handler
062a 000b       |    |		.CONST	0x000b								; Number of locals
062b			INIT_0628:
062b e022       | "  |		Load	0x0,0x22
062c 1b21       | !  |		Execute	Package,Field_Read,Field_Number 0x21
062d 02c7       |    |		Declare_Variable	Any
062e 00d8       |    |		Load_Top	At_Offset_0
062f 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0630 e7ff       |    |		Load	0x3,-0x1
0631 e01d       |    |		Load	0x0,0x1d
0632 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0633 183f       | ?  |		Execute	Package,Field_Execute,Field_Number 0x3f
0634 00d8       |    |		Load_Top	At_Offset_0
0635 e01e       |    |		Load	0x0,0x1e
0636 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0637 e01e       |    |		Load	0x0,0x1e
0638 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0639 00e3       |    |		Load_Encached	Natural_Cache
063a 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
063b e003       |    |		Load	0x0,0x3
063c 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
063d 02c7       |    |		Declare_Variable	Any
063e 00d8       |    |		Load_Top	At_Offset_0
063f 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0640 029f 07bb  |    |		Declare_Subprogram	INIT_07b8,For_Call
0642 e022       | "  |		Load	0x0,0x22
0643 1931       | 1  |		Execute	Package,Field_Reference,Field_Number 0x31
0644 00c6       |    |		Action	Check_Subprogram_Elaborated
0645 4807       |H   |		Short_Literal	0x7
0646 4803       |H   |		Short_Literal	0x3
0647 0099       |    |		Action	Reference_Dynamic
0648 e023       | #  |		Load	0x0,0x23
0649 e024       | $  |		Load	0x0,0x24
064a 480b       |H   |		Short_Literal	0xb
064b 0007       |    |		Action	Break_Optional
064c			BODY_0628:
064c e403       |    |		Load	0x2,0x3
064d e5fe       |    |		Load	0x2,-0x2
064e 8294       |    |		Call	0x1,0x94
064f c403       |    |		Store	0x2,0x3
0650 e403       |    |		Load	0x2,0x3
0651 6806       |h   |		Jump_Zero	0x658
0652 e001       |    |		Load	0x0,0x1
0653 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0654 e001       |    |		Load	0x0,0x1
0655 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0656 a7fd       |    |		Store_Unchecked	0x3,-0x3
0657 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0658 e001       |    |		Load	0x0,0x1
0659 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
065a 4802       |H   |		Short_Literal	0x2
065b 0092 0868  |   h|		Action	Push_String_Extended,0x868					; "Creating file gateways for "
065d e603       |    |		Load	0x3,0x3
065e 01cc       |    |		Execute	Vector,Catenate
065f e01f       |    |		Load	0x0,0x1f
0660 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0661 e606       |    |		Load	0x3,0x6
0662 e602       |    |		Load	0x3,0x2
0663 4800       |H   |		Short_Literal	0x0
0664 4800       |H   |		Short_Literal	0x0
0665 e603       |    |		Load	0x3,0x3
0666 e022       | "  |		Load	0x0,0x22
0667 1823       | #  |		Execute	Package,Field_Execute,Field_Number 0x23
0668 c602       |    |		Store	0x3,0x2
0669 c606       |    |		Store	0x3,0x6
066a 4801       |H   |		Short_Literal	0x1
066b e606       |    |		Load	0x3,0x6
066c e003       |    |		Load	0x0,0x3
066d 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
066e 680d       |h   |		Jump_Zero	0x67c
066f e001       |    |		Load	0x0,0x1
0670 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0671 e606       |    |		Load	0x3,0x6
0672 e01f       |    |		Load	0x0,0x1f
0673 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0674 4801       |H   |		Short_Literal	0x1
0675 a403       |    |		Store_Unchecked	0x2,0x3
0676 e001       |    |		Load	0x0,0x1
0677 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0678 e001       |    |		Load	0x0,0x1
0679 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
067a a7fd       |    |		Store_Unchecked	0x3,-0x3
067b 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
067c e602       |    |		Load	0x3,0x2
067d e022       | "  |		Load	0x0,0x22
067e 182f       | /  |		Execute	Package,Field_Execute,Field_Number 0x2f
067f 4808       |H   |		Short_Literal	0x8
0680 4803       |H   |		Short_Literal	0x3
0681 0099       |    |		Action	Reference_Dynamic
0682 4809       |H   |		Short_Literal	0x9
0683 4803       |H   |		Short_Literal	0x3
0684 0099       |    |		Action	Reference_Dynamic
0685 e022       | "  |		Load	0x0,0x22
0686 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
0687 e602       |    |		Load	0x3,0x2
0688 e022       | "  |		Load	0x0,0x22
0689 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
068a c602       |    |		Store	0x3,0x2
068b e001       |    |		Load	0x0,0x1
068c 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
068d 4803       |H   |		Short_Literal	0x3
068e 0092 0869  |   i|		Action	Push_String_Extended,0x869					; "s"
0690 0092 086a  |   j|		Action	Push_String_Extended,0x86a					; "file gateway"
0692 e605       |    |		Load	0x3,0x5
0693 e004       |    |		Load	0x0,0x4
0694 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
0695 0092 086b  |   k|		Action	Push_String_Extended,0x86b					; " created for "
0697 01cc       |    |		Execute	Vector,Catenate
0698 e603       |    |		Load	0x3,0x3
0699 01cc       |    |		Execute	Vector,Catenate
069a e01f       |    |		Load	0x0,0x1f
069b 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
069c 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
069d 0000 0000  |    |		.XXX[0x3]
069f 0000       |    |
06a0 ; --------------------------------------------------------------------------------------
06a0 ; SUBPROGRAM
06a0 ; --------------------------------------------------------------------------------------
06a0 06a3       |    |		.CONST	0x06a3								; Address of begin
06a1 0004       |    |		.CONST	0x0004								; Address of exception handler
06a2 0001       |    |		.CONST	0x0001								; Number of locals
06a3			BODY_06a0:
06a3			INIT_06a0:
06a3 e001       |    |		Load	0x0,0x1
06a4 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
06a5 4800       |H   |		Short_Literal	0x0
06a6 0092 086c  |   l|		Action	Push_String_Extended,0x86c					; "[Tps.Create_Files (For_Document_Databases => \x22"
06a8 e5ff       |    |		Load	0x2,-0x1
06a9 01cc       |    |		Execute	Vector,Catenate
06aa 0092 086d  |   m|		Action	Push_String_Extended,0x86d					; "\x22, View_Gateway => \x22"
06ac 01cc       |    |		Execute	Vector,Catenate
06ad e5fe       |    |		Load	0x2,-0x2
06ae 01cc       |    |		Execute	Vector,Catenate
06af 0092 086e  |   n|		Action	Push_String_Extended,0x86e					; "\x22, Replace => "
06b1 01cc       |    |		Execute	Vector,Catenate
06b2 e5fd       |    |		Load	0x2,-0x3
06b3 00e1       |    |		Load_Encached	Boolean_Cache
06b4 011c       |    |		Execute	Any,Convert_Unchecked
06b5 1c01       |    |		Execute_Immediate	Run_Utility,0x1
06b6 01cc       |    |		Execute	Vector,Catenate
06b7 0092 086f  |   o|		Action	Push_String_Extended,0x86f					; "\x22, Allow_Accept_Changes => "
06b9 01cc       |    |		Execute	Vector,Catenate
06ba e5fc       |    |		Load	0x2,-0x4
06bb 00e1       |    |		Load_Encached	Boolean_Cache
06bc 011c       |    |		Execute	Any,Convert_Unchecked
06bd 1c01       |    |		Execute_Immediate	Run_Utility,0x1
06be 01cc       |    |		Execute	Vector,Catenate
06bf 0092 0870  |   p|		Action	Push_String_Extended,0x870					; "\x22, Allow_Put_Changes => "
06c1 01cc       |    |		Execute	Vector,Catenate
06c2 e5fb       |    |		Load	0x2,-0x5
06c3 00e1       |    |		Load_Encached	Boolean_Cache
06c4 011c       |    |		Execute	Any,Convert_Unchecked
06c5 1c01       |    |		Execute_Immediate	Run_Utility,0x1
06c6 01cc       |    |		Execute	Vector,Catenate
06c7 0092 0871  |   q|		Action	Push_String_Extended,0x871					; "\x22, Refresh_Mode => "
06c9 01cc       |    |		Execute	Vector,Catenate
06ca e5fa       |    |		Load	0x2,-0x6
06cb e24e       | N  |		Load	0x1,0x4e
06cc 011c       |    |		Execute	Any,Convert_Unchecked
06cd 1c01       |    |		Execute_Immediate	Run_Utility,0x1
06ce 01cc       |    |		Execute	Vector,Catenate
06cf 0092 085d  |   ]|		Action	Push_String_Extended,0x85d					; ", Response => \x22"
06d1 01cc       |    |		Execute	Vector,Catenate
06d2 e5f9       |    |		Load	0x2,-0x7
06d3 01cc       |    |		Execute	Vector,Catenate
06d4 0092 0858  |   X|		Action	Push_String_Extended,0x858					; "\x22)]"
06d6 01cc       |    |		Execute	Vector,Catenate
06d7 e01f       |    |		Load	0x0,0x1f
06d8 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
06d9 e021       | !  |		Load	0x0,0x21
06da 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
06db 485b       |H[  |		Short_Literal	0x5b
06dc e5ff       |    |		Load	0x2,-0x1
06dd 01ca       |    |		Execute	Vector,Prepend
06de 0092 0872  |   r|		Action	Push_String_Extended,0x872					; "]'C(DOCUMENTS)"
06e0 01cc       |    |		Execute	Vector,Catenate
06e1 4806       |H   |		Short_Literal	0x6
06e2 4802       |H   |		Short_Literal	0x2
06e3 0099       |    |		Action	Reference_Dynamic
06e4 4807       |H   |		Short_Literal	0x7
06e5 4802       |H   |		Short_Literal	0x2
06e6 0099       |    |		Action	Reference_Dynamic
06e7 4808       |H   |		Short_Literal	0x8
06e8 4802       |H   |		Short_Literal	0x2
06e9 0099       |    |		Action	Reference_Dynamic
06ea 4809       |H   |		Short_Literal	0x9
06eb 4802       |H   |		Short_Literal	0x2
06ec 0099       |    |		Action	Reference_Dynamic
06ed e004       |    |		Load	0x0,0x4
06ee 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
06ef 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
06f0 ; --------------------------------------------------------------------------------------
06f0 ; SUBPROGRAM
06f0 ; --------------------------------------------------------------------------------------
06f0 0714       |    |		.CONST	0x0714								; Address of begin
06f1 0004       |    |		.CONST	0x0004								; Address of exception handler
06f2 000b       |    |		.CONST	0x000b								; Number of locals
06f3			INIT_06f0:
06f3 e022       | "  |		Load	0x0,0x22
06f4 1b21       | !  |		Execute	Package,Field_Read,Field_Number 0x21
06f5 02c7       |    |		Declare_Variable	Any
06f6 00d8       |    |		Load_Top	At_Offset_0
06f7 1c00       |    |		Execute_Immediate	Run_Utility,0x0
06f8 e7ff       |    |		Load	0x3,-0x1
06f9 e01d       |    |		Load	0x0,0x1d
06fa 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
06fb 183f       | ?  |		Execute	Package,Field_Execute,Field_Number 0x3f
06fc 00d8       |    |		Load_Top	At_Offset_0
06fd e01e       |    |		Load	0x0,0x1e
06fe 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
06ff e01e       |    |		Load	0x0,0x1e
0700 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0701 00e3       |    |		Load_Encached	Natural_Cache
0702 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0703 e003       |    |		Load	0x0,0x3
0704 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0705 02c7       |    |		Declare_Variable	Any
0706 00d8       |    |		Load_Top	At_Offset_0
0707 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0708 029f 07f3  |    |		Declare_Subprogram	INIT_07f0,For_Call
070a e022       | "  |		Load	0x0,0x22
070b 1931       | 1  |		Execute	Package,Field_Reference,Field_Number 0x31
070c 00c6       |    |		Action	Check_Subprogram_Elaborated
070d 4807       |H   |		Short_Literal	0x7
070e 4803       |H   |		Short_Literal	0x3
070f 0099       |    |		Action	Reference_Dynamic
0710 e025       | %  |		Load	0x0,0x25
0711 e026       | &  |		Load	0x0,0x26
0712 480b       |H   |		Short_Literal	0xb
0713 0007       |    |		Action	Break_Optional
0714			BODY_06f0:
0714 e403       |    |		Load	0x2,0x3
0715 e5fe       |    |		Load	0x2,-0x2
0716 8294       |    |		Call	0x1,0x94
0717 c403       |    |		Store	0x2,0x3
0718 e403       |    |		Load	0x2,0x3
0719 6806       |h   |		Jump_Zero	0x720
071a e001       |    |		Load	0x0,0x1
071b 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
071c e001       |    |		Load	0x0,0x1
071d 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
071e a7fd       |    |		Store_Unchecked	0x3,-0x3
071f 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0720 e001       |    |		Load	0x0,0x1
0721 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0722 4802       |H   |		Short_Literal	0x2
0723 0092 0873  |   s|		Action	Push_String_Extended,0x873					; "Creating graphic gateways for "
0725 e603       |    |		Load	0x3,0x3
0726 01cc       |    |		Execute	Vector,Catenate
0727 e01f       |    |		Load	0x0,0x1f
0728 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0729 e606       |    |		Load	0x3,0x6
072a e602       |    |		Load	0x3,0x2
072b 4800       |H   |		Short_Literal	0x0
072c 4800       |H   |		Short_Literal	0x0
072d e603       |    |		Load	0x3,0x3
072e e022       | "  |		Load	0x0,0x22
072f 1823       | #  |		Execute	Package,Field_Execute,Field_Number 0x23
0730 c602       |    |		Store	0x3,0x2
0731 c606       |    |		Store	0x3,0x6
0732 4801       |H   |		Short_Literal	0x1
0733 e606       |    |		Load	0x3,0x6
0734 e003       |    |		Load	0x0,0x3
0735 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
0736 680d       |h   |		Jump_Zero	0x744
0737 e001       |    |		Load	0x0,0x1
0738 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0739 e606       |    |		Load	0x3,0x6
073a e01f       |    |		Load	0x0,0x1f
073b 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
073c 4801       |H   |		Short_Literal	0x1
073d a403       |    |		Store_Unchecked	0x2,0x3
073e e001       |    |		Load	0x0,0x1
073f 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0740 e001       |    |		Load	0x0,0x1
0741 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0742 a7fd       |    |		Store_Unchecked	0x3,-0x3
0743 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0744 e602       |    |		Load	0x3,0x2
0745 e022       | "  |		Load	0x0,0x22
0746 182f       | /  |		Execute	Package,Field_Execute,Field_Number 0x2f
0747 4808       |H   |		Short_Literal	0x8
0748 4803       |H   |		Short_Literal	0x3
0749 0099       |    |		Action	Reference_Dynamic
074a 4809       |H   |		Short_Literal	0x9
074b 4803       |H   |		Short_Literal	0x3
074c 0099       |    |		Action	Reference_Dynamic
074d e022       | "  |		Load	0x0,0x22
074e 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
074f e602       |    |		Load	0x3,0x2
0750 e022       | "  |		Load	0x0,0x22
0751 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
0752 c602       |    |		Store	0x3,0x2
0753 e001       |    |		Load	0x0,0x1
0754 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0755 4803       |H   |		Short_Literal	0x3
0756 0092 0869  |   i|		Action	Push_String_Extended,0x869					; "s"
0758 0092 0874  |   t|		Action	Push_String_Extended,0x874					; "graphic gateway"
075a e605       |    |		Load	0x3,0x5
075b e004       |    |		Load	0x0,0x4
075c 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
075d 0092 086b  |   k|		Action	Push_String_Extended,0x86b					; " created for "
075f 01cc       |    |		Execute	Vector,Catenate
0760 e603       |    |		Load	0x3,0x3
0761 01cc       |    |		Execute	Vector,Catenate
0762 e01f       |    |		Load	0x0,0x1f
0763 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0764 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0765 0000 0000  |    |		.XXX[0x3]
0767 0000       |    |
0768 ; --------------------------------------------------------------------------------------
0768 ; SUBPROGRAM
0768 ; --------------------------------------------------------------------------------------
0768 076b       | k  |		.CONST	0x076b								; Address of begin
0769 0004       |    |		.CONST	0x0004								; Address of exception handler
076a 0001       |    |		.CONST	0x0001								; Number of locals
076b			BODY_0768:
076b			INIT_0768:
076b e001       |    |		Load	0x0,0x1
076c 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
076d 4800       |H   |		Short_Literal	0x0
076e 0092 0875  |   u|		Action	Push_String_Extended,0x875					; "[Tps.Create_Graphics (For_Document_Databases => \x22"
0770 e5ff       |    |		Load	0x2,-0x1
0771 01cc       |    |		Execute	Vector,Catenate
0772 0092 086d  |   m|		Action	Push_String_Extended,0x86d					; "\x22, View_Gateway => \x22"
0774 01cc       |    |		Execute	Vector,Catenate
0775 e5fe       |    |		Load	0x2,-0x2
0776 01cc       |    |		Execute	Vector,Catenate
0777 0092 086e  |   n|		Action	Push_String_Extended,0x86e					; "\x22, Replace => "
0779 01cc       |    |		Execute	Vector,Catenate
077a e5fd       |    |		Load	0x2,-0x3
077b 00e1       |    |		Load_Encached	Boolean_Cache
077c 011c       |    |		Execute	Any,Convert_Unchecked
077d 1c01       |    |		Execute_Immediate	Run_Utility,0x1
077e 01cc       |    |		Execute	Vector,Catenate
077f 0092 086f  |   o|		Action	Push_String_Extended,0x86f					; "\x22, Allow_Accept_Changes => "
0781 01cc       |    |		Execute	Vector,Catenate
0782 e5fc       |    |		Load	0x2,-0x4
0783 00e1       |    |		Load_Encached	Boolean_Cache
0784 011c       |    |		Execute	Any,Convert_Unchecked
0785 1c01       |    |		Execute_Immediate	Run_Utility,0x1
0786 01cc       |    |		Execute	Vector,Catenate
0787 0092 0870  |   p|		Action	Push_String_Extended,0x870					; "\x22, Allow_Put_Changes => "
0789 01cc       |    |		Execute	Vector,Catenate
078a e5fb       |    |		Load	0x2,-0x5
078b 00e1       |    |		Load_Encached	Boolean_Cache
078c 011c       |    |		Execute	Any,Convert_Unchecked
078d 1c01       |    |		Execute_Immediate	Run_Utility,0x1
078e 01cc       |    |		Execute	Vector,Catenate
078f 0092 0871  |   q|		Action	Push_String_Extended,0x871					; "\x22, Refresh_Mode => "
0791 01cc       |    |		Execute	Vector,Catenate
0792 e5fa       |    |		Load	0x2,-0x6
0793 e24e       | N  |		Load	0x1,0x4e
0794 011c       |    |		Execute	Any,Convert_Unchecked
0795 1c01       |    |		Execute_Immediate	Run_Utility,0x1
0796 01cc       |    |		Execute	Vector,Catenate
0797 0092 085d  |   ]|		Action	Push_String_Extended,0x85d					; ", Response => \x22"
0799 01cc       |    |		Execute	Vector,Catenate
079a e5f9       |    |		Load	0x2,-0x7
079b 01cc       |    |		Execute	Vector,Catenate
079c 0092 0858  |   X|		Action	Push_String_Extended,0x858					; "\x22)]"
079e 01cc       |    |		Execute	Vector,Catenate
079f e01f       |    |		Load	0x0,0x1f
07a0 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
07a1 e021       | !  |		Load	0x0,0x21
07a2 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
07a3 485b       |H[  |		Short_Literal	0x5b
07a4 e5ff       |    |		Load	0x2,-0x1
07a5 01ca       |    |		Execute	Vector,Prepend
07a6 0092 0872  |   r|		Action	Push_String_Extended,0x872					; "]'C(DOCUMENTS)"
07a8 01cc       |    |		Execute	Vector,Catenate
07a9 4806       |H   |		Short_Literal	0x6
07aa 4802       |H   |		Short_Literal	0x2
07ab 0099       |    |		Action	Reference_Dynamic
07ac 4807       |H   |		Short_Literal	0x7
07ad 4802       |H   |		Short_Literal	0x2
07ae 0099       |    |		Action	Reference_Dynamic
07af 4808       |H   |		Short_Literal	0x8
07b0 4802       |H   |		Short_Literal	0x2
07b1 0099       |    |		Action	Reference_Dynamic
07b2 4809       |H   |		Short_Literal	0x9
07b3 4802       |H   |		Short_Literal	0x2
07b4 0099       |    |		Action	Reference_Dynamic
07b5 e004       |    |		Load	0x0,0x4
07b6 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
07b7 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
07b8 ; --------------------------------------------------------------------------------------
07b8 ; SUBPROGRAM
07b8 ; --------------------------------------------------------------------------------------
07b8 07bb       |    |		.CONST	0x07bb								; Address of begin
07b9 07df       |    |		.CONST	0x07df								; Address of exception handler
07ba 0001       |    |		.CONST	0x0001								; Number of locals
07bb			BODY_07b8:
07bb			INIT_07b8:
07bb 4800       |H   |		Short_Literal	0x0
07bc a9fe       |    |		Store_Unchecked	0x4,-0x2
07bd e9ff       |    |		Load	0x4,-0x1
07be e022       | "  |		Load	0x0,0x22
07bf 182d       | -  |		Execute	Package,Field_Execute,Field_Number 0x2d
07c0 0f07       |    |		Execute_Immediate	Equal,0x7
07c1 7001       |p   |		Jump_Nonzero	0x7c3
07c2 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
07c3 e606       |    |		Load	0x3,0x6
07c4 e404       |    |		Load	0x2,0x4
07c5 e403       |    |		Load	0x2,0x3
07c6 e605       |    |		Load	0x3,0x5
07c7 4801       |H   |		Short_Literal	0x1
07c8 4801       |H   |		Short_Literal	0x1
07c9 e021       | !  |		Load	0x0,0x21
07ca 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
07cb e5fa       |    |		Load	0x2,-0x6
07cc e291       |    |		Load	0x1,0x91
07cd 01d7       |    |		Execute	Vector,Field_Read
07ce e5fb       |    |		Load	0x2,-0x5
07cf e5fc       |    |		Load	0x2,-0x4
07d0 e5fd       |    |		Load	0x2,-0x3
07d1 4801       |H   |		Short_Literal	0x1
07d2 e5fe       |    |		Load	0x2,-0x2
07d3 e604       |    |		Load	0x3,0x4
07d4 e9ff       |    |		Load	0x4,-0x1
07d5 e022       | "  |		Load	0x0,0x22
07d6 1b33       | 3  |		Execute	Package,Field_Read,Field_Number 0x33
07d7 1823       | #  |		Execute	Package,Field_Execute,Field_Number 0x23
07d8 e020       |    |		Load	0x0,0x20
07d9 182a       | *  |		Execute	Package,Field_Execute,Field_Number 0x2a
07da c605       |    |		Store	0x3,0x5
07db c403       |    |		Store	0x2,0x3
07dc c404       |    |		Store	0x2,0x4
07dd c606       |    |		Store	0x3,0x6
07de 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
07df			TRAP_07b8:
07df 0007       |    |		Action	Break_Optional
07e0 4801       |H   |		Short_Literal	0x1
07e1 a403       |    |		Store_Unchecked	0x2,0x3
07e2 e001       |    |		Load	0x0,0x1
07e3 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
07e4 e001       |    |		Load	0x0,0x1
07e5 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
07e6 7002       |p   |		Jump_Nonzero	0x7e9
07e7 4803       |H   |		Short_Literal	0x3
07e8 a9fe       |    |		Store_Unchecked	0x4,-0x2
07e9 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
07ea 0000 0000  |    |		.BLANK	0000[0x6]
07f0 ; --------------------------------------------------------------------------------------
07f0 ; SUBPROGRAM
07f0 ; --------------------------------------------------------------------------------------
07f0 07f3       |    |		.CONST	0x07f3								; Address of begin
07f1 0817       |    |		.CONST	0x0817								; Address of exception handler
07f2 0001       |    |		.CONST	0x0001								; Number of locals
07f3			BODY_07f0:
07f3			INIT_07f0:
07f3 4800       |H   |		Short_Literal	0x0
07f4 a9fe       |    |		Store_Unchecked	0x4,-0x2
07f5 e9ff       |    |		Load	0x4,-0x1
07f6 e022       | "  |		Load	0x0,0x22
07f7 182d       | -  |		Execute	Package,Field_Execute,Field_Number 0x2d
07f8 0f08       |    |		Execute_Immediate	Equal,0x8
07f9 7001       |p   |		Jump_Nonzero	0x7fb
07fa 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
07fb e606       |    |		Load	0x3,0x6
07fc e404       |    |		Load	0x2,0x4
07fd e403       |    |		Load	0x2,0x3
07fe e605       |    |		Load	0x3,0x5
07ff 4801       |H   |		Short_Literal	0x1
0800 4801       |H   |		Short_Literal	0x1
0801 e021       | !  |		Load	0x0,0x21
0802 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0803 e5fa       |    |		Load	0x2,-0x6
0804 e291       |    |		Load	0x1,0x91
0805 01d7       |    |		Execute	Vector,Field_Read
0806 e5fb       |    |		Load	0x2,-0x5
0807 e5fc       |    |		Load	0x2,-0x4
0808 e5fd       |    |		Load	0x2,-0x3
0809 4800       |H   |		Short_Literal	0x0
080a e5fe       |    |		Load	0x2,-0x2
080b e604       |    |		Load	0x3,0x4
080c e9ff       |    |		Load	0x4,-0x1
080d e022       | "  |		Load	0x0,0x22
080e 1b33       | 3  |		Execute	Package,Field_Read,Field_Number 0x33
080f 1823       | #  |		Execute	Package,Field_Execute,Field_Number 0x23
0810 e020       |    |		Load	0x0,0x20
0811 182a       | *  |		Execute	Package,Field_Execute,Field_Number 0x2a
0812 c605       |    |		Store	0x3,0x5
0813 c403       |    |		Store	0x2,0x3
0814 c404       |    |		Store	0x2,0x4
0815 c606       |    |		Store	0x3,0x6
0816 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0817			TRAP_07f0:
0817 0007       |    |		Action	Break_Optional
0818 4801       |H   |		Short_Literal	0x1
0819 a403       |    |		Store_Unchecked	0x2,0x3
081a e001       |    |		Load	0x0,0x1
081b 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
081c e001       |    |		Load	0x0,0x1
081d 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
081e 7002       |p   |		Jump_Nonzero	0x821
081f 4803       |H   |		Short_Literal	0x3
0820 a9fe       |    |		Store_Unchecked	0x4,-0x2
0821 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0822 ; --------------------------------------------------------------------------------------
0822 ; STRING TABLE
0822 ; --------------------------------------------------------------------------------------
0822 00aa       |    |		.STRTAB	0x00aa->0x0877							; "DESKTOP"
0823 00af       |    |		.STRTAB	0x00af->0x087a							; "FOLDER"
0824 00b3       |    |		.STRTAB	0x00b3->0x087d							; "DRAWER"
0825 00b7       |    |		.STRTAB	0x00b7->0x0880							; "CABINET"
0826 00bc       |    |		.STRTAB	0x00bc->0x0884							; "BOOK"
0827 00be       |    |		.STRTAB	0x00be->0x0886							; "BINDER"
0828 00c2       |    |		.STRTAB	0x00c2->0x0889							; "CLIPBOARD"
0829 00c9       |    |		.STRTAB	0x00c9->0x088d							; "SCANNER"
082a 00ce       |    |		.STRTAB	0x00ce->0x0891							; "EXTERNAL_DIRECTORY"
082b 00de       |    |		.STRTAB	0x00de->0x089a							; "DOCUMENT"
082c 00e4       |    |		.STRTAB	0x00e4->0x089e							; "CATALOG"
082d 00e9       |    |		.STRTAB	0x00e9->0x08a1							; "DICTIONARY"
082e 00f1       |    |		.STRTAB	0x00f1->0x08a6							; "EXTERNAL_FILE"
082f 00fc       |    |		.STRTAB	0x00fc->0x08ad							; "DIAGRAM"
0830 0101       |    |		.STRTAB	0x0101->0x08b0							; "IMAGE"
0831 0104       |    |		.STRTAB	0x0104->0x08b3							; "CHART"
0832 0107       |    |		.STRTAB	0x0107->0x08b5							; "PLOT"
0833 0109       |    |		.STRTAB	0x0109->0x08b7							; "EPS"
0834 010a       |    |		.STRTAB	0x010a->0x08b9							; "LISP"
0835 010c       |    |		.STRTAB	0x010c->0x08bb							; "PALETTE"
0836 0111       |    |		.STRTAB	0x0111->0x08be							; "PRINTERLEAF"
0837 011a       |    |		.STRTAB	0x011a->0x08c4							; "TERMINAL"
0838 0120       |    |		.STRTAB	0x0120->0x08c8							; "ON_COMMAND"
0839 0128       | (  |		.STRTAB	0x0128->0x08cd							; "ON_RELEASE"
083a 0130       | 0  |		.STRTAB	0x0130->0x08d2							; "IMMEDIATE"
083b 0137       | 7  |		.STRTAB	0x0137->0x08d6							; "$$.Tps_View"
083c 0140       | @  |		.STRTAB	0x0140->0x08dc							; "<DEFAULT VIEW CABINET>"
083d 0154       | T  |		.STRTAB	0x0154->0x08e7							; "Tps.Create"
083e 015c       | \  |		.STRTAB	0x015c->0x08ec							; "Tps.Accept_Changes"
083f 016c       | l  |		.STRTAB	0x016c->0x08f5							; "Tps.Put_Changes"
0840 0179       | y  |		.STRTAB	0x0179->0x08fc							; "Tps.Show_Out_Of_Date"
0841 018b       |    |		.STRTAB	0x018b->0x0906							; "Tps.Save_Archive"
0842 0199       |    |		.STRTAB	0x0199->0x090e							; "Tps.Restore_Archive"
0843 01aa       |    |		.STRTAB	0x01aa->0x0918							; "Tps.Connect"
0844 01b3       |    |		.STRTAB	0x01b3->0x091d							; "Tps.Disconnect"
0845 01bf       |    |		.STRTAB	0x01bf->0x0924							; "Tps.Create_Files"
0846 01cd       |    |		.STRTAB	0x01cd->0x092c							; "Tps.Create_Graphics"
0847 01de       |    |		.STRTAB	0x01de->0x0936							; "View gateway \x22"
0848 01ea       |    |		.STRTAB	0x01ea->0x093d							; "\x22 is ambiguous; unable to create gateways."
0849 0212       |    |		.STRTAB	0x0212->0x0952							; "\x22 does not exist; unable to create gateways."
084a 023c       | <  |		.STRTAB	0x023c->0x0968							; "\x22 exists, but is not a TPS directory gateway; unable to create gateways."
084b 0282       |    |		.STRTAB	0x0282->0x098c							; "[Tps.Create (Gateway_Name => \x22"
084c 029e       |    |		.STRTAB	0x029e->0x099b							; "\x22, Parent_Gateway_Name => \x22"
084d 02b7       |    |		.STRTAB	0x02b7->0x09a8							; "\x22, Host => \x22"
084e 02c1       |    |		.STRTAB	0x02c1->0x09ae							; "\x22, Desktop => \x22"
084f 02ce       |    |		.STRTAB	0x02ce->0x09b6							; "\x22, Icon_Name => \x22"
0850 02dd       |    |		.STRTAB	0x02dd->0x09be							; "\x22, Icon_Type => "
0851 02eb       |    |		.STRTAB	0x02eb->0x09c6							; ", Allow_Accept_Changes => "
0852 0303       |    |		.STRTAB	0x0303->0x09d3							; ", Allow_Put_Changes => "
0853 0318       |    |		.STRTAB	0x0318->0x09df							; ", Refresh_Mode => "
0854 0328       | (  |		.STRTAB	0x0328->0x09e8							; ", Frame_Name => \x22"
0855 0337       | 7  |		.STRTAB	0x0337->0x09f0							; "\x22, Traverse_To_Desktop => "
0856 034f       | O  |		.STRTAB	0x034f->0x09fd							; ", Connected => \x22"
0857 035d       | ]  |		.STRTAB	0x035d->0x0a05							; "\x22, Response => \x22"
0858 036b       | k  |		.STRTAB	0x036b->0x0a0d							; "\x22)]"
0859 036c       | l  |		.STRTAB	0x036c->0x0a0f							; "[Tps.Accept_Changes (Into_Gateways => \x22"
085a 0391       |    |		.STRTAB	0x0391->0x0a22							; "\x22, Recursive => "
085b 039f       |    |		.STRTAB	0x039f->0x0a2a							; ", Force => "
085c 03a8       |    |		.STRTAB	0x03a8->0x0a30							; ", Effort_Only => "
085d 03b7       |    |		.STRTAB	0x03b7->0x0a38							; ", Response => \x22"
085e 03c4       |    |		.STRTAB	0x03c4->0x0a40							; "[Tps.Put_Changes (From_Gateways => \x22"
085f 03e6       |    |		.STRTAB	0x03e6->0x0a52							; "[Tps.Show_Out_Of_Date (Gateways => \x22"
0860 0408       |    |		.STRTAB	0x0408->0x0a64							; "[Tps.Save_Archive (Tps_Directory_Gateways => \x22"
0861 0434       | 4  |		.STRTAB	0x0434->0x0a7b							; "\x22, Effort_Only => "
0862 0444       | D  |		.STRTAB	0x0444->0x0a84							; "[Tps.Restore_Archive (Tps_Directory_Gateways => \x22"
0863 0473       | s  |		.STRTAB	0x0473->0x0a9c							; "[Tps.Connect (View_Gateway => \x22"
0864 0490       |    |		.STRTAB	0x0490->0x0aac							; "The gateway \x22"
0865 049b       |    |		.STRTAB	0x049b->0x0ab2							; "\x22 has been connected."
0866 04ae       |    |		.STRTAB	0x04ae->0x0abd							; "[Tps.Disconnect (View_Gateway => \x22"
0867 04ce       |    |		.STRTAB	0x04ce->0x0ace							; "\x22 has been disconnected."
0868 04e4       |    |		.STRTAB	0x04e4->0x0ada							; "Creating file gateways for "
0869 04fd       |    |		.STRTAB	0x04fd->0x0ae7							; "s"
086a 04fc       |    |		.STRTAB	0x04fc->0x0ae8							; "file gateway"
086b 0506       |    |		.STRTAB	0x0506->0x0aee							; " created for "
086c 0511       |    |		.STRTAB	0x0511->0x0af4							; "[Tps.Create_Files (For_Document_Databases => \x22"
086d 053d       | =  |		.STRTAB	0x053d->0x0b0b							; "\x22, View_Gateway => \x22"
086e 054f       | O  |		.STRTAB	0x054f->0x0b15							; "\x22, Replace => "
086f 055b       | [  |		.STRTAB	0x055b->0x0b1c							; "\x22, Allow_Accept_Changes => "
0870 0574       | t  |		.STRTAB	0x0574->0x0b2a							; "\x22, Allow_Put_Changes => "
0871 058a       |    |		.STRTAB	0x058a->0x0b36							; "\x22, Refresh_Mode => "
0872 059b       |    |		.STRTAB	0x059b->0x0b3f							; "]'C(DOCUMENTS)"
0873 05a7       |    |		.STRTAB	0x05a7->0x0b46							; "Creating graphic gateways for "
0874 05c3       |    |		.STRTAB	0x05c3->0x0b55							; "graphic gateway"
0875 05d0       |    |		.STRTAB	0x05d0->0x0b5d							; "[Tps.Create_Graphics (For_Document_Databases => \x22"
0876 05ff       |    |		.STREND 0x05ff->0x0b75
0877 4445 534b  |DESK|		.STRTAB_STRINGS
0b76 0000 0000  |    |		.XXX[0x2]
0b78 ; --------------------------------------------------------------------------------------
0b78 ; Debug Table
0b78 ; --------------------------------------------------------------------------------------
0b78 0004 0012  |    |		.DEBUG4	0x0004,0x0012,0xce9d,0x0000,0x0001,0x0000
0b7e 7cd6 1d55  ||  U|		.XXX[0x82]
0b80 7052 5e57  |pR^W|
0b82 118a 7a53  |  zS|
0b84 b056 5251  | VRQ|
0b86 0db1 9a9d  |    |
0b88 45b1 ca9f  |E   |
0b8a dc56 3156  | V1V|
0b8c 6e51 f251  |nQ Q|
0b8e d052 4a52  | RJR|
0b90 1607 ccdc  |    |
0b92 fa05 5a0d  |  Z |
0b94 f451 8dae  | Q  |
0b96 9650 905a  | P Z|
0b98 9e52 ba52  | R R|
0b9a aa51 2606  | Q& |
0b9c b250 b47a  | P z|
0b9e a252 b155  | R U|
0ba0 98e2 d957  |   W|
0ba2 ee83 1a53  |   S|
0ba4 a605 cdb3  |    |
0ba6 1c1a f554  |   T|
0ba8 0685 75ea  |  u |
0baa e651 8856  | Q V|
0bac ee51 edb0  | Q  |
0bae ad35 7605  | 5v |
0bb0 5e07 e555  |^  U|
0bb2 8607 3555  |  5U|
0bb4 b1ea 669e  |  f |
0bb6 2457 2251  |$W"Q|
0bb8 9e07 2e51  |  .Q|
0bba c9b2 31b1  |  1 |
0bbc ae05 61fe  |  a |
0bbe 41b3 4653  |A FS|
0bc0 f157 5252  | WRR|
0bc2 cc53 8d54  | S T|
0bc4 24f1 84ea  |$   |
0bc6 50e3 6e53  |P nS|
0bc8 3993 7652  |9 vR|
0bca 79b3 7e53  |y ~S|
0bcc e1aa 89b3  |    |
0bce e452 0206  | R  |
0bd0 95b1 ace8  |    |
0bd2 ccf3 9e52  |   R|
0bd4 e85b 94e2  | [  |
0bd6 31e4 8686  |1   |
0bd8 65f6 bdb0  |e   |
0bda 415a c5b3  |AZ  |
0bdc 3e50 d559  |>P Y|
0bde 225d 945b  |"] [|
0be0 ce53 a058  | S X|
0be2 015a e9b3  | Z  |
0be4 e253 b253  | S S|
0be6 519e fdb3  |Q   |
0be8 5207 a05b  |R  [|
0bea fa51 9854  | Q T|
0bec 0257 4db0  | WM |
0bee 0a54 795b  | Ty[|
0bf0 64e9 115a  |d  Z|
0bf2 98e4 2257  |  "W|
0bf4 7e9f 1607  |~   |
0bf6 8858 d054  | X T|
0bf8 3254 4654  |2TFT|
0bfa 3a57 65b0  |:We |
0bfc 3c5c 3657  |<\6W|
0bfe 3e04 505c  |> P\|