|
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_0d30cd
└─⟦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 0310 | | .CONST 0x0310 ; 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 e005 | | Load 0x0,0x5
0028 02ff | | Declare_Variable Variant_Record
0029 00d8 | | Load_Top At_Offset_0
002a 1c00 | | Execute_Immediate Run_Utility,0x0
002b e006 | | Load 0x0,0x6
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 e007 | | Load 0x0,0x7
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 e008 | | Load 0x0,0x8
003a 1b19 | | Execute Package,Field_Read,Field_Number 0x19
003b e009 | | Load 0x0,0x9
003c 02ff | | Declare_Variable Variant_Record
003d 00d8 | | Load_Top At_Offset_0
003e 1c00 | | Execute_Immediate Run_Utility,0x0
003f e009 | | Load 0x0,0x9
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 e00a | | Load 0x0,0xa
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 520e |R | Indirect_Literal Any,0x25c,{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 0260 | `| Action Push_String_Extended,0x260 ; "Client"
0054 800b | | Call 0x0,0xb
0055 00d1 | | Pop_Control Pop_Count_1
0056 e406 | | Load 0x2,0x6
0057 00da | | Load_Top At_Offset_2
0058 e007 | | Load 0x0,0x7
0059 180f | | Execute Package,Field_Execute,Field_Number 0xf
005a 800c | | Call 0x0,0xc
005b 00d1 | | Pop_Control Pop_Count_1
005c e008 | | Load 0x0,0x8
005d 1b19 | | Execute Package,Field_Read,Field_Number 0x19
005e e40a | | Load 0x2,0xa
005f 0120 | | Execute Any,Is_Value
0060 6803 |h | Jump_Zero 0x64
0061 e007 | | Load 0x0,0x7
0062 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0063 7801 |x | Jump 0x65
0064 e40a | | Load 0x2,0xa
0065 e008 | | Load 0x0,0x8
0066 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0067 e40f | | Load 0x2,0xf
0068 e007 | | Load 0x0,0x7
0069 181a | | Execute Package,Field_Execute,Field_Number 0x1a
006a c40a | | Store 0x2,0xa
006b c40b | | Store 0x2,0xb
006c e407 | | Load 0x2,0x7
006d e40a | | Load 0x2,0xa
006e e007 | | Load 0x0,0x7
006f 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
0070 800d | | Call 0x0,0xd
0071 00d1 | | Pop_Control Pop_Count_1
0072 e403 | | Load 0x2,0x3
0073 e407 | | Load 0x2,0x7
0074 800e | | Call 0x0,0xe
0075 00d1 | | Pop_Control Pop_Count_1
0076 e403 | | Load 0x2,0x3
0077 0092 0261 | a| Action Push_String_Extended,0x261 ; ":"
0079 800f | | Call 0x0,0xf
007a 00d1 | | Pop_Control Pop_Count_1
007b e403 | | Load 0x2,0x3
007c e406 | | Load 0x2,0x6
007d 8010 | | Call 0x0,0x10
007e 00d1 | | Pop_Control Pop_Count_1
007f e403 | | Load 0x2,0x3
0080 0092 0261 | a| Action Push_String_Extended,0x261 ; ":"
0082 800f | | Call 0x0,0xf
0083 00d1 | | Pop_Control Pop_Count_1
0084 e403 | | Load 0x2,0x3
0085 e408 | | Load 0x2,0x8
0086 8010 | | Call 0x0,0x10
0087 00d1 | | Pop_Control Pop_Count_1
0088 e402 | | Load 0x2,0x2
0089 e403 | | Load 0x2,0x3
008a 8011 | | Call 0x0,0x11
008b 00d1 | | Pop_Control Pop_Count_1
008c e402 | | Load 0x2,0x2
008d e404 | | Load 0x2,0x4
008e 8012 | | Call 0x0,0x12
008f 00d1 | | Pop_Control Pop_Count_1
0090 e402 | | Load 0x2,0x2
0091 e405 | | Load 0x2,0x5
0092 8013 | | Call 0x0,0x13
0093 00d1 | | Pop_Control Pop_Count_1
0094 e40c | | Load 0x2,0xc
0095 e402 | | Load 0x2,0x2
0096 8014 | | Call 0x0,0x14
0097 00d1 | | Pop_Control Pop_Count_1
0098 0092 0262 | b| Action Push_String_Extended,0x262 ; "Client : send registration to ORB : "
009a e40c | | Load 0x2,0xc
009b 8015 | | Call 0x0,0x15
009c 01cc | | Execute Vector,Catenate
009d e016 | | Load 0x0,0x16
009e 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
009f 00cf | | Action Mark_Auxiliary
00a0 782c |x, | Jump 0xcd
00a1 e008 | | Load 0x0,0x8
00a2 1b19 | | Execute Package,Field_Read,Field_Number 0x19
00a3 61b4 |a | Indirect_Literal Discrete,0x258,{0x00007fff, 0xffffffff}
00a4 4800 |H | Short_Literal 0x0
00a5 4801 |H | Short_Literal 0x1
00a6 e017 | | Load 0x0,0x17
00a7 1b12 | | Execute Package,Field_Read,Field_Number 0x12
00a8 035b | [ | Declare_Type Array,Constrained
00a9 0337 | 7 | Declare_Variable Array
00aa 480a |H | Short_Literal 0xa
00ab 4800 |H | Short_Literal 0x0
00ac 00da | | Load_Top At_Offset_2
00ad 01d6 | | Execute Vector,Field_Write
00ae 482a |H* | Short_Literal 0x2a
00af 4801 |H | Short_Literal 0x1
00b0 00da | | Load_Top At_Offset_2
00b1 01d6 | | Execute Vector,Field_Write
00b2 4800 |H | Short_Literal 0x0
00b3 4803 |H | Short_Literal 0x3
00b4 e017 | | Load 0x0,0x17
00b5 1b12 | | Execute Package,Field_Read,Field_Number 0x12
00b6 035b | [ | Declare_Type Array,Constrained
00b7 0337 | 7 | Declare_Variable Array
00b8 48c1 |H | Short_Literal 0xc1
00b9 4800 |H | Short_Literal 0x0
00ba 00da | | Load_Top At_Offset_2
00bb 01d6 | | Execute Vector,Field_Write
00bc 4836 |H6 | Short_Literal 0x36
00bd 4801 |H | Short_Literal 0x1
00be 00da | | Load_Top At_Offset_2
00bf 01d6 | | Execute Vector,Field_Write
00c0 4892 |H | Short_Literal 0x92
00c1 4802 |H | Short_Literal 0x2
00c2 00da | | Load_Top At_Offset_2
00c3 01d6 | | Execute Vector,Field_Write
00c4 4884 |H | Short_Literal 0x84
00c5 4803 |H | Short_Literal 0x3
00c6 00da | | Load_Top At_Offset_2
00c7 01d6 | | Execute Vector,Field_Write
00c8 e40a | | Load 0x2,0xa
00c9 e007 | | Load 0x0,0x7
00ca 181c | | Execute Package,Field_Execute,Field_Number 0x1c
00cb c40b | | Store 0x2,0xb
00cc 00c9 | | Action Pop_Auxiliary_Loop
00cd e40a | | Load 0x2,0xa
00ce e007 | | Load 0x0,0x7
00cf 1820 | | Execute Package,Field_Execute,Field_Number 0x20
00d0 6fd0 |o | Jump_Zero 0xa1
00d1 00ce | | Action Pop_Auxiliary
00d2 0092 0263 | c| Action Push_String_Extended,0x263 ; "Client : connected to Orb"
00d4 e016 | | Load 0x0,0x16
00d5 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
00d6 00e3 | | Load_Encached Natural_Cache
00d7 e008 | | Load 0x0,0x8
00d8 1b19 | | Execute Package,Field_Read,Field_Number 0x19
00d9 4800 |H | Short_Literal 0x0
00da 617d |a} | Indirect_Literal Discrete,0x258,{0x00007fff, 0xffffffff}
00db e40c | | Load 0x2,0xc
00dc 8018 | | Call 0x0,0x18
00dd e40a | | Load 0x2,0xa
00de e007 | | Load 0x0,0x7
00df 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
00e0 c40b | | Store 0x2,0xb
00e1 c409 | | Store 0x2,0x9
00e2 e40a | | Load 0x2,0xa
00e3 e007 | | Load 0x0,0x7
00e4 181e | | Execute Package,Field_Execute,Field_Number 0x1e
00e5 0092 0264 | d| Action Push_String_Extended,0x264 ; "Client : data transmited."
00e7 e016 | | Load 0x0,0x16
00e8 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
00e9 0092 0265 | e| Action Push_String_Extended,0x265 ; "Client : wait for ID..."
00eb e016 | | Load 0x0,0x16
00ec 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
00ed 00cf | | Action Mark_Auxiliary
00ee 7808 |x | Jump 0xf7
00ef e008 | | Load 0x0,0x8
00f0 1b19 | | Execute Package,Field_Read,Field_Number 0x19
00f1 6166 |af | Indirect_Literal Discrete,0x258,{0x00007fff, 0xffffffff}
00f2 e40a | | Load 0x2,0xa
00f3 e007 | | Load 0x0,0x7
00f4 181d | | Execute Package,Field_Execute,Field_Number 0x1d
00f5 c40b | | Store 0x2,0xb
00f6 00c9 | | Action Pop_Auxiliary_Loop
00f7 e40a | | Load 0x2,0xa
00f8 e007 | | Load 0x0,0x7
00f9 1820 | | Execute Package,Field_Execute,Field_Number 0x20
00fa 6ff4 |o | Jump_Zero 0xef
00fb 00c9 | | Action Pop_Auxiliary_Loop
00fc 00e3 | | Load_Encached Natural_Cache
00fd e40e | | Load 0x2,0xe
00fe e008 | | Load 0x0,0x8
00ff 1b19 | | Execute Package,Field_Read,Field_Number 0x19
0100 6157 |aW | Indirect_Literal Discrete,0x258,{0x00007fff, 0xffffffff}
0101 e40a | | Load 0x2,0xa
0102 e007 | | Load 0x0,0x7
0103 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
0104 c40b | | Store 0x2,0xb
0105 00d1 | | Pop_Control Pop_Count_1
0106 c409 | | Store 0x2,0x9
0107 e40b | | Load 0x2,0xb
0108 e008 | | Load 0x0,0x8
0109 181a | | Execute Package,Field_Execute,Field_Number 0x1a
010a 0092 0266 | f| Action Push_String_Extended,0x266 ; "OK"
010c 01df | | Execute Vector,Equal
010d 7002 |p | Jump_Nonzero 0x110
010e 00c9 | | Action Pop_Auxiliary_Loop
010f 7fec | | Jump 0xfc
0110 00ce | | Action Pop_Auxiliary
0111 0092 0267 | g| Action Push_String_Extended,0x267 ; "Client : received message from ORB : "
0113 e016 | | Load 0x0,0x16
0114 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0115 00db | | Load_Top At_Offset_3
0116 4800 |H | Short_Literal 0x0
0117 e409 | | Load 0x2,0x9
0118 0aff | | Execute_Immediate Plus,-0x1
0119 e40e | | Load 0x2,0xe
011a 01cf | | Execute Vector,Slice_Read
011b 8019 | | Call 0x0,0x19
011c 00d1 | | Pop_Control Pop_Count_1
011d e402 | | Load 0x2,0x2
011e e40d | | Load 0x2,0xd
011f 801a | | Call 0x0,0x1a
0120 00d1 | | Pop_Control Pop_Count_1
0121 e403 | | Load 0x2,0x3
0122 e402 | | Load 0x2,0x2
0123 801b | | Call 0x0,0x1b
0124 00d1 | | Pop_Control Pop_Count_1
0125 e403 | | Load 0x2,0x3
0126 8015 | | Call 0x0,0x15
0127 00e2 | | Load_Encached Integer_Cache
0128 00e0 | | Load_Encached Standard_Cache
0129 1819 | | Execute Package,Field_Execute,Field_Number 0x19
012a a405 | | Store_Unchecked 0x2,0x5
012b 00db | | Load_Top At_Offset_3
012c 8015 | | Call 0x0,0x15
012d e016 | | Load 0x0,0x16
012e 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
012f e40a | | Load 0x2,0xa
0130 e007 | | Load 0x0,0x7
0131 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0132 00cf | | Action Mark_Auxiliary
0133 0092 0268 | h| Action Push_String_Extended,0x268 ; " q : quit, others : continue"
0135 e016 | | Load 0x0,0x16
0136 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0137 00e8 | | Load_Encached Character_Cache
0138 e016 | | Load 0x0,0x16
0139 1845 | E | Execute Package,Field_Execute,Field_Number 0x45
013a 005a | Z | Store_Top Discrete,At_Offset_2
013b 00d9 | | Load_Top At_Offset_1
013c 0f71 | q | Execute_Immediate Equal,0x71
013d 70ad |p | Jump_Nonzero 0x1eb
013e 4803 |H | Short_Literal 0x3
013f a404 | | Store_Unchecked 0x2,0x4
0140 e403 | | Load 0x2,0x3
0141 0092 0269 | i| Action Push_String_Extended,0x269 ; "Datum"
0143 800b | | Call 0x0,0xb
0144 00d1 | | Pop_Control Pop_Count_1
0145 e402 | | Load 0x2,0x2
0146 e403 | | Load 0x2,0x3
0147 8011 | | Call 0x0,0x11
0148 00d1 | | Pop_Control Pop_Count_1
0149 e402 | | Load 0x2,0x2
014a e404 | | Load 0x2,0x4
014b 8012 | | Call 0x0,0x12
014c 00d1 | | Pop_Control Pop_Count_1
014d e402 | | Load 0x2,0x2
014e e405 | | Load 0x2,0x5
014f 8013 | | Call 0x0,0x13
0150 00d1 | | Pop_Control Pop_Count_1
0151 e40c | | Load 0x2,0xc
0152 e402 | | Load 0x2,0x2
0153 8014 | | Call 0x0,0x14
0154 00d1 | | Pop_Control Pop_Count_1
0155 0092 026a | j| Action Push_String_Extended,0x26a ; "Client : send request to ORB :"
0157 e40c | | Load 0x2,0xc
0158 8015 | | Call 0x0,0x15
0159 01cc | | Execute Vector,Catenate
015a e016 | | Load 0x0,0x16
015b 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
015c 00cf | | Action Mark_Auxiliary
015d 782c |x, | Jump 0x18a
015e e008 | | Load 0x0,0x8
015f 1b19 | | Execute Package,Field_Read,Field_Number 0x19
0160 60f7 |` | Indirect_Literal Discrete,0x258,{0x00007fff, 0xffffffff}
0161 4800 |H | Short_Literal 0x0
0162 4801 |H | Short_Literal 0x1
0163 e017 | | Load 0x0,0x17
0164 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0165 035b | [ | Declare_Type Array,Constrained
0166 0337 | 7 | Declare_Variable Array
0167 480a |H | Short_Literal 0xa
0168 4800 |H | Short_Literal 0x0
0169 00da | | Load_Top At_Offset_2
016a 01d6 | | Execute Vector,Field_Write
016b 482a |H* | Short_Literal 0x2a
016c 4801 |H | Short_Literal 0x1
016d 00da | | Load_Top At_Offset_2
016e 01d6 | | Execute Vector,Field_Write
016f 4800 |H | Short_Literal 0x0
0170 4803 |H | Short_Literal 0x3
0171 e017 | | Load 0x0,0x17
0172 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0173 035b | [ | Declare_Type Array,Constrained
0174 0337 | 7 | Declare_Variable Array
0175 48c1 |H | Short_Literal 0xc1
0176 4800 |H | Short_Literal 0x0
0177 00da | | Load_Top At_Offset_2
0178 01d6 | | Execute Vector,Field_Write
0179 4836 |H6 | Short_Literal 0x36
017a 4801 |H | Short_Literal 0x1
017b 00da | | Load_Top At_Offset_2
017c 01d6 | | Execute Vector,Field_Write
017d 4892 |H | Short_Literal 0x92
017e 4802 |H | Short_Literal 0x2
017f 00da | | Load_Top At_Offset_2
0180 01d6 | | Execute Vector,Field_Write
0181 4884 |H | Short_Literal 0x84
0182 4803 |H | Short_Literal 0x3
0183 00da | | Load_Top At_Offset_2
0184 01d6 | | Execute Vector,Field_Write
0185 e40a | | Load 0x2,0xa
0186 e007 | | Load 0x0,0x7
0187 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0188 c40b | | Store 0x2,0xb
0189 00c9 | | Action Pop_Auxiliary_Loop
018a e40a | | Load 0x2,0xa
018b e007 | | Load 0x0,0x7
018c 1820 | | Execute Package,Field_Execute,Field_Number 0x20
018d 6fd0 |o | Jump_Zero 0x15e
018e 00ce | | Action Pop_Auxiliary
018f 0092 026b | k| Action Push_String_Extended,0x26b ; "Client : Connected to Orb"
0191 e016 | | Load 0x0,0x16
0192 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
0193 00e3 | | Load_Encached Natural_Cache
0194 e008 | | Load 0x0,0x8
0195 1b19 | | Execute Package,Field_Read,Field_Number 0x19
0196 4800 |H | Short_Literal 0x0
0197 60c0 |` | Indirect_Literal Discrete,0x258,{0x00007fff, 0xffffffff}
0198 e40c | | Load 0x2,0xc
0199 8018 | | Call 0x0,0x18
019a e40a | | Load 0x2,0xa
019b e007 | | Load 0x0,0x7
019c 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
019d c40b | | Store 0x2,0xb
019e c409 | | Store 0x2,0x9
019f e40a | | Load 0x2,0xa
01a0 e007 | | Load 0x0,0x7
01a1 181e | | Execute Package,Field_Execute,Field_Number 0x1e
01a2 0092 0264 | d| Action Push_String_Extended,0x264 ; "Client : data transmited."
01a4 e016 | | Load 0x0,0x16
01a5 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
01a6 0092 026c | l| Action Push_String_Extended,0x26c ; "Client : wait for forward..."
01a8 e016 | | Load 0x0,0x16
01a9 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
01aa 00cf | | Action Mark_Auxiliary
01ab 7808 |x | Jump 0x1b4
01ac e008 | | Load 0x0,0x8
01ad 1b19 | | Execute Package,Field_Read,Field_Number 0x19
01ae 60a9 |` | Indirect_Literal Discrete,0x258,{0x00007fff, 0xffffffff}
01af e40a | | Load 0x2,0xa
01b0 e007 | | Load 0x0,0x7
01b1 181d | | Execute Package,Field_Execute,Field_Number 0x1d
01b2 c40b | | Store 0x2,0xb
01b3 00c9 | | Action Pop_Auxiliary_Loop
01b4 e40a | | Load 0x2,0xa
01b5 e007 | | Load 0x0,0x7
01b6 1820 | | Execute Package,Field_Execute,Field_Number 0x20
01b7 6ff4 |o | Jump_Zero 0x1ac
01b8 00c9 | | Action Pop_Auxiliary_Loop
01b9 00e3 | | Load_Encached Natural_Cache
01ba e40e | | Load 0x2,0xe
01bb e008 | | Load 0x0,0x8
01bc 1b19 | | Execute Package,Field_Read,Field_Number 0x19
01bd 609a |` | Indirect_Literal Discrete,0x258,{0x00007fff, 0xffffffff}
01be e40a | | Load 0x2,0xa
01bf e007 | | Load 0x0,0x7
01c0 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
01c1 c40b | | Store 0x2,0xb
01c2 00d1 | | Pop_Control Pop_Count_1
01c3 c409 | | Store 0x2,0x9
01c4 e40b | | Load 0x2,0xb
01c5 e008 | | Load 0x0,0x8
01c6 181a | | Execute Package,Field_Execute,Field_Number 0x1a
01c7 0092 0266 | f| Action Push_String_Extended,0x266 ; "OK"
01c9 01df | | Execute Vector,Equal
01ca 7002 |p | Jump_Nonzero 0x1cd
01cb 00c9 | | Action Pop_Auxiliary_Loop
01cc 7fec | | Jump 0x1b9
01cd 00ce | | Action Pop_Auxiliary
01ce 0092 0267 | g| Action Push_String_Extended,0x267 ; "Client : received message from ORB : "
01d0 e016 | | Load 0x0,0x16
01d1 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
01d2 e40d | | Load 0x2,0xd
01d3 4800 |H | Short_Literal 0x0
01d4 e409 | | Load 0x2,0x9
01d5 0aff | | Execute_Immediate Plus,-0x1
01d6 e40e | | Load 0x2,0xe
01d7 01cf | | Execute Vector,Slice_Read
01d8 8019 | | Call 0x0,0x19
01d9 00d1 | | Pop_Control Pop_Count_1
01da e402 | | Load 0x2,0x2
01db e40d | | Load 0x2,0xd
01dc 801a | | Call 0x0,0x1a
01dd 00d1 | | Pop_Control Pop_Count_1
01de e403 | | Load 0x2,0x3
01df e402 | | Load 0x2,0x2
01e0 801b | | Call 0x0,0x1b
01e1 00d1 | | Pop_Control Pop_Count_1
01e2 e40d | | Load 0x2,0xd
01e3 8015 | | Call 0x0,0x15
01e4 e016 | | Load 0x0,0x16
01e5 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
01e6 e40a | | Load 0x2,0xa
01e7 e007 | | Load 0x0,0x7
01e8 181e | | Execute Package,Field_Execute,Field_Number 0x1e
01e9 00c9 | | Action Pop_Auxiliary_Loop
01ea 7f48 | H | Jump 0x133
01eb 00ce | | Action Pop_Auxiliary
01ec 4801 |H | Short_Literal 0x1
01ed a404 | | Store_Unchecked 0x2,0x4
01ee e403 | | Load 0x2,0x3
01ef 00ea | | Load_Encached Null_String_Cache
01f0 800b | | Call 0x0,0xb
01f1 00d1 | | Pop_Control Pop_Count_1
01f2 e402 | | Load 0x2,0x2
01f3 e403 | | Load 0x2,0x3
01f4 8011 | | Call 0x0,0x11
01f5 00d1 | | Pop_Control Pop_Count_1
01f6 e402 | | Load 0x2,0x2
01f7 e404 | | Load 0x2,0x4
01f8 8012 | | Call 0x0,0x12
01f9 00d1 | | Pop_Control Pop_Count_1
01fa e402 | | Load 0x2,0x2
01fb e405 | | Load 0x2,0x5
01fc 8013 | | Call 0x0,0x13
01fd 00d1 | | Pop_Control Pop_Count_1
01fe e40c | | Load 0x2,0xc
01ff e402 | | Load 0x2,0x2
0200 8014 | | Call 0x0,0x14
0201 00d1 | | Pop_Control Pop_Count_1
0202 0092 026d | m| Action Push_String_Extended,0x26d ; "Client : send unregistration to ORB :"
0204 e40c | | Load 0x2,0xc
0205 8015 | | Call 0x0,0x15
0206 01cc | | Execute Vector,Catenate
0207 e016 | | Load 0x0,0x16
0208 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
0209 00cf | | Action Mark_Auxiliary
020a 782c |x, | Jump 0x237
020b e008 | | Load 0x0,0x8
020c 1b19 | | Execute Package,Field_Read,Field_Number 0x19
020d 604a |`J | Indirect_Literal Discrete,0x258,{0x00007fff, 0xffffffff}
020e 4800 |H | Short_Literal 0x0
020f 4801 |H | Short_Literal 0x1
0210 e017 | | Load 0x0,0x17
0211 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0212 035b | [ | Declare_Type Array,Constrained
0213 0337 | 7 | Declare_Variable Array
0214 480a |H | Short_Literal 0xa
0215 4800 |H | Short_Literal 0x0
0216 00da | | Load_Top At_Offset_2
0217 01d6 | | Execute Vector,Field_Write
0218 482a |H* | Short_Literal 0x2a
0219 4801 |H | Short_Literal 0x1
021a 00da | | Load_Top At_Offset_2
021b 01d6 | | Execute Vector,Field_Write
021c 4800 |H | Short_Literal 0x0
021d 4803 |H | Short_Literal 0x3
021e e017 | | Load 0x0,0x17
021f 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0220 035b | [ | Declare_Type Array,Constrained
0221 0337 | 7 | Declare_Variable Array
0222 48c1 |H | Short_Literal 0xc1
0223 4800 |H | Short_Literal 0x0
0224 00da | | Load_Top At_Offset_2
0225 01d6 | | Execute Vector,Field_Write
0226 4836 |H6 | Short_Literal 0x36
0227 4801 |H | Short_Literal 0x1
0228 00da | | Load_Top At_Offset_2
0229 01d6 | | Execute Vector,Field_Write
022a 4892 |H | Short_Literal 0x92
022b 4802 |H | Short_Literal 0x2
022c 00da | | Load_Top At_Offset_2
022d 01d6 | | Execute Vector,Field_Write
022e 4884 |H | Short_Literal 0x84
022f 4803 |H | Short_Literal 0x3
0230 00da | | Load_Top At_Offset_2
0231 01d6 | | Execute Vector,Field_Write
0232 e40a | | Load 0x2,0xa
0233 e007 | | Load 0x0,0x7
0234 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0235 c40b | | Store 0x2,0xb
0236 00c9 | | Action Pop_Auxiliary_Loop
0237 e40a | | Load 0x2,0xa
0238 e007 | | Load 0x0,0x7
0239 1820 | | Execute Package,Field_Execute,Field_Number 0x20
023a 6fd0 |o | Jump_Zero 0x20b
023b 00ce | | Action Pop_Auxiliary
023c 0092 026b | k| Action Push_String_Extended,0x26b ; "Client : Connected to Orb"
023e e016 | | Load 0x0,0x16
023f 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
0240 00e3 | | Load_Encached Natural_Cache
0241 e008 | | Load 0x0,0x8
0242 1b19 | | Execute Package,Field_Read,Field_Number 0x19
0243 4800 |H | Short_Literal 0x0
0244 6013 |` | Indirect_Literal Discrete,0x258,{0x00007fff, 0xffffffff}
0245 e40c | | Load 0x2,0xc
0246 8018 | | Call 0x0,0x18
0247 e40a | | Load 0x2,0xa
0248 e007 | | Load 0x0,0x7
0249 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
024a c40b | | Store 0x2,0xb
024b c409 | | Store 0x2,0x9
024c e40a | | Load 0x2,0xa
024d e007 | | Load 0x0,0x7
024e 181e | | Execute Package,Field_Execute,Field_Number 0x1e
024f 0092 0264 | d| Action Push_String_Extended,0x264 ; "Client : data transmited."
0251 e016 | | Load 0x0,0x16
0252 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
0253 e40a | | Load 0x2,0xa
0254 e007 | | Load 0x0,0x7
0255 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0256 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0257 0000 | | .XXX[0x1]
0258 0000 7fff | | .LITERAL {0x00007fff, 0xffffffff}
025c 5443 502f |TCP/| .LITERAL {0x5443502f, 0x49502020}
0260 ; --------------------------------------------------------------------------------------
0260 ; STRING TABLE
0260 ; --------------------------------------------------------------------------------------
0260 001e | | .STRTAB 0x001e->0x026f ; "Client"
0261 0022 | " | .STRTAB 0x0022->0x0272 ; ":"
0262 0021 | ! | .STRTAB 0x0021->0x0272 ; "Client : send registration to ORB : "
0263 0043 | C | .STRTAB 0x0043->0x0284 ; "Client : connected to Orb"
0264 005a | Z | .STRTAB 0x005a->0x0291 ; "Client : data transmited."
0265 0071 | q | .STRTAB 0x0071->0x029d ; "Client : wait for ID..."
0266 0086 | | .STRTAB 0x0086->0x02a9 ; "OK"
0267 0086 | | .STRTAB 0x0086->0x02aa ; "Client : received message from ORB : "
0268 00a9 | | .STRTAB 0x00a9->0x02bc ; " q : quit, others : continue"
0269 00c3 | | .STRTAB 0x00c3->0x02ca ; "Datum"
026a 00c6 | | .STRTAB 0x00c6->0x02cd ; "Client : send request to ORB :"
026b 00e2 | | .STRTAB 0x00e2->0x02dc ; "Client : Connected to Orb"
026c 00f9 | | .STRTAB 0x00f9->0x02e8 ; "Client : wait for forward..."
026d 0113 | | .STRTAB 0x0113->0x02f6 ; "Client : send unregistration to ORB :"
026e 0136 | 6 | .STREND 0x0136->0x0309
026f 436c 6965 |Clie| .STRTAB_STRINGS
0309 0000 0000 | | .BLANK 0000[0x7]
0310 ; --------------------------------------------------------------------------------------
0310 ; Debug Table
0310 ; --------------------------------------------------------------------------------------
0310 0004 000a | | .DEBUG4 0x0004,0x000a,0x75f4,0x0000,0x0001,0x0002
0316 000b 0000 | | .DBG4T 0x000b,0x0000,0x8000,0x0000
031a 001b 031e | | .DBG4T 0x001b,0x031e,0x8001,0x4000
031e ; --------------------------------------------------------------------------------------
031e ; Debug chain
031e ; --------------------------------------------------------------------------------------
031e 000f 004a | J| .DBGLEN 0x000f,0x004a
0320 001b 001f | | .DBGLNO 0x001b,0x001f,0x0023,0x0025,0x0027,0x002b,0x002f,0x0033,0x0034,0x0039,0x003b,0x003f,0x0043,0x0049,0x004e,0x004f,0x0051,0x0056,0x005c,0x006c,0x0072,0x0076,0x007b,0x007f,0x0084,0x0088,0x008c,0x0090,0x0094,0x0098,0x00a1,0x00cd,0x00d2,0x00d6,0x00e2,0x00e5,0x00e9,0x00ef,0x00f7,0x00fc,0x0107,0x0111,0x0115,0x011d,0x0121,0x0125,0x012b,0x012f,0x0133,0x0137,0x013b,0x013e,0x0140,0x0145,0x0149,0x014d,0x0151,0x0155,0x015e,0x018a,0x018f,0x0193,0x019f,0x01a2,0x01a6,0x01ac,0x01b4,0x01b9,0x01c4,0x01ce,0x01d2,0x01da,0x01de,0x01e2,0x01e6,0x01ec,0x01ee,0x01f2,0x01f6,0x01fa,0x01fe,0x0202,0x020b,0x0237,0x023c,0x0240,0x024c,0x024f,0x0253
0379 0001 0002 | | .XXX[0x4a]
037b 0003 0004 | |
037d 0005 0006 | |
037f 0007 0008 | |
0381 0009 000a | |
0383 000b 000c | |
0385 000d 000e | |
0387 000f 0011 | |
0389 0010 0012 | |
038b 0013 0014 | |
038d 0015 0016 | |
038f 0018 0017 | |
0391 001a 001b | |
0393 001c 001d | |
0395 001e 001f | |
0397 0020 0021 | !|
0399 0022 0024 | " $|
039b 0025 0026 | % &|
039d 0027 0028 | ' (|
039f 0029 002a | ) *|
03a1 002b 002c | + ,|
03a3 002d 002f | - /|
03a5 002e 0030 | . 0|
03a7 0031 0032 | 1 2|
03a9 0033 0034 | 3 4|
03ab 0036 0035 | 6 5|
03ad 0038 0039 | 8 9|
03af 003a 003b | : ;|
03b1 003c 003d | < =|
03b3 003e 003f | > ?|
03b5 0040 0041 | @ A|
03b7 0042 0043 | B C|
03b9 0044 0045 | D E|
03bb 0046 0048 | F H|
03bd 0047 0049 | G I|
03bf 004a 004b | J K|
03c1 004c 004d | L M|
03c3 0000 0000 | | .BLANK 0000[0x3d]