HEADING:300-2892-00 (2892.B1) FINE TRIM S&R 25 3/7/06 STEVE D STEP 1 GOTO STEP 9 2 GOTO STEP 204 3 GOTO STEP 234 4 GOSU STEP 147 5 GOTO STEP 9 6 GOTO STEP 135 7 GOTO STEP 225 8 IF DUM 807 = 00 THEN LET DUM 807 = 01 9 IF DUM 801 = 00 THEN GOTO STEP 225 10 REM " ********* USE POSITION 100 FOR PROBE ALIGNMENT ****" 11 MOVE POS 100 SPD 0 12 GOSU STEP 95 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 "***** SHORT TEST ROUTINE *****" 17 FOR I = 5.01000E+02 TO 5.07000E+02 18 TEST UNK 500 CODE 2 TOL 500 ACC 82 REJ 21 REG 0 19 TEST UNK 500 CODE 1 TOL 500 ACC 0 REJ 21 REG 0 20 PRIN "SHORT REJ # " I 21 NEXT I 22 REM " THRUHOLE CONTINUITY TEST " 23 FOR I = 6.01000E+02 TO 6.09000E+02 24 TEST UNK 600 CODE 2 TOL 600 ACC 29 REJ 0 REG 0 25 TEST UNK 600 CODE 1 TOL 600 ACC 29 REJ 0 REG 0 26 PRIN "THRUHOLE REJECT # " I 27 PRIN STRG 3 28 LET REG 4 = 01 29 NEXT I 30 IF REG 4 # 00 THEN GOTO STEP 85 31 PRIN "INITIAL TEST" 32 IF BIT 4 = 1.00000E+00 THEN GOTO STEP 39 33 LET M = DUM 811 34 FOR I = 01 TO M 35 IF NOM I < - 01 THEN LET I = - NOM I 36 TEST UNK I CODE 5 TOL I ACC 38 REJ 0 REG 0 37 TEST UNK I CODE 1 TOL I ACC 0 REJ 0 REG 1 38 NEXT I 39 IF DUM 1 < - 2.00000E+00 THEN GOSU STEP 189 40 IF REG 1 # 00 THEN GOTO STEP 82 41 PRIN "FINAL TEST" 42 LET M = DUM 811 43 FOR I = 01 TO M 44 IF NOM I < - 01 THEN LET I = - NOM I 45 IF MASK I = 00 THEN GOTO STEP 68 46 IF MASK I # - 1.00000E+00 THEN GOTO STEP 70 47 LET NOM 200 = NOM I + ( NOM I * DUM I * TURN I / 1.00000E+04 ) 48 LET J = I * 02 49 LET K = J + 1.00000E+00 50 LET L = I + 1.00000E+02 51 MOVE POS J SPD 0 52 IF DUM I > - 4.50000E+01 THEN LET J = 03 53 IF DUM I > - 2.00000E+01 THEN LET J = 04 54 IF DUM I > - 1.00000E+01 THEN LET J = 05 55 IF NOM I < 2.00000E+02 THEN LET N = 02 56 IF MASK I # - 01 THEN GOTO STEP 62 57 IF BIT 4 = 1.00000E+00 THEN GOTO STEP 65 58 SERP UNK L CODE J CUT I MODE 2 POS K DENS 1 BRAN 0 59 TEST UNK L CODE 5 TOL L ACC 61 REJ 0 REG 0 60 TEST UNK L CODE 6 TOL L ACC 0 REJ 0 REG 0 61 LET J = I * 2.00000E+00 + 1.00000E+02 62 LET K = J + 1.00000E+00 63 MOVE POS J SPD 0 64 SERP UNK L CODE 5 CUT L MODE 2 POS K DENS 2 BRAN 0 65 TEST UNK L CODE 7 TOL L ACC 68 REJ 0 REG 0 66 TEST UNK L CODE 5 TOL L ACC 0 REJ 0 REG 2 67 IF REG 50 = 1.00000E+00 THEN GOSU STEP 152 68 NEXT I 69 IF REG 50 = 01 THEN GOSU STEP 160 70 IF REG 2 # 00 THEN GOTO STEP 84 71 IF BIT 4 = 1.00000E+00 THEN GOTO STEP 85 72 PRIN "GOOD PART" 73 LET J = 02 74 LET K = 03 75 LET L = 01 76 LET M = 04 77 FOR I = 1.00000E+00 TO 2.00000E+00 78 MOVE POS 800 SPD 0 79 CGEN DENS 4 SCAL 2 POS 801 STRG 12 80 NEXT I 81 GOTO STEP 85 82 PRIN "INITIAL REJECT " STRG 3 83 GOTO STEP 85 84 PRIN "TRIM REJECT " STRG 3 85 MOVE POS 899 SPD 0 86 PRIN "" 87 HAND 88 EXIT 89 LET J = I * 02 + 1.00000E+02 90 LET K = J + 01 91 LET L = I + 1.00000E+02 92 MOVE POS J SPD 0 93 TRIM UNK I CODE 4 CUT L MODE 100 POS K DENS N BRAN 0 94 EXIT 95 IF DUM 807 = 00 THEN GOTO STEP 102 96 PRIN STRG 3 97 PRIN "PROGRAM STOPPED AT PART # " DUM 807 98 PRIN STRG 3 99 PRIN "ENTER PART # YOU WANT TO START ON >" STRG 1 100 READ TTY:;DUM 808 %1.0 THEN QUIT 101 LET DUM 807 = 00 102 SHOM REG 30 103 SHOM REG 0 104 LET DUM 998 = VALU 3 105 LET DUM 999 = VALU 4 106 LET REG 990 = 00 107 LET REG 991 = 00 108 PRIN "ALIGN THETA" 109 ALIN POS 998 REF 999 REG 998 110 PRIN "ALIGN X-Y" 111 ALIN POS 0 REF 0 REG 0 112 LET DLTA 995 = DLTA 993 113 LET DLTA 998 = POS 997 - POS 999 114 GOSU STEP 139 115 LET REG 990 = REG 990 + 01 116 LET REG 991 = REG 991 + 01 117 LET REG 999 = ( REG 991 - 01 ) * DUM 999 118 LET REG 999 = REG 991 * DUM 999 - REG 999 119 LET DLTA 999 = REG 999 * DLTA 995 120 LET DLTA 998 = DLTA 998 + DLTA 999 121 GOSU STEP 139 122 IF REG 991 < ( VALU 2 - 01 ) THEN GOTO STEP 116 123 IF REG 990 = VALU 1 THEN GOTO STEP 131 124 LET DLTA 995 = DLTA 995 * ( - 01 ) 125 LET REG 999 = ( REG 990 - 01 ) * DUM 998 126 LET REG 999 = REG 990 * DUM 998 - REG 999 127 LET DLTA 997 = REG 999 * DLTA 994 128 LET DLTA 998 = DLTA 998 + DLTA 997 129 GOSU STEP 139 130 LET REG 991 = 00 131 IF REG 990 < VALU 1 THEN GOTO STEP 115 132 LET DUM 807 = 00 133 LET DUM 808 = 00 134 LET DUM 799 = DUM 799 + 01 135 SHOM REG 30 136 SHOM REG 31 137 SHOM REG 32 138 QUIT 139 LET DUM 807 = DUM 807 + 01 140 IF DUM 808 > DUM 807 THEN EXIT 141 SMOV DLTA 998 SPD 0 REG 0 142 LET DLTA 998 = 00 143 PRIN "" 144 PRIN "PART # " DUM 807 145 GOSU STEP 13 146 EXIT 147 LET REG 50 = 01 148 PRIN STRG 3 "DRIFT TEST ON" STRG 3 149 LET DUM 805 = ( DUM 812 + DUM 813 ) / DUM 812 150 LET DUM 804 = ( 1.20000E+02 - DUM 805 ) - ( DUM 812 + DUM 813 ) 151 EXIT 152 GOSU STEP 185 01 153 TEST UNK I CODE 2 TOL I ACC 0 REJ 0 REG 0 154 LET J = I + 3.00000E+02 155 LET NOM J = NOM I + ( DUM I / 1.00000E+02 * NOM I ) 156 TEST UNK 300 CODE 10 TOL I ACC 0 REJ 0 REG 0 157 LET NOM J = NOM J + ( DUM I / 1.00000E+02 * NOM J ) 158 PRIN BIT 11 "R" I " NOM" J "=" NOM J 159 EXIT 160 LET M = DUM 811 161 GOSU STEP 184 DUM 804 162 GOSU STEP 174 01 163 GOSU STEP 168 02 164 PRIN "COMPLETE" STRG 3 165 LET REG 50 = 00 166 GOSU STEP 185 05 167 EXIT 168 PRIN STRG 3 "HIT PAGE THEN RETURN" STRG 1 169 READ TTY:;%1.0 THEN QUIT 170 PRIN "DRIFT TEST FOR " STRG 2 " LOT #" STRG 333  " " 171 PRIN "DRIFT IS BASED ON 120 SECONDS" 172 PRIN "WAIT TIME (SEC) " %6.2 DUM 804 173 PRIN "PAUSE TIME (SEC) " %5.2 DUM 805  " " 174 FOR N = 01 TO M 175 GOSU STEP 219 176 IF NOM J < 00 THEN GOTO STEP 182 177 IF VALU 1 = 02 THEN GOTO STEP 181 178 GOSU STEP 185 DUM 805 179 PRIN BIT 11 "TESTING R" I 180 TEST UNK 300 CODE 10 TOL I ACC 182 REJ 182 REG 0 181 PRIN "R" I " CHANGE =" %6.3 DUM I "%" 182 NEXT N 183 EXIT 184 PRIN "WAITING " VALU 1 " SECOND(S)" STRG 3 185 LET L = VALU 1 * 2.50000E+03 186 FOR K = 01 TO L 187 NEXT K 188 EXIT 189 LET M = DUM 811 190 FOR N = 01 TO M 191 GOSU STEP 219 192 IF DUM I > DUM 810 THEN IF DUM I < DUM 809 THEN GOTO STEP 195 193 PRIN "DID NOT LOG" 194 EXIT 195 NEXT N 196 PRIN "DATA LOGGING" 197 LET DUM 800 = DUM 800 + 01 198 FOR N = 01 TO M 199 GOSU STEP 219 200 LET DUM J = DUM J + DUM I 201 LET DUM K = DUM K + ( DUM I * DUM I ) 202 NEXT N 203 EXIT 204 LET M = DUM 811 205 FOR N = 01 TO M 206 GOSU STEP 219 207 LET DUM I = 00 208 LET DUM J = 00 209 LET DUM K = 00 210 NEXT N 211 FOR I = 8.00000E+02 TO 8.08000E+02 212 LET DUM I = 00 213 NEXT I 214 PRIN STRG 3 "ARE YOU GOING TO RE-SAVE THIS PROGRAM NOW ?" STRG 1 215 READ TTY:;"_" STRG 1000 %1.0 THEN QUIT 216 IF STRG 1000 # "Y" THEN LET DUM 801 = 01 217 PRIN "DUMMIES ZEROED" STRG 3 218 QUIT 219 IF NOM N < 00 THEN LET N = - NOM N 220 LET I = N 221 LET J = I + 3.00000E+02 222 LET K = I + 6.00000E+02 223 LET L = I + 1.00000E+02 224 EXIT 225 PRIN STRG 3 "ENTER LOT NUMBER >" STRG 1 226 READ TTY:;"_" STRG 333 %1.0 THEN QUIT 227 PRIN "LOT NUMBER IS " STRG 333 228 PRIN " "  "ENTER TODAY'S DATE >" STRG 1 229 READ TTY:;"_" STRG 350 %1.0 THEN QUIT 230 PRIN "DATE IS: " STRG 350 231 PRIN STRG 3 232 LET DUM 801 = 01 233 QUIT 234 GOSU STEP 252 235 LET M = DUM 811 236 FOR N = 01 TO M 237 GOSU STEP 219 238 LET DUM 804 = DUM J / DUM 800 239 LET DUM 805 = ( DUM K - ( DUM J * DUM J / DUM 800 ) ) 240 LET DUM 805 = SQRT ( DUM 805 * DUM 805 ) 241 LET DUM 805 = SQRT ( DUM 805 / ( DUM 800 - 01 ) ) 242 LET DUM 806 = ( 1.00000E+02 + DUM 804 ) * NOM I / 1.00000E+02 243 LET DUM 803 = I 244 PRIN "R" %3.0 DUM 803 " " %6.3 DUM 804 " " %6.4 DUM 805 STRG 1 245 LET DUM 805 = - 2.50000E+01 246 IF TOL I > - 5.00000E+01 THEN LET DUM 805 = TOL I * 5.00000E-01 247 IF NOM J < 00 THEN IF ! TOL I # 00 THEN LET DUM 805 = 00 248 LET DUM 803 = DUM 804 - DUM 805 249 PRIN %12.3 DUM 806 %12.3 NOM I " " %4.2 DUM 803 " " %4.2 DUM 805 250 NEXT N 251 QUIT 252 PRIN STRG 2 " PRE-TRIM TEST DATA ON" DUM 800 "PARTS" STRG 1 253 PRIN " " 254 PRIN " DATE: " STRG 350 255 PRIN "LOT #: " STRG 333 256 PRIN " " 257 PRIN " AVE % DEV STD % DEV AVERAGE OHMS" STRG 1 258 PRIN " NOMINAL % OFF > TARGET" 259 PRIN " " 260 EXIT 261 EXIT 262 NIBL DLTA 809 POS J DENS 800 BRAN 0 263 NIBL DLTA 810 POS K DENS 1 BRAN 0 264 GOTO STEP 88 265 EXIT 266 NIBL DLTA 811 POS J DENS 800 BRAN 0 267 NIBL DLTA 812 POS K DENS 1 BRAN 0 268 GOTO STEP 90 269 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 101 FUNC 0 DUM 103 104 NOM 4 SCAN 4 MAT 102 FUNC 0 DUM 104 105 NOM 5 SCAN 5 MAT 0 FUNC 0 DUM 105 106 NOM 6 SCAN 6 MAT 105 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 5731, -588 3 4635, -424 4 2404, -945 5 2138, -653 6 4592, -2553 7 5753, -2700 8 2139, -2200 9 2385, -2476 10 5166, -945 11 5215, -1150 12 5210, -2215 13 5170, -2009 14 -1535, -1220 15 -2040, -1340 100 265, -6292 102 5724, -588 103 4632, -414 104 2401, -945 105 2144, -653 106 4598, -2553 107 5748, -2700 108 2142, -2200 109 2379, -2476 110 5169, -945 111 5212, -1150 112 5208, -2215 113 5173, -2009 114 -1535, -1223 115 -2040, -1338 202 4200, -1610 203 4453, -1610 204 4200, -1852 205 4480, -1852 800 -3588, -490 801 -3719, -490 802 -3500, -855 803 -4430, -855 899 2003, -966 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.99319E+01 301 0.00000E+00 302 0.00000E+00 303 0.00000E+00 304 1.99107E+04 305 7.45937E+01 306 7.46611E+01 307 4.98740E+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, 300, 0 2 3, 2, 100, 0 3 3, 3, 300, 0 4 3, 4, 300, 0 5 3, 6, 400, 0 6 3, 5, 200, 0 7 3, 7, 500, 0 10 3, 7, 200, 0 104 3, 7, 50, 0 105 3, 7, 75, 0 700 2, 2, 0, 0 TOL 1 -5.00000E+01, 1.10000E-01 2 -5.00000E+00, 1.10000E-01 3 -5.00000E+00, 1.10000E-01 4 -5.00000E+00, 1.10000E-01 5 -5.00000E+00, 1.10000E-01 6 -5.00000E+00, 1.10000E-01 7 -2.00000E+01, 4.00000E+00 101 -1.20000E-01, 1.00000E-01 102 -1.20000E-01, 1.00000E-01 103 -1.20000E-01, 1.00000E-01 104 -1.20000E-01, 1.00000E-01 105 -1.20000E-01, 1.00000E-01 106 -1.20000E-01, 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 -5.90000E-01 2 -5.57500E-01 3 -5.36667E-01 4 -5.52500E-01 5 -5.35156E-01 6 -5.41016E-01 7 -5.23437E-01 101 -5.66666E-02 102 -5.12500E-02 103 2.00113E-02 104 -5.00256E-03 105 -3.32031E-02 106 -6.15439E-02 107 -5.20508E-01 200 0.00000E+00 301 -3.09334E+02 302 -3.11120E+02 303 -2.79948E+02 304 -2.68228E+02 305 -2.16666E+02 306 -2.13822E+02 307 -1.75969E+02 555 6.00000E-01 601 1.06953E+04 602 1.07812E+04 603 9.94453E+03 604 9.33388E+03 605 5.41374E+03 606 5.24799E+03 607 3.92503E+03 777 2.00000E-02 799 1.70000E+01 800 9.00000E+00 801 1.00000E+00 802 0.00000E+00 803 -3.25000E+00 804 1.04000E+02 805 2.00000E+00 806 4.33750E+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 -5.00000E-02 2 -2.00000E-01 3 -1.50000E-01 4 -2.50000E-01 5 -1.80000E-01 6 -1.90000E-01 7 -6.50000E-01 101 3.60000E-02 102 -1.10000E-01 103 8.00000E-03 104 -1.10000E-01 105 -4.00000E-02 106 -8.00000E-02 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 1.20000E+01, 1.20000E+01 2 1.00000E+01, 1.00000E+01 4 1.00000E+00, 1.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-2892-00 3  10 .02 11 .003 12 B 333 L01B 340 0 350 9/12//07 1000 N DLTA 1 250, 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 -553, -3416 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 4.00000E+00 333 0.00000E+00