;Opredelyaem segment steka
stsg    segment    para    stack    'stack'
  dw    32    dup(?)    ;videlyaem 64 bayta
stsg    ends

;Opr. segment dannih
dssg    segment    para    'data'
a    db    5
b    db    15  
c    db    3
result    db    ?

;Opr. segment koda
cdsg    segment    para    'code'    
  assume    cs:cdsg, ds:dssg, ss:stsg
   
;MAIN PROGRAM
prg    proc    far

;Segmentniy registr dannih (init)
push    ds
sub    ax, ax
push    ax
mov    ax, dssg
mov    ds, ax

;PROGRAM START
sub    al, al
mov    al, a ;a=5->al=5
mul    al
;PROGRAM END
  ret
prg    endp
cdsg    ends
  end    prg
   
   

a = 5 : b = 15 : c =3
x = a*a-5-c/b+(3+c)*a*7

; a = 5 : b = 15 : c =3
   MOV    dword [v_a],5
   MOV    dword [v_b],15
   MOV    dword [v_c],3
; x = a*a-5-c/b+(3+c)*a*7
   MOV    ebx,dword [v_a]
   IMUL   ebx,dword [v_a]
   MOV    edi,dword [v_c]
   PUSH   dword [v_b]
   MOV    eax,edi
   POP    ecx
   CDQ
   IDIV   ecx
   MOV    edi,eax
   SUB    ebx,edi
   MOV    edi,dword [v_c]
   ADD    edi,3
   IMUL   edi,dword [v_a]
   IMUL   edi,7
   ADD    ebx,edi
   ADD    ebx,-5
   MOV    dword [v_x],ebx

     
     mov al,[a] ;al=a
     mul al ; al=a*a
     add al,-5 ;al=a*a-5
     mov bh,al     
     mov al,[cc] ;al = ah     
     add al,3 ; al = c+3
     mul [a] ; al = (c+3)*a
     mov ah,7     
     mul ah ;al = (c+3)*a*7
     add bh,al ; bh=bh+al=a*a-5+(c+3)*a*7
     mov al,[cc] ; al=c
     div [b]
     sub bh,al ;bh=bh-c/d (но c/d=0, в принципе, можно было и опустить)

;********************
;Opredelyaem segment steka
;********************
stsg    segment    para    stack    'stack'
  dw    32    dup(?)    ;videlyaem 64 bayta
stsg    ends
;********************
;Opr. segment dannih
;********************
dssg    segment    para    'data'
a    db    5
b    db    15  
c    db    3
d    db    7
result    db    ?
dssg ends
;********************
;Opr. segment koda
;********************
cdsg    segment    para    'code'    
  assume    cs:cdsg, ds:dssg, ss:stsg
;********************  
;MAIN PROGRAM
;********************
prg    proc    far
;********************
;Segmentniy registr dannih (init)  
;********************
push    ds
sub    ax, ax
push    ax
mov    ax, dssg
mov    ds, ax

;********************
;PROGRAM START
;a·a-5-c/b+(3+c)·a·7
;a = 5
;b = 15
;c = 3
;d = 7
;********************
sub    ax,ax
mov    al,a    ;a=5->al=5
mul    al    ;al*al->a*a->5*5
sub    ax,5    ;5*5-5
push    ax    ;ax - into stack. ax = a*a-5
sub    ax,ax    ;Clear ax
sub    al,al  ;Clear al
mov    al,c
mov    dl,b
div    dl  ;c/b. Result - into al, % - into ah  
sub    ax,ax
sub  dl,dl
sub    al,al
mov    al,c    ;al = 3
add  al,al
push    al    ;3+c into stack
sub    al,al    ;Clear al
mov    al,d    ;al = 7
mov    dl,a    ;dl = 5
mul    dl    ;ax = 5*7
sub    al,al
sub    dl,dl
mov    dl,ax    ;dl = 5*7
sub    ax,ax
pop    al
mul    dl    ;(3+c)*a*7
push    ax
sub    al,al
sub    dl,dl
pop    al
pop    bl
add    al,bl
push    al
sub    al,al
sub    bl,bl

;********************
;PROGRAM END
;********************
  ret
prg    endp
cdsg    ends
   end    prg