BEGIN PGM 417 MM 
FN 18: SYSREAD Q0 = ID2000 NR10 IDX4158
FN 9: IF +Q0 EQU +1 GOTO LBL 254
FN 18: SYSREAD Q0 = ID990 NR2 IDX16
FN 9: IF +Q0 EQU +0 GOTO LBL 254
CALL PGM CHECK_MP7295_CYC417.CYC
Q198 = 417
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
; Aktiven Preset lesen alle Achsen
FN 18: SYSREAD Q0 = ID530 NR1
FN 10: IF +Q0 NE -1 GOTO LBL 1
Q0 = 0
LBL 1
;Abfrage ob Anzeige setzen
FN 10: IF +Q305 NE +0 GOTO LBL 2
FN 9: IF +Q199 EQU -1 GOTO LBL 2
CALL LBL 60
LBL 2
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
FN 10: IF +Q113 NE +1 GOTO LBL 97
Q1 = Q1 + Q32 - ( Q114 * 25.4 )
FN 9: IF +0 EQU +0 GOTO LBL 98
LBL 97
Q1 = Q1 + Q32 - Q114
LBL 98
Q160 = Q1
FN 10: IF +Q113 NE +1 GOTO LBL 170
Q160 = Q1 / 25.4
LBL 170
L  Z+Q260 FQ59
Q1 = Q1 - Q333
FN 9: IF +Q109 EQU +0 GOTO LBL 40
FN 9: IF +Q109 EQU +6 GOTO LBL 41
FN 9: IF +Q109 EQU +1 GOTO LBL 42
FN 9: IF +Q109 EQU +7 GOTO LBL 43
FN 9: IF +Q109 EQU +2 GOTO LBL 44
FN 9: IF +Q109 EQU +8 GOTO LBL 45
LBL 40
;** TOOL AXIS X
FN 9: IF +Q303 EQU +0 GOTO LBL 140
Q1 = Q1 - Q32
FN 17: SYSWRITE ID 502 NRQ305 IDX1 =+Q1
FN 9: IF +0 EQU +0 GOTO LBL 99
; Schreiben in NP-Tabelle
LBL 140
FN 17: SYSWRITE ID 500 NRQ305 IDX1 =+Q1
FN 9: IF +0 EQU +0 GOTO LBL 99
LBL 41
;** TOOL AXIS U
FN 9: IF +Q303 EQU +0 GOTO LBL 141
Q1 = Q1 - Q32
FN 17: SYSWRITE ID 502 NRQ305 IDX4 =+Q1
FN 9: IF +0 EQU +0 GOTO LBL 99
; Schreiben in NP-Tabelle
LBL 141
FN 17: SYSWRITE ID 500 NRQ305 IDX4 =+Q1
FN 9: IF +0 EQU +0 GOTO LBL 99
LBL 42
;** TOOL AXIS Y
FN 9: IF +Q303 EQU +0 GOTO LBL 142
Q1 = Q1 - Q32
FN 17: SYSWRITE ID 502 NRQ305 IDX2 =+Q1
FN 9: IF +0 EQU +0 GOTO LBL 99
; Schreiben in NP-Tabelle
LBL 142
FN 17: SYSWRITE ID 500 NRQ305 IDX2 =+Q1
FN 9: IF +0 EQU +0 GOTO LBL 99
LBL 43
;** TOOL AXIS V
FN 9: IF +Q303 EQU +0 GOTO LBL 143
Q1 = Q1 - Q32
FN 17: SYSWRITE ID 502 NRQ305 IDX5 =+Q1
FN 9: IF +0 EQU +0 GOTO LBL 99
; Schreiben in NP-Tabelle
LBL 143
FN 17: SYSWRITE ID 500 NRQ305 IDX5 =+Q1
FN 9: IF +0 EQU +0 GOTO LBL 99
LBL 44
;** TOOL AXIS Z
FN 9: IF +Q303 EQU +0 GOTO LBL 144
Q1 = Q1 - Q32
FN 17: SYSWRITE ID 502 NRQ305 IDX3 =+Q1
FN 9: IF +0 EQU +0 GOTO LBL 99
; Schreiben in NP-Tabelle
LBL 144
FN 17: SYSWRITE ID 500 NRQ305 IDX3 =+Q1
FN 9: IF +0 EQU +0 GOTO LBL 99
LBL 45
;** TOOL AXIS W
FN 9: IF +Q303 EQU +0 GOTO LBL 145
Q1 = Q1 - Q32
FN 17: SYSWRITE ID 502 NRQ305 IDX6 =+Q1
FN 9: IF +0 EQU +0 GOTO LBL 99
; Schreiben in NP-Tabelle
LBL 145
FN 17: SYSWRITE ID 500 NRQ305 IDX6 =+Q1
LBL 99
FN 17: SYSWRITE ID 990 NR1 =+0
FN 17: SYSWRITE ID 990 NR2 =+0
FN 10: IF +Q305 NE +0 GOTO LBL 200
; Zeile 0 aktivieren
FN 17: SYSWRITE ID 530 NR1 =+Q305
LBL 200
Q199 = +0
FN 9: IF +0 EQU +0 GOTO LBL 254
;** COPY ACTIVE LINE INTO LINE 0
LBL 60
FN 18: SYSREAD QL11 = ID503 NRQ0 IDX1
FN 18: SYSREAD QL12 = ID503 NRQ0 IDX2
FN 18: SYSREAD QL13 = ID503 NRQ0 IDX3
FN 18: SYSREAD QL14 = ID503 NRQ0 IDX4
FN 18: SYSREAD QL15 = ID503 NRQ0 IDX5
FN 18: SYSREAD QL16 = ID503 NRQ0 IDX6
FN 18: SYSREAD QL17 = ID503 NRQ0 IDX7
FN 18: SYSREAD QL18 = ID503 NRQ0 IDX8
FN 18: SYSREAD QL19 = ID503 NRQ0 IDX9
FN 18: SYSREAD QL20 = ID504 NRQ0
FN 17: SYSWRITE ID 503 NRQ305 IDX1 =+QL11
FN 17: SYSWRITE ID 503 NRQ305 IDX2 =+QL12
FN 17: SYSWRITE ID 503 NRQ305 IDX3 =+QL13
FN 17: SYSWRITE ID 503 NRQ305 IDX4 =+QL14
FN 17: SYSWRITE ID 503 NRQ305 IDX5 =+QL15
FN 17: SYSWRITE ID 503 NRQ305 IDX6 =+QL16
FN 17: SYSWRITE ID 503 NRQ305 IDX7 =+QL17
FN 17: SYSWRITE ID 503 NRQ305 IDX8 =+QL18
FN 17: SYSWRITE ID 503 NRQ305 IDX9 =+QL19
FN 17: SYSWRITE ID 504 NRQ305 =+QL20
LBL 0
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 Q1 = 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 Q1 = 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 Q1 = ID360 NR3 IDX3
FN 18: SYSREAD Q31 = ID220 NR4 IDX3
FN 18: SYSREAD Q32 = ID220 NR2 IDX3
LBL 233
LBL 0
LBL 254
END PGM 417 MM 
