HEADING:300-2568-00 CAP TRIM "B PASS" (P20481.B1) S&R 25'S 5/22/98
STEP
1 GOTO STEP 9
2 GOTO STEP 152
3 GOTO STEP 150
4 PRIN "NO DRIFT TEST" STRG 3
5 QUIT
6 GOTO STEP 215
7 GOTO STEP 171
8 IF DUM 807 = 00 THEN LET DUM 807 = 01
9 IF DUM 801 = 00 THEN GOTO STEP 171
10 GOTO STEP 14
11 GOTO STEP 227
12 GOTO STEP 116
13 GOTO STEP 229
14 IF DUM 807 < 02 THEN GOSU STEP 142
15 TEST UNK 55 CODE 56 TOL 55 ACC 18 REJ 0 REG 0
16 PRIN STRG 3 "CHECK PROBE CARD, SCAN A&B0 OPEN! CANNOT TRIM!!!"
17 REM "QUIT"
18 GOSU STEP 177 3.00000E+00 1.00000E+01 1.00580E+04 2.84500E+03
19 LET DLTA 900 = POS 900 - POS 899
20 DISP DLTA 900
21 MOVE POS 899 SPD 0
22 REM "*********** CIRCUIT LOGIC ****************"
23 GOSU STEP 41 1.00000E+00 1.01000E+02
24 IF REG 1 # 00 THEN GOTO STEP 37
25 SMOV DLTA 1 SPD 0 REG 0
26 FOR J = 01 TO 1.00000E+03
27 NEXT J
28 LET DLTA 901 = DLTA 900 + DLTA 1
29 DISP DLTA 901
30 LET DLTA 998 = DLTA 998 - DLTA 1
31 MOVE POS 899 SPD 0
32 GOSU STEP 41 3.00000E+00 1.03000E+02
33 REM "* GOSU DATALOG ROUTINE *"
34 IF REG 1 # 00 THEN GOTO STEP 37
35 MOVE POS 800 SPD 0
36 CGEN DENS 2 SCAL 1 POS 801 "B"
37 MOVE POS 899 SPD 0
38 HAND
39 EXIT
40 REM "********** TRIM A CAP ROUTINE ************"
41 LET I = VALU 1
42 LET DUM 804 = I
43 LET DUM 805 = VALU 2
44 LET L = DUM 805
45 IF STRG 555 = "NORMAL" THEN GOTO STEP 61
46 REM "** BEGIN STD ROUTINES **"
47 LET M = DUM 807 + 1.40000E+03 + ( I * 1.00000E+02 )
48 IF STRG 555 = "STD TEST" THEN GOTO STEP 56
49 GOSU STEP 95 DUM 804
50 IF DUM 56 > TOL 1599 THEN IF DUM 56 < ! TOL 1599 THEN GOTO STEP 53
51 PRIN STRG 3 "ERROR! STD CAP VALUE IS WRONG!! PROGRAM STOPPED!"
52 QUIT
53 PRIN "CIRC" DUM 807 " OFFSET WAS " %4.3 DUM M ", " STRG 1
54 LET DUM M = DUM M + ( DUM 56 - NOM M )
55 PRIN "NOW IS " %4.3 DUM M
56 GOSU STEP 95 DUM 804
57 LET J = DUM 807 + 9.00000E+02 + ( I * 1.00000E+02 )
58 LET DUM J = DUM 56
59 EXIT
60 REM "** END STD ROUTINES **"
61 GOSU STEP 95 DUM 804
62 LET L = I
63 IF DUM I > TOL I THEN IF DUM I < ! TOL I THEN GOTO STEP 67
64 PRIN "INITIAL REJECT" STRG 3
65 LET REG 1 = 01
66 IF REG 1 # 00 THEN GOTO STEP 90
67 LET L = DUM 805
68 IF DUM I > 4.00000E-02 THEN GOTO STEP 71
69 LET DUM L = DUM I
70 GOTO STEP 87
71 LET DUM 55 = DUM I / DUM 888 * 1.01600E+04
72 IF DUM 55 > 3.80000E+02 THEN LET DUM 55 = 3.80000E+02
73 LET DLTA L = DLTA 100 * DUM 55
74 LET K = I * 2.00000E+00
75 LET POS 55 = POS K + DLTA L
76 LET K = K + 1.00000E+00
77 LET POS 56 = POS K + DLTA L
78 IF STRG 444 = "NOTRIM" THEN GOTO STEP 85
79 MOVE POS 55 SPD 0
80 SERP UNK 55 CODE 55 CUT 55 MODE 1 POS 56 DENS 1 BRAN 0
81 MOVE POS 56 SPD 0
82 SERP UNK 55 CODE 55 CUT 55 MODE 2 POS 55 DENS 2 BRAN 0
83 MOVE POS 55 SPD 0
84 SERP UNK 55 CODE 55 CUT 55 MODE 3 POS 56 DENS 3 BRAN 0
85 LET DUM 804 = L
86 GOSU STEP 95 DUM 804
87 IF DUM L > TOL L THEN IF DUM L < ! TOL L THEN EXIT
88 PRIN "POST TEST REJECT!" STRG 3
89 LET REG 1 = 01
90 PRIN "C" L "=" DUM L " PF DEV << REJECT! - " STRG 1
91 IF DUM L < TOL L THEN PRIN "LOW" STRG 3
92 IF DUM L > ! TOL L THEN PRIN "HIGH" STRG 3
93 EXIT
94 REM "******** TEST A CAP ROUTINE ***********"
95 LET L = VALU 1
96 LET DUM 56 = 00
97 LET DUM 57 = 00
98 LET K = 00
99 LET K = K + 1.00000E+00
100 TALK DEV 10 STRG 10 STRG 20
101 FOR J = 1.00000E+00 TO 5.00000E+02
102 NEXT J
103 LISN DEV 2 WAIT 1 "_" 01 STRG 11 0.00000E+00 02 STRG 12
DUM 55 01 STRG 13 DUM 66 %1.0 THEN GOTO STEP 114
104 LET DUM 58 = DUM 55 * 1.00000E+06
105 LET DUM 56 = DUM 56 + DUM 58
106 LET DUM 57 = DUM 57 + ( DUM 58 * DUM 58 )
107 IF K < 4.00000E+00 THEN GOTO STEP 99
108 LET J = DUM 807 + 1.40000E+03 + ( I * 1.00000E+02 )
109 LET DUM 56 = ( DUM 56 / K ) - DUM J
110 LET DUM L = DUM 56 - NOM L
111 PRIN BIT 10 "C" L "= " DUM 56 " PF, (" DUM L " DEV)"
112 IF DUM 807 > 00 THEN LET L = DUM 805
113 EXIT
114 PRIN "LCR METER ERROR!, CANNOT TEST CAP" STRG 3
115 EXIT
116 PRIN STRG 2 " CAP VALUE DATA" STRG 1
117 IF STRG 555 # "NORMAL" THEN PRIN " FOR " STRG 1500
118 PRIN " "
119 IF STRG 555 = "STD CAL" THEN PRIN "> CALIBRATION RESULTS <"
120 PRIN " "
121 PRIN " CIRC CAP# INIT PF TRIM PF STD PART DEV"
122 LET DUM 804 = 00
123 FOR I = 1.00000E+00 TO 3.00000E+01
124 FOR N = 01 TO 03 02
125 LET J = I + 1.00000E+03
126 LET K = I + 1.10000E+03
127 LET M = I + 1.50000E+03
128 IF I < 1.00000E+01 THEN PRIN " " I " " N STRG 1
129 IF I > 9.00000E+00 THEN PRIN " " I " " N STRG 1
130 PRIN " " %5.3 DUM J " " %5.3 DUM K " " STRG 1
131 IF STRG 555 = "NORMAL" THEN GOTO STEP 136
132 LET DUM 805 = DUM J - NOM M
133 PRIN %4.3 DUM 805 " " STRG 1
134 IF DUM 805 < TOL 1500 THEN PRIN "<- LOW!" STRG 1
135 IF DUM 805 > ! TOL 1500 THEN PRIN "<- HIGH!!" STRG 1
136 PRIN " "
137 NEXT N
138 NEXT I
139 IF STRG 555 = "NORMAL" THEN QUIT
140 LET STRG 555 = "NORMAL"
141 GOTO STEP 6
142 FOR I = 1.00100E+03 TO 1.03000E+03
143 LET DUM I = 00
144 FOR J = 1.00000E+02 TO 3.00000E+02 1.00000E+02
145 LET K = I + J
146 LET DUM K = 00
147 NEXT J
148 NEXT I
149 EXIT
150 PRIN "NO DATA LOG ROUTINE!" STRG 3
151 QUIT
152 PRIN STRG 3
153 GOSU STEP 142
154 FOR I = 1.00000E+00 TO 1.03000E+02
155 IF NOM I < 00 THEN LET I = - NOM I
156 LET DUM I = 00
157 LET J = I + 3.00000E+02
158 LET K = I + 6.00000E+02
159 LET DUM J = 00
160 LET DUM K = 00
161 NEXT I
162 LET DUM 55 = 00
163 FOR I = 8.00000E+02 TO 8.08000E+02
164 LET DUM I = 00
165 NEXT I
166 PRIN "ARE YOU SAVING PROGRAM NOW ? " STRG 1
167 READ TTY:;"_" STRG 1000 %1.0 THEN QUIT
168 IF STRG 1000 # "Y" THEN LET DUM 801 = 01
169 PRIN "DUMMIES ZEROED" STRG 3
170 QUIT
171 LET DUM 801 = 01
172 PRIN "ENTER LOT NUMBER > " STRG 1
173 READ TTY:;"_" STRG 333 %1.0 THEN QUIT
174 PRIN " "
175 PRIN "LOT NUMBER IS " STRG 333
176 QUIT
177 IF DUM 807 = 00 THEN GOTO STEP 184
178 PRIN STRG 3
179 PRIN "PROGRAM STOPPED AT CIRCUIT # " DUM 807
180 PRIN STRG 3
181 PRIN "WHICH CIRCUIT # DO YOU WANT TO START ON ? " STRG 1
182 READ TTY:;DUM 808 %1.0 THEN QUIT
183 LET DUM 807 = 00
184 MOVE POS 990 SPD 0
185 SHOM REG 990
186 SHOM REG 0
187 LET DLTA 999 = DLTA 993 * VALU 4
188 PRIN "ALIGN PART THETA"
189 ALIN POS 998 REF 999 REG 998
190 PRIN "ALIGN X-Y"
191 ALIN POS 0 REF 0 REG 0
192 LET I = 1.00000E+00
193 LET L = 1.00000E+00
194 LET DUM 804 = 1.00000E+00
195 GOSU STEP 95 DUM 804
196 IF DUM 56 > - 3.00000E-02 THEN IF DUM 56 < 3.00000E-02 THEN GOTO STEP 199
197 PRIN "CAP METER NOT ZEROED, MUST SET BEFORE TRIMMING!" STRG 3
198 QUIT
199 LET DLTA 998 = POS 997 - POS 999
200 GOTO STEP 210
201 LET J = VALU 2
202 LET K = VALU 1 * VALU 2
203 FOR M = J TO K J
204 IF DUM 807 = M THEN GOTO STEP 208
205 NEXT M
206 LET DLTA 998 = DLTA 998 + DLTA 999
207 GOTO STEP 210
208 LET DLTA 998 = DLTA 998 + ( VALU 3 * DLTA 994 )
209 LET DLTA 999 = - DLTA 999
210 GOSU STEP 219
211 IF DUM 807 < ( VALU 1 * VALU 2 ) THEN GOTO STEP 201
212 LET DUM 807 = 00
213 LET DUM 808 = 00
214 IF STRG 555 # "NORMAL" THEN GOTO STEP 12
215 SHOM REG 990
216 SHOM REG 0
217 SHOM REG 991
218 QUIT
219 LET DUM 807 = DUM 807 + 01
220 IF DUM 808 > DUM 807 THEN EXIT
221 SMOV DLTA 998 SPD 0 REG 0
222 SMOV DLTA 0 SPD 0 REG 0
223 LET DLTA 998 = 00
224 PRIN "CIRCUIT # " DUM 807
225 GOSU STEP 19
226 EXIT
227 LET STRG 555 = "STD TEST"
228 GOTO STEP 230
229 LET STRG 555 = "STD CAL"
230 PRIN "PUT " STRG 1500 " IN LASER, THEN HIT RETURN" STRG 1
231 READ TTY:;"_" STRG 1000 %1.0 THEN QUIT
232 GOTO STEP 14
MODE
1 TURN 99 CROS 0 INC 1
2 TURN 99 CROS 0 INC 2
3 TURN 99 CROS 0 INC 3
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 0
DEV
2 0101
10 041
REG
1 00
2 00
3 00
4 00
990 03
991 04
998 -01
999 02161
POS
2 1829, 631
3 1800, 382
6 1829, -408
7 1800, -661
55 2209, 631
56 2180, 382
800 -5413, 1136
801 -5593, 1136
899 1638, 1311
900 1882, 1216
990 4322, 116
997 12472, -9138
998 14396, 17585
999 14396, -10240
REF
999 POS 999
NOM
1 1.00000E+00
2 -3.00000E+00
3 1.00000E+00
4 -1.01000E+02
55 1.00000E+03
101 1.00000E+00
102 -1.03000E+02
103 1.00000E+00
1501 1.13600E+00
1502 1.13400E+00
1503 1.15100E+00
1504 1.14100E+00
1505 1.13700E+00
1506 1.14100E+00
1507 1.14200E+00
1508 1.13300E+00
1509 1.16200E+00
1510 1.16200E+00
1511 1.13400E+00
1512 1.15300E+00
1513 1.13200E+00
1514 1.12600E+00
1515 1.12500E+00
1516 1.12000E+00
1517 1.13400E+00
1518 1.12400E+00
1519 1.13200E+00
1520 1.10400E+00
1521 1.12600E+00
1522 1.16000E+00
1523 1.13800E+00
1524 1.14100E+00
1525 1.12600E+00
1526 1.12800E+00
1527 1.14300E+00
1528 1.13700E+00
1529 1.16700E+00
1530 1.15300E+00
1701 1.12600E+00
1702 1.12400E+00
1703 1.13800E+00
1704 1.12500E+00
1705 1.13100E+00
1706 1.14000E+00
1707 1.14000E+00
1708 1.14300E+00
1709 1.15100E+00
1710 1.14700E+00
1711 1.13200E+00
1712 1.14700E+00
1713 1.10800E+00
1714 1.12100E+00
1715 1.13600E+00
1716 1.13200E+00
1717 1.10700E+00
1718 1.12400E+00
1719 1.11200E+00
1720 1.12800E+00
1721 1.13100E+00
1722 1.12200E+00
1723 1.14300E+00
1724 1.13000E+00
1725 1.12500E+00
1726 1.13100E+00
1727 1.13600E+00
1728 1.12600E+00
1729 1.18000E+00
1730 1.15500E+00
SCAN
55 0, 0, 0, 0
CODE
1 2, 2, 0, 0
8 8, 2, 0, 0
55 1, 1, 5, 0
56 0, 0, 5, 0
TOL
1 -1.00000E-01, 2.20000E-01
3 -1.00000E-01, 2.20000E-01
55 -1.50000E+02, 1.50000E+02
101 -1.00000E-01, 1.00000E-01
103 -1.00000E-01, 1.00000E-01
1500 -1.50000E-02, 1.50000E-02
1599 5.00000E-01, 1.50000E+00
DUM
1 2.32000E-01
3 2.15000E-01
55 1.03000E-06
56 2.05000E+00
57 2.10130E+00
58 1.03000E+00
66 2.97000E-02
101 9.29992E-02
103 8.99992E-02
301 0.00000E+00
303 0.00000E+00
401 0.00000E+00
403 0.00000E+00
555 0.00000E+00
601 0.00000E+00
603 0.00000E+00
701 0.00000E+00
703 0.00000E+00
800 0.00000E+00
801 1.00000E+00
802 0.00000E+00
803 0.00000E+00
804 1.00000E+00
805 1.01000E+02
806 0.00000E+00
807 1.10000E+01
808 1.00000E+01
809 0.00000E+00
888 3.20000E-03
998 6.09600E+03
999 2.03200E+03
1001 0.00000E+00
1002 0.00000E+00
1003 0.00000E+00
1004 0.00000E+00
1005 0.00000E+00
1006 0.00000E+00
1007 0.00000E+00
1008 0.00000E+00
1009 0.00000E+00
1010 0.00000E+00
1011 0.00000E+00
1012 0.00000E+00
1013 0.00000E+00
1014 0.00000E+00
1015 0.00000E+00
1016 0.00000E+00
1017 0.00000E+00
1018 0.00000E+00
1019 0.00000E+00
1020 0.00000E+00
1021 0.00000E+00
1022 0.00000E+00
1023 0.00000E+00
1024 0.00000E+00
1025 0.00000E+00
1026 0.00000E+00
1027 0.00000E+00
1028 0.00000E+00
1029 0.00000E+00
1030 0.00000E+00
1101 0.00000E+00
1102 0.00000E+00
1103 0.00000E+00
1104 0.00000E+00
1105 0.00000E+00
1106 0.00000E+00
1107 0.00000E+00
1108 0.00000E+00
1109 0.00000E+00
1110 0.00000E+00
1111 0.00000E+00
1112 0.00000E+00
1113 0.00000E+00
1114 0.00000E+00
1115 0.00000E+00
1116 0.00000E+00
1117 0.00000E+00
1118 0.00000E+00
1119 0.00000E+00
1120 0.00000E+00
1121 0.00000E+00
1122 0.00000E+00
1123 0.00000E+00
1124 0.00000E+00
1125 0.00000E+00
1126 0.00000E+00
1127 0.00000E+00
1128 0.00000E+00
1129 0.00000E+00
1130 0.00000E+00
1201 0.00000E+00
1202 0.00000E+00
1203 0.00000E+00
1204 0.00000E+00
1205 0.00000E+00
1206 0.00000E+00
1207 0.00000E+00
1208 0.00000E+00
1209 0.00000E+00
1210 0.00000E+00
1211 0.00000E+00
1212 0.00000E+00
1213 0.00000E+00
1214 0.00000E+00
1215 0.00000E+00
1216 0.00000E+00
1217 0.00000E+00
1218 0.00000E+00
1219 0.00000E+00
1220 0.00000E+00
1221 0.00000E+00
1222 0.00000E+00
1223 0.00000E+00
1224 0.00000E+00
1225 0.00000E+00
1226 0.00000E+00
1227 0.00000E+00
1228 0.00000E+00
1229 0.00000E+00
1230 0.00000E+00
1301 0.00000E+00
1302 0.00000E+00
1303 0.00000E+00
1304 0.00000E+00
1305 0.00000E+00
1306 0.00000E+00
1307 0.00000E+00
1308 0.00000E+00
1309 0.00000E+00
1310 0.00000E+00
1311 0.00000E+00
1312 0.00000E+00
1313 0.00000E+00
1314 0.00000E+00
1315 0.00000E+00
1316 0.00000E+00
1317 0.00000E+00
1318 0.00000E+00
1319 0.00000E+00
1320 0.00000E+00
1321 0.00000E+00
1322 0.00000E+00
1323 0.00000E+00
1324 0.00000E+00
1325 0.00000E+00
1326 0.00000E+00
1327 0.00000E+00
1328 0.00000E+00
1329 0.00000E+00
1330 0.00000E+00
1500 0.00000E+00
1501 -6.00016E-03
1502 -2.40013E-02
1503 -4.10012E-02
1504 -6.35007E-02
1505 -6.45012E-02
1506 -6.10004E-02
1507 -5.95005E-02
1508 -5.55006E-02
1509 -5.45009E-02
1510 -5.70007E-02
1511 -5.90008E-02
1512 -6.80007E-02
1513 -6.45011E-02
1514 -5.85009E-02
1515 -7.50005E-02
1516 -7.75009E-02
1517 -6.40012E-02
1518 -5.15007E-02
1519 -4.20008E-02
1520 -9.00063E-03
1521 -1.10006E-02
1522 -2.75005E-02
1523 -4.30003E-02
1524 -5.85006E-02
1525 -6.85005E-02
1526 -7.30004E-02
1527 -6.80006E-02
1528 -6.70011E-02
1529 -7.70006E-02
1530 -6.55007E-02
1701 -8.50064E-03
1702 -2.40002E-02
1703 -4.05003E-02
1704 -6.00013E-02
1705 -6.10010E-02
1706 -6.00007E-02
1707 -4.25006E-02
1708 -4.80004E-02
1709 -4.85005E-02
1710 -5.20005E-02
1711 -6.20014E-02
1712 -5.70007E-02
1713 -5.55004E-02
1714 -5.10013E-02
1715 -6.10006E-02
1716 -6.45012E-02
1717 -7.20011E-02
1718 -5.65007E-02
1719 -3.95007E-02
1720 -1.55010E-02
1721 -1.00008E-03
1722 -1.95006E-02
1723 -4.30003E-02
1724 -6.00011E-02
1725 -5.50013E-02
1726 -5.85006E-02
1727 -5.85007E-02
1728 -5.85008E-02
1729 -9.25008E-02
1730 -6.25005E-02
CUT
55 9.00000E+01
TURN
99 9.90000E+01
INC
1 3
2 5
3 7
SPD
1 1.00000E+01, 1.00000E+01
2 2.00000E+01, 2.00000E+01
3 3.00000E+01, 3.00000E+01
PWR
1 100, 100
WAIT
1 2000, 0
STRG
1 _
2 300-2568-00 CAP
3
10 R20XPCS0.3XDF
11 N
12 P+
13 D
20 X*XG
333 L02A
444 TRIM
555 NORMAL
1000
1500 CAP STANDARD # 1
DLTA
1 0, 1030
100 1, 0
101 380, 0
103 380, 0
900 244, -95
901 244, 935
993 0, 1
994 -1, 0
998 0, 0
999 0, -2845
SCAL
1 5.00000E+00