: MATHNAME   " mathffp.library"  drop  ;

libindex: >Math


\\ ( the Cmp,Sub,Dib work backwards to normal Forth??? CHECK IT OUT!!  )

>Math ^ -030 (r D0 r) SPFix (s flt -- n )
>Math ^ -036 (r D0 r) SPFlt (s n -- flt )
>Math ^ -042 (r D1 D0 r) SPCmp (s flt1 flt2 -- -1|0|+1 )
>Math ^ -048 (r D1 r) SPTst (s flt -- -1|0|+1 )
>Math ^ -054 (r D0 r) SPAbs (s flt -- |flt| )
>Math ^ -060 (r D0 r) SPNeg (s flt --  -flt )
>Math ^ -066 (r D1 D0 r) SPAdd (s flt1 flt2 -- flt1+flt2 )
>Math ^ -072 (r D1 D0 r) SPSub (s flt1 flt2 -- flt2-flt1 )
>Math ^ -078 (r D1 D0 r) SPMul (s flt1 flt2 -- flt2*flt1 )
>Math ^ -084 (r D1 D0 r) SPDiv (s flt1 flt2 -- flt2/flt1 )
>Math ^ -090 (r D0 r) SPFloor (s flt -- ??? )
>Math ^ -096 (r D0 r) SPCeil (s flt -- ??? )

: MATHTRANSNAME   " mathtrans.library"  drop  ;

libindex: >MathTrans


>MathTrans ^ -030 (r D0 r) SPAtan (s tan -- flt )
>MathTrans ^ -036 (r D0 r) SPSin (s flt -- sin )
>MathTrans ^ -042 (r D0 r) SPCos (s flt -- cos )
>MathTrans ^ -048 (r D0 r) SPTan (s flt -- tan )
>MathTrans ^ -054 (r D1 D0 r) SPSincos (s adr-cos flt -- sin )
>MathTrans ^ -060 (r D0 r) SPSinh (s flt -- hsin )
>MathTrans ^ -066 (r D0 r) SPCosh (s flt -- hcos )
>MathTrans ^ -072 (r D0 r) SPTanh (s flt -- htan )
>MathTrans ^ -078 (r D0 r) SPExp (s flt -- e^flt )
>MathTrans ^ -084 (r D0 r) SPLog (s flt -- ln )
>MathTrans ^ -090 (r D1 D0 r) SPPow (s flt1 flt2 -- flt1^flt2 )
>MathTrans ^ -096 (r D0 r) SPSqrt (s flt -- sqrt )
>MathTrans ^ -102 (r D0 r) SPTieee (s flt -- ieee )
>MathTrans ^ -108 (r D0 r) SPFieee (s ieee -- flt )
>MathTrans ^ -114 (r D0 r) SPAsin (s sin -- flt )
>MathTrans ^ -120 (r D0 r) SPAcos (s cos -- flt )
>MathTrans ^ -126 (r D0 r) SPLog10 (s flt -- log )