8086汇编经典例程下.docVIP

编写一个程序，从键盘输入任意十进制正数，然后将这个数按16进制形式显示在屏幕上。 DECIHEX SEGMENT ; 定义代码段 ASSUME CS:DECIHEX MAIN PROC FAR ; 主程序 REPEAT:CALL DECIBIN ; 调用子程序输入十进制数 CALL CRLF ; 显示回车、换行 CALL BINIHEX ; 以十六进制数输出 CALL CRLF ; 显示回车、换行 JMP REPEAT ; 转REPEAT，继续 MAIN ENDP DECIBIN PROC NEAR ; 十进制数输入子程序 MOV BX, 0 ; BX保存输入数 NEWCHAR: MOV AH, 1 INT 21H ; 调用DOS功能输入字符 SUB AL, 30H ; 转为数0-9 J EXIT ; 小于0，不是数字 CMP AL, 9D ; 与9比较 J EXIT ; 大于，不是数字 CBW ; AL=AX XCHG AX, BX ; AX、BX互换 MOV CX, 10D ; CX=10 MUL CX ; AX=AX*CX ADD BX, AX ; BX为前面输入的结果 JMP NEWCHAR EXIT: RET DECIBIN ENDP BINIHEX PROC NEAR MOV CH, 4 ; CH循环次数 ROTATE: MOV CL, 4 ;每次循环输出一位十六进制数 ROL BX, CL ; 即移位4个二进制位 MOV AL, BL; AL=BL AND AL, 0FH ; 取低4位 ADD AL, 30H; 转变为ASCII码 CMP AL, 3AH; 是否为’0’-‘9’ JL PRINTIT; 是转PRINTIT ADD AL, 7H; 否转为’A’-‘F’ PRINTIT: MOV DL, AL ; DL=输出字符 MOV AH, 2 INT 21H ;调用DOS中断，显示字符 DEC CH JNZ ROTATE; 没循环结束，继续 RET ; 返回 BINIHEX ENDP CRLF PROC NEAR ; 输出回车、换行 MOV DL, 0DH MOV AH, 2 INT 21H ; 输出回车 MOV DL, 0AH MOV AH, 2 INT 21H ; 输出换行 RET CRLF ENDP DECIHEX ENDS END MAIN