#    This is the module register SampleFreq  0x80d8


     variable SampleFreq 0

proc GetSampleFreq {} {
     variable SampleFreq 

     set SampleFreq [ReadRegister SampleFreq]
}

proc SetSampleFreq {} {
     variable SampleFreq 

     WriteRegister SampleFreq $SampleFreq
}


proc DrawSampleFreq {} {

   set html ""

   append html  "<p align=center>"
   append html  "<table cellpadding=0 cellspacing=0 border=1>"

   append html  "<tr>"
   append html  "<td  align=center width=50%>Sampling Frequency</td>"
   append html "<td align=center width=50%>"

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

   set j 0
   foreach item {"5 GS/s" "2.5 GS/s" "1 GS/s"}  {
     if {$j == [set ::V1742::SampleFreq]} {
        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
}