寻找特殊字符-汇编语言

在已知字符串中搜索特定字符’#’，若找到则 AL 返回 0，找不到 AL 返回 1

DATAS SEGMENT
BUF DB 20,?,20 DUP('$')
LEN EQU $-BUF
DATAS ENDS
STACKS SEGMENT
STACKS ENDS
CODES SEGMENT
ASSUME CS:CODES,DS:DATAS,SS:STACKS
START:
MOV AX,DATAS
MOV DS,AX
MOV ES,AX

	LEA DX,BUF
	MOV AH,10		;输入
    INT 21H   
    mov dl,0ah  ;换行
    mov ah,2 
    int 21h  
	mov dl,0dh  
    mov ah,2  
    int 21h 
MOV CX,LEN
MOV DI, OFFSET BUF
MOV AL, '#';将要查找的字符存入AL
REPNZ SCASB ;逐个查找
JZ Y ;若ZF=1，则字符串中有 ’，! ’跳至 Y
MOV AL,1 ;字符串中不含 ’，! ’AL=1
JMP E
Y: MOV AL,0 ;字符串中含有 ’，! ’AL=0
E: ADD AL,30H ;将AL 中的 ‘0与’‘1转’换成可显示结果
MOV DL,AL ;显示比较结果
MOV AH,02
INT 21H
MOV AH,4CH
INT 21H
CODES ENDS
END START

结果图示例：

 

设有一字符串已存放在 STRBUF 为首址的数据区中，编一程序找出其中的‘#’字符，如果字符串中不存在‘#’字符则应该输出“Not found”

DATAS SEGMENT
BUF DB 'dfbvzV$'
LEN EQU $-BUF
BUF1 DB 'Not found$'
DATAS ENDS
STACKS SEGMENT
STACKS ENDS
CODES SEGMENT
ASSUME CS:CODES,DS:DATAS,SS:STACKS
START:
MOV AX,DATAS
MOV DS,AX
MOV ES,AX
MOV CX,LEN
MOV DI, OFFSET BUF
MOV AL, '#';将要查找的字符存入AL

L1:
REPNZ SCASB ;逐个查找，ZF=1时结束循环
JZ L3

L2:
MOV DX,OFFSET BUF1
MOV AH,9
INT 21H
JMP L4

L3:
MOV BX,DI
ADD BL,30H ;将BL 中的值转换成可显示结果
MOV DL,BL ;显示计算结果
MOV AH,02
INT 21H
L4:
MOV AH,4CH
INT 21H
CODES ENDS
END START

结果图示例：

输出结果表明“#”位于第五个位置