0  BEGIN PGM ERROR MM 
;**********************************
FN 10: IF +Q109 NE -1 GOTO LBL 10
FN 14: ERROR= 1001
LBL 10
FN 17: SYSWRITE ID 212 =+3
;*************************
FN 9: IF +Q93 EQU +1 GOTO LBL 93
FN 9: IF +Q94 EQU +1 GOTO LBL 94
FN 9: IF +Q95 EQU +1 GOTO LBL 95
FN 9: IF +0 EQU +0 GOTO LBL 40
;***********ZYKLUS 3**************
LBL 93
Q87 = ABS Q32
Q84 = ABS Q33
FN 11: IF +Q84 GT +Q87 GOTO LBL 103
Q87 = ABS Q33
LBL 103
Q85 = ABS Q87 / 6
Q86 = ABS Q87 / 2
FN 11: IF +Q108 GT +Q86 GOTO LBL 86
FN 12: IF +Q85 LT +Q108 GOTO LBL 123
FN 9: IF +Q85 EQU +Q108 GOTO LBL 123
FN 14: ERROR= 1002
LBL 86
FN 14: ERROR= 1003
FN 9: IF +0 EQU +0 GOTO LBL 123
;***********ZYKLUS 4**************
LBL 94
FN 18: SYSREAD Q34 = ID30 NR9
FN 12: IF +Q108 LT +Q34 GOTO LBL 211
Q34 = 0
LBL 211
Q87 = Q32
FN 11: IF +Q33 GT +Q32 GOTO LBL 84
Q87 = Q33
LBL 84
Q86 = ABS Q87 / 2
FN 12: IF +Q34 LT +Q86 GOTO LBL 212
FN 14: ERROR= 1023
LBL 212
FN 11: IF +Q108 GT +Q86 GOTO LBL 104
FN 11: IF +Q34 GT +Q108 GOTO LBL 123
FN 9: IF +Q34 EQU +0 GOTO LBL 123
LBL 104
FN 14: ERROR= 1003
FN 9: IF +0 EQU +0 GOTO LBL 123
;*************************
;***********ZYKLUS 5**************
LBL 95
;*************************
FN 11: IF +Q31 GT +Q108 GOTO LBL 123
FN 14: ERROR= 1003
;********Tiefe Positiv********
LBL 123
;----------- WZ-R = 0 -------------
FN 11: IF +Q108 GT +0 GOTO LBL 40
FN 14: ERROR= 1021
LBL 40
;*************************
DECLARE STRING QS30
QS30 = SYSSTR( ID10025 NR1 )
DECLARE STRING QS31 = "CfgGeoCycle"
DECLARE STRING QS32 = "displayDepthErr"
Q90 = CFGREAD( KEY_QS30 TAG_QS31 ATR_QS32 )
FN 12: IF +Q21 LT +0 GOTO LBL 110
FN 9: IF +Q90 EQU +0 GOTO LBL 110
FN 14: ERROR= 1077
LBL 110
;******** M3 / M4 ***********
DECLARE STRING QS32 = "displaySpindleErr"
Q91 = CFGREAD( KEY_QS30 TAG_QS31 ATR_QS32 )
FN 9: IF +Q91 EQU +0 GOTO LBL 111
FN 9: IF +Q110 EQU +1 GOTO LBL 111
FN 9: IF +Q110 EQU +0 GOTO LBL 111
FN 14: ERROR= 1000
LBL 111
;FN 37: EXPORT Q0 - Q99
END PGM ERROR MM 
