1 /* Acvtlb.c 1.1 86/07/20 */ 2 3 4 #include "../tahoealign/align.h" 5 cvtlb(infop) process_info *infop; 6 /* 7 /* Convert long to byte, checks overflow 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 > 0x7f || result <= -0x80) overflow_1; 18 else overflow_0; 19 write_back (infop, result, operand(infop,1) ); 20 } 21