home *** CD-ROM | disk | FTP | other *** search
/ Enigma Amiga Life 109 / EnigmaAmiga109CD.iso / software / sviluppo / powerd / lib / powerd_lib.lha / PowerD / Pow.ass < prev    next >
Encoding:
Text File  |  1999-09-30  |  140 b   |  14 lines
  1. ; fp0:=fp0^fp1
  2.     fpu    1
  3.  
  4.     xdef    _Pow
  5.  
  6. _Pow    ftst.x    fp1
  7.     fbeq    .retone
  8.     flogn.x    fp0
  9.     fmul.x    fp1,fp0
  10.     fetox.x    fp0
  11.     rts
  12. .retone    fmove.w    #1,fp0
  13.     rts
  14.