xref: /csrg-svn/usr.bin/pascal/libpc/EXPO.c (revision 1649)
1 /* Copyright (c) 1979 Regents of the University of California */
2 
3 static char sccsid[] = "@(#)EXPO.c 1.1 10/30/80";
4 
5 EXPO(value)
6 
7 	long	value;
8 {
9 	if (value == 0)
10 		return 0;
11 	return ((value & ~0xffff8000) >> 7) - 128;
12 }
13