home *** CD-ROM | disk | FTP | other *** search
/ CD Shareware Magazine 1996 December / CD_shareware_12-96.iso / DOS / Programa / CCDL122.ZIP / CLIBS / COMPLIB / 68K / 68DIVS.SRC < prev    next >
Encoding:
Text File  |  1996-07-31  |  255 b   |  24 lines
  1.     section code
  2.     XDEF __divs
  3.     xref    lludiv
  4. __divs:
  5.     move.l    (8,A7),D1
  6.     move.l    D1,D2
  7.     bpl.b    n1
  8.     neg.l    d1
  9. n1:
  10.     move.l    (4,A7),D0
  11.     eor.l    D0,D2
  12.     or.l    d0,d0
  13.     bpl.b    n2
  14.     neg.l    d0
  15. n2:
  16.     bsr    lludiv
  17.     btst.l    #31,D2
  18.     beq.b    ret
  19.     neg.l    d0
  20. ret:
  21.     rts
  22.  
  23.  
  24.