怎样把一个字符串格式化为ASCII码数字表示

汇编语言中，输入一个数字字符，转化成为数字，可参照以下示例程序：
data segment
str db db 'INPUT STR:$'
num db ?
data ends
code segment
assume cs:code,ds:data
main proc far
start:
mov ax,data
mov ds,ax
lea si,str
inputr: mov dx,offset str;显示“INPUT STR:”
call crlf;回车换行
mov ah,09h
int 21h
mov ah,01h;等待输入直到输入一个数字字符
int 21h
cmp al,30h;确认是数字字符0至9
jc inpstr
cmp a1,3ah
jnc inputr
sub al,30h;转换为数字逆序输出字符串
mov [si],al;存入num
mov ah,4ch;结束程序
int 21h
ret
main endp
crlf proc near ;回车换行子程序
mov dl,0ah
mov ah,02h
int 21h
mov dl,0dh
mov ah,02h
int 21h
ret
crlf endp
code ends
end start