BASIC-MTHPAK

* NAME BASIC-MTHPAK DOC. 70181832000 REV. A PAGE 23

0772 * 0773 * 0774 * MULTIPLICATION AND DIVISION ARGUMENT HANDLING ROUTINE 0775 * 0776 * CALLING SEQUENCE: 0777 * 0778 * JST MDAH CALL TO ROUTINE IMMEDIATELY FOLLOWS ENTRY, 0779 * FIRST ARGUMENT IN THE A AND B REGISTERS 0780 * ......RETURN MANTISSA OF ABSOLUTE VALUE OF FIRST ARGU- 0781 * MENT IN THE A AND B REGISTERS, ABSOLUTE 0782 * VALUE OF UNPACKED FIRST ARGUMENT AND FLAG 0783 * FOR SIGN OF RESULTANT IN TEMPORARY STORAGE 0784 * LOCATIONS 0785 * 0786 * 0787 * THE SIGN OF THE FIRST ARGUMRNT IS SAVED. THE FIRST ARGUMENT 0788 * IS SET POSITIVE, UNPACKED, AND SAVED. THE SECOND ARGUMENT IS 0789 * LOADED, AND ITS SIGN XORED WITH THE SIGN OF THE FIRST ARGUMENT. 0790 * IF THE RESULTANT SIGN IS POSITIVE, A FLAG IS SET TO NEGATIVE ONE. 0791 * IF THE RESULTANT SIGN IS NEGATIVE, THE FLAG IS SET TO A POSITVE 0792 * NUMBER. THE SECOND ARGUMENT IS SET POSITIVE AND UNPACKED. 0793 * 0794 * 0795 00455 0 000000 MDAH DAC ** ENTRY 0796 00456 0 04 00355 STA TEMP SAVE SIGN OF FIRST ARGUMENT 0797 * 0798 * SET FIRST ARGUMENT POSITIVE, UNPACK, AND SAVE IT 0799 * 0800 00457 100400 SPL SKIP IF POSITIVE 0801 00460 0 10 00122 JST N$22 COMPLIMENT IF NEGATIVE 0802 00461 0 10 00134 JST UNPK UNPACK THE FIRST ARGUMENT 0803 00462 0 10 00104 JST H$22 SAVE THE MANTISSA 0804 00463 0 000452 DAC RSLT X 0805 00464 0 02 00152 LDA EXPT AND THE EXPONENT 0806 00465 0 04 00201 STA LOW X 0807 * 0808 * LOAD SECOND ARGUMENT 0809 * 0810 00466 0 02 00455 LDA MDAH LOAD ADDRESS PLUS ONE OF CALL 0811 00467 0 07 00506 SUB C2 SUBTRACT TWO AND 0812 00470 0 04 00272 STA CNTR SAVE ADDRESS OF CALLING ROUTINE ENTRY 0813 00471 -0 02 00272 LDA* CNTR LOAD ADDRESS OF DAC TO SECOND ARGUMENT 0814 00472 -0 12 00272 IRS* CNTR INCREMENT TO SET UP RETURN ADDRESS FOR 0815 * CALLING ROUTINE 0816 00473 0 10 00070 JST LARG LOAD SECOND ARGUMENT 0817 * 0818 * DETERMINE SIGN OF RESULT AND SET FLAG 0819 * 0820 00474 0 13 00355 IMA TEMP RECOVER SIGN OF FIRST ARGUMENT 0821 00475 0 05 00355 ERA TEMP XOR SIGN OF SECOND ARGUMENT