(BROACHING A 12 TOOTH SPLINE IN HAAS VERTICAL MILL WITH NO 4TH AXIS - MAIN PROGRAM)
(PROGRAM FEEDS TOWARDS Y POSITIVE DIRECTION)
(NOTE - G91 IS INCREMENTAL AND G90 IS ABSOLUTE)
(THIS PROGRAM CAN ONLY BE USED WHEN THERE IS ADEQUATE CLEARANCE BETWEEN THE BORE AND THE BACK OF THE HOLDER)

%
T10M06H10D10(USING T6MMML CNC BROACH TOOL)
G00G90G54G43(PART HAS .925 MINOR AND 1.115 MAJOR)
X0Y0.0324M08(START POINT FOR Y)
Z0.625(START .625 ABOVE PART)
#100=15.0(SET SPINDLE ROTATION SOURCE TO 0)
G69(ROTATION OFF)
M97P100L12(CUT 12 SPLINES)
M30

(THIS SUB PROGRAM SETS M19 INDEX POSITION)
N100M19P#100(INDEX SPINDLE TO VALUE IN #100)
M97P200L95(GOTO LINE N200 L TIMES - L95 X .001 = .095)
G90G00X0Y0(GO TO CENTER OF BORE)
#100=#100+30.0(INCREMENT SPINDLE ROTATION SOURCE CLOCKWISE)
G91G68R-30.0(INCREMENTALLY ROTATE WORK COORDINATE)
M99

(THIS SUB PROGRAM TAKES EACH PASS)
N200G91G1Z-1.5F300.(FEED Z- INCREMENTALLY .200 BEYOND END OF SPLINE)
G91G00Y0.0947(RETRACT Y INCREMENTALLY OUT OF KEYWAY)
G91G00Z1.5(RETRACT Z INCREMENTALLY ABOVE PART)
G91G00Y-0.0947(RETURN INCREMENTALLY TO PREVIOUS CUT POSITION)
G91G01Y-0.001(DEPTH OF CUT PER PASS)
M99
%