# This is the Group n Buffer Bufs register 0x1n94 read only) for {set i 0} {$i < 8} {incr i} { variable Grp$i.Bufs 0 } proc GetBufs {} { for {set i 0} {$i < 8} {incr i} { variable Grp$i.Bufs set Grp$i.Bufs [ReadRegister Grp$i.Bufs] } } proc DrawBufs {} { set html "" append html "
" append html "
| Group | " append html "Group n Buffer Occupancy | " append html "
| $i | " append html "" append html "" append html " | " append html "