start
	move	#$ffff,m0
wait_sinus
	movep	#1,x:PBC
	jclr	#0,x:HSR,wait_sinus
	
	move	x:HTX,x1
wait_cosinus
	movep	#1,x:PBC
	jclr	#0,x:HSR,wait_cosinus
	move	x:HTX,x0
	move	#data,r0
	nop
	move	x:(r0)+,y0
	move	x:(r0)+,y1
	
	do		#NB_PTS,boucle
	
	mpy		y0,x1,a
	macr	-y1,x0,a
	
	mpy		y0,x0,b		x:(r0)+,y0
	macr	y1,x1,b		x:(r0)+,y1
send_x	jclr	#1,x:HSR,send_x
		move	A1,x:HTX
send_y	jclr	#1,x:HSR,send_y
		move	b1,x:HTX
boucle
	jmp	start