#    This is the channel Local Trigger Management register which is fields within the register at 0x1n84

#    bit 7 removed Apr 29 




    for {set i 0} {$i < $NumChans} {incr i} {
        variable Ch$i.LocalTrigger 0
        variable Ch$i.LocalTrigger_B00=>01 0
        variable Ch$i.LocalTrigger_B02 0
        variable Ch$i.LocalTrigger_B04=>05 0
        variable Ch$i.LocalTrigger_B06 0
        variable Ch$i.LocalTrigger_B07 0
        variable Ch$i.LocalTrigger_B08=>10 0
        variable Ch$i.LocalTrigger_B11 0
        variable Ch$i.LocalTrigger_B12=>15 0
        variable Ch$i.LocalTrigger_B16=>17 0
        variable Ch$i.LocalTrigger_B18=>19 0
        variable Ch$i.LocalTrigger_B24 0
        variable Ch$i.LocalTrigger_B25=>26 0
    }


proc GetLocalTrigger {} {
     variable NumChans

    for {set i 0} {$i < $NumChans} {incr i} {
        variable Ch$i.LocalTrigger
        set Ch$i.LocalTrigger [ReadRegister Ch$i.LocalTrigger]

        variable Ch$i.LocalTrigger_B00=>01
        variable Ch$i.LocalTrigger_B02
        variable Ch$i.LocalTrigger_B04=>05
        variable Ch$i.LocalTrigger_B06
        variable Ch$i.LocalTrigger_B07
        variable Ch$i.LocalTrigger_B08=>10
        variable Ch$i.LocalTrigger_B11
        variable Ch$i.LocalTrigger_B12=>15
        variable Ch$i.LocalTrigger_B16=>17
        variable Ch$i.LocalTrigger_B18=>19
        variable Ch$i.LocalTrigger_B24
        variable Ch$i.LocalTrigger_B25=>26

        set Ch$i.LocalTrigger_B00=>01 [expr [set Ch$i.LocalTrigger] & 3]
        set Ch$i.LocalTrigger_B02 [expr ([set Ch$i.LocalTrigger] >> 2) & 1]
        set Ch$i.LocalTrigger_B04=>05 [expr ([set Ch$i.LocalTrigger] >> 4) & 3]
        set Ch$i.LocalTrigger_B06 [expr ([set Ch$i.LocalTrigger] >> 6) & 1]
        set Ch$i.LocalTrigger_B07 [expr ([set Ch$i.LocalTrigger] >> 7) & 1]
        set Ch$i.LocalTrigger_B08=>10 [expr ([set Ch$i.LocalTrigger] >> 8) & 7]
        set Ch$i.LocalTrigger_B11 [expr ([set Ch$i.LocalTrigger] >> 11) & 1]
        set Ch$i.LocalTrigger_B12=>15 [expr ([set Ch$i.LocalTrigger] >> 12) & 15]
        set Ch$i.LocalTrigger_B16=>17 [expr ([set Ch$i.LocalTrigger] >> 16) & 3]
        set Ch$i.LocalTrigger_B18=>19 [expr ([set Ch$i.LocalTrigger] >> 18) & 3]
        set Ch$i.LocalTrigger_B24 [expr ([set Ch$i.LocalTrigger] >> 24) & 1]
        set Ch$i.LocalTrigger_B25=>26 [expr ([set Ch$i.LocalTrigger] >> 25) & 3]

    }
}

