#%TITLE% icv716.mac
#%NAME%
#   Macros to work with the Vme board icv716 (Unipolar 16 bits DAC) via 
#   the Bit3 bus controller.
#%CATEGORY% Generic I/O
#
#%DESCRIPTION%
#%SETUP%
#
#%LOG%
#$Revision: 1.1 $
#$Log: icv716.mac,v $
#Revision 1.1  2008/07/17 14:32:48  rey
#Initial revision
#
#%END%

#%UU% <device_name>
#%MDESC% 
#
def icv716_setup '{
  global I716DEV
  if($# == 1) {
    I716DEV="$1"
  } else	{
    I716DEV= getval("\nICV716 device name", I716DEV)
  }
}'

#%UU%
#%MDESC% channel: [0 - 7] ; value in Volts [0 - 10]
#
def icv716_write(channel,value) '{
  global I716DEV
  local chanoffset, valhexa
  chanoffset = sprintf("%X",channel*2)
  valhexa = (6553.5 * value) + 0.5
  vmeds_put(I716DEV,chanoffset,valhexa,"D16")
}'

#%MACROS%
#%IMACROS%
#%TOC%
#%AUTHOR% G. Pepellin