#    This is the Channel n Buffer Bufs register  0x1n94   read only)


    for {set i 0} {$i < $NumChans} {incr i} {
        variable Ch$i.Bufs 0
    }

proc GetBufs {} {
   variable NumChans

    for {set i 0} {$i < $NumChans} {incr i} {
        variable Ch$i.Bufs
        set Ch$i.Bufs [ReadRegister Ch$i.Bufs]
    }
}


proc DrawBufs {} {
    variable Name

   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=10%>Channel</td>"
   append html  "<td  align=center width=90%>Channel n Buffer Occupancy</td>"
   append html  "</tr>"

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


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

   append html "<td align=center width=90%>"
      append html "<input type=text name=Bufs$i size=4 readonly value=[set ::[set Name]::Ch$i.Bufs]>"
   append html "</td>"

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

     return $html
}