fevme.cxx File Reference

#include <stdio.h>
#include <errno.h>
#include <unistd.h>
#include <string.h>
#include <stdlib.h>
#include <stdint.h>
#include <sys/time.h>
#include <assert.h>
#include "midas.h"
#include "mvmestd.h"
#include "vme/v792.h"
#include "v895.h"
#include "vme/v1190B.h"

Include dependency graph for fevme.cxx:

Go to the source code of this file.

Macros
#define	HAVE_V792
#define	HAVE_V895
#define	HAVE_V1190B

Functions
INT	frontend_init ()
	Frontend initialization.
INT	frontend_exit ()
	Frontend exit.
INT	begin_of_run (INT run_number, char *error)
	Begin of Run.
INT	end_of_run (INT run_number, char *error)
	End of Run.
INT	pause_run (INT run_number, char *error)
	Pause Run.
INT	resume_run (INT run_number, char *error)
	Resume Run.
INT	frontend_loop ()
	Frontend loop.
INT	read_event (char *pevent, INT off)
int	mvme_read16 (int addr)
int	mvme_read32 (int addr)
void	encodeU32 (char *pdata, uint32_t value)
uint32_t	odbReadUint32 (const char *name, int index, uint32_t defaultValue=0)
int	enable_trigger ()
int	disable_trigger ()
INT	init_vme_modules ()
INT	poll_event (INT source, INT count, BOOL test)
	Polling routine for events.
INT	interrupt_configure (INT cmd, INT source, PTYPE adr)
int	read_v792 (int base, const char *bname, char *pevent, int nchan)
int	read_tdc (int base, char *pevent)

Variables
char *	frontend_name = "fevme"
	The frontend name (client name) as seen by other MIDAS clients.
char *	frontend_file_name = __FILE__
	The frontend file name, don't change it.
BOOL	frontend_call_loop = FALSE
	frontend_loop is called periodically if this variable is TRUE
INT	display_period = 000
	a frontend status page is displayed with this frequency in ms
INT	max_event_size = 100*1024
	maximum event size produced by this frontend
INT	max_event_size_frag = 1024*1024
	maximum event size for fragmented events (EQ_FRAGMENTED)
INT	event_buffer_size = 200*1024
	buffer size to hold events
INT	run_state
HNDLE	hDB
	main ODB handle
EQUIPMENT	equipment []
	Main structure for midas equipment.
MVME_INTERFACE *	gVme = 0
int	gVmeioBase = 0x780000
int	gAdcBase = 0x110000
int	gDisBase [] = { 0xE00000, 0 }
int	gTdcBase = 0xf10000
int	gVF48base = 0xa00000
static int	gHaveRun = 0

Macro Definition Documentation

HAVE_V1190B

#define HAVE_V1190B

Definition at line 24 of file fevme.cxx.

HAVE_V792

#define HAVE_V792

Definition at line 22 of file fevme.cxx.

HAVE_V895

#define HAVE_V895

Definition at line 23 of file fevme.cxx.

Function Documentation

begin_of_run()

INT begin_of_run	(	INT	run_number,
		char *	error
	)

Begin of Run.

Called every run start transition. Set equipment status in ODB, start acquisition on the modules.

Parameters

[in]	run_number	Number of the run being started
[out]	error	Can be used to write a message string to midas.log

Definition at line 284 of file fevme.cxx.

{
  gHaveRun = 1;
  printf("begin run %d\n",run_number);
 
  init_vme_modules();
 
  enable_trigger();
  return SUCCESS;
}

Here is the call graph for this function:

disable_trigger()

int disable_trigger

(

)

Definition at line 194 of file fevme.cxx.

{
#ifdef HAVE_VMEIO
  vmeio_OutputSet(gVme,gVmeioBase,0);
#endif
  return 0;
}

Here is the call graph for this function:

Here is the caller graph for this function:

enable_trigger()

int enable_trigger

(

)

Definition at line 185 of file fevme.cxx.

