AB16-12T3

* NAME: AB16-12T3 DOC 70181010000 REV F PAGE 18

0745 01704 0 04 00554 STA HOLD 0746 01705 0 35 00555 LDX HOLD+1 0747 01706 1 02 00530 LDA BUCK+23,1 0748 01707 0 10 04123 JST V$OD OCTAL TO DECIMAL ASCII 0749 01710 -0 000577 DAC* TEMP+3 WITH ZERO SUPPRESS 0750 01711 140040 CRA MESSAGE TERMINATOR 0751 01712 0 04 00600 STA TEMP+4 0752 01713 0 10 02574 JST OPCO 0753 01714 0 000574 DAC TEMP 0754 01715 0 12 00555 IRS HOLD+1 0755 01716 0 01 01676 JMP SPTW TYPE NEXT COUNT 0756 * 0757 01717 0 10 01721 JST TDIS TEST RESULT 0758 01720 -0 01 01517 JMP* STAB END - OF - STABILITY 0759 * 0760 * TEST DISTRIBUTION WIDTH AND OVERFLOW 0761 * 0762 01721 0 000000 TDIS DAC ** 0763 01722 0 02 00501 LDA BUCK IF ANY IN END SLOTS THEN 0764 01723 0 06 00527 ADD BUCK+22 REJECT RIGHT NOW 0765 01724 101040 SNZ 0766 01725 0 01 01732 JMP STAH SO FAR ITS GOOD 0767 * 0768 01726 0 10 02574 JST OPCO 'REJECT OUT OF RANGE' 0769 01727 0 003470 DAC MESA 0770 01730 0 35 00671 LDX =1 MARK X REG AS BAD TEST 0771 01731 -0 01 01721 JMP* TDIS AND RETURN 0772 * 0773 01732 0 04 00574 STAH STA TEMP CLEAR A LOCATION 0774 01733 0 04 00000 STA 0 AND THE X REG 0775 01734 0 12 00000 IRS 0 BUMP IT 0776 01735 1 06 00501 ADD BUCK,1 AND TEST AHEAD FOR FIRST NON-ZERO VALUE 0777 01736 101040 SNZ 0778 01737 0 01 01734 JMP *-3 NOT FOUND YET 0779 * 0780 01740 0 12 00574 STAI IRS TEMP ADD ONE TO COUNT OF WIDTH 0781 01741 0 12 00000 IRS 0 AND X REG 0782 01742 0 11 00625 CAS =1000 SEE IF ALL COUNTED 0783 01743 000000 HLT WHOOPS - TOO MANY 0784 01744 0 01 01747 JMP *+3 YES - ALL DONE 0785 01745 1 06 00501 ADD BUCK,1 NO - ADD NEXT BUCKETS COUNT 0786 01746 0 01 01740 JMP STAI AND GO BACK 0787 * 0788 01747 0 02 00500 LDA AVG NOW TEMP HAS WIDTH OF DISTRIBUTION 0789 01750 0405 76 ARS 2 0790 01751 000201 IAB FORM DOUBLE PRECISION INTEGER OF SEALED 0791 01752 140040 CRA VALUE OF AVERAGE 0792 01753 0 10 02426 JST DIV TAKE 6 % OF IT (6/1000 = 1/167) 0793 01754 0 000654 DAC =167 0794 01755 000000 HLT