#    This is the module register Acquisition Status 0x8104  (read only)


    variable AcqStatus 0
    variable AcqStatus.B16 0
    variable AcqStatus.B15 0
    variable AcqStatus.B8 0
    variable AcqStatus.B7 0
    variable AcqStatus.B6 0
    variable AcqStatus.B5 0
    variable AcqStatus.B4 0
    variable AcqStatus.B3 0
    variable AcqStatus.B2 0

   proc GetAcqStatus {} {
      variable AcqStatus
      variable AcqStatus.B16
      variable AcqStatus.B15
      variable AcqStatus.B8
      variable AcqStatus.B7
      variable AcqStatus.B6
      variable AcqStatus.B5
      variable AcqStatus.B4
      variable AcqStatus.B3
      variable AcqStatus.B2

       set AcqStatus [ReadRegister AcqStatus]

       set AcqStatus.B2 [expr ($AcqStatus >> 2) & 1]
       set AcqStatus.B3 [expr ($AcqStatus >> 3) & 1]
       set AcqStatus.B4 [expr ($AcqStatus >> 4) & 1]
       set AcqStatus.B5 [expr ($AcqStatus >> 5) & 1]
       set AcqStatus.B6 [expr ($AcqStatus >> 6) & 1]
       set AcqStatus.B7 [expr ($AcqStatus >> 7) & 1]
       set AcqStatus.B8 [expr ($AcqStatus >> 8) & 1]
       set AcqStatus.B15 [expr ($AcqStatus >> 15) & 1]
       set AcqStatus.B16 [expr ($AcqStatus >> 16) & 1]
   }

 

proc DrawAcqStatus {} {
   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=10%>TRG-IN level</td>"
   append html  "<td  align=center width=10%>S-IN level</td>"
   append html  "<td  align=center width=10%>Ready State</td>"
   append html  "<td  align=center width=10%>PLL State</td>"
   append html  "<td  align=center width=10%>PLL Bypass Mode</td>"
   append html  "<td  align=center width=10%>Clock Source</td>"
   append html  "<td  align=center width=10%>Event Full</td>"
   append html  "<td  align=center width=10%>Event Ready</td>"
   append html  "<td  align=center width=10%>RUN State</td>"
   append html  "</tr><tr>"

#    Bit 16: 

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

   append html "<select size=1 onClick=\"click_REDISPLAY(document.[set Name])\">"

   set j 0
   foreach item {"0" "1"}  {
     if {$j == [set ::[set Name]::AcqStatus.B16]} {
        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 15: 

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

   append html "<select size=1 onClick=\"click_REDISPLAY(document.[set Name])\">"

   set j 0
   foreach item {"0" "1"}  {
     if {$j == [set ::[set Name]::AcqStatus.B15]} {
        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=10%>"

   append html "<select size=1 onClick=\"click_REDISPLAY(document.[set Name])\">"

   set j 0
   foreach item {"Not Ready" "Ready"}  {
     if {$j == [set ::[set Name]::AcqStatus.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 7:

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

   append html "<select size=1 onClick=\"click_REDISPLAY(document.[set Name])\">"

   set j 0
   foreach item {"PLL loss of lock" "no PLL loss of lock"}  {
     if {$j == [set ::[set Name]::AcqStatus.B7]} {
        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 6

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

   append html "<select size=1 onClick=\"click_REDISPLAY(document.[set Name])\">"

   set j 0
   foreach item {"No bypass" "bypass"}  {
     if {$j == [set ::[set Name]::AcqStatus.B6]} {
        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 5

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

   append html "<select size=1 onClick=\"click_REDISPLAY(document.[set Name])\">"

   set j 0
   foreach item {"Internal" "External"}  {
     if {$j == [set ::[set Name]::AcqStatus.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 4

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

   append html "<select size=1 onClick=\"click_REDISPLAY(document.[set Name])\">"

   set j 0
   foreach item {"false" "true"}  {
     if {$j == [set ::[set Name]::AcqStatus.B4]} {
        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=10%>"

   append html "<select size=1 onClick=\"click_REDISPLAY(document.[set Name])\">"

   set j 0
   foreach item {"false" "true"}  {
     if {$j == [set ::[set Name]::AcqStatus.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=10%>"

   append html "<select size=1 onClick=\"click_REDISPLAY(document.[set Name])\">"

   set j 0
   foreach item {"Off" "On"}  {
     if {$j == [set ::[set Name]::AcqStatus.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>"

   append html  "</tr>"


   append html  "</table>"
   append html  "</p>"

     return $html
}