why can not I cut the thread today?

N4  G18 G61
N6 M05
#<N1>=17.85 ( номинал )
#<N2>=1.5 ( шаг )
#<N7>=[0.61344*#<N2>] ( глубина резьбы )

#<N3>=5 ( начало резьбы )
#<N4>=16 ( длина резьбы )
#<N5>=1 ( заход и выход. L0 без, L1 заход, L2 выход, or L3 оба )
#<N6>=1.5 ( длина захода и выхода ) 

o<o_thread> call [#<N1>][#<N2>][#<N3>][#<N4>][#<N5>][#<N6>][#<N7>][1]
M2

o<o_thread> sub
G21 G61 G95 G18 G7 ( DIAMETER MODE )

#<M>=[#1]	( номинал )
#<P>=[#2]	( шаг GAS 5/8 )

#<startZ>=[#3] ( начало резьбы )
#<Len>=[#4] ( длина резьбы )
#<Taper>=[#5] ( заход и выход. L0 без, L1 заход, L2 выход, or L3 оба )
#<TaperL>=[#6] ( длина захода и выхода ) 
#<I>=0.5 ( отступ )
#<StartD>=[#<M>+1]
#<D>=[#<M>]

#<FC> = [#<P>*0.5]
o1001 IF [#<FC> GT 0.65]
#<FC>=0.65
o1001 ENDIF

M6	T2G43
M3	G96 S70 D500

(DEBUG,#<P>)

G0	X[#<StartD>] Z[#<startZ>]
G1	X[#<M>+#<I>] F100

G76	Z[-#<Len>+#<startZ>] P[#<P>] I[-#<I>] J[#<FC>] K[#7*2] H2 L[#<Taper>] E[#<TaperL>] R2
G0	X[#<StartD>] Z[#<startZ>]

o<clear> IF [#8 GT 0]
(или еще один проход для чистки резьбы после универсальной пластины)
G96	D2250 S250 
G1 G95	X[#<D>]F0.025
	Z[-#<Len>+#<startZ>]
	X[#<StartD>]
G0	X[#<StartD>] Z[#<startZ>]
o<clear> ENDIF
M5
o<o_thread> endsub