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