|
|
1.1 ! root 1: /* Acvt.c 1.1 86/07/20 */ ! 2: ! 3: #include "../tahoealign/align.h" ! 4: cvt(infop) process_info *infop; ! 5: /* ! 6: /* Convert , checks overflow ! 7: /* ! 8: /****************************************/ ! 9: { ! 10: register long result; ! 11: ! 12: result = operand(infop,0)->data; ! 13: if (result < 0 ) negative_1 ; else negative_0; ! 14: if (result == 0 ) zero_1 ; else zero_0; ! 15: carry_1; overflow_0; ! 16: /* Overflow may be set by writing back */ ! 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.