Rigid Tapping with a speed controlled spindle

(info: Rigid Tapping)

o<tap>sub
#<thread-type> = #1 (=0 0=TPI 1=MM)
#<thread> = #2 (TPI/Pitch)
#<Z_Start> = #3 (=0.100 Z Clearance)
#<T_Depth> = #4 (End of Thread)
#<RPM> = #5 (Spindle RPM)
#<ToolNumber> = #6 (Tool Number)
#<Coolant> = #7 (=8 Coolant 8 On 9 Off)

G7 G17 G20 G40 G80
T#<ToolNumber> M6 G43

o110 if [#<thread-type> EQ 0]
  #<pitch> = [1 / #<thread>]
  G20
o110 else
  #<pitch> = #<thread>
  G21
o110 endif


; Tap the Hole
o120 if [#<thread-type> EQ 0 OR #<thread-type> EQ 1]
  S#<RPM> M3 M#<Coolant>
  G0 X0.000 Z#<Z_Start>
  G33.1 X0.000 Z#<T_Depth> K#<pitch>
  M5 M9
  G53 G0 X0 Z0
o120 else
  (msg, you dufus you didn't use a proper thread type)
o120 endif

; Restore to normal units
G20
o<tap>endsub

(PART - )
(NOTES - CUP HOLDER VELCRO OP1 DRILL AND TAP)
G17 G20 G40 G49 G54 G64 P0.005 G80 G90 G94
M05 G40 G49 G80
M09
(0.1495" #25 DRILL)
T1 M06 G43
G00 X0.1875 Y-0.261 S1800 M03
M0
Z0.25
G00 X0.1875 Y-0.261 Z0.25
Z0.1
G01 Z-0.556 F12.0 S1800
G00 Z0.1
Z0.25
X1.0625
Z0.1
G01 Z-0.556
G00 Z0.1
G00 Z0.25
M05 G40 G49 G80
M09
(10-24 HSS TAP)
T2 M06 G43
G00 X0.1875 Y-0.261 S900 M03
M0
Z0.25
G00 X0.1875 Y-0.261 Z0.25
G33.1 X0.1875 Y-0.261 Z-0.400 K0.0416
G0 X1.0625
G33.1 X1.0625 Y-0.261 Z-0.400 K0.0416
M5
G53 G0 Z0
G0 X0 Y0
M2