1*29638Ssam /* Asuba.c 1.1 86/07/20 */ 2*29638Ssam 3*29638Ssam #include "../tahoealign/align.h" 4*29638Ssam suba(infop) process_info *infop; 5*29638Ssam /* 6*29638Ssam /* Subtract address. 7*29638Ssam /* 8*29638Ssam /****************************/ 9*29638Ssam { 10*29638Ssam register int data0, data1, result; 11*29638Ssam 12*29638Ssam data0 = operand(infop,0)->data; 13*29638Ssam data1 = operand(infop,1)->data; 14*29638Ssam result = data1 - data0; 15*29638Ssam write_back (infop,result, operand(infop,1)); 16*29638Ssam } 17