Microprocessor 8086 assembly-Palindrome Checking of string

Microprocessor 8086 assembly-Palindrome Checking of string

.MODEL SMALL
.DATA
MSG1 DB "ENTER THE STRING: $"
MSG2 DB 0DH,0AH,"NOT A PALINDROME: $"
MSG3 DB 0DH,0AH,"PALINDROME: $"
STRING1 DB 50 DUP('$')
.CODE
MOV AX,@DATA
MOV DS,AX

LEA DX,MSG1
MOV AH,09H
INT 21H

LEA SI,STRING1
MOV CX,00
LOOP1:
MOV AH,01H
INT 21H
MOV BL,AL
CMP BL,0DH
JZ DOWN1
MOV [SI],BL
INC SI
INC CX
JMP LOOP1

DOWN1:
DEC SI
LEA DI,STRING1

LOOP2:
MOV BL,[SI]
CMP BL,[DI]
JNZ LOOP3
INC DI
DEC SI
LOOP LOOP2
LEA DX,MSG3
MOV AH,09H
INT 21H
JMP DOWN2
LOOP3:
LEA DX,MSG2
MOV AH,09H
INT 21H

DOWN2:
MOV AH,4CH
INT 21H
END

Output

ENTER THE STRING:Anandhu

NOT A PALINDROME