* １６／２５６色モード時のグラフィックパレット情報を配列に取り込む
* void ARDGPAL(unsint buff[],int size)
* void ReadGPal(unsint buff[],int size)

	.include	defines.mac

	.xdef	_ARDGPAL
	.xdef	_ReadGPal
_ReadGPal:
_ARDGPAL:
	move.l	4(sp),a2	* buff address
	move.w	8+2(sp),d2	* size
	
	SUPERMODE		* SuperVisor mode
	move.l	d0,a1
	
	subq.w	#1,d2		* for dbra
	move.l	#GPALET,a0	* パレット
@@:	move.w	(a0)+,(a2)+
	dbra	d2,@b
	
	USERMODE		* to user mode
	rts

	.end
