HEIDENHAIN ITNC 530 User Manual page 578

18 CALL LBL 10
19 FN 0: Q10 = +0
20 FN 0: Q18 = +5
21 CALL LBL 10
22 L Z+100 R0 FMAX M2
23 LBL 10
24 FN 1: Q23 = +Q11 + +Q6
25 FN 0: Q24 = +Q4
26 FN 1: Q26 = +Q6 + +Q108
27 FN 0: Q28 = +Q8
28 FN 1: Q16 = +Q6 + -Q10
29 CYCL DEF 7.0 DATUM SHIFT
30 CYCL DEF 7.1 X+Q1
31 CYCL DEF 7.2 Y+Q2
32 CYCL DEF 7.3 Z-Q16
33 CYCL DEF 10.0 ROTATION
34 CYCL DEF 10.1 ROT+Q8
35 LBL 1
36 CC X+0 Y+0
37 LP PR+Q26 PA+Q8 R0 FQ12
38 CC Z+0 X+Q108
39 L Y+0 Z+0 FQ12
578
Call machining operation
Reset allowance
Angle increment in the X/Y plane for finishing
Call machining operation
Retract in the tool axis, end program
Subprogram 10: Machining operation
Calculate Z coordinate for pre-positioning
Copy starting angle in space (Z/X plane)
Compensate sphere radius for pre-positioning
Copy rotational position in the plane
Account for allowance in the sphere radius
Shift datum to center of sphere
Account for starting angle of rotational position in the plane
Pre-position in the tool axis
Set pole in the X/Y plane for pre-positioning
Pre-position in the plane
Set pole in the Z/X plane, offset by the tool radius
Move to working depth
11 Programming: Q Parameters