Вычислить максимумы двух массивов - Assembler

model small; модель памяти
.stack 100h; сегмент стека
.data; сегмент данных
len equ 9; количество эл. в mas
x db 2,3,4,5,6,7,8,9,10
y db 9 dup(?)
a db 0
b db 0
c db 0
d db 0
len1 equ 5; кол-во элементов
mas db 1,8,4,0,2
mas2 db 6,5,7,3,9
.code; сегмент кода
start:
      mov ax,@data; физ.адрес сегмента данных в регистр ax
      mov ds, ax
      mov cx, len; длину поля mas в cx
      call procmax; вызывем процедуру1
      mov c, al; хранение результата процедуры в с
      call procmax2; вызовем процедуру2
      mov d, al; хранение результата процеуры в d
      xor si, si; обнуление индекса массива
      jcxz exit; 
cycl:
      xor ax, ax
      cmp mas[si],10; сравнить очередной элемент с 10
      ja nxt; если больше 10, то на nxt
      cmp x[si],5
      jbe nxt1
      mov al, x[si];
      mul b
      add al, a
      ja nxt
nxt1:
      mov al, x[si]
      mul a
      add al, b
      ja nxt 
nxt:
      inc si; перейти к след. элементу
      loop cycl; cx=cx-1, пока cx>1 переход на cycl
exit:
      mov ax, 4c00h
      int 21h; возврат управления опреционной системе
 
procmax proc
      mov cx,4; cx присваиваем значение 4
      xor si, si; обнуление индекса массива0
      jcxz exit; 
cycl1:
      xor ax, ax
      mov al, mas[si]
      mov a, al
      mov al, mas[si+1]
      cmp a, al
      ja nxt2
      mov al, mas[si+1]
      mov a, al
nxt2:
      inc si; перейти к след. элементу
      loop cycl1; cx=cx-1, пока cx>1 переход на cycl
ret
endp  
 
procmax2 proc
      mov cx,4; cx присваиваем значение 4
      xor si, si; обнуление индекса массива
      jcxz exit; 
cycl3:
      xor ax, ax
      mov al, mas[si]
      mov b, al
      mov al, mas[si+1]
      cmp b, al
      ja nxt3
      mov al, mas[si+1]
      mov b, al
nxt3:
      inc si; перейти к след. элементу
      loop cycl3; cx=cx-1, пока cx>1 переход на cycl
ret
endp       
end start