HEADING:(DRFTDS.LG) DRIFT, DISTRIBUTION & DATALOG ROUTINES 7/25/90 GF
STEP
2 GOTO STEP 580
3 GOTO STEP 610
4 GOSU STEP 500
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 540
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
540 IF NOM N < 00 THEN LET N = - NOM N
541 LET I = N
542 LET J = I + 3.00000E+02
543 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
550 LET M = DUM 811
551 FOR N = 01 TO M
552 GOSU STEP 570
553 IF DUM I > DUM 810 THEN IF DUM I < DUM 809 THEN GOTO STEP 556
554 PRIN "DID NOT LOG"
555 EXIT
556 NEXT N
557 PRIN "DATA LOGGING"
558 LET DUM 800 = DUM 800 + 01
559 FOR N = 01 TO M
560 GOSU STEP 570
561 LET DUM J = DUM J + DUM I
562 LET DUM K = DUM K + ( DUM I * DUM I )
563 NEXT N
569 EXIT
570 IF NOM N < 00 THEN LET N = - NOM N
571 LET I = N
572 LET J = I + 3.00000E+02
573 LET K = I + 6.00000E+02
574 LET L = I + 1.00000E+02
575 EXIT
580 LET M = DUM 811
581 FOR N = 01 TO M
582 GOSU STEP 570
583 LET DUM I = 00
584 LET DUM J = 00
585 LET DUM K = 00
586 LET DUM L = 00
587 NEXT N
588 FOR I = 8.00000E+02 TO 8.08000E+02
589 LET DUM I = 00
590 NEXT I
591 PRIN STRG 3 "ARE YOU SAVING PROGRAM ?" STRG 1
592 READ TTY:;"_" STRG 1000 %1.0 THEN QUIT
593 IF STRG 1000 # "Y" THEN GOTO STEP 597
594 PRIN STRG 3 "SETTING SERIAL # (DUM 799) TO 0, WAS " DUM 799
595 LET DUM 799 = 00
596 GOTO STEP 598
597 LET DUM 801 = 01
608 PRIN "DUMS ARE ZEROED" STRG 3
609 QUIT
610 GOSU STEP 631
611 LET M = DUM 811
612 FOR N = 01 TO M
613 GOSU STEP 570
614 LET DUM 804 = DUM J / DUM 800
615 LET DUM 805 = ( DUM K - ( DUM J * DUM J / DUM 800 ) )
616 LET DUM 805 = SQRT ( DUM 805 * DUM 805 )
617 LET DUM 805 = SQRT ( DUM 805 / ( DUM 800 - 01 ) )
618 LET DUM 806 = ( 1.00000E+02 + DUM 804 ) * NOM I / 1.00000E+02
619 LET DUM 803 = I
620 PRIN "R" %3.0 DUM 803 " " %7.4 DUM 804 " " %7.4 DUM 805 STRG 1
621 PRIN " " %14.4 DUM 806 " " %14.4 NOM I
622 NEXT N
630 QUIT
631 PRIN STRG 2 " PRE-TRIM DATA ON" DUM 800 "PARTS" STRG 1
632 PRIN " DATE: " STRG 350
633 PRIN " "
634 PRIN "LOT #: " STRG 333 " SUBSTRATE #: " STRG 340
635 PRIN " "
636 PRIN " AVE % DEV STD % DEV AVERAGE OHMS" STRG 1
637 PRIN " NOMINAL"
638 PRIN " "
639 EXIT
670 REM "VALU 1= TEST VALUE, 2= 1ST DUM/REG, 3= LAST DUM, 4= 0,1 OR 2"
671 IF VALU 4 < 2.00000E+00 THEN GOTO STEP 675
672 PRIN " "
673 PRIN "DISTRIBUTION DATA FOR R" %3.0 VALU 1
674 PRIN " "
675 LET J = VALU 2
676 LET K = VALU 3
677 FOR L = J TO K
678 IF REG L < 00 THEN LET L = - REG L
679 LET M = L + 01
680 IF VALU 4 > 00 THEN GOTO STEP 685
681 LET REG L = 00
682 NEXT L
683 PRIN STRG 3 "DISTRIBUTION DUMS ARE ZEROED"
684 EXIT
685 IF VALU 4 = 02 THEN GOTO STEP 690
686 IF VALU 1 > DUM L THEN IF VALU 1 < DUM M THEN LET REG L = REG L + 01
687 NEXT L
688 IF VALU 1 > DUM M THEN LET REG M = REG M + 01
689 EXIT
690 LET J = VALU 1
691 LET DUM 805 = NOM J + ( NOM J * DUM L / 1.00000E+02 )
692 LET DUM 806 = NOM J + ( NOM J * DUM M / 1.00000E+02 )
693 PRIN "# BETWEEN " %5.2 DUM L "% & " %5.2 DUM M STRG 1
694 IF DUM 806 < 1.00000E+04 THEN GOTO STEP 697
695 PRIN "% (" %8.0 DUM 805 "&" %8.0 DUM 806 "OHMS ) =" %6.0 REG L
696 GOTO STEP 698
697 PRIN "% (" %7.3 DUM 805 "&" %7.3 DUM 806 "OHMS ) =" %6.0 REG L
698 NEXT L
699 PRIN "# ABOVE " %5.2 DUM M "% =" %6.0 REG K
700 EXIT
UNK
300 NOM J SCAN I MAT 0 FUNC 0 DUM I
REG
50 00
CODE
10 3, 8, 200, 0
DUM
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 0.00000E+00
812 0.00000E+00
813 0.00000E+00
STRG
1 _
3
333 >LOT #<
340 >SUB #<
350 > DATE <
1000 Y