#    This is the module register Front Panel Trigger Out Enable Mask 0x8110


     variable FPTrigEnable 0
     for {set i 0} {$i < $NumChans} {incr i} {variable FPTrigEnable$i 0}
     variable FPTrigEnable10 0
     variable FPTrigEnable8 0
     variable FPTrigEnable29 0
     variable FPTrigEnable30 0
     variable FPTrigEnable31 0

proc GetFPTrigEnable {} {
   variable NumChans
     variable FPTrigEnable
     for {set i 0} {$i < $NumChans} {incr i} {variable FPTrigEnable$i}
     variable FPTrigEnable10
     variable FPTrigEnable8
     variable FPTrigEnable29
     variable FPTrigEnable30
     variable FPTrigEnable31

     set FPTrigEnable [ReadRegister FPTrigEnable]
     for {set i 0} {$i < $NumChans} {incr i} {set FPTrigEnable$i [expr ($FPTrigEnable >> $i) & 1]}
     set FPTrigEnable8 [expr ($FPTrigEnable >> 8) & 3]
     set FPTrigEnable10 [expr ($FPTrigEnable >> 10) & 7]
     set FPTrigEnable29 [expr ($FPTrigEnable >> 29) & 1]
     set FPTrigEnable30 [expr ($FPTrigEnable >> 30) & 1]
     set FPTrigEnable31 [expr ($FPTrigEnable >> 31) & 1]

}

proc SetFPTrigEnable {} {
   variable NumChans
     variable FPTrigEnable
     for {set i 0} {$i < $NumChans} {incr i} {variable FPTrigEnable$i}
     variable FPTrigEnable10
     variable FPTrigEnable8
     variable FPTrigEnable29
     variable FPTrigEnable30
     variable FPTrigEnable31

     set FPTrigEnable 0
     for {set i 0} {$i < $NumChans} {incr i} {set FPTrigEnable [expr $FPTrigEnable + ([set FPTrigEnable$i] << $i)]}
     set FPTrigEnable [expr $FPTrigEnable + ([set FPTrigEnable8] << 8)]
     set FPTrigEnable [expr $FPTrigEnable + ([set FPTrigEnable10] << 10)]
     set FPTrigEnable [expr $FPTrigEnable + ([set FPTrigEnable29] << 29)]
     set FPTrigEnable [expr $FPTrigEnable + ([set FPTrigEnable30] << 30)]
     set FPTrigEnable [expr $FPTrigEnable + ([set FPTrigEnable31] << 31)]

     WriteRegister FPTrigEnable $FPTrigEnable
}


proc DrawFPTrigEnable {} {
   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%>Local Trigger $i</td>"

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

   append html "</td>"

   append html  "</tr>"
}

   append html "<tr>"
   append html "<td  align=center width=50%>TRG-OUT</td>"

   set i 8

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

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

   set j 0
   foreach item {"OR" "AND" "MAJORITY" }  {
     if {$j == [set ::[set Name]::FPTrigEnable$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 10

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

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

   set j 0
   foreach item {0 1 2 3 4 5 6 7}  {
     if {$j == [set ::[set Name]::FPTrigEnable$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%>LVDS Trigger</td>"

   set i 29

   append html "<td align=center width=50%>"
      append html "<input type=checkbox name=P$i \
           [if {[set ::[set Name]::FPTrigEnable$i] == 1} {set x "checked value=0"} else {set x "value=1"}] \
              onClick=\"click_MSETTING(document.[set Name], 'FPTrigEnable$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 30

   append html "<td align=center width=50%>"
      append html "<input type=checkbox name=P$i \
           [if {[set ::[set Name]::FPTrigEnable$i] == 1} {set x "checked value=0"} else {set x "value=1"}] \
              onClick=\"click_MSETTING(document.[set Name], 'FPTrigEnable$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 31

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

   append html "</td>"

   append html  "</tr>"

   append html  "</table>"


   append html  "</p>"

    return $html
}