; Conv24To8(d0:LONG)(L)

	machine	mc68020

	xdef	_Conv24To8

_Conv24To8
	move.l	d2,a0
	move.l	d0,d1
	move.l	d0,d2
	lsr.l	#8,d1
	lsr.l	#8,d2
	lsr.l	#8,d2
	and.l	#$ff,d0
	and.l	#$ff,d1
	and.l	#$ff,d2
	add.l	d1,d0
	add.l	d2,d0
	divs.l	#3,d0
	move.l	a0,d2
	rts