|
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_1bd897
└─⟦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 0298 | | .CONST 0x0298 ; 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 INIT_0018,For_Outer_Call,Visible,Unelaborated
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 51de |Q | Indirect_Literal Any,0x22c,{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 0230 | 0| Action Push_String_Extended,0x230 ; "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 0231 | 1| Action Push_String_Extended,0x231 ; "Client : 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 617c |a| | Indirect_Literal Discrete,0x228,{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 6149 |aI | Indirect_Literal Discrete,0x228,{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 0232 | 2| Action Push_String_Extended,0x232 ; "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 0233 | 3| Action Push_String_Extended,0x233 ; "Client : 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 612c |a, | Indirect_Literal Discrete,0x228,{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 00ce | | Action Pop_Auxiliary
0106 0092 0234 | 4| Action Push_String_Extended,0x234 ; "Client : status => "
0108 e40b | | Load 0x2,0xb
0109 e006 | | Load 0x0,0x6
010a 181a | | Execute Package,Field_Execute,Field_Number 0x1a
010b 01cc | | Execute Vector,Catenate
010c e010 | | Load 0x0,0x10
010d 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
010e 00cf | | Action Mark_Auxiliary
010f 00e3 | | Load_Encached Natural_Cache
0110 e40e | | Load 0x2,0xe
0111 e006 | | Load 0x0,0x6
0112 1b19 | | Execute Package,Field_Read,Field_Number 0x19
0113 6114 |a | Indirect_Literal Discrete,0x228,{0x00007fff, 0xffffffff}
0114 e40a | | Load 0x2,0xa
0115 e005 | | Load 0x0,0x5
0116 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
0117 c40b | | Store 0x2,0xb
0118 00d1 | | Pop_Control Pop_Count_1
0119 c409 | | Store 0x2,0x9
011a e40b | | Load 0x2,0xb
011b e006 | | Load 0x0,0x6
011c 181a | | Execute Package,Field_Execute,Field_Number 0x1a
011d 0092 0235 | 5| Action Push_String_Extended,0x235 ; "OK"
011f 01df | | Execute Vector,Equal
0120 700a |p | Jump_Nonzero 0x12b
0121 0092 0234 | 4| Action Push_String_Extended,0x234 ; "Client : status => "
0123 e40b | | Load 0x2,0xb
0124 e006 | | Load 0x0,0x6
0125 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0126 01cc | | Execute Vector,Catenate
0127 e010 | | Load 0x0,0x10
0128 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
0129 00c9 | | Action Pop_Auxiliary_Loop
012a 7fe4 | | Jump 0x10f
012b 00ce | | Action Pop_Auxiliary
012c 0092 0236 | 6| Action Push_String_Extended,0x236 ; "Client : received message from ORB "
012e e010 | | Load 0x0,0x10
012f 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
0130 00db | | Load_Top At_Offset_3
0131 4801 |H | Short_Literal 0x1
0132 e409 | | Load 0x2,0x9
0133 e40e | | Load 0x2,0xe
0134 e012 | | Load 0x0,0x12
0135 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0136 01cf | | Execute Vector,Slice_Read
0137 e009 | | Load 0x0,0x9
0138 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0139 00d1 | | Pop_Control Pop_Count_1
013a e402 | | Load 0x2,0x2
013b e40d | | Load 0x2,0xd
013c 8013 | | Call 0x0,0x13
013d 00d1 | | Pop_Control Pop_Count_1
013e e403 | | Load 0x2,0x3
013f e402 | | Load 0x2,0x2
0140 8014 | | Call 0x0,0x14
0141 00d1 | | Pop_Control Pop_Count_1
0142 e403 | | Load 0x2,0x3
0143 e009 | | Load 0x0,0x9
0144 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0145 00e2 | | Load_Encached Integer_Cache
0146 00e0 | | Load_Encached Standard_Cache
0147 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0148 a405 | | Store_Unchecked 0x2,0x5
0149 4801 |H | Short_Literal 0x1
014a e409 | | Load 0x2,0x9
014b e40e | | Load 0x2,0xe
014c e012 | | Load 0x0,0x12
014d 1813 | | Execute Package,Field_Execute,Field_Number 0x13
014e 01cf | | Execute Vector,Slice_Read
014f e010 | | Load 0x0,0x10
0150 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
0151 e40a | | Load 0x2,0xa
0152 e005 | | Load 0x0,0x5
0153 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0154 00e8 | | Load_Encached Character_Cache
0155 e010 | | Load 0x0,0x10
0156 1845 | E | Execute Package,Field_Execute,Field_Number 0x45
0157 0059 | Y | Store_Top Discrete,At_Offset_1
0158 4803 |H | Short_Literal 0x3
0159 a404 | | Store_Unchecked 0x2,0x4
015a e403 | | Load 0x2,0x3
015b 0092 0237 | 7| Action Push_String_Extended,0x237 ; "Datum"
015d e009 | | Load 0x0,0x9
015e 1810 | | Execute Package,Field_Execute,Field_Number 0x10
015f 00d1 | | Pop_Control Pop_Count_1
0160 e402 | | Load 0x2,0x2
0161 e403 | | Load 0x2,0x3
0162 800c | | Call 0x0,0xc
0163 00d1 | | Pop_Control Pop_Count_1
0164 e402 | | Load 0x2,0x2
0165 e404 | | Load 0x2,0x4
0166 800d | | Call 0x0,0xd
0167 00d1 | | Pop_Control Pop_Count_1
0168 e402 | | Load 0x2,0x2
0169 e405 | | Load 0x2,0x5
016a 800e | | Call 0x0,0xe
016b 00d1 | | Pop_Control Pop_Count_1
016c e40c | | Load 0x2,0xc
016d e402 | | Load 0x2,0x2
016e 800f | | Call 0x0,0xf
016f 00d1 | | Pop_Control Pop_Count_1
0170 0092 0231 | 1| Action Push_String_Extended,0x231 ; "Client : send message to ORB..."
0172 e40c | | Load 0x2,0xc
0173 e009 | | Load 0x0,0x9
0174 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0175 01cc | | Execute Vector,Catenate
0176 e010 | | Load 0x0,0x10
0177 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
0178 60ab |` | Indirect_Literal Discrete,0x224,{0x00000000, 0x000a0000}
0179 00ba | | Action Initiate_Delay
017a 00cf | | Action Mark_Auxiliary
017b 782c |x, | Jump 0x1a8
017c e006 | | Load 0x0,0x6
017d 1b19 | | Execute Package,Field_Read,Field_Number 0x19
017e 60a9 |` | Indirect_Literal Discrete,0x228,{0x00007fff, 0xffffffff}
017f 4800 |H | Short_Literal 0x0
0180 4801 |H | Short_Literal 0x1
0181 e011 | | Load 0x0,0x11
0182 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0183 035b | [ | Declare_Type Array,Constrained
0184 0337 | 7 | Declare_Variable Array
0185 480a |H | Short_Literal 0xa
0186 4800 |H | Short_Literal 0x0
0187 00da | | Load_Top At_Offset_2
0188 01d6 | | Execute Vector,Field_Write
0189 482a |H* | Short_Literal 0x2a
018a 4801 |H | Short_Literal 0x1
018b 00da | | Load_Top At_Offset_2
018c 01d6 | | Execute Vector,Field_Write
018d 4800 |H | Short_Literal 0x0
018e 4803 |H | Short_Literal 0x3
018f e011 | | Load 0x0,0x11
0190 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0191 035b | [ | Declare_Type Array,Constrained
0192 0337 | 7 | Declare_Variable Array
0193 48c1 |H | Short_Literal 0xc1
0194 4800 |H | Short_Literal 0x0
0195 00da | | Load_Top At_Offset_2
0196 01d6 | | Execute Vector,Field_Write
0197 4836 |H6 | Short_Literal 0x36
0198 4801 |H | Short_Literal 0x1
0199 00da | | Load_Top At_Offset_2
019a 01d6 | | Execute Vector,Field_Write
019b 4892 |H | Short_Literal 0x92
019c 4802 |H | Short_Literal 0x2
019d 00da | | Load_Top At_Offset_2
019e 01d6 | | Execute Vector,Field_Write
019f 4884 |H | Short_Literal 0x84
01a0 4803 |H | Short_Literal 0x3
01a1 00da | | Load_Top At_Offset_2
01a2 01d6 | | Execute Vector,Field_Write
01a3 e40a | | Load 0x2,0xa
01a4 e005 | | Load 0x0,0x5
01a5 181c | | Execute Package,Field_Execute,Field_Number 0x1c
01a6 c40b | | Store 0x2,0xb
01a7 00c9 | | Action Pop_Auxiliary_Loop
01a8 e40a | | Load 0x2,0xa
01a9 e005 | | Load 0x0,0x5
01aa 1820 | | Execute Package,Field_Execute,Field_Number 0x20
01ab 6fd0 |o | Jump_Zero 0x17c
01ac 00ce | | Action Pop_Auxiliary
01ad 6072 |`r | Indirect_Literal Discrete,0x220,{0x00000000, 0x00050000}
01ae 00ba | | Action Initiate_Delay
01af 00e3 | | Load_Encached Natural_Cache
01b0 e006 | | Load 0x0,0x6
01b1 1b19 | | Execute Package,Field_Read,Field_Number 0x19
01b2 4800 |H | Short_Literal 0x0
01b3 6074 |`t | Indirect_Literal Discrete,0x228,{0x00007fff, 0xffffffff}
01b4 e40c | | Load 0x2,0xc
01b5 e009 | | Load 0x0,0x9
01b6 1813 | | Execute Package,Field_Execute,Field_Number 0x13
01b7 e012 | | Load 0x0,0x12
01b8 1814 | | Execute Package,Field_Execute,Field_Number 0x14
01b9 e40a | | Load 0x2,0xa
01ba e005 | | Load 0x0,0x5
01bb 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
01bc c40b | | Store 0x2,0xb
01bd c409 | | Store 0x2,0x9
01be e40a | | Load 0x2,0xa
01bf e005 | | Load 0x0,0x5
01c0 181e | | Execute Package,Field_Execute,Field_Number 0x1e
01c1 0092 0232 | 2| Action Push_String_Extended,0x232 ; "Client : data transmited."
01c3 e010 | | Load 0x0,0x10
01c4 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
01c5 4801 |H | Short_Literal 0x1
01c6 e010 | | Load 0x0,0x10
01c7 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
01c8 0092 0238 | 8| Action Push_String_Extended,0x238 ; "Client : wait for answer..."
01ca e010 | | Load 0x0,0x10
01cb 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
01cc 00cf | | Action Mark_Auxiliary
01cd 7808 |x | Jump 0x1d6
01ce e006 | | Load 0x0,0x6
01cf 1b19 | | Execute Package,Field_Read,Field_Number 0x19
01d0 6057 |`W | Indirect_Literal Discrete,0x228,{0x00007fff, 0xffffffff}
01d1 e40a | | Load 0x2,0xa
01d2 e005 | | Load 0x0,0x5
01d3 181d | | Execute Package,Field_Execute,Field_Number 0x1d
01d4 c40b | | Store 0x2,0xb
01d5 00c9 | | Action Pop_Auxiliary_Loop
01d6 e40a | | Load 0x2,0xa
01d7 e005 | | Load 0x0,0x5
01d8 1820 | | Execute Package,Field_Execute,Field_Number 0x20
01d9 6ff4 |o | Jump_Zero 0x1ce
01da 00ce | | Action Pop_Auxiliary
01db 0092 0234 | 4| Action Push_String_Extended,0x234 ; "Client : status => "
01dd e40b | | Load 0x2,0xb
01de e006 | | Load 0x0,0x6
01df 181a | | Execute Package,Field_Execute,Field_Number 0x1a
01e0 01cc | | Execute Vector,Catenate
01e1 e010 | | Load 0x0,0x10
01e2 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
01e3 00cf | | Action Mark_Auxiliary
01e4 00e3 | | Load_Encached Natural_Cache
01e5 e40e | | Load 0x2,0xe
01e6 e006 | | Load 0x0,0x6
01e7 1b19 | | Execute Package,Field_Read,Field_Number 0x19
01e8 603f |`? | Indirect_Literal Discrete,0x228,{0x00007fff, 0xffffffff}
01e9 e40a | | Load 0x2,0xa
01ea e005 | | Load 0x0,0x5
01eb 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
01ec c40b | | Store 0x2,0xb
01ed 00d1 | | Pop_Control Pop_Count_1
01ee c409 | | Store 0x2,0x9
01ef e40b | | Load 0x2,0xb
01f0 e006 | | Load 0x0,0x6
01f1 181a | | Execute Package,Field_Execute,Field_Number 0x1a
01f2 0092 0235 | 5| Action Push_String_Extended,0x235 ; "OK"
01f4 01df | | Execute Vector,Equal
01f5 7002 |p | Jump_Nonzero 0x1f8
01f6 00c9 | | Action Pop_Auxiliary_Loop
01f7 7fec | | Jump 0x1e4
01f8 00ce | | Action Pop_Auxiliary
01f9 0092 0236 | 6| Action Push_String_Extended,0x236 ; "Client : received message from ORB "
01fb e010 | | Load 0x0,0x10
01fc 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
01fd 00db | | Load_Top At_Offset_3
01fe 4801 |H | Short_Literal 0x1
01ff e409 | | Load 0x2,0x9
0200 e40e | | Load 0x2,0xe
0201 e012 | | Load 0x0,0x12
0202 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0203 01cf | | Execute Vector,Slice_Read
0204 e009 | | Load 0x0,0x9
0205 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0206 00d1 | | Pop_Control Pop_Count_1
0207 e402 | | Load 0x2,0x2
0208 e40d | | Load 0x2,0xd
0209 8013 | | Call 0x0,0x13
020a 00d1 | | Pop_Control Pop_Count_1
020b e403 | | Load 0x2,0x3
020c e402 | | Load 0x2,0x2
020d 8014 | | Call 0x0,0x14
020e 00d1 | | Pop_Control Pop_Count_1
020f 4801 |H | Short_Literal 0x1
0210 e409 | | Load 0x2,0x9
0211 e40e | | Load 0x2,0xe
0212 e012 | | Load 0x0,0x12
0213 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0214 01cf | | Execute Vector,Slice_Read
0215 e010 | | Load 0x0,0x10
0216 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
0217 e40a | | Load 0x2,0xa
0218 e005 | | Load 0x0,0x5
0219 181e | | Execute Package,Field_Execute,Field_Number 0x1e
021a e40a | | Load 0x2,0xa
021b e005 | | Load 0x0,0x5
021c 181b | | Execute Package,Field_Execute,Field_Number 0x1b
021d 4501 |E | Exit_Suprogram New_Top_Offset 0x1
021e 0000 0000 | | .XXX[0x2]
0220 0000 0000 | | .LITERAL {0x00000000, 0x00050000}
0224 0000 0000 | | .LITERAL {0x00000000, 0x000a0000}
0228 0000 7fff | | .LITERAL {0x00007fff, 0xffffffff}
022c 5443 502f |TCP/| .LITERAL {0x5443502f, 0x49502020}
0230 ; --------------------------------------------------------------------------------------
0230 ; STRING TABLE
0230 ; --------------------------------------------------------------------------------------
0230 0014 | | .STRTAB 0x0014->0x023a ; "Client"
0231 0018 | | .STRTAB 0x0018->0x023d ; "Client : send message to ORB..."
0232 0035 | 5 | .STRTAB 0x0035->0x024c ; "Client : data transmited."
0233 004c | L | .STRTAB 0x004c->0x0259 ; "Client : wait for ID..."
0234 0061 | a | .STRTAB 0x0061->0x0264 ; "Client : status => "
0235 0072 | r | .STRTAB 0x0072->0x026e ; "OK"
0236 0072 | r | .STRTAB 0x0072->0x026f ; "Client : received message from ORB "
0237 0093 | | .STRTAB 0x0093->0x0280 ; "Datum"
0238 0096 | | .STRTAB 0x0096->0x0283 ; "Client : wait for answer..."
0239 00af | | .STREND 0x00af->0x0290
023a 436c 6965 |Clie| .STRTAB_STRINGS
0291 0000 0000 | | .BLANK 0000[0x7]
0298 ; --------------------------------------------------------------------------------------
0298 ; Debug Table
0298 ; --------------------------------------------------------------------------------------
0298 0004 000a | | .DEBUG4 0x0004,0x000a,0x40f1,0x0000,0x0001,0x0002
029e 000b 0000 | | .DBG4T 0x000b,0x0000,0x8000,0x0000
02a2 001b 02a6 | | .DBG4T 0x001b,0x02a6,0x8001,0x4000
02a6 ; --------------------------------------------------------------------------------------
02a6 ; Debug chain
02a6 ; --------------------------------------------------------------------------------------
02a6 000f 0041 | A| .DBGLEN 0x000f,0x0041
02a8 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,0x010f,0x011a,0x0121,0x012c,0x0130,0x013a,0x013e,0x0142,0x0149,0x0151,0x0154,0x0158,0x015a,0x0160,0x0164,0x0168,0x016c,0x0170,0x0178,0x017c,0x01a8,0x01ad,0x01af,0x01be,0x01c1,0x01c5,0x01c8,0x01ce,0x01d6,0x01db,0x01e4,0x01ef,0x01f9,0x01fd,0x0207,0x020b,0x020f,0x0217,0x021a
02f8 0001 0002 | | .XXX[0x41]
02fa 0003 0004 | |
02fc 0005 0006 | |
02fe 0007 0008 | |
0300 0009 000a | |
0302 000b 000c | |
0304 000d 000e | |
0306 000f 0010 | |
0308 0012 0011 | |
030a 0013 0014 | |
030c 0015 0016 | |
030e 0017 0019 | |
0310 0018 001a | |
0312 001c 001d | |
0314 001e 001f | |
0316 0020 0021 | !|
0318 0022 0023 | " #|
031a 0024 0025 | $ %|
031c 0026 0027 | & '|
031e 0028 0029 | ( )|
0320 002a 002b | * +|
0322 002c 002d | , -|
0324 002e 0030 | . 0|
0326 002f 0031 | / 1|
0328 0032 0033 | 2 3|
032a 0034 0035 | 4 5|
032c 0036 0038 | 6 8|
032e 0037 0039 | 7 9|
0330 003b 003c | ; <|
0332 003d 003e | = >|
0334 003f 0040 | ? @|
0336 0041 0042 | A B|
0338 0043 | C |
0339 0000 0000 | | .BLANK 0000[0xc7]