یه سوال دیگه

[ماری کوری20011]

مشکل این برنامه چیه این برنامه قرار رشته رو معکوس کنه:عصبانی++::عصبانی++:
Datasg segment 'data'
Msg1 DB "Enter a String:$"
Msg2 DB "result is :$"
Strlist label byte
Max DB 20
Len DB ?
Buff DB 20 DUP('')
Dolar DB '$'
Datasg ends
Codesg segment 'code'
Main proc far
Assume ds:datasg,cs:codesg
Mov ax,datasg
Mov ds,ax

Lea dx,msg1
Mov ah,09h
Int 21h
ret
msg db "Hello$"

mov ah,0ah
lea dx,strlist
int 21h

Lea SI,buff
Mov DI,SI
Mov ah,0
Mov al,Len
Add DI,ax
Dec DI
L1: cmp SI,DI
Jnb LEND
Xchg al,byte ptr [SI]
Xchg al,[DI]
Xchg al,[SI]
Inc SI
DEC DI
JMP L1
Lend :
Mov ah,09
Lea dx,msg2
Int 21h
Mov ah,09h
Lea dx,buff
Int 21h
Mov ax,4c00h
Int 21h
Main endp
Codesg ends
End main