Commit | Line | Data |
---|---|---|
c8cccbb7 C |
1 | /* Acvtlw.c 1.1 86/07/20 */ |
2 | ||
3 | #include "../tahoealign/align.h" | |
4 | cvtlw(infop) | |
5 | process_info *infop; | |
6 | /* | |
7 | /* Convert longword to word | |
8 | /* | |
9 | /****************************************/ | |
10 | { | |
11 | register long result; | |
12 | ||
13 | result = operand(infop,0)->data; | |
14 | if (result < 0 ) negative_1 ; else negative_0; | |
15 | if (result == 0 ) zero_1 ; else zero_0; | |
16 | carry_1; | |
17 | if (result > 0x7fff || result <= -0x8000) overflow_1; | |
18 | else overflow_0; | |
19 | write_back (infop, result, operand(infop,1) ); | |
20 | } |