BEGIN PGM PRESET_417 MM
; Verwendet in Zyklus 417
;------------------------------
LBL 4
FN 9: IF +Q109 EQU +0 GOTO LBL 40
FN 9: IF +Q109 EQU +1 GOTO LBL 42
FN 9: IF +Q109 EQU +2 GOTO LBL 44
LBL 40
;************* TOOL AXIS X **************
FN 9: IF +Q303 EQU +0 GOTO LBL 140
Q22 = Q51 ; X Messwert
Q23 = Q116 ; Y
Q24 = Q117 ; Z
Q25 = Q333 ; Bezugspunkt
FN 17: SYSWRITE ID 532 NRQ305 IDX1 = BLOCK Q22 - Q25
FN 9: IF +0 EQU +0 GOTO LBL 99	
;** Write into Datum table **
LBL 140
Q51 = Q51 - Q333
FN 17: SYSWRITE ID 500 NRQ305 IDX1 =+Q51
FN 9: IF +0 EQU +0 GOTO LBL 99
LBL 42
;************* TOOL AXIS Y *************
FN 9: IF +Q303 EQU +0 GOTO LBL 142
Q22 = Q115 ; X
Q23 = Q51 ; Y Messwert
Q24 = Q117 ; Z
Q25 = Q333 ; Bezugspunkt
FN 17: SYSWRITE ID 532 NRQ305 IDX2 = BLOCK Q22 - Q25
FN 9: IF +0 EQU +0 GOTO LBL 99
;** Write into Datum table **
LBL 142
Q51 = Q51 - Q333
FN 17: SYSWRITE ID 500 NRQ305 IDX2 =+Q51
FN 9: IF +0 EQU +0 GOTO LBL 99
LBL 44
;************* TOOL AXIS Z *************
FN 9: IF +Q303 EQU +0 GOTO LBL 144
Q22 = Q115 ; X
Q23 = Q116 ; Y
Q24 = Q51 ; Z Messwert
Q25 = Q333 ; Bezugspunkt
FN 17: SYSWRITE ID 532 NRQ305 IDX3 = BLOCK Q22 - Q25
FN 9: IF +0 EQU +0 GOTO LBL 99
;** Write into Datum table **
LBL 144
Q51 = Q51 - Q333
FN 17: SYSWRITE ID 500 NRQ305 IDX3 =+Q51
FN 9: IF +0 EQU +0 GOTO LBL 99
LBL 99
;------------------------------
END PGM PRESET_417 MM 
