#    This is the DPP register Config 0x8000



    variable Config 0

    variable Config.TrigOpt 0
    variable Config.InvertInput 0
    variable Config.DualTrace 0
    variable Config.VProbe1 0
    variable Config.VProbe2 0
    variable Config.EnableFmtWord 1
    variable Config.OscMode 0
    variable Config.EnergyMode 1
    variable Config.TimeTagMode 1
    variable Config.ExMode 0
    variable Config.DigVProbe 0

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

       set Config [ReadRegister Config]

       set Config.TrigOpt [expr ($Config >> 2) & 1]
       set Config.InvertInput [expr ($Config >> 9) & 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 >> 19) & 1]
       set Config.TimeTagMode [expr ($Config >> 18) & 1]
       set Config.ExMode [expr ($Config >> 17) & 1]
       set Config.DigVProbe [expr ($Config >> 20) & 15]
       set Config.EnableFmtWord [expr ($Config >> 24) & 1]
   }

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

   set Config.EnableFmtWord 1
   set Config.InvertInput 0
   set Config.EnergyMode 1
   set Config.TimeTagMode 1

       set Config [expr \
                               ([set Config.TrigOpt] << 2) + \
                               (1 << 4) + \
                               (1 << 8) + \
                               ([set Config.InvertInput] << 9) + \
                               ([set Config.DualTrace] << 11) + \
                               ([set Config.VProbe1] << 12) + \
                               ([set Config.VProbe2] << 14) + \
                               ([set Config.OscMode] << 16) + \
                               ([set Config.EnergyMode] << 19) + \
                               ([set Config.TimeTagMode] << 18) + \
                               ([set Config.ExMode] << 17) + \
                               ([set Config.DigVProbe] << 20) + \
                               ([set Config.EnableFmtWord] << 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=15%>Trigger Propagation \[2\]</td>"
   append html  "<td  align=center width=15%></td>"
   append html  "<td  align=center width=15%>Dual Trace \[11\]</td>"
   append html  "<td  align=center width=15%></td>"
   append html  "<td  align=center width=15%>Analogue Probe 1 \[12:13\]</td>"
   append html  "<td  align=center width=15%>Analogue Probe 2 \[14:15\]</td>"
   append html  "</tr><tr>"

#    Bit 2: Trigger Propagation : 

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

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

   set j 0
   foreach item {"Off" "On"}  {
     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 9:  not in use

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

   append html "</td>"

#    Bit 11:  Dual Trace

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

   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 xx:  not in use

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

   append html "</td>"

#    Bit 12/13:  Analogue Probe 1

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

   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:  Analogue Probe 2

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

   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 (RC-CR2)" "Trapezoid-Baseline" "Trapezoid 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=15%>Oscilloscope Mode \[16\]</td>"
   append html  "<td  align=center width=15%>Extras Mode \[17\]</td>"
   append html  "<td  align=center width=15%>Time Tag Mode \[18\]</td>"
   append html  "<td  align=center width=15%>Energy Mode \[19\]</td>"
   append html  "<td  align=center width=15%>Digitial Virtual Probe \[20:23\]</td>"
   append html  "<td  align=center width=15%>Event Format Info \[24\]</td>"
   append html  "</tr>"

#    Bit 16:  Oscilloscope Mode

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

   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:  Extras Mode

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

   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:  TimeTag Mode

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

   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:  Energy Mode

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

   append html "<select name=P19 size=1 \
       onChange=\"click_MSETTING(document.[set Name], 'Config.EnergyMode', document.MSETTINGS.P19.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 22/20  Digitial Virtual Probe

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

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

   set j 0
   foreach item {"TRG Window" Armed "Peak Running" "Peak Abort" "Peak Sampling" "Trg Val Win" "BSL Holdoff" \
      "Trigger Hold Off" "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>"

#    Bit 24   Enable Event Data Format Word

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

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

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

}