#include	"defs.h"

divide(al, q)
	L_INT	*al;
{
	REG INT	a;

	a = *al % q;
	*al = *al/q;
	return(a);
}