|
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 - 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 INIT_00a0,For_Outer_Call,Visible,Unelaborated 000d 029a 00c3 | | Declare_Subprogram INIT_00c0,For_Outer_Call,Visible,Unelaborated 000f 029a 00f3 | | Declare_Subprogram INIT_00f0,For_Outer_Call,Visible,Unelaborated 0011 029a 0113 | | Declare_Subprogram INIT_0110,For_Outer_Call,Visible,Unelaborated 0013 029a 0143 | C| Declare_Subprogram INIT_0140,For_Outer_Call,Visible,Unelaborated 0015 029a 0163 | c| Declare_Subprogram INIT_0160,For_Outer_Call,Visible,Unelaborated 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 INIT_0180,For_Outer_Call,Visible,Unelaborated 0030 c21d | | Store 0x1,0x1d 0031 029a 01ab | | Declare_Subprogram INIT_01a8,For_Outer_Call,Visible,Unelaborated 0033 c226 | & | Store 0x1,0x26 0034 029a 022b | +| Declare_Subprogram INIT_0228,For_Outer_Call,Visible,Unelaborated 0036 c21f | | Store 0x1,0x1f 0037 029a 025b | [| Declare_Subprogram INIT_0258,For_Outer_Call,Visible,Unelaborated 0039 c227 | ' | Store 0x1,0x27 003a 029a 02e3 | | Declare_Subprogram INIT_02e0,For_Outer_Call,Visible,Unelaborated 003c c221 | ! | Store 0x1,0x21 003d 029a 030b | | Declare_Subprogram INIT_0308,For_Outer_Call,Visible,Unelaborated 003f c228 | ( | Store 0x1,0x28 0040 029a 0363 | c| Declare_Subprogram INIT_0360,For_Outer_Call,Visible,Unelaborated 0042 c223 | # | Store 0x1,0x23 0043 029a 038b | | Declare_Subprogram INIT_0388,For_Outer_Call,Visible,Unelaborated 0045 c229 | ) | Store 0x1,0x29 0046 029a 03e3 | | Declare_Subprogram INIT_03e0,For_Outer_Call,Visible,Unelaborated 0048 c215 | | Store 0x1,0x15 0049 029a 0403 | | Declare_Subprogram INIT_0400,For_Outer_Call,Visible,Unelaborated 004b c216 | | Store 0x1,0x16 004c 029a 041b | | Declare_Subprogram INIT_0418,For_Outer_Call,Visible,Unelaborated 004e c217 | | Store 0x1,0x17 004f 029a 043b | ;| Declare_Subprogram INIT_0438,For_Outer_Call,Visible,Unelaborated 0051 c218 | | Store 0x1,0x18 0052 029a 0453 | S| Declare_Subprogram INIT_0450,For_Outer_Call,Visible,Unelaborated 0054 c219 | | Store 0x1,0x19 0055 029a 0473 | s| Declare_Subprogram INIT_0470,For_Outer_Call,Visible,Unelaborated 0057 c21a | | Store 0x1,0x1a 0058 029a 0493 | | Declare_Subprogram INIT_0490,For_Outer_Call,Visible,Unelaborated 005a c21b | | Store 0x1,0x1b 005b 029a 04b3 | | Declare_Subprogram INIT_04b0,For_Outer_Call,Visible,Unelaborated 005d c21c | | Store 0x1,0x1c 005e 00bf | | Action Accept_Activation 005f 4800 |H | Short_Literal 0x0 0060 0093 052b | +| push_full_address 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 INIT_04d0,For_Outer_Call 0069 029d 0513 | | Declare_Subprogram INIT_0510,For_Outer_Call 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_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 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 INIT_0538,For_Call 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 INIT_0560,For_Call 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 0x8 053c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 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,New_Top_Offset 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,New_Top_Offset 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,New_Top_Offset 0x1 0551 00db | | Load_Top At_Offset_3 0552 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0553 00db | | Load_Top At_Offset_3 0554 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 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,New_Top_Offset 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,New_Top_Offset 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 0x8 0564 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 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,New_Top_Offset 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,New_Top_Offset 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,New_Top_Offset 0x1 0579 00db | | Load_Top At_Offset_3 057a 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 057b 00db | | Load_Top At_Offset_3 057c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 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,New_Top_Offset 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,New_Top_Offset 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>" 05a0 017c | | | .STRTAB 0x017c->0x065e ; "RPI Put Changes" 05a1 0189 | | .STRTAB 0x0189->0x0665 ; "<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 => " 05a6 01fd | | .STRTAB 0x01fd->0x06a4 ; ", Force => " 05a7 0206 | | .STRTAB 0x0206->0x06aa ; ", 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 =>" 05ab 028e | | .STRTAB 0x028e->0x06f2 ; "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" 05b1 02f4 | | .STRTAB 0x02f4->0x072b ; "$$.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" 05b4 036a | j | .STRTAB 0x036a->0x0769 ; "\x22, Replace => " 05b5 0376 | v | .STRTAB 0x0376->0x0770 ; ", Allow_Accept_Changes => " 05b6 038e | | .STRTAB 0x038e->0x077d ; ", Allow_Put_Changes => " 05b7 03a3 | | .STRTAB 0x03a3->0x0788 ; ", 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," 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" 05d4 057c | | | .STRTAB 0x057c->0x0892 ; " 9" 05d5 057c | | | .STRTAB 0x057c->0x0893 ; "<AUTO GENERATE>" 05d6 0589 | | .STRTAB 0x0589->0x089a ; "<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" 05d9 05f7 | | .STRTAB 0x05f7->0x08d4 ; "\x22, Host => \x22<Parent>\x22, Desktop => \x22<Parent>\x22," 05da 0622 | " | .STRTAB 0x0622->0x08eb ; " Icon_Name => \x22" 05db 062f | / | .STRTAB 0x062f->0x08f2 ; "\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)" 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" 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 => " 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]