0  BEGIN PGM MCODE MM 
1  FN 9: IF +0 EQU +0 GOTO LBL 1
2  ; ################################
3  ; PROGRAM TO EXECUTE EXTERNAL
4  ; M-CODES
5  ; FOR IF59A2, IC56/IC57 + S/Z-PROBE
6  ; S-PROBE ACTIVATION IN MODE 'TC'
7  ; Z-PROBE ACTIVATION IN MODE 'DUO'
8  ;
9  ; 145718 / TOOL SETTING PROBE 1D / KN_KM / RD
10 ; HDH iTNC 530 SINCE 34049x 01
11 ;
12 ; 145722 / TOOL SETTING PROBE 1D / KN_KM / RD
13 ; HDH  TNC 320/620/640 SINCE 3405xx 01
14 ;
15 ; 146456 / TOOL SETTING PROBE 3D / KN_KM / RD
16 ; HDH iTNC 530 SINCE 34049x 01
17 ;
18 ; 146460 / TOOL SETTING PROBE 3D / KN_KM / RD
19 ; HDH  TNC 320/620/640 SINCE 3405xx 01
20 ;
21 ; VERSION V3CC-R001 / 01.01.17
22 ; @ COPYRIGHT BLUM-NOVOTEST GMBH
23 ; 2007-2017. ALL RIGHTS RESERVED.
24 ; ################################
25 ;
26 ; ================================
27 ; PARAMETER FILE: S_PROBE_0.TAB AND/OR Z_PROBE_0.TAB
28 ; Pxx=LINE NUMBER IN PARAMETER FILE
29 ; TRANSFER PARAMETER FROM CYCLE:
30 ; IN : Q95 =TYPE OF OPERATION
31 ;      Q96 =TYPE OF PROBE SYSTEM
32 ; OUT:
33 ; ================================
34 ; PLEASE REPLACE 'L M0' BY CORRECT M-CODE
35 ; ATTENTION: WRITE M-CODE AS 'L Mxx'
36 ; ================================
37 ;
38 LBL 1
39 ; TYPE OF PROBE SYSTEM
40 ; Q96: 1=S-PROBE (SPINDLE PROBE)/ 2=Z-PROBE (TOOL MEAS. PROBE)
41 ;
42 ; TYPE OF OPERATION
43 ; Q95: 0/ 1/ 2/ 3/ 4/ 5/ 6
44 FN 9: IF +Q95 EQU +0 GOTO LBL 10 ; TASTSYSTEM ANWAEHLEN/ ENABLE S/Z-PROBE
45 FN 9: IF +Q95 EQU +1 GOTO LBL 10 ; TASTSYSTEM ANWAEHLEN/ ENABLE S/Z-PROBE
46 FN 9: IF +Q95 EQU +2 GOTO LBL 20 ; TASTSYSTEM EINSCHALTEN/ SWITCH ON~
 S/Z-PROBE
47 FN 9: IF +Q95 EQU +3 GOTO LBL 30 ; TASTSYSTEM AUSSCHALTEN/ SWITCH OFF~
 S/Z-PROBE
