Mitsubishi C70

Appendix 1. Registering and Editing Fixed Cycle Programs
Appendix 1.5 Standard Fixed Cycle Subprogram
IV - 5
G76.1
2-part system simultaneous compound
thread cutting cycle
O761 THREAD-PATC-2SYS.
G.1
N761!L10
#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
#18=ROUND[[#4-#11-#5]*#7]
IF[[#18XOR#1]GE0]GOTO10
#18=-#18
N10#19=#18
#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
!L11
G33X#1-#10-#18Y-#3+#15M96.101P1000D3
G00Y-#2+#4-#11M97.101
!L12
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+#18
IF[#14LT0]GOTO11
#18=0
GOTO12
N11#18=#19-#10+#20
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
!L11
G33X#1-#10Y-#3+#15M96.101P1000D3
G00Y-#2+#4-#13-#11M97.101
!L12
END2
N5G00X-#1
M99