data segment
	str1 db 25 dup(?)
	mes db 'enter size of string',0ah,0dh,'$'
	mess db 0ah,0dh,'enter string',0ah,0dh,'$'
	yes_pol db 0ah,0dh,'Is Polindrom',0ah,0dh,'$'
	no_pol db 0ah,0dh,'Is Not Polindrom',0ah,0dh,'$'
data ends
sta	segment stack
	db 100h dup(?)
sta	ends
code	segment
	assume ds:data,ss:sta,cs:code
begin:	mov ax,data
	mov ds,ax
	
	lea dx,mes
	mov ah,9
	int 21h
	mov ah,1
	int 21h
	sub al,'0'
	jz sof
	mov ch,0
	mov cl,al
	lea dx,mess
	mov ah,9
	int 21h
	lea di,str1
getstr:	mov ah,1
	int 21h
	mov str1(di),al
	inc di
	loop getstr
	mov cl,al
	mov ch,0
	mov bx,cx
	shr cx,1
	lea di,str1
compare:	mov dh,str1(di)
	cmp dh,str1(bx-1)
	jne lo_shavim
	inc di
	dec bx
	loop compare
	lea dx,yes_pol
	mov ah,9
	int 21h
	jmp sof
lo_shavim:lea dx,no_pol
	mov ah,9
	int 21h
sof:	mov ah,7
	int 21h
	mov ax,4c00h
	int 21h
code	ends
end begin