diff --git a/site_ansto/instrument/config/environment/magneticField/sct_oxford_ips.tcl b/site_ansto/instrument/config/environment/magneticField/sct_oxford_ips.tcl index fc381772..f3817e3d 100644 --- a/site_ansto/instrument/config/environment/magneticField/sct_oxford_ips.tcl +++ b/site_ansto/instrument/config/environment/magneticField/sct_oxford_ips.tcl @@ -36,6 +36,14 @@ debug_log "chkWrite resp=$data sct=[sct] tc_root=$tc_root" sct geterror "$data" } elseif {[string equal -nocase -length 1 $data "?"]} { sct geterror "Error: $data" + } else { + set data [sct target] + if {$data != [sct oldval]} { + sct oldval $data + sct update $data + sct utime readtime +debug_log "chkWrite new data for $tc_root [sct] result=$data" + } } return idle } @@ -74,6 +82,12 @@ debug_log "setPoint: sct=[sct] target=[sct target] writestatus=[sct writestatus] sct print "Driving Persistent Field ([hval $tc_root/Display/PstntField]) to target ([sct target])" } set par "[sct target]" + if {$par != [sct oldval]} { + sct oldval $par + sct update $par + sct utime readtime +debug_log "setPoint new data for $tc_root [sct] result=$par" + } hset $tc_root/status "busy" sct print "status: busy" hset $tc_root/drive_state "START"