#    This is the module register Front Panel I/O Data 0x8118


     variable FPIOData 0

proc GetFPIOData {} {
     variable FPIOData 

     set FPIOData [ReadRegister FPIOData]
}

proc SetFPIOData {} {
     variable FPIOData 

     WriteRegister FPIOData $FPIOData
}


proc DrawFPIOData {} {
   variable Name

   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%>Front Panel I/O Data</td>"
   append html "<td align=center width=50%>"
     append html "<input type=text name=FPIOData size=10 value=[set ::[set Name]::FPIOData]  \
          onMouseOver=\"activateEntry(document.MSETTINGS.FPIOData)\" \  
              onChange=\"click_MSETTING(document.[set Name], 'FPIOData', document.MSETTINGS.FPIOData.value)\">"

   append html "</td>"

   append html  "</tr>"

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

     return $html
}