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

/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        I N T E R F A C E   ' listG '  :                                                                                           */
/*                                                                                                                                   */
/*                                                                                                                                   */
/*        :Debut_listG:                                                                                                              */
/*        :Fin_listG:                                                                                                                */
/*                                                                                                                                   */
/*************************************************************************************************************************************/

/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        D I R E C T I V E S   S P E C I F I Q U E S   D E   C O M P I L A T I O N  :                                               */
/*                                                                                                                                   */
/*************************************************************************************************************************************/

/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        F I C H I E R S   D ' I N C L U D E S  :                                                                                   */
/*                                                                                                                                   */
/*************************************************************************************************************************************/
#define   __VERSION__GESTION_D_UN_MAGNETOSCOPE_PAL_BETA_UVW1400P
                                        /* ATTENTION, ce symbole peut etre aussi defini dans '$xiidP/fonct$vv$DEF'...                */
                                        /*                                                                                           */
                                        /* Le 20030314092205, le symbole 'GESTION_D_UN_MAGNETOSCOPE_PAL_BETA_*' a ete change en      */
                                        /* '__VERSION__GESTION_D_UN_MAGNETOSCOPE_PAL_BETA_*' afin de permettre sa recuperation dans  */
                                        /* 'v $xcc/cpp$Z _VERSION_'.                                                                 */

#include  INCLUDES_MINI
#include  image_drive_diskP_FONCTION_EXT

/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        P A R A M E T R E S  :                                                                                                     */
/*                                                                                                                                   */
/*************************************************************************************************************************************/

#ifdef    __VERSION__COMPILER_LA_GESTION_DU_DISQUE_PAL_BETA
                                        /* Nota : ces directives de compilation conditionnelle sont aussi presentes dans le fichier  */
                                        /* d'include '$xci/video_P.01.I' d'une part pour permettre d'inserer ici des parametres      */
                                        /* specifiques et conditionnels, et d'autre part de justifier la tabulation interne a ce     */
                                        /* fichier d'include...                                                                      */
#    include   xci/video_P.01.I"
#Aifdef   __VERSION__COMPILER_LA_GESTION_DU_DISQUE_PAL_BETA
#Eifdef   __VERSION__COMPILER_LA_GESTION_DU_DISQUE_PAL_BETA

/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        M A C R O S   U T I L E S  :                                                                                               */
/*                                                                                                                                   */
/*************************************************************************************************************************************/

#ifdef    __VERSION__COMPILER_LA_GESTION_DU_DISQUE_PAL_BETA
                                        /* Nota : ces directives de compilation conditionnelle sont aussi presentes dans le fichier  */
                                        /* d'include '$xci/video_P.02.I' d'une part pour permettre d'inserer ici des procedures      */
                                        /* specifiques et conditionnels, et d'autre part de justifier la tabulation interne a ce     */
                                        /* fichier d'include...                                                                      */
#    include   xci/video_P.02.I"
#Aifdef   __VERSION__COMPILER_LA_GESTION_DU_DISQUE_PAL_BETA
#Eifdef   __VERSION__COMPILER_LA_GESTION_DU_DISQUE_PAL_BETA

/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        E N V O I   D ' U N E   C O M M A N D E   A U   M A G N E T O S C O P E   B E T A - P A L  :                               */
/*                                                                                                                                   */
/*************************************************************************************************************************************/
BCommande(nombre_d_arguments,arguments)
/*-----------------------------------------------------------------------------------------------------------------------------------*/
     Bblock
#ifdef    __VERSION__COMPILER_LA_GESTION_DU_DISQUE_PAL_BETA
#    include   xci/video_P.03.I"
                                        /* Nota : ces directives de compilation conditionnelle sont aussi presentes dans le fichier  */
                                        /* d'include '$xci/video_P.03.I' d'une part pour permettre d'inserer ici des donnees locales */
                                        /* specifiques et conditionnels, et d'autre part de justifier la tabulation interne a ce     */
                                        /* fichier d'include...                                                                      */
#Aifdef   __VERSION__COMPILER_LA_GESTION_DU_DISQUE_PAL_BETA
#Eifdef   __VERSION__COMPILER_LA_GESTION_DU_DISQUE_PAL_BETA

     /*..............................................................................................................................*/

#ifdef    __VERSION__COMPILER_LA_GESTION_DU_DISQUE_PAL_BETA
     GET_ARGUMENTS_(nombre_d_arguments
                   ,BLOC(GET_ARGUMENT_C("commande=""c=",commande_courante);
                         GET_ARGUMENT_I("adresse=""a=",adresse_courante);
                         GET_ARGUMENT_I("debut=""d=",adresse_de_debut);
                         GET_ARGUMENT_I("fin=""f=",adresse_de_fin);
                         GET_ARGUMENT_I("ralenti=""r=",ralenti_courant);
                         GET_ARGUMENT_I("valeur=""v=""n=",donnees);
                         GET_ARGUMENT_I("repetitions=",nombre_de_repetitions);
                         GET_ARGUMENT_L("affichage=",affichage_sur_le_moniteur);
                         GET_ARGUMENT_I("tic=",IKP_____temporisation_inter_caractere);
                         GET_ARGUMENT_I("taE=",IKP_____temporisation_apres_ENTER);
                         GET_ARGUMENT_I("tik=",IKP_____temporisation_inter_commande);
                         GET_ARGUMENT_L("editer=",IKP_____editer_le_message_des_caracteres_en_attente);
                         )
                    )

#    include   xci/video_P.04.I"

     Test(EST_FAUX(on_a_trouve_une_commande_valide))
          Bblock
          PRINT_ERREUR("la commande au magnetoscope n'a pas ete reconnue");
          Eblock
     ATes
          Bblock
          Eblock
     ETes
#Aifdef   __VERSION__COMPILER_LA_GESTION_DU_DISQUE_PAL_BETA
     GET_ARGUMENTS_(nombre_d_arguments
                   ,BLOC(
                         )
                    )
     PRINT_ERREUR("le magnetoscope 'PAL-beta' est absent sur ce systeme");

     CODE_ERROR(ERREUR18);
                                        /* Afin de pouvoir tester l'absence du disk-video PAL-beta dans un shell-script...           */
#Eifdef   __VERSION__COMPILER_LA_GESTION_DU_DISQUE_PAL_BETA

     RETU_Commande;
     Eblock
ECommande