;********************
;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
  

;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