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

⟦2ff865ad6⟧

    Length: 4096 (0x1000)
    Notes: 00_class, 5900_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_272cbb

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 0598       |    |		.CONST	0x0598								; 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 0003       |    |		.CONST	0x0003								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0041       | A  |		.CONST	0x0041								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0015       |    |		.CONST	0x0015								; Number of locals
000b			INIT_0008:
000b 029a 004b  |   K|		Declare_Subprogram	INIT_0048,For_Outer_Call,Visible,Unelaborated
000d 00bf       |    |		Action	Accept_Activation
000e 029d 005b  |   [|		Declare_Subprogram	INIT_0058,For_Outer_Call
0010 0093 0000  |    |		push_full_address	0x0
0012 603d       |`=  |		Indirect_Literal	Discrete,0x50,{0x80000000, 0x00010000}
0013 0273       | s  |		Execute	Discrete,Plus
0014 e002       |    |		Load	0x0,0x2
0015 0273       | s  |		Execute	Discrete,Plus
0016 e003       |    |		Load	0x0,0x3
0017 0273       | s  |		Execute	Discrete,Plus
0018 e004       |    |		Load	0x0,0x4
0019 1d0e       |    |		Execute_Immediate	Reference_Lex_1,0xe
001a e005       |    |		Load	0x0,0x5
001b 0387       |    |		Declare_Variable	Package
001c 00d8       |    |		Load_Top	At_Offset_0
001d 020f       |    |		Execute	Module,Activate
001e 029d 006b  |   k|		Declare_Subprogram	INIT_0068,For_Outer_Call
0020 029d 00ab  |    |		Declare_Subprogram	INIT_00a8,For_Outer_Call
0022 029d 0163  |   c|		Declare_Subprogram	INIT_0160,For_Outer_Call
0024 029d 01db  |    |		Declare_Subprogram	INIT_01d8,For_Outer_Call
0026 029d 029b  |    |		Declare_Subprogram	INIT_0298,For_Outer_Call
0028 4800       |H   |		Short_Literal	0x0
0029 0093 0353  |   S|		push_full_address	INIT_0350
002b 00f5       |    |		Load_Encached	Unused21
002c 037d       | }  |		Declare_Type	Task,Defined
002d 036f       | o  |		Declare_Variable	Task
002e e004       |    |		Load	0x0,0x4
002f e006       |    |		Load	0x0,0x6
0030 e007       |    |		Load	0x0,0x7
0031 e008       |    |		Load	0x0,0x8
0032 a009       |    |		Store_Unchecked	0x0,0x9
0033 a00a       |    |		Store_Unchecked	0x0,0xa
0034 a00b       |    |		Store_Unchecked	0x0,0xb
0035 1d11       |    |		Execute_Immediate	Reference_Lex_1,0x11
0036 1d12       |    |		Execute_Immediate	Reference_Lex_1,0x12
0037 a00c       |    |		Store_Unchecked	0x0,0xc
0038 e00d       |    |		Load	0x0,0xd
0039 1d14       |    |		Execute_Immediate	Reference_Lex_1,0x14
003a 1d13       |    |		Execute_Immediate	Reference_Lex_1,0x13
003b 480d       |H   |		Short_Literal	0xd
003c e215       |    |		Load	0x1,0x15
003d 020e       |    |		Execute	Module,Augment_Imports
003e 0007       |    |		Action	Break_Optional
003f 1d0d       |    |		Execute_Immediate	Reference_Lex_1,0xd
0040 00c7       |    |		Action	Elaborate_Subprogram
0041			BODY_0008:
0041 00be       |    |		Action	Activate_Tasks
0042 00bc       |    |		Action	Signal_Activated
0043 00bb       |    |		Action	Signal_Completion
0044 0000 0000  |    |		.BLANK	0000[0x4]
0048 ; --------------------------------------------------------------------------------------
0048 ; SUBPROGRAM
0048 ; --------------------------------------------------------------------------------------
0048 004b       | K  |		.CONST	0x004b								; Address of begin
0049 0004       |    |		.CONST	0x0004								; Address of exception handler
004a 0001       |    |		.CONST	0x0001								; Number of locals
004b			BODY_0048:
004b			INIT_0048:
004b 4800       |H   |		Short_Literal	0x0
004c e215       |    |		Load	0x1,0x15
004d 170d       |    |		Execute	Task,Entry_Call,Field_Number 0xd
004e 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
004f 0000       |    |		.XXX[0x1]
0050 8000 0000  |    |		.LITERAL	{0x80000000, 0x00010000}
0054 0000 0000  |    |		.BLANK	0000[0x4]
0058 ; --------------------------------------------------------------------------------------
0058 ; SUBPROGRAM
0058 ; --------------------------------------------------------------------------------------
0058 005b       | [  |		.CONST	0x005b								; Address of begin
0059 0004       |    |		.CONST	0x0004								; Address of exception handler
005a 0001       |    |		.CONST	0x0001								; Number of locals
005b			BODY_0058:
005b			INIT_0058:
005b 00db       |    |		Load_Top	At_Offset_3
005c e00e       |    |		Load	0x0,0xe
005d 01c3       |    |		Execute	Vector,Check_In_Type
005e 00db       |    |		Load_Top	At_Offset_3
005f 800f       |    |		Call	0x0,0xf
0060 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0061 0000 0000  |    |		.BLANK	0000[0x7]
0068 ; --------------------------------------------------------------------------------------
0068 ; SUBPROGRAM
0068 ; --------------------------------------------------------------------------------------
0068 007c       | |  |		.CONST	0x007c								; Address of begin
0069 0004       |    |		.CONST	0x0004								; Address of exception handler
006a 0007       |    |		.CONST	0x0007								; Number of locals
006b			INIT_0068:
006b e010       |    |		Load	0x0,0x10
006c 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
006d 02c7       |    |		Declare_Variable	Any
006e 00d8       |    |		Load_Top	At_Offset_0
006f 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0070 e006       |    |		Load	0x0,0x6
0071 0337       | 7  |		Declare_Variable	Array
0072 e011       |    |		Load	0x0,0x11
0073 0337       | 7  |		Declare_Variable	Array
0074 00e3       |    |		Load_Encached	Natural_Cache
0075 0628       | (  |		Execute_Immediate	Set_Value_Unchecked,0x28
0076 00e1       |    |		Load_Encached	Boolean_Cache
0077 e006       |    |		Load	0x0,0x6
0078 0337       | 7  |		Declare_Variable	Array
0079 e00d       |    |		Load	0x0,0xd
007a 00d9       |    |		Load_Top	At_Offset_1
007b 01d4       |    |		Execute	Vector,Structure_Write
007c			BODY_0068:
007c e5ff       |    |		Load	0x2,-0x1
007d 8012       |    |		Call	0x0,0x12
007e e008       |    |		Load	0x0,0x8
007f 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
0080 00d8       |    |		Load_Top	At_Offset_0
0081 e402       |    |		Load	0x2,0x2
0082 e013       |    |		Load	0x0,0x13
0083 e014       |    |		Load	0x0,0x14
0084 e20f       |    |		Load	0x1,0xf
0085 0096       |    |		Execute	Package,Entry
0086 c402       |    |		Store	0x2,0x2
0087 00d1       |    |		Pop_Control	Pop_Count_1
0088 e403       |    |		Load	0x2,0x3
0089 e5ff       |    |		Load	0x2,-0x1
008a 4800       |H   |		Short_Literal	0x0
008b 800c       |    |		Call	0x0,0xc
008c 00d1       |    |		Pop_Control	Pop_Count_1
008d 00db       |    |		Load_Top	At_Offset_3
008e e5ff       |    |		Load	0x2,-0x1
008f 4800       |H   |		Short_Literal	0x0
0090 8015       |    |		Call	0x0,0x15
0091 00d1       |    |		Pop_Control	Pop_Count_1
0092 00e1       |    |		Load_Encached	Boolean_Cache
0093 e5ff       |    |		Load	0x2,-0x1
0094 e405       |    |		Load	0x2,0x5
0095 e403       |    |		Load	0x2,0x3
0096 e404       |    |		Load	0x2,0x4
0097 e402       |    |		Load	0x2,0x2
0098 e016       |    |		Load	0x0,0x16
0099 e20f       |    |		Load	0x1,0xf
009a 0096       |    |		Execute	Package,Entry
009b 005a       | Z  |		Store_Top	Discrete,At_Offset_2
009c e402       |    |		Load	0x2,0x2
009d e017       |    |		Load	0x0,0x17
009e e20f       |    |		Load	0x1,0xf
009f 0096       |    |		Execute	Package,Entry
00a0 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
00a1 0000 0000  |    |		.BLANK	0000[0x7]
00a8 ; --------------------------------------------------------------------------------------
00a8 ; SUBPROGRAM
00a8 ; --------------------------------------------------------------------------------------
00a8 00c6       |    |		.CONST	0x00c6								; Address of begin
00a9 0004       |    |		.CONST	0x0004								; Address of exception handler
00aa 000d       |    |		.CONST	0x000d								; Number of locals
00ab			INIT_00a8:
00ab e018       |    |		Load	0x0,0x18
00ac 0337       | 7  |		Declare_Variable	Array
00ad e010       |    |		Load	0x0,0x10
00ae 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00af 02c7       |    |		Declare_Variable	Any
00b0 00d8       |    |		Load_Top	At_Offset_0
00b1 1c00       |    |		Execute_Immediate	Run_Utility,0x0
00b2 e011       |    |		Load	0x0,0x11
00b3 0337       | 7  |		Declare_Variable	Array
00b4 e006       |    |		Load	0x0,0x6
00b5 0337       | 7  |		Declare_Variable	Array
00b6 e019       |    |		Load	0x0,0x19
00b7 0337       | 7  |		Declare_Variable	Array
00b8 e01a       |    |		Load	0x0,0x1a
00b9 0337       | 7  |		Declare_Variable	Array
00ba 00e3       |    |		Load_Encached	Natural_Cache
00bb 00e1       |    |		Load_Encached	Boolean_Cache
00bc e006       |    |		Load	0x0,0x6
00bd 0337       | 7  |		Declare_Variable	Array
00be e00d       |    |		Load	0x0,0xd
00bf 00d9       |    |		Load_Top	At_Offset_1
00c0 01d4       |    |		Execute	Vector,Structure_Write
00c1 e004       |    |		Load	0x0,0x4
00c2 0322       | "  |		Declare_Variable	Record
00c3 00e3       |    |		Load_Encached	Natural_Cache
00c4 0628       | (  |		Execute_Immediate	Set_Value_Unchecked,0x28
00c5 00e1       |    |		Load_Encached	Boolean_Cache
00c6			BODY_00a8:
00c6 e407       |    |		Load	0x2,0x7
00c7 e5ff       |    |		Load	0x2,-0x1
00c8 4800       |H   |		Short_Literal	0x0
00c9 800b       |    |		Call	0x0,0xb
00ca 00d1       |    |		Pop_Control	Pop_Count_1
00cb e404       |    |		Load	0x2,0x4
00cc e5ff       |    |		Load	0x2,-0x1
00cd 4801       |H   |		Short_Literal	0x1
00ce 8015       |    |		Call	0x0,0x15
00cf 00d1       |    |		Pop_Control	Pop_Count_1
00d0 e405       |    |		Load	0x2,0x5
00d1 e5ff       |    |		Load	0x2,-0x1
00d2 4801       |H   |		Short_Literal	0x1
00d3 800c       |    |		Call	0x0,0xc
00d4 00d1       |    |		Pop_Control	Pop_Count_1
00d5 e402       |    |		Load	0x2,0x2
00d6 e5ff       |    |		Load	0x2,-0x1
00d7 4802       |H   |		Short_Literal	0x2
00d8 800b       |    |		Call	0x0,0xb
00d9 00d1       |    |		Pop_Control	Pop_Count_1
00da e406       |    |		Load	0x2,0x6
00db e5ff       |    |		Load	0x2,-0x1
00dc 4803       |H   |		Short_Literal	0x3
00dd 800b       |    |		Call	0x0,0xb
00de 00d1       |    |		Pop_Control	Pop_Count_1
00df 00e3       |    |		Load_Encached	Natural_Cache
00e0 e5ff       |    |		Load	0x2,-0x1
00e1 4801       |H   |		Short_Literal	0x1
00e2 801b       |    |		Call	0x0,0x1b
00e3 c408       |    |		Store	0x2,0x8
00e4 00db       |    |		Load_Top	At_Offset_3
00e5 e403       |    |		Load	0x2,0x3
00e6 e013       |    |		Load	0x0,0x13
00e7 e014       |    |		Load	0x0,0x14
00e8 e20f       |    |		Load	0x1,0xf
00e9 0096       |    |		Execute	Package,Entry
00ea c403       |    |		Store	0x2,0x3
00eb 00d1       |    |		Pop_Control	Pop_Count_1
00ec e402       |    |		Load	0x2,0x2
00ed 0092 03c6  |    |		Action	Push_String_Extended,0x3c6					; "serv"
00ef 01df       |    |		Execute	Vector,Equal
00f0 6807       |h   |		Jump_Zero	0xf8
00f1 e406       |    |		Load	0x2,0x6
00f2 e405       |    |		Load	0x2,0x5
00f3 e404       |    |		Load	0x2,0x4
00f4 e403       |    |		Load	0x2,0x3
00f5 e407       |    |		Load	0x2,0x7
00f6 801c       |    |		Call	0x0,0x1c
00f7 a409       |    |		Store_Unchecked	0x2,0x9
00f8 e402       |    |		Load	0x2,0x2
00f9 0092 03c7  |    |		Action	Push_String_Extended,0x3c7					; "filt"
00fb 01df       |    |		Execute	Vector,Equal
00fc 6807       |h   |		Jump_Zero	0x104
00fd e406       |    |		Load	0x2,0x6
00fe e405       |    |		Load	0x2,0x5
00ff e404       |    |		Load	0x2,0x4
0100 e403       |    |		Load	0x2,0x3
0101 e407       |    |		Load	0x2,0x7
0102 801d       |    |		Call	0x0,0x1d
0103 a409       |    |		Store_Unchecked	0x2,0x9
0104 e402       |    |		Load	0x2,0x2
0105 0092 03c8  |    |		Action	Push_String_Extended,0x3c8					; "spy"
0107 01df       |    |		Execute	Vector,Equal
0108 6807       |h   |		Jump_Zero	0x110
0109 e406       |    |		Load	0x2,0x6
010a e405       |    |		Load	0x2,0x5
010b e404       |    |		Load	0x2,0x4
010c e403       |    |		Load	0x2,0x3
010d e407       |    |		Load	0x2,0x7
010e 801e       |    |		Call	0x0,0x1e
010f a409       |    |		Store_Unchecked	0x2,0x9
0110 e409       |    |		Load	0x2,0x9
0111 0f01       |    |		Execute_Immediate	Equal,0x1
0112 6824       |h$  |		Jump_Zero	0x137
0113 0092 03c9  |    |		Action	Push_String_Extended,0x3c9					; "Registration succeeded"
0115 e008       |    |		Load	0x0,0x8
0116 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
0117 00da       |    |		Load_Top	At_Offset_2
0118 0092 03ca  |    |		Action	Push_String_Extended,0x3ca					; "registration was successfull"
011a 0092 03cb  |    |		Action	Push_String_Extended,0x3cb					; "ok  "
011c 0092 03cc  |    |		Action	Push_String_Extended,0x3cc					; "regi"
011e e408       |    |		Load	0x2,0x8
011f 4800       |H   |		Short_Literal	0x0
0120 e01f       |    |		Load	0x0,0x1f
0121 e020       |    |		Load	0x0,0x20
0122 e404       |    |		Load	0x2,0x4
0123 e405       |    |		Load	0x2,0x5
0124 0092 03cd  |    |		Action	Push_String_Extended,0x3cd					; "orb "
0126 8021       | !  |		Call	0x0,0x21
0127 00d1       |    |		Pop_Control	Pop_Count_1
0128 0092 03ce  |    |		Action	Push_String_Extended,0x3ce					; "ORB is going to send the frame :"
012a e008       |    |		Load	0x0,0x8
012b 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
012c 00e1       |    |		Load_Encached	Boolean_Cache
012d 00db       |    |		Load_Top	At_Offset_3
012e 00db       |    |		Load_Top	At_Offset_3
012f e405       |    |		Load	0x2,0x5
0130 e404       |    |		Load	0x2,0x4
0131 e403       |    |		Load	0x2,0x3
0132 e016       |    |		Load	0x0,0x16
0133 e20f       |    |		Load	0x1,0xf
0134 0096       |    |		Execute	Package,Entry
0135 0059       | Y  |		Store_Top	Discrete,At_Offset_1
0136 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0137 0092 03cf  |    |		Action	Push_String_Extended,0x3cf					; "Registration failed"
0139 e008       |    |		Load	0x0,0x8
013a 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
013b 00da       |    |		Load_Top	At_Offset_2
013c 0092 03d0  |    |		Action	Push_String_Extended,0x3d0					; "registration failed"
013e 0092 03d1  |    |		Action	Push_String_Extended,0x3d1					; "fail"
0140 0092 03cc  |    |		Action	Push_String_Extended,0x3cc					; "regi"
0142 e408       |    |		Load	0x2,0x8
0143 4800       |H   |		Short_Literal	0x0
0144 e01f       |    |		Load	0x0,0x1f
0145 e020       |    |		Load	0x0,0x20
0146 e404       |    |		Load	0x2,0x4
0147 e405       |    |		Load	0x2,0x5
0148 0092 03cd  |    |		Action	Push_String_Extended,0x3cd					; "orb "
014a 8021       | !  |		Call	0x0,0x21
014b 00d1       |    |		Pop_Control	Pop_Count_1
014c 0092 03ce  |    |		Action	Push_String_Extended,0x3ce					; "ORB is going to send the frame :"
014e e008       |    |		Load	0x0,0x8
014f 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
0150 00e1       |    |		Load_Encached	Boolean_Cache
0151 00db       |    |		Load_Top	At_Offset_3
0152 00db       |    |		Load_Top	At_Offset_3
0153 e405       |    |		Load	0x2,0x5
0154 e404       |    |		Load	0x2,0x4
0155 e403       |    |		Load	0x2,0x3
0156 e016       |    |		Load	0x0,0x16
0157 e20f       |    |		Load	0x1,0xf
0158 0096       |    |		Execute	Package,Entry
0159 0059       | Y  |		Store_Top	Discrete,At_Offset_1
015a e403       |    |		Load	0x2,0x3
015b e017       |    |		Load	0x0,0x17
015c e20f       |    |		Load	0x1,0xf
015d 0096       |    |		Execute	Package,Entry
015e 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
015f 0000       |    |		.XXX[0x1]
0160 ; --------------------------------------------------------------------------------------
0160 ; SUBPROGRAM
0160 ; --------------------------------------------------------------------------------------
0160 0172       | r  |		.CONST	0x0172								; Address of begin
0161 0004       |    |		.CONST	0x0004								; Address of exception handler
0162 0008       |    |		.CONST	0x0008								; Number of locals
0163			INIT_0160:
0163 e011       |    |		Load	0x0,0x11
0164 0337       | 7  |		Declare_Variable	Array
0165 e006       |    |		Load	0x0,0x6
0166 0337       | 7  |		Declare_Variable	Array
0167 e018       |    |		Load	0x0,0x18
0168 0337       | 7  |		Declare_Variable	Array
0169 00e1       |    |		Load_Encached	Boolean_Cache
016a 00e3       |    |		Load_Encached	Natural_Cache
016b e010       |    |		Load	0x0,0x10
016c 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
016d 02c7       |    |		Declare_Variable	Any
016e 00d8       |    |		Load_Top	At_Offset_0
016f 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0170 e004       |    |		Load	0x0,0x4
0171 0322       | "  |		Declare_Variable	Record
0172			BODY_0160:
0172 e403       |    |		Load	0x2,0x3
0173 e5ff       |    |		Load	0x2,-0x1
0174 4801       |H   |		Short_Literal	0x1
0175 800c       |    |		Call	0x0,0xc
0176 00d1       |    |		Pop_Control	Pop_Count_1
0177 e402       |    |		Load	0x2,0x2
0178 e5ff       |    |		Load	0x2,-0x1
0179 4801       |H   |		Short_Literal	0x1
017a 8015       |    |		Call	0x0,0x15
017b 00d1       |    |		Pop_Control	Pop_Count_1
017c e404       |    |		Load	0x2,0x4
017d e5ff       |    |		Load	0x2,-0x1
017e 4802       |H   |		Short_Literal	0x2
017f 800b       |    |		Call	0x0,0xb
0180 00d1       |    |		Pop_Control	Pop_Count_1
0181 e404       |    |		Load	0x2,0x4
0182 0092 03c6  |    |		Action	Push_String_Extended,0x3c6					; "serv"
0184 01df       |    |		Execute	Vector,Equal
0185 6804       |h   |		Jump_Zero	0x18a
0186 e403       |    |		Load	0x2,0x3
0187 e402       |    |		Load	0x2,0x2
0188 8022       | "  |		Call	0x0,0x22
0189 a405       |    |		Store_Unchecked	0x2,0x5
018a e404       |    |		Load	0x2,0x4
018b 0092 03c7  |    |		Action	Push_String_Extended,0x3c7					; "filt"
018d 01df       |    |		Execute	Vector,Equal
018e 6804       |h   |		Jump_Zero	0x193
018f e403       |    |		Load	0x2,0x3
0190 e402       |    |		Load	0x2,0x2
0191 8023       | #  |		Call	0x0,0x23
0192 a405       |    |		Store_Unchecked	0x2,0x5
0193 e404       |    |		Load	0x2,0x4
0194 0092 03d2  |    |		Action	Push_String_Extended,0x3d2					; "spy "
0196 01df       |    |		Execute	Vector,Equal
0197 6804       |h   |		Jump_Zero	0x19c
0198 e403       |    |		Load	0x2,0x3
0199 e402       |    |		Load	0x2,0x2
019a 8024       | $  |		Call	0x0,0x24
019b a405       |    |		Store_Unchecked	0x2,0x5
019c 00e3       |    |		Load_Encached	Natural_Cache
019d e5ff       |    |		Load	0x2,-0x1
019e 4801       |H   |		Short_Literal	0x1
019f 801b       |    |		Call	0x0,0x1b
01a0 005b       | [  |		Store_Top	Discrete,At_Offset_3
01a1 00db       |    |		Load_Top	At_Offset_3
01a2 7016       |p   |		Jump_Nonzero	0x1b9
01a3 0092 03d3  |    |		Action	Push_String_Extended,0x3d3					; "Unregistration failed"
01a5 e008       |    |		Load	0x0,0x8
01a6 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
01a7 00d8       |    |		Load_Top	At_Offset_0
01a8 0092 03d4  |    |		Action	Push_String_Extended,0x3d4					; "unregistration failed"
01aa 0092 03d1  |    |		Action	Push_String_Extended,0x3d1					; "fail"
01ac 0092 03d5  |    |		Action	Push_String_Extended,0x3d5					; "unre"
01ae e406       |    |		Load	0x2,0x6
01af 4800       |H   |		Short_Literal	0x0
01b0 e01f       |    |		Load	0x0,0x1f
01b1 e020       |    |		Load	0x0,0x20
01b2 e402       |    |		Load	0x2,0x2
01b3 e403       |    |		Load	0x2,0x3
01b4 0092 03cd  |    |		Action	Push_String_Extended,0x3cd					; "orb "
01b6 8021       | !  |		Call	0x0,0x21
01b7 00d1       |    |		Pop_Control	Pop_Count_1
01b8 7815       |x   |		Jump	0x1ce
01b9 0092 03d6  |    |		Action	Push_String_Extended,0x3d6					; "Unregistration succeeded"
01bb e008       |    |		Load	0x0,0x8
01bc 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
01bd 00d8       |    |		Load_Top	At_Offset_0
01be 0092 03d7  |    |		Action	Push_String_Extended,0x3d7					; "unregistration succeded"
01c0 0092 03cb  |    |		Action	Push_String_Extended,0x3cb					; "ok  "
01c2 0092 03d5  |    |		Action	Push_String_Extended,0x3d5					; "unre"
01c4 e406       |    |		Load	0x2,0x6
01c5 4800       |H   |		Short_Literal	0x0
01c6 e01f       |    |		Load	0x0,0x1f
01c7 e020       |    |		Load	0x0,0x20
01c8 e402       |    |		Load	0x2,0x2
01c9 e403       |    |		Load	0x2,0x3
01ca 0092 03cd  |    |		Action	Push_String_Extended,0x3cd					; "orb "
01cc 8021       | !  |		Call	0x0,0x21
01cd 00d1       |    |		Pop_Control	Pop_Count_1
01ce 0092 03ce  |    |		Action	Push_String_Extended,0x3ce					; "ORB is going to send the frame :"
01d0 e008       |    |		Load	0x0,0x8
01d1 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
01d2 00d8       |    |		Load_Top	At_Offset_0
01d3 8210       |    |		Call	0x1,0x10
01d4 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
01d5 0000 0000  |    |		.XXX[0x3]
01d7 0000       |    |
01d8 ; --------------------------------------------------------------------------------------
01d8 ; SUBPROGRAM
01d8 ; --------------------------------------------------------------------------------------
01d8 01f3       |    |		.CONST	0x01f3								; Address of begin
01d9 0004       |    |		.CONST	0x0004								; Address of exception handler
01da 000d       |    |		.CONST	0x000d								; Number of locals
01db			INIT_01d8:
01db e007       |    |		Load	0x0,0x7
01dc 0337       | 7  |		Declare_Variable	Array
01dd e018       |    |		Load	0x0,0x18
01de 0337       | 7  |		Declare_Variable	Array
01df e011       |    |		Load	0x0,0x11
01e0 0337       | 7  |		Declare_Variable	Array
01e1 e006       |    |		Load	0x0,0x6
01e2 0337       | 7  |		Declare_Variable	Array
01e3 e010       |    |		Load	0x0,0x10
01e4 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
01e5 02c7       |    |		Declare_Variable	Any
01e6 00d8       |    |		Load_Top	At_Offset_0
01e7 1c00       |    |		Execute_Immediate	Run_Utility,0x0
01e8 00e1       |    |		Load_Encached	Boolean_Cache
01e9 00e3       |    |		Load_Encached	Natural_Cache
01ea 00e3       |    |		Load_Encached	Natural_Cache
01eb 0628       | (  |		Execute_Immediate	Set_Value_Unchecked,0x28
01ec e006       |    |		Load	0x0,0x6
01ed 0337       | 7  |		Declare_Variable	Array
01ee e011       |    |		Load	0x0,0x11
01ef 0337       | 7  |		Declare_Variable	Array
01f0 e004       |    |		Load	0x0,0x4
01f1 0322       | "  |		Declare_Variable	Record
01f2 00e1       |    |		Load_Encached	Boolean_Cache
01f3			BODY_01d8:
01f3 e402       |    |		Load	0x2,0x2
01f4 e5ff       |    |		Load	0x2,-0x1
01f5 4801       |H   |		Short_Literal	0x1
01f6 800b       |    |		Call	0x0,0xb
01f7 00d1       |    |		Pop_Control	Pop_Count_1
01f8 e403       |    |		Load	0x2,0x3
01f9 e5ff       |    |		Load	0x2,-0x1
01fa 4802       |H   |		Short_Literal	0x2
01fb 800b       |    |		Call	0x0,0xb
01fc 00d1       |    |		Pop_Control	Pop_Count_1
01fd e402       |    |		Load	0x2,0x2
01fe 0092 03d8  |    |		Action	Push_String_Extended,0x3d8					; "rjob"
0200 01df       |    |		Execute	Vector,Equal
0201 6807       |h   |		Jump_Zero	0x209
0202 0092 03ce  |    |		Action	Push_String_Extended,0x3ce					; "ORB is going to send the frame :"
0204 e008       |    |		Load	0x0,0x8
0205 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
0206 e5ff       |    |		Load	0x2,-0x1
0207 8210       |    |		Call	0x1,0x10
0208 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0209 0092 03d9  |    |		Action	Push_String_Extended,0x3d9					; "ORB is going to check if the agent exist"
020b e008       |    |		Load	0x0,0x8
020c 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
020d e404       |    |		Load	0x2,0x4
020e e5ff       |    |		Load	0x2,-0x1
020f 4800       |H   |		Short_Literal	0x0
0210 8015       |    |		Call	0x0,0x15
0211 00d1       |    |		Pop_Control	Pop_Count_1
0212 e405       |    |		Load	0x2,0x5
0213 e5ff       |    |		Load	0x2,-0x1
0214 4800       |H   |		Short_Literal	0x0
0215 800c       |    |		Call	0x0,0xc
0216 00d1       |    |		Pop_Control	Pop_Count_1
0217 00e1       |    |		Load_Encached	Boolean_Cache
0218 e406       |    |		Load	0x2,0x6
0219 0120       |    |		Execute	Any,Is_Value
021a 6803       |h   |		Jump_Zero	0x21e
021b e010       |    |		Load	0x0,0x10
021c 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
021d 7801       |x   |		Jump	0x21f
021e e406       |    |		Load	0x2,0x6
021f e405       |    |		Load	0x2,0x5
0220 e404       |    |		Load	0x2,0x4
0221 e403       |    |		Load	0x2,0x3
0222 e402       |    |		Load	0x2,0x2
0223 8025       | %  |		Call	0x0,0x25
0224 c406       |    |		Store	0x2,0x6
0225 c407       |    |		Store	0x2,0x7
0226 e407       |    |		Load	0x2,0x7
0227 0f01       |    |		Execute_Immediate	Equal,0x1
0228 6842       |hB  |		Jump_Zero	0x26b
0229 0092 03da  |    |		Action	Push_String_Extended,0x3da					; "the agent exist"
022b e008       |    |		Load	0x0,0x8
022c 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
022d 0092 03ce  |    |		Action	Push_String_Extended,0x3ce					; "ORB is going to send the frame :"
022f e008       |    |		Load	0x0,0x8
0230 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
0231 00e1       |    |		Load_Encached	Boolean_Cache
0232 e5ff       |    |		Load	0x2,-0x1
0233 e409       |    |		Load	0x2,0x9
0234 e405       |    |		Load	0x2,0x5
0235 e404       |    |		Load	0x2,0x4
0236 e406       |    |		Load	0x2,0x6
0237 e016       |    |		Load	0x0,0x16
0238 e20f       |    |		Load	0x1,0xf
0239 0096       |    |		Execute	Package,Entry
023a 0059       | Y  |		Store_Top	Discrete,At_Offset_1
023b 00d8       |    |		Load_Top	At_Offset_0
023c 702d       |p-  |		Jump_Nonzero	0x26a
023d 0092 03db  |    |		Action	Push_String_Extended,0x3db					; "ORB cannot connect the agent and set the agent to failure"
023f e008       |    |		Load	0x0,0x8
0240 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
0241 e405       |    |		Load	0x2,0x5
0242 e404       |    |		Load	0x2,0x4
0243 8026       | &  |		Call	0x0,0x26
0244 00db       |    |		Load_Top	At_Offset_3
0245 e5ff       |    |		Load	0x2,-0x1
0246 4801       |H   |		Short_Literal	0x1
0247 800c       |    |		Call	0x0,0xc
0248 00d1       |    |		Pop_Control	Pop_Count_1
0249 00da       |    |		Load_Top	At_Offset_2
024a e5ff       |    |		Load	0x2,-0x1
024b 4801       |H   |		Short_Literal	0x1
024c 8015       |    |		Call	0x0,0x15
024d 00d1       |    |		Pop_Control	Pop_Count_1
024e 00e3       |    |		Load_Encached	Natural_Cache
024f e5ff       |    |		Load	0x2,-0x1
0250 4801       |H   |		Short_Literal	0x1
0251 801b       |    |		Call	0x0,0x1b
0252 c408       |    |		Store	0x2,0x8
0253 00d9       |    |		Load_Top	At_Offset_1
0254 0092 03dc  |    |		Action	Push_String_Extended,0x3dc					; "the agent does not respond"
0256 0092 03d1  |    |		Action	Push_String_Extended,0x3d1					; "fail"
0258 0092 03d8  |    |		Action	Push_String_Extended,0x3d8					; "rjob"
025a e408       |    |		Load	0x2,0x8
025b 4800       |H   |		Short_Literal	0x0
025c e01f       |    |		Load	0x0,0x1f
025d e020       |    |		Load	0x0,0x20
025e e40b       |    |		Load	0x2,0xb
025f e40a       |    |		Load	0x2,0xa
0260 0092 03cd  |    |		Action	Push_String_Extended,0x3cd					; "orb "
0262 8021       | !  |		Call	0x0,0x21
0263 00d1       |    |		Pop_Control	Pop_Count_1
0264 0092 03ce  |    |		Action	Push_String_Extended,0x3ce					; "ORB is going to send the frame :"
0266 e008       |    |		Load	0x0,0x8
0267 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
0268 00d9       |    |		Load_Top	At_Offset_1
0269 8210       |    |		Call	0x1,0x10
026a 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
026b 0092 03dd  |    |		Action	Push_String_Extended,0x3dd					; "the agent do not exist"
026d e008       |    |		Load	0x0,0x8
026e 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
026f 00db       |    |		Load_Top	At_Offset_3
0270 e5ff       |    |		Load	0x2,-0x1
0271 4801       |H   |		Short_Literal	0x1
0272 800c       |    |		Call	0x0,0xc
0273 00d1       |    |		Pop_Control	Pop_Count_1
0274 00da       |    |		Load_Top	At_Offset_2
0275 e5ff       |    |		Load	0x2,-0x1
0276 4801       |H   |		Short_Literal	0x1
0277 8015       |    |		Call	0x0,0x15
0278 00d1       |    |		Pop_Control	Pop_Count_1
0279 00e3       |    |		Load_Encached	Natural_Cache
027a e5ff       |    |		Load	0x2,-0x1
027b 4801       |H   |		Short_Literal	0x1
027c 801b       |    |		Call	0x0,0x1b
027d c408       |    |		Store	0x2,0x8
027e 00d9       |    |		Load_Top	At_Offset_1
027f 0092 03de  |    |		Action	Push_String_Extended,0x3de					; "the agent does not exist"
0281 0092 03d1  |    |		Action	Push_String_Extended,0x3d1					; "fail"
0283 0092 03d8  |    |		Action	Push_String_Extended,0x3d8					; "rjob"
0285 e408       |    |		Load	0x2,0x8
0286 4800       |H   |		Short_Literal	0x0
0287 e01f       |    |		Load	0x0,0x1f
0288 e020       |    |		Load	0x0,0x20
0289 e40b       |    |		Load	0x2,0xb
028a e40a       |    |		Load	0x2,0xa
028b 0092 03cd  |    |		Action	Push_String_Extended,0x3cd					; "orb "
028d 8021       | !  |		Call	0x0,0x21
028e 00d1       |    |		Pop_Control	Pop_Count_1
028f 0092 03df  |    |		Action	Push_String_Extended,0x3df					; "ORB is going to send the frame"
0291 e008       |    |		Load	0x0,0x8
0292 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
0293 00d9       |    |		Load_Top	At_Offset_1
0294 8210       |    |		Call	0x1,0x10
0295 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0296 0000 0000  |    |		.XXX[0x2]
0298 ; --------------------------------------------------------------------------------------
0298 ; SUBPROGRAM
0298 ; --------------------------------------------------------------------------------------
0298 02b8       |    |		.CONST	0x02b8								; Address of begin
0299 0004       |    |		.CONST	0x0004								; Address of exception handler
029a 0010       |    |		.CONST	0x0010								; Number of locals
029b			INIT_0298:
029b e007       |    |		Load	0x0,0x7
029c 0337       | 7  |		Declare_Variable	Array
029d e018       |    |		Load	0x0,0x18
029e 0337       | 7  |		Declare_Variable	Array
029f e010       |    |		Load	0x0,0x10
02a0 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
02a1 02c7       |    |		Declare_Variable	Any
02a2 00d8       |    |		Load_Top	At_Offset_0
02a3 1c00       |    |		Execute_Immediate	Run_Utility,0x0
02a4 e011       |    |		Load	0x0,0x11
02a5 0337       | 7  |		Declare_Variable	Array
02a6 e006       |    |		Load	0x0,0x6
02a7 0337       | 7  |		Declare_Variable	Array
02a8 00e1       |    |		Load_Encached	Boolean_Cache
02a9 00e3       |    |		Load_Encached	Natural_Cache
02aa 0628       | (  |		Execute_Immediate	Set_Value_Unchecked,0x28
02ab 00e1       |    |		Load_Encached	Boolean_Cache
02ac e006       |    |		Load	0x0,0x6
02ad 0337       | 7  |		Declare_Variable	Array
02ae e011       |    |		Load	0x0,0x11
02af 0337       | 7  |		Declare_Variable	Array
02b0 00e3       |    |		Load_Encached	Natural_Cache
02b1 e006       |    |		Load	0x0,0x6
02b2 0337       | 7  |		Declare_Variable	Array
02b3 e011       |    |		Load	0x0,0x11
02b4 0337       | 7  |		Declare_Variable	Array
02b5 e004       |    |		Load	0x0,0x4
02b6 0322       | "  |		Declare_Variable	Record
02b7 00e1       |    |		Load_Encached	Boolean_Cache
02b8			BODY_0298:
02b8 e402       |    |		Load	0x2,0x2
02b9 e5ff       |    |		Load	0x2,-0x1
02ba 4801       |H   |		Short_Literal	0x1
02bb 800b       |    |		Call	0x0,0xb
02bc 00d1       |    |		Pop_Control	Pop_Count_1
02bd e403       |    |		Load	0x2,0x3
02be e5ff       |    |		Load	0x2,-0x1
02bf 4802       |H   |		Short_Literal	0x2
02c0 800b       |    |		Call	0x0,0xb
02c1 00d1       |    |		Pop_Control	Pop_Count_1
02c2 00e1       |    |		Load_Encached	Boolean_Cache
02c3 e406       |    |		Load	0x2,0x6
02c4 e405       |    |		Load	0x2,0x5
02c5 e404       |    |		Load	0x2,0x4
02c6 0120       |    |		Execute	Any,Is_Value
02c7 6803       |h   |		Jump_Zero	0x2cb
02c8 e010       |    |		Load	0x0,0x10
02c9 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
02ca 7801       |x   |		Jump	0x2cc
02cb e404       |    |		Load	0x2,0x4
02cc e403       |    |		Load	0x2,0x3
02cd e402       |    |		Load	0x2,0x2
02ce 8027       | '  |		Call	0x0,0x27
02cf c404       |    |		Store	0x2,0x4
02d0 00d2       |    |		Pop_Control	Pop_Count_2
02d1 0059       | Y  |		Store_Top	Discrete,At_Offset_1
02d2 00d8       |    |		Load_Top	At_Offset_0
02d3 0f01       |    |		Execute_Immediate	Equal,0x1
02d4 6850       |hP  |		Jump_Zero	0x325
02d5 0092 03e0  |    |		Action	Push_String_Extended,0x3e0					; "the service is found"
02d7 e008       |    |		Load	0x0,0x8
02d8 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
02d9 e5ff       |    |		Load	0x2,-0x1
02da e406       |    |		Load	0x2,0x6
02db 4800       |H   |		Short_Literal	0x0
02dc 8028       | (  |		Call	0x0,0x28
02dd 00d1       |    |		Pop_Control	Pop_Count_1
02de e5ff       |    |		Load	0x2,-0x1
02df e405       |    |		Load	0x2,0x5
02e0 4800       |H   |		Short_Literal	0x0
02e1 8029       | )  |		Call	0x0,0x29
02e2 00d1       |    |		Pop_Control	Pop_Count_1
02e3 0092 03ce  |    |		Action	Push_String_Extended,0x3ce					; "ORB is going to send the frame :"
02e5 e008       |    |		Load	0x0,0x8
02e6 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
02e7 e5ff       |    |		Load	0x2,-0x1
02e8 8012       |    |		Call	0x0,0x12
02e9 e008       |    |		Load	0x0,0x8
02ea 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
02eb 00e1       |    |		Load_Encached	Boolean_Cache
02ec e5ff       |    |		Load	0x2,-0x1
02ed e408       |    |		Load	0x2,0x8
02ee e406       |    |		Load	0x2,0x6
02ef e405       |    |		Load	0x2,0x5
02f0 e404       |    |		Load	0x2,0x4
02f1 e016       |    |		Load	0x0,0x16
02f2 e20f       |    |		Load	0x1,0xf
02f3 0096       |    |		Execute	Package,Entry
02f4 c409       |    |		Store	0x2,0x9
02f5 e409       |    |		Load	0x2,0x9
02f6 702d       |p-  |		Jump_Nonzero	0x324
02f7 0092 03db  |    |		Action	Push_String_Extended,0x3db					; "ORB cannot connect the agent and set the agent to failure"
02f9 e008       |    |		Load	0x0,0x8
02fa 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
02fb e406       |    |		Load	0x2,0x6
02fc e405       |    |		Load	0x2,0x5
02fd 8026       | &  |		Call	0x0,0x26
02fe 00db       |    |		Load_Top	At_Offset_3
02ff e5ff       |    |		Load	0x2,-0x1
0300 4801       |H   |		Short_Literal	0x1
0301 800c       |    |		Call	0x0,0xc
0302 00d1       |    |		Pop_Control	Pop_Count_1
0303 00da       |    |		Load_Top	At_Offset_2
0304 e5ff       |    |		Load	0x2,-0x1
0305 4801       |H   |		Short_Literal	0x1
0306 8015       |    |		Call	0x0,0x15
0307 00d1       |    |		Pop_Control	Pop_Count_1
0308 00e3       |    |		Load_Encached	Natural_Cache
0309 e5ff       |    |		Load	0x2,-0x1
030a 4801       |H   |		Short_Literal	0x1
030b 801b       |    |		Call	0x0,0x1b
030c c40c       |    |		Store	0x2,0xc
030d 00d9       |    |		Load_Top	At_Offset_1
030e 0092 03dc  |    |		Action	Push_String_Extended,0x3dc					; "the agent does not respond"
0310 0092 03d1  |    |		Action	Push_String_Extended,0x3d1					; "fail"
0312 0092 03d8  |    |		Action	Push_String_Extended,0x3d8					; "rjob"
0314 e40c       |    |		Load	0x2,0xc
0315 4800       |H   |		Short_Literal	0x0
0316 e01f       |    |		Load	0x0,0x1f
0317 e020       |    |		Load	0x0,0x20
0318 e40e       |    |		Load	0x2,0xe
0319 e40d       |    |		Load	0x2,0xd
031a 0092 03cd  |    |		Action	Push_String_Extended,0x3cd					; "orb "
031c 8021       | !  |		Call	0x0,0x21
031d 00d1       |    |		Pop_Control	Pop_Count_1
031e 0092 03e1  |    |		Action	Push_String_Extended,0x3e1					; "ORB is going to send the frame : "
0320 e008       |    |		Load	0x0,0x8
0321 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
0322 00d9       |    |		Load_Top	At_Offset_1
0323 8210       |    |		Call	0x1,0x10
0324 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0325 0092 03e2  |    |		Action	Push_String_Extended,0x3e2					; "the service is not found"
0327 e008       |    |		Load	0x0,0x8
0328 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
0329 00db       |    |		Load_Top	At_Offset_3
032a e5ff       |    |		Load	0x2,-0x1
032b 4801       |H   |		Short_Literal	0x1
032c 800c       |    |		Call	0x0,0xc
032d 00d1       |    |		Pop_Control	Pop_Count_1
032e 00da       |    |		Load_Top	At_Offset_2
032f e5ff       |    |		Load	0x2,-0x1
0330 4801       |H   |		Short_Literal	0x1
0331 8015       |    |		Call	0x0,0x15
0332 00d1       |    |		Pop_Control	Pop_Count_1
0333 00e3       |    |		Load_Encached	Natural_Cache
0334 e5ff       |    |		Load	0x2,-0x1
0335 4801       |H   |		Short_Literal	0x1
0336 801b       |    |		Call	0x0,0x1b
0337 c40c       |    |		Store	0x2,0xc
0338 00d9       |    |		Load_Top	At_Offset_1
0339 0092 03e3  |    |		Action	Push_String_Extended,0x3e3					; "the service  does not exist"
033b 0092 03d1  |    |		Action	Push_String_Extended,0x3d1					; "fail"
033d 0092 03d8  |    |		Action	Push_String_Extended,0x3d8					; "rjob"
033f e40c       |    |		Load	0x2,0xc
0340 4800       |H   |		Short_Literal	0x0
0341 e01f       |    |		Load	0x0,0x1f
0342 e020       |    |		Load	0x0,0x20
0343 e40e       |    |		Load	0x2,0xe
0344 e40d       |    |		Load	0x2,0xd
0345 0092 03cd  |    |		Action	Push_String_Extended,0x3cd					; "orb "
0347 8021       | !  |		Call	0x0,0x21
0348 00d1       |    |		Pop_Control	Pop_Count_1
0349 0092 03e4  |    |		Action	Push_String_Extended,0x3e4					; "ORB is going to send the _frame :"
034b e008       |    |		Load	0x0,0x8
034c 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
034d 00d9       |    |		Load_Top	At_Offset_1
034e 8210       |    |		Call	0x1,0x10
034f 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0350 ; --------------------------------------------------------------------------------------
0350 ; SUBPROGRAM
0350 ; --------------------------------------------------------------------------------------
0350 0366       | f  |		.CONST	0x0366								; Address of begin
0351 0004       |    |		.CONST	0x0004								; Address of exception handler
0352 0012       |    |		.CONST	0x0012								; Number of locals
0353			INIT_0350:
0353 4800       |H   |		Short_Literal	0x0
0354 02cb       |    |		Declare_Variable	Entry
0355 00bf       |    |		Action	Accept_Activation
0356 e001       |    |		Load	0x0,0x1
0357 0322       | "  |		Declare_Variable	Record
0358 e002       |    |		Load	0x0,0x2
0359 0337       | 7  |		Declare_Variable	Array
035a e003       |    |		Load	0x0,0x3
035b 0337       | 7  |		Declare_Variable	Array
035c 00e1       |    |		Load_Encached	Boolean_Cache
035d 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
035e 480d 4878  |H Hx|		Declare_Variable	Select	0x000, 0x001,
0360 4801 4800  |H H |				[0x001]: 0x000 = 0x0000,
0362 4800 4801  |H H |				[0x00d]: 0x078 = 0x03c0
0364 02cf       |    |
0365 00bc       |    |		Action	Signal_Activated
0366			BODY_0350:
0366 0092 03e5  |    |		Action	Push_String_Extended,0x3e5					; "Demmarrage de la tache Query Manager"
0368 e004       |    |		Load	0x0,0x4
0369 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
036a 00cf       |    |		Action	Mark_Auxiliary
036b 00d9       |    |		Load_Top	At_Offset_1
036c 013f       | ?  |		Execute	Select,Rendezvous
036d 4602       |F   |		Jump_Case	0x3
036e 783f       |x?  |		Jump	0x3ae								; case 0x0
036f 7800       |x   |		Jump	0x370								; case 0x1
0370 8005       |    |		Call	0x0,0x5								; case 0x2
0371 0f01       |    |		Execute_Immediate	Equal,0x1
0372 683b       |h;  |		Jump_Zero	0x3ae
0373 0092 03e6  |    |		Action	Push_String_Extended,0x3e6					; "Query Manager is going to read BAL !!"
0375 e004       |    |		Load	0x0,0x4
0376 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
0377 e20e       |    |		Load	0x1,0xe
0378 8006       |    |		Call	0x0,0x6
0379 00d1       |    |		Pop_Control	Pop_Count_1
037a 00db       |    |		Load_Top	At_Offset_3
037b e20e       |    |		Load	0x1,0xe
037c 4801       |H   |		Short_Literal	0x1
037d 8007       |    |		Call	0x0,0x7
037e 00d1       |    |		Pop_Control	Pop_Count_1
037f 00db       |    |		Load_Top	At_Offset_3
0380 0092 03cc  |    |		Action	Push_String_Extended,0x3cc					; "regi"
0382 01df       |    |		Execute	Vector,Equal
0383 6807       |h   |		Jump_Zero	0x38b
0384 0092 03e7  |    |		Action	Push_String_Extended,0x3e7					; "ORB is going to register an agent"
0386 e004       |    |		Load	0x0,0x4
0387 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
0388 e20e       |    |		Load	0x1,0xe
0389 8008       |    |		Call	0x0,0x8
038a 7823       |x#  |		Jump	0x3ae
038b 00db       |    |		Load_Top	At_Offset_3
038c 0092 03d5  |    |		Action	Push_String_Extended,0x3d5					; "unre"
038e 01df       |    |		Execute	Vector,Equal
038f 6807       |h   |		Jump_Zero	0x397
0390 0092 03e8  |    |		Action	Push_String_Extended,0x3e8					; "ORB is going to unregister an agent"
0392 e004       |    |		Load	0x0,0x4
0393 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
0394 e20e       |    |		Load	0x1,0xe
0395 8009       |    |		Call	0x0,0x9
0396 7817       |x   |		Jump	0x3ae
0397 e20f       |    |		Load	0x1,0xf
0398 e20e       |    |		Load	0x1,0xe
0399 4800       |H   |		Short_Literal	0x0
039a 800a       |    |		Call	0x0,0xa
039b 00d1       |    |		Pop_Control	Pop_Count_1
039c e20f       |    |		Load	0x1,0xf
039d e00b       |    |		Load	0x0,0xb
039e 01df       |    |		Execute	Vector,Equal
039f 6808       |h   |		Jump_Zero	0x3a8
03a0 0092 03e9  |    |		Action	Push_String_Extended,0x3e9					; "ORB is going to find an agent for the service"
03a2 e004       |    |		Load	0x0,0x4
03a3 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
03a4 e20e       |    |		Load	0x1,0xe
03a5 800c       |    |		Call	0x0,0xc
03a6 00d1       |    |		Pop_Control	Pop_Count_1
03a7 7806       |x   |		Jump	0x3ae
03a8 0092 03ea  |    |		Action	Push_String_Extended,0x3ea					; "ORB is going to send the answer"
03aa e004       |    |		Load	0x0,0x4
03ab 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
03ac e20e       |    |		Load	0x1,0xe
03ad 800d       |    |		Call	0x0,0xd
03ae 0092 03eb  |    |		Action	Push_String_Extended,0x3eb					; "The Query Manager is alive"
03b0 e004       |    |		Load	0x0,0x4
03b1 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
03b2 00da       |    |		Load_Top	At_Offset_2
03b3 0f01       |    |		Execute_Immediate	Equal,0x1
03b4 7002       |p   |		Jump_Nonzero	0x3b7
03b5 00c9       |    |		Action	Pop_Auxiliary_Loop
03b6 7fb4       |    |		Jump	0x36b
03b7 00ce       |    |		Action	Pop_Auxiliary
03b8 00bb       |    |		Action	Signal_Completion
03b9 0000 0000  |    |		.BLANK	0000[0x7]
03c0 ; --------------------------------------------------------------------------------------
03c0 ; SUBPROGRAM
03c0 ; See instruction 0x02cf at 0x35e, index=0xd
03c0 ; --------------------------------------------------------------------------------------
03c0 03c3       |    |		.CONST	0x03c3								; Address of begin
03c1 0004       |    |		.CONST	0x0004								; Address of exception handler
03c2 0001       |    |		.CONST	0x0001								; Number of locals
03c3			BODY_03c0:
03c3			INIT_03c0:
03c3 4801       |H   |		Short_Literal	0x1
03c4 a211       |    |		Store_Unchecked	0x1,0x11
03c5 4100       |A   |		End_Rendezvous	0x0
03c6 ; --------------------------------------------------------------------------------------
03c6 ; STRING TABLE
03c6 ; --------------------------------------------------------------------------------------
03c6 004e       | N  |		.STRTAB	0x004e->0x03ed							; "serv"
03c7 0050       | P  |		.STRTAB	0x0050->0x03ef							; "filt"
03c8 0052       | R  |		.STRTAB	0x0052->0x03f1							; "spy"
03c9 0053       | S  |		.STRTAB	0x0053->0x03f2							; "Registration succeeded"
03ca 0067       | g  |		.STRTAB	0x0067->0x03fd							; "registration was successfull"
03cb 0081       |    |		.STRTAB	0x0081->0x040b							; "ok  "
03cc 0083       |    |		.STRTAB	0x0083->0x040d							; "regi"
03cd 0085       |    |		.STRTAB	0x0085->0x040f							; "orb "
03ce 0087       |    |		.STRTAB	0x0087->0x0411							; "ORB is going to send the frame :"
03cf 00a5       |    |		.STRTAB	0x00a5->0x0421							; "Registration failed"
03d0 00b6       |    |		.STRTAB	0x00b6->0x042b							; "registration failed"
03d1 00c7       |    |		.STRTAB	0x00c7->0x0434							; "fail"
03d2 00c9       |    |		.STRTAB	0x00c9->0x0436							; "spy "
03d3 00cb       |    |		.STRTAB	0x00cb->0x0438							; "Unregistration failed"
03d4 00de       |    |		.STRTAB	0x00de->0x0443							; "unregistration failed"
03d5 00f1       |    |		.STRTAB	0x00f1->0x044d							; "unre"
03d6 00f3       |    |		.STRTAB	0x00f3->0x044f							; "Unregistration succeeded"
03d7 0109       |    |		.STRTAB	0x0109->0x045b							; "unregistration succeded"
03d8 011e       |    |		.STRTAB	0x011e->0x0467							; "rjob"
03d9 0120       |    |		.STRTAB	0x0120->0x0469							; "ORB is going to check if the agent exist"
03da 0146       | F  |		.STRTAB	0x0146->0x047d							; "the agent exist"
03db 0153       | S  |		.STRTAB	0x0153->0x0484							; "ORB cannot connect the agent and set the agent to failure"
03dc 018a       |    |		.STRTAB	0x018a->0x04a1							; "the agent does not respond"
03dd 01a2       |    |		.STRTAB	0x01a2->0x04ae							; "the agent do not exist"
03de 01b6       |    |		.STRTAB	0x01b6->0x04b9							; "the agent does not exist"
03df 01cc       |    |		.STRTAB	0x01cc->0x04c5							; "ORB is going to send the frame"
03e0 01e8       |    |		.STRTAB	0x01e8->0x04d4							; "the service is found"
03e1 01fa       |    |		.STRTAB	0x01fa->0x04de							; "ORB is going to send the frame : "
03e2 0219       |    |		.STRTAB	0x0219->0x04ee							; "the service is not found"
03e3 022f       | /  |		.STRTAB	0x022f->0x04fa							; "the service  does not exist"
03e4 0248       | H  |		.STRTAB	0x0248->0x0508							; "ORB is going to send the _frame :"
03e5 0267       | g  |		.STRTAB	0x0267->0x0518							; "Demmarrage de la tache Query Manager"
03e6 0289       |    |		.STRTAB	0x0289->0x052a							; "Query Manager is going to read BAL !!"
03e7 02ac       |    |		.STRTAB	0x02ac->0x053d							; "ORB is going to register an agent"
03e8 02cb       |    |		.STRTAB	0x02cb->0x054d							; "ORB is going to unregister an agent"
03e9 02ec       |    |		.STRTAB	0x02ec->0x055f							; "ORB is going to find an agent for the service"
03ea 0317       |    |		.STRTAB	0x0317->0x0575							; "ORB is going to send the answer"
03eb 0334       | 4  |		.STRTAB	0x0334->0x0585							; "The Query Manager is alive"
03ec 034c       | L  |		.STREND 0x034c->0x0592
03ed 7365 7276  |serv|		.STRTAB_STRINGS
0592 0000 0000  |    |		.BLANK	0000[0x6]
0598 ; --------------------------------------------------------------------------------------
0598 ; Debug Table
0598 ; --------------------------------------------------------------------------------------
0598 0004 000a  |    |		.DEBUG4	0x0004,0x000a,0x7c98,0x0000,0x0001,0x000c
059e 000b 05ce  |    |		.DBG4T	0x000b,0x05ce,0x8000,0x0000
05a2 000e 05d1  |    |		.DBG4T	0x000e,0x05d1,0x8000,0x0000
05a6 004b 05dc  | K  |		.DBG4T	0x004b,0x05dc,0x0001,0x0000
05aa 005b 0000  | [  |		.DBG4T	0x005b,0x0000,0x000b,0x0000
05ae 006b 05df  | k  |		.DBG4T	0x006b,0x05df,0x0001,0x0000
05b2 00ab 05ed  |    |		.DBG4T	0x00ab,0x05ed,0x0001,0x0000
05b6 0163 0612  | c  |		.DBG4T	0x0163,0x0612,0x0001,0x0000
05ba 01db 062c  |   ,|		.DBG4T	0x01db,0x062c,0x0001,0x0000
05be 029b 0657  |   W|		.DBG4T	0x029b,0x0657,0x0001,0x0000
05c2 0353 0682  | S  |		.DBG4T	0x0353,0x0682,0x0000,0x0000
05c6 0356 0685  | V  |		.DBG4T	0x0356,0x0685,0x0000,0x4000
05ca 03c3 06b3  |    |		.DBG4T	0x03c3,0x06b3,0x0003,0x0000
05ce ; --------------------------------------------------------------------------------------
05ce ; Debug chain
05ce ; --------------------------------------------------------------------------------------
05ce 0001 0000  |    |		.DBGLEN	0x0001,0x0000
05d0 000b       |    |		.DBGLNO	0x000b
05d1 ; --------------------------------------------------------------------------------------
05d1 ; Debug chain
05d1 ; --------------------------------------------------------------------------------------
05d1 0009 0000  |    |		.DBGLEN	0x0009,0x0000
05d3 000e 001e  |    |		.DBGLNO	0x000e,0x001e,0x0020,0x0022,0x0024,0x0026,0x0028,0x002e,0x003f
05dc ; --------------------------------------------------------------------------------------
05dc ; Debug chain
05dc ; --------------------------------------------------------------------------------------
05dc 0000 0001  |    |		.DBGLEN	0x0000,0x0001
05de 004b       | K  |		.DBGLNO	0x004b
05df ; --------------------------------------------------------------------------------------
05df ; Debug chain
05df ; --------------------------------------------------------------------------------------
05df 0006 0006  |    |		.DBGLEN	0x0006,0x0006
05e1 006b 0070  | k p|		.DBGLNO	0x006b,0x0070,0x0072,0x0074,0x0076,0x0077,0x007c,0x0080,0x0088,0x008d,0x0092,0x009c
05ed ; --------------------------------------------------------------------------------------
05ed ; Debug chain
05ed ; --------------------------------------------------------------------------------------
05ed 000c 0017  |    |		.DBGLEN	0x000c,0x0017
05ef 00ab 00ad  |    |		.DBGLNO	0x00ab,0x00ad,0x00b2,0x00b4,0x00b6,0x00b8,0x00ba,0x00bb,0x00bc,0x00c1,0x00c3,0x00c5,0x00c6,0x00cb,0x00d0,0x00d5,0x00da,0x00df,0x00e4,0x00ec,0x00f1,0x00f8,0x00fd,0x0104,0x0109,0x0110,0x0113,0x0117,0x0128,0x012c,0x0137,0x013b,0x014c,0x0150,0x015a
0612 ; --------------------------------------------------------------------------------------
0612 ; Debug chain
0612 ; --------------------------------------------------------------------------------------
0612 0007 0011  |    |		.DBGLEN	0x0007,0x0011
0614 0163 0165  | c e|		.DBGLNO	0x0163,0x0165,0x0167,0x0169,0x016a,0x016b,0x0170,0x0172,0x0177,0x017c,0x0181,0x0186,0x018a,0x018f,0x0193,0x0198,0x019c,0x01a1,0x01a3,0x01a7,0x01b9,0x01bd,0x01ce,0x01d2
062c ; --------------------------------------------------------------------------------------
062c ; Debug chain
062c ; --------------------------------------------------------------------------------------
062c 000c 001d  |    |		.DBGLEN	0x000c,0x001d
062e 01db 01dd  |    |		.DBGLNO	0x01db,0x01dd,0x01df,0x01e1,0x01e3,0x01e8,0x01e9,0x01ea,0x01ec,0x01ee,0x01f0,0x01f2,0x01f3,0x01f8,0x01fd,0x0202,0x0206,0x0209,0x020d,0x0212,0x0217,0x0226,0x0229,0x022d,0x0231,0x023b,0x023d,0x0241,0x0244,0x0249,0x024e,0x0253,0x0264,0x0268,0x026b,0x026f,0x0274,0x0279,0x027e,0x028f,0x0293
0657 ; --------------------------------------------------------------------------------------
0657 ; Debug chain
0657 ; --------------------------------------------------------------------------------------
0657 000f 001a  |    |		.DBGLEN	0x000f,0x001a
0659 029b 029d  |    |		.DBGLNO	0x029b,0x029d,0x029f,0x02a4,0x02a6,0x02a8,0x02a9,0x02ab,0x02ac,0x02ae,0x02b0,0x02b1,0x02b3,0x02b5,0x02b7,0x02b8,0x02bd,0x02c2,0x02d2,0x02d5,0x02d9,0x02de,0x02e3,0x02e7,0x02eb,0x02f5,0x02f7,0x02fb,0x02fe,0x0303,0x0308,0x030d,0x031e,0x0322,0x0325,0x0329,0x032e,0x0333,0x0338,0x0349,0x034d
0682 ; --------------------------------------------------------------------------------------
0682 ; Debug chain
0682 ; --------------------------------------------------------------------------------------
0682 0001 0000  |    |		.DBGLEN	0x0001,0x0000
0684 0353       | S  |		.DBGLNO	0x0353
0685 ; --------------------------------------------------------------------------------------
0685 ; Debug chain
0685 ; --------------------------------------------------------------------------------------
0685 0004 0014  |    |		.DBGLEN	0x0004,0x0014
0687 0356 0358  | V X|		.DBGLNO	0x0356,0x0358,0x035a,0x035c,0x0366,0x036b,0x0370,0x0373,0x0377,0x037a,0x037f,0x0384,0x0388,0x038b,0x0390,0x0394,0x0397,0x039c,0x03a0,0x03a4,0x03a8,0x03ac,0x03ae,0x03b2
069f 0001 0003  |    |		.XXX[0x14]
06a1 0005 0006  |    |
06a3 0007 0008  |    |
06a5 0009 000a  |    |
06a7 000b 000c  |    |
06a9 000d 000e  |    |
06ab 000f 0010  |    |
06ad 0011 0012  |    |
06af 0013 0014  |    |
06b1 0015 0016  |    |
06b3 ; --------------------------------------------------------------------------------------
06b3 ; Debug chain
06b3 ; --------------------------------------------------------------------------------------
06b3 0000 0001  |    |		.DBGLEN	0x0000,0x0001
06b5 03c3       |    |		.DBGLNO	0x03c3
06b6 0000 0000  |    |		.BLANK	0000[0x14a]