汇编上机实验B-回文串.docVIP

实验B 回文串 实验目的 回文串是从左到右读与从右到左读字符方式一样的一个字符串，如ABCBA、eluparcettecrapule是回文串，但123431不是回文串。 编一个程序判断一个串是否为回文串。 实验要求 键盘输入一个以回车结尾的字符串STR，如果是回文串，那么输出“Yes”，否则输出“No”。接着输出“Do you want to continue(Y/N)?”，如果输入“Y”，那么重复刚才的工作，否则结束退出程序。 实验结果 Please input a string and press Enter key when you want to stop a sting! ABCBA Yes Do you want to continue(Y/N)?y Please input a string and press Enter key when you want to stop a sting! asdfgfdsa Yes Do you want to continue(Y/N)?y Please input a string and press Enter key when you want to stop a sting! abcdef No Do you want to continue(Y/N)?n 实验报告要求: 分析要点及调试后的正确程序。 DATAS SEGMENT STR DB 100 DUP(?) NO DB No,13,10,$ YES DB Yes,13,10,$ ASK DB Do you want to continue(Y/N)?,13,10,$ CMT DB 13,10,Please input a string and press Enter key when you want to stop a sting!,13,10,$ LEN DW 0 DATAS ENDS DATAS2 SEGMENT STR2 DB 50 DUP(?) DATAS2 ENDS CODES SEGMENT ASSUME CS:CODES,DS:DATAS,SS:STACKS,ES:DATAS2 START: MOV AX,DATAS MOV DS,AX MOV AX,DATAS2 MOV ES,AX BEG: MOV BX,0 MOV AH,9 LEA DX,CMT INT 21H INPUT: MOV AH,1 INT 21H CMP AL,0DH JE DEAL MOV STR[BX],AL INC BX LOOP INPUT DEAL: MOV AX,BX MOV BL,2H DIV BL CMP AH,0 JNE SHOWNO MOV AH,0 MOV LEN,AX MOV CX,LEN LEA SI,STR LEA DI,STR2 ADD SI,CX ADD DI,CX DEC DI CHANGE: CLD LODSB STD STOSB LOOP CHANGE MOV CX,LEN MOV BX,0 CMPSTR: MOV AL,STR[BX] CMP STR2[BX],AL MOV AH,2 MOV DL,STR2[BX] INT 21H JNE SHOWNO INC BX DEC CX CMP CX,0 JLE SHOWYES JMP CMPSTR SHOWNO: MOV AH,2 MOV DL,0DH INT 21H MOV DL,0AH INT 21H MOV AH,9 LEA DX,NO INT 21H JMP EXIT SHOWYES: MOV AH,2 MOV DL,0DH INT 21H MOV DL,0AH INT 21H MOV AH,9 LEA DX,YES INT 21H JMP EXIT EXIT: MOV AH,9 LEA DX,ASK INT 21H MOV AH,1 INT 21H CMP AL,y JE BEG CMP AL,Y JE BEG MOV AH,4CH INT 21H CODES ENDS END START 实验体