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