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