26 lines
447 B
Plaintext
26 lines
447 B
Plaintext
(author: Chris P)
|
|
(version: 0.3)
|
|
(date: 06/27/24)
|
|
|
|
(m6 tool call with g43 offset applied)
|
|
|
|
o<m6_tool_call_atc_page> sub
|
|
|
|
#<tool_number_entry_atc_page> = #1
|
|
#<probe_tool_number> = #3014
|
|
|
|
T#<tool_number_entry_atc_page> M6
|
|
o100 if [1 EQ 1]
|
|
G43 H#<tool_number_entry_atc_page>
|
|
o100 endif
|
|
|
|
o110 if [#<tool_number_entry_atc_page> EQ #<probe_tool_number>]
|
|
S0 M5
|
|
o110 endif
|
|
|
|
o<program_coolant> call
|
|
|
|
o<m6_tool_call_atc_page> endsub
|
|
|
|
M2 (end program)
|