Return to negf.s CVS log

Up to [CSRG BSD Unix] / 43BSDTahoe / lib / libc / tahoe / fpe

Annotation of 43BSDTahoe/lib/libc/tahoe/fpe/negf.s, revision 1.1.1.1

1.1       root        1: #ifdef LIBC_SCCS
                      2:        .asciz  "@(#)negf.s     1.1 (Berkeley/CCI) 7/2/86"
                      3: #endif LIBC_SCCS
                      4: 
                      5: #include <tahoemath/fp.h>
                      6: #include "DEFS.h"
                      7: 
                      8: XENTRY(negf, 0)
                      9:        clrl    r1
                     10:        andl3   $EXPMASK,4(fp),r0       /* check for reserved operand,zero. */
                     11:        beql    isreserved
                     12:        movl    4(fp),r0                /* fetch operand. */
                     13:        bbc     $31,r0,seton
                     14:        andl2   $(0!SIGNBIT),r0         /* turn it off. */
                     15:        ret
                     16: seton: orl2    $SIGNBIT,r0             /* turn it on. */
                     17:        ret
                     18: isreserved:
                     19:        bbc     $31,4(fp),retzero
                     20:        callf   $4,sfpresop
                     21:        ret
                     22: retzero:
                     23:        clrl    r0
                     24:        ret

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