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



    variable FPIO 0
    variable FPIO.B15 0
    variable FPIO.B14 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.B15
      variable FPIO.B14
      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) & 3]
       set FPIO.B14 [expr ($FPIO >> 14) & 1]
       set FPIO.B15 [expr ($FPIO >> 15) & 1]

    }

   proc SetFPIO {} {
      variable FPIO
      variable FPIO.B15
      variable FPIO.B14
      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.B15] << 15) | \
                     ([set FPIO.B14] << 14) | \
                     ([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 {} {

   set html ""

   append html  "<p align=center width=100%>"
   append html  "<table border=1>"

   append html  "<tr>"
   append html  "<td  align=center width=10%>TRGOUT</td>"
   append html  "<td  align=center width=10%>TRGOUT Test Mode</td>"
   append html  "<td  align=center width=10%>LVDS GPIO Mode</td>"
   append html  "<td  align=center width=10%>LVDS I/O 15..12</td>"
   append html  "<td  align=center width=10%>LVDS I/O 11..8</td>"
   append html  "<td  align=center width=10%>LVDS I/O 7..4</td>"
   append html  "<td  align=center width=10%>LVDS I/O 3..0</td>"
   append html  "<td  align=center width=10%>LVDS GPIO Output</td>"
   append html  "<td  align=center width=10%>LEMO I/O</td>"
   append html  "</tr><tr>"

#    Bit 15: 

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

   append html "<select name=P15 size=1 \
       onChange=\"click_MSETTING(document.V1742, 'FPIO.B15', document.MSETTINGS.P15.value)\">"

   set j 0
   foreach item {"normal" "test"}  {
     if {$j == [set ::V1742::FPIO.B15]} {
        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 14:

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

   append html "<select name=P14 size=1 \
       onChange=\"click_MSETTING(document.V1742, 'FPIO.B14', document.MSETTINGS.P14.value)\">"

   set j 0
   foreach item {"0" "1"}  {
     if {$j == [set ::V1742::FPIO.B14]} {
        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/7

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

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

   set j 0
   foreach item {"General Purpose I/O" "Programmed I/O" "Pattern mode"}  {
     if {$j == [set ::V1742::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.V1742, 'FPIO.B5', document.MSETTINGS.P5.value)\">"

   set j 0
   foreach item {"input" "output"}  {
     if {$j == [set ::V1742::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.V1742, 'FPIO.B4', document.MSETTINGS.P4.value)\">"

   set j 0
   foreach item {"input" "output"}  {
     if {$j == [set ::V1742::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.V1742, 'FPIO.B3', document.MSETTINGS.P3.value)\">"

   set j 0
   foreach item {"input" "output"}  {
     if {$j == [set ::V1742::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.V1742, 'FPIO.B2', document.MSETTINGS.P2.value)\">"

   set j 0
   foreach item {"input" "output"}  {
     if {$j == [set ::V1742::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.V1742, 'FPIO.B1', document.MSETTINGS.P1.value)\">"

   set j 0
   foreach item {"enabled" "high impedance"}  {
     if {$j == [set ::V1742::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.V1742, 'FPIO.B0', document.MSETTINGS.P12.value)\">"

   set j 0
   foreach item {NIM TTL}  {
     if {$j == [set ::V1742::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
}