|
|
1.1 root 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: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.