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



    variable FPIO 0
    variable FPIO.B18 0
    variable FPIO.B16 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.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.B16 [expr ($FPIO >> 16) & 3]       
       set FPIO.B18 [expr ($FPIO >> 18) & 3]
    }

   proc SetFPIO {} {
      variable FPIO 
      variable FPIO.B18 
      variable FPIO.B16 
      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.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%>Virtual Probe => TRGOUT</td>"
   append html  "<td  align=center width=11%>TRGOUT/GPIO Mode</td>"
   append html  "<td  align=center width=11%>LVDS GPIO Mode</td>"
   append html  "<td  align=center width=11%>LVDS I/O 18..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 18:19: 

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

   append html "<select name=P18 size=1 \
       onChange=\"click_MSETTING(document.[set Name], 'FPIO.B18', document.MSETTINGS.P18.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=P16 size=1 \
       onChange=\"click_MSETTING(document.[set Name], 'FPIO.B16', document.MSETTINGS.P16.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 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=P12 size=1 \
       onChange=\"click_MSETTING(document.[set Name], 'FPIO.B0', document.MSETTINGS.P12.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  "</table>"
   append html  "</p>"

    return $html
}