--- rpl/src/instructions_a4.c	2012/05/21 17:25:42	1.36
+++ rpl/src/instructions_a4.c	2013/03/20 17:11:44	1.43
@@ -1,7 +1,7 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.1.9
-  Copyright (C) 1989-2012 Dr. BERTRAND Joël
+  RPL/2 (R) version 4.1.13
+  Copyright (C) 1989-2013 Dr. BERTRAND Joël
 
   This file is part of RPL/2.
 
@@ -917,7 +917,7 @@ instruction_axes(struct_processus *s_eta
 									}
 									else if (nombre_arguments_auxiliaires == 2)
 									{
-										(*s_etat_processus).mx_tics = (real8)
+										(*s_etat_processus).mx_tics =
 												(*((integer8 *) (*
 												(*l_element_courant_auxiliaire)
 												.donnee).objet));
@@ -947,7 +947,7 @@ instruction_axes(struct_processus *s_eta
 									}
 									else if (nombre_arguments_auxiliaires == 2)
 									{
-										(*s_etat_processus).mx2_tics = (real8)
+										(*s_etat_processus).mx2_tics =
 												(*((integer8 *) (*
 												(*l_element_courant_auxiliaire)
 												.donnee).objet));
@@ -983,7 +983,7 @@ instruction_axes(struct_processus *s_eta
 									}
 									else if (nombre_arguments_auxiliaires == 2)
 									{
-										(*s_etat_processus).my_tics = (real8)
+										(*s_etat_processus).my_tics =
 												(*((integer8 *) (*
 												(*l_element_courant_auxiliaire)
 												.donnee).objet));
@@ -1013,7 +1013,7 @@ instruction_axes(struct_processus *s_eta
 									}
 									else if (nombre_arguments_auxiliaires == 2)
 									{
-										(*s_etat_processus).my2_tics = (real8)
+										(*s_etat_processus).my2_tics =
 												(*((integer8 *) (*
 												(*l_element_courant_auxiliaire)
 												.donnee).objet));
@@ -1049,7 +1049,7 @@ instruction_axes(struct_processus *s_eta
 									}
 									else if (nombre_arguments_auxiliaires == 2)
 									{
-										(*s_etat_processus).mz_tics = (real8)
+										(*s_etat_processus).mz_tics =
 												(*((integer8 *) (*
 												(*l_element_courant_auxiliaire)
 												.donnee).objet));
@@ -1079,7 +1079,7 @@ instruction_axes(struct_processus *s_eta
 									}
 									else if (nombre_arguments_auxiliaires == 2)
 									{
-										(*s_etat_processus).mz2_tics = (real8)
+										(*s_etat_processus).mz2_tics =
 												(*((integer8 *) (*
 												(*l_element_courant_auxiliaire)
 												.donnee).objet));
@@ -1141,7 +1141,7 @@ instruction_axes(struct_processus *s_eta
 									else if (nombre_arguments_auxiliaires == 2)
 									{
 										(*s_etat_processus).mx_tics =
-												(*((real8 *) (*
+												(integer8) (*((real8 *) (*
 												(*l_element_courant_auxiliaire)
 												.donnee).objet));
 										(*s_etat_processus).mx_lines =
@@ -1171,7 +1171,7 @@ instruction_axes(struct_processus *s_eta
 									else if (nombre_arguments_auxiliaires == 2)
 									{
 										(*s_etat_processus).mx2_tics =
-												(*((real8 *) (*
+												(integer8) (*((real8 *) (*
 												(*l_element_courant_auxiliaire)
 												.donnee).objet));
 										(*s_etat_processus).mx2_lines =
@@ -1207,7 +1207,7 @@ instruction_axes(struct_processus *s_eta
 									else if (nombre_arguments_auxiliaires == 2)
 									{
 										(*s_etat_processus).my_tics =
-												(*((real8 *) (*
+												(integer8) (*((real8 *) (*
 												(*l_element_courant_auxiliaire)
 												.donnee).objet));
 										(*s_etat_processus).my_lines =
@@ -1237,7 +1237,7 @@ instruction_axes(struct_processus *s_eta
 									else if (nombre_arguments_auxiliaires == 2)
 									{
 										(*s_etat_processus).my2_tics =
-												(*((real8 *) (*
+												(integer8) (*((real8 *) (*
 												(*l_element_courant_auxiliaire)
 												.donnee).objet));
 										(*s_etat_processus).my2_lines =
@@ -1273,7 +1273,7 @@ instruction_axes(struct_processus *s_eta
 									else if (nombre_arguments_auxiliaires == 2)
 									{
 										(*s_etat_processus).mz_tics =
-												(*((real8 *) (*
+												(integer8) (*((real8 *) (*
 												(*l_element_courant_auxiliaire)
 												.donnee).objet));
 										(*s_etat_processus).mz_lines =
@@ -1303,7 +1303,7 @@ instruction_axes(struct_processus *s_eta
 									else if (nombre_arguments_auxiliaires == 2)
 									{
 										(*s_etat_processus).mz2_tics =
-												(*((real8 *) (*
+												(integer8) (*((real8 *) (*
 												(*l_element_courant_auxiliaire)
 												.donnee).objet));
 										(*s_etat_processus).mz2_lines =