0  BEGIN PGM 1065_EN MM 
1  ;Program to center at various positions,
2  ;make a pilot hole and then drill it deeper.
3  ;The positions and further drilling
4  ;parameters are saved in a table.
5  ;
6  BLK FORM 0.1 Z X+0 Y+0 Z-100
7  BLK FORM 0.2  X+100  Y+100  Z+0
8  ;
9  ;Define table with drilling parameters
10 FN 26: TABOPEN 10651_en.tab
11 ;
12 ;Centering drill tool call
13 TOOL CALL 203 Z S2000
14 ;
15 CYCL DEF 203 UNIVERSAL DRILLING ~
    Q200=+2    ;SET-UP CLEARANCE ~
    Q201=-3    ;DEPTH ~
    Q206=+150  ;FEED RATE FOR PLNGNG ~
    Q202=+5    ;PLUNGING DEPTH ~
    Q210=+0    ;DWELL TIME AT TOP ~
    Q203=+0    ;SURFACE COORDINATE ~
    Q204=+50   ;2ND SET-UP CLEARANCE ~
    Q212=+0    ;DECREMENT ~
    Q213=+0    ;NR OF BREAKS ~
    Q205=+0    ;MIN. PLUNGING DEPTH ~
    Q211=+0    ;DWELL TIME AT DEPTH ~
    Q208=+30000 ;RETRACTION FEED RATE ~
    Q256=+0.2  ;DIST FOR CHIP BRKNG
16 ;
17 ;Define the table lines to be used
18 FN 0: Q51 =+0 ;START LINE
19 FN 0: Q52 =+4 ;FURTHER LINES
20 ;
21 CALL LBL 12
22 ;
23 STOP
24 ;
25 ;Drill tool call for pilot drilling
26 TOOL CALL 227 Z S2000
27 ;
28 ;Define drilling cycle parameters to be changed
29 FN 0: Q201 =-10 ;NEW DEPTH
30 ;
31 CALL LBL 12
32 ;
33 STOP
34 ;
35 ;Tool call for peck drilling
36 TOOL CALL 226 Z
37 ;
38 ;Parameter definition for peck drilling
39 FN 0: Q1 =+0 ;SURFACE
40 FN 0: Q2 =+0 ;PILOT DRILLING DEPTH
41 FN 0: Q3 =-10 ;CHIP REMOVAL HEIGHT
42 FN 0: Q4 =+1000 ;FEED RATE FOR PLUNGING
43 FN 0: Q5 =+200 ;FEED RATE FOR DRILLING
44 FN 0: Q6 =+2000 ;SPINDLE SPEED
45 FN 0: Q7 =+5 ;INFEED
46 FN 0: Q8 =+0 ;DEPTH
47 FN 0: Q9 =+0.5 ;DWELL TIME
48 FN 0: Q10 =+1 ;CHIP BREAKING VALUE
49 FN 0: Q11 =+2 ;SAFTY VALUE 1 (INCREMENTAL)
50 FN 0: Q12 =+30 ;SAFTY VALUE 2 (INCREMENTAL)
51 FN 0: Q13 =+5 ;NUMBER OF INFEEDS
52 ;
53 ;Define PGM 10652_en.h as cycle
54 CYCL DEF 12.0 PGM CALL
55 CYCL DEF 12.1 PGM 10652_en.h
56 ;
57 CALL LBL 12
58 ;
59 ;Retract and end program
60 L  X+0  Y+0  Z+100 FMAX M2
61 ;
62 ;Move to positions
63 LBL 12
64 Q61 = Q51 ;Define the table line of the first position
65 LBL 11
66 CALL LBL 10
67 FN 1: Q61 =+Q61 + +1 ;Calculate to next table line
68 CALL LBL 11 REPQ52
69 LBL 0
70 ;
71 ;Command to read, position approach and cycle call
72 LBL 10
73 FN 28: TABREAD Q41 =Q61 /"X"
74 FN 28: TABREAD Q42 =Q61 /"Y"
75 FN 28: TABREAD Q1 =Q61 /"Z"
76 FN 28: TABREAD Q8 =Q61 /"Depth"
77 FN 28: TABREAD Q45 =Q61 /"Distance"
78 FN 28: TABREAD Q46 =Q61 /"Feed_rate"
79 FN 28: TABREAD Q47 =Q61 /"Safe_height"
80 L  X+Q41  Y+Q42 R0 FMAX M13 M99
81 LBL 0
82 END PGM 1065_EN MM