home *** CD-ROM | disk | FTP | other *** search
/ EuroCD 3 / EuroCD 3.iso / Programming / vbcc / machines / amiga68k / libsrc / ixemul / support / fixlu.s < prev    next >
Encoding:
Text File  |  1998-06-24  |  429 b   |  23 lines
  1.     xdef    __ieeefixlu
  2.     xref    ___cmpsf2
  3.     xref    ___subsf3
  4.     xref    ___fixsfsi
  5. __ieeefixlu:
  6.     move.l  #$4f000000,-(a7)
  7.     move.l  8(a7),-(a7)
  8.     jsr     ___cmpsf2
  9.     addq.w  #8,a7
  10.     tst.l   d0
  11.     bge.s   ll
  12.     jmp     ___fixsfsi
  13. ll:
  14.     move.l  #$4f000000,-(a7)
  15.     move.l  8(a7),-(a7)
  16.     jsr     ___subsf3
  17.     movem.l d0,-(a7)
  18.     jsr     ___fixsfsi
  19.     add.w   #12,a7
  20.     eor.l   #-2147483648,d0
  21.     rts
  22.  
  23.