O16-DECL

* O180 (O16-DECL) DWG. 70181506000 REV. B PAGE 15

0689 00752 0 000000 SCNT DAC 0 X 0690 * 0691 00753 0 000000 NRM DAC *-* 0692 00754 140040 CRA RESET THE SHIFT COUNTER 0693 00755 0 04 00752 STA SCNT X 0694 00756 0 02 00000 NRM1 LDA NUM TEST FOR A NORMAL NUMBER 0695 00757 0414 77 LGL 1 X 0696 00760 100400 SPL X 0697 00761 -0 01 00753 JMP* NRM RESULT IS NORMAL 0698 00762 0 12 00752 IRS SCNT STEP THE SHIFT COUNTER 0699 00763 0 10 00765 JST LLS1 LEFT SHIFT 1 0700 00764 0 01 00756 JMP NRM1 AND TRY AGAIN 0701 * 0702 00765 0 000000 LLS1 DAC *-* 0703 00766 0 10 01000 JST SHFT THIS ROUTINE LONG LEFT SHIFTS 0704 00767 0 000000 DAC NUM2 THE ACCUMULATING REGISTER 0705 00770 0 10 01000 JST SHFT ONE POSITION 0706 00771 0 000000 DAC NUM1 X 0707 00772 0 10 01000 JST SHFT X 0708 00773 0 000000 DAC NUM X 0709 00774 0 10 01000 JST SHFT X 0710 00775 0 000546 DAC PROD X 0711 00776 -0 01 00765 JMP* LLS1 X 0712 * 0713 00777 0 00 00000 SWT PZE X 0714 * 0715 01000 0 000000 SHFT DAC *-* 0716 01001 -0 02 01000 LDA* SHFT LEFT SHIFT A WORD 1 POSITION 0717 01002 0 04 00777 STA SWT AND INSERT CARRY INTO THE 0718 01003 -0 02 00777 LDA* SWT VACATED LOW BIT 0719 01004 0414 77 LGL 1 ALSO SAVE THE CARRY 0720 01005 0 10 01011 JST CSA FOR THE NEXT WORD 0721 01006 -0 04 00777 STA* SWT X 0722 01007 0 12 01000 IRS SHFT 0723 01010 -0 01 01000 JMP* SHFT X 0724 * 0725 01011 0 000000 CSA DAC *-* 0726 01012 0 06 00547 ADD CBIT INSERT PRIOR CARRY 0727 01013 0416 77 ALR 1 POSITION THIS CARRY 0728 01014 0 04 00724 STA TEMP SAVE THE WORD 0729 01015 0 03 00557 ANA Q1 EXTRACT THE CARRY BIT 0730 01016 0 04 00547 STA CBIT SAVE IT 0731 01017 0 05 00724 ERA TEMP RECOVER THE 15 DATA BITS 0732 01020 0406 77 ARR 1 POSITION THEM 0733 01021 -0 01 01011 JMP* CSA AND RETURN 0734 * 0735 01022 0 000000 M10 DAC *-* MULTIPLY BY 10 0736 01023 0 35 01117 LDX =-3 MOVE THE ACCUMULATING 0737 01024 1 02 00000 LDA NUM3,1 REGISTERS TO WORKING 0738 01025 1 04 01044 STA KEEP+3,1 STORE AND TO