#    This is the module register Acquisition Control 0x8100



    variable AcqCtrl 0
    variable AcqCtrl.B5 0
    variable AcqCtrl.B3 0
    variable AcqCtrl.B2 0
    variable AcqCtrl.B0 0
 

   proc GetAcqCtrl {} {
      variable AcqCtrl 
      variable AcqCtrl.B5
      variable AcqCtrl.B3
      variable AcqCtrl.B2
      variable AcqCtrl.B0

       set AcqCtrl [ReadRegister AcqControl]

       set AcqCtrl.B0 [expr $AcqCtrl & 3]
       set AcqCtrl.B2 [expr ($AcqCtrl >> 2) & 1]
       set AcqCtrl.B3 [expr ($AcqCtrl >> 3) & 1]
       set AcqCtrl.B5 [expr ($AcqCtrl >> 5) & 1]


    }

    proc SetAcqCtrl {} {
       variable AcqCtrl
       variable AcqCtrl.B5
       variable AcqCtrl.B3
       variable AcqCtrl.B2 
       variable AcqCtrl.B0

       set AcqCtrl  ([set AcqCtrl.B5] << 5) | ([set AcqCtrl.B3] << 3) | ([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=25%>Memory Full Mode</td>"
   append html  "<td  align=center width=25%>Trigger Counting Mode</td>"
   append html  "<td  align=center width=25%>Acquisition</td>"
   append html  "<td  align=center width=25%>Run Mode</td>"
   append html  "</tr><tr>"

#    Bit 5

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

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

   set j 0
   foreach item {"Normal" "One Buffer Free"}  {
     if {$j == [set ::[set Name]::AcqCtrl.B5]} {
        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 3

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

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

   set j 0
   foreach item {"Count Accepted Triggers" "Count All Triggers"}  {
     if {$j == [set ::[set Name]::AcqCtrl.B3]} {
        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=25%>"

   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=25%>"

   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 Mode" "S-IN Controlled Mode" "First Trigger Control" "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
}