Subversion Repositories f9daq

#include <windows.h>
#include <userint.h>
#include <utility.h>
#include <formatio.h>
#include <ansi_c.h>
#include "usb.h"
#include "xxusbdll.h"

#include <cvirte.h>    /* Needed if linking in external compiler; harmless otherwise */
#include "uklon_ui.h"


#define NDIS 21
#define NSCA 22
#define NTGG 23

int nc[]={P1_NC0, P1_NC1, P1_NC2, P1_NC3,
          P1_NC4, P1_NC5, P1_NC6, P1_NC7,
          P1_NC8, P1_NC9, P1_NC10,P1_NC11,
          P1_NC12,P1_NC13,P1_NC14,P1_NC15 } ;


#define C_I CAMAC_I
#define C_Z CAMAC_Z
#define C_C CAMAC_C
//#define C_write        WUSBXX_CAMAC_write
//#define C_read             WUSBXX_CAMAC_read
#define C_write          CAMAC_write
#define C_read       CAMAC_read

//********************************************************************
usb_dev_handle *udev;
 int Q;
 int X;
static HINSTANCE DLLHandle;

int  WUSBXX_load (char* module_path)
{

 
  if (module_path == NULL)
    DLLHandle = LoadLibrary("libxxusb.dll");
   else
    DLLHandle = LoadLibrary(module_path);
   
  if (!(xxusb_register_read_Ptr = (void*) GetProcAddress(DLLHandle,"xxusb_register_read"))) return __LINE__;
  if (!(xxusb_stack_read_Ptr = (void*) GetProcAddress(DLLHandle,"xxusb_stack_read"))) return __LINE__;
  if (!(xxusb_stack_write_Ptr = (void*) GetProcAddress(DLLHandle,"xxusb_stack_write"))) return __LINE__;
  if (!(xxusb_stack_execute_Ptr = (void*) GetProcAddress(DLLHandle,"xxusb_stack_execute"))) return __LINE__;
  if (!(xxusb_register_write_Ptr = (void*) GetProcAddress(DLLHandle,"xxusb_register_write"))) return __LINE__;
  if (!(xxusb_usbfifo_read_Ptr = (void*) GetProcAddress(DLLHandle,"xxusb_usbfifo_read"))) return __LINE__;
  if (!(xxusb_bulk_read_Ptr = (void*) GetProcAddress(DLLHandle,"xxusb_bulk_read"))) return __LINE__;
  if (!(xxusb_bulk_write_Ptr = (void*) GetProcAddress(DLLHandle,"xxusb_bulk_write"))) return __LINE__;
  if (!(xxusb_reset_toggle_Ptr = (void*) GetProcAddress(DLLHandle,"xxusb_reset_toggle"))) return __LINE__;

  if (!(xxusb_devices_find_Ptr = (void*) GetProcAddress(DLLHandle,"xxusb_devices_find"))) return __LINE__;
  if (!(xxusb_device_close_Ptr = (void*) GetProcAddress(DLLHandle,"xxusb_device_close"))) return __LINE__;
  if (!(xxusb_device_open_Ptr = (void*) GetProcAddress(DLLHandle,"xxusb_device_open"))) return __LINE__;
  if (!(xxusb_flash_program_Ptr = (void*) GetProcAddress(DLLHandle,"xxusb_flash_program"))) return __LINE__;
  if (!(xxusb_flashblock_program_Ptr = (void*) GetProcAddress(DLLHandle,"xxusb_flashblock_program"))) return __LINE__;
  if (!(xxusb_serial_open_Ptr = (void*) GetProcAddress(DLLHandle,"xxusb_serial_open"))) return __LINE__;

  if (!(VME_register_write_Ptr = (void*) GetProcAddress(DLLHandle,"VME_register_write"))) return __LINE__;
  if (!(VME_register_read_Ptr = (void*) GetProcAddress(DLLHandle,"VME_register_read"))) return __LINE__;
  if (!(VME_LED_settings_Ptr = (void*) GetProcAddress(DLLHandle,"VME_LED_settings"))) return __LINE__;
  if (!(VME_DGG_Ptr = (void*) GetProcAddress(DLLHandle,"VME_DGG"))) return __LINE__;
  if (!(VME_Output_settings_Ptr = (void*) GetProcAddress(DLLHandle,"VME_Output_settings"))) return __LINE__;
  if (!(VME_read_16_Ptr = (void*) GetProcAddress(DLLHandle,"VME_read_16"))) return __LINE__;
  if (!(VME_read_32_Ptr = (void*) GetProcAddress(DLLHandle,"VME_read_32"))) return __LINE__;
  if (!(VME_BLT_read_32_Ptr = (void*) GetProcAddress(DLLHandle,"VME_BLT_read_32"))) return __LINE__;
  if (!(VME_write_16_Ptr = (void*) GetProcAddress(DLLHandle,"VME_write_16"))) return __LINE__;
  if (!(VME_write_32_Ptr = (void*) GetProcAddress(DLLHandle,"VME_write_32"))) return __LINE__;

  if (!(CAMAC_DGG_Ptr = (void*) GetProcAddress(DLLHandle,"CAMAC_DGG"))) return __LINE__;
  if (!(CAMAC_register_read_Ptr = (void*) GetProcAddress(DLLHandle,"CAMAC_register_read"))) return __LINE__;
  if (!(CAMAC_register_write_Ptr = (void*) GetProcAddress(DLLHandle,"CAMAC_register_write"))) return __LINE__;
  if (!(CAMAC_LED_settings_Ptr = (void*) GetProcAddress(DLLHandle,"CAMAC_LED_settings"))) return __LINE__;
  if (!(CAMAC_Output_settings_Ptr = (void*) GetProcAddress(DLLHandle,"CAMAC_Output_settings"))) return __LINE__;
  if (!(CAMAC_read_LAM_mask_Ptr = (void*) GetProcAddress(DLLHandle,"CAMAC_read_LAM_mask"))) return __LINE__;
  if (!(CAMAC_write_LAM_mask_Ptr = (void*) GetProcAddress(DLLHandle,"CAMAC_write_LAM_mask"))) return __LINE__;
  if (!(CAMAC_write_Ptr = (void*) GetProcAddress(DLLHandle,"CAMAC_write"))) return __LINE__;
  if (!(CAMAC_read_Ptr = (void*) GetProcAddress(DLLHandle,"CAMAC_read"))) return __LINE__;
  if (!(CAMAC_Z_Ptr = (void*) GetProcAddress(DLLHandle,"CAMAC_Z"))) return __LINE__;
  if (!(CAMAC_C_Ptr = (void*) GetProcAddress(DLLHandle,"CAMAC_C"))) return __LINE__;
  if (!(CAMAC_I_Ptr = (void*) GetProcAddress(DLLHandle,"CAMAC_I"))) return __LINE__;
  return 0;
}


