BASIC-MTHPAK

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

0749 * 0750 * HERE IF DIVISOR MANTISSA IS LESS THAN OR EQUAL TO DIVIDEND 0751 * (REMAINDER) MANTISSA 0752 * 0753 00440 000201 D2 IAB REPOSITION 0754 00441 0 10 00155 JST DADD SUBTRACT DIVISOR MANTISSA FROM DIVIDEND 0755 * (REMAINDER) MANTISSA 0756 00442 0411 77 LLS 1 SHIFT REMAINDER MANTISSA 0757 00443 0 13 00452 IMA RSLT LOAD LOW QUOTIENT MANTISSA 0758 00444 141206 AOA GENERATE A ONE QUOTIENT BIT 0759 00445 0 01 00427 JMP D4 JUMP TO SHIFT QUOTIENT 0760 * 0761 * FLAG ERROR - DIVISION BY ZERO 0762 * 0763 00446 0 10 00000 D6 JST ERR JUMP TO ERROR REPORTING ROUTINE 0764 00447 142332 BCI 1,DZ ID THE ERROR 0765 * 0766 * 0767 00450 000000 HGHC BSZ 1 0768 00451 000000 LOWC BSZ 1 0769 00452 000000 RSLT BSZ 2 0770 00454 000205 C205 OCT 205 0771 EJCT