p_ICircle:
	.db __ICircleEnd-$-1
	ld	ix,plotSScreen
	ld	e,l
	pop	hl
	pop	bc
	ex	(sp),hl
	ld	b,l
	xor	a
	ld	l,a
	sub	e		;(CX,CY) = (b,c)
	ld	d,a		;(er,x,y) = (d,e,l)

__ICircleDraw4:
	ld	a,%01010000

__ICircleDraw8:
	add	a,a
	push	af
	jr	c,__ICircleSwap
	xor	a
	sub	e
	ld	e,a
	ex	de,hl
__ICircleSwap:
	push	hl
	push	de
	push	bc

	ld	a,l
	add	a,c
	ld	l,a
	ld	a,e
	add	a,b
	ld	c,a
	push	ix
	pop	de
	ld b,b \ .db 7 \ call $3F00+sub_Pix
	xor	(hl)
	ld	(hl),a

	pop	bc
	pop	hl
	pop	de
	pop	af
	jr	nz,__ICircleDraw8+2

	ld	a,d
	add	a,l
	inc	l
	add	a,l
	jp	m,__ICircleSkip-p_ICircle-3
	dec	e
	sub	e
	sub	e
__ICircleSkip:
	ld	d,a
	ld	a,e
	cp	l
	ret	c
	ld	a,%01010101
	jr	nz,__ICircleDraw8+2
	jr	__ICircleDraw4+2
__ICircleEnd: