Окружность: исправить ошибки

.386
data segment
 
x360     dd  180.0
x36      dw  360
forcolor db  10
 
xc       dw  320
yc       dw  175
rx       dw  100
ry       dw  70
 
x        dw  ? 
y        dw  ? 
angl     dw  1 
data     ends
text     segment use16
         assume  CS:text, DS:data
point    proc
         push CX
         mov  CX, xc
         mov  AH, 0Ch
         mov  AL, forcolor
         mov  BH, 
         fld word ptr yc1 
         fistp yc
         mov  DX, yc
         fld word ptr xc1 
         fistp xc
         mov  CX, xc
         sub  CX, x
         sub  DX, y
         int  10h
         pop  CX
         ret
point    endp
 
main     proc 
         mov AX, data
         mov  DS, AX 
         mov  AH, 0h 
         mov  AL, 10h 
         int  10h
         mov  CX, x36
         finit 
         fldpi 
         fld   x360 
         fdiv 
         fstp x360
do:     fld   x360
         fild  angl
         fmul
         fsincos
         fild  ry 
         fmul
         fistp y
         fild  rx
         fmul
         fistp x
         fwait 
         call  point
         inc   angl
         loop  do
         mov   AH, 8
         int   21h
         mov   AX, 4C00h
         int   21h
main     endp
text     ends
stk      segment stack 'stack'
         dw    128 dup(?)
stk      ends[ASM]

 fld word ptr yc
         fistp yc
         mov  DX, yc
         fld word ptr xc