HEIDENHAIN ITNC 530 User Manual page 579

40 LBL 2
41 LP PR+Q6 PA+Q24 R9 FQ12
42 FN 2: Q24 = +Q24 - +Q14
43 FN 11: IF +Q24 GT +Q5 GOTO LBL 2
44 LP PR+Q6 PA+Q5
45 L Z+Q23 R0 F1000
46 L X+Q26 R0 FMAX
47 FN 1: Q28 = +Q28 + +Q18
48 FN 0: Q24 = +Q4
49 CYCL DEF 10.0 ROTATION
50 CYCL DEF 10.0 ROT+Q28
51 FN 12: IF +Q28 LT +Q9 GOTO LBL 1
52 FN 9: IF +Q28 EQU +Q9 GOTO LBL 1
53 CYCL DEF 10.0 ROTATION
54 CYCL DEF 10.1 ROT+0
55 CYCL DEF 7.0 DATUM SHIFT
56 CYCL DEF 7.1 X+0
57 CYCL DEF 7.2 Y+0
58 CYCL DEF 7.3 Z+0
59 LBL 0
60 END PGM SPHERE MM
HEIDENHAIN iTNC 530
Move upward in an approximated "arc"
Update solid angle
Inquire whether an arc is finished. If not finished, return to LBL 2.
Move to the end angle in space
Retract in the tool axis
Pre-position for next arc
Update rotational position in the plane
Reset solid angle
Activate new rotational position
Unfinished? If not finished, return to label 1
Reset the rotation
Reset the datum shift
End of subprogram
579