O16-DECL

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

0639 00674 100040 SZE X 0640 00675 0 04 00000 STA ERD NO - MARK THE ERROR 0641 00676 0 02 00422 LDA SKP GIVE -32768 ANYWAY 0642 00677 0 01 00656 JMP INTY ENTER THE MAIN PATH 0643 * 0644 00700 0 000000 TCA DAC *-* COMPLEMENT THE 0645 00701 140040 CRA 45 BIT REGISTER 0646 00702 0 07 00000 SUB NUM2 X 0647 00703 100400 SPL X 0648 00704 0 12 00000 IRS NUM1 X 0649 00705 0 03 00723 ANA MAG X 0650 00706 0 04 00000 STA NUM2 X 0651 00707 140040 CRA X 0652 00710 0 07 00000 SUB NUM1 X 0653 00711 100400 SPL X 0654 00712 0 12 00000 IRS NUM X 0655 00713 0 03 00723 ANA MAG X 0656 00714 0 04 00000 STA NUM1 X 0657 00715 140040 CRA X 0658 00716 0 07 00000 SUB NUM X 0659 00717 0 04 00000 STA NUM X 0660 00720 -0 01 00700 JMP* TCA X 0661 * 0662 00721 000005 Q5 OCT 5 X 0663 00722 177720 M48 OCT 177720 X 0664 00723 077777 MAG OCT 77777 0665 00724 0 000000 TEMP DAC 0 X 0666 * 0667 00725 140040 DVD CRA FLOAT DIVIDE ROUTINE 0668 00726 0 04 00546 STA PROD HIGH DIVIDEND BITS ZERO 0669 00727 0 02 00722 LDA M48 SET COUNTER TO GENERATE 0670 00730 0 04 00532 STA CH 44 OR 45 BITS OF QUOTIENT 0671 00731 0 10 00765 DVD1 JST LLS1 SHIFT IN A BIT 0672 00732 0 07 00721 SUB Q5 TRIAL SUBTRACT 0673 00733 101400 SMI TEST FOR QUOTIENT BIT 0674 00734 0 12 00547 IRS CBIT SET QUOTIENT BIT TO 1 0675 00735 100400 SPL TEST FOR VALID SUBTRACT 0676 00736 0 06 00721 ADD Q5 RESTORE THE QUOTIENT BITS 0677 00737 0 04 00546 STA PROD X 0678 00740 0 12 00532 IRS CH TEST FOR END OF LOOP 0679 00741 0 01 00731 JMP DVD1 NOT YET 0680 00742 0 10 00753 JST NRM NORMALIZE THE RESULT 0681 00743 0 02 00550 LDA EXP ADJUST THE EXPONENT 0682 00744 0 07 00752 SUB SCNT X 0683 00745 0 07 00226 SUB Q3 X 0684 00746 0 04 00550 STA EXP X 0685 00747 0 12 00536 IRS ECNT TEST FOR LAST DIVIDE 0686 00750 0 01 00725 JMP DVD NOT YET 0687 00751 0 01 00445 JMP CVT1 FINISH THE CONVERSION 0688 *