proc SetLocalTrigger {w} {
      variable NumChans

      for {set i 0} {$i < $NumChans} {incr i} {
        variable Ch$i.LocalTrigger

         if {$w < $NumChans && $w != $i} {continue}

        variable Ch$i.LocalTrigger_B00=>01
        variable Ch$i.LocalTrigger_B02
        variable Ch$i.LocalTrigger_B04=>05
        variable Ch$i.LocalTrigger_B06
        variable Ch$i.LocalTrigger_B07
        variable Ch$i.LocalTrigger_B08=>10
        variable Ch$i.LocalTrigger_B11
        variable Ch$i.LocalTrigger_B12=>15
        variable Ch$i.LocalTrigger_B16=>17
        variable Ch$i.LocalTrigger_B18=>19
        variable Ch$i.LocalTrigger_B24
        variable Ch$i.LocalTrigger_B25=>26

      set Ch$i.LocalTrigger [expr \
         ([set Ch$i.LocalTrigger_B00=>01] << 0) | \
         ([set Ch$i.LocalTrigger_B02] << 2) | \
         ([set Ch$i.LocalTrigger_B04=>05] << 4) | \
         ([set Ch$i.LocalTrigger_B06] << 6) | \
         ([set Ch$i.LocalTrigger_B07] << 7) | \
         ([set Ch$i.LocalTrigger_B08=>10] << 8) | \
         ([set Ch$i.LocalTrigger_B11] << 11) | \
         ([set Ch$i.LocalTrigger_B12=>15] << 12) | \
         ([set Ch$i.LocalTrigger_B16=>17] << 16) | \
         ([set Ch$i.LocalTrigger_B18=>19] << 18) | \
         ([set Ch$i.LocalTrigger_B24] << 24) | \
         ([set Ch$i.LocalTrigger_B25=>26] << 25) \
       ]

         WriteRegister Ch$i.LocalTrigger [set Ch$i.LocalTrigger]

     }

}

    proc SaveLocalTrigger {} {
      variable NumChans

      for {set i 0} {$i < $NumChans} {incr i} {

           DBSetValue Ch$i.LocalTrigger [ReadRegister Ch$i.LocalTrigger]
      }
    }

    proc RestLocalTrigger {} {
      variable NumChans

      for {set i 0} {$i < $NumChans} {incr i} {

           variable Ch$i.LocalTrigger
           set Ch$i.LocalTrigger  [DBGetValue Ch$i.LocalTrigger]
           WriteRegister Ch$i.LocalTrigger  [DBGetValue Ch$i.LocalTrigger]
      }

        GetLocalTrigger

    }

