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

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