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



     variable TrigSrcEnable 0

     variable TrigSrcEnable30 0
     variable TrigSrcEnable31 0

proc GetTrigSrcEnable {} {
     variable TrigSrcEnable
     variable TrigSrcEnable30
     variable TrigSrcEnable31

     set TrigSrcEnable [ReadRegister TrigSrcEnable]
     set TrigSrcEnable30 [expr ($TrigSrcEnable >> 30) & 1]
     set TrigSrcEnable31 [expr ($TrigSrcEnable >> 31) & 1]

}

proc SetTrigSrcEnable {} {
     variable TrigSrcEnable
     variable TrigSrcEnable30
     variable TrigSrcEnable31

     set TrigSrcEnable 0
     set TrigSrcEnable [expr $TrigSrcEnable + ([set TrigSrcEnable30] << 30)]
     set TrigSrcEnable [expr $TrigSrcEnable + ([set TrigSrcEnable31] << 31)]

     WriteRegister TrigSrcEnable $TrigSrcEnable
}


proc DrawTrigSrcEnable {} {

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


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

   append html "</td>"

   append html  "</tr>"

   append html  "</table>"

   append html "</p>"

   return $html
}