proc DrawLocalTrigger {} {
   variable NumChans
   variable Name

    for {set i 0} {$i < $NumChans} {incr i} {

        variable Ch$i.LocalTrigger
        variable Ch$i.LocalTrigger_B00=>01
        variable Ch$i.LocalTrigger_B02
        variable Ch$i.LocalTrigger_B04=>05
        variable Ch$i.LocalTrigger_B06
        variable Ch$i.LocalTrigger_B07
        variable Ch$i.LocalTrigger_B08=>10
        variable Ch$i.LocalTrigger_B11
        variable Ch$i.LocalTrigger_B12=>15
        variable Ch$i.LocalTrigger_B16=>17
        variable Ch$i.LocalTrigger_B18=>19
        variable Ch$i.LocalTrigger_B24
        variable Ch$i.LocalTrigger_B25=>26
     }



   set html ""

   append html  "<p align=center>"
   append html  "<table cellpadding=0 cellspacing=0 border=1>"

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

   append html  "<td  align=center width=8%>Local Trigger Mode</td>"
   append html  "<td  align=center width=8%>Enable LT Mode</td>"
   append html  "<td  align=center width=8%>LT Validation Mode</td>"
   append html  "<td  align=center width=8%>Enable LT Val Mode</td>"
   append html  "<td  align=center width=8%>Extras Word options</td>"
   append html  "<td  align=center width=8%>Use smoothed signal for charge integration</td>"
   append html  "<td  align=center width=8%>Input smoothing factor</td>"
   append html  "<td  align=center width=8%>Trigger counter rate step</td>"
   append html  "<td  align=center width=8%>Veto Source</td>"
   append html  "<td  align=center width=8%>Mark saturated pulses</td>"
   append html  "<td  align=center width=8%>Additional LT Val options</td>"

   append html  "</tr>"

for {set i 0} {$i < $NumChans} {incr i} {

   append html "<tr>"
   append html "<td align=center width=8%>$i</td>"


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

   append html "<select name=P0001$i size=1 \
       onChange=\"click_CHSETTING(document.[set Name], 'LocalTrigger_B00=>01', $i, document.CHSETTINGS.P0001$i.value)\">"

   set j 0
   foreach item {AND "even channel only" "odd channel only" OR}  {

     if {$j == [set Ch$i.LocalTrigger_B00=>01]} {
        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 "<td align=center width=8%>"

   append html "<select name=P02$i size=1 \
       onChange=\"click_CHSETTING(document.[set Name], 'LocalTrigger_B02', $i, document.CHSETTINGS.P02$i.value)\">"

   set j 0
   foreach item {disabled enabled}  {

     if {$j == [set Ch$i.LocalTrigger_B02]} {
        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 "<td align=center width=8%>"

   append html "<select name=P0405$i size=1 \
       onChange=\"click_CHSETTING(document.[set Name], 'LocalTrigger_B04=>05', $i, document.CHSETTINGS.P0405$i.value)\">"

   set j 0
   foreach item {AND "trig val from MB only" "coinc inside channel pair" OR}  {

     if {$j == [set Ch$i.LocalTrigger_B04=>05]} {
        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 "<td align=center width=8%>"

   append html "<select name=P06$i size=1 \
       onChange=\"click_CHSETTING(document.[set Name], 'LocalTrigger_B06', $i, document.CHSETTINGS.P06$i.value)\">"

   set j 0
   foreach item {disable enable}  {

     if {$j == [set Ch$i.LocalTrigger_B06]} {
        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 "<td align=center width=8%>"

   append html "<select name=P0810$i size=1  \
       onChange=\"click_CHSETTING(document.[set Name], 'LocalTrigger_B08=>10', $i, document.CHSETTINGS.P0810$i.value)\">"

   set j 0
   foreach item {"extended TS + Baseline*4" "Extended TS + flags" "Extended TS + flags + Fine TS" reserved "lost trigger count + total trigger count" "+ve zero crossing + -ve zero crossing" reserved debug}  {

     if {$j == [set Ch$i.LocalTrigger_B08=>10]} {
        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 "<td align=center width=8%>"

   append html "<select name=P11$i size=1 \
       onChange=\"click_CHSETTING(document.[set Name], 'LocalTrigger_B11', $i, document.CHSETTINGS.P11$i.value)\">"

   set j 0
   foreach item {disable enable}  {

     if {$j == [set Ch$i.LocalTrigger_B11]} {
        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 "<td align=center width=8%>"

   append html "<select name=P1215$i size=1 \
       onChange=\"click_CHSETTING(document.[set Name], 'LocalTrigger_B12=>15', $i, document.CHSETTINGS.P1215$i.value)\">"

   set j 0
   foreach item {disabled 2 4 8}  {

     if {$j == [set Ch$i.LocalTrigger_B12=>15]} {
        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 "<td align=center width=8%>"

   append html "<select name=P1617$i size=1 \
       onChange=\"click_CHSETTING(document.[set Name], 'LocalTrigger_B16=>17', $i, document.CHSETTINGS.P1617$i.value)\">"

   set j 0
   foreach item {1024 128 8192}  {

     if {$j == [set Ch$i.LocalTrigger_B16=>17]} {
        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 "<td align=center width=8%>"

   append html "<select name=P1819$i size=1 \
       onChange=\"click_CHSETTING(document.[set Name], 'LocalTrigger_B18=>19', $i, document.CHSETTINGS.P1819$i.value)\">"

   set j 0
   foreach item {disabled "veto common" "veto indiv" "see manual"}  {

     if {$j == [set Ch$i.LocalTrigger_B18=>19]} {
        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 "<td align=center width=8%>"

   append html "<select name=P24$i size=1 \
       onChange=\"click_CHSETTING(document.[set Name], 'LocalTrigger_B24', $i, document.CHSETTINGS.P24$i.value)\">"

   set j 0
   foreach item {disabled enabled}  {

     if {$j == [set Ch$i.LocalTrigger_B24]} {
        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 "<td align=center width=8%>"

   append html "<select name=P2526$i size=1 \
       onChange=\"click_CHSETTING(document.[set Name], 'LocalTrigger_B25=>26', $i, document.CHSETTINGS.P2526$i.value)\">"

   set j 0
   foreach item {00 01 10 11}  {

     if {$j == [set Ch$i.LocalTrigger_B25=>26]} {
        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
}