Mitsubishi C70

Appendix 1. Registering and Editing Fixed Cycle Programs
Appendix 1.5 Standard Fixed Cycle Subprogram
IV - 13
G73 Step cycle G74 Reverse tap cycle
O831 STEP-CYCLE O841 COUNTER-TAP-CYCLE
G.1
IF[#30]GOTO2
#29=0#28=#11
Z#2G#6H#7
#2=##5#3003=#8OR1
DO1
#29=#29+#11
IF[ABS[#29]GE[ABS[#3]]]GOTO1
G1Z#28
G4P#4
G0Z-#14
#28=#11+#14
END1
N1G1Z#3-#29+#28
G4P#4
#3003=#8
G0Z-#3-#2,I#23
N2M99
G76 Fine boring
O861 FINE-BORING
G.1
IF[#30]GOTO1
Z#2G#6H#7
#2=##5#3003=#8OR1
G1Z#3
M19
X#12Y#13
G0Z-#3-#2
#3003=#8
X-#12Y-#13
M3
N1M99
G.1
IF[#30]GOTO9
Z#2G#6H#7
#2=##5#3003=#8OR1#3004=#9OR3
IF[#11]GOTO1
GOTO2
N1
IF[#14]GOTO5
N2G1Z#3
GOTO7
N5
#29=0#28=#11
DO1
#29=#29+#11
IF[ABS[#29]GE[ABS[#3]]]GOTO6
G1Z#28
M3
G1Z-#14
M4
#28=#11+#14
END1
N6G1Z#3-#29+#28
N7G4P#4
M3
#3900=1
G1Z-#3
#3004=#9
G4P#4
M4
#3003=#8
G0Z-#2,I#23
N9M99