HEADING: 300-2568-00 (P20481.A1) COARSE TRIM S&R 25'S 11/15/02 BOB STEP 1 GOTO STEP 9 2 GOTO STEP 208 3 GOTO STEP 239 4 GOSU STEP 151 5 GOTO STEP 9 6 GOTO STEP 139 7 GOTO STEP 229 8 IF DUM 807 = 00 THEN LET DUM 807 = 01 9 IF DUM 801 = 00 THEN GOTO STEP 229 10 MOVE POS 100 SPD 0 11 GOSU STEP 99 3.00000E+00 1.00000E+01 1.00580E+04 2.84500E+03 12 LET DLTA 900 = POS 900 - POS 899 13 DISP DLTA 900 14 MOVE POS 899 SPD 0 15 REM "*********SPARK GAP ROUTINE**********" 16 MOVE POS 202 SPD 0 17 NIBL DLTA 1 POS 203 DENS 700 BRAN 0 18 MOVE POS 204 SPD 0 19 NIBL DLTA 1 POS 205 DENS 700 BRAN 0 20 REM "***** SHORT TEST ROUTINE *****" 21 FOR I = 5.01000E+02 TO 5.07000E+02 22 TEST UNK 500 CODE 8 TOL 500 ACC 0 REJ 25 REG 0 23 TEST UNK 500 CODE 1 TOL 500 ACC 0 REJ 25 REG 0 24 PRIN "SHORT REJ # " I 25 NEXT I 26 REM " THRUHOLE CONTINUITY TEST " 27 FOR I = 6.01000E+02 TO 6.09000E+02 28 TEST UNK 600 CODE 8 TOL 600 ACC 32 REJ 0 REG 0 29 TEST UNK 600 CODE 1 TOL 600 ACC 32 REJ 0 REG 0 30 PRIN "THRUHOLE REJECT # " I 31 LET REG 4 = 01 32 NEXT I 33 IF REG 4 # 00 THEN GOTO STEP 89 34 PRIN "INITIAL TEST" 35 LET M = DUM 811 36 FOR I = 01 TO M 37 IF NOM I < - 01 THEN LET I = - NOM I 38 TEST UNK I CODE 3 TOL I ACC 40 REJ 0 REG 0 39 TEST UNK I CODE 1 TOL I ACC 0 REJ 0 REG 1 40 NEXT I 41 IF DUM 1 < - 2.00000E+00 THEN GOSU STEP 193 42 IF REG 1 # 00 THEN GOTO STEP 86 43 PRIN "FINAL TEST" 44 LET M = DUM 811 45 FOR I = 01 TO M 46 IF NOM I < - 01 THEN LET I = - NOM I 47 IF MASK I = 00 THEN GOTO STEP 69 48 IF MASK I # - 01 THEN GOTO STEP 50 49 LET NOM 200 = NOM I + ( NOM I * DUM I * TURN I / 1.00000E+04 ) 50 LET J = I * 02 51 LET K = J + 1.00000E+00 52 LET L = I + 1.00000E+02 53 MOVE POS J SPD 0 54 LET J = 02 55 LET N = 01 56 IF DUM I > - 4.50000E+01 THEN LET J = 03 57 IF DUM I > - 2.00000E+01 THEN LET J = 04 58 IF DUM I > - 1.00000E+01 THEN LET J = 05 59 IF NOM I < 2.00000E+02 THEN LET N = 02 60 IF MASK I # - 01 THEN GOTO STEP 65 61 TRIM UNK 200 CODE 104 CUT 201 MODE 201 POS K DENS 100 BRAN 0 62 TRIM UNK 200 CODE 105 CUT 101 MODE 101 POS K DENS 100 BRAN 0 63 TRIM UNK I CODE J CUT I MODE I POS K DENS 101 BRAN 0 64 GOSU STEP 266 65 TRIM UNK I CODE J CUT I MODE I POS K DENS N BRAN 0 66 TEST UNK I CODE 6 TOL L ACC 68 REJ 0 REG 0 67 TEST UNK I CODE 1 TOL L ACC 0 REJ 0 REG 2 68 IF REG 50 = 01 THEN GOSU STEP 156 69 NEXT I 70 IF REG 50 = 01 THEN GOSU STEP 164 71 IF REG 2 # 00 THEN GOTO STEP 88 72 PRIN "GOOD PART" 73 MOVE POS 800 SPD 0 74 LET J = 02 75 LET K = 03 76 LET L = 01 77 LET M = 04 78 LET DUM 805 = DUM 799 / 1.00000E+03 79 LET DUM 777 = DUM 807 / 1.00000E+02 80 LET STRG 11 = %3.3 DUM 805 81 LET STRG 10 = %2.2 DUM 777 82 LET STRG 12 = J J STRG 333 + K M STRG 11 + K J STRG 10 83 PRIN "LOT/SERIAL # IS: " STRG 12 84 CGEN DENS 4 SCAL 2 POS 801 STRG 12 85 GOTO STEP 89 86 PRIN "INITIAL REJECT" 87 GOTO STEP 89 88 PRIN "TRIM REJECT" 89 MOVE POS 899 SPD 0 90 PRIN "" 91 HAND 92 EXIT 93 LET J = I * 02 + 1.00000E+02 94 LET K = J + 01 95 LET L = I + 1.00000E+02 96 MOVE POS J SPD 0 97 TRIM UNK I CODE 4 CUT L MODE 100 POS K DENS N BRAN 0 98 EXIT 99 IF DUM 807 = 00 THEN GOTO STEP 106 100 PRIN STRG 3 101 PRIN "PROGRAM STOPPED AT PART # " DUM 807 102 PRIN STRG 3 103 PRIN "ENTER PART # YOU WANT TO START ON >" STRG 1 104 READ TTY:;DUM 808 %1.0 THEN QUIT 105 LET DUM 807 = 00 106 SHOM REG 30 107 SHOM REG 0 108 LET DUM 998 = VALU 3 109 LET DUM 999 = VALU 4 110 LET REG 990 = 00 111 LET REG 991 = 00 112 PRIN "ALIGN THETA" 113 ALIN POS 998 REF 999 REG 998 114 PRIN "ALIGN X-Y" 115 ALIN POS 0 REF 0 REG 0 116 LET DLTA 995 = DLTA 993 117 LET DLTA 998 = POS 997 - POS 999 118 GOSU STEP 143 119 LET REG 990 = REG 990 + 01 120 LET REG 991 = REG 991 + 01 121 LET REG 999 = ( REG 991 - 01 ) * DUM 999 122 LET REG 999 = REG 991 * DUM 999 - REG 999 123 LET DLTA 999 = REG 999 * DLTA 995 124 LET DLTA 998 = DLTA 998 + DLTA 999 125 GOSU STEP 143 126 IF REG 991 < ( VALU 2 - 01 ) THEN GOTO STEP 120 127 IF REG 990 = VALU 1 THEN GOTO STEP 135 128 LET DLTA 995 = DLTA 995 * ( - 01 ) 129 LET REG 999 = ( REG 990 - 01 ) * DUM 998 130 LET REG 999 = REG 990 * DUM 998 - REG 999 131 LET DLTA 997 = REG 999 * DLTA 994 132 LET DLTA 998 = DLTA 998 + DLTA 997 133 GOSU STEP 143 134 LET REG 991 = 00 135 IF REG 990 < VALU 1 THEN GOTO STEP 119 136 LET DUM 807 = 00 137 LET DUM 808 = 00 138 LET DUM 799 = DUM 799 + 01 139 SHOM REG 30 140 SHOM REG 31 141 SHOM REG 32 142 QUIT 143 LET DUM 807 = DUM 807 + 01 144 IF DUM 808 > DUM 807 THEN EXIT 145 SMOV DLTA 998 SPD 0 REG 0 146 LET DLTA 998 = 00 147 PRIN "" 148 PRIN "PART # " DUM 807 149 GOSU STEP 12 150 EXIT 151 LET REG 50 = 01 152 PRIN STRG 3 "DRIFT TEST ON" STRG 3 153 LET DUM 805 = ( DUM 812 + DUM 813 ) / DUM 812 154 LET DUM 804 = ( 1.20000E+02 - DUM 805 ) - ( DUM 812 + DUM 813 ) 155 EXIT 156 GOSU STEP 189 01 157 TEST UNK I CODE 2 TOL I ACC 0 REJ 0 REG 0 158 LET J = I + 3.00000E+02 159 LET NOM J = NOM I + ( DUM I / 1.00000E+02 * NOM I ) 160 TEST UNK 300 CODE 10 TOL I ACC 0 REJ 0 REG 0 161 LET NOM J = NOM J + ( DUM I / 1.00000E+02 * NOM J ) 162 PRIN BIT 11 "R" I " NOM" J "=" NOM J 163 EXIT 164 LET M = DUM 811 165 GOSU STEP 188 DUM 804 166 GOSU STEP 178 01 167 GOSU STEP 172 02 168 PRIN "COMPLETE" STRG 3 169 LET REG 50 = 00 170 GOSU STEP 189 05 171 EXIT 172 PRIN STRG 3 "HIT PAGE THEN RETURN" STRG 1 173 READ TTY:;%1.0 THEN QUIT 174 PRIN "DRIFT TEST FOR " STRG 2 " LOT #" STRG 333  " " 175 PRIN "DRIFT IS BASED ON 120 SECONDS" 176 PRIN "WAIT TIME (SEC) " %6.2 DUM 804 177 PRIN "PAUSE TIME (SEC) " %5.2 DUM 805  " " 178 FOR N = 01 TO M 179 GOSU STEP 223 180 IF NOM J < 00 THEN GOTO STEP 186 181 IF VALU 1 = 02 THEN GOTO STEP 185 182 GOSU STEP 189 DUM 805 183 PRIN BIT 11 "TESTING R" I 184 TEST UNK 300 CODE 10 TOL I ACC 186 REJ 186 REG 0 185 PRIN "R" I " CHANGE =" %6.3 DUM I "%" 186 NEXT N 187 EXIT 188 PRIN "WAITING " VALU 1 " SECOND(S)" STRG 3 189 LET L = VALU 1 * 2.50000E+03 190 FOR K = 01 TO L 191 NEXT K 192 EXIT 193 LET M = DUM 811 194 FOR N = 01 TO M 195 GOSU STEP 223 196 IF DUM I > DUM 810 THEN IF DUM I < DUM 809 THEN GOTO STEP 199 197 PRIN "DID NOT LOG" 198 EXIT 199 NEXT N 200 PRIN "DATA LOGGING" 201 LET DUM 800 = DUM 800 + 01 202 FOR N = 01 TO M 203 GOSU STEP 223 204 LET DUM J = DUM J + DUM I 205 LET DUM K = DUM K + ( DUM I * DUM I ) 206 NEXT N 207 EXIT 208 LET M = DUM 811 209 FOR N = 01 TO M 210 GOSU STEP 223 211 LET DUM I = 00 212 LET DUM J = 00 213 LET DUM K = 00 214 NEXT N 215 FOR I = 8.00000E+02 TO 8.08000E+02 216 LET DUM I = 00 217 NEXT I 218 PRIN STRG 3 "ARE YOU GOING TO RE-SAVE THIS PROGRAM NOW ?" STRG 1 219 READ TTY:;"_" STRG 1000 %1.0 THEN QUIT 220 IF STRG 1000 # "Y" THEN LET DUM 801 = 01 221 PRIN "DUMMIES ZEROED" STRG 3 222 QUIT 223 IF NOM N < 00 THEN LET N = - NOM N 224 LET I = N 225 LET J = I + 3.00000E+02 226 LET K = I + 6.00000E+02 227 LET L = I + 1.00000E+02 228 EXIT 229 PRIN STRG 3 "ENTER LOT NUMBER >" STRG 1 230 READ TTY:;"_" STRG 333 %1.0 THEN QUIT 231 PRIN "LOT NUMBER IS " STRG 333 232 PRIN " "  "ENTER TODAY'S DATE >" STRG 1 233 READ TTY:;"_" STRG 350 %1.0 THEN QUIT 234 PRIN "DATE IS: " STRG 350 235 PRIN STRG 3 236 LET DUM 801 = 01 237 PRIN "POSITIONS SET FOR 16 PHASE ONLY" 238 QUIT 239 GOSU STEP 257 240 LET M = DUM 811 241 FOR N = 01 TO M 242 GOSU STEP 223 243 LET DUM 804 = DUM J / DUM 800 244 LET DUM 805 = ( DUM K - ( DUM J * DUM J / DUM 800 ) ) 245 LET DUM 805 = SQRT ( DUM 805 * DUM 805 ) 246 LET DUM 805 = SQRT ( DUM 805 / ( DUM 800 - 01 ) ) 247 LET DUM 806 = ( 1.00000E+02 + DUM 804 ) * NOM I / 1.00000E+02 248 LET DUM 803 = I 249 PRIN "R" %3.0 DUM 803 " " %6.3 DUM 804 " " %6.4 DUM 805 STRG 1 250 LET DUM 805 = - 2.50000E+01 251 IF TOL I > - 5.00000E+01 THEN LET DUM 805 = TOL I * 5.00000E-01 252 IF NOM J < 00 THEN IF ! TOL I # 00 THEN LET DUM 805 = 00 253 LET DUM 803 = DUM 804 - DUM 805 254 PRIN %12.3 DUM 806 %12.3 NOM I " " %4.2 DUM 803 " " %4.2 DUM 805 255 NEXT N 256 QUIT 257 PRIN STRG 2 " PRE-TRIM TEST DATA ON" DUM 800 "PARTS" STRG 1 258 PRIN " " 259 PRIN " DATE: " STRG 350 260 PRIN "LOT #: " STRG 333 261 PRIN " " 262 PRIN " AVE % DEV STD % DEV AVERAGE OHMS" STRG 1 263 PRIN " NOMINAL % OFF > TARGET" 264 PRIN " " 265 EXIT 266 LET J = I * 02 267 IF I < 03 THEN GOTO STEP 269 268 IF I > 02 THEN GOTO STEP 275 269 NIBL DLTA 800 POS J DENS 800 BRAN 0 270 NIBL DLTA 801 POS J DENS 800 BRAN 274 271 NIBL DLTA 802 POS J DENS 800 BRAN 281 272 NIBL DLTA 803 POS K DENS 1 BRAN 0 273 GOTO STEP 270 274 EXIT 275 NIBL DLTA 804 POS J DENS 800 BRAN 0 276 NIBL DLTA 805 POS J DENS 800 BRAN 280 277 NIBL DLTA 806 POS J DENS 800 BRAN 285 278 NIBL DLTA 807 POS K DENS 1 BRAN 0 279 GOTO STEP 276 280 EXIT 281 NIBL DLTA 809 POS J DENS 800 BRAN 0 282 NIBL DLTA 810 POS K DENS 1 BRAN 0 283 GOTO STEP 270 284 EXIT 285 NIBL DLTA 811 POS J DENS 800 BRAN 0 286 NIBL DLTA 812 POS K DENS 1 BRAN 0 287 GOTO STEP 276 288 EXIT MODE 1 TURN 0 CROS 1 INC 1 2 TURN 0 CROS 2 INC 2 3 TURN 0 CROS 3 INC 3 4 TURN 0 CROS 4 INC 4 5 TURN 5 CROS 0 INC 5 6 TURN 6 CROS 0 INC 6 7 TURN 7 CROS 0 INC 0 99 TURN 99 CROS 0 INC 99 100 TURN 0 CROS 0 INC 0 101 TURN 0 CROS 101 INC 101 102 TURN 99 CROS 0 INC 102 103 TURN 99 CROS 0 INC 103 104 TURN 99 CROS 0 INC 104 201 TURN 0 CROS 201 INC 0 700 TURN 700 CROS 0 INC 700 DENS 1 SPD 1 PWR 1 2 SPD 2 PWR 1 4 SPD 4 PWR 1 99 SPD 99 PWR 1 100 SPD 100 PWR 1 101 SPD 101 PWR 1 199 SPD 199 PWR 1 700 SPD 700 PWR 1 800 SPD 800 PWR 0 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 200 NOM 200 SCAN I MAT 0 FUNC 0 DUM 200 300 NOM J SCAN I MAT 0 FUNC 0 DUM I 500 NOM 500 SCAN I MAT 0 FUNC 0 DUM 0 600 NOM 600 SCAN I MAT 0 FUNC 0 DUM 0 700 NOM 700 SCAN 1 MAT 0 FUNC 0 DUM 0 REG 1 00 2 00 3 00 4 00 30 03 31 00 32 04 50 00 990 00 991 00 998 -01 999 05435 MASK 1 -01 2 -01 3 -01 4 -01 5 01 6 01 7 01 POS 2 4540, 1408 3 3370, 1024 4 1150, 1172 5 900, 700 6 4540, -1394 7 3370, -981 8 1150, -1196 9 900, -690 10 3975, 221 11 4102, 629 12 4060, -203 13 3929, -584 14 -2569, 286 15 -3128, 406 100 -368, -4082 102 3851, 1530 103 5140, 1210 104 1405, 1334 105 1735, 978 106 5110, -1088 107 3860, -751 108 1725, -872 109 1410, -485 110 4855, 970 111 4596, 1237 112 4596, 351 113 4855, 96 202 4670, 145 203 4970, 145 204 4670, -100 205 4970, 70 800 -3695, 1286 801 -4838, 1286 802 -3500, -855 803 -4430, -855 899 2840, 1327 900 1884, -3742 997 10806, -12668 998 -13195, 15847 999 15969, 15847 REF 999 POS 999 NOM 1 8.00000E+04 2 2.00000E+04 3 8.00000E+04 4 2.00000E+04 5 7.50000E+01 6 7.50000E+01 7 5.00000E+01 200 4.76360E+04 301 7.96780E+04 302 1.99274E+04 303 7.97075E+04 304 1.99054E+04 305 7.47368E+01 306 7.45986E+01 307 4.98711E+01 402 9.73804E+04 500 2.00000E+00 600 5.00000E+00 700 2.00000E+05 SCAN 1 16, 13, 0, 0 2 16, 17, 0, 0 3 8, 11, 0, 0 4 8, 7, 0, 0 5 14, 15, 0, 0 6 11, 8, 0, 0 7 21, 2, 0, 0 501 12, 23, 0, 0 502 0, 12, 0, 0 503 1, 12, 0, 0 504 3, 12, 0, 0 505 12, 5, 0, 0 506 6, 12, 0, 0 507 12, 19, 0, 0 601 12, 2, 0, 0 602 12, 20, 0, 0 603 5, 12, 0, 0 604 18, 12, 0, 0 605 12, 16, 0, 0 606 1, 19, 0, 0 607 1, 3, 0, 0 608 1, 18, 0, 0 609 7, 0, 0, 0 CODE 1 2, 2, 0, 0 2 3, 2, 0, 0 3 3, 3, 100, 0 4 3, 4, 100, 0 5 3, 5, 100, 0 6 3, 6, 100, 0 7 3, 7, 125, 0 8 8, 2, 0, 0 10 3, 8, 200, 0 104 3, 5, 100, 0 105 3, 5, 100, 0 700 2, 2, 0, 0 TOL 1 -5.00000E+01, 0.00000E+00 2 -5.00000E+01, 0.00000E+00 3 -5.00000E+01, 0.00000E+00 4 -5.00000E+01, 0.00000E+00 5 -5.00000E+01, 4.50000E+00 6 -5.00000E+01, 4.50000E+00 7 -5.00000E+01, 4.50000E+00 101 -8.00000E-01, 0.00000E+00 102 -8.00000E-01, 0.00000E+00 103 -8.00000E-01, 0.00000E+00 104 -8.00000E-01, 0.00000E+00 105 -4.00000E+00, 4.00000E+00 106 -4.00000E+00, 4.00000E+00 107 -4.00000E+00, 4.00000E+00 500 -1.50000E+02, 1.50000E+02 600 -1.00000E+02, 0.00000E+00 DUM 1 1.04000E+01 2 -2.60200E+01 3 -2.74000E+01 4 -2.60400E+01 5 -2.44375E+01 6 -1.98542E+01 7 -2.33906E+01 200 0.00000E+00 301 -4.23260E+02 302 -3.08260E+02 303 -3.34860E+02 304 -3.09280E+02 305 -2.89833E+02 306 -2.65167E+02 307 -3.08141E+02 555 6.00000E-01 601 1.57234E+04 602 7.92154E+03 603 9.35479E+03 604 7.99117E+03 605 7.01983E+03 606 5.94249E+03 607 8.02674E+03 777 2.00000E-01 799 5.80000E+01 800 1.20000E+01 801 1.00000E+00 802 0.00000E+00 803 0.00000E+00 804 0.00000E+00 805 5.80000E-02 806 0.00000E+00 807 0.00000E+00 808 2.80000E+01 809 8.00000E+01 810 -8.00000E+01 811 7.00000E+00 812 7.00000E+00 813 7.00000E+00 814 1.60000E+02 998 1.00580E+04 999 2.84500E+03 CUT 1 -4.00000E-01 2 -4.00000E-01 3 -4.00000E-01 4 -5.00000E-01 5 -7.00000E-01 6 -7.00000E-01 7 -3.00000E-01 101 0.00000E+00 102 -2.80000E-01 103 -2.20000E-01 104 -1.80000E-01 105 -4.00000E-01 106 -4.00000E-01 201 1.00000E+00 700 9.90000E+01 TURN 1 8.70000E+01 2 4.00000E+01 3 8.70000E+01 4 4.00000E+01 5 3.50000E+01 6 4.00000E+01 7 2.60000E+01 99 9.90000E+01 700 9.90000E+01 CROS 1 -1.00000E+00 2 -1.00000E+00 3 -1.00000E+00 4 -1.00000E+00 101 -1.20000E+00 201 -1.00000E+00 INC 1 15 2 5 3 15 4 5 5 2 6 2 99 4 101 5 102 2 103 4 104 2 105 3 106 3 700 1 SPD 1 0.00000E+00, 7.00000E+00 2 7.00000E+00, 7.00000E+00 4 4.00000E+00, 4.00000E+00 99 5.00000E+01, 5.00000E+01 100 0.00000E+00, 8.00000E+00 101 8.00000E+00, 0.00000E+00 199 1.20000E+01, 1.20000E+01 700 4.00000E+00, 4.00000E+00 800 3.00000E+02, 3.00000E+02 PWR 1 100, 100 STRG 1 _ 2 300-2568-00 "A" 3  10 .20 11 .058 12 1805820 333 L18B 340 0 350 1000 Y DLTA 1 300, 0 2 -170, 0 800 0, 8 801 80, 0 802 0, 250 803 0, -250 804 0, -8 805 80, 0 806 0, -250 807 0, 250 809 0, 150 810 0, -150 811 0, -150 812 0, 150 900 -956, -5069 993 0, 1 994 -1, 0 995 0, 1 996 0, 0 997 -10058, 0 998 0, 0 999 0, 2845 SCAL 1 7.50000E+00 2 6.00000E+00 333 0.00000E+00