0 BEGIN PGM 10652_FR MM 
1 FN 11: IF +Q8 GT +0 GOTO LBL 199 ;Saut si aucun usinage possible
2 FN 11: IF +Q8 GT +Q2 GOTO LBL 199 ;Saut si aucun usinage possible
3 FN 1: Q21 =+Q1 + +Q2 ;Position de départ, en absolu
4 FN 1: Q22 =+Q1 + +Q2 ;Profondeur de pré-perçage, en absolu
5 FN 1: Q23 =+Q1 + +Q3 ;Hauteur de débourrage
6 FN 1: Q24 =+Q22 + +Q11 ;Profondeur de pré-perçage avec distance d'approche
7 FN 1: Q28 =+Q1 + +Q8 ;Profondeur finale, en absolu
8 FN 1: Q31 =+Q1 + +Q11 ;Distance d'approche, en absolu
9 FN 1: Q32 =+Q1 + +Q12 ;Saut de bride, en absolu
10 FN 0: Q33 =+0 ;Compteur de passes
11 TOOL CALL  Z S100 ;Vitesse de rotation pour approcher la position du perçage pilote
12 L  Z+Q31 R0 FMAX M4 ;Déplacement à la distance d'approche
13 L  Z+Q24 FQ4 ;Déplacement à la position de départ
14 L M5 ;Arrêt de la broche
15 TOOL CALL  Z SQ6 ;Vitesse de rotation de perçage
16 L  Z+Q22 FQ5 M3 ;Vitesse de rotation et avance de travail
17 LBL 2 ;Début rectification
18 FN 1: Q21 =+Q21 + -Q7 ;Nouvelle profondeur
19 FN 1: Q30 =+Q21 + +Q10 ;Hauteur du brise-copeaux
20 FN 1: Q33 =+Q33 + +1 ;Compteur du brise-copeaux
21 FN 1: Q34 =+Q30 + +Q11 ;Nouvelle passe en Z
22 FN 9: IF +Q21 EQU +Q28 GOTO LBL 99 ;Profondeur atteinte?
23 FN 12: IF +Q21 LT +Q28 GOTO LBL 99 ;Trop profond?
24 L  Z+Q21 FQ5 ;Déplacement à la nouvelle profondeur
25 L  Z+Q30 FQ4 ;Brise-copeaux
26 FN 12: IF +Q33 LT +Q13 GOTO LBL 2 ;Comptage de brise-copeaux
27 FN 0: Q33 =+0 ;Réinitialisation du compteur
28 L  Z+Q23 FQ4 ;Déplacement à la hauteur de débourrage
29 CYCL DEF 9.0 TEMPORISATION
30 CYCL DEF 9.1 TEMPQ9
31 L  Z+Q34 FQ4 ;Déplacement à la position correspondant à la passe en profondeur suivante
32 FN 11: IF +Q21 GT +Q28 GOTO LBL 2 ;Profondeur atteinte?
33 LBL 99
34 L  Z+Q28 FQ5 ;Déplacement à la profondeur finale
35 LBL 100
36 CYCL DEF 9.0 TEMPORISATION
37 CYCL DEF 9.1 TEMPQ9
38 TOOL CALL  SQ14 ;Vitesse de rotation lors de la sortie
39 L  Z+Q31 FQ4 ;Déplacement à la distance d'approche
40 L  Z+Q32 FMAX ;Déplacement au saut de bride
41 L M5 ;Arrêt de la broche
42 LBL 199
43 END PGM 10652_FR MM