source $cfPath(counter)/counter_common_1.tcl

## TODO Put all the counter macros in the counter namespace
namespace eval counter {
  variable isc_numchannels
  variable isc_monitor_address
  variable isc_portlist
  variable isc_beam_monitor_list 
  proc set_sobj_attributes {} {
  }
}

proc ::counter::isc_initialize {} {
  if [catch {
    variable isc_numchannels
    variable isc_monitor_address
    variable isc_portlist
    variable isc_beam_monitor_list {MONITOR_1 MONITOR_2 MONITOR_3}

    set isc_monitor_address "das1-[SplitReply [instrument]]"
    set isc_portlist [list 30000 30001 30002 30003 30004 30005 30006 30007]
    set isc_numchannels [llength $isc_beam_monitor_list]
    ::counter::ic_initialize
  } message ] {
    if {$::errorCode=="NONE"} {return $message}
    return -code error "$message"
  }
}