HEADING:(ALLDS.LG) DATALOG & DISTRIBUTION ROUTINES 7/25/90 GF STEP 2 GOTO STEP 580 3 GOTO STEP 610 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 STRG 1 _ 3  333 >LOT #< 340 >SUB #< 350 > DATE < 1000 Y