Слияние упорядоченных массивов

model tiny
.stack 100h
.data  
mes db  0ah,0dh,'Vvedite razmer Massiva A ','$'  ;сообщение 
mes1    db  0ah,0dh,'Vvedite Massiv A ','$'             ;сообщение 1
mes2    db  0ah,0dh,'Isxodni Massiv A ','$'             ;сообщение 2
input_str db 80, 0, 80 dup(0)       ;строка ввода
out_str     db 80h dup(0)           ;строка вывода
s_novstr  db 13,10,'$'                  ;символы перевода строки
i db    ?
masA    db  10 dup (?)              ;исходный массив
 
 
.code
 
OutMesStr   proc        ;процедура вывода  сообщения
    mov ah,09h          ;
    int 21h                 ;
    ret                     ;
endp    
 
InputStr    proc            ;процедура ввода  строки
    mov ah,0ah          ;
    int 21h                 ;
    ret                     ;
endp                    ;
 
save    proc            ; запись в массив
    xor     ax,ax           ;
    mov si,0            ;индекс начального элемента в cx
    mov si, offset input_str    ;
    mov di, offset out_str  ;
 
    dec si          ;
    dec di          ;
check:                  ;
    mov bh,i    ;i в bh
    mov masA[si],bh     ;запись в массив i
    inc si                  ;продвижение к следующему
                                 ;элементу массива
    inc     di          ;
    mov     al,byte ptr ds:[si] ;
 
    cmp al, byte ptr 13     ; Сравниваем прочитанный символ с Enter
    je  EXT         ;
loop    check
    ret
endp
 
EXT:    
        mov byte ptr ds:[di],'$'    ;
    ret
endp
 
out_mas proc            ; вывод массива на экран
    mov cx,5
    mov si,0
    mov ah,09h
    lea dx,mes2
    int 21h
show:
    mov ah,02h      ;функция вывода значения
                        ;из al на экран
    mov dl,masA[si]
    add dl,30h  ;преобразование числа в символ
    int 21h
    inc si
    loop    show
    ret
endp
 
start:                  ;
        mov ax,@data        ;   Инициализируем адрес сегмента данных
        mov ds,ax           ;   В DS адрес data сегмента из AX, потому как не можем непосредственно 
    mov es, ax          ;
 
    lea dx, mes         ;вызов процедуры вывода сообщения 
    call OutMesStr      ;
 
    lea dx,input_str        ;вызов процедуры ввода строки
    call InputStr       ;
 
    lea dx,input_str        ;вызов процедуры ввода строки
    call save           ;вызов процедуры записи строки;
 
    lea dx, mes1        ;вызов процедуры вывода сообщения 1
    call OutMesStr      ;
 
    lea dx,input_str        ;вызов процедуры ввода строки
    call InputStr       ;
 
    lea dx,input_str        ;вызов процедуры ввода строки
    call save           ;вызов процедуры записи строки;
 
    lea dx,s_novstr     ;переход на новую строку;
    call OutMesStr      ;
 
    lea dx,mes2 ;
    call Out_mas        ;
 
 
exit:
    mov ax,4c00h    ;стандартный выход
    int 21h
end start       ;конец программы