HEADING:300-2892-00 (2892.A1) COARSE TRIM S&R 25 3-5-06 STEVE D STEP 1 GOTO STEP 9 2 GOTO STEP 215 3 GOTO STEP 245 4 GOSU STEP 158 5 GOTO STEP 9 6 GOTO STEP 146 7 GOTO STEP 236 8 IF DUM 807 = 00 THEN LET DUM 807 = 01 9 IF DUM 801 = 00 THEN GOTO STEP 236 10 REM " ***********USE POSITION 100 TO ALIGN PROBES *********" 11 MOVE POS 100 SPD 0 12 GOSU STEP 106 3.00000E+00 1.00000E+01 1.00580E+04 2.84500E+03 13 LET DLTA 900 = POS 900 - POS 899 14 DISP DLTA 900 15 MOVE POS 899 SPD 0 16 REM "*********SPARK GAP ROUTINE**********" 17 IF BIT 4 = 1.00000E+00 THEN GOTO STEP 22 18 MOVE POS 202 SPD 99 19 NIBL DLTA 1 POS 203 DENS 700 BRAN 0 20 MOVE POS 204 SPD 99 21 NIBL DLTA 1 POS 205 DENS 700 BRAN 0 22 REM "***** SHORT TEST ROUTINE *****" 23 FOR I = 5.01000E+02 TO 5.07000E+02 24 TEST UNK 500 CODE 2 TOL 500 ACC 0 REJ 27 REG 0 25 TEST UNK 500 CODE 1 TOL 500 ACC 0 REJ 27 REG 0 26 PRIN "SHORT REJ # " I 27 NEXT I 28 REM " THRUHOLE CONTINUITY TEST " 29 FOR I = 6.01000E+02 TO 6.09000E+02 30 TEST UNK 600 CODE 2 TOL 600 ACC 34 REJ 0 REG 0 31 TEST UNK 600 CODE 1 TOL 600 ACC 34 REJ 0 REG 0 32 PRIN "THRUHOLE REJECT # " I 33 LET REG 4 = 01 34 NEXT I 35 IF REG 4 # 00 THEN GOTO STEP 96 36 PRIN "INITIAL TEST " 37 IF BIT 4 = 1.00000E+00 THEN GOTO STEP 44 38 LET M = DUM 811 39 FOR I = 01 TO M 40 IF NOM I < - 01 THEN LET I = - NOM I 41 TEST UNK I CODE 3 TOL I ACC 43 REJ 0 REG 0 42 TEST UNK I CODE 1 TOL I ACC 0 REJ 0 REG 1 43 NEXT I 44 IF DUM 1 < - 2.00000E+00 THEN GOSU STEP 200 45 IF REG 1 # 00 THEN GOTO STEP 93 46 PRIN "FINAL TEST" 47 LET M = DUM 811 48 FOR I = 01 TO M 49 IF NOM I < - 01 THEN LET I = - NOM I 50 IF MASK I = 00 THEN GOTO STEP 73 51 IF MASK I # - 1.00000E+00 THEN GOTO STEP 75 52 LET NOM 200 = NOM I + ( NOM I * DUM I * TURN I / 1.00000E+04 ) 53 LET J = I * 02 54 LET K = J + 1.00000E+00 55 LET L = I + 1.00000E+02 56 MOVE POS J SPD 0 57 IF DUM I > - 4.50000E+01 THEN LET J = 03 58 IF DUM I > - 2.00000E+01 THEN LET J = 04 59 IF DUM I > - 1.00000E+01 THEN LET J = 05 60 IF NOM I < 2.00000E+02 THEN LET N = 02 61 IF MASK I # - 01 THEN GOTO STEP 67 62 IF BIT 4 = 1.00000E+00 THEN GOTO STEP 70 63 SERP UNK L CODE J CUT I MODE 2 POS K DENS 1 BRAN 0 64 TEST UNK L CODE 5 TOL L ACC 66 REJ 0 REG 0 65 TEST UNK L CODE 6 TOL L ACC 0 REJ 0 REG 0 66 LET J = I * 2.00000E+00 + 1.00000E+02 67 LET K = J + 1.00000E+00 68 MOVE POS J SPD 0 69 SERP UNK L CODE 5 CUT L MODE 2 POS K DENS 2 BRAN 0 70 TEST UNK L CODE 7 TOL L ACC 72 REJ 0 REG 0 71 TEST UNK L CODE 5 TOL L ACC 0 REJ 0 REG 0 72 IF REG 50 = 1.00000E+00 THEN GOSU STEP 163 73 NEXT I 74 IF REG 50 = 01 THEN GOSU STEP 171 75 IF REG 2 # 00 THEN GOTO STEP 95 76 IF BIT 4 = 1.00000E+00 THEN GOTO STEP 96 77 PRIN "GOOD PART" 78 LET J = 02 79 LET K = 03 80 LET L = 01 81 LET M = 04 82 LET DUM 805 = DUM 799 / 1.00000E+03 83 LET DUM 777 = DUM 807 / 1.00000E+02 84 LET STRG 11 = %3.3 DUM 805 85 LET STRG 10 = %2.2 DUM 777 86 LET STRG 12 = L M STRG 333 + K M STRG 11 + K J STRG 10 87 PRIN "LOT/SERIAL # IS: " STRG 12 88 FOR I = 1.00000E+00 TO 2.00000E+00 89 MOVE POS 800 SPD 0 90 CGEN DENS 4 SCAL 2 POS 801 STRG 12 91 NEXT I 92 GOTO STEP 96 93 PRIN "INITIAL REJECT" 94 GOTO STEP 96 95 PRIN "TRIM REJECT" 96 MOVE POS 899 SPD 0 97 PRIN "" 98 HAND 99 EXIT 100 LET J = I * 02 + 1.00000E+02 101 LET K = J + 01 102 LET L = I + 1.00000E+02 103 MOVE POS J SPD 0 104 TRIM UNK I CODE 4 CUT L MODE 100 POS K DENS N BRAN 0 105 EXIT 106 IF DUM 807 = 00 THEN GOTO STEP 113 107 PRIN STRG 3 108 PRIN "PROGRAM STOPPED AT PART # " DUM 807 109 PRIN STRG 3 110 PRIN "ENTER PART # YOU WANT TO START ON >" STRG 1 111 READ TTY:;DUM 808 %1.0 THEN QUIT 112 LET DUM 807 = 00 113 SHOM REG 30 114 SHOM REG 0 115 LET DUM 998 = VALU 3 116 LET DUM 999 = VALU 4 117 LET REG 990 = 00 118 LET REG 991 = 00 119 PRIN "ALIGN THETA" 120 ALIN POS 998 REF 999 REG 998 121 PRIN "ALIGN X-Y" 122 ALIN POS 0 REF 0 REG 0 123 LET DLTA 995 = DLTA 993 124 LET DLTA 998 = POS 997 - POS 999 125 GOSU STEP 150 126 LET REG 990 = REG 990 + 01 127 LET REG 991 = REG 991 + 01 128 LET REG 999 = ( REG 991 - 01 ) * DUM 999 129 LET REG 999 = REG 991 * DUM 999 - REG 999 130 LET DLTA 999 = REG 999 * DLTA 995 131 LET DLTA 998 = DLTA 998 + DLTA 999 132 GOSU STEP 150 133 IF REG 991 < ( VALU 2 - 01 ) THEN GOTO STEP 127 134 IF REG 990 = VALU 1 THEN GOTO STEP 142 135 LET DLTA 995 = DLTA 995 * ( - 01 ) 136 LET REG 999 = ( REG 990 - 01 ) * DUM 998 137 LET REG 999 = REG 990 * DUM 998 - REG 999 138 LET DLTA 997 = REG 999 * DLTA 994 139 LET DLTA 998 = DLTA 998 + DLTA 997 140 GOSU STEP 150 141 LET REG 991 = 00 142 IF REG 990 < VALU 1 THEN GOTO STEP 126 143 LET DUM 807 = 00 144 LET DUM 808 = 00 145 LET DUM 799 = DUM 799 + 01 146 SHOM REG 30 147 SHOM REG 31 148 SHOM REG 32 149 QUIT 150 LET DUM 807 = DUM 807 + 01 151 IF DUM 808 > DUM 807 THEN EXIT 152 SMOV DLTA 998 SPD 0 REG 0 153 LET DLTA 998 = 00 154 PRIN "" 155 PRIN "PART # " DUM 807 156 GOSU STEP 13 157 EXIT 158 LET REG 50 = 01 159 PRIN STRG 3 "DRIFT TEST ON" STRG 3 160 LET DUM 805 = ( DUM 812 + DUM 813 ) / DUM 812 161 LET DUM 804 = ( 1.20000E+02 - DUM 805 ) - ( DUM 812 + DUM 813 ) 162 EXIT 163 GOSU STEP 196 01 164 TEST UNK I CODE 2 TOL I ACC 0 REJ 0 REG 0 165 LET J = I + 3.00000E+02 166 LET NOM J = NOM I + ( DUM I / 1.00000E+02 * NOM I ) 167 TEST UNK 300 CODE 10 TOL I ACC 0 REJ 0 REG 0 168 LET NOM J = NOM J + ( DUM I / 1.00000E+02 * NOM J ) 169 PRIN BIT 11 "R" I " NOM" J "=" NOM J 170 EXIT 171 LET M = DUM 811 172 GOSU STEP 195 DUM 804 173 GOSU STEP 185 01 174 GOSU STEP 179 02 175 PRIN "COMPLETE" STRG 3 176 LET REG 50 = 00 177 GOSU STEP 196 05 178 EXIT 179 PRIN STRG 3 "HIT PAGE THEN RETURN" STRG 1 180 READ TTY:;%1.0 THEN QUIT 181 PRIN "DRIFT TEST FOR " STRG 2 " LOT #" STRG 333  " " 182 PRIN "DRIFT IS BASED ON 120 SECONDS" 183 PRIN "WAIT TIME (SEC) " %6.2 DUM 804 184 PRIN "PAUSE TIME (SEC) " %5.2 DUM 805  " " 185 FOR N = 01 TO M 186 GOSU STEP 230 187 IF NOM J < 00 THEN GOTO STEP 193 188 IF VALU 1 = 02 THEN GOTO STEP 192 189 GOSU STEP 196 DUM 805 190 PRIN BIT 11 "TESTING R" I 191 TEST UNK 300 CODE 10 TOL I ACC 193 REJ 193 REG 0 192 PRIN "R" I " CHANGE =" %6.3 DUM I "%" 193 NEXT N 194 EXIT 195 PRIN "WAITING " VALU 1 " SECOND(S)" STRG 3 196 LET L = VALU 1 * 2.50000E+03 197 FOR K = 01 TO L 198 NEXT K 199 EXIT 200 LET M = DUM 811 201 FOR N = 01 TO M 202 GOSU STEP 230 203 IF DUM I > DUM 810 THEN IF DUM I < DUM 809 THEN GOTO STEP 206 204 PRIN "DID NOT LOG" 205 EXIT 206 NEXT N 207 PRIN "DATA LOGGING" 208 LET DUM 800 = DUM 800 + 01 209 FOR N = 01 TO M 210 GOSU STEP 230 211 LET DUM J = DUM J + DUM I 212 LET DUM K = DUM K + ( DUM I * DUM I ) 213 NEXT N 214 EXIT 215 LET M = DUM 811 216 FOR N = 01 TO M 217 GOSU STEP 230 218 LET DUM I = 00 219 LET DUM J = 00 220 LET DUM K = 00 221 NEXT N 222 FOR I = 8.00000E+02 TO 8.08000E+02 223 LET DUM I = 00 224 NEXT I 225 PRIN STRG 3 "ARE YOU GOING TO RE-SAVE THIS PROGRAM NOW ?" STRG 1 226 READ TTY:;"_" STRG 1000 %1.0 THEN QUIT 227 IF STRG 1000 # "Y" THEN LET DUM 801 = 01 228 PRIN "DUMMIES ZEROED" STRG 3 229 QUIT 230 IF NOM N < 00 THEN LET N = - NOM N 231 LET I = N 232 LET J = I + 3.00000E+02 233 LET K = I + 6.00000E+02 234 LET L = I + 1.00000E+02 235 EXIT 236 PRIN STRG 3 "ENTER LOT NUMBER >" STRG 1 237 READ TTY:;"_" STRG 333 %1.0 THEN QUIT 238 PRIN "LOT NUMBER IS " STRG 333 239 PRIN " "  "ENTER TODAY'S DATE >" STRG 1 240 READ TTY:;"_" STRG 350 %1.0 THEN QUIT 241 PRIN "DATE IS: " STRG 350 242 PRIN STRG 3 243 LET DUM 801 = 01 244 QUIT 245 GOSU STEP 263 246 LET M = DUM 811 247 FOR N = 01 TO M 248 GOSU STEP 230 249 LET DUM 804 = DUM J / DUM 800 250 LET DUM 805 = ( DUM K - ( DUM J * DUM J / DUM 800 ) ) 251 LET DUM 805 = SQRT ( DUM 805 * DUM 805 ) 252 LET DUM 805 = SQRT ( DUM 805 / ( DUM 800 - 01 ) ) 253 LET DUM 806 = ( 1.00000E+02 + DUM 804 ) * NOM I / 1.00000E+02 254 LET DUM 803 = I 255 PRIN "R" %3.0 DUM 803 " " %6.3 DUM 804 " " %6.4 DUM 805 STRG 1 256 LET DUM 805 = - 2.50000E+01 257 IF TOL I > - 5.00000E+01 THEN LET DUM 805 = TOL I * 5.00000E-01 258 IF NOM J < 00 THEN IF ! TOL I # 00 THEN LET DUM 805 = 00 259 LET DUM 803 = DUM 804 - DUM 805 260 PRIN %12.3 DUM 806 %12.3 NOM I " " %4.2 DUM 803 " " %4.2 DUM 805 261 NEXT N 262 QUIT 263 PRIN STRG 2 " PRE-TRIM TEST DATA ON" DUM 800 "PARTS" STRG 1 264 PRIN " " 265 PRIN " DATE: " STRG 350 266 PRIN "LOT #: " STRG 333 267 PRIN " " 268 PRIN " AVE % DEV STD % DEV AVERAGE OHMS" STRG 1 269 PRIN " NOMINAL % OFF > TARGET" 270 PRIN " " 271 EXIT 272 EXIT 273 NIBL DLTA 809 POS J DENS 800 BRAN 0 274 NIBL DLTA 810 POS K DENS 1 BRAN 0 275 GOTO STEP 99 276 EXIT 277 NIBL DLTA 811 POS J DENS 800 BRAN 0 278 NIBL DLTA 812 POS K DENS 1 BRAN 0 279 GOTO STEP 101 280 EXIT MODE 1 TURN 99 CROS 1 INC 1 2 TURN 99 CROS 2 INC 1 3 TURN 99 CROS 3 INC 1 4 TURN 99 CROS 4 INC 1 5 TURN 99 CROS 5 INC 1 6 TURN 99 CROS 6 INC 1 7 TURN 99 CROS 7 INC 1 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 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 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 03 991 011 998 -01 999 05435 MASK 1 -01 2 -01 3 -01 4 -01 5 -01 6 -01 7 -01 POS 2 5740, -675 3 4556, -399 4 2384, -1004 5 2073, -593 6 4512, -2432 7 5750, -2722 8 2066, -2105 9 2369, -2482 10 5135, -852 11 5220, -1224 12 5210, -2262 13 5140, -1864 14 -1535, -1230 15 -2040, -1330 100 265, -6292 102 5736, -675 103 4562, -399 104 2379, -1004 105 2077, -593 106 4518, -2432 107 5743, -2722 108 2072, -2105 109 2366, -2482 110 5137, -852 111 5218, -1224 112 5207, -2262 113 5143, -1864 114 -1535, -1233 115 -2040, -1333 202 5805, -1446 203 6115, -1446 204 5805, -1667 205 6134, -1667 800 -2621, -277 801 -3555, -277 802 -3500, -855 803 -4430, -855 899 1979, -954 900 1450, -4382 997 12178, -12956 998 -12803, 13258 999 16371, 13258 REF 999 POS 999 NOM 1 4.80000E+05 2 2.00000E+04 3 4.80000E+05 4 2.00000E+04 5 5.00000E+01 6 5.00000E+01 7 5.00000E+01 200 4.76803E+01 301 4.76878E+05 302 1.98812E+04 303 4.77156E+05 304 1.98816E+04 305 4.96768E+01 306 4.96929E+01 307 4.97434E+01 402 9.73804E+04 500 2.00000E+00 600 5.00000E+00 700 2.00000E+05 SCAN 1 17, 13, 0, 0 2 17, 17, 0, 0 3 11, 8, 0, 0 4 8, 8, 0, 0 5 13, 15, 0, 0 6 10, 11, 0, 0 7 23, 2, 0, 0 501 12, 23, 0, 0 502 12, 0, 0, 0 503 0, 12, 0, 0 504 12, 3, 0, 0 505 12, 6, 0, 0 506 7, 12, 0, 0 507 12, 21, 0, 0 601 3, 12, 0, 0 602 12, 4, 0, 0 603 6, 12, 0, 0 604 20, 12, 0, 0 605 12, 16, 0, 0 606 0, 21, 0, 0 607 0, 5, 0, 0 608 0, 20, 0, 0 609 0, 7, 0, 0 CODE 1 3, 2, 0, 0 2 3, 1, 100, 0 3 3, 3, 200, 0 4 3, 4, 200, 0 5 3, 6, 400, 0 6 3, 5, 200, 0 7 3, 7, 200, 0 10 3, 8, 200, 0 104 3, 7, 50, 0 105 3, 7, 200, 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, 0.00000E+00 6 -5.00000E+01, 0.00000E+00 7 -5.00000E+01, 4.00000E+00 101 -1.00000E+00, -1.00000E-01 102 -1.00000E+00, -1.00000E-01 103 -1.00000E+00, -1.00000E-01 104 -1.00000E+00, -1.00000E-01 105 -1.00000E+00, -1.00000E-01 106 -1.00000E+00, -1.00000E-01 107 -4.00000E+00, 4.00000E+00 500 -1.50000E+02, 1.50000E+02 600 -1.00000E+02, 0.00000E+00 DUM 1 -3.86000E+01 2 -3.45000E+01 3 -3.65067E+01 4 -3.42400E+01 5 -2.33594E+01 6 -1.85156E+01 7 -1.78437E+01 101 -6.72500E-01 102 -6.03750E-01 103 -6.00833E-01 104 -6.01250E-01 105 -5.70312E-01 106 -6.11328E-01 107 -5.08789E-01 200 0.00000E+00 301 -2.53554E+04 302 -2.49913E+04 303 -2.51786E+04 304 -2.51612E+04 305 -1.64505E+04 306 -1.60941E+04 307 -1.56366E+04 555 6.00000E-01 601 9.27510E+05 602 8.99699E+05 603 9.13621E+05 604 9.11698E+05 605 3.93395E+05 606 3.77516E+05 607 3.55936E+05 777 3.00000E-01 799 2.50000E+01 800 6.96000E+02 801 1.00000E+00 802 0.00000E+00 803 2.53362E+00 804 -2.24664E+01 805 -2.50000E+01 806 3.87668E+01 807 0.00000E+00 808 0.00000E+00 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 -7.20000E-01 2 -8.40000E-01 3 -7.40000E-01 4 -8.40000E-01 5 -8.30000E-01 6 -8.70000E-01 7 -7.00000E-01 101 -5.50000E-01 102 -6.50000E-01 103 -5.50000E-01 104 -6.50000E-01 105 -6.00000E-01 106 -6.00000E-01 107 -5.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 5 -1.00000E+00 6 -1.00000E+00 7 -1.00000E+00 101 -1.20000E+00 201 -1.00000E+00 INC 1 1 99 1 101 5 102 2 103 4 104 2 105 3 106 3 700 1 SPD 1 2.00000E+01, 2.00000E+01 2 3.00000E+01, 3.00000E+01 4 3.00000E+00, 3.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 1.00000E+00, 1.00000E+00 800 3.00000E+02, 3.00000E+02 PWR 1 100, 100 STRG 0 1 _ 2 300-2892-00 "A" 3  6  10 .30 11 .024 12 L01B02430 160 .004 333 L01B 334 3 350 9/5/07 1000 DLTA 1 250, 0 2 -170, 0 10 3630, -1525 11 3475, -1264 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 -529, -3428 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 5.00000E+00 333 0.00000E+00