HEADING:200-2559-02 "A PASS" (P20506.A1) S&R 25'S 18-APR-2003 BOB STEP 1 GOTO STEP 9 2 GOTO STEP 194 3 GOTO STEP 172 4 GOSU STEP 115 5 GOTO STEP 9 6 GOTO STEP 104 7 GOTO STEP 215 8 IF DUM 807 = 00 THEN LET DUM 807 = 01 9 IF DUM 801 = 00 THEN GOTO STEP 215 10 MOVE POS 300 SPD 0 11 GOSU STEP 83 12 LET DLTA 900 = POS 900 - POS 899 13 DISP DLTA 900 14 MOVE POS 899 SPD 0 15 IF BIT 4 = 01 THEN GOTO STEP 33 16 REM "***** SPARK GAP *****" 17 FOR I = 1.01000E+02 TO 1.01000E+02 18 LET J = I * 02 19 LET K = J + 01 20 MOVE POS J SPD 0 21 SERP UNK 700 CODE 700 CUT 700 MODE 700 POS K DENS 700 BRAN 0 22 MOVE POS K SPD 0 23 SERP UNK 700 CODE 700 CUT 700 MODE 701 POS J DENS 701 BRAN 0 24 NEXT I 25 LET M = DUM 811 26 FOR I = 01 TO M 27 IF NOM I < - 01 THEN LET I = - NOM I 28 TEST UNK I CODE 3 TOL I ACC 30 REJ 0 REG 0 29 TEST UNK I CODE 1 TOL I ACC 0 REJ 0 REG 1 30 NEXT I 31 IF DUM 6 < - 2.00000E+00 THEN GOSU STEP 157 32 IF REG 1 # 00 THEN GOTO STEP 71 33 LET M = DUM 811 34 FOR I = 01 TO M 35 IF NOM I < - 01 THEN LET I = - NOM I 36 IF MASK I = 00 THEN GOTO STEP 62 37 LET J = I * 2.00000E+00 38 LET K = J + 1.00000E+00 39 LET L = I + 1.00000E+02 40 IF BIT 4 = 01 THEN GOTO STEP 58 41 MOVE POS J SPD 0 42 LET J = 02 43 IF DUM I > - 4.50000E+01 THEN LET J = 03 44 IF DUM I > - 2.00000E+01 THEN LET J = 04 45 IF DUM I > - 1.00000E+01 THEN LET J = 05 46 IF MASK I = 05 THEN GOTO STEP 225 47 IF MASK I > 02 THEN IF MASK I < 05 THEN GOTO STEP 50 48 TRIM UNK I CODE J CUT I MODE I POS K DENS 1 BRAN 0 49 GOTO STEP 57 50 SERP UNK I CODE 7 CUT I MODE 99 POS K DENS 99 BRAN 0 51 TEST UNK 6 CODE 5 TOL I ACC 0 REJ 0 REG 0 52 LET CUT 106 = DUM 6 + CUT 222 53 IF CUT 106 < CUT 601 THEN LET CUT 106 = CUT 601 54 IF CUT 106 > CUT 602 THEN LET CUT 106 = CUT 602 55 MOVE POS 112 SPD 0 56 SERP UNK 6 CODE 7 CUT 106 MODE 199 POS 113 DENS 199 BRAN 0 57 IF MASK I > 01 THEN IF MASK I < 04 THEN GOSU STEP 77 58 TEST UNK I CODE 5 TOL L ACC 61 REJ 0 REG 0 59 IF BIT 4 = 01 THEN GOTO STEP 74 60 TEST UNK I CODE 1 TOL L ACC 0 REJ 0 REG 2 61 IF REG 50 = 01 THEN GOSU STEP 120 62 NEXT I 63 IF REG 50 = 01 THEN GOSU STEP 128 64 IF REG 2 # 00 THEN GOTO STEP 73 65 PRIN "GOOD PART" 66 FOR I = 01 TO 02 67 MOVE POS 800 SPD 0 68 CGEN DENS 1 SCAL 1 POS 801 STRG 333 69 NEXT I 70 GOTO STEP 74 71 PRIN STRG 3 "INITIAL REJECT" 72 GOTO STEP 74 73 PRIN STRG 3 "TRIM REJECT" 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 SERP UNK 0 CODE 7 CUT 0 MODE 0 POS 0 DENS 0 BRAN 0 82 EXIT 83 IF DUM 807 = 00 THEN GOTO STEP 90 84 PRIN STRG 3 85 PRIN "PROGRAM STOPPED AT PART # " DUM 807 86 PRIN STRG 3 87 PRIN "ENTER PART # YOU WANT TO START ON >" STRG 1 88 READ TTY:;DUM 808 %1.0 THEN QUIT 89 LET DUM 807 = 00 90 SHOM REG 30 91 SHOM REG 0 92 PRIN "ALIGN THETA" 93 ALIN POS 998 REF 999 REG 998 94 PRIN "ALIGN X-Y" 95 ALIN POS 0 REF 0 REG 0 96 LET DLTA 998 = POS 997 - POS 999 97 GOTO STEP 100 98 LET J = 9.99000E+02 99 LET DLTA 998 = DLTA 998 + DLTA J 100 GOSU STEP 108 101 IF DUM 807 < DUM 999 THEN GOTO STEP 98 102 LET DUM 807 = 00 103 LET DUM 808 = 00 104 SHOM REG 30 105 SHOM REG 31 106 SHOM REG 32 107 QUIT 108 LET DUM 807 = DUM 807 + 01 109 IF DUM 808 > DUM 807 THEN EXIT 110 SMOV DLTA 998 SPD 0 REG 0 111 LET DLTA 998 = 00 112 PRIN "PART # " DUM 807 113 GOSU STEP 12 114 EXIT 115 LET REG 50 = 01 116 PRIN STRG 3 "DRIFT TEST ON" STRG 3 117 LET DUM 805 = ( DUM 812 + DUM 813 ) / DUM 812 118 LET DUM 804 = ( 1.20000E+02 - DUM 805 ) - ( DUM 812 + DUM 813 ) 119 EXIT 120 GOSU STEP 153 01 121 TEST UNK I CODE 2 TOL I ACC 0 REJ 0 REG 0 122 LET J = I + 3.00000E+02 123 LET NOM J = NOM I + ( DUM I / 1.00000E+02 * NOM I ) 124 TEST UNK 300 CODE 10 TOL I ACC 0 REJ 0 REG 0 125 LET NOM J = NOM J + ( DUM I / 1.00000E+02 * NOM J ) 126 PRIN BIT 11 "R" I " NOM" J "=" NOM J 127 EXIT 128 LET M = DUM 811 129 GOSU STEP 152 DUM 804 130 GOSU STEP 142 01 131 GOSU STEP 136 02 132 PRIN "COMPLETE" STRG 3 133 LET REG 50 = 00 134 GOSU STEP 153 05 135 EXIT 136 PRIN STRG 3 "HIT PAGE THEN RETURN" STRG 1 137 READ TTY:;%1.0 THEN QUIT 138 PRIN "DRIFT TEST FOR " STRG 2 " LOT #" STRG 333  " " 139 PRIN "DRIFT IS BASED ON 120 SECONDS" 140 PRIN "WAIT TIME (SEC) " %6.2 DUM 804 141 PRIN "PAUSE TIME (SEC) " %5.2 DUM 805  " " 142 FOR N = 01 TO M 143 GOSU STEP 209 144 IF NOM J < 00 THEN GOTO STEP 150 145 IF VALU 1 = 02 THEN GOTO STEP 149 146 GOSU STEP 153 DUM 805 147 PRIN BIT 11 "TESTING R" I 148 TEST UNK 300 CODE 10 TOL I ACC 150 REJ 150 REG 0 149 PRIN "R" I " CHANGE =" %6.3 DUM I "%" 150 NEXT N 151 EXIT 152 PRIN "WAITING " VALU 1 " SECOND(S)" STRG 3 153 LET L = VALU 1 * 2.50000E+03 154 FOR K = 01 TO L 155 NEXT K 156 EXIT 157 LET M = DUM 811 158 FOR N = 01 TO M 159 GOSU STEP 209 160 IF DUM I > DUM 810 THEN IF DUM I < DUM 809 THEN GOTO STEP 163 161 PRIN "DID NOT LOG" 162 EXIT 163 NEXT N 164 PRIN "DATA LOGGING" 165 LET DUM 800 = DUM 800 + 01 166 FOR N = 01 TO M 167 GOSU STEP 209 168 LET DUM J = DUM J + DUM I 169 LET DUM K = DUM K + ( DUM I * DUM I ) 170 NEXT N 171 EXIT 172 GOSU STEP 185 173 LET M = DUM 811 174 FOR N = 01 TO M 175 GOSU STEP 209 176 LET DUM 804 = DUM J / DUM 800 177 LET DUM 805 = ( DUM K - ( DUM J * DUM J / DUM 800 ) ) 178 LET DUM 805 = SQRT ( DUM 805 * DUM 805 ) 179 LET DUM 805 = SQRT ( DUM 805 / ( DUM 800 - 01 ) ) 180 LET DUM 806 = ( 1.00000E+02 + DUM 804 ) * NOM I / 1.00000E+02 181 PRIN "R" I " " %5.3 DUM 804 %8.3 DUM 805 STRG 1 182 PRIN %15.3 DUM 806 %15.3 NOM I 183 NEXT N 184 QUIT 185 PRIN STRG 2 " LOT " STRG 333 STRG 1 186 PRIN " RESISTOR PRETRIM DATA BASED ON" DUM 800 " PARTS" 187 PRIN " " 188 PRIN " DATE: " STRG 340 189 PRIN " " 190 PRIN " AVE DEV STD DEV AVERAGE OHMS" STRG 1 191 PRIN " NOMINAL" 192 PRIN " " 193 EXIT 194 LET M = DUM 811 195 FOR N = 01 TO M 196 GOSU STEP 209 197 LET DUM I = 00 198 LET DUM J = 00 199 LET DUM K = 00 200 NEXT N 201 FOR I = 8.00000E+02 TO 8.08000E+02 202 LET DUM I = 00 203 NEXT I 204 PRIN STRG 3 "READY TO SAVE PROGRAM ? " STRG 1 205 READ TTY:;"_" STRG 1000 %1.0 THEN QUIT 206 IF STRG 1000 # "Y" THEN LET DUM 801 = 01 207 PRIN "DUMMIES ZEROED" STRG 3 208 QUIT 209 IF NOM N < 00 THEN LET N = - NOM N 210 LET I = N 211 LET J = I + 3.00000E+02 212 LET K = I + 6.00000E+02 213 LET L = I + 1.00000E+02 214 EXIT 215 PRIN STRG 3 "ENTER LOT NUMBER >" STRG 1 216 READ TTY:;"_" STRG 333 %1.0 THEN QUIT 217 PRIN "LOT NUMBER IS " STRG 333 218 PRIN " "  "ENTER TODAY'S DATE >" STRG 1 219 READ TTY:;"_" STRG 340 %1.0 THEN QUIT 220 PRIN "DATE IS: " STRG 340 221 PRIN STRG 3 222 LET DUM 801 = 01 223 PRIN "POSITIONS SET FOR 16 PHASE ONLY" 224 QUIT 225 REM "STEPS FOR EQUAL SCAN SERP" 226 LET CUT I = DUM I / 02 227 SERP UNK I CODE J CUT I MODE 99 POS K DENS 99 BRAN 0 228 TEST UNK I CODE J TOL I ACC 0 REJ 0 REG 0 229 LET J = I * 02 + 1.00000E+02 230 LET K = J + 01 231 LET L = I + 1.00000E+02 232 MOVE POS J SPD 0 233 SERP UNK I CODE 4 CUT L MODE 99 POS K DENS 99 BRAN 0 234 GOTO STEP 57 MODE 99 TURN 99 CROS 0 INC 99 100 TURN 99 CROS 0 INC 99 199 TURN 99 CROS 0 INC 199 700 TURN 700 CROS 0 INC 700 701 TURN 700 CROS 0 INC 701 DENS 1 SPD 1 PWR 1 99 SPD 99 PWR 1 199 SPD 199 PWR 1 700 SPD 700 PWR 1 701 SPD 701 PWR 1 UNK 6 NOM 6 SCAN 6 MAT 0 FUNC 0 DUM 6 300 NOM J SCAN I MAT 0 FUNC 0 DUM I 700 NOM 700 SCAN 700 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 04 998 -01 999 00 MASK 6 04 POS 12 90, 3505 13 405, 3715 112 90, 3510 113 405, 3720 202 510, 3660 203 810, 3645 300 -1193, -1518 800 722, 1304 801 722, 1861 899 454, 3411 900 -856, -2124 997 11544, 6066 998 -17979, 15105 999 10478, 15105 REF 999 POS 999 NOM 1 -6.00000E+00 6 8.00000E+05 306 7.95676E+05 500 2.00000E+00 700 1.00000E+05 SCAN 6 23, 18, 0, 0 700 0, 0, 0, 0 CODE 1 2, 2, 0, 0 2 3, 2, 0, 0 3 3, 3, 200, 0 4 3, 4, 200, 0 5 3, 5, 200, 0 7 3, 7, 300, 0 8 8, 2, 0, 0 10 3, 8, 200, 0 700 2, 2, 0, 0 TOL 6 -5.00000E+01, 5.00000E-01 106 -5.00000E-01, 5.00000E-01 500 -1.50000E+02, 1.50000E+02 DUM 6 -9.60000E-02 222 4.00000E-01 306 -1.91632E+02 402 0.00000E+00 404 0.00000E+00 405 0.00000E+00 606 4.12438E+03 800 9.00000E+00 801 1.00000E+00 802 0.00000E+00 803 0.00000E+00 804 1.14000E+02 805 2.00000E+00 806 0.00000E+00 807 1.00000E+00 808 0.00000E+00 809 8.00000E+01 810 -8.00000E+01 811 6.00000E+00 812 2.00000E+00 813 2.00000E+00 814 1.60000E+02 998 0.00000E+00 999 1.50000E+01 1000 1.60000E+01 CUT 6 -7.50000E-01 106 -1.32000E-01 222 4.00000E-01 601 -4.00000E-01 602 2.00000E-01 700 9.90000E+01 TURN 99 9.90000E+01 700 9.90000E+01 INC 99 2 199 2 700 1 701 2 SPD 1 1.20000E+01, 1.20000E+01 99 1.00000E+01, 1.00000E+01 199 1.20000E+01, 1.20000E+01 700 1.50000E+01, 1.50000E+01 701 2.50000E+01, 2.50000E+01 PWR 1 100, 100 STRG 1 _ 2 300-2559-02 3  333 L02B 340 06/10/04 1000 Y DLTA 900 -1310, -5535 993 0, 1 994 -1, 0 995 0, 1 996 0, 0 997 0, 0 998 0, 0 999 -2032, 0 SCAL 1 5.00000E+00 333 0.00000E+00