#    This is the module register Monitor Mode 0x8144


     variable MonitorMode 0

proc GetMonitorMode {} {
     variable MonitorMode 

     set MonitorMode [ReadRegister MonitorMode]
}

proc SetMonitorMode {} {
     variable MonitorMode 

     WriteRegister MonitorMode $MonitorMode
}


proc DrawMonitorMode {} {

   set html ""

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

   append html  "<tr>"
   append html  "<td  align=center width=50%>Monitor Mode</td>"

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

   append html "<select name=P1 size=1 \
       onChange=\"click_MSETTING(document.V1724, 'MonitorMode', document.MSETTINGS.P1.value)\">"

   set OptionMenu [list "majority" "waveform generator" "reserved" "buffer Occupancy" "voltage level"]

   set j 0
   foreach item $OptionMenu  {
     set vl $j
     if {$vl == [set ::V1724::MonitorMode]} {
        append html "<option value=$vl selected>$item</option>"
     } else {
        append html "<option value=$vl>$item</option>"
     }
     incr j
   }

   append html "</select>"

   append html "</td>"

   append html  "</tr>"

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

   return $html
}