DATA SEGMENT
BDAT DW 0001101000101011B
DATA ENDS
STACK SEGMENT PARA STACK'STACK'
DB 10 DUP(?)
STACK ENDS
CODE SEGMENT
MAIN PROC FAR
ASSUME CS:CODE,DS:DATA
START:PUSH DS
XOR AX,AX
PUSH AX
MOV AX,DATA
MOV DS,AX
MOV BX,BDAT
MOV CH,4
LP:MOV CL,4
ROL BX,CL
MOV AL,BL
AND AL,0FH
ADD AL,30H
CMP AL,3AH
JL LP1
ADD AL,7
LP1:MOV DL,AL
MOV AH,2
INT 21H
DEC CH
JNZ LP
RET
MAIN ENDP
CODE ENDS
END START




以上程序是把二进制数转换为十六制数，若要将其转换为十进制数应该如何修改呢？请把原程序po出来，谢谢了！