HEIDENHAIN ITNC 530 User Manual page 576

20 CALL LBL 10
21 L Z+100 R0 FMAX M2
22 LBL 10
23 Q16 = Q6 - Q10 - Q108
24 FN 0: Q20 = +1
25 FN 0: Q24 = +Q4
26 Q25 = (Q5 - Q4) / Q13
27 CYCL DEF 7.0 DATUM SHIFT
28 CYCL DEF 7.1 X+Q1
29 CYCL DEF 7.2 Y+Q2
30 CYCL DEF 7.3 Z+Q3
31 CYCL DEF 10.0 ROTATION
32 CYCL DEF 10.1 ROT+Q8
33 L X+0 Y+0 R0 FMAX
34 L Z+5 R0 F1000 M3
35 LBL 1
36 CC Z+0 X+0
37 LP PR+Q16 PA+Q24 FQ11
38 L Y+Q7 R0 FQ12
39 FN 1: Q20 = +Q20 + +1
40 FN 1: Q24 = +Q24 + +Q25
41 FN 11: IF +Q20 GT +Q13 GOTO LBL 99
42 LP PR+Q16 PA+Q24 FQ11
43 L Y+0 R0 FQ12
44 FN 1: Q20 = +Q20 + +1
45 FN 1: Q24 = +Q24 + +Q25
46 FN 12: IF +Q20 LT +Q13 GOTO LBL 1
47 LBL 99
48 CYCL DEF 10.0 ROTATION
49 CYCL DEF 10.1 ROT+0
50 CYCL DEF 7.0 DATUM SHIFT
51 CYCL DEF 7.1 X+0
52 CYCL DEF 7.2 Y+0
53 CYCL DEF 7.3 Z+0
54 LBL 0
55 END PGM CYLIN
576
Call machining operation
Retract in the tool axis, end program
Subprogram 10: Machining operation
Account for allowance and tool, based on the cylinder radius
Set counter
Copy starting angle in space (Z/X plane)
Calculate angle increment
Shift datum to center of cylinder (X axis)
Account for rotational position in the plane
Pre-position in the plane to the cylinder center
Pre-position in the tool axis
Set pole in the Z/X plane
Move to starting position on cylinder, plunge-cutting obliquely into
the material
Longitudinal cut in Y+ direction
Update the counter
Update solid angle
Finished? If finished, jump to end
Move in an approximated "arc" for the next longitudinal cut
Longitudinal cut in Y– direction
Update the counter
Update solid angle
Unfinished? If not finished, return to LBL 1
Reset the rotation
Reset the datum shift
End of subprogram
11 Programming: Q Parameters