i8086 : массив

[smoke-by]

Задан массив из 15 знаковых чисел размером в слово. Все числа кратны 5. Проинвертировать и найти среднее арифметическое.

[Yokka]

Попробуй этот код, только он написан для массива из 5 чисел

stk segment  stack
db 128 dup(?)
stk ends
data segment
mas dw 5 dup(?)
data ends
code segment
assume cs:code,ds:data,ss:stk
begin:
	mov ax,data
	mov ds,ax
	mov cx,5
	xor si,si
  z1:	numberin ax  ;процедура введения числа
	mov mas[si],ax
	mov al,10
	int 29h
	mov al,13
	int 29h
	add si,2
	loop z1
	mov cx,5
	mov ax,mas[0]
	neg ax
	mov si,2
	xor dx,dx
  z2:	mov bx,mas[si]
	neg bx
	add ax,bx
	jo error1
	add si,2
	loop z2
	mov bx,5
	div bx
	push dx
	push ax
	mov al,10
	int 29h
	mov al,13
	int 29h
	mov al,10
	int 29h
	mov al,13
	int 29h
	pop ax
	numberout ах ;процедура вивода числа
	mov al,10
	int 29h
	mov al,13
	int 29h
	pop dx
	numberout dx
error1:	

	mov ah,4Ch
	int 21h
code ends
end begin

[smoke-by]

а как подключить процедуры эти numberin, numberout, или нужно что-то вместо них писать?