Всем здравствуйте. Написал вот такой код, в котором по видимому есть косяки. Помогите исправить, пожалуйста. Спасибо.
Посчитать значение выражения и вывести ответ на экран.
;(-2*c – d + 53)/(a/4 – 1)


stak segment para stack 'stack'
db 64 dup(?)
stak ends
data segment para public 'data'
A DB 5; A=5
D DB 6; D=6
C DB 7; C=7
REZ DW ?
al DB ?
B1 DB ?
cl Db ?
D1 Db ?
DN Db ?
N Db ?
data ends
code segment para public 'code'
s: assume ds:data, cs:code, ss:stak
MOV ax,data
MOV ds,ax

;(a/4 – 1)

MOV al, A ;<al>=A
CBW ;<al>=><ax>
MOV bl, 4 ;<bl>=4
Idiv bl ;<al>=<ax>/<bl>
CBW
DEC AX ; <ax>=<ax>-1
MOV DN, AX ; <dn>=<ax>

;(-2*c – d + 53)

MOV al, C ; <al>=C
CBW ; <al>=><ax>
MOV B1, -2 ; <B1>=-2
IMUL B1 ; <al>=<ax>-<B1>
MOV BX, AX ; <BX>=<AX>
MOV cl, D ; <cl>=><D>
MOV AX, cl ; <AX>=<cl>
CBW
SUB BX, AX ; <BX>=<BX>-<AX>
MOV D1, 53 ; <D1>=53
ADD BX, D1 ; <BX>=<BX>+<D1>
MOV N,BX ; <N>=<BX>
CWD ;<ax>=> <dx:ax>
Idiv dn ;<ax>=<dx:ax>/dn
MOV REZ, ax ;REZ=<ax>
MOV AH, 4CH
INT 21H
CODE ENDS
END S