0  BEGIN PGM 440 MM
1  FN 20: WAIT FOR SYNC 
2  FN 18: SYSREAD Q0 = ID2000 NR10 IDX4158
3  FN 9: IF +Q0 EQU +1 GOTO LBL 254
4  FN 18: SYSREAD Q0 = ID990 NR2 IDX16
5  FN 9: IF +Q0 EQU +0 GOTO LBL 254
6  Q363 = ABS Q363  
7  Q364 = ABS Q364  
8  FN 18: SYSREAD Q0 = ID2000 NR10 IDX4574
9  FN 18: SYSREAD Q1 = ID2000 NR10 IDX4575
10  Q30 = 0  
11  FN 10: IF +Q0 NE +1 GOTO LBL 70
12  Q30 = 1  
13  LBL 70
14  FN 10: IF +Q1 NE +1 GOTO LBL 71
15  Q30 = 2  
16  LBL 71
17  FN 18: SYSREAD Q0 = ID210 NR1
18  FN 9: IF +Q0 EQU +0 GOTO LBL 90
19  FN 14: ERROR = 1006
20  LBL 90
21  FN 18: SYSREAD Q0 = ID210 NR2
22  FN 9: IF +Q0 EQU +0 GOTO LBL 91
23  FN 14: ERROR = 1006
24  LBL 91
25  FN 18: SYSREAD Q0 = ID210 NR3
26  FN 9: IF +Q0 EQU +0 GOTO LBL 92
27  FN 14: ERROR = 1008
28  LBL 92
29  FN 18: SYSREAD Q0 = ID210 NR4 IDX1
30  FN 9: IF +Q0 EQU +1 GOTO LBL 93
31  FN 14: ERROR = 1007
32  LBL 93
33  FN 18: SYSREAD Q0 = ID210 NR4 IDX2
34  FN 9: IF +Q0 EQU +1 GOTO LBL 94
35  FN 14: ERROR = 1007
36  LBL 94
37  FN 18: SYSREAD Q0 = ID210 NR4 IDX3
38  FN 9: IF +Q0 EQU +1 GOTO LBL 95
39  FN 14: ERROR = 1007
40  LBL 95
41  FN 18: SYSREAD Q196 = ID20 NR5
42  FN 9: IF +Q363 EQU +0 GOTO LBL 98
43  FN 18: SYSREAD Q0 = ID210 NR5 IDX1
44  FN 18: SYSREAD Q1 = ID210 NR5 IDX2
45  FN 18: SYSREAD Q2 = ID210 NR5 IDX3
46  FN 26: TABOPEN SYS:\JHCYC\NC\TTCALDAT.TAB 
47  FN 28: TABREAD Q10 = Q30 / "3DROTA,3DROTB,3DROTC" 
48  Q0 = Q0 + Q1 + Q2  
49  Q10 = Q10 + Q11 + Q12  
50  FN 9: IF +Q0 EQU +Q10 GOTO LBL 98
51  FN 14: ERROR = 1006
52  LBL 98
53  FN 17: SYSWRITE ID990 NR6 = +1
54  FN 18: SYSREAD Q1 = ID350 NR20 IDX1
55  FN 18: SYSREAD Q2 = ID350 NR20 IDX2
56  FN 18: SYSREAD Q3 = ID350 NR20 IDX3
57  FN 18: SYSREAD Q4 = ID1000 NR6540 IDX0
58  FN 18: SYSREAD Q5 = ID1000 NR6540 IDX1
59  FN 18: SYSREAD Q6 = ID350 NR21
60  FN 18: SYSREAD Q7 = ID1000 NR6130
61  Q8 = ABS Q108  
62  FN 18: SYSREAD Q9 = ID1000 NR6530 IDX0
63  FN 18: SYSREAD Q14 = ID200 NR2
64  FN 18: SYSREAD Q18 = ID50 NR19
65  Q18 = ABS Q18  
66  FN 10: IF +Q18 NE +99999.9999 GOTO LBL 72
67  Q18 = Q108  
68  LBL 72
69  FN 18: SYSREAD Q58 = ID1000 NR6520
70  FN 18: SYSREAD Q59 = ID1000 NR6550
71  Q20 = Q3 + Q4 + Q14 + Q320  
72  Q25 = Q3 - Q9 + Q14  
73  Q320 = Q320 + Q5 + Q6 + Q8  
74  Q57 = Q364 + 60  
75  Q185 = 0  
76  Q186 = 0  
77  Q187 = 0  
78  FN 9: IF +0 EQU +0 GOTO LBL Q57
79  LBL 60
80  Q21 = Q1 - Q320  
81  Q22 = Q2  
82  Q15 = 0  
83  Q1 = Q1 - Q18  
84  FN 9: IF +0 EQU +0 GOTO LBL 99
85  LBL 61
86  Q23 = Q1  
87  Q24 = Q2 - Q320  
88  Q16 = 90  
89  Q2 = Q2 - Q18  
90  FN 9: IF +0 EQU +0 GOTO LBL 99
91  LBL 62
92  Q21 = Q1 + Q320  
93  Q22 = Q2  
94  Q15 = 180  
95  Q1 = Q1 + Q18  
96  FN 9: IF +0 EQU +0 GOTO LBL 99
97  LBL 63
98  Q23 = Q1  
99  Q24 = Q2 + Q320  
100  Q16 = 270  
101  Q2 = Q2 + Q18  
102  FN 9: IF +0 EQU +0 GOTO LBL 99
103  LBL 64
104  Q21 = Q1 - Q320  
105  Q22 = Q2  
106  Q23 = Q1  
107  Q24 = Q2 - Q320  
108  Q15 = 0  
109  Q16 = 90  
110  Q1 = Q1 - Q18  
111  FN 9: IF +0 EQU +0 GOTO LBL 99
112  LBL 65
113  Q21 = Q1 - Q320  
114  Q22 = Q2  
115  Q23 = Q1  
116  Q24 = Q2 + Q320  
117  Q15 = 0  
118  Q16 = 270  
119  Q1 = Q1 - Q18  
120  FN 9: IF +0 EQU +0 GOTO LBL 99
121  LBL 66
122  Q21 = Q1 + Q320  
123  Q22 = Q2  
124  Q23 = Q1  
125  Q24 = Q2 - Q320  
126  Q15 = 180  
127  Q16 = 90  
128  Q1 = Q1 + Q18  
129  FN 9: IF +0 EQU +0 GOTO LBL 99
130  LBL 67
131  Q21 = Q1 + Q320  
132  Q22 = Q2  
133  Q23 = Q1  
134  Q24 = Q2 + Q320  
135  Q15 = 180  
136  Q16 = 270  
137  Q1 = Q1 + Q18  
138  LBL 99
139  FN 17: SYSWRITE ID212 = +3
140  FN 17: SYSWRITE ID990 NR1 = +1
141  Q0 = Q109 + 1  
142  FN 18: SYSREAD Q0 = ID270 NR1 IDXQ0
143  FN 11: IF +Q0 GT +Q260 GOTO LBL 120
144  L Z+Q260 R0 FQ59
145  LBL 120
146  L X+Q1 Y+Q2 R0 FQ59 M91
147  L Z+Q20 R0 FQ59 M91
148  TCH PROBE 3.0 MESSEN
149  TCH PROBE 3.1 Q10
150  TCH PROBE 3.2 Z WINKEL: +0
151  TCH PROBE 3.3 ABST -Q7 FQ58
152  L Z+Q20 R0 FQ59 M91 M141
153  Q10 = Q12  
154  FN 9: IF +Q364 EQU +1 GOTO LBL 100
155  FN 9: IF +Q364 EQU +3 GOTO LBL 100
156  L X+Q21 Y+Q22 R0 FQ59 M91
157  L Z+Q25 R0 FQ59 M91
158  TCH PROBE 3.0 MESSEN
159  TCH PROBE 3.1 Q11
160  TCH PROBE 3.2 X WINKEL: +Q15
161  TCH PROBE 3.3 ABST +Q7 FQ58
162  L X+Q21 Y+Q22 R0 FQ59 M91 M141
163  L Z+Q20 R0 FQ59 M91
164  FN 12: IF +Q364 LT +4 GOTO LBL 50
165  LBL 100
166  L X+Q23 Y+Q24 R0 FQ59 M91
167  L Z+Q25 R0 FQ59 M91
168  TCH PROBE 3.0 MESSEN
169  TCH PROBE 3.1 Q12
170  TCH PROBE 3.2 X WINKEL: +Q16
171  TCH PROBE 3.3 ABST +Q7 FQ58
172  L X+Q23 Y+Q24 R0 FQ59 M91 M141
173  Q12 = Q13  
174  LBL 50
175  L Z+Q260 R0 FQ59
176  FN 10: IF +Q363 NE +0 GOTO LBL 51
177  Q13 = 1  
178  FN 18: SYSREAD Q40 = ID210 NR5 IDX1
179  FN 18: SYSREAD Q41 = ID210 NR5 IDX2
180  FN 18: SYSREAD Q42 = ID210 NR5 IDX3
181  FN 26: TABOPEN SYS:\JHCYC\NC\TTCALDAT.TAB 
182  FN 27: TABWRITE Q30 / "CALZ,CALX,CALY,FLAG"  = Q10
183  FN 27: TABWRITE Q30 / "3DROTA,3DROTB,3DROTC"  = Q40
184  FN 9: IF +0 EQU +0 GOTO LBL 254
185  LBL 51
186  FN 26: TABOPEN SYS:\JHCYC\NC\TTCALDAT.TAB 
187  FN 28: TABREAD Q20 = Q30 / "FLAG" 
188  FN 10: IF +Q20 NE +0 GOTO LBL 52
189  FN 14: ERROR = 1071
190  LBL 52
191  FN 28: TABREAD Q20 = Q30 / "CALZ,CALX,CALY" 
192  Q187 = Q10 - Q20  
193  Q185 = Q11 - Q21  
194  Q186 = Q12 - Q22  
195  FN 18: SYSREAD Q0 = ID20 NR1
196  FN 18: SYSREAD Q5 = ID50 NR17 IDXQ0
197  FN 18: SYSREAD Q7 = ID50 NR16 IDXQ0
198  FN 9: IF +Q5 EQU +0 GOTO LBL 151
199  Q15 = ABS Q185  
200  Q16 = ABS Q186  
201  Q25 = Q5 - Q15  
202  Q26 = Q5 - Q16  
203  FN 11: IF +Q25 GT +0 GOTO LBL 150
204  FN 9: IF +Q25 EQU +0 GOTO LBL 150
205  FN 14: ERROR = 1072
206  LBL 150
207  FN 11: IF +Q26 GT +0 GOTO LBL 151
208  FN 9: IF +Q26 EQU +0 GOTO LBL 151
209  FN 14: ERROR = 1072
210  LBL 151
211  FN 9: IF +Q7 EQU +0 GOTO LBL 254
212  Q17 = ABS Q187  
213  Q27 = Q7 - Q17  
214  FN 11: IF +Q27 GT +0 GOTO LBL 254
215  FN 9: IF +Q27 EQU +0 GOTO LBL 254
216  FN 14: ERROR = 1072
217  LBL 254
218  FN 9: IF +Q196 EQU +0 GOTO LBL 130
219  FN 9: IF +Q196 EQU +1 GOTO LBL 131
220  FN 9: IF +0 EQU +0 GOTO LBL 132
221  LBL 130
222  L M3
223  FN 9: IF +0 EQU +0 GOTO LBL 132
224  LBL 131
225  L M4
226  LBL 132
227  FN 17: SYSWRITE ID990 NR1 = +0
228  FN 17: SYSWRITE ID990 NR6 = +0
229  Q196 = 0  
230  END PGM 440 MM
