HEADING: 300-2463-01 PASS "B" (P20485.B1) S&R 25'S 14-OCT-97 JR STEP 1 GOTO STEP 9 2 GOTO STEP 193 3 GOTO STEP 173 4 GOSU STEP 116 5 GOTO STEP 9 6 GOTO STEP 105 7 GOTO STEP 214 8 IF DUM 807 = 00 THEN LET DUM 807 = 01 9 IF DUM 801 = 00 THEN GOTO STEP 214 10 MOVE POS 300 SPD 0 11 GOSU STEP 84 12 LET DLTA 900 = POS 900 - POS 899 13 DISP DLTA 900 14 MOVE POS 899 SPD 0 15 REM "** THRUHOLE CONTINUITY TEST **" 16 FOR I = 6.10000E+02 TO 6.21000E+02 17 IF BIT 10 = 01 THEN GOTO STEP 19 18 TEST UNK 600 CODE 8 TOL 600 ACC 21 REJ 0 REG 0 19 TEST UNK 600 CODE 1 TOL 600 ACC 21 REJ 0 REG 4 20 PRIN STRG 3 "THRU-HOLE REJECT #" I 21 NEXT I 22 IF REG 4 # 00 THEN GOTO STEP 73 23 PRIN "CONTINUITY TEST COMPLETE" 24 REM "** DIELECTRIC SHORT TEST **" 25 FOR I = 5.06000E+02 TO 5.29000E+02 26 TEST UNK 500 CODE 8 TOL 500 ACC 0 REJ 30 REG 0 27 TEST UNK 500 CODE 1 TOL 500 ACC 0 REJ 30 REG 0 28 PRIN STRG 3 "SHORT REJECT #" I 29 LET REG 3 = 01 30 NEXT I 31 IF REG 3 # 00 THEN GOTO STEP 73 32 PRIN "DIELECTRIC SHORT TEST COMPLETE" 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 3 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 BIT 0 = 00 THEN GOSU STEP 158 40 IF REG 1 # 00 THEN GOTO STEP 70 41 LET M = DUM 811 42 FOR I = 01 TO M 43 IF NOM I < - 01 THEN LET I = - NOM I 44 LET J = I * 02 45 LET K = J + 01 46 LET L = I + 1.00000E+02 47 MOVE POS J SPD 0 48 LET M = 01 49 LET J = 02 50 IF DUM I > - 4.50000E+01 THEN LET J = 03 51 IF DUM I > - 2.00000E+01 THEN LET J = 04 52 IF DUM I > - 1.00000E+01 THEN LET J = 05 53 IF NOM I < 9.00000E+02 THEN LET M = 02 54 IF NOM I < 2.00000E+02 THEN LET M = 03 55 IF MASK I > 02 THEN IF MASK I < 05 THEN GOTO STEP 58 56 TRIM UNK I CODE J CUT I MODE I POS K DENS M BRAN 0 57 GOTO STEP 59 58 SERP UNK I CODE J CUT I MODE I POS K DENS M BRAN 0 59 IF MASK I > 01 THEN IF MASK I < 04 THEN GOSU STEP 77 60 TEST UNK I CODE 5 TOL L ACC 62 REJ 0 REG 2 61 TEST UNK I CODE 1 TOL L ACC 0 REJ 0 REG 0 62 IF REG 50 = 01 THEN GOSU STEP 121 63 NEXT I 64 IF REG 50 = 01 THEN GOSU STEP 129 65 IF REG 2 # 00 THEN GOTO STEP 72 66 PRIN "GOOD PART" 67 MOVE POS 800 SPD 0 68 CGEN DENS 1 SCAL 1 POS 801 "B" 69 GOTO STEP 73 70 PRIN STRG 3 "INITIAL REJECT" 71 GOTO STEP 73 72 PRIN STRG 3 "TRIM REJECT" 73 PRIN "" 74 MOVE POS 899 SPD 0 75 HAND 76 EXIT 77 LET J = I * 02 + 1.00000E+02 78 LET K = J + 01 79 LET L = I + 1.00000E+02 80 MOVE POS J SPD 0 81 TRIM UNK I CODE 3 CUT L MODE L POS K DENS M BRAN 0 82 EXIT 83 EXIT 84 IF DUM 807 = 00 THEN GOTO STEP 91 85 REM "PRIN STRG 3" 86 PRIN "PROGRAM STOPPED AT PART # " DUM 807 87 REM "PRIN STRG 3" 88 PRIN "ENTER PART # YOU WANT TO START ON >" STRG 1 89 READ TTY:;DUM 808 %1.0 THEN QUIT 90 LET DUM 807 = 00 91 SHOM REG 30 92 SHOM REG 0 93 PRIN "ALIGN THETA" STRG 3 94 ALIN POS 998 REF 999 REG 998 95 PRIN "ALIGN X-Y" STRG 3 96 ALIN POS 0 REF 0 REG 0 97 LET DLTA 998 = POS 997 - POS 999 98 GOTO STEP 101 99 LET J = 9.99000E+02 100 LET DLTA 998 = DLTA 998 + DLTA J 101 GOSU STEP 109 102 IF DUM 807 < DUM 999 THEN GOTO STEP 99 103 LET DUM 807 = 00 104 LET DUM 808 = 00 105 SHOM REG 30 106 SHOM REG 31 107 SHOM REG 32 108 QUIT 109 LET DUM 807 = DUM 807 + 01 110 IF DUM 808 > DUM 807 THEN EXIT 111 SMOV DLTA 998 SPD 0 REG 0 112 LET DLTA 998 = 00 113 PRIN "PART # " DUM 807 114 GOSU STEP 12 115 EXIT 116 LET REG 50 = 01 117 PRIN STRG 3 "DRIFT TEST ON" STRG 3 118 LET DUM 805 = ( DUM 812 + DUM 813 ) / DUM 812 119 LET DUM 804 = ( 1.20000E+02 - DUM 805 ) - ( DUM 812 + DUM 813 ) 120 EXIT 121 GOSU STEP 154 01 122 TEST UNK I CODE 2 TOL I ACC 0 REJ 0 REG 0 123 LET J = I + 3.00000E+02 124 LET NOM J = NOM I + ( DUM I / 1.00000E+02 * NOM I ) 125 TEST UNK 300 CODE 10 TOL I ACC 0 REJ 0 REG 0 126 LET NOM J = NOM J + ( DUM I / 1.00000E+02 * NOM J ) 127 PRIN BIT 11 "R" I " NOM" J "=" NOM J 128 EXIT 129 LET M = DUM 811 130 GOSU STEP 153 DUM 804 131 GOSU STEP 143 01 132 GOSU STEP 137 02 133 PRIN "COMPLETE" STRG 3 134 LET REG 50 = 00 135 GOSU STEP 154 05 136 EXIT 137 PRIN STRG 3 "HIT PAGE THEN RETURN" STRG 1 138 READ TTY:;%1.0 THEN QUIT 139 PRIN "DRIFT TEST FOR " STRG 2 " LOT #" STRG 333  " " 140 PRIN "DRIFT IS BASED ON 120 SECONDS" 141 PRIN "WAIT TIME (SEC) " %6.2 DUM 804 142 PRIN "PAUSE TIME (SEC) " %5.2 DUM 805  " " 143 FOR N = 01 TO M 144 GOSU STEP 208 145 IF NOM J < 00 THEN GOTO STEP 151 146 IF VALU 1 = 02 THEN GOTO STEP 150 147 GOSU STEP 154 DUM 805 148 PRIN BIT 11 "TESTING R" I 149 TEST UNK 300 CODE 10 TOL I ACC 151 REJ 151 REG 0 150 PRIN "R" I " CHANGE =" %6.3 DUM I "%" 151 NEXT N 152 EXIT 153 PRIN "WAITING " VALU 1 " SECOND(S)" STRG 3 154 LET L = VALU 1 * 2.50000E+03 155 FOR K = 01 TO L 156 NEXT K 157 EXIT 158 LET M = DUM 811 159 FOR N = 01 TO M 160 GOSU STEP 208 161 IF DUM I > DUM 810 THEN IF DUM I < DUM 809 THEN GOTO STEP 164 162 PRIN "DID NOT LOG" 163 EXIT 164 NEXT N 165 PRIN "DATA LOGGING" 166 LET DUM 800 = DUM 800 + 01 167 FOR N = 01 TO M 168 GOSU STEP 208 169 LET DUM J = DUM J + DUM I 170 LET DUM K = DUM K + ( DUM I * DUM I ) 171 NEXT N 172 EXIT 173 GOSU STEP 186 174 LET M = DUM 811 175 FOR N = 01 TO M 176 GOSU STEP 208 177 LET DUM 804 = DUM J / DUM 800 178 LET DUM 805 = ( DUM K - ( DUM J * DUM J / DUM 800 ) ) 179 LET DUM 805 = SQRT ( DUM 805 * DUM 805 ) 180 LET DUM 805 = SQRT ( DUM 805 / ( DUM 800 - 01 ) ) 181 LET DUM 806 = ( 1.00000E+02 + DUM 804 ) * NOM I / 1.00000E+02 182 PRIN "R" I " " %5.3 DUM 804 %8.3 DUM 805 STRG 1 183 PRIN %15.3 DUM 806 %15.3 NOM I 184 NEXT N 185 QUIT 186 PRIN STRG 2 " LOT " STRG 333 STRG 1 187 PRIN " RESISTOR PRETRIM DATA BASED ON" DUM 800 " PARTS" 188 PRIN " DATE: " STRG 340 189 PRIN " AVE DEV STD DEV AVERAGE OHMS" STRG 1 190 PRIN " NOMINAL" 191 PRIN " " 192 EXIT 193 LET M = DUM 811 194 FOR N = 01 TO M 195 GOSU STEP 208 196 LET DUM I = 00 197 LET DUM J = 00 198 LET DUM K = 00 199 NEXT N 200 FOR I = 8.00000E+02 TO 8.08000E+02 201 LET DUM I = 00 202 NEXT I 203 PRIN STRG 3 "READY TO SAVE PROGRAM NOW ?" STRG 1 204 READ TTY:;"_" STRG 1000 %1.0 THEN QUIT 205 IF STRG 1000 # "Y" THEN LET DUM 801 = 01 206 PRIN "DUMMIES ZEROED" STRG 3 207 QUIT 208 IF NOM N < 00 THEN LET N = - NOM N 209 LET I = N 210 LET J = I + 3.00000E+02 211 LET K = I + 6.00000E+02 212 LET L = I + 1.00000E+02 213 EXIT 214 PRIN STRG 3 "ENTER LOT NUMBER >" STRG 1 215 READ TTY:;"_" STRG 333 %1.0 THEN QUIT 216 PRIN "LOT NUMBER IS " STRG 333 217 PRIN " "  "ENTER TODAY'S DATE > " STRG 1 218 READ TTY:;"_" STRG 340 %1.0 THEN QUIT 219 PRIN "DATE IS: " STRG 340 220 LET DUM 801 = 01 221 PRIN STRG 3 222 PRIN "POSITIONS SET FOR 16 PHASE ONLY" 223 QUIT MODE 11 TURN 11 CROS 0 INC 0 16 TURN 16 CROS 0 INC 0 19 TURN 19 CROS 0 INC 0 20 TURN 20 CROS 0 INC 0 36 TURN 36 CROS 0 INC 0 37 TURN 37 CROS 0 INC 0 100 TURN 0 CROS 0 INC 0 DENS 1 SPD 1 PWR 1 2 SPD 2 PWR 1 3 SPD 3 PWR 1 UNK 11 NOM 11 SCAN 11 MAT 0 FUNC 0 DUM 11 16 NOM 16 SCAN 16 MAT 0 FUNC 0 DUM 16 19 NOM 19 SCAN 19 MAT 0 FUNC 0 DUM 19 20 NOM 20 SCAN 20 MAT 0 FUNC 0 DUM 20 36 NOM 36 SCAN 36 MAT 0 FUNC 0 DUM 36 37 NOM 37 SCAN 37 MAT 0 FUNC 0 DUM 37 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 11 00 16 00 19 00 20 00 36 00 37 00 POS 22 -8604, -100 23 -8313, -195 32 -8665, 2905 33 -8362, 2736 38 -6403, 4878 39 -6480, 4542 40 -5967, 3758 41 -6042, 3431 72 -8682, 3651 73 -8339, 3497 74 -8604, -930 75 -8263, -990 300 -6349, -2636 800 -1100, -1460 801 -1300, -1460 802 0, 0 803 0, 0 899 -7298, 915 900 -7972, -5656 997 450, -10170 998 -15731, 17694 999 -15731, -11768 REF 999 POS 999 NOM 1 -1.10000E+01 11 3.90000E+01 12 -1.60000E+01 16 3.90000E+01 17 -1.90000E+01 19 2.50000E+01 20 2.50000E+01 21 -3.60000E+01 36 1.00000E+02 37 1.00000E+02 311 3.88862E+01 312 0.00000E+00 316 3.88711E+01 319 2.49233E+01 320 2.49369E+01 336 9.95859E+01 337 9.95693E+01 500 2.00000E+00 600 1.00000E+01 SCAN 11 1, 1, 0, 0 16 19, 23, 0, 0 19 21, 20, 0, 0 20 20, 18, 0, 0 36 2, 23, 0, 0 37 2, 1, 0, 0 506 2, 0, 0, 0 507 11, 0, 0, 0 508 0, 9, 0, 0 509 0, 8, 0, 0 510 0, 7, 0, 0 511 7, 0, 0, 0 512 5, 0, 0, 0 513 13, 0, 0, 0 514 0, 21, 0, 0 515 0, 17, 0, 0 516 17, 0, 0, 0 517 16, 21, 0, 0 518 15, 21, 0, 0 519 12, 21, 0, 0 520 0, 22, 0, 0 521 16, 22, 0, 0 522 15, 22, 0, 0 523 12, 22, 0, 0 524 16, 17, 0, 0 525 15, 17, 0, 0 526 12, 17, 0, 0 527 16, 0, 0, 0 528 15, 0, 0, 0 529 12, 0, 0, 0 610 18, 21, 0, 0 611 17, 19, 0, 0 612 14, 17, 0, 0 613 22, 17, 0, 0 614 3, 14, 0, 0 615 3, 4, 0, 0 616 9, 2, 0, 0 617 7, 3, 0, 0 618 4, 7, 0, 0 619 5, 8, 0, 0 620 6, 9, 0, 0 621 11, 6, 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 11 -5.00000E+01, 4.50000E+00 16 -5.00000E+01, 4.50000E+00 19 -5.00000E+01, 4.50000E+00 20 -5.00000E+01, 4.50000E+00 36 -5.00000E+01, 4.50000E+00 37 -5.00000E+01, 4.50000E+00 111 -4.00000E+00, 4.00000E+00 116 -4.00000E+00, 4.00000E+00 119 -4.00000E+00, 4.00000E+00 120 -4.00000E+00, 4.00000E+00 136 -4.00000E+00, 4.00000E+00 137 -4.00000E+00, 4.00000E+00 500 -1.50000E+02, 1.50000E+02 600 -1.00000E+02, 1.00000E+02 DUM 11 0.00000E+00 16 0.00000E+00 19 0.00000E+00 20 0.00000E+00 21 0.00000E+00 25 0.00000E+00 28 0.00000E+00 36 0.00000E+00 37 0.00000E+00 311 0.00000E+00 316 0.00000E+00 319 0.00000E+00 320 0.00000E+00 321 0.00000E+00 325 0.00000E+00 328 0.00000E+00 336 0.00000E+00 337 0.00000E+00 611 0.00000E+00 616 0.00000E+00 619 0.00000E+00 620 0.00000E+00 621 0.00000E+00 625 0.00000E+00 628 0.00000E+00 636 0.00000E+00 637 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.70000E+01 812 0.00000E+00 813 0.00000E+00 814 1.60000E+02 998 0.00000E+00 999 3.00000E+00 1000 1.60000E+01 CUT 11 -5.00000E-01 16 -5.00000E-01 19 -5.00000E-01 20 -5.00000E-01 36 -5.00000E-01 37 -5.00000E-01 TURN 11 5.50000E+01 16 5.50000E+01 19 4.20000E+01 20 4.20000E+01 36 5.50000E+01 37 5.50000E+01 112 7.00000E+01 114 7.00000E+01 SPD 1 1.70000E+01, 1.70000E+01 2 1.40000E+01, 1.40000E+01 3 1.10000E+01, 1.10000E+01 PWR 1 100, 100 STRG 1 _ 2 300-2463-00 "B" 3  333 L06A 340 28-JUN-2004 1000 DLTA 900 -674, -6571 993 0, 1 994 -1, 0 995 0, 1 996 0, 0 997 0, 0 998 0, 0 999 0, 10160 SCAL 1 7.00000E+00 2 7.00000E+00