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

9 lines
141 B
C

MOD(statlink, b , a)
int *statlink ;
int a , b ;
{
int r ;
r = a % b ;
return( r < 0 ? r + ( b < 0 ? - b : b ) : r ) ;
}