Changeset 649 in Sophya for trunk/Poubelle/archediab.old/archediab.sources/c/diabolo.c

Timestamp:

Nov 25, 1999, 2:56:34 PM (26 years ago)

Author:

ansari

Message:

archediab 28 vol

File:

• trunk/Poubelle/archediab.old/archediab.sources/c/diabolo.c (modified) (7 diffs)

trunk/Poubelle/archediab.old/archediab.sources/c/diabolo.c

@@ -19 +19 @@
 #include "config_transputer.h" 
 #include "dilution.h" 
+#include "recons_sst.h" 
+#include "tm.h" 
 
+void InitSimulMission(void);
 
 stglob* gg;                     // pointeur global  sur la structure 
@@ -44 +47 @@
 //flag=2;       // en mode simulation
 if(clavier(touche_alt) ) flag=2; else flag=1;           // en mode acquisition
+if(clavier(touche_controle) ) flag=4;                           // avec emission des telecommandes au demarrage
+if(clavier(touche_alt) && clavier(touche_controle) ) {
+  flag=3;               // en mode simulateur de donnees mission
+  InitSimulMission();
+  }
 #endif
 
-//return(1);
+
 
 init_struct(flag);
+
+init_recons_sst();
 
 //printf(" long_entete          = %ld \n",      sizeof(F_entete));
@@ -65 +75 @@
 
 nouveauM(0,diabolo_id,exec_menu_diabolo);
+nouveauSM(0,menu_trace_tout_id,exec_menu_trace_tout);
 
 ouvreD(fenetre_acquisition,acquisition_id,"acquisition",exec_acquisition);
@@ -85 +96 @@
 #endif
 
+initRS(port_A,baud1200+data8+stop10+noParity,0);        
 
 #ifdef lire_les_donnees_POM2
@@ -117 +129 @@
 
 
-if(flag==1)                                     //  mets en route les interruptions
+if( (flag==1) ou        (flag==4) )                             //  mets en route les interruptions
         {
         ecritD(fenetre_acquisition,e_tache_inter,1);
@@ -125 +137 @@
 select(fenetre_controle);
 select(fenetre_acquisition);
+
+// $CHECK$ on est toujours en mode 4 avec la derniere modif AB ???
+tt->PCI_actif=4;
+if (flag==3) tt->PCI_actif=3;
 
 return(option_texte+option_unclick);
@@ -154 +170 @@
 void exec_controle(int fen,int item,double valeur,...) 
 {
-if(item==caseferme)  {stop_exec(fen);}
+switch(item)
+    {
+    case caseferme      :  stop_exec(fen);break;
+    case con_reset_epld :       reset_epld();   break;
+    case con_reset_trp  :       reset_trp();    break;
+    default     :       break;
+    }   
 }