Question

请高手帮忙改汇编程序 查找指定的数据或字符

DATAS SEGMENT
STR DB 0,1,2,3,4,5,6,7,8,9
N = $-STR
ADDR1 DB 'Found$'
ADDR2 DB 'Not Found$'
ARRAY DB 10 DUP(?)
INPUT DB 13,10,'Input the number you want to find:',13,10,'$'
DATAS ENDS

CODES SEGMENT
ASSUME CS:CODES,DS:DATAS
START: MOV AX,DATAS
MOV DS,AX
MOV ES,AX
LEA DI,ARRAY
MOV CX,N
LEA DX,INPUT
MOV AH,09H
INT 21H

MOV AH,01H
INT 21H

Begin: LEA SI,STR
MOV CX,N
CMP AX,[SI]
JZ Next
LEA DX,ADDR2
MOV AH,09H
INT 21H
JMP LAST

Next: LEA DX,ADDR1
MOV AH,09H
INT 21H

LAST: MOV AH,4CH
INT 21H

CODES ENDS
END START
不知道哪里错了，总是出现Not Found

Answer 1

DATAS SEGMENT ;验证无误.
STR DB '0123456789'
N = $-STR
ADDR1 DB 'Found$'
ADDR2 DB 'Not Found$'
;ARRAY DB 10 DUP(?)
INPUT DB 13,10,'Input the number you want to find:',13,10,'$'
DATAS ENDS

CODES SEGMENT
ASSUME CS:CODES,DS:DATAS
START: MOV AX,DATAS
MOV DS,AX
LEA DX,INPUT
MOV AH,09H
INT 21H
MOV AH,01H
INT 21H
LEA SI,STR
MOV CX,N
next: cmp al,[si]
jz ok
inc si
loop next
LEA DX,ADDR2
JMP L1
ok: LEA DX,ADDR1
L1: MOV AH,09H
INT 21H
mov ah,0
int 16h
quit: MOV AH,4CH
INT 21H

CODES ENDS
END START

Answer 2

试试看：

STR DB '0','1','2','3','4','5','6','7','8','9'