CIRCL
	MOVE	A13,*A10(CIRCPTR),L
CRC1
	SLEEP	3
	MOVB	*A10(CNTRXY),A0
	INC	A0
	MOVB	A0,*A10(CNTRXY)
	CMPI	24,A0
	JRC	GO0
	CLR	A0
	MOVB	A0,*A10(CNTRXY)
GO0
	SLL	5,A0
	MOVI	ADX2,A1
	ADD	A0,A1
	MOVE	*A1,A1,L
	ADDI	ADY2,A0
	MOVE	*A0,A0,L
	MOVE	*A8(OYVAL),A2,L
	ADD	A0,A2
	MOVE	A2,*A8(OYVAL),L
	MOVE	*A8(OXVAL),A2,L
	ADD	A1,A2
	MOVE	A2,*A8(OXVAL),L
	JRUC	CRC1
CIRCL2
	MOVE	A13,*A10(CIRCPTR),L
CRC2
	SLEEP	2
	MOVB	*A10(CNTRXY),A0
	INC	A0
	MOVB	A0,*A10(CNTRXY)
	CMPI	24,A0
	JRC	GO0
	CLR	A0
	MOVB	A0,*A10(CNTRXY)
GO1
	SLL	5,A0
	MOVI	ADX2,A1
	ADD	A0,A1
	MOVE	*A1,A1,L
	ADDI	ADY2,A0
	MOVE	*A0,A0,L
	MOVE	*A8(OYVAL),A2,L
	ADD	A0,A2
	MOVE	A2,*A8(OYVAL),L
	MOVE	*A8(OXVAL),A2,L
	ADD	A1,A2
	MOVE	A2,*A8(OXVAL),L
	JRUC	CRC2
ADX
	.LONG	10000H,8000H,8000H,8000H,8000H,4000H,0,-4000H,-8000H
	.LONG	-8000H,-8000H,-8000H,-10000H,-10000H,-8000H,-8000H,-8000H
	.LONG	-4000H,0,4000H,8000H,8000H,8000H,8000H
ADY
	.LONG	0,4000H,4000H,4000H,4000H,8000H,10000H,8000H,4000H,4000H
	.LONG	4000H,4000H,0,-4000H,-4000H,-4000H,-4000H,-8000H,-10000H
	.LONG	-8000H,-4000H,-4000H,-4000H,-4000H