HEADING:300-2235-05 (P20391.01) S&R 25'S 6-10-96 GF
STEP
1 GOTO STEP 9
2 GOTO STEP 198
3 GOTO STEP 178
4 GOSU STEP 121
5 GOTO STEP 9
6 GOTO STEP 110
7 GOTO STEP 220
8 IF DUM 807 = 00 THEN LET DUM 807 = 01
9 IF DUM 801 = 00 THEN GOTO STEP 220
10 MOVE POS 200 SPD 0
11 GOSU STEP 66 2.00000E+00 4.00000E+00 1.52400E+04 7.62000E+03
12 LET DLTA 900 = POS 900 - POS 899
13 DISP DLTA 900
14 MOVE POS 899 SPD 0
15 LET M = DUM 811
16 FOR I = 01 TO M
17 IF NOM I < - 01 THEN LET I = - NOM I
18 TEST UNK I CODE 2 TOL I ACC 20 REJ 0 REG 0
19 TEST UNK I CODE 1 TOL I ACC 0 REJ 0 REG 1
20 NEXT I
21 IF DUM 1 < - 2.00000E+00 THEN GOSU STEP 163
22 IF REG 1 # 00 THEN GOTO STEP 54
23 LET M = DUM 811
24 FOR I = 01 TO M
25 IF NOM I < - 01 THEN LET I = - NOM I
26 IF MASK I = 00 THEN GOTO STEP 44
27 LET J = I * 2.00000E+00
28 LET K = J + 1.00000E+00
29 LET L = I + 1.00000E+02
30 MOVE POS J SPD 0
31 LET J = 02
32 IF DUM I > - 4.50000E+01 THEN LET J = 03
33 IF DUM I > - 2.00000E+01 THEN LET J = 04
34 IF DUM I > - 1.00000E+01 THEN LET J = 05
35 IF MASK I = 05 THEN GOTO STEP 228
36 IF MASK I > 02 THEN IF MASK I < 05 THEN GOTO STEP 39
37 TRIM UNK L CODE J CUT I MODE I POS K DENS I BRAN 0
38 GOTO STEP 40
39 SERP UNK I CODE J CUT I MODE I POS K DENS I BRAN 0
40 IF MASK I > 01 THEN IF MASK I < 04 THEN GOSU STEP 60
41 TEST UNK L CODE 5 TOL L ACC 43 REJ 0 REG 2
42 IF DUM L > 1.00000E+03 THEN TEST UNK L CODE 2 TOL L ACC 0 REJ 0 REG 0
43 IF REG 50 = 01 THEN GOSU STEP 126
44 NEXT I
45 IF REG 50 = 01 THEN GOSU STEP 134
46 IF REG 2 # 00 THEN GOTO STEP 56
47 PRIN "GOOD PART"
48 PRIN "" ""
49 MOVE POS 800 SPD 0
50 CGEN DENS 333 SCAL 333 POS 801 STRG 333
51 MOVE POS 802 SPD 0
52 CGEN DENS 333 SCAL 334 POS 803 "'05'"
53 GOTO STEP 57
54 PRIN "INITIAL REJECT"
55 GOTO STEP 57
56 PRIN "TRIM REJECT"
57 MOVE POS 899 SPD 0
58 HAND
59 EXIT
60 LET J = I * 02 + 1.00000E+02
61 LET K = J + 01
62 LET L = I + 1.00000E+02
63 MOVE POS J SPD 0
64 TRIM UNK L CODE 4 CUT L MODE 100 POS K DENS I BRAN 0
65 EXIT
66 IF DUM 807 = 00 THEN GOTO STEP 73
67 PRIN STRG 3
68 PRIN "PROGRAM STOPPED AT PART # " DUM 807
69 PRIN STRG 3
70 PRIN "ENTER PART # YOU WANT TO START ON >" STRG 1
71 READ TTY:;DUM 808 %1.0 THEN QUIT
72 LET DUM 807 = 00
73 SHOM REG 30
74 SHOM REG 0
75 LET DUM 998 = VALU 3
76 LET DUM 999 = VALU 4
77 LET REG 990 = 00
78 LET REG 991 = 00
79 PRIN "ALIGN THETA" STRG 3
80 LET DLTA 995 = DLTA 993
81 IF BIT 6 = 00 THEN GOTO STEP 85
82 LET DLTA 997 = POS 997
83 SMOV DLTA 997 SPD 0 REG 0
84 GOTO STEP 90
85 ALIN POS 998 REF 999 REG 998
86 PRIN "ALIGN X-Y" STRG 3
87 ALIN POS 0 REF 0 REG 0
88 LET DLTA 995 = DLTA 993
89 LET DLTA 998 = POS 997 - POS 999
90 GOSU STEP 114
91 LET REG 990 = REG 990 + 01
92 LET REG 991 = REG 991 + 01
93 LET REG 999 = ( REG 991 - 01 ) * DUM 999
94 LET REG 999 = REG 991 * DUM 999 - REG 999
95 LET DLTA 999 = REG 999 * DLTA 995
96 LET DLTA 998 = DLTA 998 + DLTA 999
97 GOSU STEP 114
98 IF REG 991 < ( VALU 2 - 01 ) THEN GOTO STEP 92
99 IF REG 990 = VALU 1 THEN GOTO STEP 107
100 LET DLTA 995 = DLTA 995 * ( - 01 )
101 LET REG 999 = ( REG 990 - 01 ) * DUM 998
102 LET REG 999 = REG 990 * DUM 998 - REG 999
103 LET DLTA 997 = REG 999 * DLTA 994
104 LET DLTA 998 = DLTA 998 + DLTA 997
105 GOSU STEP 114
106 LET REG 991 = 00
107 IF REG 990 < VALU 1 THEN GOTO STEP 91
108 LET DUM 807 = 00
109 LET DUM 808 = 00
110 SHOM REG 30
111 SHOM REG 31
112 SHOM REG 32
113 QUIT
114 LET DUM 807 = DUM 807 + 01
115 IF DUM 808 > DUM 807 THEN EXIT
116 SMOV DLTA 998 SPD 0 REG 0
117 LET DLTA 998 = 00
118 PRIN "PART # " DUM 807
119 GOSU STEP 12
120 EXIT
121 LET REG 50 = 01
122 PRIN STRG 3 "DRIFT TEST ON" STRG 3
123 LET DUM 805 = ( DUM 812 + DUM 813 ) / DUM 812
124 LET DUM 804 = ( 1.20000E+02 - DUM 805 ) - ( DUM 812 + DUM 813 )
125 EXIT
126 GOSU STEP 159 01
127 TEST UNK I CODE 2 TOL I ACC 0 REJ 0 REG 0
128 LET J = I + 3.00000E+02
129 LET NOM J = NOM I + ( DUM I / 1.00000E+02 * NOM I )
130 TEST UNK 300 CODE 10 TOL I ACC 0 REJ 0 REG 0
131 LET NOM J = NOM J + ( DUM I / 1.00000E+02 * NOM J )
132 PRIN BIT 11 "R" I " NOM" J "=" NOM J
133 EXIT
134 LET M = DUM 811
135 GOSU STEP 158 DUM 804
136 GOSU STEP 148 01
137 GOSU STEP 142 02
138 PRIN "COMPLETE" STRG 3
139 LET REG 50 = 00
140 GOSU STEP 159 05
141 EXIT
142 PRIN STRG 3 "HIT PAGE THEN RETURN" STRG 1
143 READ TTY:;%1.0 THEN QUIT
144 PRIN "DRIFT TEST FOR " STRG 2 " LOT #" STRG 333
" "
145 PRIN "DRIFT IS BASED ON 120 SECONDS"
146 PRIN "WAIT TIME (SEC) " %6.2 DUM 804
147 PRIN "PAUSE TIME (SEC) " %5.2 DUM 805
" "
148 FOR N = 01 TO M
149 GOSU STEP 214
150 IF NOM J < 00 THEN GOTO STEP 156
151 IF VALU 1 = 02 THEN GOTO STEP 155
152 GOSU STEP 159 DUM 805
153 PRIN BIT 11 "TESTING R" I
154 TEST UNK 300 CODE 10 TOL I ACC 156 REJ 156 REG 0
155 PRIN "R" I " CHANGE =" %6.3 DUM I "%"
156 NEXT N
157 EXIT
158 PRIN "WAITING " VALU 1 " SECOND(S)" STRG 3
159 LET L = VALU 1 * 2.50000E+03
160 FOR K = 01 TO L
161 NEXT K
162 EXIT
163 LET M = DUM 811
164 FOR N = 01 TO M
165 GOSU STEP 214
166 IF DUM I > DUM 810 THEN IF DUM I < DUM 809 THEN GOTO STEP 169
167 PRIN "DID NOT LOG"
168 EXIT
169 NEXT N
170 PRIN "DATA LOGGING"
171 LET DUM 800 = DUM 800 + 01
172 FOR N = 01 TO M
173 GOSU STEP 214
174 LET DUM J = DUM J + DUM I
175 LET DUM K = DUM K + ( DUM I * DUM I )
176 NEXT N
177 EXIT
178 GOSU STEP 191
179 LET M = DUM 811
180 FOR N = 01 TO M
181 GOSU STEP 214
182 LET DUM 804 = DUM J / DUM 800
183 LET DUM 805 = ( DUM K - ( DUM J * DUM J / DUM 800 ) )
184 LET DUM 805 = SQRT ( DUM 805 * DUM 805 )
185 LET DUM 805 = SQRT ( DUM 805 / ( DUM 800 - 01 ) )
186 LET DUM 806 = ( 1.00000E+02 + DUM 804 ) * NOM I / 1.00000E+02
187 PRIN "R" I " " %5.3 DUM 804 %8.3 DUM 805 STRG 1
188 PRIN %15.3 DUM 806 %15.3 NOM I
189 NEXT N
190 QUIT
191 PRIN STRG 2 " LOT " STRG 333 STRG 1
192 PRIN " RESISTOR PRETRIM DATA BASED ON" DUM 800 " PARTS"
193 PRIN " "
194 PRIN " AVE DEV STD DEV AVERAGE OHMS" STRG 1
195 PRIN " NOMINAL"
196 PRIN " "
197 EXIT
198 LET M = DUM 811
199 FOR N = 01 TO M
200 GOSU STEP 214
201 LET DUM I = 00
202 LET DUM J = 00
203 LET DUM K = 00
204 LET DUM L = 00
205 NEXT N
206 FOR I = 8.00000E+02 TO 8.08000E+02
207 LET DUM I = 00
208 NEXT I
209 PRIN STRG 3 "ARE YOU GOING TO RE-SAVE THIS PROGRAM NOW ?" STRG 1
210 READ TTY:;"_" STRG 1000 %1.0 THEN QUIT
211 IF STRG 1000 # "Y" THEN LET DUM 801 = 01
212 PRIN "DUMMIES ZEROED" STRG 3
213 QUIT
214 IF NOM N < 00 THEN LET N = - NOM N
215 LET I = N
216 LET J = I + 3.00000E+02
217 LET K = I + 6.00000E+02
218 LET L = I + 1.00000E+02
219 EXIT
220 PRIN STRG 3 "ENTER LOT NUMBER >" STRG 1
221 READ TTY:;"_" STRG 333 %1.0 THEN QUIT
222 PRIN "LOT NUMBER IS " STRG 333
223 LET DUM 801 = DUM 801 + 01
224 PRIN STRG 3
225 PRIN "NO 4-16 PHASE ROUTINE, POSITIONS SET FOR 16 PHASE."
226 PRIN STRG 3
227 QUIT
228 REM "STEPS FOR EQUAL SCAN SERP"
229 LET CUT I = DUM I / 2.00000E+00
230 SERP UNK I CODE J CUT I MODE 99 POS K DENS 99 BRAN 0
231 TEST UNK I CODE J TOL I ACC 0 REJ 0 REG 0
232 LET J = I * 02 + 1.00000E+02
233 LET K = J + 01
234 LET L = I + 1.00000E+02
235 MOVE POS J SPD 0
236 SERP UNK I CODE 4 CUT L MODE 99 POS K DENS 99 BRAN 0
237 GOTO STEP 41
238 QUIT
MODE
1 TURN 1 CROS 0 INC 0
2 TURN 2 CROS 0 INC 0
3 TURN 3 CROS 0 INC 0
4 TURN 4 CROS 0 INC 0
5 TURN 5 CROS 0 INC 0
6 TURN 6 CROS 0 INC 0
7 TURN 7 CROS 0 INC 0
8 TURN 8 CROS 0 INC 0
9 TURN 9 CROS 0 INC 0
10 TURN 10 CROS 0 INC 0
11 TURN 11 CROS 0 INC 11
12 TURN 12 CROS 0 INC 0
13 TURN 13 CROS 0 INC 0
14 TURN 14 CROS 0 INC 0
17 TURN 17 CROS 0 INC 0
99 TURN 99 CROS 0 INC 99
100 TURN 0 CROS 0 INC 0
DENS
1 SPD 2 PWR 1
2 SPD 1 PWR 1
3 SPD 2 PWR 1
4 SPD 2 PWR 1
5 SPD 2 PWR 1
6 SPD 2 PWR 1
7 SPD 2 PWR 1
8 SPD 2 PWR 1
9 SPD 1 PWR 1
10 SPD 2 PWR 1
11 SPD 1 PWR 1
12 SPD 2 PWR 1
13 SPD 2 PWR 1
14 SPD 2 PWR 1
17 SPD 1 PWR 1
99 SPD 99 PWR 99
333 SPD 333 PWR 1
UNK
1 NOM 1 SCAN 1 MAT 0 FUNC 0 DUM 1
2 NOM 2 SCAN 2 MAT 0 FUNC 0 DUM 2
3 NOM 3 SCAN 3 MAT 0 FUNC 0 DUM 3
4 NOM 4 SCAN 4 MAT 0 FUNC 0 DUM 4
5 NOM 5 SCAN 5 MAT 0 FUNC 0 DUM 5
6 NOM 6 SCAN 6 MAT 0 FUNC 0 DUM 6
7 NOM 7 SCAN 7 MAT 0 FUNC 0 DUM 7
8 NOM 8 SCAN 8 MAT 0 FUNC 0 DUM 8
9 NOM 9 SCAN 9 MAT 0 FUNC 0 DUM 9
10 NOM 10 SCAN 10 MAT 0 FUNC 0 DUM 10
11 NOM 11 SCAN 11 MAT 0 FUNC 0 DUM 11
12 NOM 12 SCAN 12 MAT 0 FUNC 0 DUM 12
13 NOM 13 SCAN 13 MAT 0 FUNC 0 DUM 13
14 NOM 14 SCAN 14 MAT 0 FUNC 0 DUM 14
15 NOM 15 SCAN 15 MAT 0 FUNC 0 DUM 15
16 NOM 16 SCAN 16 MAT 0 FUNC 0 DUM 16
17 NOM 17 SCAN 17 MAT 0 FUNC 0 DUM 17
101 NOM 1 SCAN 1 MAT 0 FUNC 0 DUM 101
102 NOM 2 SCAN 2 MAT 0 FUNC 0 DUM 102
103 NOM 3 SCAN 3 MAT 0 FUNC 0 DUM 103
104 NOM 4 SCAN 4 MAT 0 FUNC 0 DUM 104
105 NOM 5 SCAN 5 MAT 0 FUNC 0 DUM 105
106 NOM 6 SCAN 6 MAT 0 FUNC 0 DUM 106
107 NOM 7 SCAN 7 MAT 0 FUNC 0 DUM 107
108 NOM 8 SCAN 8 MAT 101 FUNC 0 DUM 108
109 NOM 9 SCAN 9 MAT 0 FUNC 0 DUM 109
110 NOM 10 SCAN 10 MAT 0 FUNC 0 DUM 110
111 NOM 11 SCAN 11 MAT 0 FUNC 0 DUM 111
112 NOM 12 SCAN 12 MAT 0 FUNC 0 DUM 112
113 NOM 13 SCAN 13 MAT 0 FUNC 0 DUM 113
114 NOM 14 SCAN 14 MAT 0 FUNC 0 DUM 114
117 NOM 17 SCAN 17 MAT 0 FUNC 0 DUM 117
300 NOM J SCAN I MAT 0 FUNC 0 DUM I
REG
1 00
2 00
3 00
4 00
30 03
31 00
32 04
50 00
990 01
991 01
998 -01
999 016704
MASK
1 01
2 01
3 01
4 01
5 01
6 01
7 01
8 01
9 01
10 01
11 04
12 01
13 01
14 01
15 00
16 00
17 01
POS
2 4780, -1848
3 5031, -1315
4 3073, -3277
5 3073, -2568
6 -3820, -1708
7 -3341, -1990
8 -3804, 1010
9 -3358, 232
10 5531, -906
11 6306, -1136
12 -4703, -39
13 -4184, -888
14 -5750, -1145
15 -5266, -1952
16 4720, -2545
17 6030, -2103
18 -60, -1515
19 393, -1826
20 4101, -3271
21 5014, -2824
22 2430, -2370
23 2050, -2980
24 -4719, -1722
25 -4242, -2080
26 -4706, 1028
27 -4226, 666
28 -2497, 1572
29 -2259, 2124
34 1710, -1941
35 2386, -2073
190 -750, 0
200 4444, -2218
800 6351, 2599
801 7162, 2599
802 7549, 3107
803 7549, 2223
899 -34, -1378
900 -34, -1378
997 8550, -7200
998 -9745, 17004
999 19978, 17004
REF
999 POS 999
NOM
1 1.20000E+02
2 2.50000E+03
3 1.52700E+02
4 3.73700E+02
5 2.50000E+01
6 3.57000E+02
7 3.57000E+02
8 6.80000E+02
9 4.67000E+03
10 4.08000E+02
11 1.60000E+04
12 5.11000E+01
13 5.11000E+01
14 1.20000E+02
15 1.00000E+02
16 1.00000E+02
17 1.80000E+03
301 1.19976E+02
302 2.48686E+03
303 1.52287E+02
304 3.73160E+02
305 2.49374E+01
306 3.56336E+02
307 3.56467E+02
308 6.79187E+02
309 4.65966E+03
310 4.06851E+02
311 1.60227E+04
312 5.09187E+01
313 5.09287E+01
314 1.19826E+02
315 -1.00000E+00
316 -1.00000E+00
317 1.79335E+03
SCAN
1 15, 14, 0, 0
2 16, 7, 0, 0
3 2, 5, 0, 0
4 10, 22, 0, 0
5 12, 10, 0, 0
6 0, 22, 0, 0
7 0, 5, 0, 0
8 9, 14, 0, 0
9 8, 11, 0, 0
10 14, 8, 0, 0
11 6, 7, 0, 0
12 1, 5, 0, 0
13 21, 22, 0, 0
14 19, 19, 0, 0
15 7, 16, 0, 0
16 18, 17, 0, 0
17 7, 18, 0, 0
CODE
1 3, 2, 0, 0
2 3, 2, 0, 0
3 3, 3, 0, 0
4 3, 4, 0, 0
5 3, 5, 0, 0
10 3, 8, 200, 0
TOL
1 -5.00000E+01, 3.00000E-01
2 -5.00000E+01, 4.50000E+00
3 -5.00000E+01, 3.00000E-01
4 -5.00000E+01, 3.00000E-01
5 -5.00000E+01, 7.50000E-01
6 -5.00000E+01, 3.00000E-01
7 -5.00000E+01, 3.00000E-01
8 -5.00000E+01, 5.00000E-01
9 -5.00000E+01, 3.00000E-01
10 -5.00000E+01, 7.50000E-01
11 -7.80000E+01, 9.50000E+00
12 -5.00000E+01, 1.00000E-01
13 -5.00000E+01, 1.00000E-01
14 -5.00000E+01, 7.50000E-01
15 -3.00000E+01, 6.00000E+01
16 -3.00000E+01, 6.00000E+01
17 -5.00000E+01, 7.50000E-01
101 -2.50000E-01, 2.50000E-01
102 -4.00000E+00, 4.00000E+00
103 -2.50000E-01, 2.50000E-01
104 -2.50000E-01, 2.50000E-01
105 -5.00000E-01, 5.00000E-01
106 -2.50000E-01, 2.50000E-01
107 -2.50000E-01, 2.50000E-01
108 -2.50000E-01, 2.50000E-01
109 -2.50000E-01, 2.50000E-01
110 -5.00000E-01, 5.00000E-01
111 -9.00000E+00, 9.00000E+00
112 -4.00000E-01, 1.00000E-01
113 -4.00000E-01, 1.00000E-01
114 -5.00000E-01, 5.00000E-01
117 -5.00000E-01, 5.00000E-01
DUM
1 -3.83594E+01
2 -2.14400E+01
3 -3.90144E+01
4 -3.34024E+01
5 -2.17187E+01
6 -3.66246E+01
7 -3.17227E+01
8 -3.95221E+01
9 -1.18630E+01
10 -3.56924E+01
11 -6.73000E+01
12 -2.25783E+01
13 -2.23031E+01
14 -3.53646E+01
15 -7.18750E-01
16 -2.71875E+00
17 -1.27222E+01
101 -3.83594E+01
102 -2.14400E+01
103 -3.90144E+01
104 -3.34024E+01
105 -2.17187E+01
106 -3.66246E+01
107 -3.17227E+01
108 -1.83778E+00
109 -1.18362E+01
110 -3.56924E+01
111 -6.73000E+01
112 -2.25783E+01
113 -2.23031E+01
114 -3.53646E+01
115 0.00000E+00
116 0.00000E+00
117 -1.25833E+01
301 -9.49453E+02
302 -5.22400E+02
303 -9.26793E+02
304 -8.10516E+02
305 -5.38969E+02
306 -8.81724E+02
307 -7.60295E+02
308 -9.24155E+02
309 -3.78673E+02
310 -8.52237E+02
311 -1.49820E+03
312 -5.03939E+02
313 -4.97181E+02
314 -8.47969E+02
315 -1.06094E+02
316 -1.36750E+02
317 -4.00389E+02
601 4.11447E+04
602 1.25256E+04
603 3.91996E+04
604 3.00444E+04
605 1.32847E+04
606 3.54974E+04
607 2.63549E+04
608 3.88721E+04
609 6.78150E+03
610 3.31176E+04
611 1.02046E+05
612 1.15766E+04
613 1.12934E+04
614 3.28091E+04
615 1.04712E+03
616 1.34993E+03
617 7.69451E+03
800 2.20000E+01
801 1.00000E+00
802 0.00000E+00
803 0.00000E+00
804 8.80000E+01
805 2.00000E+00
806 0.00000E+00
807 2.00000E+00
808 0.00000E+00
809 8.00000E+01
810 -8.00000E+01
811 1.70000E+01
812 1.50000E+01
813 1.50000E+01
814 1.60000E+02
998 1.52400E+04
999 7.62000E+03
1000 1.60000E+01
CUT
1 -1.00000E-01
2 -5.00000E-01
3 -2.50000E-01
4 -1.50000E-01
5 -1.00000E-01
6 -1.50000E-01
7 -1.50000E-01
8 -1.00000E-02
9 -2.00000E-01
10 -2.50000E-01
11 -5.00000E-01
12 -2.00000E-01
13 -2.00000E-01
14 -2.50000E-01
17 -4.00000E-01
TURN
1 4.50000E+01
2 0.00000E+00
3 5.50000E+01
4 8.00000E+01
5 3.00000E+01
6 7.50000E+01
7 7.50000E+01
8 8.50000E+01
9 6.00000E+01
10 8.00000E+01
11 5.60000E+01
12 5.50000E+01
13 5.50000E+01
14 4.00000E+01
17 3.00000E+01
99 9.90000E+01
INC
11 140
99 4
SPD
1 1.00000E+00, 1.00000E+00
2 1.00000E+00, 1.00000E+00
99 1.50000E+01, 1.50000E+01
333 7.00000E+00, 7.00000E+00
PWR
1 100, 100
99 100, 100
STRG
1 _
2 300-2235-05
3
333 L26
1000 Y
DLTA
14 -5550, -572
15 -5100, -1278
900 -261, -645
993 0, 1
994 -1, 0
995 0, 1
996 0, 0
997 -15240, 0
998 0, 7620
999 0, 7620
SCAL
1 1.00000E+01
333 1.40000E+01
334 1.00000E+01