O<toolchange> sub
(debug, Tool requested = #<tool>)
O100 IF [#<tool> LT 100]
    #<tool> = [#<tool> * 100]
O100 ENDIF
#<toolnum> = [FIX[ #<tool>  / 100]]
#<wear> = [10000 + #<tool> MOD 100]
M6 T#<toolnum>
G43 H#<toolnum>
O101 IF [#<wear> GT 10000]
    (debug, wear applied)
    G43.2 H#<wear>
O101 ENDIF
#<pocket> = #<toolnum>
(debug, tool = #<toolnum> wear = #<wear>)
O<toolchange> endsub [0]
