Subversion Repositories f9daq

#include <windows.h>
#include <userint.h>
#include <utility.h>
//#include <userint.h>
#include <stdlib.h>
//#include <formatio.h>
#include <ansi_c.h>
#include "usb.h"
#include "xxusbdll.h"
 #include "scaler.h"
#include <cvirte.h>    /* Needed if linking in external compiler; harmless otherwise */

extern int p4;
extern int daq_on;


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



#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=0;
// 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 scaler(int min, int max, int dx, int time_set, char *filename){
        FILE *fp ;
        if (filename!=NULL) {
                        fp = fopen ( filename, "w" );
        } else {
                        fp =stdout;
  }
       
        long val, dum;
        int thr_set;
        char str[0xFF];
  int n=(max-min)/dx;
        double *x= (double *) malloc(n*sizeof(double));
        double *y= (double *) malloc(n*sizeof(double));
       
       
       
        dum=WUSBXX_load (NULL);
        if (dum) printf("Error", "Cannot load dll!");
        WUSBXX_open ("CC0130");
       
        init_CAMAC ( );
       
        time_t mtime;
        time(&mtime);
        fprintf(fp, "#%s#gate(ms)=%d\n",ctime(&mtime),time_set);
        for (int i=0; i<n; i++) {
                int thr=min+i*dx;
                C_write ( udev, NDIS, 0, 17,  thr, &Q, &X);   /* set the threshold */
                C_write ( udev, NDIS, 1, 17, 0,  &Q,&X);         /*                                     */
               
          C_read ( udev, NSCA,0,9,&dum,  &Q,&X);
    C_write( udev, NTGG, 0, 16, time_set,  &Q,&X);
    C_read ( udev, NTGG, 0, 15, &dum,  &Q,&X);
   
       
                                       
                Delay(time_set*1e-3+0.01);
                int mych=2;
                val=0;
                for (int ch=1;ch<mych+1;ch++){
                C_read (  udev, NSCA, ch, 0, &val,  &Q,&X);
                  //printf("%d\t", val);
                  C_read (  udev, NSCA, ch, 0, &val,  &Q,&X);
                }
                val--;
          x[i]=thr;
                y[i]=val;
                static int plothandle=0;
                if (plothandle) DeleteGraphPlot (p4, SCALER_GRAPH, plothandle, VAL_IMMEDIATE_DRAW);
                plothandle = PlotXY (p4,SCALER_GRAPH, x, y, i+1, VAL_DOUBLE, VAL_DOUBLE, VAL_THIN_LINE, VAL_NO_POINT, VAL_SOLID, 1, VAL_BLUE);
                                                       
                sprintf ( str, "%d %d", thr, val) ;
                fprintf( fp, "%s\n", str);
                printf("scaler %s\n", str);
               
                C_I(udev, 0);
                if (!daq_on) break;
               
       
        }
        if (fp!=stdout) fclose ( fp ) ;
        printf("Threshold scan in the file %s\n", filename);
       
        WUSBXX_close ();
  return 0;
}

#ifdef MAIN
int main( int argc, char **argv){

       
                                               
        char filename[256]="tmp.txt" ;

       

        //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);




        int min=0;
        int max=1000;
        int dx=10;
        int time_set=200;

        if (argc>1) min = atoi(argv[1]);
        if (argc>2) max = atoi(argv[2]);
        if (argc>3) dx  = atoi(argv[3]);
        if (argc>4) time_set = (int)(1000*atof(argv[4]));
        if (argc>5) sprintf(filename, "%s", argv[5]);
        scaler(min, max, dx, time_set, filename);
        return 0;
}      

#endif