Вычислить значение выражения a*5-(b+c+d)/2

format mz
mov bh,9 ;a 
mov bl,0 ;b 
mov ch,2 ;c 
mov cl,3 ;d 
add bl,ch 
add bl,cl ; bl = b+c+D 
mov al,bh 
mov dl,5 
mul dl ; ax = bh * dl(5) 
movsx bx,bl 
sub ax,bx ; ax = ax - bx 
xor cl,cl 
mov cl,2 
div cl 
int 21h

; FASM code........
; целочисленная арифметика (без остатка)
; выводит на экран числа 0-99
format mz
org 100h
jmp start
 
mes0   db   13,10,' FORMULA: a*5-(b+c+d)/2'
       db   13,10,' A=9, B=0, C=2, D=3'
       db   13,10,' -------------------------'
       db   13,10,' RESULT: $'
 
start:
       mov   ah,9          ; мессага
       mov   dx,mes0       ;
       int   21h           ;
 
       xor   ax,ax         ;
       mov   al,9          ;
       imul  ax,5          ; А*5
 
       xor   bx,bx         ;
       mov   bl,0          ;
       add   bl,2          ;
       add   bl,3          ; (b+c+d)
       shr   bx,1          ;    ../2
 
       sub   ax,bx         ; a*5-(b+c+d)/2
 
       aam                 ; распаковываем результат (BCD)
       or    ax,3030h      ; переводим его в символы
       xchg  ah,al         ;
       int   29h           ;
       xchg  ah,al         ;
       int   29h           ; выводим на экран
 
exit:  xor   ax,ax         ; ждём клавишу..
       int   16h           ;
       mov   ax,4c00h      ;
       int   21h           ; выход!