DATOS SEGMENT
      falso db 'La cadena no es un palindromo','$'
      verdadero db 'La cadena si es un palindromo','$'
      cadena db 'asdsa','$'
DATOS ENDS

PILA SEGMENT STACK 'stack'
     db 128 dup(?)
PILA ENDS

CODIGO SEGMENT
       assume cs:codigo,ds:datos,ss:pila

ppal proc far
     push ds    ;Dirección de retorno al PSP
     sub ax,ax
     push ax

     mov ax,datos    ;Inicialización del registro DS
     mov ds,ax

     mov ax,offset cadena
     push ax
     mov ax,5
     push ax
     call comprobar


     retf

ppal endp

comprobar proc
      push ax
      push bp
      push di
      push si
      push bx
      push dx
      mov bp,sp
      mov si,16[bp] ; cadena a andalizar
      mov di,14[bp] ;numero de caracteres
      add di,si ;nos colocamos al final de la cadena
bucle:mov dl,[si] ;dl contendrá el primer caracter
      mov bl,[di] ; bl contendrá el ultimo caracter
      cmp bl,dl
      jne no
      inc si
      dec di
      cmp si,di
      je yes
      jmp bucle
  yes:mov ah,9
      mov dx,offset verdadero
      int 21h
      jmp fin
   no:mov ah,9
      mov dx,offset falso
      int 21h
  fin:pop bp
      pop ax
      pop si
      pop di
      pop dx
      pop bx
      ret 4
comprobar endp


CODIGO ENDS
       END PPAL