{
#ifdef HAVE_VMEIO
  vmeio_OutputSet(gVme,gVmeioBase,0xFFFF);
#endif
  return 0;
}

Here is the call graph for this function:

Here is the caller graph for this function:

encodeU32()

void encodeU32	(	char *	pdata,
		uint32_t	value
	)

Definition at line 162 of file fevme.cxx.

{
  pdata[0] = (value&0x000000FF)>>0;
  pdata[1] = (value&0x0000FF00)>>8;
  pdata[2] = (value&0x00FF0000)>>16;
  pdata[3] = (value&0xFF000000)>>24;
}

Here is the call graph for this function:

end_of_run()

INT end_of_run	(	INT	run_number,
		char *	error
	)

End of Run.

Called every stop run transition. Set equipment status in ODB, stop acquisition on the modules.

Parameters

[in]	run_number	Number of the run being ended
[out]	error	Can be used to write a message string to midas.log

Definition at line 296 of file fevme.cxx.

{
  static bool gInsideEndRun = false;
 
  if (gInsideEndRun)
    {
      printf("breaking recursive end_of_run()\n");
      return SUCCESS;
    }
 
  gInsideEndRun = true;
 
  gHaveRun = 0;
  printf("end run %d\n",run_number);
  disable_trigger();
 
  gInsideEndRun = false;
 
  return SUCCESS;
}

Here is the call graph for this function:

frontend_exit()

INT frontend_exit

(

void

)

Frontend exit.

Runs at frontend shutdown. Disconnect hardware and set equipment status in ODB

Returns

Midas status code

Definition at line 272 of file fevme.cxx.

{
  gHaveRun = 0;
  disable_trigger();
 
  mvme_close(gVme);
 
  return SUCCESS;
}

Here is the call graph for this function:

frontend_init()

INT frontend_init

(

void

)

Frontend initialization.

Runs once at application startup. We initialize the hardware and optical interfaces and set the equipment status in ODB. We also lock the frontend to once physical cpu core.

Returns

Midas status code

Definition at line 251 of file fevme.cxx.

{
  int status;
 
  setbuf(stdout,NULL);
  setbuf(stderr,NULL);
 
  status = mvme_open(&gVme,0);
  status = mvme_set_am(gVme, MVME_AM_A24_ND);
 
  init_vme_modules();
 
  disable_trigger();
 
  return status;
}

Here is the call graph for this function:

frontend_loop()

INT frontend_loop

(

void

)

Frontend loop.

If frontend_call_loop is true, this routine gets called when the frontend is idle or once between every event.

Returns

Midas status code

Definition at line 334 of file fevme.cxx.

{
  /* if frontend_call_loop is true, this routine gets called when
     the frontend is idle or once between every event */
  return SUCCESS;
}

init_vme_modules()

INT init_vme_modules

(

)

Definition at line 202 of file fevme.cxx.

{
#ifdef HAVE_VMEIO
  vmeio_OutputSet(gVme,gVmeioBase,0);
  vmeio_StrobeClear(gVme,gVmeioBase);
  printf("VMEIO at 0x%x CSR is 0x%x\n",gVmeioBase,vmeio_CsrRead(gVme,gVmeioBase));
#endif
 
#ifdef HAVE_V792
  v792_SingleShotReset(gVme,gAdcBase);
  v792_Status(gVme,gAdcBase);
#endif
 
#ifdef HAVE_V895
  for (int i=0; gDisBase[i] != 0; i++)
    {
      v895_Status(gVme,gDisBase[i]);
 
      v895_writeReg16(gVme,gDisBase[i],0x40,255); // width 0-7
      v895_writeReg16(gVme,gDisBase[i],0x42,255); // width 8-15
      v895_writeReg16(gVme,gDisBase[i],0x48,56); // majority
      v895_writeReg16(gVme,gDisBase[i],0x4A,0xFFFF); // enable all channels
      //v895_writeReg8(gVme,gDisBase[i],0x4A,0x0000); // enable all channels
      for (int j=0; j<16; j++)
  {
    int thr_mV = 12;
    v895_writeReg16(gVme,gDisBase[i],j*2,thr_mV); // threshold in mV
  }
      //v895_TestPulse(gVme,gDisBase[i]); // fire test pulse
 
      //v895_writeReg16(gVme,gDisBase[i],0*2,250); // threshold in mV
    }
#endif
 
#ifdef HAVE_V1190B
  v1190_SoftClear(gVme,gTdcBase);
  v1190_Status(gVme,gTdcBase);
#endif
 
#ifdef HAVE_VF48
  VF48_Reset(gVme,gVF48base);
  printf("VF48 at 0x%x CSR is 0x%x\n",gVF48base,VF48_CsrRead(gVme,gVF48base));
#endif
 
  return SUCCESS;
}

