(facing off and machine of to dia)
(Reverse)
G18 g21 G40 G94 G80 

(where is the tool call for the od tool)

(machine face)
m4 s800	(reverse)
g0 x55 (start point x axis)
   z2 (start point z axis)
g1 x25 f500 (face cut)
g0 x60 z5 (back away)

(machine od 1)
   x60 (start of cut)
   x55 (start diameter)
g1  z-80
g0 x60 z-78 (back away)
     z0
(machine od 2)
   x50  (start diameter)
g1 z-80 (cut dia)
g0 x60 z-78 (back away)
     z0
(machine od 3)
   x45  (start diameter)
g1 z-80 (cut dia)
g0 x60 z-78 (back away)
     z0
(machine od 4)
   x40  (start diameter)
g1 z-80 (cut dia)
g0 x60 z-78 (back away)
     z0
(machine od 5)
   x35  (start diameter)
g1 z-80 (cut dia)
g0 x60 z-78 (back away)
     z0
(machine od 6)
   x30  (start diameter)
g1 z-80 (cut dia)
g0 x60 z-78 (back away)
     z0
( machine od 7)
   x25  (start diameter)
g1 z-80 (cut dia)
g0 x60 z-78 (back away)
     z0
(machine od 8)
   x20  (start diameter)
g1 z-80 (cut dia)
g0 x60 z-78 (back away)
     z0
(machine od 9)
   x15  (start diameter)
g1 z-80 (cut dia)
g0 x66 z-78 (back away)
     z0
(machine od 10)
   x12.3 (start diameter)
g1 z-80 (cut dia)
   x58 (back face)
g0 x60 z-78 (back away)
     z0

(where is the tool change for the groove tool)

#1=-50
M98 p1 L10 (call groove sub)
M5
M30

o1
(put grooves)
(#1=#1-1)
g0 z[#1-1]
#3=[#1+1]
g0 z#1
   x15.3
g1 x12 f150
   z#1
g0 x15.3
#1=[#1+3]
m99
%