BEGIN PGM 440 MM 
FN 20: WAIT FOR  SYNC
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
Q363 = ABS Q363
Q364 = ABS Q364
FN 18: SYSREAD Q0 = ID2000 NR10 IDX4574
FN 18: SYSREAD Q1 = ID2000 NR10 IDX4575
Q30 = 0
FN 10: IF +Q0 NE +1 GOTO LBL 70
Q30 = 1
LBL 70
FN 10: IF +Q1 NE +1 GOTO LBL 71
Q30 = 2
LBL 71
FN 18: SYSREAD Q0 = ID210 NR1
FN 9: IF +Q0 EQU +0 GOTO LBL 90
FN 14: ERROR= 1006
LBL 90
FN 18: SYSREAD Q0 = ID210 NR2
FN 9: IF +Q0 EQU +0 GOTO LBL 91
FN 14: ERROR= 1006
LBL 91
FN 18: SYSREAD Q0 = ID210 NR3
FN 9: IF +Q0 EQU +0 GOTO LBL 92
FN 14: ERROR= 1008
LBL 92
FN 18: SYSREAD Q0 = ID210 NR4 IDX1
FN 9: IF +Q0 EQU +1 GOTO LBL 93
FN 14: ERROR= 1007
LBL 93
FN 18: SYSREAD Q0 = ID210 NR4 IDX2
FN 9: IF +Q0 EQU +1 GOTO LBL 94
FN 14: ERROR= 1007
LBL 94
FN 18: SYSREAD Q0 = ID210 NR4 IDX3
FN 9: IF +Q0 EQU +1 GOTO LBL 95
FN 14: ERROR= 1007
LBL 95
FN 18: SYSREAD Q196 = ID20 NR5
FN 9: IF +Q363 EQU +0 GOTO LBL 98
FN 18: SYSREAD Q0 = ID210 NR5 IDX1
FN 18: SYSREAD Q1 = ID210 NR5 IDX2
FN 18: SYSREAD Q2 = ID210 NR5 IDX3
FN 26: TABOPEN SYS:\JHCYC\NC\TTCALDAT.TAB
FN 28: TABREAD Q10 =Q30 /"3DROTA,3DROTB,3DROTC"
Q0 = Q0 + Q1 + Q2
Q10 = Q10 + Q11 + Q12
FN 9: IF +Q0 EQU +Q10 GOTO LBL 98
FN 14: ERROR= 1006
LBL 98
FN 17: SYSWRITE ID 990 NR6 =+1
FN 18: SYSREAD Q1 = ID350 NR20 IDX1
FN 18: SYSREAD Q2 = ID350 NR20 IDX2
FN 18: SYSREAD Q3 = ID350 NR20 IDX3
FN 18: SYSREAD Q4 = ID1000 NR6540 IDX0
FN 18: SYSREAD Q5 = ID1000 NR6540 IDX1
FN 18: SYSREAD Q6 = ID350 NR21
FN 18: SYSREAD Q7 = ID1000 NR6130
Q8 = ABS Q108
FN 18: SYSREAD Q9 = ID1000 NR6530 IDX0
FN 18: SYSREAD Q14 = ID200 NR2
FN 18: SYSREAD Q18 = ID50 NR19
FN 18: SYSREAD Q19 = ID50 NR20
Q18 = ABS Q18
FN 10: IF +Q18 NE +99999.9999 GOTO LBL 72
Q18 = Q108
LBL 72
FN 18: SYSREAD Q58 = ID1000 NR6520
FN 18: SYSREAD Q59 = ID1000 NR6550
Q20 = Q3 + Q4 + Q14 + Q320
Q25 = Q3 - Q9 + Q14 - Q19
Q320 = Q320 + Q5 + Q6 + Q8
Q57 = Q364 + 60
Q185 = 0
Q186 = 0
Q187 = 0
FN 9: IF +0 EQU +0 GOTO LBL Q57
LBL 60
Q21 = Q1 - Q320
Q22 = Q2
Q15 = 0
Q1 = Q1 - Q18
FN 9: IF +0 EQU +0 GOTO LBL 99
LBL 61
Q23 = Q1
Q24 = Q2 - Q320
Q16 = 90
Q2 = Q2 - Q18
FN 9: IF +0 EQU +0 GOTO LBL 99
LBL 62
Q21 = Q1 + Q320
Q22 = Q2
Q15 = 180
Q1 = Q1 + Q18
FN 9: IF +0 EQU +0 GOTO LBL 99
LBL 63
Q23 = Q1
Q24 = Q2 + Q320
Q16 = 270
Q2 = Q2 + Q18
FN 9: IF +0 EQU +0 GOTO LBL 99
LBL 64
Q21 = Q1 - Q320
Q22 = Q2
Q23 = Q1
Q24 = Q2 - Q320
Q15 = 0
Q16 = 90
Q1 = Q1 - Q18
FN 9: IF +0 EQU +0 GOTO LBL 99
LBL 65
Q21 = Q1 - Q320
Q22 = Q2
Q23 = Q1
Q24 = Q2 + Q320
Q15 = 0
Q16 = 270
Q1 = Q1 - Q18
FN 9: IF +0 EQU +0 GOTO LBL 99
LBL 66
Q21 = Q1 + Q320
Q22 = Q2
Q23 = Q1
Q24 = Q2 - Q320
Q15 = 180
Q16 = 90
Q1 = Q1 + Q18
FN 9: IF +0 EQU +0 GOTO LBL 99
LBL 67
Q21 = Q1 + Q320
Q22 = Q2
Q23 = Q1
Q24 = Q2 + Q320
Q15 = 180
Q16 = 270
Q1 = Q1 + Q18
LBL 99
FN 17: SYSWRITE ID 212 =+3
FN 17: SYSWRITE ID 990 NR1 =+1
Q0 = Q109 + 1
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+Q2 R0 FQ59 M91
L  Z+Q20 R0 FQ59 M91
TCH PROBE 3.0 MESSEN
TCH PROBE 3.1 Q10
TCH PROBE 3.2 Z WINKEL:+180
TCH PROBE 3.3 ABST+Q7 FQ58 MB2 BEZUGSSYSTEM:0
L  Z+Q20 R0 FQ59 M91
Q10 = Q12
FN 9: IF +Q364 EQU +1 GOTO LBL 100
FN 9: IF +Q364 EQU +3 GOTO LBL 100
L  X+Q21  Y+Q22 R0 FQ59 M91
L  Z+Q25 R0 FQ59 M91
TCH PROBE 3.0 MESSEN
TCH PROBE 3.1 Q11
TCH PROBE 3.2 X WINKEL:+Q15
TCH PROBE 3.3 ABST+Q7 FQ58 MB2 BEZUGSSYSTEM:0
L  X+Q21  Y+Q22 R0 FQ59 M91
L  Z+Q20 R0 FQ59 M91
FN 12: IF +Q364 LT +4 GOTO LBL 50
LBL 100
L  X+Q23  Y+Q24 R0 FQ59 M91
L  Z+Q25 R0 FQ59 M91
TCH PROBE 3.0 MESSEN
TCH PROBE 3.1 Q12
TCH PROBE 3.2 X WINKEL:+Q16
TCH PROBE 3.3 ABST+Q7 FQ58 MB2 BEZUGSSYSTEM:0
L  X+Q23  Y+Q24 R0 FQ59 M91
Q12 = Q13
LBL 50
L  Z+Q260 R0 FQ59
FN 10: IF +Q363 NE +0 GOTO LBL 51
Q13 = 1
FN 18: SYSREAD Q40 = ID210 NR5 IDX1
FN 18: SYSREAD Q41 = ID210 NR5 IDX2
FN 18: SYSREAD Q42 = ID210 NR5 IDX3
FN 26: TABOPEN SYS:\JHCYC\NC\TTCALDAT.TAB
FN 27: TABWRITE Q30 /"CALZ,CALX,CALY,FLAG" = Q10
FN 27: TABWRITE Q30 /"3DROTA,3DROTB,3DROTC" = Q40
FN 9: IF +0 EQU +0 GOTO LBL 254
LBL 51
FN 26: TABOPEN SYS:\JHCYC\NC\TTCALDAT.TAB
FN 28: TABREAD Q20 =Q30 /"FLAG"
FN 10: IF +Q20 NE +0 GOTO LBL 52
FN 14: ERROR= 1071
LBL 52
FN 28: TABREAD Q20 =Q30 /"CALZ,CALX,CALY"
Q187 = Q10 - Q20
Q185 = Q11 - Q21
Q186 = Q12 - Q22
FN 18: SYSREAD Q0 = ID20 NR1
FN 18: SYSREAD Q5 = ID50 NR17 IDXQ0
FN 18: SYSREAD Q7 = ID50 NR16 IDXQ0
FN 9: IF +Q5 EQU +0 GOTO LBL 151
Q15 = ABS Q185
Q16 = ABS Q186
Q25 = Q5 - Q15
Q26 = Q5 - Q16
FN 11: IF +Q25 GT +0 GOTO LBL 150
FN 9: IF +Q25 EQU +0 GOTO LBL 150
FN 14: ERROR= 1072
LBL 150
FN 11: IF +Q26 GT +0 GOTO LBL 151
FN 9: IF +Q26 EQU +0 GOTO LBL 151
FN 14: ERROR= 1072
LBL 151
FN 9: IF +Q7 EQU +0 GOTO LBL 254
Q17 = ABS Q187
Q27 = Q7 - Q17
FN 11: IF +Q27 GT +0 GOTO LBL 254
FN 9: IF +Q27 EQU +0 GOTO LBL 254
FN 14: ERROR= 1072
LBL 254
FN 9: IF +Q196 EQU +0 GOTO LBL 130
FN 9: IF +Q196 EQU +1 GOTO LBL 131
FN 9: IF +0 EQU +0 GOTO LBL 132
LBL 130
L M3
FN 9: IF +0 EQU +0 GOTO LBL 132
LBL 131
L M4
LBL 132
FN 17: SYSWRITE ID 990 NR1 =+0
FN 17: SYSWRITE ID 990 NR6 =+0
Q196 = 0
END PGM 440 MM 
