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 } 18