17 lines
394 B
Plaintext
17 lines
394 B
Plaintext
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]
|