home *** CD-ROM | disk | FTP | other *** search
/ Amiga ACS 1998 #4 / amigaacscoverdisc1998-041998.iso / utilities / shareware / dev / vbcc / machines / amiga68k / libsrc / math / math_040o / cos.s < prev    next >
Encoding:
Text File  |  1997-12-30  |  210 b   |  15 lines
  1.  fpu 1
  2.  
  3.  xref _MathIeeeDoubTransBase
  4.  
  5.  xdef _cos
  6. _cos:
  7.  movem.l 4(sp),d0-d1
  8.  move.l  a6,-(sp)
  9.  move.l  _MathIeeeDoubTransBase,a6
  10.  jsr     -42(a6)
  11.  movem.l  d0-d1,-(a7)
  12.  fmove.d (a7)+,fp0
  13.  move.l  (sp)+,a6
  14.  rts
  15.