Дальний косвенный вызов

[Kenny McCormick]

Доброго времени суток.
Пишу программу с вызовами подпрограмм. Ближние вызовы работают - как прямые, так и косвенные. А вот с дальними проблема. Прямой дальний вызов тоже работает нормально, а косвенный работать отказывается:

.8086
.model small
.stack 256h

dseg segment; para
array dw 10
spa dd evalsumm
mainadr dw main
dseg ends

cseg segment; para
assume cs:cseg, ds:dseg;, ss:sseg

init proc
start:
mov AX, dseg
mov DS, AX
call DS:mainadr
init endp

main proc near
finit
mov BX, offset array
mov SI, 0
mov AX, 0
mov CX, 10
fill: mov array[BX][SI],AX
	inc AX
	add SI,2
loop fill
;call evalsumm; работает

;mov DI, offset spa; не работает
;call [DI]

;call dword ptr spa; не работает

call far ptr evalsumm; работает

mov AX,4C00h
int 21h
ret
main endp
cseg ends

subcode segment
assume CS:subcode

evalsumm proc far;subprog

mov SI, 2
mov AX, 0
mov CX, 5
calc: add AX, array[BX][SI]
	add SI, 4
loop calc
retf
evalsumm endp
subcode ends
end start

Таким образом, при попытках напрямую указать адрес дальней подпрограмы(начало её сегмента кода в памяти) - начинаются ошибки.
Компиллирую TASMом. Всё компиллируется и линкуется, значения CS и IP успешно уходят в стек, но вместо выполнения дальней подпрограммы начинают выполнятся совершенно другие комманды.
Подозреваю, что ошибка в определении адреса для подпрограммы:

spa dd evalsumm

и/или его использовании при вызове:

call dword ptr spa

или

mov DI, offset spa
call [DI]

поскольку в качестве значения CS при переходе в дальнюю подпрограмму фигурирует подозрительное значение 0002(если использовать прямой вызов - значение CS 14D1).
В чём может быть ошибка?

[Kenny McCormick]

Вопрос решён. Проблема состояла в неверном определении массива в памяти:
вместо

array dw 10

должно быть

array dw 10 dup(?)

Благодарности Qraizer'у.