0  BEGIN PGM cslotmill MM 
1  FN 22: FUNCT Q0 FNR1
2  FN 22: FUNCT Q0 FNR113
3  FN 22: FUNCT Q0 FNR121 PIN0 PIN0 PIN20
4  Q20 = ( SGN Q201 * ABS ( Q204 ) ) * - 1
5  FN 10: IF +Q204 NE +0 GOTO LBL 43
6  Q20 = ( SGN Q201 * ABS ( Q200 ) ) * - 1
7  LBL 43
8  FN 17: SYSWRITE ID 30 NR1 =+Q200
9  FN 17: SYSWRITE ID 30 NR4 =+Q206
10 FN 17: SYSWRITE ID 30 NR9 =+0
11 FN 17: SYSWRITE ID 30 NR10 =+Q207
12 FN 17: SYSWRITE ID 30 NR11 =+Q351
13 FN 17: SYSWRITE ID 31 NR21 =+Q206
14 FN 17: SYSWRITE ID 31 NR23 =+Q203
15 FN 17: SYSWRITE ID 31 NR27 =+0
16 FN 17: SYSWRITE ID 31 NR35 =+128
17 FN 17: SYSWRITE ID 31 NR38 =+Q33
18 FN 17: SYSWRITE ID 31 NR39 =+Q34
19 FN 17: SYSWRITE ID 31 NR40 =+Q375
20 FN 17: SYSWRITE ID 31 NR41 =+Q35
21 FN 17: SYSWRITE ID 31 NR42 =+Q248
22 FN 17: SYSWRITE ID 31 NR15 =+1
23 FN 18: SYSREAD Q14 = ID220 NR2 IDX3
24 FN 18: SYSREAD Q18 = ID210 NR4 IDX2
25 FN 18: SYSREAD Q15 = ID210 NR4 IDX3
26 Q11 = Q203 - SGN Q201 * ( Q204 )
27 Q13 = Q200
28 Q19 = SGN Q201
29 FN 12: IF +Q200 LT +Q204 GOTO LBL 42
30 Q11 = Q203 - SGN Q201 * ( Q200 )
31 FN 9: IF +0 EQU +0 GOTO LBL 42
32 LBL 42
33 FN 17: SYSWRITE ID 31 NR22 =+Q11
34 Q2 = Q219 - ( 2 * Q368 / Q18 )
35 Q16 = Q18 * Q219
36 FN 17: SYSWRITE ID 30 NR8 =+Q2
37 Q3 = ( ABS Q201 ) * Q15 - Q369
38 Q4 = ABS Q202
39 Q0 = Q375 / 2
40 CC  X+Q33  Y+Q34
41 LP  PR+Q0  PA+Q35 R0 FMAX
42 FN 9: IF +Q215 EQU +2 GOTO LBL 30
43 FN 17: SYSWRITE ID 31 NR52 =+1 ; default  M110 schruppen und Schlichten
44 FN 11: IF +Q439 GT +2 GOTO LBL "schruppenmitm110"
45 FN 17: SYSWRITE ID 31 NR52 =+0 ;  kein m110 beim schruppen
46 LBL "schruppenmitm110"
47 CALL LBL 95
48 LBL 30
49 FN 9: IF +Q215 EQU +1 GOTO LBL 99
50 FN 9: IF +Q368 EQU +0 GOTO LBL 27
51 FN 17: SYSWRITE ID 30 NR1 =+Q200
52 FN 17: SYSWRITE ID 30 NR8 =+Q219
53 FN 17: SYSWRITE ID 30 NR10 =+Q385
54 FN 17: SYSWRITE ID 31 NR21 =+Q385
55 FN 17: SYSWRITE ID 31 NR27 =+Q368
56 FN 9: IF +Q338 EQU +0 GOTO LBL 26
57 Q4 = ABS Q338
58 Q13 = Q200
59 FN 17: SYSWRITE ID 31 NR52 =+1 ; default  M110 schruppen und Schlichten
60 FN 11: IF +Q439 GT +0 GOTO LBL "schlichtenmitm110"
61 FN 17: SYSWRITE ID 31 NR52 =+0 ;  kein m110 beim schlichten
62 LBL "schlichtenmitm110"
63 CALL LBL 95
64 FN 9: IF +0 EQU +0 GOTO LBL 27
65 LBL 26
66 Q10 = Q203 + SGN Q201 * ( ABS Q201 - ( ABS Q200 + ABS Q369 ) / Q15 )
67 Q8 = Q10 * Q15 + Q14
68 FN 17: SYSWRITE ID 30 NR1 =+Q200
69 FN 17: SYSWRITE ID 30 NR2 =+0
70 FN 17: SYSWRITE ID 30 NR3 =+Q4
71 FN 17: SYSWRITE ID 31 NR24 =+Q8
72 FN 17: SYSWRITE ID 31 NR36 =+Q8
73 L  Z+Q10 R0 FMAX
74 FN 17: SYSWRITE ID 31 NR52 =+1 ; default  M110 schruppen und Schlichten
75 FN 11: IF +Q439 GT +0 GOTO LBL "seitenschlichtenmitm110"
76 FN 17: SYSWRITE ID 31 NR52 =+0 ;  kein m110 beim schlichten
77 LBL "seitenschlichtenmitm110"
78 FN 22: FUNCT Q0 FNR56 PIN0 PIN0 PIN0 PEX+Q366
79 LBL 27
80 FN 17: SYSWRITE ID 31 NR35 =+0
81 FN 9: IF +Q369 EQU +0 GOTO LBL 99
82 Q10 = Q203 + SGN Q201 * ( ABS Q201 - ( ABS Q200 + ABS Q369 ) / Q15 )
83 Q8 = Q15 * Q10 + Q14
84 Q3 = ABS ( Q369 )
85 Q3 = SGN Q201 * Q3
86 FN 17: SYSWRITE ID 30 NR1 =+Q200
87 FN 17: SYSWRITE ID 30 NR2 =+Q3
88 FN 17: SYSWRITE ID 30 NR3 =+Q369
89 FN 17: SYSWRITE ID 30 NR10 =+Q385
90 FN 17: SYSWRITE ID 31 NR21 =+Q206
91 FN 17: SYSWRITE ID 31 NR24 =+Q8
92 FN 18: SYSREAD Q17 = ID200 NR1
93 Q17 = ABS ( 4 * Q17 )
94 FN 12: IF +Q16 LT +Q17 GOTO LBL 20
95 FN 9: IF +Q16 EQU +Q17 GOTO LBL 20
96 FN 17: SYSWRITE ID 30 NR8 =+Q2
97 FN 17: SYSWRITE ID 31 NR27 =+Q368
98 LBL 20
99 L  Z+Q10 R0 FMAX
100 FN 17: SYSWRITE ID 31 NR27 =+0
101 FN 17: SYSWRITE ID 31 NR52 =+1 ; default  M110 schruppen und Schlichten
102 FN 11: IF +Q439 GT +1 GOTO LBL "tiefenschlichtenmitm110"
103 FN 17: SYSWRITE ID 31 NR52 =+0 ;  kein m110 beim schlichten
104 LBL "tiefenschlichtenmitm110"
105 FN 22: FUNCT Q0 FNR56 PIN0 PIN0 PIN0 PEX+Q366
106 FN 12: IF +Q16 LT +Q17 GOTO LBL 99
107 FN 9: IF +Q16 EQU +Q17 GOTO LBL 99
108 FN 9: IF +Q368 EQU +0 GOTO LBL 99
109 FN 17: SYSWRITE ID 30 NR8 =+Q219
110 FN 17: SYSWRITE ID 31 NR27 =+1
111 FN 22: FUNCT Q0 FNR56 PIN0 PIN0 PIN0 PEX+Q366
112 FN 9: IF +0 EQU +0 GOTO LBL 99
113 LBL 95
114 Q6 = SGN Q201 * Q4
115 FN 0: Q5 =+0
116 LBL 96
117 Q9 = Q203 + SGN Q201 * ( Q5 - ABS Q13 ) / Q15
118 Q7 = Q9 * Q15 + Q14
119 FN 1: Q5 =+Q5 + +Q4
120 FN 12: IF +Q5 LT +Q3 GOTO LBL 97
121 Q6 = ( Q3 + Q4 - Q5 ) * SGN Q201
122 LBL 97
123 FN 1: Q8 =+Q7 + +Q6
124 FN 1: Q10 =+Q9 + +Q6
125 FN 17: SYSWRITE ID 31 NR24 =+Q7
126 FN 17: SYSWRITE ID 31 NR36 =+Q8
127 FN 17: SYSWRITE ID 30 NR2 =+Q6
128 FN 17: SYSWRITE ID 30 NR3 =+Q4
129 L  Z+Q9 R0 FMAX
130 FN 22: FUNCT Q0 FNR56 PIN0 PIN0 PIN0 PEX+Q366
131 FN 12: IF +Q5 LT +Q3 GOTO LBL 96
132 LBL 0
133 LBL 99
134 L  Z+Q11 R0 FMAX
135 FN 22: FUNCT Q0 FNR121 PIN1 PIN0 PIN18
136 FN 22: FUNCT Q0 FNR2
137 END PGM cslotmill MM 
