#    This is the DPP register Config 0x8000

    variable Config 0

    variable Config.TrigOpt 0
    variable Config.DualTrace 0
    variable Config.VProbe1 0
    variable Config.VProbe2 0
    variable Config.OscMode 0
    variable Config.EnergyMode 0
    variable Config.TimeTagMode 0
    variable Config.DigVProbe 0

   proc GetConfig {} {
       variable Config
       variable Config.DualTrace
       variable Config.TrigOpt
       variable Config.VProbe1
       variable Config.VProbe2
       variable Config.OscMode
       variable Config.EnergyMode
       variable Config.TimeTagMode
       variable Config.DigVProbe

       set Config [ReadRegister Config]

       set Config.TrigOpt [expr ($Config >> 2) & 1]
       set Config.DualTrace [expr ($Config >> 11) & 1]
       set Config.VProbe1 [expr ($Config >> 12) & 3]
       set Config.VProbe2 [expr ($Config >> 14) & 3]
       set Config.OscMode [expr ($Config >> 16) & 1]
       set Config.EnergyMode [expr ($Config >> 17) & 1]
       set Config.TimeTagMode [expr ($Config >> 18) & 1]
       set Config.DigVProbe [expr ($Config >> 20) & 15]
   }

   proc SetConfig {} {
       variable Config
       variable Config.DualTrace
       variable Config.TrigOpt
       variable Config.VProbe1
       variable Config.VProbe2
       variable Config.OscMode
       variable Config.EnergyMode
       variable Config.TimeTagMode
       variable Config.DigVProbe

   set Config.EnableFmtWord 1

       set Config [expr \
                               ([set Config.TrigOpt] << 2) + \
                               (1 << 4) + \
                               (1 << 8) + \
                               ([set Config.DualTrace] << 11) + \
                               ([set Config.VProbe1] << 12) + \
                               ([set Config.VProbe2] << 14) + \
                               ([set Config.OscMode] << 16) + \
                               ([set Config.EnergyMode] << 17) + \
                               ([set Config.TimeTagMode] << 18) + \
                               ([set Config.DigVProbe] << 20) + \
                               (1 << 24)]

       WriteRegister Config $Config
   }


proc DrawConfig {} {
   variable Name

   set html ""

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

   append html  "<tr>"
   append html  "<td  align=center width=20%>Trigger Propagation (B2)</td>"
   append html  "<td  align=center width=20%>Dual Trace</td>"
   append html  "<td  align=center width=20%>Analog Probe 1</td>"
   append html  "<td  align=center width=20%>Analog Probe 2</td>"
   append html  "</tr><tr>"

#    Bit 2: ITRG => mezzanines : 

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

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

   set j 0
   foreach item {"disable" "enable"}  {
     if {$j == [set ::[set Name]::Config.TrigOpt]} {
        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=20%>"

   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"}  {
     if {$j == [set ::[set Name]::Config.DualTrace]} {
        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/13:  Analog Probe 1

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

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

   set j 0
   foreach item {"Input" "RC-CR" "RC-CR2" "Trapezoid"}  {
     if {$j == [set ::[set Name]::Config.VProbe1]} {
        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 14/15:  Analog Probe 2

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

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

   set j 0
   foreach item {"Input" "Threshold" "Trapezoid-Baseline" "Baseline"}  {
     if {$j == [set ::[set Name]::Config.VProbe2]} {
        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><tr>"
   append html  "<td  align=center width=20%>Oscilloscope Mode</td>"
   append html  "<td  align=center width=20%>Energy Mode</td>"
   append html  "<td  align=center width=20%>Time Tag Mode</td>"
   append html  "<td  align=center width=20%>Digitial V Probe</td>"
   append html  "</tr>"

#    Bit 16:  Oscilloscope Mode

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

   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"}  {
     if {$j == [set ::[set Name]::Config.OscMode]} {
        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 17:  Energy Mode

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

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

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

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

   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 22/20  Digitial Virtual Probe

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

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

   set j 0
   foreach item {"Trigger Window" Armed "Peak Running" "Peak Abort" "Peak Sampling" "Trigger Validation Window" \
    "Baseline HoldOff" "Trigger HoldOff" "Trigger Validation" "ACQ Veto"}  {
     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

}