BASIC-MTHPAK

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

0946 00553 000201 IAB LOAD LOW PRODUCT MANTISSA 0947 00554 0 06 00201 ADD LOW ADD CROSS PRODUCT 0948 00555 140320 CSA OVERFLOW INTO C BIT 0949 00556 100001 SRC SKIP IF C BIT RESET 0950 00557 0 12 00452 IRS RSLT INCREMENT HIGH IF C BIT IS SET 0951 00560 0 06 00453 ADD RSLT+1 ADD IN THE OTHER CROSS PRODUCT 0952 00561 140320 CSA OVERFLOW INTO C BIT 0953 00562 100001 SRC SKIP IF C BIT RESET 0954 00563 0 12 00452 IRS RSLT INCREMENT HIGH IF C BIT IS SET 0955 00564 000201 IAB LOAD LOW PRODUCT MANTISSA IN THE B REGISTER 0956 00565 0 02 00452 LDA RSLT LOAD HIGH PRODUCT MANTISSA 0957 * 0958 * PACK AND SET SIGN OF PRODUCT 0959 * 0960 00566 0 10 00202 JST NORM PACK PRODUCT INTO FLOATING POINT FORMAT 0961 00567 0 12 00355 IRS TEMP SKIP IF SIGN OF PRODUCT IS POSITIVE 0962 00570 0 10 00122 JST N$22 COMPLIMENT IF SIGN OF PRODUCT IS NEGATIVE 0963 00571 -0 01 00530 JMP* M$22 MULTIPLICATION RETURN 0964 * 0965 * 0966 00572 000200 C200 OCT 200 0967 EJCT