|
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: 2048 (0x800)
Notes: 00_class, 5900_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_0ae89d
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦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 0288 | | .CONST 0x0288 ; 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 0010 | | .CONST 0x0010 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0001 | | .CONST 0x0001 ; Number of locals
000b INIT_0008:
000b 029a 001b | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0018
000d 00bf | | Action Accept_Activation
000e 1d0d | | Execute_Immediate Reference_Lex_1,0xd
000f 00c7 | | Action Elaborate_Subprogram
0010 BODY_0008:
0010 00bc | | Action Signal_Activated
0011 00bb | | Action Signal_Completion
0012 0000 0000 | | .BLANK 0000[0x6]
0018 ; --------------------------------------------------------------------------------------
0018 ; SUBPROGRAM
0018 ; --------------------------------------------------------------------------------------
0018 004f | O | .CONST 0x004f ; Address of begin
0019 0004 | | .CONST 0x0004 ; Address of exception handler
001a 0010 | | .CONST 0x0010 ; Number of locals
001b INIT_0018:
001b e002 | | Load 0x0,0x2
001c 0322 | " | Declare_Variable Record
001d 00d8 | | Load_Top At_Offset_0
001e 1c00 | | Execute_Immediate Run_Utility,0x0
001f e003 | | Load 0x0,0x3
0020 02ff | | Declare_Variable Variant_Record
0021 00d8 | | Load_Top At_Offset_0
0022 1c00 | | Execute_Immediate Run_Utility,0x0
0023 e004 | | Load 0x0,0x4
0024 0007 | | Action Break_Optional
0025 00e2 | | Load_Encached Integer_Cache
0026 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0027 e003 | | Load 0x0,0x3
0028 02ff | | Declare_Variable Variant_Record
0029 00d8 | | Load_Top At_Offset_0
002a 1c00 | | Execute_Immediate Run_Utility,0x0
002b e003 | | Load 0x0,0x3
002c 02ff | | Declare_Variable Variant_Record
002d 00d8 | | Load_Top At_Offset_0
002e 1c00 | | Execute_Immediate Run_Utility,0x0
002f e003 | | Load 0x0,0x3
0030 02ff | | Declare_Variable Variant_Record
0031 00d8 | | Load_Top At_Offset_0
0032 1c00 | | Execute_Immediate Run_Utility,0x0
0033 00e3 | | Load_Encached Natural_Cache
0034 e005 | | Load 0x0,0x5
0035 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0036 02c7 | | Declare_Variable Any
0037 00d8 | | Load_Top At_Offset_0
0038 1c00 | | Execute_Immediate Run_Utility,0x0
0039 e006 | | Load 0x0,0x6
003a 1b19 | | Execute Package,Field_Read,Field_Number 0x19
003b e007 | | Load 0x0,0x7
003c 02ff | | Declare_Variable Variant_Record
003d 00d8 | | Load_Top At_Offset_0
003e 1c00 | | Execute_Immediate Run_Utility,0x0
003f e007 | | Load 0x0,0x7
0040 02ff | | Declare_Variable Variant_Record
0041 00d8 | | Load_Top At_Offset_0
0042 1c00 | | Execute_Immediate Run_Utility,0x0
0043 4800 |H | Short_Literal 0x0
0044 48ff |H | Short_Literal 0xff
0045 e008 | | Load 0x0,0x8
0046 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0047 035b | [ | Declare_Type Array,Constrained
0048 0337 | 7 | Declare_Variable Array
0049 4801 |H | Short_Literal 0x1
004a 4806 |H | Short_Literal 0x6
004b 00e9 | | Load_Encached String_Cache
004c 0334 | 4 | Declare_Variable Array,With_Constraint
004d 51c2 |Q | Indirect_Literal Any,0x210,{0x5443502f, 0x49502020}
004e 00e8 | | Load_Encached Character_Cache
004f BODY_0018:
004f 4800 |H | Short_Literal 0x0
0050 a404 | | Store_Unchecked 0x2,0x4
0051 e408 | | Load 0x2,0x8
0052 0092 0214 | | Action Push_String_Extended,0x214 ; "Client"
0054 e009 | | Load 0x0,0x9
0055 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0056 00d1 | | Pop_Control Pop_Count_1
0057 e406 | | Load 0x2,0x6
0058 00da | | Load_Top At_Offset_2
0059 e005 | | Load 0x0,0x5
005a 180f | | Execute Package,Field_Execute,Field_Number 0xf
005b 800a | | Call 0x0,0xa
005c 00d1 | | Pop_Control Pop_Count_1
005d e006 | | Load 0x0,0x6
005e 1b19 | | Execute Package,Field_Read,Field_Number 0x19
005f e40a | | Load 0x2,0xa
0060 0120 | | Execute Any,Is_Value
0061 6803 |h | Jump_Zero 0x65
0062 e005 | | Load 0x0,0x5
0063 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0064 7801 |x | Jump 0x66
0065 e40a | | Load 0x2,0xa
0066 e006 | | Load 0x0,0x6
0067 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0068 e40f | | Load 0x2,0xf
0069 e005 | | Load 0x0,0x5
006a 181a | | Execute Package,Field_Execute,Field_Number 0x1a
006b c40a | | Store 0x2,0xa
006c c40b | | Store 0x2,0xb
006d e407 | | Load 0x2,0x7
006e e40a | | Load 0x2,0xa
006f e005 | | Load 0x0,0x5
0070 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
0071 800b | | Call 0x0,0xb
0072 00d1 | | Pop_Control Pop_Count_1
0073 e407 | | Load 0x2,0x7
0074 e403 | | Load 0x2,0x3
0075 016d | m | Execute Variant_Record,Structure_Write
0076 e403 | | Load 0x2,0x3
0077 483a |H: | Short_Literal 0x3a
0078 e009 | | Load 0x0,0x9
0079 1819 | | Execute Package,Field_Execute,Field_Number 0x19
007a 00d1 | | Pop_Control Pop_Count_1
007b e403 | | Load 0x2,0x3
007c e406 | | Load 0x2,0x6
007d e009 | | Load 0x0,0x9
007e 1817 | | Execute Package,Field_Execute,Field_Number 0x17
007f 00d1 | | Pop_Control Pop_Count_1
0080 e403 | | Load 0x2,0x3
0081 483a |H: | Short_Literal 0x3a
0082 e009 | | Load 0x0,0x9
0083 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0084 00d1 | | Pop_Control Pop_Count_1
0085 e403 | | Load 0x2,0x3
0086 e408 | | Load 0x2,0x8
0087 e009 | | Load 0x0,0x9
0088 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0089 00d1 | | Pop_Control Pop_Count_1
008a e403 | | Load 0x2,0x3
008b 483a |H: | Short_Literal 0x3a
008c e009 | | Load 0x0,0x9
008d 1819 | | Execute Package,Field_Execute,Field_Number 0x19
008e 00d1 | | Pop_Control Pop_Count_1
008f e402 | | Load 0x2,0x2
0090 e403 | | Load 0x2,0x3
0091 800c | | Call 0x0,0xc
0092 00d1 | | Pop_Control Pop_Count_1
0093 e402 | | Load 0x2,0x2
0094 e404 | | Load 0x2,0x4
0095 800d | | Call 0x0,0xd
0096 00d1 | | Pop_Control Pop_Count_1
0097 e402 | | Load 0x2,0x2
0098 e405 | | Load 0x2,0x5
0099 800e | | Call 0x0,0xe
009a 00d1 | | Pop_Control Pop_Count_1
009b e40c | | Load 0x2,0xc
009c e402 | | Load 0x2,0x2
009d 800f | | Call 0x0,0xf
009e 00d1 | | Pop_Control Pop_Count_1
009f 0092 0215 | | Action Push_String_Extended,0x215 ; "Abonne : send message to ORB : "
00a1 e40c | | Load 0x2,0xc
00a2 e009 | | Load 0x0,0x9
00a3 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00a4 01cc | | Execute Vector,Catenate
00a5 e010 | | Load 0x0,0x10
00a6 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
00a7 00cf | | Action Mark_Auxiliary
00a8 782c |x, | Jump 0xd5
00a9 e006 | | Load 0x0,0x6
00aa 1b19 | | Execute Package,Field_Read,Field_Number 0x19
00ab 6160 |a` | Indirect_Literal Discrete,0x20c,{0x00007fff, 0xffffffff}
00ac 4800 |H | Short_Literal 0x0
00ad 4801 |H | Short_Literal 0x1
00ae e011 | | Load 0x0,0x11
00af 1b12 | | Execute Package,Field_Read,Field_Number 0x12
00b0 035b | [ | Declare_Type Array,Constrained
00b1 0337 | 7 | Declare_Variable Array
00b2 480a |H | Short_Literal 0xa
00b3 4800 |H | Short_Literal 0x0
00b4 00da | | Load_Top At_Offset_2
00b5 01d6 | | Execute Vector,Field_Write
00b6 482a |H* | Short_Literal 0x2a
00b7 4801 |H | Short_Literal 0x1
00b8 00da | | Load_Top At_Offset_2
00b9 01d6 | | Execute Vector,Field_Write
00ba 4800 |H | Short_Literal 0x0
00bb 4803 |H | Short_Literal 0x3
00bc e011 | | Load 0x0,0x11
00bd 1b12 | | Execute Package,Field_Read,Field_Number 0x12
00be 035b | [ | Declare_Type Array,Constrained
00bf 0337 | 7 | Declare_Variable Array
00c0 48c1 |H | Short_Literal 0xc1
00c1 4800 |H | Short_Literal 0x0
00c2 00da | | Load_Top At_Offset_2
00c3 01d6 | | Execute Vector,Field_Write
00c4 4836 |H6 | Short_Literal 0x36
00c5 4801 |H | Short_Literal 0x1
00c6 00da | | Load_Top At_Offset_2
00c7 01d6 | | Execute Vector,Field_Write
00c8 4892 |H | Short_Literal 0x92
00c9 4802 |H | Short_Literal 0x2
00ca 00da | | Load_Top At_Offset_2
00cb 01d6 | | Execute Vector,Field_Write
00cc 4884 |H | Short_Literal 0x84
00cd 4803 |H | Short_Literal 0x3
00ce 00da | | Load_Top At_Offset_2
00cf 01d6 | | Execute Vector,Field_Write
00d0 e40a | | Load 0x2,0xa
00d1 e005 | | Load 0x0,0x5
00d2 181c | | Execute Package,Field_Execute,Field_Number 0x1c
00d3 c40b | | Store 0x2,0xb
00d4 00c9 | | Action Pop_Auxiliary_Loop
00d5 e40a | | Load 0x2,0xa
00d6 e005 | | Load 0x0,0x5
00d7 1820 | | Execute Package,Field_Execute,Field_Number 0x20
00d8 6fd0 |o | Jump_Zero 0xa9
00d9 00ce | | Action Pop_Auxiliary
00da 00e3 | | Load_Encached Natural_Cache
00db e006 | | Load 0x0,0x6
00dc 1b19 | | Execute Package,Field_Read,Field_Number 0x19
00dd 4800 |H | Short_Literal 0x0
00de 612d |a- | Indirect_Literal Discrete,0x20c,{0x00007fff, 0xffffffff}
00df e40c | | Load 0x2,0xc
00e0 e009 | | Load 0x0,0x9
00e1 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00e2 e012 | | Load 0x0,0x12
00e3 1814 | | Execute Package,Field_Execute,Field_Number 0x14
00e4 e40a | | Load 0x2,0xa
00e5 e005 | | Load 0x0,0x5
00e6 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
00e7 c40b | | Store 0x2,0xb
00e8 c409 | | Store 0x2,0x9
00e9 e40a | | Load 0x2,0xa
00ea e005 | | Load 0x0,0x5
00eb 181e | | Execute Package,Field_Execute,Field_Number 0x1e
00ec 0092 0216 | | Action Push_String_Extended,0x216 ; "Client : data transmited."
00ee e010 | | Load 0x0,0x10
00ef 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
00f0 4801 |H | Short_Literal 0x1
00f1 e010 | | Load 0x0,0x10
00f2 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
00f3 0092 0217 | | Action Push_String_Extended,0x217 ; "Abonne : wait for ID..."
00f5 e010 | | Load 0x0,0x10
00f6 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
00f7 00cf | | Action Mark_Auxiliary
00f8 7808 |x | Jump 0x101
00f9 e006 | | Load 0x0,0x6
00fa 1b19 | | Execute Package,Field_Read,Field_Number 0x19
00fb 6110 |a | Indirect_Literal Discrete,0x20c,{0x00007fff, 0xffffffff}
00fc e40a | | Load 0x2,0xa
00fd e005 | | Load 0x0,0x5
00fe 181d | | Execute Package,Field_Execute,Field_Number 0x1d
00ff c40b | | Store 0x2,0xb
0100 00c9 | | Action Pop_Auxiliary_Loop
0101 e40a | | Load 0x2,0xa
0102 e005 | | Load 0x0,0x5
0103 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0104 6ff4 |o | Jump_Zero 0xf9
0105 00c9 | | Action Pop_Auxiliary_Loop
0106 00e3 | | Load_Encached Natural_Cache
0107 e40e | | Load 0x2,0xe
0108 e006 | | Load 0x0,0x6
0109 1b19 | | Execute Package,Field_Read,Field_Number 0x19
010a 6101 |a | Indirect_Literal Discrete,0x20c,{0x00007fff, 0xffffffff}
010b e40a | | Load 0x2,0xa
010c e005 | | Load 0x0,0x5
010d 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
010e c40b | | Store 0x2,0xb
010f 00d1 | | Pop_Control Pop_Count_1
0110 c409 | | Store 0x2,0x9
0111 e40b | | Load 0x2,0xb
0112 e006 | | Load 0x0,0x6
0113 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0114 0092 0218 | | Action Push_String_Extended,0x218 ; "OK"
0116 01df | | Execute Vector,Equal
0117 700a |p | Jump_Nonzero 0x122
0118 0092 0219 | | Action Push_String_Extended,0x219 ; "Client : status => "
011a e40b | | Load 0x2,0xb
011b e006 | | Load 0x0,0x6
011c 181a | | Execute Package,Field_Execute,Field_Number 0x1a
011d 01cc | | Execute Vector,Catenate
011e e010 | | Load 0x0,0x10
011f 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
0120 00c9 | | Action Pop_Auxiliary_Loop
0121 7fe4 | | Jump 0x106
0122 00ce | | Action Pop_Auxiliary
0123 0092 021a | | Action Push_String_Extended,0x21a ; "Abonne : received message from ORB "
0125 e010 | | Load 0x0,0x10
0126 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
0127 00db | | Load_Top At_Offset_3
0128 4801 |H | Short_Literal 0x1
0129 e409 | | Load 0x2,0x9
012a e40e | | Load 0x2,0xe
012b e012 | | Load 0x0,0x12
012c 1813 | | Execute Package,Field_Execute,Field_Number 0x13
012d 01cf | | Execute Vector,Slice_Read
012e e009 | | Load 0x0,0x9
012f 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0130 00d1 | | Pop_Control Pop_Count_1
0131 e402 | | Load 0x2,0x2
0132 e40d | | Load 0x2,0xd
0133 8013 | | Call 0x0,0x13
0134 00d1 | | Pop_Control Pop_Count_1
0135 e403 | | Load 0x2,0x3
0136 e402 | | Load 0x2,0x2
0137 8014 | | Call 0x0,0x14
0138 00d1 | | Pop_Control Pop_Count_1
0139 e403 | | Load 0x2,0x3
013a e009 | | Load 0x0,0x9
013b 1813 | | Execute Package,Field_Execute,Field_Number 0x13
013c 00e2 | | Load_Encached Integer_Cache
013d 00e0 | | Load_Encached Standard_Cache
013e 1819 | | Execute Package,Field_Execute,Field_Number 0x19
013f a405 | | Store_Unchecked 0x2,0x5
0140 4801 |H | Short_Literal 0x1
0141 e409 | | Load 0x2,0x9
0142 e40e | | Load 0x2,0xe
0143 e012 | | Load 0x0,0x12
0144 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0145 01cf | | Execute Vector,Slice_Read
0146 e010 | | Load 0x0,0x10
0147 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
0148 e40a | | Load 0x2,0xa
0149 e005 | | Load 0x0,0x5
014a 181e | | Execute Package,Field_Execute,Field_Number 0x1e
014b 00e8 | | Load_Encached Character_Cache
014c e010 | | Load 0x0,0x10
014d 1845 | E | Execute Package,Field_Execute,Field_Number 0x45
014e 0059 | Y | Store_Top Discrete,At_Offset_1
014f 4808 |H | Short_Literal 0x8
0150 a404 | | Store_Unchecked 0x2,0x4
0151 e403 | | Load 0x2,0x3
0152 0092 021b | | Action Push_String_Extended,0x21b ; "Datum"
0154 e009 | | Load 0x0,0x9
0155 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0156 00d1 | | Pop_Control Pop_Count_1
0157 e402 | | Load 0x2,0x2
0158 e403 | | Load 0x2,0x3
0159 800c | | Call 0x0,0xc
015a 00d1 | | Pop_Control Pop_Count_1
015b e402 | | Load 0x2,0x2
015c e404 | | Load 0x2,0x4
015d 800d | | Call 0x0,0xd
015e 00d1 | | Pop_Control Pop_Count_1
015f e402 | | Load 0x2,0x2
0160 e405 | | Load 0x2,0x5
0161 800e | | Call 0x0,0xe
0162 00d1 | | Pop_Control Pop_Count_1
0163 e40c | | Load 0x2,0xc
0164 e402 | | Load 0x2,0x2
0165 800f | | Call 0x0,0xf
0166 00d1 | | Pop_Control Pop_Count_1
0167 0092 021c | | Action Push_String_Extended,0x21c ; "Abonne : send message to ORB..."
0169 e40c | | Load 0x2,0xc
016a e009 | | Load 0x0,0x9
016b 1813 | | Execute Package,Field_Execute,Field_Number 0x13
016c 01cc | | Execute Vector,Catenate
016d e010 | | Load 0x0,0x10
016e 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
016f 00cf | | Action Mark_Auxiliary
0170 782c |x, | Jump 0x19d
0171 e006 | | Load 0x0,0x6
0172 1b19 | | Execute Package,Field_Read,Field_Number 0x19
0173 6098 |` | Indirect_Literal Discrete,0x20c,{0x00007fff, 0xffffffff}
0174 4800 |H | Short_Literal 0x0
0175 4801 |H | Short_Literal 0x1
0176 e011 | | Load 0x0,0x11
0177 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0178 035b | [ | Declare_Type Array,Constrained
0179 0337 | 7 | Declare_Variable Array
017a 480a |H | Short_Literal 0xa
017b 4800 |H | Short_Literal 0x0
017c 00da | | Load_Top At_Offset_2
017d 01d6 | | Execute Vector,Field_Write
017e 482a |H* | Short_Literal 0x2a
017f 4801 |H | Short_Literal 0x1
0180 00da | | Load_Top At_Offset_2
0181 01d6 | | Execute Vector,Field_Write
0182 4800 |H | Short_Literal 0x0
0183 4803 |H | Short_Literal 0x3
0184 e011 | | Load 0x0,0x11
0185 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0186 035b | [ | Declare_Type Array,Constrained
0187 0337 | 7 | Declare_Variable Array
0188 48c1 |H | Short_Literal 0xc1
0189 4800 |H | Short_Literal 0x0
018a 00da | | Load_Top At_Offset_2
018b 01d6 | | Execute Vector,Field_Write
018c 4836 |H6 | Short_Literal 0x36
018d 4801 |H | Short_Literal 0x1
018e 00da | | Load_Top At_Offset_2
018f 01d6 | | Execute Vector,Field_Write
0190 4892 |H | Short_Literal 0x92
0191 4802 |H | Short_Literal 0x2
0192 00da | | Load_Top At_Offset_2
0193 01d6 | | Execute Vector,Field_Write
0194 4884 |H | Short_Literal 0x84
0195 4803 |H | Short_Literal 0x3
0196 00da | | Load_Top At_Offset_2
0197 01d6 | | Execute Vector,Field_Write
0198 e40a | | Load 0x2,0xa
0199 e005 | | Load 0x0,0x5
019a 181c | | Execute Package,Field_Execute,Field_Number 0x1c
019b c40b | | Store 0x2,0xb
019c 00c9 | | Action Pop_Auxiliary_Loop
019d e40a | | Load 0x2,0xa
019e e005 | | Load 0x0,0x5
019f 1820 | | Execute Package,Field_Execute,Field_Number 0x20
01a0 6fd0 |o | Jump_Zero 0x171
01a1 00ce | | Action Pop_Auxiliary
01a2 00e3 | | Load_Encached Natural_Cache
01a3 e006 | | Load 0x0,0x6
01a4 1b19 | | Execute Package,Field_Read,Field_Number 0x19
01a5 4800 |H | Short_Literal 0x0
01a6 6065 |`e | Indirect_Literal Discrete,0x20c,{0x00007fff, 0xffffffff}
01a7 e40c | | Load 0x2,0xc
01a8 e009 | | Load 0x0,0x9
01a9 1813 | | Execute Package,Field_Execute,Field_Number 0x13
01aa e012 | | Load 0x0,0x12
01ab 1814 | | Execute Package,Field_Execute,Field_Number 0x14
01ac e40a | | Load 0x2,0xa
01ad e005 | | Load 0x0,0x5
01ae 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
01af c40b | | Store 0x2,0xb
01b0 c409 | | Store 0x2,0x9
01b1 e40a | | Load 0x2,0xa
01b2 e005 | | Load 0x0,0x5
01b3 181e | | Execute Package,Field_Execute,Field_Number 0x1e
01b4 0092 021d | | Action Push_String_Extended,0x21d ; "Abonne : Wait for all datum.."
01b6 e010 | | Load 0x0,0x10
01b7 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
01b8 00cf | | Action Mark_Auxiliary
01b9 00cf | | Action Mark_Auxiliary
01ba 7808 |x | Jump 0x1c3
01bb e006 | | Load 0x0,0x6
01bc 1b19 | | Execute Package,Field_Read,Field_Number 0x19
01bd 604e |`N | Indirect_Literal Discrete,0x20c,{0x00007fff, 0xffffffff}
01be e40a | | Load 0x2,0xa
01bf e005 | | Load 0x0,0x5
01c0 181d | | Execute Package,Field_Execute,Field_Number 0x1d
01c1 c40b | | Store 0x2,0xb
01c2 00c9 | | Action Pop_Auxiliary_Loop
01c3 e40a | | Load 0x2,0xa
01c4 e005 | | Load 0x0,0x5
01c5 1820 | | Execute Package,Field_Execute,Field_Number 0x20
01c6 6ff4 |o | Jump_Zero 0x1bb
01c7 00c9 | | Action Pop_Auxiliary_Loop
01c8 00e3 | | Load_Encached Natural_Cache
01c9 e40e | | Load 0x2,0xe
01ca e006 | | Load 0x0,0x6
01cb 1b19 | | Execute Package,Field_Read,Field_Number 0x19
01cc 603f |`? | Indirect_Literal Discrete,0x20c,{0x00007fff, 0xffffffff}
01cd e40a | | Load 0x2,0xa
01ce e005 | | Load 0x0,0x5
01cf 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
01d0 c40b | | Store 0x2,0xb
01d1 00d1 | | Pop_Control Pop_Count_1
01d2 c409 | | Store 0x2,0x9
01d3 e40b | | Load 0x2,0xb
01d4 e006 | | Load 0x0,0x6
01d5 181a | | Execute Package,Field_Execute,Field_Number 0x1a
01d6 0092 0218 | | Action Push_String_Extended,0x218 ; "OK"
01d8 01df | | Execute Vector,Equal
01d9 7002 |p | Jump_Nonzero 0x1dc
01da 00c9 | | Action Pop_Auxiliary_Loop
01db 7fec | | Jump 0x1c8
01dc 00ce | | Action Pop_Auxiliary
01dd 0092 021a | | Action Push_String_Extended,0x21a ; "Abonne : received message from ORB "
01df e010 | | Load 0x0,0x10
01e0 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
01e1 e40d | | Load 0x2,0xd
01e2 4801 |H | Short_Literal 0x1
01e3 e409 | | Load 0x2,0x9
01e4 e40e | | Load 0x2,0xe
01e5 e012 | | Load 0x0,0x12
01e6 1813 | | Execute Package,Field_Execute,Field_Number 0x13
01e7 01cf | | Execute Vector,Slice_Read
01e8 e009 | | Load 0x0,0x9
01e9 1810 | | Execute Package,Field_Execute,Field_Number 0x10
01ea 00d1 | | Pop_Control Pop_Count_1
01eb e402 | | Load 0x2,0x2
01ec e40d | | Load 0x2,0xd
01ed 8013 | | Call 0x0,0x13
01ee 00d1 | | Pop_Control Pop_Count_1
01ef e403 | | Load 0x2,0x3
01f0 e402 | | Load 0x2,0x2
01f1 8014 | | Call 0x0,0x14
01f2 00d1 | | Pop_Control Pop_Count_1
01f3 4801 |H | Short_Literal 0x1
01f4 e409 | | Load 0x2,0x9
01f5 e40e | | Load 0x2,0xe
01f6 e012 | | Load 0x0,0x12
01f7 1813 | | Execute Package,Field_Execute,Field_Number 0x13
01f8 01cf | | Execute Vector,Slice_Read
01f9 e010 | | Load 0x0,0x10
01fa 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
01fb e40a | | Load 0x2,0xa
01fc e005 | | Load 0x0,0x5
01fd 181e | | Execute Package,Field_Execute,Field_Number 0x1e
01fe 00e8 | | Load_Encached Character_Cache
01ff e010 | | Load 0x0,0x10
0200 1845 | E | Execute Package,Field_Execute,Field_Number 0x45
0201 005a | Z | Store_Top Discrete,At_Offset_2
0202 00d9 | | Load_Top At_Offset_1
0203 0f71 | q | Execute_Immediate Equal,0x71
0204 7002 |p | Jump_Nonzero 0x207
0205 00c9 | | Action Pop_Auxiliary_Loop
0206 7fb2 | | Jump 0x1b9
0207 00ce | | Action Pop_Auxiliary
0208 e40a | | Load 0x2,0xa
0209 e005 | | Load 0x0,0x5
020a 181b | | Execute Package,Field_Execute,Field_Number 0x1b
020b 4501 |E | Exit_Subprogram 0x1
020c 0000 7fff | | .LITERAL {0x00007fff, 0xffffffff}
0210 5443 502f |TCP/| .LITERAL {0x5443502f, 0x49502020}
0214 ; --------------------------------------------------------------------------------------
0214 ; STRING TABLE
0214 ; --------------------------------------------------------------------------------------
0214 0016 | | .STRTAB 0x0016->0x021f ; "Client"
0215 001a | | .STRTAB 0x001a->0x0222 ; "Abonne : send message to ORB : "
0216 0037 | 7 | .STRTAB 0x0037->0x0231 ; "Client : data transmited."
0217 004e | N | .STRTAB 0x004e->0x023e ; "Abonne : wait for ID..."
0218 0063 | c | .STRTAB 0x0063->0x0249 ; "OK"
; "OK"
0219 0063 | c | .STRTAB 0x0063->0x024a ; "Client : status => "
021a 0074 | t | .STRTAB 0x0074->0x0254 ; "Abonne : received message from ORB "
; "Abonne : received message from ORB "
021b 0095 | | .STRTAB 0x0095->0x0265 ; "Datum"
021c 0098 | | .STRTAB 0x0098->0x0268 ; "Abonne : send message to ORB..."
021d 00b5 | | .STRTAB 0x00b5->0x0277 ; "Abonne : Wait for all datum.."
021e 00d0 | | .STREND 0x00d0->0x0286
021f 436c 6965 |Clie| .STRTAB_STRINGS
0286 0000 0000 | | .XXX[0x2]
0288 ; --------------------------------------------------------------------------------------
0288 ; Debug Table
0288 ; --------------------------------------------------------------------------------------
0288 0004 000a | | .DEBUG4 0x0004,0x000a,0x417f,0x0000,0x0001,0x0002
028e 000b 0000 | | .DBG4T 0x000b,0x0000,0x8000,0x0000
0292 001b 0296 | | .DBG4T 0x001b,0x0296,0x8001,0x4000
0296 ; --------------------------------------------------------------------------------------
0296 ; Debug chain
0296 ; --------------------------------------------------------------------------------------
0296 000f 003e | >| .DBGLEN 0x000f,0x003e
0298 001b 001f | | .DBGLNO 0x001b,0x001f,0x0023,0x0025,0x0027,0x002b,0x002f,0x0033,0x0034,0x0039,0x003b,0x003f,0x0043,0x0049,0x004e,0x004f,0x0051,0x0057,0x005d,0x006d,0x0073,0x0076,0x007b,0x0080,0x0085,0x008a,0x008f,0x0093,0x0097,0x009b,0x009f,0x00a9,0x00d5,0x00da,0x00e9,0x00ec,0x00f0,0x00f3,0x00f9,0x0101,0x0106,0x0111,0x0118,0x0123,0x0127,0x0131,0x0135,0x0139,0x0140,0x0148,0x014b,0x014f,0x0151,0x0157,0x015b,0x015f,0x0163,0x0167,0x0171,0x019d,0x01a2,0x01b1,0x01b4,0x01b9,0x01bb,0x01c3,0x01c8,0x01d3,0x01dd,0x01e1,0x01eb,0x01ef,0x01f3,0x01fb,0x01fe,0x0202,0x0208
02e5 0001 0002 | | .XXX[0x3e]
02e7 0003 0004 | |
02e9 0005 0006 | |
02eb 0007 0008 | |
02ed 0009 000a | |
02ef 000b 000c | |
02f1 000d 000e | |
02f3 000f 0010 | |
02f5 0012 0011 | |
02f7 0013 0014 | |
02f9 0015 0016 | |
02fb 0017 0019 | |
02fd 0018 001b | |
02ff 001c 001d | |
0301 001e 001f | |
0303 0020 0021 | !|
0305 0022 0023 | " #|
0307 0024 0025 | $ %|
0309 0026 0027 | & '|
030b 0028 0029 | ( )|
030d 002a 002b | * +|
030f 002c 002e | , .|
0311 002d 002f | - /|
0313 0030 0031 | 0 1|
0315 0032 0034 | 2 4|
0317 0033 0036 | 3 6|
0319 0037 0038 | 7 8|
031b 0039 003a | 9 :|
031d 003b 003c | ; <|
031f 003d 003e | = >|
0321 003f 0040 | ? @|
0323 0000 0000 | | .BLANK 0000[0xdd]