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