HEADING: H2568B (H2568B.A) COARSE TRIM/BX TRM R1-R4 11-20-96 SH STEP 1 GOTO STEP 17 3 GOTO STEP 423 5 GOTO STEP 485 7 GOSU STEP 309 9 GOTO STEP 17 11 GOTO STEP 285 13 GOTO STEP 465 15 IF DUM 807 = 00 THEN LET DUM 807 = 01 17 IF DUM 801 = 00 THEN GOTO STEP 465 19 MOVE POS 100 SPD 0 21 GOSU STEP 205 3.00000E+00 1.00000E+01 1.00580E+04 2.84500E+03 23 LET DLTA 900 = POS 900 - POS 899 25 DISP DLTA 900 27 MOVE POS 899 SPD 0 29 REM "*********SPARK GAP ROUTINE**********" 31 FOR I = 1.01000E+02 TO 1.02000E+02 33 LET J = I * 02 35 LET K = J + 01 37 MOVE POS J SPD 0 39 SERP UNK 700 CODE 700 CUT 700 MODE 700 POS K DENS 700 BRAN 0 41 GOTO STEP 47 43 MOVE POS K SPD 0 45 SERP UNK 700 CODE 700 CUT 700 MODE 700 POS J DENS 700 BRAN 0 47 NEXT I 49 GOTO STEP 77 51 FOR I = 5.01000E+02 TO 5.06000E+02 53 TEST UNK 500 CODE 8 TOL 500 ACC 0 REJ 59 REG 0 55 TEST UNK 500 CODE 1 TOL 500 ACC 0 REJ 59 REG 0 57 PRIN "SHORT REJ # " I 59 NEXT I 61 REM " THRUHOLE CONTINUITY TEST " 63 FOR I = 6.01000E+02 TO 6.09000E+02 65 TEST UNK 600 CODE 8 TOL 600 ACC 73 REJ 0 REG 0 67 TEST UNK 600 CODE 1 TOL 600 ACC 73 REJ 0 REG 0 69 PRIN "THRUHOLE REJECT # " I 71 LET REG 4 = 01 73 NEXT I 75 IF REG 4 # 00 THEN GOTO STEP 185 77 PRIN "INITIAL TEST" 79 LET M = DUM 811 81 FOR I = 01 TO M 83 IF NOM I < - 01 THEN LET I = - NOM I 85 TEST UNK I CODE 3 TOL I ACC 89 REJ 0 REG 0 87 TEST UNK I CODE 1 TOL I ACC 0 REJ 0 REG 1 89 NEXT I 91 IF DUM 1 < - 2.00000E+00 THEN GOSU STEP 393 93 IF REG 1 # 00 THEN GOTO STEP 179 95 PRIN "FINAL TEST" 97 LET M = DUM 811 99 FOR I = 01 TO M 101 IF NOM I < - 01 THEN LET I = - NOM I 103 IF MASK I = 00 THEN GOTO STEP 145 105 IF MASK I # - 01 THEN GOTO STEP 109 107 LET NOM 200 = NOM I + ( NOM I * DUM I * TURN I / 1.00000E+04 ) 109 LET J = I * 02 111 LET K = J + 1.00000E+00 113 LET L = I + 1.00000E+02 115 MOVE POS J SPD 0 117 LET J = 02 119 LET N = 01 121 IF DUM I > - 4.50000E+01 THEN LET J = 03 123 IF DUM I > - 2.00000E+01 THEN LET J = 04 125 IF DUM I > - 1.00000E+01 THEN LET J = 05 127 IF NOM I < 2.00000E+02 THEN LET N = 02 129 IF MASK I # - 01 THEN GOTO STEP 137 131 TRIM UNK 200 CODE 104 CUT 201 MODE 201 POS K DENS 100 BRAN 0 133 TRIM UNK 200 CODE 105 CUT 101 MODE 101 POS K DENS 100 BRAN 0 135 TRIM UNK I CODE J CUT I MODE I POS K DENS 101 BRAN 0 136 GOSU STEP 550 137 TRIM UNK I CODE J CUT I MODE I POS K DENS N BRAN 0 139 TEST UNK I CODE 6 TOL L ACC 143 REJ 0 REG 0 141 TEST UNK I CODE 1 TOL L ACC 0 REJ 0 REG 2 143 IF REG 50 = 01 THEN GOSU STEP 319 145 NEXT I 147 IF REG 50 = 01 THEN GOSU STEP 335 149 IF REG 2 # 00 THEN GOTO STEP 183 151 PRIN "GOOD PART" 153 MOVE POS 800 SPD 0 155 LET J = 02 157 LET K = 03 159 LET L = 01 161 LET M = 04 163 LET DUM 805 = DUM 799 / 1.00000E+03 165 LET DUM 777 = DUM 807 / 1.00000E+02 167 LET STRG 11 = %3.3 DUM 805 169 LET STRG 10 = %2.2 DUM 777 171 LET STRG 12 = J J STRG 333 + K M STRG 11 + K J STRG 10 173 PRIN "LOT/SERIAL # IS: " STRG 12 175 CGEN DENS 4 SCAL 2 POS 801 STRG 12 177 GOTO STEP 185 179 PRIN "INITIAL REJECT" 181 GOTO STEP 185 183 PRIN "TRIM REJECT" 185 MOVE POS 899 SPD 0 187 PRIN "" 189 HAND 191 EXIT 193 LET J = I * 02 + 1.00000E+02 195 LET K = J + 01 197 LET L = I + 1.00000E+02 199 MOVE POS J SPD 0 201 TRIM UNK I CODE 4 CUT L MODE 100 POS K DENS N BRAN 0 203 EXIT 205 IF DUM 807 = 00 THEN GOTO STEP 219 207 PRIN STRG 3 209 PRIN "PROGRAM STOPPED AT PART # " DUM 807 211 PRIN STRG 3 213 PRIN "ENTER PART # YOU WANT TO START ON >" STRG 1 215 READ TTY:;DUM 808 %1.0 THEN QUIT 217 LET DUM 807 = 00 219 SHOM REG 30 221 SHOM REG 0 223 LET DUM 998 = VALU 3 225 LET DUM 999 = VALU 4 227 LET REG 990 = 00 229 LET REG 991 = 00 231 PRIN "ALIGN THETA" 233 ALIN POS 998 REF 999 REG 998 235 PRIN "ALIGN X-Y" 237 ALIN POS 0 REF 0 REG 0 239 LET DLTA 995 = DLTA 993 241 LET DLTA 998 = POS 997 - POS 999 243 GOSU STEP 293 245 LET REG 990 = REG 990 + 01 247 LET REG 991 = REG 991 + 01 249 LET REG 999 = ( REG 991 - 01 ) * DUM 999 251 LET REG 999 = REG 991 * DUM 999 - REG 999 253 LET DLTA 999 = REG 999 * DLTA 995 255 LET DLTA 998 = DLTA 998 + DLTA 999 257 GOSU STEP 293 259 IF REG 991 < ( VALU 2 - 01 ) THEN GOTO STEP 247 261 IF REG 990 = VALU 1 THEN GOTO STEP 277 263 LET DLTA 995 = DLTA 995 * ( - 01 ) 265 LET REG 999 = ( REG 990 - 01 ) * DUM 998 267 LET REG 999 = REG 990 * DUM 998 - REG 999 269 LET DLTA 997 = REG 999 * DLTA 994 271 LET DLTA 998 = DLTA 998 + DLTA 997 273 GOSU STEP 293 275 LET REG 991 = 00 277 IF REG 990 < VALU 1 THEN GOTO STEP 245 279 LET DUM 807 = 00 281 LET DUM 808 = 00 283 LET DUM 799 = DUM 799 + 01 285 SHOM REG 30 287 SHOM REG 31 289 SHOM REG 32 291 QUIT 293 LET DUM 807 = DUM 807 + 01 295 IF DUM 808 > DUM 807 THEN EXIT 297 SMOV DLTA 998 SPD 0 REG 0 299 LET DLTA 998 = 00 301 PRIN "" 303 PRIN "PART # " DUM 807 305 GOSU STEP 23 307 EXIT 309 LET REG 50 = 01 311 PRIN STRG 3 "DRIFT TEST ON" STRG 3 313 LET DUM 805 = ( DUM 812 + DUM 813 ) / DUM 812 315 LET DUM 804 = ( 1.20000E+02 - DUM 805 ) - ( DUM 812 + DUM 813 ) 317 EXIT 319 GOSU STEP 385 01 321 TEST UNK I CODE 2 TOL I ACC 0 REJ 0 REG 0 323 LET J = I + 3.00000E+02 325 LET NOM J = NOM I + ( DUM I / 1.00000E+02 * NOM I ) 327 TEST UNK 300 CODE 10 TOL I ACC 0 REJ 0 REG 0 329 LET NOM J = NOM J + ( DUM I / 1.00000E+02 * NOM J ) 331 PRIN BIT 11 "R" I " NOM" J "=" NOM J 333 EXIT 335 LET M = DUM 811 337 GOSU STEP 383 DUM 804 339 GOSU STEP 363 01 341 GOSU STEP 351 02 343 PRIN "COMPLETE" STRG 3 345 LET REG 50 = 00 347 GOSU STEP 385 05 349 EXIT 351 PRIN STRG 3 "HIT PAGE THEN RETURN" STRG 1 353 READ TTY:;%1.0 THEN QUIT 355 PRIN "DRIFT TEST FOR " STRG 2 " LOT #" STRG 333  " " 357 PRIN "DRIFT IS BASED ON 120 SECONDS" 359 PRIN "WAIT TIME (SEC) " %6.2 DUM 804 361 PRIN "PAUSE TIME (SEC) " %5.2 DUM 805  " " 363 FOR N = 01 TO M 365 GOSU STEP 453 367 IF NOM J < 00 THEN GOTO STEP 379 369 IF VALU 1 = 02 THEN GOTO STEP 377 371 GOSU STEP 385 DUM 805 373 PRIN BIT 11 "TESTING R" I 375 TEST UNK 300 CODE 10 TOL I ACC 379 REJ 379 REG 0 377 PRIN "R" I " CHANGE =" %6.3 DUM I "%" 379 NEXT N 381 EXIT 383 PRIN "WAITING " VALU 1 " SECOND(S)" STRG 3 385 LET L = VALU 1 * 2.50000E+03 387 FOR K = 01 TO L 389 NEXT K 391 EXIT 393 LET M = DUM 811 395 FOR N = 01 TO M 397 GOSU STEP 453 399 IF DUM I > DUM 810 THEN IF DUM I < DUM 809 THEN GOTO STEP 405 401 PRIN "DID NOT LOG" 403 EXIT 405 NEXT N 407 PRIN "DATA LOGGING" 409 LET DUM 800 = DUM 800 + 01 411 FOR N = 01 TO M 413 GOSU STEP 453 415 LET DUM J = DUM J + DUM I 417 LET DUM K = DUM K + ( DUM I * DUM I ) 419 NEXT N 421 EXIT 423 LET M = DUM 811 425 FOR N = 01 TO M 427 GOSU STEP 453 429 LET DUM I = 00 431 LET DUM J = 00 433 LET DUM K = 00 435 NEXT N 437 FOR I = 8.00000E+02 TO 8.08000E+02 439 LET DUM I = 00 441 NEXT I 443 PRIN STRG 3 "ARE YOU GOING TO RE-SAVE THIS PROGRAM NOW ?" STRG 1 445 READ TTY:;"_" STRG 1000 %1.0 THEN QUIT 447 IF STRG 1000 # "Y" THEN LET DUM 801 = 01 449 PRIN "DUMMIES ZEROED" STRG 3 451 QUIT 453 IF NOM N < 00 THEN LET N = - NOM N 455 LET I = N 457 LET J = I + 3.00000E+02 459 LET K = I + 6.00000E+02 461 LET L = I + 1.00000E+02 463 EXIT 465 PRIN STRG 3 "ENTER LOT NUMBER >" STRG 1 467 READ TTY:;"_" STRG 333 %1.0 THEN QUIT 469 PRIN "LOT NUMBER IS " STRG 333 471 PRIN " "  "ENTER TODAY'S DATE >" STRG 1 473 READ TTY:;"_" STRG 350 %1.0 THEN QUIT 475 PRIN "DATE IS: " STRG 350 477 PRIN STRG 3 479 LET DUM 801 = 01 481 PRIN "POSITIONS SET FOR 16 PHASE ONLY" 483 QUIT 485 GOSU STEP 521 487 LET M = DUM 811 489 FOR N = 01 TO M 491 GOSU STEP 453 493 LET DUM 804 = DUM J / DUM 800 495 LET DUM 805 = ( DUM K - ( DUM J * DUM J / DUM 800 ) ) 497 LET DUM 805 = SQRT ( DUM 805 * DUM 805 ) 499 LET DUM 805 = SQRT ( DUM 805 / ( DUM 800 - 01 ) ) 501 LET DUM 806 = ( 1.00000E+02 + DUM 804 ) * NOM I / 1.00000E+02 503 LET DUM 803 = I 505 PRIN "R" %3.0 DUM 803 " " %6.3 DUM 804 " " %6.4 DUM 805 STRG 1 507 LET DUM 805 = - 2.50000E+01 509 IF TOL I > - 5.00000E+01 THEN LET DUM 805 = TOL I * 5.00000E-01 511 IF NOM J < 00 THEN IF ! TOL I # 00 THEN LET DUM 805 = 00 513 LET DUM 803 = DUM 804 - DUM 805 515 PRIN %12.3 DUM 806 %12.3 NOM I " " %4.2 DUM 803 " " %4.2 DUM 805 517 NEXT N 519 QUIT 521 PRIN STRG 2 " PRE-TRIM TEST DATA ON" DUM 800 "PARTS" STRG 1 523 PRIN " " 525 PRIN " DATE: " STRG 350 527 PRIN "LOT #: " STRG 333 529 PRIN " " 531 PRIN " AVE % DEV STD % DEV AVERAGE OHMS" STRG 1 533 PRIN " NOMINAL % OFF > TARGET" 535 PRIN " " 537 EXIT 540 IF I < 03 THEN GOTO STEP 550 542 IF I > 02 THEN GOTO STEP 562 550 NIBL DLTA 800 POS J DENS 800 BRAN 0 552 NIBL DLTA 801 POS J DENS 800 BRAN 560 554 NIBL DLTA 802 POS J DENS 800 BRAN 574 556 NIBL DLTA 803 POS J DENS 1 BRAN 0 558 GOTO STEP 552 560 EXIT 562 NIBL DLTA 804 POS J DENS 800 BRAN 0 564 NIBL DLTA 805 POS J DENS 800 BRAN 572 566 NIBL DLTA 806 POS J DENS 800 BRAN 582 568 NIBL DLTA 807 POS J DENS 1 BRAN 0 570 GOTO STEP 564 572 EXIT 574 NIBL DLTA 809 POS J DENS 800 BRAN 0 576 NIBL DLTA 810 POS J DENS 1 BRAN 0 578 GOTO STEP 552 580 EXIT 582 NIBL DLTA 811 POS J DENS 800 BRAN 0 584 NIBL DLTA 812 POS J DENS 1 BRAN 0 586 GOTO STEP 564 588 EXIT MODE 1 TURN 0 CROS 1 INC 1 2 TURN 0 CROS 2 INC 2 3 TURN 0 CROS 3 INC 3 4 TURN 0 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 0 CROS 101 INC 101 102 TURN 99 CROS 0 INC 102 103 TURN 99 CROS 0 INC 103 104 TURN 99 CROS 0 INC 104 201 TURN 0 CROS 201 INC 0 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 199 SPD 199 PWR 1 700 SPD 700 PWR 1 800 SPD 800 PWR 0 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 00 991 00 998 -01 999 05435 MASK 1 -01 2 -01 3 -01 4 -01 5 01 6 01 7 01 POS 2 4624, 1408 3 3406, 1024 4 1267, 1172 5 1017, 762 6 3532, -1394 7 4723, -981 8 979, -1196 9 1222, -721 10 3990, 281 11 4102, 629 12 4075, -263 13 3929, -584 14 -2569, 286 15 -3128, 406 100 4341, 222 102 3851, 1530 103 5140, 1210 104 1405, 1334 105 1735, 978 106 5110, -1088 107 3860, -751 108 1725, -872 109 1410, -485 110 4855, 970 111 4596, 1237 112 4596, 351 113 4855, 96 202 4510, 125 203 4680, 115 204 4510, -95 205 4680, -105 800 -3695, 1286 801 -4838, 1286 802 -3500, -855 803 -4430, -855 899 2944, 1327 900 2944, 1327 997 10317, -7007 998 -9996, 20730 999 19170, 20730 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 5.67304E+04 301 7.99285E+04 302 1.99890E+04 303 7.99265E+04 304 1.99879E+04 305 7.44897E+01 306 7.45600E+01 307 4.98115E+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 13, 15, 0, 0 6 9, 11, 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 -3.67200E+01 2 -3.33600E+01 3 -3.42200E+01 4 -3.50200E+01 5 -2.63333E+01 6 -2.55833E+01 7 -3.17031E+01 200 0.00000E+00 301 -3.67000E+01 302 -3.33400E+01 303 -3.42200E+01 304 -3.50200E+01 305 -2.63333E+01 306 -2.55833E+01 307 -3.17031E+01 555 6.00000E-01 601 1.34689E+03 602 1.11155E+03 603 1.17101E+03 604 1.22640E+03 605 6.93444E+02 606 6.54507E+02 607 1.00509E+03 777 3.00000E-01 799 1.00000E+00 800 1.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 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 -5.00000E-01 2 -5.00000E-01 3 -5.00000E-01 4 -5.00000E-01 5 -7.00000E-01 6 -7.00000E-01 7 -3.00000E-01 101 0.00000E+00 102 -8.00000E-02 103 -8.00000E-02 104 -8.00000E-02 105 -4.00000E-01 106 -4.00000E-01 201 1.00000E+00 700 9.90000E+01 TURN 1 8.50000E+01 2 4.50000E+01 3 8.50000E+01 4 4.50000E+01 5 4.50000E+01 6 4.50000E+01 7 3.00000E+01 99 9.90000E+01 700 9.90000E+01 CROS 1 -3.00000E-01 2 -3.00000E-01 3 -3.00000E-01 4 -3.00000E-01 101 -1.20000E+00 201 -1.00000E-01 INC 1 15 2 5 3 15 4 5 5 2 6 2 99 4 101 5 102 2 103 4 104 2 105 3 106 3 700 1 SPD 1 0.00000E+00, 9.00000E+00 2 9.00000E+00, 9.00000E+00 4 4.00000E+00, 4.00000E+00 99 5.00000E+01, 5.00000E+01 100 0.00000E+00, 9.00000E+00 101 9.00000E+00, 0.00000E+00 199 1.20000E+01, 1.20000E+01 700 1.50000E+01, 1.50000E+01 800 3.00000E+02, 3.00000E+02 PWR 1 100, 100 STRG 1 _ 2 H2568B PASS A 3  10 .30 11 .002 12 E100230 333 EE1 340 0 350 20 NOV 96 1000 Y DLTA 800 0, 8 801 100, 0 802 0, 250 803 0, -250 804 0, -8 805 -100, 0 806 0, -250 807 0, 250 809 0, 150 810 0, -150 811 0, -150 812 0, 150 900 0, 0 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