home *** CD-ROM | disk | FTP | other *** search
/ Source Code 1992 March / Source_Code_CD-ROM_Walnut_Creek_March_1992.iso / usenet / altsrcs / 3 / 3137 / mulsi3.s < prev    next >
Encoding:
Text File  |  1991-03-27  |  734 b   |  31 lines
  1.     .text            | cjpurcell 30Jul89
  2.     .even            |
  3.     .globl __mulsi3        |
  4.     .globl ___mulsi3    |
  5. __mulsi3:            |
  6. ___mulsi3:            |
  7.     link a6,#-2        | one word of local
  8.     clrw a6@(-2)        | zap the local; it's our neg flg
  9.                 |
  10.     movel a6@(12),d0    | get b
  11.     bpl muls1        | pos, ok
  12.     negl d0            | negate it
  13.     addqw #1,a6@(-2)    | and inc the flag
  14. muls1:                |
  15.     movel d0,sp@-        | push adjusted b
  16.     movel a6@(8),d0        | get a
  17.     bpl muls2        | pos, ok
  18.     negl d0            | negate it
  19.     subqw #1,a6@(-2)    | and dec the flag
  20. muls2:                |
  21.     movel d0,sp@-        | push adjusted a
  22.     jbsr ___umulsi3        | do an unsigned mult
  23.     addql #8,sp        | flush args
  24.     tstw a6@(-2)        | flag set?
  25.     beq muls3        | nope, go ahead and return
  26.     negl d0            | negate the result
  27. muls3:                |
  28.                 |
  29.     unlk a6            | unlink the frame
  30.     rts            | done!
  31.