.MODEL SMALL


.STACK


.DATA


STR DB   80,79 DUP (?)
YEAH DB  "‚ palindroma",0AH,0DH,"$"
NO DB  "non Š palindroma",0AH,0DH,"$"

.CODE


.STARTUP



CALL    LEGGI
;CALL    CONV
;CALL    STAMPA
CALL    CONF
CALL    TORNA
	MOV AH,4CH
	INT 21H


LEGGI   PROC
	LEA DX,STR
	MOV AH,0AH
	INT 21H
	RET
LEGGI   ENDP

CONF    PROC
	LEA SI,STR
	INC SI
	MOV DX,[SI]
	ADD DX,1
	MOV DH,0
	MOV DI,DX
	INC SI
	MOV AX,DX
	SUB AX,SI
	MOV BL,2h
	DIV BL
	MOV AH,0
	MOV CX,AX
	MOV BX, 0
CICLO  :MOV AH,[SI]
	MOV BH,[DI]
	CMP AH,BH
	JNE FUORI
	INC SI
	DEC DI
LOOP    CICLO
	MOV BL, 1
FUORI  :RET
CONF    ENDP

TORNA   PROC
	MOV AH,02H
	MOV DL,0AH
	INT 21H
	MOV AH,09H
	CMP BL,1
	JE  YES
	LEA DX,NO
	INT 21H
	JMP ESCI
YES    :LEA DX,YEAH
	INT 21H
ESCI   :RET
TORNA   ENDP

END