BEGIN PGM 410 MM
CALL PGM CHECK_BAMODE.CYC
FN 9: IF +Q169 EQU +1.1 GOTO LBL 254
Q198 = 410
CALL PGM ORIENT.CYC
FN 10: IF +Q303 NE +1 GOTO LBL 10
CALL PGM INIT41X.CYC
LBL 10
CALL PGM INIT.CYC
QL2 = Q2
Q19 = Q320
Q25 = 0 + Q41
Q26 = 90 + Q41
Q27 = 180 + Q41
Q28 = 270 + Q41
Q320 = Q320 + Q2 + Q3
Q1 = Q321 - ( Q323 / 2 ) + Q320
Q11 = Q321 + ( Q323 / 2 ) - Q320
Q2 = Q322 - ( Q324 / 2 ) + Q320
Q12 = Q322 + ( Q324 / 2 ) - Q320
FN 12: IF +Q1 LT +Q321 GOTO LBL 51
FN 0: Q1 =+Q321
FN 0: Q11 =+Q321
FN 0: Q15 =+1.1
LBL 51
FN 12: IF +Q2 LT +Q322 GOTO LBL 52
FN 0: Q2 =+Q322
FN 0: Q12 =+Q322
FN 0: Q16 =+1.1
LBL 52
FN 1: Q17 =+Q15 + +Q16
FN 1: Q0 =+Q109 + +1
FN 12: IF +Q261 LT +Q260 GOTO LBL 130
FN 0: Q260 =+Q261
LBL 130
FN 18: SYSREAD Q0 = ID270 NR1 IDXQ0
FN 11: IF +Q0 GT +Q260 GOTO LBL 120
L  Z+Q260 R0 FQ59
LBL 120
L  X+Q1  Y+Q322 R0 FQ59
TCH PROBE 1.0 BEZUGSPUNKT POLAR
TCH PROBE 1.1 X WINKEL:+Q27
TCH PROBE 1.2  Z+Q261
CALL PGM SUB_POSREAD.CYC
FN 0: Q5 =+Q141
FN 9: IF +Q17 EQU +2.2 GOTO LBL 1
FN 9: IF +Q301 EQU +0 GOTO LBL 1
L  Z+Q260 FQ59
L  X+Q321  Y+Q2 FQ59
LBL 1
L  Y+Q2 FQ59
L  X+Q321 FQ59
TCH PROBE 1.0 BEZUGSPUNKT POLAR
TCH PROBE 1.1 X WINKEL:+Q28
TCH PROBE 1.2  Z+Q261
CALL PGM SUB_POSREAD.CYC
FN 0: Q7 =+Q142
FN 9: IF +Q17 EQU +2.2 GOTO LBL 2
FN 9: IF +Q301 EQU +0 GOTO LBL 2
L  Z+Q260 FQ59
L  X+Q11  Y+Q322 FQ59
LBL 2
L  X+Q11 FQ59
L  Y+Q322 FQ59
TCH PROBE 1.0 BEZUGSPUNKT POLAR
TCH PROBE 1.1 X WINKEL:+Q25
TCH PROBE 1.2  Z+Q261
CALL PGM SUB_POSREAD.CYC
FN 0: Q6 =+Q141
FN 9: IF +Q17 EQU +2.2 GOTO LBL 3
FN 9: IF +Q301 EQU +0 GOTO LBL 3
L  Z+Q260 FQ59
L  X+Q321  Y+Q12 FQ59
LBL 3
L  Y+Q12 FQ59
L  X+Q321 FQ59
TCH PROBE 1.0 BEZUGSPUNKT POLAR
TCH PROBE 1.1 X WINKEL:+Q26
TCH PROBE 1.2  Z+Q261
CALL PGM SUB_POSREAD.CYC
FN 0: Q8 =+Q142
L  Z+Q260 FQ59
Q13 = ABS ( Q6 - Q5 )
Q14 = ABS ( Q8 - Q7 )
Q31 = Q5 + ( Q13 / 2 )
Q32 = Q7 + ( Q14 / 2 )
Q151 = Q31
Q152 = Q32
Q154 = Q13 + ( QL2 * +2 )
Q155 = Q14 + ( QL2 * +2 )
FN 10: IF +Q113 NE +1 GOTO LBL 170
Q151 = Q31 / 25.4
Q152 = Q32 / 25.4
Q154 = Q13 / 25.4
Q155 = Q14 / 25.4
LBL 170
CALL PGM PRESET_41X.CYC
FN 17: SYSWRITE ID 990 NR1 =+0
FN 17: SYSWRITE ID 990 NR2 =+0
FN 9: IF +Q381 EQU +0 GOTO LBL 254
TCH PROBE 417 BZPKT TS.-ACHSE ~
 Q263=+Q382 ;1. PUNKT 1. ACHSE ~
 Q264=+Q383 ;1. PUNKT 2. ACHSE ~
 Q294=+Q384 ;1. PUNKT 3. ACHSE ~
 Q320=+Q19 ;SICHERHEITS-ABST. ~
 Q260=+Q260 ;SICHERE HOEHE ~
 Q305=+Q305 ;NR. IN TABELLE ~
 Q333=+Q333 ;BEZUGSPUNKT ~
 Q303=+Q303 ;MESSWERT-UEBERGABE
LBL 254
FN 17: SYSWRITE ID 990 NR16 =+0 ;# Spindelkontrolle aus
Q199 = 0
END PGM 410 MM
