E 450 'pallindrom.$'
E 500 'not palindrom.$'
A100
mov CX,4
MOV BX,400
MOV BL,[BX]
MOV DL,BL
MOV AX,CX;
SUB CX,1
CALL 200
MOV BH,DL
AND BH,1
MOV CX,0;
ADD CX,7
SUB CX,AX
ADD CX,1
MOV DL,BL
CALL 200
AND DL,1
MOV CX,AX;
CMP BH,DL;
JE  132;EQUAL JMP TO LOOP
JMP 13B
LOOP 103
MOV AH,9;PRINT RES
MOV DX,450
JMP 140
MOV DX,500
MOV AH,9;PRINT RES
INT 21H
INT 3

A200
CMP CX,0
JE 209
SHR DX,1;LOOP DX RIGHT AS IN CX
LOOP 205
RET