org 100h

lea si,str
add si,len-1

lea di,str


mov cx,len/2

n:
cmpsb
jne nonpalin
dec si
dec si
loop n
mov al,00h
jmp exit
nonpalin:
mov al,01h

exit:

ret

str db 'abcderedcba'
len equ ($-str)