Return to Knegf.x CVS log

Up to [Power 6/32 Unix Tahoe 4.2BSD] / cci / sys / tahoe

Annotation of cci/sys/tahoe/Knegf.x, revision 1.1

1.1     ! root        1: 
        !             2: #include "fp.h"
        !             3: #include "fp_in_krnl.h"
        !             4:        .text
        !             5:        .globl  _Knegf
        !             6: _Knegf:        .word   0x0000
        !             7:        clrl    r1
        !             8:        andl3   $EXPMASK,4(fp),r0       /* check for reserved operand,zero. */
        !             9:        beql    retzero
        !            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: retzero:
        !            17:        clrl    r0
        !            18:        ret

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