+C* DIVIDE	MACRO  DIVIDEND DIVISOR QUOTIENT .CHECK DIV BY 0
    +C* IF    &2 NE 0
    +C*       DIV &1 BY &2 = &3 &4
    +C* ELSE  Z-ADD 0 TO &3
    +C* ENDIF
    +C* MEND .