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

⟦0f6f7698e⟧

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

Derivation

└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
    └─ ⟦5a81ac88f⟧ »Space Info Vol 1« 
        └─⟦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 0230       | 0  |		.CONST	0x0230								; 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 002c       | ,  |		.CONST	0x002c								; Address of begin
0019 0004       |    |		.CONST	0x0004								; Address of exception handler
001a 0007       |    |		.CONST	0x0007								; Number of locals
001b			INIT_0018:
001b 4801       |H   |		Short_Literal	0x1
001c 4807       |H   |		Short_Literal	0x7
001d e002       |    |		Load	0x0,0x2
001e 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
001f 035b       | [  |		Declare_Type	Array,Constrained
0020 0337       | 7  |		Declare_Variable	Array
0021 e003       |    |		Load	0x0,0x3
0022 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0023 02c7       |    |		Declare_Variable	Any
0024 00d8       |    |		Load_Top	At_Offset_0
0025 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0026 e004       |    |		Load	0x0,0x4
0027 0337       | 7  |		Declare_Variable	Array
0028 e005       |    |		Load	0x0,0x5
0029 0337       | 7  |		Declare_Variable	Array
002a 00e1       |    |		Load_Encached	Boolean_Cache
002b 00e1       |    |		Load_Encached	Boolean_Cache
002c			BODY_0018:
002c 0092 01a9  |    |		Action	Push_String_Extended,0x1a9					; "Bonjour le Monde !!!"
002e e006       |    |		Load	0x0,0x6
002f 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
0030 0092 01aa  |    |		Action	Push_String_Extended,0x1aa					; "Hello"
0032 e006       |    |		Load	0x0,0x6
0033 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
0034 0092 01ab  |    |		Action	Push_String_Extended,0x1ab					; "ask_agent_to_test"
0036 e006       |    |		Load	0x0,0x6
0037 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
0038 0092 01ac  |    |		Action	Push_String_Extended,0x1ac					; "0001FBAL0005PROGMNGRRALRDRMIBOIR"
003a 4821       |H!  |		Short_Literal	0x21
003b 4900       |I   |		Short_Literal	0x100
003c 00e9       |    |		Load_Encached	String_Cache
003d 035b       | [  |		Declare_Type	Array,Constrained
003e 0337       | 7  |		Declare_Variable	Array
003f 4900       |I   |		Short_Literal	0x100
0040 4821       |H!  |		Short_Literal	0x21
0041 482a       |H*  |		Short_Literal	0x2a
0042 00d9       |    |		Load_Top	At_Offset_1
0043 e409       |    |		Load	0x2,0x9
0044 01d6       |    |		Execute	Vector,Field_Write
0045 3ffb       |?   |		Loop_Increasing	0x41
0046 01cc       |    |		Execute	Vector,Catenate
0047 e007       |    |		Load	0x0,0x7
0048 01c3       |    |		Execute	Vector,Check_In_Type
0049 e008       |    |		Load	0x0,0x8
004a e004       |    |		Load	0x0,0x4
004b 0337       | 7  |		Declare_Variable	Array
004c 487b       |H{  |		Short_Literal	0x7b
004d 4801       |H   |		Short_Literal	0x1
004e 00da       |    |		Load_Top	At_Offset_2
004f 01d6       |    |		Execute	Vector,Field_Write
0050 482d       |H-  |		Short_Literal	0x2d
0051 4802       |H   |		Short_Literal	0x2
0052 00da       |    |		Load_Top	At_Offset_2
0053 01d6       |    |		Execute	Vector,Field_Write
0054 4843       |HC  |		Short_Literal	0x43
0055 4803       |H   |		Short_Literal	0x3
0056 00da       |    |		Load_Top	At_Offset_2
0057 01d6       |    |		Execute	Vector,Field_Write
0058 4859       |HY  |		Short_Literal	0x59
0059 4804       |H   |		Short_Literal	0x4
005a 00da       |    |		Load_Top	At_Offset_2
005b 01d6       |    |		Execute	Vector,Field_Write
005c e004       |    |		Load	0x0,0x4
005d 01c3       |    |		Execute	Vector,Check_In_Type
005e e003       |    |		Load	0x0,0x3
005f 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0060 0092 01ad  |    |		Action	Push_String_Extended,0x1ad					; "Boboulet"
0062 e009       |    |		Load	0x0,0x9
0063 01c3       |    |		Execute	Vector,Check_In_Type
0064 800a       |    |		Call	0x0,0xa
0065 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
0066 0092 01ae  |    |		Action	Push_String_Extended,0x1ae					; "0001FBOB0005PROGMNGRRALRDRMIBOIR"
0068 4821       |H!  |		Short_Literal	0x21
0069 4900       |I   |		Short_Literal	0x100
006a 00e9       |    |		Load_Encached	String_Cache
006b 035b       | [  |		Declare_Type	Array,Constrained
006c 0337       | 7  |		Declare_Variable	Array
006d 4900       |I   |		Short_Literal	0x100
006e 4821       |H!  |		Short_Literal	0x21
006f 482a       |H*  |		Short_Literal	0x2a
0070 00d9       |    |		Load_Top	At_Offset_1
0071 e409       |    |		Load	0x2,0x9
0072 01d6       |    |		Execute	Vector,Field_Write
0073 3ffb       |?   |		Loop_Increasing	0x6f
0074 01cc       |    |		Execute	Vector,Catenate
0075 e007       |    |		Load	0x0,0x7
0076 01c3       |    |		Execute	Vector,Check_In_Type
0077 e008       |    |		Load	0x0,0x8
0078 e004       |    |		Load	0x0,0x4
0079 0337       | 7  |		Declare_Variable	Array
007a 487b       |H{  |		Short_Literal	0x7b
007b 4801       |H   |		Short_Literal	0x1
007c 00da       |    |		Load_Top	At_Offset_2
007d 01d6       |    |		Execute	Vector,Field_Write
007e 482d       |H-  |		Short_Literal	0x2d
007f 4802       |H   |		Short_Literal	0x2
0080 00da       |    |		Load_Top	At_Offset_2
0081 01d6       |    |		Execute	Vector,Field_Write
0082 4843       |HC  |		Short_Literal	0x43
0083 4803       |H   |		Short_Literal	0x3
0084 00da       |    |		Load_Top	At_Offset_2
0085 01d6       |    |		Execute	Vector,Field_Write
0086 4859       |HY  |		Short_Literal	0x59
0087 4804       |H   |		Short_Literal	0x4
0088 00da       |    |		Load_Top	At_Offset_2
0089 01d6       |    |		Execute	Vector,Field_Write
008a e004       |    |		Load	0x0,0x4
008b 01c3       |    |		Execute	Vector,Check_In_Type
008c e003       |    |		Load	0x0,0x3
008d 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
008e 0092 01ad  |    |		Action	Push_String_Extended,0x1ad					; "Boboulet"
0090 e009       |    |		Load	0x0,0x9
0091 01c3       |    |		Execute	Vector,Check_In_Type
0092 800a       |    |		Call	0x0,0xa
0093 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
0094 0092 01af  |    |		Action	Push_String_Extended,0x1af					; "0001FLES0005PROGMNGRRALRDRMIBOIR"
0096 4821       |H!  |		Short_Literal	0x21
0097 4900       |I   |		Short_Literal	0x100
0098 00e9       |    |		Load_Encached	String_Cache
0099 035b       | [  |		Declare_Type	Array,Constrained
009a 0337       | 7  |		Declare_Variable	Array
009b 4900       |I   |		Short_Literal	0x100
009c 4821       |H!  |		Short_Literal	0x21
009d 482a       |H*  |		Short_Literal	0x2a
009e 00d9       |    |		Load_Top	At_Offset_1
009f e409       |    |		Load	0x2,0x9
00a0 01d6       |    |		Execute	Vector,Field_Write
00a1 3ffb       |?   |		Loop_Increasing	0x9d
00a2 01cc       |    |		Execute	Vector,Catenate
00a3 e007       |    |		Load	0x0,0x7
00a4 01c3       |    |		Execute	Vector,Check_In_Type
00a5 e008       |    |		Load	0x0,0x8
00a6 e004       |    |		Load	0x0,0x4
00a7 0337       | 7  |		Declare_Variable	Array
00a8 487b       |H{  |		Short_Literal	0x7b
00a9 4801       |H   |		Short_Literal	0x1
00aa 00da       |    |		Load_Top	At_Offset_2
00ab 01d6       |    |		Execute	Vector,Field_Write
00ac 482d       |H-  |		Short_Literal	0x2d
00ad 4802       |H   |		Short_Literal	0x2
00ae 00da       |    |		Load_Top	At_Offset_2
00af 01d6       |    |		Execute	Vector,Field_Write
00b0 4843       |HC  |		Short_Literal	0x43
00b1 4803       |H   |		Short_Literal	0x3
00b2 00da       |    |		Load_Top	At_Offset_2
00b3 01d6       |    |		Execute	Vector,Field_Write
00b4 4859       |HY  |		Short_Literal	0x59
00b5 4804       |H   |		Short_Literal	0x4
00b6 00da       |    |		Load_Top	At_Offset_2
00b7 01d6       |    |		Execute	Vector,Field_Write
00b8 e004       |    |		Load	0x0,0x4
00b9 01c3       |    |		Execute	Vector,Check_In_Type
00ba e003       |    |		Load	0x0,0x3
00bb 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
00bc 0092 01ad  |    |		Action	Push_String_Extended,0x1ad					; "Boboulet"
00be e009       |    |		Load	0x0,0x9
00bf 01c3       |    |		Execute	Vector,Check_In_Type
00c0 800a       |    |		Call	0x0,0xa
00c1 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
00c2 0092 01ae  |    |		Action	Push_String_Extended,0x1ae					; "0001FBOB0005PROGMNGRRALRDRMIBOIR"
00c4 4821       |H!  |		Short_Literal	0x21
00c5 4900       |I   |		Short_Literal	0x100
00c6 00e9       |    |		Load_Encached	String_Cache
00c7 035b       | [  |		Declare_Type	Array,Constrained
00c8 0337       | 7  |		Declare_Variable	Array
00c9 4900       |I   |		Short_Literal	0x100
00ca 4821       |H!  |		Short_Literal	0x21
00cb 482a       |H*  |		Short_Literal	0x2a
00cc 00d9       |    |		Load_Top	At_Offset_1
00cd e409       |    |		Load	0x2,0x9
00ce 01d6       |    |		Execute	Vector,Field_Write
00cf 3ffb       |?   |		Loop_Increasing	0xcb
00d0 01cc       |    |		Execute	Vector,Catenate
00d1 e007       |    |		Load	0x0,0x7
00d2 01c3       |    |		Execute	Vector,Check_In_Type
00d3 e008       |    |		Load	0x0,0x8
00d4 e004       |    |		Load	0x0,0x4
00d5 0337       | 7  |		Declare_Variable	Array
00d6 487b       |H{  |		Short_Literal	0x7b
00d7 4801       |H   |		Short_Literal	0x1
00d8 00da       |    |		Load_Top	At_Offset_2
00d9 01d6       |    |		Execute	Vector,Field_Write
00da 482d       |H-  |		Short_Literal	0x2d
00db 4802       |H   |		Short_Literal	0x2
00dc 00da       |    |		Load_Top	At_Offset_2
00dd 01d6       |    |		Execute	Vector,Field_Write
00de 4843       |HC  |		Short_Literal	0x43
00df 4803       |H   |		Short_Literal	0x3
00e0 00da       |    |		Load_Top	At_Offset_2
00e1 01d6       |    |		Execute	Vector,Field_Write
00e2 4859       |HY  |		Short_Literal	0x59
00e3 4804       |H   |		Short_Literal	0x4
00e4 00da       |    |		Load_Top	At_Offset_2
00e5 01d6       |    |		Execute	Vector,Field_Write
00e6 e004       |    |		Load	0x0,0x4
00e7 01c3       |    |		Execute	Vector,Check_In_Type
00e8 e003       |    |		Load	0x0,0x3
00e9 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
00ea 0092 01ad  |    |		Action	Push_String_Extended,0x1ad					; "Boboulet"
00ec e009       |    |		Load	0x0,0x9
00ed 01c3       |    |		Execute	Vector,Check_In_Type
00ee 800b       |    |		Call	0x0,0xb
00ef 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
00f0 0092 01ae  |    |		Action	Push_String_Extended,0x1ae					; "0001FBOB0005PROGMNGRRALRDRMIBOIR"
00f2 4821       |H!  |		Short_Literal	0x21
00f3 4900       |I   |		Short_Literal	0x100
00f4 00e9       |    |		Load_Encached	String_Cache
00f5 035b       | [  |		Declare_Type	Array,Constrained
00f6 0337       | 7  |		Declare_Variable	Array
00f7 4900       |I   |		Short_Literal	0x100
00f8 4821       |H!  |		Short_Literal	0x21
00f9 482a       |H*  |		Short_Literal	0x2a
00fa 00d9       |    |		Load_Top	At_Offset_1
00fb e409       |    |		Load	0x2,0x9
00fc 01d6       |    |		Execute	Vector,Field_Write
00fd 3ffb       |?   |		Loop_Increasing	0xf9
00fe 01cc       |    |		Execute	Vector,Catenate
00ff e007       |    |		Load	0x0,0x7
0100 01c3       |    |		Execute	Vector,Check_In_Type
0101 e008       |    |		Load	0x0,0x8
0102 e004       |    |		Load	0x0,0x4
0103 0337       | 7  |		Declare_Variable	Array
0104 487b       |H{  |		Short_Literal	0x7b
0105 4801       |H   |		Short_Literal	0x1
0106 00da       |    |		Load_Top	At_Offset_2
0107 01d6       |    |		Execute	Vector,Field_Write
0108 482d       |H-  |		Short_Literal	0x2d
0109 4802       |H   |		Short_Literal	0x2
010a 00da       |    |		Load_Top	At_Offset_2
010b 01d6       |    |		Execute	Vector,Field_Write
010c 4843       |HC  |		Short_Literal	0x43
010d 4803       |H   |		Short_Literal	0x3
010e 00da       |    |		Load_Top	At_Offset_2
010f 01d6       |    |		Execute	Vector,Field_Write
0110 4859       |HY  |		Short_Literal	0x59
0111 4804       |H   |		Short_Literal	0x4
0112 00da       |    |		Load_Top	At_Offset_2
0113 01d6       |    |		Execute	Vector,Field_Write
0114 e004       |    |		Load	0x0,0x4
0115 01c3       |    |		Execute	Vector,Check_In_Type
0116 e003       |    |		Load	0x0,0x3
0117 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0118 0092 01ad  |    |		Action	Push_String_Extended,0x1ad					; "Boboulet"
011a e009       |    |		Load	0x0,0x9
011b 01c3       |    |		Execute	Vector,Check_In_Type
011c 800b       |    |		Call	0x0,0xb
011d 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
011e 0092 01ae  |    |		Action	Push_String_Extended,0x1ae					; "0001FBOB0005PROGMNGRRALRDRMIBOIR"
0120 4821       |H!  |		Short_Literal	0x21
0121 4900       |I   |		Short_Literal	0x100
0122 00e9       |    |		Load_Encached	String_Cache
0123 035b       | [  |		Declare_Type	Array,Constrained
0124 0337       | 7  |		Declare_Variable	Array
0125 4900       |I   |		Short_Literal	0x100
0126 4821       |H!  |		Short_Literal	0x21
0127 482a       |H*  |		Short_Literal	0x2a
0128 00d9       |    |		Load_Top	At_Offset_1
0129 e409       |    |		Load	0x2,0x9
012a 01d6       |    |		Execute	Vector,Field_Write
012b 3ffb       |?   |		Loop_Increasing	0x127
012c 01cc       |    |		Execute	Vector,Catenate
012d e007       |    |		Load	0x0,0x7
012e 01c3       |    |		Execute	Vector,Check_In_Type
012f e008       |    |		Load	0x0,0x8
0130 e004       |    |		Load	0x0,0x4
0131 0337       | 7  |		Declare_Variable	Array
0132 487b       |H{  |		Short_Literal	0x7b
0133 4801       |H   |		Short_Literal	0x1
0134 00da       |    |		Load_Top	At_Offset_2
0135 01d6       |    |		Execute	Vector,Field_Write
0136 482d       |H-  |		Short_Literal	0x2d
0137 4802       |H   |		Short_Literal	0x2
0138 00da       |    |		Load_Top	At_Offset_2
0139 01d6       |    |		Execute	Vector,Field_Write
013a 4843       |HC  |		Short_Literal	0x43
013b 4803       |H   |		Short_Literal	0x3
013c 00da       |    |		Load_Top	At_Offset_2
013d 01d6       |    |		Execute	Vector,Field_Write
013e 4859       |HY  |		Short_Literal	0x59
013f 4804       |H   |		Short_Literal	0x4
0140 00da       |    |		Load_Top	At_Offset_2
0141 01d6       |    |		Execute	Vector,Field_Write
0142 e004       |    |		Load	0x0,0x4
0143 01c3       |    |		Execute	Vector,Check_In_Type
0144 e003       |    |		Load	0x0,0x3
0145 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0146 0092 01ad  |    |		Action	Push_String_Extended,0x1ad					; "Boboulet"
0148 e009       |    |		Load	0x0,0x9
0149 01c3       |    |		Execute	Vector,Check_In_Type
014a 800c       |    |		Call	0x0,0xc
014b 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
014c 0092 01b0  |    |		Action	Push_String_Extended,0x1b0					; "Service Ajouter."
014e e006       |    |		Load	0x0,0x6
014f 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
0150 00d8       |    |		Load_Top	At_Offset_0
0151 00e1       |    |		Load_Encached	Boolean_Cache
0152 011c       |    |		Execute	Any,Convert_Unchecked
0153 1c01       |    |		Execute_Immediate	Run_Utility,0x1
0154 e006       |    |		Load	0x0,0x6
0155 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
0156 00d8       |    |		Load_Top	At_Offset_0
0157 6850       |hP  |		Jump_Zero	0x1a8
0158 0092 01b1  |    |		Action	Push_String_Extended,0x1b1					; "Add_Service : A ajoute un service."
015a e006       |    |		Load	0x0,0x6
015b 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
015c 00e1       |    |		Load_Encached	Boolean_Cache
015d 00db       |    |		Load_Top	At_Offset_3
015e e404       |    |		Load	0x2,0x4
015f e403       |    |		Load	0x2,0x3
0160 0120       |    |		Execute	Any,Is_Value
0161 6803       |h   |		Jump_Zero	0x165
0162 e003       |    |		Load	0x0,0x3
0163 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0164 7801       |x   |		Jump	0x166
0165 e403       |    |		Load	0x2,0x3
0166 0092 01b2  |    |		Action	Push_String_Extended,0x1b2					; "DRMI"
0168 e00d       |    |		Load	0x0,0xd
0169 01c3       |    |		Execute	Vector,Check_In_Type
016a 0092 01b3  |    |		Action	Push_String_Extended,0x1b3					; "FBOB"
016c e00e       |    |		Load	0x0,0xe
016d 01c3       |    |		Execute	Vector,Check_In_Type
016e 800f       |    |		Call	0x0,0xf
016f c403       |    |		Store	0x2,0x3
0170 00d2       |    |		Pop_Control	Pop_Count_2
0171 005a       | Z  |		Store_Top	Discrete,At_Offset_2
0172 00e1       |    |		Load_Encached	Boolean_Cache
0173 00db       |    |		Load_Top	At_Offset_3
0174 e404       |    |		Load	0x2,0x4
0175 e403       |    |		Load	0x2,0x3
0176 0120       |    |		Execute	Any,Is_Value
0177 6803       |h   |		Jump_Zero	0x17b
0178 e003       |    |		Load	0x0,0x3
0179 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
017a 7801       |x   |		Jump	0x17c
017b e403       |    |		Load	0x2,0x3
017c 0092 01b2  |    |		Action	Push_String_Extended,0x1b2					; "DRMI"
017e e00d       |    |		Load	0x0,0xd
017f 01c3       |    |		Execute	Vector,Check_In_Type
0180 0092 01b3  |    |		Action	Push_String_Extended,0x1b3					; "FBOB"
0182 e00e       |    |		Load	0x0,0xe
0183 01c3       |    |		Execute	Vector,Check_In_Type
0184 8010       |    |		Call	0x0,0x10
0185 c403       |    |		Store	0x2,0x3
0186 00d2       |    |		Pop_Control	Pop_Count_2
0187 005a       | Z  |		Store_Top	Discrete,At_Offset_2
0188 00e1       |    |		Load_Encached	Boolean_Cache
0189 00db       |    |		Load_Top	At_Offset_3
018a e404       |    |		Load	0x2,0x4
018b e403       |    |		Load	0x2,0x3
018c 0120       |    |		Execute	Any,Is_Value
018d 6803       |h   |		Jump_Zero	0x191
018e e003       |    |		Load	0x0,0x3
018f 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0190 7801       |x   |		Jump	0x192
0191 e403       |    |		Load	0x2,0x3
0192 0092 01b2  |    |		Action	Push_String_Extended,0x1b2					; "DRMI"
0194 e00d       |    |		Load	0x0,0xd
0195 01c3       |    |		Execute	Vector,Check_In_Type
0196 0092 01b3  |    |		Action	Push_String_Extended,0x1b3					; "FBOB"
0198 e00e       |    |		Load	0x0,0xe
0199 01c3       |    |		Execute	Vector,Check_In_Type
019a 8011       |    |		Call	0x0,0x11
019b c403       |    |		Store	0x2,0x3
019c 00d2       |    |		Pop_Control	Pop_Count_2
019d 005a       | Z  |		Store_Top	Discrete,At_Offset_2
019e 0092 01b4  |    |		Action	Push_String_Extended,0x1b4					; "Ask_Service : A delivre un service."
01a0 e006       |    |		Load	0x0,0x6
01a1 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
01a2 00d9       |    |		Load_Top	At_Offset_1
01a3 00e1       |    |		Load_Encached	Boolean_Cache
01a4 011c       |    |		Execute	Any,Convert_Unchecked
01a5 1c01       |    |		Execute_Immediate	Run_Utility,0x1
01a6 e006       |    |		Load	0x0,0x6
01a7 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
01a8 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
01a9 ; --------------------------------------------------------------------------------------
01a9 ; STRING TABLE
01a9 ; --------------------------------------------------------------------------------------
01a9 001a       |    |		.STRTAB	0x001a->0x01b6							; "Bonjour le Monde !!!"
01aa 002c       | ,  |		.STRTAB	0x002c->0x01c0							; "Hello"
01ab 002f       | /  |		.STRTAB	0x002f->0x01c2							; "ask_agent_to_test"
01ac 003e       | >  |		.STRTAB	0x003e->0x01cb							; "0001FBAL0005PROGMNGRRALRDRMIBOIR"
01ad 005c       | \  |		.STRTAB	0x005c->0x01db							; "Boboulet"
01ae 0062       | b  |		.STRTAB	0x0062->0x01df							; "0001FBOB0005PROGMNGRRALRDRMIBOIR"
01af 0080       |    |		.STRTAB	0x0080->0x01ef							; "0001FLES0005PROGMNGRRALRDRMIBOIR"
01b0 009e       |    |		.STRTAB	0x009e->0x01ff							; "Service Ajouter."
01b1 00ac       |    |		.STRTAB	0x00ac->0x0207							; "Add_Service : A ajoute un service."
01b2 00cc       |    |		.STRTAB	0x00cc->0x0218							; "DRMI"
01b3 00ce       |    |		.STRTAB	0x00ce->0x021a							; "FBOB"
01b4 00d0       |    |		.STRTAB	0x00d0->0x021c							; "Ask_Service : A delivre un service."
01b5 00f1       |    |		.STREND 0x00f1->0x022d
01b6 426f 6e6a  |Bonj|		.STRTAB_STRINGS
022e 0000 0000  |    |		.XXX[0x2]
0230 ; --------------------------------------------------------------------------------------
0230 ; Debug Table
0230 ; --------------------------------------------------------------------------------------
0230 0004 0009  |    |		.DEBUG4	0x0004,0x0009,0xfba1,0x0000,0x0001,0x0002
0236 000b 0000  |    |		.DBG4T	0x000b,0x0000,0x8000,0x0000
023a 001b 023e  |   >|		.DBG4T	0x001b,0x023e,0x8001,0x0000
023e ; --------------------------------------------------------------------------------------
023e ; Debug chain
023e ; --------------------------------------------------------------------------------------
023e 0006 0012  |    |		.DBGLEN	0x0006,0x0012
0240 001b 0021  |   !|		.DBGLNO	0x001b,0x0021,0x0026,0x0028,0x002a,0x002b,0x002c,0x0030,0x0034,0x0038,0x0066,0x0094,0x00c2,0x00f0,0x011e,0x014c,0x0150,0x0156,0x0158,0x015c,0x0172,0x0188,0x019e,0x01a2
0258 0000 0000  |    |		.BLANK	0000[0x1a8]