|
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: 4096 (0x1000) Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_483ca8
└─⟦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 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 0720 | | .CONST 0x0720 ; 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 8004 | | .CONST 0x8004 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 0086 | | .CONST 0x0086 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 001f | | .CONST 0x001f ; Number of locals 000b INIT_0008: 000b 4800 |H | Short_Literal 0x0 000c 0093 05fb | | push_full_address INIT_05f8 000e 00f5 | | Load_Encached Unused21 000f 037e | ~ | Declare_Type Task,Defined,Visible 0010 036e | n | Declare_Variable Task,Visible 0011 00bf | | Action Accept_Activation 0012 e001 | | Load 0x0,0x1 0013 1b28 | ( | Execute Package,Field_Read,Field_Number 0x28 0014 e001 | | Load 0x0,0x1 0015 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0016 e001 | | Load 0x0,0x1 0017 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0018 e001 | | Load 0x0,0x1 0019 1b12 | | Execute Package,Field_Read,Field_Number 0x12 001a e002 | | Load 0x0,0x2 001b e003 | | Load 0x0,0x3 001c 480a |H | Short_Literal 0xa 001d 6086 |` | Indirect_Literal Discrete,0xa4,{0x00000000, 0x07080000} 001e e004 | | Load 0x0,0x4 001f 0387 | | Declare_Variable Package 0020 00d8 | | Load_Top At_Offset_0 0021 020f | | Execute Module,Activate 0022 029d 0093 | | Declare_Subprogram INIT_0090,For_Outer_Call 0024 029d 00ab | | Declare_Subprogram INIT_00a8,For_Outer_Call 0026 029d 00cb | | Declare_Subprogram INIT_00c8,For_Outer_Call 0028 029d 011b | | Declare_Subprogram INIT_0118,For_Outer_Call 002a 029d 01bb | | Declare_Subprogram INIT_01b8,For_Outer_Call 002c 029d 022b | +| Declare_Subprogram INIT_0228,For_Outer_Call 002e 029d 0303 | | Declare_Subprogram INIT_0300,For_Outer_Call 0030 029d 039b | | Declare_Subprogram INIT_0398,For_Outer_Call 0032 029d 0413 | | Declare_Subprogram INIT_0410,For_Outer_Call 0034 029d 047b | {| Declare_Subprogram INIT_0478,For_Outer_Call 0036 029d 04ab | | Declare_Subprogram INIT_04a8,For_Outer_Call 0038 029d 055b | [| Declare_Subprogram INIT_0558,For_Outer_Call 003a e005 | | Load 0x0,0x5 003b e006 | | Load 0x0,0x6 003c 0092 060c | | Action Push_String_Extended,0x60c ; "remote_file" 003e 4800 |H | Short_Literal 0x0 003f e001 | | Load 0x0,0x1 0040 192b | + | Execute Package,Field_Reference,Field_Number 0x2b 0041 1d18 | | Execute_Immediate Reference_Lex_1,0x18 0042 1d19 | | Execute_Immediate Reference_Lex_1,0x19 0043 1d1b | | Execute_Immediate Reference_Lex_1,0x1b 0044 e001 | | Load 0x0,0x1 0045 192f | / | Execute Package,Field_Reference,Field_Number 0x2f 0046 e001 | | Load 0x0,0x1 0047 1931 | 1 | Execute Package,Field_Reference,Field_Number 0x31 0048 e001 | | Load 0x0,0x1 0049 1930 | 0 | Execute Package,Field_Reference,Field_Number 0x30 004a e001 | | Load 0x0,0x1 004b 1930 | 0 | Execute Package,Field_Reference,Field_Number 0x30 004c e001 | | Load 0x0,0x1 004d 1932 | 2 | Execute Package,Field_Reference,Field_Number 0x32 004e e001 | | Load 0x0,0x1 004f 1932 | 2 | Execute Package,Field_Reference,Field_Number 0x32 0050 e001 | | Load 0x0,0x1 0051 1932 | 2 | Execute Package,Field_Reference,Field_Number 0x32 0052 e001 | | Load 0x0,0x1 0053 1932 | 2 | Execute Package,Field_Reference,Field_Number 0x32 0054 1d1c | | Execute_Immediate Reference_Lex_1,0x1c 0055 e001 | | Load 0x0,0x1 0056 192e | . | Execute Package,Field_Reference,Field_Number 0x2e 0057 1d1d | | Execute_Immediate Reference_Lex_1,0x1d 0058 e001 | | Load 0x0,0x1 0059 192e | . | Execute Package,Field_Reference,Field_Number 0x2e 005a e001 | | Load 0x0,0x1 005b 1932 | 2 | Execute Package,Field_Reference,Field_Number 0x32 005c e001 | | Load 0x0,0x1 005d 1933 | 3 | Execute Package,Field_Reference,Field_Number 0x33 005e e001 | | Load 0x0,0x1 005f 1934 | 4 | Execute Package,Field_Reference,Field_Number 0x34 0060 e001 | | Load 0x0,0x1 0061 1934 | 4 | Execute Package,Field_Reference,Field_Number 0x34 0062 e001 | | Load 0x0,0x1 0063 1935 | 5 | Execute Package,Field_Reference,Field_Number 0x35 0064 e001 | | Load 0x0,0x1 0065 1935 | 5 | Execute Package,Field_Reference,Field_Number 0x35 0066 e001 | | Load 0x0,0x1 0067 1936 | 6 | Execute Package,Field_Reference,Field_Number 0x36 0068 e001 | | Load 0x0,0x1 0069 1937 | 7 | Execute Package,Field_Reference,Field_Number 0x37 006a e001 | | Load 0x0,0x1 006b 1938 | 8 | Execute Package,Field_Reference,Field_Number 0x38 006c e001 | | Load 0x0,0x1 006d 1939 | 9 | Execute Package,Field_Reference,Field_Number 0x39 006e e001 | | Load 0x0,0x1 006f 1939 | 9 | Execute Package,Field_Reference,Field_Number 0x39 0070 e001 | | Load 0x0,0x1 0071 193a | : | Execute Package,Field_Reference,Field_Number 0x3a 0072 e001 | | Load 0x0,0x1 0073 193b | ; | Execute Package,Field_Reference,Field_Number 0x3b 0074 e001 | | Load 0x0,0x1 0075 193c | < | Execute Package,Field_Reference,Field_Number 0x3c 0076 e001 | | Load 0x0,0x1 0077 193d | = | Execute Package,Field_Reference,Field_Number 0x3d 0078 e001 | | Load 0x0,0x1 0079 193e | > | Execute Package,Field_Reference,Field_Number 0x3e 007a e001 | | Load 0x0,0x1 007b 193f | ? | Execute Package,Field_Reference,Field_Number 0x3f 007c e001 | | Load 0x0,0x1 007d 1940 | @ | Execute Package,Field_Reference,Field_Number 0x40 007e e001 | | Load 0x0,0x1 007f 193f | ? | Execute Package,Field_Reference,Field_Number 0x3f 0080 1d1e | | Execute_Immediate Reference_Lex_1,0x1e 0081 e001 | | Load 0x0,0x1 0082 1b41 | A | Execute Package,Field_Read,Field_Number 0x41 0083 0387 | | Declare_Variable Package 0084 00d8 | | Load_Top At_Offset_0 0085 020f | | Execute Module,Activate 0086 BODY_0008: 0086 00be | | Action Activate_Tasks 0087 00bc | | Action Signal_Activated 0088 00bb | | Action Signal_Completion 0089 0000 0000 | | .BLANK 0000[0x7] 0090 ; -------------------------------------------------------------------------------------- 0090 ; SUBPROGRAM 0090 ; -------------------------------------------------------------------------------------- 0090 0099 | | .CONST 0x0099 ; Address of begin 0091 0004 | | .CONST 0x0004 ; Address of exception handler 0092 0004 | | .CONST 0x0004 ; Number of locals 0093 INIT_0090: 0093 00e3 | | Load_Encached Natural_Cache 0094 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0095 029f 056b | k| Declare_Subprogram INIT_0568,For_Call 0097 029f 058b | | Declare_Subprogram INIT_0588,For_Call 0099 BODY_0090: 0099 00cf | | Action Mark_Auxiliary 009a 4802 |H | Short_Literal 0x2 009b 4801 |H | Short_Literal 0x1 009c 0007 | | Action Break_Optional 009d 8404 | | Call 0x2,0x4 009e 00c8 | | Action Pop_Auxiliary_Range 009f 3ffd |? | Loop_Increasing 0x9d 00a0 00ce | | Action Pop_Auxiliary 00a1 0831 | 1 | Execute_Immediate Raise,0x31 00a2 0000 0000 | | .XXX[0x2] 00a4 0000 0000 | | .LITERAL {0x00000000, 0x07080000} 00a8 ; -------------------------------------------------------------------------------------- 00a8 ; SUBPROGRAM 00a8 ; -------------------------------------------------------------------------------------- 00a8 00b0 | | .CONST 0x00b0 ; Address of begin 00a9 0004 | | .CONST 0x0004 ; Address of exception handler 00aa 0002 | | .CONST 0x0002 ; Number of locals 00ab INIT_00a8: 00ab e007 | | Load 0x0,0x7 00ac 1b0f | | Execute Package,Field_Read,Field_Number 0xf 00ad 02c7 | | Declare_Variable Any 00ae 00d8 | | Load_Top At_Offset_0 00af 1c00 | | Execute_Immediate Run_Utility,0x0 00b0 BODY_00a8: 00b0 00db | | Load_Top At_Offset_3 00b1 e008 | | Load 0x0,0x8 00b2 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 00b3 700c |p | Jump_Nonzero 0xc0 00b4 00d8 | | Load_Top At_Offset_0 00b5 e5ff | | Load 0x2,-0x1 00b6 e008 | | Load 0x0,0x8 00b7 181f | | Execute Package,Field_Execute,Field_Number 0x1f 00b8 c5ff | | Store 0x2,-0x1 00b9 c402 | | Store 0x2,0x2 00ba 4801 |H | Short_Literal 0x1 00bb 00d9 | | Load_Top At_Offset_1 00bc e007 | | Load 0x0,0x7 00bd 1817 | | Execute Package,Field_Execute,Field_Number 0x17 00be 6801 |h | Jump_Zero 0xc0 00bf 0887 | | Execute_Immediate Raise,0x87 00c0 4501 |E | Exit_Suprogram New_Top_Offset 0x1 00c1 0000 0000 | | .BLANK 0000[0x7] 00c8 ; -------------------------------------------------------------------------------------- 00c8 ; SUBPROGRAM 00c8 ; -------------------------------------------------------------------------------------- 00c8 00d5 | | .CONST 0x00d5 ; Address of begin 00c9 00f9 | | .CONST 0x00f9 ; Address of exception handler 00ca 0004 | | .CONST 0x0004 ; Number of locals 00cb INIT_00c8: 00cb e009 | | Load 0x0,0x9 00cc 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00cd 02c7 | | Declare_Variable Any 00ce 00d8 | | Load_Top At_Offset_0 00cf 1c00 | | Execute_Immediate Run_Utility,0x0 00d0 00e3 | | Load_Encached Natural_Cache 00d1 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 00d2 603d |`= | Indirect_Literal Discrete,0x110,{0x00000000, 0x7fffffff} 00d3 00e3 | | Load_Encached Natural_Cache 00d4 03f1 | | Declare_Variable Discrete,With_Value 00d5 BODY_00c8: 00d5 00da | | Load_Top At_Offset_2 00d6 00ea | | Load_Encached Null_String_Cache 00d7 e5ff | | Load 0x2,-0x1 00d8 4800 |H | Short_Literal 0x0 00d9 e009 | | Load 0x0,0x9 00da 1815 | | Execute Package,Field_Execute,Field_Number 0x15 00db c402 | | Store 0x2,0x2 00dc 602f |`/ | Indirect_Literal Discrete,0x10c,{0x00000000, 0x7ffffff5} 00dd 4801 |H | Short_Literal 0x1 00de e5fe | | Load 0x2,-0x2 00df e001 | | Load 0x0,0x1 00e0 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 00e1 00cf | | Action Mark_Auxiliary 00e2 780c |x | Jump 0xef 00e3 00d9 | | Load_Top At_Offset_1 00e4 e402 | | Load 0x2,0x2 00e5 e009 | | Load 0x0,0x9 00e6 1866 | f | Execute Package,Field_Execute,Field_Number 0x66 00e7 e5fe | | Load 0x2,-0x2 00e8 e001 | | Load 0x0,0x1 00e9 181f | | Execute Package,Field_Execute,Field_Number 0x1f 00ea 005a | Z | Store_Top Discrete,At_Offset_2 00eb 00da | | Load_Top At_Offset_2 00ec 0a01 | | Execute_Immediate Plus,0x1 00ed 005b | [ | Store_Top Discrete,At_Offset_3 00ee 00c9 | | Action Pop_Auxiliary_Loop 00ef 00db | | Load_Top At_Offset_3 00f0 e009 | | Load 0x0,0x9 00f1 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 00f2 6ff0 |o | Jump_Zero 0xe3 00f3 00ce | | Action Pop_Auxiliary 00f4 00da | | Load_Top At_Offset_2 00f5 e009 | | Load 0x0,0x9 00f6 181b | | Execute Package,Field_Execute,Field_Number 0x1b 00f7 c402 | | Store 0x2,0x2 00f8 4503 |E | Exit_Suprogram New_Top_Offset 0x3 00f9 TRAP_00c8: 00f9 0007 | | Action Break_Optional 00fa 480a |H | Short_Literal 0xa 00fb 0092 060d | | Action Push_String_Extended,0x60d ; "Exception: " 00fd 4800 |H | Short_Literal 0x0 00fe 4801 |H | Short_Literal 0x1 00ff e00a | | Load 0x0,0xa 0100 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0101 01cc | | Execute Vector,Catenate 0102 0092 060e | | Action Push_String_Extended,0x60e ; " Unable to update create image" 0104 01cc | | Execute Vector,Catenate 0105 01cb | | Execute Vector,Append 0106 e009 | | Load 0x0,0x9 0107 1860 | ` | Execute Package,Field_Execute,Field_Number 0x60 0108 e00b | | Load 0x0,0xb 0109 0257 | W | Execute Discrete,Raise 010a 0000 0000 | | .XXX[0x2] 010c 0000 0000 | | .LITERAL {0x00000000, 0x7ffffff5} 0110 0000 0000 | | .LITERAL {0x00000000, 0x7fffffff} 0114 0000 0000 | | .BLANK 0000[0x4] 0118 ; -------------------------------------------------------------------------------------- 0118 ; SUBPROGRAM 0118 ; -------------------------------------------------------------------------------------- 0118 0127 | ' | .CONST 0x0127 ; Address of begin 0119 0004 | | .CONST 0x0004 ; Address of exception handler 011a 0006 | | .CONST 0x0006 ; Number of locals 011b INIT_0118: 011b 00e1 | | Load_Encached Boolean_Cache 011c 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 011d 00e1 | | Load_Encached Boolean_Cache 011e 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 011f 00e3 | | Load_Encached Natural_Cache 0120 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0121 03e9 | | Declare_Variable Discrete,Duplicate 0122 e007 | | Load 0x0,0x7 0123 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0124 02c7 | | Declare_Variable Any 0125 00d8 | | Load_Top At_Offset_0 0126 1c00 | | Execute_Immediate Run_Utility,0x0 0127 BODY_0118: 0127 00d8 | | Load_Top At_Offset_0 0128 0120 | | Execute Any,Is_Value 0129 6803 |h | Jump_Zero 0x12d 012a e007 | | Load 0x0,0x7 012b 1b0f | | Execute Package,Field_Read,Field_Number 0xf 012c 7801 |x | Jump 0x12e 012d 00d8 | | Load_Top At_Offset_0 012e 00e2 | | Load_Encached Integer_Cache 012f e5fa | | Load 0x2,-0x6 0130 e5ff | | Load 0x2,-0x1 0131 e212 | | Load 0x1,0x12 0132 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0133 005b | [ | Store_Top Discrete,At_Offset_3 0134 c406 | | Store 0x2,0x6 0135 4803 |H | Short_Literal 0x3 0136 00d9 | | Load_Top At_Offset_1 0137 e007 | | Load 0x0,0x7 0138 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0139 6809 |h | Jump_Zero 0x143 013a 480a |H | Short_Literal 0xa 013b 00d9 | | Load_Top At_Offset_1 013c e007 | | Load 0x0,0x7 013d 1818 | | Execute Package,Field_Execute,Field_Number 0x18 013e 01cb | | Execute Vector,Append 013f e009 | | Load 0x0,0x9 0140 1860 | ` | Execute Package,Field_Execute,Field_Number 0x60 0141 e00b | | Load 0x0,0xb 0142 0257 | W | Execute Discrete,Raise 0143 4801 |H | Short_Literal 0x1 0144 00d9 | | Load_Top At_Offset_1 0145 e007 | | Load 0x0,0x7 0146 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0147 6806 |h | Jump_Zero 0x14e 0148 0092 060f | | Action Push_String_Extended,0x60f ; "Unknown Remote Object\x0a" 014a e009 | | Load 0x0,0x9 014b 1860 | ` | Execute Package,Field_Execute,Field_Number 0x60 014c 4800 |H | Short_Literal 0x0 014d 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 014e 00ea | | Load_Encached Null_String_Cache 014f 0092 0610 | | Action Push_String_Extended,0x610 ; "Data.Last_Ws_Stamp" 0151 e5fe | | Load 0x2,-0x2 0152 e00c | | Load 0x0,0xc 0153 180f | | Execute Package,Field_Execute,Field_Number 0xf 0154 00e2 | | Load_Encached Integer_Cache 0155 00e0 | | Load_Encached Standard_Cache 0156 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0157 005b | [ | Store_Top Discrete,At_Offset_3 0158 00d9 | | Load_Top At_Offset_1 0159 683d |h= | Jump_Zero 0x197 015a 00da | | Load_Top At_Offset_2 015b 00da | | Load_Top At_Offset_2 015c 027c | | | Execute Discrete,Less 015d 6839 |h9 | Jump_Zero 0x197 015e 00d8 | | Load_Top At_Offset_0 015f 0120 | | Execute Any,Is_Value 0160 6803 |h | Jump_Zero 0x164 0161 e007 | | Load 0x0,0x7 0162 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0163 7801 |x | Jump 0x165 0164 00d8 | | Load_Top At_Offset_0 0165 4800 |H | Short_Literal 0x0 0166 e5fb | | Load 0x2,-0x5 0167 e5fa | | Load 0x2,-0x6 0168 e5ff | | Load 0x2,-0x1 0169 e212 | | Load 0x1,0x12 016a 1818 | | Execute Package,Field_Execute,Field_Number 0x18 016b c406 | | Store 0x2,0x6 016c 4803 |H | Short_Literal 0x3 016d 00d9 | | Load_Top At_Offset_1 016e e007 | | Load 0x0,0x7 016f 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0170 6809 |h | Jump_Zero 0x17a 0171 480a |H | Short_Literal 0xa 0172 00d9 | | Load_Top At_Offset_1 0173 e007 | | Load 0x0,0x7 0174 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0175 01cb | | Execute Vector,Append 0176 e009 | | Load 0x0,0x9 0177 1860 | ` | Execute Package,Field_Execute,Field_Number 0x60 0178 e00b | | Load 0x0,0xb 0179 0257 | W | Execute Discrete,Raise 017a 4801 |H | Short_Literal 0x1 017b 00d9 | | Load_Top At_Offset_1 017c e007 | | Load 0x0,0x7 017d 1817 | | Execute Package,Field_Execute,Field_Number 0x17 017e 6805 |h | Jump_Zero 0x184 017f 0092 0611 | | Action Push_String_Extended,0x611 ; "Copy from Ws unsuccessful\x0a" 0181 e009 | | Load 0x0,0x9 0182 1860 | ` | Execute Package,Field_Execute,Field_Number 0x60 0183 7813 |x | Jump 0x197 0184 4801 |H | Short_Literal 0x1 0185 a403 | | Store_Unchecked 0x2,0x3 0186 00e1 | | Load_Encached Boolean_Cache 0187 00ea | | Load_Encached Null_String_Cache 0188 00db | | Load_Top At_Offset_3 0189 00e0 | | Load_Encached Standard_Cache 018a 1818 | | Execute Package,Field_Execute,Field_Number 0x18 018b 0092 0610 | | Action Push_String_Extended,0x610 ; "Data.Last_Ws_Stamp" 018d e5fe | | Load 0x2,-0x2 018e e00c | | Load 0x0,0xc 018f 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0190 c402 | | Store 0x2,0x2 0191 e402 | | Load 0x2,0x2 0192 7004 |p | Jump_Nonzero 0x197 0193 0092 0612 | | Action Push_String_Extended,0x612 ; "Last_Ws_Stamp not updated (gateway_property.Set_Value error)\x0a" 0195 e009 | | Load 0x0,0x9 0196 1860 | ` | Execute Package,Field_Execute,Field_Number 0x60 0197 e5fc | | Load 0x2,-0x4 0198 7002 |p | Jump_Nonzero 0x19b 0199 00db | | Load_Top At_Offset_3 019a 6815 |h | Jump_Zero 0x1b0 019b e5fd | | Load 0x2,-0x3 019c 00d8 | | Load_Top At_Offset_0 019d e001 | | Load 0x0,0x1 019e 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 019f 0092 0613 | | Action Push_String_Extended,0x613 ; "." 01a1 01cc | | Execute Vector,Catenate 01a2 00ea | | Load_Encached Null_String_Cache 01a3 0092 0614 | | Action Push_String_Extended,0x614 ; "Edit.Object" 01a5 e5fe | | Load 0x2,-0x2 01a6 e00c | | Load 0x0,0xc 01a7 180f | | Execute Package,Field_Execute,Field_Number 0xf 01a8 01cc | | Execute Vector,Catenate 01a9 8215 | | Call 0x1,0x15 01aa 00d8 | | Load_Top At_Offset_0 01ab 4800 |H | Short_Literal 0x0 01ac e5fe | | Load 0x2,-0x2 01ad e008 | | Load 0x0,0x8 01ae 184d | M | Execute Package,Field_Execute,Field_Number 0x4d 01af c406 | | Store 0x2,0x6 01b0 4507 |E | Exit_Suprogram New_Top_Offset 0x7 01b1 0000 0000 | | .BLANK 0000[0x7] 01b8 ; -------------------------------------------------------------------------------------- 01b8 ; SUBPROGRAM 01b8 ; -------------------------------------------------------------------------------------- 01b8 01c4 | | .CONST 0x01c4 ; Address of begin 01b9 0004 | | .CONST 0x0004 ; Address of exception handler 01ba 0004 | | .CONST 0x0004 ; Number of locals 01bb INIT_01b8: 01bb 00e1 | | Load_Encached Boolean_Cache 01bc 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 01bd 00e3 | | Load_Encached Natural_Cache 01be 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 01bf e007 | | Load 0x0,0x7 01c0 1b0f | | Execute Package,Field_Read,Field_Number 0xf 01c1 02c7 | | Declare_Variable Any 01c2 00d8 | | Load_Top At_Offset_0 01c3 1c00 | | Execute_Immediate Run_Utility,0x0 01c4 BODY_01b8: 01c4 00d8 | | Load_Top At_Offset_0 01c5 0120 | | Execute Any,Is_Value 01c6 6803 |h | Jump_Zero 0x1ca 01c7 e007 | | Load 0x0,0x7 01c8 1b0f | | Execute Package,Field_Read,Field_Number 0xf 01c9 7801 |x | Jump 0x1cb 01ca 00d8 | | Load_Top At_Offset_0 01cb e5fc | | Load 0x2,-0x4 01cc e5fd | | Load 0x2,-0x3 01cd e5ff | | Load 0x2,-0x1 01ce e212 | | Load 0x1,0x12 01cf 1816 | | Execute Package,Field_Execute,Field_Number 0x16 01d0 c404 | | Store 0x2,0x4 01d1 4803 |H | Short_Literal 0x3 01d2 00d9 | | Load_Top At_Offset_1 01d3 e007 | | Load 0x0,0x7 01d4 1817 | | Execute Package,Field_Execute,Field_Number 0x17 01d5 6809 |h | Jump_Zero 0x1df 01d6 480a |H | Short_Literal 0xa 01d7 00d9 | | Load_Top At_Offset_1 01d8 e007 | | Load 0x0,0x7 01d9 1818 | | Execute Package,Field_Execute,Field_Number 0x18 01da 01cb | | Execute Vector,Append 01db e009 | | Load 0x0,0x9 01dc 1860 | ` | Execute Package,Field_Execute,Field_Number 0x60 01dd e00b | | Load 0x0,0xb 01de 0257 | W | Execute Discrete,Raise 01df 4801 |H | Short_Literal 0x1 01e0 00d9 | | Load_Top At_Offset_1 01e1 e007 | | Load 0x0,0x7 01e2 1817 | | Execute Package,Field_Execute,Field_Number 0x17 01e3 6804 |h | Jump_Zero 0x1e8 01e4 0092 0615 | | Action Push_String_Extended,0x615 ; "Copy to ws unsuccessful\x0a" 01e6 e009 | | Load 0x0,0x9 01e7 1860 | ` | Execute Package,Field_Execute,Field_Number 0x60 01e8 00d8 | | Load_Top At_Offset_0 01e9 0120 | | Execute Any,Is_Value 01ea 6803 |h | Jump_Zero 0x1ee 01eb e007 | | Load 0x0,0x7 01ec 1b0f | | Execute Package,Field_Read,Field_Number 0xf 01ed 7801 |x | Jump 0x1ef 01ee 00d8 | | Load_Top At_Offset_0 01ef 00e2 | | Load_Encached Integer_Cache 01f0 e5fc | | Load 0x2,-0x4 01f1 e5ff | | Load 0x2,-0x1 01f2 e212 | | Load 0x1,0x12 01f3 181a | | Execute Package,Field_Execute,Field_Number 0x1a 01f4 005b | [ | Store_Top Discrete,At_Offset_3 01f5 c404 | | Store 0x2,0x4 01f6 4803 |H | Short_Literal 0x3 01f7 00d9 | | Load_Top At_Offset_1 01f8 e007 | | Load 0x0,0x7 01f9 1817 | | Execute Package,Field_Execute,Field_Number 0x17 01fa 6809 |h | Jump_Zero 0x204 01fb 480a |H | Short_Literal 0xa 01fc 00d9 | | Load_Top At_Offset_1 01fd e007 | | Load 0x0,0x7 01fe 1818 | | Execute Package,Field_Execute,Field_Number 0x18 01ff 01cb | | Execute Vector,Append 0200 e009 | | Load 0x0,0x9 0201 1860 | ` | Execute Package,Field_Execute,Field_Number 0x60 0202 e00b | | Load 0x0,0xb 0203 0257 | W | Execute Discrete,Raise 0204 4801 |H | Short_Literal 0x1 0205 00d9 | | Load_Top At_Offset_1 0206 e007 | | Load 0x0,0x7 0207 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0208 6806 |h | Jump_Zero 0x20f 0209 0092 0616 | | Action Push_String_Extended,0x616 ; "Unable to get new Ws Stamp Date\x0a" 020b e009 | | Load 0x0,0x9 020c 1860 | ` | Execute Package,Field_Execute,Field_Number 0x60 020d 4800 |H | Short_Literal 0x0 020e 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 020f 00d9 | | Load_Top At_Offset_1 0210 680f |h | Jump_Zero 0x220 0211 00d9 | | Load_Top At_Offset_1 0212 00e0 | | Load_Encached Standard_Cache 0213 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0214 00ea | | Load_Encached Null_String_Cache 0215 0092 0610 | | Action Push_String_Extended,0x610 ; "Data.Last_Ws_Stamp" 0217 e5fe | | Load 0x2,-0x2 0218 e008 | | Load 0x0,0x8 0219 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 021a 00da | | Load_Top At_Offset_2 021b 7004 |p | Jump_Nonzero 0x220 021c 0092 0612 | | Action Push_String_Extended,0x612 ; "Last_Ws_Stamp not updated (gateway_property.Set_Value error)\x0a" 021e e009 | | Load 0x0,0x9 021f 1860 | ` | Execute Package,Field_Execute,Field_Number 0x60 0220 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0221 0000 0000 | | .BLANK 0000[0x7] 0228 ; -------------------------------------------------------------------------------------- 0228 ; SUBPROGRAM 0228 ; -------------------------------------------------------------------------------------- 0228 023d | = | .CONST 0x023d ; Address of begin 0229 02d1 | | .CONST 0x02d1 ; Address of exception handler 022a 0006 | | .CONST 0x0006 ; Number of locals 022b INIT_0228: 022b e212 | | Load 0x1,0x12 022c 1b11 | | Execute Package,Field_Read,Field_Number 0x11 022d 0322 | " | Declare_Variable Record 022e 00d8 | | Load_Top At_Offset_0 022f 1c00 | | Execute_Immediate Run_Utility,0x0 0230 e20e | | Load 0x1,0xe 0231 02c7 | | Declare_Variable Any 0232 e5ff | | Load 0x2,-0x1 0233 a403 | | Store_Unchecked 0x2,0x3 0234 00e1 | | Load_Encached Boolean_Cache 0235 e007 | | Load 0x0,0x7 0236 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0237 02c7 | | Declare_Variable Any 0238 00d8 | | Load_Top At_Offset_0 0239 1c00 | | Execute_Immediate Run_Utility,0x0 023a e00d | | Load 0x0,0xd 023b 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 023c 1b0f | | Execute Package,Field_Read,Field_Number 0xf 023d BODY_0228: 023d 00db | | Load_Top At_Offset_3 023e 8214 | | Call 0x1,0x14 023f c403 | | Store 0x2,0x3 0240 4800 |H | Short_Literal 0x0 0241 a5f9 | | Store_Unchecked 0x2,-0x7 0242 e00d | | Load 0x0,0xd 0243 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0244 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0245 e5f8 | | Load 0x2,-0x8 0246 0120 | | Execute Any,Is_Value 0247 6803 |h | Jump_Zero 0x24b 0248 e00d | | Load 0x0,0xd 0249 1b0f | | Execute Package,Field_Read,Field_Number 0xf 024a 7801 |x | Jump 0x24c 024b e5f8 | | Load 0x2,-0x8 024c 60af |` | Indirect_Literal Discrete,0x2fc,{0x00000000, 0x00004000} 024d e00e | | Load 0x0,0xe 024e 1b0e | | Execute Package,Field_Read,Field_Number 0xe 024f e00f | | Load 0x0,0xf 0250 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0251 e00d | | Load 0x0,0xd 0252 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0253 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0254 e5fb | | Load 0x2,-0x5 0255 e001 | | Load 0x0,0x1 0256 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 0257 0092 0613 | | Action Push_String_Extended,0x613 ; "." 0259 01cc | | Execute Vector,Catenate 025a 00ea | | Load_Encached Null_String_Cache 025b 0092 0614 | | Action Push_String_Extended,0x614 ; "Edit.Object" 025d e403 | | Load 0x2,0x3 025e e00c | | Load 0x0,0xc 025f 180f | | Execute Package,Field_Execute,Field_Number 0xf 0260 01cc | | Execute Vector,Catenate 0261 e00d | | Load 0x0,0xd 0262 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0263 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 0264 c5f8 | | Store 0x2,-0x8 0265 0059 | Y | Store_Top Discrete,At_Offset_1 0266 00d8 | | Load_Top At_Offset_0 0267 6801 |h | Jump_Zero 0x269 0268 0887 | | Execute_Immediate Raise,0x87 0269 00ea | | Load_Encached Null_String_Cache 026a 0092 0617 | | Action Push_String_Extended,0x617 ; "Connected" 026c e403 | | Load 0x2,0x3 026d e00c | | Load 0x0,0xc 026e 180f | | Execute Package,Field_Execute,Field_Number 0xf 026f 00e1 | | Load_Encached Boolean_Cache 0270 1c02 | | Execute_Immediate Run_Utility,0x2 0271 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 0272 00da | | Load_Top At_Offset_2 0273 7005 |p | Jump_Nonzero 0x279 0274 0092 0618 | | Action Push_String_Extended,0x618 ; "No Server Connected\x0a" 0276 e009 | | Load 0x0,0x9 0277 1860 | ` | Execute Package,Field_Execute,Field_Number 0x60 0278 7851 |xQ | Jump 0x2ca 0279 e402 | | Load 0x2,0x2 027a 00ea | | Load_Encached Null_String_Cache 027b 0092 0619 | | Action Push_String_Extended,0x619 ; "Data.Host" 027d e403 | | Load 0x2,0x3 027e e00c | | Load 0x0,0xc 027f 180f | | Execute Package,Field_Execute,Field_Number 0xf 0280 e212 | | Load 0x1,0x12 0281 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0282 00d1 | | Pop_Control Pop_Count_1 0283 4803 |H | Short_Literal 0x3 0284 00da | | Load_Top At_Offset_2 0285 e007 | | Load 0x0,0x7 0286 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0287 6809 |h | Jump_Zero 0x291 0288 480a |H | Short_Literal 0xa 0289 00da | | Load_Top At_Offset_2 028a e007 | | Load 0x0,0x7 028b 1818 | | Execute Package,Field_Execute,Field_Number 0x18 028c 01cb | | Execute Vector,Append 028d e009 | | Load 0x0,0x9 028e 1860 | ` | Execute Package,Field_Execute,Field_Number 0x60 028f e00b | | Load 0x0,0xb 0290 0257 | W | Execute Discrete,Raise 0291 00ea | | Load_Encached Null_String_Cache 0292 0092 061a | | Action Push_String_Extended,0x61a ; "Data.Context" 0294 e403 | | Load 0x2,0x3 0295 e00c | | Load 0x0,0xc 0296 180f | | Execute Package,Field_Execute,Field_Number 0xf 0297 00ea | | Load_Encached Null_String_Cache 0298 0092 061b | | Action Push_String_Extended,0x61b ; "Data.Context_Separator" 029a e403 | | Load 0x2,0x3 029b e00c | | Load 0x0,0xc 029c 180f | | Execute Package,Field_Execute,Field_Number 0xf 029d 01cc | | Execute Vector,Catenate 029e 00ea | | Load_Encached Null_String_Cache 029f 0092 061c | | Action Push_String_Extended,0x61c ; "Data.Name" 02a1 e403 | | Load 0x2,0x3 02a2 e00c | | Load 0x0,0xc 02a3 180f | | Execute Package,Field_Execute,Field_Number 0xf 02a4 01cc | | Execute Vector,Catenate 02a5 00ea | | Load_Encached Null_String_Cache 02a6 0092 061d | | Action Push_String_Extended,0x61d ; "Data.Suffix" 02a8 e403 | | Load 0x2,0x3 02a9 e00c | | Load 0x0,0xc 02aa 180f | | Execute Package,Field_Execute,Field_Number 0xf 02ab 01cc | | Execute Vector,Catenate 02ac e5fb | | Load 0x2,-0x5 02ad e001 | | Load 0x0,0x1 02ae 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 02af 0092 0613 | | Action Push_String_Extended,0x613 ; "." 02b1 01cc | | Execute Vector,Catenate 02b2 00ea | | Load_Encached Null_String_Cache 02b3 0092 0614 | | Action Push_String_Extended,0x614 ; "Edit.Object" 02b5 e403 | | Load 0x2,0x3 02b6 e00c | | Load 0x0,0xc 02b7 180f | | Execute Package,Field_Execute,Field_Number 0xf 02b8 01cc | | Execute Vector,Catenate 02b9 e5fc | | Load 0x2,-0x4 02ba e5fb | | Load 0x2,-0x5 02bb e403 | | Load 0x2,0x3 02bc e402 | | Load 0x2,0x2 02bd 8216 | | Call 0x1,0x16 02be 00d9 | | Load_Top At_Offset_1 02bf 0120 | | Execute Any,Is_Value 02c0 6803 |h | Jump_Zero 0x2c4 02c1 e007 | | Load 0x0,0x7 02c2 1b0f | | Execute Package,Field_Read,Field_Number 0xf 02c3 7801 |x | Jump 0x2c5 02c4 00d9 | | Load_Top At_Offset_1 02c5 e402 | | Load 0x2,0x2 02c6 e212 | | Load 0x1,0x12 02c7 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 02c8 00d1 | | Pop_Control Pop_Count_1 02c9 c405 | | Store 0x2,0x5 02ca 4801 |H | Short_Literal 0x1 02cb 00da | | Load_Top At_Offset_2 02cc e007 | | Load 0x0,0x7 02cd 1817 | | Execute Package,Field_Execute,Field_Number 0x17 02ce 6801 |h | Jump_Zero 0x2d0 02cf 0887 | | Execute_Immediate Raise,0x87 02d0 4506 |E | Exit_Suprogram New_Top_Offset 0x6 02d1 TRAP_0228: 02d1 e00b | | Load 0x0,0xb 02d2 010f | | Execute Exception,Equal 02d3 680d |h | Jump_Zero 0x2e1 02d4 00da | | Load_Top At_Offset_2 02d5 4800 |H | Short_Literal 0x0 02d6 e403 | | Load 0x2,0x3 02d7 e008 | | Load 0x0,0x8 02d8 184d | M | Execute Package,Field_Execute,Field_Number 0x4d 02d9 c405 | | Store 0x2,0x5 02da 4801 |H | Short_Literal 0x1 02db 00db | | Load_Top At_Offset_3 02dc e007 | | Load 0x0,0x7 02dd 1817 | | Execute Package,Field_Execute,Field_Number 0x17 02de 6801 |h | Jump_Zero 0x2e0 02df 0887 | | Execute_Immediate Raise,0x87 02e0 4506 |E | Exit_Suprogram New_Top_Offset 0x6 02e1 480a |H | Short_Literal 0xa 02e2 0092 060d | | Action Push_String_Extended,0x60d ; "Exception: " 02e4 4800 |H | Short_Literal 0x0 02e5 4801 |H | Short_Literal 0x1 02e6 e00a | | Load 0x0,0xa 02e7 1815 | | Execute Package,Field_Execute,Field_Number 0x15 02e8 01cc | | Execute Vector,Catenate 02e9 01cb | | Execute Vector,Append 02ea e009 | | Load 0x0,0x9 02eb 1860 | ` | Execute Package,Field_Execute,Field_Number 0x60 02ec 00da | | Load_Top At_Offset_2 02ed 4800 |H | Short_Literal 0x0 02ee e403 | | Load 0x2,0x3 02ef e008 | | Load 0x0,0x8 02f0 184d | M | Execute Package,Field_Execute,Field_Number 0x4d 02f1 c405 | | Store 0x2,0x5 02f2 4801 |H | Short_Literal 0x1 02f3 00db | | Load_Top At_Offset_3 02f4 e007 | | Load 0x0,0x7 02f5 1817 | | Execute Package,Field_Execute,Field_Number 0x17 02f6 6801 |h | Jump_Zero 0x2f8 02f7 0887 | | Execute_Immediate Raise,0x87 02f8 4506 |E | Exit_Suprogram New_Top_Offset 0x6 02f9 0000 0000 | | .XXX[0x3] 02fb 0000 | | 02fc 0000 0000 | | .LITERAL {0x00000000, 0x00004000} 0300 ; -------------------------------------------------------------------------------------- 0300 ; SUBPROGRAM 0300 ; -------------------------------------------------------------------------------------- 0300 0312 | | .CONST 0x0312 ; Address of begin 0301 037b | { | .CONST 0x037b ; Address of exception handler 0302 0005 | | .CONST 0x0005 ; Number of locals 0303 INIT_0300: 0303 e212 | | Load 0x1,0x12 0304 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0305 0322 | " | Declare_Variable Record 0306 00d8 | | Load_Top At_Offset_0 0307 1c00 | | Execute_Immediate Run_Utility,0x0 0308 e20e | | Load 0x1,0xe 0309 02c7 | | Declare_Variable Any 030a e5ff | | Load 0x2,-0x1 030b a403 | | Store_Unchecked 0x2,0x3 030c 00e1 | | Load_Encached Boolean_Cache 030d e007 | | Load 0x0,0x7 030e 1b0f | | Execute Package,Field_Read,Field_Number 0xf 030f 02c7 | | Declare_Variable Any 0310 00d8 | | Load_Top At_Offset_0 0311 1c00 | | Execute_Immediate Run_Utility,0x0 0312 BODY_0300: 0312 00da | | Load_Top At_Offset_2 0313 8214 | | Call 0x1,0x14 0314 c403 | | Store 0x2,0x3 0315 00ea | | Load_Encached Null_String_Cache 0316 0092 0617 | | Action Push_String_Extended,0x617 ; "Connected" 0318 e403 | | Load 0x2,0x3 0319 e00c | | Load 0x0,0xc 031a 180f | | Execute Package,Field_Execute,Field_Number 0xf 031b 00e1 | | Load_Encached Boolean_Cache 031c 1c02 | | Execute_Immediate Run_Utility,0x2 031d 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 031e 00d9 | | Load_Top At_Offset_1 031f 7005 |p | Jump_Nonzero 0x325 0320 0092 0618 | | Action Push_String_Extended,0x618 ; "No Server Connected\x0a" 0322 e009 | | Load 0x0,0x9 0323 1860 | ` | Execute Package,Field_Execute,Field_Number 0x60 0324 784f |xO | Jump 0x374 0325 00db | | Load_Top At_Offset_3 0326 00ea | | Load_Encached Null_String_Cache 0327 0092 0619 | | Action Push_String_Extended,0x619 ; "Data.Host" 0329 e403 | | Load 0x2,0x3 032a e00c | | Load 0x0,0xc 032b 180f | | Execute Package,Field_Execute,Field_Number 0xf 032c e212 | | Load 0x1,0x12 032d 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 032e 00d1 | | Pop_Control Pop_Count_1 032f 4803 |H | Short_Literal 0x3 0330 00d9 | | Load_Top At_Offset_1 0331 e007 | | Load 0x0,0x7 0332 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0333 6809 |h | Jump_Zero 0x33d 0334 480a |H | Short_Literal 0xa 0335 00d9 | | Load_Top At_Offset_1 0336 e007 | | Load 0x0,0x7 0337 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0338 01cb | | Execute Vector,Append 0339 e009 | | Load 0x0,0x9 033a 1860 | ` | Execute Package,Field_Execute,Field_Number 0x60 033b e00b | | Load 0x0,0xb 033c 0257 | W | Execute Discrete,Raise 033d 00ea | | Load_Encached Null_String_Cache 033e 0092 061a | | Action Push_String_Extended,0x61a ; "Data.Context" 0340 e403 | | Load 0x2,0x3 0341 e00c | | Load 0x0,0xc 0342 180f | | Execute Package,Field_Execute,Field_Number 0xf 0343 00ea | | Load_Encached Null_String_Cache 0344 0092 061b | | Action Push_String_Extended,0x61b ; "Data.Context_Separator" 0346 e403 | | Load 0x2,0x3 0347 e00c | | Load 0x0,0xc 0348 180f | | Execute Package,Field_Execute,Field_Number 0xf 0349 01cc | | Execute Vector,Catenate 034a 00ea | | Load_Encached Null_String_Cache 034b 0092 061c | | Action Push_String_Extended,0x61c ; "Data.Name" 034d e403 | | Load 0x2,0x3 034e e00c | | Load 0x0,0xc 034f 180f | | Execute Package,Field_Execute,Field_Number 0xf 0350 01cc | | Execute Vector,Catenate 0351 00ea | | Load_Encached Null_String_Cache 0352 0092 061d | | Action Push_String_Extended,0x61d ; "Data.Suffix" 0354 e403 | | Load 0x2,0x3 0355 e00c | | Load 0x0,0xc 0356 180f | | Execute Package,Field_Execute,Field_Number 0xf 0357 01cc | | Execute Vector,Catenate 0358 e5fe | | Load 0x2,-0x2 0359 e001 | | Load 0x0,0x1 035a 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 035b 0092 0613 | | Action Push_String_Extended,0x613 ; "." 035d 01cc | | Execute Vector,Catenate 035e 00ea | | Load_Encached Null_String_Cache 035f 0092 0614 | | Action Push_String_Extended,0x614 ; "Edit.Object" 0361 e403 | | Load 0x2,0x3 0362 e00c | | Load 0x0,0xc 0363 180f | | Execute Package,Field_Execute,Field_Number 0xf 0364 01cc | | Execute Vector,Catenate 0365 e403 | | Load 0x2,0x3 0366 e402 | | Load 0x2,0x2 0367 8217 | | Call 0x1,0x17 0368 00d8 | | Load_Top At_Offset_0 0369 0120 | | Execute Any,Is_Value 036a 6803 |h | Jump_Zero 0x36e 036b e007 | | Load 0x0,0x7 036c 1b0f | | Execute Package,Field_Read,Field_Number 0xf 036d 7801 |x | Jump 0x36f 036e 00d8 | | Load_Top At_Offset_0 036f e402 | | Load 0x2,0x2 0370 e212 | | Load 0x1,0x12 0371 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 0372 00d1 | | Pop_Control Pop_Count_1 0373 c405 | | Store 0x2,0x5 0374 4801 |H | Short_Literal 0x1 0375 00d9 | | Load_Top At_Offset_1 0376 e007 | | Load 0x0,0x7 0377 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0378 6801 |h | Jump_Zero 0x37a 0379 0887 | | Execute_Immediate Raise,0x87 037a 4503 |E | Exit_Suprogram New_Top_Offset 0x3 037b TRAP_0300: 037b e00b | | Load 0x0,0xb 037c 010f | | Execute Exception,Equal 037d 6801 |h | Jump_Zero 0x37f 037e 4503 |E | Exit_Suprogram New_Top_Offset 0x3 037f 480a |H | Short_Literal 0xa 0380 0092 060d | | Action Push_String_Extended,0x60d ; "Exception: " 0382 4800 |H | Short_Literal 0x0 0383 4801 |H | Short_Literal 0x1 0384 e00a | | Load 0x0,0xa 0385 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0386 01cc | | Execute Vector,Catenate 0387 01cb | | Execute Vector,Append 0388 e009 | | Load 0x0,0x9 0389 1860 | ` | Execute Package,Field_Execute,Field_Number 0x60 038a 4801 |H | Short_Literal 0x1 038b 00da | | Load_Top At_Offset_2 038c e007 | | Load 0x0,0x7 038d 1817 | | Execute Package,Field_Execute,Field_Number 0x17 038e 6801 |h | Jump_Zero 0x390 038f 0887 | | Execute_Immediate Raise,0x87 0390 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0391 0000 0000 | | .BLANK 0000[0x7] 0398 ; -------------------------------------------------------------------------------------- 0398 ; SUBPROGRAM 0398 ; -------------------------------------------------------------------------------------- 0398 03a6 | | .CONST 0x03a6 ; Address of begin 0399 0004 | | .CONST 0x0004 ; Address of exception handler 039a 0004 | | .CONST 0x0004 ; Number of locals 039b INIT_0398: 039b e212 | | Load 0x1,0x12 039c 1b11 | | Execute Package,Field_Read,Field_Number 0x11 039d 0322 | " | Declare_Variable Record 039e 00d8 | | Load_Top At_Offset_0 039f 1c00 | | Execute_Immediate Run_Utility,0x0 03a0 00e1 | | Load_Encached Boolean_Cache 03a1 e007 | | Load 0x0,0x7 03a2 1b0f | | Execute Package,Field_Read,Field_Number 0xf 03a3 02c7 | | Declare_Variable Any 03a4 00d8 | | Load_Top At_Offset_0 03a5 1c00 | | Execute_Immediate Run_Utility,0x0 03a6 BODY_0398: 03a6 00ea | | Load_Encached Null_String_Cache 03a7 0092 0617 | | Action Push_String_Extended,0x617 ; "Connected" 03a9 e5ff | | Load 0x2,-0x1 03aa e00c | | Load 0x0,0xc 03ab 180f | | Execute Package,Field_Execute,Field_Number 0xf 03ac 00e1 | | Load_Encached Boolean_Cache 03ad 1c02 | | Execute_Immediate Run_Utility,0x2 03ae 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 03af 00d9 | | Load_Top At_Offset_1 03b0 7005 |p | Jump_Nonzero 0x3b6 03b1 0092 0618 | | Action Push_String_Extended,0x618 ; "No Server Connected\x0a" 03b3 e009 | | Load 0x0,0x9 03b4 1860 | ` | Execute Package,Field_Execute,Field_Number 0x60 03b5 4503 |E | Exit_Suprogram New_Top_Offset 0x3 03b6 00da | | Load_Top At_Offset_2 03b7 00ea | | Load_Encached Null_String_Cache 03b8 0092 0619 | | Action Push_String_Extended,0x619 ; "Data.Host" 03ba e5ff | | Load 0x2,-0x1 03bb e00c | | Load 0x0,0xc 03bc 180f | | Execute Package,Field_Execute,Field_Number 0xf 03bd e212 | | Load 0x1,0x12 03be 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 03bf 00d1 | | Pop_Control Pop_Count_1 03c0 4803 |H | Short_Literal 0x3 03c1 00d9 | | Load_Top At_Offset_1 03c2 e007 | | Load 0x0,0x7 03c3 1817 | | Execute Package,Field_Execute,Field_Number 0x17 03c4 6809 |h | Jump_Zero 0x3ce 03c5 480a |H | Short_Literal 0xa 03c6 00d9 | | Load_Top At_Offset_1 03c7 e007 | | Load 0x0,0x7 03c8 1818 | | Execute Package,Field_Execute,Field_Number 0x18 03c9 01cb | | Execute Vector,Append 03ca e009 | | Load 0x0,0x9 03cb 1860 | ` | Execute Package,Field_Execute,Field_Number 0x60 03cc e00b | | Load 0x0,0xb 03cd 0257 | W | Execute Discrete,Raise 03ce 00d8 | | Load_Top At_Offset_0 03cf 0120 | | Execute Any,Is_Value 03d0 6803 |h | Jump_Zero 0x3d4 03d1 e007 | | Load 0x0,0x7 03d2 1b0f | | Execute Package,Field_Read,Field_Number 0xf 03d3 7801 |x | Jump 0x3d5 03d4 00d8 | | Load_Top At_Offset_0 03d5 00ea | | Load_Encached Null_String_Cache 03d6 0092 061e | | Action Push_String_Extended,0x61e ; "Shell.Timeout" 03d8 e5ff | | Load 0x2,-0x1 03d9 e00c | | Load 0x0,0xc 03da 180f | | Execute Package,Field_Execute,Field_Number 0xf 03db 00e2 | | Load_Encached Integer_Cache 03dc 00e0 | | Load_Encached Standard_Cache 03dd 1819 | | Execute Package,Field_Execute,Field_Number 0x19 03de 00ea | | Load_Encached Null_String_Cache 03df 0092 061c | | Action Push_String_Extended,0x61c ; "Data.Name" 03e1 e5ff | | Load 0x2,-0x1 03e2 e00c | | Load 0x0,0xc 03e3 180f | | Execute Package,Field_Execute,Field_Number 0xf 03e4 00ea | | Load_Encached Null_String_Cache 03e5 0092 061a | | Action Push_String_Extended,0x61a ; "Data.Context" 03e7 e5ff | | Load 0x2,-0x1 03e8 e00c | | Load 0x0,0xc 03e9 180f | | Execute Package,Field_Execute,Field_Number 0xf 03ea 00ea | | Load_Encached Null_String_Cache 03eb e5fe | | Load 0x2,-0x2 03ec e5ff | | Load 0x2,-0x1 03ed e00c | | Load 0x0,0xc 03ee 180f | | Execute Package,Field_Execute,Field_Number 0xf 03ef 8213 | | Call 0x1,0x13 03f0 e402 | | Load 0x2,0x2 03f1 e212 | | Load 0x1,0x12 03f2 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 03f3 c404 | | Store 0x2,0x4 03f4 4803 |H | Short_Literal 0x3 03f5 00d9 | | Load_Top At_Offset_1 03f6 e007 | | Load 0x0,0x7 03f7 1817 | | Execute Package,Field_Execute,Field_Number 0x17 03f8 6809 |h | Jump_Zero 0x402 03f9 480a |H | Short_Literal 0xa 03fa 00d9 | | Load_Top At_Offset_1 03fb e007 | | Load 0x0,0x7 03fc 1818 | | Execute Package,Field_Execute,Field_Number 0x18 03fd 01cb | | Execute Vector,Append 03fe e009 | | Load 0x0,0x9 03ff 1860 | ` | Execute Package,Field_Execute,Field_Number 0x60 0400 e00b | | Load 0x0,0xb 0401 0257 | W | Execute Discrete,Raise 0402 4801 |H | Short_Literal 0x1 0403 00d9 | | Load_Top At_Offset_1 0404 e007 | | Load 0x0,0x7 0405 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0406 6807 |h | Jump_Zero 0x40e 0407 480a |H | Short_Literal 0xa 0408 00d9 | | Load_Top At_Offset_1 0409 e007 | | Load 0x0,0x7 040a 1818 | | Execute Package,Field_Execute,Field_Number 0x18 040b 01cb | | Execute Vector,Append 040c e009 | | Load 0x0,0x9 040d 1860 | ` | Execute Package,Field_Execute,Field_Number 0x60 040e 4503 |E | Exit_Suprogram New_Top_Offset 0x3 040f 0000 | | .XXX[0x1] 0410 ; -------------------------------------------------------------------------------------- 0410 ; SUBPROGRAM 0410 ; -------------------------------------------------------------------------------------- 0410 041d | | .CONST 0x041d ; Address of begin 0411 046a | j | .CONST 0x046a ; Address of exception handler 0412 0004 | | .CONST 0x0004 ; Number of locals 0413 INIT_0410: 0413 e212 | | Load 0x1,0x12 0414 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0415 0322 | " | Declare_Variable Record 0416 00d8 | | Load_Top At_Offset_0 0417 1c00 | | Execute_Immediate Run_Utility,0x0 0418 e20e | | Load 0x1,0xe 0419 02c7 | | Declare_Variable Any 041a e5ff | | Load 0x2,-0x1 041b a403 | | Store_Unchecked 0x2,0x3 041c 00e1 | | Load_Encached Boolean_Cache 041d BODY_0410: 041d 00d9 | | Load_Top At_Offset_1 041e 8214 | | Call 0x1,0x14 041f c403 | | Store 0x2,0x3 0420 00da | | Load_Top At_Offset_2 0421 00ea | | Load_Encached Null_String_Cache 0422 0092 0619 | | Action Push_String_Extended,0x619 ; "Data.Host" 0424 e403 | | Load 0x2,0x3 0425 e00c | | Load 0x0,0xc 0426 180f | | Execute Package,Field_Execute,Field_Number 0xf 0427 e212 | | Load 0x1,0x12 0428 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0429 00d1 | | Pop_Control Pop_Count_1 042a e5fe | | Load 0x2,-0x2 042b e001 | | Load 0x0,0x1 042c 1848 | H | Execute Package,Field_Execute,Field_Number 0x48 042d 6837 |h7 | Jump_Zero 0x465 042e 00e1 | | Load_Encached Boolean_Cache 042f e5fe | | Load 0x2,-0x2 0430 e001 | | Load 0x0,0x1 0431 1849 | I | Execute Package,Field_Execute,Field_Number 0x49 0432 0059 | Y | Store_Top Discrete,At_Offset_1 0433 00d8 | | Load_Top At_Offset_0 0434 7005 |p | Jump_Nonzero 0x43a 0435 0092 061f | | Action Push_String_Extended,0x61f ; "Unable to Commit Changes\x0a" 0437 e009 | | Load 0x0,0x9 0438 1860 | ` | Execute Package,Field_Execute,Field_Number 0x60 0439 4505 |E | Exit_Suprogram New_Top_Offset 0x5 043a 00ea | | Load_Encached Null_String_Cache 043b 0092 061a | | Action Push_String_Extended,0x61a ; "Data.Context" 043d 00db | | Load_Top At_Offset_3 043e e00c | | Load 0x0,0xc 043f 180f | | Execute Package,Field_Execute,Field_Number 0xf 0440 00ea | | Load_Encached Null_String_Cache 0441 0092 061b | | Action Push_String_Extended,0x61b ; "Data.Context_Separator" 0443 e403 | | Load 0x2,0x3 0444 e00c | | Load 0x0,0xc 0445 180f | | Execute Package,Field_Execute,Field_Number 0xf 0446 01cc | | Execute Vector,Catenate 0447 00ea | | Load_Encached Null_String_Cache 0448 0092 061c | | Action Push_String_Extended,0x61c ; "Data.Name" 044a e403 | | Load 0x2,0x3 044b e00c | | Load 0x0,0xc 044c 180f | | Execute Package,Field_Execute,Field_Number 0xf 044d 01cc | | Execute Vector,Catenate 044e 00ea | | Load_Encached Null_String_Cache 044f 0092 061d | | Action Push_String_Extended,0x61d ; "Data.Suffix" 0451 e403 | | Load 0x2,0x3 0452 e00c | | Load 0x0,0xc 0453 180f | | Execute Package,Field_Execute,Field_Number 0xf 0454 01cc | | Execute Vector,Catenate 0455 e5fe | | Load 0x2,-0x2 0456 e001 | | Load 0x0,0x1 0457 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 0458 0092 0613 | | Action Push_String_Extended,0x613 ; "." 045a 01cc | | Execute Vector,Catenate 045b 00ea | | Load_Encached Null_String_Cache 045c 0092 0614 | | Action Push_String_Extended,0x614 ; "Edit.Object" 045e e403 | | Load 0x2,0x3 045f e00c | | Load 0x0,0xc 0460 180f | | Execute Package,Field_Execute,Field_Number 0xf 0461 01cc | | Execute Vector,Catenate 0462 00db | | Load_Top At_Offset_3 0463 e402 | | Load 0x2,0x2 0464 8217 | | Call 0x1,0x17 0465 0092 0620 | | Action Push_String_Extended,0x620 ; "Semanticize.Command" 0467 00da | | Load_Top At_Offset_2 0468 821a | | Call 0x1,0x1a 0469 4505 |E | Exit_Suprogram New_Top_Offset 0x5 046a TRAP_0410: 046a 0007 | | Action Break_Optional 046b 480a |H | Short_Literal 0xa 046c 0092 060d | | Action Push_String_Extended,0x60d ; "Exception: " 046e 4800 |H | Short_Literal 0x0 046f 4801 |H | Short_Literal 0x1 0470 e00a | | Load 0x0,0xa 0471 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0472 01cc | | Execute Vector,Catenate 0473 01cb | | Execute Vector,Append 0474 e009 | | Load 0x0,0x9 0475 1860 | ` | Execute Package,Field_Execute,Field_Number 0x60 0476 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0477 0000 | | .XXX[0x1] 0478 ; -------------------------------------------------------------------------------------- 0478 ; SUBPROGRAM 0478 ; -------------------------------------------------------------------------------------- 0478 0484 | | .CONST 0x0484 ; Address of begin 0479 0495 | | .CONST 0x0495 ; Address of exception handler 047a 0003 | | .CONST 0x0003 ; Number of locals 047b INIT_0478: 047b e212 | | Load 0x1,0x12 047c 1b11 | | Execute Package,Field_Read,Field_Number 0x11 047d 0322 | " | Declare_Variable Record 047e 00d8 | | Load_Top At_Offset_0 047f 1c00 | | Execute_Immediate Run_Utility,0x0 0480 e20e | | Load 0x1,0xe 0481 02c7 | | Declare_Variable Any 0482 e5ff | | Load 0x2,-0x1 0483 a403 | | Store_Unchecked 0x2,0x3 0484 BODY_0478: 0484 e5fe | | Load 0x2,-0x2 0485 e001 | | Load 0x0,0x1 0486 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 0487 7008 |p | Jump_Nonzero 0x490 0488 e5fe | | Load 0x2,-0x2 0489 e001 | | Load 0x0,0x1 048a 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 048b 0092 0621 | !| Action Push_String_Extended,0x621 ; "Promot.Command1" 048d 00d9 | | Load_Top At_Offset_1 048e 821a | | Call 0x1,0x1a 048f 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0490 0092 0622 | "| Action Push_String_Extended,0x622 ; "Promot.Command2" 0492 00d9 | | Load_Top At_Offset_1 0493 821a | | Call 0x1,0x1a 0494 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0495 TRAP_0478: 0495 0007 | | Action Break_Optional 0496 480a |H | Short_Literal 0xa 0497 0092 060d | | Action Push_String_Extended,0x60d ; "Exception: " 0499 4800 |H | Short_Literal 0x0 049a 4801 |H | Short_Literal 0x1 049b e00a | | Load 0x0,0xa 049c 1815 | | Execute Package,Field_Execute,Field_Number 0x15 049d 01cc | | Execute Vector,Catenate 049e 01cb | | Execute Vector,Append 049f e009 | | Load 0x0,0x9 04a0 1860 | ` | Execute Package,Field_Execute,Field_Number 0x60 04a1 4505 |E | Exit_Suprogram New_Top_Offset 0x5 04a2 0000 0000 | | .BLANK 0000[0x6] 04a8 ; -------------------------------------------------------------------------------------- 04a8 ; SUBPROGRAM 04a8 ; -------------------------------------------------------------------------------------- 04a8 04ba | | .CONST 0x04ba ; Address of begin 04a9 0549 | I | .CONST 0x0549 ; Address of exception handler 04aa 0005 | | .CONST 0x0005 ; Number of locals 04ab INIT_04a8: 04ab e212 | | Load 0x1,0x12 04ac 1b11 | | Execute Package,Field_Read,Field_Number 0x11 04ad 0322 | " | Declare_Variable Record 04ae 00d8 | | Load_Top At_Offset_0 04af 1c00 | | Execute_Immediate Run_Utility,0x0 04b0 e20e | | Load 0x1,0xe 04b1 02c7 | | Declare_Variable Any 04b2 e5ff | | Load 0x2,-0x1 04b3 a403 | | Store_Unchecked 0x2,0x3 04b4 e007 | | Load 0x0,0x7 04b5 1b0f | | Execute Package,Field_Read,Field_Number 0xf 04b6 02c7 | | Declare_Variable Any 04b7 00d8 | | Load_Top At_Offset_0 04b8 1c00 | | Execute_Immediate Run_Utility,0x0 04b9 00e1 | | Load_Encached Boolean_Cache 04ba BODY_04a8: 04ba 00da | | Load_Top At_Offset_2 04bb 8214 | | Call 0x1,0x14 04bc c403 | | Store 0x2,0x3 04bd 00db | | Load_Top At_Offset_3 04be 00ea | | Load_Encached Null_String_Cache 04bf 0092 0619 | | Action Push_String_Extended,0x619 ; "Data.Host" 04c1 e403 | | Load 0x2,0x3 04c2 e00c | | Load 0x0,0xc 04c3 180f | | Execute Package,Field_Execute,Field_Number 0xf 04c4 e212 | | Load 0x1,0x12 04c5 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 04c6 00d1 | | Pop_Control Pop_Count_1 04c7 e5fe | | Load 0x2,-0x2 04c8 e001 | | Load 0x0,0x1 04c9 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 04ca 6805 |h | Jump_Zero 0x4d0 04cb 0092 0623 | #| Action Push_String_Extended,0x623 ; "Image is Read_Only\x0a" 04cd e009 | | Load 0x0,0x9 04ce 1860 | ` | Execute Package,Field_Execute,Field_Number 0x60 04cf 786c |xl | Jump 0x53c 04d0 e5fe | | Load 0x2,-0x2 04d1 e001 | | Load 0x0,0x1 04d2 1848 | H | Execute Package,Field_Execute,Field_Number 0x48 04d3 6837 |h7 | Jump_Zero 0x50b 04d4 00e1 | | Load_Encached Boolean_Cache 04d5 e5fe | | Load 0x2,-0x2 04d6 e001 | | Load 0x0,0x1 04d7 1849 | I | Execute Package,Field_Execute,Field_Number 0x49 04d8 0059 | Y | Store_Top Discrete,At_Offset_1 04d9 00d8 | | Load_Top At_Offset_0 04da 7005 |p | Jump_Nonzero 0x4e0 04db 0092 0624 | $| Action Push_String_Extended,0x624 ; "Unable to commit changes\x0a" 04dd e009 | | Load 0x0,0x9 04de 1860 | ` | Execute Package,Field_Execute,Field_Number 0x60 04df 4505 |E | Exit_Suprogram New_Top_Offset 0x5 04e0 00ea | | Load_Encached Null_String_Cache 04e1 0092 061a | | Action Push_String_Extended,0x61a ; "Data.Context" 04e3 e403 | | Load 0x2,0x3 04e4 e00c | | Load 0x0,0xc 04e5 180f | | Execute Package,Field_Execute,Field_Number 0xf 04e6 00ea | | Load_Encached Null_String_Cache 04e7 0092 061b | | Action Push_String_Extended,0x61b ; "Data.Context_Separator" 04e9 e403 | | Load 0x2,0x3 04ea e00c | | Load 0x0,0xc 04eb 180f | | Execute Package,Field_Execute,Field_Number 0xf 04ec 01cc | | Execute Vector,Catenate 04ed 00ea | | Load_Encached Null_String_Cache 04ee 0092 061c | | Action Push_String_Extended,0x61c ; "Data.Name" 04f0 e403 | | Load 0x2,0x3 04f1 e00c | | Load 0x0,0xc 04f2 180f | | Execute Package,Field_Execute,Field_Number 0xf 04f3 01cc | | Execute Vector,Catenate 04f4 00ea | | Load_Encached Null_String_Cache 04f5 0092 061d | | Action Push_String_Extended,0x61d ; "Data.Suffix" 04f7 e403 | | Load 0x2,0x3 04f8 e00c | | Load 0x0,0xc 04f9 180f | | Execute Package,Field_Execute,Field_Number 0xf 04fa 01cc | | Execute Vector,Catenate 04fb e5fe | | Load 0x2,-0x2 04fc e001 | | Load 0x0,0x1 04fd 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 04fe 0092 0613 | | Action Push_String_Extended,0x613 ; "." 0500 01cc | | Execute Vector,Catenate 0501 00ea | | Load_Encached Null_String_Cache 0502 0092 0614 | | Action Push_String_Extended,0x614 ; "Edit.Object" 0504 e403 | | Load 0x2,0x3 0505 e00c | | Load 0x0,0xc 0506 180f | | Execute Package,Field_Execute,Field_Number 0xf 0507 01cc | | Execute Vector,Catenate 0508 e403 | | Load 0x2,0x3 0509 e402 | | Load 0x2,0x2 050a 8217 | | Call 0x1,0x17 050b 0092 0625 | %| Action Push_String_Extended,0x625 ; "Format.Command" 050d 00db | | Load_Top At_Offset_3 050e 821a | | Call 0x1,0x1a 050f 00ea | | Load_Encached Null_String_Cache 0510 0092 061a | | Action Push_String_Extended,0x61a ; "Data.Context" 0512 e403 | | Load 0x2,0x3 0513 e00c | | Load 0x0,0xc 0514 180f | | Execute Package,Field_Execute,Field_Number 0xf 0515 00ea | | Load_Encached Null_String_Cache 0516 0092 061b | | Action Push_String_Extended,0x61b ; "Data.Context_Separator" 0518 e403 | | Load 0x2,0x3 0519 e00c | | Load 0x0,0xc 051a 180f | | Execute Package,Field_Execute,Field_Number 0xf 051b 01cc | | Execute Vector,Catenate 051c 00ea | | Load_Encached Null_String_Cache 051d 0092 061c | | Action Push_String_Extended,0x61c ; "Data.Name" 051f e403 | | Load 0x2,0x3 0520 e00c | | Load 0x0,0xc 0521 180f | | Execute Package,Field_Execute,Field_Number 0xf 0522 01cc | | Execute Vector,Catenate 0523 00ea | | Load_Encached Null_String_Cache 0524 0092 061d | | Action Push_String_Extended,0x61d ; "Data.Suffix" 0526 e403 | | Load 0x2,0x3 0527 e00c | | Load 0x0,0xc 0528 180f | | Execute Package,Field_Execute,Field_Number 0xf 0529 01cc | | Execute Vector,Catenate 052a e5fe | | Load 0x2,-0x2 052b e001 | | Load 0x0,0x1 052c 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 052d 0092 0613 | | Action Push_String_Extended,0x613 ; "." 052f 01cc | | Execute Vector,Catenate 0530 00ea | | Load_Encached Null_String_Cache 0531 0092 0614 | | Action Push_String_Extended,0x614 ; "Edit.Object" 0533 e403 | | Load 0x2,0x3 0534 e00c | | Load 0x0,0xc 0535 180f | | Execute Package,Field_Execute,Field_Number 0xf 0536 01cc | | Execute Vector,Catenate 0537 4801 |H | Short_Literal 0x1 0538 e5fe | | Load 0x2,-0x2 0539 e403 | | Load 0x2,0x3 053a e402 | | Load 0x2,0x2 053b 8216 | | Call 0x1,0x16 053c 00d9 | | Load_Top At_Offset_1 053d 0120 | | Execute Any,Is_Value 053e 6803 |h | Jump_Zero 0x542 053f e007 | | Load 0x0,0x7 0540 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0541 7801 |x | Jump 0x543 0542 00d9 | | Load_Top At_Offset_1 0543 e402 | | Load 0x2,0x2 0544 e212 | | Load 0x1,0x12 0545 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 0546 00d1 | | Pop_Control Pop_Count_1 0547 c404 | | Store 0x2,0x4 0548 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0549 TRAP_04a8: 0549 0007 | | Action Break_Optional 054a 480a |H | Short_Literal 0xa 054b 0092 060d | | Action Push_String_Extended,0x60d ; "Exception: " 054d 4800 |H | Short_Literal 0x0 054e 4801 |H | Short_Literal 0x1 054f e00a | | Load 0x0,0xa 0550 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0551 01cc | | Execute Vector,Catenate 0552 01cb | | Execute Vector,Append 0553 e009 | | Load 0x0,0x9 0554 1860 | ` | Execute Package,Field_Execute,Field_Number 0x60 0555 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0556 0000 0000 | | .XXX[0x2] 0558 ; -------------------------------------------------------------------------------------- 0558 ; SUBPROGRAM 0558 ; -------------------------------------------------------------------------------------- 0558 0560 | ` | .CONST 0x0560 ; Address of begin 0559 0004 | | .CONST 0x0004 ; Address of exception handler 055a 0002 | | .CONST 0x0002 ; Number of locals 055b INIT_0558: 055b e007 | | Load 0x0,0x7 055c 1b0f | | Execute Package,Field_Read,Field_Number 0xf 055d 02c7 | | Declare_Variable Any 055e 00d8 | | Load_Top At_Offset_0 055f 1c00 | | Execute_Immediate Run_Utility,0x0 0560 BODY_0558: 0560 e212 | | Load 0x1,0x12 0561 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0562 4800 |H | Short_Literal 0x0 0563 e20d | | Load 0x1,0xd 0564 170d | | Execute Task,Entry_Call,Field_Number 0xd 0565 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0566 0000 0000 | | .XXX[0x2] 0568 ; -------------------------------------------------------------------------------------- 0568 ; SUBPROGRAM 0568 ; -------------------------------------------------------------------------------------- 0568 056b | k | .CONST 0x056b ; Address of begin 0569 0004 | | .CONST 0x0004 ; Address of exception handler 056a 0001 | | .CONST 0x0001 ; Number of locals 056b BODY_0568: 056b INIT_0568: 056b 00db | | Load_Top At_Offset_3 056c 7013 |p | Jump_Nonzero 0x580 056d 00da | | Load_Top At_Offset_2 056e e7fc | | Load 0x3,-0x4 056f 0a01 | | Execute_Immediate Plus,0x1 0570 00d8 | | Load_Top At_Offset_0 0571 00e2 | | Load_Encached Integer_Cache 0572 0260 | ` | Execute Discrete,In_Type 0573 7001 |p | Jump_Nonzero 0x575 0574 0801 | | Execute_Immediate Raise,0x1 0575 e7fc | | Load 0x3,-0x4 0576 e7ff | | Load 0x3,-0x1 0577 01db | | Execute Vector,Length 0578 0273 | s | Execute Discrete,Plus 0579 00d8 | | Load_Top At_Offset_0 057a 00e2 | | Load_Encached Integer_Cache 057b 0260 | ` | Execute Discrete,In_Type 057c 7001 |p | Jump_Nonzero 0x57e 057d 0801 | | Execute_Immediate Raise,0x1 057e e7fd | | Load 0x3,-0x3 057f 01ce | | Execute Vector,Slice_Write 0580 e7fc | | Load 0x3,-0x4 0581 00db | | Load_Top At_Offset_3 0582 01db | | Execute Vector,Length 0583 0273 | s | Execute Discrete,Plus 0584 c7fc | | Store 0x3,-0x4 0585 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0586 0000 0000 | | .XXX[0x2] 0588 ; -------------------------------------------------------------------------------------- 0588 ; SUBPROGRAM 0588 ; -------------------------------------------------------------------------------------- 0588 0592 | | .CONST 0x0592 ; Address of begin 0589 0004 | | .CONST 0x0004 ; Address of exception handler 058a 0003 | | .CONST 0x0003 ; Number of locals 058b INIT_0588: 058b 00e1 | | Load_Encached Boolean_Cache 058c 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 058d 4801 |H | Short_Literal 0x1 058e e402 | | Load 0x2,0x2 058f 00e9 | | Load_Encached String_Cache 0590 035b | [ | Declare_Type Array,Constrained 0591 0337 | 7 | Declare_Variable Array 0592 BODY_0588: 0592 4800 |H | Short_Literal 0x0 0593 a402 | | Store_Unchecked 0x2,0x2 0594 00cf | | Action Mark_Auxiliary 0595 e5ff | | Load 0x2,-0x1 0596 01d9 | | Execute Vector,Reverse_Bounds 0597 0263 | c | Execute Discrete,Above_Bound 0598 7054 |pT | Jump_Nonzero 0x5ed 0599 e602 | | Load 0x3,0x2 059a 683a |h: | Jump_Zero 0x5d5 059b 00d8 | | Load_Top At_Offset_0 059c e5ff | | Load 0x2,-0x1 059d 01d7 | | Execute Vector,Field_Read 059e 00d8 | | Load_Top At_Offset_0 059f 0d44 | D | Execute_Immediate Less,0x44 05a0 7010 |p | Jump_Nonzero 0x5b1 05a1 00d8 | | Load_Top At_Offset_0 05a2 0c45 | E | Execute_Immediate Greater_Equal,0x45 05a3 700a |p | Jump_Nonzero 0x5ae 05a4 00d1 | | Pop_Control Pop_Count_1 05a5 e402 | | Load 0x2,0x2 05a6 e603 | | Load 0x3,0x3 05a7 e407 | | Load 0x2,0x7 05a8 0f01 | | Execute_Immediate Equal,0x1 05a9 e5fe | | Load 0x2,-0x2 05aa 8403 | | Call 0x2,0x3 05ab 00d1 | | Pop_Control Pop_Count_1 05ac c402 | | Store 0x2,0x2 05ad 7838 |x8 | Jump 0x5e6 05ae 0f4e | N | Execute_Immediate Equal,0x4e 05af 7004 |p | Jump_Nonzero 0x5b4 05b0 7816 |x | Jump 0x5c7 05b1 0f24 | $ | Execute_Immediate Equal,0x24 05b2 700a |p | Jump_Nonzero 0x5bd 05b3 7813 |x | Jump 0x5c7 05b4 e402 | | Load 0x2,0x2 05b5 e603 | | Load 0x3,0x3 05b6 e407 | | Load 0x2,0x7 05b7 0f01 | | Execute_Immediate Equal,0x1 05b8 e5fd | | Load 0x2,-0x3 05b9 8403 | | Call 0x2,0x3 05ba 00d1 | | Pop_Control Pop_Count_1 05bb c402 | | Store 0x2,0x2 05bc 7829 |x) | Jump 0x5e6 05bd e402 | | Load 0x2,0x2 05be e603 | | Load 0x3,0x3 05bf e407 | | Load 0x2,0x7 05c0 0f01 | | Execute_Immediate Equal,0x1 05c1 0092 0626 | &| Action Push_String_Extended,0x626 ; "$" 05c3 8403 | | Call 0x2,0x3 05c4 00d1 | | Pop_Control Pop_Count_1 05c5 c402 | | Store 0x2,0x2 05c6 781f |x | Jump 0x5e6 05c7 e402 | | Load 0x2,0x2 05c8 e603 | | Load 0x3,0x3 05c9 e407 | | Load 0x2,0x7 05ca 0f01 | | Execute_Immediate Equal,0x1 05cb 00db | | Load_Top At_Offset_3 05cc e5ff | | Load 0x2,-0x1 05cd 01d7 | | Execute Vector,Field_Read 05ce 0092 0626 | &| Action Push_String_Extended,0x626 ; "$" 05d0 01cb | | Execute Vector,Append 05d1 8403 | | Call 0x2,0x3 05d2 00d1 | | Pop_Control Pop_Count_1 05d3 c402 | | Store 0x2,0x2 05d4 7811 |x | Jump 0x5e6 05d5 00d8 | | Load_Top At_Offset_0 05d6 e5ff | | Load 0x2,-0x1 05d7 01d7 | | Execute Vector,Field_Read 05d8 0e24 | $ | Execute_Immediate Not_Equal,0x24 05d9 680c |h | Jump_Zero 0x5e6 05da e402 | | Load 0x2,0x2 05db e603 | | Load 0x3,0x3 05dc e407 | | Load 0x2,0x7 05dd 0f01 | | Execute_Immediate Equal,0x1 05de 00db | | Load_Top At_Offset_3 05df e5ff | | Load 0x2,-0x1 05e0 01d7 | | Execute Vector,Field_Read 05e1 00ea | | Load_Encached Null_String_Cache 05e2 01cb | | Execute Vector,Append 05e3 8403 | | Call 0x2,0x3 05e4 00d1 | | Pop_Control Pop_Count_1 05e5 c402 | | Store 0x2,0x2 05e6 00d8 | | Load_Top At_Offset_0 05e7 e5ff | | Load 0x2,-0x1 05e8 01d7 | | Execute Vector,Field_Read 05e9 0f24 | $ | Execute_Immediate Equal,0x24 05ea a602 | | Store_Unchecked 0x3,0x2 05eb 00c8 | | Action Pop_Auxiliary_Range 05ec 3fac |? | Loop_Increasing 0x599 05ed 00ce | | Action Pop_Auxiliary 05ee e407 | | Load 0x2,0x7 05ef 0f02 | | Execute_Immediate Equal,0x2 05f0 6805 |h | Jump_Zero 0x5f6 05f1 00d8 | | Load_Top At_Offset_0 05f2 00e9 | | Load_Encached String_Cache 05f3 01c6 | | Execute Vector,Convert_To_Formal 05f4 00cb | | Action Pop_Block_With_Result 05f5 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 05f6 4501 |E | Exit_Suprogram New_Top_Offset 0x1 05f7 0000 | | .XXX[0x1] 05f8 ; -------------------------------------------------------------------------------------- 05f8 ; SUBPROGRAM 05f8 ; -------------------------------------------------------------------------------------- 05f8 0602 | | .CONST 0x0602 ; Address of begin 05f9 0004 | | .CONST 0x0004 ; Address of exception handler 05fa 000e | | .CONST 0x000e ; Number of locals 05fb INIT_05f8: 05fb 4800 |H | Short_Literal 0x0 05fc 02cb | | Declare_Variable Entry 05fd 00bf | | Action Accept_Activation 05fe 480d |H | Short_Literal 0xd 05ff 0299 060b | | Declare_Subprogram INIT_0608,For_Accept 0601 00bc | | Action Signal_Activated 0602 BODY_05f8: 0602 1d0e | | Execute_Immediate Reference_Lex_1,0xe 0603 1d0d | | Execute_Immediate Reference_Lex_1,0xd 0604 0137 | 7 | Execute Entry,Rendezvous 0605 00bb | | Action Signal_Completion 0606 0000 0000 | | .XXX[0x2] 0608 ; -------------------------------------------------------------------------------------- 0608 ; SUBPROGRAM 0608 ; -------------------------------------------------------------------------------------- 0608 060b | | .CONST 0x060b ; Address of begin 0609 0004 | | .CONST 0x0004 ; Address of exception handler 060a 0001 | | .CONST 0x0001 ; Number of locals 060b BODY_0608: 060b INIT_0608: 060b 4100 |A | End_Rendezvous 0x0 060c ; -------------------------------------------------------------------------------------- 060c ; STRING TABLE 060c ; -------------------------------------------------------------------------------------- 060c 0038 | 8 | .STRTAB 0x0038->0x0628 ; "remote_file" 060d 0041 | A | .STRTAB 0x0041->0x062d ; "Exception: " 060e 004a | J | .STRTAB 0x004a->0x0633 ; " Unable to update create image" 060f 0066 | f | .STRTAB 0x0066->0x0642 ; "Unknown Remote Object\x0a" 0610 007a | z | .STRTAB 0x007a->0x064d ; "Data.Last_Ws_Stamp" 0611 008a | | .STRTAB 0x008a->0x0656 ; "Copy from Ws unsuccessful\x0a" 0612 00a2 | | .STRTAB 0x00a2->0x0663 ; "Last_Ws_Stamp not updated (gateway_property.Set_Value error)\x0a" 0613 00dd | | .STRTAB 0x00dd->0x0681 ; "." 0614 00dc | | .STRTAB 0x00dc->0x0682 ; "Edit.Object" 0615 00e5 | | .STRTAB 0x00e5->0x0687 ; "Copy to ws unsuccessful\x0a" 0616 00fb | | .STRTAB 0x00fb->0x0693 ; "Unable to get new Ws Stamp Date\x0a" 0617 0119 | | .STRTAB 0x0119->0x06a3 ; "Connected" 0618 0120 | | .STRTAB 0x0120->0x06a8 ; "No Server Connected\x0a" 0619 0132 | 2 | .STRTAB 0x0132->0x06b2 ; "Data.Host" 061a 0139 | 9 | .STRTAB 0x0139->0x06b6 ; "Data.Context" 061b 0143 | C | .STRTAB 0x0143->0x06bc ; "Data.Context_Separator" 061c 0157 | W | .STRTAB 0x0157->0x06c7 ; "Data.Name" 061d 015e | ^ | .STRTAB 0x015e->0x06cc ; "Data.Suffix" 061e 0167 | g | .STRTAB 0x0167->0x06d1 ; "Shell.Timeout" 061f 0172 | r | .STRTAB 0x0172->0x06d8 ; "Unable to Commit Changes\x0a" 0620 0189 | | .STRTAB 0x0189->0x06e4 ; "Semanticize.Command" 0621 019a | | .STRTAB 0x019a->0x06ee ; "Promot.Command1" 0622 01a7 | | .STRTAB 0x01a7->0x06f5 ; "Promot.Command2" 0623 01b4 | | .STRTAB 0x01b4->0x06fd ; "Image is Read_Only\x0a" 0624 01c5 | | .STRTAB 0x01c5->0x0706 ; "Unable to commit changes\x0a" 0625 01dc | | .STRTAB 0x01dc->0x0713 ; "Format.Command" 0626 01e8 | | .STRTAB 0x01e8->0x071a ; "$" 0627 01e7 | | .STREND 0x01e7->0x071a 0628 7265 6d6f |remo| .STRTAB_STRINGS 071b 0000 0000 | | .BLANK 0000[0x5] 0720 ; -------------------------------------------------------------------------------------- 0720 ; Debug Table 0720 ; -------------------------------------------------------------------------------------- 0720 0004 0008 | | .DEBUG4 0x0004,0x0008,0xa6e3,0x0000,0x0001,0x0000 0726 8e9f 5580 | U | .XXX[0xda] 0728 0000 0006 | | 072a 9668 0198 | h | 072c 0004 18c1 | | 072e 3c00 0000 |< | 0730 0000 0069 | i| 0732 801a 81a0 | | 0734 068b dcfa | | 0736 ac00 0000 | | 0738 0034 ee80 | 4 | 073a 0cc0 0020 | | 073c c609 e000 | | 073e 0000 0000 | | 0740 034c 00d4 | L | 0742 fa00 349a | 4 | 0744 27d5 6000 |' ` | 0746 0000 01a9 | | 0748 4e00 6600 |N f | 074a 0106 304f | 0O| 074c 0000 0000 | | 074e 0000 1a60 | `| 0750 06af 3801 | 8 | 0752 a6ab 3eab | > | 0754 0000 0000 | | 0756 0d59 4003 | Y@ | 0758 3000 0831 |0 1| 075a 8278 0000 | x | 075c 0000 0000 | | 075e d300 35b5 | 5 | 0760 000d 4429 | D)| 0762 f558 0000 | X | 0764 0000 6b40 | k@| 0766 8019 8000 | | 0768 418c 13c0 |A | 076a 0000 0000 | | 076c 0006 9801 | | 076e af82 006a | j| 0770 97cf aac0 | | 0772 0000 0003 | | 0774 5db8 00cc |] | 0776 0002 0c60 | `| 0778 9e00 0000 | | 077a 0000 0034 | 4| 077c c00d 8ae0 | | 077e 0358 727d | Xr}| 0780 5600 0000 |V | 0782 001b 0b60 | `| 0784 0660 0010 | ` | 0786 6304 f000 |c | 0788 0000 0000 | | 078a 01a6 006c | l| 078c cd80 1ae1 | | 078e 33ea b000 |3 | 0790 0000 00d9 | | 0792 4800 3300 |H 3 | 0794 0083 1827 | '| 0796 8000 0000 | | 0798 0000 0d30 | 0| 079a 036a 2000 | j | 079c d7f6 9f55 | U| 079e 8000 0000 | | 07a0 06d1 a801 | | 07a2 9800 0418 | | 07a4 c13c 0000 | < | 07a6 0000 0000 | | 07a8 6980 1b6e |i n| 07aa a006 c71c | | 07ac faac 0000 | | 07ae 0000 36c8 | 6 | 07b0 800c c000 | | 07b2 20c6 09e0 | | 07b4 0000 0000 | | 07b6 0003 4c00 | L | 07b8 dc62 0036 | b 6| 07ba 7427 d560 |t' `| 07bc 0000 0001 | | 07be b81e 0066 | f| 07c0 0001 0630 | 0| 07c2 4f00 0000 |O | 07c4 0000 001a | | 07c6 6006 ea78 |` x| 07c8 01b5 7b3e | {>| 07ca ab00 0000 | | 07cc 000d cfc0 | | 07ce 0330 0008 | 0 | 07d0 3182 7800 |1 x | 07d2 0000 0000 | | 07d4 00d3 0037 | 7| 07d6 8f00 0dba | | 07d8 a9f5 5800 | X | 07da 0000 006e | n| 07dc f480 1980 | | 07de 0041 8c13 | A | 07e0 c000 0000 | | 07e2 0000 0698 | | 07e4 0000 0000 | | 07e6 6e4b cfaa |nK | 07e8 c000 0000 | | 07ea 0386 5000 | P | 07ec 0200 020c | | 07ee 609e 0000 |` | 07f0 0000 0000 | | 07f2 3340 c800 |3@ | 07f4 0000 0000 | | 07f6 0970 bb05 | p | 07f8 2003 7b58 | {X| 07fa 00df 2983 | ) | 07fc 1829 801b | ) | 07fe ed60 0000 | ` |