#    This is the module register Front Panel I/O Control   0x811c


    variable FPIO 0
    variable FPIO.B18 0
    variable FPIO.B16 0
    variable FPIO.B15 0
    variable FPIO.B14 0
    variable FPIO.B11 0
    variable FPIO.B10 0
    variable FPIO.B9 0
    variable FPIO.B6 0
    variable FPIO.B5 0
    variable FPIO.B4 0
    variable FPIO.B3 0
    variable FPIO.B2 0
    variable FPIO.B1 0
    variable FPIO.B0 0


   proc GetFPIO {} {
      variable FPIO 
      variable FPIO.B18 
      variable FPIO.B16
      variable FPIO.B15
      variable FPIO.B14
      variable FPIO.B11
      variable FPIO.B10
      variable FPIO.B9
      variable FPIO.B6
      variable FPIO.B5 
      variable FPIO.B4 
      variable FPIO.B3 
      variable FPIO.B2 
      variable FPIO.B1 
      variable FPIO.B0

       set FPIO [ReadRegister FPIOControl]

       set FPIO.B0 [expr $FPIO & 1]
       set FPIO.B1 [expr ($FPIO >> 1) & 1]
       set FPIO.B2 [expr ($FPIO >> 2) & 1]
       set FPIO.B3 [expr ($FPIO >> 3) & 1]
       set FPIO.B4 [expr ($FPIO >> 4) & 1]
       set FPIO.B5 [expr ($FPIO >> 5) & 1]
       set FPIO.B6 [expr ($FPIO >> 6) & 7]
       set FPIO.B9 [expr ($FPIO >> 9) & 1]
       set FPIO.B10 [expr ($FPIO >> 10) & 1]
       set FPIO.B11 [expr ($FPIO >> 11) & 1]
       set FPIO.B14 [expr ($FPIO >> 14) & 1]
       set FPIO.B15 [expr ($FPIO >> 15) & 1]
       set FPIO.B16 [expr ($FPIO >> 16) & 3]       
       set FPIO.B18 [expr ($FPIO >> 18) & 3]
    }

   proc SetFPIO {} {
      variable FPIO 
      variable FPIO.B18 
      variable FPIO.B16 
      variable FPIO.B15
      variable FPIO.B14
      variable FPIO.B11
      variable FPIO.B10
      variable FPIO.B9
      variable FPIO.B6 
      variable FPIO.B5 
      variable FPIO.B4 
      variable FPIO.B3 
      variable FPIO.B2 
      variable FPIO.B1 
      variable FPIO.B0

      set FPIO [expr \
                     ([set FPIO.B18] << 18) | \
                     ([set FPIO.B16] << 16) | \
                     ([set FPIO.B15] << 15) | \
                     ([set FPIO.B14] << 14) | \
                     ([set FPIO.B11] << 11) | \
                     ([set FPIO.B10] << 10) | \
                     ([set FPIO.B9] << 9) | \
                     ([set FPIO.B6] << 6) | \
                     ([set FPIO.B5] << 5) | \
                     ([set FPIO.B4] << 4) | \
                     ([set FPIO.B3] << 3) | \
                     ([set FPIO.B2] << 2) | \
                     ([set FPIO.B1] << 1) | \
                     ([set FPIO.B0])]

      WriteRegister FPIOControl $FPIO
   }




proc DrawFPIO {} {
    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=11%>LVDS GPIO Mode</td>"
   append html  "<td  align=center width=11%>LVDS I/O 15..12</td>"
   append html  "<td  align=center width=11%>LVDS I/O 11..8</td>"
   append html  "<td  align=center width=11%>LVDS I/O 7..4</td>"
   append html  "<td  align=center width=11%>LVDS I/O 3..0</td>"
   append html  "<td  align=center width=11%>LVDS GPIO Output</td>"
   append html  "<td  align=center width=11%>LEMO I/O</td>"
   append html  "</tr><tr>"


#    Bit 6/8

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

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

   set j 0
   foreach item {"General Purpose I/O" "Programmed I/O" "Trigger pattern" "Individual trigger"}  {
     if {$j == [set ::[set Name]::FPIO.B6]} {
        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 5

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

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

   set j 0
   foreach item {"input" "output"}  {
     if {$j == [set ::[set Name]::FPIO.B5]} {
        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:

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

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

   set j 0
   foreach item {"input" "output"}  {
     if {$j == [set ::[set Name]::FPIO.B4]} {
        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:

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

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

   set j 0
   foreach item {"input" "output"}  {
     if {$j == [set ::[set Name]::FPIO.B3]} {
        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 2:

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

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

   set j 0
   foreach item {"input" "output"}  {
     if {$j == [set ::[set Name]::FPIO.B2]} {
        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 1:

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

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

   set j 0
   foreach item {"enabled" "high impedance"}  {
     if {$j == [set ::[set Name]::FPIO.B1]} {
        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 0:

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

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

   set j 0
   foreach item {NIM TTL}  {
     if {$j == [set ::[set Name]::FPIO.B0]} {
        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 "</tr>"
   append html  "<td  align=center width=11%>Virtual Probe => TRGOUT</td>"
   append html  "<td  align=center width=11%>TRGOUT/GPIO Mode</td>"
   append html  "<td  align=center width=11%>TRG-OUT/GPIO Test Mode</td>"
   append html  "<td  align=center width=11%>Force TRG-OUT/GPIO</td>"
   append html  "<td  align=center width=11%>EXT TRG Opt</td>"
   append html  "<td  align=center width=11%>bit 10?</td>"
   append html  "<td  align=center width=11%>Trigger Pattern Mode</td>"
   append html  "</tr><tr>"


#    Bit 18:19: 

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

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

   set j 0
   foreach item {"RUN" "Trigger Sampling CLK (125 MHz)" "Trigger Sampling CLK (62.5 MHz)" "11"}  {
     if {$j == [set ::[set Name]::FPIO.B18]} {
        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:17:

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

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

   set j 0
   foreach item {"00" "01" "10" "11"}  {
     if {$j == [set ::[set Name]::FPIO.B16]} {
        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 15:

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

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

   set j 0
   foreach item {disabled enabled}  {
     if {$j == [set ::[set Name]::FPIO.B15]} {
        append html "<option value=$j selected>$item</option>"
     } else {
        append html "<option value=$j>$item</option>"
     }
     incr j
   }

#    Bit 14:

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

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

   set j 0
   foreach item {0 1}  {
     if {$j == [set ::[set Name]::FPIO.B14]} {
        append html "<option value=$j selected>$item</option>"
     } else {
        append html "<option value=$j>$item</option>"
     }
     incr j
   }

#    Bit 11:

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

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

   set j 0
   foreach item {"not propagated" "propagated"}  {
     if {$j == [set ::[set Name]::FPIO.B11]} {
        append html "<option value=$j selected>$item</option>"
     } else {
        append html "<option value=$j>$item</option>"
     }
     incr j
   }

#    Bit 10:

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

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

   set j 0
   foreach item {"0" "1"}  {
     if {$j == [set ::[set Name]::FPIO.B10]} {
        append html "<option value=$j selected>$item</option>"
     } else {
        append html "<option value=$j>$item</option>"
     }
     incr j
   }

#    Bit 9:

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

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

   set j 0
   foreach item {0 1}  {
     if {$j == [set ::[set Name]::FPIO.B9]} {
        append html "<option value=$j selected>$item</option>"
     } else {
        append html "<option value=$j>$item</option>"
     }
     incr j
   }

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

    return $html
}