#    This is the module register Acquisition Control 0x8100



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

   proc GetAcqCtrl {} {
      variable AcqCtrl 
      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]


    }

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

       set AcqCtrl [expr 0x20 | ([set AcqCtrl.B3] << 3) | ([set AcqCtrl.B2] << 2) | [set AcqCtrl.B0]]

       WriteRegister AcqControl $AcqCtrl
    }



proc DrawAcqCtrl {} {

   set html ""

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

   append html  "<tr>"
   append html  "<td  align=center width=33%>Trigger Mode</td>"
   append html  "<td  align=center width=33%>Acquisition</td>"
   append html  "<td  align=center width=33%>Run Mode</td>"
   append html  "</tr><tr>"

#    Bit 3

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

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

   set j 0
   foreach item {"Count Accepted Triggers" "Count All Triggers"}  {
     if {$j == [set ::V1720::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=20%>"

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

   set j 0
   foreach item {"STOP/Disarmed" "RUN/armed"}  {
     if {$j == [set ::V1720::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=20%>"

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

   set j 0
   foreach item {"Software Controlled Mode" "S-IN Controlled Mode" "S-IN Gate Mode" "Multi-Board Sync Mode"}  {
     if {$j == [set ::V1720::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
}