* チェックサム計算
* あんまり遅いのでアセンブラー化した
* それとチェックサム計算方法の統一をはかる
* int CalcSum(int sum,unchar *buff,int size,int *i)
* リターン値：sum
	.text
	.xdef	_CalcSum
_CalcSum:
	movem.l	4(sp),d0/a0-a2	* sum,buff,size,*i
	move.l	(a2),d2		* i(longword=word)
	exg	a1,d3		* d3=size
	*
	moveq.l	#0,d1		* for longword
CS1:	move.b	(a0)+,d1	* c=*buff++
	addq.b	#1,d2		* i++
	eor.b	d2,d1
	add.l	d1,d0		* sum+=c
	subq.l	#1,d3		* --size
	bne	CS1		* !=0
	*
	exg	d3,a1
	move.l	d2,(a2)		* *i
	rts
