home *** CD-ROM | disk | FTP | other *** search
/ Falcon 030 Power 2 / F030_POWER2.iso / ST_STE / MAGS / ICTARI09.ARJ / ictari.09 / ASSEMBLY / MACROS / MACRO_2 / INTMATH.I < prev    next >
Text File  |  1997-09-17  |  304b  |  13 lines
  1. * long division
  2. * answer in second argument, remainder in first
  3. Div_l    MACRO
  4.     clr.l    -(sp)    ;storage for counter
  5. .dl_1    addq.l    #1,(sp)
  6.     sub.l    \1,\2
  7.     bge.s    .dl_1
  8.     add.l    \1,\2    
  9.     move.l    \2,\1    ;remainder in first argument
  10.     move.l    (sp)+,\2    ;count in second argument
  11.     subq.l    #1,\2    ;correct count
  12.     ENDM
  13.