;
		; Some 32/64 bit calculation stuff for MIDI timing
		;

		Include	"Utility/Utility_lib.i"

		SECTION TEXT,CODE

		XDEF _AddAbsTime
		XDEF _CalcFillClock

		; a0: &abstimeLO
		; a1: &abstimeHI
		; d0: tempo
		; d1: lowclock
		; d2: division

_AddAbsTime	mulu.l d1,d1:d0
		divu.l d2,d1:d0
		add.l d0,(a0)
		bcc.s	.skip1
		addq.l	#1,(a1)
.skip1		rts


		; d0: abstimeLO
		; d1: abstimeHI
		; d2: divisor

_CalcFillClock	divu.l	d2,d1:d0
		rts



		END