| ------------------------------------------------------------------------------
| lrem.s -- long modulo
| Version 1 -- 1988-01-22
| ------------------------------------------------------------------------------
		.text

		.xdef	_lrem
		.xdef	lrem

		.xref	ldiv
		.xref	_ldivr

ARG1		=	8
ARG2		=	12

_lrem:
lrem:		link	a6,#-2
		move.l	ARG2(a6),-(a7)
		move.l	ARG1(a6),-(a7)
		jsr	ldiv
		cmpm.l	(a7)+,(a7)+
		move.l	_ldivr,d0
		unlk	a6
		rts

		.end