BEGIN PGM 205 MM
Q195 = Q197
Q197 = 0
FN 9: IF +Q195 EQU +1 GOTO LBL 200
Q200 = ABS Q200
Q204 = ABS Q204
Q206 = ABS Q206
Q211 = ABS Q211
Q212 = ABS Q212
Q256 = ABS Q256
Q257 = ABS Q257
Q258 = ABS Q258
Q259 = ABS Q259
Q379 = ABS Q379
LBL 200
FN 17: SYSWRITE ID 212 =+3
FN 18: SYSREAD Q0 = ID1000 NR7441
Q0 = 2 * FRAC ( Q0 / 2 )
FN 9: IF +Q0 EQU +1 GOTO LBL 199
FN 9: IF +Q110 EQU +0 GOTO LBL 199
FN 9: IF +Q110 EQU +1 GOTO LBL 199
FN 14: ERROR= 1000
LBL 199
FN 18: SYSREAD Q0 = ID1000 NR7441
Q0 = 8 * FRAC ( Q0 / 8 )
FN 12: IF +Q0 LT +4 GOTO LBL 206
FN 12: IF +Q201 LT +0 GOTO LBL 206
FN 9: IF +Q201 EQU +0 GOTO LBL 206
FN 14: ERROR= 1077
LBL 206
FN 10: IF +Q109 NE -1 GOTO LBL 198
FN 14: ERROR= 1001
LBL 198
FN 9: IF +Q201 EQU +0 GOTO LBL 254
FN 12: IF +Q201 LT +0 GOTO LBL 197
FN 0: Q30 =-1
FN 9: IF +0 EQU +0 GOTO LBL 194
LBL 197
FN 0: Q30 =+1
LBL 194
FN 9: IF +Q195 EQU +1 GOTO LBL 193
CALL LBL 4
LBL 193
FN 1: Q19 =+Q203 + +Q200
Q51 = ABS Q200
Q52 = ABS Q204
FN 11: IF +Q51 GT +Q52 GOTO LBL 7
FN 1: Q19 =+Q203 + +Q204
LBL 7
FN 10: IF +Q202 NE +0 GOTO LBL 21
FN 14: ERROR= 1030
LBL 21
FN 10: IF +Q395 NE +1 GOTO LBL "Drill_Depth_On_Shank"
FN 18: SYSREAD QL0 = ID1000 NR7260
FN 9: IF +QL0 EQU +0 GOTO LBL "ERROR"
FN 18: SYSREAD Q0 = ID1000 NR7224 IDX0
Q0 = 8 * FRAC ( Q0 / 8 )
FN 11: IF +Q0 GT +3 GOTO LBL "ERROR"
FN 18: SYSREAD QL0 = ID50 NR32 IDX0
FN 11: IF +QL0 GT +0 GOTO LBL "Of_Read_Error"
LBL "ERROR"
FN 14: ERROR= 1087
LBL "Of_Read_Error"
QL201 = ( SGN Q201 * ( Q108 / ( TAN ( QL0 / 2 ) ) ) )
LBL "Drill_Depth_On_Shank"
QL208 = Q208
FN 11: IF +QL208 GT +0 GOTO LBL "FEED_RETRACT"
QL208 = Q206
LBL "FEED_RETRACT"
FN 1: Q20 =+Q203 + +Q200
Q40 = Q203 + Q200 - Q379
FN 1: Q24 =+Q203 + +Q201
Q15 = Q203 - Q379
LBL 1
FN 1: Q39 =+Q212 + +Q212
FN 2: Q34 =+Q259 - +Q258
FN 4: Q21 =+Q34 DIV +Q201
FN 0: Q22 =+Q202
Q35 = 0 - Q379
L  Z+Q20 R0 FMAX
FN 9: IF +Q379 EQU +0 GOTO LBL 2
L  Z+Q40 R0 FQ253
LBL 2
QL35 = Q201 + QL201
FN 1: Q35 =+Q35 + -Q22
FN 9: IF +Q30 EQU -1 GOTO LBL 50
FN 11: IF +Q35 GT +QL35 GOTO LBL 3
FN 0: Q35 =+QL35
LBL 3
FN 9: IF +0 EQU +0 GOTO LBL 51
LBL 50
FN 12: IF +Q35 LT +QL35 GOTO LBL 51
FN 0: Q35 =+QL35
LBL 51
FN 2: Q36 =+Q203 - -Q35
FN 9: IF +Q257 EQU +0 GOTO LBL 6
LBL 5
FN 2: Q15 =+Q15 - +Q257
FN 9: IF +Q30 EQU -1 GOTO LBL 40
FN 12: IF +Q15 LT +Q36 GOTO LBL 6
FN 9: IF +0 EQU +0 GOTO LBL 41
LBL 40
FN 11: IF +Q15 GT +Q36 GOTO LBL 6
LBL 41
L  Z+Q15 R0 FQ206
L IZ+Q256 FQL208
FN 9: IF +Q30 EQU -1 GOTO LBL 42
FN 11: IF +Q15 GT +Q36 GOTO LBL 5
FN 9: IF +0 EQU +0 GOTO LBL 6
LBL 42
FN 12: IF +Q15 LT +Q36 GOTO LBL 5
LBL 6
L  Z+Q36 R0 FQ206
FN 0: Q15 =+Q36
FN 9: IF +Q35 EQU +QL35 GOTO LBL 4
L  Z+Q20 R0 FQ208
FN 3: Q37 =+Q35 * +Q21
FN 1: Q37 =+Q37 + +Q258
FN 1: Q37 =+Q36 + +Q37
L  Z+Q37 R0 FMAX
FN 9: IF +Q212 EQU +0 GOTO LBL 2
FN 9: IF +Q205 EQU +0 GOTO LBL 2
FN 2: Q22 =+Q22 - +Q212
FN 9: IF +Q30 EQU -1 GOTO LBL 45
FN 11: IF +Q22 GT +Q205 GOTO LBL 2
FN 0: Q22 =+Q205
FN 9: IF +0 EQU +0 GOTO LBL 2
LBL 45
FN 12: IF +Q22 LT +Q205 GOTO LBL 2
FN 0: Q22 =+Q205
FN 9: IF +0 EQU +0 GOTO LBL 2
LBL 4
FN 9: IF +Q195 EQU +1 GOTO LBL 192
FN 3: Q200 =+Q200 * +Q30
FN 3: Q202 =+Q202 * +Q30
FN 3: Q204 =+Q204 * +Q30
FN 3: Q205 =+Q205 * +Q30
FN 3: Q212 =+Q212 * +Q30
FN 3: Q256 =+Q256 * +Q30
FN 3: Q257 =+Q257 * +Q30
FN 3: Q258 =+Q258 * +Q30
FN 3: Q259 =+Q259 * +Q30
FN 3: Q379 =+Q379 * +Q30
LBL 0
LBL 192
FN 9: IF +Q211 EQU +0 GOTO LBL 180
CYCL DEF 9.0 VERWEILZEIT
CYCL DEF 9.1 V.ZEITQ211
LBL 180
L  Z+Q20 R0 FQ208
FN 9: IF +Q195 EQU +1 GOTO LBL 254
L  Z+Q19 R0 FMAX
LBL 254
END PGM 205 MM
