#    This is the DPP register Config 0x8000



    variable Config 0

    variable Config.ITRG 0
    variable Config.DualTrace 0
    variable Config.AP 0
    variable Config.OscMode 0
    variable Config.TimeTagMode 1
    variable Config.ChargeMode 1
    variable Config.Extras 0
    variable Config.DVP1 0
    variable Config.DVP2 0
    variable Config.NoDVP 0
    variable Config.AutoFlush 0
    variable Config.Waveform 0


   proc GetConfig {} {
       variable Config
    variable Config.ITRG
    variable Config.DualTrace
    variable Config.AP
    variable Config.OscMode
    variable Config.TimeTagMode
    variable Config.ChargeMode
    variable Config.Extras
    variable Config.DVP1
    variable Config.DVP2
    variable Config.NoDVP
    variable Config.AutoFlush


       set Config [ReadRegister Config]

       set Config.AutoFlush [expr $Config & 1]
       set Config.ITRG [expr ($Config >> 2) & 1]
       set Config.DualTrace [expr ($Config >> 11) & 1]
       set Config.AP [expr ($Config >> 12) & 3]
       set Config.OscMode [expr ($Config >> 16) & 1]
       set Config.ChargeMode [expr ($Config >> 19) & 1]
       set Config.TimeTagMode [expr ($Config >> 18) & 1]
       set Config.Extras [expr ($Config >> 17) & 1]
       set Config.DVP1 [expr ($Config >> 23) & 7]
       set Config.DVP2 [expr ($Config >> 26) & 7]
       set Config.NoDVP [expr ($Config >> 31) & 1]

       if {[set Config.NoDVP] == 1} {set Config.DVP1 8; set Config.DVP2 8}
   }

   proc SetConfig {} {
       variable Config
    variable Config.ITRG
    variable Config.DualTrace
    variable Config.AP
    variable Config.OscMode
    variable Config.TimeTagMode
    variable Config.ChargeMode
    variable Config.Extras
    variable Config.DVP1
    variable Config.DVP2
    variable Config.NoDVP
    variable Config.AutoFlush

       if {[set Config.DVP1] != 8} {set Config.NoDVP 0} else {set Config.NoDVP 1}

       set Config [expr \
                               ([set Config.AutoFlush]) | \
                               ([set Config.ITRG] << 2) | \
                               ([set Config.DualTrace] << 11) + \
                               (1 << 4) + \
                               (1 << 8) + \
                               ([set Config.AP] << 12) + \
                               ([set Config.OscMode] << 16) + \
                               ([set Config.Extras] << 17) + \
                               (1 << 18) + \
                               (1 << 19) + \
                               (([set Config.DVP1] & 7) << 23) + \
                               (([set Config.DVP2] & 7) << 26) + \
                               ([set Config.NoDVP] << 31)]

       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=10%>Auto Data Flush (B0)</td>"
   append html  "<td  align=center width=10%>Trig Propagation (B2)</td>"
   append html  "<td  align=center width=10%>Dual Trace (B11)</td>"
   append html  "<td  align=center width=10%>Analog Probe (B12)</td>"
   append html  "<td  align=center width=10%>Waveform (B16)</td>"
   append html  "<td  align=center width=10%>Extras (B17)</td>"
   append html  "<td  align=center width=10%>Time Tag Mode (B18)</td>"
   append html  "<td  align=center width=10%>Charge Mode (B19)</td>"
   append html  "<td  align=center width=10%>Digitial Probe #1</td>"
   append html  "<td  align=center width=10%>Digitial Probe #2</td>"
   append html  "</tr><tr>"

#    Bit 0: Auto Data Flush : 

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

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

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

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

   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 11: Dual Trace : 

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

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

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

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

   set j 0
   foreach item {"input" "CFD"}  {
     set vl $j
     if {$vl == [set ::[set  Name]::Config.AP]} {
        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=10%>"

   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>"


#    Bit 17: Extras

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

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

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

   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=10%>"

   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 23:     Digitial Virtual Probe #1

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

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

   set j 0
   foreach item {"Long Gate" "OverThr" "shaped TRG" "TRG Val Ack Win" "Pile Up" "Coincidence" "reserved" "Trigger" "Disabled"}  {
     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
   }

   append html "</select>"

   append html "</td>"

#    Bit 26:     Digitial Virtual Probe #2

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

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

   set j 0
   foreach item {"Short Gate" "OverThr" "TRG Validation" "TRG HoldOff" "Pile Up" "Coincidence" "reserved" "Trigger" "Disabled"}  {
     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>"

   append html "</tr>"


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

   return $html

}