|
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: 2048 (0x800) Notes: 00_class, 5900_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_1818c5
└─⟦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 0330 | 0 | .CONST 0x0330 ; 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 0001 | | .CONST 0x0001 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 0051 | Q | .CONST 0x0051 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0011 | | .CONST 0x0011 ; Number of locals 000b INIT_0008: 000b 00bf | | Action Accept_Activation 000c 4801 |H | Short_Literal 0x1 000d 4806 |H | Short_Literal 0x6 000e 00e9 | | Load_Encached String_Cache 000f 0334 | 4 | Declare_Variable Array,With_Constraint 0010 5043 |PC | Indirect_Literal Any,0x54,{0x5443502f, 0x49502020} 0011 00d8 | | Load_Top At_Offset_0 0012 e002 | | Load 0x0,0x2 0013 180f | | Execute Package,Field_Execute,Field_Number 0xf 0014 4800 |H | Short_Literal 0x0 0015 4801 |H | Short_Literal 0x1 0016 e003 | | Load 0x0,0x3 0017 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0018 035b | [ | Declare_Type Array,Constrained 0019 0337 | 7 | Declare_Variable Array 001a 480a |H | Short_Literal 0xa 001b 4800 |H | Short_Literal 0x0 001c 00da | | Load_Top At_Offset_2 001d 01d6 | | Execute Vector,Field_Write 001e 482a |H* | Short_Literal 0x2a 001f 4801 |H | Short_Literal 0x1 0020 00da | | Load_Top At_Offset_2 0021 01d6 | | Execute Vector,Field_Write 0022 4800 |H | Short_Literal 0x0 0023 0093 0163 | c| push_full_address INIT_0160 0025 00f5 | | Load_Encached Unused21 0026 037d | } | Declare_Type Task,Defined 0027 036f | o | Declare_Variable Task 0028 4800 |H | Short_Literal 0x0 0029 0093 005b | [| push_full_address INIT_0058 002b 00f5 | | Load_Encached Unused21 002c 037d | } | Declare_Type Task,Defined 002d 036f | o | Declare_Variable Task 002e e004 | | Load 0x0,0x4 002f e005 | | Load 0x0,0x5 0030 e006 | | Load 0x0,0x6 0031 e002 | | Load 0x0,0x2 0032 e007 | | Load 0x0,0x7 0033 e20f | | Load 0x1,0xf 0034 e008 | | Load 0x0,0x8 0035 a009 | | Store_Unchecked 0x0,0x9 0036 a00a | | Store_Unchecked 0x0,0xa 0037 a00b | | Store_Unchecked 0x0,0xb 0038 a00c | | Store_Unchecked 0x0,0xc 0039 480b |H | Short_Literal 0xb 003a e210 | | Load 0x1,0x10 003b 020e | | Execute Module,Augment_Imports 003c 0007 | | Action Break_Optional 003d e00d | | Load 0x0,0xd 003e e005 | | Load 0x0,0x5 003f e002 | | Load 0x0,0x2 0040 e007 | | Load 0x0,0x7 0041 e00e | | Load 0x0,0xe 0042 e008 | | Load 0x0,0x8 0043 a00f | | Store_Unchecked 0x0,0xf 0044 a010 | | Store_Unchecked 0x0,0x10 0045 a011 | | Store_Unchecked 0x0,0x11 0046 a00b | | Store_Unchecked 0x0,0xb 0047 a012 | | Store_Unchecked 0x0,0x12 0048 a013 | | Store_Unchecked 0x0,0x13 0049 a014 | | Store_Unchecked 0x0,0x14 004a a015 | | Store_Unchecked 0x0,0x15 004b a016 | | Store_Unchecked 0x0,0x16 004c a017 | | Store_Unchecked 0x0,0x17 004d a00c | | Store_Unchecked 0x0,0xc 004e 4811 |H | Short_Literal 0x11 004f e211 | | Load 0x1,0x11 0050 020e | | Execute Module,Augment_Imports 0051 BODY_0008: 0051 00be | | Action Activate_Tasks 0052 00bc | | Action Signal_Activated 0053 00bb | | Action Signal_Completion 0054 5443 502f |TCP/| .LITERAL {0x5443502f, 0x49502020} 0058 ; -------------------------------------------------------------------------------------- 0058 ; SUBPROGRAM 0058 ; -------------------------------------------------------------------------------------- 0058 007d | } | .CONST 0x007d ; Address of begin 0059 0004 | | .CONST 0x0004 ; Address of exception handler 005a 0016 | | .CONST 0x0016 ; Number of locals 005b INIT_0058: 005b 00bf | | Action Accept_Activation 005c e001 | | Load 0x0,0x1 005d 0322 | " | Declare_Variable Record 005e 00d8 | | Load_Top At_Offset_0 005f 1c00 | | Execute_Immediate Run_Utility,0x0 0060 e002 | | Load 0x0,0x2 0061 02ff | | Declare_Variable Variant_Record 0062 00d8 | | Load_Top At_Offset_0 0063 1c00 | | Execute_Immediate Run_Utility,0x0 0064 e003 | | Load 0x0,0x3 0065 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0066 02c7 | | Declare_Variable Any 0067 00d8 | | Load_Top At_Offset_0 0068 1c00 | | Execute_Immediate Run_Utility,0x0 0069 e004 | | Load 0x0,0x4 006a 1b19 | | Execute Package,Field_Read,Field_Number 0x19 006b 4801 |H | Short_Literal 0x1 006c 4802 |H | Short_Literal 0x2 006d e004 | | Load 0x0,0x4 006e 1b15 | | Execute Package,Field_Read,Field_Number 0x15 006f 035b | [ | Declare_Type Array,Constrained 0070 0337 | 7 | Declare_Variable Array 0071 4801 |H | Short_Literal 0x1 0072 4804 |H | Short_Literal 0x4 0073 e004 | | Load 0x0,0x4 0074 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0075 035b | [ | Declare_Type Array,Constrained 0076 0337 | 7 | Declare_Variable Array 0077 00e3 | | Load_Encached Natural_Cache 0078 00e3 | | Load_Encached Natural_Cache 0079 0602 | | Execute_Immediate Set_Value_Unchecked,0x2 007a e005 | | Load 0x0,0x5 007b 03e9 | | Declare_Variable Discrete,Duplicate 007c 00bc | | Action Signal_Activated 007d BODY_0058: 007d 00cf | | Action Mark_Auxiliary 007e e004 | | Load 0x0,0x4 007f 1b19 | | Execute Package,Field_Read,Field_Number 0x19 0080 e20f | | Load 0x1,0xf 0081 0120 | | Execute Any,Is_Value 0082 6803 |h | Jump_Zero 0x86 0083 e003 | | Load 0x0,0x3 0084 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0085 7801 |x | Jump 0x87 0086 e20f | | Load 0x1,0xf 0087 e004 | | Load 0x0,0x4 0088 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0089 4801 |H | Short_Literal 0x1 008a 4806 |H | Short_Literal 0x6 008b 00e9 | | Load_Encached String_Cache 008c 0334 | 4 | Declare_Variable Array,With_Constraint 008d 50ca |P | Indirect_Literal Any,0x158,{0x5443502f, 0x49502020} 008e e003 | | Load 0x0,0x3 008f 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0090 c20f | | Store 0x1,0xf 0091 c210 | | Store 0x1,0x10 0092 e20f | | Load 0x1,0xf 0093 e003 | | Load 0x0,0x3 0094 181f | | Execute Package,Field_Execute,Field_Number 0x1f 0095 6805 |h | Jump_Zero 0x9b 0096 0092 0204 | | Action Push_String_Extended,0x204 ; "Transmiter : connexion is open..." 0098 e006 | | Load 0x0,0x6 0099 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 009a 7807 |x | Jump 0xa2 009b 0092 0205 | | Action Push_String_Extended,0x205 ; "Transmiter : can't open connexion..." 009d e006 | | Load 0x0,0x6 009e 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 009f 00db | | Load_Top At_Offset_3 00a0 0aff | | Execute_Immediate Plus,-0x1 00a1 c214 | | Store 0x1,0x14 00a2 00db | | Load_Top At_Offset_3 00a3 0f00 | | Execute_Immediate Equal,0x0 00a4 e20f | | Load 0x1,0xf 00a5 e003 | | Load 0x0,0x3 00a6 181f | | Execute Package,Field_Execute,Field_Number 0x1f 00a7 0278 | x | Execute Discrete,Or 00a8 7002 |p | Jump_Nonzero 0xab 00a9 00c9 | | Action Pop_Auxiliary_Loop 00aa 7fd3 | | Jump 0x7e 00ab 00ce | | Action Pop_Auxiliary 00ac 00da | | Load_Top At_Offset_2 00ad 0f00 | | Execute_Immediate Equal,0x0 00ae e20f | | Load 0x1,0xf 00af e003 | | Load 0x0,0x3 00b0 181f | | Execute Package,Field_Execute,Field_Number 0x1f 00b1 0f00 | | Execute_Immediate Equal,0x0 00b2 0279 | y | Execute Discrete,And 00b3 6804 |h | Jump_Zero 0xb8 00b4 0092 0206 | | Action Push_String_Extended,0x206 ; "Transmiter : failed in opening connexion" 00b6 e006 | | Load 0x0,0x6 00b7 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 00b8 00cf | | Action Mark_Auxiliary 00b9 0092 0207 | | Action Push_String_Extended,0x207 ; "Transmiter : is waiting for a message from Orb" 00bb e006 | | Load 0x0,0x6 00bc 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 00bd 00cf | | Action Mark_Auxiliary 00be 7801 |x | Jump 0xc0 00bf 00c9 | | Action Pop_Auxiliary_Loop 00c0 8007 | | Call 0x0,0x7 00c1 77fd |w | Jump_Nonzero 0xbf 00c2 00ce | | Action Pop_Auxiliary 00c3 e20d | | Load 0x1,0xd 00c4 8008 | | Call 0x0,0x8 00c5 00d1 | | Pop_Control Pop_Count_1 00c6 e20e | | Load 0x1,0xe 00c7 e20d | | Load 0x1,0xd 00c8 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 00c9 8009 | | Call 0x0,0x9 00ca 00d1 | | Pop_Control Pop_Count_1 00cb 0092 0208 | | Action Push_String_Extended,0x208 ; "Transmiter : try to contact the object located at (" 00cd e20d | | Load 0x1,0xd 00ce 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 00cf 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 00d0 800a | | Call 0x0,0xa 00d1 01cc | | Execute Vector,Catenate 00d2 0092 0209 | | Action Push_String_Extended,0x209 ; ") with " 00d4 01cc | | Execute Vector,Catenate 00d5 e20e | | Load 0x1,0xe 00d6 800a | | Call 0x0,0xa 00d7 01cc | | Execute Vector,Catenate 00d8 e006 | | Load 0x0,0x6 00d9 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 00da e20d | | Load 0x1,0xd 00db 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 00dc 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 00dd 800b | | Call 0x0,0xb 00de e212 | | Load 0x1,0x12 00df 01d4 | | Execute Vector,Structure_Write 00e0 e20d | | Load 0x1,0xd 00e1 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 00e2 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 00e3 800c | | Call 0x0,0xc 00e4 e211 | | Load 0x1,0x11 00e5 01d4 | | Execute Vector,Structure_Write 00e6 4806 |H | Short_Literal 0x6 00e7 a214 | | Store_Unchecked 0x1,0x14 00e8 00cf | | Action Mark_Auxiliary 00e9 7817 |x | Jump 0x101 00ea 6069 |`i | Indirect_Literal Discrete,0x154,{0x00000000, 0x00050000} 00eb 00ba | | Action Initiate_Delay 00ec e214 | | Load 0x1,0x14 00ed 0aff | | Execute_Immediate Plus,-0x1 00ee c214 | | Store 0x1,0x14 00ef 0092 020a | | Action Push_String_Extended,0x20a ; "Transmiter : tries left=" 00f1 e214 | | Load 0x1,0x14 00f2 00e0 | | Load_Encached Standard_Cache 00f3 1818 | | Execute Package,Field_Execute,Field_Number 0x18 00f4 01cc | | Execute Vector,Catenate 00f5 e006 | | Load 0x0,0x6 00f6 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 00f7 e004 | | Load 0x0,0x4 00f8 1b19 | | Execute Package,Field_Read,Field_Number 0x19 00f9 6056 |`V | Indirect_Literal Discrete,0x150,{0x00007fff, 0xffffffff} 00fa e211 | | Load 0x1,0x11 00fb e212 | | Load 0x1,0x12 00fc e20f | | Load 0x1,0xf 00fd e003 | | Load 0x0,0x3 00fe 181c | | Execute Package,Field_Execute,Field_Number 0x1c 00ff c210 | | Store 0x1,0x10 0100 00c9 | | Action Pop_Auxiliary_Loop 0101 e20f | | Load 0x1,0xf 0102 e003 | | Load 0x0,0x3 0103 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0104 0f00 | | Execute_Immediate Equal,0x0 0105 e214 | | Load 0x1,0x14 0106 0e00 | | Execute_Immediate Not_Equal,0x0 0107 0279 | y | Execute Discrete,And 0108 77e1 |w | Jump_Nonzero 0xea 0109 00ce | | Action Pop_Auxiliary 010a 00db | | Load_Top At_Offset_3 010b 0e00 | | Execute_Immediate Not_Equal,0x0 010c e20f | | Load 0x1,0xf 010d e003 | | Load 0x0,0x3 010e 1820 | | Execute Package,Field_Execute,Field_Number 0x20 010f 0278 | x | Execute Discrete,Or 0110 6818 |h | Jump_Zero 0x129 0111 0092 020b | | Action Push_String_Extended,0x20b ; "Transmiter : object is connected..." 0113 e006 | | Load 0x0,0x6 0114 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 0115 00e3 | | Load_Encached Natural_Cache 0116 e004 | | Load 0x0,0x4 0117 1b19 | | Execute Package,Field_Read,Field_Number 0x19 0118 4800 |H | Short_Literal 0x0 0119 6036 |`6 | Indirect_Literal Discrete,0x150,{0x00007fff, 0xffffffff} 011a e20e | | Load 0x1,0xe 011b 800d | | Call 0x0,0xd 011c e20f | | Load 0x1,0xf 011d e003 | | Load 0x0,0x3 011e 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 011f c210 | | Store 0x1,0x10 0120 c213 | | Store 0x1,0x13 0121 0092 020c | | Action Push_String_Extended,0x20c ; "Transmiter : data transmited." 0123 e006 | | Load 0x0,0x6 0124 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 0125 e20f | | Load 0x1,0xf 0126 e003 | | Load 0x0,0x3 0127 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0128 7824 |x$ | Jump 0x14d 0129 0092 020d | | Action Push_String_Extended,0x20d ; "Transmiter : object is not responding" 012b e006 | | Load 0x0,0x6 012c 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 012d e005 | | Load 0x0,0x5 012e e20d | | Load 0x1,0xd 012f 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0130 800e | | Call 0x0,0xe 0131 005b | [ | Store_Top Discrete,At_Offset_3 0132 00da | | Load_Top At_Offset_2 0133 e005 | | Load 0x0,0x5 0134 011c | | Execute Any,Convert_Unchecked 0135 1c01 | | Execute_Immediate Run_Utility,0x1 0136 0092 020e | | Action Push_String_Extended,0x20e ; "REQUEST" 0138 01df | | Execute Vector,Equal 0139 6803 |h | Jump_Zero 0x13d 013a 480e |H | Short_Literal 0xe 013b 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 013c 7802 |x | Jump 0x13f 013d 480d |H | Short_Literal 0xd 013e 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 013f e20d | | Load 0x1,0xd 0140 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0141 00da | | Load_Top At_Offset_2 0142 800f | | Call 0x0,0xf 0143 00d1 | | Pop_Control Pop_Count_1 0144 e20d | | Load 0x1,0xd 0145 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0146 e20d | | Load 0x1,0xd 0147 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0148 8010 | | Call 0x0,0x10 0149 00d1 | | Pop_Control Pop_Count_1 014a e20d | | Load 0x1,0xd 014b 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 014c 8011 | | Call 0x0,0x11 014d 00c9 | | Action Pop_Auxiliary_Loop 014e 7f6a | j | Jump 0xb9 014f 0000 | | .XXX[0x1] 0150 0000 7fff | | .LITERAL {0x00007fff, 0xffffffff} 0154 0000 0000 | | .LITERAL {0x00000000, 0x00050000} 0158 5443 502f |TCP/| .LITERAL {0x5443502f, 0x49502020} 015c 0000 0000 | | .BLANK 0000[0x4] 0160 ; -------------------------------------------------------------------------------------- 0160 ; SUBPROGRAM 0160 ; -------------------------------------------------------------------------------------- 0160 017d | } | .CONST 0x017d ; Address of begin 0161 0004 | | .CONST 0x0004 ; Address of exception handler 0162 0013 | | .CONST 0x0013 ; Number of locals 0163 INIT_0160: 0163 00bf | | Action Accept_Activation 0164 e001 | | Load 0x0,0x1 0165 0322 | " | Declare_Variable Record 0166 00d8 | | Load_Top At_Offset_0 0167 1c00 | | Execute_Immediate Run_Utility,0x0 0168 e002 | | Load 0x0,0x2 0169 02ff | | Declare_Variable Variant_Record 016a 00d8 | | Load_Top At_Offset_0 016b 1c00 | | Execute_Immediate Run_Utility,0x0 016c 4800 |H | Short_Literal 0x0 016d 48ff |H | Short_Literal 0xff 016e e003 | | Load 0x0,0x3 016f 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0170 035b | [ | Declare_Type Array,Constrained 0171 0337 | 7 | Declare_Variable Array 0172 e004 | | Load 0x0,0x4 0173 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0174 02c7 | | Declare_Variable Any 0175 00d8 | | Load_Top At_Offset_0 0176 1c00 | | Execute_Immediate Run_Utility,0x0 0177 e005 | | Load 0x0,0x5 0178 1b19 | | Execute Package,Field_Read,Field_Number 0x19 0179 00e3 | | Load_Encached Natural_Cache 017a 00e3 | | Load_Encached Natural_Cache 017b 0602 | | Execute_Immediate Set_Value_Unchecked,0x2 017c 00bc | | Action Signal_Activated 017d BODY_0160: 017d 00cf | | Action Mark_Auxiliary 017e e005 | | Load 0x0,0x5 017f 1b19 | | Execute Package,Field_Read,Field_Number 0x19 0180 e210 | | Load 0x1,0x10 0181 0120 | | Execute Any,Is_Value 0182 6803 |h | Jump_Zero 0x186 0183 e004 | | Load 0x0,0x4 0184 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0185 7801 |x | Jump 0x187 0186 e210 | | Load 0x1,0x10 0187 e006 | | Load 0x0,0x6 0188 4801 |H | Short_Literal 0x1 0189 4806 |H | Short_Literal 0x6 018a 00e9 | | Load_Encached String_Cache 018b 0334 | 4 | Declare_Variable Array,With_Constraint 018c 5073 |Ps | Indirect_Literal Any,0x200,{0x5443502f, 0x49502020} 018d e004 | | Load 0x0,0x4 018e 181a | | Execute Package,Field_Execute,Field_Number 0x1a 018f c210 | | Store 0x1,0x10 0190 c211 | | Store 0x1,0x11 0191 e210 | | Load 0x1,0x10 0192 e004 | | Load 0x0,0x4 0193 181f | | Execute Package,Field_Execute,Field_Number 0x1f 0194 6805 |h | Jump_Zero 0x19a 0195 0092 020f | | Action Push_String_Extended,0x20f ; "Receiver : connexion is open..." 0197 e007 | | Load 0x0,0x7 0198 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 0199 7807 |x | Jump 0x1a1 019a 0092 0210 | | Action Push_String_Extended,0x210 ; "Receiver : can't open connexion..." 019c e007 | | Load 0x0,0x7 019d 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 019e 00d9 | | Load_Top At_Offset_1 019f 0aff | | Execute_Immediate Plus,-0x1 01a0 005a | Z | Store_Top Discrete,At_Offset_2 01a1 00d9 | | Load_Top At_Offset_1 01a2 0f00 | | Execute_Immediate Equal,0x0 01a3 e210 | | Load 0x1,0x10 01a4 e004 | | Load 0x0,0x4 01a5 181f | | Execute Package,Field_Execute,Field_Number 0x1f 01a6 0278 | x | Execute Discrete,Or 01a7 7002 |p | Jump_Nonzero 0x1aa 01a8 00c9 | | Action Pop_Auxiliary_Loop 01a9 7fd4 | | Jump 0x17e 01aa 00ce | | Action Pop_Auxiliary 01ab 00d8 | | Load_Top At_Offset_0 01ac 0f00 | | Execute_Immediate Equal,0x0 01ad e210 | | Load 0x1,0x10 01ae e004 | | Load 0x0,0x4 01af 181f | | Execute Package,Field_Execute,Field_Number 0x1f 01b0 0f00 | | Execute_Immediate Equal,0x0 01b1 0279 | y | Execute Discrete,And 01b2 6804 |h | Jump_Zero 0x1b7 01b3 0092 0211 | | Action Push_String_Extended,0x211 ; "Receiver : failed in opening connexion" 01b5 e007 | | Load 0x0,0x7 01b6 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 01b7 00cf | | Action Mark_Auxiliary 01b8 0092 0212 | | Action Push_String_Extended,0x212 ; "Receiver : waiting for a connexion ..." 01ba e007 | | Load 0x0,0x7 01bb 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 01bc 00cf | | Action Mark_Auxiliary 01bd 7808 |x | Jump 0x1c6 01be e005 | | Load 0x0,0x5 01bf 1b19 | | Execute Package,Field_Read,Field_Number 0x19 01c0 678f |g | Indirect_Literal Discrete,0x150,{0x00007fff, 0xffffffff} 01c1 e210 | | Load 0x1,0x10 01c2 e004 | | Load 0x0,0x4 01c3 181d | | Execute Package,Field_Execute,Field_Number 0x1d 01c4 c211 | | Store 0x1,0x11 01c5 00c9 | | Action Pop_Auxiliary_Loop 01c6 e210 | | Load 0x1,0x10 01c7 e004 | | Load 0x0,0x4 01c8 1820 | | Execute Package,Field_Execute,Field_Number 0x20 01c9 6ff4 |o | Jump_Zero 0x1be 01ca 00ce | | Action Pop_Auxiliary 01cb 0092 0213 | | Action Push_String_Extended,0x213 ; "Receiver : Someone is connected" 01cd e007 | | Load 0x0,0x7 01ce 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 01cf 00cf | | Action Mark_Auxiliary 01d0 00e3 | | Load_Encached Natural_Cache 01d1 e20f | | Load 0x1,0xf 01d2 e005 | | Load 0x0,0x5 01d3 1b19 | | Execute Package,Field_Read,Field_Number 0x19 01d4 677b |g{ | Indirect_Literal Discrete,0x150,{0x00007fff, 0xffffffff} 01d5 e210 | | Load 0x1,0x10 01d6 e004 | | Load 0x0,0x4 01d7 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 01d8 c211 | | Store 0x1,0x11 01d9 00d1 | | Pop_Control Pop_Count_1 01da c212 | | Store 0x1,0x12 01db e211 | | Load 0x1,0x11 01dc e005 | | Load 0x0,0x5 01dd 181a | | Execute Package,Field_Execute,Field_Number 0x1a 01de 0092 0214 | | Action Push_String_Extended,0x214 ; "OK" 01e0 01df | | Execute Vector,Equal 01e1 7002 |p | Jump_Nonzero 0x1e4 01e2 00c9 | | Action Pop_Auxiliary_Loop 01e3 7fec | | Jump 0x1d0 01e4 00ce | | Action Pop_Auxiliary 01e5 0092 0215 | | Action Push_String_Extended,0x215 ; "Receiver : Received data : " 01e7 e007 | | Load 0x0,0x7 01e8 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 01e9 e20e | | Load 0x1,0xe 01ea 4800 |H | Short_Literal 0x0 01eb e212 | | Load 0x1,0x12 01ec 0aff | | Execute_Immediate Plus,-0x1 01ed e20f | | Load 0x1,0xf 01ee 01cf | | Execute Vector,Slice_Read 01ef 8008 | | Call 0x0,0x8 01f0 00d1 | | Pop_Control Pop_Count_1 01f1 e20d | | Load 0x1,0xd 01f2 e20e | | Load 0x1,0xe 01f3 8009 | | Call 0x0,0x9 01f4 00d1 | | Pop_Control Pop_Count_1 01f5 e20e | | Load 0x1,0xe 01f6 800a | | Call 0x0,0xa 01f7 e007 | | Load 0x0,0x7 01f8 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 01f9 e20d | | Load 0x1,0xd 01fa 800b | | Call 0x0,0xb 01fb e210 | | Load 0x1,0x10 01fc e004 | | Load 0x0,0x4 01fd 181e | | Execute Package,Field_Execute,Field_Number 0x1e 01fe 00c9 | | Action Pop_Auxiliary_Loop 01ff 7fb8 | | Jump 0x1b8 0200 5443 502f |TCP/| .LITERAL {0x5443502f, 0x49502020} 0204 ; -------------------------------------------------------------------------------------- 0204 ; STRING TABLE 0204 ; -------------------------------------------------------------------------------------- 0204 0026 | & | .STRTAB 0x0026->0x0217 ; "Transmiter : connexion is open..." 0205 0045 | E | .STRTAB 0x0045->0x0227 ; "Transmiter : can't open connexion..." 0206 0067 | g | .STRTAB 0x0067->0x0239 ; "Transmiter : failed in opening connexion" 0207 008e | | .STRTAB 0x008e->0x024e ; "Transmiter : is waiting for a message from Orb" 0208 00ba | | .STRTAB 0x00ba->0x0265 ; "Transmiter : try to contact the object located at (" 0209 00eb | | .STRTAB 0x00eb->0x027e ; ") with " 020a 00f0 | | .STRTAB 0x00f0->0x0282 ; "Transmiter : tries left=" 020b 0106 | | .STRTAB 0x0106->0x028e ; "Transmiter : object is connected..." 020c 0127 | ' | .STRTAB 0x0127->0x029f ; "Transmiter : data transmited." 020d 0142 | B | .STRTAB 0x0142->0x02ae ; "Transmiter : object is not responding" 020e 0165 | e | .STRTAB 0x0165->0x02c0 ; "REQUEST" 020f 016a | j | .STRTAB 0x016a->0x02c4 ; "Receiver : connexion is open..." 0210 0187 | | .STRTAB 0x0187->0x02d3 ; "Receiver : can't open connexion..." 0211 01a7 | | .STRTAB 0x01a7->0x02e4 ; "Receiver : failed in opening connexion" 0212 01cb | | .STRTAB 0x01cb->0x02f7 ; "Receiver : waiting for a connexion ..." 0213 01ef | | .STRTAB 0x01ef->0x030a ; "Receiver : Someone is connected" 0214 020c | | .STRTAB 0x020c->0x031a ; "OK" 0215 020c | | .STRTAB 0x020c->0x031b ; "Receiver : Received data : " 0216 0225 | % | .STREND 0x0225->0x0328 0217 5472 616e |Tran| .STRTAB_STRINGS 0329 0000 0000 | | .BLANK 0000[0x7] 0330 ; -------------------------------------------------------------------------------------- 0330 ; Debug Table 0330 ; -------------------------------------------------------------------------------------- 0330 0004 000a | | .DEBUG4 0x0004,0x000a,0x7a77,0x0000,0x0001,0x0006 0336 000b 0000 | | .DBG4T 0x000b,0x0000,0x8000,0x0000 033a 000c 034e | N| .DBG4T 0x000c,0x034e,0x8000,0x0000 033e 005b 0000 | [ | .DBG4T 0x005b,0x0000,0x0000,0x0000 0342 005c 0357 | \ W| .DBG4T 0x005c,0x0357,0x0000,0x4000 0346 0163 0000 | c | .DBG4T 0x0163,0x0000,0x0000,0x0000 034a 0164 03a8 | d | .DBG4T 0x0164,0x03a8,0x0000,0x4000 034e ; -------------------------------------------------------------------------------------- 034e ; Debug chain 034e ; -------------------------------------------------------------------------------------- 034e 0007 0000 | | .DBGLEN 0x0007,0x0000 0350 000c 0011 | | .DBGLNO 0x000c,0x0011,0x0014,0x0022,0x0028,0x002e,0x003d 0357 ; -------------------------------------------------------------------------------------- 0357 ; Debug chain 0357 ; -------------------------------------------------------------------------------------- 0357 0009 0023 | #| .DBGLEN 0x0009,0x0023 0359 005c 0060 | \ `| .DBGLNO 0x005c,0x0060,0x0064,0x0069,0x006b,0x0071,0x0077,0x0078,0x007a,0x007e,0x0092,0x0096,0x009b,0x009f,0x00a2,0x00ac,0x00b4,0x00b9,0x00bf,0x00c0,0x00c3,0x00c6,0x00cb,0x00da,0x00e0,0x00e6,0x00ea,0x00ec,0x00ef,0x00f7,0x0101,0x010a,0x0111,0x0115,0x0121,0x0125,0x0129,0x012d,0x0132,0x013a,0x013d,0x013f,0x0144,0x014a 0385 0002 0003 | | .XXX[0x23] 0387 0004 0005 | | 0389 0006 0007 | | 038b 0008 0009 | | 038d 000b 000d | | 038f 000c 000e | | 0391 000f 0010 | | 0393 0011 0012 | | 0395 0013 0015 | | 0397 0016 0017 | | 0399 0018 0014 | | 039b 0019 001a | | 039d 001b 001c | | 039f 001d 001e | | 03a1 001f 0020 | | 03a3 0021 0022 | ! "| 03a5 0023 0024 | # $| 03a7 0025 | % | 03a8 ; -------------------------------------------------------------------------------------- 03a8 ; Debug chain 03a8 ; -------------------------------------------------------------------------------------- 03a8 0007 0014 | | .DBGLEN 0x0007,0x0014 03aa 0164 0168 | d h| .DBGLNO 0x0164,0x0168,0x016c,0x0172,0x0177,0x0179,0x017a,0x017e,0x0191,0x0195,0x019a,0x019e,0x01a1,0x01ab,0x01b3,0x01b8,0x01be,0x01c6,0x01cb,0x01d0,0x01db,0x01e5,0x01e9,0x01f1,0x01f5,0x01f9,0x01fb 03c5 0002 0003 | | .XXX[0x14] 03c7 0004 0005 | | 03c9 0006 0007 | | 03cb 0008 0009 | | 03cd 000b 000d | | 03cf 000c 000e | | 03d1 0010 0011 | | 03d3 0012 0013 | | 03d5 0014 0015 | | 03d7 0016 0017 | | 03d9 0000 0000 | | .BLANK 0000[0x27]