andi	#$00,CCR
	clr		a
	move	#$80,a2
	move	#>0.25,x0
	move	#>0.50,y0
	mac		-x0,y0,a
	move	#>-0.25,x0
	move	#>-0.55,y0
	mac		x0,y0,a
	move	#>-0.20,x0
	move	#>+0.55,y0
	mac		x0,y0,a
	move	#>-0.20,x0
	move	#>+0.55,y0
	mac		-x0,y0,a