|
|
1.1 ! root 1: /* Copyright (c) 1979 Regents of the University of California */ ! 2: ! 3: static char sccsid[] = "@(#)EXPO.c 1.1 10/29/80"; ! 4: ! 5: EXPO(value) ! 6: ! 7: long value; ! 8: { ! 9: if (value == 0) ! 10: return 0; ! 11: return ((value & ~0xffff8000) >> 7) - 128; ! 12: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.