#    This is the module register Acquisition Control 0x8100



    variable AcqCtrl 0
    variable AcqCtrl.B0 0
    variable AcqCtrl.B2 0
    variable AcqCtrl.B8 0
    variable AcqCtrl.B9 0
    variable AcqCtrl.B11 0
    variable AcqCtrl.B12 0
 

   proc GetAcqCtrl {} {
      variable AcqCtrl 
    variable AcqCtrl.B0
    variable AcqCtrl.B2
    variable AcqCtrl.B8
    variable AcqCtrl.B9
    variable AcqCtrl.B11
    variable AcqCtrl.B12

       set AcqCtrl [ReadRegister AcqControl]

       set AcqCtrl.B0 [expr $AcqCtrl & 3]
       set AcqCtrl.B2 [expr ($AcqCtrl >> 2) & 1]
       set AcqCtrl.B8 [expr ($AcqCtrl >> 8) & 1]
       set AcqCtrl.B9 [expr ($AcqCtrl >> 9) & 1]
       set AcqCtrl.B11 [expr ($AcqCtrl >> 11) & 1]
       set AcqCtrl.B12 [expr ($AcqCtrl >> 12) & 1]

    }

    proc SetAcqCtrl {} {
       variable AcqCtrl
    variable AcqCtrl.B0
    variable AcqCtrl.B2
    variable AcqCtrl.B8
    variable AcqCtrl.B9
    variable AcqCtrl.B11
    variable AcqCtrl.B12

       set AcqCtrl [expr ([set AcqCtrl.B12] << 12) | ([set AcqCtrl.B11] << 11) | ([set AcqCtrl.B9] << 9) | ([set AcqCtrl.B8] << 8) | ([set AcqCtrl.B2] << 2) | [set AcqCtrl.B0]]

       WriteRegister AcqControl $AcqCtrl
    }



proc DrawAcqCtrl {} {
    variable Name

   set html ""

   append html  "<p align=center width=100%>"
   append html  "<table border=1>"

   append html  "<tr>"
   append html  "<td  align=center width=16%>Extended VetoIN Option (B12)</td>"
   append html  "<td  align=center width=16%>LVDS I/O RunIN Enable (B11)</td>"
   append html  "<td  align=center width=16%>LVDS I/O Veto Enable (B9)</td>"
   append html  "<td  align=center width=16%>LVDS I/O Busy Enable (B8)</td>"
   append html  "<td  align=center width=16%>Run/Arm Mode (B2)</td>"
   append html  "<td  align=center width=16%>Stop/Start Mode (B0)</td>"
   append html  "</tr><tr>"


#    Bit 12

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

   append html "<select name=P12 size=1 \
       onChange=\"click_MSETTING(document.[set Name], 'AcqCtrl.B12', document.MSETTINGS.P12.value)\">"

   set j 0
   foreach item {"Not Used" "Used for TRGOUT inhibit"}  {
     if {$j == [set ::[set Name]::AcqCtrl.B12]} {
        append html "<option value=$j selected>$item</option>"
     } else {
        append html "<option value=$j>$item</option>"
     }
     incr j
   }

   append html "</select>"

   append html "</td>"


#    Bit 11

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

   append html "<select name=P11 size=1 \
       onChange=\"click_MSETTING(document.[set Name], 'AcqCtrl.B11', document.MSETTINGS.P11.value)\">"

   set j 0
   foreach item {"Starts on Level" "Starts on Edge"}  {
     if {$j == [set ::[set Name]::AcqCtrl.B11]} {
        append html "<option value=$j selected>$item</option>"
     } else {
        append html "<option value=$j>$item</option>"
     }
     incr j
   }

   append html "</select>"

   append html "</td>"


#    Bit 9

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

   append html "<select name=P9 size=1 \
       onChange=\"click_MSETTING(document.[set Name], 'AcqCtrl.B9', document.MSETTINGS.P9.value)\">"

   set j 0
   foreach item {"Disabled" "Enabled"}  {
     if {$j == [set ::[set Name]::AcqCtrl.B9]} {
        append html "<option value=$j selected>$item</option>"
     } else {
        append html "<option value=$j>$item</option>"
     }
     incr j
   }

   append html "</select>"

   append html "</td>"


#    Bit 8

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

   append html "<select name=P8 size=1 \
       onChange=\"click_MSETTING(document.[set Name], 'AcqCtrl.B8', document.MSETTINGS.P8.value)\">"

   set j 0
   foreach item {"Disabled" "Enabled"}  {
     if {$j == [set ::[set Name]::AcqCtrl.B8]} {
        append html "<option value=$j selected>$item</option>"
     } else {
        append html "<option value=$j>$item</option>"
     }
     incr j
   }

   append html "</select>"

   append html "</td>"

#    Bit 2

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

   append html "<select name=P2 size=1 \
       onChange=\"click_MSETTING(document.[set Name], 'AcqCtrl.B2', document.MSETTINGS.P2.value)\">"

   set j 0
   foreach item {"STOP/Disarmed" "RUN/armed"}  {
     if {$j == [set ::[set Name]::AcqCtrl.B2]} {
        append html "<option value=$j selected>$item</option>"
     } else {
        append html "<option value=$j>$item</option>"
     }
     incr j
   }

   append html "</select>"

   append html "</td>"

#    Bit 0/1:

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

   append html "<select name=P0 size=1 \
       onChange=\"click_MSETTING(document.[set Name], 'AcqCtrl.B0', document.MSETTINGS.P0.value)\">"

   set j 0
   foreach item {"Software Controlled" "S-IN Controlled" "First Trigger" "GPIO Controlled"}  {
     if {$j == [set ::[set Name]::AcqCtrl.B0]} {
        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  "</table>"
   append html  "</p>"

   return $html
}