Рассчитать площадь поверхности конуса: Не найду ошибку в ассемблере

[Skender]

386p
data segment 
BUF db 2,3 dup (?)
r db 0 dup(''),'$'
h db 0 dup(''),'$'
S db 0 dup(?),'$'
PR_R db 'enter 1 arg(R)','$'
PR_H db 'enter 2 arg(H)','$'
PR_S db 'Area = ','$'
PR_R1 db 'ARG=','$'
PR_H1 db 'ARG=','$'
data ends
code segment 
start proc far
assume cs:code,ds:data,ss:stack,es:data
push ds
sub ax,ax
push ax
mov ax,data
mov ds,ax
mov es,ax

call clear 

mov dx,0000h
call curs
lea dx,PR_R
call display
mov ah,0ah
lea dx,BUF
int 21h
mov al,BUF+2
mov r,BUF

mov ah,0ah
lea dx,BUF
int 21h
mov al,BUF+2
mov h,BUF

call clear

mov dx,0002h
call curs
lea dx,PR_R1
lea dx,r
call display

mov dx,0001h
call curs
lea dx,PR_H1
lea dx,h
call display

mov al,r
and al,0fh
mov bl,al

mov al,h
and al,0fh

mov cl,3.14
mul bl
mov bl,2
mul bl
mul cl
mov S,al

call clear

mov dx,000h
call curs
lea dx,PR_S
call display

mov al,r
and al,0fh
mov bl,al

mov al,h
and al,0fh
mov cl,3.14
mul bl
mov bl,2
mul bl
mul cl
mov S,al

ret
start endp

clear proc near
mov ax,0600h
mov bh,07h
mov cx,0000h
mov dx,184fh
int 10h
ret
clear endp

curs proc near
mov ah,02h
mov bh,00
int 10h
ret
curs endp

display proc near
mov ah,09h
int 21h
ret
display endp
code ends
end start

задача посчитать площать поверхности конуса


________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[alexcoder]

Вы пытаетесь запихнуть дробные числа в целочисленный регистр. Это неверно, нужно либо считать площадь в целых числах, либо использовать сопроцессор.

[Skender]

А остальное все правильно??
почему тогда TASM мне его не компилит ??