#NO_APP
	.text
	.even
	.globl	_myScalerDiv
_myScalerDiv:
	moveml #0x3c00,sp@-
	movel d2,a0
	movew d0,d5
	movew d1,d4
	clrl d1
	tstw d0
	jeq L1
	muls d4,d0
	andl #0xFFFF,d0
	divu d2,d0
	clrl d3
	movew d0,d3
	moveq #1,d1
	tstl d3
	jeq L1
	movew d5,d1
	mulu d4,d1
	clrl d0
	movew a0,d0
	divsll d0,d2:d1
	clrl d0
	movew a0,d0
	addql #1,d0
	asrl #1,d0
	cmpl d2,d0
	jgt L5
	addql #1,d3
L5:
	clrl d1
	movew d3,d1
	.even
L1:
	movel d1,d0
	moveml sp@+,#0x3c
	rts
