'V2
Parg 	= Param1()
Qarg 	= Param2()
Rarg 	= Param3()
Speed 	= GetRPM()
Zpos	= GetOEMDro(180)

	If Parg = 0 Then
		Message"M84 ERROR  P = 0"
		DoOEMButton(1003)
		Sleep(50)
		DoOEMButton(1002)
		End
	End If 
		
	If Rarg = 0 Then
		Message"M84 ERROR  R = 0"
		DoOEMButton(1003)
		Sleep(50)
		DoOEMButton(1002)
		End
	End If 

	If Speed = 0 Then
		Message"M84 ERROR  S = 0"
		DoOEMButton(1003)
		Sleep(50)
		DoOEMButton(1002)
		End
	End If 
	
	
	If Zpos < Qarg Then
		Message"M84 ERROR  Zstart < Q !!!"
		DoOEMButton(1003)
		Sleep(50)
		DoOEMButton(1002)
		End
	End If 
	

	If Zpos = Qarg Then
		Message"M84 ERROR  Zstart = Q !!!"
		DoOEMButton(1003)
		Sleep(50)
		DoOEMButton(1002)
		End
	End If 
	
	Qarg = Qarg - Zpos
	
	Qarg = Abs(Qarg)
	
	If Qarg < 0.001 Then
		Message"M84 Canceled"
		End
	End If
	
	Message"M84  START"
	' set parameters in user dro
	SetUserDRO(1511, Qarg)	' depth
	SetUserDRO(1512, Parg)	' pitch
	SetUserDRO(1513, Speed)	' rpm ffd
	SetUserDRO(1514, Rarg)	' rpm rev

	' start rigid tapping cycle
	NotifyPlugins(10101)

	' wait for csmio-ip end of rigid tapping cycle
	SetUserDRO(1510, 0)
	While(GetUserDRO(1510) = 0)
		Sleep(50)
		NotifyPlugins(10102)
	Wend 
	Message"M84 DONE"