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