Mitsubishi C70

Appendix 1. Registering and Editing Fixed Cycle Programs
Appendix 1.5 Standard Fixed Cycle Subprogram
IV - 6
G76.2
2-part system simultaneous compound
thread cutting cycle
O762 THREAD-PATC-2SYS.
G.1
N762!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
N20IF[#27NE1]GOTO21
G00X#10
N21#20=#10
#28=1
DO1
#15=ROUND[#10*#3/#1]
#29=#28MOD2
IF[[#27EQ1]AND[#29EQ0]]GOTO22
IF[[#27EQ2]AND[#29EQ1]]GOTO22
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
#21=#18
!L12
N22IF[#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
IF[[#27EQ1]AND[#29EQ1]]GOTO24
IF[[#27EQ2]AND[#29EQ0]]GOTO24
IF[[#27EQ2]AND[#28EQ1]]GOTO23
G00X-#1+#10+#21
GOTO24
N23G00X#10
N24IF[#14LT1]GOTO11
#18=0
GOTO12
N11#18=#19-#10+#20
N12#28=#28+1
END1
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
N4#29=#28MOD2
IF[[#27EQ1]AND[#29EQ1]]GOTO25
IF[[#27EQ2]AND[#29EQ0]]GOTO25
G00X#10-#1+#21
#21=0
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
N25#28=#28+1
END2
N5G00X-#1
M99