UNIX 7th Ed. - /usr/src/libF77/i_abs.c

   1: long int i_abs(x)
   2: long int *x;
   3: {
   4: if(*x >= 0)
   5:     return(*x);
   6: return(- *x);
   7: }

Defined functions