Вычисление примера.Вывод результата.

Title primer
stacksg segment para    'code'
begin   proc
    assume  cs:codesg,ds:codesg,ss:codesg,es:nothing
org 100h
 
mov ax,06
mov al,00
int 10h
mov ah,00
mov al,03
int 10h
 
mov dh,03
mov dl,06
call    kursor
mov ah,09
lea dx,primer
int 21h
 
mov dh,06
mov dl,06
call    kursor
mov ah,09
lea dx,soob1
int 21h
 
mov ah,0ah
lea dx,vvod
int 21h
 
call    ASCII2
mov ax,binvx
mov a,ax
mov dh,08
mov dl,06
call    kursor
mov ah,09
lea dx,soob2
int 21h
 
mov binv,0
mov mul10,1
mov ah,0ah
lea dx,vvod
int 21h
call    ASCII2
mov ax,binv
mov b,ax
 
mov dh,10
mov dl,06
call    kursor
mov ah,09
lea dx,soob3
int 21h
 
mov binv,0
mov mul10,1
mov ah,0ah
lea dx,vvod
int 21h
call    ASCII2
mov ax,binv
mov c,ax
 
xor ax,ax
xor bx,bx
xor cx,cx
xor dx,dx
 
mov ax,b
sub ax,c
mov bx,ax
xor ax,ax
mov ax,a
div bx
mul ax
mov cx,a
mul ax
mov cx,a
mul ax
add cx,ax
mov ax,b
mul ax
sub cx,ax
mov ax,c
mul ax
sub cx,ax
 
mov binv,cx
call    VASCII
 
mov dh,12
mov dl,06
call    kursor
mov ah,09
lea dx,itog
int 21h
mov ah,09
lea dx,ASC
int 21h
 
mov ah,00
int 16h
int 20h
ret
begin   endp
 
ASCII2  proc
mov cx,0010
lea si,numb-1
xor bx,bx
mov bl,realln
 
b20: mov    al,[si+bx]
add ax,000fh
mul mul10
add binv,ax
mov ax,mul10
 
mul cx
mov mul10,ax
dec bx
jnz b20
mov bx,binv
ret
ASCII2  endp
 
VASCII  proc
mov asc, ''
mov asc+1,''
mov asc+2,''
mov cx,0010
lea si,asc-1
mov bx,3
mov ax,binv
 
c20: cmp    ax,cx
jb  c30
xor dx,dx
div cx
or  dl,30h
mov [si+bx],dl
dec bx
jmp c20
 
c30: or al,30h
mov [si+bx],al
ret
VASCII  endp
 
kursor  proc
mov ah,02
mov bh,00
int 10h
ret
kursor  endp
 
soob1   db  'Vvedite A: ','$'
soob2   db  'Vvedite B: ','$'
soob3   db  'Vvedite C: ','$'
Primer  db  'M=(a/(b-c))^2+(a^2-b^2-c^2)','$'
itog    db  'M= ','$'
 
vvod    label   byte
maxln   db  4
realln  db  ?
numb    db  4 dup(' ')
mul10   dw  1
binv    dw  0
A   dw  ?
B   dw  ?
C   dw  ?
ASC db  4 dup(' ),'$'
codesg  ends
    end begin

stacksg segment para    'code'
begin   proc

mov     ax,binvx

ASC     db      4 dup(' ),'$'

b20: mov        al,[si+bx]
add     ax,000fh
mul     mul10