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