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