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

⟦ce9496e7c⟧

    Length: 2048 (0x800)
    Notes: 00_class, 5900_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_0c70ec

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 0210       |    |		.CONST	0x0210								; 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 0001       |    |		.CONST	0x0001								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0010       |    |		.CONST	0x0010								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0001       |    |		.CONST	0x0001								; Number of locals
000b			INIT_0008:
000b 029a 001b  |    |		Declare_Subprogram	INIT_0018,For_Outer_Call,Visible,Unelaborated
000d 00bf       |    |		Action	Accept_Activation
000e 1d0d       |    |		Execute_Immediate	Reference_Lex_1,0xd
000f 00c7       |    |		Action	Elaborate_Subprogram
0010			BODY_0008:
0010 00bc       |    |		Action	Signal_Activated
0011 00bb       |    |		Action	Signal_Completion
0012 0000 0000  |    |		.BLANK	0000[0x6]
0018 ; --------------------------------------------------------------------------------------
0018 ; SUBPROGRAM
0018 ; --------------------------------------------------------------------------------------
0018 0031       | 1  |		.CONST	0x0031								; Address of begin
0019 0004       |    |		.CONST	0x0004								; Address of exception handler
001a 000a       |    |		.CONST	0x000a								; Number of locals
001b			INIT_0018:
001b e002       |    |		Load	0x0,0x2
001c 02ff       |    |		Declare_Variable	Variant_Record
001d 00d8       |    |		Load_Top	At_Offset_0
001e 1c00       |    |		Execute_Immediate	Run_Utility,0x0
001f e003       |    |		Load	0x0,0x3
0020 0007       |    |		Action	Break_Optional
0021 e004       |    |		Load	0x0,0x4
0022 0322       | "  |		Declare_Variable	Record
0023 00d8       |    |		Load_Top	At_Offset_0
0024 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0025 e005       |    |		Load	0x0,0x5
0026 0322       | "  |		Declare_Variable	Record
0027 029f 00a3  |    |		Declare_Subprogram	INIT_00a0,For_Call
0029 029f 00eb  |    |		Declare_Subprogram	INIT_00e8,For_Call
002b 029f 0113  |    |		Declare_Subprogram	INIT_0110,For_Call
002d 029f 013b  |   ;|		Declare_Subprogram	INIT_0138,For_Call
002f 029f 019b  |    |		Declare_Subprogram	INIT_0198,For_Call
0031			BODY_0018:
0031 0092 01ad  |    |		Action	Push_String_Extended,0x1ad					; "Orb Avant  Communication.Init"
0033 e006       |    |		Load	0x0,0x6
0034 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
0035 e003       |    |		Load	0x0,0x3
0036 8007       |    |		Call	0x0,0x7
0037 8008       |    |		Call	0x0,0x8
0038 c403       |    |		Store	0x2,0x3
0039 0092 01ae  |    |		Action	Push_String_Extended,0x1ae					; "Status:"
003b e403       |    |		Load	0x2,0x3
003c e003       |    |		Load	0x0,0x3
003d 011c       |    |		Execute	Any,Convert_Unchecked
003e 1c01       |    |		Execute_Immediate	Run_Utility,0x1
003f 01cc       |    |		Execute	Vector,Catenate
0040 e006       |    |		Load	0x0,0x6
0041 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
0042 0092 01af  |    |		Action	Push_String_Extended,0x1af					; "chanel:"
0044 8009       |    |		Call	0x0,0x9
0045 800a       |    |		Call	0x0,0xa
0046 800b       |    |		Call	0x0,0xb
0047 01cc       |    |		Execute	Vector,Catenate
0048 e006       |    |		Load	0x0,0x6
0049 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
004a e403       |    |		Load	0x2,0x3
004b 6801       |h   |		Jump_Zero	0x4d
004c 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
004d e405       |    |		Load	0x2,0x5
004e 800c       |    |		Call	0x0,0xc
004f 00d1       |    |		Pop_Control	Pop_Count_1
0050 00cf       |    |		Action	Mark_Auxiliary
0051 604a       |`J  |		Indirect_Literal	Discrete,0x9c,{0x00000000, 0x00050000}
0052 00ba       |    |		Action	Initiate_Delay
0053 e003       |    |		Load	0x0,0x3
0054 e402       |    |		Load	0x2,0x2
0055 800d       |    |		Call	0x0,0xd
0056 00d1       |    |		Pop_Control	Pop_Count_1
0057 c403       |    |		Store	0x2,0x3
0058 0092 01b0  |    |		Action	Push_String_Extended,0x1b0					; "resultat:"
005a e402       |    |		Load	0x2,0x2
005b 800b       |    |		Call	0x0,0xb
005c 01cc       |    |		Execute	Vector,Catenate
005d 0092 01b1  |    |		Action	Push_String_Extended,0x1b1					; " status :"
005f 01cc       |    |		Execute	Vector,Catenate
0060 e403       |    |		Load	0x2,0x3
0061 e003       |    |		Load	0x0,0x3
0062 011c       |    |		Execute	Any,Convert_Unchecked
0063 1c01       |    |		Execute_Immediate	Run_Utility,0x1
0064 01cc       |    |		Execute	Vector,Catenate
0065 e006       |    |		Load	0x0,0x6
0066 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
0067 e403       |    |		Load	0x2,0x3
0068 7030       |p0  |		Jump_Nonzero	0x99
0069 e402       |    |		Load	0x2,0x2
006a 800e       |    |		Call	0x0,0xe
006b e404       |    |		Load	0x2,0x4
006c 017d       | }  |		Execute	Record,Structure_Write
006d e404       |    |		Load	0x2,0x4
006e 800f       |    |		Call	0x0,0xf
006f 460b       |F   |		Jump_Case	0xc
0070 7827       |x'  |		Jump	0x98								; case 0x0
0071 780b       |x   |		Jump	0x7d								; case 0x1
0072 7821       |x!  |		Jump	0x94								; case 0x2
0073 7825       |x%  |		Jump	0x99								; case 0x3
0074 7821       |x!  |		Jump	0x96								; case 0x4
0075 781a       |x   |		Jump	0x90								; case 0x5
0076 781b       |x   |		Jump	0x92								; case 0x6
0077 7821       |x!  |		Jump	0x99								; case 0x7
0078 7820       |x   |		Jump	0x99								; case 0x8
0079 781f       |x   |		Jump	0x99								; case 0x9
007a 781e       |x   |		Jump	0x99								; case 0xa
007b 781d       |x   |		Jump	0x99								; case 0xb
007c 781c       |x   |		.XXX[0x1]
007d 0092 01b2  |    |		Action	Push_String_Extended,0x1b2					; "Unregistration"
007f e006       |    |		Load	0x0,0x6
0080 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
0081 e405       |    |		Load	0x2,0x5
0082 e404       |    |		Load	0x2,0x4
0083 8010       |    |		Call	0x0,0x10
0084 8011       |    |		Call	0x0,0x11
0085 00d1       |    |		Pop_Control	Pop_Count_1
0086 0092 01b3  |    |		Action	Push_String_Extended,0x1b3					; " agent "
0088 e404       |    |		Load	0x2,0x4
0089 8010       |    |		Call	0x0,0x10
008a 8012       |    |		Call	0x0,0x12
008b 800b       |    |		Call	0x0,0xb
008c 01cc       |    |		Execute	Vector,Catenate
008d e006       |    |		Load	0x0,0x6
008e 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
008f 7809       |x   |		Jump	0x99
0090 8407       |    |		Call	0x2,0x7
0091 7807       |x   |		Jump	0x99
0092 8408       |    |		Call	0x2,0x8
0093 7805       |x   |		Jump	0x99
0094 8409       |    |		Call	0x2,0x9
0095 7803       |x   |		Jump	0x99
0096 840a       |    |		Call	0x2,0xa
0097 7801       |x   |		Jump	0x99
0098 8406       |    |		Call	0x2,0x6
0099 00c9       |    |		Action	Pop_Auxiliary_Loop
009a 7fb6       |    |		Jump	0x51
009b 0000       |    |		.XXX[0x1]
009c 0000 0000  |    |		.LITERAL	{0x00000000, 0x00050000}
00a0 ; --------------------------------------------------------------------------------------
00a0 ; SUBPROGRAM
00a0 ; --------------------------------------------------------------------------------------
00a0 00a9       |    |		.CONST	0x00a9								; Address of begin
00a1 0004       |    |		.CONST	0x0004								; Address of exception handler
00a2 0003       |    |		.CONST	0x0003								; Number of locals
00a3			INIT_00a0:
00a3 e013       |    |		Load	0x0,0x13
00a4 0322       | "  |		Declare_Variable	Record
00a5 00d8       |    |		Load_Top	At_Offset_0
00a6 1c00       |    |		Execute_Immediate	Run_Utility,0x0
00a7 e014       |    |		Load	0x0,0x14
00a8 0007       |    |		Action	Break_Optional
00a9			BODY_00a0:
00a9 e404       |    |		Load	0x2,0x4
00aa 8015       |    |		Call	0x0,0x15
00ab 8016       |    |		Call	0x0,0x16
00ac 00da       |    |		Load_Top	At_Offset_2
00ad 017d       | }  |		Execute	Record,Structure_Write
00ae 00d8       |    |		Load_Top	At_Offset_0
00af e405       |    |		Load	0x2,0x5
00b0 00db       |    |		Load_Top	At_Offset_3
00b1 8017       |    |		Call	0x0,0x17
00b2 e602       |    |		Load	0x3,0x2
00b3 8018       |    |		Call	0x0,0x18
00b4 8019       |    |		Call	0x0,0x19
00b5 00d1       |    |		Pop_Control	Pop_Count_1
00b6 0059       | Y  |		Store_Top	Discrete,At_Offset_1
00b7 e003       |    |		Load	0x0,0x3
00b8 00da       |    |		Load_Top	At_Offset_2
00b9 8018       |    |		Call	0x0,0x18
00ba 801a       |    |		Call	0x0,0x1a
00bb 00db       |    |		Load_Top	At_Offset_3
00bc 8018       |    |		Call	0x0,0x18
00bd 801b       |    |		Call	0x0,0x1b
00be 801c       |    |		Call	0x0,0x1c
00bf 4800       |H   |		Short_Literal	0x0
00c0 e603       |    |		Load	0x3,0x3
00c1 4804       |H   |		Short_Literal	0x4
00c2 801d       |    |		Call	0x0,0x1d
00c3 801e       |    |		Call	0x0,0x1e
00c4 801f       |    |		Call	0x0,0x1f
00c5 c403       |    |		Store	0x2,0x3
00c6 e403       |    |		Load	0x2,0x3
00c7 7011       |p   |		Jump_Nonzero	0xd9
00c8 0092 01b4  |    |		Action	Push_String_Extended,0x1b4					; "Registration agent "
00ca 00d9       |    |		Load_Top	At_Offset_1
00cb 8012       |    |		Call	0x0,0x12
00cc 800b       |    |		Call	0x0,0xb
00cd 01cc       |    |		Execute	Vector,Catenate
00ce 0092 01b5  |    |		Action	Push_String_Extended,0x1b5					; " Ok : "
00d0 01cc       |    |		Execute	Vector,Catenate
00d1 00da       |    |		Load_Top	At_Offset_2
00d2 8018       |    |		Call	0x0,0x18
00d3 800a       |    |		Call	0x0,0xa
00d4 800b       |    |		Call	0x0,0xb
00d5 01cc       |    |		Execute	Vector,Catenate
00d6 e006       |    |		Load	0x0,0x6
00d7 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
00d8 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
00d9 0092 01b6  |    |		Action	Push_String_Extended,0x1b6					; "Erreur registration agent "
00db 00da       |    |		Load_Top	At_Offset_2
00dc 8018       |    |		Call	0x0,0x18
00dd 800a       |    |		Call	0x0,0xa
00de 800b       |    |		Call	0x0,0xb
00df 01cc       |    |		Execute	Vector,Catenate
00e0 e006       |    |		Load	0x0,0x6
00e1 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
00e2 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
00e3 0000 0000  |    |		.BLANK	0000[0x5]
00e8 ; --------------------------------------------------------------------------------------
00e8 ; SUBPROGRAM
00e8 ; --------------------------------------------------------------------------------------
00e8 00ef       |    |		.CONST	0x00ef								; Address of begin
00e9 0004       |    |		.CONST	0x0004								; Address of exception handler
00ea 0002       |    |		.CONST	0x0002								; Number of locals
00eb			INIT_00e8:
00eb e020       |    |		Load	0x0,0x20
00ec 0322       | "  |		Declare_Variable	Record
00ed 00d8       |    |		Load_Top	At_Offset_0
00ee 1c00       |    |		Execute_Immediate	Run_Utility,0x0
00ef			BODY_00e8:
00ef e404       |    |		Load	0x2,0x4
00f0 8015       |    |		Call	0x0,0x15
00f1 8021       | !  |		Call	0x0,0x21
00f2 00d9       |    |		Load_Top	At_Offset_1
00f3 017d       | }  |		Execute	Record,Structure_Write
00f4 e405       |    |		Load	0x2,0x5
00f5 00d9       |    |		Load_Top	At_Offset_1
00f6 8022       | "  |		Call	0x0,0x22
00f7 00da       |    |		Load_Top	At_Offset_2
00f8 8023       | #  |		Call	0x0,0x23
00f9 e404       |    |		Load	0x2,0x4
00fa 8010       |    |		Call	0x0,0x10
00fb 8024       | $  |		Call	0x0,0x24
00fc 00d1       |    |		Pop_Control	Pop_Count_1
00fd 0092 01b7  |    |		Action	Push_String_Extended,0x1b7					; "Publication agent "
00ff e404       |    |		Load	0x2,0x4
0100 8010       |    |		Call	0x0,0x10
0101 8012       |    |		Call	0x0,0x12
0102 800b       |    |		Call	0x0,0xb
0103 01cc       |    |		Execute	Vector,Catenate
0104 0092 01b5  |    |		Action	Push_String_Extended,0x1b5					; " Ok : "
0106 01cc       |    |		Execute	Vector,Catenate
0107 00d9       |    |		Load_Top	At_Offset_1
0108 8023       | #  |		Call	0x0,0x23
0109 800b       |    |		Call	0x0,0xb
010a 01cc       |    |		Execute	Vector,Catenate
010b e006       |    |		Load	0x0,0x6
010c 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
010d 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
010e 0000 0000  |    |		.XXX[0x2]
0110 ; --------------------------------------------------------------------------------------
0110 ; SUBPROGRAM
0110 ; --------------------------------------------------------------------------------------
0110 0117       |    |		.CONST	0x0117								; Address of begin
0111 0004       |    |		.CONST	0x0004								; Address of exception handler
0112 0002       |    |		.CONST	0x0002								; Number of locals
0113			INIT_0110:
0113 e020       |    |		Load	0x0,0x20
0114 0322       | "  |		Declare_Variable	Record
0115 00d8       |    |		Load_Top	At_Offset_0
0116 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0117			BODY_0110:
0117 0092 01b8  |    |		Action	Push_String_Extended,0x1b8					; "Unpublication"
0119 e006       |    |		Load	0x0,0x6
011a 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
011b e404       |    |		Load	0x2,0x4
011c 8015       |    |		Call	0x0,0x15
011d 8021       | !  |		Call	0x0,0x21
011e 00d9       |    |		Load_Top	At_Offset_1
011f 017d       | }  |		Execute	Record,Structure_Write
0120 e405       |    |		Load	0x2,0x5
0121 00d9       |    |		Load_Top	At_Offset_1
0122 8023       | #  |		Call	0x0,0x23
0123 e404       |    |		Load	0x2,0x4
0124 8010       |    |		Call	0x0,0x10
0125 8025       | %  |		Call	0x0,0x25
0126 00d1       |    |		Pop_Control	Pop_Count_1
0127 0092 01b3  |    |		Action	Push_String_Extended,0x1b3					; " agent "
0129 e404       |    |		Load	0x2,0x4
012a 8010       |    |		Call	0x0,0x10
012b 8012       |    |		Call	0x0,0x12
012c 800b       |    |		Call	0x0,0xb
012d 01cc       |    |		Execute	Vector,Catenate
012e 0092 01b5  |    |		Action	Push_String_Extended,0x1b5					; " Ok : "
0130 01cc       |    |		Execute	Vector,Catenate
0131 00d9       |    |		Load_Top	At_Offset_1
0132 8023       | #  |		Call	0x0,0x23
0133 800b       |    |		Call	0x0,0xb
0134 01cc       |    |		Execute	Vector,Catenate
0135 e006       |    |		Load	0x0,0x6
0136 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
0137 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0138 ; --------------------------------------------------------------------------------------
0138 ; SUBPROGRAM
0138 ; --------------------------------------------------------------------------------------
0138 014a       | J  |		.CONST	0x014a								; Address of begin
0139 0004       |    |		.CONST	0x0004								; Address of exception handler
013a 0007       |    |		.CONST	0x0007								; Number of locals
013b			INIT_0138:
013b e026       | &  |		Load	0x0,0x26
013c 0322       | "  |		Declare_Variable	Record
013d e027       | '  |		Load	0x0,0x27
013e 0322       | "  |		Declare_Variable	Record
013f 00d8       |    |		Load_Top	At_Offset_0
0140 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0141 e028       | (  |		Load	0x0,0x28
0142 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
0143 00e1       |    |		Load_Encached	Boolean_Cache
0144 e028       | (  |		Load	0x0,0x28
0145 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
0146 e002       |    |		Load	0x0,0x2
0147 02ff       |    |		Declare_Variable	Variant_Record
0148 00d8       |    |		Load_Top	At_Offset_0
0149 1c00       |    |		Execute_Immediate	Run_Utility,0x0
014a			BODY_0138:
014a e404       |    |		Load	0x2,0x4
014b 8015       |    |		Call	0x0,0x15
014c 8029       | )  |		Call	0x0,0x29
014d e603       |    |		Load	0x3,0x3
014e 017d       | }  |		Execute	Record,Structure_Write
014f e028       | (  |		Load	0x0,0x28
0150 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
0151 e028       | (  |		Load	0x0,0x28
0152 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0153 c604       |    |		Store	0x3,0x4
0154 00e1       |    |		Load_Encached	Boolean_Cache
0155 00d9       |    |		Load_Top	At_Offset_1
0156 e028       | (  |		Load	0x0,0x28
0157 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
0158 e405       |    |		Load	0x2,0x5
0159 e603       |    |		Load	0x3,0x3
015a 802a       | *  |		Call	0x0,0x2a
015b 802b       | +  |		Call	0x0,0x2b
015c 00d1       |    |		Pop_Control	Pop_Count_1
015d c604       |    |		Store	0x3,0x4
015e 00d1       |    |		Pop_Control	Pop_Count_1
015f 005b       | [  |		Store_Top	Discrete,At_Offset_3
0160 00da       |    |		Load_Top	At_Offset_2
0161 681d       |h   |		Jump_Zero	0x17f
0162 e028       | (  |		Load	0x0,0x28
0163 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
0164 e604       |    |		Load	0x3,0x4
0165 e028       | (  |		Load	0x0,0x28
0166 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
0167 003a       | :  |		Store_Top	Access,At_Offset_2
0168 e602       |    |		Load	0x3,0x2
0169 e405       |    |		Load	0x2,0x5
016a 00db       |    |		Load_Top	At_Offset_3
016b e028       | (  |		Load	0x0,0x28
016c 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
016d 802c       | ,  |		Call	0x0,0x2c
016e 00d2       |    |		Pop_Control	Pop_Count_2
016f e404       |    |		Load	0x2,0x4
0170 00da       |    |		Load_Top	At_Offset_2
0171 e028       | (  |		Load	0x0,0x28
0172 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0173 802d       | -  |		Call	0x0,0x2d
0174 00d1       |    |		Pop_Control	Pop_Count_1
0175 e003       |    |		Load	0x0,0x3
0176 e602       |    |		Load	0x3,0x2
0177 801a       |    |		Call	0x0,0x1a
0178 e602       |    |		Load	0x3,0x2
0179 801b       |    |		Call	0x0,0x1b
017a e404       |    |		Load	0x2,0x4
017b 801e       |    |		Call	0x0,0x1e
017c 801f       |    |		Call	0x0,0x1f
017d c403       |    |		Store	0x2,0x3
017e 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
017f e602       |    |		Load	0x3,0x2
0180 e405       |    |		Load	0x2,0x5
0181 e404       |    |		Load	0x2,0x4
0182 8010       |    |		Call	0x0,0x10
0183 802c       | ,  |		Call	0x0,0x2c
0184 00d2       |    |		Pop_Control	Pop_Count_2
0185 e404       |    |		Load	0x2,0x4
0186 480b       |H   |		Short_Literal	0xb
0187 802e       | .  |		Call	0x0,0x2e
0188 00d1       |    |		Pop_Control	Pop_Count_1
0189 e003       |    |		Load	0x0,0x3
018a e602       |    |		Load	0x3,0x2
018b 801a       |    |		Call	0x0,0x1a
018c e602       |    |		Load	0x3,0x2
018d 801b       |    |		Call	0x0,0x1b
018e e404       |    |		Load	0x2,0x4
018f 801e       |    |		Call	0x0,0x1e
0190 801f       |    |		Call	0x0,0x1f
0191 c403       |    |		Store	0x2,0x3
0192 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0193 0000 0000  |    |		.BLANK	0000[0x5]
0198 ; --------------------------------------------------------------------------------------
0198 ; SUBPROGRAM
0198 ; --------------------------------------------------------------------------------------
0198 019d       |    |		.CONST	0x019d								; Address of begin
0199 0004       |    |		.CONST	0x0004								; Address of exception handler
019a 0002       |    |		.CONST	0x0002								; Number of locals
019b			INIT_0198:
019b e026       | &  |		Load	0x0,0x26
019c 0322       | "  |		Declare_Variable	Record
019d			BODY_0198:
019d 00d8       |    |		Load_Top	At_Offset_0
019e e405       |    |		Load	0x2,0x5
019f e404       |    |		Load	0x2,0x4
01a0 802f       | /  |		Call	0x0,0x2f
01a1 802c       | ,  |		Call	0x0,0x2c
01a2 00d2       |    |		Pop_Control	Pop_Count_2
01a3 e003       |    |		Load	0x0,0x3
01a4 00d9       |    |		Load_Top	At_Offset_1
01a5 801a       |    |		Call	0x0,0x1a
01a6 00da       |    |		Load_Top	At_Offset_2
01a7 801b       |    |		Call	0x0,0x1b
01a8 e404       |    |		Load	0x2,0x4
01a9 801e       |    |		Call	0x0,0x1e
01aa 801f       |    |		Call	0x0,0x1f
01ab c403       |    |		Store	0x2,0x3
01ac 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
01ad ; --------------------------------------------------------------------------------------
01ad ; STRING TABLE
01ad ; --------------------------------------------------------------------------------------
01ad 001a       |    |		.STRTAB	0x001a->0x01ba							; "Orb Avant  Communication.Init"
01ae 0035       | 5  |		.STRTAB	0x0035->0x01c8							; "Status:"
01af 003a       | :  |		.STRTAB	0x003a->0x01cc							; "chanel:"
01b0 003f       | ?  |		.STRTAB	0x003f->0x01cf							; "resultat:"
01b1 0046       | F  |		.STRTAB	0x0046->0x01d4							; " status :"
01b2 004d       | M  |		.STRTAB	0x004d->0x01d8							; "Unregistration"
01b3 0059       | Y  |		.STRTAB	0x0059->0x01df							; " agent "
01b4 005e       | ^  |		.STRTAB	0x005e->0x01e3							; "Registration agent "
01b5 006f       | o  |		.STRTAB	0x006f->0x01ec							; " Ok : "
01b6 0073       | s  |		.STRTAB	0x0073->0x01ef							; "Erreur registration agent "
01b7 008b       |    |		.STRTAB	0x008b->0x01fc							; "Publication agent "
01b8 009b       |    |		.STRTAB	0x009b->0x0205							; "Unpublication"
01b9 00a6       |    |		.STREND 0x00a6->0x020c
01ba 4f72 6220  |Orb |		.STRTAB_STRINGS
020c 0000 0000  |    |		.BLANK	0000[0x4]
0210 ; --------------------------------------------------------------------------------------
0210 ; Debug Table
0210 ; --------------------------------------------------------------------------------------
0210 0004 000a  |    |		.DEBUG4	0x0004,0x000a,0x8d99,0x0000,0x0001,0x0007
0216 000b 0000  |    |		.DBG4T	0x000b,0x0000,0x8000,0x0000
021a 001b 0232  |   2|		.DBG4T	0x001b,0x0232,0x8001,0x4000
021e 00a3 0262  |   b|		.DBG4T	0x00a3,0x0262,0x0004,0x0000
0222 00eb 026c  |   l|		.DBG4T	0x00eb,0x026c,0x0004,0x0000
0226 0113 0272  |   r|		.DBG4T	0x0113,0x0272,0x0004,0x0000
022a 013b 0279  | ; y|		.DBG4T	0x013b,0x0279,0x0004,0x0000
022e 019b 028c  |    |		.DBG4T	0x019b,0x028c,0x0004,0x0000
0232 ; --------------------------------------------------------------------------------------
0232 ; Debug chain
0232 ; --------------------------------------------------------------------------------------
0232 0004 0015  |    |		.DBGLEN	0x0004,0x0015
0234 001b 001f  |    |		.DBGLNO	0x001b,0x001f,0x0021,0x0025,0x0031,0x0035,0x0039,0x0042,0x004a,0x004c,0x004d,0x0051,0x0053,0x0058,0x0067,0x0069,0x006d,0x007d,0x0081,0x0086,0x0090,0x0092,0x0094,0x0096,0x0098
024d 0001 0002  |    |		.XXX[0x15]
024f 0003 0004  |    |
0251 0005 0006  |    |
0253 0007 0009  |    |
0255 000a 000b  |    |
0257 000c 000d  |    |
0259 000e 0010  |    |
025b 0011 0012  |    |
025d 0013 0014  |    |
025f 0015 0016  |    |
0261 000f       |    |
0262 ; --------------------------------------------------------------------------------------
0262 ; Debug chain
0262 ; --------------------------------------------------------------------------------------
0262 0002 0006  |    |		.DBGLEN	0x0002,0x0006
0264 00a3 00a7  |    |		.DBGLNO	0x00a3,0x00a7,0x00a9,0x00ae,0x00b7,0x00c6,0x00c8,0x00d9
026c ; --------------------------------------------------------------------------------------
026c ; Debug chain
026c ; --------------------------------------------------------------------------------------
026c 0001 0003  |    |		.DBGLEN	0x0001,0x0003
026e 00eb 00ef  |    |		.DBGLNO	0x00eb,0x00ef,0x00f4,0x00fd
0272 ; --------------------------------------------------------------------------------------
0272 ; Debug chain
0272 ; --------------------------------------------------------------------------------------
0272 0001 0004  |    |		.DBGLEN	0x0001,0x0004
0274 0113 0117  |    |		.DBGLNO	0x0113,0x0117,0x011b,0x0120,0x0127
0279 ; --------------------------------------------------------------------------------------
0279 ; Debug chain
0279 ; --------------------------------------------------------------------------------------
0279 0006 000b  |    |		.DBGLEN	0x0006,0x000b
027b 013b 013d  | ; =|		.DBGLNO	0x013b,0x013d,0x0141,0x0143,0x0144,0x0146,0x014a,0x014f,0x0154,0x0160,0x0162,0x0168,0x016f,0x0175,0x017f,0x0185,0x0189
028c ; --------------------------------------------------------------------------------------
028c ; Debug chain
028c ; --------------------------------------------------------------------------------------
028c 0001 0002  |    |		.DBGLEN	0x0001,0x0002
028e 019b 019d  |    |		.DBGLNO	0x019b,0x019d,0x01a3
0291 0000 0000  |    |		.BLANK	0000[0x16f]