o<gtk_probe_xminus> sub

#<x>=#<_x>  (save start X position)
(PRINT, position #<_x> ) 
G91
F #<_hal[probe.ps_searchvel]>
G38.2 X[-#<_hal[probe.ps_probe_max]>]
G1 X[#<_hal[probe.ps_probe_latch]>] F#<_ini[TOOLSENSOR]RAPID_SPEED> 
F #<_hal[probe.ps_probevel]>
G4 P0.5
G38.2 X[-#<_hal[probe.ps_probe_latch]>*2]
(print, probe X=#5061 )
G90
(PRINT, back to start point #<x>)
G1 X#<x> F#<_ini[TOOLSENSOR]RAPID_SPEED> 

o<gtk_probe_xminus> endsub
M2
