Return to negf.x CVS log

Up to [Power 6/32 Unix Tahoe 4.2BSD] / cci / usr / src / lib / libc / tahoe / gen

Annotation of cci/usr/src/lib/libc/tahoe/gen/negf.x, revision 1.1.1.1

1.1       root        1: 
                      2: #include <machine/fp.h>
                      3:        .text
                      4:        .globl  Xnegf
                      5: _negf:
                      6: Xnegf: .word   0x0000
                      7:        clrl    r1
                      8:        andl3   $EXPMASK,4(fp),r0       /* check for reserved operand,zero. */
                      9:        beql    isreserved
                     10:        movl    4(fp),r0                /* fetch operand. */
                     11:        bbc     $31,r0,seton
                     12:        andl2   $(0!SIGNBIT),r0         /* turn it off. */
                     13:        ret
                     14: seton: orl2    $SIGNBIT,r0             /* turn it on. */
                     15:        ret
                     16: isreserved:
                     17:        bbc     $31,4(fp),retzero
                     18:        callf   $4,sfpresop
                     19:        ret
                     20: retzero:
                     21:        clrl    r0
                     22:        ret

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