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

⟦c9e42c422⟧

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

Derivation

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

Disassembly

0000 000f       |    |		.CONST	0x000f								; Version of machine code
0001 5900       |Y   |		.CONST	0x5900								; Diana Version, RCG Major Version, RCG minor version
0002 0000       |    |		.CONST	0x0000								; Zero
0003 0868       | h  |		.CONST	0x0868								; Offset of debug table
0004 0100       |    |		.CONST	0x0100								; Default exception handler - raise instruction
0005 00bb       |    |		.CONST	0x00bb								; Module termination instruction - signal completion
0006 0000       |    |		.CONST	0x0000								; Offset to segment table (only in elab segments)
0007 0005       |    |		.CONST	0x0005								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 00e6       |    |		.CONST	0x00e6								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0040       | @  |		.CONST	0x0040								; Number of locals
000b			INIT_0008:
000b 4800       |H   |		Short_Literal	0x0
000c 4801       |H   |		Short_Literal	0x1
000d 029f 00eb  |    |		Declare_Subprogram	INIT_00e8,For_Call
000f 03fe       |    |		Declare_Type	Discrete,Defined,Visible
0010 00d8       |    |		Load_Top	At_Offset_0
0011 4802       |H   |		Short_Literal	0x2
0012 4800       |H   |		Short_Literal	0x0
0013 4801       |H   |		Short_Literal	0x1
0014 4806       |H   |		Short_Literal	0x6
0015 0319       |    |		Declare_Type	Variant_Record,Incomplete,Visible
0016 029f 0703  |    |		Declare_Subprogram	INIT_0700,For_Call
0018 00d9       |    |		Load_Top	At_Offset_1
0019 012a       | *  |		Execute	Any,Change_Utility
001a 0007       |    |		Action	Break_Optional
001b 00d8       |    |		Load_Top	At_Offset_0
001c 02a0       |    |		Declare_Subprogram	Null_Subprogram
001d 4818       |H   |		Short_Literal	0x18
001e 03d4       |    |		Declare_Type	Access,Defined,Visible,Accesses_Protected
001f 029a 0123  |   #|		Declare_Subprogram	INIT_0120,For_Outer_Call,Visible,Unelaborated
0021 029a 0163  |   c|		Declare_Subprogram	INIT_0160,For_Outer_Call,Visible,Unelaborated
0023 029a 0183  |    |		Declare_Subprogram	INIT_0180,For_Outer_Call,Visible,Unelaborated
0025 029a 01ab  |    |		Declare_Subprogram	INIT_01a8,For_Outer_Call,Visible,Unelaborated
0027 029a 01e3  |    |		Declare_Subprogram	INIT_01e0,For_Outer_Call,Visible,Unelaborated
0029 029a 01f3  |    |		Declare_Subprogram	INIT_01f0,For_Outer_Call,Visible,Unelaborated
002b 029a 020b  |    |		Declare_Subprogram	INIT_0208,For_Outer_Call,Visible,Unelaborated
002d 029a 0223  |   #|		Declare_Subprogram	INIT_0220,For_Outer_Call,Visible,Unelaborated
002f 029a 024b  |   K|		Declare_Subprogram	INIT_0248,For_Outer_Call,Visible,Unelaborated
0031 029a 0263  |   c|		Declare_Subprogram	INIT_0260,For_Outer_Call,Visible,Unelaborated
0033 029a 02e3  |    |		Declare_Subprogram	INIT_02e0,For_Outer_Call,Visible,Unelaborated
0035 029a 033b  |   ;|		Declare_Subprogram	INIT_0338,For_Outer_Call,Visible,Unelaborated
0037 029a 042b  |   +|		Declare_Subprogram	INIT_0428,For_Outer_Call,Visible,Unelaborated
0039 029a 0453  |   S|		Declare_Subprogram	INIT_0450,For_Outer_Call,Visible,Unelaborated
003b 029a 045b  |   [|		Declare_Subprogram	INIT_0458,For_Outer_Call,Visible,Unelaborated
003d 029a 0463  |   c|		Declare_Subprogram	INIT_0460,For_Outer_Call,Visible,Unelaborated
003f e20f       |    |		Load	0x1,0xf
0040 4803       |H   |		Short_Literal	0x3
0041 e20f       |    |		Load	0x1,0xf
0042 00d8       |    |		Load_Top	At_Offset_0
0043 e002       |    |		Load	0x0,0x2
0044 4801       |H   |		Short_Literal	0x1
0045 e003       |    |		Load	0x0,0x3
0046 029f 0703  |    |		Declare_Subprogram	INIT_0700,For_Call
0048 4804       |H   |		Short_Literal	0x4
0049 4801       |H   |		Short_Literal	0x1
004a e20e       |    |		Load	0x1,0xe
004b 0307       |    |		Complete_Type	Variant_Record,By_Defining
004c e20f       |    |		Load	0x1,0xf
004d 03c4       |    |		Complete_Type	Access,By_Component_Completion
004e 00bf       |    |		Action	Accept_Activation
004f e20f       |    |		Load	0x1,0xf
0050 0007       |    |		Action	Break_Optional
0051 0093 0000  |    |		push_full_address	0x0
0053 60c4       |`   |		Indirect_Literal	Discrete,0x118,{0x80000000, 0x00030000}
0054 0273       | s  |		Execute	Discrete,Plus
0055 e004       |    |		Load	0x0,0x4
0056 0273       | s  |		Execute	Discrete,Plus
0057 e005       |    |		Load	0x0,0x5
0058 0273       | s  |		Execute	Discrete,Plus
0059 e20f       |    |		Load	0x1,0xf
005a 00da       |    |		Load_Top	At_Offset_2
005b e006       |    |		Load	0x0,0x6
005c 0387       |    |		Declare_Variable	Package
005d 00d8       |    |		Load_Top	At_Offset_0
005e 020f       |    |		Execute	Module,Activate
005f 0093 0000  |    |		push_full_address	0x0
0061 60b2       |`   |		Indirect_Literal	Discrete,0x114,{0x80000000, 0x00020000}
0062 0273       | s  |		Execute	Discrete,Plus
0063 e004       |    |		Load	0x0,0x4
0064 0273       | s  |		Execute	Discrete,Plus
0065 e007       |    |		Load	0x0,0x7
0066 0273       | s  |		Execute	Discrete,Plus
0067 e20f       |    |		Load	0x1,0xf
0068 00db       |    |		Load_Top	At_Offset_3
0069 e006       |    |		Load	0x0,0x6
006a 0387       |    |		Declare_Variable	Package
006b 00d8       |    |		Load_Top	At_Offset_0
006c 020f       |    |		Execute	Module,Activate
006d 0093 0000  |    |		push_full_address	0x0
006f 60a0       |`   |		Indirect_Literal	Discrete,0x110,{0x80000000, 0x00010000}
0070 0273       | s  |		Execute	Discrete,Plus
0071 e004       |    |		Load	0x0,0x4
0072 0273       | s  |		Execute	Discrete,Plus
0073 e008       |    |		Load	0x0,0x8
0074 0273       | s  |		Execute	Discrete,Plus
0075 e20f       |    |		Load	0x1,0xf
0076 e220       |    |		Load	0x1,0x20
0077 e006       |    |		Load	0x0,0x6
0078 0387       |    |		Declare_Variable	Package
0079 00d8       |    |		Load_Top	At_Offset_0
007a 020f       |    |		Execute	Module,Activate
007b e009       |    |		Load	0x0,0x9
007c 00da       |    |		Load_Top	At_Offset_2
007d 0098       |    |		Execute	Package,Field_Read_Dynamic
007e 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
007f e009       |    |		Load	0x0,0x9
0080 e221       | !  |		Load	0x1,0x21
0081 0098       |    |		Execute	Package,Field_Read_Dynamic
0082 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
0083 e009       |    |		Load	0x0,0x9
0084 00db       |    |		Load_Top	At_Offset_3
0085 0098       |    |		Execute	Package,Field_Read_Dynamic
0086 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
0087 e20f       |    |		Load	0x1,0xf
0088 0007       |    |		Action	Break_Optional
0089 00d8       |    |		Load_Top	At_Offset_0
008a 0007       |    |		Action	Break_Optional
008b 00e1       |    |		Load_Encached	Boolean_Cache
008c e002       |    |		Load	0x0,0x2
008d 0007       |    |		Action	Break_Optional
008e e00a       |    |		Load	0x0,0xa
008f 0007       |    |		Action	Break_Optional
0090 e00b       |    |		Load	0x0,0xb
0091 0337       | 7  |		Declare_Variable	Array
0092 e00b       |    |		Load	0x0,0xb
0093 0337       | 7  |		Declare_Variable	Array
0094 e00c       |    |		Load	0x0,0xc
0095 0007       |    |		Action	Break_Optional
0096 00e1       |    |		Load_Encached	Boolean_Cache
0097 00e1       |    |		Load_Encached	Boolean_Cache
0098 e00d       |    |		Load	0x0,0xd
0099 02ff       |    |		Declare_Variable	Variant_Record
009a 00d8       |    |		Load_Top	At_Offset_0
009b 1c00       |    |		Execute_Immediate	Run_Utility,0x0
009c 00e2       |    |		Load_Encached	Integer_Cache
009d 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
009e 00e2       |    |		Load_Encached	Integer_Cache
009f 0601       |    |		Execute_Immediate	Set_Value_Unchecked,0x1
00a0 e00e       |    |		Load	0x0,0xe
00a1 0337       | 7  |		Declare_Variable	Array
00a2 00d8       |    |		Load_Top	At_Offset_0
00a3 0335       | 5  |		Declare_Variable	Array,Duplicate
00a4 00cd       |    |		Action	Spare6_Action
00a5 4804       |H   |		Short_Literal	0x4
00a6 4800       |H   |		Short_Literal	0x0
00a7 4800       |H   |		Short_Literal	0x0
00a8 00d9       |    |		Load_Top	At_Offset_1
00a9 e235       | 5  |		Load	0x1,0x35
00aa 01d6       |    |		Execute	Vector,Field_Write
00ab 3ffb       |?   |		Loop_Increasing	0xa7
00ac 00d9       |    |		Load_Top	At_Offset_1
00ad 01d4       |    |		Execute	Vector,Structure_Write
00ae 00e2       |    |		Load_Encached	Integer_Cache
00af 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
00b0 00e4       |    |		Load_Encached	Positive_Cache
00b1 00e4       |    |		Load_Encached	Positive_Cache
00b2 029d 04d3  |    |		Declare_Subprogram	INIT_04d0,For_Outer_Call
00b4 029d 04f3  |    |		Declare_Subprogram	INIT_04f0,For_Outer_Call
00b6 029d 051b  |    |		Declare_Subprogram	INIT_0518,For_Outer_Call
00b8 1d10       |    |		Execute_Immediate	Reference_Lex_1,0x10
00b9 00c7       |    |		Action	Elaborate_Subprogram
00ba 1d11       |    |		Execute_Immediate	Reference_Lex_1,0x11
00bb 00c7       |    |		Action	Elaborate_Subprogram
00bc 029d 0533  |   3|		Declare_Subprogram	INIT_0530,For_Outer_Call
00be 1d12       |    |		Execute_Immediate	Reference_Lex_1,0x12
00bf 00c7       |    |		Action	Elaborate_Subprogram
00c0 1d13       |    |		Execute_Immediate	Reference_Lex_1,0x13
00c1 00c7       |    |		Action	Elaborate_Subprogram
00c2 029b 053b  |   ;|		Declare_Subprogram	INIT_0538,For_Outer_Call,Unelaborated
00c4 1d15       |    |		Execute_Immediate	Reference_Lex_1,0x15
00c5 00c7       |    |		Action	Elaborate_Subprogram
00c6 1d14       |    |		Execute_Immediate	Reference_Lex_1,0x14
00c7 00c7       |    |		Action	Elaborate_Subprogram
00c8 1d16       |    |		Execute_Immediate	Reference_Lex_1,0x16
00c9 00c7       |    |		Action	Elaborate_Subprogram
00ca 1d17       |    |		Execute_Immediate	Reference_Lex_1,0x17
00cb 00c7       |    |		Action	Elaborate_Subprogram
00cc 1d18       |    |		Execute_Immediate	Reference_Lex_1,0x18
00cd 00c7       |    |		Action	Elaborate_Subprogram
00ce 1d19       |    |		Execute_Immediate	Reference_Lex_1,0x19
00cf 00c7       |    |		Action	Elaborate_Subprogram
00d0 1d1a       |    |		Execute_Immediate	Reference_Lex_1,0x1a
00d1 00c7       |    |		Action	Elaborate_Subprogram
00d2 029d 058b  |    |		Declare_Subprogram	INIT_0588,For_Outer_Call
00d4 029d 05cb  |    |		Declare_Subprogram	INIT_05c8,For_Outer_Call
00d6 029d 060b  |    |		Declare_Subprogram	INIT_0608,For_Outer_Call
00d8 029d 06c3  |    |		Declare_Subprogram	INIT_06c0,For_Outer_Call
00da 1d1b       |    |		Execute_Immediate	Reference_Lex_1,0x1b
00db 00c7       |    |		Action	Elaborate_Subprogram
00dc 1d1c       |    |		Execute_Immediate	Reference_Lex_1,0x1c
00dd 00c7       |    |		Action	Elaborate_Subprogram
00de 1d1e       |    |		Execute_Immediate	Reference_Lex_1,0x1e
00df 00c7       |    |		Action	Elaborate_Subprogram
00e0 1d1d       |    |		Execute_Immediate	Reference_Lex_1,0x1d
00e1 00c7       |    |		Action	Elaborate_Subprogram
00e2 1d3c       | <  |		Execute_Immediate	Reference_Lex_1,0x3c
00e3 00c7       |    |		Action	Elaborate_Subprogram
00e4 1d1f       |    |		Execute_Immediate	Reference_Lex_1,0x1f
00e5 00c7       |    |		Action	Elaborate_Subprogram
00e6			BODY_0008:
00e6 00bc       |    |		Action	Signal_Activated
00e7 00bb       |    |		Action	Signal_Completion
00e8 ; --------------------------------------------------------------------------------------
00e8 ; SUBPROGRAM
00e8 ; --------------------------------------------------------------------------------------
00e8 00eb       |    |		.CONST	0x00eb								; Address of begin
00e9 0004       |    |		.CONST	0x0004								; Address of exception handler
00ea 0001       |    |		.CONST	0x0001								; Number of locals
00eb			BODY_00e8:
00eb			INIT_00e8:
00eb 4607       |F   |		Jump_Case	0x8
00ec 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
00ed 7807       |x   |		Jump	0xf5								; case 0x1
00ee 780a       |x   |		Jump	0xf9								; case 0x2
00ef 780e       |x   |		Jump	0xfe								; case 0x3
00f0 7811       |x   |		Jump	0x102								; case 0x4
00f1 7812       |x   |		Jump	0x104								; case 0x5
00f2 7813       |x   |		Jump	0x106								; case 0x6
00f3 7816       |x   |		Jump	0x10a								; case 0x7
00f4 4302       |C   |		.XXX[0x1]
00f5 00da       |    |		Load_Top	At_Offset_2
00f6 0091 0757  |   W|		Action	Push_String_Extended_Indexed,0x757				; "TYPE_REGLE"
00f8 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
00f9 00db       |    |		Load_Top	At_Offset_3
00fa 00db       |    |		Load_Top	At_Offset_3
00fb 00e0       |    |		Load_Encached	Standard_Cache
00fc 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
00fd 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
00fe 00da       |    |		Load_Top	At_Offset_2
00ff 00e0       |    |		Load_Encached	Standard_Cache
0100 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0101 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0102 00db       |    |		Load_Top	At_Offset_3
0103 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0104 00db       |    |		Load_Top	At_Offset_3
0105 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0106 e20d       |    |		Load	0x1,0xd
0107 00dc       |    |		Load_Top	At_Offset_4
0108 0267       | g  |		Execute	Discrete,Predecessor
0109 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
010a e20d       |    |		Load	0x1,0xd
010b 00dc       |    |		Load_Top	At_Offset_4
010c 0268       | h  |		Execute	Discrete,Successor
010d 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
010e 0000 0000  |    |		.XXX[0x2]
0110 8000 0000  |    |		.LITERAL	{0x80000000, 0x00010000}
0114 8000 0000  |    |		.LITERAL	{0x80000000, 0x00020000}
0118 8000 0000  |    |		.LITERAL	{0x80000000, 0x00030000}
011c 0000 0000  |    |		.BLANK	0000[0x4]
0120 ; --------------------------------------------------------------------------------------
0120 ; SUBPROGRAM
0120 ; --------------------------------------------------------------------------------------
0120 0123       | #  |		.CONST	0x0123								; Address of begin
0121 0004       |    |		.CONST	0x0004								; Address of exception handler
0122 0001       |    |		.CONST	0x0001								; Number of locals
0123			BODY_0120:
0123			INIT_0120:
0123 e232       | 2  |		Load	0x1,0x32
0124 0a01       |    |		Execute_Immediate	Plus,0x1
0125 c232       | 2  |		Store	0x1,0x32
0126 0092 0759  |   Y|		Action	Push_String_Extended,0x759					; "level is now: "
0128 e232       | 2  |		Load	0x1,0x32
0129 00e0       |    |		Load_Encached	Standard_Cache
012a 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
012b 01cc       |    |		Execute	Vector,Catenate
012c e00f       |    |		Load	0x0,0xf
012d 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
012e 0092 075a  |   Z|		Action	Push_String_Extended,0x75a					; "----------------------------------------"
0130 e00f       |    |		Load	0x0,0xf
0131 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
0132 4800       |H   |		Short_Literal	0x0
0133 a233       | 3  |		Store_Unchecked	0x1,0x33
0134 4801       |H   |		Short_Literal	0x1
0135 a236       | 6  |		Store_Unchecked	0x1,0x36
0136 4800       |H   |		Short_Literal	0x0
0137 a22f       | /  |		Store_Unchecked	0x1,0x2f
0138 e229       | )  |		Load	0x1,0x29
0139 7001       |p   |		Jump_Nonzero	0x13b
013a 823a       | :  |		Call	0x1,0x3a
013b e224       | $  |		Load	0x1,0x24
013c e227       | '  |		Load	0x1,0x27
013d e010       |    |		Load	0x0,0x10
013e e222       | "  |		Load	0x1,0x22
013f 0096       |    |		Execute	Package,Entry
0140 c224       | $  |		Store	0x1,0x24
0141 4800       |H   |		Short_Literal	0x0
0142 4801       |H   |		Short_Literal	0x1
0143 e20f       |    |		Load	0x1,0xf
0144 03ba       |    |		Declare_Variable	Access,By_Allocation,With_Constraint
0145 00d8       |    |		Load_Top	At_Offset_0
0146 0227       | '  |		Execute	Access,All_Reference
0147 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0148 a228       | (  |		Store_Unchecked	0x1,0x28
0149 e229       | )  |		Load	0x1,0x29
014a 6808       |h   |		Jump_Zero	0x153
014b e226       | &  |		Load	0x1,0x26
014c e228       | (  |		Load	0x1,0x28
014d e010       |    |		Load	0x0,0x10
014e e223       | #  |		Load	0x1,0x23
014f 0096       |    |		Execute	Package,Entry
0150 c226       | &  |		Store	0x1,0x26
0151 4800       |H   |		Short_Literal	0x0
0152 a229       | )  |		Store_Unchecked	0x1,0x29
0153 e225       | %  |		Load	0x1,0x25
0154 e228       | (  |		Load	0x1,0x28
0155 e010       |    |		Load	0x0,0x10
0156 e221       | !  |		Load	0x1,0x21
0157 0096       |    |		Execute	Package,Entry
0158 c225       | %  |		Store	0x1,0x25
0159 e20f       |    |		Load	0x1,0xf
015a a227       | '  |		Store_Unchecked	0x1,0x27
015b 4801       |H   |		Short_Literal	0x1
015c a229       | )  |		Store_Unchecked	0x1,0x29
015d 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
015e 0000 0000  |    |		.XXX[0x2]
0160 ; --------------------------------------------------------------------------------------
0160 ; SUBPROGRAM
0160 ; --------------------------------------------------------------------------------------
0160 0163       | c  |		.CONST	0x0163								; Address of begin
0161 0004       |    |		.CONST	0x0004								; Address of exception handler
0162 0001       |    |		.CONST	0x0001								; Number of locals
0163			BODY_0160:
0163			INIT_0160:
0163 e229       | )  |		Load	0x1,0x29
0164 7001       |p   |		Jump_Nonzero	0x166
0165 823a       | :  |		Call	0x1,0x3a
0166 4801       |H   |		Short_Literal	0x1
0167 4802       |H   |		Short_Literal	0x2
0168 e20f       |    |		Load	0x1,0xf
0169 03ba       |    |		Declare_Variable	Access,By_Allocation,With_Constraint
016a 00d8       |    |		Load_Top	At_Offset_0
016b 0227       | '  |		Execute	Access,All_Reference
016c 1c00       |    |		Execute_Immediate	Run_Utility,0x0
016d a228       | (  |		Store_Unchecked	0x1,0x28
016e e229       | )  |		Load	0x1,0x29
016f 6808       |h   |		Jump_Zero	0x178
0170 e226       | &  |		Load	0x1,0x26
0171 e228       | (  |		Load	0x1,0x28
0172 e010       |    |		Load	0x0,0x10
0173 e223       | #  |		Load	0x1,0x23
0174 0096       |    |		Execute	Package,Entry
0175 c226       | &  |		Store	0x1,0x26
0176 4800       |H   |		Short_Literal	0x0
0177 a229       | )  |		Store_Unchecked	0x1,0x29
0178 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0179 0000 0000  |    |		.BLANK	0000[0x7]
0180 ; --------------------------------------------------------------------------------------
0180 ; SUBPROGRAM
0180 ; --------------------------------------------------------------------------------------
0180 0185       |    |		.CONST	0x0185								; Address of begin
0181 0004       |    |		.CONST	0x0004								; Address of exception handler
0182 0002       |    |		.CONST	0x0002								; Number of locals
0183			INIT_0180:
0183 e20f       |    |		Load	0x1,0xf
0184 0007       |    |		Action	Break_Optional
0185			BODY_0180:
0185 823a       | :  |		Call	0x1,0x3a
0186 e221       | !  |		Load	0x1,0x21
0187 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0188 e225       | %  |		Load	0x1,0x25
0189 e011       |    |		Load	0x0,0x11
018a e221       | !  |		Load	0x1,0x21
018b 0096       |    |		Execute	Package,Entry
018c c225       | %  |		Store	0x1,0x25
018d c228       | (  |		Store	0x1,0x28
018e e223       | #  |		Load	0x1,0x23
018f 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0190 e226       | &  |		Load	0x1,0x26
0191 e011       |    |		Load	0x0,0x11
0192 e223       | #  |		Load	0x1,0x23
0193 0096       |    |		Execute	Package,Entry
0194 c226       | &  |		Store	0x1,0x26
0195 0039       | 9  |		Store_Top	Access,At_Offset_1
0196 00d8       |    |		Load_Top	At_Offset_0
0197 e228       | (  |		Load	0x1,0x28
0198 0227       | '  |		Execute	Access,All_Reference
0199 2a03       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
019a e20f       |    |		Load	0x1,0xf
019b a227       | '  |		Store_Unchecked	0x1,0x27
019c 4801       |H   |		Short_Literal	0x1
019d a229       | )  |		Store_Unchecked	0x1,0x29
019e e225       | %  |		Load	0x1,0x25
019f e228       | (  |		Load	0x1,0x28
01a0 e010       |    |		Load	0x0,0x10
01a1 e221       | !  |		Load	0x1,0x21
01a2 0096       |    |		Execute	Package,Entry
01a3 c225       | %  |		Store	0x1,0x25
01a4 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
01a5 0000 0000  |    |		.XXX[0x3]
01a7 0000       |    |
01a8 ; --------------------------------------------------------------------------------------
01a8 ; SUBPROGRAM
01a8 ; --------------------------------------------------------------------------------------
01a8 01ad       |    |		.CONST	0x01ad								; Address of begin
01a9 0004       |    |		.CONST	0x0004								; Address of exception handler
01aa 0002       |    |		.CONST	0x0002								; Number of locals
01ab			INIT_01a8:
01ab e20f       |    |		Load	0x1,0xf
01ac 0007       |    |		Action	Break_Optional
01ad			BODY_01a8:
01ad 823a       | :  |		Call	0x1,0x3a
01ae e223       | #  |		Load	0x1,0x23
01af 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
01b0 e226       | &  |		Load	0x1,0x26
01b1 e011       |    |		Load	0x0,0x11
01b2 e223       | #  |		Load	0x1,0x23
01b3 0096       |    |		Execute	Package,Entry
01b4 c226       | &  |		Store	0x1,0x26
01b5 0039       | 9  |		Store_Top	Access,At_Offset_1
01b6 e221       | !  |		Load	0x1,0x21
01b7 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
01b8 e225       | %  |		Load	0x1,0x25
01b9 e011       |    |		Load	0x0,0x11
01ba e221       | !  |		Load	0x1,0x21
01bb 0096       |    |		Execute	Package,Entry
01bc c225       | %  |		Store	0x1,0x25
01bd c228       | (  |		Store	0x1,0x28
01be e228       | (  |		Load	0x1,0x28
01bf 0227       | '  |		Execute	Access,All_Reference
01c0 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
01c1 6805       |h   |		Jump_Zero	0x1c7
01c2 00d8       |    |		Load_Top	At_Offset_0
01c3 e228       | (  |		Load	0x1,0x28
01c4 0227       | '  |		Execute	Access,All_Reference
01c5 2a04       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
01c6 7804       |x   |		Jump	0x1cb
01c7 00d8       |    |		Load_Top	At_Offset_0
01c8 e228       | (  |		Load	0x1,0x28
01c9 0227       | '  |		Execute	Access,All_Reference
01ca 2a03       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
01cb e222       | "  |		Load	0x1,0x22
01cc 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
01cd e224       | $  |		Load	0x1,0x24
01ce e011       |    |		Load	0x0,0x11
01cf e222       | "  |		Load	0x1,0x22
01d0 0096       |    |		Execute	Package,Entry
01d1 c224       | $  |		Store	0x1,0x24
01d2 c227       | '  |		Store	0x1,0x27
01d3 e232       | 2  |		Load	0x1,0x32
01d4 8238       | 8  |		Call	0x1,0x38
01d5 e232       | 2  |		Load	0x1,0x32
01d6 0aff       |    |		Execute_Immediate	Plus,-0x1
01d7 c232       | 2  |		Store	0x1,0x32
01d8 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
01d9 0000 0000  |    |		.BLANK	0000[0x7]
01e0 ; --------------------------------------------------------------------------------------
01e0 ; SUBPROGRAM
01e0 ; --------------------------------------------------------------------------------------
01e0 01e3       |    |		.CONST	0x01e3								; Address of begin
01e1 0004       |    |		.CONST	0x0004								; Address of exception handler
01e2 0001       |    |		.CONST	0x0001								; Number of locals
01e3			BODY_01e0:
01e3			INIT_01e0:
01e3 e220       |    |		Load	0x1,0x20
01e4 a228       | (  |		Store_Unchecked	0x1,0x28
01e5 e220       |    |		Load	0x1,0x20
01e6 a227       | '  |		Store_Unchecked	0x1,0x27
01e7 4801       |H   |		Short_Literal	0x1
01e8 a229       | )  |		Store_Unchecked	0x1,0x29
01e9 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
01ea 0000 0000  |    |		.BLANK	0000[0x6]
01f0 ; --------------------------------------------------------------------------------------
01f0 ; SUBPROGRAM
01f0 ; --------------------------------------------------------------------------------------
01f0 01f5       |    |		.CONST	0x01f5								; Address of begin
01f1 0004       |    |		.CONST	0x0004								; Address of exception handler
01f2 0002       |    |		.CONST	0x0002								; Number of locals
01f3			INIT_01f0:
01f3 e20f       |    |		Load	0x1,0xf
01f4 0007       |    |		Action	Break_Optional
01f5			BODY_01f0:
01f5 823a       | :  |		Call	0x1,0x3a
01f6 e223       | #  |		Load	0x1,0x23
01f7 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
01f8 e226       | &  |		Load	0x1,0x26
01f9 e011       |    |		Load	0x0,0x11
01fa e223       | #  |		Load	0x1,0x23
01fb 0096       |    |		Execute	Package,Entry
01fc c226       | &  |		Store	0x1,0x26
01fd 0039       | 9  |		Store_Top	Access,At_Offset_1
01fe 00d8       |    |		Load_Top	At_Offset_0
01ff a5ff       |    |		Store_Unchecked	0x2,-0x1
0200 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0201 0000 0000  |    |		.BLANK	0000[0x7]
0208 ; --------------------------------------------------------------------------------------
0208 ; SUBPROGRAM
0208 ; --------------------------------------------------------------------------------------
0208 020e       |    |		.CONST	0x020e								; Address of begin
0209 0004       |    |		.CONST	0x0004								; Address of exception handler
020a 0002       |    |		.CONST	0x0002								; Number of locals
020b			INIT_0208:
020b 4800       |H   |		Short_Literal	0x0
020c e003       |    |		Load	0x0,0x3
020d 1c08       |    |		Execute_Immediate	Run_Utility,0x8
020e			BODY_0208:
020e 00db       |    |		Load_Top	At_Offset_3
020f 8012       |    |		Call	0x0,0x12
0210 0e01       |    |		Execute_Immediate	Not_Equal,0x1
0211 6802       |h   |		Jump_Zero	0x214
0212 4801       |H   |		Short_Literal	0x1
0213 8013       |    |		Call	0x0,0x13
0214 00d8       |    |		Load_Top	At_Offset_0
0215 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0216 e5ff       |    |		Load	0x2,-0x1
0217 8014       |    |		Call	0x0,0x14
0218 00d9       |    |		Load_Top	At_Offset_1
0219 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
021a 00d8       |    |		Load_Top	At_Offset_0
021b e228       | (  |		Load	0x1,0x28
021c 0227       | '  |		Execute	Access,All_Reference
021d 2a06       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x6
021e 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
021f 0000       |    |		.XXX[0x1]
0220 ; --------------------------------------------------------------------------------------
0220 ; SUBPROGRAM
0220 ; --------------------------------------------------------------------------------------
0220 0223       | #  |		.CONST	0x0223								; Address of begin
0221 0004       |    |		.CONST	0x0004								; Address of exception handler
0222 0001       |    |		.CONST	0x0001								; Number of locals
0223			BODY_0220:
0223			INIT_0220:
0223 00da       |    |		Load_Top	At_Offset_2
0224 e228       | (  |		Load	0x1,0x28
0225 0227       | '  |		Execute	Access,All_Reference
0226 2606       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x6
0227 2a05       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x5
0228 0092 075b  |   [|		Action	Push_String_Extended,0x75b					; "------------------------------------------"
022a e00f       |    |		Load	0x0,0xf
022b 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
022c 0092 075c  |   \|		Action	Push_String_Extended,0x75c					; " go to modifie "
022e e228       | (  |		Load	0x1,0x28
022f 0227       | '  |		Execute	Access,All_Reference
0230 2606       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x6
0231 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0232 e015       |    |		Load	0x0,0x15
0233 011c       |    |		Execute	Any,Convert_Unchecked
0234 1c01       |    |		Execute_Immediate	Run_Utility,0x1
0235 01cc       |    |		Execute	Vector,Catenate
0236 0092 075d  |   ]|		Action	Push_String_Extended,0x75d					; " "
0238 01cc       |    |		Execute	Vector,Catenate
0239 e00f       |    |		Load	0x0,0xf
023a 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
023b e228       | (  |		Load	0x1,0x28
023c 0227       | '  |		Execute	Access,All_Reference
023d 2606       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x6
023e 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
023f 8016       |    |		Call	0x0,0x16
0240 0092 075b  |   [|		Action	Push_String_Extended,0x75b					; "------------------------------------------"
0242 e00f       |    |		Load	0x0,0xf
0243 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
0244 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0245 0000 0000  |    |		.XXX[0x3]
0247 0000       |    |
0248 ; --------------------------------------------------------------------------------------
0248 ; SUBPROGRAM
0248 ; --------------------------------------------------------------------------------------
0248 024e       | N  |		.CONST	0x024e								; Address of begin
0249 0004       |    |		.CONST	0x0004								; Address of exception handler
024a 0002       |    |		.CONST	0x0002								; Number of locals
024b			INIT_0248:
024b 4801       |H   |		Short_Literal	0x1
024c e003       |    |		Load	0x0,0x3
024d 1c08       |    |		Execute_Immediate	Run_Utility,0x8
024e			BODY_0248:
024e 4801       |H   |		Short_Literal	0x1
024f a236       | 6  |		Store_Unchecked	0x1,0x36
0250 00d8       |    |		Load_Top	At_Offset_0
0251 e228       | (  |		Load	0x1,0x28
0252 0227       | '  |		Execute	Access,All_Reference
0253 2a06       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x6
0254 e228       | (  |		Load	0x1,0x28
0255 0229       | )  |		Execute	Access,All_Read
0256 2e06       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x6
0257 00d8       |    |		Load_Top	At_Offset_0
0258 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0259 e5ff       |    |		Load	0x2,-0x1
025a 8014       |    |		Call	0x0,0x14
025b 00d9       |    |		Load_Top	At_Offset_1
025c 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
025d 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
025e 0000 0000  |    |		.XXX[0x2]
0260 ; --------------------------------------------------------------------------------------
0260 ; SUBPROGRAM
0260 ; --------------------------------------------------------------------------------------
0260 0265       | e  |		.CONST	0x0265								; Address of begin
0261 0004       |    |		.CONST	0x0004								; Address of exception handler
0262 0002       |    |		.CONST	0x0002								; Number of locals
0263			INIT_0260:
0263 e017       |    |		Load	0x0,0x17
0264 0007       |    |		Action	Break_Optional
0265			BODY_0260:
0265 e5fe       |    |		Load	0x2,-0x2
0266 6803       |h   |		Jump_Zero	0x26a
0267 480f       |H   |		Short_Literal	0xf
0268 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
0269 781b       |x   |		Jump	0x285
026a 00db       |    |		Load_Top	At_Offset_3
026b 8012       |    |		Call	0x0,0x12
026c 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
026d 00d8       |    |		Load_Top	At_Offset_0
026e 0f10       |    |		Execute_Immediate	Equal,0x10
026f 6815       |h   |		Jump_Zero	0x285
0270 e236       | 6  |		Load	0x1,0x36
0271 0c02       |    |		Execute_Immediate	Greater_Equal,0x2
0272 6810       |h   |		Jump_Zero	0x283
0273 e236       | 6  |		Load	0x1,0x36
0274 0aff       |    |		Execute_Immediate	Plus,-0x1
0275 e228       | (  |		Load	0x1,0x28
0276 0227       | '  |		Execute	Access,All_Reference
0277 2606       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x6
0278 2603       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3
0279 01d5       |    |		Execute	Vector,Field_Reference
027a 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
027b 0f07       |    |		Execute_Immediate	Equal,0x7
027c 6803       |h   |		Jump_Zero	0x280
027d 480f       |H   |		Short_Literal	0xf
027e 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
027f 7805       |x   |		Jump	0x285
0280 480c       |H   |		Short_Literal	0xc
0281 8013       |    |		Call	0x0,0x13
0282 7802       |x   |		Jump	0x285
0283 480c       |H   |		Short_Literal	0xc
0284 8013       |    |		Call	0x0,0x13
0285 e236       | 6  |		Load	0x1,0x36
0286 0c02       |    |		Execute_Immediate	Greater_Equal,0x2
0287 6819       |h   |		Jump_Zero	0x2a1
0288 00d8       |    |		Load_Top	At_Offset_0
0289 e236       | 6  |		Load	0x1,0x36
028a 0aff       |    |		Execute_Immediate	Plus,-0x1
028b e228       | (  |		Load	0x1,0x28
028c 0227       | '  |		Execute	Access,All_Reference
028d 2606       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x6
028e 2603       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3
028f 01d5       |    |		Execute	Vector,Field_Reference
0290 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0291 8018       |    |		Call	0x0,0x18
0292 700e       |p   |		Jump_Nonzero	0x2a1
0293 e5fe       |    |		Load	0x2,-0x2
0294 0092 075e  |   ^|		Action	Push_String_Extended,0x75e					; "modifierdescription"
0296 e019       |    |		Load	0x0,0x19
0297 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
0298 e228       | (  |		Load	0x1,0x28
0299 0227       | '  |		Execute	Access,All_Reference
029a 2606       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x6
029b 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
029c 801a       |    |		Call	0x0,0x1a
029d 0279       | y  |		Execute	Discrete,And
029e 7002       |p   |		Jump_Nonzero	0x2a1
029f 4807       |H   |		Short_Literal	0x7
02a0 8013       |    |		Call	0x0,0x13
02a1 00db       |    |		Load_Top	At_Offset_3
02a2 801b       |    |		Call	0x0,0x1b
02a3 6809       |h   |		Jump_Zero	0x2ad
02a4 00db       |    |		Load_Top	At_Offset_3
02a5 801c       |    |		Call	0x0,0x1c
02a6 e234       | 4  |		Load	0x1,0x34
02a7 01d7       |    |		Execute	Vector,Field_Read
02a8 e232       | 2  |		Load	0x1,0x32
02a9 027d       | }  |		Execute	Discrete,Greater
02aa 6802       |h   |		Jump_Zero	0x2ad
02ab 4806       |H   |		Short_Literal	0x6
02ac 8013       |    |		Call	0x0,0x13
02ad 00d8       |    |		Load_Top	At_Offset_0
02ae 0f0d       |    |		Execute_Immediate	Equal,0xd
02af 6809       |h   |		Jump_Zero	0x2b9
02b0 e235       | 5  |		Load	0x1,0x35
02b1 0f00       |    |		Execute_Immediate	Equal,0x0
02b2 e235       | 5  |		Load	0x1,0x35
02b3 e232       | 2  |		Load	0x1,0x32
02b4 027d       | }  |		Execute	Discrete,Greater
02b5 0278       | x  |		Execute	Discrete,Or
02b6 6802       |h   |		Jump_Zero	0x2b9
02b7 480b       |H   |		Short_Literal	0xb
02b8 8013       |    |		Call	0x0,0x13
02b9 e228       | (  |		Load	0x1,0x28
02ba 0229       | )  |		Execute	Access,All_Read
02bb 2e06       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x6
02bc 00d8       |    |		Load_Top	At_Offset_0
02bd 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
02be 00d8       |    |		Load_Top	At_Offset_0
02bf e236       | 6  |		Load	0x1,0x36
02c0 00d9       |    |		Load_Top	At_Offset_1
02c1 01d5       |    |		Execute	Vector,Field_Reference
02c2 00cd       |    |		Action	Spare6_Action
02c3 00db       |    |		Load_Top	At_Offset_3
02c4 00d9       |    |		Load_Top	At_Offset_1
02c5 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
02c6 00d1       |    |		Pop_Control	Pop_Count_1
02c7 00d0       |    |		Action	Swap_Control
02c8 2a03       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
02c9 e228       | (  |		Load	0x1,0x28
02ca 0229       | )  |		Execute	Access,All_Read
02cb 2e06       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x6
02cc 00d8       |    |		Load_Top	At_Offset_0
02cd 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
02ce 00d8       |    |		Load_Top	At_Offset_0
02cf e236       | 6  |		Load	0x1,0x36
02d0 00d9       |    |		Load_Top	At_Offset_1
02d1 01d5       |    |		Execute	Vector,Field_Reference
02d2 00cd       |    |		Action	Spare6_Action
02d3 00d8       |    |		Load_Top	At_Offset_0
02d4 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
02d5 e5ff       |    |		Load	0x2,-0x1
02d6 8014       |    |		Call	0x0,0x14
02d7 00d9       |    |		Load_Top	At_Offset_1
02d8 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
02d9 00d1       |    |		Pop_Control	Pop_Count_1
02da 00d0       |    |		Action	Swap_Control
02db 2a03       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
02dc e236       | 6  |		Load	0x1,0x36
02dd 0a01       |    |		Execute_Immediate	Plus,0x1
02de c236       | 6  |		Store	0x1,0x36
02df 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
02e0 ; --------------------------------------------------------------------------------------
02e0 ; SUBPROGRAM
02e0 ; --------------------------------------------------------------------------------------
02e0 02e5       |    |		.CONST	0x02e5								; Address of begin
02e1 0004       |    |		.CONST	0x0004								; Address of exception handler
02e2 0002       |    |		.CONST	0x0002								; Number of locals
02e3			INIT_02e0:
02e3 00e2       |    |		Load_Encached	Integer_Cache
02e4 0601       |    |		Execute_Immediate	Set_Value_Unchecked,0x1
02e5			BODY_02e0:
02e5 e236       | 6  |		Load	0x1,0x36
02e6 0aff       |    |		Execute_Immediate	Plus,-0x1
02e7 e228       | (  |		Load	0x1,0x28
02e8 0227       | '  |		Execute	Access,All_Reference
02e9 2606       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x6
02ea 2a04       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
02eb 0092 075d  |   ]|		Action	Push_String_Extended,0x75d					; " "
02ed e00f       |    |		Load	0x0,0xf
02ee 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
02ef 0092 075a  |   Z|		Action	Push_String_Extended,0x75a					; "----------------------------------------"
02f1 e00f       |    |		Load	0x0,0xf
02f2 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
02f3 0092 075f  |   _|		Action	Push_String_Extended,0x75f					; "LEVEL "
02f5 e232       | 2  |		Load	0x1,0x32
02f6 00e0       |    |		Load_Encached	Standard_Cache
02f7 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
02f8 01cc       |    |		Execute	Vector,Catenate
02f9 0092 075d  |   ]|		Action	Push_String_Extended,0x75d					; " "
02fb 01cc       |    |		Execute	Vector,Catenate
02fc e00f       |    |		Load	0x0,0xf
02fd 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
02fe e228       | (  |		Load	0x1,0x28
02ff 0227       | '  |		Execute	Access,All_Reference
0300 2606       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x6
0301 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0302 801d       |    |		Call	0x0,0x1d
0303 00cf       |    |		Action	Mark_Auxiliary
0304 00d9       |    |		Load_Top	At_Offset_1
0305 e228       | (  |		Load	0x1,0x28
0306 0227       | '  |		Execute	Access,All_Reference
0307 2606       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x6
0308 2603       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3
0309 01d5       |    |		Execute	Vector,Field_Reference
030a 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
030b 801d       |    |		Call	0x0,0x1d
030c 00d9       |    |		Load_Top	At_Offset_1
030d e228       | (  |		Load	0x1,0x28
030e 0227       | '  |		Execute	Access,All_Reference
030f 2606       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x6
0310 2603       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3
0311 01d5       |    |		Execute	Vector,Field_Reference
0312 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0313 e017       |    |		Load	0x0,0x17
0314 011c       |    |		Execute	Any,Convert_Unchecked
0315 1c01       |    |		Execute_Immediate	Run_Utility,0x1
0316 0092 075d  |   ]|		Action	Push_String_Extended,0x75d					; " "
0318 01cc       |    |		Execute	Vector,Catenate
0319 e00f       |    |		Load	0x0,0xf
031a 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
031b 00d9       |    |		Load_Top	At_Offset_1
031c 0a01       |    |		Execute_Immediate	Plus,0x1
031d 005a       | Z  |		Store_Top	Discrete,At_Offset_2
031e 00d9       |    |		Load_Top	At_Offset_1
031f e228       | (  |		Load	0x1,0x28
0320 0227       | '  |		Execute	Access,All_Reference
0321 2606       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x6
0322 2e04       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
0323 027d       | }  |		Execute	Discrete,Greater
0324 7002       |p   |		Jump_Nonzero	0x327
0325 00c9       |    |		Action	Pop_Auxiliary_Loop
0326 7fdd       |    |		Jump	0x304
0327 00ce       |    |		Action	Pop_Auxiliary
0328 0092 075d  |   ]|		Action	Push_String_Extended,0x75d					; " "
032a e00f       |    |		Load	0x0,0xf
032b 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
032c 0092 075a  |   Z|		Action	Push_String_Extended,0x75a					; "----------------------------------------"
032e e00f       |    |		Load	0x0,0xf
032f 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
0330 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0331 0000 0000  |    |		.BLANK	0000[0x7]
0338 ; --------------------------------------------------------------------------------------
0338 ; SUBPROGRAM
0338 ; --------------------------------------------------------------------------------------
0338 033e       | >  |		.CONST	0x033e								; Address of begin
0339 0004       |    |		.CONST	0x0004								; Address of exception handler
033a 0003       |    |		.CONST	0x0003								; Number of locals
033b			INIT_0338:
033b e01e       |    |		Load	0x0,0x1e
033c 0007       |    |		Action	Break_Optional
033d 00e1       |    |		Load_Encached	Boolean_Cache
033e			BODY_0338:
033e e5fe       |    |		Load	0x2,-0x2
033f 6803       |h   |		Jump_Zero	0x343
0340 4818       |H   |		Short_Literal	0x18
0341 0052       | R  |		Store_Top_Unchecked	Discrete,At_Offset_2
0342 781b       |x   |		Jump	0x35e
0343 e5ff       |    |		Load	0x2,-0x1
0344 801f       |    |		Call	0x0,0x1f
0345 0052       | R  |		Store_Top_Unchecked	Discrete,At_Offset_2
0346 00d9       |    |		Load_Top	At_Offset_1
0347 0f19       |    |		Execute_Immediate	Equal,0x19
0348 6815       |h   |		Jump_Zero	0x35e
0349 e5ff       |    |		Load	0x2,-0x1
034a 8020       |    |		Call	0x0,0x20
034b 7012       |p   |		Jump_Nonzero	0x35e
034c e236       | 6  |		Load	0x1,0x36
034d 0c02       |    |		Execute_Immediate	Greater_Equal,0x2
034e 680d       |h   |		Jump_Zero	0x35c
034f e236       | 6  |		Load	0x1,0x36
0350 0aff       |    |		Execute_Immediate	Plus,-0x1
0351 e22c       | ,  |		Load	0x1,0x2c
0352 01d5       |    |		Execute	Vector,Field_Reference
0353 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0354 0f09       |    |		Execute_Immediate	Equal,0x9
0355 6803       |h   |		Jump_Zero	0x359
0356 4814       |H   |		Short_Literal	0x14
0357 0052       | R  |		Store_Top_Unchecked	Discrete,At_Offset_2
0358 7805       |x   |		Jump	0x35e
0359 480c       |H   |		Short_Literal	0xc
035a 8013       |    |		Call	0x0,0x13
035b 7802       |x   |		Jump	0x35e
035c 480c       |H   |		Short_Literal	0xc
035d 8013       |    |		Call	0x0,0x13
035e 00d9       |    |		Load_Top	At_Offset_1
035f 0f13       |    |		Execute_Immediate	Equal,0x13
0360 00da       |    |		Load_Top	At_Offset_2
0361 0f12       |    |		Execute_Immediate	Equal,0x12
0362 0278       | x  |		Execute	Discrete,Or
0363 00da       |    |		Load_Top	At_Offset_2
0364 0f0e       |    |		Execute_Immediate	Equal,0xe
0365 0278       | x  |		Execute	Discrete,Or
0366 6817       |h   |		Jump_Zero	0x37e
0367 e232       | 2  |		Load	0x1,0x32
0368 a235       | 5  |		Store_Unchecked	0x1,0x35
0369 0092 075a  |   Z|		Action	Push_String_Extended,0x75a					; "----------------------------------------"
036b e00f       |    |		Load	0x0,0xf
036c 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
036d 0092 0760  |   `|		Action	Push_String_Extended,0x760					; " Can_Use_Sortie_At_Level"
036f e00f       |    |		Load	0x0,0xf
0370 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
0371 e235       | 5  |		Load	0x1,0x35
0372 00e0       |    |		Load_Encached	Standard_Cache
0373 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0374 e00f       |    |		Load	0x0,0xf
0375 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
0376 0092 075d  |   ]|		Action	Push_String_Extended,0x75d					; " "
0378 e00f       |    |		Load	0x0,0xf
0379 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
037a 0092 075a  |   Z|		Action	Push_String_Extended,0x75a					; "----------------------------------------"
037c e00f       |    |		Load	0x0,0xf
037d 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
037e e5ff       |    |		Load	0x2,-0x1
037f 801b       |    |		Call	0x0,0x1b
0380 6854       |hT  |		Jump_Zero	0x3d5
0381 e5ff       |    |		Load	0x2,-0x1
0382 801c       |    |		Call	0x0,0x1c
0383 e234       | 4  |		Load	0x1,0x34
0384 01d7       |    |		Execute	Vector,Field_Read
0385 7042       |pB  |		Jump_Nonzero	0x3c8
0386 4800       |H   |		Short_Literal	0x0
0387 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
0388 00cf       |    |		Action	Mark_Auxiliary
0389 e234       | 4  |		Load	0x1,0x34
038a 01d9       |    |		Execute	Vector,Reverse_Bounds
038b 0007       |    |		Action	Break_Optional
038c 00d8       |    |		Load_Top	At_Offset_0
038d e234       | 4  |		Load	0x1,0x34
038e 01d7       |    |		Execute	Vector,Field_Read
038f 0c01       |    |		Execute_Immediate	Greater_Equal,0x1
0390 6802       |h   |		Jump_Zero	0x393
0391 4801       |H   |		Short_Literal	0x1
0392 a403       |    |		Store_Unchecked	0x2,0x3
0393 00c8       |    |		Action	Pop_Auxiliary_Range
0394 3ff7       |?   |		Loop_Increasing	0x38c
0395 00ce       |    |		Action	Pop_Auxiliary
0396 00d8       |    |		Load_Top	At_Offset_0
0397 6803       |h   |		Jump_Zero	0x39b
0398 4804       |H   |		Short_Literal	0x4
0399 8013       |    |		Call	0x0,0x13
039a 783a       |x:  |		Jump	0x3d5
039b e233       | 3  |		Load	0x1,0x33
039c 7028       |p(  |		Jump_Nonzero	0x3c5
039d 4801       |H   |		Short_Literal	0x1
039e e22c       | ,  |		Load	0x1,0x2c
039f 01d5       |    |		Execute	Vector,Field_Reference
03a0 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
03a1 0f05       |    |		Execute_Immediate	Equal,0x5
03a2 681f       |h   |		Jump_Zero	0x3c2
03a3 e232       | 2  |		Load	0x1,0x32
03a4 e5ff       |    |		Load	0x2,-0x1
03a5 801c       |    |		Call	0x0,0x1c
03a6 e234       | 4  |		Load	0x1,0x34
03a7 01d6       |    |		Execute	Vector,Field_Write
03a8 0092 0761  |   a|		Action	Push_String_Extended,0x761					; "GENERIQUE:"
03aa e5ff       |    |		Load	0x2,-0x1
03ab 801c       |    |		Call	0x0,0x1c
03ac e021       | !  |		Load	0x0,0x21
03ad 011c       |    |		Execute	Any,Convert_Unchecked
03ae 1c01       |    |		Execute_Immediate	Run_Utility,0x1
03af 01cc       |    |		Execute	Vector,Catenate
03b0 0092 0762  |   b|		Action	Push_String_Extended,0x762					; " is declare at level "
03b2 01cc       |    |		Execute	Vector,Catenate
03b3 e232       | 2  |		Load	0x1,0x32
03b4 00e0       |    |		Load_Encached	Standard_Cache
03b5 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
03b6 01cc       |    |		Execute	Vector,Catenate
03b7 e00f       |    |		Load	0x0,0xf
03b8 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
03b9 0092 075d  |   ]|		Action	Push_String_Extended,0x75d					; " "
03bb e00f       |    |		Load	0x0,0xf
03bc 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
03bd 0092 075a  |   Z|		Action	Push_String_Extended,0x75a					; "----------------------------------------"
03bf e00f       |    |		Load	0x0,0xf
03c0 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
03c1 7813       |x   |		Jump	0x3d5
03c2 4805       |H   |		Short_Literal	0x5
03c3 8013       |    |		Call	0x0,0x13
03c4 7810       |x   |		Jump	0x3d5
03c5 4805       |H   |		Short_Literal	0x5
03c6 8013       |    |		Call	0x0,0x13
03c7 780d       |x   |		Jump	0x3d5
03c8 e5ff       |    |		Load	0x2,-0x1
03c9 801c       |    |		Call	0x0,0x1c
03ca e234       | 4  |		Load	0x1,0x34
03cb 01d7       |    |		Execute	Vector,Field_Read
03cc e232       | 2  |		Load	0x1,0x32
03cd 027d       | }  |		Execute	Discrete,Greater
03ce 6802       |h   |		Jump_Zero	0x3d1
03cf 4806       |H   |		Short_Literal	0x6
03d0 8013       |    |		Call	0x0,0x13
03d1 e233       | 3  |		Load	0x1,0x33
03d2 7002       |p   |		Jump_Nonzero	0x3d5
03d3 4804       |H   |		Short_Literal	0x4
03d4 8013       |    |		Call	0x0,0x13
03d5 e5ff       |    |		Load	0x2,-0x1
03d6 8020       |    |		Call	0x0,0x20
03d7 680e       |h   |		Jump_Zero	0x3e6
03d8 e5ff       |    |		Load	0x2,-0x1
03d9 8022       | "  |		Call	0x0,0x22
03da a22e       | .  |		Store_Unchecked	0x1,0x2e
03db e22d       | -  |		Load	0x1,0x2d
03dc e22c       | ,  |		Load	0x1,0x2c
03dd 8023       | #  |		Call	0x0,0x23
03de 00d1       |    |		Pop_Control	Pop_Count_1
03df 4801       |H   |		Short_Literal	0x1
03e0 a22f       | /  |		Store_Unchecked	0x1,0x2f
03e1 e236       | 6  |		Load	0x1,0x36
03e2 a237       | 7  |		Store_Unchecked	0x1,0x37
03e3 4801       |H   |		Short_Literal	0x1
03e4 a236       | 6  |		Store_Unchecked	0x1,0x36
03e5 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
03e6 e236       | 6  |		Load	0x1,0x36
03e7 0c02       |    |		Execute_Immediate	Greater_Equal,0x2
03e8 680b       |h   |		Jump_Zero	0x3f4
03e9 00d9       |    |		Load_Top	At_Offset_1
03ea e236       | 6  |		Load	0x1,0x36
03eb 0aff       |    |		Execute_Immediate	Plus,-0x1
03ec e22c       | ,  |		Load	0x1,0x2c
03ed 01d5       |    |		Execute	Vector,Field_Reference
03ee 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
03ef 8024       | $  |		Call	0x0,0x24
03f0 700b       |p   |		Jump_Nonzero	0x3fc
03f1 4809       |H   |		Short_Literal	0x9
03f2 8013       |    |		Call	0x0,0x13
03f3 7808       |x   |		Jump	0x3fc
03f4 00d9       |    |		Load_Top	At_Offset_1
03f5 0f05       |    |		Execute_Immediate	Equal,0x5
03f6 6803       |h   |		Jump_Zero	0x3fa
03f7 4801       |H   |		Short_Literal	0x1
03f8 a230       | 0  |		Store_Unchecked	0x1,0x30
03f9 7802       |x   |		Jump	0x3fc
03fa 4800       |H   |		Short_Literal	0x0
03fb a230       | 0  |		Store_Unchecked	0x1,0x30
03fc 00d9       |    |		Load_Top	At_Offset_1
03fd 0f05       |    |		Execute_Immediate	Equal,0x5
03fe 00da       |    |		Load_Top	At_Offset_2
03ff 0f06       |    |		Execute_Immediate	Equal,0x6
0400 0278       | x  |		Execute	Discrete,Or
0401 680c       |h   |		Jump_Zero	0x40e
0402 e236       | 6  |		Load	0x1,0x36
0403 e22c       | ,  |		Load	0x1,0x2c
0404 01d5       |    |		Execute	Vector,Field_Reference
0405 00d8       |    |		Load_Top	At_Offset_0
0406 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0407 e5ff       |    |		Load	0x2,-0x1
0408 8025       | %  |		Call	0x0,0x25
0409 8014       |    |		Call	0x0,0x14
040a 00d9       |    |		Load_Top	At_Offset_1
040b 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
040c 00d1       |    |		Pop_Control	Pop_Count_1
040d 780a       |x   |		Jump	0x418
040e e236       | 6  |		Load	0x1,0x36
040f e22c       | ,  |		Load	0x1,0x2c
0410 01d5       |    |		Execute	Vector,Field_Reference
0411 00d8       |    |		Load_Top	At_Offset_0
0412 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0413 e5ff       |    |		Load	0x2,-0x1
0414 8014       |    |		Call	0x0,0x14
0415 00d9       |    |		Load_Top	At_Offset_1
0416 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0417 00d1       |    |		Pop_Control	Pop_Count_1
0418 00d9       |    |		Load_Top	At_Offset_1
0419 e236       | 6  |		Load	0x1,0x36
041a e22c       | ,  |		Load	0x1,0x2c
041b 01d5       |    |		Execute	Vector,Field_Reference
041c 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
041d e236       | 6  |		Load	0x1,0x36
041e 0a01       |    |		Execute_Immediate	Plus,0x1
041f c236       | 6  |		Store	0x1,0x36
0420 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0421 0000 0000  |    |		.BLANK	0000[0x7]
0428 ; --------------------------------------------------------------------------------------
0428 ; SUBPROGRAM
0428 ; --------------------------------------------------------------------------------------
0428 042b       | +  |		.CONST	0x042b								; Address of begin
0429 0004       |    |		.CONST	0x0004								; Address of exception handler
042a 0001       |    |		.CONST	0x0001								; Number of locals
042b			BODY_0428:
042b			INIT_0428:
042b e233       | 3  |		Load	0x1,0x33
042c 0a01       |    |		Execute_Immediate	Plus,0x1
042d c233       | 3  |		Store	0x1,0x33
042e e230       | 0  |		Load	0x1,0x30
042f 6804       |h   |		Jump_Zero	0x434
0430 823d       | =  |		Call	0x1,0x3d
0431 e231       | 1  |		Load	0x1,0x31
0432 016d       | m  |		Execute	Variant_Record,Structure_Write
0433 7813       |x   |		Jump	0x447
0434 e22f       | /  |		Load	0x1,0x2f
0435 680e       |h   |		Jump_Zero	0x444
0436 4801       |H   |		Short_Literal	0x1
0437 e22d       | -  |		Load	0x1,0x2d
0438 01d5       |    |		Execute	Vector,Field_Reference
0439 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
043a 0f01       |    |		Execute_Immediate	Equal,0x1
043b 6804       |h   |		Jump_Zero	0x440
043c 8240       | @  |		Call	0x1,0x40
043d e231       | 1  |		Load	0x1,0x31
043e 016d       | m  |		Execute	Variant_Record,Structure_Write
043f 7807       |x   |		Jump	0x447
0440 823f       | ?  |		Call	0x1,0x3f
0441 e231       | 1  |		Load	0x1,0x31
0442 016d       | m  |		Execute	Variant_Record,Structure_Write
0443 7803       |x   |		Jump	0x447
0444 823e       | >  |		Call	0x1,0x3e
0445 e231       | 1  |		Load	0x1,0x31
0446 016d       | m  |		Execute	Variant_Record,Structure_Write
0447 4801       |H   |		Short_Literal	0x1
0448 a236       | 6  |		Store_Unchecked	0x1,0x36
0449 4800       |H   |		Short_Literal	0x0
044a a22f       | /  |		Store_Unchecked	0x1,0x2f
044b 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
044c 0000 0000  |    |		.BLANK	0000[0x4]
0450 ; --------------------------------------------------------------------------------------
0450 ; SUBPROGRAM
0450 ; --------------------------------------------------------------------------------------
0450 0453       | S  |		.CONST	0x0453								; Address of begin
0451 0004       |    |		.CONST	0x0004								; Address of exception handler
0452 0001       |    |		.CONST	0x0001								; Number of locals
0453			BODY_0450:
0453			INIT_0450:
0453 00da       |    |		Load_Top	At_Offset_2
0454 e228       | (  |		Load	0x1,0x28
0455 0227       | '  |		Execute	Access,All_Reference
0456 2a05       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x5
0457 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0458 ; --------------------------------------------------------------------------------------
0458 ; SUBPROGRAM
0458 ; --------------------------------------------------------------------------------------
0458 045b       | [  |		.CONST	0x045b								; Address of begin
0459 0004       |    |		.CONST	0x0004								; Address of exception handler
045a 0001       |    |		.CONST	0x0001								; Number of locals
045b			BODY_0458:
045b			INIT_0458:
045b e231       | 1  |		Load	0x1,0x31
045c 02fd       |    |		Declare_Variable	Variant_Record,Duplicate
045d 00cd       |    |		Action	Spare6_Action
045e 00ca       |    |		Action	Exit_Nullary_Function
045f 0000       |    |		.XXX[0x1]
0460 ; --------------------------------------------------------------------------------------
0460 ; SUBPROGRAM
0460 ; --------------------------------------------------------------------------------------
0460 0467       | g  |		.CONST	0x0467								; Address of begin
0461 0004       |    |		.CONST	0x0004								; Address of exception handler
0462 0003       |    |		.CONST	0x0003								; Number of locals
0463			INIT_0460:
0463 00e2       |    |		Load_Encached	Integer_Cache
0464 e20f       |    |		Load	0x1,0xf
0465 e5ff       |    |		Load	0x2,-0x1
0466 0039       | 9  |		Store_Top	Access,At_Offset_1
0467			BODY_0460:
0467 00cf       |    |		Action	Mark_Auxiliary
0468 785f       |x_  |		Jump	0x4c8
0469 00d9       |    |		Load_Top	At_Offset_1
046a 0227       | '  |		Execute	Access,All_Reference
046b 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
046c e20d       |    |		Load	0x1,0xd
046d 011c       |    |		Execute	Any,Convert_Unchecked
046e 1c01       |    |		Execute_Immediate	Run_Utility,0x1
046f e00f       |    |		Load	0x0,0xf
0470 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
0471 00d9       |    |		Load_Top	At_Offset_1
0472 0227       | '  |		Execute	Access,All_Reference
0473 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0474 0f01       |    |		Execute_Immediate	Equal,0x1
0475 701b       |p   |		Jump_Nonzero	0x491
0476 0092 0763  |   c|		Action	Push_String_Extended,0x763					; "go to evalue the condition"
0478 e00f       |    |		Load	0x0,0xf
0479 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
047a 00d9       |    |		Load_Top	At_Offset_1
047b 0227       | '  |		Execute	Access,All_Reference
047c 2e05       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
047d 8026       | &  |		Call	0x0,0x26
047e 6809       |h   |		Jump_Zero	0x488
047f 0092 0764  |   d|		Action	Push_String_Extended,0x764					; "condition is realise"
0481 e00f       |    |		Load	0x0,0xf
0482 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
0483 00d9       |    |		Load_Top	At_Offset_1
0484 0227       | '  |		Execute	Access,All_Reference
0485 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
0486 821f       |    |		Call	0x1,0x1f
0487 783b       |x;  |		Jump	0x4c3
0488 0092 0765  |   e|		Action	Push_String_Extended,0x765					; "condition is not realise"
048a e00f       |    |		Load	0x0,0xf
048b 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
048c 00d9       |    |		Load_Top	At_Offset_1
048d 0227       | '  |		Execute	Access,All_Reference
048e 2e04       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
048f 821f       |    |		Call	0x1,0x1f
0490 7832       |x2  |		Jump	0x4c3
0491 00d9       |    |		Load_Top	At_Offset_1
0492 0227       | '  |		Execute	Access,All_Reference
0493 2606       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x6
0494 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0495 e015       |    |		Load	0x0,0x15
0496 011c       |    |		Execute	Any,Convert_Unchecked
0497 1c01       |    |		Execute_Immediate	Run_Utility,0x1
0498 e00f       |    |		Load	0x0,0xf
0499 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
049a 00d9       |    |		Load_Top	At_Offset_1
049b 0227       | '  |		Execute	Access,All_Reference
049c 2606       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x6
049d 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
049e 0f01       |    |		Execute_Immediate	Equal,0x1
049f 7015       |p   |		Jump_Nonzero	0x4b5
04a0 0092 0766  |   f|		Action	Push_String_Extended,0x766					; "go to evaluate"
04a2 e00f       |    |		Load	0x0,0xf
04a3 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
04a4 00d9       |    |		Load_Top	At_Offset_1
04a5 0227       | '  |		Execute	Access,All_Reference
04a6 2606       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x6
04a7 2e05       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
04a8 8027       | '  |		Call	0x0,0x27
04a9 0053       | S  |		Store_Top_Uncheched	Discrete,At_Offset_3
04aa 00da       |    |		Load_Top	At_Offset_2
04ab 00da       |    |		Load_Top	At_Offset_2
04ac 0227       | '  |		Execute	Access,All_Reference
04ad 2606       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x6
04ae 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
04af 8028       | (  |		Call	0x0,0x28
04b0 0092 0767  |   g|		Action	Push_String_Extended,0x767					; "affectation is done"
04b2 e00f       |    |		Load	0x0,0xf
04b3 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
04b4 780e       |x   |		Jump	0x4c3
04b5 0092 0768  |   h|		Action	Push_String_Extended,0x768					; "go to execute function"
04b7 e00f       |    |		Load	0x0,0xf
04b8 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
04b9 00d9       |    |		Load_Top	At_Offset_1
04ba 0227       | '  |		Execute	Access,All_Reference
04bb 2606       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x6
04bc e029       | )  |		Load	0x0,0x29
04bd 0161       | a  |		Execute	Variant_Record,Check_In_Formal_Type
04be 802a       | *  |		Call	0x0,0x2a
04bf 0092 0769  |   i|		Action	Push_String_Extended,0x769					; "execution is done"
04c1 e00f       |    |		Load	0x0,0xf
04c2 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
04c3 00d9       |    |		Load_Top	At_Offset_1
04c4 0227       | '  |		Execute	Access,All_Reference
04c5 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
04c6 003a       | :  |		Store_Top	Access,At_Offset_2
04c7 00c9       |    |		Action	Pop_Auxiliary_Loop
04c8 00d9       |    |		Load_Top	At_Offset_1
04c9 779f       |w   |		Jump_Nonzero	0x469
04ca 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
04cb 0000 0000  |    |		.BLANK	0000[0x5]
04d0 ; --------------------------------------------------------------------------------------
04d0 ; SUBPROGRAM
04d0 ; --------------------------------------------------------------------------------------
04d0 04d3       |    |		.CONST	0x04d3								; Address of begin
04d1 0004       |    |		.CONST	0x0004								; Address of exception handler
04d2 0001       |    |		.CONST	0x0001								; Number of locals
04d3			BODY_04d0:
04d3			INIT_04d0:
04d3 00cf       |    |		Action	Mark_Auxiliary
04d4 e021       | !  |		Load	0x0,0x21
04d5 0265       | e  |		Execute	Discrete,Reverse_Bounds
04d6 0007       |    |		Action	Break_Optional
04d7 00d8       |    |		Load_Top	At_Offset_0
04d8 e234       | 4  |		Load	0x1,0x34
04d9 01d7       |    |		Execute	Vector,Field_Read
04da e5ff       |    |		Load	0x2,-0x1
04db 027f       |    |		Execute	Discrete,Equal
04dc 6804       |h   |		Jump_Zero	0x4e1
04dd 4800       |H   |		Short_Literal	0x0
04de 00d9       |    |		Load_Top	At_Offset_1
04df e234       | 4  |		Load	0x1,0x34
04e0 01d6       |    |		Execute	Vector,Field_Write
04e1 00c8       |    |		Action	Pop_Auxiliary_Range
04e2 3ff4       |?   |		Loop_Increasing	0x4d7
04e3 00ce       |    |		Action	Pop_Auxiliary
04e4 e235       | 5  |		Load	0x1,0x35
04e5 00db       |    |		Load_Top	At_Offset_3
04e6 027f       |    |		Execute	Discrete,Equal
04e7 6802       |h   |		Jump_Zero	0x4ea
04e8 4800       |H   |		Short_Literal	0x0
04e9 a235       | 5  |		Store_Unchecked	0x1,0x35
04ea 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
04eb 0000 0000  |    |		.BLANK	0000[0x5]
04f0 ; --------------------------------------------------------------------------------------
04f0 ; SUBPROGRAM
04f0 ; --------------------------------------------------------------------------------------
04f0 04f3       |    |		.CONST	0x04f3								; Address of begin
04f1 0004       |    |		.CONST	0x0004								; Address of exception handler
04f2 0001       |    |		.CONST	0x0001								; Number of locals
04f3			BODY_04f0:
04f3			INIT_04f0:
04f3 00da       |    |		Load_Top	At_Offset_2
04f4 0227       | '  |		Execute	Access,All_Reference
04f5 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
04f6 6815       |h   |		Jump_Zero	0x50c
04f7 0092 076a  |   j|		Action	Push_String_Extended,0x76a					; "une instruction:  "
04f9 00db       |    |		Load_Top	At_Offset_3
04fa 0227       | '  |		Execute	Access,All_Reference
04fb 2606       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x6
04fc 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
04fd e015       |    |		Load	0x0,0x15
04fe 011c       |    |		Execute	Any,Convert_Unchecked
04ff 1c01       |    |		Execute_Immediate	Run_Utility,0x1
0500 01cc       |    |		Execute	Vector,Catenate
0501 0092 076b  |   k|		Action	Push_String_Extended,0x76b					; "  "
0503 01cc       |    |		Execute	Vector,Catenate
0504 e00f       |    |		Load	0x0,0xf
0505 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
0506 00da       |    |		Load_Top	At_Offset_2
0507 0227       | '  |		Execute	Access,All_Reference
0508 2606       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x6
0509 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
050a 8016       |    |		Call	0x0,0x16
050b 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
050c 0092 076c  |   l|		Action	Push_String_Extended,0x76c					; " une regle "
050e e00f       |    |		Load	0x0,0xf
050f 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
0510 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0511 0000 0000  |    |		.BLANK	0000[0x7]
0518 ; --------------------------------------------------------------------------------------
0518 ; SUBPROGRAM
0518 ; --------------------------------------------------------------------------------------
0518 051b       |    |		.CONST	0x051b								; Address of begin
0519 0004       |    |		.CONST	0x0004								; Address of exception handler
051a 0001       |    |		.CONST	0x0001								; Number of locals
051b			BODY_0518:
051b			INIT_0518:
051b e227       | '  |		Load	0x1,0x27
051c 6809       |h   |		Jump_Zero	0x526
051d e228       | (  |		Load	0x1,0x28
051e e227       | '  |		Load	0x1,0x27
051f 0227       | '  |		Execute	Access,All_Reference
0520 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0521 e227       | '  |		Load	0x1,0x27
0522 0227       | '  |		Execute	Access,All_Reference
0523 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0524 a227       | '  |		Store_Unchecked	0x1,0x27
0525 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0526 e228       | (  |		Load	0x1,0x28
0527 a227       | '  |		Store_Unchecked	0x1,0x27
0528 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0529 0000 0000  |    |		.BLANK	0000[0x7]
0530 ; --------------------------------------------------------------------------------------
0530 ; SUBPROGRAM
0530 ; --------------------------------------------------------------------------------------
0530 0533       | 3  |		.CONST	0x0533								; Address of begin
0531 0004       |    |		.CONST	0x0004								; Address of exception handler
0532 0001       |    |		.CONST	0x0001								; Number of locals
0533			BODY_0530:
0533			INIT_0530:
0533 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0534 0000 0000  |    |		.BLANK	0000[0x4]
0538 ; --------------------------------------------------------------------------------------
0538 ; SUBPROGRAM
0538 ; --------------------------------------------------------------------------------------
0538 053e       | >  |		.CONST	0x053e								; Address of begin
0539 0004       |    |		.CONST	0x0004								; Address of exception handler
053a 0002       |    |		.CONST	0x0002								; Number of locals
053b			INIT_0538:
053b e20f       |    |		Load	0x1,0xf
053c 00db       |    |		Load_Top	At_Offset_3
053d 0039       | 9  |		Store_Top	Access,At_Offset_1
053e			BODY_0538:
053e 00cf       |    |		Action	Mark_Auxiliary
053f 783f       |x?  |		Jump	0x57f
0540 00d9       |    |		Load_Top	At_Offset_1
0541 0227       | '  |		Execute	Access,All_Reference
0542 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0543 e20d       |    |		Load	0x1,0xd
0544 011c       |    |		Execute	Any,Convert_Unchecked
0545 1c01       |    |		Execute_Immediate	Run_Utility,0x1
0546 e00f       |    |		Load	0x0,0xf
0547 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
0548 00d9       |    |		Load_Top	At_Offset_1
0549 0227       | '  |		Execute	Access,All_Reference
054a 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
054b 0f01       |    |		Execute_Immediate	Equal,0x1
054c 7019       |p   |		Jump_Nonzero	0x566
054d 0092 076b  |   k|		Action	Push_String_Extended,0x76b					; "  "
054f e00f       |    |		Load	0x0,0xf
0550 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
0551 0092 076d  |   m|		Action	Push_String_Extended,0x76d					; "if  condition"
0553 e00f       |    |		Load	0x0,0xf
0554 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
0555 00d9       |    |		Load_Top	At_Offset_1
0556 0227       | '  |		Execute	Access,All_Reference
0557 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
0558 823c       | <  |		Call	0x1,0x3c
0559 0092 076e  |   n|		Action	Push_String_Extended,0x76e					; "else"
055b e00f       |    |		Load	0x0,0xf
055c 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
055d 00d9       |    |		Load_Top	At_Offset_1
055e 0227       | '  |		Execute	Access,All_Reference
055f 2e04       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
0560 823c       | <  |		Call	0x1,0x3c
0561 0092 076f  |   o|		Action	Push_String_Extended,0x76f					; "fin si"
0563 e00f       |    |		Load	0x0,0xf
0564 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
0565 7814       |x   |		Jump	0x57a
0566 0092 076b  |   k|		Action	Push_String_Extended,0x76b					; "  "
0568 00da       |    |		Load_Top	At_Offset_2
0569 0227       | '  |		Execute	Access,All_Reference
056a 2606       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x6
056b 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
056c e015       |    |		Load	0x0,0x15
056d 011c       |    |		Execute	Any,Convert_Unchecked
056e 1c01       |    |		Execute_Immediate	Run_Utility,0x1
056f 01cc       |    |		Execute	Vector,Catenate
0570 0092 076b  |   k|		Action	Push_String_Extended,0x76b					; "  "
0572 01cc       |    |		Execute	Vector,Catenate
0573 e00f       |    |		Load	0x0,0xf
0574 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
0575 00d9       |    |		Load_Top	At_Offset_1
0576 0227       | '  |		Execute	Access,All_Reference
0577 2606       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x6
0578 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0579 8016       |    |		Call	0x0,0x16
057a 00d9       |    |		Load_Top	At_Offset_1
057b 0227       | '  |		Execute	Access,All_Reference
057c 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
057d 003a       | :  |		Store_Top	Access,At_Offset_2
057e 00c9       |    |		Action	Pop_Auxiliary_Loop
057f 00d9       |    |		Load_Top	At_Offset_1
0580 77bf       |w   |		Jump_Nonzero	0x540
0581 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0582 0000 0000  |    |		.BLANK	0000[0x6]
0588 ; --------------------------------------------------------------------------------------
0588 ; SUBPROGRAM
0588 ; --------------------------------------------------------------------------------------
0588 0590       |    |		.CONST	0x0590								; Address of begin
0589 0004       |    |		.CONST	0x0004								; Address of exception handler
058a 0003       |    |		.CONST	0x0003								; Number of locals
058b			INIT_0588:
058b 4800       |H   |		Short_Literal	0x0
058c e00d       |    |		Load	0x0,0xd
058d 1c08       |    |		Execute_Immediate	Run_Utility,0x8
058e 00e2       |    |		Load_Encached	Integer_Cache
058f 0601       |    |		Execute_Immediate	Set_Value_Unchecked,0x1
0590			BODY_0588:
0590 00d9       |    |		Load_Top	At_Offset_1
0591 2e02       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
0592 e22c       | ,  |		Load	0x1,0x2c
0593 8023       | #  |		Call	0x0,0x23
0594 00d1       |    |		Pop_Control	Pop_Count_1
0595 e236       | 6  |		Load	0x1,0x36
0596 0aff       |    |		Execute_Immediate	Plus,-0x1
0597 00da       |    |		Load_Top	At_Offset_2
0598 2a03       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
0599 0092 0770  |   p|		Action	Push_String_Extended,0x770					; "ACTION : "
059b e00f       |    |		Load	0x0,0xf
059c 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
059d 00cf       |    |		Action	Mark_Auxiliary
059e 00d9       |    |		Load_Top	At_Offset_1
059f 00db       |    |		Load_Top	At_Offset_3
05a0 2602       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x2
05a1 01d5       |    |		Execute	Vector,Field_Reference
05a2 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
05a3 801d       |    |		Call	0x0,0x1d
05a4 00d9       |    |		Load_Top	At_Offset_1
05a5 00db       |    |		Load_Top	At_Offset_3
05a6 2602       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x2
05a7 01d5       |    |		Execute	Vector,Field_Reference
05a8 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
05a9 e01e       |    |		Load	0x0,0x1e
05aa 011c       |    |		Execute	Any,Convert_Unchecked
05ab 1c01       |    |		Execute_Immediate	Run_Utility,0x1
05ac 0092 075d  |   ]|		Action	Push_String_Extended,0x75d					; " "
05ae 01cc       |    |		Execute	Vector,Catenate
05af e00f       |    |		Load	0x0,0xf
05b0 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
05b1 00d9       |    |		Load_Top	At_Offset_1
05b2 0a01       |    |		Execute_Immediate	Plus,0x1
05b3 005a       | Z  |		Store_Top	Discrete,At_Offset_2
05b4 00d9       |    |		Load_Top	At_Offset_1
05b5 00db       |    |		Load_Top	At_Offset_3
05b6 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
05b7 027d       | }  |		Execute	Discrete,Greater
05b8 7002       |p   |		Jump_Nonzero	0x5bb
05b9 00c9       |    |		Action	Pop_Auxiliary_Loop
05ba 7fe3       |    |		Jump	0x59e
05bb 00ce       |    |		Action	Pop_Auxiliary
05bc 0092 075d  |   ]|		Action	Push_String_Extended,0x75d					; " "
05be e00f       |    |		Load	0x0,0xf
05bf 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
05c0 0092 075a  |   Z|		Action	Push_String_Extended,0x75a					; "----------------------------------------"
05c2 e00f       |    |		Load	0x0,0xf
05c3 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
05c4 00d9       |    |		Load_Top	At_Offset_1
05c5 00ca       |    |		Action	Exit_Nullary_Function
05c6 0000 0000  |    |		.XXX[0x2]
05c8 ; --------------------------------------------------------------------------------------
05c8 ; SUBPROGRAM
05c8 ; --------------------------------------------------------------------------------------
05c8 05d0       |    |		.CONST	0x05d0								; Address of begin
05c9 0004       |    |		.CONST	0x0004								; Address of exception handler
05ca 0003       |    |		.CONST	0x0003								; Number of locals
05cb			INIT_05c8:
05cb 4801       |H   |		Short_Literal	0x1
05cc e00d       |    |		Load	0x0,0xd
05cd 1c08       |    |		Execute_Immediate	Run_Utility,0x8
05ce 00e2       |    |		Load_Encached	Integer_Cache
05cf 0601       |    |		Execute_Immediate	Set_Value_Unchecked,0x1
05d0			BODY_05c8:
05d0 00d9       |    |		Load_Top	At_Offset_1
05d1 2e02       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
05d2 e22c       | ,  |		Load	0x1,0x2c
05d3 8023       | #  |		Call	0x0,0x23
05d4 00d1       |    |		Pop_Control	Pop_Count_1
05d5 e236       | 6  |		Load	0x1,0x36
05d6 0aff       |    |		Execute_Immediate	Plus,-0x1
05d7 00da       |    |		Load_Top	At_Offset_2
05d8 2a03       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
05d9 0092 0771  |   q|		Action	Push_String_Extended,0x771					; "RECHERCHE : "
05db e00f       |    |		Load	0x0,0xf
05dc 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
05dd 00cf       |    |		Action	Mark_Auxiliary
05de 00d9       |    |		Load_Top	At_Offset_1
05df 00db       |    |		Load_Top	At_Offset_3
05e0 2602       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x2
05e1 01d5       |    |		Execute	Vector,Field_Reference
05e2 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
05e3 801d       |    |		Call	0x0,0x1d
05e4 00d9       |    |		Load_Top	At_Offset_1
05e5 00db       |    |		Load_Top	At_Offset_3
05e6 2602       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x2
05e7 01d5       |    |		Execute	Vector,Field_Reference
05e8 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
05e9 e01e       |    |		Load	0x0,0x1e
05ea 011c       |    |		Execute	Any,Convert_Unchecked
05eb 1c01       |    |		Execute_Immediate	Run_Utility,0x1
05ec 0092 075d  |   ]|		Action	Push_String_Extended,0x75d					; " "
05ee 01cc       |    |		Execute	Vector,Catenate
05ef e00f       |    |		Load	0x0,0xf
05f0 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
05f1 00d9       |    |		Load_Top	At_Offset_1
05f2 0a01       |    |		Execute_Immediate	Plus,0x1
05f3 005a       | Z  |		Store_Top	Discrete,At_Offset_2
05f4 00d9       |    |		Load_Top	At_Offset_1
05f5 00db       |    |		Load_Top	At_Offset_3
05f6 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
05f7 027d       | }  |		Execute	Discrete,Greater
05f8 7002       |p   |		Jump_Nonzero	0x5fb
05f9 00c9       |    |		Action	Pop_Auxiliary_Loop
05fa 7fe3       |    |		Jump	0x5de
05fb 00ce       |    |		Action	Pop_Auxiliary
05fc 0092 075d  |   ]|		Action	Push_String_Extended,0x75d					; " "
05fe e00f       |    |		Load	0x0,0xf
05ff 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
0600 0092 075a  |   Z|		Action	Push_String_Extended,0x75a					; "----------------------------------------"
0602 e00f       |    |		Load	0x0,0xf
0603 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
0604 00d9       |    |		Load_Top	At_Offset_1
0605 00ca       |    |		Action	Exit_Nullary_Function
0606 0000 0000  |    |		.XXX[0x2]
0608 ; --------------------------------------------------------------------------------------
0608 ; SUBPROGRAM
0608 ; --------------------------------------------------------------------------------------
0608 0610       |    |		.CONST	0x0610								; Address of begin
0609 0004       |    |		.CONST	0x0004								; Address of exception handler
060a 0003       |    |		.CONST	0x0003								; Number of locals
060b			INIT_0608:
060b 4802       |H   |		Short_Literal	0x2
060c e00d       |    |		Load	0x0,0xd
060d 1c08       |    |		Execute_Immediate	Run_Utility,0x8
060e 00e2       |    |		Load_Encached	Integer_Cache
060f 0601       |    |		Execute_Immediate	Set_Value_Unchecked,0x1
0610			BODY_0608:
0610 00d9       |    |		Load_Top	At_Offset_1
0611 2e04       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
0612 e22d       | -  |		Load	0x1,0x2d
0613 8023       | #  |		Call	0x0,0x23
0614 00d1       |    |		Pop_Control	Pop_Count_1
0615 00d9       |    |		Load_Top	At_Offset_1
0616 2e05       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
0617 e22c       | ,  |		Load	0x1,0x2c
0618 8023       | #  |		Call	0x0,0x23
0619 00d1       |    |		Pop_Control	Pop_Count_1
061a e237       | 7  |		Load	0x1,0x37
061b 0aff       |    |		Execute_Immediate	Plus,-0x1
061c 00da       |    |		Load_Top	At_Offset_2
061d 2a06       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x6
061e e236       | 6  |		Load	0x1,0x36
061f 0aff       |    |		Execute_Immediate	Plus,-0x1
0620 00da       |    |		Load_Top	At_Offset_2
0621 2a07       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x7
0622 e237       | 7  |		Load	0x1,0x37
0623 e236       | 6  |		Load	0x1,0x36
0624 027f       |    |		Execute	Discrete,Equal
0625 682b       |h+  |		Jump_Zero	0x651
0626 e236       | 6  |		Load	0x1,0x36
0627 0aff       |    |		Execute_Immediate	Plus,-0x1
0628 e22d       | -  |		Load	0x1,0x2d
0629 01d5       |    |		Execute	Vector,Field_Reference
062a 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
062b 0f0b       |    |		Execute_Immediate	Equal,0xb
062c 680a       |h   |		Jump_Zero	0x637
062d e236       | 6  |		Load	0x1,0x36
062e 0aff       |    |		Execute_Immediate	Plus,-0x1
062f e22c       | ,  |		Load	0x1,0x2c
0630 01d5       |    |		Execute	Vector,Field_Reference
0631 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0632 0e0b       |    |		Execute_Immediate	Not_Equal,0xb
0633 682c       |h,  |		Jump_Zero	0x660
0634 4808       |H   |		Short_Literal	0x8
0635 8013       |    |		Call	0x0,0x13
0636 7829       |x)  |		Jump	0x660
0637 4801       |H   |		Short_Literal	0x1
0638 a236       | 6  |		Store_Unchecked	0x1,0x36
0639 00cf       |    |		Action	Mark_Auxiliary
063a 7810       |x   |		Jump	0x64b
063b e236       | 6  |		Load	0x1,0x36
063c e22d       | -  |		Load	0x1,0x2d
063d 01d5       |    |		Execute	Vector,Field_Reference
063e 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
063f e236       | 6  |		Load	0x1,0x36
0640 e22c       | ,  |		Load	0x1,0x2c
0641 01d5       |    |		Execute	Vector,Field_Reference
0642 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0643 027e       | ~  |		Execute	Discrete,Not_Equal
0644 6802       |h   |		Jump_Zero	0x647
0645 4808       |H   |		Short_Literal	0x8
0646 8013       |    |		Call	0x0,0x13
0647 e236       | 6  |		Load	0x1,0x36
0648 0a01       |    |		Execute_Immediate	Plus,0x1
0649 c236       | 6  |		Store	0x1,0x36
064a 00c9       |    |		Action	Pop_Auxiliary_Loop
064b e236       | 6  |		Load	0x1,0x36
064c e237       | 7  |		Load	0x1,0x37
064d 027c       | |  |		Execute	Discrete,Less
064e 77ec       |w   |		Jump_Nonzero	0x63b
064f 00ce       |    |		Action	Pop_Auxiliary
0650 780f       |x   |		Jump	0x660
0651 e237       | 7  |		Load	0x1,0x37
0652 0aff       |    |		Execute_Immediate	Plus,-0x1
0653 e22d       | -  |		Load	0x1,0x2d
0654 01d5       |    |		Execute	Vector,Field_Reference
0655 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0656 0e0b       |    |		Execute_Immediate	Not_Equal,0xb
0657 4801       |H   |		Short_Literal	0x1
0658 e22c       | ,  |		Load	0x1,0x2c
0659 01d5       |    |		Execute	Vector,Field_Reference
065a 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
065b 0e02       |    |		Execute_Immediate	Not_Equal,0x2
065c 0279       | y  |		Execute	Discrete,And
065d 6802       |h   |		Jump_Zero	0x660
065e 4808       |H   |		Short_Literal	0x8
065f 8013       |    |		Call	0x0,0x13
0660 4801       |H   |		Short_Literal	0x1
0661 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
0662 0092 0772  |   r|		Action	Push_String_Extended,0x772					; "EGALITE : "
0664 e00f       |    |		Load	0x0,0xf
0665 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
0666 0092 0773  |   s|		Action	Push_String_Extended,0x773					; "MEMBRE1 :"
0668 e00f       |    |		Load	0x0,0xf
0669 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
066a 00cf       |    |		Action	Mark_Auxiliary
066b 00d9       |    |		Load_Top	At_Offset_1
066c 00db       |    |		Load_Top	At_Offset_3
066d 2604       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x4
066e 01d5       |    |		Execute	Vector,Field_Reference
066f 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0670 801d       |    |		Call	0x0,0x1d
0671 00d9       |    |		Load_Top	At_Offset_1
0672 00db       |    |		Load_Top	At_Offset_3
0673 2604       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x4
0674 01d5       |    |		Execute	Vector,Field_Reference
0675 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0676 e01e       |    |		Load	0x0,0x1e
0677 011c       |    |		Execute	Any,Convert_Unchecked
0678 1c01       |    |		Execute_Immediate	Run_Utility,0x1
0679 0092 075d  |   ]|		Action	Push_String_Extended,0x75d					; " "
067b 01cc       |    |		Execute	Vector,Catenate
067c e00f       |    |		Load	0x0,0xf
067d 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
067e 00d9       |    |		Load_Top	At_Offset_1
067f 0a01       |    |		Execute_Immediate	Plus,0x1
0680 005a       | Z  |		Store_Top	Discrete,At_Offset_2
0681 00d9       |    |		Load_Top	At_Offset_1
0682 00db       |    |		Load_Top	At_Offset_3
0683 2e06       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x6
0684 027d       | }  |		Execute	Discrete,Greater
0685 7002       |p   |		Jump_Nonzero	0x688
0686 00c9       |    |		Action	Pop_Auxiliary_Loop
0687 7fe3       |    |		Jump	0x66b
0688 00ce       |    |		Action	Pop_Auxiliary
0689 4801       |H   |		Short_Literal	0x1
068a 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
068b 0092 075d  |   ]|		Action	Push_String_Extended,0x75d					; " "
068d e00f       |    |		Load	0x0,0xf
068e 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
068f 0092 0774  |   t|		Action	Push_String_Extended,0x774					; "MEMBRE2 :"
0691 e00f       |    |		Load	0x0,0xf
0692 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
0693 00cf       |    |		Action	Mark_Auxiliary
0694 00d9       |    |		Load_Top	At_Offset_1
0695 00db       |    |		Load_Top	At_Offset_3
0696 2605       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x5
0697 01d5       |    |		Execute	Vector,Field_Reference
0698 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0699 801d       |    |		Call	0x0,0x1d
069a 00d9       |    |		Load_Top	At_Offset_1
069b 00db       |    |		Load_Top	At_Offset_3
069c 2605       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x5
069d 01d5       |    |		Execute	Vector,Field_Reference
069e 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
069f e01e       |    |		Load	0x0,0x1e
06a0 011c       |    |		Execute	Any,Convert_Unchecked
06a1 1c01       |    |		Execute_Immediate	Run_Utility,0x1
06a2 0092 075d  |   ]|		Action	Push_String_Extended,0x75d					; " "
06a4 01cc       |    |		Execute	Vector,Catenate
06a5 e00f       |    |		Load	0x0,0xf
06a6 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
06a7 00d9       |    |		Load_Top	At_Offset_1
06a8 0a01       |    |		Execute_Immediate	Plus,0x1
06a9 005a       | Z  |		Store_Top	Discrete,At_Offset_2
06aa 00d9       |    |		Load_Top	At_Offset_1
06ab 00db       |    |		Load_Top	At_Offset_3
06ac 2e07       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x7
06ad 027d       | }  |		Execute	Discrete,Greater
06ae 7002       |p   |		Jump_Nonzero	0x6b1
06af 00c9       |    |		Action	Pop_Auxiliary_Loop
06b0 7fe3       |    |		Jump	0x694
06b1 00ce       |    |		Action	Pop_Auxiliary
06b2 0092 075d  |   ]|		Action	Push_String_Extended,0x75d					; " "
06b4 e00f       |    |		Load	0x0,0xf
06b5 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
06b6 0092 075a  |   Z|		Action	Push_String_Extended,0x75a					; "----------------------------------------"
06b8 e00f       |    |		Load	0x0,0xf
06b9 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
06ba 00d9       |    |		Load_Top	At_Offset_1
06bb 00ca       |    |		Action	Exit_Nullary_Function
06bc 0000 0000  |    |		.BLANK	0000[0x4]
06c0 ; --------------------------------------------------------------------------------------
06c0 ; SUBPROGRAM
06c0 ; --------------------------------------------------------------------------------------
06c0 06c6       |    |		.CONST	0x06c6								; Address of begin
06c1 0004       |    |		.CONST	0x0004								; Address of exception handler
06c2 0002       |    |		.CONST	0x0002								; Number of locals
06c3			INIT_06c0:
06c3 4803       |H   |		Short_Literal	0x3
06c4 e00d       |    |		Load	0x0,0xd
06c5 1c08       |    |		Execute_Immediate	Run_Utility,0x8
06c6			BODY_06c0:
06c6 4801       |H   |		Short_Literal	0x1
06c7 e22d       | -  |		Load	0x1,0x2d
06c8 01d5       |    |		Execute	Vector,Field_Reference
06c9 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
06ca 00d9       |    |		Load_Top	At_Offset_1
06cb 2a08       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x8
06cc e22e       | .  |		Load	0x1,0x2e
06cd 00d9       |    |		Load_Top	At_Offset_1
06ce 2a0a       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0xa
06cf 4801       |H   |		Short_Literal	0x1
06d0 e22c       | ,  |		Load	0x1,0x2c
06d1 01d5       |    |		Execute	Vector,Field_Reference
06d2 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
06d3 e019       |    |		Load	0x0,0x19
06d4 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
06d5 00e2       |    |		Load_Encached	Integer_Cache
06d6 00e0       |    |		Load_Encached	Standard_Cache
06d7 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
06d8 00d9       |    |		Load_Top	At_Offset_1
06d9 2a09       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x9
06da 0092 0775  |   u|		Action	Push_String_Extended,0x775					; "COMPARAISON :"
06dc e00f       |    |		Load	0x0,0xf
06dd 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
06de 00d8       |    |		Load_Top	At_Offset_0
06df 2e08       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x8
06e0 801d       |    |		Call	0x0,0x1d
06e1 00d8       |    |		Load_Top	At_Offset_0
06e2 2e0a       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xa
06e3 e00c       |    |		Load	0x0,0xc
06e4 011c       |    |		Execute	Any,Convert_Unchecked
06e5 1c01       |    |		Execute_Immediate	Run_Utility,0x1
06e6 e00f       |    |		Load	0x0,0xf
06e7 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
06e8 0092 076b  |   k|		Action	Push_String_Extended,0x76b					; "  "
06ea 00d9       |    |		Load_Top	At_Offset_1
06eb 2e09       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x9
06ec 00e0       |    |		Load_Encached	Standard_Cache
06ed 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
06ee 01cc       |    |		Execute	Vector,Catenate
06ef e00f       |    |		Load	0x0,0xf
06f0 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
06f1 0092 075d  |   ]|		Action	Push_String_Extended,0x75d					; " "
06f3 e00f       |    |		Load	0x0,0xf
06f4 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
06f5 0092 075a  |   Z|		Action	Push_String_Extended,0x75a					; "----------------------------------------"
06f7 e00f       |    |		Load	0x0,0xf
06f8 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
06f9 00d8       |    |		Load_Top	At_Offset_0
06fa 00ca       |    |		Action	Exit_Nullary_Function
06fb 0000 0000  |    |		.BLANK	0000[0x5]
0700 ; --------------------------------------------------------------------------------------
0700 ; SUBPROGRAM
0700 ; SUBPROGRAM
0700 ; --------------------------------------------------------------------------------------
0700 0703       |    |		.CONST	0x0703								; Address of begin
0701 0004       |    |		.CONST	0x0004								; Address of exception handler
0702 0001       |    |		.CONST	0x0001								; Number of locals
0703			BODY_0700:
0703			BODY_0700:
0703			INIT_0700:
0703			INIT_0700:
0703 4609       |F   |		Jump_Case	0xa
0704 7809       |x   |		Jump	0x70e								; case 0x0
0705 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
0706 781a       |x   |		Jump	0x721								; case 0x2
0707 781d       |x   |		Jump	0x725								; case 0x3
0708 7822       |x"  |		Jump	0x72b								; case 0x4
0709 782c       |x,  |		Jump	0x736								; case 0x5
070a 7832       |x2  |		Jump	0x73d								; case 0x6
070b 7837       |x7  |		Jump	0x743								; case 0x7
070c 783f       |x?  |		Jump	0x74c								; case 0x8
070d 7845       |xE  |		Jump	0x753								; case 0x9
070e 00da       |    |		Load_Top	At_Offset_2
070f 016c       | l  |		Execute	Variant_Record,Is_Constrained
0710 7009       |p   |		Jump_Nonzero	0x71a
0711 00cf       |    |		Action	Mark_Auxiliary
0712 4801       |H   |		Short_Literal	0x1
0713 e5ff       |    |		Load	0x2,-0x1
0714 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0715 00d8       |    |		Load_Top	At_Offset_0
0716 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0717 c5ff       |    |		Store	0x2,-0x1
0718 00ce       |    |		Action	Pop_Auxiliary
0719 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
071a 00da       |    |		Load_Top	At_Offset_2
071b 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
071c 6803       |h   |		Jump_Zero	0x720
071d 00da       |    |		Load_Top	At_Offset_2
071e 2606       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x6
071f 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0720 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
0721 4801       |H   |		Short_Literal	0x1
0722 4806       |H   |		Short_Literal	0x6
0723 0311       |    |		Declare_Type	Variant_Record,Constrained_Incomplete
0724 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0725 e5fd       |    |		Load	0x2,-0x3
0726 00db       |    |		Load_Top	At_Offset_3
0727 1c07       |    |		Execute_Immediate	Run_Utility,0x7
0728 e5fe       |    |		Load	0x2,-0x2
0729 0306       |    |		Complete_Type	Variant_Record,By_Renaming
072a 4304       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x4
072b 4801       |H   |		Short_Literal	0x1
072c 4806       |H   |		Short_Literal	0x6
072d 0311       |    |		Declare_Type	Variant_Record,Constrained_Incomplete
072e e5fe       |    |		Load	0x2,-0x2
072f 00d8       |    |		Load_Top	At_Offset_0
0730 e5ff       |    |		Load	0x2,-0x1
0731 1c06       |    |		Execute_Immediate	Run_Utility,0x6
0732 e5ff       |    |		Load	0x2,-0x1
0733 00db       |    |		Load_Top	At_Offset_3
0734 0305       |    |		Complete_Type	Variant_Record,By_Constraining_Incomplete
0735 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0736 4801       |H   |		Short_Literal	0x1
0737 00db       |    |		Load_Top	At_Offset_3
0738 0169       | i  |		Execute	Variant_Record,Read_Discriminant_Constraint
0739 6800       |h   |		Jump_Zero	0x73a
073a e5ff       |    |		Load	0x2,-0x1
073b 0304       |    |		Complete_Type	Variant_Record,By_Completing_Constraint
073c 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
073d 00db       |    |		Load_Top	At_Offset_3
073e 6802       |h   |		Jump_Zero	0x741
073f 4802       |H   |		Short_Literal	0x2
0740 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0741 4801       |H   |		Short_Literal	0x1
0742 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0743 00db       |    |		Load_Top	At_Offset_3
0744 e5fe       |    |		Load	0x2,-0x2
0745 6802       |h   |		Jump_Zero	0x748
0746 4802       |H   |		Short_Literal	0x2
0747 7801       |x   |		Jump	0x749
0748 4801       |H   |		Short_Literal	0x1
0749 e5ff       |    |		Load	0x2,-0x1
074a 031b       |    |		Declare_Type	Variant_Record,Constrained
074b 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
074c 00db       |    |		Load_Top	At_Offset_3
074d e5fe       |    |		Load	0x2,-0x2
074e e5ff       |    |		Load	0x2,-0x1
074f 1c06       |    |		Execute_Immediate	Run_Utility,0x6
0750 e5ff       |    |		Load	0x2,-0x1
0751 02fc       |    |		Declare_Variable	Variant_Record,With_Constraint
0752 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0753 4801       |H   |		Short_Literal	0x1
0754 00db       |    |		Load_Top	At_Offset_3
0755 1c07       |    |		Execute_Immediate	Run_Utility,0x7
0756 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0757 ; --------------------------------------------------------------------------------------
0757 ; STRING TABLE
0757 ; --------------------------------------------------------------------------------------
0757 0040       | @  |		.STRTAB	0x0040->0x0777							; "TYPE_REGLE"
0758 0048       | H  |		.STRTAB	0x0048->0x077c							; "TYPE_INSTRUCTION"
0759 0056       | V  |		.STRTAB	0x0056->0x0784							; "level is now: "
075a 0062       | b  |		.STRTAB	0x0062->0x078b							; "----------------------------------------"
075b 0088       |    |		.STRTAB	0x0088->0x079f							; "------------------------------------------"
075c 00b0       |    |		.STRTAB	0x00b0->0x07b4							; " go to modifie "
075d 00bd       |    |		.STRTAB	0x00bd->0x07bb							; " "
075e 00bc       |    |		.STRTAB	0x00bc->0x07bc							; "modifierdescription"
075f 00cd       |    |		.STRTAB	0x00cd->0x07c5							; "LEVEL "
0760 00d1       |    |		.STRTAB	0x00d1->0x07c8							; " Can_Use_Sortie_At_Level"
0761 00e7       |    |		.STRTAB	0x00e7->0x07d4							; "GENERIQUE:"
0762 00ef       |    |		.STRTAB	0x00ef->0x07d9							; " is declare at level "
0763 0102       |    |		.STRTAB	0x0102->0x07e4							; "go to evalue the condition"
0764 011a       |    |		.STRTAB	0x011a->0x07f1							; "condition is realise"
0765 012c       | ,  |		.STRTAB	0x012c->0x07fb							; "condition is not realise"
0766 0142       | B  |		.STRTAB	0x0142->0x0807							; "go to evaluate"
0767 014e       | N  |		.STRTAB	0x014e->0x080e							; "affectation is done"
0768 015f       | _  |		.STRTAB	0x015f->0x0817							; "go to execute function"
0769 0173       | s  |		.STRTAB	0x0173->0x0822							; "execution is done"
076a 0182       |    |		.STRTAB	0x0182->0x082b							; "une instruction:  "
076b 0192       |    |		.STRTAB	0x0192->0x0834							; "  "
076c 0192       |    |		.STRTAB	0x0192->0x0835							; " une regle "
076d 019b       |    |		.STRTAB	0x019b->0x083a							; "if  condition"
076e 01a6       |    |		.STRTAB	0x01a6->0x0841							; "else"
076f 01a8       |    |		.STRTAB	0x01a8->0x0843							; "fin si"
0770 01ac       |    |		.STRTAB	0x01ac->0x0846							; "ACTION : "
0771 01b3       |    |		.STRTAB	0x01b3->0x084a							; "RECHERCHE : "
0772 01bd       |    |		.STRTAB	0x01bd->0x0850							; "EGALITE : "
0773 01c5       |    |		.STRTAB	0x01c5->0x0855							; "MEMBRE1 :"
0774 01cc       |    |		.STRTAB	0x01cc->0x085a							; "MEMBRE2 :"
0775 01d3       |    |		.STRTAB	0x01d3->0x085e							; "COMPARAISON :"
0776 01de       |    |		.STREND 0x01de->0x0865
0777 5459 5045  |TYPE|		.STRTAB_STRINGS
0865 0000 0000  |    |		.XXX[0x3]
0867 0000       |    |
0868 ; --------------------------------------------------------------------------------------
0868 ; Debug Table
0868 ; --------------------------------------------------------------------------------------
0868 0004 0008  |    |		.DEBUG4	0x0004,0x0008,0xb9de,0x0000,0x0001,0x001d
086e 000b 08e2  |    |		.DBG4T	0x000b,0x08e2,0x8000,0x0000
0872 004f 08f8  | O  |		.DBG4T	0x004f,0x08f8,0x8000,0x0000
0876 00eb 0000  |    |		.DBG4T	0x00eb,0x0000,0x0005,0x0000
087a 0123 092c  | # ,|		.DBG4T	0x0123,0x092c,0x0001,0x0000
087e 0163 093e  | c >|		.DBG4T	0x0163,0x093e,0x0001,0x0000
0882 0183 0946  |   F|		.DBG4T	0x0183,0x0946,0x0001,0x0000
0886 01ab 0950  |   P|		.DBG4T	0x01ab,0x0950,0x0001,0x0000
088a 01e3 095c  |   \|		.DBG4T	0x01e3,0x095c,0x0001,0x0000
088e 01f3 0961  |   a|		.DBG4T	0x01f3,0x0961,0x0001,0x0000
0892 020b 0967  |   g|		.DBG4T	0x020b,0x0967,0x0001,0x0000
0896 0223 096e  | # n|		.DBG4T	0x0223,0x096e,0x0001,0x0000
089a 024b 0975  | K u|		.DBG4T	0x024b,0x0975,0x0001,0x0000
089e 0263 097b  | c {|		.DBG4T	0x0263,0x097b,0x0001,0x0000
08a2 02e3 0994  |    |		.DBG4T	0x02e3,0x0994,0x0001,0x4000
08a6 033b 09ad  | ;  |		.DBG4T	0x033b,0x09ad,0x0001,0x0000
08aa 042b 09e7  | +  |		.DBG4T	0x042b,0x09e7,0x0001,0x0000
08ae 0453 09f3  | S  |		.DBG4T	0x0453,0x09f3,0x0001,0x0000
08b2 045b 09f6  | [  |		.DBG4T	0x045b,0x09f6,0x0002,0x0000
08b6 0463 09f9  | c  |		.DBG4T	0x0463,0x09f9,0x0001,0x4000
08ba 04d3 0a23  |   #|		.DBG4T	0x04d3,0x0a23,0x0001,0x0000
08be 04f3 0a2a  |   *|		.DBG4T	0x04f3,0x0a2a,0x0001,0x4000
08c2 051b 0a34  |   4|		.DBG4T	0x051b,0x0a34,0x0001,0x0000
08c6 0533 0a3a  | 3 :|		.DBG4T	0x0533,0x0a3a,0x0001,0x0000
08ca 053b 0a3d  | ; =|		.DBG4T	0x053b,0x0a3d,0x0001,0x4000
08ce 058b 0a58  |   X|		.DBG4T	0x058b,0x0a58,0x0002,0x4000
08d2 05cb 0a70  |   p|		.DBG4T	0x05cb,0x0a70,0x0002,0x4000
08d6 060b 0a88  |    |		.DBG4T	0x060b,0x0a88,0x0002,0x4000
08da 06c3 0acc  |    |		.DBG4T	0x06c3,0x0acc,0x0002,0x0000
08de 0703 0000  |    |		.DBG4T	0x0703,0x0000,0x0005,0x0000
08e2 ; --------------------------------------------------------------------------------------
08e2 ; Debug chain
08e2 ; --------------------------------------------------------------------------------------
08e2 0014 0000  |    |		.DBGLEN	0x0014,0x0000
08e4 000b 0010  |    |		.DBGLNO	0x000b,0x0010,0x001b,0x001f,0x0021,0x0023,0x0025,0x0027,0x0029,0x002b,0x002d,0x002f,0x0031,0x0033,0x0035,0x0037,0x0039,0x003b,0x003d,0x003f
08f8 ; --------------------------------------------------------------------------------------
08f8 ; Debug chain
08f8 ; --------------------------------------------------------------------------------------
08f8 0032 0000  | 2  |		.DBGLEN	0x0032,0x0000
08fa 004f 0051  | O Q|		.DBGLNO	0x004f,0x0051,0x005f,0x006d,0x007b,0x007f,0x0083,0x0087,0x0089,0x008b,0x008c,0x008e,0x0090,0x0092,0x0094,0x0096,0x0097,0x0098,0x009c,0x009e,0x00a0,0x00ae,0x00b0,0x00b1,0x00b2,0x00b4,0x00b6,0x00b8,0x00ba,0x00bc,0x00be,0x00c0,0x00c2,0x00c4,0x00c6,0x00c8,0x00ca,0x00cc,0x00ce,0x00d0,0x00d2,0x00d4,0x00d6,0x00d8,0x00da,0x00dc,0x00de,0x00e0,0x00e2,0x00e4
092c ; --------------------------------------------------------------------------------------
092c ; Debug chain
092c ; --------------------------------------------------------------------------------------
092c 0000 0010  |    |		.DBGLEN	0x0000,0x0010
092e 0123 0126  | # &|		.DBGLNO	0x0123,0x0126,0x012e,0x0132,0x0134,0x0136,0x0138,0x013a,0x013b,0x0141,0x0149,0x014b,0x0151,0x0153,0x0159,0x015b
093e ; --------------------------------------------------------------------------------------
093e ; Debug chain
093e ; --------------------------------------------------------------------------------------
093e 0000 0006  |    |		.DBGLEN	0x0000,0x0006
0940 0163 0165  | c e|		.DBGLNO	0x0163,0x0165,0x0166,0x016e,0x0170,0x0176
0946 ; --------------------------------------------------------------------------------------
0946 ; Debug chain
0946 ; --------------------------------------------------------------------------------------
0946 0001 0007  |    |		.DBGLEN	0x0001,0x0007
0948 0183 0185  |    |		.DBGLNO	0x0183,0x0185,0x0186,0x018e,0x0196,0x019a,0x019c,0x019e
0950 ; --------------------------------------------------------------------------------------
0950 ; Debug chain
0950 ; --------------------------------------------------------------------------------------
0950 0001 0009  |    |		.DBGLEN	0x0001,0x0009
0952 01ab 01ad  |    |		.DBGLNO	0x01ab,0x01ad,0x01ae,0x01b6,0x01be,0x01c2,0x01c7,0x01cb,0x01d3,0x01d5
095c ; --------------------------------------------------------------------------------------
095c ; Debug chain
095c ; --------------------------------------------------------------------------------------
095c 0000 0003  |    |		.DBGLEN	0x0000,0x0003
095e 01e3 01e5  |    |		.DBGLNO	0x01e3,0x01e5,0x01e7
0961 ; --------------------------------------------------------------------------------------
0961 ; Debug chain
0961 ; --------------------------------------------------------------------------------------
0961 0001 0003  |    |		.DBGLEN	0x0001,0x0003
0963 01f3 01f5  |    |		.DBGLNO	0x01f3,0x01f5,0x01f6,0x01fe
0967 ; --------------------------------------------------------------------------------------
0967 ; Debug chain
0967 ; --------------------------------------------------------------------------------------
0967 0001 0004  |    |		.DBGLEN	0x0001,0x0004
0969 020b 020e  |    |		.DBGLNO	0x020b,0x020e,0x0212,0x0214,0x021a
096e ; --------------------------------------------------------------------------------------
096e ; Debug chain
096e ; --------------------------------------------------------------------------------------
096e 0000 0005  |    |		.DBGLEN	0x0000,0x0005
0970 0223 0228  | # (|		.DBGLNO	0x0223,0x0228,0x022c,0x023b,0x0240
0975 ; --------------------------------------------------------------------------------------
0975 ; Debug chain
0975 ; --------------------------------------------------------------------------------------
0975 0001 0003  |    |		.DBGLEN	0x0001,0x0003
0977 024b 024e  | K N|		.DBGLNO	0x024b,0x024e,0x0250,0x0254
097b ; --------------------------------------------------------------------------------------
097b ; Debug chain
097b ; --------------------------------------------------------------------------------------
097b 0001 0016  |    |		.DBGLEN	0x0001,0x0016
097d 0263 0265  | c e|		.DBGLNO	0x0263,0x0265,0x0267,0x026a,0x026d,0x0270,0x0273,0x027d,0x0280,0x0283,0x0285,0x0288,0x0293,0x029f,0x02a1,0x02a4,0x02ab,0x02ad,0x02b0,0x02b7,0x02b9,0x02c9,0x02dc
0994 ; --------------------------------------------------------------------------------------
0994 ; Debug chain
0994 ; --------------------------------------------------------------------------------------
0994 0001 000b  |    |		.DBGLEN	0x0001,0x000b
0996 02e3 02e5  |    |		.DBGLNO	0x02e3,0x02e5,0x02eb,0x02ef,0x02f3,0x02fe,0x0304,0x030c,0x031b,0x031e,0x0328,0x032c
09a2 0001 0002  |    |		.XXX[0xb]
09a4 0003 0004  |    |
09a6 0005 0007  |    |
09a8 0008 0009  |    |
09aa 000a 000b  |    |
09ac 000c       |    |
09ad ; --------------------------------------------------------------------------------------
09ad ; Debug chain
09ad ; --------------------------------------------------------------------------------------
09ad 0002 0036  |   6|		.DBGLEN	0x0002,0x0036
09af 033b 033d  | ; =|		.DBGLNO	0x033b,0x033d,0x033e,0x0340,0x0343,0x0346,0x0349,0x034c,0x034f,0x0356,0x0359,0x035c,0x035e,0x0367,0x0369,0x036d,0x0371,0x0376,0x037a,0x037e,0x0381,0x0386,0x0389,0x038c,0x0391,0x0396,0x0398,0x039b,0x039d,0x03a3,0x03a8,0x03b9,0x03bd,0x03c2,0x03c5,0x03c8,0x03cf,0x03d1,0x03d3,0x03d5,0x03d8,0x03db,0x03df,0x03e1,0x03e3,0x03e6,0x03e9,0x03f1,0x03f4,0x03f7,0x03fa,0x03fc,0x0402,0x040e,0x0418,0x041d
09e7 ; --------------------------------------------------------------------------------------
09e7 ; Debug chain
09e7 ; --------------------------------------------------------------------------------------
09e7 0000 000a  |    |		.DBGLEN	0x0000,0x000a
09e9 042b 042e  | + .|		.DBGLNO	0x042b,0x042e,0x0430,0x0434,0x0436,0x043c,0x0440,0x0444,0x0447,0x0449
09f3 ; --------------------------------------------------------------------------------------
09f3 ; Debug chain
09f3 ; --------------------------------------------------------------------------------------
09f3 0000 0001  |    |		.DBGLEN	0x0000,0x0001
09f5 0453       | S  |		.DBGLNO	0x0453
09f6 ; --------------------------------------------------------------------------------------
09f6 ; Debug chain
09f6 ; --------------------------------------------------------------------------------------
09f6 0000 0001  |    |		.DBGLEN	0x0000,0x0001
09f8 045b       | [  |		.DBGLNO	0x045b
09f9 ; --------------------------------------------------------------------------------------
09f9 ; Debug chain
09f9 ; --------------------------------------------------------------------------------------
09f9 0002 0013  |    |		.DBGLEN	0x0002,0x0013
09fb 0463 0464  | c d|		.DBGLNO	0x0463,0x0464,0x0469,0x0471,0x0476,0x047a,0x047f,0x0483,0x0488,0x048c,0x0491,0x049a,0x04a0,0x04a4,0x04aa,0x04b0,0x04b5,0x04b9,0x04bf,0x04c3,0x04c8
0a10 0002 0003  |    |		.XXX[0x13]
0a12 000d 000e  |    |
0a14 000f 0010  |    |
0a16 0011 0012  |    |
0a18 0004 0005  |    |
0a1a 0009 000a  |    |
0a1c 000b 000c  |    |
0a1e 0006 0007  |    |
0a20 0008 0013  |    |
0a22 0001       |    |
0a23 ; --------------------------------------------------------------------------------------
0a23 ; Debug chain
0a23 ; --------------------------------------------------------------------------------------
0a23 0000 0005  |    |		.DBGLEN	0x0000,0x0005
0a25 04d4 04d7  |    |		.DBGLNO	0x04d4,0x04d7,0x04dd,0x04e4,0x04e8
0a2a ; --------------------------------------------------------------------------------------
0a2a ; Debug chain
0a2a ; --------------------------------------------------------------------------------------
0a2a 0000 0004  |    |		.DBGLEN	0x0000,0x0004
0a2c 04f3 04f7  |    |		.DBGLNO	0x04f3,0x04f7,0x0506,0x050c
0a30 0001 0003  |    |		.XXX[0x4]
0a32 0004 0002  |    |
0a34 ; --------------------------------------------------------------------------------------
0a34 ; Debug chain
0a34 ; --------------------------------------------------------------------------------------
0a34 0000 0004  |    |		.DBGLEN	0x0000,0x0004
0a36 051b 051d  |    |		.DBGLNO	0x051b,0x051d,0x0521,0x0526
0a3a ; --------------------------------------------------------------------------------------
0a3a ; Debug chain
0a3a ; --------------------------------------------------------------------------------------
0a3a 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0a3c 0533       | 3  |		.DBGLNO	0x0533
0a3d ; --------------------------------------------------------------------------------------
0a3d ; Debug chain
0a3d ; --------------------------------------------------------------------------------------
0a3d 0001 000c  |    |		.DBGLEN	0x0001,0x000c
0a3f 053b 0540  | ; @|		.DBGLNO	0x053b,0x0540,0x0548,0x054d,0x0551,0x0555,0x0559,0x055d,0x0561,0x0566,0x0575,0x057a,0x057f
0a4c 0002 0003  |    |		.XXX[0xc]
0a4e 0006 0007  |    |
0a50 0008 0009  |    |
0a52 000a 000b  |    |
0a54 0004 0005  |    |
0a56 000c 0001  |    |
0a58 ; --------------------------------------------------------------------------------------
0a58 ; Debug chain
0a58 ; --------------------------------------------------------------------------------------
0a58 0002 000a  |    |		.DBGLEN	0x0002,0x000a
0a5a 058b 058e  |    |		.DBGLNO	0x058b,0x058e,0x0590,0x0595,0x0599,0x059e,0x05a4,0x05b1,0x05b4,0x05bc,0x05c0,0x05c4
0a66 0001 0002  |    |		.XXX[0xa]
0a68 0003 0005  |    |
0a6a 0006 0007  |    |
0a6c 0008 0009  |    |
0a6e 000a 000b  |    |
0a70 ; --------------------------------------------------------------------------------------
0a70 ; Debug chain
0a70 ; --------------------------------------------------------------------------------------
0a70 0002 000a  |    |		.DBGLEN	0x0002,0x000a
0a72 05cb 05ce  |    |		.DBGLNO	0x05cb,0x05ce,0x05d0,0x05d5,0x05d9,0x05de,0x05e4,0x05f1,0x05f4,0x05fc,0x0600,0x0604
0a7e 0001 0002  |    |		.XXX[0xa]
0a80 0003 0005  |    |
0a82 0006 0007  |    |
0a84 0008 0009  |    |
0a86 000a 000b  |    |
0a88 ; --------------------------------------------------------------------------------------
0a88 ; Debug chain
0a88 ; --------------------------------------------------------------------------------------
0a88 0002 0020  |    |		.DBGLEN	0x0002,0x0020
0a8a 060b 060e  |    |		.DBGLNO	0x060b,0x060e,0x0610,0x0615,0x061a,0x061e,0x0622,0x0626,0x062d,0x0634,0x0637,0x063b,0x0645,0x0647,0x064b,0x0651,0x065e,0x0660,0x0662,0x0666,0x066b,0x0671,0x067e,0x0681,0x0689,0x068b,0x068f,0x0694,0x069a,0x06a7,0x06aa,0x06b2,0x06b6,0x06ba
0aac 0001 0002  |    |		.XXX[0x20]
0aae 0003 0004  |    |
0ab0 0005 0006  |    |
0ab2 0007 0008  |    |
0ab4 0009 000b  |    |
0ab6 000c 000d  |    |
0ab8 000a 000e  |    |
0aba 000f 0010  |    |
0abc 0011 0012  |    |
0abe 0014 0015  |    |
0ac0 0016 0017  |    |
0ac2 0018 0019  |    |
0ac4 001a 001c  |    |
0ac6 001d 001e  |    |
0ac8 001f 0020  |    |
0aca 0021 0022  | ! "|
0acc ; --------------------------------------------------------------------------------------
0acc ; Debug chain
0acc ; --------------------------------------------------------------------------------------
0acc 0001 000a  |    |		.DBGLEN	0x0001,0x000a
0ace 06c3 06c6  |    |		.DBGLNO	0x06c3,0x06c6,0x06cc,0x06cf,0x06da,0x06de,0x06e1,0x06e8,0x06f1,0x06f5,0x06f9
0ad9 0000 0000  |    |		.BLANK	0000[0x127]