Арифметическая прога с переменными 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

DATA SEGMENT                    ;Сегмент данных
X DW ?                               ;Память для переменных
A DW 0
B DW 1
C DW 2
D DW 2
DATA ENDS
 
SSEG SEGMENT Stack  ; Открыть сегмент стека
         DB 100h DUP (?)               ; Отвести под стек 256
                ; байт
  SSEG ENDS                       ; Закрыть сегмент стека
;!!! 
ASSUME CS:CODE, DS:DATA, SS:SSEG ;эту строку нужно вынести из сегмента кода
;!!!
 
CODE SEGMENT                   ;Сегмент кода
START:
MOV AX,Data 
;дальнейший код