/************************************************************

                   Le←Lisp Version 15.2
		  Les modules entiers
		utilisable sur tous les C.

		      Greg Nuyens
		      Juillet 87

**************************************************************/


#include <signal.h>
#include <errno.h>
#include <math.h>

extern int errno;

equo (x,y,buffer)
unsigned x,y,*buffer;
{
	*buffer = ((x / y) & 65535) ;
	*(buffer+1) = ((x % y) & 65535) ;
	return;
}