试将8位二进制数据转换为十进制 (BCD码)数据，并改写为子程序，输入30H,输出31H。写出汇编语言代码

将8位二进制数据转换为BCD码：

1. 将二进制数的每个十六进制位分别转换为它所表示的十进制数，然后将十进制数转换为BCD码。

例如：二进制数11010010，转换为BCD码后为0001 1000 0010。

2. 将所有的BCD码连接在一起，得到最终的BCD码。

例如：11010010转换为BCD码后为0001 1000 0010。

改写为子程序：

BCD转换的过程中需要对每个十六进制位进行转换，因此可以将转换一个十六进制位的代码封装成一个子程序。

输入30H，输出31H的代码：

MOV AL, 30H  ;将二进制数110000转换为十进制数30
CALL BCD_CONV ;调用BCD转换子程序
MOV DL, AH    ;将高四位存入DL
MOV DH, AL    ;将低四位存入DH

MOV AH, 02H   ;显示数字
MOV DL, DH    ;显示高四位
ADD DL, 30H   ;转换为ASCII码
INT 21H

MOV AH, 02H   ;显示数字
MOV DL, DL    ;显示低四位
ADD DL, 30H   ;转换为ASCII码
INT 21H

MOV AH, 4CH   ;退出程序
INT 21H

BCD_CONV PROC
  MOV BL, AL    ;保存原始数据
  SHR AL, 4     ;将高四位移到低四位
  AND AL, 0FH   ;清除高四位值
  CALL HEX_CONV ;转换为BCD码
  MOV AH, AL    ;将结果存入AH

  MOV AL, BL    ;恢复原始数据
  AND AL, 0FH   ;清除低四位值
  CALL HEX_CONV ;转换为BCD码
  SHL AL, 4     ;将结果移到高四位
  OR AH, AL     ;将低四位和高四位合并为一个字节

  RET
BCD_CONV ENDP

HEX_CONV PROC
  CMP AL, 10H   ;如果小于10，直接转换为BCD
  JB NO_ADJUST
  ADD AL, 7     ;否则添加偏移值
NO_ADJUST:
  ADD AL, 30H   ;转换为ASCII码
  RET
HEX_CONV ENDP