12 lines
228 B
Plaintext
12 lines
228 B
Plaintext
o<myspindlespeedup> sub
|
|
;o10 if [#<_spindle_on> EQ 1]
|
|
#<speed-cmd> = [#<_rpm>+100]
|
|
O10 if [#<speed-cmd> GT 4500]
|
|
#<speed-cmd> = 4500
|
|
O10 endif
|
|
S#<speed-cmd>
|
|
M3
|
|
;o10 endif
|
|
o<myspindlespeedup> endsub
|
|
M2
|