массивы, переполнение при делении

[Alter]

Код почти рабочий, нужно получить среднее арифметическое от суммы всех элементов массива, затем отнять от значения элементов исходного массива, полученное среде арифметическое значение, и записать разность в другой массив.
A - исходный; B - массив для записи.

Ошибка возникает, следующего содержания: "Переполнение деления". Как бы это исправить. Считаю что в остальном коде недолжно быть ошибок, я вроде правильно операции делал, но лишняя проверка непомешает.

arr_len	equ	10

assume 	cs:mycode, ds:mydate, ss:mystack, es:mydate
mycode		segment para
Start:
	 	push 	ds
		xor 	ax, ax
		push 	ax
		mov 	ax, seg mydate
		mov	ds, ax
; ++ сложение
		lea	si, A ; получаем адрес на массив A
		mov	cx, arr_len ; устанавливаем счётчик на 10 _(колл-во элементов)
sum_loop:
		mov	bx, ds:[si] ; bx := ds[si]
		Add 	ax, bx	; ax := bx + ax
loop	sum_loop

		Mov	Sum, ax ; заносим в Sum сумму
	mov	bx, arr	; bx := 10
	div	bx	; ax := bx div ax
		push	ax
		 Mov 	Sred, AX 
		pop	ax

	xor	si,si ; обнуляем
	mov	di,si ; обнуляем

; Вычитание в массив "B"
	Push	Ax
		lea	si, A
		lea	di, B
		mov	cx, arr_len
sub_loop:
		mov	bx, ds:[si]	; bx := A[si]
		mov	ax, Sred	; ax := sred;
		 sub	ax, BX	; ax := bx - ax
		mov	ds:[di], Ax	; B[di] := Ax
		 add	si, 2
		 add	di, 2
loop	sub_loop
	Pop	Ax

		mov	ax, arr_len
		lea	bx, B
		call	PRINT_ARRAY

		retf


PRINT_ARRAY	proc	near
		; DS:BX - адрес массива
		; AX - число элементов
		push	cx

		mov	cx, ax

		mov	ax, [bx]
		call	PRINT_INT
		add	bx, 2
		
		mov	cx, arr_len
		dec	cx
loop_print:		
		lea	dx, Coma
		mov	ax, 0900h
		int	21h
		mov	ax, [bx]	
		call	PRINT_INT
		inc	bx
		inc	bx
		loop	loop_print
		
		pop	cx
		retn
PRINT_ARRAY	endp

PRINT_INT	proc	near
		; AX    - число
		push	di
		push	cx
		push	dx
		push	bx
		
		lea	di, byte ptr String
		add	di, 10
		mov	byte ptr ds:[di], '$'
		dec	di
		
		test	ax, ax
		jnz	start_itoa
		mov	byte ptr ds:[di], '0'
		dec	di
		jmp	print_string	
start_itoa:
		mov	bx, ax
		mov	cx, 10
loop_div:
		test	ax,ax
		jz	end_div
		cwd
		idiv	cx
		jns	positive
		neg	dx
positive:		
		add	dl, '0'
		mov	ds:[di], dl
		dec	di
		jmp	loop_div
end_div:
		test	bx, bx
		jns	print_string
		mov	byte ptr ds:[di], '-'
		dec	di
	
print_string:
		mov	dx, di
		inc	dx
		mov	ax, 0900h
		int	21h	

		pop	bx
		pop	dx
		pop	cx
		pop	di

		retn
PRINT_INT	endp
		
mycode 		ends

mydate 		segment para
	A	dw	2, 3, 4, 7, -9, 8, 9, 1, -5, -2	
	B	dw	10 dup(?)
	Sred	dw	? ; среднее
	Sum	dw	? ; сумма
	Coma	db	', $'
	arr	dw	10
	String	db	16 dup(' ')
mydate 		ends	

mystack		segment para stack 'stack'
		dw 100 dup (?)
mystack		ends
		
		end start

[alexBlack]

Перед sum_loop: добавить xor ax,ax
перед делением xor dx,dx

        xor dx, dx
        Mov Sum, ax ; заносим в Sum сумму   
        mov bx, arr ; bx := 10  
        div bx  ; ax := bx div ax

Вычитание наоборот

sub_loop:   
        mov bx, ds:[si] ; bx := A[si]   
        mov ax, Sred    ; ax := sred;   ;можно сделать один раз перед циклом 
        sub    bx, ax  ;!!! ax, BX  ; ax := bx - ax   
        mov ds:[di], bx ; B[di] := Ax