DEC2HEX SEGMENT
ASSUME CS:DEC2HEX
MAIN PROC FAR
REPEAT: CALL DEC2BIN ;十进制转换为二进制
CALL CRLF ;回车与换行
CALL BIN2HEX ;二进制转换为十六进制
CALL CRLF
JMP REPEAT
MAIN ENDP
;十进制转换二进制,结果放在寄存器BX中
DEC2BIN PROC NEAR
MOV BX,0
KEYIN: MOV AH,1
INT 21H
SUB AL,30H
JL EXIT
CMP AL,9
JG EXIT
CBW
XCHG AX,BX
MOV CX,10
MUL CX
XCHG AX,BX
ADD BX,AX
JMP KEYIN
EXIT: RET
DEC2BIN ENDP
;二进制转换为十六进制,把BX中的值按高到低先后,以4个二