HEADING: 300-2462-03 (P20478.C1) S&R 25'S 7-23-96 SH STEP 1 GOTO STEP 9 2 GOTO STEP 207 3 GOTO STEP 185 4 GOSU STEP 128 5 GOTO STEP 9 6 GOTO STEP 116 7 GOTO STEP 228 8 IF DUM 807 = 00 THEN LET DUM 807 = 01 9 IF DUM 801 = 00 THEN GOTO STEP 228 10 MOVE POS 100 SPD 0 11 GOSU STEP 92 12 LET DLTA 900 = POS 900 - POS 899 13 DISP DLTA 900 14 MOVE POS 899 SPD 0 15 IF STRG 555 = "NOHOLETEST" THEN GOTO STEP 25 16 REM "*** THRUHOLE CONTINUITY TEST ***" 17 FOR I = 6.01000E+02 TO 6.11000E+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 2 TOL 600 ACC 22 REJ 0 REG 4 21 PRIN STRG 3 " THRU HOLE REJECT #" I STRG 3 22 NEXT I 23 IF REG 4 # 00 THEN GOTO STEP 83 24 PRIN "THRUHOLE TEST COMPLETE" 25 FOR I = 01 TO 1.27000E+02 26 IF NOM I < - 01 THEN LET I = - NOM I 27 IF BIT 4 = 01 THEN IF MASK I # 00 THEN GOTO STEP 35 28 IF I = 2.70000E+01 THEN GOTO STEP 34 29 IF I # 1.27000E+02 THEN GOTO STEP 33 30 LET NOM 127 = ( NOM 28 + ( NOM 28 * DUM 28 / 1.00000E+02 ) ) / DUM 499 31 PRIN "NOM 127 = " NOM 127 32 GOTO STEP 34 33 TEST UNK I CODE 1 TOL I ACC 35 REJ 0 REG 0 34 TEST UNK I CODE 2 TOL I ACC 0 REJ 0 REG 1 35 NEXT I 36 IF BIT 4 = 01 THEN GOTO STEP 39 37 IF DUM 3 < - 2.00000E+00 THEN GOSU STEP 170 38 IF REG 1 # 00 THEN GOTO STEP 80 39 FOR I = 02 TO 1.27000E+02 40 IF NOM I < - 01 THEN LET I = - NOM I 41 IF MASK I = 00 THEN GOTO STEP 70 42 LET J = I * 02 43 LET K = J + 01 44 LET L = I + 1.00000E+02 45 IF BIT 4 = 01 THEN IF I = 1.27000E+02 THEN GOTO STEP 70 46 IF BIT 4 = 01 THEN GOTO STEP 66 47 MOVE POS J SPD 0 48 LET J = 02 49 LET N = 01 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 < 1.00000E+02 THEN LET N = 02 54 IF I = 1.01000E+02 THEN IF DUM I > - 1.00000E+00 THEN GOTO STEP 64 55 IF I # 1.27000E+02 THEN GOTO STEP 61 56 MOVE POS 154 SPD 0 57 SERP UNK 127 CODE 5 CUT 100 MODE 27 POS 155 DENS N BRAN 0 58 MOVE POS 254 SPD 0 59 TRIM UNK 127 CODE 5 CUT 127 MODE 127 POS 255 DENS N BRAN 0 60 GOTO STEP 66 61 TRIM UNK I CODE J CUT I MODE I POS K DENS N BRAN 63 62 GOTO STEP 66 63 IF I # 1.01000E+02 THEN GOTO STEP 66 64 MOVE POS 302 SPD 0 65 TRIM UNK 101 CODE 5 CUT 101 MODE 201 POS 303 DENS 2 BRAN 0 66 TEST UNK I CODE 15 TOL L ACC 69 REJ 0 REG 2 67 IF DUM I < 1.00000E+03 THEN GOTO STEP 69 68 TEST UNK I CODE 1 TOL L ACC 0 REJ 0 REG 0 69 IF REG 50 = 01 THEN GOSU STEP 133 70 NEXT I 71 IF REG 50 = 01 THEN GOSU STEP 141 72 IF BIT 4 = 01 THEN GOTO STEP 83 73 IF REG 2 # 00 THEN GOTO STEP 82 74 PRIN "GOOD PART" 75 MOVE POS 800 SPD 0 76 CGEN DENS 3 SCAL 1 POS 801 "C" 77 MOVE POS 802 SPD 0 78 CGEN DENS 3 SCAL 2 POS 803 "-03" 79 GOTO STEP 83 80 PRIN STRG 3 " INITIAL REJECT" STRG 3 81 GOTO STEP 83 82 PRIN STRG 3 " TRIN REJECT" STRG 3 83 MOVE POS 899 SPD 0 84 HAND 85 EXIT 86 LET J = I * 02 + 1.00000E+02 87 LET K = J + 01 88 LET L = I + 1.00000E+02 89 MOVE POS J SPD 0 90 TRIM UNK I CODE 4 CUT L MODE 100 POS K DENS 1 BRAN 0 91 EXIT 92 IF DUM 807 = 00 THEN GOTO STEP 99 93 PRIN "" 94 PRIN "PROGRAM STOPPED AT PART # " DUM 807 95 PRIN "" 96 PRIN "ENTER PART # YOU WANT TO START ON >" STRG 1 97 READ TTY:;DUM 808 %1.0 THEN QUIT 98 LET DUM 807 = 00 99 SHOM REG 30 100 SHOM REG 0 101 IF BIT 6 = 00 THEN GOTO STEP 104 102 LET DLTA 998 = POS 997 103 GOTO STEP 112 104 REM "ALIGN THETA" 105 ALIN POS 998 REF 999 REG 998 106 REM "ALIGN X-Y" 107 ALIN POS 0 REF 0 REG 0 108 LET DLTA 998 = POS 997 - POS 999 109 GOTO STEP 112 110 LET J = 9.99000E+02 111 LET DLTA 998 = DLTA 998 + DLTA J 112 GOSU STEP 120 113 IF DUM 807 < DUM 999 THEN GOTO STEP 110 114 LET DUM 807 = 00 115 LET DUM 808 = 00 116 SHOM REG 30 117 SHOM REG 31 118 SHOM REG 32 119 QUIT 120 LET DUM 807 = DUM 807 + 01 121 IF DUM 808 > DUM 807 THEN EXIT 122 SMOV DLTA 998 SPD 0 REG 0 123 LET DLTA 998 = 00 124 PRIN "" 125 PRIN "PART # " DUM 807 126 GOSU STEP 12 127 EXIT 128 LET REG 50 = 01 129 PRIN STRG 3 "DRIFT TEST ON" STRG 3 130 LET DUM 805 = ( DUM 812 + DUM 813 ) / DUM 812 131 LET DUM 804 = ( 1.20000E+02 - DUM 805 ) - ( DUM 812 + DUM 813 ) 132 EXIT 133 GOSU STEP 166 01 134 TEST UNK I CODE 2 TOL I ACC 0 REJ 0 REG 0 135 LET J = I + 3.00000E+02 136 LET NOM J = NOM I + ( DUM I / 1.00000E+02 * NOM I ) 137 TEST UNK 300 CODE 10 TOL I ACC 0 REJ 0 REG 0 138 LET NOM J = NOM J + ( DUM I / 1.00000E+02 * NOM J ) 139 PRIN BIT 11 "R" I " NOM" J "=" NOM J 140 EXIT 141 LET M = DUM 811 142 GOSU STEP 165 DUM 804 143 GOSU STEP 155 01 144 GOSU STEP 149 02 145 PRIN "COMPLETE" STRG 3 146 LET REG 50 = 00 147 GOSU STEP 166 05 148 EXIT 149 PRIN STRG 3 "HIT PAGE THEN RETURN" STRG 1 150 READ TTY:;%1.0 THEN QUIT 151 PRIN "DRIFT TEST FOR " STRG 2 " LOT #" STRG 333  " " 152 PRIN "DRIFT IS BASED ON 120 SECONDS" 153 PRIN "WAIT TIME (SEC) " %6.2 DUM 804 154 PRIN "PAUSE TIME (SEC) " %5.2 DUM 805  " " 155 FOR N = 01 TO M 156 GOSU STEP 222 157 IF NOM J < 00 THEN GOTO STEP 163 158 IF VALU 1 = 02 THEN GOTO STEP 162 159 GOSU STEP 166 DUM 805 160 PRIN BIT 11 "TESTING R" I 161 TEST UNK 300 CODE 10 TOL I ACC 163 REJ 163 REG 0 162 PRIN "R" I " CHANGE =" %6.3 DUM I "%" 163 NEXT N 164 EXIT 165 PRIN "WAITING " VALU 1 " SECOND(S)" STRG 3 166 LET L = VALU 1 * 2.50000E+03 167 FOR K = 01 TO L 168 NEXT K 169 EXIT 170 LET M = DUM 811 171 FOR N = 01 TO M 172 GOSU STEP 222 173 IF DUM I > DUM 810 THEN IF DUM I < DUM 809 THEN GOTO STEP 176 174 PRIN "DID NOT LOG" 175 EXIT 176 NEXT N 177 PRIN "DATA LOGGING" 178 LET DUM 800 = DUM 800 + 01 179 FOR N = 01 TO M 180 GOSU STEP 222 181 LET DUM J = DUM J + DUM I 182 LET DUM K = DUM K + ( DUM I * DUM I ) 183 NEXT N 184 EXIT 185 GOSU STEP 198 186 LET M = DUM 811 187 FOR N = 01 TO M 188 GOSU STEP 222 189 LET DUM 804 = DUM J / DUM 800 190 LET DUM 805 = ( DUM K - ( DUM J * DUM J / DUM 800 ) ) 191 LET DUM 805 = SQRT ( DUM 805 * DUM 805 ) 192 LET DUM 805 = SQRT ( DUM 805 / ( DUM 800 - 01 ) ) 193 LET DUM 806 = ( 1.00000E+02 + DUM 804 ) * NOM I / 1.00000E+02 194 PRIN "R" I " " %5.3 DUM 804 %8.3 DUM 805 STRG 1 195 PRIN %15.3 DUM 806 %15.3 NOM I 196 NEXT N 197 QUIT 198 PRIN STRG 2 " LOT " STRG 333 STRG 1 199 PRIN " RESISTOR PRETRIM DATA BASED ON" DUM 800 " PARTS" 200 PRIN " " 201 PRIN "DATE: " STRG 340 " DUM 499: " %7.5 DUM 499 202 PRIN " " 203 PRIN " AVE DEV STD DEV AVERAGE OHMS" STRG 1 204 PRIN " NOMINAL" 205 PRIN " " 206 EXIT 207 LET M = DUM 811 208 FOR N = 01 TO M 209 GOSU STEP 222 210 LET DUM I = 00 211 LET DUM J = 00 212 LET DUM K = 00 213 NEXT N 214 FOR I = 8.00000E+02 TO 8.08000E+02 215 LET DUM I = 00 216 NEXT I 217 PRIN STRG 3 "ARE YOU GOING TO RE-SAVE THIS PROGRAM NOW ?" STRG 1 218 READ TTY:;"_" STRG 1000 %1.0 THEN QUIT 219 IF STRG 1000 # "Y" THEN LET DUM 801 = 01 220 PRIN "DUMMIES ZEROED" STRG 3 221 QUIT 222 IF NOM N < 00 THEN LET N = - NOM N 223 LET I = N 224 LET J = I + 3.00000E+02 225 LET K = I + 6.00000E+02 226 LET L = I + 1.00000E+02 227 EXIT 228 PRIN STRG 3 "ENTER LOT NUMBER >" STRG 1 229 READ TTY:;"_" STRG 333 %1.0 THEN QUIT 230 PRIN  "ENTER TODAY'S DATE > " STRG 1 231 READ TTY:;"_" STRG 340 %1.0 THEN QUIT 232 PRIN  "LOT NUMBER IS: " STRG 333 233 PRIN "TODAY'S DATE IS: " STRG 340 234 PRIN  "CURRENT DUM 499 IS >>> " %10.5 DUM 499 235 PRIN "DO YOU WANT TO CHANGE DUM 499 ? (Y OR N) " STRG 1 236 READ TTY:;"_" STRG 1000 %1.0 THEN QUIT 237 IF STRG 1000 # "Y" THEN GOTO STEP 241 238 PRIN "ENTER NEW DUM 499 >> " STRG 1 239 READ TTY:;"_" DUM 499 %1.0 THEN QUIT 240 PRIN  "NEW DUM 499 IS: " %9.5 DUM 499 241 LET DUM 801 = 01 242 QUIT MODE 2 TURN 2 CROS 0 INC 0 3 TURN 3 CROS 0 INC 0 4 TURN 4 CROS 0 INC 0 22 TURN 22 CROS 0 INC 0 24 TURN 24 CROS 0 INC 0 26 TURN 26 CROS 0 INC 0 27 TURN 27 CROS 0 INC 27 100 TURN 0 CROS 0 INC 0 101 TURN 101 CROS 0 INC 0 127 TURN 0 CROS 0 INC 0 201 TURN 201 CROS 0 INC 0 DENS 1 SPD 1 PWR 1 2 SPD 2 PWR 1 3 SPD 3 PWR 1 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 12 NOM 12 SCAN 12 MAT 0 FUNC 0 DUM 12 22 NOM 22 SCAN 22 MAT 0 FUNC 0 DUM 22 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 28 NOM 28 SCAN 28 MAT 0 FUNC 0 DUM 28 101 NOM 101 SCAN 101 MAT 0 FUNC 0 DUM 101 127 NOM 127 SCAN 27 MAT 0 FUNC 0 DUM 127 300 NOM J SCAN I MAT 0 FUNC 0 DUM I 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 1 00 2 01 3 01 4 01 5 00 12 00 22 01 24 01 26 01 27 00 28 00 101 01 127 03 POS 4 -6400, -2541 5 -7139, -4188 6 -3875, -1037 7 -3507, -655 8 -3830, 924 9 -4226, 608 44 4042, -3148 45 3916, -3639 48 4025, 3568 49 4211, 4108 52 5129, -2957 53 4992, -3492 100 -2856, -4213 154 -8970, -4890 155 -10826, -4425 202 -7200, -6980 203 -6336, -5460 254 -10977, -4631 255 -9320, -4631 302 -6382, -4984 303 -7311, -5404 800 -6635, 6140 801 -6880, 6140 802 -7365, 6450 803 -8430, 6450 899 -3983, -556 900 -4423, -5633 997 1859, -7785 998 -14813, 16401 999 12118, 16401 REF 999 POS 999 NOM 1 2.80000E+01 2 2.17500E+01 3 5.50000E+01 4 7.50000E+01 5 7.50000E+01 6 -1.20000E+01 12 9.00000E+01 13 -2.20000E+01 22 1.05000E+04 23 -2.40000E+01 24 1.05000E+04 25 -2.60000E+01 26 1.05000E+04 27 1.50000E+04 28 7.50000E+04 29 -1.01000E+02 101 4.97500E+01 102 -1.27000E+02 127 1.27899E+04 301 -1.00000E+00 302 2.16550E+01 303 5.49648E+01 304 7.51050E+01 305 -1.00000E+00 312 -1.00000E+00 322 1.04949E+04 324 1.04944E+04 326 1.05052E+04 327 -1.00000E+00 328 -1.00000E+00 401 4.96497E+01 427 1.23281E+04 600 1.00000E+00 SCAN 1 3, 4, 0, 0 2 0, 4, 0, 0 3 22, 23, 0, 0 4 23, 23, 0, 0 5 18, 23, 0, 0 12 20, 18, 0, 0 22 7, 5, 0, 0 24 16, 17, 0, 0 26 6, 8, 0, 0 27 2, 1, 0, 0 28 5, 1, 0, 0 101 3, 0, 0, 0 127 2, 1, 0, 0 601 4, 20, 0, 0 602 4, 6, 0, 0 603 4, 7, 0, 0 604 4, 15, 0, 0 605 4, 11, 0, 0 606 9, 3, 0, 0 607 4, 10, 0, 0 608 4, 12, 0, 0 609 10, 3, 0, 0 610 12, 3, 0, 0 611 11, 3, 0, 0 CODE 1 3, 3, 0, 0 2 3, 2, 50, 0 3 3, 3, 0, 0 4 3, 4, 0, 0 5 3, 5, 0, 0 7 3, 7, 0, 0 8 8, 2, 0, 0 10 3, 8, 200, 0 15 3, 5, 50, 0 TOL 1 -5.00000E+01, 3.50000E+00 2 -5.00000E+01, 3.50000E+00 3 -5.00000E+01, 7.50000E-01 4 -5.00000E+01, 1.50000E+00 5 -4.00000E+01, 0.00000E+00 12 -4.00000E+01, 0.00000E+00 22 -5.00000E+01, 7.50000E-01 24 -5.00000E+01, 7.50000E-01 26 -5.00000E+01, 7.50000E-01 27 -7.20000E+01, 1.00000E+02 28 -3.95000E+01, 3.95000E+01 101 -5.00000E+01, 0.00000E+00 102 -3.00000E+00, 3.00000E+00 103 -5.00000E-01, 5.00000E-01 104 -1.00000E+00, 1.00000E+00 122 -5.00000E-01, 5.00000E-01 124 -5.00000E-01, 5.00000E-01 126 -5.00000E-01, 5.00000E-01 127 -8.60000E+01, 6.00000E+00 201 -3.80000E-01, 0.00000E+00 227 -5.00000E-01, 6.00000E+00 600 -1.00000E+02, 1.00000E+02 DUM 1 0.00000E+00 2 0.00000E+00 3 0.00000E+00 4 0.00000E+00 5 0.00000E+00 12 0.00000E+00 22 0.00000E+00 24 0.00000E+00 26 0.00000E+00 27 0.00000E+00 28 0.00000E+00 46 0.00000E+00 101 0.00000E+00 103 0.00000E+00 120 0.00000E+00 127 0.00000E+00 301 0.00000E+00 302 0.00000E+00 303 0.00000E+00 304 0.00000E+00 305 0.00000E+00 312 0.00000E+00 322 0.00000E+00 324 0.00000E+00 326 0.00000E+00 327 0.00000E+00 328 0.00000E+00 346 0.00000E+00 401 0.00000E+00 427 0.00000E+00 499 4.91341E+00 601 0.00000E+00 602 0.00000E+00 603 0.00000E+00 604 0.00000E+00 605 0.00000E+00 612 0.00000E+00 622 0.00000E+00 624 0.00000E+00 626 0.00000E+00 627 0.00000E+00 628 0.00000E+00 646 0.00000E+00 701 0.00000E+00 727 0.00000E+00 800 0.00000E+00 801 1.00000E+00 802 0.00000E+00 803 0.00000E+00 804 0.00000E+00 805 0.00000E+00 806 0.00000E+00 807 1.00000E+00 808 0.00000E+00 809 8.00000E+01 810 -8.00000E+01 811 1.27000E+02 812 8.00000E+00 813 1.00000E+01 814 1.60000E+02 998 0.00000E+00 999 2.00000E+00 1000 1.60000E+01 CUT 2 -5.00000E-01 3 -2.00000E-01 4 -2.00000E-01 22 -2.00000E-01 24 -2.00000E-01 26 -2.00000E-01 100 -1.00000E+00 101 -2.80000E-01 127 -2.00000E-01 TURN 2 4.50000E+01 3 7.00000E+01 4 7.50000E+01 12 8.50000E+01 22 4.50000E+01 24 5.00000E+01 26 5.00000E+01 27 5.00000E+01 99 9.90000E+01 101 5.00000E+01 201 7.00000E+01 INC 27 450 SPD 1 2.10000E+01, 2.10000E+01 2 1.40000E+01, 1.40000E+01 3 5.00000E+00, 5.00000E+00 PWR 1 100, 100 STRG 1 _ 2 300-2462-03 'C' 3  333 L104C 340 8-16-07 555 NORMAL 1000 Y DLTA 900 -440, -5077 998 0, 0 999 0, 15240 SCAL 1 1.00000E+01 2 1.70000E+01 333 0.00000E+00