BEGIN PGM AXISCOMP MM
L  Z+Q260 R0 FQ59
; Ausrichten A (WZ-Achse X)
FN 10: IF +Q109 NE +0 GOTO LBL 30
L IA+Q50 R0 FQ59
FN 9: IF +Q337 EQU +0 GOTO LBL 199
FN 18: SYSREAD Q6 = ID270 NR1 IDX4
;=FN 25: PRESET =  A /+Q6 /+0
;FN 22: FUNCT Q1 FNR830 PIN2 PIN4 PEX+Q6 PEX+0
Q21 = Q305 ;### Preset-Nummer
Q22 = 0 ;### 0=Achs-Offset, 1=Basistrafo
Q23 = 4 ;### Achs-ID A=4, B=5, C=6
Q25 = 0 ;### Preset nach Eintrag aktivieren, 0= Vorheriger Preset
Q24 = 0
FN 9: IF +0 EQU +0 GOTO LBL 250
LBL 30
; Ausrichten B (WZ-Achse Y)
FN 10: IF +Q109 NE +1 GOTO LBL 31
L IB+Q50 R0 FQ59
FN 9: IF +Q337 EQU +0 GOTO LBL 199
FN 18: SYSREAD Q6 = ID270 NR1 IDX5
;=FN 25: PRESET =  B /+Q6 /+0
;FN 22: FUNCT Q1 FNR830 PIN2 PIN5 PEX+Q6 PEX+0
Q21 = Q305 ;### Preset-Nummer
Q22 = 0 ;### 0=Achs-Offset, 1=Basistrafo
Q23 = 5 ;### Achs-ID A=4, B=5, C=6
Q25 = 0 ;### Preset nach Eintrag aktivieren, 0= Vorheriger Preset
Q24 = 0
FN 9: IF +0 EQU +0 GOTO LBL 250
LBL 31
; Ausrichten C (WZ-Achse Z)
FN 10: IF +Q109 NE +2 GOTO LBL 32
L IC+Q50 R0 FQ59
FN 9: IF +Q337 EQU +0 GOTO LBL 199
FN 18: SYSREAD Q6 = ID270 NR1 IDX6
;=FN 25: PRESET =  C /+Q6 /+0
;FN 22: FUNCT Q1 FNR830 PIN2 PIN6 PEX+Q6 PEX+0
Q21 = Q305 ;### Preset-Nummer
Q22 = 0 ;### 0=Achs-Offset, 1=Basistrafo
Q23 = 6 ;### Achs-ID A=4, B=5, C=6
Q25 = 0 ;### Preset nach Eintrag aktivieren, 0= Vorheriger Preset
Q24 = 0
LBL 250
FN 11: IF +Q305 GT +0 GOTO LBL 252
; Grunddrehung => Zeile 0 
Q25 = 1 ;### Preset nach Eintrag aktivieren, 0= Vorheriger Preset
LBL 252
CYCL DEF 952
FN 9: IF +0 EQU +0 GOTO LBL 199
LBL 32
FN 14: ERROR= 1019
LBL 199
END PGM AXISCOMP MM
