|
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: 3072 (0xc00) Notes: 00_class, 5900_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_373c93
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000 └─ ⟦5a81ac88f⟧ »Space Info Vol 1« └─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code 0001 5900 |Y | .CONST 0x5900 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 04c0 | | .CONST 0x04c0 ; 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 0002 | | .CONST 0x0002 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 0020 | | .CONST 0x0020 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0011 | | .CONST 0x0011 ; Number of locals 000b INIT_0008: 000b 029a 002b | +| Declare_Subprogram INIT_0028,For_Outer_Call,Visible,Unelaborated 000d 029a 007b | {| Declare_Subprogram INIT_0078,For_Outer_Call,Visible,Unelaborated 000f 029a 010b | | Declare_Subprogram INIT_0108,For_Outer_Call,Visible,Unelaborated 0011 029a 033b | ;| Declare_Subprogram INIT_0338,For_Outer_Call,Visible,Unelaborated 0013 029a 0383 | | Declare_Subprogram INIT_0380,For_Outer_Call,Visible,Unelaborated 0015 00bf | | Action Accept_Activation 0016 1d0d | | Execute_Immediate Reference_Lex_1,0xd 0017 00c7 | | Action Elaborate_Subprogram 0018 1d0e | | Execute_Immediate Reference_Lex_1,0xe 0019 00c7 | | Action Elaborate_Subprogram 001a 1d11 | | Execute_Immediate Reference_Lex_1,0x11 001b 00c7 | | Action Elaborate_Subprogram 001c 1d10 | | Execute_Immediate Reference_Lex_1,0x10 001d 00c7 | | Action Elaborate_Subprogram 001e 1d0f | | Execute_Immediate Reference_Lex_1,0xf 001f 00c7 | | Action Elaborate_Subprogram 0020 BODY_0008: 0020 00bc | | Action Signal_Activated 0021 00bb | | Action Signal_Completion 0022 0000 0000 | | .BLANK 0000[0x6] 0028 ; -------------------------------------------------------------------------------------- 0028 ; SUBPROGRAM 0028 ; -------------------------------------------------------------------------------------- 0028 002b | + | .CONST 0x002b ; Address of begin 0029 0004 | | .CONST 0x0004 ; Address of exception handler 002a 0001 | | .CONST 0x0001 ; Number of locals 002b BODY_0028: 002b INIT_0028: 002b e002 | | Load 0x0,0x2 002c 1b19 | | Execute Package,Field_Read,Field_Number 0x19 002d e5fe | | Load 0x2,-0x2 002e 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 002f 0120 | | Execute Any,Is_Value 0030 6803 |h | Jump_Zero 0x34 0031 e003 | | Load 0x0,0x3 0032 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0033 7802 |x | Jump 0x36 0034 e5fe | | Load 0x2,-0x2 0035 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0036 e002 | | Load 0x0,0x2 0037 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0038 4801 |H | Short_Literal 0x1 0039 4806 |H | Short_Literal 0x6 003a 00e9 | | Load_Encached String_Cache 003b 0334 | 4 | Declare_Variable Array,With_Constraint 003c 5037 |P7 | Indirect_Literal Any,0x74,{0x5443502f, 0x49502020} 003d e003 | | Load 0x0,0x3 003e 181a | | Execute Package,Field_Execute,Field_Number 0x1a 003f e5fe | | Load 0x2,-0x2 0040 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0041 e5fe | | Load 0x2,-0x2 0042 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0043 00db | | Load_Top At_Offset_3 0044 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0045 e003 | | Load 0x0,0x3 0046 181f | | Execute Package,Field_Execute,Field_Number 0x1f 0047 6804 |h | Jump_Zero 0x4c 0048 0092 03ac | | Action Push_String_Extended,0x3ac ; "connection ouverte OK" 004a e004 | | Load 0x0,0x4 004b 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 004c 00cf | | Action Mark_Auxiliary 004d 7812 |x | Jump 0x60 004e e002 | | Load 0x0,0x2 004f 1b19 | | Execute Package,Field_Read,Field_Number 0x19 0050 601f |` | Indirect_Literal Discrete,0x70,{0x00007fff, 0xffffffff} 0051 e5ff | | Load 0x2,-0x1 0052 340a |4 | Execute Record,Field_Reference,Field_Number 0xa 0053 e5ff | | Load 0x2,-0x1 0054 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3 0055 e5fe | | Load 0x2,-0x2 0056 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0057 e003 | | Load 0x0,0x3 0058 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0059 e5fe | | Load 0x2,-0x2 005a 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 005b 0092 03ad | | Action Push_String_Extended,0x3ad ; "essai connection transmission" 005d e004 | | Load 0x0,0x4 005e 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 005f 00c9 | | Action Pop_Auxiliary_Loop 0060 e5fe | | Load 0x2,-0x2 0061 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0062 e003 | | Load 0x0,0x3 0063 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0064 6fe9 |o | Jump_Zero 0x4e 0065 00ce | | Action Pop_Auxiliary 0066 00db | | Load_Top At_Offset_3 0067 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0068 e003 | | Load 0x0,0x3 0069 1820 | | Execute Package,Field_Execute,Field_Number 0x20 006a 6804 |h | Jump_Zero 0x6f 006b 0092 03ae | | Action Push_String_Extended,0x3ae ; "Connection OK" 006d e004 | | Load 0x0,0x4 006e 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 006f 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0070 0000 7fff | | .LITERAL {0x00007fff, 0xffffffff} 0074 5443 502f |TCP/| .LITERAL {0x5443502f, 0x49502020} 0078 ; -------------------------------------------------------------------------------------- 0078 ; SUBPROGRAM 0078 ; -------------------------------------------------------------------------------------- 0078 007f | | .CONST 0x007f ; Address of begin 0079 0004 | | .CONST 0x0004 ; Address of exception handler 007a 0003 | | .CONST 0x0003 ; Number of locals 007b INIT_0078: 007b e005 | | Load 0x0,0x5 007c 1b11 | | Execute Package,Field_Read,Field_Number 0x11 007d 029f 0393 | | Declare_Subprogram INIT_0390,For_Call 007f BODY_0078: 007f 00d9 | | Load_Top At_Offset_1 0080 e5ff | | Load 0x2,-0x1 0081 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0082 e006 | | Load 0x0,0x6 0083 011c | | Execute Any,Convert_Unchecked 0084 1c01 | | Execute_Immediate Run_Utility,0x1 0085 e005 | | Load 0x0,0x5 0086 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0087 003a | : | Store_Top Access,At_Offset_2 0088 00d9 | | Load_Top At_Offset_1 0089 0092 03af | | Action Push_String_Extended,0x3af ; "+++" 008b e005 | | Load 0x0,0x5 008c 181d | | Execute Package,Field_Execute,Field_Number 0x1d 008d 003a | : | Store_Top Access,At_Offset_2 008e e5fe | | Load 0x2,-0x2 008f 00da | | Load_Top At_Offset_2 0090 8403 | | Call 0x2,0x3 0091 00d1 | | Pop_Control Pop_Count_1 0092 e5fe | | Load 0x2,-0x2 0093 e5ff | | Load 0x2,-0x1 0094 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 0095 e007 | | Load 0x0,0x7 0096 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0097 e005 | | Load 0x0,0x5 0098 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0099 8403 | | Call 0x2,0x3 009a 00d1 | | Pop_Control Pop_Count_1 009b e5fe | | Load 0x2,-0x2 009c e5ff | | Load 0x2,-0x1 009d 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 009e 00e0 | | Load_Encached Standard_Cache 009f 1818 | | Execute Package,Field_Execute,Field_Number 0x18 00a0 e005 | | Load 0x0,0x5 00a1 1817 | | Execute Package,Field_Execute,Field_Number 0x17 00a2 8403 | | Call 0x2,0x3 00a3 00d1 | | Pop_Control Pop_Count_1 00a4 e5fe | | Load 0x2,-0x2 00a5 e5ff | | Load 0x2,-0x1 00a6 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3 00a7 e007 | | Load 0x0,0x7 00a8 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00a9 e005 | | Load 0x0,0x5 00aa 1817 | | Execute Package,Field_Execute,Field_Number 0x17 00ab 8403 | | Call 0x2,0x3 00ac 00d1 | | Pop_Control Pop_Count_1 00ad e5fe | | Load 0x2,-0x2 00ae e5ff | | Load 0x2,-0x1 00af 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 00b0 00e0 | | Load_Encached Standard_Cache 00b1 1818 | | Execute Package,Field_Execute,Field_Number 0x18 00b2 e005 | | Load 0x0,0x5 00b3 1817 | | Execute Package,Field_Execute,Field_Number 0x17 00b4 8403 | | Call 0x2,0x3 00b5 00d1 | | Pop_Control Pop_Count_1 00b6 e5fe | | Load 0x2,-0x2 00b7 e5ff | | Load 0x2,-0x1 00b8 3405 |4 | Execute Record,Field_Reference,Field_Number 0x5 00b9 e007 | | Load 0x0,0x7 00ba 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00bb e005 | | Load 0x0,0x5 00bc 1817 | | Execute Package,Field_Execute,Field_Number 0x17 00bd 8403 | | Call 0x2,0x3 00be 00d1 | | Pop_Control Pop_Count_1 00bf e5ff | | Load 0x2,-0x1 00c0 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 00c1 0f01 | | Execute_Immediate Equal,0x1 00c2 6808 |h | Jump_Zero 0xcb 00c3 e5fe | | Load 0x2,-0x2 00c4 0092 03b0 | | Action Push_String_Extended,0x3b0 ; " 1" 00c6 e005 | | Load 0x0,0x5 00c7 1817 | | Execute Package,Field_Execute,Field_Number 0x17 00c8 8403 | | Call 0x2,0x3 00c9 00d1 | | Pop_Control Pop_Count_1 00ca 7807 |x | Jump 0xd2 00cb e5fe | | Load 0x2,-0x2 00cc 0092 03b1 | | Action Push_String_Extended,0x3b1 ; " 0" 00ce e005 | | Load 0x0,0x5 00cf 1817 | | Execute Package,Field_Execute,Field_Number 0x17 00d0 8403 | | Call 0x2,0x3 00d1 00d1 | | Pop_Control Pop_Count_1 00d2 e5fe | | Load 0x2,-0x2 00d3 e5ff | | Load 0x2,-0x1 00d4 3c08 |< | Execute Record,Field_Read,Field_Number 0x8 00d5 00e0 | | Load_Encached Standard_Cache 00d6 1818 | | Execute Package,Field_Execute,Field_Number 0x18 00d7 e005 | | Load 0x0,0x5 00d8 1817 | | Execute Package,Field_Execute,Field_Number 0x17 00d9 8403 | | Call 0x2,0x3 00da 00d1 | | Pop_Control Pop_Count_1 00db e5fe | | Load 0x2,-0x2 00dc e5ff | | Load 0x2,-0x1 00dd 3409 |4 | Execute Record,Field_Reference,Field_Number 0x9 00de e007 | | Load 0x0,0x7 00df 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00e0 e005 | | Load 0x0,0x5 00e1 1817 | | Execute Package,Field_Execute,Field_Number 0x17 00e2 8403 | | Call 0x2,0x3 00e3 00d1 | | Pop_Control Pop_Count_1 00e4 e5fe | | Load 0x2,-0x2 00e5 e5ff | | Load 0x2,-0x1 00e6 340a |4 | Execute Record,Field_Reference,Field_Number 0xa 00e7 e007 | | Load 0x0,0x7 00e8 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00e9 e005 | | Load 0x0,0x5 00ea 1817 | | Execute Package,Field_Execute,Field_Number 0x17 00eb 8403 | | Call 0x2,0x3 00ec 00d1 | | Pop_Control Pop_Count_1 00ed e5fe | | Load 0x2,-0x2 00ee e5ff | | Load 0x2,-0x1 00ef 340b |4 | Execute Record,Field_Reference,Field_Number 0xb 00f0 e007 | | Load 0x0,0x7 00f1 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00f2 e005 | | Load 0x0,0x5 00f3 1817 | | Execute Package,Field_Execute,Field_Number 0x17 00f4 8403 | | Call 0x2,0x3 00f5 00d1 | | Pop_Control Pop_Count_1 00f6 00d9 | | Load_Top At_Offset_1 00f7 e5ff | | Load 0x2,-0x1 00f8 3c06 |< | Execute Record,Field_Read,Field_Number 0x6 00f9 e005 | | Load 0x0,0x5 00fa 1818 | | Execute Package,Field_Execute,Field_Number 0x18 00fb 003a | : | Store_Top Access,At_Offset_2 00fc 00d9 | | Load_Top At_Offset_1 00fd 0092 03af | | Action Push_String_Extended,0x3af ; "+++" 00ff e005 | | Load 0x0,0x5 0100 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0101 003a | : | Store_Top Access,At_Offset_2 0102 e5fe | | Load 0x2,-0x2 0103 00da | | Load_Top At_Offset_2 0104 8403 | | Call 0x2,0x3 0105 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0106 0000 0000 | | .XXX[0x2] 0108 ; -------------------------------------------------------------------------------------- 0108 ; SUBPROGRAM 0108 ; -------------------------------------------------------------------------------------- 0108 0124 | $ | .CONST 0x0124 ; Address of begin 0109 0004 | | .CONST 0x0004 ; Address of exception handler 010a 0008 | | .CONST 0x0008 ; Number of locals 010b INIT_0108: 010b 4801 |H | Short_Literal 0x1 010c 48ff |H | Short_Literal 0xff 010d e008 | | Load 0x0,0x8 010e 1b0e | | Execute Package,Field_Read,Field_Number 0xe 010f 035b | [ | Declare_Type Array,Constrained 0110 0337 | 7 | Declare_Variable Array 0111 00e4 | | Load_Encached Positive_Cache 0112 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 0113 4801 |H | Short_Literal 0x1 0114 4802 |H | Short_Literal 0x2 0115 e008 | | Load 0x0,0x8 0116 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0117 035b | [ | Declare_Type Array,Constrained 0118 0337 | 7 | Declare_Variable Array 0119 4801 |H | Short_Literal 0x1 011a 4804 |H | Short_Literal 0x4 011b e008 | | Load 0x0,0x8 011c 1b0e | | Execute Package,Field_Read,Field_Number 0xe 011d 035b | [ | Declare_Type Array,Constrained 011e 0337 | 7 | Declare_Variable Array 011f e005 | | Load 0x0,0x5 0120 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0121 00e1 | | Load_Encached Boolean_Cache 0122 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0123 00e4 | | Load_Encached Positive_Cache 0124 BODY_0108: 0124 00e3 | | Load_Encached Natural_Cache 0125 e402 | | Load 0x2,0x2 0126 e002 | | Load 0x0,0x2 0127 1b19 | | Execute Package,Field_Read,Field_Number 0x19 0128 6207 |b | Indirect_Literal Discrete,0x330,{0x00007fff, 0xffffffff} 0129 e5fe | | Load 0x2,-0x2 012a 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 012b e003 | | Load 0x0,0x3 012c 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 012d e5fe | | Load 0x2,-0x2 012e 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 012f 00d1 | | Pop_Control Pop_Count_1 0130 e5fe | | Load 0x2,-0x2 0131 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0132 e402 | | Load 0x2,0x2 0133 e007 | | Load 0x0,0x7 0134 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0135 e005 | | Load 0x0,0x5 0136 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0137 003b | ; | Store_Top Access,At_Offset_3 0138 4800 |H | Short_Literal 0x0 0139 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 013a 4801 |H | Short_Literal 0x1 013b a403 | | Store_Unchecked 0x2,0x3 013c 00cf | | Action Mark_Auxiliary 013d 7833 |x3 | Jump 0x171 013e e403 | | Load 0x2,0x3 013f e406 | | Load 0x2,0x6 0140 e005 | | Load 0x0,0x5 0141 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0142 0f2b | + | Execute_Immediate Equal,0x2b 0143 6829 |h) | Jump_Zero 0x16d 0144 e403 | | Load 0x2,0x3 0145 e406 | | Load 0x2,0x6 0146 e005 | | Load 0x0,0x5 0147 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0148 0f2b | + | Execute_Immediate Equal,0x2b 0149 681f |h | Jump_Zero 0x169 014a e403 | | Load 0x2,0x3 014b e406 | | Load 0x2,0x6 014c e005 | | Load 0x0,0x5 014d 1814 | | Execute Package,Field_Execute,Field_Number 0x14 014e 0f2b | + | Execute_Immediate Equal,0x2b 014f 6815 |h | Jump_Zero 0x165 0150 e402 | | Load 0x2,0x2 0151 e007 | | Load 0x0,0x7 0152 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0153 e005 | | Load 0x0,0x5 0154 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0155 a406 | | Store_Unchecked 0x2,0x6 0156 00db | | Load_Top At_Offset_3 0157 4820 |H | Short_Literal 0x20 0158 e403 | | Load 0x2,0x3 0159 0aff | | Execute_Immediate Plus,-0x1 015a 00d8 | | Load_Top At_Offset_0 015b 00e3 | | Load_Encached Natural_Cache 015c 0260 | ` | Execute Discrete,In_Type 015d 7001 |p | Jump_Nonzero 0x15f 015e 0801 | | Execute_Immediate Raise,0x1 015f e005 | | Load 0x0,0x5 0160 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 0161 c406 | | Store 0x2,0x6 0162 4801 |H | Short_Literal 0x1 0163 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 0164 780b |x | Jump 0x170 0165 e403 | | Load 0x2,0x3 0166 0a01 | | Execute_Immediate Plus,0x1 0167 c403 | | Store 0x2,0x3 0168 7807 |x | Jump 0x170 0169 e403 | | Load 0x2,0x3 016a 0a01 | | Execute_Immediate Plus,0x1 016b c403 | | Store 0x2,0x3 016c 7803 |x | Jump 0x170 016d e403 | | Load 0x2,0x3 016e 0a01 | | Execute_Immediate Plus,0x1 016f c403 | | Store 0x2,0x3 0170 00c9 | | Action Pop_Auxiliary_Loop 0171 00da | | Load_Top At_Offset_2 0172 0f00 | | Execute_Immediate Equal,0x0 0173 e403 | | Load 0x2,0x3 0174 0e04 | | Execute_Immediate Not_Equal,0x4 0175 0279 | y | Execute Discrete,And 0176 77c7 |w | Jump_Nonzero 0x13e 0177 00ce | | Action Pop_Auxiliary 0178 0092 03b2 | | Action Push_String_Extended,0x3b2 ; " The_Message.The_Command " 017a e004 | | Load 0x0,0x4 017b 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 017c 00da | | Load_Top At_Offset_2 017d e005 | | Load 0x0,0x5 017e 1816 | | Execute Package,Field_Execute,Field_Number 0x16 017f e004 | | Load 0x0,0x4 0180 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 0181 00e4 | | Load_Encached Positive_Cache 0182 e009 | | Load 0x0,0x9 0183 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0184 e406 | | Load 0x2,0x6 0185 e005 | | Load 0x0,0x5 0186 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0187 e009 | | Load 0x0,0x9 0188 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0189 e5ff | | Load 0x2,-0x1 018a 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 018b 0059 | Y | Store_Top Discrete,At_Offset_1 018c 00ea | | Load_Encached Null_String_Cache 018d e004 | | Load 0x0,0x4 018e 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 018f 0092 03b3 | | Action Push_String_Extended,0x3b3 ; " The_Message.The_Id_Machine_Send " 0191 e004 | | Load 0x0,0x4 0192 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 0193 00e3 | | Load_Encached Natural_Cache 0194 e405 | | Load 0x2,0x5 0195 e002 | | Load 0x0,0x2 0196 1b19 | | Execute Package,Field_Read,Field_Number 0x19 0197 6198 |a | Indirect_Literal Discrete,0x330,{0x00007fff, 0xffffffff} 0198 e5fe | | Load 0x2,-0x2 0199 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 019a e003 | | Load 0x0,0x3 019b 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 019c e5fe | | Load 0x2,-0x2 019d 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 019e 00d1 | | Pop_Control Pop_Count_1 019f e5fe | | Load 0x2,-0x2 01a0 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 01a1 00db | | Load_Top At_Offset_3 01a2 e5ff | | Load 0x2,-0x1 01a3 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 01a4 00db | | Load_Top At_Offset_3 01a5 e007 | | Load 0x0,0x7 01a6 1813 | | Execute Package,Field_Execute,Field_Number 0x13 01a7 e004 | | Load 0x0,0x4 01a8 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 01a9 00e3 | | Load_Encached Natural_Cache 01aa e404 | | Load 0x2,0x4 01ab e002 | | Load 0x0,0x2 01ac 1b19 | | Execute Package,Field_Read,Field_Number 0x19 01ad 6182 |a | Indirect_Literal Discrete,0x330,{0x00007fff, 0xffffffff} 01ae e5fe | | Load 0x2,-0x2 01af 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 01b0 e003 | | Load 0x0,0x3 01b1 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 01b2 e5fe | | Load 0x2,-0x2 01b3 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 01b4 00d1 | | Pop_Control Pop_Count_1 01b5 e5fe | | Load 0x2,-0x2 01b6 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 01b7 e404 | | Load 0x2,0x4 01b8 e007 | | Load 0x0,0x7 01b9 1813 | | Execute Package,Field_Execute,Field_Number 0x13 01ba 00e2 | | Load_Encached Integer_Cache 01bb 00e0 | | Load_Encached Standard_Cache 01bc 1819 | | Execute Package,Field_Execute,Field_Number 0x19 01bd e5ff | | Load 0x2,-0x1 01be 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 01bf 00ea | | Load_Encached Null_String_Cache 01c0 e004 | | Load 0x0,0x4 01c1 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 01c2 0092 03b4 | | Action Push_String_Extended,0x3b4 ; " The_Message.The_Id_User_Send " 01c4 e004 | | Load 0x0,0x4 01c5 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 01c6 e404 | | Load 0x2,0x4 01c7 e007 | | Load 0x0,0x7 01c8 1813 | | Execute Package,Field_Execute,Field_Number 0x13 01c9 e004 | | Load 0x0,0x4 01ca 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 01cb 00ea | | Load_Encached Null_String_Cache 01cc e004 | | Load 0x0,0x4 01cd 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 01ce 0092 03b5 | | Action Push_String_Extended,0x3b5 ; " The_Message.The_Id_Machine_Receive " 01d0 e004 | | Load 0x0,0x4 01d1 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 01d2 00e3 | | Load_Encached Natural_Cache 01d3 e405 | | Load 0x2,0x5 01d4 e002 | | Load 0x0,0x2 01d5 1b19 | | Execute Package,Field_Read,Field_Number 0x19 01d6 6159 |aY | Indirect_Literal Discrete,0x330,{0x00007fff, 0xffffffff} 01d7 e5fe | | Load 0x2,-0x2 01d8 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 01d9 e003 | | Load 0x0,0x3 01da 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 01db e5fe | | Load 0x2,-0x2 01dc 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 01dd 00d1 | | Pop_Control Pop_Count_1 01de e5fe | | Load 0x2,-0x2 01df 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 01e0 00db | | Load_Top At_Offset_3 01e1 e5ff | | Load 0x2,-0x1 01e2 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 01e3 00db | | Load_Top At_Offset_3 01e4 e007 | | Load 0x0,0x7 01e5 1813 | | Execute Package,Field_Execute,Field_Number 0x13 01e6 e004 | | Load 0x0,0x4 01e7 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 01e8 00e3 | | Load_Encached Natural_Cache 01e9 e404 | | Load 0x2,0x4 01ea e002 | | Load 0x0,0x2 01eb 1b19 | | Execute Package,Field_Read,Field_Number 0x19 01ec 6143 |aC | Indirect_Literal Discrete,0x330,{0x00007fff, 0xffffffff} 01ed e5fe | | Load 0x2,-0x2 01ee 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 01ef e003 | | Load 0x0,0x3 01f0 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 01f1 e5fe | | Load 0x2,-0x2 01f2 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 01f3 00d1 | | Pop_Control Pop_Count_1 01f4 e5fe | | Load 0x2,-0x2 01f5 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 01f6 e404 | | Load 0x2,0x4 01f7 e007 | | Load 0x0,0x7 01f8 1813 | | Execute Package,Field_Execute,Field_Number 0x13 01f9 00e2 | | Load_Encached Integer_Cache 01fa 00e0 | | Load_Encached Standard_Cache 01fb 1819 | | Execute Package,Field_Execute,Field_Number 0x19 01fc e5ff | | Load 0x2,-0x1 01fd 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 01fe 00ea | | Load_Encached Null_String_Cache 01ff e004 | | Load 0x0,0x4 0200 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 0201 0092 03b6 | | Action Push_String_Extended,0x3b6 ; " The_Message.The_Id_User_Receive " 0203 e004 | | Load 0x0,0x4 0204 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 0205 e404 | | Load 0x2,0x4 0206 e007 | | Load 0x0,0x7 0207 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0208 e004 | | Load 0x0,0x4 0209 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 020a 00ea | | Load_Encached Null_String_Cache 020b e004 | | Load 0x0,0x4 020c 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 020d 0092 03b7 | | Action Push_String_Extended,0x3b7 ; " The_Message.The_Id_Machine_To_Execute " 020f e004 | | Load 0x0,0x4 0210 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 0211 00e3 | | Load_Encached Natural_Cache 0212 e405 | | Load 0x2,0x5 0213 e002 | | Load 0x0,0x2 0214 1b19 | | Execute Package,Field_Read,Field_Number 0x19 0215 611a |a | Indirect_Literal Discrete,0x330,{0x00007fff, 0xffffffff} 0216 e5fe | | Load 0x2,-0x2 0217 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0218 e003 | | Load 0x0,0x3 0219 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 021a e5fe | | Load 0x2,-0x2 021b 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 021c 00d1 | | Pop_Control Pop_Count_1 021d e5fe | | Load 0x2,-0x2 021e 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 021f 00db | | Load_Top At_Offset_3 0220 e5ff | | Load 0x2,-0x1 0221 3805 |8 | Execute Record,Field_Write,Field_Number 0x5 0222 00db | | Load_Top At_Offset_3 0223 e007 | | Load 0x0,0x7 0224 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0225 e004 | | Load 0x0,0x4 0226 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 0227 00e3 | | Load_Encached Natural_Cache 0228 e404 | | Load 0x2,0x4 0229 e002 | | Load 0x0,0x2 022a 1b19 | | Execute Package,Field_Read,Field_Number 0x19 022b 6104 |a | Indirect_Literal Discrete,0x330,{0x00007fff, 0xffffffff} 022c e5fe | | Load 0x2,-0x2 022d 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 022e e003 | | Load 0x0,0x3 022f 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 0230 e5fe | | Load 0x2,-0x2 0231 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0232 00d1 | | Pop_Control Pop_Count_1 0233 e5fe | | Load 0x2,-0x2 0234 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0235 00ea | | Load_Encached Null_String_Cache 0236 e004 | | Load 0x0,0x4 0237 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 0238 0092 03b8 | | Action Push_String_Extended,0x3b8 ; " The_Message.Command_Is_Ok " 023a e004 | | Load 0x0,0x4 023b 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 023c e404 | | Load 0x2,0x4 023d e007 | | Load 0x0,0x7 023e 1813 | | Execute Package,Field_Execute,Field_Number 0x13 023f 00e2 | | Load_Encached Integer_Cache 0240 00e0 | | Load_Encached Standard_Cache 0241 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0242 0f01 | | Execute_Immediate Equal,0x1 0243 6808 |h | Jump_Zero 0x24c 0244 4801 |H | Short_Literal 0x1 0245 e5ff | | Load 0x2,-0x1 0246 3807 |8 | Execute Record,Field_Write,Field_Number 0x7 0247 0092 03b9 | | Action Push_String_Extended,0x3b9 ; "True" 0249 e004 | | Load 0x0,0x4 024a 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 024b 7807 |x | Jump 0x253 024c 4800 |H | Short_Literal 0x0 024d e5ff | | Load 0x2,-0x1 024e 3807 |8 | Execute Record,Field_Write,Field_Number 0x7 024f 0092 03ba | | Action Push_String_Extended,0x3ba ; "False" 0251 e004 | | Load 0x0,0x4 0252 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 0253 00e3 | | Load_Encached Natural_Cache 0254 e404 | | Load 0x2,0x4 0255 e002 | | Load 0x0,0x2 0256 1b19 | | Execute Package,Field_Read,Field_Number 0x19 0257 60d8 |` | Indirect_Literal Discrete,0x330,{0x00007fff, 0xffffffff} 0258 e5fe | | Load 0x2,-0x2 0259 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 025a e003 | | Load 0x0,0x3 025b 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 025c e5fe | | Load 0x2,-0x2 025d 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 025e 00d1 | | Pop_Control Pop_Count_1 025f e5fe | | Load 0x2,-0x2 0260 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0261 e404 | | Load 0x2,0x4 0262 e007 | | Load 0x0,0x7 0263 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0264 00e2 | | Load_Encached Integer_Cache 0265 00e0 | | Load_Encached Standard_Cache 0266 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0267 e5ff | | Load 0x2,-0x1 0268 3808 |8 | Execute Record,Field_Write,Field_Number 0x8 0269 00ea | | Load_Encached Null_String_Cache 026a e004 | | Load 0x0,0x4 026b 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 026c 0092 03bb | | Action Push_String_Extended,0x3bb ; " The_Message.Number_Of_The_Question " 026e e004 | | Load 0x0,0x4 026f 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 0270 e404 | | Load 0x2,0x4 0271 e007 | | Load 0x0,0x7 0272 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0273 e004 | | Load 0x0,0x4 0274 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 0275 00ea | | Load_Encached Null_String_Cache 0276 e004 | | Load 0x0,0x4 0277 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 0278 0092 03bc | | Action Push_String_Extended,0x3bc ; " The_Message.The_Socket_Send " 027a e004 | | Load 0x0,0x4 027b 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 027c 00e3 | | Load_Encached Natural_Cache 027d e405 | | Load 0x2,0x5 027e e002 | | Load 0x0,0x2 027f 1b19 | | Execute Package,Field_Read,Field_Number 0x19 0280 60af |` | Indirect_Literal Discrete,0x330,{0x00007fff, 0xffffffff} 0281 e5fe | | Load 0x2,-0x2 0282 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0283 e003 | | Load 0x0,0x3 0284 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 0285 e5fe | | Load 0x2,-0x2 0286 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0287 00d1 | | Pop_Control Pop_Count_1 0288 e5fe | | Load 0x2,-0x2 0289 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 028a 00db | | Load_Top At_Offset_3 028b e5ff | | Load 0x2,-0x1 028c 3809 |8 | Execute Record,Field_Write,Field_Number 0x9 028d 00db | | Load_Top At_Offset_3 028e e007 | | Load 0x0,0x7 028f 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0290 e004 | | Load 0x0,0x4 0291 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 0292 00ea | | Load_Encached Null_String_Cache 0293 e004 | | Load 0x0,0x4 0294 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 0295 0092 03bd | | Action Push_String_Extended,0x3bd ; " The_Message.The_Socket_Receive " 0297 e004 | | Load 0x0,0x4 0298 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 0299 00e3 | | Load_Encached Natural_Cache 029a e405 | | Load 0x2,0x5 029b e002 | | Load 0x0,0x2 029c 1b19 | | Execute Package,Field_Read,Field_Number 0x19 029d 6092 |` | Indirect_Literal Discrete,0x330,{0x00007fff, 0xffffffff} 029e e5fe | | Load 0x2,-0x2 029f 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 02a0 e003 | | Load 0x0,0x3 02a1 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 02a2 e5fe | | Load 0x2,-0x2 02a3 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 02a4 00d1 | | Pop_Control Pop_Count_1 02a5 e5fe | | Load 0x2,-0x2 02a6 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 02a7 00db | | Load_Top At_Offset_3 02a8 e5ff | | Load 0x2,-0x1 02a9 380a |8 | Execute Record,Field_Write,Field_Number 0xa 02aa 00db | | Load_Top At_Offset_3 02ab e007 | | Load 0x0,0x7 02ac 1813 | | Execute Package,Field_Execute,Field_Number 0x13 02ad e004 | | Load 0x0,0x4 02ae 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 02af 00ea | | Load_Encached Null_String_Cache 02b0 e004 | | Load 0x0,0x4 02b1 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 02b2 0092 03be | | Action Push_String_Extended,0x3be ; " The_Message.The_Socket_To_Execute " 02b4 e004 | | Load 0x0,0x4 02b5 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 02b6 00e3 | | Load_Encached Natural_Cache 02b7 e405 | | Load 0x2,0x5 02b8 e002 | | Load 0x0,0x2 02b9 1b19 | | Execute Package,Field_Read,Field_Number 0x19 02ba 6075 |`u | Indirect_Literal Discrete,0x330,{0x00007fff, 0xffffffff} 02bb e5fe | | Load 0x2,-0x2 02bc 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 02bd e003 | | Load 0x0,0x3 02be 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 02bf e5fe | | Load 0x2,-0x2 02c0 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 02c1 00d1 | | Pop_Control Pop_Count_1 02c2 e5fe | | Load 0x2,-0x2 02c3 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 02c4 00db | | Load_Top At_Offset_3 02c5 e5ff | | Load 0x2,-0x1 02c6 380b |8 | Execute Record,Field_Write,Field_Number 0xb 02c7 00db | | Load_Top At_Offset_3 02c8 e007 | | Load 0x0,0x7 02c9 1813 | | Execute Package,Field_Execute,Field_Number 0x13 02ca e004 | | Load 0x0,0x4 02cb 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 02cc 00e3 | | Load_Encached Natural_Cache 02cd e402 | | Load 0x2,0x2 02ce e002 | | Load 0x0,0x2 02cf 1b19 | | Execute Package,Field_Read,Field_Number 0x19 02d0 605f |`_ | Indirect_Literal Discrete,0x330,{0x00007fff, 0xffffffff} 02d1 e5fe | | Load 0x2,-0x2 02d2 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 02d3 e003 | | Load 0x0,0x3 02d4 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 02d5 e5fe | | Load 0x2,-0x2 02d6 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 02d7 00d1 | | Pop_Control Pop_Count_1 02d8 e5fe | | Load 0x2,-0x2 02d9 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 02da e402 | | Load 0x2,0x2 02db e007 | | Load 0x0,0x7 02dc 1813 | | Execute Package,Field_Execute,Field_Number 0x13 02dd e005 | | Load 0x0,0x5 02de 1817 | | Execute Package,Field_Execute,Field_Number 0x17 02df 003b | ; | Store_Top Access,At_Offset_3 02e0 4800 |H | Short_Literal 0x0 02e1 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 02e2 4801 |H | Short_Literal 0x1 02e3 a403 | | Store_Unchecked 0x2,0x3 02e4 00cf | | Action Mark_Auxiliary 02e5 7833 |x3 | Jump 0x319 02e6 e403 | | Load 0x2,0x3 02e7 e406 | | Load 0x2,0x6 02e8 e005 | | Load 0x0,0x5 02e9 1814 | | Execute Package,Field_Execute,Field_Number 0x14 02ea 0f2b | + | Execute_Immediate Equal,0x2b 02eb 6829 |h) | Jump_Zero 0x315 02ec e403 | | Load 0x2,0x3 02ed e406 | | Load 0x2,0x6 02ee e005 | | Load 0x0,0x5 02ef 1814 | | Execute Package,Field_Execute,Field_Number 0x14 02f0 0f2b | + | Execute_Immediate Equal,0x2b 02f1 681f |h | Jump_Zero 0x311 02f2 e403 | | Load 0x2,0x3 02f3 e406 | | Load 0x2,0x6 02f4 e005 | | Load 0x0,0x5 02f5 1814 | | Execute Package,Field_Execute,Field_Number 0x14 02f6 0f2b | + | Execute_Immediate Equal,0x2b 02f7 6815 |h | Jump_Zero 0x30d 02f8 e402 | | Load 0x2,0x2 02f9 e007 | | Load 0x0,0x7 02fa 1813 | | Execute Package,Field_Execute,Field_Number 0x13 02fb e005 | | Load 0x0,0x5 02fc 1817 | | Execute Package,Field_Execute,Field_Number 0x17 02fd a406 | | Store_Unchecked 0x2,0x6 02fe 00db | | Load_Top At_Offset_3 02ff 4820 |H | Short_Literal 0x20 0300 e403 | | Load 0x2,0x3 0301 0aff | | Execute_Immediate Plus,-0x1 0302 00d8 | | Load_Top At_Offset_0 0303 00e3 | | Load_Encached Natural_Cache 0304 0260 | ` | Execute Discrete,In_Type 0305 7001 |p | Jump_Nonzero 0x307 0306 0801 | | Execute_Immediate Raise,0x1 0307 e005 | | Load 0x0,0x5 0308 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 0309 c406 | | Store 0x2,0x6 030a 4801 |H | Short_Literal 0x1 030b 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 030c 780b |x | Jump 0x318 030d e403 | | Load 0x2,0x3 030e 0a01 | | Execute_Immediate Plus,0x1 030f c403 | | Store 0x2,0x3 0310 7807 |x | Jump 0x318 0311 e403 | | Load 0x2,0x3 0312 0a01 | | Execute_Immediate Plus,0x1 0313 c403 | | Store 0x2,0x3 0314 7803 |x | Jump 0x318 0315 e403 | | Load 0x2,0x3 0316 0a01 | | Execute_Immediate Plus,0x1 0317 c403 | | Store 0x2,0x3 0318 00c9 | | Action Pop_Auxiliary_Loop 0319 00da | | Load_Top At_Offset_2 031a 0f00 | | Execute_Immediate Equal,0x0 031b e403 | | Load 0x2,0x3 031c 0e04 | | Execute_Immediate Not_Equal,0x4 031d 0279 | y | Execute Discrete,And 031e 77c7 |w | Jump_Nonzero 0x2e6 031f 00ce | | Action Pop_Auxiliary 0320 00ea | | Load_Encached Null_String_Cache 0321 e004 | | Load 0x0,0x4 0322 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 0323 0092 03bf | | Action Push_String_Extended,0x3bf ; " The_Message.Data " 0325 e004 | | Load 0x0,0x4 0326 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 0327 00da | | Load_Top At_Offset_2 0328 e005 | | Load 0x0,0x5 0329 1816 | | Execute Package,Field_Execute,Field_Number 0x16 032a e004 | | Load 0x0,0x4 032b 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 032c 00da | | Load_Top At_Offset_2 032d e5ff | | Load 0x2,-0x1 032e 3806 |8 | Execute Record,Field_Write,Field_Number 0x6 032f 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0330 0000 7fff | | .LITERAL {0x00007fff, 0xffffffff} 0334 0000 0000 | | .BLANK 0000[0x4] 0338 ; -------------------------------------------------------------------------------------- 0338 ; SUBPROGRAM 0338 ; -------------------------------------------------------------------------------------- 0338 033b | ; | .CONST 0x033b ; Address of begin 0339 0004 | | .CONST 0x0004 ; Address of exception handler 033a 0001 | | .CONST 0x0001 ; Number of locals 033b BODY_0338: 033b INIT_0338: 033b e002 | | Load 0x0,0x2 033c 1b19 | | Execute Package,Field_Read,Field_Number 0x19 033d e5fe | | Load 0x2,-0x2 033e 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 033f 0120 | | Execute Any,Is_Value 0340 6803 |h | Jump_Zero 0x344 0341 e003 | | Load 0x0,0x3 0342 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0343 7802 |x | Jump 0x346 0344 e5fe | | Load 0x2,-0x2 0345 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0346 e5ff | | Load 0x2,-0x1 0347 4801 |H | Short_Literal 0x1 0348 4806 |H | Short_Literal 0x6 0349 00e9 | | Load_Encached String_Cache 034a 0334 | 4 | Declare_Variable Array,With_Constraint 034b 5030 |P0 | Indirect_Literal Any,0x37c,{0x5443502f, 0x49502020} 034c e003 | | Load 0x0,0x3 034d 181a | | Execute Package,Field_Execute,Field_Number 0x1a 034e e5fe | | Load 0x2,-0x2 034f 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0350 e5fe | | Load 0x2,-0x2 0351 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0352 00db | | Load_Top At_Offset_3 0353 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0354 e003 | | Load 0x0,0x3 0355 181f | | Execute Package,Field_Execute,Field_Number 0x1f 0356 6804 |h | Jump_Zero 0x35b 0357 0092 03ac | | Action Push_String_Extended,0x3ac ; "connection ouverte OK" 0359 e004 | | Load 0x0,0x4 035a 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 035b 00cf | | Action Mark_Auxiliary 035c 780e |x | Jump 0x36b 035d e002 | | Load 0x0,0x2 035e 1b19 | | Execute Package,Field_Read,Field_Number 0x19 035f 67d0 |g | Indirect_Literal Discrete,0x330,{0x00007fff, 0xffffffff} 0360 e5fe | | Load 0x2,-0x2 0361 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0362 e003 | | Load 0x0,0x3 0363 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0364 e5fe | | Load 0x2,-0x2 0365 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0366 0092 03c0 | | Action Push_String_Extended,0x3c0 ; "essai connection reception" 0368 e004 | | Load 0x0,0x4 0369 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 036a 00c9 | | Action Pop_Auxiliary_Loop 036b e5fe | | Load 0x2,-0x2 036c 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 036d e003 | | Load 0x0,0x3 036e 1820 | | Execute Package,Field_Execute,Field_Number 0x20 036f 6fed |o | Jump_Zero 0x35d 0370 00ce | | Action Pop_Auxiliary 0371 00db | | Load_Top At_Offset_3 0372 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0373 e003 | | Load 0x0,0x3 0374 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0375 6804 |h | Jump_Zero 0x37a 0376 0092 03ae | | Action Push_String_Extended,0x3ae ; "Connection OK" 0378 e004 | | Load 0x0,0x4 0379 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 037a 4502 |E | Exit_Suprogram New_Top_Offset 0x2 037b 0000 | | .XXX[0x1] 037c 5443 502f |TCP/| .LITERAL {0x5443502f, 0x49502020} 0380 ; -------------------------------------------------------------------------------------- 0380 ; SUBPROGRAM 0380 ; -------------------------------------------------------------------------------------- 0380 0383 | | .CONST 0x0383 ; Address of begin 0381 0004 | | .CONST 0x0004 ; Address of exception handler 0382 0001 | | .CONST 0x0001 ; Number of locals 0383 BODY_0380: 0383 INIT_0380: 0383 00da | | Load_Top At_Offset_2 0384 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0385 e003 | | Load 0x0,0x3 0386 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0387 00da | | Load_Top At_Offset_2 0388 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0389 e003 | | Load 0x0,0x3 038a 181b | | Execute Package,Field_Execute,Field_Number 0x1b 038b 0092 03c1 | | Action Push_String_Extended,0x3c1 ; "connection fermee" 038d e004 | | Load 0x0,0x4 038e 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 038f 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0390 ; -------------------------------------------------------------------------------------- 0390 ; SUBPROGRAM 0390 ; -------------------------------------------------------------------------------------- 0390 0393 | | .CONST 0x0393 ; Address of begin 0391 0004 | | .CONST 0x0004 ; Address of exception handler 0392 0001 | | .CONST 0x0001 ; Number of locals 0393 BODY_0390: 0393 INIT_0390: 0393 00e3 | | Load_Encached Natural_Cache 0394 e002 | | Load 0x0,0x2 0395 1b19 | | Execute Package,Field_Read,Field_Number 0x19 0396 4800 |H | Short_Literal 0x0 0397 6010 |` | Indirect_Literal Discrete,0x3a8,{0x00007fff, 0xffffffff} 0398 e7ff | | Load 0x3,-0x1 0399 e005 | | Load 0x0,0x5 039a 1816 | | Execute Package,Field_Execute,Field_Number 0x16 039b e007 | | Load 0x0,0x7 039c 1814 | | Execute Package,Field_Execute,Field_Number 0x14 039d e7fe | | Load 0x3,-0x2 039e 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 039f e003 | | Load 0x0,0x3 03a0 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 03a1 e7fe | | Load 0x3,-0x2 03a2 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 03a3 e7fe | | Load 0x3,-0x2 03a4 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 03a5 4502 |E | Exit_Suprogram New_Top_Offset 0x2 03a6 0000 0000 | | .XXX[0x2] 03a8 0000 7fff | | .LITERAL {0x00007fff, 0xffffffff} 03ac ; -------------------------------------------------------------------------------------- 03ac ; STRING TABLE 03ac ; -------------------------------------------------------------------------------------- 03ac 002e | . | .STRTAB 0x002e->0x03c3 ; "connection ouverte OK" 03ad 0041 | A | .STRTAB 0x0041->0x03cd ; "essai connection transmission" 03ae 005c | \ | .STRTAB 0x005c->0x03dc ; "Connection OK" 03af 0067 | g | .STRTAB 0x0067->0x03e2 ; "+++" 03b0 0068 | h | .STRTAB 0x0068->0x03e4 ; " 1" 03b1 0068 | h | .STRTAB 0x0068->0x03e5 ; " 0" 03b2 0068 | h | .STRTAB 0x0068->0x03e6 ; " The_Message.The_Command " 03b3 007f | | .STRTAB 0x007f->0x03f2 ; " The_Message.The_Id_Machine_Send " 03b4 009e | | .STRTAB 0x009e->0x0403 ; " The_Message.The_Id_User_Send " 03b5 00ba | | .STRTAB 0x00ba->0x0412 ; " The_Message.The_Id_Machine_Receive " 03b6 00dc | | .STRTAB 0x00dc->0x0424 ; " The_Message.The_Id_User_Receive " 03b7 00fb | | .STRTAB 0x00fb->0x0434 ; " The_Message.The_Id_Machine_To_Execute " 03b8 0120 | | .STRTAB 0x0120->0x0448 ; " The_Message.Command_Is_Ok " 03b9 0139 | 9 | .STRTAB 0x0139->0x0455 ; "True" 03ba 013b | ; | .STRTAB 0x013b->0x0457 ; "False" 03bb 013e | > | .STRTAB 0x013e->0x045a ; " The_Message.Number_Of_The_Question " 03bc 0160 | ` | .STRTAB 0x0160->0x046c ; " The_Message.The_Socket_Send " 03bd 017b | { | .STRTAB 0x017b->0x047a ; " The_Message.The_Socket_Receive " 03be 0199 | | .STRTAB 0x0199->0x048a ; " The_Message.The_Socket_To_Execute " 03bf 01ba | | .STRTAB 0x01ba->0x049c ; " The_Message.Data " 03c0 01ca | | .STRTAB 0x01ca->0x04a5 ; "essai connection reception" 03c1 01e2 | | .STRTAB 0x01e2->0x04b2 ; "connection fermee" 03c2 01f1 | | .STREND 0x01f1->0x04ba 03c3 636f 6e6e |conn| .STRTAB_STRINGS 04bb 0000 0000 | | .BLANK 0000[0x5] 04c0 ; -------------------------------------------------------------------------------------- 04c0 ; Debug Table 04c0 ; -------------------------------------------------------------------------------------- 04c0 0004 000a | | .DEBUG4 0x0004,0x000a,0x2387,0x0000,0x0001,0x0008 04c6 000b 04e6 | | .DBG4T 0x000b,0x04e6,0x8000,0x0000 04ca 0016 04ed | | .DBG4T 0x0016,0x04ed,0x8000,0x0000 04ce 002b 04f5 | + | .DBG4T 0x002b,0x04f5,0x0001,0x4000 04d2 007b 0507 | { | .DBG4T 0x007b,0x0507,0x0001,0x0000 04d6 010b 051d | | .DBG4T 0x010b,0x051d,0x0001,0x4000 04da 033b 05d6 | ; | .DBG4T 0x033b,0x05d6,0x0001,0x4000 04de 0383 05e8 | | .DBG4T 0x0383,0x05e8,0x0001,0x0000 04e2 0393 05ed | | .DBG4T 0x0393,0x05ed,0x0001,0x0000 04e6 ; -------------------------------------------------------------------------------------- 04e6 ; Debug chain 04e6 ; -------------------------------------------------------------------------------------- 04e6 0005 0000 | | .DBGLEN 0x0005,0x0000 04e8 000b 000d | | .DBGLNO 0x000b,0x000d,0x000f,0x0011,0x0013 04ed ; -------------------------------------------------------------------------------------- 04ed ; Debug chain 04ed ; -------------------------------------------------------------------------------------- 04ed 0005 0001 | | .DBGLEN 0x0005,0x0001 04ef 0016 0018 | | .DBGLNO 0x0016,0x0018,0x001a,0x001c,0x001e,0x0020 04f5 ; -------------------------------------------------------------------------------------- 04f5 ; Debug chain 04f5 ; -------------------------------------------------------------------------------------- 04f5 0000 0008 | | .DBGLEN 0x0000,0x0008 04f7 002b 0043 | + C| .DBGLNO 0x002b,0x0043,0x0048,0x004e,0x005b,0x0060,0x0066,0x006b 04ff 0001 0002 | | .XXX[0x8] 0501 0003 0005 | | 0503 0006 0004 | | 0505 0007 0008 | | 0507 ; -------------------------------------------------------------------------------------- 0507 ; Debug chain 0507 ; -------------------------------------------------------------------------------------- 0507 0002 0012 | | .DBGLEN 0x0002,0x0012 0509 007b 007d | { }| .DBGLNO 0x007b,0x007d,0x007f,0x0088,0x008e,0x0092,0x009b,0x00a4,0x00ad,0x00b6,0x00bf,0x00c3,0x00cb,0x00d2,0x00db,0x00e4,0x00ed,0x00f6,0x00fc,0x0102 051d ; -------------------------------------------------------------------------------------- 051d ; Debug chain 051d ; -------------------------------------------------------------------------------------- 051d 0007 0058 | X| .DBGLEN 0x0007,0x0058 051f 010b 0111 | | .DBGLNO 0x010b,0x0111,0x0113,0x0119,0x011f,0x0121,0x0123,0x0124,0x0132,0x0138,0x013a,0x013e,0x0144,0x014a,0x0150,0x0156,0x0162,0x0165,0x0169,0x016d,0x0171,0x0178,0x017c,0x0181,0x018c,0x018f,0x0193,0x01a1,0x01a4,0x01a9,0x01b7,0x01bf,0x01c2,0x01c6,0x01cb,0x01ce,0x01d2,0x01e0,0x01e3,0x01e8,0x01f6,0x01fe,0x0201,0x0205,0x020a,0x020d,0x0211,0x021f,0x0222,0x0227,0x0235,0x0238,0x023c,0x0244,0x0247,0x024c,0x024f,0x0253,0x0261,0x0269,0x026c,0x0270,0x0275,0x0278,0x027c,0x028a,0x028d,0x0292,0x0295,0x0299,0x02a7,0x02aa,0x02af,0x02b2,0x02b6,0x02c4,0x02c7,0x02cc,0x02da,0x02e0,0x02e2,0x02e6,0x02ec,0x02f2,0x02f8,0x02fe,0x030a,0x030d,0x0311,0x0315,0x0319,0x0320,0x0323,0x0327,0x032c 057e 0001 0002 | | .XXX[0x58] 0580 0003 0004 | | 0582 0006 0007 | | 0584 0008 0009 | | 0586 000a 000b | | 0588 000c 000d | | 058a 000e 0005 | | 058c 000f 0010 | | 058e 0011 0012 | | 0590 0013 0014 | | 0592 0015 0016 | | 0594 0017 0018 | | 0596 0019 001a | | 0598 001b 001c | | 059a 001d 001e | | 059c 001f 0020 | | 059e 0021 0022 | ! "| 05a0 0023 0024 | # $| 05a2 0025 0026 | % &| 05a4 0027 0028 | ' (| 05a6 0029 002a | ) *| 05a8 002b 002c | + ,| 05aa 002d 002e | - .| 05ac 002f 0030 | / 0| 05ae 0031 0032 | 1 2| 05b0 0033 0034 | 3 4| 05b2 0035 0036 | 5 6| 05b4 0037 0038 | 7 8| 05b6 0039 003a | 9 :| 05b8 003b 003c | ; <| 05ba 003d 003e | = >| 05bc 003f 0040 | ? @| 05be 0041 0042 | A B| 05c0 0043 0044 | C D| 05c2 0045 0046 | E F| 05c4 0047 0048 | G H| 05c6 0049 004a | I J| 05c8 004c 004d | L M| 05ca 004e 004f | N O| 05cc 0050 0051 | P Q| 05ce 0052 0053 | R S| 05d0 0054 004b | T K| 05d2 0055 0056 | U V| 05d4 0057 0058 | W X| 05d6 ; -------------------------------------------------------------------------------------- 05d6 ; Debug chain 05d6 ; -------------------------------------------------------------------------------------- 05d6 0000 0008 | | .DBGLEN 0x0000,0x0008 05d8 033b 0352 | ; R| .DBGLNO 0x033b,0x0352,0x0357,0x035d,0x0366,0x036b,0x0371,0x0376 05e0 0001 0002 | | .XXX[0x8] 05e2 0003 0005 | | 05e4 0006 0004 | | 05e6 0007 0008 | | 05e8 ; -------------------------------------------------------------------------------------- 05e8 ; Debug chain 05e8 ; -------------------------------------------------------------------------------------- 05e8 0000 0003 | | .DBGLEN 0x0000,0x0003 05ea 0383 0387 | | .DBGLNO 0x0383,0x0387,0x038b 05ed ; -------------------------------------------------------------------------------------- 05ed ; Debug chain 05ed ; -------------------------------------------------------------------------------------- 05ed 0000 0001 | | .DBGLEN 0x0000,0x0001 05ef 0393 | | .DBGLNO 0x0393 05f0 0000 0000 | | .BLANK 0000[0x10]