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


    for {set i 0} {$i < 8} {incr i} {
        variable Ch$i.Status 0
        variable Ch$i.Status.b8 0
        variable Ch$i.Status.b7 0
        variable Ch$i.Status.b6 0
        variable Ch$i.Status.b5 0
        variable Ch$i.Status.b2 0
        variable Ch$i.Status.b1 0
        variable Ch$i.Status.b0 0
    }


    proc GetChStatus {} {

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

            variable Ch$i.Status
            variable Ch$i.Status.b8 
            variable Ch$i.Status.b7 
            variable Ch$i.Status.b6 
            variable Ch$i.Status.b5 
            variable Ch$i.Status.b2 
            variable Ch$i.Status.b1 
            variable Ch$i.Status.b0 

           set Ch$i.Status [ReadRegister Ch$i.Status]
           
           set Ch$i.Status.b8 [expr ([set Ch$i.Status] >> 8) & 1]
           set Ch$i.Status.b7 [expr ([set Ch$i.Status] >> 7) & 1]
           set Ch$i.Status.b6 [expr ([set Ch$i.Status] >> 6) & 1]
           set Ch$i.Status.b5 [expr ([set Ch$i.Status] >> 5) & 1]
           set Ch$i.Status.b2 [expr ([set Ch$i.Status] >> 2) & 1]
           set Ch$i.Status.b1 [expr ([set Ch$i.Status] >> 1) & 1]
           set Ch$i.Status.b0 [expr [set Ch$i.Status] & 1]
        }
   }


proc DrawChStatus {} {

   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=8%>Channel</td>"
   append html  "<td  align=center width=13%>Channel Over temperature</td>"
   append html  "<td  align=center width=13%>Channel power down</td>"
   append html  "<td  align=center width=13%>Calibration done</td>"
   append html  "<td  align=center width=13%>Buffer free error</td>"
   append html  "<td  align=center width=13%>Channel n ADC Busy</td>"
   append html  "<td  align=center width=13%>Memory empty</td>"
   append html  "<td  align=center width=13%>Memory full</td>"
   append html  "</tr>"
  
for {set i 0} {$i < 8} {incr i} {

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

   append html "<td align=center width=13%>"
      append html "<input type=radio name=P5$i [if {[set ::V1751::Ch$i.Status.b8] == 1} {set x "checked"}]>"
   append html "</td>"

   append html "<td align=center width=13%>"
      append html "<input type=radio name=P4$i [if {[set ::V1751::Ch$i.Status.b7] == 1} {set x "checked"}]>"
   append html "</td>"

   append html "<td align=center width=13%>"
      append html "<input type=radio name=P3$i [if {[set ::V1751::Ch$i.Status.b6] == 1} {set x "checked"}]>"
   append html "</td>"

   append html "<td align=center width=13%>"
      append html "<input type=radio name=P2$i [if {[set ::V1751::Ch$i.Status.b5] == 1} {set x "checked"}]>"
   append html "</td>"

   append html "<td align=center width=13%>"
      append html "<input type=radio name=P2$i [if {[set ::V1751::Ch$i.Status.b2] == 1} {set x "checked"}]>"
   append html "</td>"

   append html "<td align=center width=13%>"
      append html "<input type=radio name=P1$i [if {[set ::V1751::Ch$i.Status.b1] == 1} {set x "checked"}]>"
   append html "</td>"

   append html "<td align=center width=13%>"
      append html "<input type=radio name=P0$i [if {[set ::V1751::Ch$i.Status.b0] == 1} {set x "checked"}]>"
   append html "</td>"

   append html  "</tr>"
}


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

   return $html

}