Subversion Repositories f9daq

#include <ansi_c.h>
#include "CAENV288.h"
#include "CAENV288_DEF.h"


#include "vme.h"
#include <utility.h>

static unsigned long ModuleAddress[10];
static float timeout = 0.01;

void _VI_FUNC  V288_Map (int ModuleNumber, unsigned long ModuleOffset)
{
  ModuleAddress[ModuleNumber] = ModuleOffset;

  return;
}

void _VI_FUNC  V288_Reset(int ModuleNumber)
{    
  uint32_t ultmp=0;

  VME_A24D16_W(ModuleAddress[ModuleNumber]+V288_RST, ultmp);

  return;
};

void _VI_FUNC  V288_Init (int ModuleNumber)
{
  V288_Reset(ModuleNumber);

  return;
}    
 
int _VI_FUNC V288_Send (int ModuleNumber,int slaveid,int nbuf,unsigned short *buf)
{
  int i;
  uint32_t ultmp,ulstat;
   
  ultmp=0x00000001;
  while (1){
    VME_A24D16_W(ModuleAddress[ModuleNumber]+V288_BUF, ultmp);
    VME_A24D16_R(ModuleAddress[ModuleNumber]+V288_STATUS, &ulstat);
    if (ulstat & 1) Delay(0.1); else break;
  }

  ultmp=slaveid;
  while (1){
    VME_A24D16_W(ModuleAddress[ModuleNumber]+V288_BUF, ultmp);
    VME_A24D16_R(ModuleAddress[ModuleNumber]+V288_STATUS, &ulstat);
    if (ulstat & 1) Delay(0.1); else break;
  }

  for (i=0;i<nbuf;i++){
    ultmp=buf[i];
    while (1){
      VME_A24D16_W(ModuleAddress[ModuleNumber]+V288_BUF, ultmp);
      VME_A24D16_R(ModuleAddress[ModuleNumber]+V288_STATUS, &ulstat);
      if (ulstat & 1) Delay(0.1); else break;
    }
  }

  while (1){
    VME_A24D16_W(ModuleAddress[ModuleNumber]+V288_TX, ultmp);
    VME_A24D16_R(ModuleAddress[ModuleNumber]+V288_STATUS, &ulstat);
    if (ulstat & 1) Delay(0.1); else break;
  }

  return 0;
}  

int _VI_FUNC V288_Receive(int ModuleNumber,int nbuf,unsigned short *buf)
{
  int i;
  uint32_t ecode,ulstat;
   
  while (1){
    VME_A24D16_R(ModuleAddress[ModuleNumber]+V288_BUF, &ecode);
    VME_A24D16_R(ModuleAddress[ModuleNumber]+V288_STATUS, &ulstat);
    if (ulstat & 1) Delay(0.1); else break;
  }
  if (ecode) return 1;

  i=0;
  while (i<nbuf){
    VME_A24D16_R(ModuleAddress[ModuleNumber]+V288_BUF, &ecode);
    buf[i]=(unsigned short) ecode;
    VME_A24D16_R(ModuleAddress[ModuleNumber]+V288_STATUS, &ulstat);
    if (ulstat & 1) break;
    i++;
  }

  return i;
}