ufloatbf.s 282 B

123456789101112131415
  1. .xdef __floatunssibf
  2. .text
  3. __floatunssibf:
  4. link.w %a6,#-36
  5. pea.l 8(%a6)
  6. move.l 0xC8,%a0
  7. move.l 0xB5*4(%a0),%a0 /* _bcd_math */
  8. jsr (%a0)
  9. .word 0x6B30 /* bcdMove | bcdUnsigned | bcdAbsSrc | bcdR0 */
  10. move.l -10(%a6),%d0
  11. move.l -6(%a6),%d1
  12. move.w -2(%a6),%d2
  13. unlk %a6
  14. rts