/* $OpenXM: OpenXM_contrib2/asir2000/asm/port.c,v 1.1.1.1 1999/12/03 07:39:07 noro Exp $ */
#include "base.h"

int dsab(base,a1,a2,up)
int base,a1,a2,*up;
{
	return dmab(base,a1,BASE,a2,up);
}

int dqr(a,b,qp)
int a,b,*qp;
{
	*qp = a/b;
	return a - b * (*qp);
}