|
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: 3072 (0xc00) Notes: 00_class, 5900_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_373c93
└─⟦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 04a0 | | .CONST 0x04a0 ; 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 00b0 | | .CONST 0x00b0 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0023 | # | .CONST 0x0023 ; Number of locals 000b INIT_0008: 000b 029a 00bb | | Declare_Subprogram INIT_00b8,For_Outer_Call,Visible,Unelaborated 000d 029a 00f3 | | Declare_Subprogram INIT_00f0,For_Outer_Call,Visible,Unelaborated 000f 029a 0113 | | Declare_Subprogram INIT_0110,For_Outer_Call,Visible,Unelaborated 0011 029a 011b | | Declare_Subprogram INIT_0118,For_Outer_Call,Visible,Unelaborated 0013 029a 014b | K| Declare_Subprogram INIT_0148,For_Outer_Call,Visible,Unelaborated 0015 029a 01b3 | | Declare_Subprogram INIT_01b0,For_Outer_Call,Visible,Unelaborated 0017 029a 01e3 | | Declare_Subprogram INIT_01e0,For_Outer_Call,Visible,Unelaborated 0019 029a 0213 | | Declare_Subprogram INIT_0210,For_Outer_Call,Visible,Unelaborated 001b 029a 0233 | 3| Declare_Subprogram INIT_0230,For_Outer_Call,Visible,Unelaborated 001d 029a 023b | ;| Declare_Subprogram INIT_0238,For_Outer_Call,Visible,Unelaborated 001f 00bf | | Action Accept_Activation 0020 4801 |H | Short_Literal 0x1 0021 4804 |H | Short_Literal 0x4 0022 e002 | | Load 0x0,0x2 0023 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0024 035b | [ | Declare_Type Array,Constrained 0025 4801 |H | Short_Literal 0x1 0026 4804 |H | Short_Literal 0x4 0027 e002 | | Load 0x0,0x2 0028 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0029 035b | [ | Declare_Type Array,Constrained 002a 02a0 | | Declare_Subprogram Null_Subprogram 002b 4802 |H | Short_Literal 0x2 002c 032d | - | Declare_Type Record,Defined 002d 4801 |H | Short_Literal 0x1 002e 4804 |H | Short_Literal 0x4 002f e002 | | Load 0x0,0x2 0030 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0031 035b | [ | Declare_Type Array,Constrained 0032 4801 |H | Short_Literal 0x1 0033 4804 |H | Short_Literal 0x4 0034 e002 | | Load 0x0,0x2 0035 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0036 035b | [ | Declare_Type Array,Constrained 0037 00e3 | | Load_Encached Natural_Cache 0038 e003 | | Load 0x0,0x3 0039 1b11 | | Execute Package,Field_Read,Field_Number 0x11 003a 02a0 | | Declare_Subprogram Null_Subprogram 003b 4804 |H | Short_Literal 0x4 003c 032d | - | Declare_Type Record,Defined 003d 4801 |H | Short_Literal 0x1 003e 4804 |H | Short_Literal 0x4 003f e002 | | Load 0x0,0x2 0040 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0041 035b | [ | Declare_Type Array,Constrained 0042 4801 |H | Short_Literal 0x1 0043 4804 |H | Short_Literal 0x4 0044 e002 | | Load 0x0,0x2 0045 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0046 035b | [ | Declare_Type Array,Constrained 0047 00e3 | | Load_Encached Natural_Cache 0048 02a0 | | Declare_Subprogram Null_Subprogram 0049 4803 |H | Short_Literal 0x3 004a 032d | - | Declare_Type Record,Defined 004b 0093 0000 | | push_full_address 0x0 004d 609a |` | Indirect_Literal Discrete,0xe8,{0x80000000, 0x00020000} 004e 0273 | s | Execute Discrete,Plus 004f e004 | | Load 0x0,0x4 0050 0273 | s | Execute Discrete,Plus 0051 e005 | | Load 0x0,0x5 0052 0273 | s | Execute Discrete,Plus 0053 00d9 | | Load_Top At_Offset_1 0054 e006 | | Load 0x0,0x6 0055 0387 | | Declare_Variable Package 0056 00d8 | | Load_Top At_Offset_0 0057 020f | | Execute Module,Activate 0058 e007 | | Load 0x0,0x7 0059 00d9 | | Load_Top At_Offset_1 005a 0098 | | Execute Package,Field_Read_Dynamic 005b 0007 | | Action Break_Optional 005c 0093 0000 | | push_full_address 0x0 005e 6085 |` | Indirect_Literal Discrete,0xe4,{0x80000000, 0x00010000} 005f 0273 | s | Execute Discrete,Plus 0060 e004 | | Load 0x0,0x4 0061 0273 | s | Execute Discrete,Plus 0062 e008 | | Load 0x0,0x8 0063 0273 | s | Execute Discrete,Plus 0064 e217 | | Load 0x1,0x17 0065 e006 | | Load 0x0,0x6 0066 0387 | | Declare_Variable Package 0067 00d8 | | Load_Top At_Offset_0 0068 020f | | Execute Module,Activate 0069 e007 | | Load 0x0,0x7 006a 00d9 | | Load_Top At_Offset_1 006b 0098 | | Execute Package,Field_Read_Dynamic 006c 0007 | | Action Break_Optional 006d 00e3 | | Load_Encached Natural_Cache 006e 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 006f 029d 0243 | C| Declare_Subprogram INIT_0240,For_Outer_Call 0071 029d 0273 | s| Declare_Subprogram INIT_0270,For_Outer_Call 0073 1d0d | | Execute_Immediate Reference_Lex_1,0xd 0074 00c7 | | Action Elaborate_Subprogram 0075 1d0e | | Execute_Immediate Reference_Lex_1,0xe 0076 00c7 | | Action Elaborate_Subprogram 0077 1d0f | | Execute_Immediate Reference_Lex_1,0xf 0078 00c7 | | Action Elaborate_Subprogram 0079 1d10 | | Execute_Immediate Reference_Lex_1,0x10 007a 00c7 | | Action Elaborate_Subprogram 007b 1d11 | | Execute_Immediate Reference_Lex_1,0x11 007c 00c7 | | Action Elaborate_Subprogram 007d 1d12 | | Execute_Immediate Reference_Lex_1,0x12 007e 00c7 | | Action Elaborate_Subprogram 007f 1d13 | | Execute_Immediate Reference_Lex_1,0x13 0080 00c7 | | Action Elaborate_Subprogram 0081 1d14 | | Execute_Immediate Reference_Lex_1,0x14 0082 00c7 | | Action Elaborate_Subprogram 0083 1d15 | | Execute_Immediate Reference_Lex_1,0x15 0084 00c7 | | Action Elaborate_Subprogram 0085 1d16 | | Execute_Immediate Reference_Lex_1,0x16 0086 00c7 | | Action Elaborate_Subprogram 0087 029d 0293 | | Declare_Subprogram INIT_0290,For_Outer_Call 0089 4800 |H | Short_Literal 0x0 008a 0093 02f3 | | push_full_address INIT_02f0 008c 00f5 | | Load_Encached Unused21 008d 037d | } | Declare_Type Task,Defined 008e 036f | o | Declare_Variable Task 008f e009 | | Load 0x0,0x9 0090 e00a | | Load 0x0,0xa 0091 1d10 | | Execute_Immediate Reference_Lex_1,0x10 0092 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21 0093 1d0d | | Execute_Immediate Reference_Lex_1,0xd 0094 1d0e | | Execute_Immediate Reference_Lex_1,0xe 0095 1d1e | | Execute_Immediate Reference_Lex_1,0x1e 0096 1d13 | | Execute_Immediate Reference_Lex_1,0x13 0097 1d14 | | Execute_Immediate Reference_Lex_1,0x14 0098 1d11 | | Execute_Immediate Reference_Lex_1,0x11 0099 1d12 | | Execute_Immediate Reference_Lex_1,0x12 009a 480b |H | Short_Literal 0xb 009b e222 | " | Load 0x1,0x22 009c 020e | | Execute Module,Augment_Imports 009d 0007 | | Action Break_Optional 009e 4800 |H | Short_Literal 0x0 009f 0093 02c3 | | push_full_address INIT_02c0 00a1 00f5 | | Load_Encached Unused21 00a2 037d | } | Declare_Type Task,Defined 00a3 036f | o | Declare_Variable Task 00a4 e00b | | Load 0x0,0xb 00a5 e009 | | Load 0x0,0x9 00a6 e00a | | Load 0x0,0xa 00a7 e00c | | Load 0x0,0xc 00a8 a00d | | Store_Unchecked 0x0,0xd 00a9 a00e | | Store_Unchecked 0x0,0xe 00aa a00f | | Store_Unchecked 0x0,0xf 00ab e222 | " | Load 0x1,0x22 00ac 480d |H | Short_Literal 0xd 00ad 4809 |H | Short_Literal 0x9 00ae e223 | # | Load 0x1,0x23 00af 020e | | Execute Module,Augment_Imports 00b0 BODY_0008: 00b0 00be | | Action Activate_Tasks 00b1 00bc | | Action Signal_Activated 00b2 00bb | | Action Signal_Completion 00b3 0000 0000 | | .BLANK 0000[0x5] 00b8 ; -------------------------------------------------------------------------------------- 00b8 ; SUBPROGRAM 00b8 ; -------------------------------------------------------------------------------------- 00b8 00cf | | .CONST 0x00cf ; Address of begin 00b9 0004 | | .CONST 0x0004 ; Address of exception handler 00ba 0004 | | .CONST 0x0004 ; Number of locals 00bb INIT_00b8: 00bb e217 | | Load 0x1,0x17 00bc 0322 | " | Declare_Variable Record 00bd 00db | | Load_Top At_Offset_3 00be e217 | | Load 0x1,0x17 00bf 3000 |0 | Execute Record,Field_Type,Field_Number 0x0 00c0 0119 | | Execute Any,Check_In_Formal_Type 00c1 00d9 | | Load_Top At_Offset_1 00c2 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 00c3 e5fe | | Load 0x2,-0x2 00c4 e217 | | Load 0x1,0x17 00c5 3001 |0 | Execute Record,Field_Type,Field_Number 0x1 00c6 0119 | | Execute Any,Check_In_Formal_Type 00c7 00d9 | | Load_Top At_Offset_1 00c8 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 00c9 e010 | | Load 0x0,0x10 00ca e21c | | Load 0x1,0x1c 00cb 0098 | | Execute Package,Field_Read_Dynamic 00cc 0007 | | Action Break_Optional 00cd 00e1 | | Load_Encached Boolean_Cache 00ce 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 00cf BODY_00b8: 00cf 00da | | Load_Top At_Offset_2 00d0 e21d | | Load 0x1,0x1d 00d1 e011 | | Load 0x0,0x11 00d2 e21c | | Load 0x1,0x1c 00d3 0096 | | Execute Package,Entry 00d4 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 00d5 00d8 | | Load_Top At_Offset_0 00d6 6802 |h | Jump_Zero 0xd9 00d7 4800 |H | Short_Literal 0x0 00d8 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 00d9 e21d | | Load 0x1,0x1d 00da 00db | | Load_Top At_Offset_3 00db e012 | | Load 0x0,0x12 00dc e21c | | Load 0x1,0x1c 00dd 0096 | | Execute Package,Entry 00de a21d | | Store_Unchecked 0x1,0x1d 00df 4801 |H | Short_Literal 0x1 00e0 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 00e1 0000 0000 | | .XXX[0x3] 00e3 0000 | | 00e4 8000 0000 | | .LITERAL {0x80000000, 0x00010000} 00e8 8000 0000 | | .LITERAL {0x80000000, 0x00020000} 00ec 0000 0000 | | .BLANK 0000[0x4] 00f0 ; -------------------------------------------------------------------------------------- 00f0 ; SUBPROGRAM 00f0 ; -------------------------------------------------------------------------------------- 00f0 0103 | | .CONST 0x0103 ; Address of begin 00f1 0004 | | .CONST 0x0004 ; Address of exception handler 00f2 0003 | | .CONST 0x0003 ; Number of locals 00f3 INIT_00f0: 00f3 e217 | | Load 0x1,0x17 00f4 0322 | " | Declare_Variable Record 00f5 00db | | Load_Top At_Offset_3 00f6 e217 | | Load 0x1,0x17 00f7 3000 |0 | Execute Record,Field_Type,Field_Number 0x0 00f8 0119 | | Execute Any,Check_In_Formal_Type 00f9 00d9 | | Load_Top At_Offset_1 00fa 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 00fb e5fe | | Load 0x2,-0x2 00fc e217 | | Load 0x1,0x17 00fd 3001 |0 | Execute Record,Field_Type,Field_Number 0x1 00fe 0119 | | Execute Any,Check_In_Formal_Type 00ff 00d9 | | Load_Top At_Offset_1 0100 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0101 00e1 | | Load_Encached Boolean_Cache 0102 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0103 BODY_00f0: 0103 00e1 | | Load_Encached Boolean_Cache 0104 e21d | | Load 0x1,0x1d 0105 00db | | Load_Top At_Offset_3 0106 e013 | | Load 0x0,0x13 0107 e21c | | Load 0x1,0x1c 0108 0096 | | Execute Package,Entry 0109 c21d | | Store 0x1,0x1d 010a 0059 | Y | Store_Top Discrete,At_Offset_1 010b 00d8 | | Load_Top At_Offset_0 010c 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 010d 0000 0000 | | .XXX[0x3] 010f 0000 | | 0110 ; -------------------------------------------------------------------------------------- 0110 ; SUBPROGRAM 0110 ; -------------------------------------------------------------------------------------- 0110 0113 | | .CONST 0x0113 ; Address of begin 0111 0004 | | .CONST 0x0004 ; Address of exception handler 0112 0001 | | .CONST 0x0001 ; Number of locals 0113 BODY_0110: 0113 INIT_0110: 0113 0833 | 3 | Execute_Immediate Raise,0x33 0114 0000 0000 | | .BLANK 0000[0x4] 0118 ; -------------------------------------------------------------------------------------- 0118 ; SUBPROGRAM 0118 ; -------------------------------------------------------------------------------------- 0118 011f | | .CONST 0x011f ; Address of begin 0119 0004 | | .CONST 0x0004 ; Address of exception handler 011a 0002 | | .CONST 0x0002 ; Number of locals 011b INIT_0118: 011b e00b | | Load 0x0,0xb 011c 0322 | " | Declare_Variable Record 011d 00d8 | | Load_Top At_Offset_0 011e 1c00 | | Execute_Immediate Run_Utility,0x0 011f BODY_0118: 011f 4803 |H | Short_Literal 0x3 0120 00d9 | | Load_Top At_Offset_1 0121 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0122 00db | | Load_Top At_Offset_3 0123 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 0124 00d9 | | Load_Top At_Offset_1 0125 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0126 00db | | Load_Top At_Offset_3 0127 3405 |4 | Execute Record,Field_Reference,Field_Number 0x5 0128 00d9 | | Load_Top At_Offset_1 0129 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 012a 00db | | Load_Top At_Offset_3 012b 3c06 |< | Execute Record,Field_Read,Field_Number 0x6 012c 00d9 | | Load_Top At_Offset_1 012d 3806 |8 | Execute Record,Field_Write,Field_Number 0x6 012e 00db | | Load_Top At_Offset_3 012f 3409 |4 | Execute Record,Field_Reference,Field_Number 0x9 0130 00d9 | | Load_Top At_Offset_1 0131 3809 |8 | Execute Record,Field_Write,Field_Number 0x9 0132 00db | | Load_Top At_Offset_3 0133 340b |4 | Execute Record,Field_Reference,Field_Number 0xb 0134 00d9 | | Load_Top At_Offset_1 0135 380a |8 | Execute Record,Field_Write,Field_Number 0xa 0136 e5fe | | Load 0x2,-0x2 0137 00d9 | | Load_Top At_Offset_1 0138 8014 | | Call 0x0,0x14 0139 00d1 | | Pop_Control Pop_Count_1 013a e5fe | | Load 0x2,-0x2 013b 00d9 | | Load_Top At_Offset_1 013c 8015 | | Call 0x0,0x15 013d 00d1 | | Pop_Control Pop_Count_1 013e e5fe | | Load 0x2,-0x2 013f 800f | | Call 0x0,0xf 0140 00d1 | | Pop_Control Pop_Count_1 0141 0092 03b7 | | Action Push_String_Extended,0x3b7 ; " envoi a la tache tierce Ok" 0143 e009 | | Load 0x0,0x9 0144 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 0145 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0146 0000 0000 | | .XXX[0x2] 0148 ; -------------------------------------------------------------------------------------- 0148 ; SUBPROGRAM 0148 ; -------------------------------------------------------------------------------------- 0148 0167 | g | .CONST 0x0167 ; Address of begin 0149 0004 | | .CONST 0x0004 ; Address of exception handler 014a 0006 | | .CONST 0x0006 ; Number of locals 014b INIT_0148: 014b e00b | | Load 0x0,0xb 014c 0322 | " | Declare_Variable Record 014d 00d8 | | Load_Top At_Offset_0 014e 1c00 | | Execute_Immediate Run_Utility,0x0 014f e010 | | Load 0x0,0x10 0150 e21c | | Load 0x1,0x1c 0151 0098 | | Execute Package,Field_Read_Dynamic 0152 0007 | | Action Break_Optional 0153 e217 | | Load 0x1,0x17 0154 0322 | " | Declare_Variable Record 0155 4801 |H | Short_Literal 0x1 0156 4804 |H | Short_Literal 0x4 0157 e002 | | Load 0x0,0x2 0158 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0159 035b | [ | Declare_Type Array,Constrained 015a 0337 | 7 | Declare_Variable Array 015b e5ff | | Load 0x2,-0x1 015c 00d9 | | Load_Top At_Offset_1 015d 01d4 | | Execute Vector,Structure_Write 015e 4801 |H | Short_Literal 0x1 015f 4804 |H | Short_Literal 0x4 0160 e002 | | Load 0x0,0x2 0161 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0162 035b | [ | Declare_Type Array,Constrained 0163 0337 | 7 | Declare_Variable Array 0164 e5fe | | Load 0x2,-0x2 0165 00d9 | | Load_Top At_Offset_1 0166 01d4 | | Execute Vector,Structure_Write 0167 BODY_0148: 0167 4804 |H | Short_Literal 0x4 0168 e402 | | Load 0x2,0x2 0169 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 016a e5ff | | Load 0x2,-0x1 016b e402 | | Load 0x2,0x2 016c 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 016d e5fe | | Load 0x2,-0x2 016e e402 | | Load 0x2,0x2 016f 3809 |8 | Execute Record,Field_Write,Field_Number 0x9 0170 e5fd | | Load 0x2,-0x3 0171 e402 | | Load 0x2,0x2 0172 3806 |8 | Execute Record,Field_Write,Field_Number 0x6 0173 e21d | | Load 0x1,0x1d 0174 e016 | | Load 0x0,0x16 0175 e21c | | Load 0x1,0x1c 0176 0096 | | Execute Package,Entry 0177 7034 |p4 | Jump_Nonzero 0x1ac 0178 e010 | | Load 0x0,0x10 0179 e21c | | Load 0x1,0x1c 017a 0098 | | Execute Package,Field_Read_Dynamic 017b e21d | | Load 0x1,0x1d 017c e017 | | Load 0x0,0x17 017d e21c | | Load 0x1,0x1c 017e 0096 | | Execute Package,Entry 017f c403 | | Store 0x2,0x3 0180 00cf | | Action Mark_Auxiliary 0181 e403 | | Load 0x2,0x3 0182 e018 | | Load 0x0,0x18 0183 e21c | | Load 0x1,0x1c 0184 0096 | | Execute Package,Entry 0185 e404 | | Load 0x2,0x4 0186 017d | } | Execute Record,Structure_Write 0187 00db | | Load_Top At_Offset_3 0188 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 0189 e402 | | Load 0x2,0x2 018a 380a |8 | Execute Record,Field_Write,Field_Number 0xa 018b 00db | | Load_Top At_Offset_3 018c 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 018d e402 | | Load 0x2,0x2 018e 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 018f e5fc | | Load 0x2,-0x4 0190 e402 | | Load 0x2,0x2 0191 8014 | | Call 0x0,0x14 0192 00d1 | | Pop_Control Pop_Count_1 0193 e5fc | | Load 0x2,-0x4 0194 e402 | | Load 0x2,0x2 0195 8015 | | Call 0x0,0x15 0196 00d1 | | Pop_Control Pop_Count_1 0197 e5fc | | Load 0x2,-0x4 0198 800f | | Call 0x0,0xf 0199 00d1 | | Pop_Control Pop_Count_1 019a 0092 03b8 | | Action Push_String_Extended,0x3b8 ; " Un Message d'info generale a ete envoye " 019c e009 | | Load 0x0,0x9 019d 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 019e e403 | | Load 0x2,0x3 019f e019 | | Load 0x0,0x19 01a0 e21c | | Load 0x1,0x1c 01a1 0096 | | Execute Package,Entry 01a2 c403 | | Store 0x2,0x3 01a3 e403 | | Load 0x2,0x3 01a4 e01a | | Load 0x0,0x1a 01a5 e21c | | Load 0x1,0x1c 01a6 0096 | | Execute Package,Entry 01a7 6801 |h | Jump_Zero 0x1a9 01a8 7802 |x | Jump 0x1ab 01a9 00c9 | | Action Pop_Auxiliary_Loop 01aa 7fd6 | | Jump 0x181 01ab 00ce | | Action Pop_Auxiliary 01ac 4504 |E | Exit_Suprogram New_Top_Offset 0x4 01ad 0000 0000 | | .XXX[0x3] 01af 0000 | | 01b0 ; -------------------------------------------------------------------------------------- 01b0 ; SUBPROGRAM 01b0 ; -------------------------------------------------------------------------------------- 01b0 01b7 | | .CONST 0x01b7 ; Address of begin 01b1 0004 | | .CONST 0x0004 ; Address of exception handler 01b2 0002 | | .CONST 0x0002 ; Number of locals 01b3 INIT_01b0: 01b3 e00b | | Load 0x0,0xb 01b4 0322 | " | Declare_Variable Record 01b5 00d8 | | Load_Top At_Offset_0 01b6 1c00 | | Execute_Immediate Run_Utility,0x0 01b7 BODY_01b0: 01b7 4805 |H | Short_Literal 0x5 01b8 00d9 | | Load_Top At_Offset_1 01b9 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 01ba 00db | | Load_Top At_Offset_3 01bb 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 01bc 00d9 | | Load_Top At_Offset_1 01bd 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 01be 00db | | Load_Top At_Offset_3 01bf 3405 |4 | Execute Record,Field_Reference,Field_Number 0x5 01c0 00d9 | | Load_Top At_Offset_1 01c1 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 01c2 00db | | Load_Top At_Offset_3 01c3 3c06 |< | Execute Record,Field_Read,Field_Number 0x6 01c4 00d9 | | Load_Top At_Offset_1 01c5 3806 |8 | Execute Record,Field_Write,Field_Number 0x6 01c6 00db | | Load_Top At_Offset_3 01c7 3409 |4 | Execute Record,Field_Reference,Field_Number 0x9 01c8 00d9 | | Load_Top At_Offset_1 01c9 3809 |8 | Execute Record,Field_Write,Field_Number 0x9 01ca 00db | | Load_Top At_Offset_3 01cb 340b |4 | Execute Record,Field_Reference,Field_Number 0xb 01cc 00d9 | | Load_Top At_Offset_1 01cd 380a |8 | Execute Record,Field_Write,Field_Number 0xa 01ce e5fe | | Load 0x2,-0x2 01cf 00d9 | | Load_Top At_Offset_1 01d0 8014 | | Call 0x0,0x14 01d1 00d1 | | Pop_Control Pop_Count_1 01d2 e5fe | | Load 0x2,-0x2 01d3 00d9 | | Load_Top At_Offset_1 01d4 8015 | | Call 0x0,0x15 01d5 00d1 | | Pop_Control Pop_Count_1 01d6 e5fe | | Load 0x2,-0x2 01d7 800f | | Call 0x0,0xf 01d8 00d1 | | Pop_Control Pop_Count_1 01d9 0092 03b7 | | Action Push_String_Extended,0x3b7 ; " envoi a la tache tierce Ok" 01db e009 | | Load 0x0,0x9 01dc 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 01dd 4502 |E | Exit_Suprogram New_Top_Offset 0x2 01de 0000 0000 | | .XXX[0x2] 01e0 ; -------------------------------------------------------------------------------------- 01e0 ; SUBPROGRAM 01e0 ; -------------------------------------------------------------------------------------- 01e0 01fa | | .CONST 0x01fa ; Address of begin 01e1 0004 | | .CONST 0x0004 ; Address of exception handler 01e2 0004 | | .CONST 0x0004 ; Number of locals 01e3 INIT_01e0: 01e3 e219 | | Load 0x1,0x19 01e4 0322 | " | Declare_Variable Record 01e5 00db | | Load_Top At_Offset_3 01e6 e219 | | Load 0x1,0x19 01e7 3000 |0 | Execute Record,Field_Type,Field_Number 0x0 01e8 0119 | | Execute Any,Check_In_Formal_Type 01e9 00d9 | | Load_Top At_Offset_1 01ea 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 01eb e5fe | | Load 0x2,-0x2 01ec e219 | | Load 0x1,0x19 01ed 3001 |0 | Execute Record,Field_Type,Field_Number 0x1 01ee 0119 | | Execute Any,Check_In_Formal_Type 01ef 00d9 | | Load_Top At_Offset_1 01f0 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 01f1 e5fd | | Load 0x2,-0x3 01f2 00d9 | | Load_Top At_Offset_1 01f3 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 01f4 e010 | | Load 0x0,0x10 01f5 e21a | | Load 0x1,0x1a 01f6 0098 | | Execute Package,Field_Read_Dynamic 01f7 0007 | | Action Break_Optional 01f8 00e1 | | Load_Encached Boolean_Cache 01f9 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 01fa BODY_01e0: 01fa 00da | | Load_Top At_Offset_2 01fb e21b | | Load 0x1,0x1b 01fc e011 | | Load 0x0,0x11 01fd e21a | | Load 0x1,0x1a 01fe 0096 | | Execute Package,Entry 01ff 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 0200 00d8 | | Load_Top At_Offset_0 0201 6802 |h | Jump_Zero 0x204 0202 4800 |H | Short_Literal 0x0 0203 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0204 e21b | | Load 0x1,0x1b 0205 00db | | Load_Top At_Offset_3 0206 e012 | | Load 0x0,0x12 0207 e21a | | Load 0x1,0x1a 0208 0096 | | Execute Package,Entry 0209 a21b | | Store_Unchecked 0x1,0x1b 020a 4801 |H | Short_Literal 0x1 020b 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 020c 0000 0000 | | .BLANK 0000[0x4] 0210 ; -------------------------------------------------------------------------------------- 0210 ; SUBPROGRAM 0210 ; -------------------------------------------------------------------------------------- 0210 0226 | & | .CONST 0x0226 ; Address of begin 0211 0004 | | .CONST 0x0004 ; Address of exception handler 0212 0003 | | .CONST 0x0003 ; Number of locals 0213 INIT_0210: 0213 e219 | | Load 0x1,0x19 0214 0322 | " | Declare_Variable Record 0215 00db | | Load_Top At_Offset_3 0216 e219 | | Load 0x1,0x19 0217 3000 |0 | Execute Record,Field_Type,Field_Number 0x0 0218 0119 | | Execute Any,Check_In_Formal_Type 0219 00d9 | | Load_Top At_Offset_1 021a 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 021b e5fe | | Load 0x2,-0x2 021c e219 | | Load 0x1,0x19 021d 3001 |0 | Execute Record,Field_Type,Field_Number 0x1 021e 0119 | | Execute Any,Check_In_Formal_Type 021f 00d9 | | Load_Top At_Offset_1 0220 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0221 e5fd | | Load 0x2,-0x3 0222 00d9 | | Load_Top At_Offset_1 0223 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0224 00e1 | | Load_Encached Boolean_Cache 0225 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0226 BODY_0210: 0226 00e1 | | Load_Encached Boolean_Cache 0227 e21b | | Load 0x1,0x1b 0228 00db | | Load_Top At_Offset_3 0229 e013 | | Load 0x0,0x13 022a e21a | | Load 0x1,0x1a 022b 0096 | | Execute Package,Entry 022c c21b | | Store 0x1,0x1b 022d 0059 | Y | Store_Top Discrete,At_Offset_1 022e 00d8 | | Load_Top At_Offset_0 022f 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0230 ; -------------------------------------------------------------------------------------- 0230 ; SUBPROGRAM 0230 ; -------------------------------------------------------------------------------------- 0230 0233 | 3 | .CONST 0x0233 ; Address of begin 0231 0004 | | .CONST 0x0004 ; Address of exception handler 0232 0001 | | .CONST 0x0001 ; Number of locals 0233 BODY_0230: 0233 INIT_0230: 0233 0833 | 3 | Execute_Immediate Raise,0x33 0234 0000 0000 | | .BLANK 0000[0x4] 0238 ; -------------------------------------------------------------------------------------- 0238 ; SUBPROGRAM 0238 ; -------------------------------------------------------------------------------------- 0238 023b | ; | .CONST 0x023b ; Address of begin 0239 0004 | | .CONST 0x0004 ; Address of exception handler 023a 0001 | | .CONST 0x0001 ; Number of locals 023b BODY_0238: 023b INIT_0238: 023b 0833 | 3 | Execute_Immediate Raise,0x33 023c 0000 0000 | | .BLANK 0000[0x4] 0240 ; -------------------------------------------------------------------------------------- 0240 ; SUBPROGRAM 0240 ; -------------------------------------------------------------------------------------- 0240 0257 | W | .CONST 0x0257 ; Address of begin 0241 0004 | | .CONST 0x0004 ; Address of exception handler 0242 0004 | | .CONST 0x0004 ; Number of locals 0243 INIT_0240: 0243 e217 | | Load 0x1,0x17 0244 0322 | " | Declare_Variable Record 0245 00db | | Load_Top At_Offset_3 0246 e217 | | Load 0x1,0x17 0247 3000 |0 | Execute Record,Field_Type,Field_Number 0x0 0248 0119 | | Execute Any,Check_In_Formal_Type 0249 00d9 | | Load_Top At_Offset_1 024a 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 024b e5fe | | Load 0x2,-0x2 024c e217 | | Load 0x1,0x17 024d 3001 |0 | Execute Record,Field_Type,Field_Number 0x1 024e 0119 | | Execute Any,Check_In_Formal_Type 024f 00d9 | | Load_Top At_Offset_1 0250 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0251 e010 | | Load 0x0,0x10 0252 e21c | | Load 0x1,0x1c 0253 0098 | | Execute Package,Field_Read_Dynamic 0254 0007 | | Action Break_Optional 0255 00e1 | | Load_Encached Boolean_Cache 0256 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0257 BODY_0240: 0257 00da | | Load_Top At_Offset_2 0258 e21d | | Load 0x1,0x1d 0259 e011 | | Load 0x0,0x11 025a e21c | | Load 0x1,0x1c 025b 0096 | | Execute Package,Entry 025c 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 025d 00d8 | | Load_Top At_Offset_0 025e 6802 |h | Jump_Zero 0x261 025f 4800 |H | Short_Literal 0x0 0260 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0261 e21d | | Load 0x1,0x1d 0262 00db | | Load_Top At_Offset_3 0263 e012 | | Load 0x0,0x12 0264 e21c | | Load 0x1,0x1c 0265 0096 | | Execute Package,Entry 0266 a21d | | Store_Unchecked 0x1,0x1d 0267 4801 |H | Short_Literal 0x1 0268 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0269 0000 0000 | | .BLANK 0000[0x7] 0270 ; -------------------------------------------------------------------------------------- 0270 ; SUBPROGRAM 0270 ; -------------------------------------------------------------------------------------- 0270 0283 | | .CONST 0x0283 ; Address of begin 0271 0004 | | .CONST 0x0004 ; Address of exception handler 0272 0003 | | .CONST 0x0003 ; Number of locals 0273 INIT_0270: 0273 e217 | | Load 0x1,0x17 0274 0322 | " | Declare_Variable Record 0275 00db | | Load_Top At_Offset_3 0276 e217 | | Load 0x1,0x17 0277 3000 |0 | Execute Record,Field_Type,Field_Number 0x0 0278 0119 | | Execute Any,Check_In_Formal_Type 0279 00d9 | | Load_Top At_Offset_1 027a 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 027b e5fe | | Load 0x2,-0x2 027c e217 | | Load 0x1,0x17 027d 3001 |0 | Execute Record,Field_Type,Field_Number 0x1 027e 0119 | | Execute Any,Check_In_Formal_Type 027f 00d9 | | Load_Top At_Offset_1 0280 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0281 00e1 | | Load_Encached Boolean_Cache 0282 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0283 BODY_0270: 0283 00e1 | | Load_Encached Boolean_Cache 0284 e21d | | Load 0x1,0x1d 0285 00db | | Load_Top At_Offset_3 0286 e013 | | Load 0x0,0x13 0287 e21c | | Load 0x1,0x1c 0288 0096 | | Execute Package,Entry 0289 c21d | | Store 0x1,0x1d 028a 0059 | Y | Store_Top Discrete,At_Offset_1 028b 00d8 | | Load_Top At_Offset_0 028c 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 028d 0000 0000 | | .XXX[0x3] 028f 0000 | | 0290 ; -------------------------------------------------------------------------------------- 0290 ; SUBPROGRAM 0290 ; -------------------------------------------------------------------------------------- 0290 0297 | | .CONST 0x0297 ; Address of begin 0291 0004 | | .CONST 0x0004 ; Address of exception handler 0292 0002 | | .CONST 0x0002 ; Number of locals 0293 INIT_0290: 0293 e00b | | Load 0x0,0xb 0294 0322 | " | Declare_Variable Record 0295 00d8 | | Load_Top At_Offset_0 0296 1c00 | | Execute_Immediate Run_Utility,0x0 0297 BODY_0290: 0297 480c |H | Short_Literal 0xc 0298 00d9 | | Load_Top At_Offset_1 0299 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 029a e00c | | Load 0x0,0xc 029b 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 029c 00d9 | | Load_Top At_Offset_1 029d 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 029e e00c | | Load 0x0,0xc 029f 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 02a0 00d9 | | Load_Top At_Offset_1 02a1 3809 |8 | Execute Record,Field_Write,Field_Number 0x9 02a2 e5fe | | Load 0x2,-0x2 02a3 00d9 | | Load_Top At_Offset_1 02a4 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 02a5 e5fd | | Load 0x2,-0x3 02a6 00d9 | | Load_Top At_Offset_1 02a7 380a |8 | Execute Record,Field_Write,Field_Number 0xa 02a8 4801 |H | Short_Literal 0x1 02a9 00d9 | | Load_Top At_Offset_1 02aa 3807 |8 | Execute Record,Field_Write,Field_Number 0x7 02ab 00db | | Load_Top At_Offset_3 02ac 00d9 | | Load_Top At_Offset_1 02ad 3808 |8 | Execute Record,Field_Write,Field_Number 0x8 02ae 0092 03b9 | | Action Push_String_Extended,0x3b9 ; "Essai de reponse" 02b0 e009 | | Load 0x0,0x9 02b1 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 02b2 e5fc | | Load 0x2,-0x4 02b3 00d9 | | Load_Top At_Offset_1 02b4 8015 | | Call 0x0,0x15 02b5 00d1 | | Pop_Control Pop_Count_1 02b6 e5fc | | Load 0x2,-0x4 02b7 800f | | Call 0x0,0xf 02b8 00d1 | | Pop_Control Pop_Count_1 02b9 0092 03ba | | Action Push_String_Extended,0x3ba ; "Reponse Envoyee" 02bb e009 | | Load 0x0,0x9 02bc 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 02bd 4504 |E | Exit_Suprogram New_Top_Offset 0x4 02be 0000 0000 | | .XXX[0x2] 02c0 ; -------------------------------------------------------------------------------------- 02c0 ; SUBPROGRAM 02c0 ; -------------------------------------------------------------------------------------- 02c0 02cb | | .CONST 0x02cb ; Address of begin 02c1 0004 | | .CONST 0x0004 ; Address of exception handler 02c2 000e | | .CONST 0x000e ; Number of locals 02c3 INIT_02c0: 02c3 00bf | | Action Accept_Activation 02c4 e001 | | Load 0x0,0x1 02c5 0322 | " | Declare_Variable Record 02c6 00d8 | | Load_Top At_Offset_0 02c7 1c00 | | Execute_Immediate Run_Utility,0x0 02c8 00e1 | | Load_Encached Boolean_Cache 02c9 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 02ca 00bc | | Action Signal_Activated 02cb BODY_02c0: 02cb 00cf | | Action Mark_Auxiliary 02cc 781a |x | Jump 0x2e7 02cd 0092 03bb | | Action Push_String_Extended,0x3bb ; "T_Receive : reception ... " 02cf e002 | | Load 0x0,0x2 02d0 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 02d1 e003 | | Load 0x0,0x3 02d2 e004 | | Load 0x0,0x4 02d3 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 02d4 8005 | | Call 0x0,0x5 02d5 00d1 | | Pop_Control Pop_Count_1 02d6 e003 | | Load 0x0,0x3 02d7 00db | | Load_Top At_Offset_3 02d8 8006 | | Call 0x0,0x6 02d9 00d2 | | Pop_Control Pop_Count_2 02da e003 | | Load 0x0,0x3 02db 8007 | | Call 0x0,0x7 02dc 00d1 | | Pop_Control Pop_Count_1 02dd 0092 03bc | | Action Push_String_Extended,0x3bc ; "T_Receive : 1 Message est recu" 02df e002 | | Load 0x0,0x2 02e0 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 02e1 00da | | Load_Top At_Offset_2 02e2 4801 |H | Short_Literal 0x1 02e3 e008 | | Load 0x0,0x8 02e4 e009 | | Load 0x0,0x9 02e5 00ad | | QQ_Action Package,Field_Execute_Dynamic 02e6 00c9 | | Action Pop_Auxiliary_Loop 02e7 00d9 | | Load_Top At_Offset_1 02e8 77e4 |w | Jump_Nonzero 0x2cd 02e9 00ce | | Action Pop_Auxiliary 02ea 00bb | | Action Signal_Completion 02eb 0000 0000 | | .BLANK 0000[0x5] 02f0 ; -------------------------------------------------------------------------------------- 02f0 ; SUBPROGRAM 02f0 ; -------------------------------------------------------------------------------------- 02f0 02fe | | .CONST 0x02fe ; Address of begin 02f1 0004 | | .CONST 0x0004 ; Address of exception handler 02f2 0010 | | .CONST 0x0010 ; Number of locals 02f3 INIT_02f0: 02f3 4801 |H | Short_Literal 0x1 02f4 02cb | | Declare_Variable Entry 02f5 00bf | | Action Accept_Activation 02f6 00e1 | | Load_Encached Boolean_Cache 02f7 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 02f8 00e1 | | Load_Encached Boolean_Cache 02f9 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 02fa 480d |H | Short_Literal 0xd 02fb 0299 030b | | Declare_Subprogram INIT_0308,For_Accept 02fd 00bc | | Action Signal_Activated 02fe BODY_02f0: 02fe 00cf | | Action Mark_Auxiliary 02ff 7804 |x | Jump 0x304 0300 1d10 | | Execute_Immediate Reference_Lex_1,0x10 0301 1d0d | | Execute_Immediate Reference_Lex_1,0xd 0302 0137 | 7 | Execute Entry,Rendezvous 0303 00c9 | | Action Pop_Auxiliary_Loop 0304 00da | | Load_Top At_Offset_2 0305 77fa |w | Jump_Nonzero 0x300 0306 00ce | | Action Pop_Auxiliary 0307 00bb | | Action Signal_Completion 0308 ; -------------------------------------------------------------------------------------- 0308 ; SUBPROGRAM 0308 ; -------------------------------------------------------------------------------------- 0308 030b | | .CONST 0x030b ; Address of begin 0309 0004 | | .CONST 0x0004 ; Address of exception handler 030a 0001 | | .CONST 0x0001 ; Number of locals 030b BODY_0308: 030b INIT_0308: 030b 0092 03bd | | Action Push_String_Extended,0x3bd ; "T_Orb : case" 030d e001 | | Load 0x0,0x1 030e 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 030f 00db | | Load_Top At_Offset_3 0310 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0311 460c |F | Jump_Case 0xd 0312 781f |x | Jump 0x332 ; case 0x0 0313 7834 |x4 | Jump 0x348 ; case 0x1 0314 4100 |A | End_Rendezvous 0x0 ; case 0x2 0315 780e |x | Jump 0x324 ; case 0x3 0316 787f |x | Jump 0x396 ; case 0x4 0317 7891 |x | Jump 0x3a9 ; case 0x5 0318 4100 |A | End_Rendezvous 0x0 ; case 0x6 0319 4100 |A | End_Rendezvous 0x0 ; case 0x7 031a 7843 |xC | Jump 0x35e ; case 0x8 031b 785e |x^ | Jump 0x37a ; case 0x9 031c 4100 |A | End_Rendezvous 0x0 ; case 0xa 031d 4100 |A | End_Rendezvous 0x0 ; case 0xb 031e 7800 |x | Jump 0x31f ; case 0xc 031f 0092 03be | | Action Push_String_Extended,0x3be ; "T_Orb : Message traite ok" 0321 e001 | | Load 0x0,0x1 0322 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 0323 4100 |A | End_Rendezvous 0x0 0324 e002 | | Load 0x0,0x2 0325 e5fe | | Load 0x2,-0x2 0326 8003 | | Call 0x0,0x3 0327 00d1 | | Pop_Control Pop_Count_1 0328 e002 | | Load 0x0,0x2 0329 e5fe | | Load 0x2,-0x2 032a 3409 |4 | Execute Record,Field_Reference,Field_Number 0x9 032b e5fe | | Load 0x2,-0x2 032c 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 032d e5fe | | Load 0x2,-0x2 032e 3c08 |< | Execute Record,Field_Read,Field_Number 0x8 032f 8004 | | Call 0x0,0x4 0330 00d1 | | Pop_Control Pop_Count_1 0331 4100 |A | End_Rendezvous 0x0 0332 0092 03bf | | Action Push_String_Extended,0x3bf ; "essai registration" 0334 e001 | | Load 0x0,0x1 0335 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 0336 00db | | Load_Top At_Offset_3 0337 3409 |4 | Execute Record,Field_Reference,Field_Number 0x9 0338 e5fe | | Load 0x2,-0x2 0339 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 033a 8005 | | Call 0x0,0x5 033b a20e | | Store_Unchecked 0x1,0xe 033c e20e | | Load 0x1,0xe 033d 6805 |h | Jump_Zero 0x343 033e 0092 03c0 | | Action Push_String_Extended,0x3c0 ; "T_Orb Registration Ok" 0340 e001 | | Load 0x0,0x1 0341 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 0342 4100 |A | End_Rendezvous 0x0 0343 0092 03c1 | | Action Push_String_Extended,0x3c1 ; "T_Orb Registration not Ok" 0345 e001 | | Load 0x0,0x1 0346 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 0347 4100 |A | End_Rendezvous 0x0 0348 0092 03c2 | | Action Push_String_Extended,0x3c2 ; "essai unregistration" 034a e001 | | Load 0x0,0x1 034b 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 034c 00db | | Load_Top At_Offset_3 034d 3409 |4 | Execute Record,Field_Reference,Field_Number 0x9 034e e5fe | | Load 0x2,-0x2 034f 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 0350 8006 | | Call 0x0,0x6 0351 a20e | | Store_Unchecked 0x1,0xe 0352 e20e | | Load 0x1,0xe 0353 6805 |h | Jump_Zero 0x359 0354 0092 03c3 | | Action Push_String_Extended,0x3c3 ; "T_Orb UnRegistration Ok" 0356 e001 | | Load 0x0,0x1 0357 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 0358 4100 |A | End_Rendezvous 0x0 0359 0092 03c4 | | Action Push_String_Extended,0x3c4 ; "T_Orb UnRegistration not Ok" 035b e001 | | Load 0x0,0x1 035c 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 035d 4100 |A | End_Rendezvous 0x0 035e e007 | | Load 0x0,0x7 035f e5fe | | Load 0x2,-0x2 0360 3409 |4 | Execute Record,Field_Reference,Field_Number 0x9 0361 e5fe | | Load 0x2,-0x2 0362 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 0363 8008 | | Call 0x0,0x8 0364 a20e | | Store_Unchecked 0x1,0xe 0365 e20e | | Load 0x1,0xe 0366 6805 |h | Jump_Zero 0x36c 0367 0092 03c5 | | Action Push_String_Extended,0x3c5 ; "T_Orb Subscription Ok" 0369 e001 | | Load 0x0,0x1 036a 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 036b 7804 |x | Jump 0x370 036c 0092 03c6 | | Action Push_String_Extended,0x3c6 ; "T_Orb Subscription not Ok" 036e e001 | | Load 0x0,0x1 036f 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 0370 e002 | | Load 0x0,0x2 0371 e5fe | | Load 0x2,-0x2 0372 3409 |4 | Execute Record,Field_Reference,Field_Number 0x9 0373 e5fe | | Load 0x2,-0x2 0374 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 0375 e5fe | | Load 0x2,-0x2 0376 3c08 |< | Execute Record,Field_Read,Field_Number 0x8 0377 8004 | | Call 0x0,0x4 0378 00d1 | | Pop_Control Pop_Count_1 0379 4100 |A | End_Rendezvous 0x0 037a e007 | | Load 0x0,0x7 037b e5fe | | Load 0x2,-0x2 037c 3409 |4 | Execute Record,Field_Reference,Field_Number 0x9 037d e5fe | | Load 0x2,-0x2 037e 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 037f 8009 | | Call 0x0,0x9 0380 a20e | | Store_Unchecked 0x1,0xe 0381 e20e | | Load 0x1,0xe 0382 6805 |h | Jump_Zero 0x388 0383 0092 03c7 | | Action Push_String_Extended,0x3c7 ; "T_Orb Unsubscription Ok" 0385 e001 | | Load 0x0,0x1 0386 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 0387 7804 |x | Jump 0x38c 0388 0092 03c8 | | Action Push_String_Extended,0x3c8 ; "T_Orb Unsubscription not Ok" 038a e001 | | Load 0x0,0x1 038b 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 038c e002 | | Load 0x0,0x2 038d e5fe | | Load 0x2,-0x2 038e 3409 |4 | Execute Record,Field_Reference,Field_Number 0x9 038f e5fe | | Load 0x2,-0x2 0390 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 0391 e5fe | | Load 0x2,-0x2 0392 3c08 |< | Execute Record,Field_Read,Field_Number 0x8 0393 8004 | | Call 0x0,0x4 0394 00d1 | | Pop_Control Pop_Count_1 0395 4100 |A | End_Rendezvous 0x0 0396 e002 | | Load 0x0,0x2 0397 e5fe | | Load 0x2,-0x2 0398 3c06 |< | Execute Record,Field_Read,Field_Number 0x6 0399 e5fe | | Load 0x2,-0x2 039a 3409 |4 | Execute Record,Field_Reference,Field_Number 0x9 039b e5fe | | Load 0x2,-0x2 039c 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 039d 800a | | Call 0x0,0xa 039e 00d1 | | Pop_Control Pop_Count_1 039f e002 | | Load 0x0,0x2 03a0 e5fe | | Load 0x2,-0x2 03a1 3409 |4 | Execute Record,Field_Reference,Field_Number 0x9 03a2 e5fe | | Load 0x2,-0x2 03a3 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 03a4 e5fe | | Load 0x2,-0x2 03a5 3c08 |< | Execute Record,Field_Read,Field_Number 0x8 03a6 8004 | | Call 0x0,0x4 03a7 00d1 | | Pop_Control Pop_Count_1 03a8 4100 |A | End_Rendezvous 0x0 03a9 e002 | | Load 0x0,0x2 03aa e5fe | | Load 0x2,-0x2 03ab 800b | | Call 0x0,0xb 03ac 00d1 | | Pop_Control Pop_Count_1 03ad e002 | | Load 0x0,0x2 03ae e5fe | | Load 0x2,-0x2 03af 3409 |4 | Execute Record,Field_Reference,Field_Number 0x9 03b0 e5fe | | Load 0x2,-0x2 03b1 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 03b2 e5fe | | Load 0x2,-0x2 03b3 3c08 |< | Execute Record,Field_Read,Field_Number 0x8 03b4 8004 | | Call 0x0,0x4 03b5 00d1 | | Pop_Control Pop_Count_1 03b6 4100 |A | End_Rendezvous 0x0 03b7 ; -------------------------------------------------------------------------------------- 03b7 ; STRING TABLE 03b7 ; -------------------------------------------------------------------------------------- 03b7 0026 | & | .STRTAB 0x0026->0x03ca ; " envoi a la tache tierce Ok" 03b8 003f | ? | .STRTAB 0x003f->0x03d7 ; " Un Message d'info generale a ete envoye " 03b9 0066 | f | .STRTAB 0x0066->0x03ec ; "Essai de reponse" 03ba 0074 | t | .STRTAB 0x0074->0x03f4 ; "Reponse Envoyee" 03bb 0081 | | .STRTAB 0x0081->0x03fb ; "T_Receive : reception ... " 03bc 0099 | | .STRTAB 0x0099->0x0408 ; "T_Receive : 1 Message est recu" 03bd 00b5 | | .STRTAB 0x00b5->0x0417 ; "T_Orb : case" 03be 00bf | | .STRTAB 0x00bf->0x041d ; "T_Orb : Message traite ok" 03bf 00d6 | | .STRTAB 0x00d6->0x042a ; "essai registration" 03c0 00e6 | | .STRTAB 0x00e6->0x0433 ; "T_Orb Registration Ok" 03c1 00f9 | | .STRTAB 0x00f9->0x043d ; "T_Orb Registration not Ok" 03c2 0110 | | .STRTAB 0x0110->0x044a ; "essai unregistration" 03c3 0122 | " | .STRTAB 0x0122->0x0454 ; "T_Orb UnRegistration Ok" 03c4 0137 | 7 | .STRTAB 0x0137->0x045f ; "T_Orb UnRegistration not Ok" 03c5 0150 | P | .STRTAB 0x0150->0x046d ; "T_Orb Subscription Ok" 03c6 0163 | c | .STRTAB 0x0163->0x0477 ; "T_Orb Subscription not Ok" 03c7 017a | z | .STRTAB 0x017a->0x0484 ; "T_Orb Unsubscription Ok" 03c8 018f | | .STRTAB 0x018f->0x048f ; "T_Orb Unsubscription not Ok" 03c9 01a8 | | .STREND 0x01a8->0x049d 03ca 2065 6e76 | env| .STRTAB_STRINGS 049d 0000 0000 | | .XXX[0x3] 049f 0000 | | 04a0 ; -------------------------------------------------------------------------------------- 04a0 ; Debug Table 04a0 ; -------------------------------------------------------------------------------------- 04a0 0004 000a | | .DEBUG4 0x0004,0x000a,0x2385,0x0000,0x0001,0x0014 04a6 000b 04f6 | | .DBG4T 0x000b,0x04f6,0x8000,0x0000 04aa 0020 0502 | | .DBG4T 0x0020,0x0502,0x8000,0x0000 04ae 00bb 051e | | .DBG4T 0x00bb,0x051e,0x0002,0x0000 04b2 00f3 0528 | (| .DBG4T 0x00f3,0x0528,0x0002,0x0000 04b6 0113 052e | .| .DBG4T 0x0113,0x052e,0x0001,0x0000 04ba 011b 0531 | 1| .DBG4T 0x011b,0x0531,0x0001,0x0000 04be 014b 053e | K >| .DBG4T 0x014b,0x053e,0x0001,0x4000 04c2 01b3 0565 | e| .DBG4T 0x01b3,0x0565,0x0001,0x0000 04c6 01e3 0572 | r| .DBG4T 0x01e3,0x0572,0x0002,0x0000 04ca 0213 057c | || .DBG4T 0x0213,0x057c,0x0002,0x0000 04ce 0233 0582 | 3 | .DBG4T 0x0233,0x0582,0x0001,0x0000 04d2 023b 0585 | ; | .DBG4T 0x023b,0x0585,0x0001,0x0000 04d6 0243 0588 | C | .DBG4T 0x0243,0x0588,0x0002,0x0000 04da 0273 0592 | s | .DBG4T 0x0273,0x0592,0x0002,0x0000 04de 0293 0598 | | .DBG4T 0x0293,0x0598,0x0001,0x0000 04e2 02c3 0000 | | .DBG4T 0x02c3,0x0000,0x0000,0x0000 04e6 02c4 05a6 | | .DBG4T 0x02c4,0x05a6,0x0000,0x4000 04ea 02f3 05b8 | | .DBG4T 0x02f3,0x05b8,0x0000,0x0000 04ee 02f6 05bb | | .DBG4T 0x02f6,0x05bb,0x0000,0x4000 04f2 030b 05c3 | | .DBG4T 0x030b,0x05c3,0x0003,0x4000 04f6 ; -------------------------------------------------------------------------------------- 04f6 ; Debug chain 04f6 ; -------------------------------------------------------------------------------------- 04f6 000a 0000 | | .DBGLEN 0x000a,0x0000 04f8 000b 000d | | .DBGLNO 0x000b,0x000d,0x000f,0x0011,0x0013,0x0015,0x0017,0x0019,0x001b,0x001d 0502 ; -------------------------------------------------------------------------------------- 0502 ; Debug chain 0502 ; -------------------------------------------------------------------------------------- 0502 0019 0001 | | .DBGLEN 0x0019,0x0001 0504 0020 002d | -| .DBGLNO 0x0020,0x002d,0x003d,0x004b,0x0058,0x005c,0x0069,0x006d,0x006f,0x0071,0x0073,0x0075,0x0077,0x0079,0x007b,0x007d,0x007f,0x0081,0x0083,0x0085,0x0087,0x0089,0x008f,0x009e,0x00a4,0x00b1 051e ; -------------------------------------------------------------------------------------- 051e ; Debug chain 051e ; -------------------------------------------------------------------------------------- 051e 0003 0005 | | .DBGLEN 0x0003,0x0005 0520 00bb 00c9 | | .DBGLNO 0x00bb,0x00c9,0x00cd,0x00cf,0x00d5,0x00d7,0x00d9,0x00df 0528 ; -------------------------------------------------------------------------------------- 0528 ; Debug chain 0528 ; -------------------------------------------------------------------------------------- 0528 0002 0002 | | .DBGLEN 0x0002,0x0002 052a 00f3 0101 | | .DBGLNO 0x00f3,0x0101,0x0103,0x010b 052e ; -------------------------------------------------------------------------------------- 052e ; Debug chain 052e ; -------------------------------------------------------------------------------------- 052e 0000 0001 | | .DBGLEN 0x0000,0x0001 0530 0113 | | .DBGLNO 0x0113 0531 ; -------------------------------------------------------------------------------------- 0531 ; Debug chain 0531 ; -------------------------------------------------------------------------------------- 0531 0001 000a | | .DBGLEN 0x0001,0x000a 0533 011b 011f | | .DBGLNO 0x011b,0x011f,0x0122,0x0126,0x012a,0x012e,0x0132,0x0136,0x013a,0x013e,0x0141 053e ; -------------------------------------------------------------------------------------- 053e ; Debug chain 053e ; -------------------------------------------------------------------------------------- 053e 0005 0010 | | .DBGLEN 0x0005,0x0010 0540 014b 014f | K O| .DBGLNO 0x014b,0x014f,0x0153,0x0155,0x015e,0x0167,0x016a,0x016d,0x0170,0x0173,0x0178,0x0181,0x0187,0x018b,0x018f,0x0193,0x0197,0x019a,0x019e,0x01a3,0x01a8 0555 0001 0002 | | .XXX[0x10] 0557 0003 0004 | | 0559 0005 0006 | | 055b 0008 0009 | | 055d 000a 000b | | 055f 000c 000d | | 0561 000e 000f | | 0563 0010 0011 | | 0565 ; -------------------------------------------------------------------------------------- 0565 ; Debug chain 0565 ; -------------------------------------------------------------------------------------- 0565 0001 000a | | .DBGLEN 0x0001,0x000a 0567 01b3 01b7 | | .DBGLNO 0x01b3,0x01b7,0x01ba,0x01be,0x01c2,0x01c6,0x01ca,0x01ce,0x01d2,0x01d6,0x01d9 0572 ; -------------------------------------------------------------------------------------- 0572 ; Debug chain 0572 ; -------------------------------------------------------------------------------------- 0572 0003 0005 | | .DBGLEN 0x0003,0x0005 0574 01e3 01f4 | | .DBGLNO 0x01e3,0x01f4,0x01f8,0x01fa,0x0200,0x0202,0x0204,0x020a 057c ; -------------------------------------------------------------------------------------- 057c ; Debug chain 057c ; -------------------------------------------------------------------------------------- 057c 0002 0002 | | .DBGLEN 0x0002,0x0002 057e 0213 0224 | $| .DBGLNO 0x0213,0x0224,0x0226,0x022e 0582 ; -------------------------------------------------------------------------------------- 0582 ; Debug chain 0582 ; -------------------------------------------------------------------------------------- 0582 0000 0001 | | .DBGLEN 0x0000,0x0001 0584 0233 | 3 | .DBGLNO 0x0233 0585 ; -------------------------------------------------------------------------------------- 0585 ; Debug chain 0585 ; -------------------------------------------------------------------------------------- 0585 0000 0001 | | .DBGLEN 0x0000,0x0001 0587 023b | ; | .DBGLNO 0x023b 0588 ; -------------------------------------------------------------------------------------- 0588 ; Debug chain 0588 ; -------------------------------------------------------------------------------------- 0588 0003 0005 | | .DBGLEN 0x0003,0x0005 058a 0243 0251 | C Q| .DBGLNO 0x0243,0x0251,0x0255,0x0257,0x025d,0x025f,0x0261,0x0267 0592 ; -------------------------------------------------------------------------------------- 0592 ; Debug chain 0592 ; -------------------------------------------------------------------------------------- 0592 0002 0002 | | .DBGLEN 0x0002,0x0002 0594 0273 0281 | s | .DBGLNO 0x0273,0x0281,0x0283,0x028b 0598 ; -------------------------------------------------------------------------------------- 0598 ; Debug chain 0598 ; -------------------------------------------------------------------------------------- 0598 0001 000b | | .DBGLEN 0x0001,0x000b 059a 0293 0297 | | .DBGLNO 0x0293,0x0297,0x029a,0x029e,0x02a2,0x02a5,0x02a8,0x02ab,0x02ae,0x02b2,0x02b6,0x02b9 05a6 ; -------------------------------------------------------------------------------------- 05a6 ; Debug chain 05a6 ; -------------------------------------------------------------------------------------- 05a6 0002 0007 | | .DBGLEN 0x0002,0x0007 05a8 02c4 02c8 | | .DBGLNO 0x02c4,0x02c8,0x02cd,0x02d1,0x02d6,0x02da,0x02dd,0x02e1,0x02e7 05b1 0002 0003 | | .XXX[0x7] 05b3 0004 0005 | | 05b5 0006 0007 | | 05b7 0001 | | 05b8 ; -------------------------------------------------------------------------------------- 05b8 ; Debug chain 05b8 ; -------------------------------------------------------------------------------------- 05b8 0001 0000 | | .DBGLEN 0x0001,0x0000 05ba 02f3 | | .DBGLNO 0x02f3 05bb ; -------------------------------------------------------------------------------------- 05bb ; Debug chain 05bb ; -------------------------------------------------------------------------------------- 05bb 0002 0002 | | .DBGLEN 0x0002,0x0002 05bd 02f6 02f8 | | .DBGLNO 0x02f6,0x02f8,0x0300,0x0304 05c1 0002 0001 | | .XXX[0x2] 05c3 ; -------------------------------------------------------------------------------------- 05c3 ; Debug chain 05c3 ; -------------------------------------------------------------------------------------- 05c3 0000 001d | | .DBGLEN 0x0000,0x001d 05c5 030b 030f | | .DBGLNO 0x030b,0x030f,0x031f,0x0324,0x0328,0x0332,0x0336,0x033c,0x033e,0x0343,0x0348,0x034c,0x0352,0x0354,0x0359,0x035e,0x0365,0x0367,0x036c,0x0370,0x037a,0x0381,0x0383,0x0388,0x038c,0x0396,0x039f,0x03a9,0x03ad 05e2 0001 0002 | | .XXX[0x1e] 05e4 0022 000e | " | 05e6 000f 0003 | | 05e8 0004 0005 | | 05ea 0006 0007 | | 05ec 0008 0009 | | 05ee 000a 000b | | 05f0 000c 0016 | | 05f2 0017 0018 | | 05f4 0019 001a | | 05f6 001b 001c | | 05f8 001d 001e | | 05fa 001f 0010 | | 05fc 0011 0012 | | 05fe 0013 0000 | |