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

⟦adaade9d6⟧

    Length: 5120 (0x1400)
    Notes: 00_class, 5900_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_68b491

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 06e0       |    |		.CONST	0x06e0								; 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 0004       |    |		.CONST	0x0004								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 00d5       |    |		.CONST	0x00d5								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0038       | 8  |		.CONST	0x0038								; Number of locals
000b			INIT_0008:
000b 0093 0000  |    |		push_full_address	0x0
000d 60ea       |`   |		Indirect_Literal	Discrete,0xf8,{0x80000000, 0x00010000}
000e 0273       | s  |		Execute	Discrete,Plus
000f 0129       | )  |		Execute	Any,Make_Visible
0010 0093 0000  |    |		push_full_address	0x0
0012 60e1       |`   |		Indirect_Literal	Discrete,0xf4,{0x80000000, 0x00020000}
0013 0273       | s  |		Execute	Discrete,Plus
0014 0129       | )  |		Execute	Any,Make_Visible
0015 0093 0000  |    |		push_full_address	0x0
0017 60d8       |`   |		Indirect_Literal	Discrete,0xf0,{0x80000000, 0x00030000}
0018 0273       | s  |		Execute	Discrete,Plus
0019 0129       | )  |		Execute	Any,Make_Visible
001a 029a 00db  |    |		Declare_Subprogram	INIT_00d8,For_Outer_Call,Visible,Unelaborated
001c 029a 0103  |    |		Declare_Subprogram	INIT_0100,For_Outer_Call,Visible,Unelaborated
001e 029a 0123  |   #|		Declare_Subprogram	INIT_0120,For_Outer_Call,Visible,Unelaborated
0020 029a 0153  |   S|		Declare_Subprogram	INIT_0150,For_Outer_Call,Visible,Unelaborated
0022 029a 0183  |    |		Declare_Subprogram	INIT_0180,For_Outer_Call,Visible,Unelaborated
0024 029a 01e3  |    |		Declare_Subprogram	INIT_01e0,For_Outer_Call,Visible,Unelaborated
0026 029a 0243  |   C|		Declare_Subprogram	INIT_0240,For_Outer_Call,Visible,Unelaborated
0028 029a 02b3  |    |		Declare_Subprogram	INIT_02b0,For_Outer_Call,Visible,Unelaborated
002a 029a 031b  |    |		Declare_Subprogram	INIT_0318,For_Outer_Call,Visible,Unelaborated
002c 029a 0383  |    |		Declare_Subprogram	INIT_0380,For_Outer_Call,Visible,Unelaborated
002e 029a 03eb  |    |		Declare_Subprogram	INIT_03e8,For_Outer_Call,Visible,Unelaborated
0030 029a 040b  |    |		Declare_Subprogram	INIT_0408,For_Outer_Call,Visible,Unelaborated
0032 029a 0433  |   3|		Declare_Subprogram	INIT_0430,For_Outer_Call,Visible,Unelaborated
0034 029a 0473  |   s|		Declare_Subprogram	INIT_0470,For_Outer_Call,Visible,Unelaborated
0036 029a 04eb  |    |		Declare_Subprogram	INIT_04e8,For_Outer_Call,Visible,Unelaborated
0038 029a 0513  |    |		Declare_Subprogram	INIT_0510,For_Outer_Call,Visible,Unelaborated
003a 029a 0523  |   #|		Declare_Subprogram	INIT_0520,For_Outer_Call,Visible,Unelaborated
003c 029a 0533  |   3|		Declare_Subprogram	INIT_0530,For_Outer_Call,Visible,Unelaborated
003e 029a 055b  |   [|		Declare_Subprogram	INIT_0558,For_Outer_Call,Visible,Unelaborated
0040 029a 056b  |   k|		Declare_Subprogram	INIT_0568,For_Outer_Call,Visible,Unelaborated
0042 029a 057b  |   {|		Declare_Subprogram	INIT_0578,For_Outer_Call,Visible,Unelaborated
0044 029a 0593  |    |		Declare_Subprogram	INIT_0590,For_Outer_Call,Visible,Unelaborated
0046 029a 05a3  |    |		Declare_Subprogram	INIT_05a0,For_Outer_Call,Visible,Unelaborated
0048 029a 05b3  |    |		Declare_Subprogram	INIT_05b0,For_Outer_Call,Visible,Unelaborated
004a 029a 05c3  |    |		Declare_Subprogram	INIT_05c0,For_Outer_Call,Visible,Unelaborated
004c 4820       |H   |		Short_Literal	0x20
004d e002       |    |		Load	0x0,0x2
004e 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
004f 1c07       |    |		Execute_Immediate	Run_Utility,0x7
0050 0129       | )  |		Execute	Any,Make_Visible
0051 4820       |H   |		Short_Literal	0x20
0052 e002       |    |		Load	0x0,0x2
0053 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0054 1c07       |    |		Execute_Immediate	Run_Utility,0x7
0055 0129       | )  |		Execute	Any,Make_Visible
0056 e003       |    |		Load	0x0,0x3
0057 029f 0673  |   s|		Declare_Subprogram	INIT_0670,For_Call
0059 4803       |H   |		Short_Literal	0x3
005a 032e       | .  |		Declare_Type	Record,Defined,Visible
005b 029a 05eb  |    |		Declare_Subprogram	INIT_05e8,For_Outer_Call,Visible,Unelaborated
005d 0093 0000  |    |		push_full_address	0x0
005f 608c       |`   |		Indirect_Literal	Discrete,0xec,{0x80000000, 0x00010000}
0060 0273       | s  |		Execute	Discrete,Plus
0061 e004       |    |		Load	0x0,0x4
0062 0273       | s  |		Execute	Discrete,Plus
0063 e005       |    |		Load	0x0,0x5
0064 0273       | s  |		Execute	Discrete,Plus
0065 00da       |    |		Load_Top	At_Offset_2
0066 1d2a       | *  |		Execute_Immediate	Reference_Lex_1,0x2a
0067 e006       |    |		Load	0x0,0x6
0068 0386       |    |		Declare_Variable	Package,Visible
0069 00d8       |    |		Load_Top	At_Offset_0
006a 020f       |    |		Execute	Module,Activate
006b e007       |    |		Load	0x0,0x7
006c 00d9       |    |		Load_Top	At_Offset_1
006d 0098       |    |		Execute	Package,Field_Read_Dynamic
006e 02a0       |    |		Declare_Subprogram	Null_Subprogram
006f 4801       |H   |		Short_Literal	0x1
0070 032e       | .  |		Declare_Type	Record,Defined,Visible
0071 e008       |    |		Load	0x0,0x8
0072 00da       |    |		Load_Top	At_Offset_2
0073 0098       |    |		Execute	Package,Field_Read_Dynamic
0074 02a0       |    |		Declare_Subprogram	Null_Subprogram
0075 4801       |H   |		Short_Literal	0x1
0076 032e       | .  |		Declare_Type	Record,Defined,Visible
0077 00bf       |    |		Action	Accept_Activation
0078 e229       | )  |		Load	0x1,0x29
0079 0322       | "  |		Declare_Variable	Record
007a 00d8       |    |		Load_Top	At_Offset_0
007b 1c00       |    |		Execute_Immediate	Run_Utility,0x0
007c 00e1       |    |		Load_Encached	Boolean_Cache
007d 029d 05f3  |    |		Declare_Subprogram	INIT_05f0,For_Outer_Call
007f 1d2a       | *  |		Execute_Immediate	Reference_Lex_1,0x2a
0080 00c7       |    |		Action	Elaborate_Subprogram
0081 029d 061b  |    |		Declare_Subprogram	INIT_0618,For_Outer_Call
0083 e009       |    |		Load	0x0,0x9
0084 e22b       | +  |		Load	0x1,0x2b
0085 0095       |    |		Execute	Package,Field_Reference_Dynamic
0086 00c6       |    |		Action	Check_Subprogram_Elaborated
0087 1d31       | 1  |		Execute_Immediate	Reference_Lex_1,0x31
0088 0093 0000  |    |		push_full_address	0x0
008a 605d       |`]  |		Indirect_Literal	Discrete,0xe8,{0x80000000, 0x00030000}
008b 0273       | s  |		Execute	Discrete,Plus
008c e004       |    |		Load	0x0,0x4
008d 0273       | s  |		Execute	Discrete,Plus
008e e00a       |    |		Load	0x0,0xa
008f 0273       | s  |		Execute	Discrete,Plus
0090 4800       |H   |		Short_Literal	0x0
0091 0007       |    |		Action	Break_Optional
0092 029d 0633  |   3|		Declare_Subprogram	INIT_0630,For_Outer_Call
0094 e00b       |    |		Load	0x0,0xb
0095 e22b       | +  |		Load	0x1,0x2b
0096 0095       |    |		Execute	Package,Field_Reference_Dynamic
0097 00c6       |    |		Action	Check_Subprogram_Elaborated
0098 1d35       | 5  |		Execute_Immediate	Reference_Lex_1,0x35
0099 0093 0000  |    |		push_full_address	0x0
009b 6048       |`H  |		Indirect_Literal	Discrete,0xe4,{0x80000000, 0x00020000}
009c 0273       | s  |		Execute	Discrete,Plus
009d e004       |    |		Load	0x0,0x4
009e 0273       | s  |		Execute	Discrete,Plus
009f e00c       |    |		Load	0x0,0xc
00a0 0273       | s  |		Execute	Discrete,Plus
00a1 4800       |H   |		Short_Literal	0x0
00a2 0007       |    |		Action	Break_Optional
00a3 1d10       |    |		Execute_Immediate	Reference_Lex_1,0x10
00a4 00c7       |    |		Action	Elaborate_Subprogram
00a5 1d20       |    |		Execute_Immediate	Reference_Lex_1,0x20
00a6 00c7       |    |		Action	Elaborate_Subprogram
00a7 1d11       |    |		Execute_Immediate	Reference_Lex_1,0x11
00a8 00c7       |    |		Action	Elaborate_Subprogram
00a9 1d12       |    |		Execute_Immediate	Reference_Lex_1,0x12
00aa 00c7       |    |		Action	Elaborate_Subprogram
00ab 1d13       |    |		Execute_Immediate	Reference_Lex_1,0x13
00ac 00c7       |    |		Action	Elaborate_Subprogram
00ad 1d1a       |    |		Execute_Immediate	Reference_Lex_1,0x1a
00ae 00c7       |    |		Action	Elaborate_Subprogram
00af 1d1b       |    |		Execute_Immediate	Reference_Lex_1,0x1b
00b0 00c7       |    |		Action	Elaborate_Subprogram
00b1 1d1c       |    |		Execute_Immediate	Reference_Lex_1,0x1c
00b2 00c7       |    |		Action	Elaborate_Subprogram
00b3 1d1d       |    |		Execute_Immediate	Reference_Lex_1,0x1d
00b4 00c7       |    |		Action	Elaborate_Subprogram
00b5 1d1e       |    |		Execute_Immediate	Reference_Lex_1,0x1e
00b6 00c7       |    |		Action	Elaborate_Subprogram
00b7 1d14       |    |		Execute_Immediate	Reference_Lex_1,0x14
00b8 00c7       |    |		Action	Elaborate_Subprogram
00b9 1d15       |    |		Execute_Immediate	Reference_Lex_1,0x15
00ba 00c7       |    |		Action	Elaborate_Subprogram
00bb 1d16       |    |		Execute_Immediate	Reference_Lex_1,0x16
00bc 00c7       |    |		Action	Elaborate_Subprogram
00bd 1d18       |    |		Execute_Immediate	Reference_Lex_1,0x18
00be 00c7       |    |		Action	Elaborate_Subprogram
00bf 1d19       |    |		Execute_Immediate	Reference_Lex_1,0x19
00c0 00c7       |    |		Action	Elaborate_Subprogram
00c1 1d17       |    |		Execute_Immediate	Reference_Lex_1,0x17
00c2 00c7       |    |		Action	Elaborate_Subprogram
00c3 1d1f       |    |		Execute_Immediate	Reference_Lex_1,0x1f
00c4 00c7       |    |		Action	Elaborate_Subprogram
00c5 1d21       | !  |		Execute_Immediate	Reference_Lex_1,0x21
00c6 00c7       |    |		Action	Elaborate_Subprogram
00c7 1d22       | "  |		Execute_Immediate	Reference_Lex_1,0x22
00c8 00c7       |    |		Action	Elaborate_Subprogram
00c9 1d23       | #  |		Execute_Immediate	Reference_Lex_1,0x23
00ca 00c7       |    |		Action	Elaborate_Subprogram
00cb 1d24       | $  |		Execute_Immediate	Reference_Lex_1,0x24
00cc 00c7       |    |		Action	Elaborate_Subprogram
00cd 1d25       | %  |		Execute_Immediate	Reference_Lex_1,0x25
00ce 00c7       |    |		Action	Elaborate_Subprogram
00cf 1d26       | &  |		Execute_Immediate	Reference_Lex_1,0x26
00d0 00c7       |    |		Action	Elaborate_Subprogram
00d1 1d27       | '  |		Execute_Immediate	Reference_Lex_1,0x27
00d2 00c7       |    |		Action	Elaborate_Subprogram
00d3 1d28       | (  |		Execute_Immediate	Reference_Lex_1,0x28
00d4 00c7       |    |		Action	Elaborate_Subprogram
00d5			BODY_0008:
00d5 00bc       |    |		Action	Signal_Activated
00d6 00bb       |    |		Action	Signal_Completion
00d7 0000       |    |		.XXX[0x1]
00d8 ; --------------------------------------------------------------------------------------
00d8 ; SUBPROGRAM
00d8 ; --------------------------------------------------------------------------------------
00d8 00db       |    |		.CONST	0x00db								; Address of begin
00d9 0004       |    |		.CONST	0x0004								; Address of exception handler
00da 0001       |    |		.CONST	0x0001								; Number of locals
00db			BODY_00d8:
00db			INIT_00d8:
00db e00d       |    |		Load	0x0,0xd
00dc e22b       | +  |		Load	0x1,0x2b
00dd 0096       |    |		Execute	Package,Entry
00de 00db       |    |		Load_Top	At_Offset_3
00df 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
00e0 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
00e1 0000 0000  |    |		.XXX[0x3]
00e3 0000       |    |
00e4 8000 0000  |    |		.LITERAL	{0x80000000, 0x00020000}
00e8 8000 0000  |    |		.LITERAL	{0x80000000, 0x00030000}
00ec 8000 0000  |    |		.LITERAL	{0x80000000, 0x00010000}
00f0 8000 0000  |    |		.LITERAL	{0x80000000, 0x00030000}
00f4 8000 0000  |    |		.LITERAL	{0x80000000, 0x00020000}
00f8 8000 0000  |    |		.LITERAL	{0x80000000, 0x00010000}
00fc 0000 0000  |    |		.BLANK	0000[0x4]
0100 ; --------------------------------------------------------------------------------------
0100 ; SUBPROGRAM
0100 ; --------------------------------------------------------------------------------------
0100 0109       |    |		.CONST	0x0109								; Address of begin
0101 0004       |    |		.CONST	0x0004								; Address of exception handler
0102 0003       |    |		.CONST	0x0003								; Number of locals
0103			INIT_0100:
0103 e229       | )  |		Load	0x1,0x29
0104 0322       | "  |		Declare_Variable	Record
0105 00d8       |    |		Load_Top	At_Offset_0
0106 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0107 e003       |    |		Load	0x0,0x3
0108 0322       | "  |		Declare_Variable	Record
0109			BODY_0100:
0109 00d8       |    |		Load_Top	At_Offset_0
010a 800e       |    |		Call	0x0,0xe
010b 00d1       |    |		Pop_Control	Pop_Count_1
010c 00d8       |    |		Load_Top	At_Offset_0
010d e5fe       |    |		Load	0x2,-0x2
010e 00d8       |    |		Load_Top	At_Offset_0
010f 8230       | 0  |		Call	0x1,0x30
0110 00da       |    |		Load_Top	At_Offset_2
0111 017d       | }  |		Execute	Record,Structure_Write
0112 e5ff       |    |		Load	0x2,-0x1
0113 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0114 00da       |    |		Load_Top	At_Offset_2
0115 e00f       |    |		Load	0x0,0xf
0116 e22b       | +  |		Load	0x1,0x2b
0117 0096       |    |		Execute	Package,Entry
0118 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0119 0000 0000  |    |		.BLANK	0000[0x7]
0120 ; --------------------------------------------------------------------------------------
0120 ; SUBPROGRAM
0120 ; --------------------------------------------------------------------------------------
0120 012b       | +  |		.CONST	0x012b								; Address of begin
0121 0147       | G  |		.CONST	0x0147								; Address of exception handler
0122 0004       |    |		.CONST	0x0004								; Number of locals
0123			INIT_0120:
0123 00e1       |    |		Load_Encached	Boolean_Cache
0124 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0125 e229       | )  |		Load	0x1,0x29
0126 0322       | "  |		Declare_Variable	Record
0127 00d8       |    |		Load_Top	At_Offset_0
0128 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0129 e003       |    |		Load	0x0,0x3
012a 0322       | "  |		Declare_Variable	Record
012b			BODY_0120:
012b 00d8       |    |		Load_Top	At_Offset_0
012c 800e       |    |		Call	0x0,0xe
012d 00d1       |    |		Pop_Control	Pop_Count_1
012e 00d8       |    |		Load_Top	At_Offset_0
012f e5fe       |    |		Load	0x2,-0x2
0130 00d8       |    |		Load_Top	At_Offset_0
0131 8230       | 0  |		Call	0x1,0x30
0132 00da       |    |		Load_Top	At_Offset_2
0133 017d       | }  |		Execute	Record,Structure_Write
0134 00d9       |    |		Load_Top	At_Offset_1
0135 00e1       |    |		Load_Encached	Boolean_Cache
0136 e5ff       |    |		Load	0x2,-0x1
0137 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0138 e403       |    |		Load	0x2,0x3
0139 e010       |    |		Load	0x0,0x10
013a e22b       | +  |		Load	0x1,0x2b
013b 0096       |    |		Execute	Package,Entry
013c c402       |    |		Store	0x2,0x2
013d 00d1       |    |		Pop_Control	Pop_Count_1
013e 00da       |    |		Load_Top	At_Offset_2
013f 6805       |h   |		Jump_Zero	0x145
0140 00d9       |    |		Load_Top	At_Offset_1
0141 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
0142 e002       |    |		Load	0x0,0x2
0143 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0144 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0145 00ea       |    |		Load_Encached	Null_String_Cache
0146 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0147			TRAP_0120:
0147 0007       |    |		Action	Break_Optional
0148 e20f       |    |		Load	0x1,0xf
0149 0257       | W  |		Execute	Discrete,Raise
014a 0000 0000  |    |		.BLANK	0000[0x6]
0150 ; --------------------------------------------------------------------------------------
0150 ; SUBPROGRAM
0150 ; --------------------------------------------------------------------------------------
0150 015b       | [  |		.CONST	0x015b								; Address of begin
0151 0176       | v  |		.CONST	0x0176								; Address of exception handler
0152 0004       |    |		.CONST	0x0004								; Number of locals
0153			INIT_0150:
0153 00e1       |    |		Load_Encached	Boolean_Cache
0154 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0155 e229       | )  |		Load	0x1,0x29
0156 0322       | "  |		Declare_Variable	Record
0157 00d8       |    |		Load_Top	At_Offset_0
0158 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0159 e003       |    |		Load	0x0,0x3
015a 0322       | "  |		Declare_Variable	Record
015b			BODY_0150:
015b 00d8       |    |		Load_Top	At_Offset_0
015c 800e       |    |		Call	0x0,0xe
015d 00d1       |    |		Pop_Control	Pop_Count_1
015e 00d8       |    |		Load_Top	At_Offset_0
015f e5fe       |    |		Load	0x2,-0x2
0160 00d8       |    |		Load_Top	At_Offset_0
0161 8230       | 0  |		Call	0x1,0x30
0162 00da       |    |		Load_Top	At_Offset_2
0163 017d       | }  |		Execute	Record,Structure_Write
0164 00d9       |    |		Load_Top	At_Offset_1
0165 00e1       |    |		Load_Encached	Boolean_Cache
0166 e5ff       |    |		Load	0x2,-0x1
0167 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0168 e403       |    |		Load	0x2,0x3
0169 e010       |    |		Load	0x0,0x10
016a e22b       | +  |		Load	0x1,0x2b
016b 0096       |    |		Execute	Package,Entry
016c c402       |    |		Store	0x2,0x2
016d 00d1       |    |		Pop_Control	Pop_Count_1
016e 00da       |    |		Load_Top	At_Offset_2
016f 6805       |h   |		Jump_Zero	0x175
0170 e5fd       |    |		Load	0x2,-0x3
0171 00da       |    |		Load_Top	At_Offset_2
0172 3402       |4   |		Execute	Record,Field_Reference,Field_Number 0x2
0173 8011       |    |		Call	0x0,0x11
0174 00d1       |    |		Pop_Control	Pop_Count_1
0175 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0176			TRAP_0150:
0176 0007       |    |		Action	Break_Optional
0177 e20f       |    |		Load	0x1,0xf
0178 0257       | W  |		Execute	Discrete,Raise
0179 0000 0000  |    |		.BLANK	0000[0x7]
0180 ; --------------------------------------------------------------------------------------
0180 ; SUBPROGRAM
0180 ; --------------------------------------------------------------------------------------
0180 018a       |    |		.CONST	0x018a								; Address of begin
0181 0004       |    |		.CONST	0x0004								; Address of exception handler
0182 0004       |    |		.CONST	0x0004								; Number of locals
0183			INIT_0180:
0183 e003       |    |		Load	0x0,0x3
0184 0322       | "  |		Declare_Variable	Record
0185 e012       |    |		Load	0x0,0x12
0186 02ff       |    |		Declare_Variable	Variant_Record
0187 00d8       |    |		Load_Top	At_Offset_0
0188 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0189 00e2       |    |		Load_Encached	Integer_Cache
018a			BODY_0180:
018a e5fd       |    |		Load	0x2,-0x3
018b e5ff       |    |		Load	0x2,-0x1
018c 8211       |    |		Call	0x1,0x11
018d 6849       |hI  |		Jump_Zero	0x1d7
018e 00d9       |    |		Load_Top	At_Offset_1
018f 8013       |    |		Call	0x0,0x13
0190 00d1       |    |		Pop_Control	Pop_Count_1
0191 00da       |    |		Load_Top	At_Offset_2
0192 800e       |    |		Call	0x0,0xe
0193 00d1       |    |		Pop_Control	Pop_Count_1
0194 e5fd       |    |		Load	0x2,-0x3
0195 e5ff       |    |		Load	0x2,-0x1
0196 8212       |    |		Call	0x1,0x12
0197 0092 068a  |    |		Action	Push_String_Extended,0x68a					; "POINTEUR"
0199 01df       |    |		Execute	Vector,Equal
019a 6818       |h   |		Jump_Zero	0x1b3
019b e5fc       |    |		Load	0x2,-0x4
019c e5fd       |    |		Load	0x2,-0x3
019d e5ff       |    |		Load	0x2,-0x1
019e 821c       |    |		Call	0x1,0x1c
019f e5ff       |    |		Load	0x2,-0x1
01a0 8212       |    |		Call	0x1,0x12
01a1 e5fe       |    |		Load	0x2,-0x2
01a2 8014       |    |		Call	0x0,0x14
01a3 6808       |h   |		Jump_Zero	0x1ac
01a4 00da       |    |		Load_Top	At_Offset_2
01a5 e5fd       |    |		Load	0x2,-0x3
01a6 e5ff       |    |		Load	0x2,-0x1
01a7 821c       |    |		Call	0x1,0x1c
01a8 e5ff       |    |		Load	0x2,-0x1
01a9 8213       |    |		Call	0x1,0x13
01aa 00d1       |    |		Pop_Control	Pop_Count_1
01ab 781b       |x   |		Jump	0x1c7
01ac e5fc       |    |		Load	0x2,-0x4
01ad 0092 068b  |    |		Action	Push_String_Extended,0x68b					; " est inconnue du scenario =>"
01af 01cc       |    |		Execute	Vector,Catenate
01b0 8015       |    |		Call	0x0,0x15
01b1 4800       |H   |		Short_Literal	0x0
01b2 4404       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x4
01b3 e5fc       |    |		Load	0x2,-0x4
01b4 e5fd       |    |		Load	0x2,-0x3
01b5 e5ff       |    |		Load	0x2,-0x1
01b6 8212       |    |		Call	0x1,0x12
01b7 e5fe       |    |		Load	0x2,-0x2
01b8 8014       |    |		Call	0x0,0x14
01b9 6806       |h   |		Jump_Zero	0x1c0
01ba 00da       |    |		Load_Top	At_Offset_2
01bb e5fd       |    |		Load	0x2,-0x3
01bc e5ff       |    |		Load	0x2,-0x1
01bd 8213       |    |		Call	0x1,0x13
01be 00d1       |    |		Pop_Control	Pop_Count_1
01bf 7807       |x   |		Jump	0x1c7
01c0 e5fc       |    |		Load	0x2,-0x4
01c1 0092 068b  |    |		Action	Push_String_Extended,0x68b					; " est inconnue du scenario =>"
01c3 01cc       |    |		Execute	Vector,Catenate
01c4 8015       |    |		Call	0x0,0x15
01c5 4800       |H   |		Short_Literal	0x0
01c6 4404       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x4
01c7 00d9       |    |		Load_Top	At_Offset_1
01c8 e5fc       |    |		Load	0x2,-0x4
01c9 e402       |    |		Load	0x2,0x2
01ca 8016       |    |		Call	0x0,0x16
01cb 00d1       |    |		Pop_Control	Pop_Count_1
01cc 00da       |    |		Load_Top	At_Offset_2
01cd 8017       |    |		Call	0x0,0x17
01ce 00d1       |    |		Pop_Control	Pop_Count_1
01cf 00d9       |    |		Load_Top	At_Offset_1
01d0 8018       |    |		Call	0x0,0x18
01d1 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
01d2 00d9       |    |		Load_Top	At_Offset_1
01d3 8019       |    |		Call	0x0,0x19
01d4 00d1       |    |		Pop_Control	Pop_Count_1
01d5 00d8       |    |		Load_Top	At_Offset_0
01d6 4404       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x4
01d7 e5fd       |    |		Load	0x2,-0x3
01d8 0092 068b  |    |		Action	Push_String_Extended,0x68b					; " est inconnue du scenario =>"
01da 01cc       |    |		Execute	Vector,Catenate
01db 8015       |    |		Call	0x0,0x15
01dc 0831       | 1  |		Execute_Immediate	Raise,0x31
01dd 0000 0000  |    |		.XXX[0x3]
01df 0000       |    |
01e0 ; --------------------------------------------------------------------------------------
01e0 ; SUBPROGRAM
01e0 ; --------------------------------------------------------------------------------------
01e0 01ea       |    |		.CONST	0x01ea								; Address of begin
01e1 0004       |    |		.CONST	0x0004								; Address of exception handler
01e2 0004       |    |		.CONST	0x0004								; Number of locals
01e3			INIT_01e0:
01e3 e003       |    |		Load	0x0,0x3
01e4 0322       | "  |		Declare_Variable	Record
01e5 e012       |    |		Load	0x0,0x12
01e6 02ff       |    |		Declare_Variable	Variant_Record
01e7 00d8       |    |		Load_Top	At_Offset_0
01e8 1c00       |    |		Execute_Immediate	Run_Utility,0x0
01e9 00e1       |    |		Load_Encached	Boolean_Cache
01ea			BODY_01e0:
01ea e5fd       |    |		Load	0x2,-0x3
01eb e5ff       |    |		Load	0x2,-0x1
01ec 8211       |    |		Call	0x1,0x11
01ed 6849       |hI  |		Jump_Zero	0x237
01ee 00d9       |    |		Load_Top	At_Offset_1
01ef 8013       |    |		Call	0x0,0x13
01f0 00d1       |    |		Pop_Control	Pop_Count_1
01f1 00da       |    |		Load_Top	At_Offset_2
01f2 800e       |    |		Call	0x0,0xe
01f3 00d1       |    |		Pop_Control	Pop_Count_1
01f4 e5fd       |    |		Load	0x2,-0x3
01f5 e5ff       |    |		Load	0x2,-0x1
01f6 8212       |    |		Call	0x1,0x12
01f7 0092 068a  |    |		Action	Push_String_Extended,0x68a					; "POINTEUR"
01f9 01df       |    |		Execute	Vector,Equal
01fa 6818       |h   |		Jump_Zero	0x213
01fb e5fc       |    |		Load	0x2,-0x4
01fc e5fd       |    |		Load	0x2,-0x3
01fd e5ff       |    |		Load	0x2,-0x1
01fe 821c       |    |		Call	0x1,0x1c
01ff e5ff       |    |		Load	0x2,-0x1
0200 8212       |    |		Call	0x1,0x12
0201 e5fe       |    |		Load	0x2,-0x2
0202 8014       |    |		Call	0x0,0x14
0203 6808       |h   |		Jump_Zero	0x20c
0204 00da       |    |		Load_Top	At_Offset_2
0205 e5fd       |    |		Load	0x2,-0x3
0206 e5ff       |    |		Load	0x2,-0x1
0207 821c       |    |		Call	0x1,0x1c
0208 e5ff       |    |		Load	0x2,-0x1
0209 8213       |    |		Call	0x1,0x13
020a 00d1       |    |		Pop_Control	Pop_Count_1
020b 781b       |x   |		Jump	0x227
020c e5fc       |    |		Load	0x2,-0x4
020d 0092 068b  |    |		Action	Push_String_Extended,0x68b					; " est inconnue du scenario =>"
020f 01cc       |    |		Execute	Vector,Catenate
0210 8015       |    |		Call	0x0,0x15
0211 4800       |H   |		Short_Literal	0x0
0212 4404       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x4
0213 e5fc       |    |		Load	0x2,-0x4
0214 e5fd       |    |		Load	0x2,-0x3
0215 e5ff       |    |		Load	0x2,-0x1
0216 8212       |    |		Call	0x1,0x12
0217 e5fe       |    |		Load	0x2,-0x2
0218 8014       |    |		Call	0x0,0x14
0219 6806       |h   |		Jump_Zero	0x220
021a 00da       |    |		Load_Top	At_Offset_2
021b e5fd       |    |		Load	0x2,-0x3
021c e5ff       |    |		Load	0x2,-0x1
021d 8213       |    |		Call	0x1,0x13
021e 00d1       |    |		Pop_Control	Pop_Count_1
021f 7807       |x   |		Jump	0x227
0220 e5fc       |    |		Load	0x2,-0x4
0221 0092 068b  |    |		Action	Push_String_Extended,0x68b					; " est inconnue du scenario =>"
0223 01cc       |    |		Execute	Vector,Catenate
0224 8015       |    |		Call	0x0,0x15
0225 4800       |H   |		Short_Literal	0x0
0226 4404       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x4
0227 00d9       |    |		Load_Top	At_Offset_1
0228 e5fc       |    |		Load	0x2,-0x4
0229 e402       |    |		Load	0x2,0x2
022a 8016       |    |		Call	0x0,0x16
022b 00d1       |    |		Pop_Control	Pop_Count_1
022c 00da       |    |		Load_Top	At_Offset_2
022d 8017       |    |		Call	0x0,0x17
022e 00d1       |    |		Pop_Control	Pop_Count_1
022f 00d9       |    |		Load_Top	At_Offset_1
0230 801a       |    |		Call	0x0,0x1a
0231 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
0232 00d9       |    |		Load_Top	At_Offset_1
0233 8019       |    |		Call	0x0,0x19
0234 00d1       |    |		Pop_Control	Pop_Count_1
0235 00d8       |    |		Load_Top	At_Offset_0
0236 4404       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x4
0237 e5fd       |    |		Load	0x2,-0x3
0238 0092 068b  |    |		Action	Push_String_Extended,0x68b					; " est inconnue du scenario =>"
023a 01cc       |    |		Execute	Vector,Catenate
023b 8015       |    |		Call	0x0,0x15
023c 0831       | 1  |		Execute_Immediate	Raise,0x31
023d 0000 0000  |    |		.XXX[0x3]
023f 0000       |    |
0240 ; --------------------------------------------------------------------------------------
0240 ; SUBPROGRAM
0240 ; --------------------------------------------------------------------------------------
0240 024f       | O  |		.CONST	0x024f								; Address of begin
0241 0004       |    |		.CONST	0x0004								; Address of exception handler
0242 0004       |    |		.CONST	0x0004								; Number of locals
0243			INIT_0240:
0243 e003       |    |		Load	0x0,0x3
0244 0322       | "  |		Declare_Variable	Record
0245 e012       |    |		Load	0x0,0x12
0246 02ff       |    |		Declare_Variable	Variant_Record
0247 00d8       |    |		Load_Top	At_Offset_0
0248 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0249 4820       |H   |		Short_Literal	0x20
024a e002       |    |		Load	0x0,0x2
024b 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
024c 1c08       |    |		Execute_Immediate	Run_Utility,0x8
024d 00d8       |    |		Load_Top	At_Offset_0
024e 1c00       |    |		Execute_Immediate	Run_Utility,0x0
024f			BODY_0240:
024f e5fd       |    |		Load	0x2,-0x3
0250 e5ff       |    |		Load	0x2,-0x1
0251 8211       |    |		Call	0x1,0x11
0252 6852       |hR  |		Jump_Zero	0x2a5
0253 00d8       |    |		Load_Top	At_Offset_0
0254 e002       |    |		Load	0x0,0x2
0255 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0256 00d1       |    |		Pop_Control	Pop_Count_1
0257 00d9       |    |		Load_Top	At_Offset_1
0258 8013       |    |		Call	0x0,0x13
0259 00d1       |    |		Pop_Control	Pop_Count_1
025a 00da       |    |		Load_Top	At_Offset_2
025b 800e       |    |		Call	0x0,0xe
025c 00d1       |    |		Pop_Control	Pop_Count_1
025d e5fd       |    |		Load	0x2,-0x3
025e e5ff       |    |		Load	0x2,-0x1
025f 8212       |    |		Call	0x1,0x12
0260 0092 068a  |    |		Action	Push_String_Extended,0x68a					; "POINTEUR"
0262 01df       |    |		Execute	Vector,Equal
0263 6818       |h   |		Jump_Zero	0x27c
0264 e5fc       |    |		Load	0x2,-0x4
0265 e5fd       |    |		Load	0x2,-0x3
0266 e5ff       |    |		Load	0x2,-0x1
0267 821c       |    |		Call	0x1,0x1c
0268 e5ff       |    |		Load	0x2,-0x1
0269 8212       |    |		Call	0x1,0x12
026a e5fe       |    |		Load	0x2,-0x2
026b 8014       |    |		Call	0x0,0x14
026c 6808       |h   |		Jump_Zero	0x275
026d 00da       |    |		Load_Top	At_Offset_2
026e e5fd       |    |		Load	0x2,-0x3
026f e5ff       |    |		Load	0x2,-0x1
0270 821c       |    |		Call	0x1,0x1c
0271 e5ff       |    |		Load	0x2,-0x1
0272 8213       |    |		Call	0x1,0x13
0273 00d1       |    |		Pop_Control	Pop_Count_1
0274 781b       |x   |		Jump	0x290
0275 e5fc       |    |		Load	0x2,-0x4
0276 0092 068b  |    |		Action	Push_String_Extended,0x68b					; " est inconnue du scenario =>"
0278 01cc       |    |		Execute	Vector,Catenate
0279 8015       |    |		Call	0x0,0x15
027a 00ea       |    |		Load_Encached	Null_String_Cache
027b 4404       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x4
027c e5fc       |    |		Load	0x2,-0x4
027d e5fd       |    |		Load	0x2,-0x3
027e e5ff       |    |		Load	0x2,-0x1
027f 8212       |    |		Call	0x1,0x12
0280 e5fe       |    |		Load	0x2,-0x2
0281 8014       |    |		Call	0x0,0x14
0282 6806       |h   |		Jump_Zero	0x289
0283 00da       |    |		Load_Top	At_Offset_2
0284 e5fd       |    |		Load	0x2,-0x3
0285 e5ff       |    |		Load	0x2,-0x1
0286 8213       |    |		Call	0x1,0x13
0287 00d1       |    |		Pop_Control	Pop_Count_1
0288 7807       |x   |		Jump	0x290
0289 e5fc       |    |		Load	0x2,-0x4
028a 0092 068b  |    |		Action	Push_String_Extended,0x68b					; " est inconnue du scenario =>"
028c 01cc       |    |		Execute	Vector,Catenate
028d 8015       |    |		Call	0x0,0x15
028e 00ea       |    |		Load_Encached	Null_String_Cache
028f 4404       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x4
0290 00d9       |    |		Load_Top	At_Offset_1
0291 e5fc       |    |		Load	0x2,-0x4
0292 e402       |    |		Load	0x2,0x2
0293 8016       |    |		Call	0x0,0x16
0294 00d1       |    |		Pop_Control	Pop_Count_1
0295 00da       |    |		Load_Top	At_Offset_2
0296 8017       |    |		Call	0x0,0x17
0297 00d1       |    |		Pop_Control	Pop_Count_1
0298 00d8       |    |		Load_Top	At_Offset_0
0299 00da       |    |		Load_Top	At_Offset_2
029a 801b       |    |		Call	0x0,0x1b
029b e002       |    |		Load	0x0,0x2
029c 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
029d 00d1       |    |		Pop_Control	Pop_Count_1
029e 00d9       |    |		Load_Top	At_Offset_1
029f 8019       |    |		Call	0x0,0x19
02a0 00d1       |    |		Pop_Control	Pop_Count_1
02a1 00d8       |    |		Load_Top	At_Offset_0
02a2 e002       |    |		Load	0x0,0x2
02a3 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
02a4 4404       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x4
02a5 e5fd       |    |		Load	0x2,-0x3
02a6 0092 068b  |    |		Action	Push_String_Extended,0x68b					; " est inconnue du scenario =>"
02a8 01cc       |    |		Execute	Vector,Catenate
02a9 8015       |    |		Call	0x0,0x15
02aa 0831       | 1  |		Execute_Immediate	Raise,0x31
02ab 0000 0000  |    |		.BLANK	0000[0x5]
02b0 ; --------------------------------------------------------------------------------------
02b0 ; SUBPROGRAM
02b0 ; --------------------------------------------------------------------------------------
02b0 02b5       |    |		.CONST	0x02b5								; Address of begin
02b1 0004       |    |		.CONST	0x0004								; Address of exception handler
02b2 0002       |    |		.CONST	0x0002								; Number of locals
02b3			INIT_02b0:
02b3 e003       |    |		Load	0x0,0x3
02b4 0322       | "  |		Declare_Variable	Record
02b5			BODY_02b0:
02b5 e5fe       |    |		Load	0x2,-0x2
02b6 e5fb       |    |		Load	0x2,-0x5
02b7 8211       |    |		Call	0x1,0x11
02b8 6855       |hU  |		Jump_Zero	0x30e
02b9 00d8       |    |		Load_Top	At_Offset_0
02ba 800e       |    |		Call	0x0,0xe
02bb 00d1       |    |		Pop_Control	Pop_Count_1
02bc e5fe       |    |		Load	0x2,-0x2
02bd e5fb       |    |		Load	0x2,-0x5
02be 8212       |    |		Call	0x1,0x12
02bf 0092 068a  |    |		Action	Push_String_Extended,0x68a					; "POINTEUR"
02c1 01df       |    |		Execute	Vector,Equal
02c2 6828       |h(  |		Jump_Zero	0x2eb
02c3 e5fd       |    |		Load	0x2,-0x3
02c4 e5fe       |    |		Load	0x2,-0x2
02c5 e5fb       |    |		Load	0x2,-0x5
02c6 821c       |    |		Call	0x1,0x1c
02c7 e5fb       |    |		Load	0x2,-0x5
02c8 8212       |    |		Call	0x1,0x12
02c9 e5ff       |    |		Load	0x2,-0x1
02ca 8014       |    |		Call	0x0,0x14
02cb 6819       |h   |		Jump_Zero	0x2e5
02cc 00d8       |    |		Load_Top	At_Offset_0
02cd e5fe       |    |		Load	0x2,-0x2
02ce e5fb       |    |		Load	0x2,-0x5
02cf 821c       |    |		Call	0x1,0x1c
02d0 e5fb       |    |		Load	0x2,-0x5
02d1 8213       |    |		Call	0x1,0x13
02d2 00d1       |    |		Pop_Control	Pop_Count_1
02d3 00d8       |    |		Load_Top	At_Offset_0
02d4 e5fc       |    |		Load	0x2,-0x4
02d5 e5fd       |    |		Load	0x2,-0x3
02d6 801c       |    |		Call	0x0,0x1c
02d7 00d1       |    |		Pop_Control	Pop_Count_1
02d8 e5fb       |    |		Load	0x2,-0x5
02d9 00d9       |    |		Load_Top	At_Offset_1
02da e5fe       |    |		Load	0x2,-0x2
02db e5fb       |    |		Load	0x2,-0x5
02dc 821c       |    |		Call	0x1,0x1c
02dd e5fb       |    |		Load	0x2,-0x5
02de 8212       |    |		Call	0x1,0x12
02df e5fe       |    |		Load	0x2,-0x2
02e0 e5fb       |    |		Load	0x2,-0x5
02e1 821c       |    |		Call	0x1,0x1c
02e2 8221       | !  |		Call	0x1,0x21
02e3 00d1       |    |		Pop_Control	Pop_Count_1
02e4 7825       |x%  |		Jump	0x30a
02e5 e5fd       |    |		Load	0x2,-0x3
02e6 0092 068b  |    |		Action	Push_String_Extended,0x68b					; " est inconnue du scenario =>"
02e8 01cc       |    |		Execute	Vector,Catenate
02e9 8015       |    |		Call	0x0,0x15
02ea 781f       |x   |		Jump	0x30a
02eb e5fd       |    |		Load	0x2,-0x3
02ec e5fe       |    |		Load	0x2,-0x2
02ed e5fb       |    |		Load	0x2,-0x5
02ee 8212       |    |		Call	0x1,0x12
02ef e5ff       |    |		Load	0x2,-0x1
02f0 8014       |    |		Call	0x0,0x14
02f1 6813       |h   |		Jump_Zero	0x305
02f2 00d8       |    |		Load_Top	At_Offset_0
02f3 e5fe       |    |		Load	0x2,-0x2
02f4 e5fb       |    |		Load	0x2,-0x5
02f5 8213       |    |		Call	0x1,0x13
02f6 00d1       |    |		Pop_Control	Pop_Count_1
02f7 00d8       |    |		Load_Top	At_Offset_0
02f8 e5fc       |    |		Load	0x2,-0x4
02f9 e5fd       |    |		Load	0x2,-0x3
02fa 801c       |    |		Call	0x0,0x1c
02fb 00d1       |    |		Pop_Control	Pop_Count_1
02fc e5fb       |    |		Load	0x2,-0x5
02fd 00d9       |    |		Load_Top	At_Offset_1
02fe e5fe       |    |		Load	0x2,-0x2
02ff e5fb       |    |		Load	0x2,-0x5
0300 8212       |    |		Call	0x1,0x12
0301 e5fe       |    |		Load	0x2,-0x2
0302 8221       | !  |		Call	0x1,0x21
0303 00d1       |    |		Pop_Control	Pop_Count_1
0304 7805       |x   |		Jump	0x30a
0305 e5fd       |    |		Load	0x2,-0x3
0306 0092 068b  |    |		Action	Push_String_Extended,0x68b					; " est inconnue du scenario =>"
0308 01cc       |    |		Execute	Vector,Catenate
0309 8015       |    |		Call	0x0,0x15
030a 00d8       |    |		Load_Top	At_Offset_0
030b 8017       |    |		Call	0x0,0x17
030c 00d1       |    |		Pop_Control	Pop_Count_1
030d 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
030e e5fe       |    |		Load	0x2,-0x2
030f 0092 068b  |    |		Action	Push_String_Extended,0x68b					; " est inconnue du scenario =>"
0311 01cc       |    |		Execute	Vector,Catenate
0312 8015       |    |		Call	0x0,0x15
0313 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
0314 0000 0000  |    |		.BLANK	0000[0x4]
0318 ; --------------------------------------------------------------------------------------
0318 ; SUBPROGRAM
0318 ; --------------------------------------------------------------------------------------
0318 031d       |    |		.CONST	0x031d								; Address of begin
0319 0004       |    |		.CONST	0x0004								; Address of exception handler
031a 0002       |    |		.CONST	0x0002								; Number of locals
031b			INIT_0318:
031b e003       |    |		Load	0x0,0x3
031c 0322       | "  |		Declare_Variable	Record
031d			BODY_0318:
031d e5fe       |    |		Load	0x2,-0x2
031e e5fb       |    |		Load	0x2,-0x5
031f 8211       |    |		Call	0x1,0x11
0320 6855       |hU  |		Jump_Zero	0x376
0321 00d8       |    |		Load_Top	At_Offset_0
0322 800e       |    |		Call	0x0,0xe
0323 00d1       |    |		Pop_Control	Pop_Count_1
0324 e5fe       |    |		Load	0x2,-0x2
0325 e5fb       |    |		Load	0x2,-0x5
0326 8212       |    |		Call	0x1,0x12
0327 0092 068a  |    |		Action	Push_String_Extended,0x68a					; "POINTEUR"
0329 01df       |    |		Execute	Vector,Equal
032a 6828       |h(  |		Jump_Zero	0x353
032b e5fd       |    |		Load	0x2,-0x3
032c e5fe       |    |		Load	0x2,-0x2
032d e5fb       |    |		Load	0x2,-0x5
032e 821c       |    |		Call	0x1,0x1c
032f e5fb       |    |		Load	0x2,-0x5
0330 8212       |    |		Call	0x1,0x12
0331 e5ff       |    |		Load	0x2,-0x1
0332 8014       |    |		Call	0x0,0x14
0333 6819       |h   |		Jump_Zero	0x34d
0334 00d8       |    |		Load_Top	At_Offset_0
0335 e5fe       |    |		Load	0x2,-0x2
0336 e5fb       |    |		Load	0x2,-0x5
0337 821c       |    |		Call	0x1,0x1c
0338 e5fb       |    |		Load	0x2,-0x5
0339 8213       |    |		Call	0x1,0x13
033a 00d1       |    |		Pop_Control	Pop_Count_1
033b 00d8       |    |		Load_Top	At_Offset_0
033c e5fc       |    |		Load	0x2,-0x4
033d e5fd       |    |		Load	0x2,-0x3
033e 801d       |    |		Call	0x0,0x1d
033f 00d1       |    |		Pop_Control	Pop_Count_1
0340 e5fb       |    |		Load	0x2,-0x5
0341 00d9       |    |		Load_Top	At_Offset_1
0342 e5fe       |    |		Load	0x2,-0x2
0343 e5fb       |    |		Load	0x2,-0x5
0344 821c       |    |		Call	0x1,0x1c
0345 e5fb       |    |		Load	0x2,-0x5
0346 8212       |    |		Call	0x1,0x12
0347 e5fe       |    |		Load	0x2,-0x2
0348 e5fb       |    |		Load	0x2,-0x5
0349 821c       |    |		Call	0x1,0x1c
034a 8221       | !  |		Call	0x1,0x21
034b 00d1       |    |		Pop_Control	Pop_Count_1
034c 7825       |x%  |		Jump	0x372
034d e5fd       |    |		Load	0x2,-0x3
034e 0092 068b  |    |		Action	Push_String_Extended,0x68b					; " est inconnue du scenario =>"
0350 01cc       |    |		Execute	Vector,Catenate
0351 8015       |    |		Call	0x0,0x15
0352 781f       |x   |		Jump	0x372
0353 e5fd       |    |		Load	0x2,-0x3
0354 e5fe       |    |		Load	0x2,-0x2
0355 e5fb       |    |		Load	0x2,-0x5
0356 8212       |    |		Call	0x1,0x12
0357 e5ff       |    |		Load	0x2,-0x1
0358 8014       |    |		Call	0x0,0x14
0359 6813       |h   |		Jump_Zero	0x36d
035a 00d8       |    |		Load_Top	At_Offset_0
035b e5fe       |    |		Load	0x2,-0x2
035c e5fb       |    |		Load	0x2,-0x5
035d 8213       |    |		Call	0x1,0x13
035e 00d1       |    |		Pop_Control	Pop_Count_1
035f 00d8       |    |		Load_Top	At_Offset_0
0360 e5fc       |    |		Load	0x2,-0x4
0361 e5fd       |    |		Load	0x2,-0x3
0362 801d       |    |		Call	0x0,0x1d
0363 00d1       |    |		Pop_Control	Pop_Count_1
0364 e5fb       |    |		Load	0x2,-0x5
0365 00d9       |    |		Load_Top	At_Offset_1
0366 e5fe       |    |		Load	0x2,-0x2
0367 e5fb       |    |		Load	0x2,-0x5
0368 8212       |    |		Call	0x1,0x12
0369 e5fe       |    |		Load	0x2,-0x2
036a 8221       | !  |		Call	0x1,0x21
036b 00d1       |    |		Pop_Control	Pop_Count_1
036c 7805       |x   |		Jump	0x372
036d e5fd       |    |		Load	0x2,-0x3
036e 0092 068b  |    |		Action	Push_String_Extended,0x68b					; " est inconnue du scenario =>"
0370 01cc       |    |		Execute	Vector,Catenate
0371 8015       |    |		Call	0x0,0x15
0372 00d8       |    |		Load_Top	At_Offset_0
0373 8017       |    |		Call	0x0,0x17
0374 00d1       |    |		Pop_Control	Pop_Count_1
0375 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
0376 e5fe       |    |		Load	0x2,-0x2
0377 0092 068b  |    |		Action	Push_String_Extended,0x68b					; " est inconnue du scenario =>"
0379 01cc       |    |		Execute	Vector,Catenate
037a 8015       |    |		Call	0x0,0x15
037b 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
037c 0000 0000  |    |		.BLANK	0000[0x4]
0380 ; --------------------------------------------------------------------------------------
0380 ; SUBPROGRAM
0380 ; --------------------------------------------------------------------------------------
0380 0385       |    |		.CONST	0x0385								; Address of begin
0381 0004       |    |		.CONST	0x0004								; Address of exception handler
0382 0002       |    |		.CONST	0x0002								; Number of locals
0383			INIT_0380:
0383 e003       |    |		Load	0x0,0x3
0384 0322       | "  |		Declare_Variable	Record
0385			BODY_0380:
0385 e5fe       |    |		Load	0x2,-0x2
0386 e5fb       |    |		Load	0x2,-0x5
0387 8211       |    |		Call	0x1,0x11
0388 6855       |hU  |		Jump_Zero	0x3de
0389 00d8       |    |		Load_Top	At_Offset_0
038a 800e       |    |		Call	0x0,0xe
038b 00d1       |    |		Pop_Control	Pop_Count_1
038c e5fe       |    |		Load	0x2,-0x2
038d e5fb       |    |		Load	0x2,-0x5
038e 8212       |    |		Call	0x1,0x12
038f 0092 068a  |    |		Action	Push_String_Extended,0x68a					; "POINTEUR"
0391 01df       |    |		Execute	Vector,Equal
0392 6828       |h(  |		Jump_Zero	0x3bb
0393 e5fd       |    |		Load	0x2,-0x3
0394 e5fe       |    |		Load	0x2,-0x2
0395 e5fb       |    |		Load	0x2,-0x5
0396 821c       |    |		Call	0x1,0x1c
0397 e5fb       |    |		Load	0x2,-0x5
0398 8212       |    |		Call	0x1,0x12
0399 e5ff       |    |		Load	0x2,-0x1
039a 8014       |    |		Call	0x0,0x14
039b 6819       |h   |		Jump_Zero	0x3b5
039c 00d8       |    |		Load_Top	At_Offset_0
039d e5fe       |    |		Load	0x2,-0x2
039e e5fb       |    |		Load	0x2,-0x5
039f 821c       |    |		Call	0x1,0x1c
03a0 e5fb       |    |		Load	0x2,-0x5
03a1 8213       |    |		Call	0x1,0x13
03a2 00d1       |    |		Pop_Control	Pop_Count_1
03a3 00d8       |    |		Load_Top	At_Offset_0
03a4 e5fc       |    |		Load	0x2,-0x4
03a5 e5fd       |    |		Load	0x2,-0x3
03a6 801e       |    |		Call	0x0,0x1e
03a7 00d1       |    |		Pop_Control	Pop_Count_1
03a8 e5fb       |    |		Load	0x2,-0x5
03a9 00d9       |    |		Load_Top	At_Offset_1
03aa e5fe       |    |		Load	0x2,-0x2
03ab e5fb       |    |		Load	0x2,-0x5
03ac 821c       |    |		Call	0x1,0x1c
03ad e5fb       |    |		Load	0x2,-0x5
03ae 8212       |    |		Call	0x1,0x12
03af e5fe       |    |		Load	0x2,-0x2
03b0 e5fb       |    |		Load	0x2,-0x5
03b1 821c       |    |		Call	0x1,0x1c
03b2 8221       | !  |		Call	0x1,0x21
03b3 00d1       |    |		Pop_Control	Pop_Count_1
03b4 7825       |x%  |		Jump	0x3da
03b5 e5fd       |    |		Load	0x2,-0x3
03b6 0092 068b  |    |		Action	Push_String_Extended,0x68b					; " est inconnue du scenario =>"
03b8 01cc       |    |		Execute	Vector,Catenate
03b9 8015       |    |		Call	0x0,0x15
03ba 781f       |x   |		Jump	0x3da
03bb e5fd       |    |		Load	0x2,-0x3
03bc e5fe       |    |		Load	0x2,-0x2
03bd e5fb       |    |		Load	0x2,-0x5
03be 8212       |    |		Call	0x1,0x12
03bf e5ff       |    |		Load	0x2,-0x1
03c0 8014       |    |		Call	0x0,0x14
03c1 6813       |h   |		Jump_Zero	0x3d5
03c2 00d8       |    |		Load_Top	At_Offset_0
03c3 e5fe       |    |		Load	0x2,-0x2
03c4 e5fb       |    |		Load	0x2,-0x5
03c5 8213       |    |		Call	0x1,0x13
03c6 00d1       |    |		Pop_Control	Pop_Count_1
03c7 00d8       |    |		Load_Top	At_Offset_0
03c8 e5fc       |    |		Load	0x2,-0x4
03c9 e5fd       |    |		Load	0x2,-0x3
03ca 801e       |    |		Call	0x0,0x1e
03cb 00d1       |    |		Pop_Control	Pop_Count_1
03cc e5fb       |    |		Load	0x2,-0x5
03cd 00d9       |    |		Load_Top	At_Offset_1
03ce e5fe       |    |		Load	0x2,-0x2
03cf e5fb       |    |		Load	0x2,-0x5
03d0 8212       |    |		Call	0x1,0x12
03d1 e5fe       |    |		Load	0x2,-0x2
03d2 8221       | !  |		Call	0x1,0x21
03d3 00d1       |    |		Pop_Control	Pop_Count_1
03d4 7805       |x   |		Jump	0x3da
03d5 e5fd       |    |		Load	0x2,-0x3
03d6 0092 068b  |    |		Action	Push_String_Extended,0x68b					; " est inconnue du scenario =>"
03d8 01cc       |    |		Execute	Vector,Catenate
03d9 8015       |    |		Call	0x0,0x15
03da 00d8       |    |		Load_Top	At_Offset_0
03db 8017       |    |		Call	0x0,0x17
03dc 00d1       |    |		Pop_Control	Pop_Count_1
03dd 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
03de e5fe       |    |		Load	0x2,-0x2
03df 0092 068b  |    |		Action	Push_String_Extended,0x68b					; " est inconnue du scenario =>"
03e1 01cc       |    |		Execute	Vector,Catenate
03e2 8015       |    |		Call	0x0,0x15
03e3 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
03e4 0000 0000  |    |		.BLANK	0000[0x4]
03e8 ; --------------------------------------------------------------------------------------
03e8 ; SUBPROGRAM
03e8 ; --------------------------------------------------------------------------------------
03e8 03eb       |    |		.CONST	0x03eb								; Address of begin
03e9 0004       |    |		.CONST	0x0004								; Address of exception handler
03ea 0001       |    |		.CONST	0x0001								; Number of locals
03eb			BODY_03e8:
03eb			INIT_03e8:
03eb 00db       |    |		Load_Top	At_Offset_3
03ec 00db       |    |		Load_Top	At_Offset_3
03ed 8211       |    |		Call	0x1,0x11
03ee 680b       |h   |		Jump_Zero	0x3fa
03ef 00db       |    |		Load_Top	At_Offset_3
03f0 00db       |    |		Load_Top	At_Offset_3
03f1 8212       |    |		Call	0x1,0x12
03f2 0092 068a  |    |		Action	Push_String_Extended,0x68a					; "POINTEUR"
03f4 01df       |    |		Execute	Vector,Equal
03f5 6802       |h   |		Jump_Zero	0x3f8
03f6 4801       |H   |		Short_Literal	0x1
03f7 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
03f8 4800       |H   |		Short_Literal	0x0
03f9 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
03fa 00db       |    |		Load_Top	At_Offset_3
03fb 0092 068b  |    |		Action	Push_String_Extended,0x68b					; " est inconnue du scenario =>"
03fd 01cc       |    |		Execute	Vector,Catenate
03fe 801f       |    |		Call	0x0,0x1f
03ff 4800       |H   |		Short_Literal	0x0
0400 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0401 0000 0000  |    |		.BLANK	0000[0x7]
0408 ; --------------------------------------------------------------------------------------
0408 ; SUBPROGRAM
0408 ; --------------------------------------------------------------------------------------
0408 040d       |    |		.CONST	0x040d								; Address of begin
0409 0004       |    |		.CONST	0x0004								; Address of exception handler
040a 0002       |    |		.CONST	0x0002								; Number of locals
040b			INIT_0408:
040b e003       |    |		Load	0x0,0x3
040c 0322       | "  |		Declare_Variable	Record
040d			BODY_0408:
040d e5fe       |    |		Load	0x2,-0x2
040e e5fd       |    |		Load	0x2,-0x3
040f 8211       |    |		Call	0x1,0x11
0410 6814       |h   |		Jump_Zero	0x425
0411 00d8       |    |		Load_Top	At_Offset_0
0412 800e       |    |		Call	0x0,0xe
0413 00d1       |    |		Pop_Control	Pop_Count_1
0414 00d8       |    |		Load_Top	At_Offset_0
0415 e5fe       |    |		Load	0x2,-0x2
0416 0092 068a  |    |		Action	Push_String_Extended,0x68a					; "POINTEUR"
0418 801d       |    |		Call	0x0,0x1d
0419 00d1       |    |		Pop_Control	Pop_Count_1
041a e5fd       |    |		Load	0x2,-0x3
041b 00d9       |    |		Load_Top	At_Offset_1
041c 0092 068a  |    |		Action	Push_String_Extended,0x68a					; "POINTEUR"
041e e5ff       |    |		Load	0x2,-0x1
041f 8221       | !  |		Call	0x1,0x21
0420 00d1       |    |		Pop_Control	Pop_Count_1
0421 00d8       |    |		Load_Top	At_Offset_0
0422 8017       |    |		Call	0x0,0x17
0423 00d1       |    |		Pop_Control	Pop_Count_1
0424 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0425 e5fe       |    |		Load	0x2,-0x2
0426 0092 068b  |    |		Action	Push_String_Extended,0x68b					; " est inconnue du scenario =>"
0428 01cc       |    |		Execute	Vector,Catenate
0429 8015       |    |		Call	0x0,0x15
042a 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
042b 0000 0000  |    |		.BLANK	0000[0x5]
0430 ; --------------------------------------------------------------------------------------
0430 ; SUBPROGRAM
0430 ; --------------------------------------------------------------------------------------
0430 043f       | ?  |		.CONST	0x043f								; Address of begin
0431 0004       |    |		.CONST	0x0004								; Address of exception handler
0432 0004       |    |		.CONST	0x0004								; Number of locals
0433			INIT_0430:
0433 e003       |    |		Load	0x0,0x3
0434 0322       | "  |		Declare_Variable	Record
0435 e012       |    |		Load	0x0,0x12
0436 02ff       |    |		Declare_Variable	Variant_Record
0437 00d8       |    |		Load_Top	At_Offset_0
0438 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0439 4820       |H   |		Short_Literal	0x20
043a e002       |    |		Load	0x0,0x2
043b 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
043c 1c08       |    |		Execute_Immediate	Run_Utility,0x8
043d 00d8       |    |		Load_Top	At_Offset_0
043e 1c00       |    |		Execute_Immediate	Run_Utility,0x0
043f			BODY_0430:
043f e5fe       |    |		Load	0x2,-0x2
0440 e5ff       |    |		Load	0x2,-0x1
0441 8211       |    |		Call	0x1,0x11
0442 6825       |h%  |		Jump_Zero	0x468
0443 00d8       |    |		Load_Top	At_Offset_0
0444 e002       |    |		Load	0x0,0x2
0445 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0446 00d1       |    |		Pop_Control	Pop_Count_1
0447 00d9       |    |		Load_Top	At_Offset_1
0448 8013       |    |		Call	0x0,0x13
0449 00d1       |    |		Pop_Control	Pop_Count_1
044a 00da       |    |		Load_Top	At_Offset_2
044b 800e       |    |		Call	0x0,0xe
044c 00d1       |    |		Pop_Control	Pop_Count_1
044d 00da       |    |		Load_Top	At_Offset_2
044e e5fe       |    |		Load	0x2,-0x2
044f e5ff       |    |		Load	0x2,-0x1
0450 8213       |    |		Call	0x1,0x13
0451 00d1       |    |		Pop_Control	Pop_Count_1
0452 00d9       |    |		Load_Top	At_Offset_1
0453 0092 068a  |    |		Action	Push_String_Extended,0x68a					; "POINTEUR"
0455 e402       |    |		Load	0x2,0x2
0456 8016       |    |		Call	0x0,0x16
0457 00d1       |    |		Pop_Control	Pop_Count_1
0458 00da       |    |		Load_Top	At_Offset_2
0459 8017       |    |		Call	0x0,0x17
045a 00d1       |    |		Pop_Control	Pop_Count_1
045b 00d8       |    |		Load_Top	At_Offset_0
045c 00da       |    |		Load_Top	At_Offset_2
045d 801b       |    |		Call	0x0,0x1b
045e e002       |    |		Load	0x0,0x2
045f 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0460 00d1       |    |		Pop_Control	Pop_Count_1
0461 00d9       |    |		Load_Top	At_Offset_1
0462 8019       |    |		Call	0x0,0x19
0463 00d1       |    |		Pop_Control	Pop_Count_1
0464 00d8       |    |		Load_Top	At_Offset_0
0465 e002       |    |		Load	0x0,0x2
0466 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0467 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0468 e5fe       |    |		Load	0x2,-0x2
0469 0092 068b  |    |		Action	Push_String_Extended,0x68b					; " est inconnue du scenario =>"
046b 01cc       |    |		Execute	Vector,Catenate
046c 8015       |    |		Call	0x0,0x15
046d 0831       | 1  |		Execute_Immediate	Raise,0x31
046e 0000 0000  |    |		.XXX[0x2]
0470 ; --------------------------------------------------------------------------------------
0470 ; SUBPROGRAM
0470 ; --------------------------------------------------------------------------------------
0470 0479       | y  |		.CONST	0x0479								; Address of begin
0471 0004       |    |		.CONST	0x0004								; Address of exception handler
0472 0002       |    |		.CONST	0x0002								; Number of locals
0473			INIT_0470:
0473 4820       |H   |		Short_Literal	0x20
0474 e002       |    |		Load	0x0,0x2
0475 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0476 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0477 00d8       |    |		Load_Top	At_Offset_0
0478 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0479			BODY_0470:
0479 e5fd       |    |		Load	0x2,-0x3
047a e5ff       |    |		Load	0x2,-0x1
047b 8211       |    |		Call	0x1,0x11
047c 685f       |h_  |		Jump_Zero	0x4dc
047d 00d8       |    |		Load_Top	At_Offset_0
047e e002       |    |		Load	0x0,0x2
047f 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0480 00d1       |    |		Pop_Control	Pop_Count_1
0481 e5fd       |    |		Load	0x2,-0x3
0482 e5ff       |    |		Load	0x2,-0x1
0483 8212       |    |		Call	0x1,0x12
0484 0092 068a  |    |		Action	Push_String_Extended,0x68a					; "POINTEUR"
0486 01df       |    |		Execute	Vector,Equal
0487 681e       |h   |		Jump_Zero	0x4a6
0488 e5fc       |    |		Load	0x2,-0x4
0489 e5fd       |    |		Load	0x2,-0x3
048a e5ff       |    |		Load	0x2,-0x1
048b 821c       |    |		Call	0x1,0x1c
048c e5ff       |    |		Load	0x2,-0x1
048d 8212       |    |		Call	0x1,0x12
048e e5fe       |    |		Load	0x2,-0x2
048f 8014       |    |		Call	0x0,0x14
0490 680d       |h   |		Jump_Zero	0x49e
0491 00d8       |    |		Load_Top	At_Offset_0
0492 e5fc       |    |		Load	0x2,-0x4
0493 e5fd       |    |		Load	0x2,-0x3
0494 e5ff       |    |		Load	0x2,-0x1
0495 821c       |    |		Call	0x1,0x1c
0496 e5ff       |    |		Load	0x2,-0x1
0497 8212       |    |		Call	0x1,0x12
0498 e5fe       |    |		Load	0x2,-0x2
0499 8020       |    |		Call	0x0,0x20
049a e002       |    |		Load	0x0,0x2
049b 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
049c 00d1       |    |		Pop_Control	Pop_Count_1
049d 7822       |x"  |		Jump	0x4c0
049e e5fc       |    |		Load	0x2,-0x4
049f 0092 068b  |    |		Action	Push_String_Extended,0x68b					; " est inconnue du scenario =>"
04a1 01cc       |    |		Execute	Vector,Catenate
04a2 801f       |    |		Call	0x0,0x1f
04a3 0092 068c  |    |		Action	Push_String_Extended,0x68c					; "ENTIER"
04a5 4404       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x4
04a6 e5fc       |    |		Load	0x2,-0x4
04a7 e5fd       |    |		Load	0x2,-0x3
04a8 e5ff       |    |		Load	0x2,-0x1
04a9 8212       |    |		Call	0x1,0x12
04aa e5fe       |    |		Load	0x2,-0x2
04ab 8014       |    |		Call	0x0,0x14
04ac 680b       |h   |		Jump_Zero	0x4b8
04ad 00d8       |    |		Load_Top	At_Offset_0
04ae e5fc       |    |		Load	0x2,-0x4
04af e5fd       |    |		Load	0x2,-0x3
04b0 e5ff       |    |		Load	0x2,-0x1
04b1 8212       |    |		Call	0x1,0x12
04b2 e5fe       |    |		Load	0x2,-0x2
04b3 8020       |    |		Call	0x0,0x20
04b4 e002       |    |		Load	0x0,0x2
04b5 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
04b6 00d1       |    |		Pop_Control	Pop_Count_1
04b7 7808       |x   |		Jump	0x4c0
04b8 e5fc       |    |		Load	0x2,-0x4
04b9 0092 068b  |    |		Action	Push_String_Extended,0x68b					; " est inconnue du scenario =>"
04bb 01cc       |    |		Execute	Vector,Catenate
04bc 801f       |    |		Call	0x0,0x1f
04bd 0092 068c  |    |		Action	Push_String_Extended,0x68c					; "ENTIER"
04bf 4404       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x4
04c0 00d8       |    |		Load_Top	At_Offset_0
04c1 e002       |    |		Load	0x0,0x2
04c2 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
04c3 0092 068c  |    |		Action	Push_String_Extended,0x68c					; "ENTIER"
04c5 01df       |    |		Execute	Vector,Equal
04c6 00d9       |    |		Load_Top	At_Offset_1
04c7 e002       |    |		Load	0x0,0x2
04c8 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
04c9 0092 068d  |    |		Action	Push_String_Extended,0x68d					; "CHAINE"
04cb 01df       |    |		Execute	Vector,Equal
04cc 0278       | x  |		Execute	Discrete,Or
04cd 00d9       |    |		Load_Top	At_Offset_1
04ce e002       |    |		Load	0x0,0x2
04cf 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
04d0 0092 068e  |    |		Action	Push_String_Extended,0x68e					; "BOOLEEN"
04d2 01df       |    |		Execute	Vector,Equal
04d3 0278       | x  |		Execute	Discrete,Or
04d4 7003       |p   |		Jump_Nonzero	0x4d8
04d5 0092 068f  |    |		Action	Push_String_Extended,0x68f					; "ENUMERE"
04d7 4404       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x4
04d8 00d8       |    |		Load_Top	At_Offset_0
04d9 e002       |    |		Load	0x0,0x2
04da 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
04db 4404       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x4
04dc e5fd       |    |		Load	0x2,-0x3
04dd 0092 068b  |    |		Action	Push_String_Extended,0x68b					; " est inconnue du scenario =>"
04df 01cc       |    |		Execute	Vector,Catenate
04e0 801f       |    |		Call	0x0,0x1f
04e1 0092 068c  |    |		Action	Push_String_Extended,0x68c					; "ENTIER"
04e3 4404       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x4
04e4 0000 0000  |    |		.BLANK	0000[0x4]
04e8 ; --------------------------------------------------------------------------------------
04e8 ; SUBPROGRAM
04e8 ; --------------------------------------------------------------------------------------
04e8 04eb       |    |		.CONST	0x04eb								; Address of begin
04e9 0004       |    |		.CONST	0x0004								; Address of exception handler
04ea 0001       |    |		.CONST	0x0001								; Number of locals
04eb			BODY_04e8:
04eb			INIT_04e8:
04eb e5fd       |    |		Load	0x2,-0x3
04ec 00db       |    |		Load_Top	At_Offset_3
04ed 8211       |    |		Call	0x1,0x11
04ee 6815       |h   |		Jump_Zero	0x504
04ef e5fd       |    |		Load	0x2,-0x3
04f0 00db       |    |		Load_Top	At_Offset_3
04f1 8212       |    |		Call	0x1,0x12
04f2 0092 068a  |    |		Action	Push_String_Extended,0x68a					; "POINTEUR"
04f4 01df       |    |		Execute	Vector,Equal
04f5 6808       |h   |		Jump_Zero	0x4fe
04f6 e5fd       |    |		Load	0x2,-0x3
04f7 00db       |    |		Load_Top	At_Offset_3
04f8 821c       |    |		Call	0x1,0x1c
04f9 00db       |    |		Load_Top	At_Offset_3
04fa 8212       |    |		Call	0x1,0x12
04fb e5fe       |    |		Load	0x2,-0x2
04fc 8021       | !  |		Call	0x0,0x21
04fd 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
04fe e5fd       |    |		Load	0x2,-0x3
04ff 00db       |    |		Load_Top	At_Offset_3
0500 8212       |    |		Call	0x1,0x12
0501 e5fe       |    |		Load	0x2,-0x2
0502 8021       | !  |		Call	0x0,0x21
0503 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
0504 e5fd       |    |		Load	0x2,-0x3
0505 0092 068b  |    |		Action	Push_String_Extended,0x68b					; " est inconnue du scenario =>"
0507 01cc       |    |		Execute	Vector,Catenate
0508 801f       |    |		Call	0x0,0x1f
0509 0092 0690  |    |		Action	Push_String_Extended,0x690					; "STRUCTURE"
050b 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
050c 0000 0000  |    |		.BLANK	0000[0x4]
0510 ; --------------------------------------------------------------------------------------
0510 ; SUBPROGRAM
0510 ; --------------------------------------------------------------------------------------
0510 0513       |    |		.CONST	0x0513								; Address of begin
0511 0004       |    |		.CONST	0x0004								; Address of exception handler
0512 0001       |    |		.CONST	0x0001								; Number of locals
0513			BODY_0510:
0513			INIT_0510:
0513 4800       |H   |		Short_Literal	0x0
0514 00db       |    |		Load_Top	At_Offset_3
0515 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0516 1d36       | 6  |		Execute_Immediate	Reference_Lex_1,0x36
0517 1d37       | 7  |		Execute_Immediate	Reference_Lex_1,0x37
0518 e00b       |    |		Load	0x0,0xb
0519 e22b       | +  |		Load	0x1,0x2b
051a 0096       |    |		Execute	Package,Entry
051b 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
051c 0000 0000  |    |		.BLANK	0000[0x4]
0520 ; --------------------------------------------------------------------------------------
0520 ; SUBPROGRAM
0520 ; --------------------------------------------------------------------------------------
0520 0523       | #  |		.CONST	0x0523								; Address of begin
0521 0004       |    |		.CONST	0x0004								; Address of exception handler
0522 0001       |    |		.CONST	0x0001								; Number of locals
0523			BODY_0520:
0523			INIT_0520:
0523 0092 0691  |    |		Action	Push_String_Extended,0x691					; "Number of Symbol:"
0525 00db       |    |		Load_Top	At_Offset_3
0526 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0527 e022       | "  |		Load	0x0,0x22
0528 e22b       | +  |		Load	0x1,0x2b
0529 0096       |    |		Execute	Package,Entry
052a 00e0       |    |		Load_Encached	Standard_Cache
052b 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
052c 01cc       |    |		Execute	Vector,Catenate
052d e023       | #  |		Load	0x0,0x23
052e 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
052f 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0530 ; --------------------------------------------------------------------------------------
0530 ; SUBPROGRAM
0530 ; --------------------------------------------------------------------------------------
0530 053b       | ;  |		.CONST	0x053b								; Address of begin
0531 0555       | U  |		.CONST	0x0555								; Address of exception handler
0532 0004       |    |		.CONST	0x0004								; Number of locals
0533			INIT_0530:
0533 00e1       |    |		Load_Encached	Boolean_Cache
0534 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0535 e229       | )  |		Load	0x1,0x29
0536 0322       | "  |		Declare_Variable	Record
0537 00d8       |    |		Load_Top	At_Offset_0
0538 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0539 e003       |    |		Load	0x0,0x3
053a 0322       | "  |		Declare_Variable	Record
053b			BODY_0530:
053b 00d8       |    |		Load_Top	At_Offset_0
053c 800e       |    |		Call	0x0,0xe
053d 00d1       |    |		Pop_Control	Pop_Count_1
053e 00d8       |    |		Load_Top	At_Offset_0
053f e5fd       |    |		Load	0x2,-0x3
0540 8011       |    |		Call	0x0,0x11
0541 00d1       |    |		Pop_Control	Pop_Count_1
0542 00d9       |    |		Load_Top	At_Offset_1
0543 00e1       |    |		Load_Encached	Boolean_Cache
0544 e5fc       |    |		Load	0x2,-0x4
0545 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0546 00db       |    |		Load_Top	At_Offset_3
0547 e5fe       |    |		Load	0x2,-0x2
0548 e5ff       |    |		Load	0x2,-0x1
0549 8230       | 0  |		Call	0x1,0x30
054a e024       | $  |		Load	0x0,0x24
054b e22b       | +  |		Load	0x1,0x2b
054c 0096       |    |		Execute	Package,Entry
054d c402       |    |		Store	0x2,0x2
054e 00d1       |    |		Pop_Control	Pop_Count_1
054f 00da       |    |		Load_Top	At_Offset_2
0550 6803       |h   |		Jump_Zero	0x554
0551 00d9       |    |		Load_Top	At_Offset_1
0552 8231       | 1  |		Call	0x1,0x31
0553 00d1       |    |		Pop_Control	Pop_Count_1
0554 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0555			TRAP_0530:
0555 0007       |    |		Action	Break_Optional
0556 e20d       |    |		Load	0x1,0xd
0557 0257       | W  |		Execute	Discrete,Raise
0558 ; --------------------------------------------------------------------------------------
0558 ; SUBPROGRAM
0558 ; --------------------------------------------------------------------------------------
0558 055b       | [  |		.CONST	0x055b								; Address of begin
0559 0004       |    |		.CONST	0x0004								; Address of exception handler
055a 0001       |    |		.CONST	0x0001								; Number of locals
055b			BODY_0558:
055b			INIT_0558:
055b 00da       |    |		Load_Top	At_Offset_2
055c 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
055d 1d32       | 2  |		Execute_Immediate	Reference_Lex_1,0x32
055e 1d33       | 3  |		Execute_Immediate	Reference_Lex_1,0x33
055f e009       |    |		Load	0x0,0x9
0560 e22b       | +  |		Load	0x1,0x2b
0561 0096       |    |		Execute	Package,Entry
0562 00db       |    |		Load_Top	At_Offset_3
0563 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0564 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0565 0000 0000  |    |		.XXX[0x3]
0567 0000       |    |
0568 ; --------------------------------------------------------------------------------------
0568 ; SUBPROGRAM
0568 ; --------------------------------------------------------------------------------------
0568 056b       | k  |		.CONST	0x056b								; Address of begin
0569 0004       |    |		.CONST	0x0004								; Address of exception handler
056a 0001       |    |		.CONST	0x0001								; Number of locals
056b			BODY_0568:
056b			INIT_0568:
056b 00da       |    |		Load_Top	At_Offset_2
056c 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
056d e025       | %  |		Load	0x0,0x25
056e e22b       | +  |		Load	0x1,0x2b
056f 0096       |    |		Execute	Package,Entry
0570 e5fe       |    |		Load	0x2,-0x2
0571 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0572 4800       |H   |		Short_Literal	0x0
0573 a22f       | /  |		Store_Unchecked	0x1,0x2f
0574 00db       |    |		Load_Top	At_Offset_3
0575 8224       | $  |		Call	0x1,0x24
0576 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0577 0000       |    |		.XXX[0x1]
0578 ; --------------------------------------------------------------------------------------
0578 ; SUBPROGRAM
0578 ; --------------------------------------------------------------------------------------
0578 057b       | {  |		.CONST	0x057b								; Address of begin
0579 0004       |    |		.CONST	0x0004								; Address of exception handler
057a 0001       |    |		.CONST	0x0001								; Number of locals
057b			BODY_0578:
057b			INIT_0578:
057b e22f       | /  |		Load	0x1,0x2f
057c 7012       |p   |		Jump_Nonzero	0x58f
057d 00da       |    |		Load_Top	At_Offset_2
057e 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
057f e026       | &  |		Load	0x0,0x26
0580 e22b       | +  |		Load	0x1,0x2b
0581 0096       |    |		Execute	Package,Entry
0582 680a       |h   |		Jump_Zero	0x58d
0583 e22e       | .  |		Load	0x1,0x2e
0584 00db       |    |		Load_Top	At_Offset_3
0585 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0586 e027       | '  |		Load	0x0,0x27
0587 e22b       | +  |		Load	0x1,0x2b
0588 0096       |    |		Execute	Package,Entry
0589 e5ff       |    |		Load	0x2,-0x1
058a 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
058b 00d1       |    |		Pop_Control	Pop_Count_1
058c 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
058d e20e       |    |		Load	0x1,0xe
058e 0257       | W  |		Execute	Discrete,Raise
058f 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0590 ; --------------------------------------------------------------------------------------
0590 ; SUBPROGRAM
0590 ; --------------------------------------------------------------------------------------
0590 0593       |    |		.CONST	0x0593								; Address of begin
0591 0598       |    |		.CONST	0x0598								; Address of exception handler
0592 0001       |    |		.CONST	0x0001								; Number of locals
0593			BODY_0590:
0593			INIT_0590:
0593 e22e       | .  |		Load	0x1,0x2e
0594 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0595 e002       |    |		Load	0x0,0x2
0596 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0597 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0598			TRAP_0590:
0598 0007       |    |		Action	Break_Optional
0599 e20e       |    |		Load	0x1,0xe
059a 0257       | W  |		Execute	Discrete,Raise
059b 0000 0000  |    |		.BLANK	0000[0x5]
05a0 ; --------------------------------------------------------------------------------------
05a0 ; SUBPROGRAM
05a0 ; --------------------------------------------------------------------------------------
05a0 05a3       |    |		.CONST	0x05a3								; Address of begin
05a1 05a8       |    |		.CONST	0x05a8								; Address of exception handler
05a2 0001       |    |		.CONST	0x0001								; Number of locals
05a3			BODY_05a0:
05a3			INIT_05a0:
05a3 e22e       | .  |		Load	0x1,0x2e
05a4 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
05a5 e002       |    |		Load	0x0,0x2
05a6 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
05a7 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
05a8			TRAP_05a0:
05a8 0007       |    |		Action	Break_Optional
05a9 e20e       |    |		Load	0x1,0xe
05aa 0257       | W  |		Execute	Discrete,Raise
05ab 0000 0000  |    |		.BLANK	0000[0x5]
05b0 ; --------------------------------------------------------------------------------------
05b0 ; SUBPROGRAM
05b0 ; --------------------------------------------------------------------------------------
05b0 05b3       |    |		.CONST	0x05b3								; Address of begin
05b1 05b8       |    |		.CONST	0x05b8								; Address of exception handler
05b2 0001       |    |		.CONST	0x0001								; Number of locals
05b3			BODY_05b0:
05b3			INIT_05b0:
05b3 00db       |    |		Load_Top	At_Offset_3
05b4 e22e       | .  |		Load	0x1,0x2e
05b5 3402       |4   |		Execute	Record,Field_Reference,Field_Number 0x2
05b6 8011       |    |		Call	0x0,0x11
05b7 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
05b8			TRAP_05b0:
05b8 0007       |    |		Action	Break_Optional
05b9 e20e       |    |		Load	0x1,0xe
05ba 0257       | W  |		Execute	Discrete,Raise
05bb 0000 0000  |    |		.BLANK	0000[0x5]
05c0 ; --------------------------------------------------------------------------------------
05c0 ; SUBPROGRAM
05c0 ; --------------------------------------------------------------------------------------
05c0 05c5       |    |		.CONST	0x05c5								; Address of begin
05c1 0004       |    |		.CONST	0x0004								; Address of exception handler
05c2 0002       |    |		.CONST	0x0002								; Number of locals
05c3			INIT_05c0:
05c3 00e1       |    |		Load_Encached	Boolean_Cache
05c4 0601       |    |		Execute_Immediate	Set_Value_Unchecked,0x1
05c5			BODY_05c0:
05c5 00db       |    |		Load_Top	At_Offset_3
05c6 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
05c7 e026       | &  |		Load	0x0,0x26
05c8 e22b       | +  |		Load	0x1,0x2b
05c9 0096       |    |		Execute	Package,Entry
05ca 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
05cb 00d8       |    |		Load_Top	At_Offset_0
05cc 6802       |h   |		Jump_Zero	0x5cf
05cd 4800       |H   |		Short_Literal	0x0
05ce 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
05cf 00d8       |    |		Load_Top	At_Offset_0
05d0 0f00       |    |		Execute_Immediate	Equal,0x0
05d1 e22f       | /  |		Load	0x1,0x2f
05d2 0f00       |    |		Execute_Immediate	Equal,0x0
05d3 0279       | y  |		Execute	Discrete,And
05d4 6804       |h   |		Jump_Zero	0x5d9
05d5 4801       |H   |		Short_Literal	0x1
05d6 a22f       | /  |		Store_Unchecked	0x1,0x2f
05d7 4800       |H   |		Short_Literal	0x0
05d8 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
05d9 00d8       |    |		Load_Top	At_Offset_0
05da 0f00       |    |		Execute_Immediate	Equal,0x0
05db e22f       | /  |		Load	0x1,0x2f
05dc 0279       | y  |		Execute	Discrete,And
05dd 6802       |h   |		Jump_Zero	0x5e0
05de 4801       |H   |		Short_Literal	0x1
05df 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
05e0 0831       | 1  |		Execute_Immediate	Raise,0x31
05e1 0000 0000  |    |		.BLANK	0000[0x7]
05e8 ; --------------------------------------------------------------------------------------
05e8 ; SUBPROGRAM
05e8 ; --------------------------------------------------------------------------------------
05e8 05ed       |    |		.CONST	0x05ed								; Address of begin
05e9 0004       |    |		.CONST	0x0004								; Address of exception handler
05ea 0002       |    |		.CONST	0x0002								; Number of locals
05eb			INIT_05e8:
05eb 029f 0653  |   S|		Declare_Subprogram	INIT_0650,For_Call
05ed			BODY_05e8:
05ed 8402       |    |		Call	0x2,0x2
05ee 0831       | 1  |		Execute_Immediate	Raise,0x31
05ef 0000       |    |		.XXX[0x1]
05f0 ; --------------------------------------------------------------------------------------
05f0 ; SUBPROGRAM
05f0 ; --------------------------------------------------------------------------------------
05f0 05f7       |    |		.CONST	0x05f7								; Address of begin
05f1 0004       |    |		.CONST	0x0004								; Address of exception handler
05f2 0002       |    |		.CONST	0x0002								; Number of locals
05f3			INIT_05f0:
05f3 e229       | )  |		Load	0x1,0x29
05f4 0322       | "  |		Declare_Variable	Record
05f5 00d8       |    |		Load_Top	At_Offset_0
05f6 1c00       |    |		Execute_Immediate	Run_Utility,0x0
05f7			BODY_05f0:
05f7 00d8       |    |		Load_Top	At_Offset_0
05f8 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
05f9 e002       |    |		Load	0x0,0x2
05fa 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
05fb 00d1       |    |		Pop_Control	Pop_Count_1
05fc 00d8       |    |		Load_Top	At_Offset_0
05fd 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
05fe e5ff       |    |		Load	0x2,-0x1
05ff e002       |    |		Load	0x0,0x2
0600 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0601 00d1       |    |		Pop_Control	Pop_Count_1
0602 00d8       |    |		Load_Top	At_Offset_0
0603 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0604 e002       |    |		Load	0x0,0x2
0605 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0606 00d1       |    |		Pop_Control	Pop_Count_1
0607 00d8       |    |		Load_Top	At_Offset_0
0608 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0609 e5fe       |    |		Load	0x2,-0x2
060a e002       |    |		Load	0x0,0x2
060b 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
060c 00d1       |    |		Pop_Control	Pop_Count_1
060d 00d8       |    |		Load_Top	At_Offset_0
060e 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
060f e5fd       |    |		Load	0x2,-0x3
0610 8028       | (  |		Call	0x0,0x28
0611 00d1       |    |		Pop_Control	Pop_Count_1
0612 00d8       |    |		Load_Top	At_Offset_0
0613 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
0614 0000 0000  |    |		.BLANK	0000[0x4]
0618 ; --------------------------------------------------------------------------------------
0618 ; SUBPROGRAM
0618 ; --------------------------------------------------------------------------------------
0618 061b       |    |		.CONST	0x061b								; Address of begin
0619 0004       |    |		.CONST	0x0004								; Address of exception handler
061a 0001       |    |		.CONST	0x0001								; Number of locals
061b			BODY_0618:
061b			INIT_0618:
061b 00da       |    |		Load_Top	At_Offset_2
061c 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
061d 8017       |    |		Call	0x0,0x17
061e 00d1       |    |		Pop_Control	Pop_Count_1
061f 00da       |    |		Load_Top	At_Offset_2
0620 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0621 e002       |    |		Load	0x0,0x2
0622 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0623 00d1       |    |		Pop_Control	Pop_Count_1
0624 00da       |    |		Load_Top	At_Offset_2
0625 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0626 e002       |    |		Load	0x0,0x2
0627 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0628 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0629 0000 0000  |    |		.BLANK	0000[0x7]
0630 ; --------------------------------------------------------------------------------------
0630 ; SUBPROGRAM
0630 ; --------------------------------------------------------------------------------------
0630 0633       | 3  |		.CONST	0x0633								; Address of begin
0631 0004       |    |		.CONST	0x0004								; Address of exception handler
0632 0001       |    |		.CONST	0x0001								; Number of locals
0633			BODY_0630:
0633			INIT_0630:
0633 0092 0692  |    |		Action	Push_String_Extended,0x692					; "........................................"
0635 e023       | #  |		Load	0x0,0x23
0636 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
0637 00da       |    |		Load_Top	At_Offset_2
0638 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0639 e002       |    |		Load	0x0,0x2
063a 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
063b 0092 0693  |    |		Action	Push_String_Extended,0x693					; " "
063d 01cc       |    |		Execute	Vector,Catenate
063e 00db       |    |		Load_Top	At_Offset_3
063f 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
0640 e002       |    |		Load	0x0,0x2
0641 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0642 01cc       |    |		Execute	Vector,Catenate
0643 0092 0694  |    |		Action	Push_String_Extended,0x694					; " With Object: "
0645 01cc       |    |		Execute	Vector,Catenate
0646 e023       | #  |		Load	0x0,0x23
0647 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
0648 00da       |    |		Load_Top	At_Offset_2
0649 3402       |4   |		Execute	Record,Field_Reference,Field_Number 0x2
064a 8029       | )  |		Call	0x0,0x29
064b 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
064c 0000 0000  |    |		.BLANK	0000[0x4]
0650 ; --------------------------------------------------------------------------------------
0650 ; SUBPROGRAM
0650 ; --------------------------------------------------------------------------------------
0650 0653       | S  |		.CONST	0x0653								; Address of begin
0651 0004       |    |		.CONST	0x0004								; Address of exception handler
0652 0001       |    |		.CONST	0x0001								; Number of locals
0653			BODY_0650:
0653			INIT_0650:
0653 e5ff       |    |		Load	0x2,-0x1
0654 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0655 e002       |    |		Load	0x0,0x2
0656 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0657 e5fe       |    |		Load	0x2,-0x2
0658 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0659 e002       |    |		Load	0x0,0x2
065a 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
065b 01c1       |    |		Execute	Vector,Less
065c 6803       |h   |		Jump_Zero	0x660
065d 4fff       |O   |		Short_Literal	-0x1
065e 00cb       |    |		Action	Pop_Block_With_Result
065f 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0660 e5ff       |    |		Load	0x2,-0x1
0661 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0662 e002       |    |		Load	0x0,0x2
0663 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0664 e5fe       |    |		Load	0x2,-0x2
0665 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0666 e002       |    |		Load	0x0,0x2
0667 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0668 01df       |    |		Execute	Vector,Equal
0669 6803       |h   |		Jump_Zero	0x66d
066a 4800       |H   |		Short_Literal	0x0
066b 00cb       |    |		Action	Pop_Block_With_Result
066c 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
066d 4801       |H   |		Short_Literal	0x1
066e 00cb       |    |		Action	Pop_Block_With_Result
066f 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0670 ; --------------------------------------------------------------------------------------
0670 ; SUBPROGRAM
0670 ; --------------------------------------------------------------------------------------
0670 0673       | s  |		.CONST	0x0673								; Address of begin
0671 0004       |    |		.CONST	0x0004								; Address of exception handler
0672 0001       |    |		.CONST	0x0001								; Number of locals
0673			BODY_0670:
0673			INIT_0670:
0673 4601       |F   |		Jump_Case	0x2
0674 7801       |x   |		Jump	0x676								; case 0x0
0675 780d       |x   |		Jump	0x683								; case 0x1
0676 00da       |    |		Load_Top	At_Offset_2
0677 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0678 0125       | %  |		Execute	Any,Set_Constraint
0679 00da       |    |		Load_Top	At_Offset_2
067a 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
067b 1c00       |    |		Execute_Immediate	Run_Utility,0x0
067c 00da       |    |		Load_Top	At_Offset_2
067d 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
067e 0125       | %  |		Execute	Any,Set_Constraint
067f 00da       |    |		Load_Top	At_Offset_2
0680 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
0681 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0682 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
0683 00da       |    |		Load_Top	At_Offset_2
0684 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0685 0125       | %  |		Execute	Any,Set_Constraint
0686 00da       |    |		Load_Top	At_Offset_2
0687 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
0688 0125       | %  |		Execute	Any,Set_Constraint
0689 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
068a ; --------------------------------------------------------------------------------------
068a ; STRING TABLE
068a ; --------------------------------------------------------------------------------------
068a 0018       |    |		.STRTAB	0x0018->0x0696							; "POINTEUR"
068b 001e       |    |		.STRTAB	0x001e->0x069a							; " est inconnue du scenario =>"
068c 0038       | 8  |		.STRTAB	0x0038->0x06a8							; "ENTIER"
068d 003c       | <  |		.STRTAB	0x003c->0x06ab							; "CHAINE"
068e 0040       | @  |		.STRTAB	0x0040->0x06ae							; "BOOLEEN"
068f 0045       | E  |		.STRTAB	0x0045->0x06b1							; "ENUMERE"
0690 004a       | J  |		.STRTAB	0x004a->0x06b5							; "STRUCTURE"
0691 0051       | Q  |		.STRTAB	0x0051->0x06b9							; "Number of Symbol:"
0692 0060       | `  |		.STRTAB	0x0060->0x06c2							; "........................................"
0693 0086       |    |		.STRTAB	0x0086->0x06d6							; " "
0694 0085       |    |		.STRTAB	0x0085->0x06d6							; " With Object: "
0695 0091       |    |		.STREND 0x0091->0x06dd
0696 504f 494e  |POIN|		.STRTAB_STRINGS
06de 0000 0000  |    |		.XXX[0x2]
06e0 ; --------------------------------------------------------------------------------------
06e0 ; Debug Table
06e0 ; --------------------------------------------------------------------------------------
06e0 0004 0008  |    |		.DEBUG4	0x0004,0x0008,0x64da,0x0000,0x0001,0x0021
06e6 000b 076a  |   j|		.DBG4T	0x000b,0x076a,0x8000,0x8000
06ea 0078 07ae  | x  |		.DBG4T	0x0078,0x07ae,0x8000,0x8000
06ee 00db 07f2  |    |		.DBG4T	0x00db,0x07f2,0x0001,0x0000
06f2 0103 07f5  |    |		.DBG4T	0x0103,0x07f5,0x0002,0x0000
06f6 0123 07fc  | #  |		.DBG4T	0x0123,0x07fc,0x0002,0x0000
06fa 0153 0808  | S  |		.DBG4T	0x0153,0x0808,0x0001,0x0000
06fe 0183 0813  |    |		.DBG4T	0x0183,0x0813,0x0002,0x0000
0702 01e3 082a  |   *|		.DBG4T	0x01e3,0x082a,0x0002,0x0000
0706 0243 0841  | C A|		.DBG4T	0x0243,0x0841,0x0002,0x0000
070a 02b3 0859  |   Y|		.DBG4T	0x02b3,0x0859,0x0001,0x0000
070e 031b 086b  |   k|		.DBG4T	0x031b,0x086b,0x0001,0x0000
0712 0383 087d  |   }|		.DBG4T	0x0383,0x087d,0x0001,0x0000
0716 03eb 088f  |    |		.DBG4T	0x03eb,0x088f,0x0002,0x0000
071a 040b 0897  |    |		.DBG4T	0x040b,0x0897,0x0001,0x0000
071e 0433 08a0  | 3  |		.DBG4T	0x0433,0x08a0,0x0002,0x0000
0722 0473 08b0  | s  |		.DBG4T	0x0473,0x08b0,0x0002,0x0000
0726 04eb 08c3  |    |		.DBG4T	0x04eb,0x08c3,0x0002,0x0000
072a 0513 08cb  |    |		.DBG4T	0x0513,0x08cb,0x0001,0x0000
072e 0523 08ce  | #  |		.DBG4T	0x0523,0x08ce,0x0001,0x0000
0732 0533 08d1  | 3  |		.DBG4T	0x0533,0x08d1,0x0001,0x0000
0736 055b 08dc  | [  |		.DBG4T	0x055b,0x08dc,0x0001,0x0000
073a 056b 08df  | k  |		.DBG4T	0x056b,0x08df,0x0001,0x0000
073e 057b 08e4  | {  |		.DBG4T	0x057b,0x08e4,0x0001,0x0000
0742 0593 08ea  |    |		.DBG4T	0x0593,0x08ea,0x0002,0x0000
0746 05a3 08ee  |    |		.DBG4T	0x05a3,0x08ee,0x0002,0x0000
074a 05b3 08f2  |    |		.DBG4T	0x05b3,0x08f2,0x0001,0x0000
074e 05c3 08f6  |    |		.DBG4T	0x05c3,0x08f6,0x0002,0x0000
0752 05eb 0901  |    |		.DBG4T	0x05eb,0x0901,0x0002,0x0000
0756 05f3 0904  |    |		.DBG4T	0x05f3,0x0904,0x0002,0x0000
075a 061b 090d  |    |		.DBG4T	0x061b,0x090d,0x0001,0x0000
075e 0633 0912  | 3  |		.DBG4T	0x0633,0x0912,0x0001,0x0000
0762 0653 0917  | S  |		.DBG4T	0x0653,0x0917,0x0004,0x0000
0766 0673 0000  | s  |		.DBG4T	0x0673,0x0000,0x0005,0x0000
076a ; --------------------------------------------------------------------------------------
076a ; Debug chain
076a ; --------------------------------------------------------------------------------------
076a 0021 0000  | !  |		.DBGLEN	0x0021,0x0000
076c 000b 0010  |    |		.DBGLNO	0x000b,0x0010,0x0015,0x001a,0x001c,0x001e,0x0020,0x0022,0x0024,0x0026,0x0028,0x002a,0x002c,0x002e,0x0030,0x0032,0x0034,0x0036,0x0038,0x003a,0x003c,0x003e,0x0040,0x0042,0x0044,0x0046,0x0048,0x004a,0x004c,0x005b,0x005d,0x006b,0x0071
078d 0001 0002  |    |		.XXX[0x21]
078f 0003 0007  |    |
0791 0008 0009  |    |
0793 000a 000b  |    |
0795 000c 000d  |    |
0797 000e 000f  |    |
0799 0010 0011  |    |
079b 0012 0013  |    |
079d 0014 0015  |    |
079f 0016 0017  |    |
07a1 0018 0019  |    |
07a3 001a 001b  |    |
07a5 001c 001d  |    |
07a7 001e 001f  |    |
07a9 0020 0021  |   !|
07ab 0022 0023  | " #|
07ad 0024       | $  |
07ae ; --------------------------------------------------------------------------------------
07ae ; Debug chain
07ae ; --------------------------------------------------------------------------------------
07ae 0021 0000  | !  |		.DBGLEN	0x0021,0x0000
07b0 0078 007c  | x ||		.DBGLNO	0x0078,0x007c,0x007d,0x007f,0x0081,0x0083,0x0092,0x0094,0x00a3,0x00a5,0x00a7,0x00a9,0x00ab,0x00ad,0x00af,0x00b1,0x00b3,0x00b5,0x00b7,0x00b9,0x00bb,0x00bd,0x00bf,0x00c1,0x00c3,0x00c5,0x00c7,0x00c9,0x00cb,0x00cd,0x00cf,0x00d1,0x00d3
07d1 0004 0005  |    |		.XXX[0x21]
07d3 0006 0007  |    |
07d5 0008 0009  |    |
07d7 000a 000b  |    |
07d9 000c 000d  |    |
07db 000e 000f  |    |
07dd 0010 0011  |    |
07df 0012 0013  |    |
07e1 0014 0015  |    |
07e3 0016 0017  |    |
07e5 0018 0019  |    |
07e7 001a 001b  |    |
07e9 001c 001d  |    |
07eb 001e 001f  |    |
07ed 0020 0021  |   !|
07ef 0022 0023  | " #|
07f1 0024       | $  |
07f2 ; --------------------------------------------------------------------------------------
07f2 ; Debug chain
07f2 ; --------------------------------------------------------------------------------------
07f2 0000 0001  |    |		.DBGLEN	0x0000,0x0001
07f4 00db       |    |		.DBGLNO	0x00db
07f5 ; --------------------------------------------------------------------------------------
07f5 ; Debug chain
07f5 ; --------------------------------------------------------------------------------------
07f5 0002 0003  |    |		.DBGLEN	0x0002,0x0003
07f7 0103 0107  |    |		.DBGLNO	0x0103,0x0107,0x0109,0x010c,0x0112
07fc ; --------------------------------------------------------------------------------------
07fc ; Debug chain
07fc ; --------------------------------------------------------------------------------------
07fc 0003 0007  |    |		.DBGLEN	0x0003,0x0007
07fe 0123 0125  | # %|		.DBGLNO	0x0123,0x0125,0x0129,0x012b,0x012e,0x0134,0x013e,0x0140,0x0145,0x0148
0808 ; --------------------------------------------------------------------------------------
0808 ; Debug chain
0808 ; --------------------------------------------------------------------------------------
0808 0003 0006  |    |		.DBGLEN	0x0003,0x0006
080a 0153 0155  | S U|		.DBGLNO	0x0153,0x0155,0x0159,0x015b,0x015e,0x0164,0x016e,0x0170,0x0177
0813 ; --------------------------------------------------------------------------------------
0813 ; Debug chain
0813 ; --------------------------------------------------------------------------------------
0813 0003 0012  |    |		.DBGLEN	0x0003,0x0012
0815 0183 0185  |    |		.DBGLNO	0x0183,0x0185,0x0189,0x018a,0x018e,0x0191,0x0194,0x019b,0x01a4,0x01ac,0x01b1,0x01b3,0x01ba,0x01c0,0x01c5,0x01c7,0x01cc,0x01cf,0x01d2,0x01d5,0x01d7
082a ; --------------------------------------------------------------------------------------
082a ; Debug chain
082a ; --------------------------------------------------------------------------------------
082a 0003 0012  |    |		.DBGLEN	0x0003,0x0012
082c 01e3 01e5  |    |		.DBGLNO	0x01e3,0x01e5,0x01e9,0x01ea,0x01ee,0x01f1,0x01f4,0x01fb,0x0204,0x020c,0x0211,0x0213,0x021a,0x0220,0x0225,0x0227,0x022c,0x022f,0x0232,0x0235,0x0237
0841 ; --------------------------------------------------------------------------------------
0841 ; Debug chain
0841 ; --------------------------------------------------------------------------------------
0841 0003 0013  |    |		.DBGLEN	0x0003,0x0013
0843 0243 0245  | C E|		.DBGLNO	0x0243,0x0245,0x0249,0x024f,0x0253,0x0257,0x025a,0x025d,0x0264,0x026d,0x0275,0x027a,0x027c,0x0283,0x0289,0x028e,0x0290,0x0295,0x0298,0x029e,0x02a1,0x02a5
0859 ; --------------------------------------------------------------------------------------
0859 ; Debug chain
0859 ; --------------------------------------------------------------------------------------
0859 0001 000f  |    |		.DBGLEN	0x0001,0x000f
085b 02b3 02b5  |    |		.DBGLNO	0x02b3,0x02b5,0x02b9,0x02bc,0x02c3,0x02cc,0x02d3,0x02d8,0x02e5,0x02eb,0x02f2,0x02f7,0x02fc,0x0305,0x030a,0x030e
086b ; --------------------------------------------------------------------------------------
086b ; Debug chain
086b ; --------------------------------------------------------------------------------------
086b 0001 000f  |    |		.DBGLEN	0x0001,0x000f
086d 031b 031d  |    |		.DBGLNO	0x031b,0x031d,0x0321,0x0324,0x032b,0x0334,0x033b,0x0340,0x034d,0x0353,0x035a,0x035f,0x0364,0x036d,0x0372,0x0376
087d ; --------------------------------------------------------------------------------------
087d ; Debug chain
087d ; --------------------------------------------------------------------------------------
087d 0001 000f  |    |		.DBGLEN	0x0001,0x000f
087f 0383 0385  |    |		.DBGLNO	0x0383,0x0385,0x0389,0x038c,0x0393,0x039c,0x03a3,0x03a8,0x03b5,0x03bb,0x03c2,0x03c7,0x03cc,0x03d5,0x03da,0x03de
088f ; --------------------------------------------------------------------------------------
088f ; Debug chain
088f ; --------------------------------------------------------------------------------------
088f 0000 0006  |    |		.DBGLEN	0x0000,0x0006
0891 03eb 03ef  |    |		.DBGLNO	0x03eb,0x03ef,0x03f6,0x03f8,0x03fa,0x03ff
0897 ; --------------------------------------------------------------------------------------
0897 ; Debug chain
0897 ; --------------------------------------------------------------------------------------
0897 0001 0006  |    |		.DBGLEN	0x0001,0x0006
0899 040b 040d  |    |		.DBGLNO	0x040b,0x040d,0x0411,0x0414,0x041a,0x0421,0x0425
08a0 ; --------------------------------------------------------------------------------------
08a0 ; Debug chain
08a0 ; --------------------------------------------------------------------------------------
08a0 0003 000b  |    |		.DBGLEN	0x0003,0x000b
08a2 0433 0435  | 3 5|		.DBGLNO	0x0433,0x0435,0x0439,0x043f,0x0443,0x0447,0x044a,0x044d,0x0452,0x0458,0x045b,0x0461,0x0464,0x0468
08b0 ; --------------------------------------------------------------------------------------
08b0 ; Debug chain
08b0 ; --------------------------------------------------------------------------------------
08b0 0001 0010  |    |		.DBGLEN	0x0001,0x0010
08b2 0473 0479  | s y|		.DBGLNO	0x0473,0x0479,0x047d,0x0481,0x0488,0x0491,0x049e,0x04a3,0x04a6,0x04ad,0x04b8,0x04bd,0x04c0,0x04d5,0x04d8,0x04dc,0x04e1
08c3 ; --------------------------------------------------------------------------------------
08c3 ; Debug chain
08c3 ; --------------------------------------------------------------------------------------
08c3 0000 0006  |    |		.DBGLEN	0x0000,0x0006
08c5 04eb 04ef  |    |		.DBGLNO	0x04eb,0x04ef,0x04f6,0x04fe,0x0504,0x0509
08cb ; --------------------------------------------------------------------------------------
08cb ; Debug chain
08cb ; --------------------------------------------------------------------------------------
08cb 0000 0001  |    |		.DBGLEN	0x0000,0x0001
08cd 0513       |    |		.DBGLNO	0x0513
08ce ; --------------------------------------------------------------------------------------
08ce ; Debug chain
08ce ; --------------------------------------------------------------------------------------
08ce 0000 0001  |    |		.DBGLEN	0x0000,0x0001
08d0 0523       | #  |		.DBGLNO	0x0523
08d1 ; --------------------------------------------------------------------------------------
08d1 ; Debug chain
08d1 ; --------------------------------------------------------------------------------------
08d1 0003 0006  |    |		.DBGLEN	0x0003,0x0006
08d3 0533 0535  | 3 5|		.DBGLNO	0x0533,0x0535,0x0539,0x053b,0x053e,0x0542,0x054f,0x0551,0x0556
08dc ; --------------------------------------------------------------------------------------
08dc ; Debug chain
08dc ; --------------------------------------------------------------------------------------
08dc 0000 0001  |    |		.DBGLEN	0x0000,0x0001
08de 055b       | [  |		.DBGLNO	0x055b
08df ; --------------------------------------------------------------------------------------
08df ; Debug chain
08df ; --------------------------------------------------------------------------------------
08df 0000 0003  |    |		.DBGLEN	0x0000,0x0003
08e1 056b 0572  | k r|		.DBGLNO	0x056b,0x0572,0x0574
08e4 ; --------------------------------------------------------------------------------------
08e4 ; Debug chain
08e4 ; --------------------------------------------------------------------------------------
08e4 0000 0004  |    |		.DBGLEN	0x0000,0x0004
08e6 057b 057d  | { }|		.DBGLNO	0x057b,0x057d,0x0583,0x058d
08ea ; --------------------------------------------------------------------------------------
08ea ; Debug chain
08ea ; --------------------------------------------------------------------------------------
08ea 0000 0002  |    |		.DBGLEN	0x0000,0x0002
08ec 0593 0599  |    |		.DBGLNO	0x0593,0x0599
08ee ; --------------------------------------------------------------------------------------
08ee ; Debug chain
08ee ; --------------------------------------------------------------------------------------
08ee 0000 0002  |    |		.DBGLEN	0x0000,0x0002
08f0 05a3 05a9  |    |		.DBGLNO	0x05a3,0x05a9
08f2 ; --------------------------------------------------------------------------------------
08f2 ; Debug chain
08f2 ; --------------------------------------------------------------------------------------
08f2 0000 0002  |    |		.DBGLEN	0x0000,0x0002
08f4 05b3 05b9  |    |		.DBGLNO	0x05b3,0x05b9
08f6 ; --------------------------------------------------------------------------------------
08f6 ; Debug chain
08f6 ; --------------------------------------------------------------------------------------
08f6 0001 0008  |    |		.DBGLEN	0x0001,0x0008
08f8 05c3 05c5  |    |		.DBGLNO	0x05c3,0x05c5,0x05cb,0x05cd,0x05cf,0x05d5,0x05d7,0x05d9,0x05de
0901 ; --------------------------------------------------------------------------------------
0901 ; Debug chain
0901 ; --------------------------------------------------------------------------------------
0901 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0903 05ed       |    |		.DBGLNO	0x05ed
0904 ; --------------------------------------------------------------------------------------
0904 ; Debug chain
0904 ; --------------------------------------------------------------------------------------
0904 0001 0006  |    |		.DBGLEN	0x0001,0x0006
0906 05f3 05f7  |    |		.DBGLNO	0x05f3,0x05f7,0x05fc,0x0602,0x0607,0x060d,0x0612
090d ; --------------------------------------------------------------------------------------
090d ; Debug chain
090d ; --------------------------------------------------------------------------------------
090d 0000 0003  |    |		.DBGLEN	0x0000,0x0003
090f 061b 061f  |    |		.DBGLNO	0x061b,0x061f,0x0624
0912 ; --------------------------------------------------------------------------------------
0912 ; Debug chain
0912 ; --------------------------------------------------------------------------------------
0912 0000 0003  |    |		.DBGLEN	0x0000,0x0003
0914 0633 0637  | 3 7|		.DBGLNO	0x0633,0x0637,0x0648
0917 ; --------------------------------------------------------------------------------------
0917 ; Debug chain
0917 ; --------------------------------------------------------------------------------------
0917 0000 0005  |    |		.DBGLEN	0x0000,0x0005
0919 0653 065d  | S ]|		.DBGLNO	0x0653,0x065d,0x0660,0x066a,0x066d
091e 0000 0000  |    |		.BLANK	0000[0xe2]