HEADING:H951 MINI-PROBE CAP TRIMS (P20043.C4) S&R 25'S 4/13/98 GF
STEP
1 GOTO STEP 9
2 GOTO STEP 197
3 GOTO STEP 172
4 PRIN STRG 40 STRG 3
5 QUIT
6 GOTO STEP 252
7 GOTO STEP 263
8 IF DUM 807 = 00 THEN LET DUM 807 = 01
9 IF DUM 801 = 00 THEN GOTO STEP 263
10 GOTO STEP 13
11 GOTO STEP 219
12 GOTO STEP 120
13 MOVE POS 990 SPD 0
14 IF DUM 807 = 00 THEN GOSU STEP 139
15 GOSU STEP 229
16 LET DLTA 900 = POS 900 - POS 899
17 DISP DLTA 900
18 MOVE POS 899 SPD 0
19 TEST UNK 55 CODE 56 TOL 55 ACC 22 REJ 0 REG 0
20 PRIN "BAD CONTACT ON PROBE CARD, CHECK SCAN'S A0,B0" STRG 3
21 QUIT
22 LET I = 00
23 LET L = 00
24 GOSU STEP 85
25 IF DUM 1 > 03 THEN IF DUM 1 < 2.70000E+01 THEN GOTO STEP 39
26 LET L = L + 01
27 IF L = 03 THEN GOTO STEP 31
28 SMOV DLTA 666 SPD 0 REG 0
29 SMOV DLTA 667 SPD 0 REG 0
30 GOTO STEP 24
31 PRIN STRG 3 "> > > BAD PROBE CONTACT < < <"
32 PRIN STRG 3 "> ADJUST PROBES , HIT RETURN TO TEST CAP <"
33 PRIN STRG 3 "> WHEN PROBES ARE OK TYPE '1' TO CONTINUE <"
34 PRIN STRG 3 "ENTER COMMAND # > " STRG 1
35 READ TTY:;DUM 55 %1.0 THEN QUIT
36 GOSU STEP 85
37 GOSU STEP 107
38 IF DUM 55 # 01 THEN GOTO STEP 34
39 LET DUM 100 = DUM 1 - NOM 1
40 IF DUM 100 < TOL 1 THEN LET REG 1 = 01
41 IF DUM 100 > ! TOL 1 THEN LET REG 1 = 01
42 IF REG 1 = 00 THEN GOTO STEP 44
43 PRIN "*** PRE-TRIM REJECT ***" STRG 3
44 GOSU STEP 113 1.00000E+03
45 IF REG 1 # 00 THEN GOTO STEP 75
46 LET DUM 809 = 00
47 FOR I = 1.00000E+00 TO 9.00000E+00
48 IF I = 9.00000E+00 THEN IF DUM 809 < 8.00000E+00 THEN GOTO STEP 69
49 LET J = I + 1.00000E+02
50 LET DUM 55 = DUM 1 - DUM J
51 IF DUM 55 < NOM 1 THEN GOTO STEP 69
52 LET DUM 55 = DUM 1
53 LET L = I * 02
54 LET K = L - 01
55 MOVE POS K SPD 0
56 SERP UNK 55 CODE 55 CUT 55 MODE 55 POS L DENS 1 BRAN 0
57 MOVE POS L SPD 0
58 SERP UNK 55 CODE 55 CUT 55 MODE 55 POS K DENS 1 BRAN 0
59 LET DUM 809 = DUM 809 + 01
60 GOSU STEP 85
61 LET J = I + 5.00000E+02
62 LET K = I + 6.00000E+02
63 LET L = I + 9.00000E+02
64 LET DUM 55 = DUM 55 - DUM 1
65 IF DUM 55 < 6.00000E-02 THEN GOTO STEP 69
66 LET DUM J = DUM J + DUM 55
67 IF DUM 55 > DUM K THEN LET DUM K = DUM 55
68 LET DUM L = DUM L + 01
69 NEXT I
70 LET DUM 100 = DUM 1 - NOM 1
71 IF DUM 100 < TOL 101 THEN LET REG 2 = 01
72 IF DUM 100 > ! TOL 101 THEN LET REG 2 = 01
73 IF REG 2 = 00 THEN GOTO STEP 78
74 PRIN "> TRIM REJECT <" STRG 3
75 PRIN "C= " DUM 1 " PF, " DUM 100 " PF DEV FROM NOM" STRG 3
76 MOVE POS 99 SPD 0
77 REM "NIBL DLTA 99 POS 100 DENS 3 BRAN 0"
78 IF DUM 807 # 4.90000E+01 THEN GOTO STEP 82
79 LET STRG 1000 = STRG 300 + " " + STRG 333
80 MOVE POS 101 SPD 0
81 CGEN DENS 2 SCAL 1 POS 102 STRG 1000
82 MOVE POS 899 SPD 0
83 LET REG 1 = 00
84 EXIT
85 LET K = 00
86 FOR J = 1.00000E+00 TO 1.00000E+01
87 LET DUM J = 00
88 NEXT J
89 LET K = K + 01
90 TALK DEV 10 STRG 10
91 FOR J = 1.00000E+00 TO 5.00000E+02
92 NEXT J
93 LISN DEV 2 WAIT 1 "_" 01 STRG 11 0.00000E+00 02 STRG 12
NOM 3 01 STRG 13 NOM 2 %1.0 THEN GOTO STEP 111
94 FOR J = 1.00000E+00 TO 2.00000E+02
95 NEXT J
96 LET DUM K = NOM 3 * 1.00000E+06
97 IF K < 2.00000E+00 THEN GOTO STEP 89
98 LET DUM 888 = DUM 888 + 01
99 LET J = K - 01
100 LET DUM 804 = DUM J - DUM K
101 PRIN " " DUM 804
102 IF DUM 804 > TOL 88 THEN IF DUM 804 < ! TOL 88 THEN GOTO STEP 105
103 IF K = 1.00000E+01 THEN GOTO STEP 109
104 GOTO STEP 89
105 LET DUM 1 = DUM K
106 IF BIT 10 # 00 THEN GOTO STEP 108
107 PRIN "C=" DUM 1 " PF FNGR# " I
108 EXIT
109 PRIN STRG 3 "> ERROR! CAP VALUES NOT STABLE! CALL ENG! <"
110 QUIT
111 PRIN STRG 3 "ERROR, CANNOT TALK TO CAP METER!" STRG 3
112 EXIT
113 IF DUM 1 < 02 THEN IF DUM 1 > DUM 110 THEN GOTO STEP 117
114 LET DUM 500 = DUM 500 + DUM 1
115 LET DUM 600 = DUM 600 + ( DUM 1 * DUM 1 )
116 LET DUM 700 = DUM 700 + 01
117 LET J = DUM 807 + VALU 1
118 LET DUM J = DUM 100
119 EXIT
120 GOSU STEP 165
121 PRIN " PART INIT DEV TRIM DEV"
122 LET DUM 804 = 00
123 FOR I = 1.00000E+00 TO 4.90000E+01
124 LET J = I + 1.00000E+03
125 LET K = I + 1.10000E+03
126 PRIN " " STRG 1
127 IF I < 1.00000E+01 THEN PRIN " " STRG 1
128 PRIN I " " %5.2 DUM J " " %5.2 DUM K STRG 1
129 IF DUM K > ! TOL 101 THEN PRIN "<<< REJ-HI" STRG 1
130 IF DUM K < TOL 101 THEN PRIN "<<< REJ-LOW" STRG 1
131 IF DUM K > ! TOL 101 THEN GOTO STEP 134
132 IF DUM K < TOL 101 THEN GOTO STEP 134
133 LET DUM 804 = DUM 804 + 1.00000E+00
134 PRIN " "
135 NEXT I
136 PRIN " "
137 PRIN DUM 804 " GOOD PARTS"
138 QUIT
139 FOR I = 1.00100E+03 TO 1.05000E+03
140 LET J = I + 1.00000E+02
141 LET DUM I = 9.99900E+03
142 LET DUM J = 9.99900E+03
143 NEXT I
144 EXIT
145 FOR J = 1.00000E+00 TO 1.90000E+01
146 IF DUM 333 = MASK J THEN GOTO STEP 152
147 NEXT J
148 PRIN STRG 3
149 PRIN "THAT PART NUMBER IS NOT AVAILABLE , TRY AGAIN. . ." STRG 3
150 PRIN STRG 3
151 GOTO STEP 219
152 LET I = DUM 333
153 LET L = 1.00000E+02 + ( REG I * 1.00000E+01 )
154 FOR J = 1.01000E+02 TO 1.10000E+02
155 LET K = J + L
156 LET DUM J = DUM K
157 NEXT J
158 LET DUM 334 = I
159 LET NOM 1 = NOM I
160 LET TOL 101 = TOL I
161 LET TOL 153 = TOL 151 * TOL 101
162 LET TOL 154 = TOL 152 * DUM 110
163 LET TOL 1 = TOL 153 + TOL 154
164 LET STRG 300 = STRG I
165 PRIN "NOW TRIMMING PART # > 307-" STRG 300
166 PRIN STRG 3
167 PRIN "CURRENT LOT # IS > " STRG 333
168 PRIN " "
169 PRIN "NOMINAL = " NOM 1 " PF"
170 PRIN " "
171 EXIT
172 PRIN STRG 3
173 PRIN "PART: 307-" STRG 300 " LOT: " STRG 333
174 PRIN ""
175 PRIN "PRINT VALUE DATA FOR " DUM 700 " PARTS"
176 PRIN ""
177 PRIN "# OF 'EXTRA' CAP METER TESTS = " DUM 888
178 PRIN " "
179 LET DUM 55 = DUM 500 / DUM 700
180 LET DUM 800 = ( DUM 600 - ( DUM 500 * DUM 500 / DUM 700 ) )
181 LET DUM 800 = SQRT ( DUM 800 * DUM 800 )
182 LET DUM 800 = SQRT ( DUM 800 / ( DUM 700 - 01 ) )
183 PRIN " AVERAGE(PF) STD DEV(PF)"
184 PRIN "C1" %9.3 DUM 55 %11.4 DUM 800
185 PRIN ""
186 PRIN " AVERAGE HIGHEST # OF BARS"
187 PRIN " CHANGE (PF) CHANGE (PF) TRIMMED"
188 PRIN ""
189 FOR I = 5.01000E+02 TO 5.09000E+02
190 LET J = I + 1.00000E+02
191 LET K = I + 4.00000E+02
192 LET DUM 55 = DUM I / DUM K
193 PRIN STRG I %9.2 DUM 55 STRG 1
194 PRIN %10.2 DUM J %10.0 DUM K
195 NEXT I
196 QUIT
197 PRIN STRG 5
198 GOSU STEP 139
199 LET DUM 1 = 00
200 LET DUM 55 = 00
201 LET DUM 700 = 00
202 LET DUM 888 = 00
203 FOR I = 8.00000E+02 TO 8.08000E+02
204 LET DUM I = 00
205 NEXT I
206 LET DUM 801 = 1.00000E+00
207 FOR I = 5.00000E+02 TO 5.09000E+02
208 LET DUM I = 00
209 LET J = I + 1.00000E+02
210 LET DUM J = 00
211 LET J = I + 4.00000E+02
212 LET DUM J = 00
213 NEXT I
214 LET NOM 2 = 00
215 LET NOM 3 = 00
216 GOSU STEP 145
217 PRIN "DUMMIES ZEROED" STRG 3
218 QUIT
219 GOSU STEP 165
220 PRIN "ENTER NEW PART # > " STRG 1
221 READ TTY:;DUM 333 %1.0 THEN QUIT
222 PRIN "ENTER NEW LOT # > " STRG 1
223 READ TTY:;"_" STRG 334 %1.0 THEN QUIT
224 LET J = 01
225 LET K = 04
226 LET STRG 333 = J K STRG 334
227 LET DUM 801 = 01
228 GOTO STEP 2
229 IF DUM 807 = 00 THEN GOTO STEP 236
230 PRIN STRG 3
231 PRIN "PART # >" DUM 807 "< WAS TRIMMED LAST."
232 PRIN STRG 3
233 PRIN "WHICH PART DO YOU WANT TO START ON ? " STRG 1
234 READ TTY:;DUM 808 %1.0 THEN QUIT
235 LET DUM 807 = 00
236 SHOM REG 30
237 SHOM REG 0
238 ALIN POS 998 REF 999 REG 998
239 ALIN POS 0 REF 0 REG 0
240 LET I = 00
241 GOSU STEP 85
242 IF DUM 1 > - 3.00000E-02 THEN IF DUM 1 < 3.00000E-02 THEN GOTO STEP 245
243 PRIN "CAP METER NOT ZEROED, MUST SET BEFORE TRIMMING" STRG 3
244 QUIT
245 LET DLTA 998 = POS 997 - POS 999
246 GOSU STEP 256
247 LET DLTA 998 = DLTA 998 + DLTA 999
248 GOSU STEP 256
249 IF DUM 807 < DUM 999 THEN GOTO STEP 247
250 LET DUM 807 = 00
251 LET DUM 808 = 00
252 SHOM REG 30
253 SHOM REG 31
254 SHOM REG 32
255 QUIT
256 LET DUM 807 = DUM 807 + 01
257 IF DUM 808 > DUM 807 THEN EXIT
258 SMOV DLTA 998 SPD 0 REG 0
259 LET DLTA 998 = 00
260 PRIN "PART # " DUM 807
261 GOSU STEP 16
262 EXIT
263 PRIN "SETUP FOR PART NUMBER > " STRG 300 " <, TYPE 11^T TO CHANGE."
264 PRIN "LOT NUMBER IS " STRG 333
265 QUIT
MODE
55 TURN 55 CROS 0 INC 55
DENS
1 SPD 1 PWR 1
2 SPD 2 PWR 1
3 SPD 3 PWR 1
UNK
55 NOM 55 SCAN 55 MAT 0 FUNC 0 DUM 55
DEV
2 0101
10 041
REG
1 00
2 00
3 00
4 00
30 03
31 00
32 04
333 00
397 00
472 03
806 00
837 01
838 00
846 01
861 01
936 02
991 04
998 -01
999 0774
1158 03
1225 00
1226 00
1272 00
1326 05
1327 00
1328 00
1329 01
1352 03
MASK
1 01446
2 01505
3 01506
4 01516
5 01535
6 01650
7 01737
8 02206
9 02311
10 02312
11 02370
12 02456
13 02457
14 02460
15 02461
16 02510
17 0615
18 02512
19 0730
POS
1 -872, -1960
2 -852, -1640
3 -872, -1128
4 -852, -832
5 -872, -544
6 -852, -252
7 -872, -88
8 -852, 168
9 -872, 236
10 -852, 508
11 -872, 500
12 -852, 748
13 -872, 724
14 -852, 932
15 -872, 936
16 -852, 1148
17 -880, -2500
18 -612, -2540
99 -1012, -1612
100 -1012, -2292
101 -40, -2450
102 -40, 200
899 -700, 1068
900 609, -3307
990 300, -2400
997 17898, -1629
998 -12207, -719
999 17595, -719
REF
999 POS 999
NOM
1 8.20000E+00
2 -4.94600E-01
3 1.02600E-05
55 5.00000E+02
397 1.08000E+01
472 8.20000E+00
806 1.04000E+01
837 1.47000E+01
838 1.90000E+00
846 1.45000E+01
861 1.35000E+01
936 1.79000E+01
991 1.26000E+01
1158 9.40000E+00
1225 1.04000E+01
1226 1.05000E+01
1272 1.12000E+01
1326 1.14000E+01
1327 1.04000E+01
1328 1.19000E+01
1329 1.45000E+01
1352 9.35000E+00
SCAN
55 0, 0, 0, 0
CODE
55 1, 1, 5, 0
56 8, 1, 5, 0
TOL
1 -2.00000E-01, 5.50000E+00
55 -1.10000E+02, 2.50000E+01
88 -4.10000E-02, 4.10000E-02
101 -2.00000E-01, 2.00000E-01
151 1.00000E+00, 0.00000E+00
152 0.00000E+00, 1.00000E+00
153 -2.00000E-01, 0.00000E+00
154 0.00000E+00, 5.50000E+00
397 -2.50000E-01, 2.50000E-01
472 -2.00000E-01, 2.00000E-01
806 -2.50000E-01, 2.50000E-01
837 -2.50000E-01, 2.50000E-01
838 -2.50000E-01, 2.50000E-01
846 -2.50000E-01, 2.50000E-01
861 -2.50000E-01, 2.50000E-01
936 -2.50000E-01, 2.50000E-01
991 -2.50000E-01, 2.50000E-01
1158 -2.50000E-01, 2.50000E-01
1225 -2.50000E-01, 2.50000E-01
1226 -2.50000E-01, 2.50000E-01
1272 -2.00000E-01, 2.00000E-01
1326 -2.50000E-01, 2.50000E-01
1327 -2.50000E-01, 2.50000E-01
1328 -2.50000E-01, 2.50000E-01
1329 -2.50000E-01, 2.50000E-01
1352 -2.50000E-01, 2.50000E-01
DUM
1 1.02600E+01
2 1.02600E+01
3 0.00000E+00
4 0.00000E+00
5 0.00000E+00
6 0.00000E+00
7 0.00000E+00
8 0.00000E+00
9 0.00000E+00
10 0.00000E+00
55 1.00002E-02
100 2.06000E+00
101 1.20000E+00
102 9.00000E-01
103 7.00000E-01
104 5.00000E-01
105 5.00000E-01
106 4.00000E-01
107 3.00000E-01
108 1.60000E-01
109 1.90000E-01
110 5.50000E+00
201 1.60000E+00
202 1.10000E+00
203 8.00000E-01
204 6.00000E-01
205 5.50000E-01
206 4.50000E-01
207 3.00000E-01
208 1.60000E-01
209 1.90000E-01
210 6.30000E+00
211 1.70000E+00
212 1.30000E+00
213 9.00000E-01
214 6.00000E-01
215 4.00000E-01
216 3.00000E-01
217 2.50000E-01
218 1.60000E-01
219 1.90000E-01
220 6.30000E+00
221 1.60000E+00
222 1.20000E+00
223 8.00000E-01
224 5.00000E-01
225 3.50000E-01
226 2.50000E-01
227 2.00000E-01
228 1.60000E-01
229 1.90000E-01
230 6.00000E+00
231 1.20000E+00
232 9.00000E-01
233 7.00000E-01
234 5.00000E-01
235 5.00000E-01
236 4.00000E-01
237 3.00000E-01
238 1.60000E-01
239 1.90000E-01
240 5.50000E+00
241 1.70000E+00
242 1.30000E+00
243 9.00000E-01
244 6.00000E-01
245 4.00000E-01
246 3.00000E-01
247 2.50000E-01
248 1.60000E-01
249 1.90000E-01
250 6.30000E+00
251 1.60000E+00
252 1.10000E+00
253 8.00000E-01
254 6.00000E-01
255 5.50000E-01
256 4.50000E-01
257 3.00000E-01
258 1.60000E-01
259 1.90000E-01
260 6.30000E+00
333 4.72000E+02
334 4.72000E+02
500 1.78690E+02
501 0.00000E+00
502 0.00000E+00
503 0.00000E+00
504 0.00000E+00
505 0.00000E+00
506 0.00000E+00
507 0.00000E+00
508 0.00000E+00
509 0.00000E+00
600 1.53055E+03
601 0.00000E+00
602 0.00000E+00
603 0.00000E+00
604 0.00000E+00
605 0.00000E+00
606 0.00000E+00
607 0.00000E+00
608 0.00000E+00
609 0.00000E+00
700 2.10000E+01
709 0.00000E+00
800 0.00000E+00
801 1.00000E+00
802 0.00000E+00
803 0.00000E+00
804 0.00000E+00
805 0.00000E+00
806 0.00000E+00
807 2.00000E+00
808 1.00000E+00
809 9.00000E+00
888 4.10000E+01
900 0.00000E+00
901 0.00000E+00
902 0.00000E+00
903 0.00000E+00
904 0.00000E+00
905 0.00000E+00
906 0.00000E+00
907 0.00000E+00
908 0.00000E+00
909 0.00000E+00
998 5.08000E+02
999 4.90000E+01
1000 1.60000E+01
1001 1.98000E+00
1002 2.06000E+00
1003 5.99937E-02
1004 -2.00043E-02
1005 -4.00066E-02
1006 9.99451E-03
1007 -1.00060E-02
1008 8.99963E-02
1009 7.99942E-02
1010 -4.00066E-02
1011 9.99900E+03
1012 9.99900E+03
1013 9.99900E+03
1014 9.99900E+03
1015 9.99900E+03
1016 9.99900E+03
1017 9.99900E+03
1018 9.99900E+03
1019 9.99900E+03
1020 9.99900E+03
1021 9.99900E+03
1022 9.99900E+03
1023 9.99900E+03
1024 9.99900E+03
1025 9.99900E+03
1026 9.99900E+03
1027 9.99900E+03
1028 9.99900E+03
1029 9.99900E+03
1030 9.99900E+03
1031 9.99900E+03
1032 9.99900E+03
1033 9.99900E+03
1034 9.99900E+03
1035 9.99900E+03
1036 9.99900E+03
1037 9.99900E+03
1038 9.99900E+03
1039 9.99900E+03
1040 9.99900E+03
1041 9.99900E+03
1042 9.99900E+03
1043 9.99900E+03
1044 9.99900E+03
1045 9.99900E+03
1046 9.99900E+03
1047 9.99900E+03
1048 9.99900E+03
1049 9.99900E+03
1050 9.99900E+03
1101 9.99900E+03
1102 9.99900E+03
1103 9.99900E+03
1104 9.99900E+03
1105 9.99900E+03
1106 9.99900E+03
1107 9.99900E+03
1108 9.99900E+03
1109 9.99900E+03
1110 9.99900E+03
1111 9.99900E+03
1112 9.99900E+03
1113 9.99900E+03
1114 9.99900E+03
1115 9.99900E+03
1116 9.99900E+03
1117 9.99900E+03
1118 9.99900E+03
1119 9.99900E+03
1120 9.99900E+03
1121 9.99900E+03
1122 9.99900E+03
1123 9.99900E+03
1124 9.99900E+03
1125 9.99900E+03
1126 9.99900E+03
1127 9.99900E+03
1128 9.99900E+03
1129 9.99900E+03
1130 9.99900E+03
1131 9.99900E+03
1132 9.99900E+03
1133 9.99900E+03
1134 9.99900E+03
1135 9.99900E+03
1136 9.99900E+03
1137 9.99900E+03
1138 9.99900E+03
1139 9.99900E+03
1140 9.99900E+03
1141 9.99900E+03
1142 9.99900E+03
1143 9.99900E+03
1144 9.99900E+03
1145 9.99900E+03
1146 9.99900E+03
1147 9.99900E+03
1148 9.99900E+03
1149 9.99900E+03
1150 9.99900E+03
CUT
55 9.00000E+01
TURN
55 9.90000E+01
INC
55 4
SPD
1 3.30000E+01, 3.30000E+01
2 3.00000E+00, 3.00000E+00
3 2.00000E+01, 2.00000E+01
PWR
1 100, 100
WAIT
1 1, 2000
STRG
1 _
3
5
10 R20XPCXDFX*XG
11 O
12 P+
13 D
31 ENTER NEW PART #
32 ENTER NEW LOT #
40 NO DRIFT TEST
300 2472
333 M37B
334 M37B
397 2397
472 2472
501 BAR 1
502 BAR 2
503 BAR 3
504 BAR 4
505 BAR 5
506 BAR 6
507 BAR 7
508 BAR 8
509 BAR 9
806 0806
837 0837
838 0838
846 0846
861 0861
936 0936
991 0991
1000 2472 M18B
1158 1158
1225 1225
1226 1226
1272 1272
1326 1326
1327 1327
1328 1328
1329 1329
1352 1352
DLTA
99 0, -680
666 620, 0
667 -620, 0
900 1309, -4375
997 -1006, 1267
998 0, 0
999 -620, 0
SCAL
1 1.15000E+01