BEGIN PGM 417 MM
FN 9: IF Q305  EQU 0  GOTO LBL "IFNOT_1"
 FN 18: SYSREAD QL0 = ID 10 NR 103 IDX 303
 FN 9: IF QL0  EQU 0 GOTO LBL "IF_2"
 FN 9: IF Q303  EQU -1 GOTO LBL "IF_2"
 FN 9: IF 0 EQU 0 GOTO LBL "IFNOT_2"
 LBL "IF_2"
  FN 14: ERROR= 1078
 LBL "IFNOT_2"
LBL "IFNOT_1"
CALL PGM CHECK_BAMODE.CYC
FN 9: IF +Q169 EQU +1.1 GOTO LBL 254
Q198 = 417
CALL PGM ORIENT.CYC
FN 10: IF +Q303 NE +1 GOTO LBL 10
CALL PGM INIT41X.CYC
LBL 10
CALL PGM INIT.CYC
Q320 = Q320 + Q2 + Q3
FN 12: IF +Q294 LT +Q260 GOTO LBL 130
FN 0: Q260 =+Q294
LBL 130
FN 1: Q1 =+Q109 + +1
FN 18: SYSREAD Q0 = ID270 NR1 IDXQ1
FN 11: IF +Q0 GT +Q260 GOTO LBL 120
L  Z+Q260 R0 FQ59
LBL 120
Q294 = Q294 + Q320
L  X+Q263  Y+Q264 R0 FQ59
TCH PROBE 1.0 BEZUGSPUNKT POLAR
TCH PROBE 1.1 Z WINKEL:+180
TCH PROBE 1.2  Z+Q294
CALL LBL 253
;Bei NC-Kern orieniert sich die Konvertierung
;am aktuellen PGM (nicht Hauptprogramm)
;FN 10: IF +Q113 NE +1 GOTO LBL 97
;Q51 = Q51 + Q32 - ( Q114 * 25.4 )
;FN 9: IF +0 EQU +0 GOTO LBL 98
LBL 97
Q51 = Q51 + Q32 - Q114
LBL 98
Q160 = Q51
FN 10: IF +Q113 NE +1 GOTO LBL 170
Q160 = Q51 / 25.4
LBL 170
L  Z+Q260 FQ59
; Aufruf Bezugspunkt-Setzen
CALL PGM PRESET_417.CYC
FN 17: SYSWRITE ID 990 NR1 =+0
FN 17: SYSWRITE ID 990 NR2 =+0
FN 9: IF +0 EQU +0 GOTO LBL 254
; UP zum Lesen der Positionswerte
LBL 253
FN 9: IF +Q109 EQU +0 GOTO LBL 230
FN 9: IF +Q109 EQU +6 GOTO LBL 230
FN 9: IF +Q109 EQU +1 GOTO LBL 231
FN 9: IF +Q109 EQU +7 GOTO LBL 231
FN 9: IF +Q109 EQU +2 GOTO LBL 232
FN 9: IF +Q109 EQU +8 GOTO LBL 232
LBL 230
FN 18: SYSREAD Q51 = ID360 NR3 IDX1
FN 18: SYSREAD Q31 = ID220 NR4 IDX1
FN 18: SYSREAD Q32 = ID220 NR2 IDX1
FN 9: IF +0 EQU +0 GOTO LBL 233
LBL 231
FN 18: SYSREAD Q51 = ID360 NR3 IDX2
FN 18: SYSREAD Q31 = ID220 NR4 IDX2
FN 18: SYSREAD Q32 = ID220 NR2 IDX2
FN 9: IF +0 EQU +0 GOTO LBL 233
LBL 232
FN 18: SYSREAD Q51 = ID360 NR3 IDX3
FN 18: SYSREAD Q31 = ID220 NR4 IDX3
FN 18: SYSREAD Q32 = ID220 NR2 IDX3
LBL 233
LBL 0
LBL 254
FN 17: SYSWRITE ID 990 NR16 =+0 ;# Spindelkontrolle aus
END PGM 417 MM
