#    This is the group Channel DC Offset register  0x1n98  (and 0x1na4)


    for {set i 0} {$i < 4} {incr i} {
        variable Grp$i.SEL 0
        for {set j 0} {$j < 8} {incr j} {
            variable Grp$i.Ch$j.DAC 0
        }
    }


proc GetDAC {} {

    for {set i 0} {$i < 4} {incr i} {
        for {set j 0} {$j < 8} {incr j} {
            WriteRegister Grp$i.DACSel $j
            variable Grp$i.Ch$j.DAC
            set Grp$i.Ch$j.DAC [expr [ReadRegister Grp$i.DCOffset] & 0x0000ffff]
        }
        variable Grp$i.SEL
        set Grp$i.SEL [ReadRegister Grp$i.DACSel]
    }
}

proc SetDAC {} {

    for {set i 0} {$i < 4} {incr i} {
       for {set j 0} {$j < 8} {incr j} {
        variable Grp$i.Ch$j.DAC
        WriteRegister Grp$i.DCOffset [expr ($j << 16) + ([set Grp$i.Ch$j.DAC] & 0x0000ffff)]
       }
    }
}

    proc SaveDAC {} {

      for {set i 0} {$i < 4} {incr i} {
         for {set j 0} {$j < 8} {incr j} {
            WriteRegister Grp$i.DACSel $j
            DBSetValue Grp$i.Ch$j.DCOffset [expr [ReadRegister Grp$i.DCOffset] & 0x0000ffff]
         }
      }
    }

    proc RestDAC {} {

      for {set i 0} {$i < 4} {incr i} {
        for {set j 0} {$j < 8} {incr j} {
          WriteRegister Grp$i.DCOffset [expr ($j << 16) + ([DBGetValue Grp$i.Ch$j.DCOffset] & 0x0000ffff)]
        }
      }
    }


proc DrawDAC {} {

   set html ""

   append html  "<p align=center>"
   append html  "<table cellpadding=0 cellspacing=0 border=1 width=80%>"

   append html "<tr>"
   append html  "<td  align=center width=8%>Group</td>"
   for {set j 0} {$j < 4} {incr j} {
      append html  "<td  align=center width=23%>Ch $j/[expr $j+4]</td>"
   }
   append html  "</tr>"


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

   append html "<tr>"
   append html "<td align=center width=8%>$i</td>"
   for {set j 0} {$j < 4} {incr j} {
      set s [expr ($i * 8) + $j]
      append html "<td align=center width=23%><div id=\"Offset$s\"></div>&nbsp;</td>"
   }
   append html  "</tr>"
   append html "<tr>"
   append html "<td align=center width=8%>&nbsp;</td>"
   for {set j 4} {$j < 8} {incr j} {
      set s [expr ($i * 8) + $j]
      append html "<td align=center width=23%><div id=\"Offset$s\"></div>&nbsp;</td>"
   }
   append html  "</tr>"
}
   append html  "</table>"

   append html "<script>"

   append html "SliderID('DAC');"

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

      set s [expr ($i * 8) + $j]

      append html "SelectSlider($s); SetSlider(0,65535,25,120);"
      append html "MakeSlider(document.V1742, $s, [set ::V1742::Grp$i.Ch$j.DAC]);"

      append html "function Set_Offset[set s](Obj, val, newPos){"
      append html "document.V1742.Widget.value = 'DCOFFSET ' + sliderID + ' [set s] ' + val;"
      append html "document.V1742.submit();}"

      append html "function Set_Change[set s](Obj) {"
      append html "document.V1742.Widget.value = 'DCOFFSET ' + sliderID + ' [set s] ' + Obj.getValue();"
      append html "setTimeout(\"document.V1742.submit();\",sliderDelay);}"

   }
}

   append html "</script>"

   append html  "</p>"

   return $html
}