%
O6044(ZEROE LEFT TOOTH)
IF[#570EQ2]GOTO30(RIGHT 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[#573EQ0]GOTO1
#8=360.*[#503-#504]/#573

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

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=#531(LEFT C ROTATION ANGLE Z+TO-)
#15=#526(LEAD C ADJUSTMENT LEFT)

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

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

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

N11
(APPROACH)
G00X[#501+5.0]
IF[#571EQ2]GOTO12(UPCUT GOTO12)
G00Z[#503]
C[#3]Y[#25]
GOTO 13
N12
Z[#504]
C[#3+#23]Y[#25]

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

(GO)
G00C[#3]Y[#25]
G01X[#24]F2000(ADJUST F VALUE)
G19V0W0
G02Z[#504]R#521H[#23]F#517
GOTO15

N14
(BACK)
G00C[#3+#23]Y[#25]
G01X[#24]F2000(ADJUST F VALUE)
G19V0W0
G03Z[#503]R#521H[-#23]F#517

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

N30
M99
%
