%
O6045(ZEROE RIGHT TOOTH)
IF[#570EQ1]GOTO30(LEFT TOOTH GOTO30)
IF[#576EQ0]GOTO4(BIAS ADJUST SKIP)

(C ANGLE  Z+ TO Z-ADJUSTMENT BY BIAS)
#8=0(TIP C ANGLE Z+ TO Z-)
IF[#578EQ0]GOTO1
#8=360.*[#503-#504]/#578

N1
#9=0(ROOT C ANGLE Z+ TO Z-)
IF[#579EQ0]GOTO2
#9=360.*[#503-#504]/#579

N2
#7=[#9-#8]/[#576-1](C ANGLE PITCH)
#23=#8+#7*#577(CURRENT C ANGLE Z+ TO Z-)

(LEAD C ADJUSTMENT BY BIAS)
#4=0
IF[#502EQ0]GOTO3
#4=360*[#503-#575]/#502(To #15 #16)

N3
#5=#23*[#503-#575]/[#503-#504]
#15=#4-#5(LEAD C ADJUSTMENT)
GOTO5

N4
(NO BIAS ADJUST)
#23=#532(RIGHT C ROTATION ANGLE Z+TO-)
#15=#528(LEAD C ADJUSTMENT RIGHT)

(********************************************)
N5
IF[#571EQ0]GOTO10
#572=0

N10
(COORDINATE SET)
#3=#513+#514-#508-#507+#15(C-COORDINATE)
#24=#516(X-COORDINATE)
#25=-#515+#524(Y-COORDINATE)

IF[#571NE0]GOTO11(ONE WAY CUTTING GOTO11)
IF[#572EQ0]GOTO11(FIRST PASS GOT11)
GOTO12

N11
(APPROACH)
G00Z[#503]
C[#3]Y[#25]
IF[#571NE1]GOTO12(UPCUT GOTO12)
Z[#504]
C[#3+#23]Y[#25]

N12
IF[#572NE0]GOTO13
G00X[#501+5.0]
G01X[#24]F2000

N13
IF[#572EQ2]GOTO14
IF[#572EQ20]GOTO14
IF[#571EQ1]GOTO14

(GO)
G01C[#3]X[#24]Y[#25]F#517
G19V0W0
G03Z[#504]R#523H[#23]
GOTO15

N14
(BACK)
G01C[#3+#23]X[#24]Y[#25]F#517
G19V0W0
G02Z[#503]R#523H[-#23]

N15
IF[#572GE3]GOTO16
IF[#571NE0]GOTO16
GOTO20

N16
(ESCAPE)
G00X[#501+5.0]

N20
#577=#577+1(PROFILE PASS COUNTER)

N30
M99
%
