Return to fabs87.m CVS log

Up to [MW Coherent from dump] / coherent / b / lib / libm / i8087

Annotation of coherent/b/lib/libm/i8087/fabs87.m, revision 1.1.1.1

1.1       root        1: //////////
                      2: / libm 8087
                      3: / fabs(d)
                      4: //////////
                      5: 
                      6: #include "larges.h"
                      7: #include "ifno8087.h"
                      8: 
                      9:        .globl  fabs_
                     10: 
                     11: //////////
                     12: / double
                     13: / fabs(d)
                     14: / double d;
                     15: //////////
                     16: 
                     17: d      =       RASIZE          / arg offset
                     18: 
                     19: fabs_:
                     20:        ifno8087(_fabs_)
                     21:        mov     bx, sp
                     22: 
                     23:        fdld    Pss d(bx)       / Load argument d
                     24:        fabs                    / and perform abs.
                     25: 
                     26:        Gret

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.