date and time created 80/10/31 14:39:48 by mckusick

[unix-history] / usr / src / usr.bin / pascal / libpc / EXPO.c

/* Copyright (c) 1979 Regents of the University of California */

static char sccsid[] = "@(#)EXPO.c 1.1 %G%";

EXPO(value)

       long    value;
{
       if (value == 0)
               return 0;
       return ((value & ~0xffff8000) >> 7) - 128;
}