【小程序】汇编实现判断回文

DATA	SEGMENT
Prompt	DB	'Please enter a string:$'
YesStr	DB	13, 10, 'This string is palindrome$'
NoStr	DB	13, 10, 'This string is not palindrome$'
Input	DB	128, ?, 128 DUP(0)
DATA	ENDS
STACK	SEGMENT
	DB	128 DUP(?)
STACK	ENDS
CODE	SEGMENT
	ASSUME	CS:CODE, DS:DATA, SS:STACK
MAIN:	
	MOV	AX, DATA
	MOV	DS, AX
	MOV	DX, offset Prompt
	MOV	AH, 09H
	INT	21H
	;
	MOV	DX, OFFSET Input
	MOV	AH, 0AH
	INT	21H
	;
	MOV	DI, OFFSET Input
	MOV	SI, OFFSET Input
	

	XOR	CX, CX
	MOV	CL, [DI+1]
	ADD	DI, 2
	ADD	SI, 2
	DEC	CX
	ADD	DI, CX
	;force DI point to the last word of Input
AGAIN:
	CMP	SI, DI
	JA	TESSKIP
	MOV	AH, byte ptr [SI]
	MOV	AL, byte ptr [DI]
	CMP	AH, AL
	JNE	NOSKIP
	INC	SI
	DEC	DI
	JMP	AGAIN
TESSKIP:
	MOV	DX, OFFSET YesStr
	MOV	AH, 09H
	INT 	21H
	JMP	ENDSKPI
	;

NOSKIP:
	MOV	DX, OFFSET NoStr
	MOV	AH, 09H
	INT 	21H
	;
ENDSKPI:
	MOV	AH, 4CH
	INT 	21H
	
CODE	ENDS
	END	MAIN