#    This is the module register VME Status 0xef04  (read only)


    variable VMEStatus 0
    variable VMEStatus.B3 0
    variable VMEStatus.B2 0
    variable VMEStatus.B1 0
    variable VMEStatus.B0 0


   proc GetVMEStatus {} {
      variable VMEStatus
      variable VMEStatus.B3
      variable VMEStatus.B2
      variable VMEStatus.B1
      variable VMEStatus.B0

       set VMEStatus [ReadRegister VMEStatus]

       set VMEStatus.B0 [expr ($VMEStatus >> 0) & 1]
       set VMEStatus.B1 [expr ($VMEStatus >> 1) & 1]
       set VMEStatus.B2 [expr ($VMEStatus >> 2) & 1]
       set VMEStatus.B3 [expr ($VMEStatus >> 3) & 1]
    }



proc DrawVMEStatus {} {

   set html ""

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

   append html  "<tr>"
   append html  "<td  align=center width=33%>BERR Flag</td>"
   append html  "<td  align=center width=33%>Output Buffer State</td>"
   append html  "<td  align=center width=33%>Data Ready Flag</td>"
   append html  "</tr><tr>"


#    Bit 2

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

   append html "<select size=1 onChange=\"clich_REDISPLAY(document.V1751)\">"

   set j 0
   foreach item {"no Bus Error" "Bus Error has occurred"}  {
     if {$j == [set ::V1751::VMEStatus.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 1

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

   append html "<select size=1 onChange=\"clich_REDISPLAY(document.V1751)\">"

   set j 0
   foreach item {"Output Buffer NOT full" "Output Buffer full"}  {
     if {$j == [set ::V1751::VMEStatus.B1]} {
        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:

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

   append html "<select size=1 onChange=\"clich_REDISPLAY(document.V1751)\">"

   set j 0
   foreach item {"No Data Ready" "Event Ready"}  {
     if {$j == [set ::V1751::VMEStatus.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
}