#    This is the register Config 0x8000



    variable Config 0
    variable Config.ZeroSuppression 0
    variable Config.Pack25 0
    variable Config.TrigMode 0
    variable Config.MemAccessMode 0
    variable Config.TestPatGen 0
    variable Config.TrigOlap 0

   proc GetConfig {} {
       variable Config
       variable Config.ZeroSuppression
       variable Config.Pack25
       variable Config.TrigMode
       variable Config.MemAccessMode
       variable Config.TestPatGen
       variable Config.TrigOlap

       set Config [ReadRegister Config]

       set Config.TrigOlap [expr ($Config >> 1) & 1]
       set Config.TrigMode [expr ($Config >> 6) & 1]
       set Config.TestPatGen [expr ($Config >> 3) & 1]
       set Config.MemAccessMode [expr ($Config >> 4) & 1]
       set Config.Pack25 [expr ($Config >> 11) & 1]
       set Config.ZeroSuppression [expr ($Config >> 16) & 3]
   }

   proc SetConfig {} {
       variable Config
       variable Config.ZeroSuppression
       variable Config.Pack25
       variable Config.TrigMode
       variable Config.MemAccessMode
       variable Config.TestPatGen
       variable Config.TrigOlap

       set Config [expr \
                               ([set Config.TrigOlap] << 1) + \
                               ([set Config.TestPatGen] << 3) + \
                               ([set Config.MemAccessMode] << 4) + \
                               ([set Config.TrigMode] << 6) + \
                               ([set Config.Pack25] << 11) + \
                               ([set Config.ZeroSuppression] << 16) \
                  ]

       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=16%>Trigger Overlap</td>"
   append html  "<td  align=center width=16%>Test Pattern Generator</td>"
   append html  "<td  align=center width=16%>Memory Access</td>"
   append html  "<td  align=center width=16%>Trigger Mode</td>"
   append html  "<td  align=center width=16%>Pack 2.5</td>"
   append html  "<td  align=center width=16%>Zero Suppression</td>"

   append html  "</tr><tr>"


#    Bit 1: Trigger Overlap

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

   append html "<select name=P1 size=1 \
       onChange=\"click_MSETTING(document.V1724, 'Config.TrigOlap', document.MSETTINGS.P1.value)\">"

   set j 0
   foreach item {"Not Allowed" "Allowed"}  {
     if {$j == [set ::V1724::Config.TrigOlap]} {
        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 3: Test Pattern Generator : 

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

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

   set j 0
   foreach item {"Disabled" "Enabled"}  {
     if {$j == [set ::V1724::Config.TestPatGen]} {
        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 4: Memory Access : 

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

   append html "<select name=P4 size=1 \
       onChange=\"click_MSETTING(document.V1724, 'Config.MemAccessMode', document.MSETTINGS.P4.value)\">"

   set j 0
   foreach item {"Random" "Sequential"}  {
     if {$j == [set ::V1724::Config.MemAccessMode]} {
        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 Mode : 

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

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

   set j 0
   foreach item {"o/p on input over threshold" "o/p on input under threshold"}  {
     if {$j == [set ::V1724::Config.TrigMode]} {
        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: pack 2.5 : 

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

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

   set j 0
   foreach item {"disabled" "enabled"}  {
     if {$j == [set ::V1724::Config.Pack25]} {
        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 16:  Zero Suppression : 

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

   append html "<select name=P16 size=1 \
       onChange=\"click_MSETTING(document.V1724, 'Config.ZeroSuppression', document.MSETTINGS.P16.value)\">"

   set j 0
   foreach item {"disabled" "reserved" "ZLE" "full (ZS AMP)"}  {
     if {$j == [set ::V1724::Config.ZeroSuppression]} {
        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

}