|
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_01d49b
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code
0001 5900 |Y | .CONST 0x5900 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 0490 | | .CONST 0x0490 ; 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 0091 | | .CONST 0x0091 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 001b | | .CONST 0x001b ; Number of locals
000b INIT_0008:
000b 029a 009b | | Declare_Subprogram INIT_0098,For_Outer_Call,Visible,Unelaborated
000d 029a 00eb | | Declare_Subprogram INIT_00e8,For_Outer_Call,Visible,Unelaborated
000f 029a 0153 | S| Declare_Subprogram INIT_0150,For_Outer_Call,Visible,Unelaborated
0011 029a 01ab | | Declare_Subprogram INIT_01a8,For_Outer_Call,Visible,Unelaborated
0013 029a 020b | | Declare_Subprogram INIT_0208,For_Outer_Call,Visible,Unelaborated
0015 029a 0213 | | Declare_Subprogram INIT_0210,For_Outer_Call,Visible,Unelaborated
0017 00bf | | Action Accept_Activation
0018 4801 |H | Short_Literal 0x1
0019 4804 |H | Short_Literal 0x4
001a e002 | | Load 0x0,0x2
001b 1b11 | | Execute Package,Field_Read,Field_Number 0x11
001c 035b | [ | Declare_Type Array,Constrained
001d 0337 | 7 | Declare_Variable Array
001e 00d8 | | Load_Top At_Offset_0
001f 0335 | 5 | Declare_Variable Array,Duplicate
0020 00cd | | Action Spare6_Action
0021 4800 |H | Short_Literal 0x0
0022 4801 |H | Short_Literal 0x1
0023 00da | | Load_Top At_Offset_2
0024 01d6 | | Execute Vector,Field_Write
0025 4800 |H | Short_Literal 0x0
0026 4802 |H | Short_Literal 0x2
0027 00da | | Load_Top At_Offset_2
0028 01d6 | | Execute Vector,Field_Write
0029 4800 |H | Short_Literal 0x0
002a 4803 |H | Short_Literal 0x3
002b 00da | | Load_Top At_Offset_2
002c 01d6 | | Execute Vector,Field_Write
002d 4800 |H | Short_Literal 0x0
002e 4804 |H | Short_Literal 0x4
002f 00da | | Load_Top At_Offset_2
0030 01d6 | | Execute Vector,Field_Write
0031 00d9 | | Load_Top At_Offset_1
0032 01d4 | | Execute Vector,Structure_Write
0033 4801 |H | Short_Literal 0x1
0034 4802 |H | Short_Literal 0x2
0035 e002 | | Load 0x0,0x2
0036 1b15 | | Execute Package,Field_Read,Field_Number 0x15
0037 035b | [ | Declare_Type Array,Constrained
0038 0337 | 7 | Declare_Variable Array
0039 00d8 | | Load_Top At_Offset_0
003a 0335 | 5 | Declare_Variable Array,Duplicate
003b 00cd | | Action Spare6_Action
003c 4800 |H | Short_Literal 0x0
003d 4801 |H | Short_Literal 0x1
003e 00da | | Load_Top At_Offset_2
003f 01d6 | | Execute Vector,Field_Write
0040 4800 |H | Short_Literal 0x0
0041 4802 |H | Short_Literal 0x2
0042 00da | | Load_Top At_Offset_2
0043 01d6 | | Execute Vector,Field_Write
0044 00d9 | | Load_Top At_Offset_1
0045 01d4 | | Execute Vector,Structure_Write
0046 00e3 | | Load_Encached Natural_Cache
0047 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0048 e003 | | Load 0x0,0x3
0049 0322 | " | Declare_Variable Record
004a 00d8 | | Load_Top At_Offset_0
004b 1c00 | | Execute_Immediate Run_Utility,0x0
004c 00e1 | | Load_Encached Boolean_Cache
004d 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
004e 00e1 | | Load_Encached Boolean_Cache
004f 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0050 4800 |H | Short_Literal 0x0
0051 0093 034b | K| push_full_address INIT_0348
0053 00f5 | | Load_Encached Unused21
0054 037d | } | Declare_Type Task,Defined
0055 036f | o | Declare_Variable Task
0056 1d0d | | Execute_Immediate Reference_Lex_1,0xd
0057 00c7 | | Action Elaborate_Subprogram
0058 1d0e | | Execute_Immediate Reference_Lex_1,0xe
0059 00c7 | | Action Elaborate_Subprogram
005a 1d0f | | Execute_Immediate Reference_Lex_1,0xf
005b 00c7 | | Action Elaborate_Subprogram
005c 1d11 | | Execute_Immediate Reference_Lex_1,0x11
005d 00c7 | | Action Elaborate_Subprogram
005e 1d10 | | Execute_Immediate Reference_Lex_1,0x10
005f 00c7 | | Action Elaborate_Subprogram
0060 1d12 | | Execute_Immediate Reference_Lex_1,0x12
0061 00c7 | | Action Elaborate_Subprogram
0062 4800 |H | Short_Literal 0x0
0063 0093 02fb | | push_full_address INIT_02f8
0065 00f5 | | Load_Encached Unused21
0066 037d | } | Declare_Type Task,Defined
0067 036f | o | Declare_Variable Task
0068 4800 |H | Short_Literal 0x0
0069 0093 0293 | | push_full_address INIT_0290
006b 00f5 | | Load_Encached Unused21
006c 037d | } | Declare_Type Task,Defined
006d 036f | o | Declare_Variable Task
006e e004 | | Load 0x0,0x4
006f e005 | | Load 0x0,0x5
0070 e216 | | Load 0x1,0x16
0071 a006 | | Store_Unchecked 0x0,0x6
0072 a007 | | Store_Unchecked 0x0,0x7
0073 a008 | | Store_Unchecked 0x0,0x8
0074 e21b | | Load 0x1,0x1b
0075 480d |H | Short_Literal 0xd
0076 1d17 | | Execute_Immediate Reference_Lex_1,0x17
0077 4809 |H | Short_Literal 0x9
0078 e219 | | Load 0x1,0x19
0079 020e | | Execute Module,Augment_Imports
007a 0007 | | Action Break_Optional
007b e009 | | Load 0x0,0x9
007c 1d17 | | Execute_Immediate Reference_Lex_1,0x17
007d e005 | | Load 0x0,0x5
007e 1d15 | | Execute_Immediate Reference_Lex_1,0x15
007f e21a | | Load 0x1,0x1a
0080 480e |H | Short_Literal 0xe
0081 a00a | | Store_Unchecked 0x0,0xa
0082 480d |H | Short_Literal 0xd
0083 4808 |H | Short_Literal 0x8
0084 e21b | | Load 0x1,0x1b
0085 020e | | Execute Module,Augment_Imports
0086 0007 | | Action Break_Optional
0087 e004 | | Load 0x0,0x4
0088 1d17 | | Execute_Immediate Reference_Lex_1,0x17
0089 e005 | | Load 0x0,0x5
008a e216 | | Load 0x1,0x16
008b a00b | | Store_Unchecked 0x0,0xb
008c a00c | | Store_Unchecked 0x0,0xc
008d a008 | | Store_Unchecked 0x0,0x8
008e 4807 |H | Short_Literal 0x7
008f e21a | | Load 0x1,0x1a
0090 020e | | Execute Module,Augment_Imports
0091 BODY_0008:
0091 00be | | Action Activate_Tasks
0092 00bc | | Action Signal_Activated
0093 00bb | | Action Signal_Completion
0094 0000 0000 | | .BLANK 0000[0x4]
0098 ; --------------------------------------------------------------------------------------
0098 ; SUBPROGRAM
0098 ; --------------------------------------------------------------------------------------
0098 009f | | .CONST 0x009f ; Address of begin
0099 0004 | | .CONST 0x0004 ; Address of exception handler
009a 0002 | | .CONST 0x0002 ; Number of locals
009b INIT_0098:
009b e004 | | Load 0x0,0x4
009c 0322 | " | Declare_Variable Record
009d 00d8 | | Load_Top At_Offset_0
009e 1c00 | | Execute_Immediate Run_Utility,0x0
009f BODY_0098:
009f e218 | | Load 0x1,0x18
00a0 7042 |pB | Jump_Nonzero 0xe3
00a1 0092 037c | || Action Push_String_Extended,0x37c ; "envoi une demade de registration a l'orb"
00a3 e005 | | Load 0x0,0x5
00a4 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
00a5 4800 |H | Short_Literal 0x0
00a6 00d9 | | Load_Top At_Offset_1
00a7 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
00a8 e216 | | Load 0x1,0x16
00a9 00d9 | | Load_Top At_Offset_1
00aa 800d | | Call 0x0,0xd
00ab 00d2 | | Pop_Control Pop_Count_2
00ac 00d8 | | Load_Top At_Offset_0
00ad 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
00ae e213 | | Load 0x1,0x13
00af 01d4 | | Execute Vector,Structure_Write
00b0 00d8 | | Load_Top At_Offset_0
00b1 3409 |4 | Execute Record,Field_Reference,Field_Number 0x9
00b2 e214 | | Load 0x1,0x14
00b3 01d4 | | Execute Vector,Structure_Write
00b4 e216 | | Load 0x1,0x16
00b5 00d9 | | Load_Top At_Offset_1
00b6 800b | | Call 0x0,0xb
00b7 00d2 | | Pop_Control Pop_Count_2
00b8 e216 | | Load 0x1,0x16
00b9 00d9 | | Load_Top At_Offset_1
00ba 800c | | Call 0x0,0xc
00bb 00d1 | | Pop_Control Pop_Count_1
00bc e216 | | Load 0x1,0x16
00bd 8008 | | Call 0x0,0x8
00be 00d1 | | Pop_Control Pop_Count_1
00bf e213 | | Load 0x1,0x13
00c0 00d9 | | Load_Top At_Offset_1
00c1 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
00c2 e214 | | Load 0x1,0x14
00c3 00d9 | | Load_Top At_Offset_1
00c4 380a |8 | Execute Record,Field_Write,Field_Number 0xa
00c5 e00e | | Load 0x0,0xe
00c6 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
00c7 00d9 | | Load_Top At_Offset_1
00c8 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
00c9 e00e | | Load 0x0,0xe
00ca 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
00cb 00d9 | | Load_Top At_Offset_1
00cc 3809 |8 | Execute Record,Field_Write,Field_Number 0x9
00cd 0092 037d | }| Action Push_String_Extended,0x37d ; "attente acquittement de l'orb"
00cf e005 | | Load 0x0,0x5
00d0 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
00d1 e216 | | Load 0x1,0x16
00d2 8006 | | Call 0x0,0x6
00d3 00d1 | | Pop_Control Pop_Count_1
00d4 e216 | | Load 0x1,0x16
00d5 00d9 | | Load_Top At_Offset_1
00d6 8007 | | Call 0x0,0x7
00d7 00d2 | | Pop_Control Pop_Count_2
00d8 e216 | | Load 0x1,0x16
00d9 8008 | | Call 0x0,0x8
00da 00d1 | | Pop_Control Pop_Count_1
00db 00d8 | | Load_Top At_Offset_0
00dc 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
00dd a215 | | Store_Unchecked 0x1,0x15
00de 00d8 | | Load_Top At_Offset_0
00df 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
00e0 a5ff | | Store_Unchecked 0x2,-0x1
00e1 4801 |H | Short_Literal 0x1
00e2 a218 | | Store_Unchecked 0x1,0x18
00e3 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00e4 0000 0000 | | .BLANK 0000[0x4]
00e8 ; --------------------------------------------------------------------------------------
00e8 ; SUBPROGRAM
00e8 ; --------------------------------------------------------------------------------------
00e8 00f3 | | .CONST 0x00f3 ; Address of begin
00e9 0004 | | .CONST 0x0004 ; Address of exception handler
00ea 0003 | | .CONST 0x0003 ; Number of locals
00eb INIT_00e8:
00eb e004 | | Load 0x0,0x4
00ec 0322 | " | Declare_Variable Record
00ed 00d8 | | Load_Top At_Offset_0
00ee 1c00 | | Execute_Immediate Run_Utility,0x0
00ef e003 | | Load 0x0,0x3
00f0 0322 | " | Declare_Variable Record
00f1 00d8 | | Load_Top At_Offset_0
00f2 1c00 | | Execute_Immediate Run_Utility,0x0
00f3 BODY_00e8:
00f3 4801 |H | Short_Literal 0x1
00f4 00da | | Load_Top At_Offset_2
00f5 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
00f6 e5ff | | Load 0x2,-0x1
00f7 00da | | Load_Top At_Offset_2
00f8 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
00f9 00d9 | | Load_Top At_Offset_1
00fa 00d8 | | Load_Top At_Offset_0
00fb 3c09 |< | Execute Record,Field_Read,Field_Number 0x9
00fc 00d8 | | Load_Top At_Offset_0
00fd 0335 | 5 | Declare_Variable Array,Duplicate
00fe 00cd | | Action Spare6_Action
00ff 4800 |H | Short_Literal 0x0
0100 4801 |H | Short_Literal 0x1
0101 00da | | Load_Top At_Offset_2
0102 01d6 | | Execute Vector,Field_Write
0103 4800 |H | Short_Literal 0x0
0104 4802 |H | Short_Literal 0x2
0105 00da | | Load_Top At_Offset_2
0106 01d6 | | Execute Vector,Field_Write
0107 00cd | | Action Spare6_Action
0108 00d9 | | Load_Top At_Offset_1
0109 3809 |8 | Execute Record,Field_Write,Field_Number 0x9
010a 00d1 | | Pop_Control Pop_Count_1
010b 0092 037e | ~| Action Push_String_Extended,0x37e ; "envoi d'une demande d'unregistration de l'object "
010d e005 | | Load 0x0,0x5
010e 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
010f e5ff | | Load 0x2,-0x1
0110 00e0 | | Load_Encached Standard_Cache
0111 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0112 e005 | | Load 0x0,0x5
0113 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0114 0092 037f | | Action Push_String_Extended,0x37f ; " a l'orb"
0116 e005 | | Load 0x0,0x5
0117 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
0118 00d8 | | Load_Top At_Offset_0
0119 00da | | Load_Top At_Offset_2
011a 800d | | Call 0x0,0xd
011b 00d2 | | Pop_Control Pop_Count_2
011c 00d8 | | Load_Top At_Offset_0
011d 00da | | Load_Top At_Offset_2
011e 800b | | Call 0x0,0xb
011f 00d2 | | Pop_Control Pop_Count_2
0120 00d8 | | Load_Top At_Offset_0
0121 00da | | Load_Top At_Offset_2
0122 800c | | Call 0x0,0xc
0123 00d1 | | Pop_Control Pop_Count_1
0124 00d8 | | Load_Top At_Offset_0
0125 8008 | | Call 0x0,0x8
0126 00d1 | | Pop_Control Pop_Count_1
0127 00d9 | | Load_Top At_Offset_1
0128 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0129 00da | | Load_Top At_Offset_2
012a 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
012b 00d9 | | Load_Top At_Offset_1
012c 3409 |4 | Execute Record,Field_Reference,Field_Number 0x9
012d 00da | | Load_Top At_Offset_2
012e 380a |8 | Execute Record,Field_Write,Field_Number 0xa
012f 0092 037d | }| Action Push_String_Extended,0x37d ; "attente acquittement de l'orb"
0131 e005 | | Load 0x0,0x5
0132 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0133 00d8 | | Load_Top At_Offset_0
0134 8006 | | Call 0x0,0x6
0135 00d1 | | Pop_Control Pop_Count_1
0136 00d8 | | Load_Top At_Offset_0
0137 00da | | Load_Top At_Offset_2
0138 8007 | | Call 0x0,0x7
0139 00d2 | | Pop_Control Pop_Count_2
013a 00d8 | | Load_Top At_Offset_0
013b 8008 | | Call 0x0,0x8
013c 00d1 | | Pop_Control Pop_Count_1
013d 00d8 | | Load_Top At_Offset_0
013e 800f | | Call 0x0,0xf
013f 00d1 | | Pop_Control Pop_Count_1
0140 00d9 | | Load_Top At_Offset_1
0141 3c07 |< | Execute Record,Field_Read,Field_Number 0x7
0142 6805 |h | Jump_Zero 0x148
0143 0092 0380 | | Action Push_String_Extended,0x380 ; "Ok"
0145 e005 | | Load 0x0,0x5
0146 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
0147 7804 |x | Jump 0x14c
0148 0092 0381 | | Action Push_String_Extended,0x381 ; "Erreur"
014a e005 | | Load 0x0,0x5
014b 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
014c 00d9 | | Load_Top At_Offset_1
014d 3c07 |< | Execute Record,Field_Read,Field_Number 0x7
014e a5fe | | Store_Unchecked 0x2,-0x2
014f 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0150 ; --------------------------------------------------------------------------------------
0150 ; SUBPROGRAM
0150 ; --------------------------------------------------------------------------------------
0150 015b | [ | .CONST 0x015b ; Address of begin
0151 0004 | | .CONST 0x0004 ; Address of exception handler
0152 0003 | | .CONST 0x0003 ; Number of locals
0153 INIT_0150:
0153 e004 | | Load 0x0,0x4
0154 0322 | " | Declare_Variable Record
0155 00d8 | | Load_Top At_Offset_0
0156 1c00 | | Execute_Immediate Run_Utility,0x0
0157 e003 | | Load 0x0,0x3
0158 0322 | " | Declare_Variable Record
0159 00d8 | | Load_Top At_Offset_0
015a 1c00 | | Execute_Immediate Run_Utility,0x0
015b BODY_0150:
015b 4806 |H | Short_Literal 0x6
015c 00da | | Load_Top At_Offset_2
015d 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
015e e5ff | | Load 0x2,-0x1
015f e009 | | Load 0x0,0x9
0160 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0161 00da | | Load_Top At_Offset_2
0162 3806 |8 | Execute Record,Field_Write,Field_Number 0x6
0163 e5fe | | Load 0x2,-0x2
0164 00da | | Load_Top At_Offset_2
0165 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0166 e213 | | Load 0x1,0x13
0167 00da | | Load_Top At_Offset_2
0168 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0169 e214 | | Load 0x1,0x14
016a 00da | | Load_Top At_Offset_2
016b 3809 |8 | Execute Record,Field_Write,Field_Number 0x9
016c 0092 0382 | | Action Push_String_Extended,0x382 ; "envoi d'une demande a l'orb de publication de "
016e e005 | | Load 0x0,0x5
016f 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
0170 e5ff | | Load 0x2,-0x1
0171 e005 | | Load 0x0,0x5
0172 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0173 0092 0383 | | Action Push_String_Extended,0x383 ; " sur l'object "
0175 e005 | | Load 0x0,0x5
0176 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0177 e5fe | | Load 0x2,-0x2
0178 00e0 | | Load_Encached Standard_Cache
0179 1818 | | Execute Package,Field_Execute,Field_Number 0x18
017a e005 | | Load 0x0,0x5
017b 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
017c 4801 |H | Short_Literal 0x1
017d e005 | | Load 0x0,0x5
017e 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
017f e216 | | Load 0x1,0x16
0180 00da | | Load_Top At_Offset_2
0181 800b | | Call 0x0,0xb
0182 00d2 | | Pop_Control Pop_Count_2
0183 e216 | | Load 0x1,0x16
0184 00da | | Load_Top At_Offset_2
0185 800c | | Call 0x0,0xc
0186 00d1 | | Pop_Control Pop_Count_1
0187 e216 | | Load 0x1,0x16
0188 8008 | | Call 0x0,0x8
0189 00d1 | | Pop_Control Pop_Count_1
018a 0092 037d | }| Action Push_String_Extended,0x37d ; "attente acquittement de l'orb"
018c e005 | | Load 0x0,0x5
018d 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
018e e216 | | Load 0x1,0x16
018f 8006 | | Call 0x0,0x6
0190 00d1 | | Pop_Control Pop_Count_1
0191 e216 | | Load 0x1,0x16
0192 00da | | Load_Top At_Offset_2
0193 8007 | | Call 0x0,0x7
0194 00d2 | | Pop_Control Pop_Count_2
0195 e216 | | Load 0x1,0x16
0196 8008 | | Call 0x0,0x8
0197 00d1 | | Pop_Control Pop_Count_1
0198 00d9 | | Load_Top At_Offset_1
0199 3c07 |< | Execute Record,Field_Read,Field_Number 0x7
019a 6804 |h | Jump_Zero 0x19f
019b 0092 0384 | | Action Push_String_Extended,0x384 ; "publication ok"
019d e005 | | Load 0x0,0x5
019e 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
019f 00d9 | | Load_Top At_Offset_1
01a0 3c07 |< | Execute Record,Field_Read,Field_Number 0x7
01a1 a5fd | | Store_Unchecked 0x2,-0x3
01a2 4503 |E | Exit_Suprogram New_Top_Offset 0x3
01a3 0000 0000 | | .BLANK 0000[0x5]
01a8 ; --------------------------------------------------------------------------------------
01a8 ; SUBPROGRAM
01a8 ; --------------------------------------------------------------------------------------
01a8 01b3 | | .CONST 0x01b3 ; Address of begin
01a9 0004 | | .CONST 0x0004 ; Address of exception handler
01aa 0003 | | .CONST 0x0003 ; Number of locals
01ab INIT_01a8:
01ab e004 | | Load 0x0,0x4
01ac 0322 | " | Declare_Variable Record
01ad 00d8 | | Load_Top At_Offset_0
01ae 1c00 | | Execute_Immediate Run_Utility,0x0
01af e003 | | Load 0x0,0x3
01b0 0322 | " | Declare_Variable Record
01b1 00d8 | | Load_Top At_Offset_0
01b2 1c00 | | Execute_Immediate Run_Utility,0x0
01b3 BODY_01a8:
01b3 4807 |H | Short_Literal 0x7
01b4 00da | | Load_Top At_Offset_2
01b5 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
01b6 e5ff | | Load 0x2,-0x1
01b7 e009 | | Load 0x0,0x9
01b8 1817 | | Execute Package,Field_Execute,Field_Number 0x17
01b9 00da | | Load_Top At_Offset_2
01ba 3806 |8 | Execute Record,Field_Write,Field_Number 0x6
01bb e5fe | | Load 0x2,-0x2
01bc 00da | | Load_Top At_Offset_2
01bd 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
01be 00d9 | | Load_Top At_Offset_1
01bf 00d8 | | Load_Top At_Offset_0
01c0 3c09 |< | Execute Record,Field_Read,Field_Number 0x9
01c1 00d8 | | Load_Top At_Offset_0
01c2 0335 | 5 | Declare_Variable Array,Duplicate
01c3 00cd | | Action Spare6_Action
01c4 4800 |H | Short_Literal 0x0
01c5 4801 |H | Short_Literal 0x1
01c6 00da | | Load_Top At_Offset_2
01c7 01d6 | | Execute Vector,Field_Write
01c8 4800 |H | Short_Literal 0x0
01c9 4802 |H | Short_Literal 0x2
01ca 00da | | Load_Top At_Offset_2
01cb 01d6 | | Execute Vector,Field_Write
01cc 00cd | | Action Spare6_Action
01cd 00d9 | | Load_Top At_Offset_1
01ce 3809 |8 | Execute Record,Field_Write,Field_Number 0x9
01cf 00d1 | | Pop_Control Pop_Count_1
01d0 0092 0385 | | Action Push_String_Extended,0x385 ; "envoi d'une demande a l'orb d'unpublication de "
01d2 e005 | | Load 0x0,0x5
01d3 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
01d4 e5ff | | Load 0x2,-0x1
01d5 e005 | | Load 0x0,0x5
01d6 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
01d7 0092 0383 | | Action Push_String_Extended,0x383 ; " sur l'object "
01d9 e005 | | Load 0x0,0x5
01da 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
01db e5fe | | Load 0x2,-0x2
01dc 00e0 | | Load_Encached Standard_Cache
01dd 1818 | | Execute Package,Field_Execute,Field_Number 0x18
01de e005 | | Load 0x0,0x5
01df 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
01e0 4801 |H | Short_Literal 0x1
01e1 e005 | | Load 0x0,0x5
01e2 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
01e3 00d8 | | Load_Top At_Offset_0
01e4 00da | | Load_Top At_Offset_2
01e5 800d | | Call 0x0,0xd
01e6 00d2 | | Pop_Control Pop_Count_2
01e7 00d8 | | Load_Top At_Offset_0
01e8 00da | | Load_Top At_Offset_2
01e9 800b | | Call 0x0,0xb
01ea 00d2 | | Pop_Control Pop_Count_2
01eb 00d8 | | Load_Top At_Offset_0
01ec 00da | | Load_Top At_Offset_2
01ed 800c | | Call 0x0,0xc
01ee 00d1 | | Pop_Control Pop_Count_1
01ef 00d8 | | Load_Top At_Offset_0
01f0 8008 | | Call 0x0,0x8
01f1 00d1 | | Pop_Control Pop_Count_1
01f2 0092 037d | }| Action Push_String_Extended,0x37d ; "attente acquittement de l'orb"
01f4 e005 | | Load 0x0,0x5
01f5 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
01f6 00d8 | | Load_Top At_Offset_0
01f7 8006 | | Call 0x0,0x6
01f8 00d1 | | Pop_Control Pop_Count_1
01f9 00d8 | | Load_Top At_Offset_0
01fa 00da | | Load_Top At_Offset_2
01fb 8007 | | Call 0x0,0x7
01fc 00d2 | | Pop_Control Pop_Count_2
01fd 00d8 | | Load_Top At_Offset_0
01fe 8008 | | Call 0x0,0x8
01ff 00d1 | | Pop_Control Pop_Count_1
0200 00d8 | | Load_Top At_Offset_0
0201 800f | | Call 0x0,0xf
0202 00d1 | | Pop_Control Pop_Count_1
0203 00d9 | | Load_Top At_Offset_1
0204 3c07 |< | Execute Record,Field_Read,Field_Number 0x7
0205 a5fd | | Store_Unchecked 0x2,-0x3
0206 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0207 0000 | | .XXX[0x1]
0208 ; --------------------------------------------------------------------------------------
0208 ; SUBPROGRAM
0208 ; --------------------------------------------------------------------------------------
0208 020b | | .CONST 0x020b ; Address of begin
0209 0004 | | .CONST 0x0004 ; Address of exception handler
020a 0001 | | .CONST 0x0001 ; Number of locals
020b BODY_0208:
020b INIT_0208:
020b 4800 |H | Short_Literal 0x0
020c e219 | | Load 0x1,0x19
020d 170d | | Execute Task,Entry_Call,Field_Number 0xd
020e 4501 |E | Exit_Suprogram New_Top_Offset 0x1
020f 0000 | | .XXX[0x1]
0210 ; --------------------------------------------------------------------------------------
0210 ; SUBPROGRAM
0210 ; --------------------------------------------------------------------------------------
0210 021d | | .CONST 0x021d ; Address of begin
0211 0004 | | .CONST 0x0004 ; Address of exception handler
0212 0004 | | .CONST 0x0004 ; Number of locals
0213 INIT_0210:
0213 e004 | | Load 0x0,0x4
0214 0322 | " | Declare_Variable Record
0215 00d8 | | Load_Top At_Offset_0
0216 1c00 | | Execute_Immediate Run_Utility,0x0
0217 00e1 | | Load_Encached Boolean_Cache
0218 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0219 e003 | | Load 0x0,0x3
021a 0322 | " | Declare_Variable Record
021b 00d8 | | Load_Top At_Offset_0
021c 1c00 | | Execute_Immediate Run_Utility,0x0
021d BODY_0210:
021d e218 | | Load 0x1,0x18
021e 706c |pl | Jump_Nonzero 0x28b
021f 0092 0386 | | Action Push_String_Extended,0x386 ; "envoi d'une demande de request sur la fonction "
0221 e005 | | Load 0x0,0x5
0222 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0223 e5ff | | Load 0x2,-0x1
0224 e005 | | Load 0x0,0x5
0225 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0226 4801 |H | Short_Literal 0x1
0227 e005 | | Load 0x0,0x5
0228 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
0229 00d8 | | Load_Top At_Offset_0
022a 00db | | Load_Top At_Offset_3
022b 800d | | Call 0x0,0xd
022c 00d2 | | Pop_Control Pop_Count_2
022d e5ff | | Load 0x2,-0x1
022e e009 | | Load 0x0,0x9
022f 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0230 00db | | Load_Top At_Offset_3
0231 3806 |8 | Execute Record,Field_Write,Field_Number 0x6
0232 e5fe | | Load 0x2,-0x2
0233 00db | | Load_Top At_Offset_3
0234 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
0235 4803 |H | Short_Literal 0x3
0236 00db | | Load_Top At_Offset_3
0237 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0238 00d8 | | Load_Top At_Offset_0
0239 00db | | Load_Top At_Offset_3
023a 800b | | Call 0x0,0xb
023b 00d2 | | Pop_Control Pop_Count_2
023c 00d8 | | Load_Top At_Offset_0
023d 00db | | Load_Top At_Offset_3
023e 800c | | Call 0x0,0xc
023f 00d1 | | Pop_Control Pop_Count_1
0240 00d8 | | Load_Top At_Offset_0
0241 8008 | | Call 0x0,0x8
0242 00d1 | | Pop_Control Pop_Count_1
0243 0092 037d | }| Action Push_String_Extended,0x37d ; "attente acquittement de l'orb"
0245 e005 | | Load 0x0,0x5
0246 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0247 00d8 | | Load_Top At_Offset_0
0248 8006 | | Call 0x0,0x6
0249 00d1 | | Pop_Control Pop_Count_1
024a 00d8 | | Load_Top At_Offset_0
024b 00db | | Load_Top At_Offset_3
024c 8007 | | Call 0x0,0x7
024d 00d2 | | Pop_Control Pop_Count_2
024e 00d8 | | Load_Top At_Offset_0
024f 8008 | | Call 0x0,0x8
0250 00d1 | | Pop_Control Pop_Count_1
0251 00d8 | | Load_Top At_Offset_0
0252 800f | | Call 0x0,0xf
0253 00d1 | | Pop_Control Pop_Count_1
0254 00da | | Load_Top At_Offset_2
0255 3c07 |< | Execute Record,Field_Read,Field_Number 0x7
0256 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
0257 00d9 | | Load_Top At_Offset_1
0258 6817 |h | Jump_Zero 0x270
0259 0092 0387 | | Action Push_String_Extended,0x387 ; "la fonction "
025b e005 | | Load 0x0,0x5
025c 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
025d e5ff | | Load 0x2,-0x1
025e e005 | | Load 0x0,0x5
025f 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0260 0092 0388 | | Action Push_String_Extended,0x388 ; " existe"
0262 e005 | | Load 0x0,0x5
0263 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
0264 e5fd | | Load 0x2,-0x3
0265 01dd | | Execute Vector,First
0266 e5fd | | Load 0x2,-0x3
0267 01dc | | Execute Vector,Last
0268 e402 | | Load 0x2,0x2
0269 3c06 |< | Execute Record,Field_Read,Field_Number 0x6
026a e009 | | Load 0x0,0x9
026b 1816 | | Execute Package,Field_Execute,Field_Number 0x16
026c 01cf | | Execute Vector,Slice_Read
026d e5fd | | Load 0x2,-0x3
026e 01d4 | | Execute Vector,Structure_Write
026f 7819 |x | Jump 0x289
0270 0092 0387 | | Action Push_String_Extended,0x387 ; "la fonction "
0272 e005 | | Load 0x0,0x5
0273 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0274 e5ff | | Load 0x2,-0x1
0275 e005 | | Load 0x0,0x5
0276 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0277 0092 0389 | | Action Push_String_Extended,0x389 ; " n'existe pas"
0279 e005 | | Load 0x0,0x5
027a 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
027b 00cf | | Action Mark_Auxiliary
027c e5fd | | Load 0x2,-0x3
027d 01dc | | Execute Vector,Last
027e e5fd | | Load 0x2,-0x3
027f 01dd | | Execute Vector,First
0280 0263 | c | Execute Discrete,Above_Bound
0281 7006 |p | Jump_Nonzero 0x288
0282 485f |H_ | Short_Literal 0x5f
0283 00d9 | | Load_Top At_Offset_1
0284 e5fd | | Load 0x2,-0x3
0285 01d6 | | Execute Vector,Field_Write
0286 00c8 | | Action Pop_Auxiliary_Range
0287 3ffa |? | Loop_Increasing 0x282
0288 00ce | | Action Pop_Auxiliary
0289 00d9 | | Load_Top At_Offset_1
028a a5fc | | Store_Unchecked 0x2,-0x4
028b 4503 |E | Exit_Suprogram New_Top_Offset 0x3
028c 0000 0000 | | .BLANK 0000[0x4]
0290 ; --------------------------------------------------------------------------------------
0290 ; SUBPROGRAM
0290 ; --------------------------------------------------------------------------------------
0290 029c | | .CONST 0x029c ; Address of begin
0291 0004 | | .CONST 0x0004 ; Address of exception handler
0292 000f | | .CONST 0x000f ; Number of locals
0293 INIT_0290:
0293 4801 |H | Short_Literal 0x1
0294 02cb | | Declare_Variable Entry
0295 00bf | | Action Accept_Activation
0296 e001 | | Load 0x0,0x1
0297 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0298 480d |H | Short_Literal 0xd
0299 0299 02ab | | Declare_Subprogram INIT_02a8,For_Accept
029b 00bc | | Action Signal_Activated
029c BODY_0290:
029c 00cf | | Action Mark_Auxiliary
029d 1d0f | | Execute_Immediate Reference_Lex_1,0xf
029e 1d0d | | Execute_Immediate Reference_Lex_1,0xd
029f 0137 | 7 | Execute Entry,Rendezvous
02a0 e002 | | Load 0x0,0x2
02a1 6801 |h | Jump_Zero 0x2a3
02a2 7802 |x | Jump 0x2a5
02a3 00c9 | | Action Pop_Auxiliary_Loop
02a4 7ff8 | | Jump 0x29d
02a5 00ce | | Action Pop_Auxiliary
02a6 00bb | | Action Signal_Completion
02a7 0000 | | .XXX[0x1]
02a8 ; --------------------------------------------------------------------------------------
02a8 ; SUBPROGRAM
02a8 ; --------------------------------------------------------------------------------------
02a8 02ab | | .CONST 0x02ab ; Address of begin
02a9 0004 | | .CONST 0x0004 ; Address of exception handler
02aa 0001 | | .CONST 0x0001 ; Number of locals
02ab BODY_02a8:
02ab INIT_02a8:
02ab 00db | | Load_Top At_Offset_3
02ac 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
02ad 460c |F | Jump_Case 0xd
02ae 4100 |A | End_Rendezvous 0x0 ; case 0x0
02af 780c |x | Jump 0x2bc ; case 0x1
02b0 4100 |A | End_Rendezvous 0x0 ; case 0x2
02b1 781e |x | Jump 0x2d0 ; case 0x3
02b2 4100 |A | End_Rendezvous 0x0 ; case 0x4
02b3 4100 |A | End_Rendezvous 0x0 ; case 0x5
02b4 4100 |A | End_Rendezvous 0x0 ; case 0x6
02b5 4100 |A | End_Rendezvous 0x0 ; case 0x7
02b6 4100 |A | End_Rendezvous 0x0 ; case 0x8
02b7 4100 |A | End_Rendezvous 0x0 ; case 0x9
02b8 4100 |A | End_Rendezvous 0x0 ; case 0xa
02b9 4100 |A | End_Rendezvous 0x0 ; case 0xb
02ba 4100 |A | End_Rendezvous 0x0 ; case 0xc
02bb 4100 |A | .XXX[0x1]
02bc 0092 038a | | Action Push_String_Extended,0x38a ; "unregistration en cours de l'object "
02be e003 | | Load 0x0,0x3
02bf 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
02c0 e004 | | Load 0x0,0x4
02c1 00e0 | | Load_Encached Standard_Cache
02c2 1818 | | Execute Package,Field_Execute,Field_Number 0x18
02c3 e003 | | Load 0x0,0x3
02c4 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
02c5 4801 |H | Short_Literal 0x1
02c6 c002 | | Store 0x0,0x2
02c7 4800 |H | Short_Literal 0x0
02c8 e005 | | Load 0x0,0x5
02c9 e006 | | Load 0x0,0x6
02ca 00ad | | QQ_Action Package,Field_Execute_Dynamic
02cb 0092 038b | | Action Push_String_Extended,0x38b ; "finie"
02cd e003 | | Load 0x0,0x3
02ce 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
02cf 4100 |A | End_Rendezvous 0x0
02d0 0092 038c | | Action Push_String_Extended,0x38c ; "lancement de la fonction "
02d2 e003 | | Load 0x0,0x3
02d3 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
02d4 4801 |H | Short_Literal 0x1
02d5 4804 |H | Short_Literal 0x4
02d6 e5fe | | Load 0x2,-0x2
02d7 3c06 |< | Execute Record,Field_Read,Field_Number 0x6
02d8 e001 | | Load 0x0,0x1
02d9 1816 | | Execute Package,Field_Execute,Field_Number 0x16
02da 01cf | | Execute Vector,Slice_Read
02db e003 | | Load 0x0,0x3
02dc 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
02dd 0092 038d | | Action Push_String_Extended,0x38d ; " en cours"
02df e003 | | Load 0x0,0x3
02e0 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
02e1 e001 | | Load 0x0,0x1
02e2 1b11 | | Execute Package,Field_Read,Field_Number 0x11
02e3 4801 |H | Short_Literal 0x1
02e4 4804 |H | Short_Literal 0x4
02e5 e5fe | | Load 0x2,-0x2
02e6 3c06 |< | Execute Record,Field_Read,Field_Number 0x6
02e7 e001 | | Load 0x0,0x1
02e8 1816 | | Execute Package,Field_Execute,Field_Number 0x16
02e9 01cf | | Execute Vector,Slice_Read
02ea 8007 | | Call 0x0,0x7
02eb c20e | | Store 0x1,0xe
02ec 0092 038e | | Action Push_String_Extended,0x38e ; "traitement effectue"
02ee e003 | | Load 0x0,0x3
02ef 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
02f0 e20e | | Load 0x1,0xe
02f1 e5fe | | Load 0x2,-0x2
02f2 4802 |H | Short_Literal 0x2
02f3 e005 | | Load 0x0,0x5
02f4 e008 | | Load 0x0,0x8
02f5 00ad | | QQ_Action Package,Field_Execute_Dynamic
02f6 4100 |A | End_Rendezvous 0x0
02f7 0000 | | .XXX[0x1]
02f8 ; --------------------------------------------------------------------------------------
02f8 ; SUBPROGRAM
02f8 ; --------------------------------------------------------------------------------------
02f8 030e | | .CONST 0x030e ; Address of begin
02f9 0004 | | .CONST 0x0004 ; Address of exception handler
02fa 0010 | | .CONST 0x0010 ; Number of locals
02fb INIT_02f8:
02fb 4802 |H | Short_Literal 0x2
02fc 02cb | | Declare_Variable Entry
02fd 4800 |H | Short_Literal 0x0
02fe 02cb | | Declare_Variable Entry
02ff 00bf | | Action Accept_Activation
0300 e001 | | Load 0x0,0x1
0301 0322 | " | Declare_Variable Record
0302 00d8 | | Load_Top At_Offset_0
0303 1c00 | | Execute_Immediate Run_Utility,0x0
0304 480e 4864 |H Hd| Declare_Variable Select 0x000, 0x002,
0306 480d 4865 |H He| [0x000]: 0x000 = 0x0000,
0308 4800 4800 |H H | [0x00d]: 0x065 = 0x0328,
030a 4800 4802 |H H | [0x00e]: 0x064 = 0x0320
030c 02cf | |
030d 00bc | | Action Signal_Activated
030e BODY_02f8:
030e 00cf | | Action Mark_Auxiliary
030f 00d9 | | Load_Top At_Offset_1
0310 013f | ? | Execute Select,Rendezvous
0311 00d1 | | Pop_Control Pop_Count_1
0312 e002 | | Load 0x0,0x2
0313 6801 |h | Jump_Zero 0x315
0314 7802 |x | Jump 0x317
0315 00c9 | | Action Pop_Auxiliary_Loop
0316 7ff8 | | Jump 0x30f
0317 00ce | | Action Pop_Auxiliary
0318 00bb | | Action Signal_Completion
0319 0000 0000 | | .BLANK 0000[0x7]
0320 ; --------------------------------------------------------------------------------------
0320 ; SUBPROGRAM
0320 ; See instruction 0x02cf at 0x304, index=0xe
0320 ; --------------------------------------------------------------------------------------
0320 0323 | # | .CONST 0x0323 ; Address of begin
0321 0004 | | .CONST 0x0004 ; Address of exception handler
0322 0001 | | .CONST 0x0001 ; Number of locals
0323 BODY_0320:
0323 INIT_0320:
0323 4100 |A | End_Rendezvous 0x0
0324 0000 0000 | | .BLANK 0000[0x4]
0328 ; --------------------------------------------------------------------------------------
0328 ; SUBPROGRAM
0328 ; See instruction 0x02cf at 0x304, index=0xd
0328 ; --------------------------------------------------------------------------------------
0328 032b | + | .CONST 0x032b ; Address of begin
0329 0004 | | .CONST 0x0004 ; Address of exception handler
032a 0001 | | .CONST 0x0001 ; Number of locals
032b BODY_0328:
032b INIT_0328:
032b 0092 038f | | Action Push_String_Extended,0x38f ; "renvoi de la reponse a l'orb"
032d e003 | | Load 0x0,0x3
032e 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
032f e5fd | | Load 0x2,-0x3
0330 e20f | | Load 0x1,0xf
0331 3806 |8 | Execute Record,Field_Write,Field_Number 0x6
0332 00db | | Load_Top At_Offset_3
0333 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0334 e20f | | Load 0x1,0xf
0335 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0336 00db | | Load_Top At_Offset_3
0337 3409 |4 | Execute Record,Field_Reference,Field_Number 0x9
0338 e20f | | Load 0x1,0xf
0339 380a |8 | Execute Record,Field_Write,Field_Number 0xa
033a e004 | | Load 0x0,0x4
033b e20f | | Load 0x1,0xf
033c 8005 | | Call 0x0,0x5
033d 00d2 | | Pop_Control Pop_Count_2
033e e004 | | Load 0x0,0x4
033f e20f | | Load 0x1,0xf
0340 8006 | | Call 0x0,0x6
0341 00d1 | | Pop_Control Pop_Count_1
0342 e004 | | Load 0x0,0x4
0343 8007 | | Call 0x0,0x7
0344 4100 |A | End_Rendezvous 0x0
0345 0000 0000 | | .XXX[0x3]
0347 0000 | |
0348 ; --------------------------------------------------------------------------------------
0348 ; SUBPROGRAM
0348 ; --------------------------------------------------------------------------------------
0348 0356 | V | .CONST 0x0356 ; Address of begin
0349 0004 | | .CONST 0x0004 ; Address of exception handler
034a 000f | | .CONST 0x000f ; Number of locals
034b INIT_0348:
034b 4800 |H | Short_Literal 0x0
034c 02cb | | Declare_Variable Entry
034d 00bf | | Action Accept_Activation
034e e001 | | Load 0x0,0x1
034f 0322 | " | Declare_Variable Record
0350 00d8 | | Load_Top At_Offset_0
0351 1c00 | | Execute_Immediate Run_Utility,0x0
0352 480d |H | Short_Literal 0xd
0353 0299 037b | {| Declare_Subprogram INIT_0378,For_Accept
0355 00bc | | Action Signal_Activated
0356 BODY_0348:
0356 1d0f | | Execute_Immediate Reference_Lex_1,0xf
0357 1d0d | | Execute_Immediate Reference_Lex_1,0xd
0358 0137 | 7 | Execute Entry,Rendezvous
0359 00cf | | Action Mark_Auxiliary
035a 0092 0390 | | Action Push_String_Extended,0x390 ; "attente demande de fonction"
035c e002 | | Load 0x0,0x2
035d 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
035e e003 | | Load 0x0,0x3
035f 8004 | | Call 0x0,0x4
0360 00d1 | | Pop_Control Pop_Count_1
0361 e003 | | Load 0x0,0x3
0362 00db | | Load_Top At_Offset_3
0363 8005 | | Call 0x0,0x5
0364 00d2 | | Pop_Control Pop_Count_2
0365 e003 | | Load 0x0,0x3
0366 8006 | | Call 0x0,0x6
0367 00d1 | | Pop_Control Pop_Count_1
0368 0092 0391 | | Action Push_String_Extended,0x391 ; "un message est recu"
036a e002 | | Load 0x0,0x2
036b 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
036c 00da | | Load_Top At_Offset_2
036d 4801 |H | Short_Literal 0x1
036e e007 | | Load 0x0,0x7
036f e008 | | Load 0x0,0x8
0370 00ad | | QQ_Action Package,Field_Execute_Dynamic
0371 e009 | | Load 0x0,0x9
0372 6801 |h | Jump_Zero 0x374
0373 7802 |x | Jump 0x376
0374 00c9 | | Action Pop_Auxiliary_Loop
0375 7fe4 | | Jump 0x35a
0376 00ce | | Action Pop_Auxiliary
0377 00bb | | Action Signal_Completion
0378 ; --------------------------------------------------------------------------------------
0378 ; SUBPROGRAM
0378 ; --------------------------------------------------------------------------------------
0378 037b | { | .CONST 0x037b ; Address of begin
0379 0004 | | .CONST 0x0004 ; Address of exception handler
037a 0001 | | .CONST 0x0001 ; Number of locals
037b BODY_0378:
037b INIT_0378:
037b 4100 |A | End_Rendezvous 0x0
037c ; --------------------------------------------------------------------------------------
037c ; STRING TABLE
037c ; --------------------------------------------------------------------------------------
037c 002e | . | .STRTAB 0x002e->0x0393 ; "envoi une demade de registration a l'orb"
037d 0054 | T | .STRTAB 0x0054->0x03a7 ; "attente acquittement de l'orb"
037e 006f | o | .STRTAB 0x006f->0x03b5 ; "envoi d'une demande d'unregistration de l'object "
037f 009e | | .STRTAB 0x009e->0x03ce ; " a l'orb"
0380 00a4 | | .STRTAB 0x00a4->0x03d2 ; "Ok"
0381 00a4 | | .STRTAB 0x00a4->0x03d3 ; "Erreur"
0382 00a8 | | .STRTAB 0x00a8->0x03d6 ; "envoi d'une demande a l'orb de publication de "
0383 00d4 | | .STRTAB 0x00d4->0x03ed ; " sur l'object "
0384 00e0 | | .STRTAB 0x00e0->0x03f4 ; "publication ok"
0385 00ec | | .STRTAB 0x00ec->0x03fb ; "envoi d'une demande a l'orb d'unpublication de "
0386 0119 | | .STRTAB 0x0119->0x0412 ; "envoi d'une demande de request sur la fonction "
0387 0146 | F | .STRTAB 0x0146->0x042a ; "la fonction "
0388 0150 | P | .STRTAB 0x0150->0x0430 ; " existe"
0389 0155 | U | .STRTAB 0x0155->0x0433 ; " n'existe pas"
038a 0160 | ` | .STRTAB 0x0160->0x043a ; "unregistration en cours de l'object "
038b 0182 | | .STRTAB 0x0182->0x044c ; "finie"
038c 0185 | | .STRTAB 0x0185->0x044e ; "lancement de la fonction "
038d 019c | | .STRTAB 0x019c->0x045b ; " en cours"
038e 01a3 | | .STRTAB 0x01a3->0x045f ; "traitement effectue"
038f 01b4 | | .STRTAB 0x01b4->0x0469 ; "renvoi de la reponse a l'orb"
0390 01ce | | .STRTAB 0x01ce->0x0477 ; "attente demande de fonction"
0391 01e7 | | .STRTAB 0x01e7->0x0484 ; "un message est recu"
0392 01f8 | | .STREND 0x01f8->0x048e
0393 656e 766f |envo| .STRTAB_STRINGS
048e 0000 0000 | | .XXX[0x2]
0490 ; --------------------------------------------------------------------------------------
0490 ; Debug Table
0490 ; --------------------------------------------------------------------------------------
0490 0004 000a | | .DEBUG4 0x0004,0x000a,0x6ea6,0x0000,0x0001,0x0012
0496 000b 04de | | .DBG4T 0x000b,0x04de,0x8000,0x0000
049a 0018 04e6 | | .DBG4T 0x0018,0x04e6,0x8000,0x0000
049e 009b 04fa | | .DBG4T 0x009b,0x04fa,0x0001,0x0000
04a2 00eb 0511 | | .DBG4T 0x00eb,0x0511,0x0001,0x0000
04a6 0153 052a | S *| .DBG4T 0x0153,0x052a,0x0001,0x0000
04aa 01ab 0542 | B| .DBG4T 0x01ab,0x0542,0x0001,0x0000
04ae 020b 0559 | Y| .DBG4T 0x020b,0x0559,0x0001,0x0000
04b2 0213 055c | \| .DBG4T 0x0213,0x055c,0x0001,0x0000
04b6 0293 057d | }| .DBG4T 0x0293,0x057d,0x0000,0x0000
04ba 0296 0580 | | .DBG4T 0x0296,0x0580,0x0000,0x4000
04be 02ab 0589 | | .DBG4T 0x02ab,0x0589,0x0003,0x4000
04c2 02fb 05a3 | | .DBG4T 0x02fb,0x05a3,0x0000,0x0000
04c6 0300 05a7 | | .DBG4T 0x0300,0x05a7,0x0000,0x4000
04ca 0323 05b0 | # | .DBG4T 0x0323,0x05b0,0x0003,0x0000
04ce 032b 05b3 | + | .DBG4T 0x032b,0x05b3,0x0003,0x0000
04d2 034b 05bc | K | .DBG4T 0x034b,0x05bc,0x0000,0x0000
04d6 034e 05bf | N | .DBG4T 0x034e,0x05bf,0x0000,0x4000
04da 037b 0000 | { | .DBG4T 0x037b,0x0000,0x0003,0x0000
04de ; --------------------------------------------------------------------------------------
04de ; Debug chain
04de ; --------------------------------------------------------------------------------------
04de 0006 0000 | | .DBGLEN 0x0006,0x0000
04e0 000b 000d | | .DBGLNO 0x000b,0x000d,0x000f,0x0011,0x0013,0x0015
04e6 ; --------------------------------------------------------------------------------------
04e6 ; Debug chain
04e6 ; --------------------------------------------------------------------------------------
04e6 0012 0000 | | .DBGLEN 0x0012,0x0000
04e8 0018 0033 | 3| .DBGLNO 0x0018,0x0033,0x0046,0x0048,0x004c,0x004e,0x0050,0x0056,0x0058,0x005a,0x005c,0x005e,0x0060,0x0062,0x0068,0x006e,0x007b,0x0087
04fa ; --------------------------------------------------------------------------------------
04fa ; Debug chain
04fa ; --------------------------------------------------------------------------------------
04fa 0001 0014 | | .DBGLEN 0x0001,0x0014
04fc 009b 009f | | .DBGLNO 0x009b,0x009f,0x00a1,0x00a5,0x00a8,0x00ac,0x00b0,0x00b4,0x00b8,0x00bc,0x00bf,0x00c2,0x00c5,0x00c9,0x00cd,0x00d1,0x00d4,0x00d8,0x00db,0x00de,0x00e1
0511 ; --------------------------------------------------------------------------------------
0511 ; Debug chain
0511 ; --------------------------------------------------------------------------------------
0511 0002 0015 | | .DBGLEN 0x0002,0x0015
0513 00eb 00ef | | .DBGLNO 0x00eb,0x00ef,0x00f3,0x00f6,0x00f9,0x010b,0x010f,0x0114,0x0118,0x011c,0x0120,0x0124,0x0127,0x012b,0x012f,0x0133,0x0136,0x013a,0x013d,0x0140,0x0143,0x0148,0x014c
052a ; --------------------------------------------------------------------------------------
052a ; Debug chain
052a ; --------------------------------------------------------------------------------------
052a 0002 0014 | | .DBGLEN 0x0002,0x0014
052c 0153 0157 | S W| .DBGLNO 0x0153,0x0157,0x015b,0x015e,0x0163,0x0166,0x0169,0x016c,0x0170,0x0173,0x0177,0x017c,0x017f,0x0183,0x0187,0x018a,0x018e,0x0191,0x0195,0x0198,0x019b,0x019f
0542 ; --------------------------------------------------------------------------------------
0542 ; Debug chain
0542 ; --------------------------------------------------------------------------------------
0542 0002 0013 | | .DBGLEN 0x0002,0x0013
0544 01ab 01af | | .DBGLNO 0x01ab,0x01af,0x01b3,0x01b6,0x01bb,0x01be,0x01d0,0x01d4,0x01d7,0x01db,0x01e0,0x01e3,0x01e7,0x01eb,0x01ef,0x01f2,0x01f6,0x01f9,0x01fd,0x0200,0x0203
0559 ; --------------------------------------------------------------------------------------
0559 ; Debug chain
0559 ; --------------------------------------------------------------------------------------
0559 0000 0001 | | .DBGLEN 0x0000,0x0001
055b 020b | | .DBGLNO 0x020b
055c ; --------------------------------------------------------------------------------------
055c ; Debug chain
055c ; --------------------------------------------------------------------------------------
055c 0003 001c | | .DBGLEN 0x0003,0x001c
055e 0213 0217 | | .DBGLNO 0x0213,0x0217,0x0219,0x021d,0x021f,0x0223,0x0226,0x0229,0x022d,0x0232,0x0235,0x0238,0x023c,0x0240,0x0243,0x0247,0x024a,0x024e,0x0251,0x0254,0x0257,0x0259,0x025d,0x0260,0x0264,0x0270,0x0274,0x0277,0x027c,0x0282,0x0289
057d ; --------------------------------------------------------------------------------------
057d ; Debug chain
057d ; --------------------------------------------------------------------------------------
057d 0001 0000 | | .DBGLEN 0x0001,0x0000
057f 0293 | | .DBGLNO 0x0293
0580 ; --------------------------------------------------------------------------------------
0580 ; Debug chain
0580 ; --------------------------------------------------------------------------------------
0580 0001 0003 | | .DBGLEN 0x0001,0x0003
0582 0296 029d | | .DBGLNO 0x0296,0x029d,0x02a0,0x02a2
0586 0002 0003 | | .XXX[0x3]
0588 0004 | |
0589 ; --------------------------------------------------------------------------------------
0589 ; Debug chain
0589 ; --------------------------------------------------------------------------------------
0589 0000 000c | | .DBGLEN 0x0000,0x000c
058b 02ab 02bc | | .DBGLNO 0x02ab,0x02bc,0x02c0,0x02c5,0x02c7,0x02cb,0x02d0,0x02d4,0x02dd,0x02e1,0x02ec,0x02f0
0597 0001 0008 | | .XXX[0xc]
0599 0009 000a | |
059b 000b 000c | |
059d 0002 0003 | |
059f 0004 0005 | |
05a1 0006 0007 | |
05a3 ; --------------------------------------------------------------------------------------
05a3 ; Debug chain
05a3 ; --------------------------------------------------------------------------------------
05a3 0002 0000 | | .DBGLEN 0x0002,0x0000
05a5 02fb 02fd | | .DBGLNO 0x02fb,0x02fd
05a7 ; --------------------------------------------------------------------------------------
05a7 ; Debug chain
05a7 ; --------------------------------------------------------------------------------------
05a7 0001 0003 | | .DBGLEN 0x0001,0x0003
05a9 0300 030f | | .DBGLNO 0x0300,0x030f,0x0312,0x0314
05ad 0002 0005 | | .XXX[0x3]
05af 0006 | |
05b0 ; --------------------------------------------------------------------------------------
05b0 ; Debug chain
05b0 ; --------------------------------------------------------------------------------------
05b0 0000 0001 | | .DBGLEN 0x0000,0x0001
05b2 0323 | # | .DBGLNO 0x0323
05b3 ; --------------------------------------------------------------------------------------
05b3 ; Debug chain
05b3 ; --------------------------------------------------------------------------------------
05b3 0000 0007 | | .DBGLEN 0x0000,0x0007
05b5 032b 032f | + /| .DBGLNO 0x032b,0x032f,0x0332,0x0336,0x033a,0x033e,0x0342
05bc ; --------------------------------------------------------------------------------------
05bc ; Debug chain
05bc ; --------------------------------------------------------------------------------------
05bc 0001 0000 | | .DBGLEN 0x0001,0x0000
05be 034b | K | .DBGLNO 0x034b
05bf ; --------------------------------------------------------------------------------------
05bf ; Debug chain
05bf ; --------------------------------------------------------------------------------------
05bf 0001 0009 | | .DBGLEN 0x0001,0x0009
05c1 034e 0356 | N V| .DBGLNO 0x034e,0x0356,0x035a,0x035e,0x0361,0x0365,0x0368,0x036c,0x0371,0x0373
05cb 0001 0003 | | .XXX[0x9]
05cd 0004 0005 | |
05cf 0006 0007 | |
05d1 0008 0009 | |
05d3 000a | |
05d4 0000 0000 | | .BLANK 0000[0x2c]