#    This is the module register Trigger Source Enable Mask 0x810c



     variable TrigSrcEnable 0
     for {set i 0} {$i < $NumChans} {incr i} {variable TrigSrcEnable$i 0}
     variable TrigSrcEnable30 0
     variable TrigSrcEnable31 0
     variable TrigCoincLevel 0

proc GetTrigSrcEnable {} {
   variable NumChans
     variable TrigSrcEnable
     for {set i 0} {$i < $NumChans} {incr i} {variable TrigSrcEnable$i}
     variable TrigSrcEnable30
     variable TrigSrcEnable31
     variable TrigCoincLevel 

     set TrigSrcEnable [ReadRegister TrigSrcEnable]
     for {set i 0} {$i < $NumChans} {incr i} {set TrigSrcEnable$i [expr ($TrigSrcEnable >> $i) & 1]}
     set TrigSrcEnable30 [expr ($TrigSrcEnable >> 30) & 1]
     set TrigSrcEnable31 [expr ($TrigSrcEnable >> 31) & 1]
     set TrigCoincLevel [expr ($TrigSrcEnable >> 24) & 7]

}

proc SetTrigSrcEnable {} {
   variable NumChans
     variable TrigSrcEnable
     for {set i 0} {$i < $NumChans} {incr i} {variable TrigSrcEnable$i}
     variable TrigSrcEnable30
     variable TrigSrcEnable31
     variable TrigCoincLevel

     set TrigSrcEnable 0
     for {set i 0} {$i < $NumChans} {incr i} {set TrigSrcEnable [expr $TrigSrcEnable + ([set TrigSrcEnable$i] << $i)]}
     set TrigSrcEnable [expr $TrigSrcEnable + ([set TrigSrcEnable30] << 30)]
     set TrigSrcEnable [expr $TrigSrcEnable + ([set TrigSrcEnable31] << 31)]
     set TrigSrcEnable [expr $TrigSrcEnable + ([set TrigCoincLevel] << 24)]

     WriteRegister TrigSrcEnable $TrigSrcEnable
}


proc DrawTrigSrcEnable {} {
   variable NumChans
   variable Name

   set html ""

   append html  "<p align=center>"
   append html  "<table cellpadding=0 cellspacing=0 border=1>"

   append html  "<tr>"
   append html  "<td  align=center width=50%>Trigger Source</td>"
   append html  "<td  align=center width=50%>Trigger Enabled</td>"
   append html  "</tr>"
  
for {set i 0} {$i < $NumChans} {incr i} {

   append html "<tr>"
   append html "<td  align=center width=50%>Group $i</td>"

   append html "<td align=center width=50%>"
      append html "<input type=checkbox name=P$i \
           [if {[set ::[set Name]::TrigSrcEnable$i] == 1} {set x "checked value=0"} else {set x "value=1"}] \
              onClick=\"click_MSETTING(document.[set Name], 'TrigSrcEnable$i', document.MSETTINGS.P$i.value)\">"

   append html "</td>"

   append html  "</tr>"
}


   append html "<tr>"
   append html "<td  align=center width=50%>External Trigger</td>"

   set i 30

   append html "<td align=center width=50%>"
      append html "<input type=checkbox name=P$i \
           [if {[set ::[set Name]::TrigSrcEnable$i] == 1} {set x "checked value=0"} else {set x "value=1"}] \
              onClick=\"click_MSETTING(document.[set Name], 'TrigSrcEnable$i', document.MSETTINGS.P$i.value)\">"

   append html "</td>"

   append html "</tr>"
   append html "<tr>"

   append html "<td  align=center width=50%>Software Trigger</td>"

   set i 31

   append html "<td align=center width=50%>"
      append html "<input type=checkbox name=P$i \
          [if {[set ::[set Name]::TrigSrcEnable$i] == 1} {set x "checked value=0"} else {set x "value=1"}] \
              onClick=\"click_MSETTING(document.[set Name], 'TrigSrcEnable$i', document.MSETTINGS.P$i.value)\">"

   append html "</td>"

   append html  "</tr>"

   append html  "</table>"

   append html "</p>"
   append html  "<p align=center>"

   append html  "<table cellpadding=0 cellspacing=0 border=1>"

   append html "<tr>"
   append html "<td  align=center width=50%>Trigger Coinc level</td>"

   append html "<td align=center width=50%>"
      append html "<input type=text name=P24 size=4 value=[set ::[set Name]::TrigCoincLevel] \
              onClick=\"click_MSETTING(document.[set Name], 'TrigCoincLevel', document.MSETTINGS.P24.value)\">"

   append html "</td>"
   append html  "</tr>"

   append html  "</table>"

   append html  "</p>"

   return $html
}