```
o<m10> sub

; Move tool carousel best direction to pocket P
; Parameter #5170 is used to track the current tool pocket (persistently)

O110 if [#5171 NE 1]
     M13 
O110 endif


#<steps> = [#5170 - #<p>]
(print, o<M10> P#<p>, steps=#<steps>)
o1000 if [#<steps> GT 6]
    #<steps>=[#<steps> - 12]
o1000 endif
o1001 if [#<steps> LT -6]
    #<steps>=[#<steps> + 12]
o1001 endif


o1003 if [#<steps> GT 0]

    M12 P[#<steps>]
    
o1003 elseif [#<steps> LT 0]
    #<steps>=[#<steps> * -1]
    M11 P[#<steps>]
o1003 endif

o<m10> endsub [1]

M2