Here is the call graph for this function:

Here is the caller graph for this function:

interrupt_configure()

INT interrupt_configure	(	INT	cmd,
		INT	source,
		PTYPE	adr
	)

Definition at line 382 of file fevme.cxx.

{
   switch (cmd) {
   case CMD_INTERRUPT_ENABLE:
     break;
   case CMD_INTERRUPT_DISABLE:
     break;
   case CMD_INTERRUPT_ATTACH:
     break;
   case CMD_INTERRUPT_DETACH:
     break;
   }
   return SUCCESS;
}

mvme_read16()

int mvme_read16

(

int

addr

)

Definition at line 150 of file fevme.cxx.

{
  mvme_set_dmode(gVme, MVME_DMODE_D16);
  return mvme_read_value(gVme, addr);
}

Here is the call graph for this function:

mvme_read32()

int mvme_read32

(

int

addr

)

Definition at line 156 of file fevme.cxx.

{
  mvme_set_dmode(gVme, MVME_DMODE_D32);
  return mvme_read_value(gVme, addr);
}

Here is the call graph for this function:

odbReadUint32()

uint32_t TMidasOnline::odbReadUint32	(	const char *	name,
		int	index,
		uint32_t	defaultValue = 0
	)

Definition at line 170 of file fevme.cxx.

{
  int status;
  uint32_t value = 0;
  int size = 4;
  HNDLE hkey;
  status = db_get_data_index(hDB,hkey,&value,&size,index,TID_DWORD);
  if (status != SUCCESS)
    {
      cm_msg (MERROR,frontend_name,"Cannot read \'%s\'[%d] from odb, status %d",name,index,status);
      return defaultValue;
    }
  return value;
}

Here is the call graph for this function:

pause_run()

INT pause_run	(	INT	run_number,
		char *	error
	)

Pause Run.

Called every pause run transition.

Parameters

[in]	run_number	Number of the run being ended
[out]	error	Can be used to write a message string to midas.log

Returns

Midas status code

Definition at line 318 of file fevme.cxx.

{
  gHaveRun = 0;
  disable_trigger();
  return SUCCESS;
}

Here is the call graph for this function:

poll_event()

INT poll_event	(	INT	source,
		INT	count,
		BOOL	test
	)

Polling routine for events.

Parameters

[in]	source	Event source (LAM/IRQ)
[in]	count	Loop count for event polling timeout
[in]	test	flag used to time the polling

Returns

1 if event is available, 0 if done polling (no event). If test equals TRUE, don't return.

Definition at line 348 of file fevme.cxx.

{
  //printf("poll_event %d %d %d!\n",source,count,test);
 
  for (int i=0 ; i<count ; i++)
  {
    int lam = v792_DataReady(gVme,gAdcBase);
    //printf("source: 0x%x, lam: 0x%x\n", source, lam);
 
    if (lam)
      if (!test)
        return TRUE;
  }
 
  return FALSE;
 
#if 0
  for (int i = 0; i < count; i++)
    {
      usleep(1000);
      if (true)
  if (!test)
    return v792_DataReady(gVme,gAdcBase);
    }
  return 1;
 
  return v792_DataReady(gVme,gAdcBase);
#endif
}

Here is the call graph for this function:

read_event()

INT read_event	(	char *	pevent,
		INT	off
	)

