#    This is the register Config 0x8000



    variable Config 0
    variable Config.Monitor 0
    variable Config.TRnEnable 0
    variable Config.TRnRdOutEnable 0
    variable Config.TRPolarity 0
    variable Config.TestMode 0

   proc GetConfig {} {
       variable Config
    variable Config.Monitor 
    variable Config.TRnEnable 
    variable Config.TRnRdOutEnable 
    variable Config.TRPolarity 
    variable Config.TestMode 


       set Config [ReadRegister Config]

       set Config.TestMode [expr ($Config >> 3) & 1]
       set Config.TRPolarity [expr ($Config >> 6) & 1]
       set Config.TRnRdOutEnable [expr ($Config >> 11) & 1]
       set Config.TRnEnable [expr ($Config >> 12) & 1]
       set Config.Monitor [expr ($Config >> 28) & 15]
   }

   proc SetConfig {} {
       variable Config
    variable Config.Monitor 
    variable Config.TRnEnable 
    variable Config.TRnRdOutEnable 
    variable Config.TRPolarity 
    variable Config.TestMode 

       set Config [expr \
                               ([set Config.TestMode] << 3) + \
                               (1 << 4) + \
                               ([set Config.TRPolarity] << 6) + \
                               (1 << 8) + \
                               ([set Config.TRnRdOutEnable] << 11) + \
                               ([set Config.TRnEnable] << 12) + \
                               ([set Config.Monitor] << 28) \
                  ]

       WriteRegister Config $Config
   }


proc DrawConfig {} {

   set html ""

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

   append html  "<tr>"
   append html  "<td  align=center width=20%>Test Mode</td>"
   append html  "<td  align=center width=20%>TR Trigger Polarity</td>"
   append html  "<td  align=center width=20%>TRn Readout Enable</td>"
   append html  "<td  align=center width=20%>Trigger Enable</td>"
   append html  "<td  align=center width=20%>Monitor Signal</td>"

   append html  "</tr><tr>"

#    Bit 3: Test Mode : 

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

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

   set j 0
   foreach item {"Normal mode" "Test mode"}  {
     if {$j == [set ::V1742::Config.TestMode]} {
        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: Trigger Polarity

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

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

   set j 0
   foreach item {"Rising Edge" "Falling Edge"}  {
     if {$j == [set ::V1742::Config.TRPolarity]} {
        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 11 : Signal TRn Readout Enable

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

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

   set j 0
   foreach item {"Disabled" "Enabled"}  {
     if {$j == [set ::V1742::Config.TRnRdOutEnable]} {
        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 12: TRn Trigger Enable : 

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

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

   set j 0
   foreach item {"Disabled" "Enabled"}  {
     if {$j == [set ::V1742::Config.TRnEnable]} {
        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 31:28: Monitor Signal : 

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

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

   set j 0
   foreach item {"no signal" "all fast triggers" "accepted fast triggers" "busy"}  {
     if {$j == [set ::V1742::Config.Monitor]} {
        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

}