0  BEGIN PGM CHECK_MP7441 MM 
1  ;+++Zykluscheck mit MP7441 ++++
2  ;+++geaendert auf CFGREAD -MB
3  ;+++Abfrage Key integriert -MB
4  Q0 = 7441 ; Lesen von MP 7441
5  ;CALL PGM READ_MP
6  ;SEL CYCLE "READ_MP"
7  ;CYCL CALL
8  FN 9: IF +0 EQU +0 GOTO LBL 223
9  Q0 = Q980
10 FN 9: IF +Q0 EQU +1 GOTO LBL 199
11 ;-t-FN 18: SYSREAD Q0 = ID1000 NR7441
12 ;-t-Q0 = 2 * FRAC ( Q0 / 2 )
13 ;-t-FN 9: IF +Q0 EQU +1 GOTO LBL 199
14 FN 9: IF +Q110 EQU +0 GOTO LBL 199
15 FN 9: IF +Q110 EQU +1 GOTO LBL 199
16 FN 14: ERROR= 1000
17 LBL 199
18 ;CALL PGM READ_MP7441
19 Q0 = Q982
20 FN 9: IF +Q0 EQU +0 GOTO LBL 206
21 ;-t-FN 18: SYSREAD Q0 = ID1000 NR7441
22 ;-t-Q0 = 8 * FRAC ( Q0 / 8 )
23 ;-t-FN 12: IF +Q0 LT +4 GOTO LBL 206
24 FN 11: IF +Q201 GT +0 GOTO LBL 207
25 FN 12: IF +Q358 LT +0 GOTO LBL 206
26 FN 9: IF +Q358 EQU +0 GOTO LBL 206
27 LBL 207
28 FN 14: ERROR= 1077
29 LBL 206
30 ;####################################
31 ;********Tiefe Positiv********
32 LBL 223
33 DECLARE STRING QS30
34 QS30 = SYSSTR( ID10025 NR1 )
35 ;+DECLARE STRING QS30 = "K1Sim"
36 DECLARE STRING QS31 = "CfgGeoCycle"
37 DECLARE STRING QS32 = "displayDepthErr"
38 Q2 = CFGREAD( KEY_QS30 TAG_QS31 ATR_QS32 )
39 FN 12: IF +Q201 LT +0 GOTO LBL 110
40 FN 9: IF +Q2 EQU +0 GOTO LBL 110
41 FN 14: ERROR= 1077
42 LBL 110
43 ;******** M3 / M4 ***********
44 DECLARE STRING QS32 = "displaySpindleErr"
45 Q0 = CFGREAD( KEY_QS30 TAG_QS31 ATR_QS32 )
46 FN 9: IF +Q0 EQU +0 GOTO LBL 111
47 FN 9: IF +Q110 EQU +1 GOTO LBL 111
48 FN 9: IF +Q110 EQU +0 GOTO LBL 111
49 FN 14: ERROR= 1000
50 LBL 111
51 END PGM CHECK_MP7441 MM 
