/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        E N V O I   D ' U N E   C O M M A N D E   A U   D I S Q U E   V I D E O   B E T A - P A L  :                               */
/*                                                                                                                                   */
/*                                                                                                                                   */
/*        Author of '$xci/video_P.03$I' :                                                                                            */
/*                                                                                                                                   */
/*                    Jean-Francois Colonna (LACTAMME, 1994??????????).                                                              */
/*                                                                                                                                   */
/*************************************************************************************************************************************/

/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        E N V O I   D ' U N E   C O M M A N D E   A U   D I S Q U E   V I D E O   B E T A - P A L  :                               */
/*                                                                                                                                   */
/*************************************************************************************************************************************/

#ifdef    __VERSION__COMPILER_LA_GESTION_DU_DISQUE_PAL_BETA
     DEFV(CHAR,INIC(POINTERc(commande_courante),C_VIDE));
                                        /* Commande a envoyer au disque video.                                                       */
     DEFV(Int,INIT(adresse_courante,ADRESSE_COURANTE));
                                        /* Adresse d'une image sur le disque.                                                        */
     DEFV(Int,INIT(adresse_de_debut,ADRESSE_COURANTE));
     DEFV(Int,INIT(adresse_de_fin,ADRESSE_COURANTE));
                                        /* Adresses d'une sequence d'images sur le disque.                                           */
     DEFV(Int,INIT(ralenti_courant,RALENTI_COURANT));
                                        /* Taux de ralenti.                                                                          */
     DEFV(Int,INIT(donnees,DONNEES));
                                        /* Valeur numerique lors d'un "enter".                                                       */
     DEFV(Logical,INIT(permuter_les_octets_d_un_bloc_de_donnees,PERMUTER_LES_OCTETS_D_UN_BLOC_DE_DONNEES));
                                        /* Afin de savoir s'il faut ou pas permuter les octets d'un bloc de donnees. Ceci a ete      */
                                        /* introduit le 20041221121556 pour permettre aux 'SYSTEME_APC's de pouvoir recuperer les    */
                                        /* blocs de donnees ecrits il y a bien longtemps sur 'SYSTEME_SGIND'...                      */
     DEFV(Int,INIT(nombre_de_repetitions,NOMBRE_DE_REPETITIONS));
                                        /* Nombre de repetitions pour une lecture quelconque d'une sequence.                         */
     DEFV(Logical,INIT(affichage_sur_le_moniteur,AFFICHAGE_SUR_LE_MONITEUR));
                                        /* Faut-il afficher des informations sur le moniteur de controle ? Ce parametre n'est        */
                                        /* pris en compte qu'a l'initialisation...                                                   */
     DEFV(Logical,INIT(on_a_trouve_une_commande_valide,FAUX));
                                        /* Pour savoir si la commande courante a ete reconnue...                                     */
#Aifdef   __VERSION__COMPILER_LA_GESTION_DU_DISQUE_PAL_BETA
#Eifdef   __VERSION__COMPILER_LA_GESTION_DU_DISQUE_PAL_BETA