Арифметическая прога с переменными TurboASM 4.0

SSEG SEGMENT STACK          ;Сегмент стека
DB 256 DUP(?)
SSEG ENDS
 
DATA SEGMENT                    ;Сегмент данных
X DW ?                               ;Память для переменных
A DW ?
B DW ?
C DW ?
D DW ?
DATA ENDS
 
CODE SEGMENT                   ;Сегмент кода
ASSUME CS:CODE, DS:DATA, SS:SSEG
START:
MOV AX,Data                      ;Инициализация DS
MOV DS,AX
                                        ;Вычислительная часть
MOV AX,2                           ;Загрузка константы
IMUL A                               ;dx:ax = a*2
MOV BX,DX
MOV CX,AX                         ;bx:cx = a*2
MOV AX,B
IMUL C                               ;dx:ax = b*c
ADD AX,CX
ADC DX,BX                          ;dx:ax = a*2+b*c
MOV CX,D
SUB CX,3                            ;cx = d-3
IDIV CX                              ;ax = (a*2+b*c)/(d-3)
NEG AX                               ;ax = -ax
INC AX                               ;ax = ax+1
MOV X,AX                           ;Сохранение результата
 
MOV AH,4CH
INT 21H
 
CODE ENDS
END START

SSEG SEGMENT STACK          ;Сегмент стека
DB 256 DUP(?)         ;256 байт на стек
SSEG ENDS

SSEG SEGMENT STACK          ;Сегмент стека
DW 256 DUP(?)    ;256 слов на стек
SSEG ENDS

MOV AH,4CH
INT 21H

MOV CX,D
SUB CX,3