void  WUSBXX_open (char *serial)
{
  if (serial != NULL)
        udev = xxusb_serial_open(serial);
  if (!udev)
    MessagePopup ("Error", "Cannot connect to USB. ! Check the connection!");
}

void  WUSBXX_close (void)
{
  if (udev) xxusb_device_close(udev);
}

int WUSBXX_CAMAC_write( usb_dev_handle *udev, int N, int A, int F, long Data, int *Q, int *X);
int WUSBXX_CAMAC_read( usb_dev_handle *udev,int N, int A, int F, long *Data, int *Q, int *X);
int WUSBXX_CAMAC_Z( usb_dev_handle *udev );
int WUSBXX_CAMAC_C( usb_dev_handle *udev );
int WUSBXX_CAMAC_I(usb_dev_handle *udev, int inhibit);

int WUSBXX_CAMAC_write( usb_dev_handle *udev,int N, int A, int F, long Data, int *Q, int *X)
{
    long intbuf[4];  
    int ret;
// CAMAC direct write function
    intbuf[0]=1;
    intbuf[1]=(long)(F+A*32+N*512 + 0x4000);
    if ((F > 15) && (F < 24))  // orig controla
    //if ((F > 15) && (F < 28))  // orig controla
    {  
        intbuf[0]=3;
        intbuf[2]=(Data & 0xffff);
        intbuf[3]=((Data >>16) & 255);
        ret = xxusb_stack_execute(udev, intbuf);
        *Q = (intbuf[0] & 1);
        *X = ((intbuf[0] >> 1) & 1);
    } else {
      printf("Error N%d A%d F%d",N,A,F);
    }
    return ret;
}

