Return to negd.s CVS log

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

Annotation of 43BSDTahoe/lib/libc/tahoe/fpe/negd.s, revision 1.1

1.1     ! root        1: #ifdef LIBC_SCCS
        !             2:        .asciz  "@(#)negd.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(negd, 0)
        !             9:        andl3   $EXPMASK,4(fp),r0       /* check for reserved operand,zero. */
        !            10:        beql    isreserved
        !            11:        movl    4(fp),r0                /* fetch operand. */
        !            12:        movl    8(fp),r1
        !            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,fpresop
        !            21:        ret
        !            22: retzero:
        !            23:        clrl    r0
        !            24:        clrl    r1
        !            25:        ret

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