|
|
1.1 ! root 1: /* Atst.c 1.1 86/07/20 */ ! 2: ! 3: #include "../tahoealign/align.h" ! 4: tst(infop) process_info *infop; ! 5: /* ! 6: /* Test operand, set condition codes. ! 7: /* ! 8: /************************************************/ ! 9: { ! 10: register long quantity; ! 11: ! 12: quantity = operand(infop,0)->data; ! 13: if (quantity < 0) negative_1; else negative_0; ! 14: if (quantity == 0) zero_1; else zero_0; ! 15: overflow_0; carry_1; ! 16: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.