int WUSBXX_CAMAC_read( usb_dev_handle *udev,int N, int A, int F, long *Data, int *Q, int *X)
{
    long intbuf[4];  
    int ret;
    // CAMAC direct read function
    intbuf[0]=1;
    intbuf[1]=(long)(F+A*32+N*512 + 0x4000);
//    intbuf[1]=(long)(F+A*32+N*512);
    ret = xxusb_stack_execute(udev, intbuf);
//    printf ("ret = %d\n",ret);
    if (F < 16)  // orig controla
    {
//      *Data = intbuf[0];   //16-bit word
        *Data = intbuf[0] + (intbuf[1] & 0xFF) * 0x10000;   //24-bit word
        *Q = ((intbuf[1] >> 8) & 1);
        *X = ((intbuf[1] >> 9) & 1);
    }
//    else {
//      printf("Error N%d A%d F%d",N,A,F);
//    }
    return ret;
}

int WUSBXX_CAMAC_Z(usb_dev_handle *udev)
{
    long intbuf[4];  
    int  ret;
//  CAMAC Z = N(28) A(8) F(29)
    intbuf[0]=1;
    intbuf[1]=(long)(29+8*32+28*512 + 0x4000);
    ret = xxusb_stack_execute(udev, intbuf);
    return ret;
}

int WUSBXX_CAMAC_C(usb_dev_handle *udev)
{
    long intbuf[4];  
    int ret;
//  CAMAC C = N(28) A(9) F(29)
    intbuf[0]=1;
    intbuf[1]=(long)(29+9*32+28*512 + 0x4000);
    ret = xxusb_stack_execute( udev, intbuf);
    return ret;
}

int WUSBXX_CAMAC_I(usb_dev_handle *udev, int inhibit)
{
    long intbuf[4];  
    int  ret;
//      Set Inhibit             = N(29) A(9) F(24)
//      Clear Inhibit   = N(29) A(9) F(26)
    intbuf[0]=1;
    if (inhibit) intbuf[1]=(long)(24+9*32+29*512 + 0x4000);
    else intbuf[1]=(long)(26+9*32+29*512 + 0x4000);
    ret = xxusb_stack_execute(udev, intbuf);
    return ret;
}

int init_CAMAC () {

  long dum;
  C_Z(udev);
  C_C(udev);
  C_I(udev,1);
 
  C_read ( udev,NTGG, 0 , 9, &dum,  &Q,&X); /* init TGG */
  C_write ( udev,NTGG, 0, 16, 1000,  &Q,&X); /* Set preset counting value */
  C_write ( udev,NTGG, 0 ,17, 0x2,  &Q,&X); /* Set Load&Clock Modes */
  C_write ( udev,NDIS, 0, 16, 0xffff,  &Q,&X); /* enable all ch. */
  C_read ( udev,NDIS, 0, 26, &dum, &Q, &X);
 
  C_I(udev, 0);  

  return 0 ;
}

//********************************************************************

int plot_graph ( int p1h, int logsc, int data[16] ) {
  int max, max_I2 ;
  double plot_data[16], plot_max ;
  int ch ;

  max = 100 ;
  for ( ch=0 ; ch<16 ; ch ++ ) {
    if ( data[ch]>max ) max=data[ch] ;
  }

  DeleteGraphPlot (p1h, P1_HISTO, -1, VAL_IMMEDIATE_DRAW);
 
  max = ((max*1.2)/1000)*1000 ;
  GetCtrlVal (p1h, P1_I2, &max_I2 ) ;
  if ( max_I2>0 ) max=max_I2 ;
 
  if ( logsc ) {
               
    for ( ch=0 ; ch<16 ; ch ++ ) {  
          plot_data[ch] = log10((double)data[ch]) ;
          plot_max = log10((double)max) ;
        }
         
        SetAxisScalingMode (p1h, P1_HISTO, VAL_LEFT_YAXIS, VAL_MANUAL, 0.0, plot_max);
        PlotY (p1h, P1_HISTO, plot_data, 16, VAL_DOUBLE, VAL_VERTICAL_BAR,
                   VAL_NO_POINT, VAL_SOLID, 1, VAL_DK_BLUE);
     
 
  } else {
    SetAxisScalingMode (p1h, P1_HISTO, VAL_LEFT_YAXIS, VAL_MANUAL, 0.0, max);
    PlotY (p1h, P1_HISTO, data, 16, VAL_INTEGER, VAL_VERTICAL_BAR,
                   VAL_NO_POINT, VAL_SOLID, 1, VAL_DK_BLUE);
     
    for ( ch=0; ch<16; ch++ ) {
      SetCtrlVal (p1h, nc[ch], data[ch] ) ;
    }
  }


  return 0 ;
}


