home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 224a.lha / Includes / libraries / mathffp < prev    next >
Encoding:
Text File  |  1989-04-08  |  1.7 KB  |  47 lines
  1.  
  2. : MATHNAME   " mathffp.library"  drop  ;
  3.  
  4. libindex: >Math
  5.  
  6.  
  7. \\ ( the Cmp,Sub,Dib work backwards to normal Forth??? CHECK IT OUT!!  )
  8.  
  9. >Math ^ -030 (r D0 r) SPFix (s flt -- n )
  10. >Math ^ -036 (r D0 r) SPFlt (s n -- flt )
  11. >Math ^ -042 (r D1 D0 r) SPCmp (s flt1 flt2 -- -1|0|+1 )
  12. >Math ^ -048 (r D1 r) SPTst (s flt -- -1|0|+1 )
  13. >Math ^ -054 (r D0 r) SPAbs (s flt -- |flt| )
  14. >Math ^ -060 (r D0 r) SPNeg (s flt --  -flt )
  15. >Math ^ -066 (r D1 D0 r) SPAdd (s flt1 flt2 -- flt1+flt2 )
  16. >Math ^ -072 (r D1 D0 r) SPSub (s flt1 flt2 -- flt2-flt1 )
  17. >Math ^ -078 (r D1 D0 r) SPMul (s flt1 flt2 -- flt2*flt1 )
  18. >Math ^ -084 (r D1 D0 r) SPDiv (s flt1 flt2 -- flt2/flt1 )
  19. >Math ^ -090 (r D0 r) SPFloor (s flt -- ??? )
  20. >Math ^ -096 (r D0 r) SPCeil (s flt -- ??? )
  21.  
  22. : MATHTRANSNAME   " mathtrans.library"  drop  ;
  23.  
  24. libindex: >MathTrans
  25.  
  26.  
  27. >MathTrans ^ -030 (r D0 r) SPAtan (s tan -- flt )
  28. >MathTrans ^ -036 (r D0 r) SPSin (s flt -- sin )
  29. >MathTrans ^ -042 (r D0 r) SPCos (s flt -- cos )
  30. >MathTrans ^ -048 (r D0 r) SPTan (s flt -- tan )
  31. >MathTrans ^ -054 (r D1 D0 r) SPSincos (s adr-cos flt -- sin )
  32. >MathTrans ^ -060 (r D0 r) SPSinh (s flt -- hsin )
  33. >MathTrans ^ -066 (r D0 r) SPCosh (s flt -- hcos )
  34. >MathTrans ^ -072 (r D0 r) SPTanh (s flt -- htan )
  35. >MathTrans ^ -078 (r D0 r) SPExp (s flt -- e^flt )
  36. >MathTrans ^ -084 (r D0 r) SPLog (s flt -- ln )
  37. >MathTrans ^ -090 (r D1 D0 r) SPPow (s flt1 flt2 -- flt1^flt2 )
  38. >MathTrans ^ -096 (r D0 r) SPSqrt (s flt -- sqrt )
  39. >MathTrans ^ -102 (r D0 r) SPTieee (s flt -- ieee )
  40. >MathTrans ^ -108 (r D0 r) SPFieee (s ieee -- flt )
  41. >MathTrans ^ -114 (r D0 r) SPAsin (s sin -- flt )
  42. >MathTrans ^ -120 (r D0 r) SPAcos (s cos -- flt )
  43. >MathTrans ^ -126 (r D0 r) SPLog10 (s flt -- log )
  44.  
  45.  
  46.  
  47.