*
* aldiv.s -- indirect long divide
* Version 1 -- 1989-01-24 -- D.N. Lynx Crowe
*
	.text
*
	.xdef	aldiv
	.xdef	_aldiv
*
	.xref	_ldiv
*
aldiv:
_aldiv:
*
	link	a6,#-2
	move.l	12(a6),-(a7)
	movea.l	8(a6),a0
	move.l	(a0),-(a7)
	jsr	_ldiv
	cmpm.l	(a7)+,(a7)+
	movea.l	8(a6),a1
	move.l	d0,(a1)
	unlk	a6
	rts
*
	.end