Вычисление выражения по формуле

   st_k segment stack 'stack'
        dw 100 dup(?)
   st_k ends
   data segment 'data'
       x dd 1234567890;80000000h;7fffffffh;11112222
       y dd 0987654321;7fffffffh;88884567
       z dd ?
       decimal db 10 dup (?)
       res db 20 dup('0'),13,10,'$'
       msgx db 'x = $'
       msgy db 'y = $'
       msgz db 'z = $'
   data ends
   text segment 'code'
   assume cs:text,ds:data
start:
     mov ax,data
     mov ds,ax
     mov ah,9
     lea dx,msgx
     int 21h
     fild x
     fbstp tbyte ptr[decimal]
     call TOASCII
     mov ah,9
     lea dx,res
     int 21h
     fild x
     mov ah,9
     lea dx,msgy
     int 21h
     fild y
     fbstp tbyte ptr[decimal]
     call TOASCII
     mov ah,9
     lea dx,res
     int 21h
     fild y
     fadd
     mov ah,9
     lea dx,msgz
     int 21h
     fist z
     fbstp tbyte ptr[decimal]
     call TOASCII
     mov ah,9
     lea dx,res
     int 21h
     mov ax,4c00h
     int 21h
 
TOASCII proc
     mov cx,10
     mov bx,9
     lea si,res
m1:   mov al,decimal[bx]
      mov dl,al
      and al,0f0h
      shr al,4
      add al,30h
      mov [si],al
      inc si
      mov al,dl
      and al,0fh
      add al,30h
      mov [si],al
      inc si
      dec bx
      loop m1
     
     ret
TOASCII endp
text ends
 end start

fist x1
fild x
fild y
fmul
fist x2
fild x2
fild x1
fdiv

     fild x
     fild y
     fmulp
     fild x
     fild y
     faddp
     fdivp
     fist z