//********************************************************************
//********************************************************************

int __stdcall WinMain (HINSTANCE hInstance, HINSTANCE hPrevInstance,
                                           LPSTR lpszCmdLine, int nCmdShow)
{
  int rph, rID, p1h, p2h ;
  int data[16], sum, max, max_I2=0 ;
  long val, dum;
  double plot_data[16], splot_data[10][32], plot_max ;
  int thr_set, time_set;
  int ch, i, j,ii;
 
  FILE *fp ;
  char filename[256] ;
  int logscale ;
  int os[10]={-1,-1,-1,-1,-1,-1,-1,-1,-1,-1} ;
 
  logscale = 0 ;

  if (InitCVIRTE (hInstance, 0, 0) == 0)    /* Needed if linking in external compiler; harmless otherwise */
      return -1;    /* out of memory */

  for ( i=0; i<16; data[i++]=0 ) ;
 

 
  dum=WUSBXX_load (NULL);
  if (dum) MessagePopup ("Error", "Cannot load dll!");
  WUSBXX_open ("CC0130");                              

  //ii=80000000/i-40;
  //if (ii<72) ii=72;
  //CAMAC_DGG(udev,0,7,0,ii,40,0,0);
  //CAMAC_DGG(udev,1,1,1,12,8,0,0);
 
 
  init_CAMAC();  
 
  p1h = LoadPanel (0, "uklon_ui.uir", P1);
//  p2h = LoadPanel (0, "uklon_ui.uir", P2);
  DisplayPanel (p1h);
//  DisplayPanel (p2h);

  GetUserEvent (1, &rph, &rID);


  while ((rID!=P1_QUIT)||(rph!=p1h))
  {
    if ( rph == p1h ) {
                if ( rID==P1_START ) {
              GetCtrlVal (p1h, P1_THR, &thr_set ) ;   /* read desired thr. */  
          C_write ( udev, NDIS, 0, 17,  thr_set, &Q, &X);   /* set the threshold */
                  C_write ( udev, NDIS, 1, 17, 0,  &Q,&X);         /*                                   */
               
              C_read ( udev, NSCA,0,9,&dum,  &Q,&X);

              GetCtrlVal (p1h, P1_TIME, &time_set ) ; /* read time (ms) */  
             
                  SetCtrlAttribute (p1h, P1_TIMER, ATTR_ENABLED, 0);
          C_write ( udev, NTGG, 0, 16, time_set,  &Q,&X);
          C_read ( udev, NTGG, 0, 15, &dum,  &Q,&X);
                                                                                                                                         
          SetCtrlVal (p1h, P1_LEDON,1);  
                  SetCtrlAttribute (p1h, P1_TIMER, ATTR_INTERVAL,time_set*0.001 );
          SetCtrlAttribute (p1h, P1_TIMER, ATTR_ENABLED, 1);
          ResetTimer (p1h, P1_TIMER);
                  Delay (0.1+(time_set/1000.));
                }
   
        if ( rID==P1_COUNT ) {
                  sum = 0 ;
                  max = 100 ;
                  C_I(udev, 1);
              for ( ch=0 ; ch<16 ; ch ++ ) {
                Delay(0.01);
                C_read (  udev, NSCA, ch, 0, &val,  &Q,&X);
                C_read (  udev, NSCA, ch, 0, &val,  &Q,&X);  
                // CC USB ne precita v redu CAEN C257 scalerja,
                // kanali so zamaknjeni za 1, ce je klic samo en
                // vrednost kanala 0 se pristeje h kanalom 8..16, zato ga ne uporabljamo.
                // vajo iyvedemo le s kanali 1..15.
                data[ch]=val;  
               
                if (data[ch] > 0) data[ch]--;
               //  if (data[ch] && 0x80000000) {
                 //   data[ch] &= 0x00FFFFFF;
                   
            //}
           
            sum += data[ch] ;
          }
                  C_I(udev, 0);
              SetCtrlVal (p1h, P1_I1, sum ) ;
                  plot_graph ( p1h, logscale, data ) ;
                }
        if ( rID==P1_INIT ) {
               init_CAMAC ( ) ;  
            }
   
            if ( rID==P1_SAVE ) {
              if ( ( fp = fopen ( "scaler.txt", "w+" ) ) == NULL ) printf ( "ERROR" ) ;
              for ( ch=0; ch<16 ; ch++ ) {  
                fprintf ( fp, "%d\t%d\n", ch, data[ch] ) ;
              }
              fclose ( fp ) ;
            }

            if ( rID==P1_APPEND ) {
                  GetCtrlVal (p1h, P1_APFILE, filename);

              if ( ( fp = fopen ( filename, "a" ) ) == NULL ) printf ( "ERROR" ) ;
              for ( ch=0; ch<16 ; ch++ ) {  
                fprintf ( fp, "%d\t", data[ch] ) ;
              }
              fprintf ( fp, "\n" ) ;
              fclose ( fp ) ;
            }
   
                if ( rID==P1_REPLOT ) {
                  plot_graph ( p1h, logscale, data ) ;
                }
   
   
            if ( rID == P1_PRINT ) {
              SetCtrlVal (p1h, P1_L1,1);
                  PrintPanel (p1h, "", 1, VAL_VISIBLE_AREA, 1);
              SetCtrlVal (p1h, P1_L1,0);
            }


                if ( rID == P1_LOG_SCALE ) {
                  GetCtrlVal (p1h, P1_LOG_SCALE, &logscale) ;
         
          plot_graph ( p1h, logscale, data ) ;
            }          
    }
   
    if ( rph == p2h ) {
            switch ( rID ) {
              case P2_OFS1: GetCtrlVal (p2h, P2_OFS1, &os[0] ) ; i=0 ; break ;
              case P2_OFS2: GetCtrlVal (p2h, P2_OFS2, &os[1] ) ; i=1 ; break ;
              case P2_OFS3: GetCtrlVal (p2h, P2_OFS3, &os[2] ) ; i=2 ; break ;
              case P2_OFS4: GetCtrlVal (p2h, P2_OFS4, &os[3] ) ; i=3 ; break ;
              case P2_OFS5: GetCtrlVal (p2h, P2_OFS5, &os[4] ) ; i=4 ; break ;
              case P2_OFS6: GetCtrlVal (p2h, P2_OFS6, &os[5] ) ; i=5 ; break ;
              case P2_OFS7: GetCtrlVal (p2h, P2_OFS7, &os[6] ) ; i=6 ; break ;
              case P2_OFS8: GetCtrlVal (p2h, P2_OFS8, &os[7] ) ; i=7 ; break ;
              case P2_OFS9: GetCtrlVal (p2h, P2_OFS9, &os[8] ) ; i=8 ; break ;
              case P2_OFS10: GetCtrlVal (p2h, P2_OFS10, &os[9] ) ; i=9 ; break ;
            }
   
   
    }
   
    GetUserEvent (1, &rph, &rID);
  }
     
 
   WUSBXX_close ();    
  //lc8901a_close (hdev);
  return 0;
}

int CVICALLBACK TimerCB (int panel, int control, int event,
                void *callbackData, int eventData1, int eventData2)
{
        switch (event)
                {
                case EVENT_TIMER_TICK:
                                                                 
                            SetCtrlVal (panel, P1_LEDON,0);
                            SetCtrlAttribute (panel, P1_TIMER, ATTR_ENABLED, 0);
                        break;
                }
        return 0;
}