|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 6144 (0x1800)
Notes: 00_class, 5900_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_0694fc
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code
0001 5900 |Y | .CONST 0x5900 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 0ae0 | | .CONST 0x0ae0 ; 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 0099 | | .CONST 0x0099 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 002d | - | .CONST 0x002d ; Number of locals
000b INIT_0008:
000b 029a 00a3 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_00a0
000d 029a 00c3 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_00c0
000f 029a 00f3 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_00f0
0011 029a 0113 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0110
0013 029a 0143 | C| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0140
0015 029a 0163 | c| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0160
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 029a 0183 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0180
0030 c21d | | Store 0x1,0x1d
0031 029a 01ab | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_01a8
0033 c226 | & | Store 0x1,0x26
0034 029a 022b | +| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0228
0036 c21f | | Store 0x1,0x1f
0037 029a 025b | [| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0258
0039 c227 | ' | Store 0x1,0x27
003a 029a 02e3 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_02e0
003c c221 | ! | Store 0x1,0x21
003d 029a 030b | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0308
003f c228 | ( | Store 0x1,0x28
0040 029a 0363 | c| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0360
0042 c223 | # | Store 0x1,0x23
0043 029a 038b | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0388
0045 c229 | ) | Store 0x1,0x29
0046 029a 03e3 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_03e0
0048 c215 | | Store 0x1,0x15
0049 029a 0403 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0400
004b c216 | | Store 0x1,0x16
004c 029a 041b | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0418
004e c217 | | Store 0x1,0x17
004f 029a 043b | ;| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0438
0051 c218 | | Store 0x1,0x18
0052 029a 0453 | S| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0450
0054 c219 | | Store 0x1,0x19
0055 029a 0473 | s| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0470
0057 c21a | | Store 0x1,0x1a
0058 029a 0493 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0490
005a c21b | | Store 0x1,0x1b
005b 029a 04b3 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_04b0
005d c21c | | Store 0x1,0x1c
005e 00bf | | Action Accept_Activation
005f 4800 |H | Short_Literal 0x0
0060 0093 052b | +| PushFullAddress InMicrocode,INIT_0528
0062 02a0 | | Declare_Subprogram Null_Subprogram
0063 038e | | Declare_Type Package,Defined
0064 0387 | | Declare_Variable Package
0065 0092 059e | | Action Push_String_Extended,0x59e ; "TPS_Interface"
0067 029d 04d3 | | Declare_Subprogram For_Outer_Call,INIT_04d0
0069 029d 0513 | | Declare_Subprogram For_Outer_Call,INIT_0510
006b 1d0d | | Execute_Immediate Reference_Lex_1,0xd
006c 00c7 | | Action Elaborate_Subprogram
006d 1d0e | | Execute_Immediate Reference_Lex_1,0xe
006e 00c7 | | Action Elaborate_Subprogram
006f 1d0f | | Execute_Immediate Reference_Lex_1,0xf
0070 00c7 | | Action Elaborate_Subprogram
0071 1d10 | | Execute_Immediate Reference_Lex_1,0x10
0072 00c7 | | Action Elaborate_Subprogram
0073 1d11 | | Execute_Immediate Reference_Lex_1,0x11
0074 00c7 | | Action Elaborate_Subprogram
0075 1d12 | | Execute_Immediate Reference_Lex_1,0x12
0076 00c7 | | Action Elaborate_Subprogram
0077 1d1d | | Execute_Immediate Reference_Lex_1,0x1d
0078 00c7 | | Action Elaborate_Subprogram
0079 1d26 | & | Execute_Immediate Reference_Lex_1,0x26
007a 00c7 | | Action Elaborate_Subprogram
007b 1d1f | | Execute_Immediate Reference_Lex_1,0x1f
007c 00c7 | | Action Elaborate_Subprogram
007d 1d27 | ' | Execute_Immediate Reference_Lex_1,0x27
007e 00c7 | | Action Elaborate_Subprogram
007f 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21
0080 00c7 | | Action Elaborate_Subprogram
0081 1d28 | ( | Execute_Immediate Reference_Lex_1,0x28
0082 00c7 | | Action Elaborate_Subprogram
0083 1d23 | # | Execute_Immediate Reference_Lex_1,0x23
0084 00c7 | | Action Elaborate_Subprogram
0085 1d29 | ) | Execute_Immediate Reference_Lex_1,0x29
0086 00c7 | | Action Elaborate_Subprogram
0087 1d15 | | Execute_Immediate Reference_Lex_1,0x15
0088 00c7 | | Action Elaborate_Subprogram
0089 1d16 | | Execute_Immediate Reference_Lex_1,0x16
008a 00c7 | | Action Elaborate_Subprogram
008b 1d17 | | Execute_Immediate Reference_Lex_1,0x17
008c 00c7 | | Action Elaborate_Subprogram
008d 1d18 | | Execute_Immediate Reference_Lex_1,0x18
008e 00c7 | | Action Elaborate_Subprogram
008f 1d19 | | Execute_Immediate Reference_Lex_1,0x19
0090 00c7 | | Action Elaborate_Subprogram
0091 1d1a | | Execute_Immediate Reference_Lex_1,0x1a
0092 00c7 | | Action Elaborate_Subprogram
0093 1d1b | | Execute_Immediate Reference_Lex_1,0x1b
0094 00c7 | | Action Elaborate_Subprogram
0095 1d1c | | Execute_Immediate Reference_Lex_1,0x1c
0096 00c7 | | Action Elaborate_Subprogram
0097 00db | | Load_Top At_Offset_3
0098 020f | | Execute Module,Activate
0099 BODY_0008:
0099 00bc | | Action Signal_Activated
009a 00bb | | Action Signal_Completion
009b 0000 0000 | | .BLANK 0000[0x5]
00a0 ; --------------------------------------------------------------------------------------
00a0 ; SUBPROGRAM
00a0 ; --------------------------------------------------------------------------------------
00a0 00a3 | | .CONST 0x00a3 ; Address of begin
00a1 0004 | | .CONST 0x0004 ; Address of exception handler
00a2 0001 | | .CONST 0x0001 ; Number of locals
00a3 BODY_00a0:
00a3 INIT_00a0:
00a3 822c | , | Call 0x1,0x2c
00a4 6812 |h | Jump_Zero 0xb7
00a5 822d | - | Call 0x1,0x2d
00a6 6810 |h | Jump_Zero 0xb7
00a7 00ea | | Load_Encached Null_String_Cache
00a8 00ea | | Load_Encached Null_String_Cache
00a9 00ea | | Load_Encached Null_String_Cache
00aa 00ea | | Load_Encached Null_String_Cache
00ab 00ea | | Load_Encached Null_String_Cache
00ac 00ea | | Load_Encached Null_String_Cache
00ad 0092 059f | | Action Push_String_Extended,0x59f ; "<Cursor>"
00af e001 | | Load 0x0,0x1
00b0 180f | | Execute Package,Field_Execute,Field_Number 0xf
00b1 0092 05a0 | | Action Push_String_Extended,0x5a0 ; "RPI Put Changes"
00b3 6004 |` | Indirect_Literal Discrete,0xb8,{0x00000000, 0x00000898}
00b4 48dc |H | Short_Literal 0xdc
00b5 e002 | | Load 0x0,0x2
00b6 1818 | | Execute Package,Field_Execute,Field_Number 0x18
00b7 4501 |E | Exit_Subprogram 0x1
00b8 0000 0000 | | .LITERAL {0x00000000, 0x00000898}
00bc 0000 0000 | | .BLANK 0000[0x4]
00c0 ; --------------------------------------------------------------------------------------
00c0 ; SUBPROGRAM
00c0 ; --------------------------------------------------------------------------------------
00c0 00c3 | | .CONST 0x00c3 ; Address of begin
00c1 0004 | | .CONST 0x0004 ; Address of exception handler
00c2 0001 | | .CONST 0x0001 ; Number of locals
00c3 BODY_00c0:
00c3 INIT_00c0:
00c3 822d | - | Call 0x1,0x2d
00c4 6825 |h% | Jump_Zero 0xea
00c5 0092 05a1 | | Action Push_String_Extended,0x5a1 ; "<PROFILE>"
00c7 0092 05a2 | | Action Push_String_Extended,0x5a2 ; "$"
00c9 0092 05a3 | | Action Push_String_Extended,0x5a3 ; "\x22!Tools.Design.Tps_Integration'spec_view.units\x22.Tps.Put_Changes (From_Gateways => \x22"
00cb e5ff | | Load 0x2,-0x1
00cc 01cc | | Execute Vector,Catenate
00cd 0092 05a4 | | Action Push_String_Extended,0x5a4 ; "\x22, Recursive => "
00cf 01cc | | Execute Vector,Catenate
00d0 e5fe | | Load 0x2,-0x2
00d1 00e1 | | Load_Encached Boolean_Cache
00d2 011c | | Execute Any,Convert_Unchecked
00d3 1c01 | | Execute_Immediate Run_Utility,0x1
00d4 01cc | | Execute Vector,Catenate
00d5 0092 05a5 | | Action Push_String_Extended,0x5a5 ; ", Effort_Only => "
00d7 01cc | | Execute Vector,Catenate
00d8 e5fc | | Load 0x2,-0x4
00d9 00e1 | | Load_Encached Boolean_Cache
00da 011c | | Execute Any,Convert_Unchecked
00db 1c01 | | Execute_Immediate Run_Utility,0x1
00dc 01cc | | Execute Vector,Catenate
00dd 0092 05a6 | | Action Push_String_Extended,0x5a6 ; ", Force => "
00df 01cc | | Execute Vector,Catenate
00e0 e5fd | | Load 0x2,-0x3
00e1 00e1 | | Load_Encached Boolean_Cache
00e2 011c | | Execute Any,Convert_Unchecked
00e3 1c01 | | Execute_Immediate Run_Utility,0x1
00e4 01cc | | Execute Vector,Catenate
00e5 0092 05a7 | | Action Push_String_Extended,0x5a7 ; ", Response => \x22<PROFILE>\x22)"
00e7 01cc | | Execute Vector,Catenate
00e8 e003 | | Load 0x0,0x3
00e9 180f | | Execute Package,Field_Execute,Field_Number 0xf
00ea 4505 |E | Exit_Subprogram 0x5
00eb 0000 0000 | | .BLANK 0000[0x5]
00f0 ; --------------------------------------------------------------------------------------
00f0 ; SUBPROGRAM
00f0 ; --------------------------------------------------------------------------------------
00f0 00f3 | | .CONST 0x00f3 ; Address of begin
00f1 0004 | | .CONST 0x0004 ; Address of exception handler
00f2 0001 | | .CONST 0x0001 ; Number of locals
00f3 BODY_00f0:
00f3 INIT_00f0:
00f3 822c | , | Call 0x1,0x2c
00f4 6812 |h | Jump_Zero 0x107
00f5 822d | - | Call 0x1,0x2d
00f6 6810 |h | Jump_Zero 0x107
00f7 00ea | | Load_Encached Null_String_Cache
00f8 00ea | | Load_Encached Null_String_Cache
00f9 00ea | | Load_Encached Null_String_Cache
00fa 00ea | | Load_Encached Null_String_Cache
00fb 00ea | | Load_Encached Null_String_Cache
00fc 00ea | | Load_Encached Null_String_Cache
00fd 0092 059f | | Action Push_String_Extended,0x59f ; "<Cursor>"
00ff e001 | | Load 0x0,0x1
0100 180f | | Execute Package,Field_Execute,Field_Number 0xf
0101 0092 05a8 | | Action Push_String_Extended,0x5a8 ; "RPI Accept Changes"
0103 6004 |` | Indirect_Literal Discrete,0x108,{0x00000000, 0x00000899}
0104 48dc |H | Short_Literal 0xdc
0105 e002 | | Load 0x0,0x2
0106 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0107 4501 |E | Exit_Subprogram 0x1
0108 0000 0000 | | .LITERAL {0x00000000, 0x00000899}
010c 0000 0000 | | .BLANK 0000[0x4]
0110 ; --------------------------------------------------------------------------------------
0110 ; SUBPROGRAM
0110 ; --------------------------------------------------------------------------------------
0110 0113 | | .CONST 0x0113 ; Address of begin
0111 0004 | | .CONST 0x0004 ; Address of exception handler
0112 0001 | | .CONST 0x0001 ; Number of locals
0113 BODY_0110:
0113 INIT_0110:
0113 822d | - | Call 0x1,0x2d
0114 6825 |h% | Jump_Zero 0x13a
0115 0092 05a1 | | Action Push_String_Extended,0x5a1 ; "<PROFILE>"
0117 0092 05a2 | | Action Push_String_Extended,0x5a2 ; "$"
0119 0092 05a9 | | Action Push_String_Extended,0x5a9 ; "\x22!Tools.Design.Tps_Integration'spec_view.units\x22.Tps.accept_changes (Into_Gateways =>\x22"
011b e5ff | | Load 0x2,-0x1
011c 01cc | | Execute Vector,Catenate
011d 0092 05aa | | Action Push_String_Extended,0x5aa ; "\x22, Recursive =>"
011f 01cc | | Execute Vector,Catenate
0120 e5fe | | Load 0x2,-0x2
0121 00e1 | | Load_Encached Boolean_Cache
0122 011c | | Execute Any,Convert_Unchecked
0123 1c01 | | Execute_Immediate Run_Utility,0x1
0124 01cc | | Execute Vector,Catenate
0125 0092 05a6 | | Action Push_String_Extended,0x5a6 ; ", Force => "
0127 01cc | | Execute Vector,Catenate
0128 e5fd | | Load 0x2,-0x3
0129 00e1 | | Load_Encached Boolean_Cache
012a 011c | | Execute Any,Convert_Unchecked
012b 1c01 | | Execute_Immediate Run_Utility,0x1
012c 01cc | | Execute Vector,Catenate
012d 0092 05a5 | | Action Push_String_Extended,0x5a5 ; ", Effort_Only => "
012f 01cc | | Execute Vector,Catenate
0130 e5fc | | Load 0x2,-0x4
0131 00e1 | | Load_Encached Boolean_Cache
0132 011c | | Execute Any,Convert_Unchecked
0133 1c01 | | Execute_Immediate Run_Utility,0x1
0134 01cc | | Execute Vector,Catenate
0135 0092 05a7 | | Action Push_String_Extended,0x5a7 ; ", Response => \x22<PROFILE>\x22)"
0137 01cc | | Execute Vector,Catenate
0138 e003 | | Load 0x0,0x3
0139 180f | | Execute Package,Field_Execute,Field_Number 0xf
013a 4505 |E | Exit_Subprogram 0x5
013b 0000 0000 | | .BLANK 0000[0x5]
0140 ; --------------------------------------------------------------------------------------
0140 ; SUBPROGRAM
0140 ; --------------------------------------------------------------------------------------
0140 0143 | C | .CONST 0x0143 ; Address of begin
0141 0004 | | .CONST 0x0004 ; Address of exception handler
0142 0001 | | .CONST 0x0001 ; Number of locals
0143 BODY_0140:
0143 INIT_0140:
0143 822c | , | Call 0x1,0x2c
0144 6814 |h | Jump_Zero 0x159
0145 822d | - | Call 0x1,0x2d
0146 6812 |h | Jump_Zero 0x159
0147 00ea | | Load_Encached Null_String_Cache
0148 00ea | | Load_Encached Null_String_Cache
0149 00ea | | Load_Encached Null_String_Cache
014a 00ea | | Load_Encached Null_String_Cache
014b 0092 059f | | Action Push_String_Extended,0x59f ; "<Cursor>"
014d e001 | | Load 0x0,0x1
014e 180f | | Execute Package,Field_Execute,Field_Number 0xf
014f 0092 05ab | | Action Push_String_Extended,0x5ab ; "T"
0151 0092 05ac | | Action Push_String_Extended,0x5ac ; "Recursive"
0153 0092 05ad | | Action Push_String_Extended,0x5ad ; "RPI Show Out Of Date"
0155 6006 |` | Indirect_Literal Discrete,0x15c,{0x00000000, 0x000008ca}
0156 48e1 |H | Short_Literal 0xe1
0157 e002 | | Load 0x0,0x2
0158 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0159 4501 |E | Exit_Subprogram 0x1
015a 0000 0000 | | .XXX[0x2]
015c 0000 0000 | | .LITERAL {0x00000000, 0x000008ca}
0160 ; --------------------------------------------------------------------------------------
0160 ; SUBPROGRAM
0160 ; --------------------------------------------------------------------------------------
0160 0163 | c | .CONST 0x0163 ; Address of begin
0161 0004 | | .CONST 0x0004 ; Address of exception handler
0162 0001 | | .CONST 0x0001 ; Number of locals
0163 BODY_0160:
0163 INIT_0160:
0163 822d | - | Call 0x1,0x2d
0164 6815 |h | Jump_Zero 0x17a
0165 0092 05a1 | | Action Push_String_Extended,0x5a1 ; "<PROFILE>"
0167 0092 05a2 | | Action Push_String_Extended,0x5a2 ; "$"
0169 0092 05ae | | Action Push_String_Extended,0x5ae ; "\x22!Tools.Design.Tps_Integration'spec_view.units\x22.Tps.show_out_of_date (Gateways =>\x22"
016b e5ff | | Load 0x2,-0x1
016c 01cc | | Execute Vector,Catenate
016d 0092 05aa | | Action Push_String_Extended,0x5aa ; "\x22, Recursive =>"
016f 01cc | | Execute Vector,Catenate
0170 e5fe | | Load 0x2,-0x2
0171 00e1 | | Load_Encached Boolean_Cache
0172 011c | | Execute Any,Convert_Unchecked
0173 1c01 | | Execute_Immediate Run_Utility,0x1
0174 01cc | | Execute Vector,Catenate
0175 0092 05a7 | | Action Push_String_Extended,0x5a7 ; ", Response => \x22<PROFILE>\x22)"
0177 01cc | | Execute Vector,Catenate
0178 e003 | | Load 0x0,0x3
0179 180f | | Execute Package,Field_Execute,Field_Number 0xf
017a 4503 |E | Exit_Subprogram 0x3
017b 0000 0000 | | .BLANK 0000[0x5]
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 822c | , | Call 0x1,0x2c
0184 6819 |h | Jump_Zero 0x19e
0185 822d | - | Call 0x1,0x2d
0186 6817 |h | Jump_Zero 0x19e
0187 0092 05af | | Action Push_String_Extended,0x5af ; "0"
0189 0092 05b0 | | Action Push_String_Extended,0x5b0 ; "F"
018b 0092 05ab | | Action Push_String_Extended,0x5ab ; "T"
018d 0092 05b0 | | Action Push_String_Extended,0x5b0 ; "F"
018f 0092 05b1 | | Action Push_String_Extended,0x5b1 ; "$$.Tps_View"
0191 8004 | | Call 0x0,0x4
0192 0092 059f | | Action Push_String_Extended,0x59f ; "<Cursor>"
0194 e001 | | Load 0x0,0x1
0195 180f | | Execute Package,Field_Execute,Field_Number 0xf
0196 0092 05ab | | Action Push_String_Extended,0x5ab ; "T"
0198 0092 05ab | | Action Push_String_Extended,0x5ab ; "T"
019a 6005 |` | Indirect_Literal Discrete,0x1a0,{0x00000000, 0x000008a2}
019b 48dd |H | Short_Literal 0xdd
019c e002 | | Load 0x0,0x2
019d 1818 | | Execute Package,Field_Execute,Field_Number 0x18
019e 4501 |E | Exit_Subprogram 0x1
019f 0000 | | .XXX[0x1]
01a0 0000 0000 | | .LITERAL {0x00000000, 0x000008a2}
01a4 0000 0000 | | .BLANK 0000[0x4]
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 822d | - | Call 0x1,0x2d
01ac 6876 |hv | Jump_Zero 0x223
01ad 00da | | Load_Top At_Offset_2
01ae 6839 |h9 | Jump_Zero 0x1e8
01af 0092 05a1 | | Action Push_String_Extended,0x5a1 ; "<PROFILE>"
01b1 0092 05a2 | | Action Push_String_Extended,0x5a2 ; "$"
01b3 0092 05b2 | | Action Push_String_Extended,0x5b2 ; "\x22!Tools.Design.Tps_Integration'spec_view.units\x22.Tps.Create_Files (For_Document_Databases => \x22"
01b5 e5fd | | Load 0x2,-0x3
01b6 01cc | | Execute Vector,Catenate
01b7 0092 05b3 | | Action Push_String_Extended,0x5b3 ; "\x22, View_Gateway => \x22"
01b9 01cc | | Execute Vector,Catenate
01ba e5fc | | Load 0x2,-0x4
01bb 01cc | | Execute Vector,Catenate
01bc 0092 05b4 | | Action Push_String_Extended,0x5b4 ; "\x22, Replace => "
01be 01cc | | Execute Vector,Catenate
01bf e5fb | | Load 0x2,-0x5
01c0 00e1 | | Load_Encached Boolean_Cache
01c1 011c | | Execute Any,Convert_Unchecked
01c2 1c01 | | Execute_Immediate Run_Utility,0x1
01c3 01cc | | Execute Vector,Catenate
01c4 0092 05b5 | | Action Push_String_Extended,0x5b5 ; ", Allow_Accept_Changes => "
01c6 01cc | | Execute Vector,Catenate
01c7 e5fa | | Load 0x2,-0x6
01c8 00e1 | | Load_Encached Boolean_Cache
01c9 011c | | Execute Any,Convert_Unchecked
01ca 1c01 | | Execute_Immediate Run_Utility,0x1
01cb 01cc | | Execute Vector,Catenate
01cc 0092 05b6 | | Action Push_String_Extended,0x5b6 ; ", Allow_Put_Changes => "
01ce 01cc | | Execute Vector,Catenate
01cf e5f9 | | Load 0x2,-0x7
01d0 00e1 | | Load_Encached Boolean_Cache
01d1 011c | | Execute Any,Convert_Unchecked
01d2 1c01 | | Execute_Immediate Run_Utility,0x1
01d3 01cc | | Execute Vector,Catenate
01d4 0092 05b7 | | Action Push_String_Extended,0x5b7 ; ", Refresh_Mode => Tps."
01d6 01cc | | Execute Vector,Catenate
01d7 e5f8 | | Load 0x2,-0x8
01d8 00d8 | | Load_Top At_Offset_0
01d9 e22a | * | Load 0x1,0x2a
01da 1b0e | | Execute Package,Field_Read,Field_Number 0xe
01db 0260 | ` | Execute Discrete,In_Type
01dc 7001 |p | Jump_Nonzero 0x1de
01dd 0801 | | Execute_Immediate Raise,0x1
01de e22a | * | Load 0x1,0x2a
01df 1b0e | | Execute Package,Field_Read,Field_Number 0xe
01e0 011c | | Execute Any,Convert_Unchecked
01e1 1c01 | | Execute_Immediate Run_Utility,0x1
01e2 01cc | | Execute Vector,Catenate
01e3 0092 05b8 | | Action Push_String_Extended,0x5b8 ; ", Response => \x22<PROFILE>\x22)"
01e5 01cc | | Execute Vector,Catenate
01e6 e003 | | Load 0x0,0x3
01e7 180f | | Execute Package,Field_Execute,Field_Number 0xf
01e8 00db | | Load_Top At_Offset_3
01e9 6839 |h9 | Jump_Zero 0x223
01ea 0092 05a1 | | Action Push_String_Extended,0x5a1 ; "<PROFILE>"
01ec 0092 05a2 | | Action Push_String_Extended,0x5a2 ; "$"
01ee 0092 05b9 | | Action Push_String_Extended,0x5b9 ; "\x22!Tools.Design.Tps_Integration'spec_view.units\x22.Tps.Create_Graphics (For_Document_Databases => \x22"
01f0 e5fd | | Load 0x2,-0x3
01f1 01cc | | Execute Vector,Catenate
01f2 0092 05b3 | | Action Push_String_Extended,0x5b3 ; "\x22, View_Gateway => \x22"
01f4 01cc | | Execute Vector,Catenate
01f5 e5fc | | Load 0x2,-0x4
01f6 01cc | | Execute Vector,Catenate
01f7 0092 05b4 | | Action Push_String_Extended,0x5b4 ; "\x22, Replace => "
01f9 01cc | | Execute Vector,Catenate
01fa e5fb | | Load 0x2,-0x5
01fb 00e1 | | Load_Encached Boolean_Cache
01fc 011c | | Execute Any,Convert_Unchecked
01fd 1c01 | | Execute_Immediate Run_Utility,0x1
01fe 01cc | | Execute Vector,Catenate
01ff 0092 05b5 | | Action Push_String_Extended,0x5b5 ; ", Allow_Accept_Changes => "
0201 01cc | | Execute Vector,Catenate
0202 e5fa | | Load 0x2,-0x6
0203 00e1 | | Load_Encached Boolean_Cache
0204 011c | | Execute Any,Convert_Unchecked
0205 1c01 | | Execute_Immediate Run_Utility,0x1
0206 01cc | | Execute Vector,Catenate
0207 0092 05b6 | | Action Push_String_Extended,0x5b6 ; ", Allow_Put_Changes => "
0209 01cc | | Execute Vector,Catenate
020a e5f9 | | Load 0x2,-0x7
020b 00e1 | | Load_Encached Boolean_Cache
020c 011c | | Execute Any,Convert_Unchecked
020d 1c01 | | Execute_Immediate Run_Utility,0x1
020e 01cc | | Execute Vector,Catenate
020f 0092 05b7 | | Action Push_String_Extended,0x5b7 ; ", Refresh_Mode => Tps."
0211 01cc | | Execute Vector,Catenate
0212 e5f8 | | Load 0x2,-0x8
0213 00d8 | | Load_Top At_Offset_0
0214 e22a | * | Load 0x1,0x2a
0215 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0216 0260 | ` | Execute Discrete,In_Type
0217 7001 |p | Jump_Nonzero 0x219
0218 0801 | | Execute_Immediate Raise,0x1
0219 e22a | * | Load 0x1,0x2a
021a 1b0e | | Execute Package,Field_Read,Field_Number 0xe
021b 011c | | Execute Any,Convert_Unchecked
021c 1c01 | | Execute_Immediate Run_Utility,0x1
021d 01cc | | Execute Vector,Catenate
021e 0092 05a7 | | Action Push_String_Extended,0x5a7 ; ", Response => \x22<PROFILE>\x22)"
0220 01cc | | Execute Vector,Catenate
0221 e003 | | Load 0x0,0x3
0222 180f | | Execute Package,Field_Execute,Field_Number 0xf
0223 4509 |E | Exit_Subprogram 0x9
0224 0000 0000 | | .BLANK 0000[0x4]
0228 ; --------------------------------------------------------------------------------------
0228 ; SUBPROGRAM
0228 ; --------------------------------------------------------------------------------------
0228 022b | + | .CONST 0x022b ; Address of begin
0229 0004 | | .CONST 0x0004 ; Address of exception handler
022a 0001 | | .CONST 0x0001 ; Number of locals
022b BODY_0228:
022b INIT_0228:
022b 822c | , | Call 0x1,0x2c
022c 681f |h | Jump_Zero 0x24c
022d 822d | - | Call 0x1,0x2d
022e 681d |h | Jump_Zero 0x24c
022f 4820 |H | Short_Literal 0x20
0230 0092 05ba | | Action Push_String_Extended,0x5ba ; " 1"
0232 e005 | | Load 0x0,0x5
0233 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0234 0092 05bb | | Action Push_String_Extended,0x5bb ; "FTT"
0236 4820 |H | Short_Literal 0x20
0237 0092 05bc | | Action Push_String_Extended,0x5bc ; " 3"
0239 e005 | | Load 0x0,0x5
023a 181a | | Execute Package,Field_Execute,Field_Number 0x1a
023b 0092 05bd | | Action Push_String_Extended,0x5bd ; "<DEFAULT VIEW CABINET>"
023d 0092 05be | | Action Push_String_Extended,0x5be ; "~/desktop"
023f 0092 05bf | | Action Push_String_Extended,0x5bf ; "[Network Name]"
0241 00ea | | Load_Encached Null_String_Cache
0242 0092 05c0 | | Action Push_String_Extended,0x5c0 ; "$$"
0244 8004 | | Call 0x0,0x4
0245 0092 05c1 | | Action Push_String_Extended,0x5c1 ; ".Tps_View"
0247 01cc | | Execute Vector,Catenate
0248 6007 |` | Indirect_Literal Discrete,0x250,{0x00000000, 0x000008ac}
0249 48de |H | Short_Literal 0xde
024a e002 | | Load 0x0,0x2
024b 1818 | | Execute Package,Field_Execute,Field_Number 0x18
024c 4501 |E | Exit_Subprogram 0x1
024d 0000 0000 | | .XXX[0x3]
024f 0000 | |
0250 0000 0000 | | .LITERAL {0x00000000, 0x000008ac}
0254 0000 0000 | | .BLANK 0000[0x4]
0258 ; --------------------------------------------------------------------------------------
0258 ; SUBPROGRAM
0258 ; --------------------------------------------------------------------------------------
0258 025b | [ | .CONST 0x025b ; Address of begin
0259 0004 | | .CONST 0x0004 ; Address of exception handler
025a 0001 | | .CONST 0x0001 ; Number of locals
025b BODY_0258:
025b INIT_0258:
025b 822d | - | Call 0x1,0x2d
025c 687e |h~ | Jump_Zero 0x2db
025d 0092 05a1 | | Action Push_String_Extended,0x5a1 ; "<PROFILE>"
025f 0092 05a2 | | Action Push_String_Extended,0x5a2 ; "$"
0261 0092 05c2 | | Action Push_String_Extended,0x5c2 ; "\x22!Tools.Design.Tps_Integration'spec_view.units\x22.Tps.Create_View_Gateway (View_Gateway => \x22"
0263 e5ff | | Load 0x2,-0x1
0264 01cc | | Execute Vector,Catenate
0265 0092 05c3 | | Action Push_String_Extended,0x5c3 ; "\x22,"
0267 01cc | | Execute Vector,Catenate
0268 0092 05c4 | | Action Push_String_Extended,0x5c4 ; "Parent_Gateway_Name => \x22"
026a 01cc | | Execute Vector,Catenate
026b e5fe | | Load 0x2,-0x2
026c 01cc | | Execute Vector,Catenate
026d 0092 05c3 | | Action Push_String_Extended,0x5c3 ; "\x22,"
026f 01cc | | Execute Vector,Catenate
0270 0092 05c5 | | Action Push_String_Extended,0x5c5 ; "Host => \x22"
0272 01cc | | Execute Vector,Catenate
0273 e5fd | | Load 0x2,-0x3
0274 01cc | | Execute Vector,Catenate
0275 0092 05c3 | | Action Push_String_Extended,0x5c3 ; "\x22,"
0277 01cc | | Execute Vector,Catenate
0278 0092 05c6 | | Action Push_String_Extended,0x5c6 ; "Desktop => \x22"
027a 01cc | | Execute Vector,Catenate
027b e5fc | | Load 0x2,-0x4
027c 01cc | | Execute Vector,Catenate
027d 0092 05c3 | | Action Push_String_Extended,0x5c3 ; "\x22,"
027f 01cc | | Execute Vector,Catenate
0280 0092 05c7 | | Action Push_String_Extended,0x5c7 ; "Icon_Name => \x22"
0282 01cc | | Execute Vector,Catenate
0283 e5fb | | Load 0x2,-0x5
0284 01cc | | Execute Vector,Catenate
0285 0092 05c3 | | Action Push_String_Extended,0x5c3 ; "\x22,"
0287 01cc | | Execute Vector,Catenate
0288 0092 05c8 | | Action Push_String_Extended,0x5c8 ; "Icon_Type => Tps."
028a 01cc | | Execute Vector,Catenate
028b e5fa | | Load 0x2,-0x6
028c 00d8 | | Load_Top At_Offset_0
028d e22a | * | Load 0x1,0x2a
028e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
028f 0260 | ` | Execute Discrete,In_Type
0290 7001 |p | Jump_Nonzero 0x292
0291 0801 | | Execute_Immediate Raise,0x1
0292 e22a | * | Load 0x1,0x2a
0293 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0294 011c | | Execute Any,Convert_Unchecked
0295 1c01 | | Execute_Immediate Run_Utility,0x1
0296 01cc | | Execute Vector,Catenate
0297 0092 05c9 | | Action Push_String_Extended,0x5c9 ; ","
0299 01cc | | Execute Vector,Catenate
029a 0092 05ca | | Action Push_String_Extended,0x5ca ; "Allow_Accept_Changes => "
029c 01cc | | Execute Vector,Catenate
029d e5f9 | | Load 0x2,-0x7
029e 00e1 | | Load_Encached Boolean_Cache
029f 011c | | Execute Any,Convert_Unchecked
02a0 1c01 | | Execute_Immediate Run_Utility,0x1
02a1 01cc | | Execute Vector,Catenate
02a2 0092 05cb | | Action Push_String_Extended,0x5cb ; ", "
02a4 01cc | | Execute Vector,Catenate
02a5 0092 05cc | | Action Push_String_Extended,0x5cc ; "Allow_Put_Changes => "
02a7 01cc | | Execute Vector,Catenate
02a8 e5f8 | | Load 0x2,-0x8
02a9 00e1 | | Load_Encached Boolean_Cache
02aa 011c | | Execute Any,Convert_Unchecked
02ab 1c01 | | Execute_Immediate Run_Utility,0x1
02ac 01cc | | Execute Vector,Catenate
02ad 0092 05cb | | Action Push_String_Extended,0x5cb ; ", "
02af 01cc | | Execute Vector,Catenate
02b0 0092 05cd | | Action Push_String_Extended,0x5cd ; "Refresh_Mode => Tps."
02b2 01cc | | Execute Vector,Catenate
02b3 e5f7 | | Load 0x2,-0x9
02b4 00d8 | | Load_Top At_Offset_0
02b5 e22a | * | Load 0x1,0x2a
02b6 1b0e | | Execute Package,Field_Read,Field_Number 0xe
02b7 0260 | ` | Execute Discrete,In_Type
02b8 7001 |p | Jump_Nonzero 0x2ba
02b9 0801 | | Execute_Immediate Raise,0x1
02ba e22a | * | Load 0x1,0x2a
02bb 1b0e | | Execute Package,Field_Read,Field_Number 0xe
02bc 011c | | Execute Any,Convert_Unchecked
02bd 1c01 | | Execute_Immediate Run_Utility,0x1
02be 01cc | | Execute Vector,Catenate
02bf 0092 05cb | | Action Push_String_Extended,0x5cb ; ", "
02c1 01cc | | Execute Vector,Catenate
02c2 0092 05ce | | Action Push_String_Extended,0x5ce ; "Frame_Name => \x22"
02c4 01cc | | Execute Vector,Catenate
02c5 0092 05c3 | | Action Push_String_Extended,0x5c3 ; "\x22,"
02c7 01cc | | Execute Vector,Catenate
02c8 0092 05cf | | Action Push_String_Extended,0x5cf ; "Traverse_To_Desktop => False,"
02ca 01cc | | Execute Vector,Catenate
02cb 0092 05d0 | | Action Push_String_Extended,0x5d0 ; "Connected => \x22"
02cd 01cc | | Execute Vector,Catenate
02ce e5f6 | | Load 0x2,-0xa
02cf 00e1 | | Load_Encached Boolean_Cache
02d0 011c | | Execute Any,Convert_Unchecked
02d1 1c01 | | Execute_Immediate Run_Utility,0x1
02d2 01cc | | Execute Vector,Catenate
02d3 0092 05d1 | | Action Push_String_Extended,0x5d1 ; "\x22, "
02d5 01cc | | Execute Vector,Catenate
02d6 0092 05d2 | | Action Push_String_Extended,0x5d2 ; "Response => \x22<PROFILE>\x22)"
02d8 01cc | | Execute Vector,Catenate
02d9 e003 | | Load 0x0,0x3
02da 180f | | Execute Package,Field_Execute,Field_Number 0xf
02db 450b |E | Exit_Subprogram 0xb
02dc 0000 0000 | | .BLANK 0000[0x4]
02e0 ; --------------------------------------------------------------------------------------
02e0 ; SUBPROGRAM
02e0 ; --------------------------------------------------------------------------------------
02e0 02e3 | | .CONST 0x02e3 ; Address of begin
02e1 0004 | | .CONST 0x0004 ; Address of exception handler
02e2 0001 | | .CONST 0x0001 ; Number of locals
02e3 BODY_02e0:
02e3 INIT_02e0:
02e3 822c | , | Call 0x1,0x2c
02e4 681d |h | Jump_Zero 0x302
02e5 822d | - | Call 0x1,0x2d
02e6 681b |h | Jump_Zero 0x302
02e7 00ea | | Load_Encached Null_String_Cache
02e8 4820 |H | Short_Literal 0x20
02e9 0092 05d3 | | Action Push_String_Extended,0x5d3 ; " 0"
02eb e005 | | Load 0x0,0x5
02ec 181a | | Execute Package,Field_Execute,Field_Number 0x1a
02ed 0092 05b0 | | Action Push_String_Extended,0x5b0 ; "F"
02ef 0092 05ab | | Action Push_String_Extended,0x5ab ; "T"
02f1 4820 |H | Short_Literal 0x20
02f2 0092 05d4 | | Action Push_String_Extended,0x5d4 ; " 9"
02f4 e005 | | Load 0x0,0x5
02f5 181a | | Execute Package,Field_Execute,Field_Number 0x1a
02f6 0092 05d5 | | Action Push_String_Extended,0x5d5 ; "<AUTO GENERATE>"
02f8 0092 05b1 | | Action Push_String_Extended,0x5b1 ; "$$.Tps_View"
02fa 8004 | | Call 0x0,0x4
02fb 0092 05d6 | | Action Push_String_Extended,0x5d6 ; "<image>"
02fd 8004 | | Call 0x0,0x4
02fe 6005 |` | Indirect_Literal Discrete,0x304,{0x00000000, 0x000008b6}
02ff 48df |H | Short_Literal 0xdf
0300 e002 | | Load 0x0,0x2
0301 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0302 4501 |E | Exit_Subprogram 0x1
0303 0000 | | .XXX[0x1]
0304 0000 0000 | | .LITERAL {0x00000000, 0x000008b6}
0308 ; --------------------------------------------------------------------------------------
0308 ; SUBPROGRAM
0308 ; --------------------------------------------------------------------------------------
0308 030b | | .CONST 0x030b ; Address of begin
0309 0004 | | .CONST 0x0004 ; Address of exception handler
030a 0001 | | .CONST 0x0001 ; Number of locals
030b BODY_0308:
030b INIT_0308:
030b 822d | - | Call 0x1,0x2d
030c 684b |hK | Jump_Zero 0x358
030d 0092 05a1 | | Action Push_String_Extended,0x5a1 ; "<PROFILE>"
030f 0092 05a2 | | Action Push_String_Extended,0x5a2 ; "$"
0311 0092 05d7 | | Action Push_String_Extended,0x5d7 ; "\x22!Tools.Design.Tps_Integration'spec_view.units\x22.Tps.Create_File (Gateway_Name => \x22"
0313 e5ff | | Load 0x2,-0x1
0314 01cc | | Execute Vector,Catenate
0315 0092 05d8 | | Action Push_String_Extended,0x5d8 ; "\x22, Parent_Gateway_Name => \x22"
0317 01cc | | Execute Vector,Catenate
0318 e5fe | | Load 0x2,-0x2
0319 01cc | | Execute Vector,Catenate
031a 0092 05d9 | | Action Push_String_Extended,0x5d9 ; "\x22, Host => \x22<Parent>\x22, Desktop => \x22<Parent>\x22,"
031c 01cc | | Execute Vector,Catenate
031d 0092 05da | | Action Push_String_Extended,0x5da ; " Icon_Name => \x22"
031f 01cc | | Execute Vector,Catenate
0320 e5fd | | Load 0x2,-0x3
0321 01cc | | Execute Vector,Catenate
0322 0092 05db | | Action Push_String_Extended,0x5db ; "\x22, Icon_Type => Tps."
0324 01cc | | Execute Vector,Catenate
0325 e5fc | | Load 0x2,-0x4
0326 00d8 | | Load_Top At_Offset_0
0327 e22a | * | Load 0x1,0x2a
0328 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0329 0260 | ` | Execute Discrete,In_Type
032a 7001 |p | Jump_Nonzero 0x32c
032b 0801 | | Execute_Immediate Raise,0x1
032c e22a | * | Load 0x1,0x2a
032d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
032e 011c | | Execute Any,Convert_Unchecked
032f 1c01 | | Execute_Immediate Run_Utility,0x1
0330 01cc | | Execute Vector,Catenate
0331 0092 05b5 | | Action Push_String_Extended,0x5b5 ; ", Allow_Accept_Changes => "
0333 01cc | | Execute Vector,Catenate
0334 e5fb | | Load 0x2,-0x5
0335 00e1 | | Load_Encached Boolean_Cache
0336 011c | | Execute Any,Convert_Unchecked
0337 1c01 | | Execute_Immediate Run_Utility,0x1
0338 01cc | | Execute Vector,Catenate
0339 0092 05b6 | | Action Push_String_Extended,0x5b6 ; ", Allow_Put_Changes => "
033b 01cc | | Execute Vector,Catenate
033c e5fa | | Load 0x2,-0x6
033d 00e1 | | Load_Encached Boolean_Cache
033e 011c | | Execute Any,Convert_Unchecked
033f 1c01 | | Execute_Immediate Run_Utility,0x1
0340 01cc | | Execute Vector,Catenate
0341 0092 05b7 | | Action Push_String_Extended,0x5b7 ; ", Refresh_Mode => Tps."
0343 01cc | | Execute Vector,Catenate
0344 e5f9 | | Load 0x2,-0x7
0345 00d8 | | Load_Top At_Offset_0
0346 e22a | * | Load 0x1,0x2a
0347 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0348 0260 | ` | Execute Discrete,In_Type
0349 7001 |p | Jump_Nonzero 0x34b
034a 0801 | | Execute_Immediate Raise,0x1
034b e22a | * | Load 0x1,0x2a
034c 1b0e | | Execute Package,Field_Read,Field_Number 0xe
034d 011c | | Execute Any,Convert_Unchecked
034e 1c01 | | Execute_Immediate Run_Utility,0x1
034f 01cc | | Execute Vector,Catenate
0350 0092 05dc | | Action Push_String_Extended,0x5dc ; ", Frame_Name => \x22\x22, Traverse_To_Desktop => False,"
0352 01cc | | Execute Vector,Catenate
0353 0092 05dd | | Action Push_String_Extended,0x5dd ; "Connected => \x22<Parent>\x22, Response => \x22<PROFILE>\x22)"
0355 01cc | | Execute Vector,Catenate
0356 e003 | | Load 0x0,0x3
0357 180f | | Execute Package,Field_Execute,Field_Number 0xf
0358 4508 |E | Exit_Subprogram 0x8
0359 0000 0000 | | .BLANK 0000[0x7]
0360 ; --------------------------------------------------------------------------------------
0360 ; SUBPROGRAM
0360 ; --------------------------------------------------------------------------------------
0360 0363 | c | .CONST 0x0363 ; Address of begin
0361 0004 | | .CONST 0x0004 ; Address of exception handler
0362 0001 | | .CONST 0x0001 ; Number of locals
0363 BODY_0360:
0363 INIT_0360:
0363 822c | , | Call 0x1,0x2c
0364 681e |h | Jump_Zero 0x383
0365 822d | - | Call 0x1,0x2d
0366 681c |h | Jump_Zero 0x383
0367 0092 05de | | Action Push_String_Extended,0x5de ; "[FRAME NAME]"
0369 4820 |H | Short_Literal 0x20
036a 0092 05d3 | | Action Push_String_Extended,0x5d3 ; " 0"
036c e005 | | Load 0x0,0x5
036d 181a | | Execute Package,Field_Execute,Field_Number 0x1a
036e 0092 05b0 | | Action Push_String_Extended,0x5b0 ; "F"
0370 0092 05ab | | Action Push_String_Extended,0x5ab ; "T"
0372 4820 |H | Short_Literal 0x20
0373 0092 05df | | Action Push_String_Extended,0x5df ; " 10"
0375 e005 | | Load 0x0,0x5
0376 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0377 0092 05d5 | | Action Push_String_Extended,0x5d5 ; "<AUTO GENERATE>"
0379 0092 05b1 | | Action Push_String_Extended,0x5b1 ; "$$.Tps_View"
037b 8004 | | Call 0x0,0x4
037c 0092 05d6 | | Action Push_String_Extended,0x5d6 ; "<image>"
037e 8004 | | Call 0x0,0x4
037f 6004 |` | Indirect_Literal Discrete,0x384,{0x00000000, 0x000008c0}
0380 48e0 |H | Short_Literal 0xe0
0381 e002 | | Load 0x0,0x2
0382 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0383 4501 |E | Exit_Subprogram 0x1
0384 0000 0000 | | .LITERAL {0x00000000, 0x000008c0}
0388 ; --------------------------------------------------------------------------------------
0388 ; SUBPROGRAM
0388 ; --------------------------------------------------------------------------------------
0388 038b | | .CONST 0x038b ; Address of begin
0389 0004 | | .CONST 0x0004 ; Address of exception handler
038a 0001 | | .CONST 0x0001 ; Number of locals
038b BODY_0388:
038b INIT_0388:
038b 822d | - | Call 0x1,0x2d
038c 6850 |hP | Jump_Zero 0x3dd
038d 0092 05a1 | | Action Push_String_Extended,0x5a1 ; "<PROFILE>"
038f 0092 05a2 | | Action Push_String_Extended,0x5a2 ; "$"
0391 0092 05e0 | | Action Push_String_Extended,0x5e0 ; "\x22!Tools.Design.Tps_Integration'spec_view.units\x22.Tps.Create_Graphic (Gateway_Name => \x22"
0393 e5ff | | Load 0x2,-0x1
0394 01cc | | Execute Vector,Catenate
0395 0092 05d8 | | Action Push_String_Extended,0x5d8 ; "\x22, Parent_Gateway_Name => \x22"
0397 01cc | | Execute Vector,Catenate
0398 e5fe | | Load 0x2,-0x2
0399 01cc | | Execute Vector,Catenate
039a 0092 05d9 | | Action Push_String_Extended,0x5d9 ; "\x22, Host => \x22<Parent>\x22, Desktop => \x22<Parent>\x22,"
039c 01cc | | Execute Vector,Catenate
039d 0092 05da | | Action Push_String_Extended,0x5da ; " Icon_Name => \x22"
039f 01cc | | Execute Vector,Catenate
03a0 e5fd | | Load 0x2,-0x3
03a1 01cc | | Execute Vector,Catenate
03a2 0092 05db | | Action Push_String_Extended,0x5db ; "\x22, Icon_Type => Tps."
03a4 01cc | | Execute Vector,Catenate
03a5 e5fc | | Load 0x2,-0x4
03a6 00d8 | | Load_Top At_Offset_0
03a7 e22a | * | Load 0x1,0x2a
03a8 1b0d | | Execute Package,Field_Read,Field_Number 0xd
03a9 0260 | ` | Execute Discrete,In_Type
03aa 7001 |p | Jump_Nonzero 0x3ac
03ab 0801 | | Execute_Immediate Raise,0x1
03ac e22a | * | Load 0x1,0x2a
03ad 1b0d | | Execute Package,Field_Read,Field_Number 0xd
03ae 011c | | Execute Any,Convert_Unchecked
03af 1c01 | | Execute_Immediate Run_Utility,0x1
03b0 01cc | | Execute Vector,Catenate
03b1 0092 05b5 | | Action Push_String_Extended,0x5b5 ; ", Allow_Accept_Changes => "
03b3 01cc | | Execute Vector,Catenate
03b4 e5fb | | Load 0x2,-0x5
03b5 00e1 | | Load_Encached Boolean_Cache
03b6 011c | | Execute Any,Convert_Unchecked
03b7 1c01 | | Execute_Immediate Run_Utility,0x1
03b8 01cc | | Execute Vector,Catenate
03b9 0092 05b6 | | Action Push_String_Extended,0x5b6 ; ", Allow_Put_Changes => "
03bb 01cc | | Execute Vector,Catenate
03bc e5fa | | Load 0x2,-0x6
03bd 00e1 | | Load_Encached Boolean_Cache
03be 011c | | Execute Any,Convert_Unchecked
03bf 1c01 | | Execute_Immediate Run_Utility,0x1
03c0 01cc | | Execute Vector,Catenate
03c1 0092 05b7 | | Action Push_String_Extended,0x5b7 ; ", Refresh_Mode => Tps."
03c3 01cc | | Execute Vector,Catenate
03c4 e5f9 | | Load 0x2,-0x7
03c5 00d8 | | Load_Top At_Offset_0
03c6 e22a | * | Load 0x1,0x2a
03c7 1b0e | | Execute Package,Field_Read,Field_Number 0xe
03c8 0260 | ` | Execute Discrete,In_Type
03c9 7001 |p | Jump_Nonzero 0x3cb
03ca 0801 | | Execute_Immediate Raise,0x1
03cb e22a | * | Load 0x1,0x2a
03cc 1b0e | | Execute Package,Field_Read,Field_Number 0xe
03cd 011c | | Execute Any,Convert_Unchecked
03ce 1c01 | | Execute_Immediate Run_Utility,0x1
03cf 01cc | | Execute Vector,Catenate
03d0 0092 05e1 | | Action Push_String_Extended,0x5e1 ; ", Frame_Name => \x22"
03d2 01cc | | Execute Vector,Catenate
03d3 e5f8 | | Load 0x2,-0x8
03d4 01cc | | Execute Vector,Catenate
03d5 0092 05e2 | | Action Push_String_Extended,0x5e2 ; "\x22, Traverse_To_Desktop => False,"
03d7 01cc | | Execute Vector,Catenate
03d8 0092 05e3 | | Action Push_String_Extended,0x5e3 ; " Connected => \x22<Parent>\x22, Response => \x22<PROFILE>\x22)"
03da 01cc | | Execute Vector,Catenate
03db e003 | | Load 0x0,0x3
03dc 180f | | Execute Package,Field_Execute,Field_Number 0xf
03dd 4509 |E | Exit_Subprogram 0x9
03de 0000 0000 | | .XXX[0x2]
03e0 ; --------------------------------------------------------------------------------------
03e0 ; SUBPROGRAM
03e0 ; --------------------------------------------------------------------------------------
03e0 03e3 | | .CONST 0x03e3 ; Address of begin
03e1 0004 | | .CONST 0x0004 ; Address of exception handler
03e2 0001 | | .CONST 0x0001 ; Number of locals
03e3 BODY_03e0:
03e3 INIT_03e0:
03e3 822c | , | Call 0x1,0x2c
03e4 6811 |h | Jump_Zero 0x3f6
03e5 822d | - | Call 0x1,0x2d
03e6 680f |h | Jump_Zero 0x3f6
03e7 00ea | | Load_Encached Null_String_Cache
03e8 00ea | | Load_Encached Null_String_Cache
03e9 00ea | | Load_Encached Null_String_Cache
03ea 00ea | | Load_Encached Null_String_Cache
03eb 00ea | | Load_Encached Null_String_Cache
03ec 00ea | | Load_Encached Null_String_Cache
03ed 0092 05b1 | | Action Push_String_Extended,0x5b1 ; "$$.Tps_View"
03ef 8004 | | Call 0x0,0x4
03f0 0092 05e4 | | Action Push_String_Extended,0x5e4 ; "RPI Connect"
03f2 6005 |` | Indirect_Literal Discrete,0x3f8,{0x00000000, 0x0000089a}
03f3 48e2 |H | Short_Literal 0xe2
03f4 e002 | | Load 0x0,0x2
03f5 1818 | | Execute Package,Field_Execute,Field_Number 0x18
03f6 4501 |E | Exit_Subprogram 0x1
03f7 0000 | | .XXX[0x1]
03f8 0000 0000 | | .LITERAL {0x00000000, 0x0000089a}
03fc 0000 0000 | | .BLANK 0000[0x4]
0400 ; --------------------------------------------------------------------------------------
0400 ; SUBPROGRAM
0400 ; --------------------------------------------------------------------------------------
0400 0403 | | .CONST 0x0403 ; Address of begin
0401 0004 | | .CONST 0x0004 ; Address of exception handler
0402 0001 | | .CONST 0x0001 ; Number of locals
0403 BODY_0400:
0403 INIT_0400:
0403 822d | - | Call 0x1,0x2d
0404 680d |h | Jump_Zero 0x412
0405 0092 05a1 | | Action Push_String_Extended,0x5a1 ; "<PROFILE>"
0407 0092 05a2 | | Action Push_String_Extended,0x5a2 ; "$"
0409 0092 05e5 | | Action Push_String_Extended,0x5e5 ; "\x22!Tools.Design.Tps_Integration'spec_view.units\x22.Tps.connect (View_Gateway =>\x22"
040b e5ff | | Load 0x2,-0x1
040c 01cc | | Execute Vector,Catenate
040d 0092 05e6 | | Action Push_String_Extended,0x5e6 ; "\x22, Response => \x22<PROFILE>\x22)"
040f 01cc | | Execute Vector,Catenate
0410 e003 | | Load 0x0,0x3
0411 180f | | Execute Package,Field_Execute,Field_Number 0xf
0412 4502 |E | Exit_Subprogram 0x2
0413 0000 0000 | | .BLANK 0000[0x5]
0418 ; --------------------------------------------------------------------------------------
0418 ; SUBPROGRAM
0418 ; --------------------------------------------------------------------------------------
0418 041b | | .CONST 0x041b ; Address of begin
0419 0004 | | .CONST 0x0004 ; Address of exception handler
041a 0001 | | .CONST 0x0001 ; Number of locals
041b BODY_0418:
041b INIT_0418:
041b 822c | , | Call 0x1,0x2c
041c 6811 |h | Jump_Zero 0x42e
041d 822d | - | Call 0x1,0x2d
041e 680f |h | Jump_Zero 0x42e
041f 00ea | | Load_Encached Null_String_Cache
0420 00ea | | Load_Encached Null_String_Cache
0421 00ea | | Load_Encached Null_String_Cache
0422 00ea | | Load_Encached Null_String_Cache
0423 00ea | | Load_Encached Null_String_Cache
0424 00ea | | Load_Encached Null_String_Cache
0425 0092 05b1 | | Action Push_String_Extended,0x5b1 ; "$$.Tps_View"
0427 8004 | | Call 0x0,0x4
0428 0092 05e7 | | Action Push_String_Extended,0x5e7 ; "RPI Disconnect"
042a 6005 |` | Indirect_Literal Discrete,0x430,{0x00000000, 0x0000089b}
042b 48e2 |H | Short_Literal 0xe2
042c e002 | | Load 0x0,0x2
042d 1818 | | Execute Package,Field_Execute,Field_Number 0x18
042e 4501 |E | Exit_Subprogram 0x1
042f 0000 | | .XXX[0x1]
0430 0000 0000 | | .LITERAL {0x00000000, 0x0000089b}
0434 0000 0000 | | .BLANK 0000[0x4]
0438 ; --------------------------------------------------------------------------------------
0438 ; SUBPROGRAM
0438 ; --------------------------------------------------------------------------------------
0438 043b | ; | .CONST 0x043b ; Address of begin
0439 0004 | | .CONST 0x0004 ; Address of exception handler
043a 0001 | | .CONST 0x0001 ; Number of locals
043b BODY_0438:
043b INIT_0438:
043b 822d | - | Call 0x1,0x2d
043c 680d |h | Jump_Zero 0x44a
043d 0092 05a1 | | Action Push_String_Extended,0x5a1 ; "<PROFILE>"
043f 0092 05a2 | | Action Push_String_Extended,0x5a2 ; "$"
0441 0092 05e8 | | Action Push_String_Extended,0x5e8 ; "\x22!Tools.Design.Tps_Integration'spec_view.units\x22.Tps.disconnect (View_Gateway =>\x22"
0443 e5ff | | Load 0x2,-0x1
0444 01cc | | Execute Vector,Catenate
0445 0092 05e6 | | Action Push_String_Extended,0x5e6 ; "\x22, Response => \x22<PROFILE>\x22)"
0447 01cc | | Execute Vector,Catenate
0448 e003 | | Load 0x0,0x3
0449 180f | | Execute Package,Field_Execute,Field_Number 0xf
044a 4502 |E | Exit_Subprogram 0x2
044b 0000 0000 | | .BLANK 0000[0x5]
0450 ; --------------------------------------------------------------------------------------
0450 ; SUBPROGRAM
0450 ; --------------------------------------------------------------------------------------
0450 0453 | S | .CONST 0x0453 ; Address of begin
0451 0004 | | .CONST 0x0004 ; Address of exception handler
0452 0001 | | .CONST 0x0001 ; Number of locals
0453 BODY_0450:
0453 INIT_0450:
0453 822c | , | Call 0x1,0x2c
0454 6814 |h | Jump_Zero 0x469
0455 822d | - | Call 0x1,0x2d
0456 6812 |h | Jump_Zero 0x469
0457 00ea | | Load_Encached Null_String_Cache
0458 00ea | | Load_Encached Null_String_Cache
0459 00ea | | Load_Encached Null_String_Cache
045a 00ea | | Load_Encached Null_String_Cache
045b 0092 059f | | Action Push_String_Extended,0x59f ; "<Cursor>"
045d e001 | | Load 0x0,0x1
045e 180f | | Execute Package,Field_Execute,Field_Number 0xf
045f 0092 05b0 | | Action Push_String_Extended,0x5b0 ; "F"
0461 0092 05e9 | | Action Push_String_Extended,0x5e9 ; "Effort Only"
0463 0092 05ea | | Action Push_String_Extended,0x5ea ; "RPI Save Archive"
0465 6006 |` | Indirect_Literal Discrete,0x46c,{0x00000000, 0x000008ce}
0466 48e1 |H | Short_Literal 0xe1
0467 e002 | | Load 0x0,0x2
0468 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0469 4501 |E | Exit_Subprogram 0x1
046a 0000 0000 | | .XXX[0x2]
046c 0000 0000 | | .LITERAL {0x00000000, 0x000008ce}
0470 ; --------------------------------------------------------------------------------------
0470 ; SUBPROGRAM
0470 ; --------------------------------------------------------------------------------------
0470 0473 | s | .CONST 0x0473 ; Address of begin
0471 0004 | | .CONST 0x0004 ; Address of exception handler
0472 0001 | | .CONST 0x0001 ; Number of locals
0473 BODY_0470:
0473 INIT_0470:
0473 822d | - | Call 0x1,0x2d
0474 6815 |h | Jump_Zero 0x48a
0475 0092 05a1 | | Action Push_String_Extended,0x5a1 ; "<PROFILE>"
0477 0092 05a2 | | Action Push_String_Extended,0x5a2 ; "$"
0479 0092 05eb | | Action Push_String_Extended,0x5eb ; "\x22!Tools.Design.Tps_Integration'spec_view.units\x22.Tps.save_archive (Tps_Directory_Gateways =>\x22"
047b e5ff | | Load 0x2,-0x1
047c 01cc | | Execute Vector,Catenate
047d 0092 05ec | | Action Push_String_Extended,0x5ec ; "\x22, Effort_Only => "
047f 01cc | | Execute Vector,Catenate
0480 e5fe | | Load 0x2,-0x2
0481 00e1 | | Load_Encached Boolean_Cache
0482 011c | | Execute Any,Convert_Unchecked
0483 1c01 | | Execute_Immediate Run_Utility,0x1
0484 01cc | | Execute Vector,Catenate
0485 0092 05a7 | | Action Push_String_Extended,0x5a7 ; ", Response => \x22<PROFILE>\x22)"
0487 01cc | | Execute Vector,Catenate
0488 e003 | | Load 0x0,0x3
0489 180f | | Execute Package,Field_Execute,Field_Number 0xf
048a 4503 |E | Exit_Subprogram 0x3
048b 0000 0000 | | .BLANK 0000[0x5]
0490 ; --------------------------------------------------------------------------------------
0490 ; SUBPROGRAM
0490 ; --------------------------------------------------------------------------------------
0490 0493 | | .CONST 0x0493 ; Address of begin
0491 0004 | | .CONST 0x0004 ; Address of exception handler
0492 0001 | | .CONST 0x0001 ; Number of locals
0493 BODY_0490:
0493 INIT_0490:
0493 822c | , | Call 0x1,0x2c
0494 6814 |h | Jump_Zero 0x4a9
0495 822d | - | Call 0x1,0x2d
0496 6812 |h | Jump_Zero 0x4a9
0497 00ea | | Load_Encached Null_String_Cache
0498 00ea | | Load_Encached Null_String_Cache
0499 00ea | | Load_Encached Null_String_Cache
049a 00ea | | Load_Encached Null_String_Cache
049b 0092 059f | | Action Push_String_Extended,0x59f ; "<Cursor>"
049d e001 | | Load 0x0,0x1
049e 180f | | Execute Package,Field_Execute,Field_Number 0xf
049f 0092 05b0 | | Action Push_String_Extended,0x5b0 ; "F"
04a1 0092 05e9 | | Action Push_String_Extended,0x5e9 ; "Effort Only"
04a3 0092 05ed | | Action Push_String_Extended,0x5ed ; "RPI Restore Archive"
04a5 6006 |` | Indirect_Literal Discrete,0x4ac,{0x00000000, 0x000008cf}
04a6 48e1 |H | Short_Literal 0xe1
04a7 e002 | | Load 0x0,0x2
04a8 1818 | | Execute Package,Field_Execute,Field_Number 0x18
04a9 4501 |E | Exit_Subprogram 0x1
04aa 0000 0000 | | .XXX[0x2]
04ac 0000 0000 | | .LITERAL {0x00000000, 0x000008cf}
04b0 ; --------------------------------------------------------------------------------------
04b0 ; SUBPROGRAM
04b0 ; --------------------------------------------------------------------------------------
04b0 04b3 | | .CONST 0x04b3 ; Address of begin
04b1 0004 | | .CONST 0x0004 ; Address of exception handler
04b2 0001 | | .CONST 0x0001 ; Number of locals
04b3 BODY_04b0:
04b3 INIT_04b0:
04b3 822d | - | Call 0x1,0x2d
04b4 6815 |h | Jump_Zero 0x4ca
04b5 0092 05a1 | | Action Push_String_Extended,0x5a1 ; "<PROFILE>"
04b7 0092 05a2 | | Action Push_String_Extended,0x5a2 ; "$"
04b9 0092 05ee | | Action Push_String_Extended,0x5ee ; "\x22!Tools.Design.Tps_Integration'spec_view.units\x22.Tps.Restore_Archive (Tps_Directory_Gateways =>\x22"
04bb e5ff | | Load 0x2,-0x1
04bc 01cc | | Execute Vector,Catenate
04bd 0092 05ec | | Action Push_String_Extended,0x5ec ; "\x22, Effort_Only => "
04bf 01cc | | Execute Vector,Catenate
04c0 e5fe | | Load 0x2,-0x2
04c1 00e1 | | Load_Encached Boolean_Cache
04c2 011c | | Execute Any,Convert_Unchecked
04c3 1c01 | | Execute_Immediate Run_Utility,0x1
04c4 01cc | | Execute Vector,Catenate
04c5 0092 05a7 | | Action Push_String_Extended,0x5a7 ; ", Response => \x22<PROFILE>\x22)"
04c7 01cc | | Execute Vector,Catenate
04c8 e003 | | Load 0x0,0x3
04c9 180f | | Execute Package,Field_Execute,Field_Number 0xf
04ca 4503 |E | Exit_Subprogram 0x3
04cb 0000 0000 | | .BLANK 0000[0x5]
04d0 ; --------------------------------------------------------------------------------------
04d0 ; SUBPROGRAM
04d0 ; --------------------------------------------------------------------------------------
04d0 04db | | .CONST 0x04db ; Address of begin
04d1 0004 | | .CONST 0x0004 ; Address of exception handler
04d2 0003 | | .CONST 0x0003 ; Number of locals
04d3 INIT_04d0:
04d3 e006 | | Load 0x0,0x6
04d4 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
04d5 1b0f | | Execute Package,Field_Read,Field_Number 0xf
04d6 e006 | | Load 0x0,0x6
04d7 1b0f | | Execute Package,Field_Read,Field_Number 0xf
04d8 02c7 | | Declare_Variable Any
04d9 00d8 | | Load_Top At_Offset_0
04da 1c00 | | Execute_Immediate Run_Utility,0x0
04db BODY_04d0:
04db e22b | + | Load 0x1,0x2b
04dc e007 | | Load 0x0,0x7
04dd 180e | | Execute Package,Field_Execute,Field_Number 0xe
04de 7006 |p | Jump_Nonzero 0x4e5
04df 0092 05ef | | Action Push_String_Extended,0x5ef ; "TPS_Interface not authorized on this machine"
04e1 e008 | | Load 0x0,0x8
04e2 1865 | e | Execute Package,Field_Execute,Field_Number 0x65
04e3 4800 |H | Short_Literal 0x0
04e4 00ca | | Action Exit_Nullary_Function
04e5 e006 | | Load 0x0,0x6
04e6 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
04e7 1b0f | | Execute Package,Field_Read,Field_Number 0xf
04e8 00d9 | | Load_Top At_Offset_1
04e9 0120 | | Execute Any,Is_Value
04ea 6803 |h | Jump_Zero 0x4ee
04eb e006 | | Load 0x0,0x6
04ec 1b0f | | Execute Package,Field_Read,Field_Number 0xf
04ed 7801 |x | Jump 0x4ef
04ee 00d9 | | Load_Top At_Offset_1
04ef 6018 |` | Indirect_Literal Discrete,0x508,{0x00000000, 0x00004000}
04f0 e009 | | Load 0x0,0x9
04f1 1b0e | | Execute Package,Field_Read,Field_Number 0xe
04f2 e00a | | Load 0x0,0xa
04f3 1811 | | Execute Package,Field_Execute,Field_Number 0x11
04f4 e006 | | Load 0x0,0x6
04f5 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
04f6 1816 | | Execute Package,Field_Execute,Field_Number 0x16
04f7 0092 05f0 | | Action Push_String_Extended,0x5f0 ; "!Tools.Design.Tps_Integration'spec_view.units.Tps"
04f9 e006 | | Load 0x0,0x6
04fa 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
04fb 182c | , | Execute Package,Field_Execute,Field_Number 0x2c
04fc c403 | | Store 0x2,0x3
04fd 005a | Z | Store_Top Discrete,At_Offset_2
04fe 00d9 | | Load_Top At_Offset_1
04ff 7002 |p | Jump_Nonzero 0x502
0500 4801 |H | Short_Literal 0x1
0501 00ca | | Action Exit_Nullary_Function
0502 0092 05f1 | | Action Push_String_Extended,0x5f1 ; "TPS_Interface cannot be found. Try checking the current Activity."
0504 e008 | | Load 0x0,0x8
0505 1865 | e | Execute Package,Field_Execute,Field_Number 0x65
0506 4800 |H | Short_Literal 0x0
0507 00ca | | Action Exit_Nullary_Function
0508 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
050c 0000 0000 | | .BLANK 0000[0x4]
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 e00a | | Load 0x0,0xa
0514 180f | | Execute Package,Field_Execute,Field_Number 0xf
0515 4801 |H | Short_Literal 0x1
0516 e22b | + | Load 0x1,0x2b
0517 e00b | | Load 0x0,0xb
0518 180e | | Execute Package,Field_Execute,Field_Number 0xe
0519 e00b | | Load 0x0,0xb
051a 180f | | Execute Package,Field_Execute,Field_Number 0xf
051b 7006 |p | Jump_Nonzero 0x522
051c 0092 05f2 | | Action Push_String_Extended,0x5f2 ; "No tokens left for TPS_Interface, Try again later"
051e e008 | | Load 0x0,0x8
051f 1865 | e | Execute Package,Field_Execute,Field_Number 0x65
0520 4800 |H | Short_Literal 0x0
0521 00ca | | Action Exit_Nullary_Function
0522 4801 |H | Short_Literal 0x1
0523 00ca | | Action Exit_Nullary_Function
0524 0000 0000 | | .BLANK 0000[0x4]
0528 ; --------------------------------------------------------------------------------------
0528 ; SUBPROGRAM
0528 ; --------------------------------------------------------------------------------------
0528 0536 | 6 | .CONST 0x0536 ; Address of begin
0529 0004 | | .CONST 0x0004 ; Address of exception handler
052a 000e | | .CONST 0x000e ; Number of locals
052b INIT_0528:
052b 4800 |H | Short_Literal 0x0
052c 4815 |H | Short_Literal 0x15
052d 029f 053b | ;| Declare_Subprogram For_Call,INIT_0538
052f 03fe | | Declare_Type Discrete,Defined,Visible
0530 4800 |H | Short_Literal 0x0
0531 4802 |H | Short_Literal 0x2
0532 029f 0563 | c| Declare_Subprogram For_Call,INIT_0560
0534 03fe | | Declare_Type Discrete,Defined,Visible
0535 00bf | | Action Accept_Activation
0536 BODY_0528:
0536 00bc | | Action Signal_Activated
0537 00bb | | Action Signal_Completion
0538 ; --------------------------------------------------------------------------------------
0538 ; SUBPROGRAM
0538 ; --------------------------------------------------------------------------------------
0538 053b | ; | .CONST 0x053b ; Address of begin
0539 0004 | | .CONST 0x0004 ; Address of exception handler
053a 0001 | | .CONST 0x0001 ; Number of locals
053b BODY_0538:
053b INIT_0538:
053b 4607 |F | Jump_Case 0x7
053c 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x0
053d 7806 |x | Jump 0x544 ; case 0x1
053e 7809 |x | Jump 0x548 ; case 0x2
053f 780d |x | Jump 0x54d ; case 0x3
0540 7810 |x | Jump 0x551 ; case 0x4
0541 7811 |x | Jump 0x553 ; case 0x5
0542 7812 |x | Jump 0x555 ; case 0x6
0543 7815 |x | Jump 0x559 ; case 0x7
0544 00da | | Load_Top At_Offset_2
0545 0091 0585 | | Action Push_String_Extended_Indexed,0x585 ; "DESKTOP"
0547 4201 |B | Exit_Subprogram From_Utility,With_Result,0x1
0548 00db | | Load_Top At_Offset_3
0549 00db | | Load_Top At_Offset_3
054a 00e0 | | Load_Encached Standard_Cache
054b 181b | | Execute Package,Field_Execute,Field_Number 0x1b
054c 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
054d 00da | | Load_Top At_Offset_2
054e 00e0 | | Load_Encached Standard_Cache
054f 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0550 4201 |B | Exit_Subprogram From_Utility,With_Result,0x1
0551 00db | | Load_Top At_Offset_3
0552 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
0553 00db | | Load_Top At_Offset_3
0554 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
0555 e20d | | Load 0x1,0xd
0556 00dc | | Load_Top At_Offset_4
0557 0267 | g | Execute Discrete,Predecessor
0558 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
0559 e20d | | Load 0x1,0xd
055a 00dc | | Load_Top At_Offset_4
055b 0268 | h | Execute Discrete,Successor
055c 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
055d 0000 0000 | | .XXX[0x3]
055f 0000 | |
0560 ; --------------------------------------------------------------------------------------
0560 ; SUBPROGRAM
0560 ; --------------------------------------------------------------------------------------
0560 0563 | c | .CONST 0x0563 ; Address of begin
0561 0004 | | .CONST 0x0004 ; Address of exception handler
0562 0001 | | .CONST 0x0001 ; Number of locals
0563 BODY_0560:
0563 INIT_0560:
0563 4607 |F | Jump_Case 0x7
0564 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x0
0565 7806 |x | Jump 0x56c ; case 0x1
0566 7809 |x | Jump 0x570 ; case 0x2
0567 780d |x | Jump 0x575 ; case 0x3
0568 7810 |x | Jump 0x579 ; case 0x4
0569 7811 |x | Jump 0x57b ; case 0x5
056a 7812 |x | Jump 0x57d ; case 0x6
056b 7815 |x | Jump 0x581 ; case 0x7
056c 00da | | Load_Top At_Offset_2
056d 0091 059b | | Action Push_String_Extended_Indexed,0x59b ; "ON_COMMAND"
056f 4201 |B | Exit_Subprogram From_Utility,With_Result,0x1
0570 00db | | Load_Top At_Offset_3
0571 00db | | Load_Top At_Offset_3
0572 00e0 | | Load_Encached Standard_Cache
0573 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0574 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
0575 00da | | Load_Top At_Offset_2
0576 00e0 | | Load_Encached Standard_Cache
0577 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0578 4201 |B | Exit_Subprogram From_Utility,With_Result,0x1
0579 00db | | Load_Top At_Offset_3
057a 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
057b 00db | | Load_Top At_Offset_3
057c 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
057d e20e | | Load 0x1,0xe
057e 00dc | | Load_Top At_Offset_4
057f 0267 | g | Execute Discrete,Predecessor
0580 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
0581 e20e | | Load 0x1,0xe
0582 00dc | | Load_Top At_Offset_4
0583 0268 | h | Execute Discrete,Successor
0584 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
0585 ; --------------------------------------------------------------------------------------
0585 ; STRING TABLE
0585 ; --------------------------------------------------------------------------------------
0585 00de | | .STRTAB 0x00de->0x05f4 ; "DESKTOP"
0586 00e3 | | .STRTAB 0x00e3->0x05f7 ; "FOLDER"
0587 00e7 | | .STRTAB 0x00e7->0x05fa ; "DRAWER"
0588 00eb | | .STRTAB 0x00eb->0x05fd ; "CABINET"
0589 00f0 | | .STRTAB 0x00f0->0x0601 ; "BOOK"
058a 00f2 | | .STRTAB 0x00f2->0x0603 ; "BINDER"
058b 00f6 | | .STRTAB 0x00f6->0x0606 ; "CLIPBOARD"
058c 00fd | | .STRTAB 0x00fd->0x060a ; "SCANNER"
058d 0102 | | .STRTAB 0x0102->0x060e ; "EXTERNAL_DIRECTORY"
058e 0112 | | .STRTAB 0x0112->0x0617 ; "DOCUMENT"
058f 0118 | | .STRTAB 0x0118->0x061b ; "CATALOG"
0590 011d | | .STRTAB 0x011d->0x061e ; "DICTIONARY"
0591 0125 | % | .STRTAB 0x0125->0x0623 ; "EXTERNAL_FILE"
0592 0130 | 0 | .STRTAB 0x0130->0x062a ; "DIAGRAM"
0593 0135 | 5 | .STRTAB 0x0135->0x062d ; "IMAGE"
0594 0138 | 8 | .STRTAB 0x0138->0x0630 ; "CHART"
0595 013b | ; | .STRTAB 0x013b->0x0632 ; "PLOT"
0596 013d | = | .STRTAB 0x013d->0x0634 ; "EPS"
0597 013e | > | .STRTAB 0x013e->0x0636 ; "LISP"
0598 0140 | @ | .STRTAB 0x0140->0x0638 ; "PALETTE"
0599 0145 | E | .STRTAB 0x0145->0x063b ; "PRINTERLEAF"
059a 014e | N | .STRTAB 0x014e->0x0641 ; "TERMINAL"
059b 0154 | T | .STRTAB 0x0154->0x0645 ; "ON_COMMAND"
059c 015c | \ | .STRTAB 0x015c->0x064a ; "ON_RELEASE"
059d 0164 | d | .STRTAB 0x0164->0x064f ; "IMMEDIATE"
059e 016b | k | .STRTAB 0x016b->0x0653 ; "TPS_Interface"
059f 0176 | v | .STRTAB 0x0176->0x065a ; "<Cursor>"
; "<Cursor>"
; "<Cursor>"
; "<Cursor>"
; "<Cursor>"
; "<Cursor>"
05a0 017c | | | .STRTAB 0x017c->0x065e ; "RPI Put Changes"
05a1 0189 | | .STRTAB 0x0189->0x0665 ; "<PROFILE>"
; "<PROFILE>"
; "<PROFILE>"
; "<PROFILE>"
; "<PROFILE>"
; "<PROFILE>"
; "<PROFILE>"
; "<PROFILE>"
; "<PROFILE>"
; "<PROFILE>"
; "<PROFILE>"
; "<PROFILE>"
05a2 0190 | | .STRTAB 0x0190->0x066a ; "$"
; "$"
; "$"
; "$"
; "$"
; "$"
; "$"
; "$"
; "$"
; "$"
; "$"
; "$"
05a3 018f | | .STRTAB 0x018f->0x066a ; "\x22!Tools.Design.Tps_Integration'spec_view.units\x22.Tps.Put_Changes (From_Gateways => \x22"
05a4 01e0 | | .STRTAB 0x01e0->0x0694 ; "\x22, Recursive => "
05a5 01ee | | .STRTAB 0x01ee->0x069c ; ", Effort_Only => "
; ", Effort_Only => "
05a6 01fd | | .STRTAB 0x01fd->0x06a4 ; ", Force => "
; ", Force => "
05a7 0206 | | .STRTAB 0x0206->0x06aa ; ", Response => \x22<PROFILE>\x22)"
; ", Response => \x22<PROFILE>\x22)"
; ", Response => \x22<PROFILE>\x22)"
; ", Response => \x22<PROFILE>\x22)"
; ", Response => \x22<PROFILE>\x22)"
; ", Response => \x22<PROFILE>\x22)"
05a8 021e | | .STRTAB 0x021e->0x06b7 ; "RPI Accept Changes"
05a9 022e | . | .STRTAB 0x022e->0x06c0 ; "\x22!Tools.Design.Tps_Integration'spec_view.units\x22.Tps.accept_changes (Into_Gateways =>\x22"
05aa 0281 | | .STRTAB 0x0281->0x06ea ; "\x22, Recursive =>"
; "\x22, Recursive =>"
05ab 028e | | .STRTAB 0x028e->0x06f2 ; "T"
; "T"
; "T"
; "T"
; "T"
; "T"
05ac 028d | | .STRTAB 0x028d->0x06f2 ; "Recursive"
05ad 0294 | | .STRTAB 0x0294->0x06f7 ; "RPI Show Out Of Date"
05ae 02a6 | | .STRTAB 0x02a6->0x0701 ; "\x22!Tools.Design.Tps_Integration'spec_view.units\x22.Tps.show_out_of_date (Gateways =>\x22"
05af 02f6 | | .STRTAB 0x02f6->0x072a ; "0"
05b0 02f5 | | .STRTAB 0x02f5->0x072a ; "F"
; "F"
; "F"
; "F"
; "F"
; "F"
05b1 02f4 | | .STRTAB 0x02f4->0x072b ; "$$.Tps_View"
; "$$.Tps_View"
; "$$.Tps_View"
; "$$.Tps_View"
; "$$.Tps_View"
05b2 02fd | | .STRTAB 0x02fd->0x0730 ; "\x22!Tools.Design.Tps_Integration'spec_view.units\x22.Tps.Create_Files (For_Document_Databases => \x22"
05b3 0358 | X | .STRTAB 0x0358->0x075f ; "\x22, View_Gateway => \x22"
; "\x22, View_Gateway => \x22"
05b4 036a | j | .STRTAB 0x036a->0x0769 ; "\x22, Replace => "
; "\x22, Replace => "
05b5 0376 | v | .STRTAB 0x0376->0x0770 ; ", Allow_Accept_Changes => "
; ", Allow_Accept_Changes => "
; ", Allow_Accept_Changes => "
; ", Allow_Accept_Changes => "
05b6 038e | | .STRTAB 0x038e->0x077d ; ", Allow_Put_Changes => "
; ", Allow_Put_Changes => "
; ", Allow_Put_Changes => "
; ", Allow_Put_Changes => "
05b7 03a3 | | .STRTAB 0x03a3->0x0788 ; ", Refresh_Mode => Tps."
; ", Refresh_Mode => Tps."
; ", Refresh_Mode => Tps."
; ", Refresh_Mode => Tps."
05b8 03b7 | | .STRTAB 0x03b7->0x0793 ; ", Response => \x22<PROFILE>\x22)"
05b9 03d0 | | .STRTAB 0x03d0->0x07a1 ; "\x22!Tools.Design.Tps_Integration'spec_view.units\x22.Tps.Create_Graphics (For_Document_Databases => \x22"
05ba 042e | . | .STRTAB 0x042e->0x07d1 ; " 1"
05bb 042e | . | .STRTAB 0x042e->0x07d2 ; "FTT"
05bc 042f | / | .STRTAB 0x042f->0x07d3 ; " 3"
05bd 042f | / | .STRTAB 0x042f->0x07d4 ; "<DEFAULT VIEW CABINET>"
05be 0443 | C | .STRTAB 0x0443->0x07df ; "~/desktop"
05bf 044a | J | .STRTAB 0x044a->0x07e4 ; "[Network Name]"
05c0 0456 | V | .STRTAB 0x0456->0x07eb ; "$$"
05c1 0456 | V | .STRTAB 0x0456->0x07ec ; ".Tps_View"
05c2 045d | ] | .STRTAB 0x045d->0x07f0 ; "\x22!Tools.Design.Tps_Integration'spec_view.units\x22.Tps.Create_View_Gateway (View_Gateway => \x22"
05c3 04b5 | | .STRTAB 0x04b5->0x081d ; "\x22,"
; "\x22,"
; "\x22,"
; "\x22,"
; "\x22,"
; "\x22,"
05c4 04b5 | | .STRTAB 0x04b5->0x081e ; "Parent_Gateway_Name => \x22"
05c5 04cb | | .STRTAB 0x04cb->0x082a ; "Host => \x22"
05c6 04d2 | | .STRTAB 0x04d2->0x082f ; "Desktop => \x22"
05c7 04dc | | .STRTAB 0x04dc->0x0835 ; "Icon_Name => \x22"
05c8 04e8 | | .STRTAB 0x04e8->0x083c ; "Icon_Type => Tps."
05c9 04f7 | | .STRTAB 0x04f7->0x0844 ; ","
05ca 04f6 | | .STRTAB 0x04f6->0x0845 ; "Allow_Accept_Changes => "
05cb 050c | | .STRTAB 0x050c->0x0851 ; ", "
; ", "
; ", "
05cc 050c | | .STRTAB 0x050c->0x0852 ; "Allow_Put_Changes => "
05cd 051f | | .STRTAB 0x051f->0x085c ; "Refresh_Mode => Tps."
05ce 0531 | 1 | .STRTAB 0x0531->0x0866 ; "Frame_Name => \x22"
05cf 053e | > | .STRTAB 0x053e->0x086e ; "Traverse_To_Desktop => False,"
05d0 0559 | Y | .STRTAB 0x0559->0x087c ; "Connected => \x22"
05d1 0565 | e | .STRTAB 0x0565->0x0883 ; "\x22, "
05d2 0566 | f | .STRTAB 0x0566->0x0885 ; "Response => \x22<PROFILE>\x22)"
05d3 057c | | | .STRTAB 0x057c->0x0891 ; " 0"
; " 0"
05d4 057c | | | .STRTAB 0x057c->0x0892 ; " 9"
05d5 057c | | | .STRTAB 0x057c->0x0893 ; "<AUTO GENERATE>"
; "<AUTO GENERATE>"
05d6 0589 | | .STRTAB 0x0589->0x089a ; "<image>"
; "<image>"
05d7 058e | | .STRTAB 0x058e->0x089e ; "\x22!Tools.Design.Tps_Integration'spec_view.units\x22.Tps.Create_File (Gateway_Name => \x22"
05d8 05de | | .STRTAB 0x05de->0x08c7 ; "\x22, Parent_Gateway_Name => \x22"
; "\x22, Parent_Gateway_Name => \x22"
05d9 05f7 | | .STRTAB 0x05f7->0x08d4 ; "\x22, Host => \x22<Parent>\x22, Desktop => \x22<Parent>\x22,"
; "\x22, Host => \x22<Parent>\x22, Desktop => \x22<Parent>\x22,"
05da 0622 | " | .STRTAB 0x0622->0x08eb ; " Icon_Name => \x22"
; " Icon_Name => \x22"
05db 062f | / | .STRTAB 0x062f->0x08f2 ; "\x22, Icon_Type => Tps."
; "\x22, Icon_Type => Tps."
05dc 0641 | A | .STRTAB 0x0641->0x08fc ; ", Frame_Name => \x22\x22, Traverse_To_Desktop => False,"
05dd 0670 | p | .STRTAB 0x0670->0x0915 ; "Connected => \x22<Parent>\x22, Response => \x22<PROFILE>\x22)"
05de 069f | | .STRTAB 0x069f->0x092d ; "[FRAME NAME]"
05df 06a9 | | .STRTAB 0x06a9->0x0933 ; " 10"
05e0 06aa | | .STRTAB 0x06aa->0x0935 ; "\x22!Tools.Design.Tps_Integration'spec_view.units\x22.Tps.Create_Graphic (Gateway_Name => \x22"
05e1 06fd | | .STRTAB 0x06fd->0x095f ; ", Frame_Name => \x22"
05e2 070c | | .STRTAB 0x070c->0x0968 ; "\x22, Traverse_To_Desktop => False,"
05e3 072a | * | .STRTAB 0x072a->0x0978 ; " Connected => \x22<Parent>\x22, Response => \x22<PROFILE>\x22)"
05e4 075a | Z | .STRTAB 0x075a->0x0991 ; "RPI Connect"
05e5 0763 | c | .STRTAB 0x0763->0x0996 ; "\x22!Tools.Design.Tps_Integration'spec_view.units\x22.Tps.connect (View_Gateway =>\x22"
05e6 07ae | | .STRTAB 0x07ae->0x09bd ; "\x22, Response => \x22<PROFILE>\x22)"
; "\x22, Response => \x22<PROFILE>\x22)"
05e7 07c7 | | .STRTAB 0x07c7->0x09ca ; "RPI Disconnect"
05e8 07d3 | | .STRTAB 0x07d3->0x09d1 ; "\x22!Tools.Design.Tps_Integration'spec_view.units\x22.Tps.disconnect (View_Gateway =>\x22"
05e9 0821 | ! | .STRTAB 0x0821->0x09f9 ; "Effort Only"
; "Effort Only"
05ea 082a | * | .STRTAB 0x082a->0x09ff ; "RPI Save Archive"
05eb 0838 | 8 | .STRTAB 0x0838->0x0a07 ; "\x22!Tools.Design.Tps_Integration'spec_view.units\x22.Tps.save_archive (Tps_Directory_Gateways =>\x22"
05ec 0892 | | .STRTAB 0x0892->0x0a35 ; "\x22, Effort_Only => "
; "\x22, Effort_Only => "
05ed 08a2 | | .STRTAB 0x08a2->0x0a3e ; "RPI Restore Archive"
05ee 08b3 | | .STRTAB 0x08b3->0x0a47 ; "\x22!Tools.Design.Tps_Integration'spec_view.units\x22.Tps.Restore_Archive (Tps_Directory_Gateways =>\x22"
05ef 0910 | | .STRTAB 0x0910->0x0a77 ; "TPS_Interface not authorized on this machine"
05f0 093a | : | .STRTAB 0x093a->0x0a8d ; "!Tools.Design.Tps_Integration'spec_view.units.Tps"
05f1 0969 | i | .STRTAB 0x0969->0x0aa5 ; "TPS_Interface cannot be found. Try checking the current Activity."
05f2 09a8 | | .STRTAB 0x09a8->0x0ac6 ; "No tokens left for TPS_Interface, Try again later"
05f3 09d7 | | .STREND 0x09d7->0x0ade
05f4 4445 534b |DESK| .STRTAB_STRINGS
0adf 0000 | | .XXX[0x1]
0ae0 ; --------------------------------------------------------------------------------------
0ae0 ; Debug Table
0ae0 ; --------------------------------------------------------------------------------------
0ae0 0004 0012 | | .DEBUG4 0x0004,0x0012,0x6369,0x0000,0x0001,0x0000
0ae6 0000 0000 | | .BLANK 0000[0x1b]
0b01 0020 0500 | | .XXX[0xc]
0b03 0000 0000 | |
0b05 0000 4000 | @ |
0b07 0002 2000 | |
0b09 0000 0100 | |
0b0b 0000 0a00 | |
0b0d 0000 0000 | | .BLANK 0000[0x2d]
0b3a 0004 00a0 | | .XXX[0xc]
0b3c 0000 0000 | |
0b3e 0000 0800 | |
0b40 0000 4400 | D |
0b42 0000 0020 | |
0b44 0000 0140 | @|
0b46 0000 0000 | | .BLANK 0000[0x2e]
0b74 8014 0000 | | .XXX[0xb]
0b76 0000 0000 | |
0b78 0100 0000 | |
0b7a 0880 0000 | |
0b7c 0004 0000 | |
0b7e 0028 | ( |
0b7f 0000 0000 | | .BLANK 0000[0x2e]
0bad 1002 8000 | | .XXX[0xb]
0baf 0000 0000 | |
0bb1 0020 0000 | |
0bb3 0110 0000 | |
0bb5 0000 8000 | |
0bb7 0005 | |
0bb8 0000 0000 | | .BLANK 0000[0x48]