home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / GCC / GERLIB_DEV08B.LHA / gerlib / Bonus / normal / finite.s < prev    next >
Encoding:
Text File  |  1993-12-12  |  172 b   |  17 lines
  1. #NO_APP
  2. gcc2_compiled.:
  3. .text
  4.     .even
  5. .globl _finite
  6. _finite:
  7.     movew sp@(4),d0
  8.     andw #32752,d0
  9.     cmpw #32752,d0
  10.     sne d0
  11.     extw d0
  12.     movew d0,a0
  13.     movel a0,d0
  14.     negl d0
  15.     rts
  16.     nop
  17.