|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 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 For_Outer_Call,Visible,Unelaborated,INIT_0028
000d 029a 007b | {| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0078
000f 029a 010b | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0108
0011 029a 033b | ;| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0338
0013 029a 0383 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0380
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_Subprogram 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 For_Call,INIT_0390
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_Subprogram 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_Unchecked 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_Unchecked 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_Subprogram 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_Subprogram 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_Subprogram 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_Subprogram 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"
; "connection ouverte OK"
03ad 0041 | A | .STRTAB 0x0041->0x03cd ; "essai connection transmission"
03ae 005c | \ | .STRTAB 0x005c->0x03dc ; "Connection OK"
; "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]