#    This is the module register VME Control 0xef00



    variable VMECtrl 0
    variable VMECtrl.B7 0
    variable VMECtrl.B6 0
    variable VMECtrl.B5 0
    variable VMECtrl.B4 0
    variable VMECtrl.B3 0
    variable VMECtrl.B0 0


   proc GetVMECtrl {} {
      variable VMECtrl 
      variable VMECtrl.B7
      variable VMECtrl.B6
      variable VMECtrl.B5
      variable VMECtrl.B4
      variable VMECtrl.B3
      variable VMECtrl.B0

       set VMECtrl [ReadRegister VMEControl];

       set VMECtrl.B0 [expr $VMECtrl & 7]
       set VMECtrl.B3 [expr ($VMECtrl >> 3) & 1]
       set VMECtrl.B4 [expr ($VMECtrl >> 4) & 1]
       set VMECtrl.B5 [expr ($VMECtrl >> 5) & 1]
       set VMECtrl.B6 [expr ($VMECtrl >> 6) & 1]
       set VMECtrl.B6 [expr ($VMECtrl >> 7) & 1]
    }

   proc SetVMECtrl {} {
      variable VMECtrl
      variable VMECtrl.B7
      variable VMECtrl.B6 
      variable VMECtrl.B5 
      variable VMECtrl.B4 
      variable VMECtrl.B3 
      variable VMECtrl.B0

      set VMECtrl [expr \
                     ([set VMECtrl.B7] << 7) | \
                     ([set VMECtrl.B6] << 6) | \
                     ([set VMECtrl.B5] << 5) | \
                     ([set VMECtrl.B4] << 4) | \
                     ([set VMECtrl.B3] << 3) | \
                     ([set VMECtrl.B0])]

     WriteRegister VMEControl $VMECtrl
   }




proc DrawVMECtrl {} {

   set html ""

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

   append html  "<tr>"
   append html  "<td  align=center width=15%>Interrupt Mode</td>"
   append html  "<td  align=center width=15%>RELOC Option</td>"
   append html  "<td  align=center width=15%>ALIGN64 Option</td>"
   append html  "<td  align=center width=15%>BERR Option</td>"
   append html  "<td  align=center width=15%>Optical Link Interrupt</td>"
   append html  "<td  align=center width=15%>Interrupt Level</td>"
   append html  "</tr><tr>"

#    Bit 7: 

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

   append html "<select name=P7 size=1 \
       onChange=\"click_MSETTING(document.V1720, 'VMECtrl.B7', document.MSETTINGS.P7.value)\">"

   set j 0
   foreach item {"RORA" "ROAK"}  {
     if {$j == [set ::V1720::VMECtrl.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=15%>"

   append html "<select name=P6 size=1 \
       onChange=\"click_MSETTING(document.V1720, 'VMECtrl.B6', document.MSETTINGS.P6.value)\">"

   set j 0
   foreach item {"Disabled" "Enabled"}  {
     if {$j == [set ::V1720::VMECtrl.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=15%>"

   append html "<select name=P5 size=1 \
       onChange=\"click_MSETTING(document.V1720, 'VMECtrl.B5', document.MSETTINGS.P5.value)\">"

   set j 0
   foreach item {"Disabled" "Enabled"}  {
     if {$j == [set ::V1720::VMECtrl.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=15%>"

   append html "<select name=P4 size=1 \
       onChange=\"click_MSETTING(document.V1720, 'VMECtrl.B4', document.MSETTINGS.P4.value)\">"

   set j 0
   foreach item {"Not Enabled" "Enabled"}  {
     if {$j == [set ::V1720::VMECtrl.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=15%>"

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

   set j 0
   foreach item {"disabled" "enabled"}  {
     if {$j == [set ::V1720::VMECtrl.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 0/1/2:

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

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

   set j 0
   foreach item {disabled 1 2 3 4 5 6 7}  {
     if {$j == [set ::V1720::VMECtrl.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
}