Строка в обратном порядке

.286
cseg segment
org 100h
 
proga:
 
xor cx,cx
lea si,stroka          ;источник - откуда берём оч-й символ при печати)
push si
lea di,stroka          ;куда сохраняем введённые символы
nxt:
mov ah,10h
int 16h                ;получаем код символа
cmp al,0dh             ;если  enter - выход из цикла
je ent
stosb                  ;сохраняем введённые символы
pop si
mov dl,byte ptr [si]   ;вывод символа
mov ah,2
int 21h
inc si                 
push si
inc cx
jmp nxt
 
 
ent:                   
push cx
mov ah,3               ;получим положение курсора
int 10h
mov ah,2               ;переход на сл. строку
inc dh
xor dl,dl
int 10h
pop cx
lea bx,stroka
add bx,cx
dec bx
mov ah,2
 
nx:                     ;вывод результата 
mov dl,byte ptr [bx]
int 21h
dec bx
loop nx
 
 
int 20h
 
stroka db 0
 
cseg ends
end proga

.model tiny
.code
.startup
 
    mov ah,9        ; print "Enter string: "
    mov dx,offset msg
    int 21h
 
    inc ah          ; ah = 0ah (input string)
    mov dx,offset strbuf
    int 21h         ; get string from user
 
    dec ah          ; ah = 09h
    mov dx,offset msg2
    int 21h         ; print "Reverse string: "
 
    xor cx,cx
    mov cl, byte ptr [strbuf+1] ; CX = string length
    mov si, offset strbuf+1 ; si = string offset
    add si, cx      ; si = string + length (end of string)
    std         ; decrement si
print:
    lodsb           ; load char into AL
    int 29h         ; print AL
    loop print
 
    int 20h         ; terminate
 
msg     db 'Enter string  : $'
msg2    db 10,'Reverse string: $'
strbuf  db 80, 80 DUP (?)
end