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