Definition at line 550 of file fevme.cxx.

{
  //printf("read event!\n");
 
  /* init bank structure */
  bk_init32(pevent);
 
#ifdef HAVE_V792
  read_v792(gAdcBase,"ADC1",pevent,32);
#endif
#ifdef HAVE_V1190B
  read_tdc(gTdcBase,pevent);
#endif
#ifdef HAVE_VF48
  read_vf48(gVF48base,pevent);
#endif
 
  return bk_size(pevent);
}

Here is the call graph for this function:

read_tdc()

int read_tdc	(	int	base,
		char *	pevent
	)

Definition at line 437 of file fevme.cxx.

{
  int time0 = 0;
  int time1 = 0;
  int time2 = 0;
  int count;
  const int kDataSize = 10000;
  DWORD data[kDataSize];
  int* pdata32;
 
  /* create TOPA bank */
  bk_create(pevent, "TDCS", TID_INT, &pdata32);
 
  //while (count <
  count = v1190_DataRead(gVme, base, data, 10000);
 
  if (count > 0)
    {
#if 0
      if (count > 1000)
  printf("reading TDC got %d words\n",count);
 
      printf("reading TDC got %d words\n",count);
#endif
      for (int i=0; i<count; i++)
  {
    int code = 0x1F&(data[i]>>27);
 
    if (data[i] == 0)
      continue;
 
    switch (code)
      {
      case 0:
        {
    int edge = 0x1&(data[i]>>26);
    int chan = 0x3F&(data[i]>>19);
    int time = 0x3FFFF&data[i];
#if 0
    printf("tdc %3d: 0x%08x, code 0x%02x, edge %d, chan %2d, time %6d\n",
           i,
           data[i],
           code,
           edge,
           chan,
           time);
#endif
    if ((chan==0) && (time0==0))
      time0 = time;
    if ((chan==1) && (time0!=0) && (time1==0) && (time>time0))
      time1 = time;
    if ((chan==2) && (time0!=0) && (time2==0) && (time>time0))
      time2 = time;
        }
        break;
        //case 0x18:
    //break;
      default:
#if 0
        printf("tdc %3d: 0x%08x, code 0x%02x\n",i,data[i],code);
#endif
        break;
      }
  }
 
#if 0
      if (time1 && time2)
  printf("time %8d %8d %8d, diff %8d\n",time0,time1,time2,time1-time2);
#endif
    }
 
  int xdata = time1-time2;
  if (xdata < -10000)
    xdata = 0;
  else if (xdata > 10000)
    xdata = 0;
 
#if 0
  if (xdata == 0)
    printf("count %d, time %8d %8d %8d, diff %8d\n",count,time0,time1,time2,xdata);
#endif
 
  *pdata32++ = xdata;
 
  bk_close(pevent, pdata32);
 
  v1190_SoftClear(gVme,base);
 
  return 0;
}

Here is the call graph for this function:

Here is the caller graph for this function:

read_v792()

int read_v792	(	int	base,
		const char *	bname,
		char *	pevent,
		int	nchan
	)

Definition at line 399 of file fevme.cxx.

{
  int i;
  int wcount = 0;
  DWORD data[100];
  int counter = 0;
  WORD* pdata;
 
  /* Event counter */
  v792_EvtCntRead(gVme, base, &counter);
 
  /* Read Event */
  v792_EventRead(gVme, base, data, &wcount);
 
  /* create ADCS bank */
  bk_create(pevent, bname, TID_WORD, &pdata);
 
  for (i=0; i<32; i++)
    pdata[i] = 0;
 
  for (i=0; i<wcount; i++)
    {
      uint32_t w = data[i];
      if (((w>>24)&0x7) != 0) continue;
      int chan = (w>>16)&0x1F;
      int val  = (w&0x1FFF);
      pdata[chan] = val;
    }
 
  //printf("counter %6d, words: %3d, header: 0x%08x, ADC0: 0x%08x, ADC0,1,2: %6d %6d %6d\n",counter,wcount,data[0],pdata[0],pdata[0],pdata[1],pdata[2]);
 
  pdata += nchan;
  bk_close(pevent, pdata);
 
  return wcount;
}

