Commit | Line | Data |
---|---|---|
6499767c | 1 | /* Alnf.c 1.2 90/12/04 */ |
578defd0 | 2 | |
6499767c | 3 | #include "align.h" |
578defd0 SL |
4 | lnf(infop) process_info *infop; |
5 | /* | |
6 | /* Load a negated float operand into accumulator. | |
7 | /* | |
8 | /******************************************************/ | |
9 | { | |
10 | ||
11 | register struct oprnd *op_pnt; | |
12 | ||
13 | op_pnt = operand(infop,0); | |
14 | if ( reserved( op_pnt->data ) ) | |
15 | exception(infop, ILL_OPRND); | |
16 | if ( op_pnt->data == 0 ) acc_high = 0; | |
17 | else acc_high = 0x80000000 ^ op_pnt->data ; | |
18 | psl &= ~PSL_DBL; | |
19 | infop->acc_dbl = 0; | |
20 | } |