1 /* 2 * "@(#)h_abs.c 1.1" 3 */ 4 5 short h_abs(x) 6 short *x; 7 { 8 if(*x >= 0) 9 return(*x); 10 return(- *x); 11 } 12