diff --git a/site_ansto/instrument/rsd/config/commands/hvcommands.tcl b/site_ansto/instrument/rsd/config/commands/hvcommands.tcl
deleted file mode 100644
index bdc7aba7..00000000
--- a/site_ansto/instrument/rsd/config/commands/hvcommands.tcl
+++ /dev/null
@@ -1,398 +0,0 @@
-
-set scaleval 1000.0
-
-proc SetVoltScale {newscaleval} {
-	global scaleval
-	set scaleval $newscaleval
-}	
-	
-proc VoltScale {involt} {
-	global scaleval
-	return [expr {($involt*1.0)/$scaleval}]
-}
-	
-proc SetVolt {volt} {
-	if {$volt== 0} {
-		PulserOff
-	} else {
-		set pulservolt [VoltScale $volt]
-		pulser send VOLT:OFFS $pulservolt
-		pulserDC $pulservolt
-		PulserOn
-	}
-}
-
-proc GetVolt {} {
-	pulser send VOLT:OFFS?
-}
-
-proc SingleVolt {volt oscno} {
-	histmem mode unlimited
-	newfile HISTOGRAM_XY
-	if {$volt== 0} {
-		PulserOff
-	} else {
-		set pulservolt [VoltScale $volt]
-		pulser send VOLT:OFFS $pulservolt
-		pulserDC $pulservolt
-		PulserOn
-	}
-	oscmd start $oscno
-	hmm countblock
-	save 0
-	oscmd stop
-}
-
-proc SetDC {} {
-	pulseroff
-	pulser send FUNC DC
-	pulser send VOLT:OFFS 0
-	pulseron
-}
-
-proc VoltRamp {start step fin oscno} {
-	histmem mode unlimited
-
-	newfile HISTOGRAM_XY
-	set loopvar 1
-	set i 0 
-	while {$loopvar} {
-		set j [expr {$i*$step+$start}]
-		if {$j> $fin && $step > 0} {break}
-		if {$j< $fin && $step < 0} {break}
-		if {$j== 0} {
-			PulserOff
-		} else {
-			set pulservolt [VoltScale $j]
-			pulserDC $pulservolt
-			PulserOn
-		}
-		oscmd start $oscno
-		hmm countblock
-		save $i
-		incr i		
-	}
-	oscmd stop
-}
-
-proc VoltTextureRamp {start step fin mot tstart tstep tfin oscno} {
-	histmem mode unlimited
-
-
-	set loopvar 1
-	set i 0 
-	while {$loopvar} {
-		set j [expr {$i*$step+$start}]
-		if {$j> $fin && $step > 0} {break}
-		if {$j< $fin && $step < 0} {break}
-		if {$j== 0} {
-			PulserOff
-		} else {
-			set pulservolt [VoltScale $j]
-			pulserDC $pulservolt
-			PulserOn
-		}
-		sampledescription voltage $j
-		broadcast voltage $j
-		newfile HISTOGRAM_XY
-		set m 0
-		while {1} {
-			set n [expr {$m*$tstep+$tstart}]
-			if {$n> $tfin && $tstep > 0} {break}
-			if {$n< $tfin && $tstep < 0} {break}
-			drive $mot $n
-			oscmd start $oscno
-			hmm countblock
-			save $m
-			incr m	
-		}
-		oscmd stop
-		incr i
-	}
-}
-
-
-proc SquarePulseTexture {motor start step numsteps volt freq bins oscno} {
-	histmem mode unlimited
-	newfile HISTOGRAM_XYT
-	histmem_period_strobo $freq $bins
-	wait 3
-	set pulservolt [VoltScale $volt]
-	PulserSquare $freq $pulservolt
-	PulserOn
-		
-	for {set i 0} {$i < $numsteps} {incr i} {
-      drive $motor [expr $i*$step+$start]
-      oscmd start $oscno
-      hmm countblock
-      save $i
-   }
-	
-	oscmd stop
-}
-
-proc UniPulseTexture {motor start step numsteps volt freq bins oscno} {
-	histmem mode unlimited
-	newfile HISTOGRAM_XYT
-	histmem_period_strobo $freq $bins
-	wait 3
-	set pulservolt [VoltScale [expr ($volt*1.0/2)]]
-	PulserSquareOffs $freq $pulservolt $pulservolt
-	PulserOn
-		
-	for {set i 0} {$i < $numsteps} {incr i} {
-      		drive $motor [expr $i*$step+$start]
-      		oscmd start $oscno
-      		hmm countblock
-      		save $i
-   	}
-	
-	oscmd stop
-}
-
-
-proc BehlkePulseTexture {motor start step numsteps freq bins oscno} {
-	histmem mode unlimited
-	newfile HISTOGRAM_XYT
-	histmem_period_strobo $freq $bins
-	wait 3
- 	PulserSquareOffs $freq 2.5 2.5
-	PulserOn
-	for {set i 0} {$i < $numsteps} {incr i} {
-		drive $motor [expr $i*$step+$start]
-		oscmd start $oscno
-		hmm countblock
-		save $i
-	}
-}
-
-	
-
-proc SquarePulseVolt {start step fin freq bins oscno} {
-	histmem mode unlimited
-	newfile HISTOGRAM_XYT
-	histmem_period_strobo $freq $bins
-	wait 3
-	set loopvar 1
-	set i 0 
-	while {$loopvar} {
-		set j [expr {$i*$step+$start}]
-		if {$j> $fin && $step > 0} {break}
-		if {$j< $fin && $step < 0} {break}
-		if {$j== 0} {
-			PulserOff
-		} else {
-			set pulservolt [VoltScale $j]
-			PulserSquare $freq $pulservolt
-			PulserOn
-#			pulser send "APPL:SQU $freq,$pulservolt,0"
-		}
-		oscmd start $oscno
-		hmm countblock
-		save $i
-		incr i		
-	}
-	oscmd stop
-}
-
-proc SquarePulseFreq {volt freqlist bins oscno} {
-	histmem mode unlimited
-	newfile HISTOGRAM_XYT
-	set loopvar 1
-	set i 0 
-	foreach freq $freqlist {
-		set pulservolt [VoltScale $volt]
-		histmem_period_strobo $freq $bins
-		wait 3
-		PulserSquare $freq $pulservolt
-		PulserOn
-#		pulser send "APPL:SQU $freq,$pulservolt,0"
-		oscmd start $oscno
-		hmm countblock
-		save $i
-		incr i		
-	}
-	oscmd stop
-}
-
-proc BehlkePulseFreq {freqlist bins oscno} {
-	histmem mode unlimited
-	newfile HISTOGRAM_XYT
-	set loopvar 1
-	set i 0
-	foreach freq $freqlist {
-		histmem_period_strobo $freq $bins
-		wait 3
-		PulserSquareOffs $freq 2.5 2.5
-		PulserOn
-		oscmd start $oscno
-		hmm countblock
-		save $i
-		incr i
-	}
-	oscmd stop
-}
-
-proc SinePulseFreq {volt freqlist bins oscno} {
-	histmem mode unlimited
-	newfile HISTOGRAM_XYT
-	set loopvar 1
-	set i 0
-	foreach freq $freqlist {
-		set pulservolt [VoltScale $volt]
-		histmem_period_strobo $freq $bins
-		wait 3
-		PulserSin $freq $pulservolt
-		PulserOn
-		oscmd start $oscno
-		hmm countblock
-		save $i
-		incr i
-	}
-	oscmd stop
-}
-
-
-
-proc UniPulseFreq {volt freqlist bins oscno} {
-	histmem mode unlimited
-	newfile HISTOGRAM_XYT
-	set loopvar 1
-	set i 0 
-	foreach freq $freqlist {
-		set pulservolt [VoltScale [expr ($volt*1.0/2)]]
-		histmem_period_strobo $freq $bins
-		wait 3
-#	PulserSquareOffs $freq $pulservolt [expr {$pulservolt/2}]
-	PulserSquareOffs $freq $pulservolt $pulservolt
-		PulserOn
-#		pulser send "APPL:SQU $freq,$pulservolt,[expr {$pulservolt/2}]"
-		oscmd start $oscno
-		hmm countblock
-		save $i
-		incr i		
-	}
-	oscmd stop
-}
-
-proc UniPulseFatigue {volt freq bins oscno reps runs} {
-	histmem mode unlimited
-	set pulservolt [VoltScale $volt]
-	set halfvolt [expr {$pulservolt/2.0}]
-	histmem_period_strobo $freq $bins
-	wait 3
-	PulserSquareOffs $freq $halfvolt $halfvolt
-	PulserOn
-	for {set i 0} {$i<$runs} {incr i} {
-		newfile HISTOGRAM_XYT
-		for {set j 0} {$j<$reps} {incr j} {
-			oscmd start $oscno
-			hmm countblock
-			save $j
-		}
-		oscmd stop
-	}
-	PulserOff
-	Histmem_strobo_off
-
-}
-
-	
-
-
-proc PulserBurst {} {
-	pulser send BURS:MODE TRIG
-	pulser send TRIG:SOUR BUS
-	pulser send BURS:STAT ON
-	PulserOn
-	pulser send *TRG
-	while {1} {
-		set sval [pulser send *OPC?]
-		if {[string first 1 $sval] >-1} {break}
-	}
-	PulserOff
-
-}
-
-
-proc VoltPulseRun {vlo vhi freq cycl} {
-	PulserOff
-
-	pulser send VOLT:LOW [VoltScale $vlo]
-	pulser send VOLT:HIGH [VoltScale $vhi]
-	pulser send FREQ $freq
-	pulser send BURS:PHAS [expr {90.0 - ($vhi*180.0)/(($vhi-$vlo)*1.0)}]
-	pulser send BURS:MODE TRIG
-	set ploop [expr {int($cycl/50000)}]
-	set prem [expr {$cycl % 50000}]
-	if {$ploop >0} {
-		for {set i 0} {$i< $ploop} {incr i} {
-			Pulser send BURS:NCYC 50000
-			PulserBurst
-		}
-	}
-	pulser send BURS:NCYC $prem
-	PulserBurst
-	PulserOff
-	pulser send BURS:STAT OFF
-
-}
-
-
-proc VoltPulses {vlo vhi freq cycl} {
-	PulserOff 
-	pulser send FUNC SQU
-	VoltPulseRun $vlo $vhi $freq $cycl
-}
-
-proc VoltTriPulses {vlo vhi freq cycl} {
-	PulserOff
-	pulser send FUNC RAMP
-	pulser send FUNC:RAMP:SYMM 50
-	VoltPulseRun $vlo $vhi $freq $cycl 
-}
-
-proc OneTri {volt period} {
-	PulserOff
-	if {$volt > 0} {
-		pulser send VOLT:LOW 0
-		pulser send VOLT:HIGH [VoltScale $volt]
-		pulser send BURS:PHAS -90
-	} else {
-		pulser send VOLT:LOW [VoltScale $volt]
-		pulser send VOLT:HIGH 0
-		pulser send BURS:PHAS 90
-	}
-	pulser send FUNC RAMP
-	pulser send FUNC:RAMP:SYMM 50
-	pulser send FREQ [expr {1.0/$period}]
-
-	pulser send BURS:MODE TRIG
-
-	pulser send BURS:NCYC 1
-	PulserBurst
-	PulserOff
-}
-
-	
-
-publish GetVolt user
-publish SetDC user
-publish SetVolt user
-publish SingleVolt user
-publish VoltRamp user
-publish SquarePulseVolt user
-publish SquarePulseFreq user
-publish UniPulseFreq user
-publish VoltTextureRamp user
-publish VoltPulses user
-publish VoltTriPulses user
-publish OneTri user
-publish UniPulseFatigue user
-publish SetVoltScale user
-publish SquarePulseTexture user
-publish BehlkePulseTexture user
-publish BehlkePulseFreq user
-publish UniPulseTexture user
-
-
diff --git a/site_ansto/instrument/rsd/config/commands/pulser.tcl b/site_ansto/instrument/rsd/config/commands/pulser.tcl
deleted file mode 100644
index bdb04055..00000000
--- a/site_ansto/instrument/rsd/config/commands/pulser.tcl
+++ /dev/null
@@ -1,75 +0,0 @@
-proc PulserOn {} {
-	pulser send "OUTP ON"
-
-}
-
-proc PulserOff {} {
-	pulser send "OUTP OFF"
-
-}
-
-proc PulserTTLOn {} {
-	set resp [pulser send FUNC?]
-	if {[string first "DC" $resp ] == -1 } {
-		pulser send FUNC DC
-	}
-	pulser send VOLT:OFFS 5
-	PulserOn
-}
-
-
-proc PulserSin {Freq Volt} {
-	set resp [pulser send FUNC?]
-	if {[string first "SIN" $resp ] == -1 } {
-		pulser send FUNC SIN
-	}
-	pulser send VOLT $Volt
-	pulser send FREQ $Freq
-	pulser send VOLT:OFFS 0
-
-}
-
-proc PulserSquare {Freq Volt} {
-	set resp [pulser send FUNC?]
-	if {[string first "SQU" $resp ] == -1 } {
-		pulser send FUNC SQU
-	}
-	pulser send VOLT $Volt
-	pulser send FREQ $Freq
-	pulser send VOLT:OFFS 0
-
-}
-
-proc PulserSquareOffs {Freq Volt Offs} {
-	set resp [pulser send FUNC?]
-	if {[string first "SQU" $resp ] == -1 } {
-		pulser send FUNC SQU
-	}
-	pulser send VOLT $Volt
-	pulser send FREQ $Freq
-	pulser send VOLT:OFFS $Offs
-
-}
-
-
-proc PulserDC {Volt} {
-	set resp [pulser send FUNC?]
-	if {[string first "DC" $resp ] == -1 } {
-		pulser send FUNC DC
-	}
-	pulser send VOLT:OFFS $Volt
-	set resp [pulser send FUNC?]
-	broadcast $resp
-
-}
-
-	
-
-
-publish PulserOn user
-publish PulserOff user
-publish PulserSin user
-publish PulserSquare user
-publish PulserDC user
-publish PulserSquareOffs user
-publish PulserTTLOn user