Не линкуется obj file - Assembler

STSEG  SEGMENT  PARA  STACK  'STACK'
DB 64 DUP ( 'STACK' ) 
STSEG  ENDS 
DSEG  SEGMENT  PARA  PUBLIC  'DATA'
SOURCE  DB 10, 20, 30, 40 
DEST  DB 4 DUP (?) 
dump  dw (?) 
DSEG  ENDS 
CSEG  SEGMENT PARA PUBLIC  'CODE' 
MAIN  PROC  FAR 
ASSUME  CS: CSEG, DS: DSEG, SS: STSEG 
vvod proc far
lea dx, dump ;
mov ah, 10 ;
int 21h ; 
vvod endp
digit proc far
mov bx, dump
or bx, bx ;проверяют старший разряд числа, там знак
jns m1 ; если знак = 0 переход на м1, иначе
mov al, '-'
int 29h ;выводим '-'
neg bx ;умножаем число в ВХ на -1, то есть из отрицательного числа получаем положительное
m1: mov ax, bx
 xor cx, cx ;обнуляем счетчик десятичных разрядов
 mov bx, 10 ;в ВХ делитель, делить будем на 10
m2: xor dx, dx ;делится число старшая часть числа в dx младшая часть в ax на bx, поэтому dx обнуляем
 div bx ;делим число в dx:ax  на bx
 add dl, '0';к остатку от деления на 10 добавляем "0" чтобы получить соответствующий символ
 push dx ;отправляем остаток в стек
 inc cx ;увеличиваем счетчик десятеричных разрядов на 1
 test ax, ax; больше делить нечего? АХ=0?
 jnz m2 ;если не ноль переходим на м2
m3: pop ax ;извлекаем остатки от деления из стека
 int 29h ;выводим их на экран
 loop m3 ;если СХ не равно 0, перейти по метке м3
 ret
digit endp
MAIN ENDP 
CSEG ENDS 
END MAIN

; tasm /m3 proga && tlink proga /Tde
.model compact
.stack
.data
SOURCE  DB 10, 20, 30, 40 
DEST  DB 4 DUP (?) 
dump  dw (?) 
.code
MAIN  PROC  FAR 
vvod proc far
lea dx, dump ;
mov ah, 10 ;
int 21h ; 
vvod endp
digit proc far
mov bx, dump
or bx, bx ;проверяют старший разряд числа, там знак
jns m1 ; если знак = 0 переход на м1, иначе
mov al, '-'
int 29h ;выводим '-'
neg bx ;умножаем число в ВХ на -1, то есть из отрицательного числа получаем положительное
m1: mov ax, bx
 xor cx, cx ;обнуляем счетчик десятичных разрядов
 mov bx, 10 ;в ВХ делитель, делить будем на 10
m2: xor dx, dx ;делится число старшая часть числа в dx младшая часть в ax на bx, поэтому dx обнуляем
 div bx ;делим число в dx:ax  на bx
 add dl, '0';к остатку от деления на 10 добавляем "0" чтобы получить соответствующий символ
 push dx ;отправляем остаток в стек
 inc cx ;увеличиваем счетчик десятеричных разрядов на 1
 test ax, ax; больше делить нечего? АХ=0?
 jnz m2 ;если не ноль переходим на м2
m3: pop ax ;извлекаем остатки от деления из стека
 int 29h ;выводим их на экран
 loop m3 ;если СХ не равно 0, перейти по метке м3
 ret
digit endp
MAIN ENDP 
END MAIN

mov ah, 10
int 21h

STSEG  SEGMENT  PARA  STACK  'STACK'
DB 64 DUP ( 'STACK' ) 
STSEG  ENDS 
DSEG  SEGMENT  PARA  PUBLIC  'DATA'
SOURCE  DB 10, 20, 30, 40 
DEST  DB 4 DUP (?) 
dump  dw -100
DSEG  ENDS 
CSEG  SEGMENT PARA PUBLIC  'CODE' 
MAIN  PROC  FAR 
ASSUME  CS: CSEG, DS: DSEG, SS: STSEG 
digit proc far
mov ax,DSEG
mov ds,ax
mov bx, dump
or  bx, bx ;проверяют старший разряд числа, там знак
jns m1 ; если знак = 0 переход на м1, иначе
mov al, '-'
int 29h ;выводим '-'
neg bx ;умножаем число в ВХ на -1, то есть из отрицательного числа получаем положительное
m1: mov ax, bx
 xor cx, cx ;обнуляем счетчик десятичных разрядов
 mov bx, 10 ;в ВХ делитель, делить будем на 10
m2: xor dx, dx ;делится число старшая часть числа в dx младшая часть в ax на bx, поэтому dx обнуляем
 div bx ;делим число в dx:ax  на bx
 add dl, '0';к остатку от деления на 10 добавляем "0" чтобы получить соответствующий символ
 push dx ;отправляем остаток в стек
 inc cx ;увеличиваем счетчик десятеричных разрядов на 1
 test ax, ax; больше делить нечего? АХ=0?
 jnz m2 ;если не ноль переходим на м2
m3: pop ax ;извлекаем остатки от деления из стека
 int 29h ;выводим их на экран
 loop m3 ;если СХ не равно 0, перейти по метке м3
mov ax,4c00h
int 21h
digit endp
MAIN ENDP 
CSEG ENDS 
END MAIN