DataMuseum.dk

Presents historical artifacts from the history of:

Rational R1000/400

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about Rational R1000/400

Excavated with: AutoArchaeologist - Free & Open Source Software.


top - download

⟦7b1b5fb40⟧

    Length: 6144 (0x1800)
    Notes: 00_class, 5900_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_07a8b3

Derivation

└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
    └─ ⟦cfc2e13cd⟧ »Space Info Vol 2« 
        └─⟦this⟧ 

Disassembly

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 0840       | @  |		.CONST	0x0840								; 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 0005       |    |		.CONST	0x0005								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0094       |    |		.CONST	0x0094								; 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 0133  |   3|		Declare_Subprogram	INIT_0130,For_Outer_Call,Visible,Unelaborated
000f 029a 0253  |   S|		Declare_Subprogram	INIT_0250,For_Outer_Call,Visible,Unelaborated
0011 029a 02bb  |    |		Declare_Subprogram	INIT_02b8,For_Outer_Call,Visible,Unelaborated
0013 029a 0373  |   s|		Declare_Subprogram	INIT_0370,For_Outer_Call,Visible,Unelaborated
0015 00bf       |    |		Action	Accept_Activation
0016 4801       |H   |		Short_Literal	0x1
0017 4804       |H   |		Short_Literal	0x4
0018 e002       |    |		Load	0x0,0x2
0019 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
001a 035b       | [  |		Declare_Type	Array,Constrained
001b 4801       |H   |		Short_Literal	0x1
001c 4802       |H   |		Short_Literal	0x2
001d e002       |    |		Load	0x0,0x2
001e 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
001f 035b       | [  |		Declare_Type	Array,Constrained
0020 00e3       |    |		Load_Encached	Natural_Cache
0021 02a0       |    |		Declare_Subprogram	Null_Subprogram
0022 4803       |H   |		Short_Literal	0x3
0023 032d       | -  |		Declare_Type	Record,Defined
0024 4801       |H   |		Short_Literal	0x1
0025 4804       |H   |		Short_Literal	0x4
0026 00e9       |    |		Load_Encached	String_Cache
0027 035b       | [  |		Declare_Type	Array,Constrained
0028 00e3       |    |		Load_Encached	Natural_Cache
0029 02a0       |    |		Declare_Subprogram	Null_Subprogram
002a 4802       |H   |		Short_Literal	0x2
002b 032d       | -  |		Declare_Type	Record,Defined
002c 0093 0000  |    |		push_full_address	0x0
002e 60f9       |`   |		Indirect_Literal	Discrete,0x128,{0x80000000, 0x00020000}
002f 0273       | s  |		Execute	Discrete,Plus
0030 e003       |    |		Load	0x0,0x3
0031 0273       | s  |		Execute	Discrete,Plus
0032 e004       |    |		Load	0x0,0x4
0033 0273       | s  |		Execute	Discrete,Plus
0034 00da       |    |		Load_Top	At_Offset_2
0035 e005       |    |		Load	0x0,0x5
0036 0387       |    |		Declare_Variable	Package
0037 00d8       |    |		Load_Top	At_Offset_0
0038 020f       |    |		Execute	Module,Activate
0039 e006       |    |		Load	0x0,0x6
003a 00d9       |    |		Load_Top	At_Offset_1
003b 0098       |    |		Execute	Package,Field_Read_Dynamic
003c 0007       |    |		Action	Break_Optional
003d 0093 0000  |    |		push_full_address	0x0
003f 60e4       |`   |		Indirect_Literal	Discrete,0x124,{0x80000000, 0x00010000}
0040 0273       | s  |		Execute	Discrete,Plus
0041 e003       |    |		Load	0x0,0x3
0042 0273       | s  |		Execute	Discrete,Plus
0043 e007       |    |		Load	0x0,0x7
0044 0273       | s  |		Execute	Discrete,Plus
0045 00db       |    |		Load_Top	At_Offset_3
0046 e005       |    |		Load	0x0,0x5
0047 0387       |    |		Declare_Variable	Package
0048 00d8       |    |		Load_Top	At_Offset_0
0049 020f       |    |		Execute	Module,Activate
004a e006       |    |		Load	0x0,0x6
004b 00d9       |    |		Load_Top	At_Offset_1
004c 0098       |    |		Execute	Package,Field_Read_Dynamic
004d 0007       |    |		Action	Break_Optional
004e 00e3       |    |		Load_Encached	Natural_Cache
004f 0601       |    |		Execute_Immediate	Set_Value_Unchecked,0x1
0050 1d0d       |    |		Execute_Immediate	Reference_Lex_1,0xd
0051 00c7       |    |		Action	Elaborate_Subprogram
0052 1d0e       |    |		Execute_Immediate	Reference_Lex_1,0xe
0053 00c7       |    |		Action	Elaborate_Subprogram
0054 1d0f       |    |		Execute_Immediate	Reference_Lex_1,0xf
0055 00c7       |    |		Action	Elaborate_Subprogram
0056 1d10       |    |		Execute_Immediate	Reference_Lex_1,0x10
0057 00c7       |    |		Action	Elaborate_Subprogram
0058 1d11       |    |		Execute_Immediate	Reference_Lex_1,0x11
0059 00c7       |    |		Action	Elaborate_Subprogram
005a 4800       |H   |		Short_Literal	0x0
005b 0093 0633  |   3|		push_full_address	INIT_0630
005d 00f5       |    |		Load_Encached	Unused21
005e 037d       | }  |		Declare_Type	Task,Defined
005f 036f       | o  |		Declare_Variable	Task
0060 e008       |    |		Load	0x0,0x8
0061 e009       |    |		Load	0x0,0x9
0062 a00a       |    |		Store_Unchecked	0x0,0xa
0063 a00b       |    |		Store_Unchecked	0x0,0xb
0064 e00c       |    |		Load	0x0,0xc
0065 a00d       |    |		Store_Unchecked	0x0,0xd
0066 a00e       |    |		Store_Unchecked	0x0,0xe
0067 a00f       |    |		Store_Unchecked	0x0,0xf
0068 4808       |H   |		Short_Literal	0x8
0069 e219       |    |		Load	0x1,0x19
006a 020e       |    |		Execute	Module,Augment_Imports
006b 0007       |    |		Action	Break_Optional
006c 4800       |H   |		Short_Literal	0x0
006d 0093 0583  |    |		push_full_address	INIT_0580
006f 00f5       |    |		Load_Encached	Unused21
0070 037d       | }  |		Declare_Type	Task,Defined
0071 036f       | o  |		Declare_Variable	Task
0072 e009       |    |		Load	0x0,0x9
0073 e00c       |    |		Load	0x0,0xc
0074 1d0d       |    |		Execute_Immediate	Reference_Lex_1,0xd
0075 e219       |    |		Load	0x1,0x19
0076 480d       |H   |		Short_Literal	0xd
0077 1d0e       |    |		Execute_Immediate	Reference_Lex_1,0xe
0078 1d11       |    |		Execute_Immediate	Reference_Lex_1,0x11
0079 e010       |    |		Load	0x0,0x10
007a 1d0f       |    |		Execute_Immediate	Reference_Lex_1,0xf
007b 1d10       |    |		Execute_Immediate	Reference_Lex_1,0x10
007c 480a       |H   |		Short_Literal	0xa
007d e21a       |    |		Load	0x1,0x1a
007e 020e       |    |		Execute	Module,Augment_Imports
007f 0007       |    |		Action	Break_Optional
0080 4800       |H   |		Short_Literal	0x0
0081 0093 0553  |   S|		push_full_address	INIT_0550
0083 00f5       |    |		Load_Encached	Unused21
0084 037d       | }  |		Declare_Type	Task,Defined
0085 036f       | o  |		Declare_Variable	Task
0086 e009       |    |		Load	0x0,0x9
0087 e00c       |    |		Load	0x0,0xc
0088 e011       |    |		Load	0x0,0x11
0089 e012       |    |		Load	0x0,0x12
008a a013       |    |		Store_Unchecked	0x0,0x13
008b a014       |    |		Store_Unchecked	0x0,0x14
008c a015       |    |		Store_Unchecked	0x0,0x15
008d a00f       |    |		Store_Unchecked	0x0,0xf
008e e21a       |    |		Load	0x1,0x1a
008f 480d       |H   |		Short_Literal	0xd
0090 a00b       |    |		Store_Unchecked	0x0,0xb
0091 480b       |H   |		Short_Literal	0xb
0092 e21b       |    |		Load	0x1,0x1b
0093 020e       |    |		Execute	Module,Augment_Imports
0094			BODY_0008:
0094 00be       |    |		Action	Activate_Tasks
0095 00bc       |    |		Action	Signal_Activated
0096 00bb       |    |		Action	Signal_Completion
0097 0000       |    |		.XXX[0x1]
0098 ; --------------------------------------------------------------------------------------
0098 ; SUBPROGRAM
0098 ; --------------------------------------------------------------------------------------
0098 00a6       |    |		.CONST	0x00a6								; Address of begin
0099 0004       |    |		.CONST	0x0004								; Address of exception handler
009a 0006       |    |		.CONST	0x0006								; Number of locals
009b			INIT_0098:
009b e212       |    |		Load	0x1,0x12
009c 0322       | "  |		Declare_Variable	Record
009d e212       |    |		Load	0x1,0x12
009e 0322       | "  |		Declare_Variable	Record
009f 00e3       |    |		Load_Encached	Natural_Cache
00a0 e016       |    |		Load	0x0,0x16
00a1 e214       |    |		Load	0x1,0x14
00a2 0098       |    |		Execute	Package,Field_Read_Dynamic
00a3 0007       |    |		Action	Break_Optional
00a4 00e1       |    |		Load_Encached	Boolean_Cache
00a5 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
00a6			BODY_0098:
00a6 0092 0672  |   r|		Action	Push_String_Extended,0x672					; "Orb Registration en cours"
00a8 e00c       |    |		Load	0x0,0xc
00a9 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
00aa e5ff       |    |		Load	0x2,-0x1
00ab e402       |    |		Load	0x2,0x2
00ac 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
00ad e5fe       |    |		Load	0x2,-0x2
00ae e402       |    |		Load	0x2,0x2
00af 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
00b0 e215       |    |		Load	0x1,0x15
00b1 e017       |    |		Load	0x0,0x17
00b2 e214       |    |		Load	0x1,0x14
00b3 0096       |    |		Execute	Package,Entry
00b4 6815       |h   |		Jump_Zero	0xca
00b5 00e3       |    |		Load_Encached	Natural_Cache
00b6 8018       |    |		Call	0x0,0x18
00b7 005b       | [  |		Store_Top	Discrete,At_Offset_3
00b8 00da       |    |		Load_Top	At_Offset_2
00b9 e402       |    |		Load	0x2,0x2
00ba 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
00bb e215       |    |		Load	0x1,0x15
00bc e402       |    |		Load	0x2,0x2
00bd e019       |    |		Load	0x0,0x19
00be e214       |    |		Load	0x1,0x14
00bf 0096       |    |		Execute	Package,Entry
00c0 a215       |    |		Store_Unchecked	0x1,0x15
00c1 00da       |    |		Load_Top	At_Offset_2
00c2 a5fd       |    |		Store_Unchecked	0x2,-0x3
00c3 4801       |H   |		Short_Literal	0x1
00c4 a5fc       |    |		Store_Unchecked	0x2,-0x4
00c5 0092 0673  |   s|		Action	Push_String_Extended,0x673					; "registration ok"
00c7 e00c       |    |		Load	0x0,0xc
00c8 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
00c9 7853       |xS  |		Jump	0x11d
00ca e016       |    |		Load	0x0,0x16
00cb e214       |    |		Load	0x1,0x14
00cc 0098       |    |		Execute	Package,Field_Read_Dynamic
00cd e215       |    |		Load	0x1,0x15
00ce e01a       |    |		Load	0x0,0x1a
00cf e214       |    |		Load	0x1,0x14
00d0 0096       |    |		Execute	Package,Entry
00d1 003a       | :  |		Store_Top	Access,At_Offset_2
00d2 00cf       |    |		Action	Mark_Auxiliary
00d3 00da       |    |		Load_Top	At_Offset_2
00d4 e01b       |    |		Load	0x0,0x1b
00d5 e214       |    |		Load	0x1,0x14
00d6 0096       |    |		Execute	Package,Entry
00d7 e403       |    |		Load	0x2,0x3
00d8 017d       | }  |		Execute	Record,Structure_Write
00d9 00da       |    |		Load_Top	At_Offset_2
00da e01c       |    |		Load	0x0,0x1c
00db e214       |    |		Load	0x1,0x14
00dc 0096       |    |		Execute	Package,Entry
00dd 003b       | ;  |		Store_Top	Access,At_Offset_3
00de e403       |    |		Load	0x2,0x3
00df 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
00e0 e402       |    |		Load	0x2,0x2
00e1 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
00e2 e402       |    |		Load	0x2,0x2
00e3 e403       |    |		Load	0x2,0x3
00e4 017f       |    |		Execute	Record,Equal
00e5 6803       |h   |		Jump_Zero	0xe9
00e6 4801       |H   |		Short_Literal	0x1
00e7 0052       | R  |		Store_Top_Unchecked	Discrete,At_Offset_2
00e8 780c       |x   |		Jump	0xf5
00e9 00da       |    |		Load_Top	At_Offset_2
00ea e01d       |    |		Load	0x0,0x1d
00eb e214       |    |		Load	0x1,0x14
00ec 0096       |    |		Execute	Package,Entry
00ed 6805       |h   |		Jump_Zero	0xf3
00ee 0092 0674  |   t|		Action	Push_String_Extended,0x674					; "T_Orb regist -- fin de liste"
00f0 e00c       |    |		Load	0x0,0xc
00f1 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
00f2 7802       |x   |		Jump	0xf5
00f3 00c9       |    |		Action	Pop_Auxiliary_Loop
00f4 7fde       |    |		Jump	0xd3
00f5 00ce       |    |		Action	Pop_Auxiliary
00f6 00d8       |    |		Load_Top	At_Offset_0
00f7 6811       |h   |		Jump_Zero	0x109
00f8 0092 0675  |   u|		Action	Push_String_Extended,0x675					; "l'object"
00fa e00c       |    |		Load	0x0,0xc
00fb 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
00fc e402       |    |		Load	0x2,0x2
00fd 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
00fe 00e0       |    |		Load_Encached	Standard_Cache
00ff 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0100 e00c       |    |		Load	0x0,0xc
0101 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
0102 0092 0676  |   v|		Action	Push_String_Extended,0x676					; " existe deja dans la liste d'object"
0104 e00c       |    |		Load	0x0,0xc
0105 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
0106 4800       |H   |		Short_Literal	0x0
0107 a5fc       |    |		Store_Unchecked	0x2,-0x4
0108 7814       |x   |		Jump	0x11d
0109 00e3       |    |		Load_Encached	Natural_Cache
010a 8018       |    |		Call	0x0,0x18
010b 005b       | [  |		Store_Top	Discrete,At_Offset_3
010c 00da       |    |		Load_Top	At_Offset_2
010d e402       |    |		Load	0x2,0x2
010e 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
010f e215       |    |		Load	0x1,0x15
0110 e402       |    |		Load	0x2,0x2
0111 e019       |    |		Load	0x0,0x19
0112 e214       |    |		Load	0x1,0x14
0113 0096       |    |		Execute	Package,Entry
0114 a215       |    |		Store_Unchecked	0x1,0x15
0115 00da       |    |		Load_Top	At_Offset_2
0116 a5fd       |    |		Store_Unchecked	0x2,-0x3
0117 4801       |H   |		Short_Literal	0x1
0118 a5fc       |    |		Store_Unchecked	0x2,-0x4
0119 0092 0673  |   s|		Action	Push_String_Extended,0x673					; "registration ok"
011b e00c       |    |		Load	0x0,0xc
011c 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
011d 0092 0677  |   w|		Action	Push_String_Extended,0x677					; "fin registration"
011f e00c       |    |		Load	0x0,0xc
0120 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
0121 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0122 0000 0000  |    |		.XXX[0x2]
0124 8000 0000  |    |		.LITERAL	{0x80000000, 0x00010000}
0128 8000 0000  |    |		.LITERAL	{0x80000000, 0x00020000}
012c 0000 0000  |    |		.BLANK	0000[0x4]
0130 ; --------------------------------------------------------------------------------------
0130 ; SUBPROGRAM
0130 ; --------------------------------------------------------------------------------------
0130 0151       | Q  |		.CONST	0x0151								; Address of begin
0131 0004       |    |		.CONST	0x0004								; Address of exception handler
0132 000c       |    |		.CONST	0x000c								; Number of locals
0133			INIT_0130:
0133 e016       |    |		Load	0x0,0x16
0134 e214       |    |		Load	0x1,0x14
0135 0098       |    |		Execute	Package,Field_Read_Dynamic
0136 0007       |    |		Action	Break_Optional
0137 e016       |    |		Load	0x0,0x16
0138 e216       |    |		Load	0x1,0x16
0139 0098       |    |		Execute	Package,Field_Read_Dynamic
013a 0007       |    |		Action	Break_Optional
013b e213       |    |		Load	0x1,0x13
013c 0322       | "  |		Declare_Variable	Record
013d e213       |    |		Load	0x1,0x13
013e 0322       | "  |		Declare_Variable	Record
013f e212       |    |		Load	0x1,0x12
0140 0322       | "  |		Declare_Variable	Record
0141 e212       |    |		Load	0x1,0x12
0142 0322       | "  |		Declare_Variable	Record
0143 00e1       |    |		Load_Encached	Boolean_Cache
0144 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0145 00e1       |    |		Load_Encached	Boolean_Cache
0146 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0147 00e1       |    |		Load_Encached	Boolean_Cache
0148 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0149 e009       |    |		Load	0x0,0x9
014a 0322       | "  |		Declare_Variable	Record
014b 00d8       |    |		Load_Top	At_Offset_0
014c 1c00       |    |		Execute_Immediate	Run_Utility,0x0
014d e008       |    |		Load	0x0,0x8
014e 0322       | "  |		Declare_Variable	Record
014f 00d8       |    |		Load_Top	At_Offset_0
0150 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0151			BODY_0130:
0151 0092 0678  |   x|		Action	Push_String_Extended,0x678					; "Orb UnRegistration en cours"
0153 e00c       |    |		Load	0x0,0xc
0154 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
0155 e215       |    |		Load	0x1,0x15
0156 e017       |    |		Load	0x0,0x17
0157 e214       |    |		Load	0x1,0x14
0158 0096       |    |		Execute	Package,Entry
0159 6806       |h   |		Jump_Zero	0x160
015a 0092 0679  |   y|		Action	Push_String_Extended,0x679					; "liste d'object vide"
015c e00c       |    |		Load	0x0,0xc
015d 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
015e 4800       |H   |		Short_Literal	0x0
015f 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0160 e016       |    |		Load	0x0,0x16
0161 e214       |    |		Load	0x1,0x14
0162 0098       |    |		Execute	Package,Field_Read_Dynamic
0163 e215       |    |		Load	0x1,0x15
0164 e01a       |    |		Load	0x0,0x1a
0165 e214       |    |		Load	0x1,0x14
0166 0096       |    |		Execute	Package,Entry
0167 c402       |    |		Store	0x2,0x2
0168 00cf       |    |		Action	Mark_Auxiliary
0169 e402       |    |		Load	0x2,0x2
016a e01b       |    |		Load	0x0,0x1b
016b e214       |    |		Load	0x1,0x14
016c 0096       |    |		Execute	Package,Entry
016d e407       |    |		Load	0x2,0x7
016e 017d       | }  |		Execute	Record,Structure_Write
016f e402       |    |		Load	0x2,0x2
0170 e01c       |    |		Load	0x0,0x1c
0171 e214       |    |		Load	0x1,0x14
0172 0096       |    |		Execute	Package,Entry
0173 c402       |    |		Store	0x2,0x2
0174 e407       |    |		Load	0x2,0x7
0175 e406       |    |		Load	0x2,0x6
0176 017d       | }  |		Execute	Record,Structure_Write
0177 e5ff       |    |		Load	0x2,-0x1
0178 e406       |    |		Load	0x2,0x6
0179 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
017a e406       |    |		Load	0x2,0x6
017b e407       |    |		Load	0x2,0x7
017c 017f       |    |		Execute	Record,Equal
017d 6803       |h   |		Jump_Zero	0x181
017e 4801       |H   |		Short_Literal	0x1
017f a409       |    |		Store_Unchecked	0x2,0x9
0180 7808       |x   |		Jump	0x189
0181 e402       |    |		Load	0x2,0x2
0182 e01d       |    |		Load	0x0,0x1d
0183 e214       |    |		Load	0x1,0x14
0184 0096       |    |		Execute	Package,Entry
0185 6801       |h   |		Jump_Zero	0x187
0186 7802       |x   |		Jump	0x189
0187 00c9       |    |		Action	Pop_Auxiliary_Loop
0188 7fe0       |    |		Jump	0x169
0189 00ce       |    |		Action	Pop_Auxiliary
018a 00db       |    |		Load_Top	At_Offset_3
018b 68c1       |h   |		Jump_Zero	0x24d
018c 0092 067a  |   z|		Action	Push_String_Extended,0x67a					; "object trouve, effacement en cours"
018e e00c       |    |		Load	0x0,0xc
018f 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
0190 00e1       |    |		Load_Encached	Boolean_Cache
0191 e215       |    |		Load	0x1,0x15
0192 e406       |    |		Load	0x2,0x6
0193 e01e       |    |		Load	0x0,0x1e
0194 e214       |    |		Load	0x1,0x14
0195 0096       |    |		Execute	Package,Entry
0196 c215       |    |		Store	0x1,0x15
0197 c408       |    |		Store	0x2,0x8
0198 e5ff       |    |		Load	0x2,-0x1
0199 801f       |    |		Call	0x0,0x1f
019a a408       |    |		Store_Unchecked	0x2,0x8
019b 0092 067b  |   {|		Action	Push_String_Extended,0x67b					; "unregistration ok"
019d e00c       |    |		Load	0x0,0xc
019e 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
019f 0092 067c  |   ||		Action	Push_String_Extended,0x67c					; "envoi unregistration au serveur object"
01a1 e00c       |    |		Load	0x0,0xc
01a2 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
01a3 e5ff       |    |		Load	0x2,-0x1
01a4 00e0       |    |		Load_Encached	Standard_Cache
01a5 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
01a6 e00c       |    |		Load	0x0,0xc
01a7 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
01a8 4801       |H   |		Short_Literal	0x1
01a9 e00c       |    |		Load	0x0,0xc
01aa 182d       | -  |		Execute	Package,Field_Execute,Field_Number 0x2d
01ab 4801       |H   |		Short_Literal	0x1
01ac 00da       |    |		Load_Top	At_Offset_2
01ad 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
01ae 00d9       |    |		Load_Top	At_Offset_1
01af 00d8       |    |		Load_Top	At_Offset_0
01b0 3c09       |<   |		Execute	Record,Field_Read,Field_Number 0x9
01b1 00d8       |    |		Load_Top	At_Offset_0
01b2 0335       | 5  |		Declare_Variable	Array,Duplicate
01b3 00cd       |    |		Action	Spare6_Action
01b4 4800       |H   |		Short_Literal	0x0
01b5 4801       |H   |		Short_Literal	0x1
01b6 00da       |    |		Load_Top	At_Offset_2
01b7 01d6       |    |		Execute	Vector,Field_Write
01b8 4800       |H   |		Short_Literal	0x0
01b9 4802       |H   |		Short_Literal	0x2
01ba 00da       |    |		Load_Top	At_Offset_2
01bb 01d6       |    |		Execute	Vector,Field_Write
01bc 00cd       |    |		Action	Spare6_Action
01bd 00d9       |    |		Load_Top	At_Offset_1
01be 3809       |8   |		Execute	Record,Field_Write,Field_Number 0x9
01bf 00d1       |    |		Pop_Control	Pop_Count_1
01c0 e406       |    |		Load	0x2,0x6
01c1 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
01c2 00da       |    |		Load_Top	At_Offset_2
01c3 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
01c4 e406       |    |		Load	0x2,0x6
01c5 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
01c6 00da       |    |		Load_Top	At_Offset_2
01c7 380a       |8   |		Execute	Record,Field_Write,Field_Number 0xa
01c8 00d8       |    |		Load_Top	At_Offset_0
01c9 00da       |    |		Load_Top	At_Offset_2
01ca 800a       |    |		Call	0x0,0xa
01cb 00d2       |    |		Pop_Control	Pop_Count_2
01cc 00d8       |    |		Load_Top	At_Offset_0
01cd 00da       |    |		Load_Top	At_Offset_2
01ce 800d       |    |		Call	0x0,0xd
01cf 00d2       |    |		Pop_Control	Pop_Count_2
01d0 00d8       |    |		Load_Top	At_Offset_0
01d1 00da       |    |		Load_Top	At_Offset_2
01d2 800e       |    |		Call	0x0,0xe
01d3 00d1       |    |		Pop_Control	Pop_Count_1
01d4 00d8       |    |		Load_Top	At_Offset_0
01d5 800f       |    |		Call	0x0,0xf
01d6 00d1       |    |		Pop_Control	Pop_Count_1
01d7 00d8       |    |		Load_Top	At_Offset_0
01d8 800b       |    |		Call	0x0,0xb
01d9 00d1       |    |		Pop_Control	Pop_Count_1
01da 0092 067d  |   }|		Action	Push_String_Extended,0x67d					; "destruction de tous les contract de l'object "
01dc e00c       |    |		Load	0x0,0xc
01dd 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
01de e5ff       |    |		Load	0x2,-0x1
01df 00e0       |    |		Load_Encached	Standard_Cache
01e0 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
01e1 e00c       |    |		Load	0x0,0xc
01e2 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
01e3 0092 067e  |   ~|		Action	Push_String_Extended,0x67e					; "en cours"
01e5 e00c       |    |		Load	0x0,0xc
01e6 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
01e7 00cf       |    |		Action	Mark_Auxiliary
01e8 e217       |    |		Load	0x1,0x17
01e9 e017       |    |		Load	0x0,0x17
01ea e216       |    |		Load	0x1,0x16
01eb 0096       |    |		Execute	Package,Entry
01ec 7051       |pQ  |		Jump_Nonzero	0x23e
01ed e016       |    |		Load	0x0,0x16
01ee e216       |    |		Load	0x1,0x16
01ef 0098       |    |		Execute	Package,Field_Read_Dynamic
01f0 e217       |    |		Load	0x1,0x17
01f1 e01a       |    |		Load	0x0,0x1a
01f2 e216       |    |		Load	0x1,0x16
01f3 0096       |    |		Execute	Package,Entry
01f4 c403       |    |		Store	0x2,0x3
01f5 00cf       |    |		Action	Mark_Auxiliary
01f6 e403       |    |		Load	0x2,0x3
01f7 e01b       |    |		Load	0x0,0x1b
01f8 e216       |    |		Load	0x1,0x16
01f9 0096       |    |		Execute	Package,Entry
01fa e404       |    |		Load	0x2,0x4
01fb 017d       | }  |		Execute	Record,Structure_Write
01fc e403       |    |		Load	0x2,0x3
01fd e01c       |    |		Load	0x0,0x1c
01fe e216       |    |		Load	0x1,0x16
01ff 0096       |    |		Execute	Package,Entry
0200 c403       |    |		Store	0x2,0x3
0201 e404       |    |		Load	0x2,0x4
0202 e405       |    |		Load	0x2,0x5
0203 017d       | }  |		Execute	Record,Structure_Write
0204 e5ff       |    |		Load	0x2,-0x1
0205 e405       |    |		Load	0x2,0x5
0206 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0207 e405       |    |		Load	0x2,0x5
0208 e404       |    |		Load	0x2,0x4
0209 017f       |    |		Execute	Record,Equal
020a 6803       |h   |		Jump_Zero	0x20e
020b 4801       |H   |		Short_Literal	0x1
020c a409       |    |		Store_Unchecked	0x2,0x9
020d 780a       |x   |		Jump	0x218
020e e403       |    |		Load	0x2,0x3
020f e01d       |    |		Load	0x0,0x1d
0210 e216       |    |		Load	0x1,0x16
0211 0096       |    |		Execute	Package,Entry
0212 6803       |h   |		Jump_Zero	0x216
0213 4801       |H   |		Short_Literal	0x1
0214 a40a       |    |		Store_Unchecked	0x2,0xa
0215 7802       |x   |		Jump	0x218
0216 00c9       |    |		Action	Pop_Auxiliary_Loop
0217 7fde       |    |		Jump	0x1f6
0218 00ce       |    |		Action	Pop_Auxiliary
0219 e409       |    |		Load	0x2,0x9
021a 681e       |h   |		Jump_Zero	0x239
021b 0092 067f  |    |		Action	Push_String_Extended,0x67f					; "effacement du contract "
021d e00c       |    |		Load	0x0,0xc
021e 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
021f e405       |    |		Load	0x2,0x5
0220 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0221 e00c       |    |		Load	0x0,0xc
0222 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
0223 0092 0680  |    |		Action	Push_String_Extended,0x680					; " sur l'object "
0225 e00c       |    |		Load	0x0,0xc
0226 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
0227 e405       |    |		Load	0x2,0x5
0228 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0229 00e0       |    |		Load_Encached	Standard_Cache
022a 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
022b e00c       |    |		Load	0x0,0xc
022c 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
022d 4801       |H   |		Short_Literal	0x1
022e e00c       |    |		Load	0x0,0xc
022f 182d       | -  |		Execute	Package,Field_Execute,Field_Number 0x2d
0230 00e1       |    |		Load_Encached	Boolean_Cache
0231 e217       |    |		Load	0x1,0x17
0232 e405       |    |		Load	0x2,0x5
0233 e01e       |    |		Load	0x0,0x1e
0234 e216       |    |		Load	0x1,0x16
0235 0096       |    |		Execute	Package,Entry
0236 c217       |    |		Store	0x1,0x17
0237 c408       |    |		Store	0x2,0x8
0238 7800       |x   |		Jump	0x239
0239 00db       |    |		Load_Top	At_Offset_3
023a 6801       |h   |		Jump_Zero	0x23c
023b 7802       |x   |		Jump	0x23e
023c 00c9       |    |		Action	Pop_Auxiliary_Loop
023d 7faa       |    |		Jump	0x1e8
023e 00ce       |    |		Action	Pop_Auxiliary
023f 0092 0681  |    |		Action	Push_String_Extended,0x681					; "fin d'effacement des contract de l'object "
0241 e00c       |    |		Load	0x0,0xc
0242 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
0243 e5ff       |    |		Load	0x2,-0x1
0244 00e0       |    |		Load_Encached	Standard_Cache
0245 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0246 e00c       |    |		Load	0x0,0xc
0247 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
0248 4801       |H   |		Short_Literal	0x1
0249 e00c       |    |		Load	0x0,0xc
024a 182d       | -  |		Execute	Package,Field_Execute,Field_Number 0x2d
024b 4801       |H   |		Short_Literal	0x1
024c 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
024d 4800       |H   |		Short_Literal	0x0
024e 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
024f 0000       |    |		.XXX[0x1]
0250 ; --------------------------------------------------------------------------------------
0250 ; SUBPROGRAM
0250 ; --------------------------------------------------------------------------------------
0250 0263       | c  |		.CONST	0x0263								; Address of begin
0251 0004       |    |		.CONST	0x0004								; Address of exception handler
0252 0003       |    |		.CONST	0x0003								; Number of locals
0253			INIT_0250:
0253 e213       |    |		Load	0x1,0x13
0254 0322       | "  |		Declare_Variable	Record
0255 4801       |H   |		Short_Literal	0x1
0256 4804       |H   |		Short_Literal	0x4
0257 e5ff       |    |		Load	0x2,-0x1
0258 01cf       |    |		Execute	Vector,Slice_Read
0259 e213       |    |		Load	0x1,0x13
025a 3000       |0   |		Execute	Record,Field_Type,Field_Number 0x0
025b 0119       |    |		Execute	Any,Check_In_Formal_Type
025c 00d9       |    |		Load_Top	At_Offset_1
025d 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
025e e5fe       |    |		Load	0x2,-0x2
025f 00d9       |    |		Load_Top	At_Offset_1
0260 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0261 029f 03e3  |    |		Declare_Subprogram	INIT_03e0,For_Call
0263			BODY_0250:
0263 0092 0682  |    |		Action	Push_String_Extended,0x682					; "Orb publication du contract "
0265 e00c       |    |		Load	0x0,0xc
0266 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
0267 4801       |H   |		Short_Literal	0x1
0268 4804       |H   |		Short_Literal	0x4
0269 e5ff       |    |		Load	0x2,-0x1
026a 01cf       |    |		Execute	Vector,Slice_Read
026b e00c       |    |		Load	0x0,0xc
026c 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
026d 0092 0683  |    |		Action	Push_String_Extended,0x683					; "  de l'object"
026f e00c       |    |		Load	0x0,0xc
0270 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
0271 e5fe       |    |		Load	0x2,-0x2
0272 00e0       |    |		Load_Encached	Standard_Cache
0273 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0274 e00c       |    |		Load	0x0,0xc
0275 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
0276 0092 067e  |   ~|		Action	Push_String_Extended,0x67e					; "en cours"
0278 e00c       |    |		Load	0x0,0xc
0279 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
027a e5fe       |    |		Load	0x2,-0x2
027b 8403       |    |		Call	0x2,0x3
027c 7002       |p   |		Jump_Nonzero	0x27f
027d 4800       |H   |		Short_Literal	0x0
027e 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
027f e217       |    |		Load	0x1,0x17
0280 e017       |    |		Load	0x0,0x17
0281 e216       |    |		Load	0x1,0x16
0282 0096       |    |		Execute	Package,Entry
0283 6808       |h   |		Jump_Zero	0x28c
0284 e217       |    |		Load	0x1,0x17
0285 00da       |    |		Load_Top	At_Offset_2
0286 e019       |    |		Load	0x0,0x19
0287 e216       |    |		Load	0x1,0x16
0288 0096       |    |		Execute	Package,Entry
0289 a217       |    |		Store_Unchecked	0x1,0x17
028a 4801       |H   |		Short_Literal	0x1
028b 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
028c 00d9       |    |		Load_Top	At_Offset_1
028d e217       |    |		Load	0x1,0x17
028e e020       |    |		Load	0x0,0x20
028f e216       |    |		Load	0x1,0x16
0290 0096       |    |		Execute	Package,Entry
0291 6816       |h   |		Jump_Zero	0x2a8
0292 0092 0684  |    |		Action	Push_String_Extended,0x684					; "le contract "
0294 e00c       |    |		Load	0x0,0xc
0295 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
0296 e5ff       |    |		Load	0x2,-0x1
0297 e00c       |    |		Load	0x0,0xc
0298 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
0299 0092 0685  |    |		Action	Push_String_Extended,0x685					; "  sur l'object"
029b e00c       |    |		Load	0x0,0xc
029c 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
029d e5fe       |    |		Load	0x2,-0x2
029e 00e0       |    |		Load_Encached	Standard_Cache
029f 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
02a0 e00c       |    |		Load	0x0,0xc
02a1 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
02a2 0092 0686  |    |		Action	Push_String_Extended,0x686					; "existe deja"
02a4 e00c       |    |		Load	0x0,0xc
02a5 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
02a6 4800       |H   |		Short_Literal	0x0
02a7 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
02a8 e217       |    |		Load	0x1,0x17
02a9 00da       |    |		Load_Top	At_Offset_2
02aa e019       |    |		Load	0x0,0x19
02ab e216       |    |		Load	0x1,0x16
02ac 0096       |    |		Execute	Package,Entry
02ad a217       |    |		Store_Unchecked	0x1,0x17
02ae 0092 0687  |    |		Action	Push_String_Extended,0x687					; "publication ok"
02b0 e00c       |    |		Load	0x0,0xc
02b1 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
02b2 4801       |H   |		Short_Literal	0x1
02b3 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
02b4 0000 0000  |    |		.BLANK	0000[0x4]
02b8 ; --------------------------------------------------------------------------------------
02b8 ; SUBPROGRAM
02b8 ; --------------------------------------------------------------------------------------
02b8 02e7       |    |		.CONST	0x02e7								; Address of begin
02b9 0004       |    |		.CONST	0x0004								; Address of exception handler
02ba 000d       |    |		.CONST	0x000d								; Number of locals
02bb			INIT_02b8:
02bb e016       |    |		Load	0x0,0x16
02bc e216       |    |		Load	0x1,0x16
02bd 0098       |    |		Execute	Package,Field_Read_Dynamic
02be 0007       |    |		Action	Break_Optional
02bf e213       |    |		Load	0x1,0x13
02c0 0322       | "  |		Declare_Variable	Record
02c1 4801       |H   |		Short_Literal	0x1
02c2 4804       |H   |		Short_Literal	0x4
02c3 e5ff       |    |		Load	0x2,-0x1
02c4 01cf       |    |		Execute	Vector,Slice_Read
02c5 e213       |    |		Load	0x1,0x13
02c6 3000       |0   |		Execute	Record,Field_Type,Field_Number 0x0
02c7 0119       |    |		Execute	Any,Check_In_Formal_Type
02c8 00d9       |    |		Load_Top	At_Offset_1
02c9 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
02ca e5fe       |    |		Load	0x2,-0x2
02cb 00d9       |    |		Load_Top	At_Offset_1
02cc 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
02cd 00e3       |    |		Load_Encached	Natural_Cache
02ce 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
02cf e213       |    |		Load	0x1,0x13
02d0 0322       | "  |		Declare_Variable	Record
02d1 00e1       |    |		Load_Encached	Boolean_Cache
02d2 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
02d3 00e1       |    |		Load_Encached	Boolean_Cache
02d4 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
02d5 00e1       |    |		Load_Encached	Boolean_Cache
02d6 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
02d7 e008       |    |		Load	0x0,0x8
02d8 0322       | "  |		Declare_Variable	Record
02d9 00d8       |    |		Load_Top	At_Offset_0
02da 1c00       |    |		Execute_Immediate	Run_Utility,0x0
02db e009       |    |		Load	0x0,0x9
02dc 0322       | "  |		Declare_Variable	Record
02dd 00d8       |    |		Load_Top	At_Offset_0
02de 1c00       |    |		Execute_Immediate	Run_Utility,0x0
02df e212       |    |		Load	0x1,0x12
02e0 0322       | "  |		Declare_Variable	Record
02e1 e212       |    |		Load	0x1,0x12
02e2 0322       | "  |		Declare_Variable	Record
02e3 e016       |    |		Load	0x0,0x16
02e4 e214       |    |		Load	0x1,0x14
02e5 0098       |    |		Execute	Package,Field_Read_Dynamic
02e6 0007       |    |		Action	Break_Optional
02e7			BODY_02b8:
02e7 0092 0688  |    |		Action	Push_String_Extended,0x688					; "Orb unpublication du contract "
02e9 e00c       |    |		Load	0x0,0xc
02ea 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
02eb e5ff       |    |		Load	0x2,-0x1
02ec e00c       |    |		Load	0x0,0xc
02ed 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
02ee 0092 0689  |    |		Action	Push_String_Extended,0x689					; " en cours"
02f0 e00c       |    |		Load	0x0,0xc
02f1 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
02f2 e217       |    |		Load	0x1,0x17
02f3 e017       |    |		Load	0x0,0x17
02f4 e216       |    |		Load	0x1,0x16
02f5 0096       |    |		Execute	Package,Entry
02f6 6806       |h   |		Jump_Zero	0x2fd
02f7 0092 068a  |    |		Action	Push_String_Extended,0x68a					; "liste de contract vide"
02f9 e00c       |    |		Load	0x0,0xc
02fa 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
02fb 4800       |H   |		Short_Literal	0x0
02fc 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
02fd e403       |    |		Load	0x2,0x3
02fe e405       |    |		Load	0x2,0x5
02ff 017d       | }  |		Execute	Record,Structure_Write
0300 e404       |    |		Load	0x2,0x4
0301 e405       |    |		Load	0x2,0x5
0302 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0303 e403       |    |		Load	0x2,0x3
0304 e405       |    |		Load	0x2,0x5
0305 017f       |    |		Execute	Record,Equal
0306 684a       |hJ  |		Jump_Zero	0x351
0307 00cf       |    |		Action	Mark_Auxiliary
0308 e016       |    |		Load	0x0,0x16
0309 e216       |    |		Load	0x1,0x16
030a 0098       |    |		Execute	Package,Field_Read_Dynamic
030b e217       |    |		Load	0x1,0x17
030c e01a       |    |		Load	0x0,0x1a
030d e216       |    |		Load	0x1,0x16
030e 0096       |    |		Execute	Package,Entry
030f c402       |    |		Store	0x2,0x2
0310 00cf       |    |		Action	Mark_Auxiliary
0311 e402       |    |		Load	0x2,0x2
0312 e01b       |    |		Load	0x0,0x1b
0313 e216       |    |		Load	0x1,0x16
0314 0096       |    |		Execute	Package,Entry
0315 e405       |    |		Load	0x2,0x5
0316 017d       | }  |		Execute	Record,Structure_Write
0317 e402       |    |		Load	0x2,0x2
0318 e01c       |    |		Load	0x0,0x1c
0319 e216       |    |		Load	0x1,0x16
031a 0096       |    |		Execute	Package,Entry
031b c402       |    |		Store	0x2,0x2
031c e405       |    |		Load	0x2,0x5
031d 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
031e e403       |    |		Load	0x2,0x3
031f 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0320 e403       |    |		Load	0x2,0x3
0321 e405       |    |		Load	0x2,0x5
0322 017f       |    |		Execute	Record,Equal
0323 6803       |h   |		Jump_Zero	0x327
0324 4801       |H   |		Short_Literal	0x1
0325 a407       |    |		Store_Unchecked	0x2,0x7
0326 780a       |x   |		Jump	0x331
0327 e402       |    |		Load	0x2,0x2
0328 e01d       |    |		Load	0x0,0x1d
0329 e216       |    |		Load	0x1,0x16
032a 0096       |    |		Execute	Package,Entry
032b 6803       |h   |		Jump_Zero	0x32f
032c 4801       |H   |		Short_Literal	0x1
032d a408       |    |		Store_Unchecked	0x2,0x8
032e 7802       |x   |		Jump	0x331
032f 00c9       |    |		Action	Pop_Auxiliary_Loop
0330 7fe0       |    |		Jump	0x311
0331 00ce       |    |		Action	Pop_Auxiliary
0332 e407       |    |		Load	0x2,0x7
0333 680a       |h   |		Jump_Zero	0x33e
0334 4801       |H   |		Short_Literal	0x1
0335 a406       |    |		Store_Unchecked	0x2,0x6
0336 00e1       |    |		Load_Encached	Boolean_Cache
0337 e217       |    |		Load	0x1,0x17
0338 e403       |    |		Load	0x2,0x3
0339 e01e       |    |		Load	0x0,0x1e
033a e216       |    |		Load	0x1,0x16
033b 0096       |    |		Execute	Package,Entry
033c c217       |    |		Store	0x1,0x17
033d c406       |    |		Store	0x2,0x6
033e e408       |    |		Load	0x2,0x8
033f 6801       |h   |		Jump_Zero	0x341
0340 7802       |x   |		Jump	0x343
0341 00c9       |    |		Action	Pop_Auxiliary_Loop
0342 7fc5       |    |		Jump	0x308
0343 00ce       |    |		Action	Pop_Auxiliary
0344 e406       |    |		Load	0x2,0x6
0345 6805       |h   |		Jump_Zero	0x34b
0346 0092 068b  |    |		Action	Push_String_Extended,0x68b					; "unpublication ok"
0348 e00c       |    |		Load	0x0,0xc
0349 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
034a 7804       |x   |		Jump	0x34f
034b 0092 068c  |    |		Action	Push_String_Extended,0x68c					; "contract non trouve"
034d e00c       |    |		Load	0x0,0xc
034e 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
034f e406       |    |		Load	0x2,0x6
0350 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0351 e403       |    |		Load	0x2,0x3
0352 e217       |    |		Load	0x1,0x17
0353 e020       |    |		Load	0x0,0x20
0354 e216       |    |		Load	0x1,0x16
0355 0096       |    |		Execute	Package,Entry
0356 7006       |p   |		Jump_Nonzero	0x35d
0357 0092 068c  |    |		Action	Push_String_Extended,0x68c					; "contract non trouve"
0359 e00c       |    |		Load	0x0,0xc
035a 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
035b 4800       |H   |		Short_Literal	0x0
035c 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
035d 00e1       |    |		Load_Encached	Boolean_Cache
035e e217       |    |		Load	0x1,0x17
035f e403       |    |		Load	0x2,0x3
0360 e01e       |    |		Load	0x0,0x1e
0361 e216       |    |		Load	0x1,0x16
0362 0096       |    |		Execute	Package,Entry
0363 c217       |    |		Store	0x1,0x17
0364 c406       |    |		Store	0x2,0x6
0365 0092 068b  |    |		Action	Push_String_Extended,0x68b					; "unpublication ok"
0367 e00c       |    |		Load	0x0,0xc
0368 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
0369 e406       |    |		Load	0x2,0x6
036a 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
036b 0000 0000  |    |		.BLANK	0000[0x5]
0370 ; --------------------------------------------------------------------------------------
0370 ; SUBPROGRAM
0370 ; --------------------------------------------------------------------------------------
0370 03ae       |    |		.CONST	0x03ae								; Address of begin
0371 0004       |    |		.CONST	0x0004								; Address of exception handler
0372 000c       |    |		.CONST	0x000c								; Number of locals
0373			INIT_0370:
0373 e009       |    |		Load	0x0,0x9
0374 0322       | "  |		Declare_Variable	Record
0375 00d8       |    |		Load_Top	At_Offset_0
0376 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0377 4801       |H   |		Short_Literal	0x1
0378 4804       |H   |		Short_Literal	0x4
0379 00e9       |    |		Load_Encached	String_Cache
037a 035b       | [  |		Declare_Type	Array,Constrained
037b 0337       | 7  |		Declare_Variable	Array
037c 4801       |H   |		Short_Literal	0x1
037d 4804       |H   |		Short_Literal	0x4
037e e5ff       |    |		Load	0x2,-0x1
037f 3c06       |<   |		Execute	Record,Field_Read,Field_Number 0x6
0380 e010       |    |		Load	0x0,0x10
0381 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0382 01cf       |    |		Execute	Vector,Slice_Read
0383 00d9       |    |		Load_Top	At_Offset_1
0384 01d4       |    |		Execute	Vector,Structure_Write
0385 e213       |    |		Load	0x1,0x13
0386 0322       | "  |		Declare_Variable	Record
0387 00d9       |    |		Load_Top	At_Offset_1
0388 e213       |    |		Load	0x1,0x13
0389 3000       |0   |		Execute	Record,Field_Type,Field_Number 0x0
038a 0119       |    |		Execute	Any,Check_In_Formal_Type
038b 00d9       |    |		Load_Top	At_Offset_1
038c 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
038d e5ff       |    |		Load	0x2,-0x1
038e 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
038f 00d9       |    |		Load_Top	At_Offset_1
0390 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0391 e5ff       |    |		Load	0x2,-0x1
0392 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
0393 00e3       |    |		Load_Encached	Natural_Cache
0394 03f1       |    |		Declare_Variable	Discrete,With_Value
0395 e213       |    |		Load	0x1,0x13
0396 0322       | "  |		Declare_Variable	Record
0397 00db       |    |		Load_Top	At_Offset_3
0398 e213       |    |		Load	0x1,0x13
0399 3000       |0   |		Execute	Record,Field_Type,Field_Number 0x0
039a 0119       |    |		Execute	Any,Check_In_Formal_Type
039b 00d9       |    |		Load_Top	At_Offset_1
039c 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
039d 4800       |H   |		Short_Literal	0x0
039e 00d9       |    |		Load_Top	At_Offset_1
039f 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
03a0 e010       |    |		Load	0x0,0x10
03a1 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
03a2 e213       |    |		Load	0x1,0x13
03a3 0322       | "  |		Declare_Variable	Record
03a4 e016       |    |		Load	0x0,0x16
03a5 e216       |    |		Load	0x1,0x16
03a6 0098       |    |		Execute	Package,Field_Read_Dynamic
03a7 0007       |    |		Action	Break_Optional
03a8 00e1       |    |		Load_Encached	Boolean_Cache
03a9 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
03aa 029f 042b  |   +|		Declare_Subprogram	INIT_0428,For_Call
03ac 029f 04a3  |    |		Declare_Subprogram	INIT_04a0,For_Call
03ae			BODY_0370:
03ae e217       |    |		Load	0x1,0x17
03af e017       |    |		Load	0x0,0x17
03b0 e216       |    |		Load	0x1,0x16
03b1 0096       |    |		Execute	Package,Entry
03b2 6803       |h   |		Jump_Zero	0x3b6
03b3 4800       |H   |		Short_Literal	0x0
03b4 a5fd       |    |		Store_Unchecked	0x2,-0x3
03b5 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
03b6 0092 068d  |    |		Action	Push_String_Extended,0x68d					; "recherche du contract ... "
03b8 e00c       |    |		Load	0x0,0xc
03b9 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
03ba 00e1       |    |		Load_Encached	Boolean_Cache
03bb e404       |    |		Load	0x2,0x4
03bc 00d8       |    |		Load_Top	At_Offset_0
03bd 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
03be e5ff       |    |		Load	0x2,-0x1
03bf 3c06       |<   |		Execute	Record,Field_Read,Field_Number 0x6
03c0 e010       |    |		Load	0x0,0x10
03c1 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
03c2 840b       |    |		Call	0x2,0xb
03c3 00d1       |    |		Pop_Control	Pop_Count_1
03c4 005b       | [  |		Store_Top	Discrete,At_Offset_3
03c5 00da       |    |		Load_Top	At_Offset_2
03c6 7007       |p   |		Jump_Nonzero	0x3ce
03c7 0092 068e  |    |		Action	Push_String_Extended,0x68e					; "non trouve"
03c9 e00c       |    |		Load	0x0,0xc
03ca 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
03cb 4800       |H   |		Short_Literal	0x0
03cc a5fd       |    |		Store_Unchecked	0x2,-0x3
03cd 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
03ce 0092 068f  |    |		Action	Push_String_Extended,0x68f					; "trouve ok"
03d0 e00c       |    |		Load	0x0,0xc
03d1 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
03d2 e010       |    |		Load	0x0,0x10
03d3 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
03d4 e404       |    |		Load	0x2,0x4
03d5 840c       |    |		Call	0x2,0xc
03d6 c407       |    |		Store	0x2,0x7
03d7 e407       |    |		Load	0x2,0x7
03d8 e5fe       |    |		Load	0x2,-0x2
03d9 3806       |8   |		Execute	Record,Field_Write,Field_Number 0x6
03da 4801       |H   |		Short_Literal	0x1
03db a5fd       |    |		Store_Unchecked	0x2,-0x3
03dc 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
03dd 0000 0000  |    |		.XXX[0x3]
03df 0000       |    |
03e0 ; --------------------------------------------------------------------------------------
03e0 ; SUBPROGRAM
03e0 ; --------------------------------------------------------------------------------------
03e0 03ed       |    |		.CONST	0x03ed								; Address of begin
03e1 0004       |    |		.CONST	0x0004								; Address of exception handler
03e2 0005       |    |		.CONST	0x0005								; Number of locals
03e3			INIT_03e0:
03e3 e016       |    |		Load	0x0,0x16
03e4 e214       |    |		Load	0x1,0x14
03e5 0098       |    |		Execute	Package,Field_Read_Dynamic
03e6 0007       |    |		Action	Break_Optional
03e7 e212       |    |		Load	0x1,0x12
03e8 0322       | "  |		Declare_Variable	Record
03e9 e212       |    |		Load	0x1,0x12
03ea 0322       | "  |		Declare_Variable	Record
03eb 00e1       |    |		Load_Encached	Boolean_Cache
03ec 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
03ed			BODY_03e0:
03ed e215       |    |		Load	0x1,0x15
03ee e017       |    |		Load	0x0,0x17
03ef e214       |    |		Load	0x1,0x14
03f0 0096       |    |		Execute	Package,Entry
03f1 6806       |h   |		Jump_Zero	0x3f8
03f2 0092 0679  |   y|		Action	Push_String_Extended,0x679					; "liste d'object vide"
03f4 e00c       |    |		Load	0x0,0xc
03f5 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
03f6 4800       |H   |		Short_Literal	0x0
03f7 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
03f8 e016       |    |		Load	0x0,0x16
03f9 e214       |    |		Load	0x1,0x14
03fa 0098       |    |		Execute	Package,Field_Read_Dynamic
03fb e215       |    |		Load	0x1,0x15
03fc e01a       |    |		Load	0x0,0x1a
03fd e214       |    |		Load	0x1,0x14
03fe 0096       |    |		Execute	Package,Entry
03ff c602       |    |		Store	0x3,0x2
0400 00cf       |    |		Action	Mark_Auxiliary
0401 e602       |    |		Load	0x3,0x2
0402 e01b       |    |		Load	0x0,0x1b
0403 e214       |    |		Load	0x1,0x14
0404 0096       |    |		Execute	Package,Entry
0405 00db       |    |		Load_Top	At_Offset_3
0406 017d       | }  |		Execute	Record,Structure_Write
0407 e602       |    |		Load	0x3,0x2
0408 e01c       |    |		Load	0x0,0x1c
0409 e214       |    |		Load	0x1,0x14
040a 0096       |    |		Execute	Package,Entry
040b c602       |    |		Store	0x3,0x2
040c 00da       |    |		Load_Top	At_Offset_2
040d e603       |    |		Load	0x3,0x3
040e 017d       | }  |		Execute	Record,Structure_Write
040f e7ff       |    |		Load	0x3,-0x1
0410 e603       |    |		Load	0x3,0x3
0411 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0412 00db       |    |		Load_Top	At_Offset_3
0413 00db       |    |		Load_Top	At_Offset_3
0414 017f       |    |		Execute	Record,Equal
0415 6803       |h   |		Jump_Zero	0x419
0416 4801       |H   |		Short_Literal	0x1
0417 0052       | R  |		Store_Top_Unchecked	Discrete,At_Offset_2
0418 7808       |x   |		Jump	0x421
0419 e602       |    |		Load	0x3,0x2
041a e01d       |    |		Load	0x0,0x1d
041b e214       |    |		Load	0x1,0x14
041c 0096       |    |		Execute	Package,Entry
041d 6801       |h   |		Jump_Zero	0x41f
041e 7802       |x   |		Jump	0x421
041f 00c9       |    |		Action	Pop_Auxiliary_Loop
0420 7fe0       |    |		Jump	0x401
0421 00ce       |    |		Action	Pop_Auxiliary
0422 00d8       |    |		Load_Top	At_Offset_0
0423 6802       |h   |		Jump_Zero	0x426
0424 4801       |H   |		Short_Literal	0x1
0425 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0426 4800       |H   |		Short_Literal	0x0
0427 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0428 ; --------------------------------------------------------------------------------------
0428 ; SUBPROGRAM
0428 ; --------------------------------------------------------------------------------------
0428 043c       | <  |		.CONST	0x043c								; Address of begin
0429 0004       |    |		.CONST	0x0004								; Address of exception handler
042a 0007       |    |		.CONST	0x0007								; Number of locals
042b			INIT_0428:
042b 4801       |H   |		Short_Literal	0x1
042c 4804       |H   |		Short_Literal	0x4
042d 00e9       |    |		Load_Encached	String_Cache
042e 035b       | [  |		Declare_Type	Array,Constrained
042f 0337       | 7  |		Declare_Variable	Array
0430 e016       |    |		Load	0x0,0x16
0431 e216       |    |		Load	0x1,0x16
0432 0098       |    |		Execute	Package,Field_Read_Dynamic
0433 0007       |    |		Action	Break_Optional
0434 e213       |    |		Load	0x1,0x13
0435 0322       | "  |		Declare_Variable	Record
0436 e213       |    |		Load	0x1,0x13
0437 0322       | "  |		Declare_Variable	Record
0438 e213       |    |		Load	0x1,0x13
0439 0322       | "  |		Declare_Variable	Record
043a 00e1       |    |		Load_Encached	Boolean_Cache
043b 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
043c			BODY_0428:
043c 4801       |H   |		Short_Literal	0x1
043d 4804       |H   |		Short_Literal	0x4
043e e7ff       |    |		Load	0x3,-0x1
043f 01cf       |    |		Execute	Vector,Slice_Read
0440 e602       |    |		Load	0x3,0x2
0441 01d4       |    |		Execute	Vector,Structure_Write
0442 e213       |    |		Load	0x1,0x13
0443 0322       | "  |		Declare_Variable	Record
0444 e602       |    |		Load	0x3,0x2
0445 e213       |    |		Load	0x1,0x13
0446 3000       |0   |		Execute	Record,Field_Type,Field_Number 0x0
0447 0119       |    |		Execute	Any,Check_In_Formal_Type
0448 00d9       |    |		Load_Top	At_Offset_1
0449 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
044a e7fe       |    |		Load	0x3,-0x2
044b 00d9       |    |		Load_Top	At_Offset_1
044c 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
044d e604       |    |		Load	0x3,0x4
044e 017d       | }  |		Execute	Record,Structure_Write
044f 00db       |    |		Load_Top	At_Offset_3
0450 00da       |    |		Load_Top	At_Offset_2
0451 017d       | }  |		Execute	Record,Structure_Write
0452 4800       |H   |		Short_Literal	0x0
0453 00da       |    |		Load_Top	At_Offset_2
0454 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0455 00db       |    |		Load_Top	At_Offset_3
0456 00da       |    |		Load_Top	At_Offset_2
0457 017f       |    |		Execute	Record,Equal
0458 700e       |p   |		Jump_Nonzero	0x467
0459 0092 0690  |    |		Action	Push_String_Extended,0x690					; "id connu"
045b e00c       |    |		Load	0x0,0xc
045c 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
045d 00db       |    |		Load_Top	At_Offset_3
045e e217       |    |		Load	0x1,0x17
045f e020       |    |		Load	0x0,0x20
0460 e216       |    |		Load	0x1,0x16
0461 0096       |    |		Execute	Package,Entry
0462 a7fc       |    |		Store_Unchecked	0x3,-0x4
0463 00db       |    |		Load_Top	At_Offset_3
0464 e7fd       |    |		Load	0x3,-0x3
0465 017d       | }  |		Execute	Record,Structure_Write
0466 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0467 0092 0691  |    |		Action	Push_String_Extended,0x691					; "id inconnu"
0469 e00c       |    |		Load	0x0,0xc
046a 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
046b e016       |    |		Load	0x0,0x16
046c e216       |    |		Load	0x1,0x16
046d 0098       |    |		Execute	Package,Field_Read_Dynamic
046e e217       |    |		Load	0x1,0x17
046f e01a       |    |		Load	0x0,0x1a
0470 e216       |    |		Load	0x1,0x16
0471 0096       |    |		Execute	Package,Entry
0472 c603       |    |		Store	0x3,0x3
0473 00cf       |    |		Action	Mark_Auxiliary
0474 e603       |    |		Load	0x3,0x3
0475 e01b       |    |		Load	0x0,0x1b
0476 e216       |    |		Load	0x1,0x16
0477 0096       |    |		Execute	Package,Entry
0478 e605       |    |		Load	0x3,0x5
0479 017d       | }  |		Execute	Record,Structure_Write
047a e603       |    |		Load	0x3,0x3
047b e01c       |    |		Load	0x0,0x1c
047c e216       |    |		Load	0x1,0x16
047d 0096       |    |		Execute	Package,Entry
047e c603       |    |		Store	0x3,0x3
047f 00db       |    |		Load_Top	At_Offset_3
0480 e604       |    |		Load	0x3,0x4
0481 017d       | }  |		Execute	Record,Structure_Write
0482 e602       |    |		Load	0x3,0x2
0483 e604       |    |		Load	0x3,0x4
0484 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0485 e604       |    |		Load	0x3,0x4
0486 e605       |    |		Load	0x3,0x5
0487 017f       |    |		Execute	Record,Equal
0488 6803       |h   |		Jump_Zero	0x48c
0489 4801       |H   |		Short_Literal	0x1
048a 0052       | R  |		Store_Top_Unchecked	Discrete,At_Offset_2
048b 7808       |x   |		Jump	0x494
048c e603       |    |		Load	0x3,0x3
048d e01d       |    |		Load	0x0,0x1d
048e e216       |    |		Load	0x1,0x16
048f 0096       |    |		Execute	Package,Entry
0490 6801       |h   |		Jump_Zero	0x492
0491 7802       |x   |		Jump	0x494
0492 00c9       |    |		Action	Pop_Auxiliary_Loop
0493 7fe0       |    |		Jump	0x474
0494 00ce       |    |		Action	Pop_Auxiliary
0495 00db       |    |		Load_Top	At_Offset_3
0496 e7fd       |    |		Load	0x3,-0x3
0497 017d       | }  |		Execute	Record,Structure_Write
0498 00d8       |    |		Load_Top	At_Offset_0
0499 6803       |h   |		Jump_Zero	0x49d
049a 4801       |H   |		Short_Literal	0x1
049b a7fc       |    |		Store_Unchecked	0x3,-0x4
049c 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
049d 4800       |H   |		Short_Literal	0x0
049e a7fc       |    |		Store_Unchecked	0x3,-0x4
049f 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
04a0 ; --------------------------------------------------------------------------------------
04a0 ; SUBPROGRAM
04a0 ; --------------------------------------------------------------------------------------
04a0 04bd       |    |		.CONST	0x04bd								; Address of begin
04a1 0004       |    |		.CONST	0x0004								; Address of exception handler
04a2 0009       |    |		.CONST	0x0009								; Number of locals
04a3			INIT_04a0:
04a3 e009       |    |		Load	0x0,0x9
04a4 0322       | "  |		Declare_Variable	Record
04a5 00d8       |    |		Load_Top	At_Offset_0
04a6 1c00       |    |		Execute_Immediate	Run_Utility,0x0
04a7 e009       |    |		Load	0x0,0x9
04a8 0322       | "  |		Declare_Variable	Record
04a9 00d8       |    |		Load_Top	At_Offset_0
04aa 1c00       |    |		Execute_Immediate	Run_Utility,0x0
04ab e008       |    |		Load	0x0,0x8
04ac 0322       | "  |		Declare_Variable	Record
04ad 00d8       |    |		Load_Top	At_Offset_0
04ae 1c00       |    |		Execute_Immediate	Run_Utility,0x0
04af e016       |    |		Load	0x0,0x16
04b0 e214       |    |		Load	0x1,0x14
04b1 0098       |    |		Execute	Package,Field_Read_Dynamic
04b2 0007       |    |		Action	Break_Optional
04b3 e212       |    |		Load	0x1,0x12
04b4 0322       | "  |		Declare_Variable	Record
04b5 e212       |    |		Load	0x1,0x12
04b6 0322       | "  |		Declare_Variable	Record
04b7 00e1       |    |		Load_Encached	Boolean_Cache
04b8 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
04b9 e008       |    |		Load	0x0,0x8
04ba 0322       | "  |		Declare_Variable	Record
04bb 00d8       |    |		Load_Top	At_Offset_0
04bc 1c00       |    |		Execute_Immediate	Run_Utility,0x0
04bd			BODY_04a0:
04bd e016       |    |		Load	0x0,0x16
04be e214       |    |		Load	0x1,0x14
04bf 0098       |    |		Execute	Package,Field_Read_Dynamic
04c0 e215       |    |		Load	0x1,0x15
04c1 e01a       |    |		Load	0x0,0x1a
04c2 e214       |    |		Load	0x1,0x14
04c3 0096       |    |		Execute	Package,Entry
04c4 c605       |    |		Store	0x3,0x5
04c5 00cf       |    |		Action	Mark_Auxiliary
04c6 e605       |    |		Load	0x3,0x5
04c7 e01b       |    |		Load	0x0,0x1b
04c8 e214       |    |		Load	0x1,0x14
04c9 0096       |    |		Execute	Package,Entry
04ca e606       |    |		Load	0x3,0x6
04cb 017d       | }  |		Execute	Record,Structure_Write
04cc e605       |    |		Load	0x3,0x5
04cd e01c       |    |		Load	0x0,0x1c
04ce e214       |    |		Load	0x1,0x14
04cf 0096       |    |		Execute	Package,Entry
04d0 c605       |    |		Store	0x3,0x5
04d1 e606       |    |		Load	0x3,0x6
04d2 e607       |    |		Load	0x3,0x7
04d3 017d       | }  |		Execute	Record,Structure_Write
04d4 e7ff       |    |		Load	0x3,-0x1
04d5 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
04d6 e607       |    |		Load	0x3,0x7
04d7 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
04d8 00db       |    |		Load_Top	At_Offset_3
04d9 e606       |    |		Load	0x3,0x6
04da 017f       |    |		Execute	Record,Equal
04db 6803       |h   |		Jump_Zero	0x4df
04dc 4801       |H   |		Short_Literal	0x1
04dd 0053       | S  |		Store_Top_Uncheched	Discrete,At_Offset_3
04de 7808       |x   |		Jump	0x4e7
04df e605       |    |		Load	0x3,0x5
04e0 e01d       |    |		Load	0x0,0x1d
04e1 e214       |    |		Load	0x1,0x14
04e2 0096       |    |		Execute	Package,Entry
04e3 6801       |h   |		Jump_Zero	0x4e5
04e4 7802       |x   |		Jump	0x4e7
04e5 00c9       |    |		Action	Pop_Auxiliary_Loop
04e6 7fdf       |    |		Jump	0x4c6
04e7 00ce       |    |		Action	Pop_Auxiliary
04e8 4803       |H   |		Short_Literal	0x3
04e9 e602       |    |		Load	0x3,0x2
04ea 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
04eb 00da       |    |		Load_Top	At_Offset_2
04ec 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
04ed e602       |    |		Load	0x3,0x2
04ee 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
04ef 00da       |    |		Load_Top	At_Offset_2
04f0 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
04f1 e602       |    |		Load	0x3,0x2
04f2 380a       |8   |		Execute	Record,Field_Write,Field_Number 0xa
04f3 e7ff       |    |		Load	0x3,-0x1
04f4 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
04f5 e010       |    |		Load	0x0,0x10
04f6 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
04f7 e602       |    |		Load	0x3,0x2
04f8 3806       |8   |		Execute	Record,Field_Write,Field_Number 0x6
04f9 e602       |    |		Load	0x3,0x2
04fa 00d8       |    |		Load_Top	At_Offset_0
04fb 3c09       |<   |		Execute	Record,Field_Read,Field_Number 0x9
04fc 00d8       |    |		Load_Top	At_Offset_0
04fd 0335       | 5  |		Declare_Variable	Array,Duplicate
04fe 00cd       |    |		Action	Spare6_Action
04ff 4800       |H   |		Short_Literal	0x0
0500 4801       |H   |		Short_Literal	0x1
0501 00da       |    |		Load_Top	At_Offset_2
0502 01d6       |    |		Execute	Vector,Field_Write
0503 4800       |H   |		Short_Literal	0x0
0504 4802       |H   |		Short_Literal	0x2
0505 00da       |    |		Load_Top	At_Offset_2
0506 01d6       |    |		Execute	Vector,Field_Write
0507 00cd       |    |		Action	Spare6_Action
0508 00d9       |    |		Load_Top	At_Offset_1
0509 3809       |8   |		Execute	Record,Field_Write,Field_Number 0x9
050a 00d1       |    |		Pop_Control	Pop_Count_1
050b 0092 0692  |    |		Action	Push_String_Extended,0x692					; "essai demande fonction "
050d e00c       |    |		Load	0x0,0xc
050e 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
050f e403       |    |		Load	0x2,0x3
0510 e00c       |    |		Load	0x0,0xc
0511 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
0512 0092 0693  |    |		Action	Push_String_Extended,0x693					; " a l'object numero "
0514 e00c       |    |		Load	0x0,0xc
0515 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
0516 e7ff       |    |		Load	0x3,-0x1
0517 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0518 00e0       |    |		Load_Encached	Standard_Cache
0519 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
051a e00c       |    |		Load	0x0,0xc
051b 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
051c 4801       |H   |		Short_Literal	0x1
051d e00c       |    |		Load	0x0,0xc
051e 182d       | -  |		Execute	Package,Field_Execute,Field_Number 0x2d
051f 00d8       |    |		Load_Top	At_Offset_0
0520 e602       |    |		Load	0x3,0x2
0521 800a       |    |		Call	0x0,0xa
0522 00d2       |    |		Pop_Control	Pop_Count_2
0523 00d8       |    |		Load_Top	At_Offset_0
0524 e602       |    |		Load	0x3,0x2
0525 800d       |    |		Call	0x0,0xd
0526 00d2       |    |		Pop_Control	Pop_Count_2
0527 00d8       |    |		Load_Top	At_Offset_0
0528 e602       |    |		Load	0x3,0x2
0529 800e       |    |		Call	0x0,0xe
052a 00d1       |    |		Pop_Control	Pop_Count_1
052b 00d8       |    |		Load_Top	At_Offset_0
052c 800f       |    |		Call	0x0,0xf
052d 00d1       |    |		Pop_Control	Pop_Count_1
052e 0092 0694  |    |		Action	Push_String_Extended,0x694					; "attente reponse du serveur"
0530 e00c       |    |		Load	0x0,0xc
0531 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
0532 00d8       |    |		Load_Top	At_Offset_0
0533 8014       |    |		Call	0x0,0x14
0534 00d1       |    |		Pop_Control	Pop_Count_1
0535 00d8       |    |		Load_Top	At_Offset_0
0536 e603       |    |		Load	0x3,0x3
0537 8015       |    |		Call	0x0,0x15
0538 00d2       |    |		Pop_Control	Pop_Count_2
0539 00d8       |    |		Load_Top	At_Offset_0
053a 800f       |    |		Call	0x0,0xf
053b 00d1       |    |		Pop_Control	Pop_Count_1
053c 00d8       |    |		Load_Top	At_Offset_0
053d 800b       |    |		Call	0x0,0xb
053e 00d1       |    |		Pop_Control	Pop_Count_1
053f 0092 0695  |    |		Action	Push_String_Extended,0x695					; "reponse recue"
0541 e00c       |    |		Load	0x0,0xc
0542 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
0543 e603       |    |		Load	0x3,0x3
0544 3c06       |<   |		Execute	Record,Field_Read,Field_Number 0x6
0545 e010       |    |		Load	0x0,0x10
0546 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0547 e00c       |    |		Load	0x0,0xc
0548 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
0549 4801       |H   |		Short_Literal	0x1
054a e00c       |    |		Load	0x0,0xc
054b 182d       | -  |		Execute	Package,Field_Execute,Field_Number 0x2d
054c e603       |    |		Load	0x3,0x3
054d 3c06       |<   |		Execute	Record,Field_Read,Field_Number 0x6
054e a7fe       |    |		Store_Unchecked	0x3,-0x2
054f 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0550 ; --------------------------------------------------------------------------------------
0550 ; SUBPROGRAM
0550 ; --------------------------------------------------------------------------------------
0550 0559       | Y  |		.CONST	0x0559								; Address of begin
0551 0004       |    |		.CONST	0x0004								; Address of exception handler
0552 000d       |    |		.CONST	0x000d								; Number of locals
0553			INIT_0550:
0553 00bf       |    |		Action	Accept_Activation
0554 e001       |    |		Load	0x0,0x1
0555 0322       | "  |		Declare_Variable	Record
0556 00d8       |    |		Load_Top	At_Offset_0
0557 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0558 00bc       |    |		Action	Signal_Activated
0559			BODY_0550:
0559 0092 0696  |    |		Action	Push_String_Extended,0x696					; "ouverture connection pour l'orb"
055b e002       |    |		Load	0x0,0x2
055c 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
055d e003       |    |		Load	0x0,0x3
055e e004       |    |		Load	0x0,0x4
055f 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
0560 8005       |    |		Call	0x0,0x5
0561 00d1       |    |		Pop_Control	Pop_Count_1
0562 00cf       |    |		Action	Mark_Auxiliary
0563 0092 0697  |    |		Action	Push_String_Extended,0x697					; "Orb attente de message "
0565 e002       |    |		Load	0x0,0x2
0566 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
0567 e003       |    |		Load	0x0,0x3
0568 8006       |    |		Call	0x0,0x6
0569 00d1       |    |		Pop_Control	Pop_Count_1
056a e003       |    |		Load	0x0,0x3
056b 00da       |    |		Load_Top	At_Offset_2
056c 8007       |    |		Call	0x0,0x7
056d 00d2       |    |		Pop_Control	Pop_Count_2
056e e003       |    |		Load	0x0,0x3
056f 8008       |    |		Call	0x0,0x8
0570 00d1       |    |		Pop_Control	Pop_Count_1
0571 0092 0698  |    |		Action	Push_String_Extended,0x698					; " 1 Message est recu"
0573 e002       |    |		Load	0x0,0x2
0574 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
0575 00d9       |    |		Load_Top	At_Offset_1
0576 4801       |H   |		Short_Literal	0x1
0577 e009       |    |		Load	0x0,0x9
0578 e00a       |    |		Load	0x0,0xa
0579 00ad       |    |		QQ_Action	Package,Field_Execute_Dynamic
057a 00c9       |    |		Action	Pop_Auxiliary_Loop
057b 7fe7       |    |		Jump	0x563
057c 0000 0000  |    |		.BLANK	0000[0x4]
0580 ; --------------------------------------------------------------------------------------
0580 ; SUBPROGRAM
0580 ; --------------------------------------------------------------------------------------
0580 0591       |    |		.CONST	0x0591								; Address of begin
0581 0004       |    |		.CONST	0x0004								; Address of exception handler
0582 0011       |    |		.CONST	0x0011								; Number of locals
0583			INIT_0580:
0583 4801       |H   |		Short_Literal	0x1
0584 02cb       |    |		Declare_Variable	Entry
0585 00bf       |    |		Action	Accept_Activation
0586 00e1       |    |		Load_Encached	Boolean_Cache
0587 0601       |    |		Execute_Immediate	Set_Value_Unchecked,0x1
0588 00e3       |    |		Load_Encached	Natural_Cache
0589 e001       |    |		Load	0x0,0x1
058a 0322       | "  |		Declare_Variable	Record
058b 00d8       |    |		Load_Top	At_Offset_0
058c 1c00       |    |		Execute_Immediate	Run_Utility,0x0
058d 480d       |H   |		Short_Literal	0xd
058e 0299 059b  |    |		Declare_Subprogram	INIT_0598,For_Accept
0590 00bc       |    |		Action	Signal_Activated
0591			BODY_0580:
0591 00cf       |    |		Action	Mark_Auxiliary
0592 1d11       |    |		Execute_Immediate	Reference_Lex_1,0x11
0593 1d0d       |    |		Execute_Immediate	Reference_Lex_1,0xd
0594 0137       | 7  |		Execute	Entry,Rendezvous
0595 00c9       |    |		Action	Pop_Auxiliary_Loop
0596 7ffb       |    |		Jump	0x592
0597 0000       |    |		.XXX[0x1]
0598 ; --------------------------------------------------------------------------------------
0598 ; SUBPROGRAM
0598 ; --------------------------------------------------------------------------------------
0598 059b       |    |		.CONST	0x059b								; Address of begin
0599 0004       |    |		.CONST	0x0004								; Address of exception handler
059a 0001       |    |		.CONST	0x0001								; Number of locals
059b			BODY_0598:
059b			INIT_0598:
059b 00db       |    |		Load_Top	At_Offset_3
059c 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
059d 460c       |F   |		Jump_Case	0xd
059e 7811       |x   |		Jump	0x5b0								; case 0x0
059f 782b       |x+  |		Jump	0x5cb								; case 0x1
05a0 780a       |x   |		Jump	0x5ab								; case 0x2
05a1 783f       |x?  |		Jump	0x5e1								; case 0x3
05a2 7808       |x   |		Jump	0x5ab								; case 0x4
05a3 7807       |x   |		Jump	0x5ab								; case 0x5
05a4 7854       |xT  |		Jump	0x5f9								; case 0x6
05a5 786d       |xm  |		Jump	0x613								; case 0x7
05a6 7804       |x   |		Jump	0x5ab								; case 0x8
05a7 7803       |x   |		Jump	0x5ab								; case 0x9
05a8 7802       |x   |		Jump	0x5ab								; case 0xa
05a9 7801       |x   |		Jump	0x5ab								; case 0xb
05aa 7800       |x   |		Jump	0x5ab								; case 0xc
05ab 0092 0699  |    |		Action	Push_String_Extended,0x699					; "T_Orb : Message traite ok"
05ad e002       |    |		Load	0x0,0x2
05ae 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
05af 4100       |A   |		End_Rendezvous	0x0
05b0 00db       |    |		Load_Top	At_Offset_3
05b1 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
05b2 e210       |    |		Load	0x1,0x10
05b3 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
05b4 00db       |    |		Load_Top	At_Offset_3
05b5 3409       |4   |		Execute	Record,Field_Reference,Field_Number 0x9
05b6 e210       |    |		Load	0x1,0x10
05b7 380a       |8   |		Execute	Record,Field_Write,Field_Number 0xa
05b8 00e1       |    |		Load_Encached	Boolean_Cache
05b9 00e3       |    |		Load_Encached	Natural_Cache
05ba e5fe       |    |		Load	0x2,-0x2
05bb 3409       |4   |		Execute	Record,Field_Reference,Field_Number 0x9
05bc e5fe       |    |		Load	0x2,-0x2
05bd 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
05be 8003       |    |		Call	0x0,0x3
05bf c20f       |    |		Store	0x1,0xf
05c0 c20e       |    |		Store	0x1,0xe
05c1 e20f       |    |		Load	0x1,0xf
05c2 e210       |    |		Load	0x1,0x10
05c3 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
05c4 e210       |    |		Load	0x1,0x10
05c5 4801       |H   |		Short_Literal	0x1
05c6 e004       |    |		Load	0x0,0x4
05c7 e005       |    |		Load	0x0,0x5
05c8 00ad       |    |		QQ_Action	Package,Field_Execute_Dynamic
05c9 00d1       |    |		Pop_Control	Pop_Count_1
05ca 4100       |A   |		End_Rendezvous	0x0
05cb 00db       |    |		Load_Top	At_Offset_3
05cc 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
05cd e210       |    |		Load	0x1,0x10
05ce 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
05cf 00db       |    |		Load_Top	At_Offset_3
05d0 3409       |4   |		Execute	Record,Field_Reference,Field_Number 0x9
05d1 e210       |    |		Load	0x1,0x10
05d2 380a       |8   |		Execute	Record,Field_Write,Field_Number 0xa
05d3 00db       |    |		Load_Top	At_Offset_3
05d4 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
05d5 8006       |    |		Call	0x0,0x6
05d6 a20e       |    |		Store_Unchecked	0x1,0xe
05d7 e20e       |    |		Load	0x1,0xe
05d8 e210       |    |		Load	0x1,0x10
05d9 3807       |8   |		Execute	Record,Field_Write,Field_Number 0x7
05da e210       |    |		Load	0x1,0x10
05db 4801       |H   |		Short_Literal	0x1
05dc e004       |    |		Load	0x0,0x4
05dd e005       |    |		Load	0x0,0x5
05de 00ad       |    |		QQ_Action	Package,Field_Execute_Dynamic
05df 00d1       |    |		Pop_Control	Pop_Count_1
05e0 4100       |A   |		End_Rendezvous	0x0
05e1 00db       |    |		Load_Top	At_Offset_3
05e2 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
05e3 e210       |    |		Load	0x1,0x10
05e4 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
05e5 00db       |    |		Load_Top	At_Offset_3
05e6 3409       |4   |		Execute	Record,Field_Reference,Field_Number 0x9
05e7 e210       |    |		Load	0x1,0x10
05e8 380a       |8   |		Execute	Record,Field_Write,Field_Number 0xa
05e9 00e1       |    |		Load_Encached	Boolean_Cache
05ea e210       |    |		Load	0x1,0x10
05eb e5fe       |    |		Load	0x2,-0x2
05ec 8007       |    |		Call	0x0,0x7
05ed 00d1       |    |		Pop_Control	Pop_Count_1
05ee c20e       |    |		Store	0x1,0xe
05ef e20e       |    |		Load	0x1,0xe
05f0 e210       |    |		Load	0x1,0x10
05f1 3807       |8   |		Execute	Record,Field_Write,Field_Number 0x7
05f2 e210       |    |		Load	0x1,0x10
05f3 4801       |H   |		Short_Literal	0x1
05f4 e004       |    |		Load	0x0,0x4
05f5 e005       |    |		Load	0x0,0x5
05f6 00ad       |    |		QQ_Action	Package,Field_Execute_Dynamic
05f7 00d1       |    |		Pop_Control	Pop_Count_1
05f8 4100       |A   |		End_Rendezvous	0x0
05f9 00db       |    |		Load_Top	At_Offset_3
05fa 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
05fb e210       |    |		Load	0x1,0x10
05fc 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
05fd 00db       |    |		Load_Top	At_Offset_3
05fe 3409       |4   |		Execute	Record,Field_Reference,Field_Number 0x9
05ff e210       |    |		Load	0x1,0x10
0600 380a       |8   |		Execute	Record,Field_Write,Field_Number 0xa
0601 00db       |    |		Load_Top	At_Offset_3
0602 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0603 e5fe       |    |		Load	0x2,-0x2
0604 3c06       |<   |		Execute	Record,Field_Read,Field_Number 0x6
0605 e008       |    |		Load	0x0,0x8
0606 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0607 8009       |    |		Call	0x0,0x9
0608 a20e       |    |		Store_Unchecked	0x1,0xe
0609 e20e       |    |		Load	0x1,0xe
060a e210       |    |		Load	0x1,0x10
060b 3807       |8   |		Execute	Record,Field_Write,Field_Number 0x7
060c e210       |    |		Load	0x1,0x10
060d 4801       |H   |		Short_Literal	0x1
060e e004       |    |		Load	0x0,0x4
060f e005       |    |		Load	0x0,0x5
0610 00ad       |    |		QQ_Action	Package,Field_Execute_Dynamic
0611 00d1       |    |		Pop_Control	Pop_Count_1
0612 4100       |A   |		End_Rendezvous	0x0
0613 00db       |    |		Load_Top	At_Offset_3
0614 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
0615 e210       |    |		Load	0x1,0x10
0616 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
0617 00db       |    |		Load_Top	At_Offset_3
0618 3409       |4   |		Execute	Record,Field_Reference,Field_Number 0x9
0619 e210       |    |		Load	0x1,0x10
061a 380a       |8   |		Execute	Record,Field_Write,Field_Number 0xa
061b 00db       |    |		Load_Top	At_Offset_3
061c 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
061d e5fe       |    |		Load	0x2,-0x2
061e 3c06       |<   |		Execute	Record,Field_Read,Field_Number 0x6
061f e008       |    |		Load	0x0,0x8
0620 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0621 800a       |    |		Call	0x0,0xa
0622 a20e       |    |		Store_Unchecked	0x1,0xe
0623 e20e       |    |		Load	0x1,0xe
0624 e210       |    |		Load	0x1,0x10
0625 3807       |8   |		Execute	Record,Field_Write,Field_Number 0x7
0626 e210       |    |		Load	0x1,0x10
0627 4801       |H   |		Short_Literal	0x1
0628 e004       |    |		Load	0x0,0x4
0629 e005       |    |		Load	0x0,0x5
062a 00ad       |    |		QQ_Action	Package,Field_Execute_Dynamic
062b 00d1       |    |		Pop_Control	Pop_Count_1
062c 4100       |A   |		End_Rendezvous	0x0
062d 0000 0000  |    |		.XXX[0x3]
062f 0000       |    |
0630 ; --------------------------------------------------------------------------------------
0630 ; SUBPROGRAM
0630 ; --------------------------------------------------------------------------------------
0630 0642       | B  |		.CONST	0x0642								; Address of begin
0631 0004       |    |		.CONST	0x0004								; Address of exception handler
0632 0010       |    |		.CONST	0x0010								; Number of locals
0633			INIT_0630:
0633 4801       |H   |		Short_Literal	0x1
0634 02cb       |    |		Declare_Variable	Entry
0635 00bf       |    |		Action	Accept_Activation
0636 e001       |    |		Load	0x0,0x1
0637 0322       | "  |		Declare_Variable	Record
0638 00d8       |    |		Load_Top	At_Offset_0
0639 1c00       |    |		Execute_Immediate	Run_Utility,0x0
063a e002       |    |		Load	0x0,0x2
063b 0322       | "  |		Declare_Variable	Record
063c 00d8       |    |		Load_Top	At_Offset_0
063d 1c00       |    |		Execute_Immediate	Run_Utility,0x0
063e 480d       |H   |		Short_Literal	0xd
063f 0299 0663  |   c|		Declare_Subprogram	INIT_0660,For_Accept
0641 00bc       |    |		Action	Signal_Activated
0642			BODY_0630:
0642 00d9       |    |		Load_Top	At_Offset_1
0643 00d8       |    |		Load_Top	At_Offset_0
0644 3c09       |<   |		Execute	Record,Field_Read,Field_Number 0x9
0645 00d8       |    |		Load_Top	At_Offset_0
0646 0335       | 5  |		Declare_Variable	Array,Duplicate
0647 00cd       |    |		Action	Spare6_Action
0648 4800       |H   |		Short_Literal	0x0
0649 4801       |H   |		Short_Literal	0x1
064a 00da       |    |		Load_Top	At_Offset_2
064b 01d6       |    |		Execute	Vector,Field_Write
064c 4800       |H   |		Short_Literal	0x0
064d 4802       |H   |		Short_Literal	0x2
064e 00da       |    |		Load_Top	At_Offset_2
064f 01d6       |    |		Execute	Vector,Field_Write
0650 00cd       |    |		Action	Spare6_Action
0651 00d9       |    |		Load_Top	At_Offset_1
0652 3809       |8   |		Execute	Record,Field_Write,Field_Number 0x9
0653 00d1       |    |		Pop_Control	Pop_Count_1
0654 00da       |    |		Load_Top	At_Offset_2
0655 00da       |    |		Load_Top	At_Offset_2
0656 8003       |    |		Call	0x0,0x3
0657 00d2       |    |		Pop_Control	Pop_Count_2
0658 00cf       |    |		Action	Mark_Auxiliary
0659 1d10       |    |		Execute_Immediate	Reference_Lex_1,0x10
065a 1d0d       |    |		Execute_Immediate	Reference_Lex_1,0xd
065b 0137       | 7  |		Execute	Entry,Rendezvous
065c 00c9       |    |		Action	Pop_Auxiliary_Loop
065d 7ffb       |    |		Jump	0x659
065e 0000 0000  |    |		.XXX[0x2]
0660 ; --------------------------------------------------------------------------------------
0660 ; SUBPROGRAM
0660 ; --------------------------------------------------------------------------------------
0660 0663       | c  |		.CONST	0x0663								; Address of begin
0661 0004       |    |		.CONST	0x0004								; Address of exception handler
0662 0001       |    |		.CONST	0x0001								; Number of locals
0663			BODY_0660:
0663			INIT_0660:
0663 0092 069a  |    |		Action	Push_String_Extended,0x69a					; "envoi reponse"
0665 e005       |    |		Load	0x0,0x5
0666 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
0667 e20e       |    |		Load	0x1,0xe
0668 e5fe       |    |		Load	0x2,-0x2
0669 8006       |    |		Call	0x0,0x6
066a 00d2       |    |		Pop_Control	Pop_Count_2
066b e20e       |    |		Load	0x1,0xe
066c e5fe       |    |		Load	0x2,-0x2
066d 8007       |    |		Call	0x0,0x7
066e 00d1       |    |		Pop_Control	Pop_Count_1
066f e20e       |    |		Load	0x1,0xe
0670 8008       |    |		Call	0x0,0x8
0671 4101       |A   |		End_Rendezvous	0x1
0672 ; --------------------------------------------------------------------------------------
0672 ; STRING TABLE
0672 ; --------------------------------------------------------------------------------------
0672 0054       | T  |		.STRTAB	0x0054->0x069c							; "Orb Registration en cours"
0673 006b       | k  |		.STRTAB	0x006b->0x06a8							; "registration ok"
0674 0078       | x  |		.STRTAB	0x0078->0x06b0							; "T_Orb regist -- fin de liste"
0675 0092       |    |		.STRTAB	0x0092->0x06be							; "l'object"
0676 0098       |    |		.STRTAB	0x0098->0x06c2							; " existe deja dans la liste d'object"
0677 00b9       |    |		.STRTAB	0x00b9->0x06d3							; "fin registration"
0678 00c7       |    |		.STRTAB	0x00c7->0x06db							; "Orb UnRegistration en cours"
0679 00e0       |    |		.STRTAB	0x00e0->0x06e9							; "liste d'object vide"
067a 00f1       |    |		.STRTAB	0x00f1->0x06f2							; "object trouve, effacement en cours"
067b 0111       |    |		.STRTAB	0x0111->0x0703							; "unregistration ok"
067c 0120       |    |		.STRTAB	0x0120->0x070c							; "envoi unregistration au serveur object"
067d 0144       | D  |		.STRTAB	0x0144->0x071f							; "destruction de tous les contract de l'object "
067e 016f       | o  |		.STRTAB	0x016f->0x0735							; "en cours"
067f 0175       | u  |		.STRTAB	0x0175->0x0739							; "effacement du contract "
0680 018a       |    |		.STRTAB	0x018a->0x0745							; " sur l'object "
0681 0196       |    |		.STRTAB	0x0196->0x074c							; "fin d'effacement des contract de l'object "
0682 01be       |    |		.STRTAB	0x01be->0x0761							; "Orb publication du contract "
0683 01d8       |    |		.STRTAB	0x01d8->0x076f							; "  de l'object"
0684 01e3       |    |		.STRTAB	0x01e3->0x0775							; "le contract "
0685 01ed       |    |		.STRTAB	0x01ed->0x077b							; "  sur l'object"
0686 01f9       |    |		.STRTAB	0x01f9->0x0782							; "existe deja"
0687 0202       |    |		.STRTAB	0x0202->0x0788							; "publication ok"
0688 020e       |    |		.STRTAB	0x020e->0x078f							; "Orb unpublication du contract "
0689 022a       | *  |		.STRTAB	0x022a->0x079e							; " en cours"
068a 0231       | 1  |		.STRTAB	0x0231->0x07a2							; "liste de contract vide"
068b 0245       | E  |		.STRTAB	0x0245->0x07ad							; "unpublication ok"
068c 0253       | S  |		.STRTAB	0x0253->0x07b5							; "contract non trouve"
068d 0264       | d  |		.STRTAB	0x0264->0x07bf							; "recherche du contract ... "
068e 027c       | |  |		.STRTAB	0x027c->0x07cc							; "non trouve"
068f 0284       |    |		.STRTAB	0x0284->0x07d1							; "trouve ok"
0690 028b       |    |		.STRTAB	0x028b->0x07d5							; "id connu"
0691 0291       |    |		.STRTAB	0x0291->0x07d9							; "id inconnu"
0692 0299       |    |		.STRTAB	0x0299->0x07de							; "essai demande fonction "
0693 02ae       |    |		.STRTAB	0x02ae->0x07ea							; " a l'object numero "
0694 02bf       |    |		.STRTAB	0x02bf->0x07f3							; "attente reponse du serveur"
0695 02d7       |    |		.STRTAB	0x02d7->0x0800							; "reponse recue"
0696 02e2       |    |		.STRTAB	0x02e2->0x0807							; "ouverture connection pour l'orb"
0697 02ff       |    |		.STRTAB	0x02ff->0x0816							; "Orb attente de message "
0698 0314       |    |		.STRTAB	0x0314->0x0822							; " 1 Message est recu"
0699 0325       | %  |		.STRTAB	0x0325->0x082b							; "T_Orb : Message traite ok"
069a 033c       | <  |		.STRTAB	0x033c->0x0838							; "envoi reponse"
069b 0347       | G  |		.STREND 0x0347->0x083e
069c 4f72 6220  |Orb |		.STRTAB_STRINGS
083f 0000       |    |		.XXX[0x1]
0840 ; --------------------------------------------------------------------------------------
0840 ; Debug Table
0840 ; --------------------------------------------------------------------------------------
0840 0004 000a  |    |		.DEBUG4	0x0004,0x000a,0x6f2d,0x0000,0x0001,0x0012
0846 000b 088e  |    |		.DBG4T	0x000b,0x088e,0x8000,0x0000
084a 0016 0895  |    |		.DBG4T	0x0016,0x0895,0x8000,0x0000
084e 009b 08aa  |    |		.DBG4T	0x009b,0x08aa,0x0001,0x4000
0852 0133 08f1  | 3  |		.DBG4T	0x0133,0x08f1,0x0002,0x4000
0856 0253 0976  | S v|		.DBG4T	0x0253,0x0976,0x0002,0x0000
085a 02bb 098e  |    |		.DBG4T	0x02bb,0x098e,0x0002,0x4000
085e 0373 09e0  | s  |		.DBG4T	0x0373,0x09e0,0x0001,0x0000
0862 03e3 09f8  |    |		.DBG4T	0x03e3,0x09f8,0x0002,0x4000
0866 042b 0a1e  | +  |		.DBG4T	0x042b,0x0a1e,0x0001,0x4000
086a 04a3 0a54  |   T|		.DBG4T	0x04a3,0x0a54,0x0001,0x4000
086e 0553 0000  | S  |		.DBG4T	0x0553,0x0000,0x0000,0x0000
0872 0554 0aa0  | T  |		.DBG4T	0x0554,0x0aa0,0x0000,0x4000
0876 0583 0ab3  |    |		.DBG4T	0x0583,0x0ab3,0x0000,0x0000
087a 0586 0ab6  |    |		.DBG4T	0x0586,0x0ab6,0x0000,0x4000
087e 059b 0abd  |    |		.DBG4T	0x059b,0x0abd,0x0003,0x4000
0882 0633 0af5  | 3  |		.DBG4T	0x0633,0x0af5,0x0000,0x0000
0886 0636 0af8  | 6  |		.DBG4T	0x0636,0x0af8,0x0000,0x4000
088a 0663 0b02  | c  |		.DBG4T	0x0663,0x0b02,0x0003,0x0000
088e ; --------------------------------------------------------------------------------------
088e ; Debug chain
088e ; --------------------------------------------------------------------------------------
088e 0005 0000  |    |		.DBGLEN	0x0005,0x0000
0890 000b 000d  |    |		.DBGLNO	0x000b,0x000d,0x000f,0x0011,0x0013
0895 ; --------------------------------------------------------------------------------------
0895 ; Debug chain
0895 ; --------------------------------------------------------------------------------------
0895 0012 0001  |    |		.DBGLEN	0x0012,0x0001
0897 0016 0024  |   $|		.DBGLNO	0x0016,0x0024,0x002c,0x0039,0x003d,0x004a,0x004e,0x0050,0x0052,0x0054,0x0056,0x0058,0x005a,0x0060,0x006c,0x0072,0x0080,0x0086,0x0095
08aa ; --------------------------------------------------------------------------------------
08aa ; Debug chain
08aa ; --------------------------------------------------------------------------------------
08aa 0005 0020  |    |		.DBGLEN	0x0005,0x0020
08ac 009b 009d  |    |		.DBGLNO	0x009b,0x009d,0x009f,0x00a0,0x00a4,0x00a6,0x00aa,0x00ad,0x00b0,0x00b5,0x00b8,0x00bb,0x00c1,0x00c3,0x00c5,0x00ca,0x00d3,0x00d9,0x00de,0x00e2,0x00e6,0x00e8,0x00e9,0x00ee,0x00f2,0x00f6,0x00f8,0x00fc,0x0102,0x0106,0x0109,0x010c,0x010f,0x0115,0x0117,0x0119,0x011d
08d1 0001 0002  |    |		.XXX[0x20]
08d3 0003 0004  |    |
08d5 0005 0006  |    |
08d7 0007 0008  |    |
08d9 0009 000a  |    |
08db 000b 000d  |    |
08dd 000e 000f  |    |
08df 0010 0011  |    |
08e1 0012 0013  |    |
08e3 0014 0015  |    |
08e5 0016 0017  |    |
08e7 0018 0019  |    |
08e9 001a 001b  |    |
08eb 001c 001d  |    |
08ed 001e 001f  |    |
08ef 0020 0021  |   !|
08f1 ; --------------------------------------------------------------------------------------
08f1 ; Debug chain
08f1 ; --------------------------------------------------------------------------------------
08f1 000b 003c  |   <|		.DBGLEN	0x000b,0x003c
08f3 0133 0137  | 3 7|		.DBGLNO	0x0133,0x0137,0x013b,0x013d,0x013f,0x0141,0x0143,0x0145,0x0147,0x0149,0x014d,0x0151,0x0155,0x015a,0x015e,0x0160,0x0169,0x016f,0x0174,0x0177,0x017a,0x017e,0x0180,0x0181,0x0186,0x018a,0x018c,0x0190,0x0198,0x019b,0x019f,0x01a3,0x01a8,0x01ab,0x01ae,0x01c0,0x01c4,0x01c8,0x01cc,0x01d0,0x01d4,0x01d7,0x01da,0x01de,0x01e3,0x01e8,0x01ed,0x01f6,0x01fc,0x0201,0x0204,0x0207,0x020b,0x020d,0x020e,0x0213,0x0215,0x0219,0x021b,0x021f,0x0223,0x0227,0x022d,0x0230,0x0239,0x023b,0x023f,0x0243,0x0248,0x024b,0x024d
093a 0001 0002  |    |		.XXX[0x3c]
093c 0003 0004  |    |
093e 0005 0007  |    |
0940 0008 0009  |    |
0942 000a 000b  |    |
0944 000c 000d  |    |
0946 000e 000f  |    |
0948 0010 0011  |    |
094a 0012 0013  |    |
094c 0014 0015  |    |
094e 0016 0017  |    |
0950 0018 0019  |    |
0952 001a 001b  |    |
0954 001c 001d  |    |
0956 001e 001f  |    |
0958 0020 0021  |   !|
095a 0022 0023  | " #|
095c 0025 0026  | % &|
095e 0028 0029  | ( )|
0960 002a 002b  | * +|
0962 002c 002d  | , -|
0964 002e 002f  | . /|
0966 0030 0031  | 0 1|
0968 0032 0033  | 2 3|
096a 0034 0035  | 4 5|
096c 0036 0037  | 6 7|
096e 0038 003a  | 8 :|
0970 003b 003c  | ; <|
0972 003d 003e  | = >|
0974 003f 0040  | ? @|
0976 ; --------------------------------------------------------------------------------------
0976 ; Debug chain
0976 ; --------------------------------------------------------------------------------------
0976 0002 0014  |    |		.DBGLEN	0x0002,0x0014
0978 0253 0261  | S a|		.DBGLNO	0x0253,0x0261,0x0263,0x0267,0x026d,0x0271,0x0276,0x027a,0x027d,0x027f,0x0284,0x028a,0x028c,0x0292,0x0296,0x0299,0x029d,0x02a2,0x02a6,0x02a8,0x02ae,0x02b2
098e ; --------------------------------------------------------------------------------------
098e ; Debug chain
098e ; --------------------------------------------------------------------------------------
098e 000c 0022  |   "|		.DBGLEN	0x000c,0x0022
0990 02bb 02bf  |    |		.DBGLNO	0x02bb,0x02bf,0x02cd,0x02cf,0x02d1,0x02d3,0x02d5,0x02d7,0x02db,0x02df,0x02e1,0x02e3,0x02e7,0x02eb,0x02ee,0x02f2,0x02f7,0x02fb,0x02fd,0x0300,0x0303,0x0308,0x0311,0x0317,0x031c,0x0320,0x0324,0x0326,0x0327,0x032c,0x032e,0x0332,0x0334,0x0336,0x033e,0x0340,0x0344,0x0346,0x034b,0x034f,0x0351,0x0357,0x035b,0x035d,0x0365,0x0369
09be 0001 0002  |    |		.XXX[0x22]
09c0 0003 0004  |    |
09c2 0005 0006  |    |
09c4 0007 0008  |    |
09c6 0009 000b  |    |
09c8 000d 000e  |    |
09ca 000f 0010  |    |
09cc 0011 0012  |    |
09ce 0013 0014  |    |
09d0 0015 0016  |    |
09d2 0017 0018  |    |
09d4 0019 001a  |    |
09d6 001b 001c  |    |
09d8 001d 001e  |    |
09da 001f 0020  |    |
09dc 0021 0022  | ! "|
09de 0023 0024  | # $|
09e0 ; --------------------------------------------------------------------------------------
09e0 ; Debug chain
09e0 ; --------------------------------------------------------------------------------------
09e0 000b 000b  |    |		.DBGLEN	0x000b,0x000b
09e2 0373 0377  | s w|		.DBGLNO	0x0373,0x0377,0x0385,0x0391,0x0395,0x03a0,0x03a2,0x03a4,0x03a8,0x03aa,0x03ac,0x03ae,0x03b3,0x03b6,0x03ba,0x03c5,0x03c7,0x03cb,0x03ce,0x03d2,0x03d7,0x03da
09f8 ; --------------------------------------------------------------------------------------
09f8 ; Debug chain
09f8 ; --------------------------------------------------------------------------------------
09f8 0004 0010  |    |		.DBGLEN	0x0004,0x0010
09fa 03e3 03e7  |    |		.DBGLNO	0x03e3,0x03e7,0x03e9,0x03eb,0x03ed,0x03f2,0x03f6,0x03f8,0x0401,0x0407,0x040c,0x040f,0x0412,0x0416,0x0418,0x0419,0x041e,0x0422,0x0424,0x0426
0a0e 0001 0002  |    |		.XXX[0x10]
0a10 0003 0004  |    |
0a12 0006 0007  |    |
0a14 0008 0009  |    |
0a16 000a 000b  |    |
0a18 000c 000d  |    |
0a1a 000e 000f  |    |
0a1c 0010 0011  |    |
0a1e ; --------------------------------------------------------------------------------------
0a1e ; Debug chain
0a1e ; --------------------------------------------------------------------------------------
0a1e 0006 0017  |    |		.DBGLEN	0x0006,0x0017
0a20 042b 0430  | + 0|		.DBGLNO	0x042b,0x0430,0x0434,0x0436,0x0438,0x043a,0x043c,0x0442,0x044f,0x0452,0x0455,0x0459,0x045d,0x0463,0x0467,0x046b,0x0474,0x047a,0x047f,0x0482,0x0485,0x0489,0x048b,0x048c,0x0491,0x0495,0x0498,0x049a,0x049d
0a3d 0001 0002  |    |		.XXX[0x17]
0a3f 0003 0004  |    |
0a41 0005 0006  |    |
0a43 0007 0008  |    |
0a45 0009 000a  |    |
0a47 000c 000d  |    |
0a49 000e 000f  |    |
0a4b 0010 0011  |    |
0a4d 0012 0013  |    |
0a4f 0014 0015  |    |
0a51 0016 0017  |    |
0a53 0018       |    |
0a54 ; --------------------------------------------------------------------------------------
0a54 ; Debug chain
0a54 ; --------------------------------------------------------------------------------------
0a54 0008 0021  |   !|		.DBGLEN	0x0008,0x0021
0a56 04a3 04a7  |    |		.DBGLNO	0x04a3,0x04a7,0x04ab,0x04af,0x04b3,0x04b5,0x04b7,0x04b9,0x04bd,0x04c6,0x04cc,0x04d1,0x04d4,0x04d8,0x04dc,0x04de,0x04df,0x04e4,0x04e8,0x04eb,0x04ef,0x04f3,0x04f9,0x050b,0x050f,0x0512,0x0516,0x051c,0x051f,0x0523,0x0527,0x052b,0x052e,0x0532,0x0535,0x0539,0x053c,0x053f,0x0543,0x0549,0x054c
0a7f 0001 0003  |    |		.XXX[0x21]
0a81 0004 0005  |    |
0a83 0006 0007  |    |
0a85 0008 0009  |    |
0a87 000a 000b  |    |
0a89 000c 000d  |    |
0a8b 000e 000f  |    |
0a8d 0010 0011  |    |
0a8f 0012 0013  |    |
0a91 0014 0015  |    |
0a93 0016 0017  |    |
0a95 0018 0019  |    |
0a97 001a 001b  |    |
0a99 001c 001d  |    |
0a9b 001e 001f  |    |
0a9d 0020 0021  |   !|
0a9f 0022       | "  |
0aa0 ; --------------------------------------------------------------------------------------
0aa0 ; Debug chain
0aa0 ; --------------------------------------------------------------------------------------
0aa0 0001 0008  |    |		.DBGLEN	0x0001,0x0008
0aa2 0554 0559  | T Y|		.DBGLNO	0x0554,0x0559,0x055d,0x0563,0x0567,0x056a,0x056e,0x0571,0x0575
0aab 0001 0002  |    |		.XXX[0x8]
0aad 0004 0005  |    |
0aaf 0006 0007  |    |
0ab1 0008 0009  |    |
0ab3 ; --------------------------------------------------------------------------------------
0ab3 ; Debug chain
0ab3 ; --------------------------------------------------------------------------------------
0ab3 0001 0000  |    |		.DBGLEN	0x0001,0x0000
0ab5 0583       |    |		.DBGLNO	0x0583
0ab6 ; --------------------------------------------------------------------------------------
0ab6 ; Debug chain
0ab6 ; --------------------------------------------------------------------------------------
0ab6 0003 0001  |    |		.DBGLEN	0x0003,0x0001
0ab8 0586 0588  |    |		.DBGLNO	0x0586,0x0588,0x0589,0x0592
0abc 0002       |    |		.XXX[0x1]
0abd ; --------------------------------------------------------------------------------------
0abd ; Debug chain
0abd ; --------------------------------------------------------------------------------------
0abd 0000 001b  |    |		.DBGLEN	0x0000,0x001b
0abf 059b 05ab  |    |		.DBGLNO	0x059b,0x05ab,0x05b0,0x05b4,0x05b8,0x05c1,0x05c4,0x05cb,0x05cf,0x05d3,0x05d7,0x05da,0x05e1,0x05e5,0x05e9,0x05ef,0x05f2,0x05f9,0x05fd,0x0601,0x0609,0x060c,0x0613,0x0617,0x061b,0x0623,0x0626
0ada 0001 001b  |    |		.XXX[0x1b]
0adc 0002 0003  |    |
0ade 0004 0005  |    |
0ae0 0006 0007  |    |
0ae2 0008 0009  |    |
0ae4 000a 000b  |    |
0ae6 000c 000d  |    |
0ae8 000e 000f  |    |
0aea 0010 0011  |    |
0aec 0012 0013  |    |
0aee 0014 0015  |    |
0af0 0016 0017  |    |
0af2 0018 0019  |    |
0af4 001a       |    |
0af5 ; --------------------------------------------------------------------------------------
0af5 ; Debug chain
0af5 ; --------------------------------------------------------------------------------------
0af5 0001 0000  |    |		.DBGLEN	0x0001,0x0000
0af7 0633       | 3  |		.DBGLNO	0x0633
0af8 ; --------------------------------------------------------------------------------------
0af8 ; Debug chain
0af8 ; --------------------------------------------------------------------------------------
0af8 0002 0003  |    |		.DBGLEN	0x0002,0x0003
0afa 0636 063a  | 6 :|		.DBGLNO	0x0636,0x063a,0x0642,0x0654,0x0659
0aff 0001 0002  |    |		.XXX[0x3]
0b01 0004       |    |
0b02 ; --------------------------------------------------------------------------------------
0b02 ; Debug chain
0b02 ; --------------------------------------------------------------------------------------
0b02 0000 0004  |    |		.DBGLEN	0x0000,0x0004
0b04 0663 0667  | c g|		.DBGLNO	0x0663,0x0667,0x066b,0x066f
0b08 0000 0000  |    |		.BLANK	0000[0xf8]