Commit | Line | Data |
---|---|---|
9d1834ba | 1 | /* Knegd.s 1.3 86/01/05 */ |
6bcd055f | 2 | |
9d1834ba SL |
3 | #include "../tahoemath/fp.h" |
4 | #include "../tahoemath/Kfp.h" | |
5 | #include "../tahoe/SYS.h" | |
2b252132 | 6 | |
6bcd055f | 7 | .text |
2b252132 | 8 | ENTRY(Knegd, 0) |
6bcd055f SL |
9 | andl3 $EXPMASK,4(fp),r0 /* check for reserved operand,zero. */ |
10 | beql retzero | |
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 | retzero: | |
19 | clrl r0 | |
20 | clrl r1 | |
21 | ret |