BEGIN PGM INIT MM 
;---------------------------------------------
Q262 = ABS Q262
Q272 = ABS Q272
Q275 = ABS Q275
Q276 = ABS Q276
Q277 = ABS Q277
Q278 = ABS Q278
Q279 = ABS Q279
Q280 = ABS Q280
Q281 = ABS Q281
Q282 = ABS Q282
Q283 = ABS Q283
Q284 = ABS Q284
Q285 = ABS Q285
Q286 = ABS Q286
Q287 = ABS Q287
FN 9: IF +Q198 EQU +427 GOTO LBL 8
Q288 = ABS Q288
Q289 = ABS Q289
LBL 8
Q301 = ABS Q301
Q304 = ABS Q304
Q305 = ABS Q305
Q308 = ABS Q308
Q309 = ABS Q309
Q311 = ABS Q311
Q312 = ABS Q312
Q313 = ABS Q313
Q314 = ABS Q314
Q320 = ABS Q320
Q323 = ABS Q323
Q324 = ABS Q324
Q326 = ABS Q326
Q327 = ABS Q327
Q330 = ABS Q330
Q337 = ABS Q337
Q402 = ABS Q402
FN 11: IF +Q198 GT +419 GOTO LBL 11
FN 12: IF +Q198 LT +410 GOTO LBL 11
FN 9: IF +Q305 EQU +0 GOTO LBL 11
LBL 11
FN 10: IF +Q109 NE -1 GOTO LBL 1
FN 14: ERROR= 1001
LBL 1
FN 18: SYSREAD Q0 = ID210 NR3
FN 9: IF +Q0 EQU +0 GOTO LBL 2
FN 14: ERROR= 1008
LBL 2
FN 18: SYSREAD Q0 = ID210 NR4 IDX1
FN 18: SYSREAD Q1 = ID210 NR4 IDX2
FN 18: SYSREAD Q2 = ID210 NR4 IDX3
Q0 = Q0 + Q1 + Q2
FN 9: IF +Q0 EQU +3 GOTO LBL 3
FN 14: ERROR= 1007
LBL 3
FN 18: SYSREAD Q0 = ID210 NR1;=>Grunddrehung BA Manuell
FN 18: SYSREAD Q1 = ID210 NR2;=>Drehung Zyklus 10
Q41 = 0; Zyklus verfhrt bei NC-Kern im gedr. Koordinatensyst. ->Q0 + Q1
FN 17: SYSWRITE ID 212 =+3
FN 17: SYSWRITE ID 990 NR1 =+1
FN 17: SYSWRITE ID 990 NR2 =+3
FN 11: IF +Q198 GT +402 GOTO LBL 5
FN 11: IF +Q305 GT +0 GOTO LBL 252
FN 17: SYSWRITE ID 210 NR1 =+0
FN 9: IF +0 EQU +0 GOTO LBL 253
LBL 252
FN 17: SYSWRITE ID 210 NR1 =+0;=>Grunddrehung BA Manuell
;===FN 17: SYSWRITE ID 504 NRQ305 =+0;=>Grunddrehung Presettabelle
;Spindelachse Y?
FN 9: IF +Q109 EQU +1 GOTO LBL 91
;Antastachse Z?
FN 9: IF +Q109 EQU +2 GOTO LBL 92
Q23 = 4 ;### Achs-ID A=4, B=5, C=6
FN 9: IF +0 EQU +0 GOTO LBL 93
LBL 91
Q23 = 5 ;### Achs-ID A=4, B=5, C=6
FN 9: IF +0 EQU +0 GOTO LBL 93
LBL 92
Q23 = 6 ;### Achs-ID A=4, B=5, C=6
LBL 93
Q21 = Q305 ;### Preset-Nummer
Q22 = 1 ;### 0=Achs-Offset, 1=Basistrafo
Q25 = 0 ;### Preset nach Eintrag aktivieren, 0= Vorheriger Preset
Q24 = 0
CYCL DEF 952
LBL 253
LBL 5
FN 18: SYSREAD Q3 = ID350 NR56 IDX2;=>Sicherhietsabstand MP6140
FN 18: SYSREAD Q58 = ID350 NR55 IDX2;=>Antastvorschub MP6120
FN 18: SYSREAD Q59 = ID350 NR55 IDX1;=>Eilgang MP6150
FN 18: SYSREAD Q2 = ID350 NR52 IDX1;=>Kugelradius ID350 NR11
;===FN 18: SYSREAD Q0 = ID1000 NR7411;=>Verwaltung Kalibrierdaten
FN 10: IF +Q0 NE +0 GOTO LBL 7
;=FN 17: SYSWRITE ID 990 NR3 =+1;Abgleich MP7411 NC-Kern immer WZ-Tab
LBL 7
END PGM INIT MM 
