ASCTOBIN PROC
PUSH BX
XOR CX,CX
GETA:
MOV AL,[SI]
;判断是不是数字ASCLL码
CMP AL,'0'
JB RETURN;
CMP AL,'9'
JA RETURN
SUB AL,'0'
XOR AH,AH
;把CX乘10,为了做到10*n+d
MOV BX,CX;
SHL CX,1
SHL CX,1
ADD CX,BX
SHL CX,1
;把乘10的CX+AX，SI指针后移
ADD CX,AX
INC SI
JMP GETA;
RETURN:
POP BX
RET
ASCTOBIN ENDP;

主程序中调用

AGAIN: CALL ASCTOBIN
MOV [DI],CX
INC SI
ADD DI,2
CMP AL,ODH;判断取到的是不是回车
JNZ AGAIN

ASCLL码首址在SI中

出口：CX为转换结果，AL为取出的非数字符号