Someone

mirror_sprite32:
move.l %d3,-(%sp)
subq.w #1,%d0
row:	
	moveq.l #31,%d2
	col:
		move.l (%a1)+,%d1
		add.l %d1,%d1
		roxr.l #1,%d3
		dbra.w %d2,col
	move.l %d3,(%a0)+
	dbra.w %d0,row
	
move.l (%sp)+,%d3
rts