#    This is the DPP register Config 0x8000


       variable Config 0

       variable Config.ITRG 0
       variable Config.TestMode 0
       variable Config.Polarity 0
       variable Config.DualTrace 0
       variable Config.AProbe 0
       variable Config.OscMode 0
       variable Config.ExMode 0
       variable Config.TimeTagMode 0
       variable Config.ChargeMode 0
       variable Config.DVP1 0
       variable Config.DVP2 0
       variable Config.DigVProbe 0
       variable Config.Format 0

   proc GetConfig {} {
       variable Config
       variable Config.ITRG 
       variable Config.TestMode
       variable Config.Polarity
       variable Config.DualTrace
       variable Config.AProbe
       variable Config.OscMode
       variable Config.ExMode
       variable Config.TimeTagMode
       variable Config.ChargeMode
       variable Config.DVP1
       variable Config.DVP2
       variable Config.DigVProbe
       variable Config.Format

       set Config [ReadRegister Config]

       set Config.ITRG [expr ($Config >> 2) & 1]
       set Config.TestMode [expr ($Config >> 3) & 1]
       set Config.Polarity [expr ($Config >> 9) & 1]
       set Config.DualTrace [expr ($Config >> 11) & 1]
       set Config.AProbe [expr ($Config >> 12) & 3]
       set Config.OscMode [expr ($Config >> 16) & 1]
       set Config.ExMode [expr ($Config >> 17) & 1]
       set Config.TimeTagMode [expr ($Config >> 18) & 1]
       set Config.ChargeMode [expr ($Config >> 19) & 1]
       set Config.DVP1 [expr ($Config >> 20) & 7]
       set Config.DVP2 [expr ($Config >> 23) & 7]
       set Config.DigVProbe [expr ($Config >> 26) & 1]
       set Config.Format [expr ($Config >> 31) & 1]

   }

   proc SetConfig {} {
       variable Config
       variable Config.ITRG 
       variable Config.TestMode
       variable Config.Polarity
       variable Config.DualTrace
       variable Config.AProbe
       variable Config.OscMode
       variable Config.ExMode
       variable Config.TimeTagMode
       variable Config.ChargeMode
       variable Config.DVP1
       variable Config.DVP2
       variable Config.DigVProbe
       variable Config.Format

       set Config.Format 1

       set Config [expr \
                               ([set Config.ITRG] << 2) | \
                               ([set Config.TestMode] << 3) | \
                               (1 << 4) | \
                               (1 << 8) | \
                               ([set Config.Polarity] << 9)  | \
                               ([set Config.DualTrace] << 11) | \
                               ([set Config.AProbe] << 12) | \
                               ([set Config.OscMode] << 16) | \
                               ([set Config.ExMode] << 17) | \
                               ([set Config.TimeTagMode] << 18) | \
                               ([set Config.ChargeMode] << 19) | \
                               ([set Config.DVP1] << 20) | \
                               ([set Config.DVP2] << 23) | \
                               ([set Config.DigVProbe] << 26) | \
                               ([set Config.Format] << 31) ]

       WriteRegister Config $Config
   }


