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