HEIDENHAIN ITNC 530 - CONVERSATIONAL PROGRAMMING User Manual page 353

17 CALL LBL 10
18 Q10 = +0
19 Q18 = +5
20 CALL LBL 10
21 L Z+100 R0 FMAX M2
22 LBL 10
23 Q23 = +Q11 + +Q6
24 Q24 = +Q4
25 Q26 = +Q6 + +Q108
26 Q28 = +Q8
27 Q16 = +Q6 + -Q10
28 CYCL DEF 7.0 DATUM SHIFT
29 CYCL DEF 7.1 X+Q1
30 CYCL DEF 7.2 Y+Q2
31 CYCL DEF 7.3 Z-Q16
32 CYCL DEF 10.0 ROTATION
33 CYCL DEF 10.1 ROT+Q8
34 LBL 1
35 CC X+0 Y+0
36 LP PR+Q26 PA+Q8 R0 FQ12
37 CC Z+0 X+Q108
38 L Y+0 Z+0 FQ12
HEIDENHAIN iTNC 530
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
353