Сравнение длин строк и вывод их на экран

.model tiny
.data 
str_in db "Enter string", '$'
str_1 db 32 dup ('$')
str_2 db 32 dup ('$')
str_result db 32 dup ('$')
.code
 
org 100h
start:
 
xor dx,dx ; нулим регистры
xor si, si
 
enter_1:
 
mov ah, 09h
mov dx, offset str_in
int 21h ; приглашение на ввод строки 1
 
cycle_1:
xor ah,ah
xor al,al
int 16h ; биосовское прерывание для ввода
mov str_1[si], al; пишем в первую строку
inc si
 
mov ah, 02h
mov dl, al
int 21h ; вывод введеного символа на экран
 
cmp al, 0dh ; сравниваем с возвратом каретки
jne cycle_1 
 
push ax;  забрасываем длину первой строки в стек
 
 
xor dx,dx ; нулим регистры
xor si, si
enter_2:
 
mov ah, 09h
mov dx, offset str_in
int 21h ; приглашение на ввод строки 2
 
cycle_2:
xor ah,ah
xor al,al
int 16h ; биосовское прерывание для ввода
mov str_2[si], al; пишем вторую строку
inc si
mov ah, 02h
mov dl, al
int 21h ; вывод введеного символа на экран
 
cmp al, 0dh ; сравниваем с возвратом каретки
jne cycle_2 
 
pop bx; достаем длину первой строки в bx
mov cx, ax; забрасываем длину второй строки в cx потому что с ax дальше будут действия
sub ax, bx; сравниваем длину строк
js Lable1; результат отрицателен - первая строка длинее
 
Lable1:
    xor ax,ax 
    mov bx, 0 
    mov si, 0
    .while bx <= cx;   забрасываем в стек всю вторую строку
    mov al, str_2[si]
    push ax
    inc si
    inc bx
    .endw
 
  mov bx, 0
    mov si, 0
    .while bx <= cx;          достаем из стека вторую строку в обратном порядке
    pop ax
    mov str_result[si], al
    inc bx
    inc si
    .endw
    jmp exit ; выводим все 3 строки и выходим
xor cx,cx ;нулим регистр
 
mov cx , bx; забрасываем длину первой строки в сх
    mov bx, 0 
    mov si, 0
    .while bx <= cx
    mov al, str_1[si];   забрасываем в стек всю первую строку
    push ax
    inc si
    inc bx
    .endw
 
  mov bx, 0
    mov si, 0
    .while bx <= cx   ;          достаем из стека первую строку в обратном порядке
    pop ax
    mov str_result[si], al
    inc bx
    inc si
    .endw
    jmp exit ; выводим все 3 строки и выходим
 
exit: ; выводим все 3 строки и выходим
xor dx,dx
mov ah,09h
mov dx,offset str_1
int 21h
mov dx,offset str_2
int 21h
mov dx,offset str_result
 
int 21h
 
ret
end start

mov ax,@data
mov ds,ax