BASIC-MTHPAK

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

0596 * 0597 00323 0 02 00272 LDA CNTR LOAD THE EXPONENT OF THE FIRST ARGUMENT 0598 00324 0 07 00152 SUB EXPT SUBTRACT EXPONENT OF SECOND ARGUMENT 0599 00325 100400 SPL TEST SIGN 0600 00326 0 01 00334 JMP A6 SECOND ARGUMENT LARGER - JUMP 0601 * 0602 * IF THE FIRST ARGUMENT IS LARGER, FORM THE SHIFT COUNT AND SAVE 0603 * THE FIRST ARGUMENT'S EXPONENT AS THE EXPONENT OF THE RESULT 0604 * 0605 00327 140407 TCA FIRST ARGUMENT LARGER - COMPLIMENT TO FORM 0606 * SHIFT COUNT 0607 00330 0 04 00152 STA EXPT SAVE 0608 00331 0 02 00272 LDA CNTR LOAD LARGER ARGUMENT EXPONENT 0609 00332 0 13 00152 IMA EXPT STORE IN EXPT, RECOVER SHIFT COUNT 0610 00333 0 01 00342 JMP A1 JUMP T0 FORM SHIFT INSTRUCTION 0611 * 0612 * IF THE SECOND ARGUMENT IS LARGER, SAVE THE SECOND ARGUMENT'S 0613 * MANTISSA AND LOAD THE FIRST ARGUMENT'S MANTISSA 0614 * 0615 00334 0 13 00355 A6 IMA TEMP SAVE SHIFT COUNT, RECOVER HIGH SECOND 0616 * ARGUMENT 0617 00335 0 13 00200 IMA HIGH EXCHANGE SO THAT LARGER ARGUMENT IS IN 0618 00336 000201 IAB HIGH AND LOW, AND SMALLER ARGUMENT IN 0619 00337 0 13 00201 IMA LOW THE A AND B REGISTERS 0620 00340 000201 IAB 0621 00341 0 13 00355 IMA TEMP RECOVER SHIFT COUNT 0622 * 0623 * FORM THE SHIFT INSRUCTION AND SHIFT THE SMALLER ARGUMENT'S MANTISSA 0624 * 0625 00342 0 11 00356 A1 CAS M31 TEST IF DIFFERENCE OF EXPONENTS IS LESS 0626 * THAN THE NUMBER OF SIGNIFICANT BITS PLUS 1 0627 00343 0 03 00357 ANA C77 YES - MASK SHIFT COUNT AND 0628 00344 0 05 00360 ERA LRS FORM SHIFT INSTRUCTION 0629 00345 100400 SPL 0630 00346 0 02 00712 LDA LRSM NO-FORM SHIFT INSTRUCTION TO SHIFT OUT ALL 0631 * BITS EXCEPT THE SIGN 0632 00347 0 04 00351 STA A3 0633 00350 0 02 00355 LDA TEMP LOAD HIGH OF SMALLER ARGUMENT 0634 00351 0 00 00000 A3 PZE ** SHIFT 0635 * 0636 * ADD THE LARGER ARGUMENT'S MANTISSA AND PACK THE RESULT INTO 0637 * FLOATING POINT FORMAT 0638 * 0639 00352 0 10 00155 JST DADD ADD THE LARGER ARGUMENT MANTISSA 0640 00353 0 10 00202 JST NORM PACK INTO FLOATING POINT FORMAT 0641 00354 -0 01 00120 JMP* LHTS+1 ADDITION, SUBTRACTION RETURN 0642 * 0643 * 0644 00355 000000 TEMP BSZ 1 0645 00356 177747 M31 OCT -31