proc DrawConfig {} {
    variable Name
    variable Config.DualTrace
    variable Config.AProbe

   set html ""

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

   append html  "<tr>"
   append html  "<td  align=center width=16%>Trigger Propagation</td>"
   append html  "<td  align=center width=16%>Test Mode</td>"
   append html  "<td  align=center width=16%>Polarity</td>"
   append html  "<td  align=center width=16%>Dual Trace</td>"
   append html  "<td  align=center width=16%>Analog Probe</td>"
   append html  "<td  align=center width=16%>Oscilloscope Mode</td>"
   append html  "</tr><tr>"

#    Bit 2: ITRG : 

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

   append html "<select name=P2 size=1 \
       onChange=\"click_MSETTING(document.[set  Name], 'Config.ITRG', document.MSETTINGS.P2.value)\">"

   set j 0
   foreach item {"disabled" "enabled"}  {
     set vl $j
     if {$vl == [set ::[set  Name]::Config.ITRG]} {
        append html "<option value=$vl selected>$item</option>"
     } else {
        append html "<option value=$vl>$item</option>"
     }
     incr j
   }

   append html "</select>"

   append html "</td>"

#    Bit 3: Test Mode : 

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

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

   set j 0
   foreach item {"disabled" "enabled"}  {
     set vl $j
     if {$vl == [set ::[set  Name]::Config.TestMode]} {
        append html "<option value=$vl selected>$item</option>"
     } else {
        append html "<option value=$vl>$item</option>"
     }
     incr j
   }

   append html "</select>"

   append html "</td>"

#    Bit 9: Pulse Polarity

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

   append html "<select name=P9 size=1 \
       onChange=\"click_MSETTING(document.[set  Name], 'Config.Polarity', document.MSETTINGS.P9.value)\">"

   set j 0
   foreach item {"positive" "negative"}  {
     if {$j == [set ::[set  Name]::Config.Polarity]} {
        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: Dual Trace : 

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

   append html "<select name=P11 size=1 \
       onChange=\"click_MSETTING(document.[set  Name], 'Config.DualTrace', document.MSETTINGS.P11.value)\">"

   set j 0
   foreach item {"disabled" "enabled"}  {
     set vl $j
     if {$vl == [set ::[set  Name]::Config.DualTrace]} {
        append html "<option value=$vl selected>$item</option>"
     } else {
        append html "<option value=$vl>$item</option>"
     }
     incr j
   }

   append html "</select>"

   append html "</td>"

#    Bit 13:12: Analog Probe

   if {[set Config.DualTrace] == 0} {set APMenu {Input CFD}} \
          else {set APMenu {"Input + Baseline" "CFD + Baseline" "Input + CFD"}}

   if {[set Config.DualTrace] == 0} {
      if {[set Config.AProbe] > 1} {set Config.AProbe 0}
   }

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

   append html "<select name=P12 size=1 \
       onChange=\"click_MSETTING(document.[set  Name], 'Config.AProbe', document.MSETTINGS.P12.value)\">"

   set j 0
   foreach item $APMenu  {
     set vl $j
     if {$vl == [set ::[set  Name]::Config.AProbe]} {
        append html "<option value=$vl selected>$item</option>"
     } else {
        append html "<option value=$vl>$item</option>"
     }
     incr j
   }

   append html "</select>"

   append html "</td>"

#    Bit 16: Oscilloscope Mode : 

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

   append html "<select name=P16 size=1 \
       onChange=\"click_MSETTING(document.[set  Name], 'Config.OscMode', document.MSETTINGS.P16.value)\">"

   set j 0
   foreach item {"disabled" "enabled"}  {
     set vl $j
     if {$vl == [set ::[set  Name]::Config.OscMode]} {
        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><tr>"
   append html  "<td  align=center width=16%>Extras</td>"
   append html  "<td  align=center width=16%>Time Tag</td>"
   append html  "<td  align=center width=16%>Charge</td>"
   append html  "<td  align=center width=16%>Dig V Probe #1</td>"
   append html  "<td  align=center width=16%>Dig V Probe #2</td>"
   append html  "<td  align=center width=16%>Dig V Probes</td>"
   append html  "</tr>"

#    Bit 17: Extras Mode

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

   append html "<select name=P17 size=1 \
       onChange=\"click_MSETTING(document.[set  Name], 'Config.ExMode', document.MSETTINGS.P17.value)\">"

   set j 0
   foreach item {"disabled" "enabled"}  {
     if {$j == [set ::[set  Name]::Config.ExMode]} {
        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 18:  Time Tag Mode

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

   append html "<select name=P18 size=1 \
       onChange=\"click_MSETTING(document.[set  Name], 'Config.TimeTagMode', document.MSETTINGS.P18.value)\">"

   set j 0
   foreach item {"disabled" "enabled"}  {
     if {$j == [set ::[set  Name]::Config.TimeTagMode]} {
        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 19: Charge Mode

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

   append html "<select name=P19 size=1 \
       onChange=\"click_MSETTING(document.[set  Name], 'Config.ChargeMode', document.MSETTINGS.P19.value)\">"

   set j 0
   foreach item {"disabled" "enabled"}  {
     if {$j == [set ::[set  Name]::Config.ChargeMode]} {
        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 22 - 20:     Digitial Virtual Probe #1

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

   append html "<select name=P20 size=1 \
       onChange=\"click_MSETTING(document.[set  Name], 'Config.DVP1', document.MSETTINGS.P20.value)\">"

   set j 0
   foreach item {"Long Gate" "Over Thresh" "Shaped TRG" "TRG Val Acpt" "Pile Up" "Coincidence"}  {
     if {$j == [set ::[set  Name]::Config.DVP1]} {
        append html "<option value=$j selected>$item</option>"
     } else {
        append html "<option value=$j>$item</option>"
     }
     incr j
   }


#    Bit 23 - 26:     Digitial Virtual Probe #2

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

   append html "<select name=P23 size=1 \
       onChange=\"click_MSETTING(document.[set  Name], 'Config.DVP2', document.MSETTINGS.P23.value)\">"

   set j 0
   foreach item {"Short Gate" "Over Thresh" "TRG Val" "TRG HoldOff" "Pile Up" "Coincidence"}  {
     if {$j == [set ::[set  Name]::Config.DVP2]} {
        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 26:     Digitial Virtual Probes

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

   append html "<select name=P26 size=1 \
       onChange=\"click_MSETTING(document.[set  Name], 'Config.DigVProbe', document.MSETTINGS.P26.value)\">"

   set j 0
   foreach item {"disabled" "enabled"}  {
     if {$j == [set ::[set  Name]::Config.DigVProbe]} {
        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

}