1*29627Ssam /* Apusha.c 1.1 86/07/20 */ 2*29627Ssam 3*29627Ssam #include "../tahoealign/align.h" 4*29627Ssam pusha(infop) process_info *infop; 5*29627Ssam /* 6*29627Ssam /* Push address of the operand 7*29627Ssam /* 8*29627Ssam /**************************************/ 9*29627Ssam { 10*29627Ssam register long new_address; 11*29627Ssam 12*29627Ssam new_address = operand(infop,0)->address; 13*29627Ssam if (new_address < 0) negative_1; else negative_0; 14*29627Ssam if (new_address == 0) zero_1; else zero_0; 15*29627Ssam overflow_0; carry_1; 16*29627Ssam push (infop, new_address); 17*29627Ssam } 18