BASIC-MTHPAK

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

0699 * MANTISSA 0700 * 0701 00402 0 10 00100 JST L$22 LOAD FLOATING POINT ZERO 0702 00403 0 001060 DAC F0 X 0703 00404 0 13 00453 IMA RSLT+1 AND SAVE AS QUOTIENT, RECOVER DIVIDEND 0704 00405 000201 IAB MANTISSA 0705 00406 0 13 00452 IMA RSLT X 0706 00407 0401 77 LRS 1 POSITION DIVIDEND MANTISSA 0707 00410 0 01 00414 JMP *+4 JUMP TO COMPARE DIVIDEND AND DIVISOR 0708 * MANTISSAS 0709 * 0710 * LOAD THE DIVIDEND (REMAINDER) MANTISSA 0711 * 0712 00411 0 13 00453 D5 IMA RSLT+1 SAVE QUOTIENT MANTISSA, RECOVER DIVIDEND 0713 00412 000201 IAB (REMAINDER) MANTISSA 0714 00413 0 13 00452 IMA RSLT X 0715 * 0716 * COMPARE DIVISOR MANTISSA WITH DIVIDEND(REMAINDER) MANTISSA 0717 * 0718 00414 0 11 00450 CAS HGHC COMPARE HIGH MANTISSAS 0719 00415 0 01 00441 JMP D2+1 DIVIDEND(REMAINDER) GREATER 0720 00416 100000 SKP EQUAL-SKIP TO COMPARE LOW MANTISSAS 0721 00417 0 01 00425 JMP D3 DIVISOR MANTISSA GREATER 0722 00420 000201 IAB LOAD LOW DIVIDEND(REMAINDER) MANTISSA 0723 00421 0 11 00451 CAS LOWC COMPARE LOW MANTISSAS 0724 00422 101000 NOP X 0725 00423 0 01 00440 JMP D2 DIVIDEND MANTISSA GREATER OR EQUAL 0726 00424 000201 IAB DIVISOR GREATER-REPOSITION 0727 * 0728 * HERE IF DIVIDEND(REMAINDER) MANTISSA IS LESS THAN DIVISOR MANTISSA 0729 * 0730 00425 0411 77 D3 LLS 1 SHIFT DIVIDEND(REMAINDER) MANTISSA 0731 00426 0 13 00452 IMA RSLT LOAD LOW QUOTIENT MANTISSA 0732 * 0733 * SHIFT QUOTIENT MANTISSA AND INCREMENT COUNTER 0734 * 0735 00427 000201 D4 IAB LOAD LOW QUOTIENT MANTISSA IN B REGISTER 0736 00430 0 13 00453 IMA RSLT+1 LOAD HIGH QUOTIENT MANTISSA 0737 00431 0411 77 LLS 1 SHIFT THE QUOTIENT MANTISSA 0738 00432 0 12 00272 IRS CNTR INCREMENT THE COUNTER BY ONE 0739 00433 0 01 00411 JMP D5 LOOP TO GENERATE ANOTHER QUOTIENT BIT 0740 * IF COUNTER IS NON-ZERO 0741 * 0742 * PACK AND SET SIGN OF QUOTIENT 0743 * 0744 00434 0 10 00202 JST NORM PACK INTO FLOATING POINT FORMAT (IF COUNTER 0745 * EQUALS ZERO) 0746 00435 0 12 00355 IRS TEMP SKIP IF SIGN OF QUOTIENT IS POSITIVE 0747 00436 0 10 00122 JST N$22 COMPLIMENT IF SIGN OF QUOTIENT IS NEGATIVE 0748 00437 -0 01 00361 JMP* D$22 DIVISION RETURN