HEADING: SERP STEP 1 GOTO STEP 9 2 GOTO STEP 660 3 GOTO STEP 630 4 GOSU STEP 500 5 GOTO STEP 9 6 GOTO STEP 439 7 GOTO STEP 990 8 IF DUM 807 = 00 THEN LET DUM 807 = 01 9 IF DUM 801 = 00 THEN GOTO STEP 990 14 HOME 15 GOSU STEP 400 2.00000E+00 2.00000E+00 1.52400E+04 1.52400E+04 16 LET DLTA 900 = POS 900 - POS 899 17 DISP DLTA 900 19 GOTO STEP 50 20 REM "** THRUHOLE CONTINUITY TEST **" 21 FOR I = 6.01000E+02 TO 6.07000E+02 22 IF BIT 10 = 01 THEN GOTO STEP 24 23 TEST UNK 600 CODE 8 TOL 600 ACC 27 REJ 0 REG 0 24 TEST UNK 600 CODE 1 TOL 600 ACC 27 REJ 0 REG 4 25 PRIN "THRU HOLE REJECT #" I 27 NEXT I 28 IF REG 4 # 00 THEN GOTO STEP 138 29 PRIN "THRUHOLES TESTED" 30 REM "** DIELECTRIC SHORT TEST **" 31 FOR I = 5.01000E+02 TO 5.50000E+02 32 TEST UNK 500 CODE 8 TOL 500 ACC 0 REJ 36 REG 0 33 TEST UNK 500 CODE 1 TOL 500 ACC 0 REJ 36 REG 0 34 PRIN "SHORT REJECT #" I 35 LET REG 3 = 01 36 NEXT I 37 IF REG 3 # 00 THEN GOTO STEP 138 38 PRIN "CROSSOVERS TESTED" 50 LET M = DUM 811 52 FOR I = 01 TO M 54 IF NOM I < - 01 THEN LET I = - NOM I 56 TEST UNK I CODE 3 TOL I ACC 60 REJ 0 REG 0 58 TEST UNK I CODE 1 TOL I ACC 0 REJ 0 REG 1 60 NEXT I 62 IF BIT 0 = 01 THEN GOSU STEP 600 64 IF REG 1 # 00 THEN GOTO STEP 124 70 LET M = DUM 811 72 FOR I = 01 TO M 74 IF NOM I < - 01 THEN LET I = - NOM I 76 IF MASK I = 00 THEN GOTO STEP 106 78 LET J = I * 2.00000E+00 80 LET K = J + 1.00000E+00 82 LET L = I + 1.00000E+02 84 MOVE POS J SPD 0 86 LET J = 02 88 IF DUM I > - 4.50000E+01 THEN LET J = 03 90 IF DUM I > - 2.00000E+01 THEN LET J = 04 91 IF DUM I > - 1.00000E+01 THEN LET J = 05 92 IF MASK I = 05 THEN GOTO STEP 1000 93 IF MASK I > 02 THEN IF MASK I < 05 THEN GOTO STEP 96 94 TRIM UNK I CODE J CUT I MODE I POS K DENS 1 BRAN 0 95 GOTO STEP 97 96 SERP UNK I CODE J CUT I MODE I POS K DENS 1 BRAN 0 97 IF MASK I > 01 THEN IF MASK I < 04 THEN GOSU STEP 150 100 TEST UNK I CODE 5 TOL L ACC 104 REJ 0 REG 0 102 TEST UNK I CODE 1 TOL L ACC 0 REJ 0 REG 2 104 IF REG 50 = 01 THEN GOSU STEP 505 106 NEXT I 108 IF REG 50 = 01 THEN GOSU STEP 515 110 IF REG 2 # 00 THEN GOTO STEP 134 112 PRIN "GOOD PART" 116 MOVE POS 800 SPD 0 118 CGEN DENS 1 SCAL 1 POS 801 "ENG" 122 GOTO STEP 138 124 PRIN "INITIAL REJECT" 126 GOTO STEP 138 134 PRIN "TRIM REJECT" 138 MOVE POS 899 SPD 0 140 HAND 142 EXIT 150 LET J = I * 02 + 1.00000E+02 152 LET K = J + 01 154 LET L = I + 1.00000E+02 156 MOVE POS J SPD 0 158 TRIM UNK I CODE 4 CUT L MODE 100 POS K DENS 1 BRAN 0 160 EXIT 400 IF DUM 807 = 00 THEN GOTO STEP 407 401 PRIN STRG 3 402 PRIN "PROGRAM STOPPED AT PART # " DUM 807 403 PRIN STRG 3 404 PRIN "ENTER PART # YOU WANT TO START ON >" STRG 1 405 READ TTY:;DUM 808 %1.0 THEN QUIT 406 LET DUM 807 = 00 407 SHOM REG 30 408 SHOM REG 0 409 LET DUM 998 = VALU 3 410 LET DUM 999 = VALU 4 411 LET REG 990 = 00 412 LET REG 991 = 00 413 PRIN "ALIGN THETA" STRG 3 414 ALIN POS 998 REF 999 REG 998 415 PRIN "ALIGN X-Y" STRG 3 416 ALIN POS 0 REF 0 REG 0 417 LET DLTA 995 = DLTA 993 418 LET DLTA 998 = POS 997 - POS 999 419 GOSU STEP 450 420 LET REG 990 = REG 990 + 01 421 LET REG 991 = REG 991 + 01 422 LET REG 999 = ( REG 991 - 01 ) * DUM 999 423 LET REG 999 = REG 991 * DUM 999 - REG 999 424 LET DLTA 999 = REG 999 * DLTA 995 425 LET DLTA 998 = DLTA 998 + DLTA 999 426 GOSU STEP 450 427 IF REG 991 < ( VALU 2 - 01 ) THEN GOTO STEP 421 428 IF REG 990 = VALU 1 THEN GOTO STEP 436 429 LET DLTA 995 = DLTA 995 * ( - 01 ) 430 LET REG 999 = ( REG 990 - 01 ) * DUM 998 431 LET REG 999 = REG 990 * DUM 998 - REG 999 432 LET DLTA 997 = REG 999 * DLTA 994 433 LET DLTA 998 = DLTA 998 + DLTA 997 434 GOSU STEP 450 435 LET REG 991 = 00 436 IF REG 990 < VALU 1 THEN GOTO STEP 420 437 LET DUM 807 = 00 438 LET DUM 808 = 00 439 SHOM REG 30 440 SHOM REG 31 441 SHOM REG 32 442 QUIT 450 LET DUM 807 = DUM 807 + 01 451 IF DUM 808 > DUM 807 THEN EXIT 452 SMOV DLTA 998 SPD 0 REG 0 453 LET DLTA 998 = 00 454 PRIN "PART # " DUM 807 455 GOSU STEP 16 456 EXIT 500 LET REG 50 = 01 501 PRIN STRG 3 "DRIFT TEST ON" STRG 3 502 LET DUM 805 = ( DUM 812 + DUM 813 ) / DUM 812 503 LET DUM 804 = ( 1.20000E+02 - DUM 805 ) - ( DUM 812 + DUM 813 ) 504 EXIT 505 GOSU STEP 545 01 506 TEST UNK I CODE 2 TOL I ACC 0 REJ 0 REG 0 507 LET J = I + 3.00000E+02 508 LET NOM J = NOM I + ( DUM I / 1.00000E+02 * NOM I ) 509 TEST UNK 300 CODE 10 TOL I ACC 0 REJ 0 REG 0 510 LET NOM J = NOM J + ( DUM I / 1.00000E+02 * NOM J ) 511 PRIN BIT 11 "R" I " NOM" J "=" NOM J 512 EXIT 515 LET M = DUM 811 516 GOSU STEP 544 DUM 804 517 GOSU STEP 529 01 518 GOSU STEP 523 02 519 PRIN "COMPLETE" STRG 3 520 LET REG 50 = 00 521 GOSU STEP 545 05 522 EXIT 523 PRIN STRG 3 "HIT PAGE THEN RETURN" STRG 1 524 READ TTY:;%1.0 THEN QUIT 525 PRIN "DRIFT TEST FOR " STRG 2 " LOT #" STRG 333  " " 526 PRIN "DRIFT IS BASED ON 120 SECONDS" 527 PRIN "WAIT TIME (SEC) " %6.2 DUM 804 528 PRIN "PAUSE TIME (SEC) " %5.2 DUM 805  " " 529 FOR N = 01 TO M 530 GOSU STEP 679 531 IF NOM J < 00 THEN GOTO STEP 537 532 IF VALU 1 = 02 THEN GOTO STEP 536 533 GOSU STEP 545 DUM 805 534 PRIN BIT 11 "TESTING R" I 535 TEST UNK 300 CODE 10 TOL I ACC 537 REJ 537 REG 0 536 PRIN "R" I " CHANGE =" %6.3 DUM I "%" 537 NEXT N 538 EXIT 544 PRIN "WAITING " VALU 1 " SECOND(S)" STRG 3 545 LET L = VALU 1 * 2.50000E+03 546 FOR K = 01 TO L 547 NEXT K 548 EXIT 600 LET M = DUM 811 601 FOR N = 01 TO M 602 GOSU STEP 679 603 IF DUM I > DUM 810 THEN IF DUM I < DUM 809 THEN GOTO STEP 606 604 PRIN "DID NOT LOG" 605 EXIT 606 NEXT N 607 PRIN "DATA LOGGING" 608 LET DUM 800 = DUM 800 + 01 609 FOR N = 01 TO M 610 GOSU STEP 679 611 LET DUM J = DUM J + DUM I 612 LET DUM K = DUM K + ( DUM I * DUM I ) 613 NEXT N 614 EXIT 630 GOSU STEP 643 631 LET M = DUM 811 632 FOR N = 01 TO M 633 GOSU STEP 679 634 LET DUM 804 = DUM J / DUM 800 635 LET DUM 805 = ( DUM K - ( DUM J * DUM J / DUM 800 ) ) 636 LET DUM 805 = SQRT ( DUM 805 * DUM 805 ) 637 LET DUM 805 = SQRT ( DUM 805 / ( DUM 800 - 01 ) ) 638 LET DUM 806 = ( 1.00000E+02 + DUM 804 ) * NOM I / 1.00000E+02 639 PRIN "R" I " " %5.3 DUM 804 %8.3 DUM 805 STRG 1 640 PRIN %15.3 DUM 806 %15.3 NOM I 641 NEXT N 642 QUIT 643 PRIN STRG 2 " LOT " STRG 333 STRG 1 644 PRIN " RESISTOR PRETRIM DATA BASED ON" DUM 800 " PARTS" 645 PRIN " " 646 PRIN " AVE DEV STD DEV AVERAGE OHMS" STRG 1 647 PRIN " NOMINAL" 648 PRIN " " 649 EXIT 660 LET M = DUM 811 661 FOR N = 01 TO M 662 GOSU STEP 679 663 LET DUM I = 00 664 LET DUM J = 00 665 LET DUM K = 00 669 NEXT N 670 FOR I = 8.00000E+02 TO 8.08000E+02 671 LET DUM I = 00 672 NEXT I 673 PRIN STRG 3 "ARE YOU GOING TO RE-SAVE THIS PROGRAM NOW ?" STRG 1 674 READ TTY:;"_" STRG 1000 %1.0 THEN QUIT 675 IF STRG 1000 # "Y" THEN LET DUM 801 = 01 676 PRIN "DUMMIES ZEROED" STRG 3 677 QUIT 679 IF NOM N < 00 THEN LET N = - NOM N 680 LET I = N 681 LET J = I + 3.00000E+02 682 LET K = I + 6.00000E+02 683 LET L = I + 1.00000E+02 684 EXIT 990 PRIN STRG 3 "ENTER LOT NUMBER >" STRG 1 991 READ TTY:;"_" STRG 333 %1.0 THEN QUIT 992 PRIN "LOT NUMBER IS " STRG 333 994 QUIT 1000 REM "STEPS FOR EQUAL SCAN SERP" 1002 LET CUT I = DUM I / 2.00000E+00 1004 SERP UNK I CODE J CUT I MODE 99 POS K DENS 99 BRAN 0 1006 TEST UNK I CODE J TOL I ACC 0 REJ 0 REG 0 1008 LET J = I * 02 + 1.00000E+02 1010 LET K = J + 01 1012 LET L = I + 1.00000E+02 1014 MOVE POS J SPD 0 1016 SERP UNK I CODE 4 CUT L MODE 99 POS K DENS 99 BRAN 0 1018 GOTO STEP 100 1100 REM "** SUBROUTINE FOR ALIGNING PROBES **" 1101 REM "**LOAD POS 850 WHERE PROBE IS THEN**" 1102 REM "**LOAD POS 851 WHERE YOU WANT THAT PROBE TO BE**" 1103 LET DLTA 950 = POS 850 - POS 851 1104 LET POS 997 = POS 997 + DLTA 950 1105 PRIN "DONE" 1106 QUIT MODE 1 TURN 1 CROS 0 INC 1 2 TURN 2 CROS 0 INC 2 3 TURN 3 CROS 0 INC 0 4 TURN 4 CROS 0 INC 4 5 TURN 5 CROS 0 INC 0 6 TURN 6 CROS 0 INC 0 99 TURN 99 CROS 0 INC 99 100 TURN 0 CROS 0 INC 0 102 TURN 2 CROS 0 INC 0 103 TURN 3 CROS 0 INC 0 105 TURN 5 CROS 0 INC 0 106 TURN 0 CROS 0 INC 0 DENS 1 SPD 1 PWR 1 99 SPD 99 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 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 REG 1 00 2 00 3 00 4 00 30 03 31 00 32 04 50 00 990 02 991 01 998 -01 999 035610 MASK 1 03 2 04 3 02 4 05 5 02 6 02 POS 800 7771, -6412 801 7018, -6412 850 0, 0 851 0, 0 899 -1437, 598 900 -1460, 62 997 8731, -3463 998 -14443, 19751 999 15025, 19751 REF 999 POS 999 NOM 1 2.70000E+02 2 7.50000E+01 3 7.50000E+01 4 2.70000E+02 5 7.50000E+01 6 7.50000E+01 301 2.68977E+02 302 7.50371E+01 303 7.49770E+01 304 2.68863E+02 305 7.49678E+01 306 7.50884E+01 500 2.00000E+00 600 1.00000E+01 SCAN 1 17, 16, 0, 0 2 23, 23, 0, 0 3 0, 0, 0, 0 4 8, 2, 0, 0 5 12, 11, 0, 0 6 13, 12, 0, 0 501 22, 21, 0, 0 502 18, 19, 0, 0 503 19, 18, 0, 0 504 18, 17, 0, 0 505 17, 18, 0, 0 506 20, 19, 0, 0 507 19, 20, 0, 0 508 18, 17, 0, 0 509 20, 16, 0, 0 510 20, 18, 0, 0 511 17, 20, 0, 0 512 16, 20, 0, 0 513 20, 15, 0, 0 514 15, 20, 0, 0 515 20, 14, 0, 0 516 14, 20, 0, 0 517 20, 13, 0, 0 518 17, 8, 0, 0 519 17, 9, 0, 0 520 23, 15, 0, 0 521 3, 23, 0, 0 522 0, 15, 0, 0 523 15, 12, 0, 0 524 12, 9, 0, 0 525 15, 11, 0, 0 526 11, 10, 0, 0 527 10, 9, 0, 0 528 9, 10, 0, 0 529 10, 8, 0, 0 530 5, 6, 0, 0 531 6, 5, 0, 0 532 5, 4, 0, 0 533 8, 5, 0, 0 534 7, 6, 0, 0 535 6, 7, 0, 0 536 7, 4, 0, 0 537 7, 2, 0, 0 538 5, 7, 0, 0 539 8, 7, 0, 0 540 4, 7, 0, 0 541 7, 3, 0, 0 542 3, 7, 0, 0 543 2, 7, 0, 0 544 7, 1, 0, 0 545 1, 7, 0, 0 546 8, 15, 0, 0 547 8, 9, 0, 0 548 21, 22, 0, 0 549 21, 15, 0, 0 550 15, 21, 0, 0 601 21, 18, 0, 0 602 18, 23, 0, 0 603 18, 0, 0, 0 604 5, 18, 0, 0 605 18, 10, 0, 0 606 21, 18, 0, 0 607 13, 18, 0, 0 CODE 1 2, 2, 0, 0 2 3, 2, 0, 0 3 3, 3, 0, 0 4 3, 4, 0, 0 5 3, 5, 0, 0 8 8, 2, 0, 0 10 3, 8, 200, 0 TOL 1 -5.00000E+01, 1.50000E+00 2 -5.00000E+01, 3.00000E-01 3 -5.00000E+01, 3.00000E-01 4 -5.00000E+01, 1.50000E+00 5 -5.00000E+01, 3.00000E-01 6 -5.00000E+01, 3.00000E-01 101 -1.00000E+00, 1.00000E+00 102 -2.50000E-01, 2.50000E-01 103 -2.50000E-01, 2.50000E-01 104 -1.00000E+00, 1.00000E+00 105 -2.50000E-01, 2.50000E-01 106 -2.50000E-01, 2.50000E-01 500 -1.00000E+02, 1.00000E+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 301 0.00000E+00 302 0.00000E+00 303 0.00000E+00 304 0.00000E+00 305 0.00000E+00 306 0.00000E+00 601 0.00000E+00 602 0.00000E+00 603 0.00000E+00 604 0.00000E+00 605 0.00000E+00 606 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 0.00000E+00 808 0.00000E+00 809 8.00000E+01 810 -8.00000E+01 811 6.00000E+00 812 6.00000E+00 813 6.00000E+00 814 1.60000E+02 998 1.52400E+04 999 1.52400E+04 1000 1.60000E+01 CUT 1 -6.00000E-01 2 -2.00000E-01 3 -1.75000E+00 4 -9.60648E+00 5 -1.75000E+00 6 -1.75000E+00 101 -2.00000E-01 103 -2.50000E-01 104 -2.00000E-01 105 -2.50000E-01 106 -2.50000E-01 TURN 1 4.00000E+01 2 3.50000E+01 3 0.00000E+00 4 9.90000E+01 5 0.00000E+00 6 0.00000E+00 99 9.90000E+01 102 0.00000E+00 103 0.00000E+00 105 0.00000E+00 106 0.00000E+00 CROS 99 0.00000E+00 INC 1 200 2 100 4 2 99 1 SPD 1 1.00000E+01, 1.00000E+01 99 3.00000E+01, 3.00000E+01 PWR 1 100, 100 STRG 1 _ 2 H2143A 3  333 ENG LAB 1000 N DLTA 900 -23, -536 950 0, 0 993 0, 1 994 -1, 0 995 0, -1 996 0, 0 997 -15240, 0 998 0, 0 999 0, -15240 SCAL 1 7.00000E+00 333 0.00000E+00