BEGIN PGM PROBE MM 
FN 17: SYSWRITE ID 991 NR100 IDX1 =+1
;-----------------------------------------------
FN 18: SYSREAD Q87 = ID210 NR2 ;ROTPROG
CYCL DEF 10.0 DREHUNG
CYCL DEF 10.1  ROT+0
;-----------------------------------------------
FN 18: SYSREAD Q0 = ID220 NR2 IDX1;--NPV X
FN 9: IF +Q0 EQU +0 GOTO LBL 377
FN 14: ERROR= 1009
LBL 377
FN 18: SYSREAD Q0 = ID220 NR2 IDX2;--NPV Y
FN 9: IF +Q0 EQU +0 GOTO LBL 378
FN 14: ERROR= 1009
LBL 378
FN 18: SYSREAD Q0 = ID220 NR2 IDX3;--NPV Z
FN 9: IF +Q0 EQU +0 GOTO LBL 379
FN 14: ERROR= 1009
LBL 379
;-----------------------------------------------
FN 18: SYSREAD Q0 = ID210 NR3 ;Spiegeln
FN 9: IF +Q0 EQU +0 GOTO LBL 381
FN 14: ERROR= 1008
LBL 381
;-----------------------------------------------
FN 18: SYSREAD Q0 = ID210 NR4 IDX1;Skalierung
FN 10: IF +Q0 NE +1 GOTO LBL 382
FN 18: SYSREAD Q0 = ID210 NR4 IDX2
FN 10: IF +Q0 NE +1 GOTO LBL 382
FN 18: SYSREAD Q0 = ID210 NR4 IDX3
FN 10: IF +Q0 NE +1 GOTO LBL 382
FN 9: IF +0 EQU +0 GOTO LBL 383
LBL 382
FN 14: ERROR= 1007
LBL 383
;-----------------------------------------------
FN 18: SYSREAD Q40 = ID270 NR1 IDX1 ;# Pos.X #
FN 18: SYSREAD Q41 = ID270 NR1 IDX2 ;# Pos.Y #
FN 18: SYSREAD Q42 = ID270 NR1 IDX3 ;# Pos.Z #
FN 9: IF +0 EQU +0 GOTO LBL 2
FN 18: SYSREAD Q43 = ID270 NR1 IDX4 ;# Pos.A #
FN 18: SYSREAD Q44 = ID270 NR1 IDX5 ;# Pos.B #
FN 18: SYSREAD Q45 = ID270 NR1 IDX6 ;# Pos.C #
FN 18: SYSREAD Q46 = ID270 NR1 IDX7 ;# Pos.U #
FN 18: SYSREAD Q47 = ID270 NR1 IDX8 ;# Pos.V #
FN 18: SYSREAD Q48 = ID270 NR1 IDX9 ;# Pos.W #
LBL 2
FN 9: IF +Q750 EQU +1 GOTO LBL 750 ;# X+ #
FN 9: IF +Q751 EQU +1 GOTO LBL 751 ;# X- #
FN 9: IF +Q752 EQU +1 GOTO LBL 752 ;# Y+ #
FN 9: IF +Q753 EQU +1 GOTO LBL 753 ;# Y- #
FN 9: IF +Q754 EQU +1 GOTO LBL 754 ;# Z+ #
FN 9: IF +Q755 EQU +1 GOTO LBL 755 ;# Z- #
FN 14: ERROR= 1064
;-----------------------------------------------
LBL 750
Q730 = 750 ;Akt. SK fr Anzeige
FN 9: IF +Q799 EQU +1 GOTO LBL 650
TCH PROBE 1.0 BEZUGSPUNKT POLAR
TCH PROBE 1.1 X WINKEL:+0
TCH PROBE 1.2  X+Q40
Q10 = Q115
FN 9: IF +0 EQU +0 GOTO LBL 99
LBL 650
Q10 = Q40
Q115 = Q40
Q116 = Q41
Q117 = Q42
FN 9: IF +0 EQU +0 GOTO LBL 99
;-----------------------------------------------
LBL 751
Q730 = 751 ;Akt. SK fr Anzeige
FN 9: IF +Q799 EQU +1 GOTO LBL 651
TCH PROBE 1.0 BEZUGSPUNKT POLAR
TCH PROBE 1.1 X WINKEL:+180
TCH PROBE 1.2  X+Q40
Q10 = Q115
FN 9: IF +0 EQU +0 GOTO LBL 99
LBL 651
Q10 = Q40
Q115 = Q40
Q116 = Q41
Q117 = Q42
FN 9: IF +0 EQU +0 GOTO LBL 99
;-----------------------------------------------
LBL 752
Q730 = 752 ;Akt. SK fr Anzeige
FN 9: IF +Q799 EQU +1 GOTO LBL 652
TCH PROBE 1.0 BEZUGSPUNKT POLAR
TCH PROBE 1.1 Y WINKEL:+0
TCH PROBE 1.2  Y+Q41
Q10 = Q116
FN 9: IF +0 EQU +0 GOTO LBL 99
LBL 652
Q10 = Q41
Q115 = Q40
Q116 = Q41
Q117 = Q42
FN 9: IF +0 EQU +0 GOTO LBL 99
;-----------------------------------------------
LBL 753
Q730 = 753 ;Akt. SK fr Anzeige
FN 9: IF +Q799 EQU +1 GOTO LBL 653
TCH PROBE 1.0 BEZUGSPUNKT POLAR
TCH PROBE 1.1 Y WINKEL:-180
TCH PROBE 1.2  Y+Q41
Q10 = Q116
FN 9: IF +0 EQU +0 GOTO LBL 99
LBL 653
Q10 = Q41
Q115 = Q40
Q116 = Q41
Q117 = Q42
FN 9: IF +0 EQU +0 GOTO LBL 99
;-----------------------------------------------
LBL 754
Q730 = 754 ;Akt. SK fr Anzeige
FN 9: IF +Q799 EQU +1 GOTO LBL 654
TCH PROBE 1.0 BEZUGSPUNKT POLAR
TCH PROBE 1.1 Z WINKEL:+0
TCH PROBE 1.2  Z+Q42
Q10 = Q117
FN 9: IF +0 EQU +0 GOTO LBL 99
LBL 654
Q10 = Q42
Q115 = Q40
Q116 = Q41
Q117 = Q42
FN 9: IF +0 EQU +0 GOTO LBL 99
;-----------------------------------------------
LBL 755
Q730 = 755 ;Akt. SK fr Anzeige
FN 9: IF +Q799 EQU +1 GOTO LBL 655
TCH PROBE 1.0 BEZUGSPUNKT POLAR
TCH PROBE 1.1 Z WINKEL:-180
TCH PROBE 1.2  Z+Q42
Q10 = Q117
FN 9: IF +0 EQU +0 GOTO LBL 99
LBL 655
Q10 = Q42
Q115 = Q40
Q116 = Q41
Q117 = Q42
LBL 99
FN 9: IF +Q109 EQU +0 GOTO LBL 150
FN 9: IF +Q109 EQU +1 GOTO LBL 152
FN 9: IF +Q109 EQU +2 GOTO LBL 154
FN 9: IF +0 EQU +0 GOTO LBL 199
LBL 150
Q15 = Q115; Spindel X
Q16 = Q116; Haupt Y
Q17 = Q117; Neben Z
FN 9: IF +0 EQU +0 GOTO LBL 199
LBL 152
Q15 = Q116; Spindel Y
Q16 = Q117; Haupt Z
Q17 = Q115; Neben X
FN 9: IF +0 EQU +0 GOTO LBL 199
LBL 154
Q15 = Q117; Spindel Z
Q16 = Q115; Haupt X
Q17 = Q116; Neben Y
LBL 199
CYCL DEF 10.0 DREHUNG
CYCL DEF 10.1  ROT+Q87
Q799 = 0
END PGM PROBE MM 
