HEADING: 300-2463-01 PASS "A" (P20485.A1) S&R 25'S 14-OCT-97 JR STEP 1 GOTO STEP 9 2 GOTO STEP 199 3 GOTO STEP 179 4 GOSU STEP 122 5 GOTO STEP 9 6 GOTO STEP 111 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 300 SPD 0 11 GOSU STEP 90 12 LET DLTA 900 = POS 900 - POS 899 13 DISP DLTA 900 14 MOVE POS 899 SPD 0 16 REM "** THRUHOLE CONTINUITY TEST **" 17 FOR I = 6.01000E+02 TO 6.09000E+02 18 IF BIT 10 = 01 THEN GOTO STEP 20 19 TEST UNK 600 CODE 8 TOL 600 ACC 22 REJ 0 REG 0 20 TEST UNK 600 CODE 1 TOL 600 ACC 22 REJ 0 REG 4 21 PRIN STRG 3 "THRU-HOLE REJECT #" I 22 NEXT I 23 IF REG 4 # 00 THEN GOTO STEP 79 24 PRIN "CONTINUITY TEST COMPLETE" 25 REM "** DIELECTRIC SHORT TEST **" 26 FOR I = 5.01000E+02 TO 5.05000E+02 27 TEST UNK 500 CODE 8 TOL 500 ACC 0 REJ 32 REG 0 28 TEST UNK 500 CODE 1 TOL 500 ACC 0 REJ 32 REG 0 29 PRIN STRG 3 "SHORT REJECT #" I 30 PRIN "DIELECTRIC SHORT TEST COMPLETE" 31 LET REG 3 = 01 32 NEXT I 33 IF REG 3 # 00 THEN GOTO STEP 79 34 LET M = DUM 811 35 FOR I = 01 TO M 36 IF NOM I < - 01 THEN LET I = - NOM I 37 TEST UNK I CODE 3 TOL I ACC 39 REJ 0 REG 0 38 TEST UNK I CODE 1 TOL I ACC 0 REJ 0 REG 1 39 NEXT I 40 IF DUM 5 < - 4.00000E+00 THEN GOSU STEP 164 41 IF REG 1 # 00 THEN GOTO STEP 76 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 67 46 LET J = I * 02 47 LET K = J + 01 48 LET L = I + 1.00000E+02 49 IF I = 1.20000E+01 THEN LET CUT 12 = DUM 12 / 02 + DUM 777 51 MOVE POS J SPD 0 52 LET M = 01 53 LET J = 02 54 IF DUM I > - 4.50000E+01 THEN LET J = 03 55 IF DUM I > - 2.00000E+01 THEN LET J = 04 56 IF DUM I > - 1.00000E+01 THEN LET J = 05 57 IF NOM I < 9.00000E+02 THEN LET M = 02 58 IF NOM I < 2.00000E+02 THEN LET M = 03 59 IF MASK I > 02 THEN IF MASK I < 05 THEN GOTO STEP 62 60 TRIM UNK I CODE J CUT I MODE I POS K DENS M BRAN 0 61 GOTO STEP 63 62 SERP UNK I CODE J CUT I MODE I POS K DENS M BRAN 0 63 IF MASK I > 01 THEN IF MASK I < 04 THEN GOSU STEP 83 64 TEST UNK I CODE 5 TOL L ACC 66 REJ 0 REG 2 65 TEST UNK I CODE 1 TOL L ACC 0 REJ 0 REG 0 66 IF REG 50 = 01 THEN GOSU STEP 127 67 NEXT I 68 IF REG 50 = 01 THEN GOSU STEP 135 69 IF REG 2 # 00 THEN GOTO STEP 78 70 PRIN "GOOD PART" 71 MOVE POS 800 SPD 0 72 CGEN DENS 1 SCAL 1 POS 801 STRG 333 73 MOVE POS 802 SPD 0 74 CGEN DENS 1 SCAL 2 POS 803 "A" 75 GOTO STEP 79 76 PRIN STRG 3 "INITIAL REJECT" 77 GOTO STEP 79 78 PRIN STRG 3 "TRIM REJECT" 79 PRIN "" 80 MOVE POS 899 SPD 0 81 HAND 82 EXIT 83 LET J = I * 02 + 1.00000E+02 84 LET K = J + 01 85 LET L = I + 1.00000E+02 86 MOVE POS J SPD 0 87 TRIM UNK I CODE 3 CUT L MODE L POS K DENS M BRAN 0 88 EXIT 89 EXIT 90 IF DUM 807 = 00 THEN GOTO STEP 97 91 REM "PRIN STRG 3" 92 PRIN "PROGRAM STOPPED AT PART # " DUM 807 93 REM "PRIN STRG 3" 94 PRIN "ENTER PART # YOU WANT TO START ON >" STRG 1 95 READ TTY:;DUM 808 %1.0 THEN QUIT 96 LET DUM 807 = 00 97 SHOM REG 30 98 SHOM REG 0 99 PRIN "ALIGN THETA" STRG 3 100 ALIN POS 998 REF 999 REG 998 101 PRIN "ALIGN X-Y" STRG 3 102 ALIN POS 0 REF 0 REG 0 103 LET DLTA 998 = POS 997 - POS 999 104 GOTO STEP 107 105 LET J = 9.99000E+02 106 LET DLTA 998 = DLTA 998 + DLTA J 107 GOSU STEP 115 108 IF DUM 807 < DUM 999 THEN GOTO STEP 105 109 LET DUM 807 = 00 110 LET DUM 808 = 00 111 SHOM REG 30 112 SHOM REG 31 113 SHOM REG 32 114 QUIT 115 LET DUM 807 = DUM 807 + 01 116 IF DUM 808 > DUM 807 THEN EXIT 117 SMOV DLTA 998 SPD 0 REG 0 118 LET DLTA 998 = 00 119 PRIN "PART # " DUM 807 120 GOSU STEP 12 121 EXIT 122 LET REG 50 = 01 123 PRIN STRG 3 "DRIFT TEST ON" STRG 3 124 LET DUM 805 = ( DUM 812 + DUM 813 ) / DUM 812 125 LET DUM 804 = ( 1.20000E+02 - DUM 805 ) - ( DUM 812 + DUM 813 ) 126 EXIT 127 GOSU STEP 160 01 128 TEST UNK I CODE 2 TOL I ACC 0 REJ 0 REG 0 129 LET J = I + 3.00000E+02 130 LET NOM J = NOM I + ( DUM I / 1.00000E+02 * NOM I ) 131 TEST UNK 300 CODE 10 TOL I ACC 0 REJ 0 REG 0 132 LET NOM J = NOM J + ( DUM I / 1.00000E+02 * NOM J ) 133 PRIN BIT 11 "R" I " NOM" J "=" NOM J 134 EXIT 135 LET M = DUM 811 136 GOSU STEP 159 DUM 804 137 GOSU STEP 149 01 138 GOSU STEP 143 02 139 PRIN "COMPLETE" STRG 3 140 LET REG 50 = 00 141 GOSU STEP 160 05 142 EXIT 143 PRIN STRG 3 "HIT PAGE THEN RETURN" STRG 1 144 READ TTY:;%1.0 THEN QUIT 145 PRIN "DRIFT TEST FOR " STRG 2 " LOT #" STRG 333  " " 146 PRIN "DRIFT IS BASED ON 120 SECONDS" 147 PRIN "WAIT TIME (SEC) " %6.2 DUM 804 148 PRIN "PAUSE TIME (SEC) " %5.2 DUM 805  " " 149 FOR N = 01 TO M 150 GOSU STEP 214 151 IF NOM J < 00 THEN GOTO STEP 157 152 IF VALU 1 = 02 THEN GOTO STEP 156 153 GOSU STEP 160 DUM 805 154 PRIN BIT 11 "TESTING R" I 155 TEST UNK 300 CODE 10 TOL I ACC 157 REJ 157 REG 0 156 PRIN "R" I " CHANGE =" %6.3 DUM I "%" 157 NEXT N 158 EXIT 159 PRIN "WAITING " VALU 1 " SECOND(S)" STRG 3 160 LET L = VALU 1 * 2.50000E+03 161 FOR K = 01 TO L 162 NEXT K 163 EXIT 164 LET M = DUM 811 165 FOR N = 01 TO M 166 GOSU STEP 214 167 IF DUM I > DUM 810 THEN IF DUM I < DUM 809 THEN GOTO STEP 170 168 PRIN "DID NOT LOG" 169 EXIT 170 NEXT N 171 PRIN "DATA LOGGING" 172 LET DUM 800 = DUM 800 + 01 173 FOR N = 01 TO M 174 GOSU STEP 214 175 LET DUM J = DUM J + DUM I 176 LET DUM K = DUM K + ( DUM I * DUM I ) 177 NEXT N 178 EXIT 179 GOSU STEP 192 180 LET M = DUM 811 181 FOR N = 01 TO M 182 GOSU STEP 214 183 LET DUM 804 = DUM J / DUM 800 184 LET DUM 805 = ( DUM K - ( DUM J * DUM J / DUM 800 ) ) 185 LET DUM 805 = SQRT ( DUM 805 * DUM 805 ) 186 LET DUM 805 = SQRT ( DUM 805 / ( DUM 800 - 01 ) ) 187 LET DUM 806 = ( 1.00000E+02 + DUM 804 ) * NOM I / 1.00000E+02 188 PRIN "R" I " " %5.3 DUM 804 %8.3 DUM 805 STRG 1 189 PRIN %15.3 DUM 806 %15.3 NOM I 190 NEXT N 191 QUIT 192 PRIN STRG 2 " LOT " STRG 333 STRG 1 193 PRIN " RESISTOR PRETRIM DATA BASED ON" DUM 800 " PARTS" 194 PRIN " DATE: " STRG 340 195 PRIN " AVE DEV STD DEV AVERAGE OHMS" STRG 1 196 PRIN " NOMINAL" 197 PRIN " " 198 EXIT 199 LET M = DUM 811 200 FOR N = 01 TO M 201 GOSU STEP 214 202 LET DUM I = 00 203 LET DUM J = 00 204 LET DUM K = 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 "READY TO SAVE 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 PRIN " "  "ENTER TODAY'S DATE > " STRG 1 224 READ TTY:;"_" STRG 340 %1.0 THEN QUIT 225 PRIN "DATE IS: " STRG 340 226 LET DUM 801 = 01 227 PRIN STRG 3 228 PRIN "POSITIONS SET FOR 16 PHASE ONLY" 229 QUIT 230 FOR I = 5.60000E+01 TO 5.70000E+01 231 LET POS I = POS I - DLTA 900 232 NEXT I MODE 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 12 TURN 12 CROS 0 INC 0 18 TURN 18 CROS 0 INC 0 21 TURN 21 CROS 0 INC 0 22 TURN 22 CROS 0 INC 0 23 TURN 23 CROS 0 INC 0 24 TURN 24 CROS 0 INC 0 26 TURN 26 CROS 0 INC 0 27 TURN 27 CROS 0 INC 0 29 TURN 29 CROS 0 INC 0 32 TURN 32 CROS 0 INC 0 33 TURN 33 CROS 0 INC 0 100 TURN 12 CROS 0 INC 0 112 TURN 112 CROS 0 INC 0 114 TURN 114 CROS 0 INC 0 DENS 1 SPD 1 PWR 1 2 SPD 2 PWR 1 3 SPD 3 PWR 1 UNK 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 12 NOM 12 SCAN 12 MAT 0 FUNC 0 DUM 12 18 NOM 18 SCAN 18 MAT 0 FUNC 0 DUM 18 21 NOM 21 SCAN 21 MAT 0 FUNC 0 DUM 21 22 NOM 22 SCAN 22 MAT 0 FUNC 0 DUM 22 23 NOM 23 SCAN 23 MAT 0 FUNC 0 DUM 23 24 NOM 24 SCAN 24 MAT 0 FUNC 0 DUM 24 26 NOM 26 SCAN 26 MAT 0 FUNC 0 DUM 26 27 NOM 27 SCAN 27 MAT 0 FUNC 0 DUM 27 29 NOM 29 SCAN 29 MAT 0 FUNC 0 DUM 29 32 NOM 32 SCAN 32 MAT 0 FUNC 0 DUM 32 33 NOM 33 SCAN 33 MAT 0 FUNC 0 DUM 33 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 REG 1 00 2 00 3 00 4 00 30 03 31 00 32 04 50 00 998 -01 999 00 MASK 5 01 6 01 7 01 8 01 9 01 12 02 18 01 21 01 22 01 23 01 24 01 26 01 27 01 29 01 30 01 31 01 32 01 33 01 POS 10 -3276, -554 11 -3069, -249 12 -3868, -832 13 -4199, -398 14 -3431, 351 15 -3230, 671 16 -4499, 883 17 -4202, 441 18 5790, -3331 19 6392, -3484 24 -8713, -3888 25 -8331, -4067 36 -7261, 2982 37 -7009, 3309 42 -3473, 3373 43 -3150, 3231 44 -3530, 3064 45 -3774, 2750 46 8635, 1283 47 8774, 1891 48 7571, 1281 49 7350, 1967 52 4741, 2633 53 4595, 1482 54 3810, 1603 55 3062, 1380 58 7086, -2965 59 6946, -3518 64 10257, 1998 65 10134, 1101 66 11435, 2048 67 11287, 1100 124 -9031, -3780 125 -8838, -3412 300 -3640, -5188 800 1634, -2718 801 733, -2718 802 500, -3040 803 250, -3040 899 -5740, -311 900 -6178, -5581 997 2260, -10110 998 -13030, 15143 999 -13030, -14322 REF 999 POS 999 NOM 1 -5.00000E+00 5 4.50000E+01 6 2.50000E+02 7 4.50000E+01 8 2.50000E+02 9 2.00000E+03 10 -1.20000E+01 12 5.00000E+01 13 -1.80000E+01 18 5.00000E+01 19 -2.10000E+01 21 1.00000E+02 22 5.00000E+01 23 2.00000E+03 24 5.00000E+02 25 -2.60000E+01 26 1.00000E+03 27 5.00000E+02 28 -2.90000E+01 29 2.00000E+03 30 -3.20000E+01 32 1.25000E+03 33 1.25000E+03 305 4.48286E+01 306 2.49072E+02 307 4.48398E+01 308 2.49030E+02 309 1.99454E+03 312 4.97578E+01 318 4.99287E+01 321 9.97973E+01 322 4.98342E+01 323 2.00452E+03 324 4.97943E+02 326 9.97828E+02 327 4.98135E+02 329 1.99802E+03 332 1.24734E+03 333 1.24695E+03 500 2.00000E+00 600 1.00000E+01 SCAN 5 9, 4, 0, 0 6 0, 4, 0, 0 7 3, 10, 0, 0 8 3, 0, 0, 0 9 8, 2, 0, 0 12 2, 1, 0, 0 18 23, 22, 0, 0 21 0, 20, 0, 0 22 21, 0, 0, 0 23 14, 19, 0, 0 24 12, 15, 0, 0 26 16, 19, 0, 0 27 12, 17, 0, 0 29 8, 8, 0, 0 32 17, 12, 0, 0 33 13, 14, 0, 0 501 0, 11, 0, 0 502 11, 0, 0, 0 503 0, 9, 0, 0 504 15, 0, 0, 0 505 19, 0, 0, 0 601 0, 23, 0, 0 602 1, 0, 0, 0 603 0, 21, 0, 0 604 18, 0, 0, 0 605 0, 7, 0, 0 606 15, 5, 0, 0 607 6, 9, 0, 0 608 11, 6, 0, 0 609 7, 11, 0, 0 CODE 1 2, 2, 0, 0 2 3, 2, 0, 0 3 3, 3, 0, 0 4 3, 4, 0, 0 5 3, 5, 0, 0 8 8, 2, 0, 0 10 3, 8, 200, 0 TOL 5 -5.00000E+01, 4.50000E+00 6 -5.00000E+01, 4.50000E+00 7 -5.00000E+01, 4.50000E+00 8 -5.00000E+01, 4.50000E+00 9 -5.00000E+01, 4.50000E+00 12 -5.00000E+01, 4.50000E+00 18 -5.00000E+01, 4.50000E+00 21 -5.00000E+01, 4.50000E+00 22 -5.00000E+01, 4.50000E+00 23 -5.00000E+01, 4.50000E+00 24 -5.00000E+01, 4.50000E+00 26 -5.00000E+01, 4.50000E+00 27 -5.00000E+01, 4.50000E+00 29 -5.00000E+01, 4.50000E+00 32 -5.00000E+01, 4.50000E+00 33 -5.00000E+01, 4.50000E+00 105 -4.00000E+00, 4.00000E+00 106 -4.00000E+00, 4.00000E+00 107 -4.00000E+00, 4.00000E+00 108 -4.00000E+00, 4.00000E+00 109 -4.00000E+00, 4.00000E+00 112 -4.00000E+00, 4.00000E+00 118 -4.00000E+00, 4.00000E+00 121 -4.00000E+00, 4.00000E+00 122 -4.00000E+00, 4.00000E+00 123 -4.00000E+00, 4.00000E+00 124 -4.00000E+00, 4.00000E+00 125 -4.00000E+00, 4.00000E+00 126 -4.00000E+00, 4.00000E+00 127 -4.00000E+00, 4.00000E+00 129 -4.00000E+00, 4.00000E+00 132 -4.00000E+00, 4.00000E+00 133 -4.00000E+00, 4.00000E+00 500 -1.50000E+02, 1.50000E+02 600 -1.00000E+02, 1.00000E+02 DUM 5 0.00000E+00 6 0.00000E+00 7 0.00000E+00 8 0.00000E+00 9 0.00000E+00 12 0.00000E+00 18 0.00000E+00 21 0.00000E+00 22 0.00000E+00 23 0.00000E+00 24 0.00000E+00 26 0.00000E+00 27 0.00000E+00 29 0.00000E+00 32 0.00000E+00 33 0.00000E+00 305 0.00000E+00 306 0.00000E+00 307 0.00000E+00 308 0.00000E+00 309 0.00000E+00 312 0.00000E+00 318 0.00000E+00 321 0.00000E+00 322 0.00000E+00 323 0.00000E+00 324 0.00000E+00 326 0.00000E+00 327 0.00000E+00 329 0.00000E+00 332 0.00000E+00 333 0.00000E+00 605 0.00000E+00 606 0.00000E+00 607 0.00000E+00 608 0.00000E+00 609 0.00000E+00 612 0.00000E+00 613 0.00000E+00 615 0.00000E+00 618 0.00000E+00 621 0.00000E+00 622 0.00000E+00 623 0.00000E+00 624 0.00000E+00 626 0.00000E+00 627 0.00000E+00 629 0.00000E+00 632 0.00000E+00 633 0.00000E+00 777 -4.00000E+00 778 -4.00000E+00 800 0.00000E+00 801 0.00000E+00 802 0.00000E+00 803 0.00000E+00 804 0.00000E+00 805 0.00000E+00 806 0.00000E+00 807 0.00000E+00 808 0.00000E+00 809 8.00000E+01 810 -8.00000E+01 811 3.30000E+01 812 2.20000E+01 813 2.20000E+01 814 1.60000E+02 998 0.00000E+00 999 3.00000E+00 1000 1.60000E+01 CUT 5 -5.00000E-01 6 -5.00000E-01 7 -5.00000E-01 8 -5.00000E-01 9 -5.00000E-01 12 -1.17109E+01 16 -5.00000E-01 18 -3.00000E-01 21 -5.00000E-01 22 -5.00000E-01 23 -5.00000E-01 24 -5.00000E-01 26 -5.00000E-01 27 -5.00000E-01 29 -5.00000E-01 32 -5.00000E-01 33 -5.00000E-01 112 -5.00000E-01 TURN 5 7.00000E+01 6 8.20000E+01 7 7.00000E+01 8 8.20000E+01 9 4.00000E+01 12 6.00000E+01 18 6.50000E+01 21 6.50000E+01 22 6.50000E+01 23 3.50000E+01 24 9.00000E+01 26 2.20000E+01 27 9.00000E+01 29 4.00000E+01 32 2.70000E+01 33 2.70000E+01 112 5.50000E+01 114 7.00000E+01 SPD 1 2.10000E+01, 2.10000E+01 2 1.60000E+01, 1.60000E+01 3 1.40000E+01, 1.40000E+01 PWR 1 100, 100 STRG 1 _ 2 H2463E 'A' 3  333 L06A 340 28-JUN-2004 1000 DLTA 900 -438, -5270 993 0, 1 994 -1, 0 995 0, 1 996 0, 0 997 0, 0 998 0, 0 999 0, 10160 SCAL 1 1.20000E+01 2 7.00000E+00