#    This is the register Group n Status 0x1n88  (read only)


    for {set i 0} {$i < 4} {incr i} {
        variable Grp$i.Status 0
        variable Grp$i.Status.DRSBusy 0
        variable Grp$i.Status.GRPOddPLLLock 0
        variable Grp$i.Status.GRPEvenPLLLock 0
        variable Grp$i.Status.GRPOddEnabled 0
        variable Grp$i.Status.GRPEvenEnabled 0
        variable Grp$i.Status.SPIBusy 0
        variable Grp$i.Status.MemEmpty 0
        variable Grp$i.Status.MemFull 0
    }


    proc GetGrpStatus {} {

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

            variable Grp$i.Status
            variable Grp$i.Status.DRSBusy
            variable Grp$i.Status.GRPOddPLLLock 
            variable Grp$i.Status.GRPEvenPLLLock
            variable Grp$i.Status.GRPOddEnabled
            variable Grp$i.Status.GRPEvenEnabled
            variable Grp$i.Status.SPIBusy
            variable Grp$i.Status.MemEmpty
            variable Grp$i.Status.MemFull

           set Grp$i.Status [ReadRegister Grp$i.Status]
           
           set Grp$i.Status.DRSBusy [expr ([set Grp$i.Status] >> 8) & 1]
           set Grp$i.Status.GRPOddPLLLock [expr ([set Grp$i.Status] >> 7) & 1]
           set Grp$i.Status.GRPEvenPLLLock [expr ([set Grp$i.Status] >> 6) & 1]
           set Grp$i.Status.GRPOddEnabled [expr ([set Grp$i.Status] >> 4) & 1]
           set Grp$i.Status.GRPEvenEnabled [expr ([set Grp$i.Status] >> 3) & 1]
           set Grp$i.Status.SPIBusy [expr ([set Grp$i.Status] >> 2) & 1]
           set Grp$i.Status.MemEmpty [expr ([set Grp$i.Status] >> 1) & 1]
           set Grp$i.Status.MemFull [expr [set Grp$i.Status] & 1]
        }
   }


proc DrawGrpStatus {} {

   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=12%>Group</td>"
   append html  "<td  align=center width=11%>DRS Chips Busy</td>"
   append html  "<td  align=center width=11%>Group Odd PLL Lock</td>"
   append html  "<td  align=center width=11%>Group Even PLL Lock</td>"
   append html  "<td  align=center width=11%>Group Odd enabled</td>"
   append html  "<td  align=center width=11%>Group Even enabled</td>"
   append html  "<td  align=center width=11%>SPI Bus Busy</td>"
   append html  "<td  align=center width=11%>Memory empty</td>"
   append html  "<td  align=center width=11%>Memory full</td>"
   append html  "</tr>"
  
for {set i 0} {$i < 4} {incr i} {

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

   append html "<td align=center width=11%>"
      append html "<input type=radio name=P8$i [if {[set ::V1742::Grp$i.Status.DRSBusy] == 1} {set x "checked"}]>"
   append html "</td>"

   append html "<td align=center width=11%>"
      append html "<input type=radio name=P7$i [if {[set ::V1742::Grp$i.Status.GRPOddPLLLock] == 1} {set x "checked"}]>"
   append html "</td>"

   append html "<td align=center width=11%>"
      append html "<input type=radio name=P6$i [if {[set ::V1742::Grp$i.Status.GRPEvenPLLLock] == 1} {set x "checked"}]>"
   append html "</td>"

   append html "<td align=center width=11%>"
      append html "<input type=radio name=P4$i [if {[set ::V1742::Grp$i.Status.GRPOddEnabled] == 1} {set x "checked"}]>"
   append html "</td>"

   append html "<td align=center width=11%>"
      append html "<input type=radio name=P3$i [if {[set ::V1742::Grp$i.Status.GRPEvenEnabled] == 1} {set x "checked"}]>"
   append html "</td>"

   append html "<td align=center width=11%>"
      append html "<input type=radio name=P2$i [if {[set ::V1742::Grp$i.Status.SPIBusy] == 1} {set x "checked"}]>"
   append html "</td>"

   append html "<td align=center width=11%>"
      append html "<input type=radio name=P1$i [if {[set ::V1742::Grp$i.Status.MemEmpty] == 1} {set x "checked"}]>"
   append html "</td>"

   append html "<td align=center width=11%>"
      append html "<input type=radio name=P0$i [if {[set ::V1742::Grp$i.Status.MemFull] == 1} {set x "checked"}]>"
   append html "</td>"

   append html  "</tr>"
}


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

   return $html

}