ack/lang/a68s/liba68s/shr.c
1988-10-04 13:41:01 +00:00

5 lines
132 B
C

SHR(statlink, n , a)
int *statlink ;
unsigned a ;
{ return( n < 0 ? ( - n >= 32 ? 0 : a << - n ) : n >= 32 ? 0 : a >> n ) ; }