39 LBL 2
40 LP PR+Q6 PA+Q24 FQ12
41 FN 2: Q24 = +Q24 - +Q14
42 FN 11: IF +Q24 GT +Q5 GOTO LBL 2
43 LP PR+Q6 PA+Q5
44 L Z+Q23 R0 F1000
45 L X+Q26 R0 FMAX
46 FN 1: Q28 = +Q28 + +Q18
47 FN 0: Q24 = +Q4
48 CYCL DEF 10.0 ROTATIE
49 CYCL DEF 10.0 ROT+Q28
50 FN 12: IF +Q28 LT +Q9 GOTO LBL 1
51 FN 9: IF +Q28 EQU +Q9 GOTO LBL 1
52 CYCL DEF 10.0 ROTATIE
53 CYCL DEF 10.1 ROT+0
54 CYCL DEF 7.0 NULPUNT
55 CYCL DEF 7.1 X+0
56 CYCL DEF 7.2 Y+0
57 CYCL DEF 7.3 Z+0
58 LBL 0
59 END PGM KOGEL MM
HEIDENHAIN TNC 620
Benaderde "boog" omhoog verplaatsen
Ruimtelijke hoek actualiseren
Boog klaar? Nee, dan terug naar LBL 2
Eindhoek in het werkbereik benaderen
In de spilas terugtrekken
Voorpositioneren voor volgende boog
Rotatiepositie in het vlak actualiseren
Ruimtehoek terugzetten
Nieuwe rotatiepositie activeren
Niet klaar? Nee, dan terugspringen naar LBL 1
Rotatie terugzetten
Nulpuntverschuiving terugzetten
Einde subprogramma
315