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 } 21