DoXYSine	Lea	XSize(pc),a4
	Lea	SineXPt(pc),a5
	Bsr	DoSine
	Move.w	d3,(a4)
	Lea	YSize(pc),a4
	Lea	SineYPt(pc),a5
	Bsr	DoSine
	Move.w	d3,(a4)
	Rts

DoSine	Lea	SineData(pc),a6
	Moveq	#0,d2
	Moveq	#0,d3
	Move.l	08(a5),d0
	Move.l	12(a5),d1
	Add.l	d0,00(a5)
	Add.l	d1,04(a5)
	And.l	#$ffe,00(a5)	
	And.l	#$ffe,04(a5)	
	Move.l	00(a5),d0
	Move.l	04(a5),d1	
	Move.w	(a6,d0.l),d2
	Move.w	(a6,d1.l),d3	
	Add.l	d2,d3	
	Asl.w	#3,d3
	Add.w	#4096,d3
	Rts		

XSize	Dc.w	0
YSize	Dc.w	0

SineXPt	Dc.l	0
SineXPt1	Dc.l	0
SineXAdd	Dc.l	66
SineXAdd1	Dc.l	88

SineYPt	Dc.l	0
SineYPt1	Dc.l	0
SineYAdd	Dc.l	82
SineYAdd1	Dc.l	32

SineData	Incbin	df0:SysData/Sine1024Bs.Dat
	Incbin	df0:SysData/Sine1024Bs.Dat