110485Sdlw /* 2*22893Skre * Copyright (c) 1980 Regents of the University of California. 3*22893Skre * All rights reserved. The Berkeley software License Agreement 4*22893Skre * specifies the terms and conditions for redistribution. 5*22893Skre * 6*22893Skre * @(#)h_abs.c 5.1 06/07/85 710485Sdlw */ 810485Sdlw 910485Sdlw short h_abs(x) 1010485Sdlw short *x; 1110485Sdlw { 1210485Sdlw if(*x >= 0) 1310485Sdlw return(*x); 1410485Sdlw return(- *x); 1510485Sdlw } 16