|
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 | ` |