#    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 {"00" "01" "10" "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
}