ROL GLOBAL DECLARATIONS:

		#include "vetrocLib.h"
		extern int nvetroc;                   /* Number of VETROCs in Crate */
		static int VETROC_SLOT;
		static int VETROC_ROFLAG = 1;           /* 0-noDMA, 1-board-by-board DMA, 2-chainedDMA */

		/* for the calculation of maximum data words in the block transfer */
		static unsigned int MAXVETROCWORDS = 10000;
		static unsigned int vetrocSlotMask; /* bit=slot (starting from 0) */



ROL Prestart():

  nvetroc = vetrocInit((3<<19), 0x80000, 16+2, 0x111); /* 7 boards from slot 4, 7 boards from slot 13 */
  if(nvetroc>0)
  {
    vetrocGSetProcMode(/*4000*/2000,/*4000*/2000);
  }

  if(nvetroc==1) VETROC_ROFLAG = 1; /*no chainedDMA if one board only*/
  if((nvetroc>0) && (VETROC_ROFLAG==2)) vetrocEnableMultiBlock(1);
  else if(nvetroc>0) vetrocDisableMultiBlock();

  /* Additional Configuration for each module */
  vetrocSlotMask=0;
  for(ii=0; ii<nvetroc; ii++) 
  {
    VETROC_SLOT = vetrocSlot(ii);      /* Grab the current module's slot number */
    vetrocSlotMask |= (1<<VETROC_SLOT); /* Add it to the mask */
	printf("=======================> vetrocSlotMask=0x%08x\n",vetrocSlotMask);

  }

  /* VETROC stuff */
  for(id=0; id<nvetroc; id++) 
  {
    VETROC_SLOT = vetrocSlot(id);
    vetrocSetBlockLevel(slot, block_level);
    vetrocTriggerPulseWidth(VETROC_SLOT, 8000);
    vetrocLinkReset(VETROC_SLOT);
    vetrocClear(VETROC_SLOT);
  }



ROL usrtrig():

   dCnt=0;
   if(nvetroc != 0)
   {
     stat = 0;
     for(itime=0; itime<100000; itime++) 
	  {
	    gbready = vetrocGBready();
	    stat = (gbready == vetrocSlotMask);
	    if (stat>0) 
	    {
          printf("expected mask 0x%08x, got 0x%08x\n",vetrocSlotMask,gbready);
	      break;
	    }
	  }
     if(stat==0) printf("vetroc not ready !!!\n");

     if(stat>0)
     {
       BANKOPEN(0xe105,1,rol->pid);
       for(jj=0; jj<nvetroc; jj++)
       {
         VETROC_SLOT = vetrocSlot(jj);

         len = vetrocReadBlock(VETROC_SLOT, &tdcbuf[dCnt], MAXVETROCWORDS, 1);

         printf("VETROC: slot=%d, nw=%d, data-> 0x%08x 0x%08x 0x%08x 0x%08x 0x%08x 0x%08x 0x%08x\n",
                 VETROC_SLOT,len,LSWAP(tdcbuf[dCnt+0]),LSWAP(tdcbuf[dCnt+1]),LSWAP(tdcbuf[dCnt+2]),
                 LSWAP(tdcbuf[dCnt+3]),LSWAP(tdcbuf[dCnt+4]),LSWAP(tdcbuf[dCnt+5]),LSWAP(tdcbuf[dCnt+6]));
         dCnt += len;
	    }

	    if(dCnt<=0)
	    {
	      printf("VETROC: No data or error.  dCnt = %d\n",dCnt);
          dCnt=0;
	    }
       BANKCLOSE;
	  }
	  else
	  {
	    printf ("VETROCs: no events   stat=%d  intcount = %d   gbready = 0x%08x  VETROCSlotMask = 0x%08x\n",
		  stat,tiGetIntCount(),gbready,vetrocSlotMask);
        printf("Missing slots:");
        for(jj=1; jj<21; jj++)
        {
          mask = 1<<jj;
          if((vetrocSlotMask&mask) && !(gbready&mask)) printf("%3d",jj);
        }
        printf("\n");
	  }
   }