HEIDENHAIN TNC 426 B User Manual page 296

23 LBL 0
24 FN : Q23 = +Q + +Q6
25 FN 0: Q24 = +Q4
26 FN : Q26 = +Q6 + +Q 08
27 FN 0: Q28 = +Q8
28 FN : Q 6 = +Q6 + -Q 0
29 CYCL DEF 7.0 DATUM SHIFT
30 CYCL DEF 7. X+Q
3 CYCL DEF 7.2 Y+Q2
32 CYCL DEF 7.3 Z-Q 6
33 CYCL DEF 0.0 ROTATION
34 CYCL DEF 0. ROT+Q8
35 CC X+0 Y+0
36 LP PR+Q26 PA+Q8 R0 FQ 2
37 LBL
38 CC Z+0 X+Q 08
39 L Y+0 Z+0 FQ 2
40 LBL 2
4 LP PR+Q6 PA+Q24 R0 FQ 2
42 FN 2: Q24 = +Q24 - +Q 4
43 FN : IF +Q24 GT +Q5 GOTO LBL 2
44 LP PR+Q6 PA+Q5
45 L Z+Q23 R0 F 000
46 L X+Q26 R0 F MAX
47 FN : Q28 = +Q28 + +Q 8
48 FN 0: Q24 = +Q4
49 CYCL DEF 0.0 ROTATION
50 CYCL DEF 0. ROT+Q28
5 FN 2: IF +Q28 LT +Q9 GOTO LBL
52 FN 9: IF +Q28 EQU +Q9 GOTO LBL
53 CYCL DEF 0.0 ROTATION
54 CYCL DEF 0. ROT+0
55 CYCL DEF 7.0 DATUM SHIFT
56 CYCL DEF 7. X+0
57 CYCL DEF 7.2 Y+0
58 CYCL DEF 7.3 Z+0
59 LBL 0
60 END PGM BALL MM
HEIDENHAIN TNC 426 B, TNC 430
www.EngineeringBooksPdf.com
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
Set pole in the X/Y plane for pre-positioning
Pre-position in the plane
Pre-position in the tool axis
Set pole in the Z/X plane, offset by the tool radius
Move to working depth
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
281