|
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: 3072 (0xc00)
Notes: 00_class, 5900_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_1854a9
└─⟦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 03b0 | | .CONST 0x03b0 ; 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 0002 | | .CONST 0x0002 ; 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 0051 | Q | .CONST 0x0051 ; Address of begin
0019 0004 | | .CONST 0x0004 ; Address of exception handler
001a 0011 | | .CONST 0x0011 ; 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 528a |R | Indirect_Literal Any,0x2d8,{0x5443502f, 0x49502020}
004e 00e8 | | Load_Encached Character_Cache
004f 00e1 | | Load_Encached Boolean_Cache
0050 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0051 BODY_0018:
0051 4800 |H | Short_Literal 0x0
0052 a404 | | Store_Unchecked 0x2,0x4
0053 e408 | | Load 0x2,0x8
0054 0092 02dc | | Action Push_String_Extended,0x2dc ; "Abonne"
0056 800b | | Call 0x0,0xb
0057 00d1 | | Pop_Control Pop_Count_1
0058 e406 | | Load 0x2,0x6
0059 00db | | Load_Top At_Offset_3
005a e007 | | Load 0x0,0x7
005b 180f | | Execute Package,Field_Execute,Field_Number 0xf
005c 800c | | Call 0x0,0xc
005d 00d1 | | Pop_Control Pop_Count_1
005e e008 | | Load 0x0,0x8
005f 1b19 | | Execute Package,Field_Read,Field_Number 0x19
0060 e40a | | Load 0x2,0xa
0061 0120 | | Execute Any,Is_Value
0062 6803 |h | Jump_Zero 0x66
0063 e007 | | Load 0x0,0x7
0064 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0065 7801 |x | Jump 0x67
0066 e40a | | Load 0x2,0xa
0067 e008 | | Load 0x0,0x8
0068 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0069 e40f | | Load 0x2,0xf
006a e007 | | Load 0x0,0x7
006b 181a | | Execute Package,Field_Execute,Field_Number 0x1a
006c c40a | | Store 0x2,0xa
006d c40b | | Store 0x2,0xb
006e e407 | | Load 0x2,0x7
006f e40a | | Load 0x2,0xa
0070 e007 | | Load 0x0,0x7
0071 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
0072 800d | | Call 0x0,0xd
0073 00d1 | | Pop_Control Pop_Count_1
0074 e403 | | Load 0x2,0x3
0075 e407 | | Load 0x2,0x7
0076 800e | | Call 0x0,0xe
0077 00d1 | | Pop_Control Pop_Count_1
0078 e403 | | Load 0x2,0x3
0079 0092 02dd | | Action Push_String_Extended,0x2dd ; ":"
007b 800f | | Call 0x0,0xf
007c 00d1 | | Pop_Control Pop_Count_1
007d e403 | | Load 0x2,0x3
007e e406 | | Load 0x2,0x6
007f 8010 | | Call 0x0,0x10
0080 00d1 | | Pop_Control Pop_Count_1
0081 e403 | | Load 0x2,0x3
0082 0092 02dd | | Action Push_String_Extended,0x2dd ; ":"
0084 800f | | Call 0x0,0xf
0085 00d1 | | Pop_Control Pop_Count_1
0086 e403 | | Load 0x2,0x3
0087 e408 | | Load 0x2,0x8
0088 8010 | | Call 0x0,0x10
0089 00d1 | | Pop_Control Pop_Count_1
008a e402 | | Load 0x2,0x2
008b e403 | | Load 0x2,0x3
008c 8011 | | Call 0x0,0x11
008d 00d1 | | Pop_Control Pop_Count_1
008e e402 | | Load 0x2,0x2
008f e404 | | Load 0x2,0x4
0090 8012 | | Call 0x0,0x12
0091 00d1 | | Pop_Control Pop_Count_1
0092 e402 | | Load 0x2,0x2
0093 e405 | | Load 0x2,0x5
0094 8013 | | Call 0x0,0x13
0095 00d1 | | Pop_Control Pop_Count_1
0096 e40c | | Load 0x2,0xc
0097 e402 | | Load 0x2,0x2
0098 8014 | | Call 0x0,0x14
0099 00d1 | | Pop_Control Pop_Count_1
009a 0092 02de | | Action Push_String_Extended,0x2de ; "Abonne : send registrartion to ORB : "
009c e40c | | Load 0x2,0xc
009d 8015 | | Call 0x0,0x15
009e 01cc | | Execute Vector,Catenate
009f e016 | | Load 0x0,0x16
00a0 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
00a1 00cf | | Action Mark_Auxiliary
00a2 782c |x, | Jump 0xcf
00a3 e008 | | Load 0x0,0x8
00a4 1b19 | | Execute Package,Field_Read,Field_Number 0x19
00a5 622e |b. | Indirect_Literal Discrete,0x2d4,{0x00007fff, 0xffffffff}
00a6 4800 |H | Short_Literal 0x0
00a7 4801 |H | Short_Literal 0x1
00a8 e017 | | Load 0x0,0x17
00a9 1b12 | | Execute Package,Field_Read,Field_Number 0x12
00aa 035b | [ | Declare_Type Array,Constrained
00ab 0337 | 7 | Declare_Variable Array
00ac 480a |H | Short_Literal 0xa
00ad 4800 |H | Short_Literal 0x0
00ae 00da | | Load_Top At_Offset_2
00af 01d6 | | Execute Vector,Field_Write
00b0 482a |H* | Short_Literal 0x2a
00b1 4801 |H | Short_Literal 0x1
00b2 00da | | Load_Top At_Offset_2
00b3 01d6 | | Execute Vector,Field_Write
00b4 4800 |H | Short_Literal 0x0
00b5 4803 |H | Short_Literal 0x3
00b6 e017 | | Load 0x0,0x17
00b7 1b12 | | Execute Package,Field_Read,Field_Number 0x12
00b8 035b | [ | Declare_Type Array,Constrained
00b9 0337 | 7 | Declare_Variable Array
00ba 48c1 |H | Short_Literal 0xc1
00bb 4800 |H | Short_Literal 0x0
00bc 00da | | Load_Top At_Offset_2
00bd 01d6 | | Execute Vector,Field_Write
00be 4836 |H6 | Short_Literal 0x36
00bf 4801 |H | Short_Literal 0x1
00c0 00da | | Load_Top At_Offset_2
00c1 01d6 | | Execute Vector,Field_Write
00c2 4892 |H | Short_Literal 0x92
00c3 4802 |H | Short_Literal 0x2
00c4 00da | | Load_Top At_Offset_2
00c5 01d6 | | Execute Vector,Field_Write
00c6 4884 |H | Short_Literal 0x84
00c7 4803 |H | Short_Literal 0x3
00c8 00da | | Load_Top At_Offset_2
00c9 01d6 | | Execute Vector,Field_Write
00ca e40a | | Load 0x2,0xa
00cb e007 | | Load 0x0,0x7
00cc 181c | | Execute Package,Field_Execute,Field_Number 0x1c
00cd c40b | | Store 0x2,0xb
00ce 00c9 | | Action Pop_Auxiliary_Loop
00cf e40a | | Load 0x2,0xa
00d0 e007 | | Load 0x0,0x7
00d1 1820 | | Execute Package,Field_Execute,Field_Number 0x20
00d2 6fd0 |o | Jump_Zero 0xa3
00d3 00ce | | Action Pop_Auxiliary
00d4 0092 02df | | Action Push_String_Extended,0x2df ; "Abonne : connected to Orb"
00d6 e016 | | Load 0x0,0x16
00d7 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
00d8 00e3 | | Load_Encached Natural_Cache
00d9 e008 | | Load 0x0,0x8
00da 1b19 | | Execute Package,Field_Read,Field_Number 0x19
00db 4800 |H | Short_Literal 0x0
00dc 61f7 |a | Indirect_Literal Discrete,0x2d4,{0x00007fff, 0xffffffff}
00dd e40c | | Load 0x2,0xc
00de 8018 | | Call 0x0,0x18
00df e40a | | Load 0x2,0xa
00e0 e007 | | Load 0x0,0x7
00e1 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
00e2 c40b | | Store 0x2,0xb
00e3 c409 | | Store 0x2,0x9
00e4 e40a | | Load 0x2,0xa
00e5 e007 | | Load 0x0,0x7
00e6 181e | | Execute Package,Field_Execute,Field_Number 0x1e
00e7 0092 02e0 | | Action Push_String_Extended,0x2e0 ; "Abonne : data transmited."
00e9 e016 | | Load 0x0,0x16
00ea 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
00eb 0092 02e1 | | Action Push_String_Extended,0x2e1 ; "Abonne : wait for ID..."
00ed e016 | | Load 0x0,0x16
00ee 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
00ef 00cf | | Action Mark_Auxiliary
00f0 7808 |x | Jump 0xf9
00f1 e008 | | Load 0x0,0x8
00f2 1b19 | | Execute Package,Field_Read,Field_Number 0x19
00f3 61e0 |a | Indirect_Literal Discrete,0x2d4,{0x00007fff, 0xffffffff}
00f4 e40a | | Load 0x2,0xa
00f5 e007 | | Load 0x0,0x7
00f6 181d | | Execute Package,Field_Execute,Field_Number 0x1d
00f7 c40b | | Store 0x2,0xb
00f8 00c9 | | Action Pop_Auxiliary_Loop
00f9 e40a | | Load 0x2,0xa
00fa e007 | | Load 0x0,0x7
00fb 1820 | | Execute Package,Field_Execute,Field_Number 0x20
00fc 6ff4 |o | Jump_Zero 0xf1
00fd 00c9 | | Action Pop_Auxiliary_Loop
00fe 00e3 | | Load_Encached Natural_Cache
00ff e40e | | Load 0x2,0xe
0100 e008 | | Load 0x0,0x8
0101 1b19 | | Execute Package,Field_Read,Field_Number 0x19
0102 61d1 |a | Indirect_Literal Discrete,0x2d4,{0x00007fff, 0xffffffff}
0103 e40a | | Load 0x2,0xa
0104 e007 | | Load 0x0,0x7
0105 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
0106 c40b | | Store 0x2,0xb
0107 00d1 | | Pop_Control Pop_Count_1
0108 c409 | | Store 0x2,0x9
0109 e40b | | Load 0x2,0xb
010a e008 | | Load 0x0,0x8
010b 181a | | Execute Package,Field_Execute,Field_Number 0x1a
010c 0092 02e2 | | Action Push_String_Extended,0x2e2 ; "OK"
010e 01df | | Execute Vector,Equal
010f 7002 |p | Jump_Nonzero 0x112
0110 00c9 | | Action Pop_Auxiliary_Loop
0111 7fec | | Jump 0xfe
0112 00ce | | Action Pop_Auxiliary
0113 0092 02e3 | | Action Push_String_Extended,0x2e3 ; "Abonne : received message from ORB : "
0115 e016 | | Load 0x0,0x16
0116 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0117 e40d | | Load 0x2,0xd
0118 4800 |H | Short_Literal 0x0
0119 e409 | | Load 0x2,0x9
011a 0aff | | Execute_Immediate Plus,-0x1
011b e40e | | Load 0x2,0xe
011c 01cf | | Execute Vector,Slice_Read
011d 8019 | | Call 0x0,0x19
011e 00d1 | | Pop_Control Pop_Count_1
011f e402 | | Load 0x2,0x2
0120 e40d | | Load 0x2,0xd
0121 801a | | Call 0x0,0x1a
0122 00d1 | | Pop_Control Pop_Count_1
0123 e403 | | Load 0x2,0x3
0124 e402 | | Load 0x2,0x2
0125 801b | | Call 0x0,0x1b
0126 00d1 | | Pop_Control Pop_Count_1
0127 e403 | | Load 0x2,0x3
0128 8015 | | Call 0x0,0x15
0129 00e2 | | Load_Encached Integer_Cache
012a 00e0 | | Load_Encached Standard_Cache
012b 1819 | | Execute Package,Field_Execute,Field_Number 0x19
012c a405 | | Store_Unchecked 0x2,0x5
012d e40d | | Load 0x2,0xd
012e 8015 | | Call 0x0,0x15
012f e016 | | Load 0x0,0x16
0130 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
0131 e40a | | Load 0x2,0xa
0132 e007 | | Load 0x0,0x7
0133 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0134 00cf | | Action Mark_Auxiliary
0135 00d9 | | Load_Top At_Offset_1
0136 7068 |ph | Jump_Nonzero 0x19f
0137 4808 |H | Short_Literal 0x8
0138 a404 | | Store_Unchecked 0x2,0x4
0139 e403 | | Load 0x2,0x3
013a 0092 02e4 | | Action Push_String_Extended,0x2e4 ; "Datum"
013c 800b | | Call 0x0,0xb
013d 00d1 | | Pop_Control Pop_Count_1
013e e402 | | Load 0x2,0x2
013f e403 | | Load 0x2,0x3
0140 8011 | | Call 0x0,0x11
0141 00d1 | | Pop_Control Pop_Count_1
0142 e402 | | Load 0x2,0x2
0143 e404 | | Load 0x2,0x4
0144 8012 | | Call 0x0,0x12
0145 00d1 | | Pop_Control Pop_Count_1
0146 e402 | | Load 0x2,0x2
0147 e405 | | Load 0x2,0x5
0148 8013 | | Call 0x0,0x13
0149 00d1 | | Pop_Control Pop_Count_1
014a e40c | | Load 0x2,0xc
014b e402 | | Load 0x2,0x2
014c 8014 | | Call 0x0,0x14
014d 00d1 | | Pop_Control Pop_Count_1
014e 0092 02e5 | | Action Push_String_Extended,0x2e5 ; "Abonne : send subscription to ORB :"
0150 e40c | | Load 0x2,0xc
0151 8015 | | Call 0x0,0x15
0152 01cc | | Execute Vector,Catenate
0153 e016 | | Load 0x0,0x16
0154 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
0155 00cf | | Action Mark_Auxiliary
0156 782c |x, | Jump 0x183
0157 e008 | | Load 0x0,0x8
0158 1b19 | | Execute Package,Field_Read,Field_Number 0x19
0159 617a |az | Indirect_Literal Discrete,0x2d4,{0x00007fff, 0xffffffff}
015a 4800 |H | Short_Literal 0x0
015b 4801 |H | Short_Literal 0x1
015c e017 | | Load 0x0,0x17
015d 1b12 | | Execute Package,Field_Read,Field_Number 0x12
015e 035b | [ | Declare_Type Array,Constrained
015f 0337 | 7 | Declare_Variable Array
0160 480a |H | Short_Literal 0xa
0161 4800 |H | Short_Literal 0x0
0162 00da | | Load_Top At_Offset_2
0163 01d6 | | Execute Vector,Field_Write
0164 482a |H* | Short_Literal 0x2a
0165 4801 |H | Short_Literal 0x1
0166 00da | | Load_Top At_Offset_2
0167 01d6 | | Execute Vector,Field_Write
0168 4800 |H | Short_Literal 0x0
0169 4803 |H | Short_Literal 0x3
016a e017 | | Load 0x0,0x17
016b 1b12 | | Execute Package,Field_Read,Field_Number 0x12
016c 035b | [ | Declare_Type Array,Constrained
016d 0337 | 7 | Declare_Variable Array
016e 48c1 |H | Short_Literal 0xc1
016f 4800 |H | Short_Literal 0x0
0170 00da | | Load_Top At_Offset_2
0171 01d6 | | Execute Vector,Field_Write
0172 4836 |H6 | Short_Literal 0x36
0173 4801 |H | Short_Literal 0x1
0174 00da | | Load_Top At_Offset_2
0175 01d6 | | Execute Vector,Field_Write
0176 4892 |H | Short_Literal 0x92
0177 4802 |H | Short_Literal 0x2
0178 00da | | Load_Top At_Offset_2
0179 01d6 | | Execute Vector,Field_Write
017a 4884 |H | Short_Literal 0x84
017b 4803 |H | Short_Literal 0x3
017c 00da | | Load_Top At_Offset_2
017d 01d6 | | Execute Vector,Field_Write
017e e40a | | Load 0x2,0xa
017f e007 | | Load 0x0,0x7
0180 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0181 c40b | | Store 0x2,0xb
0182 00c9 | | Action Pop_Auxiliary_Loop
0183 e40a | | Load 0x2,0xa
0184 e007 | | Load 0x0,0x7
0185 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0186 6fd0 |o | Jump_Zero 0x157
0187 00ce | | Action Pop_Auxiliary
0188 0092 02df | | Action Push_String_Extended,0x2df ; "Abonne : connected to Orb"
018a e016 | | Load 0x0,0x16
018b 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
018c 00e3 | | Load_Encached Natural_Cache
018d e008 | | Load 0x0,0x8
018e 1b19 | | Execute Package,Field_Read,Field_Number 0x19
018f 4800 |H | Short_Literal 0x0
0190 6143 |aC | Indirect_Literal Discrete,0x2d4,{0x00007fff, 0xffffffff}
0191 e40c | | Load 0x2,0xc
0192 8018 | | Call 0x0,0x18
0193 e40a | | Load 0x2,0xa
0194 e007 | | Load 0x0,0x7
0195 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
0196 c40b | | Store 0x2,0xb
0197 c409 | | Store 0x2,0x9
0198 0092 02e6 | | Action Push_String_Extended,0x2e6 ; "Abonne : Data transmited"
019a e016 | | Load 0x0,0x16
019b 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
019c e40a | | Load 0x2,0xa
019d e007 | | Load 0x0,0x7
019e 181e | | Execute Package,Field_Execute,Field_Number 0x1e
019f 0092 02e7 | | Action Push_String_Extended,0x2e7 ; "Abonne : Wait for all datum.."
01a1 e016 | | Load 0x0,0x16
01a2 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
01a3 00cf | | Action Mark_Auxiliary
01a4 7808 |x | Jump 0x1ad
01a5 e008 | | Load 0x0,0x8
01a6 1b19 | | Execute Package,Field_Read,Field_Number 0x19
01a7 612c |a, | Indirect_Literal Discrete,0x2d4,{0x00007fff, 0xffffffff}
01a8 e40a | | Load 0x2,0xa
01a9 e007 | | Load 0x0,0x7
01aa 181d | | Execute Package,Field_Execute,Field_Number 0x1d
01ab c40b | | Store 0x2,0xb
01ac 00c9 | | Action Pop_Auxiliary_Loop
01ad e40a | | Load 0x2,0xa
01ae e007 | | Load 0x0,0x7
01af 1820 | | Execute Package,Field_Execute,Field_Number 0x20
01b0 6ff4 |o | Jump_Zero 0x1a5
01b1 00c9 | | Action Pop_Auxiliary_Loop
01b2 00e3 | | Load_Encached Natural_Cache
01b3 e40e | | Load 0x2,0xe
01b4 e008 | | Load 0x0,0x8
01b5 1b19 | | Execute Package,Field_Read,Field_Number 0x19
01b6 611d |a | Indirect_Literal Discrete,0x2d4,{0x00007fff, 0xffffffff}
01b7 e40a | | Load 0x2,0xa
01b8 e007 | | Load 0x0,0x7
01b9 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
01ba c40b | | Store 0x2,0xb
01bb 00d1 | | Pop_Control Pop_Count_1
01bc c409 | | Store 0x2,0x9
01bd e40b | | Load 0x2,0xb
01be e008 | | Load 0x0,0x8
01bf 181a | | Execute Package,Field_Execute,Field_Number 0x1a
01c0 0092 02e2 | | Action Push_String_Extended,0x2e2 ; "OK"
01c2 01df | | Execute Vector,Equal
01c3 7002 |p | Jump_Nonzero 0x1c6
01c4 00c9 | | Action Pop_Auxiliary_Loop
01c5 7fec | | Jump 0x1b2
01c6 00ce | | Action Pop_Auxiliary
01c7 0092 02e3 | | Action Push_String_Extended,0x2e3 ; "Abonne : received message from ORB : "
01c9 e016 | | Load 0x0,0x16
01ca 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
01cb e40d | | Load 0x2,0xd
01cc 4800 |H | Short_Literal 0x0
01cd e409 | | Load 0x2,0x9
01ce 0aff | | Execute_Immediate Plus,-0x1
01cf e40e | | Load 0x2,0xe
01d0 01cf | | Execute Vector,Slice_Read
01d1 8019 | | Call 0x0,0x19
01d2 00d1 | | Pop_Control Pop_Count_1
01d3 e402 | | Load 0x2,0x2
01d4 e40d | | Load 0x2,0xd
01d5 801a | | Call 0x0,0x1a
01d6 00d1 | | Pop_Control Pop_Count_1
01d7 e403 | | Load 0x2,0x3
01d8 e402 | | Load 0x2,0x2
01d9 801b | | Call 0x0,0x1b
01da 00d1 | | Pop_Control Pop_Count_1
01db e40d | | Load 0x2,0xd
01dc 8015 | | Call 0x0,0x15
01dd e016 | | Load 0x0,0x16
01de 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
01df e40a | | Load 0x2,0xa
01e0 e007 | | Load 0x0,0x7
01e1 181e | | Execute Package,Field_Execute,Field_Number 0x1e
01e2 e004 | | Load 0x0,0x4
01e3 e402 | | Load 0x2,0x2
01e4 801c | | Call 0x0,0x1c
01e5 c404 | | Store 0x2,0x4
01e6 e404 | | Load 0x2,0x4
01e7 e004 | | Load 0x0,0x4
01e8 011c | | Execute Any,Convert_Unchecked
01e9 1c01 | | Execute_Immediate Run_Utility,0x1
01ea 0092 02e8 | | Action Push_String_Extended,0x2e8 ; "FORWARD"
01ec 01df | | Execute Vector,Equal
01ed 6802 |h | Jump_Zero 0x1f0
01ee 4801 |H | Short_Literal 0x1
01ef 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
01f0 0092 02e9 | | Action Push_String_Extended,0x2e9 ; "q : quit , others : continue"
01f2 e016 | | Load 0x0,0x16
01f3 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
01f4 00e8 | | Load_Encached Character_Cache
01f5 e016 | | Load 0x0,0x16
01f6 1845 | E | Execute Package,Field_Execute,Field_Number 0x45
01f7 005b | [ | Store_Top Discrete,At_Offset_3
01f8 00da | | Load_Top At_Offset_2
01f9 0f71 | q | Execute_Immediate Equal,0x71
01fa 7002 |p | Jump_Nonzero 0x1fd
01fb 00c9 | | Action Pop_Auxiliary_Loop
01fc 7f38 | 8 | Jump 0x135
01fd 00ce | | Action Pop_Auxiliary
01fe 4809 |H | Short_Literal 0x9
01ff a404 | | Store_Unchecked 0x2,0x4
0200 e403 | | Load 0x2,0x3
0201 0092 02e4 | | Action Push_String_Extended,0x2e4 ; "Datum"
0203 800b | | Call 0x0,0xb
0204 00d1 | | Pop_Control Pop_Count_1
0205 e402 | | Load 0x2,0x2
0206 e403 | | Load 0x2,0x3
0207 8011 | | Call 0x0,0x11
0208 00d1 | | Pop_Control Pop_Count_1
0209 e402 | | Load 0x2,0x2
020a e404 | | Load 0x2,0x4
020b 8012 | | Call 0x0,0x12
020c 00d1 | | Pop_Control Pop_Count_1
020d e402 | | Load 0x2,0x2
020e e405 | | Load 0x2,0x5
020f 8013 | | Call 0x0,0x13
0210 00d1 | | Pop_Control Pop_Count_1
0211 e40c | | Load 0x2,0xc
0212 e402 | | Load 0x2,0x2
0213 8014 | | Call 0x0,0x14
0214 00d1 | | Pop_Control Pop_Count_1
0215 0092 02ea | | Action Push_String_Extended,0x2ea ; "Abonne : send unsubscription to ORB :"
0217 e40c | | Load 0x2,0xc
0218 8015 | | Call 0x0,0x15
0219 01cc | | Execute Vector,Catenate
021a e016 | | Load 0x0,0x16
021b 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
021c 00cf | | Action Mark_Auxiliary
021d 782c |x, | Jump 0x24a
021e e008 | | Load 0x0,0x8
021f 1b19 | | Execute Package,Field_Read,Field_Number 0x19
0220 60b3 |` | Indirect_Literal Discrete,0x2d4,{0x00007fff, 0xffffffff}
0221 4800 |H | Short_Literal 0x0
0222 4801 |H | Short_Literal 0x1
0223 e017 | | Load 0x0,0x17
0224 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0225 035b | [ | Declare_Type Array,Constrained
0226 0337 | 7 | Declare_Variable Array
0227 480a |H | Short_Literal 0xa
0228 4800 |H | Short_Literal 0x0
0229 00da | | Load_Top At_Offset_2
022a 01d6 | | Execute Vector,Field_Write
022b 482a |H* | Short_Literal 0x2a
022c 4801 |H | Short_Literal 0x1
022d 00da | | Load_Top At_Offset_2
022e 01d6 | | Execute Vector,Field_Write
022f 4800 |H | Short_Literal 0x0
0230 4803 |H | Short_Literal 0x3
0231 e017 | | Load 0x0,0x17
0232 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0233 035b | [ | Declare_Type Array,Constrained
0234 0337 | 7 | Declare_Variable Array
0235 48c1 |H | Short_Literal 0xc1
0236 4800 |H | Short_Literal 0x0
0237 00da | | Load_Top At_Offset_2
0238 01d6 | | Execute Vector,Field_Write
0239 4836 |H6 | Short_Literal 0x36
023a 4801 |H | Short_Literal 0x1
023b 00da | | Load_Top At_Offset_2
023c 01d6 | | Execute Vector,Field_Write
023d 4892 |H | Short_Literal 0x92
023e 4802 |H | Short_Literal 0x2
023f 00da | | Load_Top At_Offset_2
0240 01d6 | | Execute Vector,Field_Write
0241 4884 |H | Short_Literal 0x84
0242 4803 |H | Short_Literal 0x3
0243 00da | | Load_Top At_Offset_2
0244 01d6 | | Execute Vector,Field_Write
0245 e40a | | Load 0x2,0xa
0246 e007 | | Load 0x0,0x7
0247 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0248 c40b | | Store 0x2,0xb
0249 00c9 | | Action Pop_Auxiliary_Loop
024a e40a | | Load 0x2,0xa
024b e007 | | Load 0x0,0x7
024c 1820 | | Execute Package,Field_Execute,Field_Number 0x20
024d 6fd0 |o | Jump_Zero 0x21e
024e 00ce | | Action Pop_Auxiliary
024f 0092 02eb | | Action Push_String_Extended,0x2eb ; "Abonne : Connected to Orb"
0251 e016 | | Load 0x0,0x16
0252 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
0253 00e3 | | Load_Encached Natural_Cache
0254 e008 | | Load 0x0,0x8
0255 1b19 | | Execute Package,Field_Read,Field_Number 0x19
0256 4800 |H | Short_Literal 0x0
0257 607c |`| | Indirect_Literal Discrete,0x2d4,{0x00007fff, 0xffffffff}
0258 e40c | | Load 0x2,0xc
0259 8018 | | Call 0x0,0x18
025a e40a | | Load 0x2,0xa
025b e007 | | Load 0x0,0x7
025c 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
025d c40b | | Store 0x2,0xb
025e c409 | | Store 0x2,0x9
025f e40a | | Load 0x2,0xa
0260 e007 | | Load 0x0,0x7
0261 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0262 0092 02e0 | | Action Push_String_Extended,0x2e0 ; "Abonne : data transmited."
0264 e016 | | Load 0x0,0x16
0265 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
0266 4801 |H | Short_Literal 0x1
0267 a404 | | Store_Unchecked 0x2,0x4
0268 e403 | | Load 0x2,0x3
0269 00ea | | Load_Encached Null_String_Cache
026a 800b | | Call 0x0,0xb
026b 00d1 | | Pop_Control Pop_Count_1
026c e402 | | Load 0x2,0x2
026d e403 | | Load 0x2,0x3
026e 8011 | | Call 0x0,0x11
026f 00d1 | | Pop_Control Pop_Count_1
0270 e402 | | Load 0x2,0x2
0271 e404 | | Load 0x2,0x4
0272 8012 | | Call 0x0,0x12
0273 00d1 | | Pop_Control Pop_Count_1
0274 e402 | | Load 0x2,0x2
0275 e405 | | Load 0x2,0x5
0276 8013 | | Call 0x0,0x13
0277 00d1 | | Pop_Control Pop_Count_1
0278 e40c | | Load 0x2,0xc
0279 e402 | | Load 0x2,0x2
027a 8014 | | Call 0x0,0x14
027b 00d1 | | Pop_Control Pop_Count_1
027c 0092 02ec | | Action Push_String_Extended,0x2ec ; "Abonne : send unregistration to ORB :"
027e e40c | | Load 0x2,0xc
027f 8015 | | Call 0x0,0x15
0280 01cc | | Execute Vector,Catenate
0281 e016 | | Load 0x0,0x16
0282 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
0283 00cf | | Action Mark_Auxiliary
0284 782c |x, | Jump 0x2b1
0285 e008 | | Load 0x0,0x8
0286 1b19 | | Execute Package,Field_Read,Field_Number 0x19
0287 604c |`L | Indirect_Literal Discrete,0x2d4,{0x00007fff, 0xffffffff}
0288 4800 |H | Short_Literal 0x0
0289 4801 |H | Short_Literal 0x1
028a e017 | | Load 0x0,0x17
028b 1b12 | | Execute Package,Field_Read,Field_Number 0x12
028c 035b | [ | Declare_Type Array,Constrained
028d 0337 | 7 | Declare_Variable Array
028e 480a |H | Short_Literal 0xa
028f 4800 |H | Short_Literal 0x0
0290 00da | | Load_Top At_Offset_2
0291 01d6 | | Execute Vector,Field_Write
0292 482a |H* | Short_Literal 0x2a
0293 4801 |H | Short_Literal 0x1
0294 00da | | Load_Top At_Offset_2
0295 01d6 | | Execute Vector,Field_Write
0296 4800 |H | Short_Literal 0x0
0297 4803 |H | Short_Literal 0x3
0298 e017 | | Load 0x0,0x17
0299 1b12 | | Execute Package,Field_Read,Field_Number 0x12
029a 035b | [ | Declare_Type Array,Constrained
029b 0337 | 7 | Declare_Variable Array
029c 48c1 |H | Short_Literal 0xc1
029d 4800 |H | Short_Literal 0x0
029e 00da | | Load_Top At_Offset_2
029f 01d6 | | Execute Vector,Field_Write
02a0 4836 |H6 | Short_Literal 0x36
02a1 4801 |H | Short_Literal 0x1
02a2 00da | | Load_Top At_Offset_2
02a3 01d6 | | Execute Vector,Field_Write
02a4 4892 |H | Short_Literal 0x92
02a5 4802 |H | Short_Literal 0x2
02a6 00da | | Load_Top At_Offset_2
02a7 01d6 | | Execute Vector,Field_Write
02a8 4884 |H | Short_Literal 0x84
02a9 4803 |H | Short_Literal 0x3
02aa 00da | | Load_Top At_Offset_2
02ab 01d6 | | Execute Vector,Field_Write
02ac e40a | | Load 0x2,0xa
02ad e007 | | Load 0x0,0x7
02ae 181c | | Execute Package,Field_Execute,Field_Number 0x1c
02af c40b | | Store 0x2,0xb
02b0 00c9 | | Action Pop_Auxiliary_Loop
02b1 e40a | | Load 0x2,0xa
02b2 e007 | | Load 0x0,0x7
02b3 1820 | | Execute Package,Field_Execute,Field_Number 0x20
02b4 6fd0 |o | Jump_Zero 0x285
02b5 00ce | | Action Pop_Auxiliary
02b6 0092 02eb | | Action Push_String_Extended,0x2eb ; "Abonne : Connected to Orb"
02b8 e016 | | Load 0x0,0x16
02b9 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
02ba 00e3 | | Load_Encached Natural_Cache
02bb e008 | | Load 0x0,0x8
02bc 1b19 | | Execute Package,Field_Read,Field_Number 0x19
02bd 4800 |H | Short_Literal 0x0
02be 6015 |` | Indirect_Literal Discrete,0x2d4,{0x00007fff, 0xffffffff}
02bf e40c | | Load 0x2,0xc
02c0 8018 | | Call 0x0,0x18
02c1 e40a | | Load 0x2,0xa
02c2 e007 | | Load 0x0,0x7
02c3 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
02c4 c40b | | Store 0x2,0xb
02c5 c409 | | Store 0x2,0x9
02c6 e40a | | Load 0x2,0xa
02c7 e007 | | Load 0x0,0x7
02c8 181e | | Execute Package,Field_Execute,Field_Number 0x1e
02c9 0092 02e0 | | Action Push_String_Extended,0x2e0 ; "Abonne : data transmited."
02cb e016 | | Load 0x0,0x16
02cc 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
02cd e40a | | Load 0x2,0xa
02ce e007 | | Load 0x0,0x7
02cf 181b | | Execute Package,Field_Execute,Field_Number 0x1b
02d0 4501 |E | Exit_Suprogram New_Top_Offset 0x1
02d1 0000 0000 | | .XXX[0x3]
02d3 0000 | |
02d4 0000 7fff | | .LITERAL {0x00007fff, 0xffffffff}
02d8 5443 502f |TCP/| .LITERAL {0x5443502f, 0x49502020}
02dc ; --------------------------------------------------------------------------------------
02dc ; STRING TABLE
02dc ; --------------------------------------------------------------------------------------
02dc 0024 | $ | .STRTAB 0x0024->0x02ee ; "Abonne"
02dd 0028 | ( | .STRTAB 0x0028->0x02f1 ; ":"
02de 0027 | ' | .STRTAB 0x0027->0x02f1 ; "Abonne : send registrartion to ORB : "
02df 004a | J | .STRTAB 0x004a->0x0304 ; "Abonne : connected to Orb"
02e0 0061 | a | .STRTAB 0x0061->0x0310 ; "Abonne : data transmited."
02e1 0078 | x | .STRTAB 0x0078->0x031d ; "Abonne : wait for ID..."
02e2 008d | | .STRTAB 0x008d->0x0328 ; "OK"
02e3 008d | | .STRTAB 0x008d->0x0329 ; "Abonne : received message from ORB : "
02e4 00b0 | | .STRTAB 0x00b0->0x033c ; "Datum"
02e5 00b3 | | .STRTAB 0x00b3->0x033e ; "Abonne : send subscription to ORB :"
02e6 00d4 | | .STRTAB 0x00d4->0x0350 ; "Abonne : Data transmited"
02e7 00ea | | .STRTAB 0x00ea->0x035c ; "Abonne : Wait for all datum.."
02e8 0105 | | .STRTAB 0x0105->0x036a ; "FORWARD"
02e9 010a | | .STRTAB 0x010a->0x036e ; "q : quit , others : continue"
02ea 0124 | $ | .STRTAB 0x0124->0x037c ; "Abonne : send unsubscription to ORB :"
02eb 0147 | G | .STRTAB 0x0147->0x038e ; "Abonne : Connected to Orb"
02ec 015e | ^ | .STRTAB 0x015e->0x039b ; "Abonne : send unregistration to ORB :"
02ed 0181 | | .STREND 0x0181->0x03ad
02ee 4162 6f6e |Abon| .STRTAB_STRINGS
03ae 0000 0000 | | .XXX[0x2]
03b0 ; --------------------------------------------------------------------------------------
03b0 ; Debug Table
03b0 ; --------------------------------------------------------------------------------------
03b0 0004 000a | | .DEBUG4 0x0004,0x000a,0x7b93,0x0000,0x0001,0x0002
03b6 000b 0000 | | .DBG4T 0x000b,0x0000,0x8000,0x0000
03ba 001b 03be | | .DBG4T 0x001b,0x03be,0x8001,0x4000
03be ; --------------------------------------------------------------------------------------
03be ; Debug chain
03be ; --------------------------------------------------------------------------------------
03be 0010 005b | [| .DBGLEN 0x0010,0x005b
03c0 001b 001f | | .DBGLNO 0x001b,0x001f,0x0023,0x0025,0x0027,0x002b,0x002f,0x0033,0x0034,0x0039,0x003b,0x003f,0x0043,0x0049,0x004e,0x004f,0x0051,0x0053,0x0058,0x005e,0x006e,0x0074,0x0078,0x007d,0x0081,0x0086,0x008a,0x008e,0x0092,0x0096,0x009a,0x00a3,0x00cf,0x00d4,0x00d8,0x00e4,0x00e7,0x00eb,0x00f1,0x00f9,0x00fe,0x0109,0x0113,0x0117,0x011f,0x0123,0x0127,0x012d,0x0131,0x0135,0x0137,0x0139,0x013e,0x0142,0x0146,0x014a,0x014e,0x0157,0x0183,0x0188,0x018c,0x0198,0x019c,0x019f,0x01a5,0x01ad,0x01b2,0x01bd,0x01c7,0x01cb,0x01d3,0x01d7,0x01db,0x01df,0x01e2,0x01e6,0x01ee,0x01f0,0x01f4,0x01f8,0x01fe,0x0200,0x0205,0x0209,0x020d,0x0211,0x0215,0x021e,0x024a,0x024f,0x0253,0x025f,0x0262,0x0266,0x0268,0x026c,0x0270,0x0274,0x0278,0x027c,0x0285,0x02b1,0x02b6,0x02ba,0x02c6,0x02c9,0x02cd
042b 0001 0002 | | .XXX[0x5b]
042d 0003 0004 | |
042f 0005 0006 | |
0431 0007 0008 | |
0433 0009 000a | |
0435 000b 000c | |
0437 000d 000e | |
0439 000f 0011 | |
043b 0010 0012 | |
043d 0013 0014 | |
043f 0015 0016 | |
0441 0018 0017 | |
0443 001a 001b | |
0445 001c 001d | |
0447 001e 001f | |
0449 0020 0021 | !|
044b 0022 0024 | " $|
044d 0025 0026 | % &|
044f 0027 0028 | ' (|
0451 0029 002a | ) *|
0453 002b 002d | + -|
0455 002c 002e | , .|
0457 002f 0030 | / 0|
0459 0031 0032 | 1 2|
045b 0034 0033 | 4 3|
045d 0036 0037 | 6 7|
045f 0038 0039 | 8 9|
0461 003a 003b | : ;|
0463 003c 003d | < =|
0465 003e 003f | > ?|
0467 0040 0041 | @ A|
0469 0042 0043 | B C|
046b 0044 0045 | D E|
046d 0046 0047 | F G|
046f 0048 0049 | H I|
0471 004a 004c | J L|
0473 004b 004d | K M|
0475 004e 004f | N O|
0477 0050 0051 | P Q|
0479 0052 0053 | R S|
047b 0054 0055 | T U|
047d 0056 0057 | V W|
047f 0059 0058 | Y X|
0481 005a 005b | Z [|
0483 005c 005d | \ ]|
0485 005e | ^ |
0486 0000 0000 | | .BLANK 0000[0x17a]