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


     variable FPTrigEnable 0
     for {set i 0} {$i <= 3} {incr i} {variable FPTrigEnable$i 0}
     variable FPTrigEnable30 0
     variable FPTrigEnable31 0

proc GetFPTrigEnable {} {
     variable FPTrigEnable
     for {set i 0} {$i <= 3} {incr i} {variable FPTrigEnable$i}
     variable FPTrigEnable30
     variable FPTrigEnable31

     set FPTrigEnable [ReadRegister FPTrigOutEnable]
     for {set i 0} {$i <= 3} {incr i} {set FPTrigEnable$i [expr ($FPTrigEnable >> $i) & 1]}
     set FPTrigEnable30 [expr ($FPTrigEnable >> 30) & 1]
     set FPTrigEnable31 [expr ($FPTrigEnable >> 31) & 1]

}

proc SetFPTrigEnable {} {
     variable FPTrigEnable
     for {set i 0} {$i <= 3} {incr i} {variable FPTrigEnable$i}
     variable FPTrigEnable30
     variable FPTrigEnable31

     set FPTrigEnable 0
     for {set i 0} {$i <= 3} {incr i} {set FPTrigEnable [expr $FPTrigEnable + ([set FPTrigEnable$i] << $i)]}
     set FPTrigEnable [expr $FPTrigEnable + ([set FPTrigEnable30] << 30)]
     set FPTrigEnable [expr $FPTrigEnable + ([set FPTrigEnable31] << 31)]

     WriteRegister FPTrigOutEnable $FPTrigEnable
}


proc DrawFPTrigEnable {} {

   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 <= 3} {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 ::V1742::FPTrigEnable$i] == 1} {set x "checked value=0"} else {set x "value=1"}] \
              onClick=\"click_MSETTING(document.V1742, '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 ::V1742::FPTrigEnable$i] == 1} {set x "checked value=0"} else {set x "value=1"}] \
              onClick=\"click_MSETTING(document.V1742, '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 ::V1742::FPTrigEnable$i] == 1} {set x "checked value=0"} else {set x "value=1"}] \
              onClick=\"click_MSETTING(document.V1742, 'FPTrigEnable$i', document.MSETTINGS.P$i.value)\">"

   append html "</td>"

   append html  "</tr>"

   append html  "</table>"


   append html  "</p>"

    return $html
}