48 FN 9: IF +Q95 EQU +4 GOTO LBL 40 ; TASTSYSTEM ABWAEHLEN/ DISABLE S/Z-PROBE
49 FN 9: IF +Q95 EQU +5 GOTO LBL 50 ; REINIGUNG EIN/ CLEANING ON
50 FN 9: IF +Q95 EQU +6 GOTO LBL 60 ; REINIGUNG AUS/ CLEANING OFF
51 FN 9: IF +0 EQU +0 GOTO LBL 254
52 ;
53 ;---------------------------------
54 LBL 10
55 ; Q95=1: P11/P21=TASTSYSTEM ANWAEHLEN/ ENABLE S/Z-PROBE
56 ; PLEASE REPLACE 'L M0' BY CORRECT M-CODE
57 FN 9: IF +Q96 EQU +1 GOTO LBL 11 ; S-PROBE
58 FN 9: IF +Q96 EQU +2 GOTO LBL 12 ; Z-PROBE
59 FN 9: IF +0 EQU +0 GOTO LBL 12
60 LBL 11
61 ; Q95=1: P11=TASTSYSTEM ANWAEHLEN/ ENABLE S-PROBE
62 L M0
63 FN 9: IF +0 EQU +0 GOTO LBL 254
64 LBL 12
65 ; Q95=1: P21=TASTSYSTEM ANWAEHLEN/ ENABLE Z-PROBE
66 L M0
67 FN 9: IF +0 EQU +0 GOTO LBL 254
68 ;
69 ;---------------------------------
70 LBL 20
71 ; Q95=2: P13/P23=TASTSYSTEM EINSCHALTEN/ SWITCH ON S/Z-PROBE
72 ; PLEASE REPLACE 'L M0' BY CORRECT M-CODE
73 FN 9: IF +Q96 EQU +1 GOTO LBL 21 ; S-PROBE
74 FN 9: IF +Q96 EQU +2 GOTO LBL 22 ; Z-PROBE
75 FN 9: IF +0 EQU +0 GOTO LBL 22
76 LBL 21
77 ; Q95=2: P13=TASTSYSTEM EINSCHALTEN/ SWITCH ON S-PROBE
78 L M0
79 FN 9: IF +0 EQU +0 GOTO LBL 254
80 LBL 22
81 ; Q95=2: P23=TASTSYSTEM EINSCHALTEN/ SWITCH ON Z-PROBE
82 L M0
83 FN 9: IF +0 EQU +0 GOTO LBL 254
84 ;
85 ;---------------------------------
86 LBL 30
87 ; Q95=3: P14/P24=TASTSYSTEM AUSSCHALTEN/ SWITCH OFF S/Z-PROBE
88 ; PLEASE REPLACE 'L M0' BY CORRECT M-CODE
89 FN 9: IF +Q96 EQU +1 GOTO LBL 31 ; S-PROBE
90 FN 9: IF +Q96 EQU +2 GOTO LBL 32 ; Z-PROBE
91 FN 9: IF +0 EQU +0 GOTO LBL 32
92 LBL 31
93 ; Q95=3: P14=TASTSYSTEM AUSSCHALTEN/ SWITCH OFF S-PROBE
94 L M0
95 FN 9: IF +0 EQU +0 GOTO LBL 254
96 LBL 32
97 ; Q95=3: P24=TASTSYSTEM AUSSCHALTEN/ SWITCH OFF Z-PROBE
98 L M0
99 FN 9: IF +0 EQU +0 GOTO LBL 254
100 ;
101 ;---------------------------------
102 LBL 40
103 ; Q95=4: P12/P22=TASTSYSTEM ABWAEHLEN/ DISABLE S/Z-PROBE
104 ; PLEASE REPLACE 'L M0' BY CORRECT M-CODE
105 FN 9: IF +Q96 EQU +1 GOTO LBL 41 ; S-PROBE
106 FN 9: IF +Q96 EQU +2 GOTO LBL 42 ; Z-PROBE
107 FN 9: IF +0 EQU +0 GOTO LBL 42
108 LBL 41
109 ; Q95=4: P12=TASTSYSTEM ABWAEHLEN/ DISABLE S-PROBE
110 L M0
111 FN 9: IF +0 EQU +0 GOTO LBL 254
112 LBL 42
113 ; Q95=4: P22=TASTSYSTEM ABWAEHLEN/ DISABLE Z-PROBE
114 L M0
115 FN 9: IF +0 EQU +0 GOTO LBL 254
116 ;
117 ;---------------------------------
118 LBL 50
119 ; Q95=5: P25=REINIGUNG MESSFLAECHE EIN/ CLEANING ON
120 ; PLEASE REPLACE 'L M0' BY CORRECT M-CODE
121 L M0
122 FN 9: IF +0 EQU +0 GOTO LBL 254
123 ;
124 ;---------------------------------
125 LBL 60
126 ; Q95=6: P27=REINIGUNG MESSFLAECHE AUS/ CLEANING OFF
127 ; PLEASE REPLACE 'L M0' BY CORRECT M-CODE
128 L M0
129 FN 9: IF +0 EQU +0 GOTO LBL 254
130 ;
131 ;---------------------------------
132 LBL 254
133 FN 20: WAIT FOR  SYNC
134 END PGM MCODE MM