|
|
1.1 ! root 1: ! 2: #include "../machine/alignment.h" ! 3: cvtlb(infop) process_info *infop; ! 4: /* ! 5: /* Convert long to byte, checks overflow ! 6: /* ! 7: /****************************************/ ! 8: { ! 9: register long result; ! 10: ! 11: result = operand(infop,0)->data; ! 12: if (result < 0 ) negative_1 ; else negative_0; ! 13: if (result == 0 ) zero_1 ; else zero_0; ! 14: carry_1; ! 15: if (result > 0x7f || result <= -0x80) overflow_1; ! 16: else overflow_0; ! 17: write_back (infop, result, operand(infop,1) ); ! 18: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.