%
O0001(BUFFER SET-UP)(25/11/96) 
#131=#3002 
G91G28Z0 
G00G17G21G40G49G69G80G90 
H00
M70
#133=0.
M99
 
 
                                                                                                                         
O0002(THREADING) 
(HEL. INT. MACRO)
(G65 P2 D- Z- T- R- S- F-) 
(SPECIFY D CODE FOR RAD OFFSET)
(FOR INT. TOOL RAD=+)
(FOR EXT. TOOL RAD=-)
(D=RADIUS #7)
(Z=DEPTH #26)
(T=Z PITCH #20)
(R=Z SET UP #18) 
(S=RETRACT AMOUNT & DIRECTION)(#19)
(END POINT 9 O-CLOCK)
(F=FEED RATE)(#9)
#103=#5003 
#3=0.
#21=#7-#[2000+#4307] 
G91G0X-#21 
G90G0Z#18
#104=#26-#18 
WHILE[#3GT#104]DO1 
IF[[#3-#20]LT#104]THEN#20=-[#104-#3] 
G91G2Z-#20I#21F#9
#3=#3-#20
END1 
G1X#19 
G90G0Z#103 
G91X[#21-#19]
G90
M99
 
 
                                                                                                                         
O0003(PROFILE MACRO) 
(G65 P3 A- Z- Q- R- F-)
(A=PROFILE PROG NO #1) 
(Z=Z DEPTH #26)
(Q=DEPTH OF CUT #17) 
(R=Z SET UP #18) 
(F=FEED RATE #9) 
#103=#5003(READ Z) 
#104=#18 
G90G0Z[#104+0.5] 
G0Z#104F#9(G1) 
WHILE[#104GT#26]DO1
#104=#104-#17
IF[#104LT#26]THEN#104=#26
G90G0Z#104F[#9/3](G1)
F#9
M98P#1 
END1 
G90G0Z#103 
M99
 
 
                                                                                                                         
O0004(HEL INTERPOLATION) 
(MILLING SAME AS 2)
(HEL. INT. MACRO)(INTERNAL)
(G65 P4 D- Z- T- R- S- F-) 
(SPECIFY D CODE FOR RAD OFFSET)
(D)
(S RELIEF 019) 
(F)
#101=#5001 
#102=#5002 
#103=#5003 
#105=#20 
#21=#7-#[2000+#4307] 
G91G0X-#21 
G90G0Z#18
#104=#5003 
WHILE[#104GT#26]DO1
IF[[#104-#105]LT#26]THEN#105=#104-#26
G91G3Z-#105I#21F#9 
#104=#5003 
END1 
G3I#21 
G1X#19 
G90G0Z#103 
X#101Y#102 
M99
 
 
                                                                                                                         
O0005(CIR INTERPOLATION) 
(G65 P5 S- D- T- F-) 
(CAN BE CONTROLED BY MACRO #3) 
(G65 P3 A5. Z- Q- R- F- S- D- T-)
(SPECIFY D FOR RAD OFFSET) 
(S=INSIDE BORE RAD #19)
(D=BORE RAD #7)
(T=DEPTH OF CUT #20) 
(F=FEED RATE #9) 
#101=#5001 
#102=#5002 
#3=#19 
#4=#[2000+#4307] 
G0X[[#101-#3]+#4]
WHILE[#3LT#7]DO1 
#3=#3+#20
IF[#3GT#7]THEN#3=#7
G1X[[#101-#3]+#4]F[#9/2] 
G3X[[#101-#3]+#4]Y#102I[#3-#4]F#9
END1 
G0X#101Y#102 
M99
 
 
                                                                                                                         
O0006(STEPPED CIR. INT)
(G65 P6 Z- Q- R- S- D- T- F-)
(SPECIFY D FOR RAD OFFSET) 
(Z DEPTH #26)
(Q DEPTH OF CUT #17) 
(R STARTING POSITION #18)
(S #19)
(D #7) 
(T #20)
(F FEED #9)
#101=#5001 
#102=#5002 
#103=#5003 
#105=#17 
#13=#[2000+#4307]
G90G0Z#18
#104=#5003 
WHILE[#104GT#26]DO1
IF[[#104-#105]LT#26]THEN#105=#104-#26
G91G1Z-#105F[#9/3] 
#104=#5003 
#3=#19 
WHILE[#3LT#7]DO2 
#3=#3+#20
IF[#3GT#7]THEN#3=#7
G90G1X[[#101+#3]-#13]F[#9/2] 
G91G3I-[#3-#13]F#9 
G90
END2 
G90G0X#101 
END1 
Z#18.
G90G0X#101Y#102Z#103.
/M1
M3 
M99
 
 
                                                                                                                         
O0009(POLAR CO-ORD MACRO)
(G65 P9 I J K W) 
(G65 P9 I J K W U H) 
(I=X CENTER POINT #4)
#114=#4
(J=Y CENTER POINT #5)
#115=#5
(K=POLAR RADIUS #6)
#116=#6
(W=POLAR ANGLE #23 +=C.C,-=C)
#117=#23 
(U=INCRAMENTAL ANGLE #21)
(H=REPITION #11) 
IF[#11LT1.]THEN#11=1.
#3=0.
WHILE[#3LT#11]DO1
#117=#117+#21
#104=COS[#117]*#116
#105=SIN[#117]*#116
X[#114+#104]Y[#115+#105] 
#3=#3+1. 
END1 
M99
 
 
                                                                                                                         
O0010(2 ND DEPTH CONTROLE) 
(M98 P10)
#104=#104-#17
IF[#104LT#26]THEN#104=#26
G90G1Z#104F[#9/3]
F#9
M99
 
 
                                                                                                                         
O0011(STEP H/S DRILLING) 
(G65 P11 Z- K- Q- R- F-) 
(Z=DRILLING DEPTH)(#26)
(K=SMALL PECKING DEPTH)(#6)
(Q=PECKING DEPTH)(#17) 
(R=Z STARTING POINT SET UP)(#18) 
(F=FEED RATE)(#9)
G90G0Z#18
#103=#5003 
#104=-#17
#105=#18-1.
WHILE[#104GT[#26-#17]]DO1
IF[#104LT#26]THEN#104=#26
G73Z#104Q#6R[#105+1.]F#9 
#105=#104
#104=#104-#17
END1 
G0Z#103
M99
 
 
                                                                                                                         
O0012(SLOT MILLING)
(G65 P12 X- Y- Z- Q- R- F-)
(X#24 Y#25 Z#26 Q#17 R#18 F#9) 
#101=#5001(X START)
#102=#5002(Y START)
#103=#5003(Z START)
#104=#18 
G90G0Z#104 
WHILE[#104GT#26]DO1
#104=#104-#17
IF[#104LT#26]THEN#104=#26
G1Z#104F[#9/3](F[#9/3])
G1X#24Y#25F#9
IF[#104EQ#26]GOTO99
#104=#104-#17
IF[#104LT#26]THEN#104=#26
G1Z#104F[#9/3] 
G1X#101Y#102F#9
N99END1
G0Z#103
X#101Y#102 
M99
 
 
                                                                                                                         
O0013(CANNED CYCLE SET UP) 
(G66 P13 A- Z- R- Q- I- F-)
(G67 CANCEL) 
(A=#1 CYCLE CODE 73-84)
(Z=#26 Z DEPTH)
(R=#18 SET UP) 
(Q=#17 PECKING DEPTH)
(I=#4 DWELL) 
(F=#9 FEED RATE) 
G90G#1Z#26R#18Q#17P#4I#4J#5F#9 
G0/M5
/M1
M3 
N9M99
 
 
                                                                                                                         
O0014(Y SLOT WITH X WIDTH) 
(G65P14 U- V- Y- Z- Q- R- F-)
(U=WIDTH #21)
(V=X DEPTH OF CUT #22) 
(Y#25 Z#26 Q#17 R#18 F#9)
#101=#5001(X START)
#102=#5002(Y START)
#103=#5003(Z START)
#104=#18 
G90G0Z#104 
#3=0(CONTROLER X)
WHILE[#3LT[#21/2]]DO1
WHILE[#104GT#26]DO2
#104=#104-#17
IF[#104LT#26]THEN#104=#26
G1Z#104F[#9/2] 
IF[#104EQ#26]THENGOTO11
G1Y#25F#9
#104=#104-#17
IF[#104LT#26]THEN#104=#26
Z#104F[#9/2] 
N11Y#102F#9
END2 
#3=#3+#22
IF[#3GT[#21/2]]THEN#3=#21/2
G1X[#101+#3] 
Y#25 
X[#101-#3] 
Y#102
X#101
END1 
G0Z#103
M99
 
 
                                                                                                                         
O0015(X SLOT WITH Y WIDTH) 
(G65P15 U- V- X- Z- Q- R- F-)
(U=WIDTH #21)
(V=Y DEPTH OF CUT #22) 
(X#24 Z#26 Q#17 R#18 F#9)
#101=#5001(X START)
#102=#5002(Y START)
#103=#5003(Z START)
G90G0Z#18
#104=#18 
#3=0(CONTROLER Y)
WHILE[#3LT[#21/2]]DO1
WHILE[#104GT#26]DO2
#104=#104-#17
IF[#104LT#26]THEN#104=#26
G1Z#104F[#9/4] 
IF[#104EQ#26]GOTO99
X#24F#9
#104=#104-#17
IF[#104LT#26]THEN#104=#26
Z#104F[#9/4] 
X#101F#9 
N99END2
#3=#3+#22
IF[#3GT[#21/2]]THEN#3=#21/2
G1Y[#102-#3] 
X#24 
Y[#102+#3] 
X#101
Y#102
END1 
G0Z#103
M99
 
 
                                                                                                                         
O0016(POCKET MILL) 
(G65P16U-V-Z-Q-R-T-F-) 
(U=#21 X-WIDTH)
(V=#22 Y-WIDTH)
(Z=#26 FINAL DEPTH)
(Q=#17 DEPT PECKING) 
(R=#18 RETRACT AMOUNT) 
(T=#20 NO OF CUTS) 
(F=#9 FEED RATE) 
#101=#5001 
#102=#5002 
#103=#5003 
#105=#[2000+#4307] 
#106=[#21/2]-#105
#107=[#22/2]-#105
#104=#18 
G90G0Z#104 
WHILE[#104GT#26]DO1
#104=#104-#17
IF[#104LT#26]THEN#104=#26
G1Z#104F[#9/2] 
#108=0 
WHILE[#108LT#20]DO2
#108=#108+1
IF[#108GT#20]THEN#108=#20
G1X[#101+[#106*#108/#20]]Y#102F#9
Y[#102+[#107*#108/#20]]
X[#101-[#106*#108/#20]]
Y[#102-[#107*#108/#20]]
X[#101+[#106*#108/#20]]
Y[#102+2.] 
END2 
G1X#101Y#102F[#9*4]
END1 
G0Z#103
M99
                                                                                                                         
O0120(PISTON MILL AND REAM)
M98P1(X50.)
( WZ-666.5)
N1G54S400T2M3(SLOT CUTTER) 
G90G0X0.Y0.Z350. 
G43Z30.H1M16 
Z-13.(Z-12.7)
X-6. 
G1X-18.75F50 
G0X6.
G1X18.75 
G0X0.
G0Z350.H00 
G91G28Z0M6 
N2G54S1300T3M3(5.8 DRILL)
G90G0Y0.X29.25Z350.
G43Z30.H2M16 
G81Z-19.Q2.R2.F40
X-29.25
G0Z350.H00 
G91G28Z0M6 
N3G54S150T1M3(06 REAMER) 
G90G0Y0.X-29.25Z350. 
G43Z30.H3M16 
G81Z-15.5R2.F40
X29.25 
G0Z350.H00M17
G91G28Z0Y0M6 
M30
                                                                                                                         
O0121(PISTON M10)
M98P1
M00
N4G55S400T5M3(STEP DRILL)
G90G0X0.Y0.Z350. 
G43Z20.H4M16 
G83Z-24.Q2.R3.F120 
G0Z350.H00 
G91G28Z0M6 
N5G55S200T4M3(M10-1.5) 
G90G0X0.Y0.Z350. 
G43Z20.H5M16 
G84Z-17.R5.F300. 
G0Z350.H00M17
G91G28Y0Z0M6 
M99
                                                                                                                         
O0130(CAM)(25.4) 
M98P1
(X291.58)(Y-148.96)(Z-637.8) 
(016 END MILL)(DIA1 7.2)(D2 8) 
(020.)(D1 9.2)(D2 10)
(D1 9.1)(D2 9.98)(48.3)
N1G55S1000D19M3
G90G0X-30.Y40.Z350.
G43Z80.H18M16
G0Z-34.
M98P131
G0Z-15.6 
G0X25.Y20.D20
G1G41X12.7Y6.F1000 
Y0.F300
G2I-12.7 
G1Y-3. 
G40G0X30.
G0Z350.H00M17
G91G28Y0Z0 
M30
                                                                                                                         
O0131
G1G41X-6.Y30.78F1000 
G1X0.F200
G2X10.905Y22.735R11.414
G3X25.142Y-1.923R64.102
G2X14.237Y-20.812R11.414 
G3X-14.237Y-20.812R64.102
G2X-25.142Y-1.923R11.414 
G3X-10.905Y22.735R64.102 
G2X0.Y30.78R11.414 
G1X10.F1000
G0G40X30.Y40.
M99
                                                                                                                         
O0150(V150 SAE12/16) 
M98P1(5/01)
(JIG P)(X 786.27)
(G54)(X760.83)(-280.8)(-444.2) 
(G55 G57 Z-438.5)(G56 Z-455.3) 
(G55 -1. G57 +1.)
(M24)(1 0)(03,04)
M00
(1)
N1G54S500T2M3(015.5DRILL)
G90G0X0.Y0.Z300. 
G43Z10.H1M16 
G83Z-55.Q7.R-35.F60
G00X-100.Z400.H00
G91G28Z0.M6
N2G54S600T3M3(L/HOLD BAR)
G90G0X0.Y0.Z300. 
G43Z10.H2M16 
G0Z-12.
G1Z-48.F40 
S400Z-52.F20 
G0Z10. 
G00X-100.Z400.H00
G91G28Z0.M6
N3G54S100T4M3(1.3/16-12 SAE14) 
G90G0X0.Y0.Z400. 
G43Z10.H3M16 
G84Z-37.5R-10.F211.
G00X-100.Z400.H00
G91G28Z0.M6
N4G54S500T16M3(SAE BAR)
(SAE-12 Z-25.) 
(SAE-16 Z-31.) 
G90G0X0.Y-43.Z300. 
G43Z10.H4M16 
G82Z-25.P200R5.F30 
Y43. 
G0X-100.Z400.H00 
G91G28Z0.M6
N16G54S300T5M3(025. DRILL) 
G90G0X0.Y-43.Z300. 
G43Z10.H16M16
G73Z-38.Q1.R-25.F80
Y43. 
G00X-100.Z400.H00
G91G28Z0.M6
N5G54S100T6M3
(1.1/16-12 SAE12)
(1.5/16-12 SAE16)
G90G0X0.Y43.Z300.
G43Z10.H5M16 
G84Z-26.F211.
Y-43.
G0X-100.Z400.H00M17
G91G28Z0.M6
(M24)(2 -90) 
M00
(2)
N6G55S300T7M3(B FACE CUTTER) 
G90G0X-5.Y120.Z300.
G43Z3.H6M16
G1Y0.F250
G0Y120.Z4. 
Z1.5 
G1Y0.
G0Y120.Z3. 
Z0.
G1Y0.
G0X-100.Z400.H00 
G91G28Z0M6 
N7G55S450T8M3(P/RELIEF.BAR)
G90G0X0.Y39.5Z300. 
G43Z80.H7M16 
G82Z-46.4P500R2.F40
G0X-100.Z400.H00 
G91G28Z0.M6
N8G55S100T9M3(1.3/16-16 TAP) 
G90G0X0.Y39.5Z350. 
G43Z80.H8M16 
G84Z-20.R10.F158.
G0X-100.Z400.H00 
G91G28Z0.M6
N9G55S500T10M3(20 U-DRILL) 
G90G0X0.Y0.Z300. 
G43Z80.H9M16 
G73Z-100.Q2.R2.F100
G0X-100.Z400.H00 
G91G28Z0.M6
N10G55S600T11M3(021.9B/BAR)
G90G0X0.Y0.Z300. 
G43Z80.H10M16
G81Z-96.R2.F90 
G0X-100.Z400.H00 
G91G28Z0.M6
N11G55S600T12M3(S.SEAL B/BAR)
(041.5 X 4.7)
G90G0X0.Y0.Z300. 
G43Z80.H11M16
G89Z-4.7P500R2.F30 
G0X-100.Z400.H00 
G91G28Z0.M6
N12G55S800T13M3(05.DRILL)
G90G0X-18.Y18.Z300.
G43Z20.H12M16
G83Z-25.Q7.R2.F50. 
X18. 
Y-18.
X-18.
G0X-100.Z400.H00 
G91G28Z0.M6
N13G55S200T6M3(M6-1TAP)
G90G0X-18.Y18.Z300.
G43Z20.H13M16
G84Z-16.R10.F200.
X18. 
Y-18.
X-18.
G0X-100.Z400.H00 
G91G28Z0.M6
(M24)(-180)
M00
(3)
N6G55S300T7M3(B FACE CUTTER) 
G90G0X-5.Y130.Z300.
G43Z-40.5H6M16 
G1Y-30.F300
G0Y130.Z-38. 
Z-41.5 
G1Y-30.
G0X-100.Z200.
(M24)(-270)
M00
(4)
G0X-5.Y95.Z3.
G1Y-30.F250
G0Y95.Z4.
Z1.5 
G1Y-30.
G0Y95.Z3.
Z0.
G1Y-30.
G0X-100.Z400.H00 
G91G28Z0M6 
N7G57S450T8M3(P/RELIEF.BAR)
G90G0X0.Y-39.5Z300.
G43Z80.H7M16 
G82Z-46.4P500R2.F40
G0X-100.Z400.H00 
G91G28Z0.M6
N8G57S100T9M3(1.3/16-16 TAP) 
G90G0X0.Y-39.5Z350.
G43Z80.H8M16 
G84Z-20.R10.F158.
G0X-100.Z400.H00 
G91G28Z0.M6
N9G57S500T10M3(20. U-DRILL)
G90G0X0.Y0.Z300. 
G43Z80.H9M16 
G73Z-100.Q2.R2.F100
G0X-100.Z400.H00 
G91G28Z0.M6
N10G57S600T11M3(021.9B/BAR)
G90G0X0.Y0.Z300. 
G43Z40.H10M16
G81Z-96.R2.F90 
G0X-100.Z400.H00 
G91G28Z0.M6
N11G57S600T12M3(S.SEAL B/BAR)
(041.5 X 4.7)
G90G0X0.Y0.Z300. 
G43Z80.H11M16
G89Z-4.7P500R2.F30 
G0X-100.Z400.H00 
G91G28Z0.M6
N12G57S800T13M3(05.DRILL)
G90G0X-18.Y18.Z300.
G43Z20.H12M16
G83Z-25.Q7.R2.F50. 
X18. 
Y-18.
X-18.
G0X-100.Z400.H00 
G91G28Z0.M6
N13G57S200T1M3(M6-1 TAP) 
G90G0X-18.Y18.Z300.
G43Z20.H13M16
G84Z-16.R10.F200.
X18. 
Y-18.
X-18.
G0X-100.Z400.H00 
G91G28Z0.M6
/M98P151(M24 5-8)
G28Y0
(M24)(180) 
M00
(9)
M17
M30
                                                                                                                         
O0160(0-RING GROOVE) 
(S/SECTION Z-631.96) 
(OUTLET Z-644.76)
M98P1(01/96) 
(OUTLET Z-644.5 ON INLET JIG)
N1G57S350M3(027.)
G90G0X0.Y36.5Z350. 
G43Z20.H21M16
G82Z-1.3P50R2.F25
Y-33.5 
G0Z400.H00 
G91G28Z0M6 
N2G57S250M3(032.)
G90G0X0.Y0.Z350.(FLOAT Y-0.5)
G43Z20.H22M16
G82Z-1.3P50R2.F25
G0Z350.H00 
/G91G28Z0M6
/N3G57S300T1M3(019. DRILL) 
/G90G0X0.Y-33.5Z350. 
/G43Z20.H3M16
/G83Z-20.Q2.R2.F80 
/G0Z400.H00
G91G28Y0Z0M6 
M17
M30
                                                                                                                         
O4000(PUMP HOUSING)
M98P1(64.2)
N1G54S800M3
G90G0X0.Y190.Z350. 
G43Z20.H1
Z0.
G1Y140.F600
G0Y85. 
G1Y-13.
G0Z350.H00 
G91G28Z0M6 
N2G54S600M3
G90G0X0.Y0.Z350. 
G43Z20.H2
G82Z-2.4P100R2.F40 
G0Z350.H00 
G91G28Y0Z0M6 
M00
N1G54S800M3
G90G0X0.Y190.Z350. 
G43Z20.H1
Z-0.1
G1Y140.F600
G0Y85. 
G1Y-13.
G0Z350.H00 
G91G28Y0Z0 
M30
M30
                                                                                                                         
O4001
M98P1
/N1G54S700M3 
/G90G0X0.Y-135.Z350. 
/G43Z20.H1M16
/G83Z-12.Q2.R2.F50 
/Y135. 
/G0Z350.H00M17 
/G91G28Z0.M6 
N2G54S400M3
G90G0X0.Y135.Z350. 
G43Z20.H2M16 
Z2.
G1Z-10.F30 
Y80. 
G0Z20. 
Y-135. 
Z0.
G1Z-10.
Y-80.
G0Z350.H00M17
G91G28Y0Z0 
M30
                                                                                                                         
O4005(FOOT BRACKET)
M98P1
N1G55S600M3(9. DRILL)
G90G0X58.3Y106.25Z350. 
G43Z50.H1M16 
G81Z-11.Q2.R3.F50
X80.Y29. 
Y-29.
X58.3Y-106.25
G0Z350.H00M17
G91G28Y0Z0 
M30
                                                                                                                         
O4006(FOOT BRACKET 012.) 
M98P1
N1G56S500M3
G90G0X-20.Y60.Z350.
G43Z20.H2M16 
G81Z-12.R3.F50 
Y0.
Y-60.
G0Z350.H00M17
G91G28Y0Z0 
M30
%