Mitsubishi C70

Appendix 1. Registering and Editing Fixed Cycle Programs
Appendix 1.5 Standard Fixed Cycle Subprogram
IV - 7
G77 Straight cutting cycle G78 Thread cutting cycle
O770 STRAIGHT-TURNING O780 THREAD-CUTTING
G.1
IF[[#1EQ0]OR[#2EQ0]]GOTO1
Y#2+#7
G1X#1Y-#7
Y-#2
G0X-#1
N1M99
G.1
IF[[#1EQ0]OR[#2EQ0]]GOTO1
N90#40=90#41=#5001#42=#5002
Y#2+#7
G33X#1Y-#7F#9E#10M96.101P1000D3
G0Y-#2M97.101
X-#1
N1M99
G79 End face cutoff cycle
G83
G87
Deep hole drilling cycle B
O790 FACE-CUTTING O830 DRILL-CYCLE-B
G.1
IF[[#1EQ0]OR[#2EQ0]]GOTO1
X#1+#7
G1X-#7Y#2
X-#1
G0Y-#2
N1M99
G.1
IF[#30]GOTO2
M#24
#29=#11#28=0
Z#2
#2=##5#3003=#8OR1
DO1
#28=#28-#11#26=-#28-#29
Z#26
IF[ABS[#28]GE[ABS[#3]]]GOTO1
G1Z#29
G0Z#28
#29=#11+#14
END1
N1G1Z#3-#26
G4P#4
#3003=#8
G0Z-#3-#2
IF[#24EQ#0]GOTO2
M#24+1
G4P#21
N2M99