Here is the call graph for this function:

Here is the caller graph for this function:

resume_run()

INT resume_run	(	INT	run_number,
		char *	error
	)

Resume Run.

Called every resume run transition.

Parameters

[in]	run_number	Number of the run being ended
[out]	error	Can be used to write a message string to midas.log

Returns

Midas status code

Definition at line 326 of file fevme.cxx.

{
  gHaveRun = 1;
  enable_trigger();
  return SUCCESS;
}

Here is the call graph for this function:

Variable Documentation

display_period

INT display_period = 000

a frontend status page is displayed with this frequency in ms

Definition at line 60 of file fevme.cxx.

equipment

EQUIPMENT equipment[]

Initial value:

= {
 
    {"Trigger",               
     {1, TRIGGER_ALL,         
      "SYSTEM",               
      EQ_POLLED,              
      LAM_SOURCE(0, 0xFFFFFF),                      
      "MIDAS",                
      TRUE,                   
      RO_RUNNING,             
 
      500,                    
      0,                      
      0,                      
      0,                      
      "", "", "",}
     ,
     read_event,      
     NULL, NULL,
     NULL,       
    }
    ,
 
    {""}
  }

Main structure for midas equipment.

Definition at line 88 of file fevme.cxx.

                          {
 
    {"Trigger",               /* equipment name */
     {1, TRIGGER_ALL,         /* event ID, trigger mask */
      "SYSTEM",               /* event buffer */
      EQ_POLLED,              /* equipment type */
      LAM_SOURCE(0, 0xFFFFFF),                      /* event source */
      "MIDAS",                /* format */
      TRUE,                   /* enabled */
      RO_RUNNING,             /* read only when running */
 
      500,                    /* poll for 500ms */
      0,                      /* stop run after this event limit */
      0,                      /* number of sub events */
      0,                      /* don't log history */
      "", "", "",}
     ,
     read_event,      /* readout routine */
     NULL, NULL,
     NULL,       /* bank list */
    }
    ,
 
    {""}
  };

event_buffer_size

INT event_buffer_size = 200*1024

buffer size to hold events

Definition at line 69 of file fevme.cxx.

frontend_call_loop

BOOL frontend_call_loop = FALSE

frontend_loop is called periodically if this variable is TRUE

Definition at line 57 of file fevme.cxx.

frontend_file_name

char* frontend_file_name = __FILE__

The frontend file name, don't change it.

Definition at line 54 of file fevme.cxx.

frontend_name

char* frontend_name = "fevme"

The frontend name (client name) as seen by other MIDAS clients.

Definition at line 52 of file fevme.cxx.

gAdcBase

int gAdcBase = 0x110000

Definition at line 145 of file fevme.cxx.

gDisBase

int gDisBase[] = { 0xE00000, 0 }

Definition at line 146 of file fevme.cxx.

{ 0xE00000, 0 };

gHaveRun

int gHaveRun = 0

static

Definition at line 268 of file fevme.cxx.

gTdcBase

int gTdcBase = 0xf10000

Definition at line 147 of file fevme.cxx.

gVF48base

int gVF48base = 0xa00000

Definition at line 148 of file fevme.cxx.

gVme

MVME_INTERFACE* gVme = 0

Definition at line 142 of file fevme.cxx.

gVmeioBase

int gVmeioBase = 0x780000

Definition at line 144 of file fevme.cxx.

hDB

HNDLE hDB

extern

main ODB handle

Definition at line 207 of file mana.cxx.

max_event_size

INT max_event_size = 100*1024

maximum event size produced by this frontend

Definition at line 63 of file fevme.cxx.

max_event_size_frag

INT max_event_size_frag = 1024*1024

maximum event size for fragmented events (EQ_FRAGMENTED)

Definition at line 66 of file fevme.cxx.

run_state

INT run_state

extern

Definition at line 35 of file mfe.cxx.