Mitsubishi C70

Appendix 1. Registering and Editing Fixed Cycle Programs
Appendix 1.5 Standard Fixed Cycle Subprogram
IV - 4
G76 Compound thread cutting cycle
O760 THREAD-PATC
G.1
#12=1
#13=#9
IF[ABS[#13]GE[ABS[#8]]]GOTO1
#16=1
#13=#8
N1#11=#13
IF[ABS[#11]LT[ABS[#4-#5]]]GOTO2
#11=#4-#5
#14=1
N2#17=#11
#10=ROUND[[#11+#5]*#7]
IF[[#10XOR#1]GE0]GOTO20
#10=-#10
N20G00X#10
#20=#10
DO1
#15=ROUND[#10*#3/#1]
N90#40=90#41=#5001#42=#5002
G00Y#2+#3-#4-#15+#11
G33X#1-#10Y-#3+#15M96.101P1000D3
G00Y-#2+#4-#11M97.101
IF[#14GT0]GOTO3
IF[#16GT0]GOTO7
#12=#12+1
#13=ROUND[#9*SQRT[#12]]
IF[ABS[#13-#11]GE[ABS[#8]]]GOTO8
#16=1
N7#13=#11+#8
N8#11=#13
IF[ABS[#11]LT[ABS[#4-#5]]]GOTO9
#11=#4-#5
#14=1
N9#10=ROUND[[#17-#11]*#7]
IF[[#10XOR#1]GE0]GOTO6
#10=-#10
N6#10=#10+#20
G00X-#1+#10
N12END1
N3IF[ABS[#6]LT1]GOTO5
#14=0
#13=0
DO2
IF[#14GT0]GOTO5
#13=#13+#6
IF[ABS[#13]LT[ABS[#5]]]GOTO4
#13=#5
#14=1
N4G00X#10-#1
N91#40=91#41=#5001#42=#5002
G00Y#2+#3-#4+#13-#15+#11
G33X#1-#10Y-#3+#15M96.101P1000D3
G00Y-#2+#4-#13-#11M97.101
END2
N5G00X-#1
M99