; UnPack32(d0:UL)(L,L,L,L)

	machine	mc68020

	xdef	_UnPack32

_UnPack32
	move.l	d0,d3
	clr.l	d2
	move.b	d3,d2
	lsr.l	#8,d3
	clr.l	d1
	move.b	d3,d1
	lsr.l	#8,d3
	clr.l	d0
	move.b	d3,d0
	lsr.l	#8,d3
	rts