从键盘上输入一串字符(用回车键结束,使用 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