procedure circle(x,y:word;r,c:byte);
	  var	aaa,stk,esx,sgm,bp1:word;
	  label	tml,l2,l3,en;
	  begin
          point_x:=x;
          point_y:=y;
		asm;
		    mov	ch,r
		    mov	cl,c
		    mov	di,x
		    mov	bx,y
		    pusha
		    push es
		    mov	bh,cl
		    mov	bp1, 5 
		    mov	dx,cx
		    mov	dl, 0 
	mov ax, 0 
	mov sgm,ax
	mov stk,ax
	mov si,videosegment
	mov es,si
	mov ah,bl
	mov si,ax
	shr ax, 2 
	add si,ax
	add si,di
	mov esx,si
	mov al, 0 
	mov ah,dh
	mov di,ax
	shr ax, 2 
	add di,ax
	jmp l2
tml:	mov al,dh
	mov ah, 0 
	shl ax, 1 
	add bp1,ax
	dec bp1
l2:	mov si,esx
	mov cx,stk
	mov ah, 0 
	mov al,dh
	add si,ax
	add si,cx
	mov es:[si],bh
	shl ax, 1 
	shl cx, 1 
	sub si,ax
	mov es:[si],bh
	sub si,cx
	mov es:[si],bh
	add si,ax
	mov es:[si],bh
	mov si,esx
	mov cx,di
	mov ah, 0 
	mov al,dl
	add si,ax
	add si,cx
	mov es:[si],bh
	shl ax, 1 
	shl cx, 1 
	sub si,cx
	mov es:[si],bh
	sub si,ax
	mov es:[si],bh
	add si,cx
	mov es:[si],bh
	inc dl
	add stk, 320 
	mov al,dl
	mov ah, 0 
	shl ax, 1 
	inc ax
	mov si,ax
	mov ax,sgm
	add ax,si
	mov sgm,ax
	cmp ax,bp1
	jnc l3
	jmp l2
l3:	dec dh
	sub di, 320 
	cmp dh,dl
	jc en
	jmp tml
en:	pop es
	popa
	end;
end;

КР=р*р
КХ=р*р
КУ= 0 


пока (КУ<КХ)
КУ=КУ+у+у+ 1 
у++
если (КУ+КХ>КР) тогда
 КХ=КХ-х-х+ 1 
 х --
 
конецесли
пиксел(х_+х,у_+у)
пиксел(х_+х,у_-у)
пиксел(х_-х,у_+у)
пиксел(х_-х,у_-у)

пиксел(х_+у,у_+х)
пиксел(х_+у,у_-х)
пиксел(х_-у,у_+х)
пиксел(х_-у,у_-х)
конецпока