.386
.model flaT
.data
cadena db "anal"
.code
_start:

    xor ecx, ecx
    mov ecx, lengthof cadena
    mov eax, 0
    mov ebx, lengthof cadena
    sub ebx,1   ; EBX = longitud -1
    check:
    lea edi, [cadena+eax] ; Carga caracteres de cadcena del primero al ultimo
    lea esi, [cadena+ebx] ; Carga caracteres de cadena del ultimo al primero
    inc eax
    dec ebx
    cmpsb ; Se compara [EDI] y [ESI]
    loope check ; Salta a check si ECX!=0 y ZF=1 (Si son iguales)
    secondary_check:
    cmp ecx,0 ; Si ECX=0 es porque se comparó toda la cadena
              ; y si eso ocurrio es porque todas son iguales
    jz palindromo
    jnz no_palindromo
    palindromo:
    jmp done
    no_palindromo:
    jmp done
    done:
    ret
    end _start