HEADING: H2568B (H2568B.AS) COARSE TRIM/SCRUB R1-R4 5-9-97 SH STEP 1 GOTO STEP 9 2 GOTO STEP 207 3 GOTO STEP 238 4 GOSU STEP 150 5 GOTO STEP 9 6 GOTO STEP 138 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 98 3.00000E+00 1.00000E+01 1.00580E+04 2.84500E+03 12 LET DLTA 900 = POS 900 - POS 899 13 DISP DLTA 900 14 MOVE POS 899 SPD 0 15 REM "*********SPARK GAP ROUTINE**********" 16 MOVE POS 202 SPD 0 17 NIBL DLTA 1 POS 203 DENS 700 BRAN 0 18 MOVE POS 204 SPD 0 19 NIBL DLTA 1 POS 205 DENS 700 BRAN 0 20 FOR I = 5.01000E+02 TO 5.06000E+02 21 TEST UNK 500 CODE 8 TOL 500 ACC 0 REJ 24 REG 0 22 TEST UNK 500 CODE 1 TOL 500 ACC 0 REJ 24 REG 0 23 PRIN "SHORT REJ # " I 24 NEXT I 25 REM " THRUHOLE CONTINUITY TEST " 26 FOR I = 6.01000E+02 TO 6.09000E+02 27 TEST UNK 600 CODE 8 TOL 600 ACC 31 REJ 0 REG 0 28 TEST UNK 600 CODE 1 TOL 600 ACC 31 REJ 0 REG 0 29 PRIN "THRUHOLE REJECT # " I 30 LET REG 4 = 01 31 NEXT I 32 IF REG 4 # 00 THEN GOTO STEP 88 33 PRIN "INITIAL TEST" 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 1 < - 2.00000E+00 THEN GOSU STEP 192 41 IF REG 1 # 00 THEN GOTO STEP 85 42 PRIN "FINAL TEST" 43 LET M = DUM 811 44 FOR I = 01 TO M 45 IF NOM I < - 01 THEN LET I = - NOM I 46 IF MASK I = 00 THEN GOTO STEP 68 47 LET J = I * 02 48 LET K = J + 1.00000E+00 49 LET L = I + 1.00000E+02 50 MOVE POS J SPD 0 51 LET J = 02 52 LET N = 01 53 IF DUM I > - 4.50000E+01 THEN LET J = 03 54 IF DUM I > - 2.00000E+01 THEN LET J = 04 55 IF DUM I > - 1.00000E+01 THEN LET J = 05 56 IF NOM I < 2.00000E+02 THEN LET N = 02 57 IF MASK I > 01 THEN GOTO STEP 60 58 TRIM UNK I CODE J CUT I MODE I POS K DENS N BRAN 0 59 GOTO STEP 66 60 SERP UNK I CODE 6 CUT I MODE I POS K DENS N BRAN 0 61 TEST UNK I CODE 3 TOL L ACC 0 REJ 0 REG 0 62 LET J = I * 02 + 1.00000E+02 63 LET K = J + 01 64 MOVE POS J SPD 0 65 SERP UNK I CODE 6 CUT L MODE L POS K DENS 101 BRAN 0 66 TEST UNK I CODE 5 TOL L ACC 0 REJ 0 REG 2 67 IF REG 50 = 01 THEN GOSU STEP 155 68 NEXT I 69 IF REG 50 = 01 THEN GOSU STEP 163 70 IF REG 2 # 00 THEN GOTO STEP 87 71 PRIN "GOOD PART" 72 MOVE POS 800 SPD 0 73 LET J = 02 74 LET K = 03 75 LET L = 01 76 LET M = 04 77 LET DUM 805 = DUM 799 / 1.00000E+03 78 LET DUM 777 = DUM 807 / 1.00000E+02 79 LET STRG 11 = %3.3 DUM 805 80 LET STRG 10 = %2.2 DUM 777 81 LET STRG 12 = J J STRG 333 + K M STRG 11 + K J STRG 10 82 PRIN "LOT/SERIAL # IS: " STRG 12 83 CGEN DENS 4 SCAL 2 POS 801 STRG 12 84 GOTO STEP 88 85 PRIN "INITIAL REJECT" 86 GOTO STEP 88 87 PRIN "TRIM REJECT" 88 MOVE POS 899 SPD 0 89 PRIN "" 90 HAND 91 EXIT 92 LET J = I * 02 + 1.00000E+02 93 LET K = J + 01 94 LET L = I + 1.00000E+02 95 MOVE POS J SPD 0 96 TRIM UNK I CODE 4 CUT L MODE 100 POS K DENS N BRAN 0 97 EXIT 98 IF DUM 807 = 00 THEN GOTO STEP 105 99 PRIN STRG 3 100 PRIN "PROGRAM STOPPED AT PART # " DUM 807 101 PRIN STRG 3 102 PRIN "ENTER PART # YOU WANT TO START ON >" STRG 1 103 READ TTY:;DUM 808 %1.0 THEN QUIT 104 LET DUM 807 = 00 105 SHOM REG 30 106 SHOM REG 0 107 LET DUM 998 = VALU 3 108 LET DUM 999 = VALU 4 109 LET REG 990 = 00 110 LET REG 991 = 00 111 PRIN "ALIGN THETA" 112 ALIN POS 998 REF 999 REG 998 113 PRIN "ALIGN X-Y" 114 ALIN POS 0 REF 0 REG 0 115 LET DLTA 995 = DLTA 993 116 LET DLTA 998 = POS 997 - POS 999 117 GOSU STEP 142 118 LET REG 990 = REG 990 + 01 119 LET REG 991 = REG 991 + 01 120 LET REG 999 = ( REG 991 - 01 ) * DUM 999 121 LET REG 999 = REG 991 * DUM 999 - REG 999 122 LET DLTA 999 = REG 999 * DLTA 995 123 LET DLTA 998 = DLTA 998 + DLTA 999 124 GOSU STEP 142 125 IF REG 991 < ( VALU 2 - 01 ) THEN GOTO STEP 119 126 IF REG 990 = VALU 1 THEN GOTO STEP 134 127 LET DLTA 995 = DLTA 995 * ( - 01 ) 128 LET REG 999 = ( REG 990 - 01 ) * DUM 998 129 LET REG 999 = REG 990 * DUM 998 - REG 999 130 LET DLTA 997 = REG 999 * DLTA 994 131 LET DLTA 998 = DLTA 998 + DLTA 997 132 GOSU STEP 142 133 LET REG 991 = 00 134 IF REG 990 < VALU 1 THEN GOTO STEP 118 135 LET DUM 807 = 00 136 LET DUM 808 = 00 137 LET DUM 799 = DUM 799 + 01 138 SHOM REG 30 139 SHOM REG 31 140 SHOM REG 32 141 QUIT 142 LET DUM 807 = DUM 807 + 01 143 IF DUM 808 > DUM 807 THEN EXIT 144 SMOV DLTA 998 SPD 0 REG 0 145 LET DLTA 998 = 00 146 PRIN "" 147 PRIN "PART # " DUM 807 148 GOSU STEP 12 149 EXIT 150 LET REG 50 = 01 151 PRIN STRG 3 "DRIFT TEST ON" STRG 3 152 LET DUM 805 = ( DUM 812 + DUM 813 ) / DUM 812 153 LET DUM 804 = ( 1.20000E+02 - DUM 805 ) - ( DUM 812 + DUM 813 ) 154 EXIT 155 GOSU STEP 188 01 156 TEST UNK I CODE 2 TOL I ACC 0 REJ 0 REG 0 157 LET J = I + 3.00000E+02 158 LET NOM J = NOM I + ( DUM I / 1.00000E+02 * NOM I ) 159 TEST UNK 300 CODE 10 TOL I ACC 0 REJ 0 REG 0 160 LET NOM J = NOM J + ( DUM I / 1.00000E+02 * NOM J ) 161 PRIN BIT 11 "R" I " NOM" J "=" NOM J 162 EXIT 163 LET M = DUM 811 164 GOSU STEP 187 DUM 804 165 GOSU STEP 177 01 166 GOSU STEP 171 02 167 PRIN "COMPLETE" STRG 3 168 LET REG 50 = 00 169 GOSU STEP 188 05 170 EXIT 171 PRIN STRG 3 "HIT PAGE THEN RETURN" STRG 1 172 READ TTY:;%1.0 THEN QUIT 173 PRIN "DRIFT TEST FOR " STRG 2 " LOT #" STRG 333  " " 174 PRIN "DRIFT IS BASED ON 120 SECONDS" 175 PRIN "WAIT TIME (SEC) " %6.2 DUM 804 176 PRIN "PAUSE TIME (SEC) " %5.2 DUM 805  " " 177 FOR N = 01 TO M 178 GOSU STEP 222 179 IF NOM J < 00 THEN GOTO STEP 185 180 IF VALU 1 = 02 THEN GOTO STEP 184 181 GOSU STEP 188 DUM 805 182 PRIN BIT 11 "TESTING R" I 183 TEST UNK 300 CODE 10 TOL I ACC 185 REJ 185 REG 0 184 PRIN "R" I " CHANGE =" %6.3 DUM I "%" 185 NEXT N 186 EXIT 187 PRIN "WAITING " VALU 1 " SECOND(S)" STRG 3 188 LET L = VALU 1 * 2.50000E+03 189 FOR K = 01 TO L 190 NEXT K 191 EXIT 192 LET M = DUM 811 193 FOR N = 01 TO M 194 GOSU STEP 222 195 IF DUM I > DUM 810 THEN IF DUM I < DUM 809 THEN GOTO STEP 198 196 PRIN "DID NOT LOG" 197 EXIT 198 NEXT N 199 PRIN "DATA LOGGING" 200 LET DUM 800 = DUM 800 + 01 201 FOR N = 01 TO M 202 GOSU STEP 222 203 LET DUM J = DUM J + DUM I 204 LET DUM K = DUM K + ( DUM I * DUM I ) 205 NEXT N 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 "LOT NUMBER IS " STRG 333 231 PRIN " "  "ENTER TODAY'S DATE >" STRG 1 232 READ TTY:;"_" STRG 350 %1.0 THEN QUIT 233 PRIN "DATE IS: " STRG 350 234 PRIN STRG 3 235 LET DUM 801 = 01 236 PRIN "POSITIONS SET FOR 16 PHASE ONLY" 237 QUIT 238 GOSU STEP 256 239 LET M = DUM 811 240 FOR N = 01 TO M 241 GOSU STEP 222 242 LET DUM 804 = DUM J / DUM 800 243 LET DUM 805 = ( DUM K - ( DUM J * DUM J / DUM 800 ) ) 244 LET DUM 805 = SQRT ( DUM 805 * DUM 805 ) 245 LET DUM 805 = SQRT ( DUM 805 / ( DUM 800 - 01 ) ) 246 LET DUM 806 = ( 1.00000E+02 + DUM 804 ) * NOM I / 1.00000E+02 247 LET DUM 803 = I 248 PRIN "R" %3.0 DUM 803 " " %6.3 DUM 804 " " %6.4 DUM 805 STRG 1 249 LET DUM 805 = - 2.50000E+01 250 IF TOL I > - 5.00000E+01 THEN LET DUM 805 = TOL I * 5.00000E-01 251 IF NOM J < 00 THEN IF ! TOL I # 00 THEN LET DUM 805 = 00 252 LET DUM 803 = DUM 804 - DUM 805 253 PRIN %12.3 DUM 806 %12.3 NOM I " " %4.2 DUM 803 " " %4.2 DUM 805 254 NEXT N 255 QUIT 256 PRIN STRG 2 " PRE-TRIM TEST DATA ON" DUM 800 "PARTS" STRG 1 257 PRIN " " 258 PRIN " DATE: " STRG 350 259 PRIN "LOT #: " STRG 333 260 PRIN " " 261 PRIN " AVE % DEV STD % DEV AVERAGE OHMS" STRG 1 262 PRIN " NOMINAL % OFF > TARGET" 263 PRIN " " 264 EXIT MODE 1 TURN 1 CROS 1 INC 1 2 TURN 1 CROS 2 INC 2 3 TURN 1 CROS 3 INC 3 4 TURN 1 CROS 4 INC 4 5 TURN 5 CROS 0 INC 5 6 TURN 6 CROS 0 INC 6 7 TURN 7 CROS 0 INC 0 99 TURN 99 CROS 0 INC 99 100 TURN 0 CROS 0 INC 0 101 TURN 1 CROS 0 INC 101 102 TURN 2 CROS 0 INC 102 103 TURN 3 CROS 0 INC 103 104 TURN 4 CROS 0 INC 104 700 TURN 700 CROS 0 INC 700 DENS 1 SPD 1 PWR 1 2 SPD 2 PWR 1 4 SPD 4 PWR 1 99 SPD 99 PWR 1 100 SPD 100 PWR 1 101 SPD 101 PWR 1 700 SPD 700 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 6 NOM 6 SCAN 6 MAT 0 FUNC 0 DUM 6 7 NOM 7 SCAN 7 MAT 0 FUNC 0 DUM 7 200 NOM 200 SCAN I MAT 0 FUNC 0 DUM 200 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 700 NOM 700 SCAN 1 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 011 998 -01 999 05435 MASK 1 04 2 04 3 04 4 04 5 01 6 01 7 01 POS 2 3400, 1300 3 4570, 1024 4 1035, 1100 5 1280, 762 6 4570, -1270 7 3400, -981 8 1280, -1090 9 1030, -721 10 3985, 281 11 4102, 629 12 4060, -263 13 3929, -584 14 -2569, 275 15 -3128, 406 100 1632, -2045 102 3405, 1300 103 4565, 1024 104 1035, 1100 105 1275, 762 106 4565, -1270 107 3405, -981 108 1275, -1090 109 1035, -721 110 4855, 970 111 4596, 1237 112 4596, 351 113 4855, 96 202 4710, 115 203 4880, 115 204 4710, -100 205 4880, -100 800 -3695, 1286 801 -4838, 1286 802 -3500, -855 803 -4430, -855 899 2944, 1327 900 3822, -1398 997 11407, -9600 998 -12497, 18606 999 16673, 18606 REF 999 POS 999 NOM 1 8.00000E+04 2 2.00000E+04 3 8.00000E+04 4 2.00000E+04 5 7.50000E+01 6 7.50000E+01 7 5.00000E+01 200 1.71114E+04 301 7.96645E+04 302 1.99324E+04 303 7.96665E+04 304 1.99337E+04 305 7.44936E+01 306 7.44800E+01 307 4.98330E+01 402 9.73804E+04 500 2.00000E+00 600 5.00000E+00 700 2.00000E+05 SCAN 1 16, 13, 0, 0 2 16, 17, 0, 0 3 8, 11, 0, 0 4 8, 7, 0, 0 5 14, 15, 0, 0 6 11, 8, 0, 0 7 21, 2, 0, 0 501 12, 23, 0, 0 502 0, 12, 0, 0 503 1, 12, 0, 0 504 3, 12, 0, 0 505 12, 5, 0, 0 506 6, 12, 0, 0 601 12, 2, 0, 0 602 12, 20, 0, 0 603 5, 12, 0, 0 604 18, 12, 0, 0 605 12, 16, 0, 0 606 1, 19, 0, 0 607 1, 3, 0, 0 608 1, 18, 0, 0 609 7, 0, 0, 0 CODE 1 2, 2, 0, 0 2 3, 2, 0, 0 3 3, 3, 100, 0 4 3, 4, 100, 0 5 3, 5, 100, 0 6 3, 6, 100, 0 7 3, 7, 125, 0 8 8, 2, 0, 0 10 3, 8, 200, 0 104 3, 7, 50, 0 105 3, 7, 75, 0 700 2, 2, 0, 0 TOL 1 -5.00000E+01, 1.20000E-01 2 -5.00000E+01, 1.20000E-01 3 -5.00000E+01, 1.20000E-01 4 -5.00000E+01, 1.20000E-01 5 -5.00000E+01, 4.50000E+00 6 -5.00000E+01, 4.50000E+00 7 -5.00000E+01, 4.50000E+00 101 -1.00000E+00, 1.20000E-01 102 -1.00000E+00, 1.20000E-01 103 -1.00000E+00, 1.20000E-01 104 -1.00000E+00, 1.20000E-01 105 -4.00000E+00, 4.00000E+00 106 -4.00000E+00, 4.00000E+00 107 -4.00000E+00, 4.00000E+00 500 -1.50000E+02, 1.50000E+02 600 -1.00000E+02, 0.00000E+00 DUM 1 0.00000E+00 2 0.00000E+00 3 0.00000E+00 4 0.00000E+00 5 0.00000E+00 6 0.00000E+00 7 0.00000E+00 200 0.00000E+00 301 0.00000E+00 302 0.00000E+00 303 0.00000E+00 304 0.00000E+00 305 0.00000E+00 306 0.00000E+00 307 0.00000E+00 555 6.00000E-01 601 0.00000E+00 602 0.00000E+00 603 0.00000E+00 604 0.00000E+00 605 0.00000E+00 606 0.00000E+00 607 0.00000E+00 777 3.00000E-01 799 1.10000E+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 8.00000E+01 810 -8.00000E+01 811 7.00000E+00 812 7.00000E+00 813 7.00000E+00 814 1.60000E+02 998 1.00580E+04 999 2.84500E+03 CUT 1 -7.00000E-01 2 -6.50000E-01 3 -7.00000E-01 4 -6.50000E-01 5 -7.00000E-01 6 -7.00000E-01 7 -3.00000E-01 101 -3.00000E-01 102 -3.00000E-01 103 -3.00000E-01 104 -4.00000E-01 105 -4.00000E-01 106 -4.00000E-01 201 1.00000E+00 700 9.90000E+01 TURN 1 9.90000E+01 2 9.90000E+01 3 9.90000E+01 4 9.90000E+01 5 4.50000E+01 6 4.50000E+01 7 3.50000E+01 99 9.90000E+01 700 9.90000E+01 CROS 1 -1.00000E+00 2 -1.00000E+00 3 -1.00000E+00 4 -1.00000E+00 101 -1.20000E+00 201 -1.00000E-01 INC 1 2 2 2 3 2 4 2 5 2 6 2 99 4 101 5 102 4 103 5 104 4 105 3 106 3 700 1 SPD 1 1.50000E+01, 1.50000E+01 2 6.00000E+00, 6.00000E+00 4 6.00000E+00, 6.00000E+00 99 5.00000E+01, 5.00000E+01 100 0.00000E+00, 9.00000E+00 101 3.00000E+01, 3.00000E+01 700 8.00000E+00, 8.00000E+00 PWR 1 100, 100 STRG 1 _ 2 H2568B PASS A 3  10 .30 11 .010 12 E301030 333 EE3 340 0 350 9 MAY 97 1000 Y DLTA 1 170, 0 2 -170, 0 900 878, -2725 993 0, 1 994 -1, 0 995 0, 1 996 0, 0 997 -10058, 0 998 0, 0 999 0, 2845 SCAL 1 7.50000E+00 2 6.00000E+00 333 0.00000E+00