HEADING:(ALLDSD.LG) DISTRIBUTION & DATALOG TO DISK 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 LET REG 4 = 00 611 GOSU STEP 649 612 LET M = DUM 811 613 FOR N = 01 TO M 614 GOSU STEP 570 615 LET DUM 804 = DUM J / DUM 800 616 LET DUM 805 = ( DUM K - ( DUM J * DUM J / DUM 800 ) ) 617 LET DUM 805 = SQRT ( DUM 805 * DUM 805 ) 618 LET DUM 805 = SQRT ( DUM 805 / ( DUM 800 - 01 ) ) 619 LET DUM 806 = ( 1.00000E+02 + DUM 804 ) * NOM I / 1.00000E+02 620 LET DUM 803 = I 621 IF REG 4 = 7.77700E+03 THEN GOTO STEP 625 622 PRIN "R" %3.0 DUM 803 " " %7.4 DUM 804 " " %7.4 DUM 805 STRG 1 623 PRIN " " %14.4 DUM 806 " " %14.4 NOM I 624 GOTO STEP 635 625 LET STRG 1000 = %3.0 DUM 803 626 LOG "R" STRG 6 STRG 1000 " " STRG 1 627 LET STRG 1000 = %7.4 DUM 804 628 LOG STRG 6 STRG 1000 " " STRG 1 629 LET STRG 1000 = %7.4 DUM 805 630 LOG STRG 6 STRG 1000 " " STRG 1 631 LET STRG 1000 = %14.4 DUM 806 632 LOG STRG 6 STRG 1000 " " STRG 1 633 LET STRG 1000 = %14.4 NOM I 634 LOG STRG 6 STRG 1000 635 NEXT N 636 REM "DIST" 639 IF REG 4 # 7.77700E+03 THEN GOTO STEP 642 640 PRIN STRG 3 "DONE" 641 QUIT 642 PRIN STRG 3 643 PRIN "DO YOU WANT TO SAVE THIS DATA ON DISK ?" STRG 1 644 READ TTY:;"_" STRG 1000 %1.0 THEN QUIT 645 IF STRG 1000 # "Y" THEN QUIT 646 PRIN STRG 3 "PLEASE WAIT . ." STRG 1 647 LET REG 4 = 7.77700E+03 648 GOTO STEP 611 649 IF REG 4 = 7.77700E+03 THEN GOTO STEP 659 650 PRIN STRG 2 " PRE-TRIM DATA ON" DUM 800 "PARTS" STRG 1 651 PRIN " DATE: " STRG 350 652 PRIN " " 653 PRIN "LOT #: " STRG 333 " SUBSTRATE #: " STRG 340 654 PRIN " " 655 PRIN " AVE % DEV STD % DEV AVERAGE OHMS" STRG 1 656 PRIN " NOMINAL" 657 PRIN " " 658 EXIT 659 LET STRG 1000 = %5.0 DUM 800 660 LOG " "  " " 661 LOG STRG 6 STRG 2 " PRE-TRIM DATA ON" STRG 6 STRG 1000 STRG 1 662 LOG " PARTS DATE: " STRG 6 STRG 350 663 LOG " " 664 LOG "LOT #: " STRG 6 STRG 333 " SUBSTRATE #: " STRG 1 665 LOG STRG 6 STRG 340 666 LOG " " 667 LOG " AVE % DEV STD % DEV AVERAGE OHMS" STRG 1 668 LOG " NOMINAL" 669 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 680 672 IF REG 4 = 7.77700E+03 THEN GOTO STEP 677 673 PRIN " " 674 PRIN "DISTRIBUTION DATA FOR R" %3.0 VALU 1 675 PRIN " " 676 GOTO STEP 680 677 LOG " " 678 LOG "DISTRIBUTION DATA FOR R" STRG 6 %3.0 VALU 1 679 LOG " " 680 LET J = VALU 2 681 LET K = VALU 3 682 FOR L = J TO K 683 IF REG L < 00 THEN LET L = - REG L 684 LET M = L + 01 685 IF VALU 4 > 00 THEN GOTO STEP 690 686 LET REG L = 00 687 NEXT L 688 PRIN STRG 3 "DISTRIBUTION DUMS ARE ZEROED" 689 EXIT 690 IF VALU 4 = 02 THEN GOTO STEP 695 691 IF VALU 1 > DUM L THEN IF VALU 1 < DUM M THEN LET REG L = REG L + 01 692 NEXT L 693 IF VALU 1 > DUM M THEN LET REG M = REG M + 01 694 EXIT 695 LET J = VALU 1 696 LET DUM 805 = NOM J + ( NOM J * DUM L / 1.00000E+02 ) 697 LET DUM 806 = NOM J + ( NOM J * DUM M / 1.00000E+02 ) 698 IF REG 4 = 7.77700E+03 THEN GOTO STEP 705 699 PRIN "# BETWEEN " %5.2 DUM L "% & " %5.2 DUM M STRG 1 700 IF DUM 806 < 1.00000E+04 THEN GOTO STEP 703 701 PRIN "% (" %8.0 DUM 805 "&" %8.0 DUM 806 "OHMS ) =" %6.0 REG L 702 GOTO STEP 717 703 PRIN "% (" %7.3 DUM 805 "&" %7.3 DUM 806 "OHMS ) =" %6.0 REG L 704 GOTO STEP 717 705 LET STRG 1000 = %5.2 DUM L 706 LOG "# BETWEEN " STRG 6 STRG 1000 STRG 1 707 LET STRG 1000 = %5.2 DUM M 708 LOG "% & " STRG 6 STRG 1000 STRG 1 709 LET STRG 1000 = %8.0 DUM 805 710 IF DUM 806 < 1.00000E+04 THEN LET STRG 1000 = %7.3 DUM 805 711 LOG "% (" STRG 6 STRG 1000 STRG 1 712 LET STRG 1000 = %8.0 DUM 806 713 IF DUM 806 < 1.00000E+04 THEN LET STRG 1000 = %7.3 DUM 806 714 LOG "&" STRG 6 STRG 1000 STRG 1 715 LET STRG 1000 = %6.0 REG L 716 LOG "OHMS ) =" STRG 6 STRG 1000 717 NEXT L 718 IF REG 4 = 7.77700E+03 THEN GOTO STEP 721 719 PRIN "# ABOVE " %5.2 DUM M "% =" %6.0 REG K 720 EXIT 721 LET STRG 1000 = %5.2 DUM M 722 LOG "# ABOVE " STRG 6 STRG 1000 STRG 1 723 LET STRG 1000 = %6.0 REG K 724 LOG "% =" STRG 6 STRG 1000 725 EXIT STRG 1 _ 3  6 ^ 333 >LOT #< 340 >SUB #< 350 > DATE < 1000 Y