/DIGITAL-8-12-F /SIGNED SINGLE PRECISION DIVIDE SUBROUTINE /CALLING SEQUENCE: / C(AC) CONTAINS HIGH ORDER DIVIDEND / JMS DIVIDE / LOW ORDER DIVIDEND / DIVISOR / RETURN: C(AC)=QUOTIENT; REMAINDER IN HDIVND /IF HIGH ORDER DIVIDEND IS EQUAL TO OR GREATER /THAN THE DIVISOR; NO DIVISION TAKES PLACE AND C(L)=1 /PAGE 1 DIVIDE, 0 CLL SPA /DIVIDEND<0? CMA CML /YES COMPLEMENT AND SET C(L) DCA HDIVND /HIGH ORDER DIVIDEND SNL CMA DCA SDVND /SET DIVIDEND SIGN SWITCH TAD I DIVIDE /FETCH LOW ORDER DIVIDEND SZL CMA CLL IAC /YES: COMPLEMENT DCA LDIVND /LOW ORDER DIVIDEND SZL /CARRY? ISZ HDIVND /YES ISZ DIVIDE TAD I DIVIDE /FETCH DIVISOR CLL SMA CMA CML IAC /NEGATE IT DCA DIVSOR /SAVE DIVISOR SNL /WAS IT <0? CMA /YES: AC=-1 TAD SDVND DCA SNSWER /ANSWER SIGN SWITCH CLL TAD DIVSOR /COMPARE DIVISOR TAD HDIVND /WITH DIVIDEND ISZ DIVIDE SZL CLA /OVER FLOW? JMP I DIVIDE /YES: DIVISOR