汇编语言: 从键盘上输入一串字符（用回车键结束，使用 10 号功能调用。）放在 STRING 中，试 编制一个程序测试字符串中是否存在数字。如有，则把 CL 的第 5 位置 1，否则将该位置置 0。

data segment
string db 101,?,101 dup(?)
data ends

code segment
assume ds:data,cs:code
p proc far

mov ax,data
mov ds,ax

lea dx,string
mov ah,0Ah
int 21h

lea si,string
inc si
mov cx,[si]
inc si

l1:
cmp BYTE PTR[si],'0'
jb continue
cmp BYTE PTR[si],'9'
ja continue
jmp digt
continue:
inc si
loop l1

digt:
mov cl,00010000b
mov bl,8
input:
rol cl,1
mov dl,cl
and dl,1
add dl,30h
mov ah,2
int 21h

dec bl
cmp bl,0
je exit
jmp input

exit:
mov ah,4ch
int 21h

p endp
code ends
end p