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



     variable TrigSrcEnable 0
     for {set i 0} {$i < [expr $NumChans/2]} {incr i} {variable TrigSrcEnable$i 0}
     variable TrigSrcEnable 0
     variable TrigSrcEnable2320 0
     variable TrigSrcEnable2624 0
     variable TrigSrcEnable29 0
     variable TrigSrcEnable30 0
     variable TrigSrcEnable31 0

proc GetTrigSrcEnable {} {
   variable NumChans
     variable TrigSrcEnable
     for {set i 0} {$i < [expr $NumChans/2]} {incr i} {variable TrigSrcEnable$i}
     variable TrigSrcEnable2320
     variable TrigSrcEnable2624
     variable TrigSrcEnable29
     variable TrigSrcEnable30
     variable TrigSrcEnable31

     set TrigSrcEnable [ReadRegister TrigSrcEnable]
     for {set i 0} {$i < [expr $NumChans/2]} {incr i} {set TrigSrcEnable$i [expr ($TrigSrcEnable >> $i) & 1]}
     set TrigSrcEnable30 [expr ($TrigSrcEnable >> 30) & 1]
     set TrigSrcEnable31 [expr ($TrigSrcEnable >> 31) & 1]
     set TrigSrcEnable29 [expr ($TrigSrcEnable >> 29) & 1]
     set TrigSrcEnable2624 [expr ($TrigSrcEnable >> 24) & 7]
     set TrigSrcEnable2320 [expr ($TrigSrcEnable >> 20) & 15]

}

proc SetTrigSrcEnable {} {
   variable NumChans
     variable TrigSrcEnable
     for {set i 0} {$i < [expr $NumChans/2]} {incr i} {variable TrigSrcEnable$i}
     variable TrigSrcEnable2320
     variable TrigSrcEnable2624
     variable TrigSrcEnable29
     variable TrigSrcEnable30
     variable TrigSrcEnable31

     set TrigSrcEnable 0
     for {set i 0} {$i < [expr $NumChans/2]} {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 TrigSrcEnable29] << 29)]
     set TrigSrcEnable [expr $TrigSrcEnable + ([set TrigSrcEnable2624] << 24)]
     set TrigSrcEnable [expr $TrigSrcEnable + ([set TrigSrcEnable2320] << 20)]

     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; set j 0} {$i < [expr $NumChans/2]} {incr i; incr j 2} {

   append html "<tr>"
   append html "<td  align=center width=50%>Channel $j/[expr $j+1]</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%>Majority Coinc Window</td>"

   set i 2320

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

   append html "<select name=P$i size=1  \
       onChange=\"click_MSETTING(document.[set Name], 'TrigSrcEnable$i', document.MSETTINGS.P$i.value)\">"

   set j 0
   foreach item {0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15}  {

     if {$j == [set ::[set Name]::TrigSrcEnable$i]} {
        append html "<option value=$j selected>$item</option>"
     } else {
        append html "<option value=$j>$item</option>"
     }
     incr j
   }

   append html "</select>"

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

   append html "<tr>"
   append html "<td  align=center width=50%>Majority Level</td>"

   set i 2624

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

   append html "<select name=P$i size=1  \
       onChange=\"click_MSETTING(document.[set Name], 'TrigSrcEnable$i', document.MSETTINGS.P$i.value)\">"

   set j 0
   foreach item {0 1 2 3 4 5 6 7}  {

     if {$j == [set ::[set Name]::TrigSrcEnable$i]} {
        append html "<option value=$j selected>$item</option>"
     } else {
        append html "<option value=$j>$item</option>"
     }
     incr j
   }

   append html "</select>"

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

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

   set i 29

   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>"

   return $html
}