HEADING:300-2581-00 (P20477.FT) FINAL TEST/TRIM 10-21-96 SH STEP 1 GOTO STEP 9 2 GOTO STEP 138 3 GOTO STEP 108 4 PRIN "NO DRIFT TEST" STRG 3 5 QUIT 6 GOTO STEP 82 7 GOTO STEP 162 8 IF DUM 807 = 00 THEN LET DUM 807 = 01 9 IF DUM 801 = 00 THEN GOTO STEP 162 10 MOVE POS 300 SPD 0 11 GOSU STEP 59 12 LET DLTA 900 = POS 900 - POS 899 13 DISP DLTA 900 14 MOVE POS 899 SPD 0 15 LET M = DUM 811 16 FOR I = 01 TO M 17 IF NOM I < - 01 THEN LET I = - NOM I 18 IF MASK I = 00 THEN GOTO STEP 45 19 IF REG 2 # 00 THEN GOTO STEP 48 20 LET J = I * 02 - 2.00000E+02 21 LET K = J + 01 22 IF MASK I # 01 THEN GOTO STEP 35 23 LET L = I - 1.00000E+02 24 IF DUM L > DUM 777 THEN GOTO STEP 45 25 PRIN "TRIMMING R" I 26 REM "=== SERP TRIM RESISTORS ========" 27 MOVE POS J SPD 0 28 SERP UNK I CODE 7 CUT I MODE I POS K DENS 1 BRAN 0 29 TEST UNK I CODE 5 TOL L ACC 0 REJ 0 REG 0 30 LET CUT 100 = DUM I + CUT 555 31 MOVE POS 114 SPD 0 32 SERP UNK I CODE 7 CUT 100 MODE 100 POS 115 DENS 2 BRAN 0 33 GOTO STEP 44 34 REM "=== PLUNGE TRIM RESISTORS ======" 35 TEST UNK I CODE 15 TOL I ACC 48 REJ 0 REG 0 36 IF DUM I < CUT I THEN GOTO STEP 39 37 LET REG 2 = 01 38 GOTO STEP 48 39 PRIN "TRIMMING R" I 40 MOVE POS J SPD 0 41 TRIM UNK I CODE 6 CUT I MODE I POS K DENS 1 BRAN 0 42 TRIM UNK I CODE 99 CUT 99 MODE 99 POS J DENS 1 BRAN 0 43 REM "****** END OF TRIM PORTION **" 44 LET REG I = REG I + 01 45 TEST UNK I CODE 15 TOL I ACC 48 REJ 0 REG 2 46 IF DUM I < 1.00000E+03 THEN GOTO STEP 48 47 TEST UNK I CODE 12 TOL I ACC 0 REJ 0 REG 0 48 NEXT I 49 IF BIT 0 = 00 THEN GOSU STEP 93 50 IF REG 2 = 00 THEN GOTO STEP 53 51 PRIN STRG 3 ">> FINAL TEST REJECT <<" STRG 3 52 GOTO STEP 56 53 PRIN " GOOD PART " 54 MOVE POS 800 SPD 0 55 CGEN DENS 333 SCAL 333 POS 801 "B" 56 MOVE POS 899 SPD 0 57 HAND 58 EXIT 59 IF DUM 807 = 00 THEN GOTO STEP 66 60 PRIN "" 61 PRIN "PROGRAM STOPPED AT PART # " DUM 807 62 PRIN "" 63 PRIN "ENTER PART # YOU WANT TO START ON >" STRG 1 64 READ TTY:;DUM 808 %1.0 THEN QUIT 65 LET DUM 807 = 00 66 SHOM REG 30 67 SHOM REG 0 68 LET DLTA 998 = POS 997 69 IF BIT 6 = 01 THEN GOTO STEP 78 70 PRIN "ALIGN THETA" 71 ALIN POS 998 REF 999 REG 998 72 PRIN "ALIGN X-Y" 73 ALIN POS 0 REF 0 REG 0 74 LET DLTA 998 = POS 997 - POS 999 75 GOTO STEP 78 76 LET J = 9.99000E+02 77 LET DLTA 998 = DLTA 998 + DLTA J 78 GOSU STEP 86 79 IF DUM 807 < DUM 999 THEN GOTO STEP 76 80 LET DUM 807 = 00 81 LET DUM 808 = 00 82 SHOM REG 30 83 SHOM REG 31 84 SHOM REG 32 85 QUIT 86 LET DUM 807 = DUM 807 + 01 87 IF DUM 808 > DUM 807 THEN EXIT 88 SMOV DLTA 998 SPD 0 REG 0 89 LET DLTA 998 = 00 90 PRIN "PART # " DUM 807 91 GOSU STEP 12 92 EXIT 93 LET M = DUM 811 94 FOR N = 01 TO M 95 GOSU STEP 156 96 IF DUM I > DUM 810 THEN IF DUM I < DUM 809 THEN GOTO STEP 99 97 PRIN "DID NOT LOG" 98 EXIT 99 NEXT N 100 PRIN "DATA LOGGING" 101 LET DUM 800 = DUM 800 + 01 102 FOR N = 01 TO M 103 GOSU STEP 156 104 LET DUM J = DUM J + DUM I 105 LET DUM K = DUM K + ( DUM I * DUM I ) 106 NEXT N 107 EXIT 108 GOSU STEP 123 109 LET M = DUM 811 110 FOR N = 01 TO M 111 GOSU STEP 156 114 LET DUM 804 = DUM J / DUM 800 115 LET DUM 805 = ( DUM K - ( DUM J * DUM J / DUM 800 ) ) 116 LET DUM 805 = SQRT ( DUM 805 * DUM 805 ) 117 LET DUM 805 = SQRT ( DUM 805 / ( DUM 800 - 01 ) ) 118 LET DUM 806 = ( 1.00000E+02 + DUM 804 ) * NOM I / 1.00000E+02 119 PRIN "R" I " " %5.3 DUM 804 %8.3 DUM 805 STRG 1 120 PRIN %15.3 DUM 806 %15.3 NOM I 121 NEXT N 122 QUIT 123 PRIN STRG 2 " LOT " STRG 333 STRG 1 124 PRIN " RESISTOR FINAL TEST DATA BASED ON " DUM 800 " PARTS" 125 PRIN " " 126 PRIN " DATE: " STRG 340 127 PRIN " " 128 FOR I = 1.06000E+02 TO 1.07000E+02 129 IF NOM I < 00 THEN LET I = - NOM I 130 LET L = I - 1.00000E+02 131 PRIN "TOTAL PARTS NEEDING FINE TRIMS ON R" L " = " REG I 132 NEXT I 133 PRIN " " 134 PRIN " AVE DEV STD DEV AVERAGE OHMS" STRG 1 135 PRIN " NOMINAL" 136 PRIN " " 137 EXIT 138 FOR N = 01 TO M 139 GOSU STEP 156 140 LET DUM I = 00 141 LET DUM J = 00 142 LET DUM K = 00 143 NEXT N 144 FOR I = 6.00000E+00 TO 1.07000E+02 145 IF NOM I < 00 THEN LET I = - NOM I 146 LET REG I = 00 147 NEXT I 148 FOR I = 8.00000E+02 TO 8.08000E+02 149 LET DUM I = 00 150 NEXT I 151 PRIN "ARE YOU READY TO SAVE THE PROGRAM ? " STRG 3 STRG 1 152 READ TTY:;"_" STRG 1000 %1.0 THEN QUIT 153 IF STRG 1000 # "Y" THEN LET DUM 801 = 01 154 PRIN "DUMMIES ZEROED" STRG 3 155 QUIT 156 IF NOM N < 00 THEN LET N = - NOM N 157 LET I = N 158 LET J = I + 3.00000E+02 159 LET K = I + 6.00000E+02 160 LET L = I + 1.00000E+02 161 EXIT 162 PRIN STRG 3 "ENTER LOT NUMBER >" STRG 1 163 READ TTY:;"_" STRG 333 %1.0 THEN QUIT 164 PRIN STRG 3 "ENTER TOAY'S DATE > " STRG 1 165 READ TTY:;"_" STRG 340 %1.0 THEN QUIT 166 PRIN ""  "LOT NUMBER IS: " STRG 333 167 PRIN ""  "TODAY'S DATE IS: " STRG 340 168 LET DUM 801 = 01 169 PRIN ""  "POSITIONS SET FOR 16 PHASE ONLY" 170 QUIT MODE 99 TURN 0 CROS 0 INC 0 100 TURN 99 CROS 0 INC 100 107 TURN 107 CROS 0 INC 7 DENS 1 SPD 1 PWR 1 2 SPD 2 PWR 1 333 SPD 333 PWR 1 UNK 6 NOM 6 SCAN 6 MAT 0 FUNC 0 DUM 6 7 NOM 7 SCAN 7 MAT 0 FUNC 0 DUM 7 15 NOM 15 SCAN 15 MAT 0 FUNC 0 DUM 15 106 NOM 106 SCAN 6 MAT 15 FUNC 0 DUM 106 107 NOM 107 SCAN 7 MAT 6 FUNC 0 DUM 107 300 NOM J SCAN I MAT 0 FUNC 0 DUM I REG 1 00 2 00 3 00 4 00 6 00 7 00 15 00 30 03 31 00 32 04 50 00 106 00 107 00 998 -01 999 00 MASK 6 00 7 00 15 00 106 00 107 01 POS 14 8620, 2100 15 8330, 2600 114 8610, 2100 115 8340, 2600 300 -2245, -420 800 11269, 3638 801 11022, 3638 899 8236, 1890 900 8236, 1890 997 2361, -5281 998 7546, 16019 999 7546, -4291 REF 999 POS 999 NOM 1 -6.00000E+00 6 9.00000E+05 7 1.11110E+05 8 -1.50000E+01 15 9.00000E+05 16 -1.06000E+02 106 9.00000E+05 107 1.11110E+05 SCAN 6 11, 9, 0, 0 7 11, 14, 0, 0 15 21, 3, 0, 0 CODE 2 3, 2, 0, 0 5 3, 5, 0, 0 6 3, 6, 25, 0 7 3, 7, 100, 0 12 3, 2, 100, 0 15 3, 5, 100, 0 99 0, 0, 5, 0 TOL 6 -7.00000E-01, 7.00000E-01 7 -7.00000E+00, 7.00000E-01 15 -3.50000E-01, 3.50000E-01 106 -3.50000E-01, 3.50000E-01 107 -3.00000E-01, 3.00000E-01 DUM 6 0.00000E+00 7 0.00000E+00 15 0.00000E+00 103 0.00000E+00 104 0.00000E+00 106 0.00000E+00 107 0.00000E+00 109 0.00000E+00 111 0.00000E+00 112 0.00000E+00 211 0.00000E+00 212 0.00000E+00 303 0.00000E+00 304 0.00000E+00 306 0.00000E+00 307 0.00000E+00 309 0.00000E+00 310 0.00000E+00 311 0.00000E+00 312 0.00000E+00 315 0.00000E+00 403 0.00000E+00 404 0.00000E+00 406 0.00000E+00 407 0.00000E+00 409 0.00000E+00 411 0.00000E+00 412 0.00000E+00 603 0.00000E+00 604 0.00000E+00 606 0.00000E+00 607 0.00000E+00 609 0.00000E+00 610 0.00000E+00 611 0.00000E+00 612 0.00000E+00 615 0.00000E+00 703 0.00000E+00 704 0.00000E+00 706 0.00000E+00 707 0.00000E+00 709 0.00000E+00 711 0.00000E+00 712 0.00000E+00 777 -5.00000E-01 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 5.00000E+00 810 -5.00000E+00 811 1.07000E+02 812 0.00000E+00 813 0.00000E+00 814 1.60000E+02 998 0.00000E+00 999 3.00000E+00 CUT 99 5.00000E+01 100 -7.40895E-02 107 -5.00000E-01 555 2.50000E-02 TURN 99 9.90000E+01 107 9.90000E+01 CROS 3 -1.00000E+00 4 -2.70000E-01 6 -1.00000E+00 7 -2.70000E-01 9 -1.00000E+00 INC 3 10 4 10 6 10 7 2 9 10 11 5 12 5 100 1 SPD 1 5.00000E+00, 5.00000E+00 2 8.00000E+00, 8.00000E+00 333 4.00000E+00, 4.00000E+00 PWR 1 100, 100 STRG 1 _ 2 300-2581-00 TEST 3  10 1 11 .0000 12 0300001 333 L01A 340 21 OCT 96 1000 Y DLTA 900 0, 0 998 0, 0 999 0, 10160 SCAL 333 1.00000E+01