; Pack32(d0:L,d1:L,d2:L,d3:L)(L)

	machine	mc68020

	xdef	_Pack32

_Pack32
	andi.l	#$ff,d0
	andi.l	#$ff,d1
	andi.l	#$ff,d2
	andi.l	#$ff,d3	; 000000bb
	ror.l	#8,d0	; aa000000
	swap	d1	; 00rr0000
	lsl	#8,d2	; 0000gg00
	or.l	d1,d0
	or.l	d2,d0
	or.l	d3,d0	; aarrggbb
	rts