Mitsubishi Electric E70 Series Instruction Manual page 552

[G83, G87(Ｏ100000830) Deep hole drilling cycle B]
G.1 ;
IF [#30] GOTO 2 ;
M#24 ;
#29 = #11 #28 = 0 ;
Z#2 ;
#2 = ##5 #3003 = #8 OR 1 ;
DO1 ;
#28 = #28-#11 #26 = -#28-#29 ;
Z#26 ;
IF [ABS[#28] GE [ABS[#3]]] GOTO 1 ;
G1 Z#29 ;
G0 Z#28 ;
#29 = #11+#14 ;
END1 ;
N1 G1 Z#3-#26 ;
G4 P#4 ;
#3003 = #8 ;
G0 Z-#3-#2 ;
IF [#24 EQ #0] GOTO 2 ;
M#24+1 ;
G4 P#56 ;
N2 M99 ;
[G83, G87(Ｏ100000831) Deep hole drilling cycle A]
G.1 ;
IF [#30] GOTO 2 ;
M#24 ;
#29 = 0 #28 = #11 ;
Z#2 ;
#2 = ##5 #3003 = #8 OR 1 ;
DO1 ;
#29 = #29+#11 ;
IF [ABS[#29] GE [ABS[#3]]] GOTO 1 ;
G1 Z#28 ;
G0 Z-#14 ;
#28 = #11+#14 ;
END1 ;
N1 G1 Z#3-#29+#28 ;
G4 P#4 ;
#3003 = #8 ;
G0 Z-#3-#2 ;
IF [#24 EQ #0] GOTO 2 ;
M#24+1 ;
G4 P#56 ;
N2 M99 ;
Appendix 4.3 Standard Fixed Cycle Subprogram (For L system)
E70 Series Instruction Manual
IV - 19