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




    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=>13 0
        variable Ch$i.LocalTrigger_B14=>15 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=>13 
        variable Ch$i.LocalTrigger_B14=>15

        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=>13 [expr ([set Ch$i.LocalTrigger] >> 12) & 3]
        set Ch$i.LocalTrigger_B14=>15 [expr ([set Ch$i.LocalTrigger] >> 14) & 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=>13 
        variable Ch$i.LocalTrigger_B14=>15

      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=>13] << 12) | \
         ([set Ch$i.LocalTrigger_B14=>15] << 14)]

         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=>13 
        variable Ch$i.LocalTrigger_B14=>15
     }



   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=11%>Local Trigger Mode</td>"
   append html  "<td  align=center width=11%>Enable LT Mode</td>"
   append html  "<td  align=center width=11%>LT Validation Mode</td>"
   append html  "<td  align=center width=11%>Enable LT Val Mode</td>"
   append html  "<td  align=center width=11%>LT Validation is Veto</td>"
   append html  "<td  align=center width=11%>Extras Word options</td>"
   append html  "<td  align=center width=11%>CFD Fraction</td>"
   append html  "<td  align=center width=11%>Reserved</td>"
   append html  "</tr>"

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

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


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

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

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

   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" "coincidence 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=11%>"

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

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

   set j 0
   foreach item {disable enable}  {

     if {$j == [set Ch$i.LocalTrigger_B07]} {
        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=11%>"

   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" "reserved" "Extended TS + flags + Fine TS" "reserved" "reserved" "reserved" "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=11%>"

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

   set j 0
   foreach item {25% 50% 75% 100%}  {

     if {$j == [set Ch$i.LocalTrigger_B12=>13]} {
        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=11%>"

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

   set j 0
   foreach item {reserved}  {

     if {$j == [set Ch$i.LocalTrigger_B14=>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  "</tr>"
}
   append html  "</table>"

   append html  "</p>"

   return $html
}